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

+ also add an implicit cs: prefix on i8086 in tx86intreader.BuildOperand.AddLabelOperand

Browse Source 
git-svn-id: trunk@32189 -
This commit is contained in:
nickysn 2015-10-29 15:35:09 +00:00
parent 90ff332b49
commit 823deb39ac
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/x86/rax86int.pas
View File

@ -1626,6 +1626,10 @@ Unit Rax86int;
begin begin
oper.InitRef; oper.InitRef;
oper.opr.ref.symbol:=hl; oper.opr.ref.symbol:=hl;
{$ifdef i8086}
if oper.opr.ref.segment=NR_NO then
oper.opr.ref.segment:=NR_CS;
{$endif i8086}
end; end;
end; end;