Addresses.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Created by Theimer: August 21, 1989 1:29:40 pm PDT
Last changed by Theimer on August 21, 1989 5:53:09 pm PDT
DIRECTORY
CirioTypes USING [Type, CompilerContext, Node];
Addresses: CEDAR DEFINITIONS
= BEGIN
CC: TYPE = CirioTypes.CompilerContext;
Type: TYPE = CirioTypes.Type;
Node: TYPE = CirioTypes.Node;
CreateAddressType: PROC [cc: CC] RETURNS [Type];
CirioCode.GetTypeClass[type] = $address
CCType.GetTypeRepresentation will return NIL.
AddressNodeInfo: TYPE = REF AddressNodeInfoBody;
AddressNodeInfoBody: TYPE = RECORD [
getAddressValue: PROC [data: REF ANY] RETURNS [CARD],
data: REF ANY
];
CreateAddressNode: PUBLIC PROC [type: Type, info: REF ANY, cc: CC] RETURNS [Node];
END.