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

* i8086: Fixed referencing using BP and SP as base when FAR or HUGE memory model is used.

Browse Source 
git-svn-id: trunk@45846 -
This commit is contained in:
yury 2020-07-24 16:42:09 +00:00
parent b1b9d1f341
commit 34a5dfc885
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/i8086/hlcgcpu.pas
View File

@ -292,8 +292,14 @@ implementation
ref.segment:=NR_GS;
x86pt_far,
x86pt_huge:
if reg<>NR_NO then
ref.segment:=cg.GetNextReg(reg);
if getsupreg(reg)>=first_int_imreg then
ref.segment:=cg.GetNextReg(reg)
else
if reg<>NR_NO then
if (reg=current_procinfo.framepointer) or (reg=NR_SP) then
ref.segment:=NR_SS
else
internalerror(2020072401);
end;
end;