paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added warning for unreleased ANSI temp

Browse Source
This commit is contained in:
pierre 1999-04-19 09:30:48 +00:00
parent 0136ebb82b
commit c2560a1053
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/temp_gen.pas
View File

@ -148,6 +148,14 @@ unit temp_gen;
while assigned(tempansilist) do while assigned(tempansilist) do
begin begin
hp:=tempansilist; 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; tempansilist:=hp^.next;
dispose(hp); dispose(hp);
end; end;
@ -640,7 +648,10 @@ begin
end. end.
{ {
$Log$ $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 * the boolean operators =;<>;xor with LOC_JUMP and LOC_FLAGS
operands fixed, small things for new ansistring management operands fixed, small things for new ansistring management