|
@@ -261,13 +261,13 @@ implementation
|
|
if assigned(tsetdef(right.resultdef).elementdef) then
|
|
if assigned(tsetdef(right.resultdef).elementdef) then
|
|
inserttypeconv(left,tsetdef(right.resultdef).elementdef);
|
|
inserttypeconv(left,tsetdef(right.resultdef).elementdef);
|
|
end
|
|
end
|
|
- else if not is_ordinal(left.resultdef) or (left.resultdef.size > uinttype.size) then
|
|
|
|
|
|
+ else if not is_ordinal(left.resultdef) or (left.resultdef.size > u32inttype.size) then
|
|
begin
|
|
begin
|
|
CGMessage(type_h_in_range_check);
|
|
CGMessage(type_h_in_range_check);
|
|
if is_signed(left.resultdef) then
|
|
if is_signed(left.resultdef) then
|
|
- inserttypeconv(left,sinttype)
|
|
|
|
|
|
+ inserttypeconv(left,s32inttype)
|
|
else
|
|
else
|
|
- inserttypeconv(left,uinttype);
|
|
|
|
|
|
+ inserttypeconv(left,u32inttype);
|
|
end;
|
|
end;
|
|
|
|
|
|
{ empty set then return false }
|
|
{ empty set then return false }
|