* fixed passing currency variables to arrayconstructors on platforms where

currency=int64 git-svn-id: trunk@1400 -
2025-04-19 20:39:25 +02:00 · 2005-10-16 06:04:58 +00:00 · 2005-10-16 06:04:58 +00:00 · 758337d115
commit 758337d115
parent 985c70089d
1 changed files with 2 additions and 0 deletions
--- a/compiler/ncgld.pas
+++ b/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: