浏览代码

Avoid memory leak in isbinaryoverloaded function

git-svn-id: trunk@22425 -
pierre 13 年之前
父节点
当前提交
1550c623c3
共有 1 个文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/htypechk.pas

+ 2 - 0
compiler/htypechk.pas

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