More refactoring

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@16775 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Aug 9, 2013 · fa170fd · fa170fd
1 parent d01eca7
commit fa170fd
Show file tree

Hide file tree

Showing 4 changed files with 100 additions and 101 deletions.
diff --git a/Compiler/FrontEnd/InstTypes.mo b/Compiler/FrontEnd/InstTypes.mo
@@ -51,7 +51,7 @@ type PolymorphicBindings = list<tuple<String,list<DAE.Type>>>;
 constant Boolean alwaysUnroll = true;
 constant Boolean neverUnroll = false;
 
-public uniontype SearchStrategy
+uniontype SearchStrategy
   record SEARCH_LOCAL_ONLY
     "this one searches only in the local scope, it won't find *time* variable"
   end SEARCH_LOCAL_ONLY;
@@ -60,11 +60,15 @@ public uniontype SearchStrategy
   end SEARCH_ALSO_BUILTIN;
 end SearchStrategy;
 
-public uniontype SplicedExpData
+uniontype SplicedExpData
   record SPLICEDEXPDATA "data for 'spliced expression' (typically a component reference) returned in lookupVar"
     Option<DAE.Exp> splicedExp "the spliced expression";
     DAE.Type identType "the type of the variable without subscripts, needed for vectorization";
   end SPLICEDEXPDATA;
 end SplicedExpData;
 
+type TypeMemoryEntry = tuple<DAE.Type, DAE.Type>;
+type TypeMemoryEntryList = list<TypeMemoryEntry>;
+type TypeMemoryEntryListArray = array<TypeMemoryEntryList>;
+
 end InstTypes;
diff --git a/Compiler/FrontEnd/Mod.mo b/Compiler/FrontEnd/Mod.mo
@@ -90,8 +90,8 @@ uniontype FullMod "used for error reporting"
   end SUB_MOD;
 end FullMod;
 
-public type SubMod = DAE.SubMod;
-public type EqMod = DAE.EqMod;
+protected type SubMod = DAE.SubMod;
+protected type EqMod = DAE.EqMod;
 
 public function elabMod "
   This function elaborates on the expressions in a modification and