From fa98e0523da4ae2b65bc60601c50f9c4669b9a99 Mon Sep 17 00:00:00 2001
From: sergei <gorelkin@nanoreflex.ru>
Date: Thu, 5 Jan 2012 19:12:56 +0000
Subject: [PATCH] * Safecall handling: forgot to free cgpara before doing the
call, fixed.
git-svn-id: trunk@19976 -
---
compiler/ncgflw.pas | 1 +
1 file changed, 1 insertion(+)
diff --git a/compiler/ncgflw.pas b/compiler/ncgflw.pas
index 5a5bcf7855..3ff66ee81f 100644
--- a/compiler/ncgflw.pas
+++ b/compiler/ncgflw.pas
@@ -1456,6 +1456,7 @@ implementation
end
else
cg.a_load_const_cgpara(current_asmdata.CurrAsmList,OS_ADDR,0,cgpara);
+ paramanager.freecgpara(current_asmdata.CurrAsmList,cgpara);
cgpara.done;
cg.g_call(current_asmdata.CurrAsmList,'FPC_SAFECALLHANDLER');
end;