XMesaCmplr12Defs3.mesa  20-Aug-87 15:35:59
Jim Foote January 20, 1988 10:16:22 am PST
<< XMesaCmplr12Defs3 contains 3 different record types containing sequences. These 3 kinds of sequences are each allocated using 3 different methods (cardinal variable, expression, cardinal). The fourth type of sequence is a StringBody. >>
XMesaCmplr12Defs3: DEFINITIONS =
BEGIN
z: UNCOUNTED ZONE;
card: CARDINAL;
p1Card: LONG POINTER TO T1;
p1Expr: LONG POINTER TO T1;
p1Digs: LONG POINTER TO T1;
p2Card: LONG POINTER TO T2;
p2Expr: LONG POINTER TO T2;
p2Digs: LONG POINTER TO T2;
p3Card: LONG POINTER TO T3;
p3Expr: LONG POINTER TO T3;
p3Digs: LONG POINTER TO T3;
sCard: LONG STRING;
sExpr: LONG STRING;
sDigs: LONG STRING;
T1: TYPE = RECORD [
seq: SEQUENCE length: CARDINAL OF INTEGER];
T2: TYPE = RECORD [
seq: SEQUENCE COMPUTED CARDINAL OF INTEGER];
T3: TYPE = RECORD [
fixed: REAL,
seq: PACKED SEQUENCE length: CARDINAL OF [0..4)];
END.