From b8080d2b0f92749729d1b94e827d907ce7acc198 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 11 May 2000 09:29:01 +0000
Subject: [PATCH]  * disbal all code using MemAvail for Delphi reported by
 Kovacs Attila Zoltan

---
 compiler/cobjects.pas | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/compiler/cobjects.pas b/compiler/cobjects.pas
index d6d3764eba..e6f4fe9d4c 100644
--- a/compiler/cobjects.pas
+++ b/compiler/cobjects.pas
@@ -448,19 +448,25 @@ unit cobjects;
     constructor tmemdebug.init(const s:string);
       begin
         infostr:=s;
+{$ifdef Delphi}
+        startmem:=0;
+{$else}
         startmem:=memavail;
+{$endif Delphi}
       end;
 
     procedure tmemdebug.show;
       var
         l : longint;
       begin
+{$ifndef Delphi}
         write('memory [',infostr,'] ');
         l:=memavail;
         if l>startmem then
          writeln(l-startmem,' released')
         else
          writeln(startmem-l,' allocated');
+{$endif Delphi}
       end;
 
     destructor tmemdebug.done;
@@ -2395,7 +2401,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.52  2000-02-09 13:22:50  peter
+  Revision 1.53  2000-05-11 09:29:01  pierre
+   * disbal all code using MemAvail for Delphi reported by Kovacs Attila Zoltan
+
+  Revision 1.52  2000/02/09 13:22:50  peter
     * log truncated
 
   Revision 1.51  2000/01/11 17:16:04  jonas
@@ -2450,4 +2459,4 @@ end.
     * some fixes for the floating point registers
     * more things for the new code generator
 
-}
+}
\ No newline at end of file