DefaultTest: CEDAR DEFINITIONS = BEGIN CARD: TYPE = LONG CARDINAL; Biased: TYPE = [1..15]; Unbiased: TYPE = [0..15]; DefaultInt: INT = 1; DefaultBiased: Biased = 1; DefaultUnbiased: Unbiased = 1; RCType: TYPE = RECORD [ SELECT tag: * FROM smallUnbiased => [Unbiased], smallBiased => [Biased], largeNonRC => [INT], largeRC => [REF], ENDCASE]; DefaultRCType: RCType = [smallUnbiased[1]]; Record: TYPE = RECORD [ argRC: RCType _ DefaultRCType, argIC: INT _ 1, argII: INT _ DefaultInt, argIB: INT _ DefaultBiased, argIU: INT _ DefaultUnbiased, argBC: Biased _ 1, argBI: Biased _ DefaultInt, argBB: Biased _ DefaultBiased, argBU: Biased _ DefaultUnbiased, argUC: Unbiased _ 1, argUI: Unbiased _ DefaultInt, argUB: Unbiased _ DefaultBiased, argUU: Unbiased _ DefaultUnbiased, argLCC: CARD _ 1, argLCI: CARD _ DefaultInt, argLCB: CARD _ DefaultBiased, argLCU: CARD _ DefaultUnbiased]; TestRecord: PROC [record: Record] RETURNS [REF Record]; TestCompiledRecord: PROC RETURNS [REF Record]; END. :DefaultTest.mesa Russ Atkinson, May 2, 1983 4:58 pm ĘɘJšœ™Jšœ"™"J˜Jšœ Īkœ œ˜&˜Jšœœœœ˜Jšœœ ˜Jšœ œ ˜J˜Jšœ œ˜Jšœ˜Jšœ˜J˜šœœœ˜šœ˜Jšœ˜Jšœ˜Jšœœ˜Jšœ œ˜Jšœ˜ ——Jšœ+˜+J˜šœœœ˜Jšœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ ˜ Jšœ˜Jšœ˜Jšœ ˜ Jšœ"˜"Jšœœ˜Jšœœ˜Jšœœ˜Jšœœ˜ —J˜šĪn œœœœ ˜7J˜—šžœœœœ ˜.J˜—Jšœ˜J˜—J˜—…—æé