From: Joel Brobecker <brobecker@adacore.com>
To: Sergio Durigan Junior <sergiodj@redhat.com>
Cc: GDB Patches <gdb-patches@sourceware.org>, gaius@glam.ac.uk
Subject: Re: [PATCH 07/10] Modula-2 language
Date: Wed, 13 Jun 2012 14:51:00 -0000 [thread overview]
Message-ID: <20120613145113.GC18729@adacore.com> (raw)
In-Reply-To: <m38vfru7s4.fsf@redhat.com>
> > Patch for the Modula-2 language. Similar to the C language one.
>
> Ping.
>
> I don't know exactly who is the maintainer of Modula-2...
It's Gaius Mulley (in Cc). I thkn that the changes are sufficiently
mechanical that we can go with GM approval if the language maintainer
doesn't comment.
>
> > ---
> > gdb/m2-exp.y | 261 +++++++++++++++++++++++++++++++--------------------------
> > gdb/m2-lang.h | 6 +-
> > 2 files changed, 147 insertions(+), 120 deletions(-)
> >
> > diff --git a/gdb/m2-exp.y b/gdb/m2-exp.y
> > index 19f9c24..153d482 100644
> > --- a/gdb/m2-exp.y
> > +++ b/gdb/m2-exp.y
> > @@ -50,8 +50,8 @@
> > #include "objfiles.h" /* For have_full_symbols and have_partial_symbols */
> > #include "block.h"
> >
> > -#define parse_type builtin_type (parse_gdbarch)
> > -#define parse_m2_type builtin_m2_type (parse_gdbarch)
> > +#define parse_type(ps) builtin_type (parse_gdbarch (ps))
> > +#define parse_m2_type(ps) builtin_m2_type (parse_gdbarch (ps))
> >
> > /* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
> > as well as gratuitiously global symbol names, so we can have multiple
> > @@ -61,7 +61,7 @@
> > generators need to be fixed instead of adding those names to this list. */
> >
> > #define yymaxdepth m2_maxdepth
> > -#define yyparse m2_parse
> > +#define yyparse _m2_parse
> > #define yylex m2_lex
> > #define yyerror m2_error
> > #define yylval m2_lval
> > @@ -113,6 +113,11 @@
> >
> > #define YYFPRINTF parser_fprintf
> >
> > +/* The state of the parser, used internally when we are parsing the
> > + expression. */
> > +
> > +static struct parser_state *pstate = NULL;
> > +
> > int yyparse (void);
> >
> > static int yylex (void);
> > @@ -205,31 +210,31 @@ start : exp
> > ;
> >
> > type_exp: type
> > - { write_exp_elt_opcode(OP_TYPE);
> > - write_exp_elt_type($1);
> > - write_exp_elt_opcode(OP_TYPE);
> > + { write_exp_elt_opcode (pstate, OP_TYPE);
> > + write_exp_elt_type (pstate, $1);
> > + write_exp_elt_opcode (pstate, OP_TYPE);
> > }
> > ;
> >
> > /* Expressions */
> >
> > exp : exp '^' %prec UNARY
> > - { write_exp_elt_opcode (UNOP_IND); }
> > + { write_exp_elt_opcode (pstate, UNOP_IND); }
> > ;
> >
> > exp : '-'
> > { number_sign = -1; }
> > exp %prec UNARY
> > { number_sign = 1;
> > - write_exp_elt_opcode (UNOP_NEG); }
> > + write_exp_elt_opcode (pstate, UNOP_NEG); }
> > ;
> >
> > exp : '+' exp %prec UNARY
> > - { write_exp_elt_opcode(UNOP_PLUS); }
> > + { write_exp_elt_opcode (pstate, UNOP_PLUS); }
> > ;
> >
> > exp : not_exp exp %prec UNARY
> > - { write_exp_elt_opcode (UNOP_LOGICAL_NOT); }
> > + { write_exp_elt_opcode (pstate, UNOP_LOGICAL_NOT); }
> > ;
> >
> > not_exp : NOT
> > @@ -237,88 +242,88 @@ not_exp : NOT
> > ;
> >
> > exp : CAP '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_CAP); }
> > + { write_exp_elt_opcode (pstate, UNOP_CAP); }
> > ;
> >
> > exp : ORD '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_ORD); }
> > + { write_exp_elt_opcode (pstate, UNOP_ORD); }
> > ;
> >
> > exp : ABS '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_ABS); }
> > + { write_exp_elt_opcode (pstate, UNOP_ABS); }
> > ;
> >
> > exp : HIGH '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_HIGH); }
> > + { write_exp_elt_opcode (pstate, UNOP_HIGH); }
> > ;
> >
> > exp : MIN_FUNC '(' type ')'
> > - { write_exp_elt_opcode (UNOP_MIN);
> > - write_exp_elt_type ($3);
> > - write_exp_elt_opcode (UNOP_MIN); }
> > + { write_exp_elt_opcode (pstate, UNOP_MIN);
> > + write_exp_elt_type (pstate, $3);
> > + write_exp_elt_opcode (pstate, UNOP_MIN); }
> > ;
> >
> > exp : MAX_FUNC '(' type ')'
> > - { write_exp_elt_opcode (UNOP_MAX);
> > - write_exp_elt_type ($3);
> > - write_exp_elt_opcode (UNOP_MAX); }
> > + { write_exp_elt_opcode (pstate, UNOP_MAX);
> > + write_exp_elt_type (pstate, $3);
> > + write_exp_elt_opcode (pstate, UNOP_MAX); }
> > ;
> >
> > exp : FLOAT_FUNC '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_FLOAT); }
> > + { write_exp_elt_opcode (pstate, UNOP_FLOAT); }
> > ;
> >
> > exp : VAL '(' type ',' exp ')'
> > - { write_exp_elt_opcode (BINOP_VAL);
> > - write_exp_elt_type ($3);
> > - write_exp_elt_opcode (BINOP_VAL); }
> > + { write_exp_elt_opcode (pstate, BINOP_VAL);
> > + write_exp_elt_type (pstate, $3);
> > + write_exp_elt_opcode (pstate, BINOP_VAL); }
> > ;
> >
> > exp : CHR '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_CHR); }
> > + { write_exp_elt_opcode (pstate, UNOP_CHR); }
> > ;
> >
> > exp : ODD '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_ODD); }
> > + { write_exp_elt_opcode (pstate, UNOP_ODD); }
> > ;
> >
> > exp : TRUNC '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_TRUNC); }
> > + { write_exp_elt_opcode (pstate, UNOP_TRUNC); }
> > ;
> >
> > exp : TSIZE '(' exp ')'
> > - { write_exp_elt_opcode (UNOP_SIZEOF); }
> > + { write_exp_elt_opcode (pstate, UNOP_SIZEOF); }
> > ;
> >
> > exp : SIZE exp %prec UNARY
> > - { write_exp_elt_opcode (UNOP_SIZEOF); }
> > + { write_exp_elt_opcode (pstate, UNOP_SIZEOF); }
> > ;
> >
> >
> > exp : INC '(' exp ')'
> > - { write_exp_elt_opcode(UNOP_PREINCREMENT); }
> > + { write_exp_elt_opcode (pstate, UNOP_PREINCREMENT); }
> > ;
> >
> > exp : INC '(' exp ',' exp ')'
> > - { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY);
> > - write_exp_elt_opcode(BINOP_ADD);
> > - write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); }
> > + { write_exp_elt_opcode (pstate, BINOP_ASSIGN_MODIFY);
> > + write_exp_elt_opcode (pstate, BINOP_ADD);
> > + write_exp_elt_opcode (pstate, BINOP_ASSIGN_MODIFY); }
> > ;
> >
> > exp : DEC '(' exp ')'
> > - { write_exp_elt_opcode(UNOP_PREDECREMENT);}
> > + { write_exp_elt_opcode (pstate, UNOP_PREDECREMENT);}
> > ;
> >
> > exp : DEC '(' exp ',' exp ')'
> > - { write_exp_elt_opcode(BINOP_ASSIGN_MODIFY);
> > - write_exp_elt_opcode(BINOP_SUB);
> > - write_exp_elt_opcode(BINOP_ASSIGN_MODIFY); }
> > + { write_exp_elt_opcode (pstate, BINOP_ASSIGN_MODIFY);
> > + write_exp_elt_opcode (pstate, BINOP_SUB);
> > + write_exp_elt_opcode (pstate, BINOP_ASSIGN_MODIFY); }
> > ;
> >
> > exp : exp DOT NAME
> > - { write_exp_elt_opcode (STRUCTOP_STRUCT);
> > - write_exp_string ($3);
> > - write_exp_elt_opcode (STRUCTOP_STRUCT); }
> > + { write_exp_elt_opcode (pstate, STRUCTOP_STRUCT);
> > + write_exp_string (pstate, $3);
> > + write_exp_elt_opcode (pstate, STRUCTOP_STRUCT); }
> > ;
> >
> > exp : set
> > @@ -350,13 +355,13 @@ exp : exp '['
> > function types */
> > { start_arglist(); }
> > non_empty_arglist ']' %prec DOT
> > - { write_exp_elt_opcode (MULTI_SUBSCRIPT);
> > - write_exp_elt_longcst ((LONGEST) end_arglist());
> > - write_exp_elt_opcode (MULTI_SUBSCRIPT); }
> > + { write_exp_elt_opcode (pstate, MULTI_SUBSCRIPT);
> > + write_exp_elt_longcst (pstate, (LONGEST) end_arglist());
> > + write_exp_elt_opcode (pstate, MULTI_SUBSCRIPT); }
> > ;
> >
> > exp : exp '[' exp ']'
> > - { write_exp_elt_opcode (BINOP_SUBSCRIPT); }
> > + { write_exp_elt_opcode (pstate, BINOP_SUBSCRIPT); }
> > ;
> >
> > exp : exp '('
> > @@ -364,9 +369,9 @@ exp : exp '('
> > being accumulated by an outer function call. */
> > { start_arglist (); }
> > arglist ')' %prec DOT
> > - { write_exp_elt_opcode (OP_FUNCALL);
> > - write_exp_elt_longcst ((LONGEST) end_arglist ());
> > - write_exp_elt_opcode (OP_FUNCALL); }
> > + { write_exp_elt_opcode (pstate, OP_FUNCALL);
> > + write_exp_elt_longcst (pstate, (LONGEST) end_arglist ());
> > + write_exp_elt_opcode (pstate, OP_FUNCALL); }
> > ;
> >
> > arglist :
> > @@ -392,15 +397,15 @@ non_empty_arglist
> >
> > /* GDB construct */
> > exp : '{' type '}' exp %prec UNARY
> > - { write_exp_elt_opcode (UNOP_MEMVAL);
> > - write_exp_elt_type ($2);
> > - write_exp_elt_opcode (UNOP_MEMVAL); }
> > + { write_exp_elt_opcode (pstate, UNOP_MEMVAL);
> > + write_exp_elt_type (pstate, $2);
> > + write_exp_elt_opcode (pstate, UNOP_MEMVAL); }
> > ;
> >
> > exp : type '(' exp ')' %prec UNARY
> > - { write_exp_elt_opcode (UNOP_CAST);
> > - write_exp_elt_type ($1);
> > - write_exp_elt_opcode (UNOP_CAST); }
> > + { write_exp_elt_opcode (pstate, UNOP_CAST);
> > + write_exp_elt_type (pstate, $1);
> > + write_exp_elt_opcode (pstate, UNOP_CAST); }
> > ;
> >
> > exp : '(' exp ')'
> > @@ -412,131 +417,139 @@ exp : '(' exp ')'
> >
> > /* GDB construct */
> > exp : exp '@' exp
> > - { write_exp_elt_opcode (BINOP_REPEAT); }
> > + { write_exp_elt_opcode (pstate, BINOP_REPEAT); }
> > ;
> >
> > exp : exp '*' exp
> > - { write_exp_elt_opcode (BINOP_MUL); }
> > + { write_exp_elt_opcode (pstate, BINOP_MUL); }
> > ;
> >
> > exp : exp '/' exp
> > - { write_exp_elt_opcode (BINOP_DIV); }
> > + { write_exp_elt_opcode (pstate, BINOP_DIV); }
> > ;
> >
> > exp : exp DIV exp
> > - { write_exp_elt_opcode (BINOP_INTDIV); }
> > + { write_exp_elt_opcode (pstate, BINOP_INTDIV); }
> > ;
> >
> > exp : exp MOD exp
> > - { write_exp_elt_opcode (BINOP_REM); }
> > + { write_exp_elt_opcode (pstate, BINOP_REM); }
> > ;
> >
> > exp : exp '+' exp
> > - { write_exp_elt_opcode (BINOP_ADD); }
> > + { write_exp_elt_opcode (pstate, BINOP_ADD); }
> > ;
> >
> > exp : exp '-' exp
> > - { write_exp_elt_opcode (BINOP_SUB); }
> > + { write_exp_elt_opcode (pstate, BINOP_SUB); }
> > ;
> >
> > exp : exp '=' exp
> > - { write_exp_elt_opcode (BINOP_EQUAL); }
> > + { write_exp_elt_opcode (pstate, BINOP_EQUAL); }
> > ;
> >
> > exp : exp NOTEQUAL exp
> > - { write_exp_elt_opcode (BINOP_NOTEQUAL); }
> > + { write_exp_elt_opcode (pstate, BINOP_NOTEQUAL); }
> > | exp '#' exp
> > - { write_exp_elt_opcode (BINOP_NOTEQUAL); }
> > + { write_exp_elt_opcode (pstate, BINOP_NOTEQUAL); }
> > ;
> >
> > exp : exp LEQ exp
> > - { write_exp_elt_opcode (BINOP_LEQ); }
> > + { write_exp_elt_opcode (pstate, BINOP_LEQ); }
> > ;
> >
> > exp : exp GEQ exp
> > - { write_exp_elt_opcode (BINOP_GEQ); }
> > + { write_exp_elt_opcode (pstate, BINOP_GEQ); }
> > ;
> >
> > exp : exp '<' exp
> > - { write_exp_elt_opcode (BINOP_LESS); }
> > + { write_exp_elt_opcode (pstate, BINOP_LESS); }
> > ;
> >
> > exp : exp '>' exp
> > - { write_exp_elt_opcode (BINOP_GTR); }
> > + { write_exp_elt_opcode (pstate, BINOP_GTR); }
> > ;
> >
> > exp : exp LOGICAL_AND exp
> > - { write_exp_elt_opcode (BINOP_LOGICAL_AND); }
> > + { write_exp_elt_opcode (pstate, BINOP_LOGICAL_AND); }
> > ;
> >
> > exp : exp OROR exp
> > - { write_exp_elt_opcode (BINOP_LOGICAL_OR); }
> > + { write_exp_elt_opcode (pstate, BINOP_LOGICAL_OR); }
> > ;
> >
> > exp : exp ASSIGN exp
> > - { write_exp_elt_opcode (BINOP_ASSIGN); }
> > + { write_exp_elt_opcode (pstate, BINOP_ASSIGN); }
> > ;
> >
> >
> > /* Constants */
> >
> > exp : M2_TRUE
> > - { write_exp_elt_opcode (OP_BOOL);
> > - write_exp_elt_longcst ((LONGEST) $1);
> > - write_exp_elt_opcode (OP_BOOL); }
> > + { write_exp_elt_opcode (pstate, OP_BOOL);
> > + write_exp_elt_longcst (pstate, (LONGEST) $1);
> > + write_exp_elt_opcode (pstate, OP_BOOL); }
> > ;
> >
> > exp : M2_FALSE
> > - { write_exp_elt_opcode (OP_BOOL);
> > - write_exp_elt_longcst ((LONGEST) $1);
> > - write_exp_elt_opcode (OP_BOOL); }
> > + { write_exp_elt_opcode (pstate, OP_BOOL);
> > + write_exp_elt_longcst (pstate, (LONGEST) $1);
> > + write_exp_elt_opcode (pstate, OP_BOOL); }
> > ;
> >
> > exp : INT
> > - { write_exp_elt_opcode (OP_LONG);
> > - write_exp_elt_type (parse_m2_type->builtin_int);
> > - write_exp_elt_longcst ((LONGEST) $1);
> > - write_exp_elt_opcode (OP_LONG); }
> > + { write_exp_elt_opcode (pstate, OP_LONG);
> > + write_exp_elt_type (pstate,
> > + parse_m2_type (pstate)->builtin_int);
> > + write_exp_elt_longcst (pstate, (LONGEST) $1);
> > + write_exp_elt_opcode (pstate, OP_LONG); }
> > ;
> >
> > exp : UINT
> > {
> > - write_exp_elt_opcode (OP_LONG);
> > - write_exp_elt_type (parse_m2_type->builtin_card);
> > - write_exp_elt_longcst ((LONGEST) $1);
> > - write_exp_elt_opcode (OP_LONG);
> > + write_exp_elt_opcode (pstate, OP_LONG);
> > + write_exp_elt_type (pstate,
> > + parse_m2_type (pstate)
> > + ->builtin_card);
> > + write_exp_elt_longcst (pstate, (LONGEST) $1);
> > + write_exp_elt_opcode (pstate, OP_LONG);
> > }
> > ;
> >
> > exp : CHAR
> > - { write_exp_elt_opcode (OP_LONG);
> > - write_exp_elt_type (parse_m2_type->builtin_char);
> > - write_exp_elt_longcst ((LONGEST) $1);
> > - write_exp_elt_opcode (OP_LONG); }
> > + { write_exp_elt_opcode (pstate, OP_LONG);
> > + write_exp_elt_type (pstate,
> > + parse_m2_type (pstate)
> > + ->builtin_char);
> > + write_exp_elt_longcst (pstate, (LONGEST) $1);
> > + write_exp_elt_opcode (pstate, OP_LONG); }
> > ;
> >
> >
> > exp : FLOAT
> > - { write_exp_elt_opcode (OP_DOUBLE);
> > - write_exp_elt_type (parse_m2_type->builtin_real);
> > - write_exp_elt_dblcst ($1);
> > - write_exp_elt_opcode (OP_DOUBLE); }
> > + { write_exp_elt_opcode (pstate, OP_DOUBLE);
> > + write_exp_elt_type (pstate,
> > + parse_m2_type (pstate)
> > + ->builtin_real);
> > + write_exp_elt_dblcst (pstate, $1);
> > + write_exp_elt_opcode (pstate, OP_DOUBLE); }
> > ;
> >
> > exp : variable
> > ;
> >
> > exp : SIZE '(' type ')' %prec UNARY
> > - { write_exp_elt_opcode (OP_LONG);
> > - write_exp_elt_type (parse_type->builtin_int);
> > - write_exp_elt_longcst ((LONGEST) TYPE_LENGTH ($3));
> > - write_exp_elt_opcode (OP_LONG); }
> > + { write_exp_elt_opcode (pstate, OP_LONG);
> > + write_exp_elt_type (pstate, parse_type (pstate)->builtin_int);
> > + write_exp_elt_longcst (pstate,
> > + (LONGEST) TYPE_LENGTH ($3));
> > + write_exp_elt_opcode (pstate, OP_LONG); }
> > ;
> >
> > exp : STRING
> > - { write_exp_elt_opcode (OP_M2_STRING);
> > - write_exp_string ($1);
> > - write_exp_elt_opcode (OP_M2_STRING); }
> > + { write_exp_elt_opcode (pstate, OP_M2_STRING);
> > + write_exp_string (pstate, $1);
> > + write_exp_elt_opcode (pstate, OP_M2_STRING); }
> > ;
> >
> > /* This will be used for extensions later. Like adding modules. */
> > @@ -546,7 +559,8 @@ block : fblock
> >
> > fblock : BLOCKNAME
> > { struct symbol *sym
> > - = lookup_symbol (copy_name ($1), expression_context_block,
> > + = lookup_symbol (copy_name ($1),
> > + expression_context_block,
> > VAR_DOMAIN, 0);
> > $$ = sym;}
> > ;
> > @@ -566,10 +580,10 @@ fblock : block COLONCOLON BLOCKNAME
> >
> > /* Useful for assigning to PROCEDURE variables */
> > variable: fblock
> > - { write_exp_elt_opcode(OP_VAR_VALUE);
> > - write_exp_elt_block (NULL);
> > - write_exp_elt_sym ($1);
> > - write_exp_elt_opcode (OP_VAR_VALUE); }
> > + { write_exp_elt_opcode (pstate, OP_VAR_VALUE);
> > + write_exp_elt_block (pstate, NULL);
> > + write_exp_elt_sym (pstate, $1);
> > + write_exp_elt_opcode (pstate, OP_VAR_VALUE); }
> > ;
> >
> > /* GDB internal ($foo) variable */
> > @@ -592,11 +606,11 @@ variable: block COLONCOLON NAME
> > innermost_block = block_found;
> > }
> >
> > - write_exp_elt_opcode (OP_VAR_VALUE);
> > + write_exp_elt_opcode (pstate, OP_VAR_VALUE);
> > /* block_found is set by lookup_symbol. */
> > - write_exp_elt_block (block_found);
> > - write_exp_elt_sym (sym);
> > - write_exp_elt_opcode (OP_VAR_VALUE); }
> > + write_exp_elt_block (pstate, block_found);
> > + write_exp_elt_sym (pstate, sym);
> > + write_exp_elt_opcode (pstate, OP_VAR_VALUE); }
> > ;
> >
> > /* Base case for variables. */
> > @@ -618,13 +632,13 @@ variable: NAME
> > innermost_block = block_found;
> > }
> >
> > - write_exp_elt_opcode (OP_VAR_VALUE);
> > + write_exp_elt_opcode (pstate, OP_VAR_VALUE);
> > /* We want to use the selected frame, not
> > another more inner frame which happens to
> > be in the same block. */
> > - write_exp_elt_block (NULL);
> > - write_exp_elt_sym (sym);
> > - write_exp_elt_opcode (OP_VAR_VALUE);
> > + write_exp_elt_block (pstate, NULL);
> > + write_exp_elt_sym (pstate, sym);
> > + write_exp_elt_opcode (pstate, OP_VAR_VALUE);
> > }
> > else
> > {
> > @@ -634,7 +648,7 @@ variable: NAME
> > msymbol =
> > lookup_minimal_symbol (arg, NULL, NULL);
> > if (msymbol != NULL)
> > - write_exp_msymbol (msymbol);
> > + write_exp_msymbol (pstate, msymbol);
> > else if (!have_full_symbols () && !have_partial_symbols ())
> > error (_("No symbol table is loaded. Use the \"symbol-file\" command."));
> > else
> > @@ -646,7 +660,8 @@ variable: NAME
> >
> > type
> > : TYPENAME
> > - { $$ = lookup_typename (parse_language, parse_gdbarch,
> > + { $$ = lookup_typename (parse_language (pstate),
> > + parse_gdbarch (pstate),
> > copy_name ($1),
> > expression_context_block, 0); }
> >
> > @@ -806,8 +821,8 @@ static struct keyword keytab[] =
> >
> > /* Read one token, getting characters through lexptr. */
> >
> > -/* This is where we will check to make sure that the language and the operators used are
> > - compatible */
> > +/* This is where we will check to make sure that the language and the
> > + operators used are compatible */
> >
> > static int
> > yylex (void)
> > @@ -993,7 +1008,7 @@ yylex (void)
> >
> > if (*tokstart == '$')
> > {
> > - write_dollar_variable (yylval.sval);
> > + write_dollar_variable (pstate, yylval.sval);
> > return INTERNAL_VAR;
> > }
> >
> > @@ -1013,7 +1028,7 @@ yylex (void)
> > sym = lookup_symbol (tmp, expression_context_block, VAR_DOMAIN, 0);
> > if (sym && SYMBOL_CLASS (sym) == LOC_BLOCK)
> > return BLOCKNAME;
> > - if (lookup_typename (parse_language, parse_gdbarch,
> > + if (lookup_typename (parse_language (pstate), parse_gdbarch (pstate),
> > copy_name (yylval.sval), expression_context_block, 1))
> > return TYPENAME;
> >
> > @@ -1071,6 +1086,16 @@ yylex (void)
> > }
> > }
> >
> > +int
> > +m2_parse (struct parser_state *par_state)
> > +{
> > + /* Setting up the parser state. */
> > + gdb_assert (par_state != NULL);
> > + pstate = par_state;
> > +
> > + return _m2_parse ();
> > +}
> > +
> > void
> > yyerror (char *msg)
> > {
> > diff --git a/gdb/m2-lang.h b/gdb/m2-lang.h
> > index fc6de34..daae348 100644
> > --- a/gdb/m2-lang.h
> > +++ b/gdb/m2-lang.h
> > @@ -18,9 +18,11 @@
> > You should have received a copy of the GNU General Public License
> > along with this program. If not, see <http://www.gnu.org/licenses/>. */
> >
> > -extern int m2_parse (void); /* Defined in m2-exp.y */
> > +struct parser_state;
> >
> > -extern void m2_error (char *); /* Defined in m2-exp.y */
> > +extern int m2_parse (struct parser_state *); /* Defined in m2-exp.y */
> > +
> > +extern void m2_error (char *); /* Defined in m2-exp.y */
> >
> > /* Defined in m2-typeprint.c */
> > extern void m2_print_type (struct type *, const char *, struct ui_file *, int,
> > --
> > 1.7.7.6
>
> --
> Sergio
--
Joel
next prev parent reply other threads:[~2012-06-13 14:51 UTC|newest]
Thread overview: 40+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-02 19:33 [PATCH 00/10] Remove `expout*' globals from parser-defs.h Sergio Durigan Junior
2012-06-02 19:33 ` [PATCH 02/10] SystemTap integration Sergio Durigan Junior
2012-06-04 20:23 ` Tom Tromey
2012-06-02 19:33 ` [PATCH 01/10] Language independent bits Sergio Durigan Junior
2012-06-04 20:20 ` Tom Tromey
2012-06-05 0:39 ` Sergio Durigan Junior
2012-06-02 19:34 ` [PATCH 03/10] C language Sergio Durigan Junior
2012-06-04 4:25 ` Doug Evans
2012-06-04 4:32 ` Sergio Durigan Junior
2012-06-04 20:32 ` Tom Tromey
2012-06-04 20:39 ` Sergio Durigan Junior
2012-06-04 20:42 ` Mark Kettenis
2012-06-04 20:49 ` Sergio Durigan Junior
2012-06-04 21:19 ` Mark Kettenis
2012-06-06 19:17 ` Tom Tromey
2012-06-02 20:23 ` [PATCH 04/10] Ada language Sergio Durigan Junior
2012-06-13 4:57 ` Sergio Durigan Junior
2012-06-13 14:50 ` Joel Brobecker
2012-06-02 20:23 ` [PATCH 10/10] Go programming language Sergio Durigan Junior
2012-06-13 4:58 ` Sergio Durigan Junior
2012-06-13 17:02 ` Doug Evans
2012-06-02 20:24 ` [PATCH 08/10] Objective-C language Sergio Durigan Junior
2012-06-13 4:59 ` Sergio Durigan Junior
2012-06-13 14:54 ` Joel Brobecker
2012-06-13 16:02 ` Tom Tromey
2012-06-02 20:24 ` [PATCH 05/10] Fortran language Sergio Durigan Junior
2012-06-13 4:59 ` Sergio Durigan Junior
2012-06-13 14:55 ` Joel Brobecker
2012-06-02 20:33 ` [PATCH 09/10] Pascal language Sergio Durigan Junior
2012-06-05 7:39 ` Pierre Muller
2012-06-02 20:33 ` [PATCH 07/10] Modula-2 language Sergio Durigan Junior
2012-06-13 4:59 ` Sergio Durigan Junior
2012-06-13 14:51 ` Joel Brobecker [this message]
2012-06-16 14:29 ` Gaius Mulley
2012-06-02 20:34 ` [PATCH 06/10] Java language Sergio Durigan Junior
2012-06-04 20:27 ` Tom Tromey
2012-06-05 0:35 ` Sergio Durigan Junior
2012-06-06 20:02 ` Tom Tromey
2012-06-07 0:57 ` Joel Brobecker
2012-06-04 20:38 ` [PATCH 00/10] Remove `expout*' globals from parser-defs.h Tom Tromey
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20120613145113.GC18729@adacore.com \
--to=brobecker@adacore.com \
--cc=gaius@glam.ac.uk \
--cc=gdb-patches@sourceware.org \
--cc=sergiodj@redhat.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox