* fixed passing currency variables to arrayconstructors on platforms where

    currency=int64

git-svn-id: trunk@1400 -

compiler/ncgld.pas

@@ -778,6 +778,8 @@ implementation
                        if is_64bit(lt) then
                          begin
                             case torddef(lt).typ of
+                              scurrency:
+                                vtype:=vtCurrency;
                               s64bit:
                                 vtype:=vtInt64;
                               u64bit: