Add function clearEqSyst

OpenModelica · Jun 30, 2015 · ddeca2f · ddeca2f
1 parent 7f24872
commit ddeca2f
Showing 1 changed file with 14 additions and 0 deletions.
diff --git a/Compiler/BackEnd/BackendDAEUtil.mo b/Compiler/BackEnd/BackendDAEUtil.mo
@@ -8215,6 +8215,20 @@ algorithm
   outSyst := BackendDAE.EQSYSTEM(orderedVars=inVars, orderedEqs=eqs, m=m, mT=mT, matching=matching, stateSets=stateSets, partitionKind=partitionKind);
 end setEqSystVars;
 
+public function clearEqSyst
+  input BackendDAE.EqSystem inSyst;
+  output BackendDAE.EqSystem outSyst;
+protected
+  BackendDAE.Variables vars;
+  BackendDAE.EquationArray eqs;
+  BackendDAE.StateSets stateSets;
+  BackendDAE.BaseClockPartitionKind partitionKind;
+algorithm
+  BackendDAE.EQSYSTEM(orderedVars=vars, orderedEqs=eqs, stateSets=stateSets, partitionKind=partitionKind) := inSyst;
+  outSyst := BackendDAE.EQSYSTEM( orderedVars=vars, orderedEqs=eqs, m=NONE(), mT=NONE(),
+                                  matching=BackendDAE.NO_MATCHING(), stateSets=stateSets, partitionKind=partitionKind );
+end clearEqSyst;
+
 public function setEqSystMatching
   input BackendDAE.EqSystem inSyst;
   input BackendDAE.Matching matching;