mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 09:26:15 +02:00
+ support u64bit as well in defutil.range_to_basetype
git-svn-id: branches/i8086@24173 -
This commit is contained in:
parent
59976c3ac8
commit
2486009d37
@ -392,8 +392,10 @@ implementation
|
|||||||
range_to_basetype:=s32bit
|
range_to_basetype:=s32bit
|
||||||
else if (l>=low(cardinal)) and (h<=high(cardinal)) then
|
else if (l>=low(cardinal)) and (h<=high(cardinal)) then
|
||||||
range_to_basetype:=u32bit
|
range_to_basetype:=u32bit
|
||||||
|
else if (l>=low(int64)) and (h<=high(int64)) then
|
||||||
|
range_to_basetype:=s64bit
|
||||||
else
|
else
|
||||||
range_to_basetype:=s64bit;
|
range_to_basetype:=u64bit;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user