Ver Fonte

Avoid memory leak in isbinaryoverloaded function

git-svn-id: trunk@22425 -
pierre há 13 anos atrás
pai
commit
1550c623c3
1 ficheiros alterados com 2 adições e 0 exclusões
  1. 2 0
      compiler/htypechk.pas

+ 2 - 0
compiler/htypechk.pas

@@ -828,6 +828,7 @@ implementation
               begin
                 CGMessage(parser_e_operator_not_overloaded);
                 candidates.free;
+                ppn.free;
                 exit;
               end;
 
@@ -847,6 +848,7 @@ implementation
               begin
                 CGMessage3(parser_e_operator_not_overloaded_3,ld.typename,arraytokeninfo[optoken].str,rd.typename);
                 candidates.free;
+                ppn.free;
                 exit;
               end;