+ heapblocks:=true

compiler/pp.pas

@@ -133,7 +133,8 @@ uses
 {$EndIf}
 {$ifdef TP}
   objects,
-{$endif}  
+{$endif}
+
   dos,cobjects,
   globals,parser,systems,tree,symtable,options,link,import,files,
   verb_def,verbose;
@@ -292,8 +293,13 @@ var
 begin
   oldexit:=exitproc;
   exitproc:=@myexit;
-
-  start:=getrealtime;
+{$ifdef linux}
+  heapblocks:=true;
+{$else}
+  {$ifdef go32v2}
+    heapblocks:=true;
+  {$endif}
+{$endif}
 {$ifdef EXTDEBUG}
    EntryMemAvail:=MemAvail;
 {$endif}
@@ -352,6 +358,7 @@ begin
    Message1(general_u_gcclibpath,Linker.gcclibrarypath);
 {$endif}
 
+   start:=getrealtime;
    compile(inputdir+inputfile+inputextension,false);
 
    if errorcount=0 then
@@ -373,7 +380,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.5  1998-04-29 10:33:59  pierre
+  Revision 1.6  1998-04-29 13:40:23  peter
+    + heapblocks:=true
+
+  Revision 1.5  1998/04/29 10:33:59  pierre
     + added some code for ansistring (not complete nor working yet)
     * corrected operator overloading
     * corrected nasm output