* small cosmetic fixes

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.

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