Text preview for : DumpUtils.mesa_Sep78.pdf part of xerox DumpUtils.mesa Sep78 xerox mesa 4.0_1978 listing Mesa_4_Debug DumpUtils.mesa_Sep78.pdf
Back to : DumpUtils.mesa_Sep78.pdf | Home
DumpUtils.mesa 2-Sep-78 15:32:14 Page 1
file: DumpUtils.Mesa
Edited by:
Sandman on May 23, 1978 8:32 AM
Barbara on July 31, 1978 4:44 PM
Johnsson on August 29, 1978 11:05 AM
DIRECTORY
AltoDefs: FROM "altodefs" USING [wordlength],
ControlDefs: FROM "controldefs" USING [
BytePC, FieldDescriptor, FrameHandle, GlobalFrameHandle, MaxParmsInStack,
NullFrame, WordPC],
CoreSwapDefs: FROM "coreswapdefs" USING [SVPointer],
DebugBreakptDefs: FROM "debugbreakptdefs" USING [
CodeToSourceIndex, PrintLocation, SourceFileMissing],
DebuggerDefs: FROM "debuggerdefs" USING [
Display, FieldContext, FRPointer, fullbitaddress, LA, MainBTI, SA,
SeiHandle, SOPointer, SymbolObject, SymFrameHandle, VersionStamp],
DebugMiscDefs: FROM "debugmiscdefs" USING [WriteCharZ, W~iteEOL],
DebugSymbolDefs: FROM "debugsymboldefs" USING [
DAcquireSymbolTable, DReleaseSymbolTable, HandleForBase,
TableForString],
DebugUtilityDefs: FROM "debugutilitydefs" USING [
LongREAD, MREAD, ReadCodeByte, SREAD],
IODefs: FROM "iodefs" USING [WriteChar, WriteOctal, WriteString],
Mopcodes: FROM "mopcodes" USING [zBRK, zNOOP, zRFS],
StringDefs: FROM "stringdefs" USING [
AppendSubString, SubString, SubStringDescriptor],
SymbolTableDefs: FROM "symboltabledefs" USING [
NoSymbolTable, SymbolTableBase, SymbolTableHandle],
SymDefs: FROM "symdefs" USING [
BitAddress, BodyRecord, BTIndex, BTNull, CBTIndex, CBTNull, CTXIndex,
CTXNull, HTlndex, HTNull, ISEIndex, ISENull, SEIndex, SENull,
TransferMode];
DumpUtils: PROGRAM
IMPORTS DebugBreakptDefs, DebuggerDefs, DebugMiscDefs, DebugSymbolDefs,
DebugUtilityDefs, IODefs, StringDefs, SymbolTableDefs
EXPORTS DebuggerDefs =
BEGIN
SeiHandle: TYPE = DebuggerDefs.SeiHandle;
SymFrameHandle: TYPE = DebuggerDefs.SymFrameHandle;
SOPointer: TYPE = DebuggerDefs.SOPointer;
FRPointer: TYPE = DebuggerDefs.FRPointer:
SymbolTableBase: TYPE = SymbolTableDefs.SymbolTableBase;
WriteBlanks: PUBLIC PROCEDURE en: CARDINAL]