paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 11:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix range check error

Browse Source 
git-svn-id: trunk@1439 -
This commit is contained in:
peter 2005-10-17 08:03:08 +00:00
parent 604a9f7ce4
commit d5af8ed9a0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pdecvar.pas
View File

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