Browse Source

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

git-svn-id: trunk@586 -
peter 20 years ago
parent
commit
91b59bc62a
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncnv.pas

+ 1 - 1
compiler/ncnv.pas

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