- Fixed redeclaration modifiers for arrays, i.e. 'each redeclare'.

- Implemented SCode dumping of defineunit.
- Updated test suite.


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

Compiler/FrontEnd/Mod.mo

@@ -1616,7 +1616,7 @@ algorithm
       Integer idx;
 
     case (DAE.NOMOD(),_) then DAE.NOMOD();  /* indx */
-    case (DAE.REDECL(finalPrefix = _),_) then DAE.NOMOD();
+    case (DAE.REDECL(finalPrefix = _),_) then inMod;
     case (DAE.MOD(finalPrefix = f,eachPrefix = SCode.NOT_EACH(),subModLst = subs,eqModOption = eq),idx)
       equation
         (_,subs_1) = lookupIdxModification2(subs,idx);

Compiler/FrontEnd/Types.mo

@@ -3554,7 +3554,7 @@ algorithm
     case ((DAE.T_NOTYPE(), _)) then etOther;
     case ((DAE.T_ANYTYPE(_), _)) then etOther;
 
-    case ((DAE.T_COMPLEX(complexVarLst={},complexTypeOption=SOME(t)),_)) then elabType(t);
+    case ((DAE.T_COMPLEX(complexTypeOption=SOME(t)),_)) then elabType(t);
 
     // see if we have it in memory
     case (inType as (tt, _))

Compiler/susan_codegen/SimCode/SCodeDumpTpl.tpl

@@ -258,7 +258,16 @@ match component
 end dumpComponent;
 
 template dumpDefineUnit(SCode.Element defineUnit)
-::= errorMsg("SCodeDump.dumpDefineUnit not implemented.")
+::=
+match defineUnit
+  case DEFINEUNIT(__) then
+    let vis_str = dumpVisibility(visibility)
+    let exp_str = match exp case SOME(e) then 'exp = "<%e%>"'
+    let weight_str = match weight case SOME(w) then 'weight = <%w%>'
+    let args_str = {exp_str, weight_str} ;separator=", "
+    let pb = if args_str then '('
+    let pe = if args_str then ')'
+    'defineunit <%name%><%pb%><%args_str%><%pe%>'
 end dumpDefineUnit;
 
 template dumpEnumLiteral(SCode.Enum enum)