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

Take care about endianess in arm instruction binary code generator

Browse Source
This commit is contained in:
Pierre Muller 2024-02-26 17:34:48 +01:00
parent 318e31487a
commit ce702df526
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/arm/aasmcpu.pas
View File

@ -5835,7 +5835,23 @@ implementation
bytes:=((bytes shr 16) and $FFFF) or ((bytes and $FFFF) shl 16);
{ we're finished, write code }
objdata.writebytes(bytes,bytelen);
if source_info.endian<>target_info.endian then
begin
if (bytelen=4) then
if target_info.endian=endian_little then
objdata.writeInt32LE(int32(bytes))
else
objdata.writeInt32BE(int32(bytes))
else if (bytelen=2) then
if target_info.endian=endian_little then
objdata.writeInt16LE(int32(bytes))
else
objdata.writeInt16BE(int32(bytes))
else
internalerror(2024022601);
end
else
objdata.writebytes(bytes,bytelen);
end;
begin