paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 17:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ easier debug when memory is lost

Browse Source
This commit is contained in:
pierre 2000-05-03 16:31:22 +00:00
parent 934883569a
commit dfbb141d2b
1 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/compiler.pas
View File

@ -152,6 +152,22 @@ begin
end;
{$endif USEEXCEPT}
{$ifdef EXTDEBUG}
{$ifdef FPC}
Var
LostMemory : longint;
Procedure CheckMemory(LostMemory : longint);
begin
if LostMemory<>0 then
begin
Writeln('Memory Lost = '+tostr(LostMemory));
{$ifdef DEBUG}
def_gdb_stop(V_Warning);
{$endif DEBUG}
end;
end;
{$endif FPC}
{$endif EXTDEBUG}
{****************************************************************************
Compiler
****************************************************************************}
@ -322,7 +338,8 @@ begin
DoneVerbose;
{$ifdef EXTDEBUG}
{$ifdef FPC}
Writeln('Memory Lost = '+tostr(system.HeapSize-MemAvail-EntryMemUsed));
LostMemory:=system.HeapSize-MemAvail-EntryMemUsed;
CheckMemory(LostMemory);
{$endif FPC}
{$ifndef newcg}
Writeln('Repetitive firstpass = '+tostr(firstpass_several)+'/'+tostr(total_of_firstpass));
@ -341,7 +358,10 @@ end;
end.
{
$Log$
Revision 1.48 2000-04-05 21:18:04 pierre
Revision 1.49 2000-05-03 16:31:22 pierre
+ easier debug when memory is lost
Revision 1.48 2000/04/05 21:18:04 pierre
* set NOUSEEXCEPT to remove use of setjump/longjump
Revision 1.47 2000/03/18 15:05:33 jonas