- Added setVectorizationLimit as an API command.

- Cleaned up implementation of vectorization limit in RTOpts, and sprinkled some
  comments on it.


git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@5915 f25d12d1-65f4-0310-ae8a-bbce733d8d8e

Author: perost

Compiler/Interactive.mo

@@ -1665,6 +1665,23 @@ algorithm
       then
         (top_names_str,newst);
 
+    case (ISTMTS(interactiveStmtLst =
+      {IEXP(exp = Absyn.CALL(function_ = Absyn.CREF_IDENT(name = "setVectorizationLimit"),
+      functionArgs = Absyn.FUNCTIONARGS(args = {Absyn.INTEGER(value = limit)},
+        argNames = {})))}), st)
+      local
+        Integer limit;
+        Boolean res;
+      equation
+        RTOpts.setVectorizationLimit(limit);
+      then
+        ("true", st); 
+    
+    case (ISTMTS(interactiveStmtLst =
+      {IEXP(exp = Absyn.CALL(function_ = Absyn.CREF_IDENT(name = "setVectorizationLimit")))}),st)
+      then
+        ("false", st);
+
   end matchcontinue;
 end evaluateGraphicalApi2;
 

Compiler/RTOpts.mo

@@ -198,8 +198,17 @@ public function setNoSimplify
 end setNoSimplify;
 
 public function vectorizationLimit
+  "Returns the vectorization limit that is used to determine how large an array
+  can be before it no longer is expanded by Static.crefVectorize."
   output Integer limit;
+  external "C";
 end vectorizationLimit;
 
+public function setVectorizationLimit
+  "Sets the vectorization limit, see vectorizationLimit above."
+  input Integer limit;
+  external "C";
+end setVectorizationLimit;
+
 end RTOpts;
 

Compiler/runtime/rtopts.c

@@ -61,7 +61,7 @@ int simulation_cg;
 int silent;
 char* simulation_code_target = "gcc";
 char* class_to_instantiate = "";
-int vectorization_limit;
+long vectorization_limit;
 
 /*
  * adrpo 2007-06-11
@@ -259,6 +259,16 @@ int check_debug_flag(char const* strdata)
   return flg;
 }
 
+void set_vectorization_limit(long limit)
+{
+  if(limit < 0) {
+    vectorization_limit = 20;
+    fprintf(stderr, "Warning, invalid vectorization limit (using default limit %ld\n", vectorization_limit);
+  } else {
+    vectorization_limit = limit;
+  }
+}
+
 #define VERSION_OPT1        "++v"
 #define VERSION_OPT2        "+version"
 #define ANNOTATION_VERSION  "+annotationVersion"
@@ -457,11 +467,7 @@ RML_BEGIN_LABEL(RTOpts__args)
           fprintf(stderr, "# Flag Usage:  +v=<vectorization limit>");
           RML_TAILCALLK(rmlFC); /* fail */
         }
-        vectorization_limit = (int)atoi(&arg[3]);
-        if (vectorization_limit < 0) {
-          vectorization_limit = 20;
-          fprintf(stderr, "Warning, invalid vectorization limit (using default limit %ld\n", vectorization_limit);
-        }
+        set_vectorization_limit(atol(&arg[3]));
         break;
       default:
         fprintf(stderr, "# Unknown option: %s\n", arg);
@@ -694,3 +700,11 @@ RML_BEGIN_LABEL(RTOpts__vectorizationLimit)
 	RML_TAILCALLK(rmlSC);
 }
 RML_END_LABEL
+
+RML_BEGIN_LABEL(RTOpts__setVectorizationLimit)
+{
+  long limit = (long)RML_IMMEDIATE(RML_UNTAGFIXNUM(rmlA0));
+  set_vectorization_limit(limit);
+	RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL