From 507fc9c1ff58a7b97b3739016838cf06f35f956f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 28 Feb 2020 20:42:54 +0000
Subject: [PATCH] + take care of addn and subn in is_loop_invariant

git-svn-id: trunk@44251 -
---
 compiler/optloop.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compiler/optloop.pas b/compiler/optloop.pas
index b6579fa111..a9cfffb2c8 100644
--- a/compiler/optloop.pas
+++ b/compiler/optloop.pas
@@ -275,6 +275,8 @@ unit optloop;
             end;
           typeconvn:
             result:=is_loop_invariant(loop,ttypeconvnode(expr).left);
+          addn,subn:
+            result:=is_loop_invariant(loop,taddnode(expr).left) and is_loop_invariant(loop,taddnode(expr).right);
           else
             ;
         end;