INTERFACE M3AST_FE_priv; (***************************************************************************) (* Copyright (C) Olivetti 1989 *) (* All Rights reserved *) (* *) (* Use and copy of this software and preparation of derivative works based *) (* upon this software are permitted to any person, provided this same *) (* copyright notice and the following Olivetti warranty disclaimer are *) (* included in any copy of the software or any modification thereof or *) (* derivative work therefrom made by any person. *) (* *) (* This software is made available AS IS and Olivetti disclaims all *) (* warranties with respect to this software, whether expressed or implied *) (* under any law, including all implied warranties of merchantibility and *) (* fitness for any purpose. In no event shall Olivetti be liable for any *) (* damages whatsoever resulting from loss of use, data or profits or *) (* otherwise arising out of or in connection with the use or performance *) (* of this software. *) (***************************************************************************) (* Private types for the FE view. *) (* Each AST contains a handle on errors generated during compilation. See "M3AST_FE_priv_F" for representation details. *) (* M3AST_AS.Compilation_Unit => fe_priv_errors: Unit_errors *) TYPE Unit_errors <: REFANY; (* an opaque type to denote errors in a unit *) END M3AST_FE_priv.