Explorar o código

* also report currency as automatable on non-x87 platforms
(may fix mantis #20986)

git-svn-id: trunk@19924 -

Jonas Maebe %!s(int64=13) %!d(string=hai) anos
pai
achega
930883edf6
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      compiler/defutil.pas

+ 1 - 1
compiler/defutil.pas

@@ -1058,7 +1058,7 @@ implementation
         case p.typ of
         case p.typ of
           orddef:
           orddef:
             result:=torddef(p).ordtype in [u8bit,s8bit,u16bit,s16bit,u32bit,s32bit,
             result:=torddef(p).ordtype in [u8bit,s8bit,u16bit,s16bit,u32bit,s32bit,
-              u64bit,s64bit,bool16bit];
+              u64bit,s64bit,bool16bit,scurrency];
           floatdef:
           floatdef:
             result:=tfloatdef(p).floattype in [s64currency,s64real,s32real];
             result:=tfloatdef(p).floattype in [s64currency,s64real,s32real];
           stringdef:
           stringdef: