xerox DebugCache.mesa Sep78 free download

File name DebugCache.mesa_Sep78.pdf

DebugCache.mesa 2-Sep-78 15:32:14 Page 1 File: DebugCache.Mesa Last edited by Johnsson: August 29, 1978 9:46 AM DIRECTORY AllocDefs: FROM "allocdefs" USING [MakeSwappedIn, SwappingProcedure], AltoDefs: FROM "altodefs" USING [PageSizeJ, AltoFileDefs: FROM "altofiledefs" USING [fillinDA, vDA], BFSDefs: FROM "bfsdefs" USING [ActOnPages, GetNextDA], ControlDefs: FROM "controldefs" USING [ControlLink], CoreSwapDefs: FROM "coreswapdefs", DebugData: FROM "debu9data" USING [altoXM, debugPilot, mdsContext, onDO], DebugCacheDefs: FROM "debugcachedefs" USING [ InitMapSeg, LookupMapEntry, NewPilot31Segment, ReleaseMap, WritePilot31Page], DebuggerDefs: FROM "debuggerdefs" USING [LA], DebugMiscDefs: FROM "debugmiscdefs", DebugUsefulDefs: FROM "debugusefuldefs", DebugUtilityDefs: FROM "debugutilitydefs", DebugXMDefs: FROM "debugxmdefs" USING [XMRead, XMWrite], DiskDefs: FROM "diskdefs" USING [DiskRequest], ImageDefs: FROM "imagedefs", InlineDefs: FROM "inlinedefs" USING [COPY, LongDivMod, LongMult], Mopcodes: FROM "mopcodes" USING [zMISC, zRBL, zWBL], SegmentDefs: FROM "segmentdefs" USING [ DefaultBase, DeleteFileSegment, FileHandle, FileSegmentAddress, FileSegmentHandle, GetFileSegmentDA, InsertFile, LockFile, NewFileSegment, Read, SetFileSegmentDA, SwapIn, Unlock, Write], SystemDefs: FROM "systemdefs" USING [AllocatePages, FreePages], VMMapLog: FROM "vmmaplog" USING [Entry, PilotF~D]; DebugCache: PROGRAM IMPORTS AllocDefs, BFSDefs, DebugCacheDefs, DDptr: DebugData, DebugXMDefs, SystemDefs, SegmentDefs EXPORTS DebugCacheDefs, DebugMiscDefs, DebugUsefulDefs, DebugUtilityDefs SHARES DiskDefs, SegmentDefs = BEGIN -- move this to a utility somewhere Bound: PUBLIC PROCEDURE [p: UNSPECIFIED] RETURNS [BOOLEAN] = BEGIN RETURN[LOOPHOLE[p, ControlDefs.ControlLink].tag # unbound] END; LA: TYPE = DebuggerDefs.LA; PageSize: CARDINAL = AltoDefs.PageSize; LAMult: PROCEDURE [CARDINAL, CARDINAl] RETURNS [LA]