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

* only enumerations have range checking for succ/pred in const section

Browse Source
This commit is contained in:
carl 2002-09-13 19:12:09 +00:00
parent c5eb27f475
commit 98468d63e9
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ninl.pas
View File

@ -1115,6 +1115,7 @@ implementation
hp : tnode;
srsym : tsym;
isreal : boolean;
checkrange : boolean;
label
myexit;
begin
@ -1595,14 +1596,20 @@ implementation
(tenumdef(resulttype.def).has_jumps) then
CGMessage(type_e_succ_and_pred_enums_with_assign_not_possible);
end;
{ only if the result is an enum do we do range checking }
if (resulttype.def.deftype=enumdef) then
checkrange := true
else
checkrange := false;
{ do constant folding after check for jumps }
if left.nodetype=ordconstn then
begin
if inlinenumber=in_succ_x then
hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,true)
hp:=cordconstnode.create(tordconstnode(left).value+1,left.resulttype,checkrange)
else
hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,true);
hp:=cordconstnode.create(tordconstnode(left).value-1,left.resulttype,checkrange);
result:=hp;
end;
end;
@ -2380,7 +2387,10 @@ begin
end.
{
$Log$
Revision 1.89 2002-09-09 19:41:01 peter
Revision 1.90 2002-09-13 19:12:09 carl
* only enumerations have range checking for succ/pred in const section
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