DIRECTORYAMBridge USING[GFHFromTV, IsRemote, RemoteGFHFromTV, GetWorld, TVForGFHReferent, TVForRemoteGFHReferent, RemoteGlobalFrameHandle, nilRemoteGlobalFrameHandle],AMModel USING[SectionObj, SectionClass, Context],AMModelLocation USING[CodeLocation],AMModelPrivate USING[SectionRec, EPI, FGIToEPI, FGIToFirstPC, EPIToFirstPC, EPIToLastPC, PCOffset, GetModuleSTB],AMTypes USING[Error],BcdDefs USING[VersionStamp, MTIndex, FTSelf, BcdBase],LoadState USING[local, ModuleInfo, ConfigInfo, Acquire, Release, EnumerateAllModules, GlobalFrameToModule, Handle, ConfigID, ModuleIndex],PrincOps USING[FrameCodeBase, BytePC, GlobalFrameHandle],RTSymbolDefs USING[SymbolTableBase],RTSymbols USING[ReleaseSTB],RTTypesPrivate USING[GetPc],RTTypesRemotePrivate USING[GetRemoteGFHeader, GetRemotePc, AcquireRemoteBCD, ReleaseRemoteBCD],Table USING[Base],WorldVM USING[World, NoWorld, LocalWorld, Lock, Unlock, Loadstate, CurrentIncarnation, ShortAddress];AMModelLocationImpl: PROGRAMIMPORTS AMBridge, AMModel, AMModelPrivate, AMTypes, LoadState, RTSymbols, RTTypesPrivate, RTTypesRemotePrivate, WorldVMEXPORTS AMModel, AMModelLocation, AMModelPrivate= { OPEN AMBridge, AMModel, AMModelLocation, AMModelPrivate, AMTypes, RTSymbolDefs, RTSymbols, RTTypesPrivate, RTTypesRemotePrivate, PrincOps, WorldVM;Section: TYPE = REF SectionObj;SectionObj: PUBLIC TYPE = SectionRec;EntryLocations: PUBLIC PROC[section: Section]RETURNS[world: World, list: LIST OF CodeLocation _ NIL] ={[world: world, list: list] _ GetLocations[section]};ExitLocations: PUBLIC PROC[section: Section]RETURNS[world: World, list: LIST OF CodeLocation _ NIL] ={[world: world, list: list] _ GetLocations[section: section, entry: FALSE]};GetLocations: PROC[section: Section, entry: BOOL _ TRUE]RETURNS[world: World _ NoWorld[], list: LIST OF CodeLocation _ NIL] = {epi: EPI;firstPC: PCOffset;progContexts: LIST OF Context _ NIL;context: Context _ NIL;version: BcdDefs.VersionStamp;SELECT SectionClass[section] FROMstatement => {statementSect: REF statement SectionObj = NARROW[section];context _ statementSect.prog.someGFHTV;IF context = NIL THEN RETURN;  -- section is not loadedversion _ statementSect.prog.versionStamp;world _ GetWorld[context];IF world = LocalWorld[]THEN {bcd: BcdDefs.BcdBase = GetLocalBCD[GFHFromTV[context]];stb: SymbolTableBase _ GetModuleSTB[bcd, statementSect.prog.versionStamp];{ ENABLE UNWIND => ReleaseSTB[stb];epi _ FGIToEPI[stb, statementSect.fgtIndex];firstPC _ FGIToFirstPC[stb, statementSect.fgtIndex];};  -- end ENABLE UNWINDReleaseSTB[stb];} -- end IF world = LocalWorld[]ELSE {  -- remote world casebcd: BcdDefs.BcdBase = GetRemoteBCD[RemoteGFHFromTV[context]];stb: SymbolTableBase _ GetModuleSTB[bcd, statementSect.prog.versionStamp! UNWIND => ReleaseRemoteBCD[bcd]];ReleaseRemoteBCD[bcd];{ ENABLE UNWIND => ReleaseSTB[stb];epi _ FGIToEPI[stb, statementSect.fgtIndex];firstPC _ FGIToFirstPC[stb, statementSect.fgtIndex];};  -- end ENABLE UNWINDReleaseSTB[stb];};};proc => {procSect: REF proc SectionObj = NARROW[section];context _ procSect.prog.someGFHTV;IF context = NIL THEN RETURN;  -- section is not loadedversion _ procSect.prog.versionStamp;epi _ procSect.entryPointIndex;world _ GetWorld[context];IF world = LocalWorld[]THEN {bcd: BcdDefs.BcdBase = GetLocalBCD[GFHFromTV[context]];stb: SymbolTableBase _ GetModuleSTB[bcd, procSect.prog.versionStamp];{ ENABLE UNWIND => ReleaseSTB[stb];IF entry THEN firstPC _ EPIToFirstPC[stb, epi, TRUE]ELSE firstPC _ EPIToLastPC[stb, epi];};  -- end ENABLE UNWINDReleaseSTB[stb];}ELSE {  -- remote world casebcd: BcdDefs.BcdBase = GetRemoteBCD[RemoteGFHFromTV[context]];stb: SymbolTableBase _ GetModuleSTB[bcd, procSect.prog.versionStamp! UNWIND => ReleaseRemoteBCD[bcd]];ReleaseRemoteBCD[bcd];{ ENABLE UNWIND => ReleaseSTB[stb];IF entry THEN firstPC _ EPIToFirstPC[stb, epi, TRUE]ELSE firstPC _ EPIToLastPC[stb, epi];};  -- end ENABLE UNWINDReleaseSTB[stb];};};ENDCASE =>ERROR Error[reason: typeFault,msg: "EntryLocation applied to a section neither for a statement nor a proc"];progContexts _ ProgContextsForVersion[world: world, version: version];IF progContexts = NIL THEN ERROR;FOR contextList: LIST OF Context _ progContexts, contextList.rest UNTIL contextList = NILDO  codeBase: PrincOps.FrameCodeBase;pc: PrincOps.BytePC;context: Context = contextList.first;found: BOOL _ FALSE;IF IsRemote[context]THEN {codeBase _ GetRemoteGFHeader[RemoteGFHFromTV[context]].code;pc _ [firstPC + GetRemotePc[RemoteGFHFromTV[context], epi]];}ELSE {codeBase _ GFHFromTV[context].code;pc _ [firstPC + GetPc[GFHFromTV[context], epi]];};FOR cll: LIST OF CodeLocation _ list, cll.rest UNTIL cll = NILDO IF cll.first.codeBase = codeBase THEN {found _ TRUE; EXIT};ENDLOOP;IF NOT found THEN list _ CONS[[codeBase: codeBase, pc: pc], list];ENDLOOP;};  -- end GetLocationsProgContextsForVersion: PROC[world: World, version: BcdDefs.VersionStamp]RETURNS[contexts: LIST OF Context _ NIL] = {IF world = LocalWorld[]THEN {forEachModule: PROC[ci: LoadState.ConfigID, mi: LoadState.ModuleIndex]RETURNS[stop: BOOL _ FALSE] = {bcd: BcdDefs.BcdBase = LoadState.local.ConfigInfo[ci].bcd;ftb: Table.Base _ LOOPHOLE[bcd + bcd.ftOffset];mtb: Table.Base _ LOOPHOLE[bcd + bcd.mtOffset];gfh: GlobalFrameHandle;mti: BcdDefs.MTIndex;[gfh: gfh, mti: mti] _ LoadState.local.ModuleInfo[ci, mi];IF NOT loadStateHeld THEN ERROR;IF (IF mtb[mti].file = BcdDefs.FTSelf   THEN bcd.version   ELSE ftb[mtb[mti].file].version) = versionTHEN contexts _ CONS[TVForGFHReferent[gfh], contexts];};loadStateHeld: BOOL _ FALSE;LoadState.local.Acquire[];loadStateHeld _ TRUE;[] _ LoadState.local.EnumerateAllModules[newestFirst, forEachModule! ANY => {LoadState.local.Release[]; loadStateHeld _ FALSE}];IF loadStateHeld THEN LoadState.local.Release[];}  -- end local case of ProgContextsForVersionELSE { -- remote world case of ProgContextsForVersionLock[world];{ ENABLE UNWIND => Unlock[world];forEachModule: PROC[ci: LoadState.ConfigID, mi: LoadState.ModuleIndex]RETURNS[stop: BOOL _ FALSE] = {bcd: BcdDefs.BcdBase= AcquireRemoteBCD[world, WorldVM.CurrentIncarnation[world], newState.ConfigInfo[ci].bcd];{ ENABLE UNWIND => ReleaseRemoteBCD[bcd];ftb: Table.Base _ LOOPHOLE[bcd + bcd.ftOffset];mtb: Table.Base _ LOOPHOLE[bcd + bcd.mtOffset];gfh: GlobalFrameHandle;rgfh: RemoteGlobalFrameHandle _ nilRemoteGlobalFrameHandle;mti: BcdDefs.MTIndex;[gfh: gfh, mti: mti] _ newState.ModuleInfo[ci, mi];rgfh_ [world, WorldVM.CurrentIncarnation[world], LOOPHOLE[gfh, WorldVM.ShortAddress]];IF NOT loadStateHeld THEN ERROR;IF (IF mtb[mti].file = BcdDefs.FTSelf   THEN bcd.version   ELSE ftb[mtb[mti].file].version) = versionTHEN contexts _ CONS[TVForRemoteGFHReferent[rgfh], contexts];};  -- end ENABLE UNWIND => ReleaseRemoteBCD[bcd];ReleaseRemoteBCD[bcd];};  -- end forEachModuleloadStateHeld: BOOL _ FALSE;newState: LoadState.Handle = WorldVM.Loadstate[world];newState.Acquire[];loadStateHeld _ TRUE;[] _ newState.EnumerateAllModules[newestFirst, forEachModule! ANY => {newState.Release[]; loadStateHeld _ FALSE}];IF loadStateHeld THEN newState.Release[];};  -- end ENABLE UNWIND => Unlock[world];Unlock[world];};  -- end remote world case of ProgContextsForVersion};  -- end ProgContextsForVersionGetRemoteBCD: PUBLIC PROC[rgfh: RemoteGlobalFrameHandle]RETURNS[bcd: BcdDefs.BcdBase _ NIL] = {h: LoadState.Handle;WorldVM.Lock[rgfh.world];h _ WorldVM.Loadstate[rgfh.world ! UNWIND => WorldVM.Unlock[rgfh.world]];h.Acquire[];{ ENABLE UNWIND => {h.Release[]; WorldVM.Unlock[rgfh.world]};gfh: GlobalFrameHandle = LOOPHOLE[rgfh.gfh];bcd _ AcquireRemoteBCD[rgfh.world,WorldVM.CurrentIncarnation[rgfh.world],h.ConfigInfo[h.GlobalFrameToModule[gfh].config].bcd];};  -- end ENABLE UNWINDh.Release[];WorldVM.Unlock[rgfh.world];};GetLocalBCD: PUBLIC PROC[gfh: GlobalFrameHandle] RETURNS[bcd: BcdDefs.BcdBase] = {LoadState.local.Acquire[];{ ENABLE UNWIND => LoadState.local.Release[];bcd _ LoadState.local.ConfigInfo[LoadState.local.GlobalFrameToModule[gfh].config].bcd;};LoadState.local.Release[];};}.  ,  AMModelLocationImpl.mesaLast Modified On August 10, 1983 12:44 pm By Paul RovnerTYPEseither binder output bundle for a config, or compiler output bundle for a prog module, DEFs module, proc, or statementwas: progContexts _ SourceSection[SectionSource[section], RootContext[world]].contexts; could be (restrict to one gf): progContexts _ CONS[context, NIL]; want to find all gf's for the indicated sectionHere with epi, firstPC and all progContext loadings of the section in the specified worldThis guy uses RTTypesRemotePrivate.AcquireRemoteBCD.BEWARE. Don't forget to release it via RTTypesRemotePrivate.ReleaseRemoteBCDGetRemoteBCD: PUBLIC PROC[world: World, rgfi: PrincOps.GFTIndex]RETURNS[bcd: BcdDefs.BcdBase _ NIL] = {Lock[world];{ ENABLE UNWIND => Unlock[world];oldState: PilotLoadStateFormat.LoadState;newState: REF PilotLoadStateFormat.LoadStateObject;loadstateHeld: BOOL _ FALSE;newState _ Loadstate[world];[] _ PilotLoadStateOps.InputLoadState[];loadstateHeld _ TRUE;oldState _ PilotLoadStatePrivate.InstallLoadState[LOOPHOLE[newState]];no error raisedbcd _ AcquireRemoteBCD[world,PilotLoadStateOps.AcquireBcd[PilotLoadStateOps.MapRealToConfig[rgfi].config]! ANY => {[] _ PilotLoadStatePrivate.InstallLoadState[oldState];PilotLoadStateOps.ReleaseLoadState[];loadstateHeld _ FALSE;}];IF loadstateHeld THEN {[] _ PilotLoadStatePrivate.InstallLoadState[oldState];PilotLoadStateOps.ReleaseLoadState[];loadstateHeld _ FALSE;};IF bcd = NIL THEN ERROR;};   end ENABLE UNWIND => Unlock[world];Unlock[world];};   end GetRemoteBCD   ‌ت
X  –"cedar" styleک Iprocڑœ™Kڑœ8™8Kک ڑدk	ک	ڑœ	‌œکKڑœچکچKڑœک—Kڑœ‌œ$ک1Kڑœ‌œک$ڑœ‌œکKڑœ‌œKکZKڑœک—Kڑœ‌œکKڑœ‌œ)ک6ڑœ
‌œکKڑœxکxKڑœک—Kڑœ	‌œ+ک9Kڑœ‌œک$Kڑœ
‌œکKڑœ‌œکڑœ‌œکKڑœBکBKڑœک—Kڑœ‌œکڑœ‌œکKڑœUکUKڑœک——Kک ڑœ‌کKڑ‌œpکwKڑ‌œ)ک0—Kک Kڑœ‌œڈک—™ ڑœ™Kڑœv™v—Kڑœ	‌œ‌œکKڑœ‌œ‌œک%Kک ڑدnœ‌œ‌œک-Kڑ‌œ‌œ‌œ‌œک9Kڑœ5ک5—Kک ڑ‍œ‌œ‌œک,Kڑ‌œ‌œ‌œ‌œک9KڑœD‌œکL—Kک ڑ‍œ‌œ‌œ‌œک8Kڑ‌œ!‌œ‌œ‌œکGKڑœ‌œک	KڑœکKڑœ‌œ‌œ‌œک$Kڑœ‌œکKڑœکڑ‌œ‌ک!ڑœکKڑœ‌œ‌œ
ک:Kڑœ'ک'Kڑ	‌œ‌œ‌œ‌œدcک7Kڑœ*ک*KڑœکKڑ‌œکڑ‌œکKڑœ7ک7KڑœJکJڑœ‌œ‌œک#Kڑœ,ک,Kڑœ4ک4—KڑœںکKڑœکKڑœںک —ڑ‌œںکKڑœ>ک>ڑœHکHKڑœ‌œک#—Kڑœکڑœ‌œ‌œک#Kڑœ,ک,Kڑœ4ک4—KڑœںکKڑœکKڑœک—Kڑœک—ڑœ	ک	Kڑœ
‌œ‌œ
ک0Kڑœ"ک"Kڑ	‌œ‌œ‌œ‌œںک7Kڑœ%ک%KڑœکKڑœکڑ‌œکڑ‌œکKڑœ7ک7KڑœEکEڑœ‌œ‌œک#Kڑ‌œ‌œ"‌œک4Kڑ‌œ!ک%—KڑœںکKڑœکKڑœک—ڑ‌œںکKڑœ>ک>ڑœCکCKڑœ‌œک#—Kڑœکڑœ‌œ‌œک#ڑ‌œ‌œ"‌œک4Kڑ‌œ!ک%——KڑœںکKڑœکKڑœک——Kڑœک—ڑ‌œک
ڑ‌œکKڑœکKڑœNکN———Kک ڑœFکFKڑœة™ة—Kڑ‌œ‌œ‌œ‌œک!™ KڑœY™Y—Kڑ	‌œ‌œ‌œ*‌œ‌کYڑ‌œکKڑœ!ک!KڑœکKڑœ%ک%Kڑœ‌œ‌œکKڑ‌œکڑ‌œکKڑœ<ک<Kڑœ<ک<Kڑœک—ڑ‌œکKڑœ#ک#Kڑœ0ک0Kڑœک—ڑ	‌œ‌œ‌œ‌œ‌ک>Kڑ
‌œ‌œ‌œ
‌œ‌œک>Kڑ‌œک—Kڑ‌œ‌œ‌œ‌œ%کBKڑ‌œک—Kڑœںک—Kک ڑ‍œ‌œ-کIKڑ‌œ‌œ‌œ‌œک,Kڑ‌œکڑ‌œکڑœ‌œ3کFKڑ‌œ‌œ‌œکKڑœ:ک:Kڑœ‌œک/Kڑœ‌œک/KڑœکKڑœکKڑœ:ک:Kڑ‌œ‌œ‌œ‌œک ڑ‌œ‌œک%Kڑ‌œکKڑ‌œ&ک-—Kڑ‌œ‌œ"ک6Kڑœک—Kڑœ‌œ‌œکKڑœکKڑœ‌œکڑœCکCKڑœ‌œ0‌œک=—Kڑ‌œ‌œک0Kڑœں+ک.—ڑ‌œں.ک5Kڑœکڑœ‌œ‌œک!ڑœ‌œ3کFKڑ‌œ‌œ‌œکڑœکڑœکKڑœHکH——ڑœ‌œ‌œک)Kڑœ‌œک/Kڑœ‌œک/KڑœکKڑœ;ک;KڑœکKڑœ3ک3ڑœکڑœ	ک	Kڑœ#ک#Kڑœ‌œک&——Kڑ‌œ‌œ‌œ‌œک ڑ‌œ‌œک%Kڑ‌œکKڑ‌œ&ک-—Kڑ‌œ‌œ)ک=—Kڑœں.ک2KڑœکKڑœںک—Kڑœ‌œ‌œکKڑœ6ک6KڑœکKڑœ‌œکڑœ<ک<Kڑœ‌œ)‌œک6—Kڑ‌œ‌œک)—Kڑœں&ک*KڑœکKڑœں2ک6—Kڑœںک!—Kک ڑ‍œ‌œ‌œک8Kڑ‌œ‌œک'KڑœکKڑœکKڑœ#‌œ کIKڑœکڑœ‌œ‌œ.ک=Kڑœ‌œک,ڑœکKڑœکKڑœ'ک'Kڑœ3ک3Kڑœک——KڑœںکKڑœکKڑœکKڑœکKک —ڑ‍œ‌œ‌œ‌œکRKڑœکڑœ‌œ‌œک-KڑœVکV—KڑœکKڑœکKڑœک—K™ Kڑœ4™4KڑœL™Lڑœ@™@Kڑœ'™'Kڑœ™ڑœ!™!Kڑœ)™)Kڑœ3™3Kڑœ™Kڑœ™Kڑœ(™(Kڑœ™KڑœF™FKڑœ™ڑœ™Kڑœ™KڑœL™Lڑœ
™
Kڑœ6™6Kڑœ%™%Kڑœ™Kڑœ™——ڑœ™Kڑœ6™6Kڑœ%™%Kڑœ™Kڑœ™—Kڑœ™—Kڑœ(™(Kڑœ™Kڑœ™——Kک KڑœکKک Jک Jک — …—    ü  0€  