|
@@ -1407,6 +1407,23 @@ BEGIN
|
|
|
Machine.Release(Machine.Heaps)
|
|
|
END GetHeapInfo;
|
|
|
|
|
|
+(* redundant, for compatibility *)
|
|
|
+PROCEDURE HeapSize*(): SIZE;
|
|
|
+VAR total, free, largest: SIZE;
|
|
|
+BEGIN
|
|
|
+ GetHeapInfo(total, free, largest);
|
|
|
+ RETURN total;
|
|
|
+END HeapSize;
|
|
|
+
|
|
|
+(* redundant, for compatibility *)
|
|
|
+PROCEDURE Used*(): SIZE;
|
|
|
+VAR total, free, largest: SIZE;
|
|
|
+BEGIN
|
|
|
+ GetHeapInfo(total, free, largest);
|
|
|
+ RETURN total-free;
|
|
|
+END Used;
|
|
|
+
|
|
|
+
|
|
|
(* NilGC - Default garbage collector. *)
|
|
|
PROCEDURE NilGC;
|
|
|
BEGIN
|