paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 01:51:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* compiles again with -dmemdebug

Browse Source
This commit is contained in:
Jonas Maebe 2001-11-06 14:53:48 +00:00
parent 3605a8a096
commit c5bd8e67ee
3 changed files with 19 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/assemble.pas
View File

@ -149,6 +149,9 @@ Implementation
{$endif} {$endif}
{$endif} {$endif}
cutils,script,finput,fmodule,verbose, cutils,script,finput,fmodule,verbose,
{$ifdef memdebug}
cclasses,
{$endif memdebug}
{$ifdef GDB} {$ifdef GDB}
gdb, gdb,
{$endif GDB} {$endif GDB}
@ -563,7 +566,7 @@ Implementation
{$endif} {$endif}
begin begin
{$ifdef MEMDEBUG} {$ifdef MEMDEBUG}
d.init('agbin'); d := tmemdebug.create('agbin');
{$endif} {$endif}
objectoutput.free; objectoutput.free;
objectalloc.free; objectalloc.free;
@ -1550,7 +1553,10 @@ Implementation
end. end.
{ {
$Log$ $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 * Fixes win32 linking problems with import libraries
* LINKLIB Libraries are now looked for using C file extensions * LINKLIB Libraries are now looked for using C file extensions
* get_exepath fix * get_exepath fix

9
compiler/cgbase.pas
View File

@ -409,7 +409,7 @@ implementation
{$endif} {$endif}
begin begin
{$ifdef MEMDEBUG} {$ifdef MEMDEBUG}
d.init('asmlist'); d:=tmemdebug.create('asmlist');
{$endif} {$endif}
exprasmlist.free; exprasmlist.free;
codesegment.free; codesegment.free;
@ -432,7 +432,7 @@ implementation
{$endif} {$endif}
{ assembler symbols } { assembler symbols }
{$ifdef MEMDEBUG} {$ifdef MEMDEBUG}
d.init('asmsymbol'); d:=tmemdebug.create('asmsymbol');
{$endif} {$endif}
asmsymbollist.free; asmsymbollist.free;
{$ifdef MEMDEBUG} {$ifdef MEMDEBUG}
@ -501,7 +501,10 @@ begin
end. end.
{ {
$Log$ $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() * support 64bit operands in def_cgsize()
Revision 1.2 2001/09/28 20:39:33 jonas Revision 1.2 2001/09/28 20:39:33 jonas

7
compiler/fmodule.pas
View File

@ -462,7 +462,7 @@ uses
localincludesearchpath.free; localincludesearchpath.free;
locallibrarysearchpath.free; locallibrarysearchpath.free;
{$ifdef MEMDEBUG} {$ifdef MEMDEBUG}
d.init('symtable'); d:=tmemdebug.create('symtable');
{$endif} {$endif}
if assigned(globalsymtable) then if assigned(globalsymtable) then
globalsymtable.free; globalsymtable.free;
@ -587,7 +587,10 @@ uses
end. end.
{ {
$Log$ $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 * updates so it works with the ide
Revision 1.17 2001/06/04 11:49:08 peter Revision 1.17 2001/06/04 11:49:08 peter