fully expand reduce rules; so error recovery changes `external' to `forward'.

SCCS-vsn: usr.bin/pascal/src/pas.y 1.9

diff --git a/usr/src/usr.bin/pascal/src/pas.y b/usr/src/usr.bin/pascal/src/pas.y
index cb56a29..23c854b 100644 (file)
--- a/usr/src/usr.bin/pascal/src/pas.y
+++ b/usr/src/usr.bin/pascal/src/pas.y
@@ -88,7 +88,7 @@
 
 /* Copyright (c) 1979 Regents of the University of California */
 
 
 /* Copyright (c) 1979 Regents of the University of California */
 

-/* static      char sccsid[] = "@(#)pas.y 1.8 %G%"; */
+/* static      char sccsid[] = "@(#)pas.y 1.9 %G%"; */

 
 /*
  * The following line marks the end of the yacc
 
 /*
  * The following line marks the end of the yacc


@@ -98,7 +98,7 @@
 ##
 /* Copyright (c) 1979 Regents of the University of California */
 
 ##
 /* Copyright (c) 1979 Regents of the University of California */
 

-static char sccsid[] = "@(#)pas.y 1.8 %G%";
+static char sccsid[] = "@(#)pas.y 1.9 %G%";

 
 #include "whoami.h"
 #include "0.h"
 
 #include "whoami.h"
 #include "0.h"


@@ -282,6 +282,8 @@ proc_decl:
                |
        pheadres decls block ';'
                = funcend($1, $3, lineof($4));
                |
        pheadres decls block ';'
                = funcend($1, $3, lineof($4));

+               |
+       phead error

                ;
 pheadres:
        phead
                ;
 pheadres:
        phead