Add function setSharedOptimica in BackendDAEUtil

OpenModelica · Jul 3, 2015 · 08a8ac2 · 08a8ac2
1 parent d1fdf82
commit 08a8ac2
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/Compiler/BackEnd/BackendDAEUtil.mo b/Compiler/BackEnd/BackendDAEUtil.mo
@@ -8302,6 +8302,23 @@ algorithm
   end match;
 end setSharedAliasVars;
 
+public function setSharedOptimica
+  input BackendDAE.Shared inShared;
+  input list<DAE.Constraint> constraints;
+  input list<DAE.ClassAttributes> classAttrs;
+  output BackendDAE.Shared outShared;
+algorithm
+  outShared := match inShared
+    local
+      BackendDAE.Shared shared;
+    case shared as BackendDAE.SHARED()
+      equation
+        shared.constraints = constraints;
+        shared.classAttrs = classAttrs;
+      then shared;
+  end match;
+end setSharedOptimica;
+
 public function emptyEventInfo
   output BackendDAE.EventInfo info;
 algorithm