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

* Fixed the detection wether the first check of a for loop can be skipped

Browse Source
This commit is contained in:
daniel 2002-08-22 15:15:20 +00:00
parent 909d705e2f
commit 3d7430e270
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/nflw.pas
View File

@ -639,10 +639,14 @@ implementation
{Can we spare the first comparision?}
if (right.nodetype=ordconstn) and (Tassignmentnode(left).right.nodetype=ordconstn) then
if not(((nf_backward in flags) and
(Tordconstnode(Tassignmentnode(left).right).value>=Tordconstnode(right).value))
or (not(nf_backward in flags) and
(Tordconstnode(Tassignmentnode(left).right).value<=Tordconstnode(right).value))) then
if (
(nf_backward in flags) and
(Tordconstnode(Tassignmentnode(left).right).value>=Tordconstnode(right).value)
)
or not(
(nf_backward in flags) and
(Tordconstnode(Tassignmentnode(left).right).value<=Tordconstnode(right).value)
) then
exclude(flags,nf_testatbegin);
{ save counter var }
@ -1361,7 +1365,10 @@ begin
end.
{
$Log$
Revision 1.47 2002-08-19 19:36:43 peter
Revision 1.48 2002-08-22 15:15:20 daniel
* Fixed the detection wether the first check of a for loop can be skipped
Revision 1.47 2002/08/19 19:36:43 peter
* More fixes for cross unit inlining, all tnodes are now implemented
* Moved pocall_internconst to po_internconst because it is not a
calling type at all and it conflicted when inlining of these small