paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 18:49:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* also report currency as automatable on non-x87 platforms

Browse Source 
(may fix mantis #20986)

git-svn-id: trunk@19924 -
This commit is contained in:
Jonas Maebe 2011-12-30 12:30:12 +00:00
parent 3b32e6986b
commit 930883edf6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/defutil.pas
View File

@ -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: