Explorar o código

Avoid memory leak in isbinaryoverloaded function

git-svn-id: trunk@22425 -
pierre %!s(int64=13) %!d(string=hai) anos
pai
achega
1550c623c3
Modificáronse 1 ficheiros con 2 adicións e 0 borrados
  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;