LayoutRamControl.cm
Louis Monier June 20, 1986 0:02:25 am PDT
Bertrand Serlet September 28, 1986 8:14:28 pm PDT
DA.cm
run -a EU2UtilsImpl
run -a EU2ArithImpl
run -a EU2LeafUtilsImpl
run -a EU2ControlAlpsImpl
← EU2Utils.useRamControlCheckpoint ← FALSE
← EU2Utils.useDPControlCheckpoint ← FALSE
Statistics on
← CedarProcess.SetPriority[background]
← &memory ← SafeStorage.NWordsAllocated[] - SafeStorage.NWordsReclaimed[]
← &ct ← EU2ControlAlps.CreateRamControl[]
← &ob ← PWCore.Layout[&ct]
← &newmemory ← SafeStorage.NWordsAllocated[] - SafeStorage.NWordsReclaimed[]
← CoreProperties.PutCellTypeProp[&ct, $MEMORY, NEW [INT ← &newmemory - &memory]]
← LayoutCheckpoint.Store[&ct, TRUE]
← &ct ← NIL
← &ob ← NIL
← SafeStorage.ReclaimCollectibleObjects[TRUE, TRUE]
← &memory ← SafeStorage.NWordsAllocated[] - SafeStorage.NWordsReclaimed[]
← &ct ← EU2ControlAlps.CreateDPControl[]
← &ob ← PWCore.Layout[&ct]
← &newmemory ← SafeStorage.NWordsAllocated[] - SafeStorage.NWordsReclaimed[]
← CoreProperties.PutCellTypeProp[&ct, $MEMORY, NEW [INT ← &newmemory - &memory]]
← LayoutCheckpoint.Store[&ct, TRUE]
Sleep 100
Rollbackand CD; LayoutControl