Просмотр исходного кода

Avoid memory leak in isbinaryoverloaded function

git-svn-id: trunk@22425 -
pierre 13 лет назад
Родитель
Сommit
1550c623c3
1 измененных файлов с 2 добавлено и 0 удалено
  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;