Browse Source

Avoid memory leak in isbinaryoverloaded function

git-svn-id: trunk@22425 -
pierre 13 years ago
parent
commit
1550c623c3
1 changed files with 2 additions and 0 deletions
  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;