<> <> <> <> DIRECTORY PrincOps USING [BytePC, FrameHandle, SVPointer]; FastBreak: DEFINITIONS = BEGIN OPEN PrincOps; <> FastBreakProc: TYPE = PROC [data: FastBreakData, frame: FrameHandle, sv: 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: 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.