* range error

git-svn-id: trunk@5509 -

compiler/ptconst.pas

@@ -242,10 +242,10 @@ implementation
           if (p.nodetype = pointerconstn) then
             begin
               if sizeof(TConstPtrUInt)=8 then
-                list.concat(Tai_const.Create_64bit(TConstPtrUInt(tpointerconstnode(p).value)))
+                list.concat(Tai_const.Create_64bit(int64(tpointerconstnode(p).value)))
               else
                 if sizeof(TConstPtrUInt)=4 then
-                  list.concat(Tai_const.Create_32bit(TConstPtrUInt(tpointerconstnode(p).value)))
+                  list.concat(Tai_const.Create_32bit(longint(tpointerconstnode(p).value)))
               else
                 internalerror(200404122);
             end