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

+ support 16-bit addresses for codes 36..38 in the internal asm writer on i8086

Browse Source 
git-svn-id: trunk@30521 -
This commit is contained in:
nickysn 2015-04-09 21:16:22 +00:00
parent ef2e2c5033
commit ff20a3c7bc
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86/aasmcpu.pas
View File

@ -2870,17 +2870,22 @@ implementation
36,37,38 : // 044..046 - select between word/dword/qword depending on
begin // address size (we support only default address sizes).
getvalsym(c-36);
{$ifdef x86_64}
{$if defined(x86_64)}
if assigned(currsym) then
objdata_writereloc(currval,8,currsym,currabsreloc)
else
objdata.writebytes(currval,8);
{$else x86_64}
{$elseif defined(i386)}
if assigned(currsym) then
objdata_writereloc(currval,4,currsym,currabsreloc32)
else
objdata.writebytes(currval,4);
{$endif x86_64}
{$elseif defined(i8086)}
if assigned(currsym) then
objdata_writereloc(currval,2,currsym,currabsreloc)
else
objdata.writebytes(currval,2);
{$endif}
end;
40,41,42 : // 050..052 - byte relative operand
begin