Copyright © 1985 by Xerox Corporation. All rights reserved.

Sweet, April 9, 1980 4:41 PM

Satterthwaite, April 14, 1986 2:14:02 pm PST

Russ Atkinson (RRA) March 6, 1985 11:07:25 pm PST

Alloc USING [Handle, Notifier],

CodeDefs USING [Byte, CCIndex, ChunkIndex, CodeCCIndex, CodeChunkType, JumpType, LabelCCIndex, OpWordCount],

PackageSymbols USING [WordIndex],

SourceMap USING [Loc],

Symbols USING [CSEIndex, CTXIndex, ISEIndex, RecordSEIndex, Type],

Tree USING [Index, Link];

CgenUtilNotify: Alloc.Notifier;

AllocCodeCCItem: PROC [n: [0..3]] RETURNS [c: CodeCCIndex];

BitsForOperand: PROC [t: Tree.Link] RETURNS [CARDINAL];

BitsForType: PROC [sei: Type] RETURNS [CARDINAL];

CCellAlloc: PROC [t: CodeChunkType];

CgenUtilInit: PROC [ownTable: Alloc.Handle];

ComputeFrameSize: PROC [fs: CARDINAL] RETURNS [CARDINAL];

CreateLabel: PROC RETURNS [c: LabelCCIndex];

DeleteCell: PROC [c: CCIndex];

EnumerateCaseArms: PROC [node: Tree.Index, action: PROC [t: Tree.Link]];

FreeChunk: PROC [i: CodeDefs.ChunkIndex, size: CARDINAL];

FullWordBits: PROC [bits: CARDINAL] RETURNS [CARDINAL];

GetChunk: PROC [size: CARDINAL] RETURNS [CodeDefs.ChunkIndex];

InsertLabel: PROC [c: LabelCCIndex];

LabelAlloc: PROC RETURNS [c: LabelCCIndex];

LongTreeAddress: PROC [t: Tree.Link] RETURNS [long: BOOL];

MakeLongTreeLiteral: PROC [d: DESCRIPTOR FOR ARRAY OF WORD, type: CSEIndex] RETURNS [Tree.Link];

MakeTreeLiteral: PROC [val: WORD] RETURNS [Tree.Link];

MarkedType: PROC [Type] RETURNS [CSEIndex];

NextVar: PROC [sei: ISEIndex] RETURNS [ISEIndex];

NilTree: PROC [type: CSEIndex] RETURNS [Tree.Link];

OperandType: PROC [t: Tree.Link] RETURNS [sei: CSEIndex];

Out0: PROC [i: Byte];

Out1: PROC [i: Byte, p1: WORD];

Out2: PROC [i: Byte, p1, p2: WORD];

Out3: PROC [i: Byte, p1, p2, p3: WORD];

OutJump: PROC [jt: JumpType, l: LabelCCIndex];

OutSource: PROC [index: SourceMap.Loc];

ParamCount: PROC [c: CodeCCIndex] RETURNS [CARDINAL];

PrevVar: PROC [ssei, sei : ISEIndex] RETURNS [ISEIndex];

PushLitVal: PROC [v: UNSPECIFIED];

RecordConstant: PROC [offset: PackageSymbols.WordIndex, length: CARDINAL];

ReferentType: PROC [type: Type] RETURNS [Type];

TreeLiteral: PROC [t: Tree.Link] RETURNS [BOOL];

TreeLiteralValue: PROC [t: Tree.Link] RETURNS [WORD];

TypeForTree: PROC [t: Tree.Link] RETURNS [Type];

VariantTag: PROC [type: Type, ctx: CTXIndex] RETURNS [WORD];

WordAligned: PROC [tsei: RecordSEIndex] RETURNS [BOOL];

WordsForOperand: PROC [t: Tree.Link] RETURNS [OpWordCount];

WordsForSei: PROC [sei: Type] RETURNS [OpWordCount];

WordsForString: PROC [nChars: CARDINAL] RETURNS [CARDINAL];

}.