Workaround crash in issue #2487 in GAP 4.9

This imitates a change already in the master branch.
gap-system · Jul 3, 2018 · c9f2b58 · c9f2b58
1 parent 3ff99ff
commit c9f2b58
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/scanner.c b/src/scanner.c
@@ -39,12 +39,8 @@ void            SyntaxError (
     OpenOutput( "*errout*" );
     assert(STATE(Output));
 
-    /* one more error                                                      */
-    STATE(NrError)++;
-    STATE(NrErrLine)++;
-
     /* do not print a message if we found one already on the current line  */
-    if ( STATE(NrErrLine) == 1 )
+    if ( STATE(NrErrLine) == 0 )
 
       {
         /* print the message and the filename, unless it is '*stdin*'          */
@@ -70,6 +66,11 @@ void            SyntaxError (
     assert(STATE(Output));
     CloseOutput();
     assert(STATE(Output));
+
+    /* one more error                                                      */
+    STATE(NrError)++;
+    STATE(NrErrLine)++;
+
 }
 
 /****************************************************************************