[ivy]<Satterthwaite>CrossCompiler>tP5S.mesa!1

file P5S.mesa

last modified by Sweet, April 9, 1980 9:44 PM

last modified by Satterthwaite, November 27, 1985 2:37:20 pm PST

DIRECTORY

CodeDefs: TYPE USING [Lexeme],

Tree: TYPE USING [Index];

P5S: DEFINITIONS = {

OPEN CodeDefs;

from Address

DIndex: PROC [node: Tree.Index] RETURNS [Lexeme];

Index: PROC [node: Tree.Index] RETURNS [Lexeme];

SeqIndex: PROC [node: Tree.Index] RETURNS [Lexeme];

from Calls

Bind: PROC [node: Tree.Index];

Call: PROC [node: Tree.Index];

CallExp: PROC [node: Tree.Index] RETURNS [Lexeme];

Create: PROC [node: Tree.Index] RETURNS [Lexeme];

ErrExp: PROC [node: Tree.Index] RETURNS [Lexeme];

ForkExp: PROC [node: Tree.Index] RETURNS [Lexeme];

Free: PROC [node: Tree.Index];

InlineCall: PROC [node: Tree.Index];

InlineCallExp: PROC [node: Tree.Index] RETURNS [Lexeme];

JoinExp: PROC [node: Tree.Index] RETURNS [Lexeme];

Join: PROC [node: Tree.Index];

ProcCheck: PROC [node: Tree.Index] RETURNS [Lexeme];

Restart: PROC [node: Tree.Index];

RetWithError: PROC [node: Tree.Index];

SigErr: PROC [node: Tree.Index];

SigExp: PROC [node: Tree.Index] RETURNS [Lexeme];

Start: PROC [node: Tree.Index];

StartExp: PROC [node: Tree.Index] RETURNS [Lexeme];

Stop: PROC [node: Tree.Index];

SysErrExp: PROC [node: Tree.Index] RETURNS [Lexeme];

Unlock: PROC [node: Tree.Index];

Wait: PROC [node: Tree.Index];

from Driver

Lock: PROC [node: Tree.Index];

Result: PROC [node: Tree.Index];

Resume: PROC [node: Tree.Index];

Return: PROC [node: Tree.Index];

StringInit: PROC [node: Tree.Index] RETURNS [Lexeme];

Subst: PROC [node: Tree.Index];

SubstExp: PROC [node: Tree.Index] RETURNS [Lexeme];

from Flow

CatchMark: PROC [node: Tree.Index];

Continue: PROC;

Exit: PROC;

GoTo: PROC [node: Tree.Index];

Label: PROC [node: Tree.Index];

Loop: PROC;

Retry: PROC;

from Store

Assign: PROC [node: Tree.Index];

AssignExp: PROC [node: Tree.Index] RETURNS [Lexeme];

BodyInit: PROC [node: Tree.Index] RETURNS [Lexeme];

Extract: PROC [node: Tree.Index];

ExtractExp: PROC [node: Tree.Index] RETURNS [Lexeme];

ProcInit: PROC [node: Tree.Index];