fixed parse error message

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@1593 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Mar 21, 2005 · 85c1ea9 · 85c1ea9
1 parent dce4b06
commit 85c1ea9
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/modeq/absyn_builder/parse.cpp b/modeq/absyn_builder/parse.cpp
@@ -192,7 +192,7 @@ extern "C"
 				if (flat_parse) delete parse;
 				if (lex) delete lex;
 				ast = mk_nil();
-				RML_TAILCALLK(rmlFC);
+				RML_TAILCALLK(rmlSC); // rmlFC
 			}
 
 			if (debug) 
@@ -219,7 +219,7 @@ extern "C"
 			ast = mk_nil();
 			std::cerr << "Error building AST" << std::endl;
 		}
-		RML_TAILCALLK(rmlFC);
+		RML_TAILCALLK(rmlSC); // rmlFC
 	}
 	RML_END_LABEL
 

diff --git a/modeq/main.rml b/modeq/main.rml
@@ -280,7 +280,7 @@ relation handle_command: (string,Interactive.InteractiveSymbolTable)  =>
  	Debug.fprint ("dump", "\n--------------- Parsed program ---------------\n") &
 	Debug.fcall ("dumpgraphviz", DumpGraphviz.dump, newprog) &
 	Debug.fcall ("dump", Dump.dump, newprog) &
-	make_debug_result("dump", "Ok\n") => res' &
+	make_debug_result("dump", msg) => res' &
 	make_debug_result("dumpgraphviz", res') => res
 	----------------------------------------------
 	handle_command (str, Interactive.SYMBOLTABLE(iprog,a,b,vars,cf)) => 
@@ -307,7 +307,7 @@ relation handle_command: (string,Interactive.InteractiveSymbolTable)  =>
 	Debug.fprint ("failtrace", "\nBoth parser and expression parser failed: \n") &
 	Debug.fprintl ("failtrace", ["parser: \n", msg, "\n"]) &
 	Debug.fprintl ("failtrace", ["expparser: \n", expmsg, "\n"]) &
-	make_debug_result("failtrace", "Syntax error\n") => res
+	make_debug_result("failtrace", msg) => res
 	-----------------------------------------------------
 	handle_command (str,isymb) => (true, res, isymb)