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

* changed the llvm type of comp/currency in parameter and return type

Browse Source 
on platforms that use the x87 for these types to extended in order
    to gaurantee the expected parameter passing conventions

git-svn-id: trunk@30719 -
This commit is contained in:
Jonas Maebe 2015-04-25 15:51:27 +00:00
parent 491d9cfff1
commit b9138a1c90
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/llvm/llvmdef.pas
View File

@ -764,6 +764,14 @@ implementation
usedef:=cgpara.location^.def;
if beforevalueext then
llvmextractvalueextinfo(cgpara.def,usedef,valueext);
{ comp and currency are handled by the x87 in this case. They cannot
be represented directly in llvm, and llvmdef translates them into
i64 (since that's their storage size and internally they also are
int64). Solve this by changing the type to s80real in the
returndef/parameter declaration. }
if (usedef.typ=floatdef) and
(tfloatdef(usedef).floattype in [s64comp,s64currency]) then
usedef:=s80floattype;
result:=usedef;
exit
end;