Copyright (C) 1994, Digital Equipment Corp.
RTHeapEvent
is a private interface.
UNSAFE INTERFACE RTHeapEvent;
IMPORT RTHeapRep;
TYPE
Kind = {
(* program -> tool *)
Begin, Flip, Roots, End, Change, Grow, Off, Bye,
(* tool -> program *)
CollectNow, GCOff, GCOn};
T = RECORD
kind : Kind;
first: RTHeapRep.Page := RTHeapRep.Nil;
nb : CARDINAL := 1;
desc := RTHeapRep.Desc{
space := RTHeapRep.Space.Unallocated, generation :=
RTHeapRep.Generation.Younger, pure := FALSE, note :=
RTHeapRep.Note.Allocated, gray := FALSE, protected :=
FALSE, continued := FALSE};
END;
END RTHeapEvent.