DIRECTORY Basics: TYPE USING [LongNumber], BasicTime: TYPE USING [GMT, Now, nullGMT], BcdDefs: TYPE USING [VersionStamp], OSMiscOps: TYPE USING [Address], PrincOpsUtils: TYPE USING [BITXOR], ProcessorFace: TYPE USING [processorID], VM: TYPE USING [AddressForPageNumber, Allocate, Free, Interval, PageNumber, PageNumberForAddress]; OSMiscOpsImpl: PROGRAM IMPORTS BasicTime, PrincOpsUtils, ProcessorFace, VM EXPORTS OSMiscOps SHARES ProcessorFace = { intervals: LIST OF VM.Interval _ NIL; Pages: PUBLIC PROC [n: CARDINAL] RETURNS [base: OSMiscOps.Address] = { IF n = 0 THEN base _ NIL ELSE { interval: VM.Interval = VM.Allocate[count: n]; intervals _ CONS[interval, intervals]; base _ VM.AddressForPageNumber[interval.page]}; RETURN}; FreePages: PUBLIC PROC [base: OSMiscOps.Address] = { page: VM.PageNumber; last: LIST OF VM.Interval _ NIL; IF base = NIL THEN RETURN; page _ VM.PageNumberForAddress[base]; FOR list: LIST OF VM.Interval _ intervals, list.rest UNTIL list = NIL DO IF list.first.page # page THEN {last _ list; LOOP}; VM.Free[list.first]; IF last = NIL THEN intervals _ list.rest ELSE last.rest _ list.rest; EXIT; ENDLOOP; }; GetNetAndHost: PROC RETURNS [net, host: CARDINAL] = { sum: WORD = PrincOpsUtils.BITXOR[ ProcessorFace.processorID.a, PrincOpsUtils.BITXOR[ProcessorFace.processorID.b, ProcessorFace.processorID.c]]; net _ sum/256; host _ sum MOD 256}; lastTime: BasicTime.GMT _ BasicTime.nullGMT; GenerateUniqueId: PUBLIC PROC RETURNS [BcdDefs.VersionStamp] = { net, host: CARDINAL; time: BasicTime.GMT; [net, host] _ GetNetAndHost[]; DO time _ BasicTime.Now[]; IF lastTime = BasicTime.nullGMT OR time # lastTime THEN EXIT; ENDLOOP; lastTime _ time; RETURN [[net: net, host: host, time: LOOPHOLE[time, LONG CARDINAL]]]}; StampSize: NAT = 3; Stamp: PUBLIC TYPE = RECORD [word: ARRAY [0..StampSize) OF CARDINAL]; AddStamps: PROC [s1, s2: Stamp] RETURNS [sum: Stamp] = { carry: [0..1] _ 0; i: NAT; FOR i DECREASING IN [0..StampSize) DO t: Basics.LongNumber _ [lc[LONG[s1.word[i]] + LONG[s2.word[i]] + LONG[carry]]]; sum.word[i] _ t.lowbits; carry _ t.highbits; ENDLOOP; FOR i DECREASING IN [0..StampSize) WHILE carry # 0 DO t: Basics.LongNumber _ [lc[LONG[sum.word[i]] + LONG[carry]]]; sum.word[i] _ t.lowbits; carry _ t.highbits; ENDLOOP}; RotateStamp: PROC [s: Stamp] RETURNS [Stamp] = INLINE {RETURN [AddStamps[s, s]]}; MergeStamps: PUBLIC PROC [sum, item: Stamp] RETURNS [Stamp] = { RETURN [AddStamps[RotateStamp[sum], item]]}; }. file OSMiscOpsImpl.Mesa last modified by Satterthwaite, December 10, 1982 10:53 am Last Edited by: Maxwell, August 11, 1983 8:23 am Last Edited by: Paul Rovner, November 19, 1983 5:03 pm bulk free storage management version stamp management new version stamp operations ʘJšœ™Jšœ:™:Jšœ0™0Jšœ6™6J™šÏk ˜ Jšœœœ˜ Jšœ œœœ˜*Jšœ œœ˜#Jšœ œœ ˜ Jšœœœœ˜#Jšœœœ˜(JšœœœT˜bJ˜—šœ˜Jšœ*˜3Jšœ ˜Jšœ˜J˜J˜Jšœ™J™Jš œ œœœ œ˜%J˜š Ïnœœœœœ˜FJšœœ˜šœ˜Jšœ œ œ˜.Jšœ œ˜&Jšœœ&˜/—Jšœ˜J˜—šž œœœ˜4Jšœœ ˜Jš œœœœ œ˜ Jšœœœœ˜Jšœœ˜%š œœœœ!œœ˜HJšœœœ˜3Jšœ˜Jšœœœœ˜DJšœ˜Jš˜—šœ˜J˜J˜——Jšœ™˜šž œœœ œ˜6šœœœ˜!J˜Jšœœ<˜P—Jšœœ˜$J˜J˜—Jšœœ˜,J˜šžœœœœ˜@Jšœ œ˜Jšœœ˜J˜š˜J˜Jšœœœœ˜=Jšœ˜—J˜Jšœœœœ˜FJ˜——Jšœ™˜Jšœ œ˜Jš œœœœœœœ˜EJ˜šž œœœ˜8J˜Jšœœ˜šœ œœ˜%Jšœœœœ ˜OJ˜-Jšœ˜—š œ œœœ ˜5Jšœœœ ˜=J˜-Jšœ˜ J˜——Jš ž œœ œ œœ˜QJ˜šž œœœœ ˜?Jšœ&˜,J˜—J˜———…— ¬Ã