From e2aa8b6ef43d030d22c5f6681ea200f11ab1bf7a Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 16 Jun 1998 11:32:18 +0000
Subject: [PATCH]   * small cosmetic fixes

---
 compiler/pp.pas       | 11 ++++++++++-
 compiler/verb_def.pas |  7 +++++--
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/compiler/pp.pas b/compiler/pp.pas
index 56824ef47e..528f247bc0 100644
--- a/compiler/pp.pas
+++ b/compiler/pp.pas
@@ -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.
diff --git a/compiler/verb_def.pas b/compiler/verb_def.pas
index 6e17300ea3..4357344037 100644
--- a/compiler/verb_def.pas
+++ b/compiler/verb_def.pas
@@ -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