- Added clearDebugFlags scripting function for consistency.

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@17676 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 14, 2013 · e0dc550 · e0dc550
1 parent 747b923
commit e0dc550
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 1 deletion.
diff --git a/Compiler/FrontEnd/ModelicaBuiltin.mo b/Compiler/FrontEnd/ModelicaBuiltin.mo
@@ -1218,6 +1218,13 @@ algorithm
 annotation(__OpenModelica_EarlyInline = true, preferredView="text");
 end setDebugFlags;
 
+function clearDebugFlags
+  "Resets all debug flags to their default values."
+  output Boolean success;
+  external "builtin";
+  annotation(preferredView="text");
+end clearDebugFlags;
+
 function setPreOptModules "example input: removeFinalParameters,removeSimpleEquations,expandDerOperator"
   input String modules;
   output Boolean success;
@@ -1308,7 +1315,7 @@ annotation(preferredView="text");
 end setCommandLineOptions;
 
 function clearCommandLineOptions
-  "Resets all commdand-line flags to their default values."
+  "Resets all command-line flags to their default values."
   output Boolean success;
 external "builtin";
 annotation(preferredView="text");

diff --git a/Compiler/Script/CevalScript.mo b/Compiler/Script/CevalScript.mo
@@ -1695,6 +1695,15 @@ algorithm
     case (cache,env,"clearCommandLineOptions",_,st,_)
       then (cache,Values.BOOL(false),st);
 
+    case (cache,env,"clearDebugFlags",_,st,_)
+      equation
+        Flags.resetDebugFlags();
+      then
+        (cache,Values.BOOL(true),st);
+
+    case (cache,env,"clearDebugFlags",_,st,_)
+      then (cache,Values.BOOL(false),st);
+
     case (cache,env,"cd",{Values.STRING("")},st,_)
       equation
         str_1 = System.pwd();