paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-21 06:41:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing of lost memory which should be after donecompiler

Browse Source
This commit is contained in:
peter 1999-08-09 22:13:43 +00:00
parent f8f1334751
commit 8b82809292
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/compiler.pas
View File

@ -275,16 +275,18 @@ begin
{ Stop is always called, so we come here when a program is compiled or not } { Stop is always called, so we come here when a program is compiled or not }
do_stop:=olddo_stop; do_stop:=olddo_stop;
{$endif USEEXCEPT} {$endif USEEXCEPT}
{$ifdef EXTDEBUG}
{$ifdef FPC}
Comment(V_Info,'Memory Lost = '+tostr(system.HeapSize-MemAvail+EntryMemUsed));
{$endif FPC}
Comment(V_Info,'Repetitive firstpass = '+tostr(firstpass_several)+'/'+tostr(total_of_firstpass));
{$endif EXTDEBUG}
{ Stop the compiler, frees also memory } { Stop the compiler, frees also memory }
{ no message possible after this !! } { no message possible after this !! }
DoneCompiler; DoneCompiler;
{$ifdef EXTDEBUG}
{$ifdef FPC}
Writeln('Memory Lost = '+tostr(system.HeapSize-MemAvail+EntryMemUsed));
{$endif FPC}
Writeln('Repetitive firstpass = '+tostr(firstpass_several)+'/'+tostr(total_of_firstpass));
{$endif EXTDEBUG}
{ Set the return value if an error has occurred } { Set the return value if an error has occurred }
if status.errorcount=0 then if status.errorcount=0 then
Compile:=0 Compile:=0
@ -298,7 +300,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.28 1999-08-04 13:02:40 jonas Revision 1.29 1999-08-09 22:13:43 peter
* fixed writing of lost memory which should be after donecompiler
Revision 1.28 1999/08/04 13:02:40 jonas
* all tokens now start with an underscore * all tokens now start with an underscore
* PowerPC compiles!! * PowerPC compiles!!