- Fixed some errors RML ignores

git-svn-id: https://openmodelica.org/svn/OpenModelica/branches/sjoelund-functiontree@6466 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 20, 2010 · 540e17b · 540e17b
1 parent 5e33d05
commit 540e17b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 8 deletions.
diff --git a/Compiler/Interactive.mo b/Compiler/Interactive.mo
@@ -7968,7 +7968,7 @@ protected function classHasLocalClasses
   input Absyn.Class cl;
   output Boolean res;
 algorithm
-  cl := matchcontinue(cl)
+  res := matchcontinue(cl)
   local list<Absyn.ClassPart> parts;
     /* a class with parts */
     case(Absyn.CLASS(body= Absyn.PARTS(classParts = parts))) equation
@@ -17351,7 +17351,7 @@ protected function transformFlatElseIfAlgorithm
   input tuple<Absyn.Exp, list<Absyn.AlgorithmItem>> elseIfbranch;
   output tuple<Absyn.Exp, list<Absyn.AlgorithmItem>> outElseIfbranch;
 algorithm
-  outElseIfBranch := matchcontinue(elseIfbranch)
+  outElseIfbranch := matchcontinue(elseIfbranch)
     local
       Absyn.Exp e1,e11;
       list<Absyn.AlgorithmItem> algitems,algitems1;
@@ -17569,7 +17569,6 @@ algorithm
     local
       Absyn.Exp e1,e2,e11,e21;
       Absyn.Ident id;
-      list<Absyn.NamedArg> nargs;
     case({},rel,ext_arg) then (({},ext_arg));
  	  case(Absyn.NAMEDARG(id,e1)::nargs,rel,ext_arg)
  	    equation
@@ -17597,7 +17596,6 @@ algorithm
     local
       Absyn.Exp e1,e2,e11,e21;
       Absyn.Ident id;
-      list<Absyn.Exp> pargs;
  	  case({},rel,ext_arg) then (({},ext_arg));
  	  case(e1::pargs,rel,ext_arg)
  	    equation

diff --git a/Compiler/ValuesUtil.mo b/Compiler/ValuesUtil.mo
@@ -1954,7 +1954,7 @@ public function valString2 "function: valString
 "
   input Value inValue;
 algorithm
-  outString:=
+  _ :=
   matchcontinue (inValue)
     local
       String s,s_1,s_2,res,res_1;
@@ -2080,7 +2080,7 @@ algorithm
         Print.printBuf(s);
       then
         ();
-    case(Values.NORETCALL) then ();
+    case(Values.NORETCALL()) then ();
     case (Values.META_FAIL())
       equation
         Print.printBuf("fail()");
@@ -2100,7 +2100,7 @@ protected function valRecordString
   input list<Value> xs;
   input list<String> ids;
 algorithm
-  outString := matchcontinue (xs,ids)
+  _ := matchcontinue (xs,ids)
     local
       Absyn.Path cname;
       String s1,s2,res,id;
@@ -2137,7 +2137,7 @@ protected function valListString "function: valListString
 "
   input list<Value> inValueLst;
 algorithm
-  outString:=
+  _ :=
   matchcontinue (inValueLst)
     local
       Value v;