paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 15:21:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed compile error

Browse Source
This commit is contained in:
peter 2004-10-18 14:39:22 +00:00
parent a3e93b75ee
commit f0723c54f0
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ppheap.pas
View File

@ -147,11 +147,11 @@ implementation
keepreleased:=true;
SetHeapTraceOutput('heap.log');
{$ifdef VER1_0}
SetExtraInfoString({$ifdef FPC}@{$endif}get_extra_info);
SetExtraInfoString(@get_extra_info);
{$else}
SetHeapExtraInfo(sizeof(textra_info),
set_extra_info,
show_extra_info);
@set_extra_info,
@show_extra_info);
{$endif}
end;
pp_heap_inited:=true;
@ -163,7 +163,10 @@ begin
end.
{
$Log$
Revision 1.14 2004-10-15 09:14:17 mazen
Revision 1.15 2004-10-18 14:39:22 peter
* fixed compile error
Revision 1.14 2004/10/15 09:14:17 mazen
- remove $IFDEF DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code