-- file P5F.mesa
-- last edited by Sweet July 24, 1980  10:36 AM
-- last edited by Satterthwaite 16-Aug-81 10:31:48

DIRECTORY
  CodeDefs: TYPE USING [CCIndex, JumpCCIndex, LabelCCIndex];

P5F: DEFINITIONS = 
  BEGIN OPEN CodeDefs;

 -- from CrossJump
  CPass5:  PROC;

 -- from Final
  StartIndex: LabelCCIndex;
  EndIndex: CCIndex;
  DidSomething: BOOLEAN;
  UnthreadJump: PUBLIC PROC [c: JumpCCIndex];
  UCjump: PUBLIC PROC [c: CCIndex] RETURNS [BOOLEAN];
  CodeJumpDist: PROC [jDist: INTEGER, l: [0..7], pad: [0..1], c: JumpCCIndex];

 -- from DJumps
  FillInPCEstimates: PROC;
  BindJump: PROC [min, max: INTEGER, c: JumpCCIndex] RETURNS [bindable: BOOLEAN];
  CodeJump: PROC [nbytes: INTEGER, c: JumpCCIndex];

  END.