* removed obsolete define

git-svn-id: trunk@371 -

tests/units/erroru.pp

@@ -2,13 +2,6 @@
 unit erroru;
 interface
 
-{$ifdef ver1_0}
-type
-  ptrint=longint;
-  sizeint=longint;
-{$endif}
-
-
   procedure do_error(l : longint);
 
   procedure error;
@@ -17,25 +10,6 @@ type
 
   procedure require_error(num : longint);
 
-{$ifndef HASGETHEAPSTATUS}
-type
-  THeapStatus = record
-    MaxHeapSize,
-    MaxHeapUsed,
-    CurrHeapSize,
-    CurrHeapUsed,
-    CurrHeapFree  : ptrint;
-  end;
-
-  procedure getheapstatus(var status:THeapStatus);
-{$endif HASGETHEAPSTATUS}
-
-{$ifndef HASGETFPCHEAPSTATUS}
-    type
-      TFPCHeapStatus = THeapStatus;
-    function GetFPCHeapStatus:TFPCHeapStatus;
-{$endif HASGETFPCHEAPSTATUS}
-
 function DoMem (Var StartMem : sizeint): sizeint;
 
 
@@ -108,27 +82,6 @@ begin
      end;
 end;
 
-{$ifndef HASGETHEAPSTATUS}
-  procedure getheapstatus(var status:THeapStatus);
-  begin
-    fillchar(status,sizeof(status),0);
-    status.MaxHeapSize:=HeapSize;
-    status.MaxHeapUsed:=HeapSize-MemAvail;
-    status.CurrHeapSize:=HeapSize;
-    status.CurrHeapUsed:=HeapSize-MemAvail;
-    status.CurrHeapFree:=MemAvail;
-  end;
-{$endif HASGETHEAPSTATUS}
-
-{$ifndef HASGETFPCHEAPSTATUS}
-    function GetFPCHeapStatus:TFPCHeapStatus;
-    begin
-      GetHeapStatus(GetFPCHeapStatus);
-    end;
-{$endif HASGETFPCHEAPSTATUS}
-
-
-
 
 function DoMem (Var StartMem : sizeint): sizeint;