UNSAFE MODULE M3CheckGC;

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

IMPORT M3ASTCacheTool;
IMPORT RTHeap;

PROCEDURE CollectNow() RAISES {}=
  BEGIN
    RTHeap.StartGC();
  END CollectNow;

PROCEDURE Notify(b: BOOLEAN) RAISES {}=
  BEGIN
    M3ASTCacheTool.Notify(b);
  END Notify;

BEGIN
END M3CheckGC.