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

* bp7 fix

Browse Source
This commit is contained in:
peter 1998-06-19 15:40:00 +00:00
parent 509e45560b
commit c6b54d420b
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/verb_def.pas
View File

@ -101,7 +101,11 @@ begin
if (status.compiledlines=1) then if (status.compiledlines=1) then
WriteLn(memavail shr 10,' Kb Free'); WriteLn(memavail shr 10,' Kb Free');
if (status.currentline mod 100=0) then if (status.currentline mod 100=0) then
{$ifdef FPC}
WriteLn(status.currentline,' ',memavail shr 10,'/',system.heapsize shr 10,' Kb Free'); WriteLn(status.currentline,' ',memavail shr 10,'/',system.heapsize shr 10,' Kb Free');
{$else}
WriteLn(status.currentline,' ',memavail shr 10,' Kb Free');
{$endif}
end end
else else
{ Message } { Message }
@ -176,7 +180,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.10 1998-06-16 11:32:19 peter Revision 1.11 1998-06-19 15:40:00 peter
* bp7 fix
Revision 1.10 1998/06/16 11:32:19 peter
* small cosmetic fixes * small cosmetic fixes
Revision 1.9 1998/05/23 01:21:33 peter Revision 1.9 1998/05/23 01:21:33 peter