From c2560a1053a4a731b95013ab3d504c7dd294a3bf Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 19 Apr 1999 09:30:48 +0000 Subject: [PATCH] + added warning for unreleased ANSI temp --- compiler/temp_gen.pas | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/compiler/temp_gen.pas b/compiler/temp_gen.pas index 675301c187..44eec4a650 100644 --- a/compiler/temp_gen.pas +++ b/compiler/temp_gen.pas @@ -148,6 +148,14 @@ unit temp_gen; while assigned(tempansilist) do begin hp:=tempansilist; +{$ifdef EXTDEBUG} + if not hp^.is_freeansistring then + Comment(V_Warning,'temporary ANSI assignment of size ' + +tostr(hp^.size)+' from pos '+tostr(hp^.posinfo.line) + +':'+tostr(hp^.posinfo.column) + +' at pos '+tostr(hp^.pos)+ + ' not freed at the end of the procedure'); +{$endif} tempansilist:=hp^.next; dispose(hp); end; @@ -640,7 +648,10 @@ begin end. { $Log$ - Revision 1.19 1999-04-16 20:44:38 florian + Revision 1.20 1999-04-19 09:30:48 pierre + + added warning for unreleased ANSI temp + + Revision 1.19 1999/04/16 20:44:38 florian * the boolean operators =;<>;xor with LOC_JUMP and LOC_FLAGS operands fixed, small things for new ansistring management