expand code comment in perly.y
authorDavid Mitchell <davem@iabyn.com>
Thu, 16 Nov 2017 09:23:53 +0000 (09:23 +0000)
committerDavid Mitchell <davem@iabyn.com>
Thu, 16 Nov 2017 09:32:26 +0000 (09:32 +0000)
ASSIGNOP includes mutators like += as well as basic assignment

NPD

perly.act
perly.h
perly.tab
perly.y

index a201902..610963f 100644 (file)
--- a/perly.act
+++ b/perly.act
@@ -1,6 +1,6 @@
 /* -*- buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by ./regen_perly.pl from perly.y.
+   This file is built by regen_perly.pl from perly.y.
    Any changes made here will be lost!
  */
 
@@ -1983,6 +1983,6 @@ case 2:
     
 
 /* Generated from:
- * 4667736d3c31a5169bab73c89d70a27dbce5ea4fe7e3c332a236f8a210aafdc2 perly.y
+ * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
  * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl
  * ex: set ro: */
diff --git a/perly.h b/perly.h
index eb14b42..765d07c 100644 (file)
--- a/perly.h
+++ b/perly.h
@@ -1,17 +1,17 @@
 /* -*- buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by ./regen_perly.pl from perly.y.
+   This file is built by regen_perly.pl from perly.y.
    Any changes made here will be lost!
  */
 
 #define PERL_BISON_VERSION  30000
 
 #ifdef PERL_CORE
-/* A Bison parser, made by GNU Bison 3.0.4.  */
+/* A Bison parser, made by GNU Bison 3.0.2.  */
 
 /* Bison interface for Yacc-like parsers in C
 
-   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
+   Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
 
    This program is free software: you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
@@ -160,7 +160,7 @@ S_is_opval_token(int type) {
 #endif /* PERL_IN_TOKE_C */
 #endif /* PERL_CORE */
 #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
-
+typedef union YYSTYPE YYSTYPE;
 union YYSTYPE
 {
 
@@ -171,8 +171,6 @@ union YYSTYPE
     GV *gvval;
 
 };
-
-typedef union YYSTYPE YYSTYPE;
 # define YYSTYPE_IS_TRIVIAL 1
 # define YYSTYPE_IS_DECLARED 1
 #endif
@@ -183,6 +181,6 @@ int yyparse (void);
 
 
 /* Generated from:
- * 4667736d3c31a5169bab73c89d70a27dbce5ea4fe7e3c332a236f8a210aafdc2 perly.y
+ * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
  * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl
  * ex: set ro: */
index 9ca5ae8..f4be1fc 100644 (file)
--- a/perly.tab
+++ b/perly.tab
@@ -1,6 +1,6 @@
 /* -*- buffer-read-only: t -*-
    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
-   This file is built by ./regen_perly.pl from perly.y.
+   This file is built by regen_perly.pl from perly.y.
    Any changes made here will be lost!
  */
 
@@ -1111,6 +1111,6 @@ static const toketypes yy_type_tab[] =
 };
 
 /* Generated from:
- * 4667736d3c31a5169bab73c89d70a27dbce5ea4fe7e3c332a236f8a210aafdc2 perly.y
+ * 78f9e1daf948a161b43e7457943b7d91cada7c92c8b941a1c1dbbc23c2c10aa8 perly.y
  * b6fae5748f9bef6db4740aa5e122b84ac5181852d42474d0ecad621fa4253306 regen_perly.pl
  * ex: set ro: */
diff --git a/perly.y b/perly.y
index 0a7c30c..8f3e303 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -962,7 +962,7 @@ subscripted:    gelem '{' expr ';' '}'        /* *main::{something} */
     ;
 
 /* Binary operators between terms */
-termbinop:     term ASSIGNOP term                     /* $x = $y */
+termbinop:     term ASSIGNOP term                     /* $x = $y, $x += $y */
                        { $$ = newASSIGNOP(OPf_STACKED, $1, $2, $3); }
        |       term POWOP term                        /* $x ** $y */
                        { $$ = newBINOP($2, 0, scalar($1), scalar($3)); }