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

* llvm requires that single precision constants are exactly representable

Browse Source 
using single precision -> convert them to single precision in the code
    generator

git-svn-id: branches/hlcgllvm@27001 -
This commit is contained in:
Jonas Maebe 2014-03-06 21:41:32 +00:00
parent cdfb23bf6c
commit 227ff0ea48
3 changed files with 31 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmtai.pas
View File

@ -257,6 +257,7 @@ interface
{$endif jvm} {$endif jvm}
{$ifdef llvm} {$ifdef llvm}
{ llvm only } { llvm only }
,top_single
,top_double ,top_double
{$ifdef cpuextended} {$ifdef cpuextended}
,top_extended80 ,top_extended80
@ -311,6 +312,7 @@ interface
top_wstring : (pwstrval: pcompilerwidestring); top_wstring : (pwstrval: pcompilerwidestring);
{$endif jvm} {$endif jvm}
{$ifdef llvm} {$ifdef llvm}
top_single : (sval:single);
top_double : (dval:double); top_double : (dval:double);
{$ifdef cpuextended} {$ifdef cpuextended}
top_extended80 : (eval:extended); top_extended80 : (eval:extended);

25
compiler/llvm/aasmllvm.pas
View File

@ -96,6 +96,7 @@ interface
constructor getelementptr_reg_size_ref_size_const(dst:tregister;ptrsize:tdef;const ref:treference;indextype:tdef;index1:ptrint;indirect:boolean); constructor getelementptr_reg_size_ref_size_const(dst:tregister;ptrsize:tdef;const ref:treference;indextype:tdef;index1:ptrint;indirect:boolean);
procedure loaddef(opidx: longint; _def: tdef); procedure loaddef(opidx: longint; _def: tdef);
procedure loadsingle(opidx: longint; _sval: single);
procedure loaddouble(opidx: longint; _dval: double); procedure loaddouble(opidx: longint; _dval: double);
{$ifdef cpuextended} {$ifdef cpuextended}
procedure loadextended(opidx: longint; _eval: extended); procedure loadextended(opidx: longint; _eval: extended);
@ -205,6 +206,19 @@ uses
end; end;
procedure taillvm.loadsingle(opidx: longint; _sval: single);
begin
allocate_oper(opidx+1);
with oper[opidx]^ do
begin
if typ<>top_single then
clearop(opidx);
sval:=_sval;
typ:=top_single;
end;
end;
procedure taillvm.loaddouble(opidx: longint; _dval: double); procedure taillvm.loaddouble(opidx: longint; _dval: double);
begin begin
allocate_oper(opidx+1); allocate_oper(opidx+1);
@ -503,7 +517,16 @@ uses
ops:=4; ops:=4;
loadreg(0,dst); loadreg(0,dst);
loaddef(1,fromsize); loaddef(1,fromsize);
loaddouble(2,src); if fromsize.typ<>floatdef then
internalerror(2014012214);
case tfloatdef(fromsize).floattype of
s32real:
loadsingle(2,src);
s64real:
loaddouble(2,src);
else
internalerror(2014012215);
end;
loaddef(3,tosize); loaddef(3,tosize);
end; end;

6
compiler/llvm/agllvm.pas
View File

@ -261,6 +261,7 @@ implementation
begin begin
getopstr:=llvm_fpcond2str[o.fpcond]; getopstr:=llvm_fpcond2str[o.fpcond];
end; end;
top_single,
top_double: top_double:
begin begin
{ "When using the hexadecimal form, constants of types half, { "When using the hexadecimal form, constants of types half,
@ -269,7 +270,10 @@ implementation
And always in big endian form (sign bit leftmost) And always in big endian form (sign bit leftmost)
} }
doubleval.d:=o.dval; if o.typ=top_double then
doubleval.d:=o.dval
else
doubleval.d:=o.sval;
result:='0x'+hexstr(doubleval.i,16); result:='0x'+hexstr(doubleval.i,16);
end; end;
top_para: top_para: