DIRECTORYDebuggerFormat USING[ ExternalStateVector, Run, SwapInfo, VersionID, VMRunTable ],PrincOps USING[ PDA ],WorldVM USING[Address, CopyRead, World],WVMPrivate;WVMBackingMap: MONITORIMPORTS WorldVM, WVMPrivateEXPORTS WVMPrivate, WorldVM =BEGINVMBackingMapObject: PUBLIC TYPE = RECORD[found: CARDINAL _ 0, -- maplog entries read in so far --entries: REF DebuggerFormat.VMRunTable];VMBackingMap: TYPE = REF VMBackingMapObject;CreateVMBackingMap: PUBLIC PROC[world: WorldVM.World] RETURNS[ VMBackingMap ] =BEGINRETURN[NEW[VMBackingMapObject _ [0,NIL]]]END;ReadVMBackingMap: PUBLIC PROC[world: WorldVM.World, log: VMBackingMap]RETURNS[basic, real: WorldVM.Address] =BEGINswapInfo: DebuggerFormat.SwapInfo;swapInfoAddr: WorldVM.Address = LOOPHOLE[@PrincOps.PDA.available];esv: DebuggerFormat.ExternalStateVector;esvAddr: WorldVM.Address;WorldVM.CopyRead[world, swapInfoAddr, SIZE[DebuggerFormat.SwapInfo],@swapInfo];esvAddr _ LOOPHOLE[swapInfo.externalStateVector];WorldVM.CopyRead[world, esvAddr, SIZE[DebuggerFormat.ExternalStateVector],@esv];basic _ WVMPrivate.PageAddress[esv.loadstatepage];real _ LOOPHOLE[esv.loadState];SELECT esv.versionident FROMDebuggerFormat.VersionID =>BEGINIF esv.vmRunTable # NILTHEN BEGINtemp: ARRAY [0..SIZE[DebuggerFormat.VMRunTable[0]]) OF WORD;cheat: POINTER TO DebuggerFormat.VMRunTable = LOOPHOLE[@temp];WorldVM.CopyRead[world,LOOPHOLE[esv.vmRunTable, WorldVM.Address],SIZE[DebuggerFormat.VMRunTable[0]],@temp ];log.entries _ NEW[DebuggerFormat.VMRunTable[cheat.length]];WorldVM.CopyRead[world,LOOPHOLE[esv.vmRunTable, WorldVM.Address],SIZE[DebuggerFormat.VMRunTable[cheat.length]],LOOPHOLE[log.entries, LONG POINTER] ];log.found _ log.entries.nRuns;END;END;ENDCASE => NULL; -- treat as if there was no maplogEND;AddressFault: PUBLIC ERROR[mempage: WVMPrivate.PageNumber] = CODE;lastEntryIndex: CARDINAL _ 0; -- hint for log entry to try first --GetVMBackingMapEntry: PUBLIC ENTRY PROC[log: VMBackingMap, mempage: WVMPrivate.PageNumber]RETURNS[ WVMPrivate.DiskAddress ] =BEGINENABLE UNWIND => NULL;entry: LONG POINTER TO DebuggerFormat.Run _IF lastEntryIndex IN [0..log.found) -- lastEntryIndex may be for another log!THEN @log.entries[lastEntryIndex]ELSE NIL;IF entry = NILOR mempage NOT IN [entry.page..entry.page+entry.count)THEN -- sigh! Need to search for it. --BEGINFOR i: CARDINAL IN [0..log.found)DO entry _ @log.entries[lastEntryIndex_i];IF mempage IN [entry.page..entry.page+entry.count)THEN EXIT;REPEAT FINISHED => ERROR AddressFault[mempage]ENDLOOP;END;RETURN[[entry.deviceType, entry.deviceOrdinal, entry.diskPage, mempage-entry.page, entry.labelCheck]];END;END.   r  Cedar Remote Debugging: Map of VM backing fileWVMBackingMap.mesaAndrew Birrell  December 2, 1983 1:16 pm Э╩Т  Ш JШ JЪЬ.Щ.JЪЬЩJЪЬ(Щ(JШ Ъ╧k	Ш	JЪЬЭЬ>ШRJЪЬ	ЭЬЭЬШJЪЬЭЬШ(JШJШ ЧJЪЬЭШJЪЭЬШJЪЭЬШJШ JЪЭШJШ ЪЬЭЬЭЬЭЬШ)JЪЬЭЬ╧c#Ш8JЪЬ	ЭЬШ(JШ ЧJЪЬЭЬЭЬШ,JШ Ъ╧nЬЭЬЭЬЭЬШOJЪЭШJЪЭЬЭЬЭЬШ)JЪЭЬШJШ ЧЪЯЬЭЬЭЬ)ШFJЪЭЬ Ш'JЪЭШJШ"JЪЬ ЭЬЭЬШBJШ(JШЪЬ&ЭЬШDJШЧJЪЬ
ЭЬШ1ЪЬ!ЭЬ%ШJJШЧJШ2JЪЬЭЬШЪЭЬЭШШJЪЭШJЪЭЬЭШЪЭЬЭШ
JЪ	ЬЭЬЭЬ ЭЬЭЬШ<JЪЬЭЬЭЬЭЬШ>ШJЪЭЬ"Ш*JЪЭЬШ#JШЧJЪЬЭЬ*Ш;ШJЪЭЬ"Ш*JЪЭЬ*Ш.JЪЭЬЭЬЭЬШ&ЧJШJЪЭЬШЧJЪЭЬШЧЧJЪЭЬЭЬЮ"Ш3JЪЭЬШJШ ЧJЪЬЭЬЭЬ#ЭЬШBJШ JЪЬЭЬЮ%ШCJШ ЪЯЬЭЬЭЬЭЬ3ШZJЪЭЬШ#JЪЭШJЪЭЬЭЬЭЬШЪЬЭЬЭЬЭЬШ+JЪЭЬЭЬЮ)ШMJЪЭЬШ!JЪЭЬЭЬШ	ЧJЪЭЬ	ЭШJЪЭЬ	ЭЬЭЬ%Ш6ЪЭЬЮ"Ш'JЪЭШJЪЭЬЭЬЭЬШ!ЪЭЬ(Ш*JЪЭЬ	ЭЬ%Ш2JЪЭЬЭЬШ
ЧJЪЭЬЭЬЭЬШ.JЪЭЬШJЪЭЬШЧJЪЭЬ`ШfJЪЭЬШJШ ЧJЪЭЬШJШ JШ Ч ЕЧ    
О  Т  