One more bugfix for (MC bug 443).

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@2150 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Feb 21, 2006 · 6795522 · 6795522
1 parent 4c43de1
commit 6795522
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/Compiler/Exp.rml b/Compiler/Exp.rml
@@ -2684,6 +2684,10 @@ relation unelab_exp : Exp => Absyn.Exp =
   rule	unelab_cref(cr) => cr'
 	----------------
 	unelab_exp(CREF(cr,t))=> Absyn.CREF(cr')
+
+  rule	Util.list_map(expl,unelab_exp) => expl' 
+	---------------------------
+	unelab_exp(ARRAY(tp,b,expl)) => Absyn.ARRAY(expl')
 end
 
 (** relation: unelab_cref

diff --git a/Compiler/Mod.rml b/Compiler/Mod.rml
@@ -185,7 +185,8 @@ relation unelab_mod: Types.Mod => SCode.Mod =
 	  =>  SCode.REDECL(final, elist')
 
   rule	Print.print_buf "#-- elab_untyped_mod failed:\n" &
-	print "- unelab_mod failed\n" 
+	print "- unelab_mod failed :" &
+	print_mod_str(mod) => s & print s & print "\n" 
 	----------
 	unelab_mod (mod) => fail
 end