Browse Source

* also create a realconstn for default(currency) on platforms where the
currency type is implemented via int64 (fixes tests/test/tdefault1 on
platforms without an x87)

git-svn-id: trunk@20958 -

Jonas Maebe 13 years ago
parent
commit
98609d4c3e
1 changed files with 5 additions and 1 deletions
  1. 5 1
      compiler/ninl.pas

+ 5 - 1
compiler/ninl.pas

@@ -1409,7 +1409,11 @@ implementation
               TRange1 = -10..-5;
               TRange1 = -10..-5;
               TRange2 = 5..10;
               TRange2 = 5..10;
               TEnum = (a:=5;b:=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,
           classrefdef,
           pointerdef:
           pointerdef:
             result:=cpointerconstnode.create(0,def);
             result:=cpointerconstnode.create(0,def);