paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed g_copyvaluepara_openarray/g_releasevaluepara_openarray for

Browse Source 
use_fixed_stack (use generic code)

git-svn-id: trunk@2895 -
This commit is contained in:
Jonas Maebe 2006-03-12 21:04:59 +00:00
parent 7fff4f4d57
commit 435aee2398
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/i386/cgcpu.pas
View File

@ -333,6 +333,12 @@ unit cgcpu;
again,ok : tasmlabel; again,ok : tasmlabel;
{$endif} {$endif}
begin begin
if use_fixed_stack then
begin
inherited g_copyvaluepara_openarray(list,ref,lenloc,elesize,destreg);
exit;
end;
{ get stack space } { get stack space }
getcpuregister(list,NR_EDI); getcpuregister(list,NR_EDI);
a_load_loc_reg(list,OS_INT,lenloc,NR_EDI); a_load_loc_reg(list,OS_INT,lenloc,NR_EDI);

5
compiler/x86/cgx86.pas
View File

@ -1749,6 +1749,11 @@ unit cgx86;
procedure tcgx86.g_releasevaluepara_openarray(list : taasmoutput;const l:tlocation); procedure tcgx86.g_releasevaluepara_openarray(list : taasmoutput;const l:tlocation);
begin begin
if (use_fixed_stack) then
begin
inherited g_releasevaluepara_openarray(list,l);
exit;
end;
{ Nothing to release } { Nothing to release }
end; end;