* fixed g_copyvaluepara_openarray/g_releasevaluepara_openarray for

    use_fixed_stack (use generic code)

git-svn-id: trunk@2895 -

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);

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;