From 48c10791dbde8ccd3b9d05dc823035272976d461 Mon Sep 17 00:00:00 2001
From: Stanislav Gromov <gromovstanislav@yandex.ru>
Date: Sun, 31 Jan 2021 21:45:26 +0700
Subject: [PATCH] Don't count function arguments passed by const reference as
 modified

---
 source/compiler/sc3.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/source/compiler/sc3.c b/source/compiler/sc3.c
index c6f2506..60d67c9 100644
--- a/source/compiler/sc3.c
+++ b/source/compiler/sc3.c
@@ -2402,9 +2402,9 @@ static int nesting=0;
           check_tagmismatch_multiple(arg[argidx].tags,arg[argidx].numtags,lval.tag,-1);
           if (lval.tag!=0)
             append_constval(&taglst,arg[argidx].name,lval.tag,0);
-          argidx++;               /* argument done */
-          if (lval.sym!=NULL)
+          if (lval.sym!=NULL && (arg[argidx].usage & uCONST)==0)
             markusage(lval.sym,uWRITTEN);
+          argidx++;               /* argument done */
           break;
         case iREFARRAY:
           if (lval.ident!=iARRAY && lval.ident!=iREFARRAY