From b7f58dd8c8eacbbfe8aaf8632b6617228ded7485 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 27 Oct 2019 16:53:26 +0000
Subject: [PATCH]   * load nodes for variables in registers do not generated
 instructions, so their complexity is zero

git-svn-id: trunk@43319 -
---
 compiler/nutils.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/nutils.pas b/compiler/nutils.pas
index 3d498e6d51..70dd7a0053 100644
--- a/compiler/nutils.pas
+++ b/compiler/nutils.pas
@@ -777,7 +777,8 @@ implementation
                   if (tloadnode(p).symtableentry.typ=staticvarsym) and
                      (vo_is_thread_var in tstaticvarsym(tloadnode(p).symtableentry).varoptions) then
                     inc(result,5)
-                  else
+                  else if not((tloadnode(p).symtableentry.typ in [staticvarsym,localvarsym,paravarsym,fieldvarsym]) and
+                    (tabstractvarsym(tloadnode(p).symtableentry).varregable in [vr_intreg,vr_mmreg,vr_fpureg])) then
                     inc(result);
                   if (tloadnode(p).symtableentry.typ=paravarsym) and tloadnode(p).is_addr_param_load then
                     inc(result);