Ver Fonte

* compiles again with -dmemdebug

Jonas Maebe há 24 anos atrás
pai
commit
c5bd8e67ee
3 ficheiros alterados com 19 adições e 7 exclusões
  1. 8 2
      compiler/assemble.pas
  2. 6 3
      compiler/cgbase.pas
  3. 5 2
      compiler/fmodule.pas

+ 8 - 2
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

+ 6 - 3
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

+ 5 - 2
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