Merge pull request #95 from blikblum/fix-memoryleak-issue61

Fix memory leak TPSExec.InnerfuseCall in fpc
2014-12-13 15:01:15 +01:00 · 2014-12-13 15:01:15 +01:00 · a9bc6508bf
commit a9bc6508bf
parent e2f657e2c1 224dcdb5de
1 changed files with 1 additions and 0 deletions
--- a/Source/x86.inc
+++ b/Source/x86.inc
@ -543,6 +543,7 @@ begin
            if not GetPtr(rp(Params[0])) then exit; // this goes first
            RegUsage := 2;
            EDX := Longint(_Self);
+            DisposePPSVariantIFC(Params[0]);
            Params.Delete(0);
          end else
 {$ENDIF}