|
@@ -289,7 +289,9 @@ implementation
|
|
end
|
|
end
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
- if not(is_signed(left.resultdef)) then
|
|
|
|
|
|
+ { do not use is_signed here as it checks the boundaries instead
|
|
|
|
+ of the ordtype }
|
|
|
|
+ if not(torddef(left.resultdef).ordtype in [s32bit,s64bit]) then
|
|
Internalerror(2020101001);
|
|
Internalerror(2020101001);
|
|
case location.size of
|
|
case location.size of
|
|
OS_F32:
|
|
OS_F32:
|