DIRECTORYBasicTime,RandomCard,UnsafeStorageExtras;TestTransientPageAllocator: PROGRAMIMPORTS BasicTime, RandomCard, UnsafeStorageExtras= {bufferRec: TYPE = RECORD [address: LONG POINTER,size: CARDINAL _ 0];bufferArray: ARRAY [1..128] OF bufferRec;freeRover: CARDINAL _ 1;tpz: UNCOUNTED ZONE = UnsafeStorageExtras.GetTransientPageUZone[];maxListSize: INT = 7;  -- Maximum size kept in the cache Test: PROC = {startTime: BasicTime.GMT = BasicTime.Now[];[] _ RandomCard.Init[];WHILE BasicTime.Period[startTime, BasicTime.Now[]] < 30 DOnoAllocs: CARDINAL = RandomCard.Choose[min: 1, max: 5];noScan: CARDINAL = RandomCard.Choose[min: noAllocs, max: noAllocs*3];FOR free: CARDINAL IN [1..noScan] DOIF bufferArray[freeRover].size # 0 THEN {tpz.FREE[@bufferArray[freeRover].address];bufferArray[freeRover].size _ 0;};freeRover _ freeRover + 1;IF freeRover > 128 THEN freeRover _ 1;ENDLOOP;FOR alloc: CARDINAL IN [1..noAllocs] DOsize: CARDINAL = RandomCard.Choose[min: 1, max: 8] * 256;address: LONG POINTER ;probe: CARDINAL;DescriptorType: TYPE = RECORD [SEQUENCE COMPUTED CARDINAL OF WORD];address _ tpz.NEW[DescriptorType[size]];probe _ RandomCard.Choose[min: 1, max: 128];DOIF bufferArray[probe].size = 0 THEN {bufferArray[probe].size _ size;bufferArray[probe].address _ address;EXIT;};probe _ probe + 1;IF probe > 128 THEN probe _ 1;ENDLOOP;ENDLOOP;ENDLOOP;FOR free: CARDINAL IN [1..128] DOIF bufferArray[free].size # 0 THEN {tpz.FREE[@bufferArray[free].address];bufferArray[free].size _ 0;};ENDLOOP;};}.   À  TestTransientPageAllocator.mesa Copyright c 1985 by Xerox Corporation.  All rights reserved.Last Edited by: Bob Hagmann, February 19, 1985 5:08:55 pm PSTDeclarations Test ProceduresÊ˜  ˜ headšœ ™ Icodešœ
Ïmœ1™<—J™=J˜ šÏk	˜	J˜
Jšœ˜Jšœ˜—J˜ šœž˜#Jšžœžœ˜2Jšœ˜J˜ —™šœžœžœ˜Jšœ	žœžœ˜Jšœžœ˜J˜—J˜ Jšœžœ
žœ˜)Jšœžœ˜J˜ Jšœž	œžœ/˜BJ˜ JšœžœÏc"˜9J˜ —™šÏnœžœ˜Jšœžœ˜+Jšœ˜J˜ šžœ3ž˜:Jšœ
žœ%˜7Jšœžœ5˜Ešžœžœžœž˜$šžœ!žœ˜)Jšœ*˜*Jšœ ˜ J˜—Jšœ˜Jšžœžœ˜&Jšžœ˜—šžœžœžœž˜'Jšœžœ+˜9Jšœ	žœžœ˜Jšœžœ˜Jšœžœžœžœžœžœžœžœ˜CJšœžœ˜(Jšœ,˜,šž˜šžœžœ˜%Jšœ˜Jšœ%˜%Jšžœ˜J˜—Jšœ˜Jšœ˜Jšžœ˜—Jšžœ˜—Jšžœ˜—šžœžœžœ
ž˜!šžœžœ˜$Jšœ%˜%Jšœ˜J˜—Jšžœ˜—J˜J˜ ——J˜J˜ — …—      	v  