From 435aee2398f28d7250e31175791692e449394174 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 12 Mar 2006 21:04:59 +0000
Subject: [PATCH]   * fixed
 g_copyvaluepara_openarray/g_releasevaluepara_openarray for    
 use_fixed_stack (use generic code)

git-svn-id: trunk@2895 -
---
 compiler/i386/cgcpu.pas | 6 ++++++
 compiler/x86/cgx86.pas  | 5 +++++
 2 files changed, 11 insertions(+)

diff --git a/compiler/i386/cgcpu.pas b/compiler/i386/cgcpu.pas
index 434b5d17ac..fb5ce9318b 100644
--- a/compiler/i386/cgcpu.pas
+++ b/compiler/i386/cgcpu.pas
@@ -333,6 +333,12 @@ unit cgcpu;
         again,ok : tasmlabel;
 {$endif}
       begin
+        if use_fixed_stack then
+          begin
+            inherited g_copyvaluepara_openarray(list,ref,lenloc,elesize,destreg);
+            exit;
+          end;
+
         { get stack space }
         getcpuregister(list,NR_EDI);
         a_load_loc_reg(list,OS_INT,lenloc,NR_EDI);
diff --git a/compiler/x86/cgx86.pas b/compiler/x86/cgx86.pas
index 8a6592cee1..9aacc7463b 100644
--- a/compiler/x86/cgx86.pas
+++ b/compiler/x86/cgx86.pas
@@ -1749,6 +1749,11 @@ unit cgx86;
 
     procedure tcgx86.g_releasevaluepara_openarray(list : taasmoutput;const l:tlocation);
       begin
+        if (use_fixed_stack) then
+          begin
+            inherited g_releasevaluepara_openarray(list,l);
+            exit;
+          end;
         { Nothing to release }
       end;