paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-13 01:30:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* small cosmetic fixes

Browse Source
This commit is contained in:
peter 1998-06-16 11:32:18 +00:00
parent c2d5abdfed
commit e2aa8b6ef4
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pp.pas
View File

@ -370,6 +370,9 @@ begin
{$ifdef linux} {$ifdef linux}
Message1(general_u_gcclibpath,Linker.librarysearchpath); Message1(general_u_gcclibpath,Linker.librarysearchpath);
{$endif} {$endif}
{$ifdef TP}
Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
{$endif}
start:=getrealtime; start:=getrealtime;
compile(inputdir+inputfile+inputextension,false); compile(inputdir+inputfile+inputextension,false);
@ -381,6 +384,9 @@ begin
clearnodes; clearnodes;
done_symtable; done_symtable;
{$ifdef TP}
Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
{$endif}
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
Comment(V_Info,'Memory lost = '+tostr(EntryMemAvail-MemAvail)); Comment(V_Info,'Memory lost = '+tostr(EntryMemAvail-MemAvail));
{$endif EXTDEBUG} {$endif EXTDEBUG}
@ -392,7 +398,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.14 1998-06-15 13:43:45 daniel Revision 1.15 1998-06-16 11:32:18 peter
* small cosmetic fixes
Revision 1.14 1998/06/15 13:43:45 daniel
* Updated overlays. * Updated overlays.

7
compiler/verb_def.pas
View File

@ -101,7 +101,7 @@ 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
Write(status.currentline,' ',memavail shr 10,' Kb Free'#13); WriteLn(status.currentline,' ',memavail shr 10,'/',system.heapsize shr 10,' Kb Free');
end end
else else
{ Message } { Message }
@ -176,7 +176,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.9 1998-05-23 01:21:33 peter Revision 1.10 1998-06-16 11:32:19 peter
* small cosmetic fixes
Revision 1.9 1998/05/23 01:21:33 peter
+ aktasmmode, aktoptprocessor, aktoutputformat + aktasmmode, aktoptprocessor, aktoutputformat
+ smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches + smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches
+ $LIBNAME to set the library name where the unit will be put in + $LIBNAME to set the library name where the unit will be put in