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

+ support for tai_realconst in llvm assembler writer

Browse Source 
git-svn-id: branches/hlcgllvm@28114 -
This commit is contained in:
Jonas Maebe 2014-07-01 16:30:27 +00:00
parent 8043254461
commit da3e931d68
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/llvm/agllvm.pas
View File

@ -544,7 +544,8 @@ implementation
pdata: pbyte;
index, step, swapmask, count: longint;
begin
// if do_line then
if do_line and
(fdecllevel=0) then
begin
case tai_realconst(hp).realtyp of
aitrealconst_s32bit:
@ -562,6 +563,21 @@ implementation
internalerror(2014050604);
end;
end;
case hp.realtyp of
aitrealconst_s32bit:
AsmWriteln(llvmdoubletostr(hp.value.s32val));
aitrealconst_s64bit:
AsmWriteln(llvmdoubletostr(hp.value.s64val));
{$if defined(cpuextended) and defined(FPC_HAS_TYPE_EXTENDED)}
aitrealconst_s80bit:
AsmWriteln(llvmextendedtostr(hp.value.s80val));
{$endif defined(cpuextended)}
aitrealconst_s64comp:
{ handled as int64 most of the time in llvm }
AsmWriteln(tostr(round(hp.value.s64compval)));
else
internalerror(2014062401);
end;
end;
@ -569,7 +585,8 @@ implementation
var
consttyp: taiconst_type;
begin
asmwrite(target_asm.comment+' const ');
if fdecllevel=0 then
asmwrite(target_asm.comment+' const ');
consttyp:=hp.consttype;
case consttyp of
aitconst_got,