paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49: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 if left.nodetype=ordconstn then
begin begin
if inlinenumber=in_succ_x then 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 else
hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,false); hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,true);
result:=hp; result:=hp;
end; end;
end; end;
@ -2380,7 +2380,10 @@ begin
end. end.
{ {
$Log$ $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() * first_pi now just generates a constant, added missing calls to firstpass()
Revision 1.87 2002/09/07 20:42:16 carl Revision 1.87 2002/09/07 20:42:16 carl