paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:49:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ti8086callnode.extra_call_ref_code: do not change the base register to BX if

Browse Source 
it's BP, because that breaks memory models with DS<>SS

git-svn-id: trunk@27471 -
This commit is contained in:
nickysn 2014-04-04 21:43:40 +00:00
parent 9da1ee0138
commit e43791cf7c
1 changed files with 1 additions and 1 deletions

2
compiler/i8086/n8086cal.pas
View File

@ -96,7 +96,7 @@ implementation
procedure ti8086callnode.extra_call_ref_code(var ref: treference);
begin
if ref.base<>NR_NO then
if (ref.base<>NR_NO) and (ref.base<>NR_BP) then
begin
cg.getcpuregister(current_asmdata.CurrAsmList,NR_BX);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_16,OS_16,ref.base,NR_BX);