Ver código fonte

Fixed forgotten commit

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8221 8c9fc860-2736-0410-a75d-ab315db34111
negelef 7 anos atrás
pai
commit
e7b468c25b
1 arquivos alterados com 0 adições e 16 exclusões
  1. 0 16
      source/Heaps.Mod

+ 0 - 16
source/Heaps.Mod

@@ -1676,22 +1676,6 @@ 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;
-
 PROCEDURE DecRefCount(VAR count: WORD): BOOLEAN;
 VAR value: WORD;
 BEGIN