-- file P5F.mesa
-- last edited by Sweet July 24, 1980  10:36 AM
-- last edited by Satterthwaite October 18, 1982 12:41 pm

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

P5F: DEFINITIONS =  {
  OPEN CodeDefs;

 -- from CrossJump
  CPass5:  PROC;

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

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

  }.