Added split_arrays

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@424 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Sep 15, 1998 · 3887404 · 3887404
1 parent 26683b2
commit 3887404
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/modeq/runtime/rtopts.c b/modeq/runtime/rtopts.c
@@ -5,10 +5,12 @@
 #include <errno.h>
 
 static int type_info;
+static int split_arrays;
 
 void RTOpts_5finit(void)
 {
   type_info = 0;
+  split_arrays = 1;
 }
 
 RML_BEGIN_LABEL(RTOpts__args)
@@ -32,6 +34,10 @@ RML_BEGIN_LABEL(RTOpts__args)
       case 't':
 	type_info = 1;
 	break;
+      case 'a':
+	split_arrays = 0;
+	type_info = 0;
+	break;
       default:
 	fprintf(stderr, "# Unknown option: %s\n", arg);
 	RML_TAILCALLK(rmlFC);
@@ -53,3 +59,10 @@ RML_BEGIN_LABEL(RTOpts__typeinfo)
   RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL
+
+RML_BEGIN_LABEL(RTOpts__split_5farrays)
+{
+  rmlA0 = RML_PRIM_MKBOOL(split_arrays);
+  RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL