mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-19 19:39:36 +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
|
||||
begin
|
||||
hp:=cordconstnode.create(TConstExprInt(tpointerconstnode(left).value),
|
||||
resulttype,true);
|
||||
resulttype,not(nf_explicit in flags));
|
||||
result:=hp;
|
||||
exit;
|
||||
end;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user