paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 08:19:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* ifdef heaptrc for heaptrc

Browse Source
This commit is contained in:
peter 1998-10-02 17:03:51 +00:00
parent 871b893faf
commit 1595295776
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pp.pas
View File

@ -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