BSD 4_3_Tahoe release

[unix-history] / usr / src / ucb / pascal / src / pas.y

diff --git a/usr/src/ucb/pascal/src/pas.y b/usr/src/ucb/pascal/src/pas.y
index 634cded..842f7ff 100644 (file)
--- a/usr/src/ucb/pascal/src/pas.y
+++ b/usr/src/ucb/pascal/src/pas.y
@@ -3,7 +3,7 @@
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *
  * All rights reserved.  The Berkeley software License Agreement
  * specifies the terms and conditions for redistribution.
  *

- *     @(#)pas.y       5.2 (Berkeley) 6/20/85
+ *     @(#)pas.y       5.4 (Berkeley) 1/3/88

  */
 
 /*
  */
 
 /*


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

-/* static      char sccsid[] = "@(#)pas.y 5.2 6/20/85"; */
+/* static      char sccsid[] = "@(#)pas.y 5.4 1/3/88"; */

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


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

-static char sccsid[] = "@(#)pas.y 5.2 6/20/85";
+static char sccsid[] = "@(#)pas.y 5.4 1/3/88";

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


@@ -217,11 +217,11 @@ label_decl:
 
 const_decl:
        YCONST YID '=' const ';'
 
 const_decl:
        YCONST YID '=' const ';'

-               = constbeg($1.i_entry), const(lineof($3.i_entry), $2.cptr,
-                                               $4.tr_entry);
+               = constbeg($1.i_entry, lineof($1.i_entry)),
+                 constant(lineof($3.i_entry), $2.cptr, $4.tr_entry);

                |
        const_decl YID '=' const ';'
                |
        const_decl YID '=' const ';'

-               = const(lineof($3.i_entry), $2.cptr, $4.tr_entry);
+               = constant(lineof($3.i_entry), $2.cptr, $4.tr_entry);

                |
        YCONST error
                = {
                |
        YCONST error
                = {