From dfbb141d2bc6a8b85d06a4bcbac2814f242b29ad Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 3 May 2000 16:31:22 +0000
Subject: [PATCH]  + easier debug when memory is lost

---
 compiler/compiler.pas | 24 ++++++++++++++++++++++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/compiler/compiler.pas b/compiler/compiler.pas
index f74a8d04f1..fab4ba6f36 100644
--- a/compiler/compiler.pas
+++ b/compiler/compiler.pas
@@ -152,6 +152,22 @@ begin
 end;
 {$endif USEEXCEPT}
 
+{$ifdef EXTDEBUG}
+{$ifdef FPC}
+  Var
+    LostMemory : longint;
+  Procedure CheckMemory(LostMemory : longint);
+  begin
+    if LostMemory<>0 then
+      begin
+        Writeln('Memory Lost = '+tostr(LostMemory));
+{$ifdef DEBUG}
+        def_gdb_stop(V_Warning);
+{$endif DEBUG}
+      end;
+  end;
+{$endif FPC}
+{$endif EXTDEBUG}
 {****************************************************************************
                                 Compiler
 ****************************************************************************}
@@ -322,7 +338,8 @@ begin
   DoneVerbose;
 {$ifdef EXTDEBUG}
 {$ifdef FPC}
-  Writeln('Memory Lost = '+tostr(system.HeapSize-MemAvail-EntryMemUsed));
+  LostMemory:=system.HeapSize-MemAvail-EntryMemUsed;
+  CheckMemory(LostMemory);
 {$endif FPC}
 {$ifndef newcg}
   Writeln('Repetitive firstpass = '+tostr(firstpass_several)+'/'+tostr(total_of_firstpass));
@@ -341,7 +358,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.48  2000-04-05 21:18:04  pierre
+  Revision 1.49  2000-05-03 16:31:22  pierre
+   + easier debug when memory is lost
+
+  Revision 1.48  2000/04/05 21:18:04  pierre
    * set NOUSEEXCEPT to remove use of setjump/longjump
 
   Revision 1.47  2000/03/18 15:05:33  jonas