m3core/src/runtime/common/RTHeapEvent.i3


      Copyright (C) 1992, Digital Equipment Corporation        

| 
All rights reserved. | See the file COPYRIGHT for a full description.

| Last modified on Sun Feb 21 14:16:05 PST 1993 by jdd | modified on Fri Mar 20 14:02:59 PST 1992 by muller

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,
                  clean := FALSE, locked := FALSE };
      END;

END RTHeapEvent.