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

* handle complexer references in tcg8086.a_loadaddr_ref_cgpara properly

Browse Source
This commit is contained in:
florian 2024-05-18 23:38:33 +02:00
parent 9eb77599e1
commit eff10ee9b7
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/i8086/cgcpu.pas
View File

@ -1569,7 +1569,7 @@ unit cgcpu;
a_loadaddr_ref_reg(list,r,tmpreg);
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpreg));
end
else if base=NR_BP then
else if (base=NR_BP) or (base=NR_SP) then
begin
list.concat(Taicpu.op_reg(A_PUSH,S_W,NR_SS));
tmpreg:=getaddressregister(list);
@ -1577,7 +1577,12 @@ unit cgcpu;
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpreg));
end
else
internalerror(2014032403);
begin
list.concat(Taicpu.op_reg(A_PUSH,S_W,NR_DS));
tmpreg:=getaddressregister(list);
a_loadaddr_ref_reg(list,r,tmpreg);
list.concat(taicpu.op_reg(A_PUSH,S_W,tmpreg));
end;
end;
end
else