Use singleton records without matching

This is demonstrating the new language features from 41d43d5.
OpenModelica · Jul 3, 2015 · 4306540 · 4306540
1 parent 0693901
commit 4306540
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 12 deletions.
diff --git a/Compiler/BackEnd/BackendDAEUtil.mo b/Compiler/BackEnd/BackendDAEUtil.mo
@@ -8096,15 +8096,9 @@ end setFunctionTree;
 public function setEqSystEqs
   input BackendDAE.EqSystem inSyst;
   input BackendDAE.EquationArray inEqs;
-  output BackendDAE.EqSystem outSyst;
+  output BackendDAE.EqSystem syst = inSyst;
 algorithm
-  outSyst := match inSyst
-    local
-      BackendDAE.EqSystem syst;
-    case syst as BackendDAE.EQSYSTEM()
-      algorithm syst.orderedEqs := inEqs;
-      then syst;
-  end match;
+  syst.orderedEqs := inEqs;
 end setEqSystEqs;
 
 public function setEqSystVars

diff --git a/Compiler/BackEnd/BackendEquation.mo b/Compiler/BackEnd/BackendEquation.mo
@@ -1264,11 +1264,8 @@ public function equationAddDAE "author: Frenkel TUD 2011-05"
   input BackendDAE.Equation inEquation;
   input BackendDAE.EqSystem inEqSystem;
   output BackendDAE.EqSystem outEqSystem;
-protected
-  BackendDAE.EquationArray eqs;
 algorithm
-  BackendDAE.EQSYSTEM(orderedEqs=eqs) := inEqSystem;
-  outEqSystem := BackendDAEUtil.setEqSystEqs(inEqSystem, addEquation(inEquation, eqs));
+  outEqSystem := BackendDAEUtil.setEqSystEqs(inEqSystem, addEquation(inEquation, inEqSystem.orderedEqs));
   outEqSystem := BackendDAEUtil.setEqSystMatching(outEqSystem, BackendDAE.NO_MATCHING());
 end equationAddDAE;