Explorar o código

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

git-svn-id: trunk@586 -
peter %!s(int64=20) %!d(string=hai) anos
pai
achega
91b59bc62a
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  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;