paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 11:29:41 +02: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} {$ifdef profile}
profile, profile,
{$endif profile} {$endif profile}
{$ifdef heaptrc}
heaptrc,
{$endif heaptrc}
globals,compiler; globals,compiler;
{$ifdef useoverlay} {$ifdef useoverlay}
@ -256,7 +259,10 @@ begin
end. end.
{ {
$Log$ $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) * changed all length(p^.value_str^) into str_length(p)
to get it work with and without ansistrings to get it work with and without ansistrings
* changed sourcefiles field of tmodule to a pointer * changed sourcefiles field of tmodule to a pointer