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

* also create a realconstn for default(currency) on platforms where the

Browse Source 
currency type is implemented via int64 (fixes tests/test/tdefault1 on
    platforms without an x87)

git-svn-id: trunk@20958 -
This commit is contained in:
Jonas Maebe 2012-04-21 18:38:27 +00:00
parent 4934a42389
commit 98609d4c3e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ninl.pas
View File

@ -1409,7 +1409,11 @@ implementation
TRange1 = -10..-5;
TRange2 = 5..10;
TEnum = (a:=5;b:=10); }
result:=cordconstnode.create(0,def,false);
if def<>s64currencytype then
result:=cordconstnode.create(0,def,false)
else
{ in case currency is handled via int64 }
result:=crealconstnode.create(0,def);
classrefdef,
pointerdef:
result:=cpointerconstnode.create(0,def);