- Output at most one generic lexer error

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@15401 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Feb 28, 2013 · 954c265 · 954c265
1 parent 3f1e6e9
commit 954c265
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Parser/parse.c b/Parser/parse.c
@@ -161,10 +161,11 @@ static void handleLexerError(pANTLR3_BASE_RECOGNIZER recognizer, pANTLR3_UINT8 *
     chars[1][20] = '\0';
   line = lexer->getLine(lexer);
   offset = lexer->getCharPositionInLine(lexer)+1;
-  if (*chars[1])
+  if (*chars[1] && !ModelicaParser_lexerError) {
     c_add_source_message(2, ErrorType_syntax, ErrorLevel_error, "Lexer got '%s' but failed to recognize the rest: '%s'", (const char**) chars, 2, line, offset, line, offset, false, ModelicaParser_filename_C_testsuiteFriendly);
-  else
+  } else if (!ModelicaParser_lexerError) {
     c_add_source_message(2, ErrorType_syntax, ErrorLevel_error, "Lexer failed to recognize '%s'", (const char**) chars, 1, line, offset, line, offset, false, ModelicaParser_filename_C_testsuiteFriendly);
+  }
   ModelicaParser_lexerError = ANTLR3_TRUE;
   free(chars[0]);
   free(chars[1]);