瀏覽代碼

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

git-svn-id: trunk@586 -
peter 20 年之前
父節點
當前提交
91b59bc62a
共有 1 個文件被更改,包括 1 次插入1 次删除
  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;