Added function Global.initialize() to init roots that are expected to have a default value

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

Author: sjoelund

Compiler/Global/Global.mo

@@ -34,7 +34,7 @@ encapsulated package Global
   package:     Global
   description: Global contains structures that are available globally.
 
-  RCS: $Id: Global.mo 8980 2011-05-13 09:12:21Z adrpo $
+  RCS: $Id$
 
   The Global package contains structures that are available globally."
 
@@ -51,4 +51,9 @@ constant Integer flagsIndex = 7;
 constant Integer builtinGraphEnvIndex = 8;
 constant Integer instOnlyForcedFunctions = 9;
 
+public function initialize "Called to initialize global roots (when needed)"
+algorithm
+  setGlobalRoot(instOnlyForcedFunctions,  NONE());
+end initialize;
+
 end Global;

Compiler/Main/Main.mo

@@ -1035,7 +1035,7 @@ algorithm
   _ := matchcontinue args
     case _
       equation
-        setGlobalRoot(Global.instOnlyForcedFunctions,  NONE());
+        Global.initialize();
         System.realtimeTick(CevalScript.RT_CLOCK_SIMULATE_TOTAL);
         args_1 = Flags.new(args);
         System.gettextInit(Util.if_(Config.getRunningTestsuite(),"C",Flags.getConfigString(Flags.LOCALE_FLAG)));