<<>> <> <> <> <> <> <> <<>> DIRECTORY Rope USING [ROPE]; StackTrace: CEDAR DEFINITIONS ~ BEGIN FramePointer: TYPE ~ POINTER TO Frame; Frame: TYPE; ProgramCounter: TYPE ~ POINTER TO Instruction; Instruction: TYPE; FrameInfo: TYPE ~ REF FrameInfoBody; FrameInfoBody: TYPE ~ RECORD [ index: NAT, pc: ProgramCounter, fp: FramePointer, sp: FramePointer ]; Names: TYPE ~ REF NamesBody; NamesBody: TYPE ~ RECORD [ loadedFileName: Rope.ROPE, loadedTextStart, embeddedTextStart: CARD, embeddedDotONames: LIST OF Rope.ROPE, procName: Rope.ROPE ]; FrameProc: TYPE ~ PROC [frame: FrameInfo, names: Names] RETURNS [quit: BOOL]; NoStack: ERROR [msg: Rope.ROPE]; <> Trace: PROC [thread: CARD32, callback: FrameProc]; <> END.