xerox DebugInit.mesa Sep78 free download

File name DebugInit.mesa_Sep78.pdf

DebugInit.mesa 2-Sep-78 15:32:14 Page 1 File DebugInit.mesa Edited by: Johnsson, August 15, 1978 9:37 AM Sandman, April 17, 1978 9:04 AM Barbara, June 20, 1978 1:32 PM DIRECTORY AltoDefs: FROM "altodefs" USING [BYTE], ControlDefs: FROM "controldefs" USING [ BytePC, FrameHandle, GFT, GFTIndex, GlobalFrameHandle, NullFrame, ProcDesc, SD, SignalDesc, StateVector], CoreSwapDefs: FROM "coreswapdefs" USING [SVPointer], DebugBreakptDefs: FROM "debugbreakptdefs" USING [ BBPointer, BTtype, ClearBr'eakBlocks, EXOItype, FindBPRec, FindSegBPRec], DebugCacheDefs: FROM "debugcachedefs" USING [ReinitMap], DebugData: FROM "debugdata" USING [ caseignoring, debugPilot, ESV, gContext, lContext, pContext. restartmessage, sigGF, StatePtr. userwindow. worrybreaks]. DebuggerDefs: FROM "debuggerdefs" USING [ AmIaRecord, BodySei. DumpLocals, DumpParameters, DumpRetVals. DumpSource. DumpValsFromState, FormatRecord, FrameRelBPC, ListOptions, SeiHandle. SigSeiHandle, SymFrameHandle, WriteFrameLocus. WriteTransferName], DebugMiscDefs: FROM "debugmiscdefs" USING [DebugCommand, WriteEOL]. DebugSymbolDefs: FROM "debugsymboldefs" USING [ DAcquireSymbolTable, DCheckSymbolItems, DReleaseSymbolTable, PurgeUserSymbols. SymbolsForGFrame], DebugUtilityDefs: FROM "debugutilitydefs" USING [ AREAD, CheckFrame, CoreSwap, DebugUtilitiesInit, InitDebugger, InitializeDrum, InitMapCleanup. InitUCSHandler, InvalidateFileCache, MREAD, UserWriteString, MWRITE], 10Defs: FROM "iodefs" USING [ CR, NUL, ReadChar, WriteChar, WriteLine, WriteOctal, WriteString], OsStaticDefs: FROM "osstaticdefs" USING [OsStaticRecord, OsStatics]. SDDefs: FROM "sddefs" USING [sSignal], StreamDefs: FROM "streamdefs" USING [StreamIndex], SymDefs: FROM "symdefs" USING [ISEIndex], TimeDefs: FROM "timedefs" USING [AppendDayTime. DefaultTime, UnpackDT], WindowDefs: FROM "windowdefs" USING [ GetCurrentDisplayWindow, PaintDisplayWindow, WindowHandle]: DebugInit: PROGRAM [herald: STRING] IMPORTS DebugCacheDefs, DDptr: DebugData, DebugMiscDefs. DebugBreakptDefs, DebugSymbolDefs, DebugUtilityDefs, DebuggerDefs, IODefs, TimeDefs, WindowDefs EXPORTS DebugMiscDefs, OebugBreakptDefs = BEGIN SaveSignallerGF: PUBLIC PROCEDURE = BEGIN OPEN ControlDefs, DebugUtilityDefsj gfi: GFTIndex: gfi ~ LOOPHOLE[MREAD[@SD[SDDefs.sSignal]], ProcDesc].gfi: DDptr.sigGF ~ MREAD[@GFT[gfi].frame]; RETURN: END: BreakInstToState: PUBLIC PROCEDURE Esp: CoreSwapDefs.SVPointer, b: AltoDefs.BYTE]