Merged revisions 1400 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@1401 -

compiler/ncgld.pas

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