DIRECTORYPrincOps USING[SD],RTFlags USING[takingStatistics],RTSD USING[sMapStiStd],RTSymbolDefs USING[nullHandle],RTTypesBasicPrivate USING[STDesc, SymbolTableIndex, InitialSTIRangeSize, MapStiStd, LOOPHOLEDTMapStiStd, RSTDesc, RMapStiStd],SafeStorage USING[TypeIndex],SafeStoragePrivate USING[PrivateHeapZone];RTSymbolAccessImpl: MONITOR  -- protects MapStiStdIMPORTS RTTypesBasicPrivate, SafeStoragePrivateEXPORTS RTTypesBasicPrivate= BEGIN OPEN RTTypesBasicPrivate, SafeStorage;-- Statisticsstats: RECORD[nSTIFound: INT _ 0,nSTDCreatedWhileInitializing: INT _ 0,  -- from PrivateHeapZonenSTDCreatedAfterInitializing: INT _ 0];Bump: PROC[p: POINTER TO INT, delta: INT _ 1] =INLINE {IF RTFlags.takingStatistics THEN p^ _ p^+delta};lastSTIndex: TypeIndex _ 0;TooManyTypes: ERROR = CODE;BlessMapStiStd: PUBLIC ENTRY PROC = {ENABLE UNWIND => NULL;t: LOOPHOLEDTMapStiStd = LOOPHOLE[MapStiStd];LOOPHOLE[MapStiStd, LOOPHOLEDTMapStiStd] _ NIL;MapStiStd _ NEW[RMapStiStd[InitialSTIRangeSize]];LOOPHOLE[LONG[@PrincOps.SD[RTSD.sMapStiStd]], LONG POINTER TO LONG POINTER]^_ LOOPHOLE[MapStiStd, LONG POINTER];FOR i: SymbolTableIndex IN [1..lastSTIndex]DO MapStiStd[i] _ NEW[STDesc _ t[i]^] ENDLOOP;};FindSTI: PUBLIC ENTRY PROC[std: STDesc, initializing: BOOL]RETURNS[i: SymbolTableIndex] = {ENABLE UNWIND => NULL;FOR i IN [1..lastSTIndex]DOIF MapStiStd[i].symbolsStamp = std.symbolsStampAND (std.bcd = NIL OR std.sgi = MapStiStd[i].sgi) THEN {IF MapStiStd[i].sth = RTSymbolDefs.nullHandleTHEN {IF initializingTHEN LOOPHOLE[MapStiStd, LOOPHOLEDTMapStiStd][i].sth _ std.sthELSE MapStiStd[i].sth _ std.sth;};Bump[@stats.nSTIFound];RETURN[i];};ENDLOOP;IF lastSTIndex = InitialSTIRangeSize - 1 THEN ERROR TooManyTypes;i _ lastSTIndex _ lastSTIndex + 1;IF initializingTHEN {Bump[@stats.nSTDCreatedWhileInitializing];LOOPHOLE[MapStiStd, LOOPHOLEDTMapStiStd][i]           _ SafeStoragePrivate.PrivateHeapZone.NEW[STDesc _ std];}ELSE {Bump[@stats.nSTDCreatedAfterInitializing];MapStiStd[i] _ NEW[STDesc _ std];};};END.   ▓  RTSymbolAccessImpl.mesaBEWARE of assumptions below about RC activity.  This module is used before the sun comes up.Last Modified By Paul Rovner On June 27, 1983 2:29 pm Э╩V  Ш JЪЬЩJЪЬ\Щ\ЪЬ5Щ5JШ Ъ╧k	Ш	JЪЬ	ЭЬЭЬШJЪЬЭЬШ JЪЭЬЭЬШJЪЬЭЬШJЪЬЭЬeШ~JЪЬЭЬШJЪЬЭЬШ*ЧJШ ЪЬЭЬ╧cШ2JЪЭЬ(Ш/JЪЭЬШЧJЪЬЭЬЭЬ"Ш.Ш IprocЪЮШЪЬЭЬШKЪЬЭЬШKЪЬЭЬЮШ?KЪЬЭЬШ%KЪЬШKШ ЧKЪ╧nЬЭЬЭЬЭЬЭЬ	ЭЬШ/KЪЭЬЭЬЭЬШ8KШ JЪЬШJЪЬЭЬЭЬШJШ Ъ	Я╨bn	ЬЭЬЭЬЭЬШ%JЪЭЬЭЬЭЬШJЪЬЭЬШ-JШ JЪЭЬ#ЭЬШ/JЪЬЭЬ"Ш1JШ ЪЭЬЭЬ
ЭЬЭЬЭЬЭЬЭЬЭЬЭЬШLJЪЬЭЬЭЬЭЬШ$ЧJШ ЪЭЬЭЬШ+JЪЭЬЭЬЭЬШ.ЧJЪЬШJШ ЧЪ
ЯЬЭЬЭЬЭЬЭЬШ;JЪЭЬШ JЪЭЬЭЬЭЬШЪЭЬЭЬШЪЭШЪЭЬ-Ш/ЪЭЬЭЬЭЬЭЬШ8ЪЭЬ+Ш-ЪЭЬШЪЭЬШJЪЭЬЭЬ1Ш>JЪЭЬШ ЧJЪЬШЧЧJЪЬШJЪЭЬШ
JЪЬШЧЧЧJЪЭЬШЧJЪЭЬ'ЭЬЭЬШAJЪЬ"Ш"ЪЭЬШЪЭЬШJЪЬ*Ш*JЪЭЬ#Ш+JЪЬ0ЭЬШBJШЧЪЭЬШJЪЬ*Ш*JЪЬЭЬШ!JШЧЧJЪЬШЧЧJШ JЪЭЬШЧJШ Ч ЕЧ      "  