paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 22:31:42 +01: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; keepreleased:=true;
SetHeapTraceOutput('heap.log'); SetHeapTraceOutput('heap.log');
{$ifdef VER1_0} {$ifdef VER1_0}
SetExtraInfoString({$ifdef FPC}@{$endif}get_extra_info); SetExtraInfoString(@get_extra_info);
{$else} {$else}
SetHeapExtraInfo(sizeof(textra_info), SetHeapExtraInfo(sizeof(textra_info),
set_extra_info, @set_extra_info,
show_extra_info); @show_extra_info);
{$endif} {$endif}
end; end;
pp_heap_inited:=true; pp_heap_inited:=true;
@ -163,7 +163,10 @@ begin
end. end.
{ {
$Log$ $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 DELPHI and related code
- remove $IFDEF FPCPROCVAR and related code - remove $IFDEF FPCPROCVAR and related code