diff options
| author | David Mitchell <davem@iabyn.com> | 2019-09-20 10:57:54 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2019-09-23 14:42:00 +0100 |
| commit | f417cfa90670b17255b02c7dc1a88924c102479f (patch) | |
| tree | 3c2b0db38c681f9aca33e93bab8bfa1900d13c3e /perly.h | |
| parent | 558b227c020be1ce3d21af4f57ae649d8a2229eb (diff) | |
| download | perl-f417cfa90670b17255b02c7dc1a88924c102479f.tar.gz | |
OP_ARGCHECK: use custom aux struct
This op is of class OP_UNOP_AUX, Ops of this class have an op_aux pointer
which typically points to a variable-length malloced array of IVs,
UVs, etc. However in the specific case of OP_ARGCHECK the data stored
in the aux struct is fixed. So this commit casts the aux pointer to a
struct containing the relevant fields (number of parameters etc), rather
than referring to them as aux[0], aux[1] etc. This makes the code more
readable.
Should be no functional changes.
Diffstat (limited to 'perly.h')
| -rw-r--r-- | perly.h | 15 |
1 files changed, 6 insertions, 9 deletions
@@ -4,15 +4,14 @@ Any changes made here will be lost! */ -#define PERL_BISON_VERSION 30004 +#define PERL_BISON_VERSION 30000 #ifdef PERL_CORE -/* A Bison parser, made by GNU Bison 3.4.1. */ +/* A Bison parser, made by GNU Bison 3.0.5. */ /* Bison interface for Yacc-like parsers in C - Copyright (C) 1984, 1989-1990, 2000-2015, 2018-2019 Free Software Foundation, - Inc. + Copyright (C) 1984, 1989-1990, 2000-2015, 2018 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 @@ -40,9 +39,6 @@ This special exception was added by the Free Software Foundation in version 2.2 of Bison. */ -/* Undocumented macros, especially those whose name start with YY_, - are private implementation details. Do not rely on them. */ - /* Debug traces. */ #ifndef YYDEBUG # define YYDEBUG 0 @@ -170,6 +166,7 @@ S_is_opval_token(int type) { #endif /* PERL_IN_TOKE_C */ #endif /* PERL_CORE */ #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED + union YYSTYPE { @@ -179,8 +176,8 @@ union YYSTYPE OP *opval; GV *gvval; - }; + typedef union YYSTYPE YYSTYPE; # define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_DECLARED 1 @@ -192,6 +189,6 @@ int yyparse (void); /* Generated from: - * 4d7581de6482210c9b2f3302b589173c8d8c0a88724cc58b659ca9dcd2a35761 perly.y + * 2c3a1b30e52b1e872156c881cc6e702a9c0d1be569bfa579632b5eec73ffa9ef perly.y * 0947213b55d0ed11693554bea04987e886cf285f5c14cf9075fa1e7acc3f4061 regen_perly.pl * ex: set ro: */ |