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

Also accept s80bit real constants when FPC_SOFT_FPUX80 macro is defined

Browse Source 
git-svn-id: trunk@47557 -
This commit is contained in:
pierre 2020-11-24 15:31:26 +00:00
parent 9cf99b818d
commit 96f2e683e7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/agllvm.pas
View File

@ -407,7 +407,7 @@ implementation
end; end;
{$if defined(cpuextended) and defined(FPC_HAS_TYPE_EXTENDED)} {$if defined(cpuextended) and (defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_SOFT_FPUX80))}
function llvmextendedtostr(const e: extended): TSymStr; function llvmextendedtostr(const e: extended): TSymStr;
var var
extendedval: record extendedval: record
@ -502,7 +502,7 @@ implementation
end; end;
result:=''; result:='';
end; end;
{$if defined(cpuextended) and defined(FPC_HAS_TYPE_EXTENDED)} {$if defined(cpuextended) and (defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_SOFT_FPUX80))}
top_extended80: top_extended80:
begin begin
result:=llvmextendedtostr(o.eval); result:=llvmextendedtostr(o.eval);
@ -875,7 +875,7 @@ implementation
writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_realconst(hp).value.s32val)); writer.AsmWriteLn(asminfo^.comment+'value: '+single2str(tai_realconst(hp).value.s32val));
aitrealconst_s64bit: aitrealconst_s64bit:
writer.AsmWriteLn(asminfo^.comment+'value: '+double2str(tai_realconst(hp).value.s64val)); writer.AsmWriteLn(asminfo^.comment+'value: '+double2str(tai_realconst(hp).value.s64val));
{$if defined(cpuextended) and defined(FPC_HAS_TYPE_EXTENDED)} {$if defined(cpuextended) and (defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_SOFT_FPUX80))}
{ can't write full 80 bit floating point constants yet on non-x86 } { can't write full 80 bit floating point constants yet on non-x86 }
aitrealconst_s80bit: aitrealconst_s80bit:
writer.AsmWriteLn(asminfo^.comment+'value: '+extended2str(tai_realconst(hp).value.s80val)); writer.AsmWriteLn(asminfo^.comment+'value: '+extended2str(tai_realconst(hp).value.s80val));
@ -892,7 +892,7 @@ implementation
writer.AsmWrite(llvmdoubletostr(hp.value.s32val)); writer.AsmWrite(llvmdoubletostr(hp.value.s32val));
aitrealconst_s64bit: aitrealconst_s64bit:
writer.AsmWriteln(llvmdoubletostr(hp.value.s64val)); writer.AsmWriteln(llvmdoubletostr(hp.value.s64val));
{$if defined(cpuextended) and defined(FPC_HAS_TYPE_EXTENDED)} {$if defined(cpuextended) and (defined(FPC_HAS_TYPE_EXTENDED) or defined(FPC_SOFT_FPUX80))}
aitrealconst_s80bit: aitrealconst_s80bit:
writer.AsmWrite(llvmextendedtostr(hp.value.s80val)); writer.AsmWrite(llvmextendedtostr(hp.value.s80val));
{$endif defined(cpuextended)} {$endif defined(cpuextended)}