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

* i8086 fix after r25010: i8086 doesn't support lea sp,[sp-XXX]

Browse Source 
git-svn-id: trunk@25012 -
This commit is contained in:
nickysn 2013-06-29 12:21:15 +00:00
parent 67b3017751
commit 7e70a5f763
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/cgx86.pas
View File

@ -2320,6 +2320,11 @@ unit cgx86;
procedure tcgx86.g_stackpointer_alloc(list : TAsmList;localsize : longint);
procedure decrease_sp(a : tcgint);
{$ifdef i8086}
begin
list.concat(Taicpu.Op_const_reg(A_SUB,S_W,a,NR_STACK_POINTER_REG));
end;
{$else i8086}
var
href : treference;
begin
@ -2327,6 +2332,7 @@ unit cgx86;
{ normally, lea is a better choice than a sub to adjust the stack pointer }
list.concat(Taicpu.op_ref_reg(A_LEA,TCGSize2OpSize[OS_ADDR],href,NR_STACK_POINTER_REG));
end;
{$endif i8086}
{$ifdef x86}
{$ifndef NOTARGETWIN}