mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-23 03:29:41 +02:00
* 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:
parent
aa92d78c46
commit
99e70e7128
@ -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]]
|
||||
|
Loading…
Reference in New Issue
Block a user