Fix build on MSVC

ocaml · Apr 4, 2017 · f2950b5 · f2950b5
1 parent 78509fb
commit f2950b5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/yacc/reader.c b/yacc/reader.c
@@ -1231,7 +1231,6 @@ void add_symbol(void)
 
 void copy_action(void)
 {
-    push_stack('{');
     register int c;
     register int i, n;
     int depth;
@@ -1242,6 +1241,7 @@ void copy_action(void)
     char *a_line = dup_line();
     char *a_cptr = a_line + (cptr - line);
 
+    push_stack('{');
     if (last_was_action) syntax_error (lineno, line, cptr);
     last_was_action = 1;