浏览代码

* Safecall handling: forgot to free cgpara before doing the call, fixed.

git-svn-id: trunk@19976 -
sergei 13 年之前
父节点
当前提交
fa98e0523d
共有 1 个文件被更改,包括 1 次插入0 次删除
  1. 1 0
      compiler/ncgflw.pas

+ 1 - 0
compiler/ncgflw.pas

@@ -1456,6 +1456,7 @@ implementation
           end
           end
         else
         else
           cg.a_load_const_cgpara(current_asmdata.CurrAsmList,OS_ADDR,0,cgpara);
           cg.a_load_const_cgpara(current_asmdata.CurrAsmList,OS_ADDR,0,cgpara);
+        paramanager.freecgpara(current_asmdata.CurrAsmList,cgpara);
         cgpara.done;
         cgpara.done;
         cg.g_call(current_asmdata.CurrAsmList,'FPC_SAFECALLHANDLER');
         cg.g_call(current_asmdata.CurrAsmList,'FPC_SAFECALLHANDLER');
       end;
       end;