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

* emit 16-bit addresses on i8086 for asm codes &64..&66 in the internal asm

Browse Source 
git-svn-id: trunk@30580 -
This commit is contained in:
nickysn 2015-04-13 22:13:15 +00:00
parent e559b9e3d6
commit bd460eec43
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/x86/aasmcpu.pas
View File

@ -2255,10 +2255,15 @@ implementation
&54,&55,&56:
inc(len,8);
&40,&41,&42,
&64,&65,&66,
&70,&71,&72,
&254,&255,&256 :
inc(len,4);
&64,&65,&66:
{$ifdef i8086}
inc(len,2);
{$else i8086}
inc(len,4);
{$endif i8086}
&74,&75,&76,&77: ; // ignore vex-coded operand-idx
&320,&321,&322 :
begin
@ -2927,13 +2932,20 @@ implementation
else
objdata.writebytes(currval,8);
end;
&64,&65,&66 : // 064..066 - select between 16/32 address mode, but we support only 32
&64,&65,&66 : // 064..066 - select between 16/32 address mode, but we support only 32 (only 16 on i8086)
begin
getvalsym(c-&64);
{$ifdef i8086}
if assigned(currsym) then
objdata_writereloc(currval,2,currsym,currrelreloc)
else
objdata_writereloc(currval-insend,2,nil,currabsreloc)
{$else i8086}
if assigned(currsym) then
objdata_writereloc(currval,4,currsym,currrelreloc)
else
objdata_writereloc(currval-insend,4,nil,currabsreloc32)
{$endif i8086}
end;
&70,&71,&72 : // 070..072 - long relative operand
begin