<> <> <> DIRECTORY PrincOps USING [BytePC, FrameHandle, SVPointer]; FastBreak: DEFINITIONS = BEGIN <> FastBreakProc: TYPE = PROC [ data: FastBreakData, frame: PrincOps.FrameHandle, sv: PrincOps.SVPointer] RETURNS [useOldBreak: BOOL _ FALSE]; <> FastBreakData: TYPE = LONG POINTER; <> FastBreakId: TYPE = LONG POINTER TO INT; <> <> FastBreaksLeft: PUBLIC PROC RETURNS [NAT]; <> SetFastBreak: PROC [code: LONG POINTER, pc: PrincOps.BytePC, proc: FastBreakProc _ NIL, data: FastBreakData _ NIL] RETURNS [id: FastBreakId]; <> ClearFastBreak: PROC [id: FastBreakId, proc: FastBreakProc _ NIL, data: FastBreakData _ NIL] RETURNS [found: BOOL]; <> ClearAllFastBreaks: PROC [releaseResources: BOOL _ TRUE] RETURNS [cleared: NAT]; <> <> FastBreakHandler: PROC; <> SpecifyDefaultBreakHandler: PROC [old: PROC]; <> END.