* don't check ranges for explicit typecasts of ordinal to pointer constants

git-svn-id: trunk@586 -
This commit is contained in:
peter 2005-07-05 07:14:30 +00:00
parent f673f050a8
commit 91b59bc62a

View File

@ -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;