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

+ Patch from peter to fix bug #3272

Browse Source
This commit is contained in:
michael 2004-08-30 12:09:45 +00:00
parent 9ced5ec803
commit 55eea27447
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/nflw.pas
View File

@ -700,16 +700,19 @@ implementation
end;
{Can we spare the first comparision?}
if (right.nodetype=ordconstn) and (Tassignmentnode(left).right.nodetype=ordconstn) then
if (
(lnf_backward in loopflags) and
(Tordconstnode(Tassignmentnode(left).right).value>=Tordconstnode(right).value)
)
or not(
(lnf_backward in loopflags) and
(Tordconstnode(Tassignmentnode(left).right).value<=Tordconstnode(right).value)
) then
exclude(loopflags,lnf_testatbegin);
if (right.nodetype=ordconstn) and
(Tassignmentnode(left).right.nodetype=ordconstn) and
(
(
(lnf_backward in loopflags) and
(Tordconstnode(Tassignmentnode(left).right).value>=Tordconstnode(right).value)
) or
(
not(lnf_backward in loopflags) and
(Tordconstnode(Tassignmentnode(left).right).value<=Tordconstnode(right).value)
)
) then
exclude(loopflags,lnf_testatbegin);
{ save counter var }
t2:=tassignmentnode(left).left.getcopy;
@ -1471,7 +1474,10 @@ begin
end.
{
$Log$
Revision 1.98 2004-06-20 08:55:29 florian
Revision 1.99 2004-08-30 12:09:45 michael
+ Patch from peter to fix bug 3272
Revision 1.98 2004/06/20 08:55:29 florian
* logs truncated
Revision 1.97 2004/06/16 20:07:08 florian