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

* check ranges for pred() and succ()

Browse Source
This commit is contained in:
peter 2002-09-09 19:41:01 +00:00
parent 1258411f72
commit 1df5c70e42
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ninl.pas
View File

@ -1600,9 +1600,9 @@ implementation
if left.nodetype=ordconstn then
begin
if inlinenumber=in_succ_x then
hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,false)
hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,true)
else
hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,false);
hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,true);
result:=hp;
end;
end;
@ -2380,7 +2380,10 @@ begin
end.
{
$Log$
Revision 1.88 2002-09-08 13:01:25 jonas
Revision 1.89 2002-09-09 19:41:01 peter
* check ranges for pred() and succ()
Revision 1.88 2002/09/08 13:01:25 jonas
* first_pi now just generates a constant, added missing calls to firstpass()
Revision 1.87 2002/09/07 20:42:16 carl