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

* some fixes for the x86 assembler writer, when running on a big-endian hosted platform

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-11-02 12:11:23 +02:00 committed by Pierre Muller
parent b2c7f852d6
commit b2ce5353a6
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/x86/aasmcpu.pas
View File

@ -4271,7 +4271,7 @@ implementation
then
objdata_writereloc(currval,2,currsym,currabsreloc)
else
objdata.writebytes(currval,2);
objdata.writeInt16LE(int16(currval));
end;
&34,&35,&36 : // 034..036
{ !!! These are intended (and used in opcode table) to select depending
@ -4282,21 +4282,21 @@ implementation
if assigned(currsym) then
objdata_writereloc(currval,2,currsym,currabsreloc)
else
objdata.writebytes(currval,2);
objdata.writeInt16LE(int16(currval));
{$else i8086}
if opsize=S_Q then
begin
if assigned(currsym) then
objdata_writereloc(currval,8,currsym,currabsreloc)
else
objdata.writebytes(currval,8);
objdata.writeInt64LE(int64(currval));
end
else
begin
if assigned(currsym) then
objdata_writereloc(currval,4,currsym,currabsreloc32)
else
objdata.writebytes(currval,4);
objdata.writeInt32LE(int32(currval));
end
{$endif i8086}
end;
@ -4310,7 +4310,7 @@ implementation
then
objdata_writereloc(currval,4,currsym,currabsreloc32)
else
objdata.writebytes(currval,4);
objdata.writeInt32LE(int32(currval));
end;
&44,&45,&46 :// 044..046 - select between word/dword/qword depending on
begin // address size (we support only default address sizes).
@ -4319,17 +4319,17 @@ implementation
if assigned(currsym) then
objdata_writereloc(currval,8,currsym,currabsreloc)
else
objdata.writebytes(currval,8);
objdata.writeInt64LE(int64(currval));
{$elseif defined(i386)}
if assigned(currsym) then
objdata_writereloc(currval,4,currsym,currabsreloc32)
else
objdata.writebytes(currval,4);
objdata.writeInt32LE(int32(currval));
{$elseif defined(i8086)}
if assigned(currsym) then
objdata_writereloc(currval,2,currsym,currabsreloc)
else
objdata.writebytes(currval,2);
objdata.writeInt16LE(int16(currval));
{$endif}
end;
&50,&51,&52 : // 050..052 - byte relative operand
@ -4351,7 +4351,7 @@ implementation
if assigned(currsym) then
objdata_writereloc(currval,8,currsym,currabsreloc)
else
objdata.writebytes(currval,8);
objdata.writeInt64LE(int64(currval));
end;
&60,&61,&62 :
begin
@ -4403,7 +4403,7 @@ implementation
if assigned(currsym) then
objdata_writereloc(currval,4,currsym,currabsreloc32)
else
objdata.writebytes(currval,4);
objdata.writeInt32LE(int32(currval));
end;
&300,&301,&302:
begin