Merged revisions 1439 via svnmerge from

http://[email protected]/svn/fpc/trunk

r1439 (peter)
  * fix range check error

git-svn-id: branches/fixes_2_0@1497 -

compiler/pdecvar.pas

@@ -558,7 +558,7 @@ implementation
                     setconstn :
                       p.default:=plongint(tsetconstnode(pt).value_set)^;
                     ordconstn :
-                      p.default:=tordconstnode(pt).value;
+                      p.default:=longint(tordconstnode(pt).value);
                     niln :
                       p.default:=0;
                     realconstn: