C2CCodeDefsPrivate.mesa
Copyright Ó 1987, 1988, 1989, 1990, 1991 by Xerox Corporation. All rights reserved.
Christian Jacobi, March 30, 1989 2:09:10 pm PST
Christian Jacobi, January 25, 1990 12:36:19 pm PST
Jim Foote December 17, 1987 5:15:29 pm PST
CodeRec:
TYPE =
RECORD [
base: LIST OF REF ANY, --ROPE, REF TEXT
last: LIST OF REF ANY,
precedence: C2CDefs.Precedence ¬ C2CDefs.lowestCPrecedence,
convention: operation of equal precedence
delayedX:
BOOL ¬
FALSE,
delayedDeref: BOOL ¬ FALSE, --delayed dereferencing
delayedCRef: BOOL ¬ FALSE, --delayed cast to pointer
delayedCWord: BOOL ¬ FALSE, --delayed cast to word
pointeeBits: INT ¬ -1,
--has.. describes base of code before any delayed nonsense is added;
--usage optional to reduce casting
hasCRefBits: INT ¬ -1,
hasCRef: BOOL ¬ FALSE, --never both hasCRef and hasCWord
hasCWord: BOOL ¬ FALSE,
adressable: BOOL ¬ FALSE,
isAdress: BOOL ¬ FALSE,
dead: BOOL ¬ FALSE,
whiteSpaceOnly: BOOL ¬ FALSE,
class: IntCodeDefs.ArithClass ¬ [lastExtension, FALSE, 0],
usageInhibited: BOOL ¬ FALSE
];