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

* fix range error

Browse Source 
git-svn-id: trunk@10424 -
This commit is contained in:
peter 2008-03-02 14:00:38 +00:00
parent 83b7f81f81
commit 85e904cb36
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ncnv.pas
View File

@ -1983,7 +1983,7 @@ implementation
(torddef(ttypeconvnode(n).left.resultdef).ordtype in [s32bit,u32bit])) or
{ or an ordconstnode which was/is a valid cardinal }
((n.nodetype=ordconstn) and
(tordconstnode(n).value>=low(longint)) and
(tordconstnode(n).value>=int64(low(longint))) and
(tordconstnode(n).value<=high(cardinal)))) then
begin
if ((n.nodetype=typeconvn) and
@ -1995,8 +1995,8 @@ implementation
end;
result:=false;
end;
function docheckremove64bittypeconvs(n: tnode): boolean;
begin
result:=false;