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

* made memdebug and heaptrc compilable again

Browse Source
This commit is contained in:
peter 2001-03-13 18:43:17 +00:00
parent eb95f58e21
commit f804626ea0
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/finput.pas
View File

@ -140,6 +140,9 @@ uses
{$else Delphi} {$else Delphi}
dos, dos,
{$endif Delphi} {$endif Delphi}
{$ifdef HEAPTRC}
fmodule,
{$endif HEAPTRC}
globals,systems globals,systems
; ;
@ -680,7 +683,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.6 2000-12-25 00:07:25 peter Revision 1.7 2001-03-13 18:43:17 peter
* made memdebug and heaptrc compilable again
Revision 1.6 2000/12/25 00:07:25 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and + new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects) tlinkedlist objects)

7
compiler/ppheap.pas
View File

@ -46,7 +46,7 @@ implementation
pl^:=aktfilepos.column; pl^:=aktfilepos.column;
pl:=plongint(cardinal(p)+8); pl:=plongint(cardinal(p)+8);
if assigned(current_module) then if assigned(current_module) then
pl^:=current_module^.unit_index*100000+aktfilepos.fileindex pl^:=current_module.unit_index*100000+aktfilepos.fileindex
else else
pl^:=aktfilepos.fileindex pl^:=aktfilepos.fileindex
end; end;
@ -70,7 +70,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.4 2000-10-14 21:52:56 peter Revision 1.5 2001-03-13 18:43:17 peter
* made memdebug and heaptrc compilable again
Revision 1.4 2000/10/14 21:52:56 peter
* fixed memory leaks * fixed memory leaks
Revision 1.3 2000/09/24 15:06:24 peter Revision 1.3 2000/09/24 15:06:24 peter