Text preview for : DebugInit.mesa_Sep78.pdf part of xerox DebugInit.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Debug DebugInit.mesa_Sep78.pdf
Back to : DebugInit.mesa_Sep78.pdf | Home
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]