m3front/src/values/Decl.i3


Copyright (C) 1994, Digital Equipment Corp.
File: Decl.i3

INTERFACE Decl;

IMPORT M3, M3ID, CG;

TYPE
  Attributes = RECORD
      alias:       M3ID.T   := M3ID.NoID;
      isExternal:  BOOLEAN  := FALSE;
      isInline:    BOOLEAN  := FALSE;
      isUnused:    BOOLEAN  := FALSE;
      isObsolete:  BOOLEAN  := FALSE;
      callingConv: CG.CallingConvention := NIL;
    END;

PROCEDURE Parse (interface, top_level: BOOLEAN;  VAR fails: M3.ExSet);

PROCEDURE ParseExternalPragma (VAR(*OUT*) alias : M3ID.T;
                               VAR(*OUT*) cc    : CG.CallingConvention);

END Decl.

interface M3ID is in: