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

Swap real constant in internal assembler

Browse Source
This commit is contained in:
Pierre Muller 2024-01-27 23:29:57 +01:00
parent e3b93b07c6
commit 2044868c10
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/assemble.pas
View File

@ -2176,7 +2176,12 @@ Implementation
eextended : floatx80;
{$endif}
{$endif}
ccomp : comp;
{$ifdef FPC_COMP_IS_INT64}
ccomp: int64;
{$else}
ccomp: comp;
{$endif}
comp_data_size : byte;
tmp : word;
cpu: tcputype;
ddword : dword;
@ -2290,12 +2295,22 @@ Implementation
{$endif cpuextended}
aitrealconst_s64comp:
begin
{$ifdef FPC_COMP_IS_INT64}
ccomp:=system.trunc(tai_realconst(hp).value.s64compval);
{$else}
ccomp:=comp(tai_realconst(hp).value.s64compval);
{$endif}
pdata:=@ccomp;
end;
else
internalerror(2015030501);
end;
if source_info.endian<>target_info.endian then
begin
for d:=0 to tai_realconst(hp).datasize-1 do
lebbuf[d]:=pbyte(pdata)[tai_realconst(hp).datasize-1-d];
pdata:=@lebbuf;
end;
ObjData.writebytes(pdata^,tai_realconst(hp).datasize);
ObjData.writebytes(zerobuf,tai_realconst(hp).savesize-tai_realconst(hp).datasize);
end;