(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)

(* Last modified on Tue Dec 15 10:25:53 PST 1992 by jdd                      *)
(*      modified on Fri Mar 20 14:02:59 PST 1992 by muller                   *)

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.