mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-21 19:39:40 +01:00
* don't check ranges for explicit typecasts of ordinal to pointer constants
git-svn-id: trunk@586 -
This commit is contained in:
parent
f673f050a8
commit
91b59bc62a
@ -1716,7 +1716,7 @@ implementation
|
|||||||
else if is_ordinal(resulttype.def) then
|
else if is_ordinal(resulttype.def) then
|
||||||
begin
|
begin
|
||||||
hp:=cordconstnode.create(TConstExprInt(tpointerconstnode(left).value),
|
hp:=cordconstnode.create(TConstExprInt(tpointerconstnode(left).value),
|
||||||
resulttype,true);
|
resulttype,not(nf_explicit in flags));
|
||||||
result:=hp;
|
result:=hp;
|
||||||
exit;
|
exit;
|
||||||
end;
|
end;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user