* do not allow implicit conversions from currency to orddef even if currency

is implemented via int64 (prevents e.g. calling abs(int64) for
    abs(currency) on non-x86)

git-svn-id: trunk@21097 -
This commit is contained in:
Jonas Maebe 2012-04-28 14:27:17 +00:00
parent aa92d78c46
commit 99e70e7128

View File

@ -290,7 +290,10 @@ implementation
internalerror(200210061);
end;
end
else
{ currency cannot be implicitly converted to an ordinal
type }
else if not is_currency(def_from) or
(cdo_explicit in cdoptions) then
begin
if cdo_explicit in cdoptions then
doconv:=basedefconvertsexplicit[basedeftbl[torddef(def_from).ordtype],basedeftbl[torddef(def_to).ordtype]]