Explorar o código

* ifdef heaptrc for heaptrc

peter %!s(int64=27) %!d(string=hai) anos
pai
achega
1595295776
Modificáronse 1 ficheiros con 7 adicións e 1 borrados
  1. 7 1
      compiler/pp.pas

+ 7 - 1
compiler/pp.pas

@@ -107,6 +107,9 @@ uses
 {$ifdef profile}
   profile,
 {$endif profile}
+{$ifdef heaptrc}
+  heaptrc,
+{$endif heaptrc}
   globals,compiler;
 
 {$ifdef useoverlay}
@@ -256,7 +259,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.31  1998-09-28 16:57:23  pierre
+  Revision 1.32  1998-10-02 17:03:51  peter
+    * ifdef heaptrc for heaptrc
+
+  Revision 1.31  1998/09/28 16:57:23  pierre
     * changed all length(p^.value_str^) into str_length(p)
       to get it work with and without ansistrings
     * changed sourcefiles field of tmodule to a pointer