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