Do not get algorithm crefs that will be discarded

This fixes the scaling issue of evaluateParameters.

ticket:4552

Belonging to [master]:
  - OpenModelica/OMCompiler#1914

Compiler/BackEnd/BackendVarTransform.mo

@@ -1729,7 +1729,7 @@ algorithm
 
     case (BackendDAE.ALGORITHM(size=size, alg=DAE.ALGORITHM_STMTS(statementLst=stmts), source=source, expand=crefExpand, attr=eqAttr), repl, _, _, _)
       equation
-        (crefs,_) = Expression.extractUniqueCrefsFromStatmentS(stmts);
+        crefs = Expression.getLhsCrefsFromStatements(stmts);
         // if there is no need for expanding the original equation, the replaced one shouldn't either
         hasArrayCref = List.exist(crefs,ComponentReference.isArrayElement);
         crefExpand = if hasArrayCref then crefExpand else DAE.NOT_EXPAND();

Compiler/FrontEnd/Expression.mo

@@ -6260,6 +6260,68 @@ algorithm
   end match;
 end extractCrefsStatment;
 
+public function getLhsCrefsFromStatements "Extracts all lhs crefs from Statements.
+  author: ptaeuber"
+  input list<DAE.Statement> inStmts;
+  output list<DAE.ComponentRef> lhsCrefs;
+protected
+  list<list<DAE.ComponentRef>> lhsCrefsLst;
+algorithm
+  lhsCrefsLst := List.map(inStmts,getLhsCrefsFromStatement);
+  lhsCrefs := List.flatten(lhsCrefsLst);
+end getLhsCrefsFromStatements;
+
+protected function getLhsCrefsFromStatement "Extracts all lhs crefs from a statement.
+  author: ptaeuber"
+  input DAE.Statement inStmt;
+  output list<DAE.ComponentRef> lhsCrefs;
+algorithm
+  lhsCrefs := match(inStmt)
+    local
+      Exp exp1,exp2;
+      list<DAE.Exp> expLst;
+      list<DAE.Statement> stmtLst;
+
+    case DAE.STMT_ASSIGN(exp1 = exp1)
+      equation
+        lhsCrefs = extractCrefsFromExpDerPreStart(exp1);
+      then lhsCrefs;
+
+    case DAE.STMT_TUPLE_ASSIGN(expExpLst = expLst)
+      equation
+        lhsCrefs = List.flatten(List.map(expLst, extractCrefsFromExpDerPreStart));
+      then lhsCrefs;
+
+    case DAE.STMT_ASSIGN_ARR(lhs = exp1)
+      equation
+        lhsCrefs = extractCrefsFromExpDerPreStart(exp1);
+      then lhsCrefs;
+
+    case DAE.STMT_IF(statementLst = stmtLst)
+      equation
+        lhsCrefs = getLhsCrefsFromStatements(stmtLst);
+      then lhsCrefs;
+
+    case DAE.STMT_FOR(statementLst = stmtLst)
+      equation
+        lhsCrefs = getLhsCrefsFromStatements(stmtLst);
+      then lhsCrefs;
+
+    case DAE.STMT_WHILE(statementLst = stmtLst)
+      equation
+        lhsCrefs = getLhsCrefsFromStatements(stmtLst);
+      then lhsCrefs;
+
+    case DAE.STMT_WHEN(statementLst = stmtLst)
+      equation
+        lhsCrefs = getLhsCrefsFromStatements(stmtLst);
+      then lhsCrefs;
+
+    else {};
+
+  end match;
+end getLhsCrefsFromStatement;
+
 public function expHasInitial "
  returns true if the expression contains any initial() call"
   input DAE.Exp exp;