From c5bd8e67eec1750b5faa8b2a16311a95993a9e36 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 6 Nov 2001 14:53:48 +0000
Subject: [PATCH]   * compiles again with -dmemdebug

---
 compiler/assemble.pas | 10 ++++++++--
 compiler/cgbase.pas   |  9 ++++++---
 compiler/fmodule.pas  |  7 +++++--
 3 files changed, 19 insertions(+), 7 deletions(-)

diff --git a/compiler/assemble.pas b/compiler/assemble.pas
index cb50a9ab13..fd7975cb78 100644
--- a/compiler/assemble.pas
+++ b/compiler/assemble.pas
@@ -149,6 +149,9 @@ Implementation
   {$endif}
 {$endif}
       cutils,script,finput,fmodule,verbose,
+{$ifdef memdebug}
+      cclasses,
+{$endif memdebug}
 {$ifdef GDB}
       gdb,
 {$endif GDB}
@@ -563,7 +566,7 @@ Implementation
 {$endif}
       begin
 {$ifdef MEMDEBUG}
-         d.init('agbin');
+         d := tmemdebug.create('agbin');
 {$endif}
         objectoutput.free;
         objectalloc.free;
@@ -1550,7 +1553,10 @@ Implementation
 end.
 {
   $Log$
-  Revision 1.28  2001-09-18 11:30:47  michael
+  Revision 1.29  2001-11-06 14:53:48  jonas
+    * compiles again with -dmemdebug
+
+  Revision 1.28  2001/09/18 11:30:47  michael
   * Fixes win32 linking problems with import libraries
   * LINKLIB Libraries are now looked for using C file extensions
   * get_exepath fix
diff --git a/compiler/cgbase.pas b/compiler/cgbase.pas
index 68a05ae5c9..8c923516cd 100644
--- a/compiler/cgbase.pas
+++ b/compiler/cgbase.pas
@@ -409,7 +409,7 @@ implementation
 {$endif}
       begin
 {$ifdef MEMDEBUG}
-         d.init('asmlist');
+         d:=tmemdebug.create('asmlist');
 {$endif}
          exprasmlist.free;
          codesegment.free;
@@ -432,7 +432,7 @@ implementation
 {$endif}
          { assembler symbols }
 {$ifdef MEMDEBUG}
-         d.init('asmsymbol');
+         d:=tmemdebug.create('asmsymbol');
 {$endif}
          asmsymbollist.free;
 {$ifdef MEMDEBUG}
@@ -501,7 +501,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.3  2001-09-29 21:33:47  jonas
+  Revision 1.4  2001-11-06 14:53:48  jonas
+    * compiles again with -dmemdebug
+
+  Revision 1.3  2001/09/29 21:33:47  jonas
     * support 64bit operands in def_cgsize()
 
   Revision 1.2  2001/09/28 20:39:33  jonas
diff --git a/compiler/fmodule.pas b/compiler/fmodule.pas
index 5ed06bc7c1..d3eb131bf5 100644
--- a/compiler/fmodule.pas
+++ b/compiler/fmodule.pas
@@ -462,7 +462,7 @@ uses
         localincludesearchpath.free;
         locallibrarysearchpath.free;
 {$ifdef MEMDEBUG}
-        d.init('symtable');
+        d:=tmemdebug.create('symtable');
 {$endif}
         if assigned(globalsymtable) then
           globalsymtable.free;
@@ -587,7 +587,10 @@ uses
 end.
 {
   $Log$
-  Revision 1.18  2001-08-04 10:23:54  peter
+  Revision 1.19  2001-11-06 14:53:48  jonas
+    * compiles again with -dmemdebug
+
+  Revision 1.18  2001/08/04 10:23:54  peter
     * updates so it works with the ide
 
   Revision 1.17  2001/06/04 11:49:08  peter