paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02: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}
Message1(general_u_gcclibpath,Linker.librarysearchpath);
{$endif}
{$ifdef TP}
Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
{$endif}
start:=getrealtime;
compile(inputdir+inputfile+inputextension,false);
@ -381,6 +384,9 @@ begin
clearnodes;
done_symtable;
{$ifdef TP}
Comment(V_Info,'Memory: '+tostr(MemAvail)+' Bytes Free');
{$endif}
{$ifdef EXTDEBUG}
Comment(V_Info,'Memory lost = '+tostr(EntryMemAvail-MemAvail));
{$endif EXTDEBUG}
@ -392,7 +398,10 @@ begin
end.
{
$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.

7
compiler/verb_def.pas
View File

@ -101,7 +101,7 @@ begin
if (status.compiledlines=1) then
WriteLn(memavail shr 10,' Kb Free');
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
else
{ Message }
@ -176,7 +176,10 @@ begin
end.
{
$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
+ smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches
+ $LIBNAME to set the library name where the unit will be put in