OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gdb-7.1/] [gdb/] [ada-exp.c] - Diff between revs 227 and 816

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 227 Rev 816
/* A Bison parser, made by GNU Bison 1.875c.  */
/* A Bison parser, made by GNU Bison 1.875c.  */
 
 
/* Skeleton parser for Yacc-like parsing with Bison,
/* Skeleton parser for Yacc-like parsing with Bison,
   Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
   Copyright (C) 1984, 1989, 1990, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 
   This program is free software; you can redistribute it and/or modify
   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
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   the Free Software Foundation; either version 2, or (at your option)
   any later version.
   any later version.
 
 
   This program is distributed in the hope that it will be useful,
   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.
   GNU General Public License for more details.
 
 
   You should have received a copy of the GNU General Public License
   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330,
   Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.  */
   Boston, MA 02111-1307, USA.  */
 
 
/* As a special exception, when this file is copied by Bison into a
/* As a special exception, when this file is copied by Bison into a
   Bison output file, you may use that output file without restriction.
   Bison output file, you may use that output file without restriction.
   This special exception was added by the Free Software Foundation
   This special exception was added by the Free Software Foundation
   in version 1.24 of Bison.  */
   in version 1.24 of Bison.  */
 
 
/* Written by Richard Stallman by simplifying the original so called
/* Written by Richard Stallman by simplifying the original so called
   ``semantic'' parser.  */
   ``semantic'' parser.  */
 
 
/* All symbols defined below should begin with yy or YY, to avoid
/* All symbols defined below should begin with yy or YY, to avoid
   infringing on user name space.  This should be done even for local
   infringing on user name space.  This should be done even for local
   variables, as they might otherwise be expanded by user macros.
   variables, as they might otherwise be expanded by user macros.
   There are some unavoidable exceptions within include files to
   There are some unavoidable exceptions within include files to
   define necessary library symbols; they are noted "INFRINGES ON
   define necessary library symbols; they are noted "INFRINGES ON
   USER NAME SPACE" below.  */
   USER NAME SPACE" below.  */
 
 
/* Identify Bison output.  */
/* Identify Bison output.  */
#define YYBISON 1
#define YYBISON 1
 
 
/* Skeleton name.  */
/* Skeleton name.  */
#define YYSKELETON_NAME "yacc.c"
#define YYSKELETON_NAME "yacc.c"
 
 
/* Pure parsers.  */
/* Pure parsers.  */
#define YYPURE 0
#define YYPURE 0
 
 
/* Using locations.  */
/* Using locations.  */
#define YYLSP_NEEDED 0
#define YYLSP_NEEDED 0
 
 
 
 
 
 
/* Tokens.  */
/* Tokens.  */
#ifndef YYTOKENTYPE
#ifndef YYTOKENTYPE
# define YYTOKENTYPE
# define YYTOKENTYPE
   /* Put the tokens into the symbol table, so that GDB and other debuggers
   /* Put the tokens into the symbol table, so that GDB and other debuggers
      know about them.  */
      know about them.  */
   enum yytokentype {
   enum yytokentype {
     INT = 258,
     INT = 258,
     NULL_PTR = 259,
     NULL_PTR = 259,
     CHARLIT = 260,
     CHARLIT = 260,
     FLOAT = 261,
     FLOAT = 261,
     TRUEKEYWORD = 262,
     TRUEKEYWORD = 262,
     FALSEKEYWORD = 263,
     FALSEKEYWORD = 263,
     COLONCOLON = 264,
     COLONCOLON = 264,
     STRING = 265,
     STRING = 265,
     NAME = 266,
     NAME = 266,
     DOT_ID = 267,
     DOT_ID = 267,
     DOT_ALL = 268,
     DOT_ALL = 268,
     SPECIAL_VARIABLE = 269,
     SPECIAL_VARIABLE = 269,
     ASSIGN = 270,
     ASSIGN = 270,
     ELSE = 271,
     ELSE = 271,
     THEN = 272,
     THEN = 272,
     XOR = 273,
     XOR = 273,
     OR = 274,
     OR = 274,
     _AND_ = 275,
     _AND_ = 275,
     DOTDOT = 276,
     DOTDOT = 276,
     IN = 277,
     IN = 277,
     GEQ = 278,
     GEQ = 278,
     LEQ = 279,
     LEQ = 279,
     NOTEQUAL = 280,
     NOTEQUAL = 280,
     UNARY = 281,
     UNARY = 281,
     REM = 282,
     REM = 282,
     MOD = 283,
     MOD = 283,
     NOT = 284,
     NOT = 284,
     ABS = 285,
     ABS = 285,
     STARSTAR = 286,
     STARSTAR = 286,
     VAR = 287,
     VAR = 287,
     ARROW = 288,
     ARROW = 288,
     TICK_LENGTH = 289,
     TICK_LENGTH = 289,
     TICK_LAST = 290,
     TICK_LAST = 290,
     TICK_FIRST = 291,
     TICK_FIRST = 291,
     TICK_ADDRESS = 292,
     TICK_ADDRESS = 292,
     TICK_ACCESS = 293,
     TICK_ACCESS = 293,
     TICK_MODULUS = 294,
     TICK_MODULUS = 294,
     TICK_MIN = 295,
     TICK_MIN = 295,
     TICK_MAX = 296,
     TICK_MAX = 296,
     TICK_VAL = 297,
     TICK_VAL = 297,
     TICK_TAG = 298,
     TICK_TAG = 298,
     TICK_SIZE = 299,
     TICK_SIZE = 299,
     TICK_RANGE = 300,
     TICK_RANGE = 300,
     TICK_POS = 301,
     TICK_POS = 301,
     NEW = 302,
     NEW = 302,
     OTHERS = 303
     OTHERS = 303
   };
   };
#endif
#endif
#define INT 258
#define INT 258
#define NULL_PTR 259
#define NULL_PTR 259
#define CHARLIT 260
#define CHARLIT 260
#define FLOAT 261
#define FLOAT 261
#define TRUEKEYWORD 262
#define TRUEKEYWORD 262
#define FALSEKEYWORD 263
#define FALSEKEYWORD 263
#define COLONCOLON 264
#define COLONCOLON 264
#define STRING 265
#define STRING 265
#define NAME 266
#define NAME 266
#define DOT_ID 267
#define DOT_ID 267
#define DOT_ALL 268
#define DOT_ALL 268
#define SPECIAL_VARIABLE 269
#define SPECIAL_VARIABLE 269
#define ASSIGN 270
#define ASSIGN 270
#define ELSE 271
#define ELSE 271
#define THEN 272
#define THEN 272
#define XOR 273
#define XOR 273
#define OR 274
#define OR 274
#define _AND_ 275
#define _AND_ 275
#define DOTDOT 276
#define DOTDOT 276
#define IN 277
#define IN 277
#define GEQ 278
#define GEQ 278
#define LEQ 279
#define LEQ 279
#define NOTEQUAL 280
#define NOTEQUAL 280
#define UNARY 281
#define UNARY 281
#define REM 282
#define REM 282
#define MOD 283
#define MOD 283
#define NOT 284
#define NOT 284
#define ABS 285
#define ABS 285
#define STARSTAR 286
#define STARSTAR 286
#define VAR 287
#define VAR 287
#define ARROW 288
#define ARROW 288
#define TICK_LENGTH 289
#define TICK_LENGTH 289
#define TICK_LAST 290
#define TICK_LAST 290
#define TICK_FIRST 291
#define TICK_FIRST 291
#define TICK_ADDRESS 292
#define TICK_ADDRESS 292
#define TICK_ACCESS 293
#define TICK_ACCESS 293
#define TICK_MODULUS 294
#define TICK_MODULUS 294
#define TICK_MIN 295
#define TICK_MIN 295
#define TICK_MAX 296
#define TICK_MAX 296
#define TICK_VAL 297
#define TICK_VAL 297
#define TICK_TAG 298
#define TICK_TAG 298
#define TICK_SIZE 299
#define TICK_SIZE 299
#define TICK_RANGE 300
#define TICK_RANGE 300
#define TICK_POS 301
#define TICK_POS 301
#define NEW 302
#define NEW 302
#define OTHERS 303
#define OTHERS 303
 
 
 
 
 
 
 
 
/* Copy the first part of user declarations.  */
/* Copy the first part of user declarations.  */
#line 37 "ada-exp.y"
#line 37 "ada-exp.y"
 
 
 
 
#include "defs.h"
#include "defs.h"
#include "gdb_string.h"
#include "gdb_string.h"
#include <ctype.h>
#include <ctype.h>
#include "expression.h"
#include "expression.h"
#include "value.h"
#include "value.h"
#include "parser-defs.h"
#include "parser-defs.h"
#include "language.h"
#include "language.h"
#include "ada-lang.h"
#include "ada-lang.h"
#include "bfd.h" /* Required by objfiles.h.  */
#include "bfd.h" /* Required by objfiles.h.  */
#include "symfile.h" /* Required by objfiles.h.  */
#include "symfile.h" /* Required by objfiles.h.  */
#include "objfiles.h" /* For have_full_symbols and have_partial_symbols */
#include "objfiles.h" /* For have_full_symbols and have_partial_symbols */
#include "frame.h"
#include "frame.h"
#include "block.h"
#include "block.h"
 
 
#define parse_type builtin_type (parse_gdbarch)
#define parse_type builtin_type (parse_gdbarch)
 
 
/* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
/* Remap normal yacc parser interface names (yyparse, yylex, yyerror, etc),
   as well as gratuitiously global symbol names, so we can have multiple
   as well as gratuitiously global symbol names, so we can have multiple
   yacc generated parsers in gdb.  These are only the variables
   yacc generated parsers in gdb.  These are only the variables
   produced by yacc.  If other parser generators (bison, byacc, etc) produce
   produced by yacc.  If other parser generators (bison, byacc, etc) produce
   additional global names that conflict at link time, then those parser
   additional global names that conflict at link time, then those parser
   generators need to be fixed instead of adding those names to this list.  */
   generators need to be fixed instead of adding those names to this list.  */
 
 
/* NOTE: This is clumsy, especially since BISON and FLEX provide --prefix
/* NOTE: This is clumsy, especially since BISON and FLEX provide --prefix
   options.  I presume we are maintaining it to accommodate systems
   options.  I presume we are maintaining it to accommodate systems
   without BISON?  (PNH) */
   without BISON?  (PNH) */
 
 
#define yymaxdepth ada_maxdepth
#define yymaxdepth ada_maxdepth
#define yyparse _ada_parse      /* ada_parse calls this after  initialization */
#define yyparse _ada_parse      /* ada_parse calls this after  initialization */
#define yylex   ada_lex
#define yylex   ada_lex
#define yyerror ada_error
#define yyerror ada_error
#define yylval  ada_lval
#define yylval  ada_lval
#define yychar  ada_char
#define yychar  ada_char
#define yydebug ada_debug
#define yydebug ada_debug
#define yypact  ada_pact
#define yypact  ada_pact
#define yyr1    ada_r1
#define yyr1    ada_r1
#define yyr2    ada_r2
#define yyr2    ada_r2
#define yydef   ada_def
#define yydef   ada_def
#define yychk   ada_chk
#define yychk   ada_chk
#define yypgo   ada_pgo
#define yypgo   ada_pgo
#define yyact   ada_act
#define yyact   ada_act
#define yyexca  ada_exca
#define yyexca  ada_exca
#define yyerrflag ada_errflag
#define yyerrflag ada_errflag
#define yynerrs ada_nerrs
#define yynerrs ada_nerrs
#define yyps    ada_ps
#define yyps    ada_ps
#define yypv    ada_pv
#define yypv    ada_pv
#define yys     ada_s
#define yys     ada_s
#define yy_yys  ada_yys
#define yy_yys  ada_yys
#define yystate ada_state
#define yystate ada_state
#define yytmp   ada_tmp
#define yytmp   ada_tmp
#define yyv     ada_v
#define yyv     ada_v
#define yy_yyv  ada_yyv
#define yy_yyv  ada_yyv
#define yyval   ada_val
#define yyval   ada_val
#define yylloc  ada_lloc
#define yylloc  ada_lloc
#define yyreds  ada_reds                /* With YYDEBUG defined */
#define yyreds  ada_reds                /* With YYDEBUG defined */
#define yytoks  ada_toks                /* With YYDEBUG defined */
#define yytoks  ada_toks                /* With YYDEBUG defined */
#define yyname  ada_name                /* With YYDEBUG defined */
#define yyname  ada_name                /* With YYDEBUG defined */
#define yyrule  ada_rule                /* With YYDEBUG defined */
#define yyrule  ada_rule                /* With YYDEBUG defined */
 
 
#ifndef YYDEBUG
#ifndef YYDEBUG
#define YYDEBUG 1               /* Default to yydebug support */
#define YYDEBUG 1               /* Default to yydebug support */
#endif
#endif
 
 
#define YYFPRINTF parser_fprintf
#define YYFPRINTF parser_fprintf
 
 
struct name_info {
struct name_info {
  struct symbol *sym;
  struct symbol *sym;
  struct minimal_symbol *msym;
  struct minimal_symbol *msym;
  struct block *block;
  struct block *block;
  struct stoken stoken;
  struct stoken stoken;
};
};
 
 
static struct stoken empty_stoken = { "", 0 };
static struct stoken empty_stoken = { "", 0 };
 
 
/* If expression is in the context of TYPE'(...), then TYPE, else
/* If expression is in the context of TYPE'(...), then TYPE, else
 * NULL.  */
 * NULL.  */
static struct type *type_qualifier;
static struct type *type_qualifier;
 
 
int yyparse (void);
int yyparse (void);
 
 
static int yylex (void);
static int yylex (void);
 
 
void yyerror (char *);
void yyerror (char *);
 
 
static struct stoken string_to_operator (struct stoken);
static struct stoken string_to_operator (struct stoken);
 
 
static void write_int (LONGEST, struct type *);
static void write_int (LONGEST, struct type *);
 
 
static void write_object_renaming (struct block *, const char *, int,
static void write_object_renaming (struct block *, const char *, int,
                                   const char *, int);
                                   const char *, int);
 
 
static struct type* write_var_or_type (struct block *, struct stoken);
static struct type* write_var_or_type (struct block *, struct stoken);
 
 
static void write_name_assoc (struct stoken);
static void write_name_assoc (struct stoken);
 
 
static void write_exp_op_with_string (enum exp_opcode, struct stoken);
static void write_exp_op_with_string (enum exp_opcode, struct stoken);
 
 
static struct block *block_lookup (struct block *, char *);
static struct block *block_lookup (struct block *, char *);
 
 
static LONGEST convert_char_literal (struct type *, LONGEST);
static LONGEST convert_char_literal (struct type *, LONGEST);
 
 
static void write_ambiguous_var (struct block *, char *, int);
static void write_ambiguous_var (struct block *, char *, int);
 
 
static struct type *type_int (void);
static struct type *type_int (void);
 
 
static struct type *type_long (void);
static struct type *type_long (void);
 
 
static struct type *type_long_long (void);
static struct type *type_long_long (void);
 
 
static struct type *type_float (void);
static struct type *type_float (void);
 
 
static struct type *type_double (void);
static struct type *type_double (void);
 
 
static struct type *type_long_double (void);
static struct type *type_long_double (void);
 
 
static struct type *type_char (void);
static struct type *type_char (void);
 
 
static struct type *type_boolean (void);
static struct type *type_boolean (void);
 
 
static struct type *type_system_address (void);
static struct type *type_system_address (void);
 
 
 
 
 
 
/* Enabling traces.  */
/* Enabling traces.  */
#ifndef YYDEBUG
#ifndef YYDEBUG
# define YYDEBUG 0
# define YYDEBUG 0
#endif
#endif
 
 
/* Enabling verbose error messages.  */
/* Enabling verbose error messages.  */
#ifdef YYERROR_VERBOSE
#ifdef YYERROR_VERBOSE
# undef YYERROR_VERBOSE
# undef YYERROR_VERBOSE
# define YYERROR_VERBOSE 1
# define YYERROR_VERBOSE 1
#else
#else
# define YYERROR_VERBOSE 0
# define YYERROR_VERBOSE 0
#endif
#endif
 
 
#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
#if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
#line 163 "ada-exp.y"
#line 163 "ada-exp.y"
typedef union YYSTYPE {
typedef union YYSTYPE {
    LONGEST lval;
    LONGEST lval;
    struct {
    struct {
      LONGEST val;
      LONGEST val;
      struct type *type;
      struct type *type;
    } typed_val;
    } typed_val;
    struct {
    struct {
      DOUBLEST dval;
      DOUBLEST dval;
      struct type *type;
      struct type *type;
    } typed_val_float;
    } typed_val_float;
    struct type *tval;
    struct type *tval;
    struct stoken sval;
    struct stoken sval;
    struct block *bval;
    struct block *bval;
    struct internalvar *ivar;
    struct internalvar *ivar;
  } YYSTYPE;
  } YYSTYPE;
/* Line 191 of yacc.c.  */
/* Line 191 of yacc.c.  */
#line 313 "ada-exp.c.tmp"
#line 313 "ada-exp.c.tmp"
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
# define YYSTYPE_IS_DECLARED 1
# define YYSTYPE_IS_DECLARED 1
# define YYSTYPE_IS_TRIVIAL 1
# define YYSTYPE_IS_TRIVIAL 1
#endif
#endif
 
 
 
 
 
 
/* Copy the second part of user declarations.  */
/* Copy the second part of user declarations.  */
 
 
 
 
/* Line 214 of yacc.c.  */
/* Line 214 of yacc.c.  */
#line 325 "ada-exp.c.tmp"
#line 325 "ada-exp.c.tmp"
 
 
#if ! defined (yyoverflow) || YYERROR_VERBOSE
#if ! defined (yyoverflow) || YYERROR_VERBOSE
 
 
# ifndef YYFREE
# ifndef YYFREE
#  define YYFREE xfree
#  define YYFREE xfree
# endif
# endif
# ifndef YYMALLOC
# ifndef YYMALLOC
#  define YYMALLOC xmalloc
#  define YYMALLOC xmalloc
# endif
# endif
 
 
/* The parser invokes alloca or xmalloc; define the necessary symbols.  */
/* The parser invokes alloca or xmalloc; define the necessary symbols.  */
 
 
# ifdef YYSTACK_USE_ALLOCA
# ifdef YYSTACK_USE_ALLOCA
#  if YYSTACK_USE_ALLOCA
#  if YYSTACK_USE_ALLOCA
#   define YYSTACK_ALLOC alloca
#   define YYSTACK_ALLOC alloca
#  endif
#  endif
# else
# else
#  if defined (alloca) || defined (_ALLOCA_H)
#  if defined (alloca) || defined (_ALLOCA_H)
#   define YYSTACK_ALLOC alloca
#   define YYSTACK_ALLOC alloca
#  else
#  else
#   ifdef __GNUC__
#   ifdef __GNUC__
#    define YYSTACK_ALLOC __builtin_alloca
#    define YYSTACK_ALLOC __builtin_alloca
#   endif
#   endif
#  endif
#  endif
# endif
# endif
 
 
# ifdef YYSTACK_ALLOC
# ifdef YYSTACK_ALLOC
   /* Pacify GCC's `empty if-body' warning. */
   /* Pacify GCC's `empty if-body' warning. */
#  define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
#  define YYSTACK_FREE(Ptr) do { /* empty */; } while (0)
# else
# else
#  if defined (__STDC__) || defined (__cplusplus)
#  if defined (__STDC__) || defined (__cplusplus)
#   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
#   include <stdlib.h> /* INFRINGES ON USER NAME SPACE */
#   define YYSIZE_T size_t
#   define YYSIZE_T size_t
#  endif
#  endif
#  define YYSTACK_ALLOC YYMALLOC
#  define YYSTACK_ALLOC YYMALLOC
#  define YYSTACK_FREE YYFREE
#  define YYSTACK_FREE YYFREE
# endif
# endif
#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */
#endif /* ! defined (yyoverflow) || YYERROR_VERBOSE */
 
 
 
 
#if (! defined (yyoverflow) \
#if (! defined (yyoverflow) \
     && (! defined (__cplusplus) \
     && (! defined (__cplusplus) \
         || (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL)))
         || (defined (YYSTYPE_IS_TRIVIAL) && YYSTYPE_IS_TRIVIAL)))
 
 
/* A type that is properly aligned for any stack member.  */
/* A type that is properly aligned for any stack member.  */
union yyalloc
union yyalloc
{
{
  short yyss;
  short yyss;
  YYSTYPE yyvs;
  YYSTYPE yyvs;
  };
  };
 
 
/* The size of the maximum gap between one aligned stack and the next.  */
/* The size of the maximum gap between one aligned stack and the next.  */
# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
# define YYSTACK_GAP_MAXIMUM (sizeof (union yyalloc) - 1)
 
 
/* The size of an array large to enough to hold all stacks, each with
/* The size of an array large to enough to hold all stacks, each with
   N elements.  */
   N elements.  */
# define YYSTACK_BYTES(N) \
# define YYSTACK_BYTES(N) \
     ((N) * (sizeof (short) + sizeof (YYSTYPE))                         \
     ((N) * (sizeof (short) + sizeof (YYSTYPE))                         \
      + YYSTACK_GAP_MAXIMUM)
      + YYSTACK_GAP_MAXIMUM)
 
 
/* Copy COUNT objects from FROM to TO.  The source and destination do
/* Copy COUNT objects from FROM to TO.  The source and destination do
   not overlap.  */
   not overlap.  */
# ifndef YYCOPY
# ifndef YYCOPY
#  if defined (__GNUC__) && 1 < __GNUC__
#  if defined (__GNUC__) && 1 < __GNUC__
#   define YYCOPY(To, From, Count) \
#   define YYCOPY(To, From, Count) \
      __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
      __builtin_memcpy (To, From, (Count) * sizeof (*(From)))
#  else
#  else
#   define YYCOPY(To, From, Count)              \
#   define YYCOPY(To, From, Count)              \
      do                                        \
      do                                        \
        {                                       \
        {                                       \
          register YYSIZE_T yyi;                \
          register YYSIZE_T yyi;                \
          for (yyi = 0; yyi < (Count); yyi++)    \
          for (yyi = 0; yyi < (Count); yyi++)    \
            (To)[yyi] = (From)[yyi];            \
            (To)[yyi] = (From)[yyi];            \
        }                                       \
        }                                       \
      while (0)
      while (0)
#  endif
#  endif
# endif
# endif
 
 
/* Relocate STACK from its old location to the new one.  The
/* Relocate STACK from its old location to the new one.  The
   local variables YYSIZE and YYSTACKSIZE give the old and new number of
   local variables YYSIZE and YYSTACKSIZE give the old and new number of
   elements in the stack, and YYPTR gives the new location of the
   elements in the stack, and YYPTR gives the new location of the
   stack.  Advance YYPTR to a properly aligned location for the next
   stack.  Advance YYPTR to a properly aligned location for the next
   stack.  */
   stack.  */
# define YYSTACK_RELOCATE(Stack)                                        \
# define YYSTACK_RELOCATE(Stack)                                        \
    do                                                                  \
    do                                                                  \
      {                                                                 \
      {                                                                 \
        YYSIZE_T yynewbytes;                                            \
        YYSIZE_T yynewbytes;                                            \
        YYCOPY (&yyptr->Stack, Stack, yysize);                          \
        YYCOPY (&yyptr->Stack, Stack, yysize);                          \
        Stack = &yyptr->Stack;                                          \
        Stack = &yyptr->Stack;                                          \
        yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
        yynewbytes = yystacksize * sizeof (*Stack) + YYSTACK_GAP_MAXIMUM; \
        yyptr += yynewbytes / sizeof (*yyptr);                          \
        yyptr += yynewbytes / sizeof (*yyptr);                          \
      }                                                                 \
      }                                                                 \
    while (0)
    while (0)
 
 
#endif
#endif
 
 
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
   typedef signed char yysigned_char;
   typedef signed char yysigned_char;
#else
#else
   typedef short yysigned_char;
   typedef short yysigned_char;
#endif
#endif
 
 
/* YYFINAL -- State number of the termination state. */
/* YYFINAL -- State number of the termination state. */
#define YYFINAL  57
#define YYFINAL  57
/* YYLAST -- Last index in YYTABLE.  */
/* YYLAST -- Last index in YYTABLE.  */
#define YYLAST   770
#define YYLAST   770
 
 
/* YYNTOKENS -- Number of terminals. */
/* YYNTOKENS -- Number of terminals. */
#define YYNTOKENS  69
#define YYNTOKENS  69
/* YYNNTS -- Number of nonterminals. */
/* YYNNTS -- Number of nonterminals. */
#define YYNNTS  31
#define YYNNTS  31
/* YYNRULES -- Number of rules. */
/* YYNRULES -- Number of rules. */
#define YYNRULES  122
#define YYNRULES  122
/* YYNRULES -- Number of states. */
/* YYNRULES -- Number of states. */
#define YYNSTATES  233
#define YYNSTATES  233
 
 
/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
#define YYUNDEFTOK  2
#define YYUNDEFTOK  2
#define YYMAXUTOK   303
#define YYMAXUTOK   303
 
 
#define YYTRANSLATE(YYX)                                                \
#define YYTRANSLATE(YYX)                                                \
  ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
  ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
 
 
/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX.  */
/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX.  */
static const unsigned char yytranslate[] =
static const unsigned char yytranslate[] =
{
{
       0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,    32,    64,
       2,     2,     2,     2,     2,     2,     2,     2,    32,    64,
      58,    63,    34,    30,    65,    31,    57,    35,     2,     2,
      58,    63,    34,    30,    65,    31,    57,    35,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,    62,
       2,     2,     2,     2,     2,     2,     2,     2,     2,    62,
      22,    21,    23,     2,    29,     2,     2,     2,     2,     2,
      22,    21,    23,     2,    29,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,    59,     2,    68,     2,     2,     2,     2,     2,     2,
       2,    59,     2,    68,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,    66,    42,    67,     2,     2,     2,     2,
       2,     2,     2,    66,    42,    67,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
       2,     2,     2,     2,     2,     2,     1,     2,     3,     4,
       2,     2,     2,     2,     2,     2,     1,     2,     3,     4,
       5,     6,     7,     8,     9,    10,    11,    12,    13,    14,
       5,     6,     7,     8,     9,    10,    11,    12,    13,    14,
      15,    16,    17,    18,    19,    20,    24,    25,    26,    27,
      15,    16,    17,    18,    19,    20,    24,    25,    26,    27,
      28,    33,    36,    37,    38,    39,    40,    41,    43,    44,
      28,    33,    36,    37,    38,    39,    40,    41,    43,    44,
      45,    46,    47,    48,    49,    50,    51,    52,    53,    54,
      45,    46,    47,    48,    49,    50,    51,    52,    53,    54,
      55,    56,    60,    61
      55,    56,    60,    61
};
};
 
 
#if YYDEBUG
#if YYDEBUG
/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
   YYRHS.  */
   YYRHS.  */
static const unsigned short yyprhs[] =
static const unsigned short yyprhs[] =
{
{
       0,     0,     3,     5,     7,    11,    15,    18,    21,    26,
       0,     0,     3,     5,     7,    11,    15,    18,    21,    26,
      31,    32,    40,    41,    48,    55,    59,    61,    63,    65,
      31,    32,    40,    41,    48,    55,    59,    61,    63,    65,
      67,    70,    73,    76,    79,    80,    82,    86,    90,    96,
      67,    70,    73,    76,    79,    80,    82,    86,    90,    96,
     101,   105,   109,   113,   117,   121,   125,   129,   133,   137,
     101,   105,   109,   113,   117,   121,   125,   129,   133,   137,
     139,   143,   147,   151,   157,   163,   167,   174,   181,   186,
     139,   143,   147,   151,   157,   163,   167,   174,   181,   186,
     190,   194,   198,   200,   202,   204,   206,   208,   210,   214,
     190,   194,   198,   200,   202,   204,   206,   208,   210,   214,
     218,   223,   228,   232,   236,   241,   246,   250,   254,   257,
     218,   223,   228,   232,   236,   241,   246,   250,   254,   257,
     260,   264,   268,   272,   275,   278,   286,   294,   300,   306,
     260,   264,   268,   272,   275,   278,   286,   294,   300,   306,
     309,   310,   314,   316,   318,   319,   321,   323,   325,   327,
     309,   310,   314,   316,   318,   319,   321,   323,   325,   327,
     329,   331,   333,   336,   338,   341,   344,   348,   351,   355,
     329,   331,   333,   336,   338,   341,   344,   348,   351,   355,
     359,   361,   364,   367,   370,   374,   376,   378,   382,   386,
     359,   361,   364,   367,   370,   374,   376,   378,   382,   386,
     388,   389,   394,   398,   399,   406,   407,   412,   416,   417,
     388,   389,   394,   398,   399,   406,   407,   412,   416,   417,
     424,   427,   430
     424,   427,   430
};
};
 
 
/* YYRHS -- A `-1'-separated list of the rules' RHS. */
/* YYRHS -- A `-1'-separated list of the rules' RHS. */
static const yysigned_char yyrhs[] =
static const yysigned_char yyrhs[] =
{
{
      70,     0,    -1,    71,    -1,    78,    -1,    71,    62,    78,
      70,     0,    -1,    71,    -1,    78,    -1,    71,    62,    78,
      -1,    72,    15,    78,    -1,    72,    13,    -1,    72,    12,
      -1,    72,    15,    78,    -1,    72,    13,    -1,    72,    12,
      -1,    72,    58,    76,    63,    -1,    87,    58,    76,    63,
      -1,    72,    58,    76,    63,    -1,    87,    58,    76,    63,
      -1,    -1,    87,    64,    74,    73,    58,    78,    63,    -1,
      -1,    -1,    87,    64,    74,    73,    58,    78,    63,    -1,
      -1,    72,    58,    75,    24,    75,    63,    -1,    87,    58,
      -1,    72,    58,    75,    24,    75,    63,    -1,    87,    58,
      75,    24,    75,    63,    -1,    58,    71,    63,    -1,    87,
      75,    24,    75,    63,    -1,    58,    71,    63,    -1,    87,
      -1,    14,    -1,    89,    -1,    72,    -1,    31,    75,    -1,
      -1,    14,    -1,    89,    -1,    72,    -1,    31,    75,    -1,
      30,    75,    -1,    38,    75,    -1,    39,    75,    -1,    -1,
      30,    75,    -1,    38,    75,    -1,    39,    75,    -1,    -1,
      78,    -1,    11,    43,    78,    -1,    76,    65,    78,    -1,
      78,    -1,    11,    43,    78,    -1,    76,    65,    78,    -1,
      76,    65,    11,    43,    78,    -1,    66,    87,    67,    72,
      76,    65,    11,    43,    78,    -1,    66,    87,    67,    72,
      -1,    75,    40,    75,    -1,    75,    34,    75,    -1,    75,
      -1,    75,    40,    75,    -1,    75,    34,    75,    -1,    75,
      35,    75,    -1,    75,    36,    75,    -1,    75,    37,    75,
      35,    75,    -1,    75,    36,    75,    -1,    75,    37,    75,
      -1,    75,    29,    75,    -1,    75,    30,    75,    -1,    75,
      -1,    75,    29,    75,    -1,    75,    30,    75,    -1,    75,
      32,    75,    -1,    75,    31,    75,    -1,    75,    -1,    75,
      32,    75,    -1,    75,    31,    75,    -1,    75,    -1,    75,
      21,    75,    -1,    75,    28,    75,    -1,    75,    27,    75,
      21,    75,    -1,    75,    28,    75,    -1,    75,    27,    75,
      -1,    75,    25,    75,    24,    75,    -1,    75,    25,    72,
      -1,    75,    25,    75,    24,    75,    -1,    75,    25,    72,
      55,    84,    -1,    75,    25,    87,    -1,    75,    38,    25,
      55,    84,    -1,    75,    25,    87,    -1,    75,    38,    25,
      75,    24,    75,    -1,    75,    38,    25,    72,    55,    84,
      75,    24,    75,    -1,    75,    38,    25,    72,    55,    84,
      -1,    75,    38,    25,    87,    -1,    75,    26,    75,    -1,
      -1,    75,    38,    25,    87,    -1,    75,    26,    75,    -1,
      75,    22,    75,    -1,    75,    23,    75,    -1,    77,    -1,
      75,    22,    75,    -1,    75,    23,    75,    -1,    77,    -1,
      79,    -1,    80,    -1,    81,    -1,    82,    -1,    83,    -1,
      79,    -1,    80,    -1,    81,    -1,    82,    -1,    83,    -1,
      77,    20,    77,    -1,    79,    20,    77,    -1,    77,    20,
      77,    20,    77,    -1,    79,    20,    77,    -1,    77,    20,
      17,    77,    -1,    80,    20,    17,    77,    -1,    77,    19,
      17,    77,    -1,    80,    20,    17,    77,    -1,    77,    19,
      77,    -1,    81,    19,    77,    -1,    77,    19,    16,    77,
      77,    -1,    81,    19,    77,    -1,    77,    19,    16,    77,
      -1,    82,    19,    16,    77,    -1,    77,    18,    77,    -1,
      -1,    82,    19,    16,    77,    -1,    77,    18,    77,    -1,
      83,    18,    77,    -1,    72,    48,    -1,    72,    47,    -1,
      83,    18,    77,    -1,    72,    48,    -1,    72,    47,    -1,
      72,    46,    84,    -1,    72,    45,    84,    -1,    72,    44,
      72,    46,    84,    -1,    72,    45,    84,    -1,    72,    44,
      84,    -1,    72,    54,    -1,    72,    53,    -1,    86,    50,
      84,    -1,    72,    54,    -1,    72,    53,    -1,    86,    50,
      58,    78,    65,    78,    63,    -1,    86,    51,    58,    78,
      58,    78,    65,    78,    63,    -1,    86,    51,    58,    78,
      65,    78,    63,    -1,    86,    56,    58,    78,    63,    -1,
      65,    78,    63,    -1,    86,    56,    58,    78,    63,    -1,
      85,    52,    58,    78,    63,    -1,    85,    49,    -1,    -1,
      85,    52,    58,    78,    63,    -1,    85,    49,    -1,    -1,
      58,     3,    63,    -1,    87,    -1,    85,    -1,    -1,     3,
      58,     3,    63,    -1,    87,    -1,    85,    -1,    -1,     3,
      -1,     5,    -1,     6,    -1,     4,    -1,    10,    -1,     7,
      -1,     5,    -1,     6,    -1,     4,    -1,    10,    -1,     7,
      -1,     8,    -1,    60,    11,    -1,    11,    -1,    88,    11,
      -1,     8,    -1,    60,    11,    -1,    11,    -1,    88,    11,
      -1,    11,    48,    -1,    88,    11,    48,    -1,    11,     9,
      -1,    11,    48,    -1,    88,    11,    48,    -1,    11,     9,
      -1,    88,    11,     9,    -1,    58,    90,    63,    -1,    92,
      -1,    88,    11,     9,    -1,    58,    90,    63,    -1,    92,
      -1,    91,    78,    -1,    91,    92,    -1,    78,    65,    -1,
      -1,    91,    78,    -1,    91,    92,    -1,    78,    65,    -1,
      91,    78,    65,    -1,    93,    -1,    94,    -1,    94,    65,
      91,    78,    65,    -1,    93,    -1,    94,    -1,    94,    65,
      92,    -1,    61,    43,    78,    -1,    95,    -1,    -1,    11,
      92,    -1,    61,    43,    78,    -1,    95,    -1,    -1,    11,
      43,    96,    78,    -1,    75,    43,    78,    -1,    -1,    75,
      43,    96,    78,    -1,    75,    43,    78,    -1,    -1,    75,
      24,    75,    43,    97,    78,    -1,    -1,    11,    42,    98,
      24,    75,    43,    97,    78,    -1,    -1,    11,    42,    98,
      95,    -1,    75,    42,    95,    -1,    -1,    75,    24,    75,
      95,    -1,    75,    42,    95,    -1,    -1,    75,    24,    75,
      42,    99,    95,    -1,    34,    72,    -1,    32,    72,    -1,
      42,    99,    95,    -1,    34,    72,    -1,    32,    72,    -1,
      72,    59,    78,    68,    -1
      72,    59,    78,    68,    -1
};
};
 
 
/* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
/* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
static const unsigned short yyrline[] =
static const unsigned short yyrline[] =
{
{
       0,   228,   228,   232,   233,   235,   240,   244,   248,   254,
       0,   228,   228,   232,   233,   235,   240,   244,   248,   254,
     273,   273,   285,   289,   291,   299,   310,   320,   324,   327,
     273,   273,   285,   289,   291,   299,   310,   320,   324,   327,
     330,   334,   338,   342,   346,   349,   351,   353,   355,   359,
     330,   334,   338,   342,   346,   349,   351,   353,   355,   359,
     372,   376,   380,   384,   388,   392,   396,   400,   404,   408,
     372,   376,   380,   384,   388,   392,   396,   400,   404,   408,
     411,   415,   419,   423,   425,   430,   438,   442,   448,   459,
     411,   415,   419,   423,   425,   430,   438,   442,   448,   459,
     463,   467,   471,   472,   473,   474,   475,   476,   480,   482,
     463,   467,   471,   472,   473,   474,   475,   476,   480,   482,
     487,   489,   494,   496,   501,   503,   507,   509,   521,   523,
     487,   489,   494,   496,   501,   503,   507,   509,   521,   523,
     529,   532,   535,   538,   540,   542,   544,   546,   548,   550,
     529,   532,   535,   538,   540,   542,   544,   546,   548,   550,
     554,   556,   561,   571,   573,   579,   583,   590,   598,   602,
     554,   556,   561,   571,   573,   579,   583,   590,   598,   602,
     608,   610,   614,   618,   620,   622,   630,   641,   643,   648,
     608,   610,   614,   618,   620,   622,   630,   641,   643,   648,
     657,   658,   664,   669,   675,   684,   685,   686,   690,   695,
     657,   658,   664,   669,   675,   684,   685,   686,   690,   695,
     710,   709,   712,   715,   714,   720,   719,   722,   725,   724,
     710,   709,   712,   715,   714,   720,   719,   722,   725,   724,
     732,   734,   736
     732,   734,   736
};
};
#endif
#endif
 
 
#if YYDEBUG || YYERROR_VERBOSE
#if YYDEBUG || YYERROR_VERBOSE
/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
/* YYTNME[SYMBOL-NUM] -- String name of the symbol SYMBOL-NUM.
   First, the terminals, then, starting at YYNTOKENS, nonterminals. */
   First, the terminals, then, starting at YYNTOKENS, nonterminals. */
static const char *const yytname[] =
static const char *const yytname[] =
{
{
  "$end", "error", "$undefined", "INT", "NULL_PTR", "CHARLIT", "FLOAT",
  "$end", "error", "$undefined", "INT", "NULL_PTR", "CHARLIT", "FLOAT",
  "TRUEKEYWORD", "FALSEKEYWORD", "COLONCOLON", "STRING", "NAME", "DOT_ID",
  "TRUEKEYWORD", "FALSEKEYWORD", "COLONCOLON", "STRING", "NAME", "DOT_ID",
  "DOT_ALL", "SPECIAL_VARIABLE", "ASSIGN", "ELSE", "THEN", "XOR", "OR",
  "DOT_ALL", "SPECIAL_VARIABLE", "ASSIGN", "ELSE", "THEN", "XOR", "OR",
  "_AND_", "'='", "'<'", "'>'", "DOTDOT", "IN", "GEQ", "LEQ", "NOTEQUAL",
  "_AND_", "'='", "'<'", "'>'", "DOTDOT", "IN", "GEQ", "LEQ", "NOTEQUAL",
  "'@'", "'+'", "'-'", "'&'", "UNARY", "'*'", "'/'", "REM", "MOD", "NOT",
  "'@'", "'+'", "'-'", "'&'", "UNARY", "'*'", "'/'", "REM", "MOD", "NOT",
  "ABS", "STARSTAR", "VAR", "'|'", "ARROW", "TICK_LENGTH", "TICK_LAST",
  "ABS", "STARSTAR", "VAR", "'|'", "ARROW", "TICK_LENGTH", "TICK_LAST",
  "TICK_FIRST", "TICK_ADDRESS", "TICK_ACCESS", "TICK_MODULUS", "TICK_MIN",
  "TICK_FIRST", "TICK_ADDRESS", "TICK_ACCESS", "TICK_MODULUS", "TICK_MIN",
  "TICK_MAX", "TICK_VAL", "TICK_TAG", "TICK_SIZE", "TICK_RANGE",
  "TICK_MAX", "TICK_VAL", "TICK_TAG", "TICK_SIZE", "TICK_RANGE",
  "TICK_POS", "'.'", "'('", "'['", "NEW", "OTHERS", "';'", "')'", "'''",
  "TICK_POS", "'.'", "'('", "'['", "NEW", "OTHERS", "';'", "')'", "'''",
  "','", "'{'", "'}'", "']'", "$accept", "start", "exp1", "primary", "@1",
  "','", "'{'", "'}'", "']'", "$accept", "start", "exp1", "primary", "@1",
  "save_qualifier", "simple_exp", "arglist", "relation", "exp", "and_exp",
  "save_qualifier", "simple_exp", "arglist", "relation", "exp", "and_exp",
  "and_then_exp", "or_exp", "or_else_exp", "xor_exp", "tick_arglist",
  "and_then_exp", "or_exp", "or_else_exp", "xor_exp", "tick_arglist",
  "type_prefix", "opt_type_prefix", "var_or_type", "block", "aggregate",
  "type_prefix", "opt_type_prefix", "var_or_type", "block", "aggregate",
  "aggregate_component_list", "positional_list", "component_groups",
  "aggregate_component_list", "positional_list", "component_groups",
  "others", "component_group", "component_associations", "@2", "@3", "@4",
  "others", "component_group", "component_associations", "@2", "@3", "@4",
  "@5", 0
  "@5", 0
};
};
#endif
#endif
 
 
# ifdef YYPRINT
# ifdef YYPRINT
/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
   token YYLEX-NUM.  */
   token YYLEX-NUM.  */
static const unsigned short yytoknum[] =
static const unsigned short yytoknum[] =
{
{
       0,   256,   257,   258,   259,   260,   261,   262,   263,   264,
       0,   256,   257,   258,   259,   260,   261,   262,   263,   264,
     265,   266,   267,   268,   269,   270,   271,   272,   273,   274,
     265,   266,   267,   268,   269,   270,   271,   272,   273,   274,
     275,    61,    60,    62,   276,   277,   278,   279,   280,    64,
     275,    61,    60,    62,   276,   277,   278,   279,   280,    64,
      43,    45,    38,   281,    42,    47,   282,   283,   284,   285,
      43,    45,    38,   281,    42,    47,   282,   283,   284,   285,
     286,   287,   124,   288,   289,   290,   291,   292,   293,   294,
     286,   287,   124,   288,   289,   290,   291,   292,   293,   294,
     295,   296,   297,   298,   299,   300,   301,    46,    40,    91,
     295,   296,   297,   298,   299,   300,   301,    46,    40,    91,
     302,   303,    59,    41,    39,    44,   123,   125,    93
     302,   303,    59,    41,    39,    44,   123,   125,    93
};
};
# endif
# endif
 
 
/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
static const unsigned char yyr1[] =
static const unsigned char yyr1[] =
{
{
       0,    69,    70,    71,    71,    71,    72,    72,    72,    72,
       0,    69,    70,    71,    71,    71,    72,    72,    72,    72,
      73,    72,    74,    72,    72,    72,    72,    72,    72,    75,
      73,    72,    74,    72,    72,    72,    72,    72,    72,    75,
      75,    75,    75,    75,    76,    76,    76,    76,    76,    72,
      75,    75,    75,    75,    76,    76,    76,    76,    76,    72,
      75,    75,    75,    75,    75,    75,    75,    75,    75,    77,
      75,    75,    75,    75,    75,    75,    75,    75,    75,    77,
      77,    77,    77,    77,    77,    77,    77,    77,    77,    77,
      77,    77,    77,    77,    77,    77,    77,    77,    77,    77,
      77,    77,    78,    78,    78,    78,    78,    78,    79,    79,
      77,    77,    78,    78,    78,    78,    78,    78,    79,    79,
      80,    80,    81,    81,    82,    82,    83,    83,    72,    72,
      80,    80,    81,    81,    82,    82,    83,    83,    72,    72,
      72,    72,    72,    72,    72,    72,    72,    72,    72,    72,
      72,    72,    72,    72,    72,    72,    72,    72,    72,    72,
      84,    84,    85,    86,    86,    72,    72,    72,    72,    72,
      84,    84,    85,    86,    86,    72,    72,    72,    72,    72,
      72,    72,    72,    87,    87,    87,    87,    88,    88,    89,
      72,    72,    72,    87,    87,    87,    87,    88,    88,    89,
      90,    90,    90,    91,    91,    92,    92,    92,    93,    94,
      90,    90,    90,    91,    91,    92,    92,    92,    93,    94,
      96,    95,    95,    97,    95,    98,    95,    95,    99,    95,
      96,    95,    95,    97,    95,    98,    95,    95,    99,    95,
      72,    72,    72
      72,    72,    72
};
};
 
 
/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */
/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */
static const unsigned char yyr2[] =
static const unsigned char yyr2[] =
{
{
       0,     2,     1,     1,     3,     3,     2,     2,     4,     4,
       0,     2,     1,     1,     3,     3,     2,     2,     4,     4,
       0,     7,     0,     6,     6,     3,     1,     1,     1,     1,
       0,     7,     0,     6,     6,     3,     1,     1,     1,     1,
       2,     2,     2,     2,     0,     1,     3,     3,     5,     4,
       2,     2,     2,     2,     0,     1,     3,     3,     5,     4,
       3,     3,     3,     3,     3,     3,     3,     3,     3,     1,
       3,     3,     3,     3,     3,     3,     3,     3,     3,     1,
       3,     3,     3,     5,     5,     3,     6,     6,     4,     3,
       3,     3,     3,     5,     5,     3,     6,     6,     4,     3,
       3,     3,     1,     1,     1,     1,     1,     1,     3,     3,
       3,     3,     1,     1,     1,     1,     1,     1,     3,     3,
       4,     4,     3,     3,     4,     4,     3,     3,     2,     2,
       4,     4,     3,     3,     4,     4,     3,     3,     2,     2,
       3,     3,     3,     2,     2,     7,     7,     5,     5,     2,
       3,     3,     3,     2,     2,     7,     7,     5,     5,     2,
       0,     3,     1,     1,     0,     1,     1,     1,     1,     1,
       0,     3,     1,     1,     0,     1,     1,     1,     1,     1,
       1,     1,     2,     1,     2,     2,     3,     2,     3,     3,
       1,     1,     2,     1,     2,     2,     3,     2,     3,     3,
       1,     2,     2,     2,     3,     1,     1,     3,     3,     1,
       1,     2,     2,     2,     3,     1,     1,     3,     3,     1,
       0,     4,     3,     0,     6,     0,     4,     3,     0,     6,
       0,     4,     3,     0,     6,     0,     4,     3,     0,     6,
       2,     2,     4
       2,     2,     4
};
};
 
 
/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
   STATE-NUM when YYTABLE doesn't specify something else to do.  Zero
   STATE-NUM when YYTABLE doesn't specify something else to do.  Zero
   means the default is an error.  */
   means the default is an error.  */
static const unsigned char yydefact[] =
static const unsigned char yydefact[] =
{
{
      84,    85,    88,    86,    87,    90,    91,    89,    93,    17,
      84,    85,    88,    86,    87,    90,    91,    89,    93,    17,
      84,    84,    84,    84,    84,    84,    84,     0,     0,     0,
      84,    84,    84,    84,    84,    84,    84,     0,     0,     0,
       2,    19,    39,    52,     3,    53,    54,    55,    56,    57,
       2,    19,    39,    52,     3,    53,    54,    55,    56,    57,
      83,     0,    16,     0,    18,    97,    95,    19,    21,    20,
      83,     0,    16,     0,    18,    97,    95,    19,    21,    20,
     121,   120,    22,    23,    93,     0,     0,    39,     3,     0,
     121,   120,    22,    23,    93,     0,     0,    39,     3,     0,
      84,   100,   105,   106,   109,    92,     0,     1,    84,     7,
      84,   100,   105,   106,   109,    92,     0,     1,    84,     7,
       6,    84,    80,    80,    80,    69,    68,    74,    73,    84,
       6,    84,    80,    80,    80,    69,    68,    74,    73,    84,
      84,    84,    84,    84,    84,    84,    84,    84,    84,    84,
      84,    84,    84,    84,    84,    84,    84,    84,    84,    84,
      84,    84,    84,    84,    84,    84,     0,    84,    84,    84,
      84,    84,    84,    84,    84,    84,     0,    84,    84,    84,
      84,    84,     0,    84,     0,    84,    79,     0,     0,     0,
      84,    84,     0,    84,     0,    84,    79,     0,     0,     0,
       0,    84,    12,    94,   115,   110,    84,    15,    84,    84,
       0,    84,    12,    94,   115,   110,    84,    15,    84,    84,
      84,   103,    99,   101,   102,    84,    84,     4,     5,     0,
      84,   103,    99,   101,   102,    84,    84,     4,     5,     0,
      72,    71,    70,    93,    39,     0,    25,     0,    40,    50,
      72,    71,    70,    93,    39,     0,    25,     0,    40,    50,
      51,    19,     0,    16,    49,    42,    41,    35,    36,    38,
      51,    19,     0,    16,    49,    42,    41,    35,    36,    38,
      37,    31,    32,    33,    34,    84,    30,    66,    84,    62,
      37,    31,    32,    33,    34,    84,    30,    66,    84,    62,
      84,    58,    59,    84,    63,    84,    67,    84,    84,    84,
      84,    58,    59,    84,    63,    84,    67,    84,    84,    84,
      84,    39,     0,    10,    98,    96,    84,    84,   108,     0,
      84,    39,     0,    10,    98,    96,    84,    84,   108,     0,
       0,   117,   112,   104,   107,    29,     0,    84,    84,     8,
       0,   117,   112,   104,   107,    29,     0,    84,    84,     8,
      84,   122,    80,    84,    19,     0,    16,    64,    60,    61,
      84,   122,    80,    84,    19,     0,    16,    64,    60,    61,
      65,     0,     0,     0,     0,    84,     9,     0,   116,   111,
      65,     0,     0,     0,     0,    84,     9,     0,   116,   111,
     118,   113,    81,    26,     0,    93,    27,    44,    43,    80,
     118,   113,    81,    26,     0,    93,    27,    44,    43,    80,
      84,    78,    84,    84,    77,     0,    84,    84,    84,    13,
      84,    78,    84,    84,    77,     0,    84,    84,    84,    13,
      84,    47,    46,     0,     0,    14,     0,   119,   114,    28,
      84,    47,    46,     0,     0,    14,     0,   119,   114,    28,
      75,    76,    11
      75,    76,    11
};
};
 
 
/* YYDEFGOTO[NTERM-NUM]. */
/* YYDEFGOTO[NTERM-NUM]. */
static const short yydefgoto[] =
static const short yydefgoto[] =
{
{
      -1,    19,    20,    37,   197,   163,    22,   125,    23,   126,
      -1,    19,    20,    37,   197,   163,    22,   125,    23,   126,
      25,    26,    27,    28,    29,   120,    30,    31,    32,    33,
      25,    26,    27,    28,    29,   120,    30,    31,    32,    33,
      34,    49,    50,    51,    52,    53,    54,   167,   218,   166,
      34,    49,    50,    51,    52,    53,    54,   167,   218,   166,
     217
     217
};
};
 
 
/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
   STATE-NUM.  */
   STATE-NUM.  */
#define YYPACT_NINF -104
#define YYPACT_NINF -104
static const short yypact[] =
static const short yypact[] =
{
{
     424,  -104,  -104,  -104,  -104,  -104,  -104,  -104,    16,  -104,
     424,  -104,  -104,  -104,  -104,  -104,  -104,  -104,    16,  -104,
     424,   424,   118,   118,   424,   424,   286,    -7,     6,    31,
     424,   424,   118,   118,   424,   424,   286,    -7,     6,    31,
     -26,   501,   674,    20,  -104,    28,    32,    22,    34,    42,
     -26,   501,   674,    20,  -104,    28,    32,    22,    34,    42,
     -44,   -21,    84,    57,  -104,  -104,  -104,   558,    63,    63,
     -44,   -21,    84,    57,  -104,  -104,  -104,   558,    63,    63,
      -3,    -3,    63,    63,    23,    26,   -36,   611,     9,    27,
      -3,    -3,    63,    63,    23,    26,   -36,   611,     9,    27,
     286,  -104,  -104,    29,  -104,  -104,    25,  -104,   424,  -104,
     286,  -104,  -104,    29,  -104,  -104,    25,  -104,   424,  -104,
    -104,   424,    35,    35,    35,  -104,  -104,  -104,  -104,   274,
    -104,   424,    35,    35,    35,  -104,  -104,  -104,  -104,   274,
     424,   424,   424,   424,   424,   424,   424,   424,   424,   424,
     424,   424,   424,   424,   424,   424,   424,   424,   424,   424,
     424,   424,   424,   424,   424,   424,    71,   424,   424,   350,
     424,   424,   424,   424,   424,   424,    71,   424,   424,   350,
     387,   424,    91,   424,    85,   424,  -104,    53,    58,    59,
     387,   424,    91,   424,    85,   424,  -104,    53,    58,    59,
      60,   274,  -104,    19,  -104,  -104,   424,  -104,   424,   461,
      60,   274,  -104,    19,  -104,  -104,   424,  -104,   424,   461,
     424,  -104,  -104,    50,  -104,   286,   118,  -104,  -104,   124,
     424,  -104,  -104,    50,  -104,   286,   118,  -104,  -104,   124,
    -104,  -104,  -104,     3,   634,   -52,  -104,    70,   719,   719,
    -104,  -104,  -104,     3,   634,   -52,  -104,    70,   719,   719,
     719,   521,   166,   173,   719,   719,   719,   730,    63,    63,
     719,   521,   166,   173,   719,   719,   719,   730,    63,    63,
      63,    99,    99,    99,    99,   424,    99,  -104,   424,  -104,
      63,    99,    99,    99,    99,   424,    99,  -104,   424,  -104,
     424,  -104,  -104,   424,  -104,   424,  -104,   424,   424,   424,
     424,  -104,  -104,   424,  -104,   424,  -104,   424,   424,   424,
     424,   654,   -41,  -104,  -104,  -104,   461,   424,  -104,   704,
     424,   654,   -41,  -104,  -104,  -104,   461,   424,  -104,   704,
     689,  -104,  -104,  -104,  -104,    -3,    68,   424,   424,  -104,
     689,  -104,  -104,  -104,  -104,    -3,    68,   424,   424,  -104,
     498,  -104,    35,   424,   538,   215,   208,  -104,  -104,  -104,
     498,  -104,    35,   424,   538,   215,   208,  -104,  -104,  -104,
    -104,    78,    79,    80,    83,   424,  -104,    93,  -104,  -104,
    -104,    78,    79,    80,    83,   424,  -104,    93,  -104,  -104,
    -104,  -104,  -104,  -104,   339,    14,  -104,  -104,   719,    35,
    -104,  -104,  -104,  -104,   339,    14,  -104,  -104,   719,    35,
     424,  -104,   424,   424,  -104,   589,   424,   461,   424,  -104,
     424,  -104,   424,   424,  -104,   589,   424,   461,   424,  -104,
     424,  -104,   719,    90,    92,  -104,    98,  -104,  -104,  -104,
     424,  -104,   719,    90,    92,  -104,    98,  -104,  -104,  -104,
    -104,  -104,  -104
    -104,  -104,  -104
};
};
 
 
/* YYPGOTO[NTERM-NUM].  */
/* YYPGOTO[NTERM-NUM].  */
static const yysigned_char yypgoto[] =
static const yysigned_char yypgoto[] =
{
{
    -104,  -104,   127,    21,  -104,  -104,     4,    55,   -46,     0,
    -104,  -104,   127,    21,  -104,  -104,     4,    55,   -46,     0,
    -104,  -104,  -104,  -104,  -104,   -62,  -104,  -104,   -15,  -104,
    -104,  -104,  -104,  -104,  -104,   -62,  -104,  -104,   -15,  -104,
    -104,  -104,  -104,   -43,  -104,  -104,  -103,  -104,  -104,  -104,
    -104,  -104,  -104,   -43,  -104,  -104,  -103,  -104,  -104,  -104,
    -104
    -104
};
};
 
 
/* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
/* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
   positive, shift that token.  If negative, reduce the rule which
   positive, shift that token.  If negative, reduce the rule which
   number is the opposite.  If zero, do what YYDEFACT says.
   number is the opposite.  If zero, do what YYDEFACT says.
   If YYTABLE_NINF, syntax error.  */
   If YYTABLE_NINF, syntax error.  */
#define YYTABLE_NINF -83
#define YYTABLE_NINF -83
static const short yytable[] =
static const short yytable[] =
{
{
      24,   121,   122,    56,    55,    96,   171,   114,    97,    59,
      24,   121,   122,    56,    55,    96,   171,   114,    97,    59,
      60,   179,    35,   180,    38,    39,    48,     8,    42,    43,
      60,   179,    35,   180,    38,    39,    48,     8,    42,    43,
      47,    21,   196,    35,   180,    35,    58,   107,   164,    98,
      47,    21,   196,    35,   180,    35,    58,   107,   164,    98,
      99,    57,    35,    40,    41,   100,    58,    21,    88,    89,
      99,    57,    35,    40,    41,   100,    58,    21,    88,    89,
      90,    93,   147,   149,   151,   152,   177,   154,    91,   156,
      90,    93,   147,   149,   151,   152,   177,   154,    91,   156,
     113,    36,    92,    94,    47,    69,    70,   220,   117,   133,
     113,    36,    92,    94,    47,    69,    70,   220,   117,   133,
      95,   118,    36,   198,    36,   104,   105,   165,   103,   106,
      95,   118,    36,   198,    36,   104,   105,   165,   103,   106,
     127,    36,   174,   124,   111,   128,   129,   130,   132,   134,
     127,    36,   174,   124,   111,   128,   129,   130,   132,   134,
     135,   136,   137,   138,   139,   140,   141,   142,   143,   144,
     135,   136,   137,   138,   139,   140,   141,   142,   143,   144,
     112,   146,   116,   119,   115,   131,   145,    82,    83,    84,
     112,   146,   116,   119,   115,   131,   145,    82,    83,    84,
      85,   155,   187,    87,   188,   161,   168,   189,   153,   190,
      85,   155,   187,    87,   188,   161,   168,   189,   153,   190,
     172,   157,   169,   170,   227,   173,   158,   159,   160,   170,
     172,   157,   169,   170,   227,   173,   158,   159,   160,   170,
     207,     1,     2,     3,     4,     5,     6,   176,     7,     8,
     207,     1,     2,     3,     4,     5,     6,   176,     7,     8,
     186,   202,     9,   -82,   -82,   -82,   -82,   175,   181,    87,
     186,   202,     9,   -82,   -82,   -82,   -82,   175,   181,    87,
     -82,   211,   101,    46,   212,   213,   214,   221,   102,   185,
     -82,   211,   101,    46,   212,   213,   214,   221,   102,   185,
      12,   216,    13,   230,     0,   231,   162,   191,   192,   193,
      12,   216,    13,   230,     0,   231,   162,   191,   192,   193,
     194,   232,     0,     0,     0,     0,   184,   199,     0,     0,
     194,   232,     0,     0,     0,     0,   184,   199,     0,     0,
     170,     0,     0,   -45,     0,     0,    16,   203,    17,     0,
     170,     0,     0,   -45,     0,     0,    16,   203,    17,     0,
     206,     0,   204,     0,    18,     0,     0,   208,     0,     0,
     206,     0,   204,     0,    18,     0,     0,   208,     0,     0,
     183,   -45,   -45,   -45,     0,    78,    79,    80,    81,   215,
     183,   -45,   -45,   -45,     0,    78,    79,    80,    81,   215,
      82,    83,    84,    85,     0,     0,    87,     0,   -48,     0,
      82,    83,    84,    85,     0,     0,    87,     0,   -48,     0,
       0,     0,   223,   224,   222,     0,   226,     0,   228,     0,
       0,     0,   223,   224,   222,     0,   226,     0,   228,     0,
     229,   170,   -82,   -82,   -82,   -82,   -48,   -48,   -48,   -82,
     229,   170,   -82,   -82,   -82,   -82,   -48,   -48,   -48,   -82,
       0,   101,     0,     0,     0,   -45,   -45,   102,   -45,   210,
       0,   101,     0,     0,     0,   -45,   -45,   102,   -45,   210,
       0,   -45,     0,     0,    78,    79,    80,    81,     0,    82,
       0,   -45,     0,     0,    78,    79,    80,    81,     0,    82,
      83,    84,    85,     0,     0,    87,     0,   -82,   -82,   -82,
      83,    84,    85,     0,     0,    87,     0,   -82,   -82,   -82,
     -82,     0,     0,     0,   -82,     0,   101,     0,     0,     0,
     -82,     0,     0,     0,   -82,     0,   101,     0,     0,     0,
     -48,   -48,   102,   -48,     0,     0,   -48,     1,     2,     3,
     -48,   -48,   102,   -48,     0,     0,   -48,     1,     2,     3,
       4,     5,     6,     0,     7,   123,     0,     0,     9,     1,
       4,     5,     6,     0,     7,   123,     0,     0,     9,     1,
       2,     3,     4,     5,     6,     0,     7,    44,     0,     0,
       2,     3,     4,     5,     6,     0,     7,    44,     0,     0,
       9,     0,     0,     0,    10,    11,    12,     0,    13,     0,
       9,     0,     0,     0,    10,    11,    12,     0,    13,     0,
       0,     0,    14,    15,     0,     0,    10,    11,    12,     0,
       0,     0,    14,    15,     0,     0,    10,    11,    12,     0,
      13,     0,     0,     0,    14,    15,     0,     0,     0,     0,
      13,     0,     0,     0,    14,    15,     0,     0,     0,     0,
       0,     0,    16,     0,    17,     0,     0,   -24,     0,   -24,
       0,     0,    16,     0,    17,     0,     0,   -24,     0,   -24,
      18,     0,     0,     0,    16,     0,    17,    45,     0,     0,
      18,     0,     0,     0,    16,     0,    17,    45,     0,     0,
       0,     0,    18,     1,     2,     3,     4,     5,     6,     0,
       0,     0,    18,     1,     2,     3,     4,     5,     6,     0,
       7,     8,     0,     0,     9,     0,   148,     0,    78,    79,
       7,     8,     0,     0,     9,     0,   148,     0,    78,    79,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
      10,    11,    12,     0,    13,     0,     0,     0,    14,    15,
      10,    11,    12,     0,    13,     0,     0,     0,    14,    15,
       1,     2,     3,     4,     5,     6,     0,     7,     8,     0,
       1,     2,     3,     4,     5,     6,     0,     7,     8,     0,
       0,     9,   219,     0,   150,     0,     0,     0,    16,     0,
       0,     9,   219,     0,   150,     0,     0,     0,    16,     0,
      17,     0,     0,     0,     0,     0,    18,    10,    11,    12,
      17,     0,     0,     0,     0,     0,    18,    10,    11,    12,
       0,    13,     0,     0,     0,    14,    15,     1,     2,     3,
       0,    13,     0,     0,     0,    14,    15,     1,     2,     3,
       4,     5,     6,     0,     7,     8,     0,     0,     9,     0,
       4,     5,     6,     0,     7,     8,     0,     0,     9,     0,
       0,     0,     0,     0,     0,    16,     0,    17,     0,     0,
       0,     0,     0,     0,     0,    16,     0,    17,     0,     0,
       0,     0,     0,    18,    10,    11,    12,     0,    13,     0,
       0,     0,     0,    18,    10,    11,    12,     0,    13,     0,
       0,     0,    14,    15,     1,     2,     3,     4,     5,     6,
       0,     0,    14,    15,     1,     2,     3,     4,     5,     6,
       0,     7,    44,     0,     0,     9,     0,     0,     0,     0,
       0,     7,    44,     0,     0,     9,     0,     0,     0,     0,
       0,     0,    16,     0,    17,     0,     0,     0,     0,     0,
       0,     0,    16,     0,    17,     0,     0,     0,     0,     0,
      18,    10,    11,    12,     0,    13,     0,     0,     0,    14,
      18,    10,    11,    12,     0,    13,     0,     0,     0,    14,
      15,     1,     2,     3,     4,     5,     6,     0,     7,   205,
      15,     1,     2,     3,     4,     5,     6,     0,     7,   205,
       0,     0,     9,    59,    60,     0,    61,     0,     0,    16,
       0,     0,     9,    59,    60,     0,    61,     0,     0,    16,
       0,    17,     0,     0,     0,     0,     0,    18,    10,    11,
       0,    17,     0,     0,     0,     0,     0,    18,    10,    11,
      12,     0,    13,    59,    60,     0,    14,    15,     0,     0,
      12,     0,    13,    59,    60,     0,    14,    15,     0,     0,
       0,     0,     0,     0,     0,    62,    63,    64,    65,    66,
       0,     0,     0,     0,     0,    62,    63,    64,    65,    66,
      59,    60,     0,     0,    67,    68,    16,     0,    17,    69,
      59,    60,     0,     0,    67,    68,    16,     0,    17,    69,
      70,     0,     0,     0,    18,    62,    63,    64,    65,    66,
      70,     0,     0,     0,    18,    62,    63,    64,    65,    66,
      59,    60,     0,     0,    67,    68,   182,     0,     0,    69,
      59,    60,     0,     0,    67,    68,   182,     0,     0,    69,
      70,     0,    62,    63,    64,    65,    66,     0,     0,     0,
      70,     0,    62,    63,    64,    65,    66,     0,     0,     0,
       0,    67,    68,   209,     0,     0,    69,    70,     0,     0,
       0,    67,    68,   209,     0,     0,    69,    70,     0,     0,
       0,     0,    62,    63,    64,    65,    66,     0,     0,     0,
       0,     0,    62,    63,    64,    65,    66,     0,     0,     0,
       0,    67,    68,     0,     0,     0,    69,    70,    78,    79,
       0,    67,    68,     0,     0,     0,    69,    70,    78,    79,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
       0,     0,    71,    72,    73,   108,    74,    75,    76,    77,
       0,     0,    71,    72,    73,   108,    74,    75,    76,    77,
      78,    79,    80,    81,     0,    82,    83,    84,    85,    86,
      78,    79,    80,    81,     0,    82,    83,    84,    85,    86,
       0,    87,   225,   109,   110,    71,    72,    73,   178,    74,
       0,    87,   225,   109,   110,    71,    72,    73,   178,    74,
      75,    76,    77,    78,    79,    80,    81,     0,    82,    83,
      75,    76,    77,    78,    79,    80,    81,     0,    82,    83,
      84,    85,    86,     0,    87,    71,    72,    73,   195,    74,
      84,    85,    86,     0,    87,    71,    72,    73,   195,    74,
      75,    76,    77,    78,    79,    80,    81,     0,    82,    83,
      75,    76,    77,    78,    79,    80,    81,     0,    82,    83,
      84,    85,    86,     0,    87,    71,    72,    73,     0,    74,
      84,    85,    86,     0,    87,    71,    72,    73,     0,    74,
      75,    76,    77,    78,    79,    80,    81,     0,    82,    83,
      75,    76,    77,    78,    79,    80,    81,     0,    82,    83,
      84,    85,    86,   108,    87,     0,     0,     0,    78,    79,
      84,    85,    86,   108,    87,     0,     0,     0,    78,    79,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
       0,   109,   110,    78,    79,    80,    81,     0,    82,    83,
       0,   109,   110,    78,    79,    80,    81,     0,    82,    83,
      84,    85,     0,     0,    87,     0,   200,   201,    78,    79,
      84,    85,     0,     0,    87,     0,   200,   201,    78,    79,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
      80,    81,     0,    82,    83,    84,    85,     0,     0,    87,
      79,    80,    81,     0,    82,    83,    84,    85,     0,     0,
      79,    80,    81,     0,    82,    83,    84,    85,     0,     0,
      87
      87
};
};
 
 
static const short yycheck[] =
static const short yycheck[] =
{
{
       0,    63,    64,    18,    11,    49,   109,    50,    52,    12,
       0,    63,    64,    18,    11,    49,   109,    50,    52,    12,
      13,    63,     9,    65,    10,    11,    16,    11,    14,    15,
      13,    63,     9,    65,    10,    11,    16,    11,    14,    15,
      16,     0,    63,     9,    65,     9,    62,    63,     9,    50,
      16,     0,    63,     9,    65,     9,    62,    63,     9,    50,
      51,     0,     9,    12,    13,    56,    62,    16,    18,    19,
      51,     0,     9,    12,    13,    56,    62,    16,    18,    19,
      20,    19,    88,    89,    90,    91,    43,    93,    20,    95,
      20,    19,    88,    89,    90,    91,    43,    93,    20,    95,
      50,    48,    20,    19,    50,    58,    59,    43,    58,    74,
      50,    48,    20,    19,    50,    58,    59,    43,    58,    74,
      18,    61,    48,   166,    48,    42,    43,    48,    11,    43,
      18,    61,    48,   166,    48,    42,    43,    48,    11,    43,
      70,    48,   115,    69,    65,    71,    72,    73,    74,    75,
      70,    48,   115,    69,    65,    71,    72,    73,    74,    75,
      76,    77,    78,    79,    80,    81,    82,    83,    84,    85,
      76,    77,    78,    79,    80,    81,    82,    83,    84,    85,
      63,    87,    67,    58,    65,    74,    25,    34,    35,    36,
      63,    87,    67,    58,    65,    74,    25,    34,    35,    36,
      37,    16,   148,    40,   150,   101,   106,   153,    17,   155,
      37,    16,   148,    40,   150,   101,   106,   153,    17,   155,
     110,    58,   108,   109,   217,    65,    58,    58,    58,   115,
     110,    58,   108,   109,   217,    65,    58,    58,    58,   115,
     182,     3,     4,     5,     6,     7,     8,     3,    10,    11,
     182,     3,     4,     5,     6,     7,     8,     3,    10,    11,
     145,    63,    14,    49,    50,    51,    52,   116,    68,    40,
     145,    63,    14,    49,    50,    51,    52,   116,    68,    40,
      56,    63,    58,    16,    65,    65,    63,   209,    64,   145,
      56,    63,    58,    16,    65,    65,    63,   209,    64,   145,
      32,    58,    34,    63,    -1,    63,   101,   157,   158,   159,
      32,    58,    34,    63,    -1,    63,   101,   157,   158,   159,
     160,    63,    -1,    -1,    -1,    -1,   145,   167,    -1,    -1,
     160,    63,    -1,    -1,    -1,    -1,   145,   167,    -1,    -1,
     166,    -1,    -1,     0,    -1,    -1,    58,   177,    60,    -1,
     166,    -1,    -1,     0,    -1,    -1,    58,   177,    60,    -1,
     180,    -1,   178,    -1,    66,    -1,    -1,   183,    -1,    -1,
     180,    -1,   178,    -1,    66,    -1,    -1,   183,    -1,    -1,
      24,    18,    19,    20,    -1,    29,    30,    31,    32,   195,
      24,    18,    19,    20,    -1,    29,    30,    31,    32,   195,
      34,    35,    36,    37,    -1,    -1,    40,    -1,     0,    -1,
      34,    35,    36,    37,    -1,    -1,    40,    -1,     0,    -1,
      -1,    -1,   212,   213,   210,    -1,   216,    -1,   218,    -1,
      -1,    -1,   212,   213,   210,    -1,   216,    -1,   218,    -1,
     220,   217,    49,    50,    51,    52,    18,    19,    20,    56,
     220,   217,    49,    50,    51,    52,    18,    19,    20,    56,
      -1,    58,    -1,    -1,    -1,    62,    63,    64,    65,    24,
      -1,    58,    -1,    -1,    -1,    62,    63,    64,    65,    24,
      -1,    68,    -1,    -1,    29,    30,    31,    32,    -1,    34,
      -1,    68,    -1,    -1,    29,    30,    31,    32,    -1,    34,
      35,    36,    37,    -1,    -1,    40,    -1,    49,    50,    51,
      35,    36,    37,    -1,    -1,    40,    -1,    49,    50,    51,
      52,    -1,    -1,    -1,    56,    -1,    58,    -1,    -1,    -1,
      52,    -1,    -1,    -1,    56,    -1,    58,    -1,    -1,    -1,
      62,    63,    64,    65,    -1,    -1,    68,     3,     4,     5,
      62,    63,    64,    65,    -1,    -1,    68,     3,     4,     5,
       6,     7,     8,    -1,    10,    11,    -1,    -1,    14,     3,
       6,     7,     8,    -1,    10,    11,    -1,    -1,    14,     3,
       4,     5,     6,     7,     8,    -1,    10,    11,    -1,    -1,
       4,     5,     6,     7,     8,    -1,    10,    11,    -1,    -1,
      14,    -1,    -1,    -1,    30,    31,    32,    -1,    34,    -1,
      14,    -1,    -1,    -1,    30,    31,    32,    -1,    34,    -1,
      -1,    -1,    38,    39,    -1,    -1,    30,    31,    32,    -1,
      -1,    -1,    38,    39,    -1,    -1,    30,    31,    32,    -1,
      34,    -1,    -1,    -1,    38,    39,    -1,    -1,    -1,    -1,
      34,    -1,    -1,    -1,    38,    39,    -1,    -1,    -1,    -1,
      -1,    -1,    58,    -1,    60,    -1,    -1,    63,    -1,    65,
      -1,    -1,    58,    -1,    60,    -1,    -1,    63,    -1,    65,
      66,    -1,    -1,    -1,    58,    -1,    60,    61,    -1,    -1,
      66,    -1,    -1,    -1,    58,    -1,    60,    61,    -1,    -1,
      -1,    -1,    66,     3,     4,     5,     6,     7,     8,    -1,
      -1,    -1,    66,     3,     4,     5,     6,     7,     8,    -1,
      10,    11,    -1,    -1,    14,    -1,    16,    -1,    29,    30,
      10,    11,    -1,    -1,    14,    -1,    16,    -1,    29,    30,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      30,    31,    32,    -1,    34,    -1,    -1,    -1,    38,    39,
      30,    31,    32,    -1,    34,    -1,    -1,    -1,    38,    39,
       3,     4,     5,     6,     7,     8,    -1,    10,    11,    -1,
       3,     4,     5,     6,     7,     8,    -1,    10,    11,    -1,
      -1,    14,    63,    -1,    17,    -1,    -1,    -1,    58,    -1,
      -1,    14,    63,    -1,    17,    -1,    -1,    -1,    58,    -1,
      60,    -1,    -1,    -1,    -1,    -1,    66,    30,    31,    32,
      60,    -1,    -1,    -1,    -1,    -1,    66,    30,    31,    32,
      -1,    34,    -1,    -1,    -1,    38,    39,     3,     4,     5,
      -1,    34,    -1,    -1,    -1,    38,    39,     3,     4,     5,
       6,     7,     8,    -1,    10,    11,    -1,    -1,    14,    -1,
       6,     7,     8,    -1,    10,    11,    -1,    -1,    14,    -1,
      -1,    -1,    -1,    -1,    -1,    58,    -1,    60,    -1,    -1,
      -1,    -1,    -1,    -1,    -1,    58,    -1,    60,    -1,    -1,
      -1,    -1,    -1,    66,    30,    31,    32,    -1,    34,    -1,
      -1,    -1,    -1,    66,    30,    31,    32,    -1,    34,    -1,
      -1,    -1,    38,    39,     3,     4,     5,     6,     7,     8,
      -1,    -1,    38,    39,     3,     4,     5,     6,     7,     8,
      -1,    10,    11,    -1,    -1,    14,    -1,    -1,    -1,    -1,
      -1,    10,    11,    -1,    -1,    14,    -1,    -1,    -1,    -1,
      -1,    -1,    58,    -1,    60,    -1,    -1,    -1,    -1,    -1,
      -1,    -1,    58,    -1,    60,    -1,    -1,    -1,    -1,    -1,
      66,    30,    31,    32,    -1,    34,    -1,    -1,    -1,    38,
      66,    30,    31,    32,    -1,    34,    -1,    -1,    -1,    38,
      39,     3,     4,     5,     6,     7,     8,    -1,    10,    11,
      39,     3,     4,     5,     6,     7,     8,    -1,    10,    11,
      -1,    -1,    14,    12,    13,    -1,    15,    -1,    -1,    58,
      -1,    -1,    14,    12,    13,    -1,    15,    -1,    -1,    58,
      -1,    60,    -1,    -1,    -1,    -1,    -1,    66,    30,    31,
      -1,    60,    -1,    -1,    -1,    -1,    -1,    66,    30,    31,
      32,    -1,    34,    12,    13,    -1,    38,    39,    -1,    -1,
      32,    -1,    34,    12,    13,    -1,    38,    39,    -1,    -1,
      -1,    -1,    -1,    -1,    -1,    44,    45,    46,    47,    48,
      -1,    -1,    -1,    -1,    -1,    44,    45,    46,    47,    48,
      12,    13,    -1,    -1,    53,    54,    58,    -1,    60,    58,
      12,    13,    -1,    -1,    53,    54,    58,    -1,    60,    58,
      59,    -1,    -1,    -1,    66,    44,    45,    46,    47,    48,
      59,    -1,    -1,    -1,    66,    44,    45,    46,    47,    48,
      12,    13,    -1,    -1,    53,    54,    55,    -1,    -1,    58,
      12,    13,    -1,    -1,    53,    54,    55,    -1,    -1,    58,
      59,    -1,    44,    45,    46,    47,    48,    -1,    -1,    -1,
      59,    -1,    44,    45,    46,    47,    48,    -1,    -1,    -1,
      -1,    53,    54,    55,    -1,    -1,    58,    59,    -1,    -1,
      -1,    53,    54,    55,    -1,    -1,    58,    59,    -1,    -1,
      -1,    -1,    44,    45,    46,    47,    48,    -1,    -1,    -1,
      -1,    -1,    44,    45,    46,    47,    48,    -1,    -1,    -1,
      -1,    53,    54,    -1,    -1,    -1,    58,    59,    29,    30,
      -1,    53,    54,    -1,    -1,    -1,    58,    59,    29,    30,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      -1,    -1,    21,    22,    23,    24,    25,    26,    27,    28,
      -1,    -1,    21,    22,    23,    24,    25,    26,    27,    28,
      29,    30,    31,    32,    -1,    34,    35,    36,    37,    38,
      29,    30,    31,    32,    -1,    34,    35,    36,    37,    38,
      -1,    40,    63,    42,    43,    21,    22,    23,    24,    25,
      -1,    40,    63,    42,    43,    21,    22,    23,    24,    25,
      26,    27,    28,    29,    30,    31,    32,    -1,    34,    35,
      26,    27,    28,    29,    30,    31,    32,    -1,    34,    35,
      36,    37,    38,    -1,    40,    21,    22,    23,    24,    25,
      36,    37,    38,    -1,    40,    21,    22,    23,    24,    25,
      26,    27,    28,    29,    30,    31,    32,    -1,    34,    35,
      26,    27,    28,    29,    30,    31,    32,    -1,    34,    35,
      36,    37,    38,    -1,    40,    21,    22,    23,    -1,    25,
      36,    37,    38,    -1,    40,    21,    22,    23,    -1,    25,
      26,    27,    28,    29,    30,    31,    32,    -1,    34,    35,
      26,    27,    28,    29,    30,    31,    32,    -1,    34,    35,
      36,    37,    38,    24,    40,    -1,    -1,    -1,    29,    30,
      36,    37,    38,    24,    40,    -1,    -1,    -1,    29,    30,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      -1,    42,    43,    29,    30,    31,    32,    -1,    34,    35,
      -1,    42,    43,    29,    30,    31,    32,    -1,    34,    35,
      36,    37,    -1,    -1,    40,    -1,    42,    43,    29,    30,
      36,    37,    -1,    -1,    40,    -1,    42,    43,    29,    30,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      31,    32,    -1,    34,    35,    36,    37,    -1,    -1,    40,
      30,    31,    32,    -1,    34,    35,    36,    37,    -1,    -1,
      30,    31,    32,    -1,    34,    35,    36,    37,    -1,    -1,
      40
      40
};
};
 
 
/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
   symbol of state STATE-NUM.  */
   symbol of state STATE-NUM.  */
static const unsigned char yystos[] =
static const unsigned char yystos[] =
{
{
       0,     3,     4,     5,     6,     7,     8,    10,    11,    14,
       0,     3,     4,     5,     6,     7,     8,    10,    11,    14,
      30,    31,    32,    34,    38,    39,    58,    60,    66,    70,
      30,    31,    32,    34,    38,    39,    58,    60,    66,    70,
      71,    72,    75,    77,    78,    79,    80,    81,    82,    83,
      71,    72,    75,    77,    78,    79,    80,    81,    82,    83,
      85,    86,    87,    88,    89,     9,    48,    72,    75,    75,
      85,    86,    87,    88,    89,     9,    48,    72,    75,    75,
      72,    72,    75,    75,    11,    61,    71,    75,    78,    90,
      72,    72,    75,    75,    11,    61,    71,    75,    78,    90,
      91,    92,    93,    94,    95,    11,    87,     0,    62,    12,
      91,    92,    93,    94,    95,    11,    87,     0,    62,    12,
      13,    15,    44,    45,    46,    47,    48,    53,    54,    58,
      13,    15,    44,    45,    46,    47,    48,    53,    54,    58,
      59,    21,    22,    23,    25,    26,    27,    28,    29,    30,
      59,    21,    22,    23,    25,    26,    27,    28,    29,    30,
      31,    32,    34,    35,    36,    37,    38,    40,    18,    19,
      31,    32,    34,    35,    36,    37,    38,    40,    18,    19,
      20,    20,    20,    19,    19,    18,    49,    52,    50,    51,
      20,    20,    20,    19,    19,    18,    49,    52,    50,    51,
      56,    58,    64,    11,    42,    43,    43,    63,    24,    42,
      56,    58,    64,    11,    42,    43,    43,    63,    24,    42,
      43,    65,    63,    78,    92,    65,    67,    78,    78,    58,
      43,    65,    63,    78,    92,    65,    67,    78,    78,    58,
      84,    84,    84,    11,    75,    76,    78,    78,    75,    75,
      84,    84,    84,    11,    75,    76,    78,    78,    75,    75,
      75,    72,    75,    87,    75,    75,    75,    75,    75,    75,
      75,    72,    75,    87,    75,    75,    75,    75,    75,    75,
      75,    75,    75,    75,    75,    25,    75,    77,    16,    77,
      75,    75,    75,    75,    75,    25,    75,    77,    16,    77,
      17,    77,    77,    17,    77,    16,    77,    58,    58,    58,
      17,    77,    77,    17,    77,    16,    77,    58,    58,    58,
      58,    75,    76,    74,     9,    48,    98,    96,    78,    75,
      58,    75,    76,    74,     9,    48,    98,    96,    78,    75,
      75,    95,    78,    65,    92,    72,     3,    43,    24,    63,
      75,    95,    78,    65,    92,    72,     3,    43,    24,    63,
      65,    68,    55,    24,    72,    75,    87,    77,    77,    77,
      65,    68,    55,    24,    72,    75,    87,    77,    77,    77,
      77,    78,    78,    78,    78,    24,    63,    73,    95,    78,
      77,    78,    78,    78,    78,    24,    63,    73,    95,    78,
      42,    43,    63,    78,    75,    11,    78,    84,    75,    55,
      42,    43,    63,    78,    75,    11,    78,    84,    75,    55,
      24,    63,    65,    65,    63,    75,    58,    99,    97,    63,
      24,    63,    65,    65,    63,    75,    58,    99,    97,    63,
      43,    84,    75,    78,    78,    63,    78,    95,    78,    78,
      43,    84,    75,    78,    78,    63,    78,    95,    78,    78,
      63,    63,    63
      63,    63,    63
};
};
 
 
#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__)
#if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__)
# define YYSIZE_T __SIZE_TYPE__
# define YYSIZE_T __SIZE_TYPE__
#endif
#endif
#if ! defined (YYSIZE_T) && defined (size_t)
#if ! defined (YYSIZE_T) && defined (size_t)
# define YYSIZE_T size_t
# define YYSIZE_T size_t
#endif
#endif
#if ! defined (YYSIZE_T)
#if ! defined (YYSIZE_T)
# if defined (__STDC__) || defined (__cplusplus)
# if defined (__STDC__) || defined (__cplusplus)
#  include <stddef.h> /* INFRINGES ON USER NAME SPACE */
#  include <stddef.h> /* INFRINGES ON USER NAME SPACE */
#  define YYSIZE_T size_t
#  define YYSIZE_T size_t
# endif
# endif
#endif
#endif
#if ! defined (YYSIZE_T)
#if ! defined (YYSIZE_T)
# define YYSIZE_T unsigned int
# define YYSIZE_T unsigned int
#endif
#endif
 
 
#define yyerrok         (yyerrstatus = 0)
#define yyerrok         (yyerrstatus = 0)
#define yyclearin       (yychar = YYEMPTY)
#define yyclearin       (yychar = YYEMPTY)
#define YYEMPTY         (-2)
#define YYEMPTY         (-2)
#define YYEOF           0
#define YYEOF           0
 
 
#define YYACCEPT        goto yyacceptlab
#define YYACCEPT        goto yyacceptlab
#define YYABORT         goto yyabortlab
#define YYABORT         goto yyabortlab
#define YYERROR         goto yyerrorlab
#define YYERROR         goto yyerrorlab
 
 
 
 
/* Like YYERROR except do call yyerror.  This remains here temporarily
/* Like YYERROR except do call yyerror.  This remains here temporarily
   to ease the transition to the new meaning of YYERROR, for GCC.
   to ease the transition to the new meaning of YYERROR, for GCC.
   Once GCC version 2 has supplanted version 1, this can go.  */
   Once GCC version 2 has supplanted version 1, this can go.  */
 
 
#define YYFAIL          goto yyerrlab
#define YYFAIL          goto yyerrlab
 
 
#define YYRECOVERING()  (!!yyerrstatus)
#define YYRECOVERING()  (!!yyerrstatus)
 
 
#define YYBACKUP(Token, Value)                                  \
#define YYBACKUP(Token, Value)                                  \
do                                                              \
do                                                              \
  if (yychar == YYEMPTY && yylen == 1)                          \
  if (yychar == YYEMPTY && yylen == 1)                          \
    {                                                           \
    {                                                           \
      yychar = (Token);                                         \
      yychar = (Token);                                         \
      yylval = (Value);                                         \
      yylval = (Value);                                         \
      yytoken = YYTRANSLATE (yychar);                           \
      yytoken = YYTRANSLATE (yychar);                           \
      YYPOPSTACK;                                               \
      YYPOPSTACK;                                               \
      goto yybackup;                                            \
      goto yybackup;                                            \
    }                                                           \
    }                                                           \
  else                                                          \
  else                                                          \
    {                                                           \
    {                                                           \
      yyerror ("syntax error: cannot back up");\
      yyerror ("syntax error: cannot back up");\
      YYERROR;                                                  \
      YYERROR;                                                  \
    }                                                           \
    }                                                           \
while (0)
while (0)
 
 
#define YYTERROR        1
#define YYTERROR        1
#define YYERRCODE       256
#define YYERRCODE       256
 
 
/* YYLLOC_DEFAULT -- Compute the default location (before the actions
/* YYLLOC_DEFAULT -- Compute the default location (before the actions
   are run).  */
   are run).  */
 
 
#ifndef YYLLOC_DEFAULT
#ifndef YYLLOC_DEFAULT
# define YYLLOC_DEFAULT(Current, Rhs, N)                \
# define YYLLOC_DEFAULT(Current, Rhs, N)                \
   ((Current).first_line   = (Rhs)[1].first_line,       \
   ((Current).first_line   = (Rhs)[1].first_line,       \
    (Current).first_column = (Rhs)[1].first_column,     \
    (Current).first_column = (Rhs)[1].first_column,     \
    (Current).last_line    = (Rhs)[N].last_line,        \
    (Current).last_line    = (Rhs)[N].last_line,        \
    (Current).last_column  = (Rhs)[N].last_column)
    (Current).last_column  = (Rhs)[N].last_column)
#endif
#endif
 
 
/* YYLEX -- calling `yylex' with the right arguments.  */
/* YYLEX -- calling `yylex' with the right arguments.  */
 
 
#ifdef YYLEX_PARAM
#ifdef YYLEX_PARAM
# define YYLEX yylex (YYLEX_PARAM)
# define YYLEX yylex (YYLEX_PARAM)
#else
#else
# define YYLEX yylex ()
# define YYLEX yylex ()
#endif
#endif
 
 
/* Enable debugging if requested.  */
/* Enable debugging if requested.  */
#if YYDEBUG
#if YYDEBUG
 
 
# ifndef YYFPRINTF
# ifndef YYFPRINTF
#  include <stdio.h> /* INFRINGES ON USER NAME SPACE */
#  include <stdio.h> /* INFRINGES ON USER NAME SPACE */
#  define YYFPRINTF fprintf
#  define YYFPRINTF fprintf
# endif
# endif
 
 
# define YYDPRINTF(Args)                        \
# define YYDPRINTF(Args)                        \
do {                                            \
do {                                            \
  if (yydebug)                                  \
  if (yydebug)                                  \
    YYFPRINTF Args;                             \
    YYFPRINTF Args;                             \
} while (0)
} while (0)
 
 
# define YYDSYMPRINT(Args)                      \
# define YYDSYMPRINT(Args)                      \
do {                                            \
do {                                            \
  if (yydebug)                                  \
  if (yydebug)                                  \
    yysymprint Args;                            \
    yysymprint Args;                            \
} while (0)
} while (0)
 
 
# define YYDSYMPRINTF(Title, Token, Value, Location)            \
# define YYDSYMPRINTF(Title, Token, Value, Location)            \
do {                                                            \
do {                                                            \
  if (yydebug)                                                  \
  if (yydebug)                                                  \
    {                                                           \
    {                                                           \
      YYFPRINTF (stderr, "%s ", Title);                         \
      YYFPRINTF (stderr, "%s ", Title);                         \
      yysymprint (stderr,                                       \
      yysymprint (stderr,                                       \
                  Token, Value);        \
                  Token, Value);        \
      YYFPRINTF (stderr, "\n");                                 \
      YYFPRINTF (stderr, "\n");                                 \
    }                                                           \
    }                                                           \
} while (0)
} while (0)
 
 
/*------------------------------------------------------------------.
/*------------------------------------------------------------------.
| yy_stack_print -- Print the state stack from its BOTTOM up to its |
| yy_stack_print -- Print the state stack from its BOTTOM up to its |
| TOP (included).                                                   |
| TOP (included).                                                   |
`------------------------------------------------------------------*/
`------------------------------------------------------------------*/
 
 
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
static void
static void
yy_stack_print (short *bottom, short *top)
yy_stack_print (short *bottom, short *top)
#else
#else
static void
static void
yy_stack_print (bottom, top)
yy_stack_print (bottom, top)
    short *bottom;
    short *bottom;
    short *top;
    short *top;
#endif
#endif
{
{
  YYFPRINTF (stderr, "Stack now");
  YYFPRINTF (stderr, "Stack now");
  for (/* Nothing. */; bottom <= top; ++bottom)
  for (/* Nothing. */; bottom <= top; ++bottom)
    YYFPRINTF (stderr, " %d", *bottom);
    YYFPRINTF (stderr, " %d", *bottom);
  YYFPRINTF (stderr, "\n");
  YYFPRINTF (stderr, "\n");
}
}
 
 
# define YY_STACK_PRINT(Bottom, Top)                            \
# define YY_STACK_PRINT(Bottom, Top)                            \
do {                                                            \
do {                                                            \
  if (yydebug)                                                  \
  if (yydebug)                                                  \
    yy_stack_print ((Bottom), (Top));                           \
    yy_stack_print ((Bottom), (Top));                           \
} while (0)
} while (0)
 
 
 
 
/*------------------------------------------------.
/*------------------------------------------------.
| Report that the YYRULE is going to be reduced.  |
| Report that the YYRULE is going to be reduced.  |
`------------------------------------------------*/
`------------------------------------------------*/
 
 
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
static void
static void
yy_reduce_print (int yyrule)
yy_reduce_print (int yyrule)
#else
#else
static void
static void
yy_reduce_print (yyrule)
yy_reduce_print (yyrule)
    int yyrule;
    int yyrule;
#endif
#endif
{
{
  int yyi;
  int yyi;
  unsigned int yylno = yyrline[yyrule];
  unsigned int yylno = yyrline[yyrule];
  YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ",
  YYFPRINTF (stderr, "Reducing stack by rule %d (line %u), ",
             yyrule - 1, yylno);
             yyrule - 1, yylno);
  /* Print the symbols being reduced, and their result.  */
  /* Print the symbols being reduced, and their result.  */
  for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
  for (yyi = yyprhs[yyrule]; 0 <= yyrhs[yyi]; yyi++)
    YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]);
    YYFPRINTF (stderr, "%s ", yytname [yyrhs[yyi]]);
  YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]);
  YYFPRINTF (stderr, "-> %s\n", yytname [yyr1[yyrule]]);
}
}
 
 
# define YY_REDUCE_PRINT(Rule)          \
# define YY_REDUCE_PRINT(Rule)          \
do {                                    \
do {                                    \
  if (yydebug)                          \
  if (yydebug)                          \
    yy_reduce_print (Rule);             \
    yy_reduce_print (Rule);             \
} while (0)
} while (0)
 
 
/* Nonzero means print parse trace.  It is left uninitialized so that
/* Nonzero means print parse trace.  It is left uninitialized so that
   multiple parsers can coexist.  */
   multiple parsers can coexist.  */
int yydebug;
int yydebug;
#else /* !YYDEBUG */
#else /* !YYDEBUG */
# define YYDPRINTF(Args)
# define YYDPRINTF(Args)
# define YYDSYMPRINT(Args)
# define YYDSYMPRINT(Args)
# define YYDSYMPRINTF(Title, Token, Value, Location)
# define YYDSYMPRINTF(Title, Token, Value, Location)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_STACK_PRINT(Bottom, Top)
# define YY_REDUCE_PRINT(Rule)
# define YY_REDUCE_PRINT(Rule)
#endif /* !YYDEBUG */
#endif /* !YYDEBUG */
 
 
 
 
/* YYINITDEPTH -- initial size of the parser's stacks.  */
/* YYINITDEPTH -- initial size of the parser's stacks.  */
#ifndef YYINITDEPTH
#ifndef YYINITDEPTH
# define YYINITDEPTH 200
# define YYINITDEPTH 200
#endif
#endif
 
 
/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
/* YYMAXDEPTH -- maximum size the stacks can grow to (effective only
   if the built-in stack extension method is used).
   if the built-in stack extension method is used).
 
 
   Do not make this value too large; the results are undefined if
   Do not make this value too large; the results are undefined if
   SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH)
   SIZE_MAX < YYSTACK_BYTES (YYMAXDEPTH)
   evaluated with infinite-precision integer arithmetic.  */
   evaluated with infinite-precision integer arithmetic.  */
 
 
#if defined (YYMAXDEPTH) && YYMAXDEPTH == 0
#if defined (YYMAXDEPTH) && YYMAXDEPTH == 0
# undef YYMAXDEPTH
# undef YYMAXDEPTH
#endif
#endif
 
 
#ifndef YYMAXDEPTH
#ifndef YYMAXDEPTH
# define YYMAXDEPTH 10000
# define YYMAXDEPTH 10000
#endif
#endif
 
 


 
 
#if YYERROR_VERBOSE
#if YYERROR_VERBOSE
 
 
# ifndef yystrlen
# ifndef yystrlen
#  if defined (__GLIBC__) && defined (_STRING_H)
#  if defined (__GLIBC__) && defined (_STRING_H)
#   define yystrlen strlen
#   define yystrlen strlen
#  else
#  else
/* Return the length of YYSTR.  */
/* Return the length of YYSTR.  */
static YYSIZE_T
static YYSIZE_T
#   if defined (__STDC__) || defined (__cplusplus)
#   if defined (__STDC__) || defined (__cplusplus)
yystrlen (const char *yystr)
yystrlen (const char *yystr)
#   else
#   else
yystrlen (yystr)
yystrlen (yystr)
     const char *yystr;
     const char *yystr;
#   endif
#   endif
{
{
  register const char *yys = yystr;
  register const char *yys = yystr;
 
 
  while (*yys++ != '\0')
  while (*yys++ != '\0')
    continue;
    continue;
 
 
  return yys - yystr - 1;
  return yys - yystr - 1;
}
}
#  endif
#  endif
# endif
# endif
 
 
# ifndef yystpcpy
# ifndef yystpcpy
#  if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE)
#  if defined (__GLIBC__) && defined (_STRING_H) && defined (_GNU_SOURCE)
#   define yystpcpy stpcpy
#   define yystpcpy stpcpy
#  else
#  else
/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
/* Copy YYSRC to YYDEST, returning the address of the terminating '\0' in
   YYDEST.  */
   YYDEST.  */
static char *
static char *
#   if defined (__STDC__) || defined (__cplusplus)
#   if defined (__STDC__) || defined (__cplusplus)
yystpcpy (char *yydest, const char *yysrc)
yystpcpy (char *yydest, const char *yysrc)
#   else
#   else
yystpcpy (yydest, yysrc)
yystpcpy (yydest, yysrc)
     char *yydest;
     char *yydest;
     const char *yysrc;
     const char *yysrc;
#   endif
#   endif
{
{
  register char *yyd = yydest;
  register char *yyd = yydest;
  register const char *yys = yysrc;
  register const char *yys = yysrc;
 
 
  while ((*yyd++ = *yys++) != '\0')
  while ((*yyd++ = *yys++) != '\0')
    continue;
    continue;
 
 
  return yyd - 1;
  return yyd - 1;
}
}
#  endif
#  endif
# endif
# endif
 
 
#endif /* !YYERROR_VERBOSE */
#endif /* !YYERROR_VERBOSE */
 
 


 
 
#if YYDEBUG
#if YYDEBUG
/*--------------------------------.
/*--------------------------------.
| Print this symbol on YYOUTPUT.  |
| Print this symbol on YYOUTPUT.  |
`--------------------------------*/
`--------------------------------*/
 
 
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
static void
static void
yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep)
yysymprint (FILE *yyoutput, int yytype, YYSTYPE *yyvaluep)
#else
#else
static void
static void
yysymprint (yyoutput, yytype, yyvaluep)
yysymprint (yyoutput, yytype, yyvaluep)
    FILE *yyoutput;
    FILE *yyoutput;
    int yytype;
    int yytype;
    YYSTYPE *yyvaluep;
    YYSTYPE *yyvaluep;
#endif
#endif
{
{
  /* Pacify ``unused variable'' warnings.  */
  /* Pacify ``unused variable'' warnings.  */
  (void) yyvaluep;
  (void) yyvaluep;
 
 
  if (yytype < YYNTOKENS)
  if (yytype < YYNTOKENS)
    {
    {
      YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
      YYFPRINTF (yyoutput, "token %s (", yytname[yytype]);
# ifdef YYPRINT
# ifdef YYPRINT
      YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
      YYPRINT (yyoutput, yytoknum[yytype], *yyvaluep);
# endif
# endif
    }
    }
  else
  else
    YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
    YYFPRINTF (yyoutput, "nterm %s (", yytname[yytype]);
 
 
  switch (yytype)
  switch (yytype)
    {
    {
      default:
      default:
        break;
        break;
    }
    }
  YYFPRINTF (yyoutput, ")");
  YYFPRINTF (yyoutput, ")");
}
}
 
 
#endif /* ! YYDEBUG */
#endif /* ! YYDEBUG */
/*-----------------------------------------------.
/*-----------------------------------------------.
| Release the memory associated to this symbol.  |
| Release the memory associated to this symbol.  |
`-----------------------------------------------*/
`-----------------------------------------------*/
 
 
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
static void
static void
yydestruct (int yytype, YYSTYPE *yyvaluep)
yydestruct (int yytype, YYSTYPE *yyvaluep)
#else
#else
static void
static void
yydestruct (yytype, yyvaluep)
yydestruct (yytype, yyvaluep)
    int yytype;
    int yytype;
    YYSTYPE *yyvaluep;
    YYSTYPE *yyvaluep;
#endif
#endif
{
{
  /* Pacify ``unused variable'' warnings.  */
  /* Pacify ``unused variable'' warnings.  */
  (void) yyvaluep;
  (void) yyvaluep;
 
 
  switch (yytype)
  switch (yytype)
    {
    {
 
 
      default:
      default:
        break;
        break;
    }
    }
}
}


 
 
/* Prevent warnings from -Wmissing-prototypes.  */
/* Prevent warnings from -Wmissing-prototypes.  */
 
 
#ifdef YYPARSE_PARAM
#ifdef YYPARSE_PARAM
# if defined (__STDC__) || defined (__cplusplus)
# if defined (__STDC__) || defined (__cplusplus)
int yyparse (void *YYPARSE_PARAM);
int yyparse (void *YYPARSE_PARAM);
# else
# else
int yyparse ();
int yyparse ();
# endif
# endif
#else /* ! YYPARSE_PARAM */
#else /* ! YYPARSE_PARAM */
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
int yyparse (void);
int yyparse (void);
#else
#else
int yyparse ();
int yyparse ();
#endif
#endif
#endif /* ! YYPARSE_PARAM */
#endif /* ! YYPARSE_PARAM */
 
 
 
 
 
 
/* The lookahead symbol.  */
/* The lookahead symbol.  */
int yychar;
int yychar;
 
 
/* The semantic value of the lookahead symbol.  */
/* The semantic value of the lookahead symbol.  */
YYSTYPE yylval;
YYSTYPE yylval;
 
 
/* Number of syntax errors so far.  */
/* Number of syntax errors so far.  */
int yynerrs;
int yynerrs;
 
 
 
 
 
 
/*----------.
/*----------.
| yyparse.  |
| yyparse.  |
`----------*/
`----------*/
 
 
#ifdef YYPARSE_PARAM
#ifdef YYPARSE_PARAM
# if defined (__STDC__) || defined (__cplusplus)
# if defined (__STDC__) || defined (__cplusplus)
int yyparse (void *YYPARSE_PARAM)
int yyparse (void *YYPARSE_PARAM)
# else
# else
int yyparse (YYPARSE_PARAM)
int yyparse (YYPARSE_PARAM)
  void *YYPARSE_PARAM;
  void *YYPARSE_PARAM;
# endif
# endif
#else /* ! YYPARSE_PARAM */
#else /* ! YYPARSE_PARAM */
#if defined (__STDC__) || defined (__cplusplus)
#if defined (__STDC__) || defined (__cplusplus)
int
int
yyparse (void)
yyparse (void)
#else
#else
int
int
yyparse ()
yyparse ()
 
 
#endif
#endif
#endif
#endif
{
{
 
 
  register int yystate;
  register int yystate;
  register int yyn;
  register int yyn;
  int yyresult;
  int yyresult;
  /* Number of tokens to shift before error messages enabled.  */
  /* Number of tokens to shift before error messages enabled.  */
  int yyerrstatus;
  int yyerrstatus;
  /* Lookahead token as an internal (translated) token number.  */
  /* Lookahead token as an internal (translated) token number.  */
  int yytoken = 0;
  int yytoken = 0;
 
 
  /* Three stacks and their tools:
  /* Three stacks and their tools:
     `yyss': related to states,
     `yyss': related to states,
     `yyvs': related to semantic values,
     `yyvs': related to semantic values,
     `yyls': related to locations.
     `yyls': related to locations.
 
 
     Refer to the stacks thru separate pointers, to allow yyoverflow
     Refer to the stacks thru separate pointers, to allow yyoverflow
     to xreallocate them elsewhere.  */
     to xreallocate them elsewhere.  */
 
 
  /* The state stack.  */
  /* The state stack.  */
  short yyssa[YYINITDEPTH];
  short yyssa[YYINITDEPTH];
  short *yyss = yyssa;
  short *yyss = yyssa;
  register short *yyssp;
  register short *yyssp;
 
 
  /* The semantic value stack.  */
  /* The semantic value stack.  */
  YYSTYPE yyvsa[YYINITDEPTH];
  YYSTYPE yyvsa[YYINITDEPTH];
  YYSTYPE *yyvs = yyvsa;
  YYSTYPE *yyvs = yyvsa;
  register YYSTYPE *yyvsp;
  register YYSTYPE *yyvsp;
 
 
 
 
 
 
#define YYPOPSTACK   (yyvsp--, yyssp--)
#define YYPOPSTACK   (yyvsp--, yyssp--)
 
 
  YYSIZE_T yystacksize = YYINITDEPTH;
  YYSIZE_T yystacksize = YYINITDEPTH;
 
 
  /* The variables used to return semantic value and location from the
  /* The variables used to return semantic value and location from the
     action routines.  */
     action routines.  */
  YYSTYPE yyval;
  YYSTYPE yyval;
 
 
 
 
  /* When reducing, the number of symbols on the RHS of the reduced
  /* When reducing, the number of symbols on the RHS of the reduced
     rule.  */
     rule.  */
  int yylen;
  int yylen;
 
 
  YYDPRINTF ((stderr, "Starting parse\n"));
  YYDPRINTF ((stderr, "Starting parse\n"));
 
 
  yystate = 0;
  yystate = 0;
  yyerrstatus = 0;
  yyerrstatus = 0;
  yynerrs = 0;
  yynerrs = 0;
  yychar = YYEMPTY;             /* Cause a token to be read.  */
  yychar = YYEMPTY;             /* Cause a token to be read.  */
 
 
  /* Initialize stack pointers.
  /* Initialize stack pointers.
     Waste one element of value and location stack
     Waste one element of value and location stack
     so that they stay on the same level as the state stack.
     so that they stay on the same level as the state stack.
     The wasted elements are never initialized.  */
     The wasted elements are never initialized.  */
 
 
  yyssp = yyss;
  yyssp = yyss;
  yyvsp = yyvs;
  yyvsp = yyvs;
 
 
  goto yysetstate;
  goto yysetstate;
 
 
/*------------------------------------------------------------.
/*------------------------------------------------------------.
| yynewstate -- Push a new state, which is found in yystate.  |
| yynewstate -- Push a new state, which is found in yystate.  |
`------------------------------------------------------------*/
`------------------------------------------------------------*/
 yynewstate:
 yynewstate:
  /* In all cases, when you get here, the value and location stacks
  /* In all cases, when you get here, the value and location stacks
     have just been pushed. so pushing a state here evens the stacks.
     have just been pushed. so pushing a state here evens the stacks.
     */
     */
  yyssp++;
  yyssp++;
 
 
 yysetstate:
 yysetstate:
  *yyssp = yystate;
  *yyssp = yystate;
 
 
  if (yyss + yystacksize - 1 <= yyssp)
  if (yyss + yystacksize - 1 <= yyssp)
    {
    {
      /* Get the current used size of the three stacks, in elements.  */
      /* Get the current used size of the three stacks, in elements.  */
      YYSIZE_T yysize = yyssp - yyss + 1;
      YYSIZE_T yysize = yyssp - yyss + 1;
 
 
#ifdef yyoverflow
#ifdef yyoverflow
      {
      {
        /* Give user a chance to xreallocate the stack. Use copies of
        /* Give user a chance to xreallocate the stack. Use copies of
           these so that the &'s don't force the real ones into
           these so that the &'s don't force the real ones into
           memory.  */
           memory.  */
        YYSTYPE *yyvs1 = yyvs;
        YYSTYPE *yyvs1 = yyvs;
        short *yyss1 = yyss;
        short *yyss1 = yyss;
 
 
 
 
        /* Each stack pointer address is followed by the size of the
        /* Each stack pointer address is followed by the size of the
           data in use in that stack, in bytes.  This used to be a
           data in use in that stack, in bytes.  This used to be a
           conditional around just the two extra args, but that might
           conditional around just the two extra args, but that might
           be undefined if yyoverflow is a macro.  */
           be undefined if yyoverflow is a macro.  */
        yyoverflow ("parser stack overflow",
        yyoverflow ("parser stack overflow",
                    &yyss1, yysize * sizeof (*yyssp),
                    &yyss1, yysize * sizeof (*yyssp),
                    &yyvs1, yysize * sizeof (*yyvsp),
                    &yyvs1, yysize * sizeof (*yyvsp),
 
 
                    &yystacksize);
                    &yystacksize);
 
 
        yyss = yyss1;
        yyss = yyss1;
        yyvs = yyvs1;
        yyvs = yyvs1;
      }
      }
#else /* no yyoverflow */
#else /* no yyoverflow */
# ifndef YYSTACK_RELOCATE
# ifndef YYSTACK_RELOCATE
      goto yyoverflowlab;
      goto yyoverflowlab;
# else
# else
      /* Extend the stack our own way.  */
      /* Extend the stack our own way.  */
      if (YYMAXDEPTH <= yystacksize)
      if (YYMAXDEPTH <= yystacksize)
        goto yyoverflowlab;
        goto yyoverflowlab;
      yystacksize *= 2;
      yystacksize *= 2;
      if (YYMAXDEPTH < yystacksize)
      if (YYMAXDEPTH < yystacksize)
        yystacksize = YYMAXDEPTH;
        yystacksize = YYMAXDEPTH;
 
 
      {
      {
        short *yyss1 = yyss;
        short *yyss1 = yyss;
        union yyalloc *yyptr =
        union yyalloc *yyptr =
          (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
          (union yyalloc *) YYSTACK_ALLOC (YYSTACK_BYTES (yystacksize));
        if (! yyptr)
        if (! yyptr)
          goto yyoverflowlab;
          goto yyoverflowlab;
        YYSTACK_RELOCATE (yyss);
        YYSTACK_RELOCATE (yyss);
        YYSTACK_RELOCATE (yyvs);
        YYSTACK_RELOCATE (yyvs);
 
 
#  undef YYSTACK_RELOCATE
#  undef YYSTACK_RELOCATE
        if (yyss1 != yyssa)
        if (yyss1 != yyssa)
          YYSTACK_FREE (yyss1);
          YYSTACK_FREE (yyss1);
      }
      }
# endif
# endif
#endif /* no yyoverflow */
#endif /* no yyoverflow */
 
 
      yyssp = yyss + yysize - 1;
      yyssp = yyss + yysize - 1;
      yyvsp = yyvs + yysize - 1;
      yyvsp = yyvs + yysize - 1;
 
 
 
 
      YYDPRINTF ((stderr, "Stack size increased to %lu\n",
      YYDPRINTF ((stderr, "Stack size increased to %lu\n",
                  (unsigned long int) yystacksize));
                  (unsigned long int) yystacksize));
 
 
      if (yyss + yystacksize - 1 <= yyssp)
      if (yyss + yystacksize - 1 <= yyssp)
        YYABORT;
        YYABORT;
    }
    }
 
 
  YYDPRINTF ((stderr, "Entering state %d\n", yystate));
  YYDPRINTF ((stderr, "Entering state %d\n", yystate));
 
 
  goto yybackup;
  goto yybackup;
 
 
/*-----------.
/*-----------.
| yybackup.  |
| yybackup.  |
`-----------*/
`-----------*/
yybackup:
yybackup:
 
 
/* Do appropriate processing given the current state.  */
/* Do appropriate processing given the current state.  */
/* Read a lookahead token if we need one and don't already have one.  */
/* Read a lookahead token if we need one and don't already have one.  */
/* yyresume: */
/* yyresume: */
 
 
  /* First try to decide what to do without reference to lookahead token.  */
  /* First try to decide what to do without reference to lookahead token.  */
 
 
  yyn = yypact[yystate];
  yyn = yypact[yystate];
  if (yyn == YYPACT_NINF)
  if (yyn == YYPACT_NINF)
    goto yydefault;
    goto yydefault;
 
 
  /* Not known => get a lookahead token if don't already have one.  */
  /* Not known => get a lookahead token if don't already have one.  */
 
 
  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
  /* YYCHAR is either YYEMPTY or YYEOF or a valid lookahead symbol.  */
  if (yychar == YYEMPTY)
  if (yychar == YYEMPTY)
    {
    {
      YYDPRINTF ((stderr, "Reading a token: "));
      YYDPRINTF ((stderr, "Reading a token: "));
      yychar = YYLEX;
      yychar = YYLEX;
    }
    }
 
 
  if (yychar <= YYEOF)
  if (yychar <= YYEOF)
    {
    {
      yychar = yytoken = YYEOF;
      yychar = yytoken = YYEOF;
      YYDPRINTF ((stderr, "Now at end of input.\n"));
      YYDPRINTF ((stderr, "Now at end of input.\n"));
    }
    }
  else
  else
    {
    {
      yytoken = YYTRANSLATE (yychar);
      yytoken = YYTRANSLATE (yychar);
      YYDSYMPRINTF ("Next token is", yytoken, &yylval, &yylloc);
      YYDSYMPRINTF ("Next token is", yytoken, &yylval, &yylloc);
    }
    }
 
 
  /* If the proper action on seeing token YYTOKEN is to reduce or to
  /* If the proper action on seeing token YYTOKEN is to reduce or to
     detect an error, take that action.  */
     detect an error, take that action.  */
  yyn += yytoken;
  yyn += yytoken;
  if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
  if (yyn < 0 || YYLAST < yyn || yycheck[yyn] != yytoken)
    goto yydefault;
    goto yydefault;
  yyn = yytable[yyn];
  yyn = yytable[yyn];
  if (yyn <= 0)
  if (yyn <= 0)
    {
    {
      if (yyn == 0 || yyn == YYTABLE_NINF)
      if (yyn == 0 || yyn == YYTABLE_NINF)
        goto yyerrlab;
        goto yyerrlab;
      yyn = -yyn;
      yyn = -yyn;
      goto yyreduce;
      goto yyreduce;
    }
    }
 
 
  if (yyn == YYFINAL)
  if (yyn == YYFINAL)
    YYACCEPT;
    YYACCEPT;
 
 
  /* Shift the lookahead token.  */
  /* Shift the lookahead token.  */
  YYDPRINTF ((stderr, "Shifting token %s, ", yytname[yytoken]));
  YYDPRINTF ((stderr, "Shifting token %s, ", yytname[yytoken]));
 
 
  /* Discard the token being shifted unless it is eof.  */
  /* Discard the token being shifted unless it is eof.  */
  if (yychar != YYEOF)
  if (yychar != YYEOF)
    yychar = YYEMPTY;
    yychar = YYEMPTY;
 
 
  *++yyvsp = yylval;
  *++yyvsp = yylval;
 
 
 
 
  /* Count tokens shifted since error; after three, turn off error
  /* Count tokens shifted since error; after three, turn off error
     status.  */
     status.  */
  if (yyerrstatus)
  if (yyerrstatus)
    yyerrstatus--;
    yyerrstatus--;
 
 
  yystate = yyn;
  yystate = yyn;
  goto yynewstate;
  goto yynewstate;
 
 
 
 
/*-----------------------------------------------------------.
/*-----------------------------------------------------------.
| yydefault -- do the default action for the current state.  |
| yydefault -- do the default action for the current state.  |
`-----------------------------------------------------------*/
`-----------------------------------------------------------*/
yydefault:
yydefault:
  yyn = yydefact[yystate];
  yyn = yydefact[yystate];
  if (yyn == 0)
  if (yyn == 0)
    goto yyerrlab;
    goto yyerrlab;
  goto yyreduce;
  goto yyreduce;
 
 
 
 
/*-----------------------------.
/*-----------------------------.
| yyreduce -- Do a reduction.  |
| yyreduce -- Do a reduction.  |
`-----------------------------*/
`-----------------------------*/
yyreduce:
yyreduce:
  /* yyn is the number of a rule to reduce with.  */
  /* yyn is the number of a rule to reduce with.  */
  yylen = yyr2[yyn];
  yylen = yyr2[yyn];
 
 
  /* If YYLEN is nonzero, implement the default value of the action:
  /* If YYLEN is nonzero, implement the default value of the action:
     `$$ = $1'.
     `$$ = $1'.
 
 
     Otherwise, the following line sets YYVAL to garbage.
     Otherwise, the following line sets YYVAL to garbage.
     This behavior is undocumented and Bison
     This behavior is undocumented and Bison
     users should not rely upon it.  Assigning to YYVAL
     users should not rely upon it.  Assigning to YYVAL
     unconditionally makes the parser a bit smaller, and it avoids a
     unconditionally makes the parser a bit smaller, and it avoids a
     GCC warning that YYVAL may be used uninitialized.  */
     GCC warning that YYVAL may be used uninitialized.  */
  yyval = yyvsp[1-yylen];
  yyval = yyvsp[1-yylen];
 
 
 
 
  YY_REDUCE_PRINT (yyn);
  YY_REDUCE_PRINT (yyn);
  switch (yyn)
  switch (yyn)
    {
    {
        case 4:
        case 4:
#line 234 "ada-exp.y"
#line 234 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_COMMA); }
    { write_exp_elt_opcode (BINOP_COMMA); }
    break;
    break;
 
 
  case 5:
  case 5:
#line 236 "ada-exp.y"
#line 236 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_ASSIGN); }
    { write_exp_elt_opcode (BINOP_ASSIGN); }
    break;
    break;
 
 
  case 6:
  case 6:
#line 241 "ada-exp.y"
#line 241 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_IND); }
    { write_exp_elt_opcode (UNOP_IND); }
    break;
    break;
 
 
  case 7:
  case 7:
#line 245 "ada-exp.y"
#line 245 "ada-exp.y"
    { write_exp_op_with_string (STRUCTOP_STRUCT, yyvsp[0].sval); }
    { write_exp_op_with_string (STRUCTOP_STRUCT, yyvsp[0].sval); }
    break;
    break;
 
 
  case 8:
  case 8:
#line 249 "ada-exp.y"
#line 249 "ada-exp.y"
    {
    {
                          write_exp_elt_opcode (OP_FUNCALL);
                          write_exp_elt_opcode (OP_FUNCALL);
                          write_exp_elt_longcst (yyvsp[-1].lval);
                          write_exp_elt_longcst (yyvsp[-1].lval);
                          write_exp_elt_opcode (OP_FUNCALL);
                          write_exp_elt_opcode (OP_FUNCALL);
                        }
                        }
    break;
    break;
 
 
  case 9:
  case 9:
#line 255 "ada-exp.y"
#line 255 "ada-exp.y"
    {
    {
                          if (yyvsp[-3].tval != NULL)
                          if (yyvsp[-3].tval != NULL)
                            {
                            {
                              if (yyvsp[-1].lval != 1)
                              if (yyvsp[-1].lval != 1)
                                error (_("Invalid conversion"));
                                error (_("Invalid conversion"));
                              write_exp_elt_opcode (UNOP_CAST);
                              write_exp_elt_opcode (UNOP_CAST);
                              write_exp_elt_type (yyvsp[-3].tval);
                              write_exp_elt_type (yyvsp[-3].tval);
                              write_exp_elt_opcode (UNOP_CAST);
                              write_exp_elt_opcode (UNOP_CAST);
                            }
                            }
                          else
                          else
                            {
                            {
                              write_exp_elt_opcode (OP_FUNCALL);
                              write_exp_elt_opcode (OP_FUNCALL);
                              write_exp_elt_longcst (yyvsp[-1].lval);
                              write_exp_elt_longcst (yyvsp[-1].lval);
                              write_exp_elt_opcode (OP_FUNCALL);
                              write_exp_elt_opcode (OP_FUNCALL);
                            }
                            }
                        }
                        }
    break;
    break;
 
 
  case 10:
  case 10:
#line 273 "ada-exp.y"
#line 273 "ada-exp.y"
    { type_qualifier = yyvsp[-2].tval; }
    { type_qualifier = yyvsp[-2].tval; }
    break;
    break;
 
 
  case 11:
  case 11:
#line 275 "ada-exp.y"
#line 275 "ada-exp.y"
    {
    {
                          if (yyvsp[-6].tval == NULL)
                          if (yyvsp[-6].tval == NULL)
                            error (_("Type required for qualification"));
                            error (_("Type required for qualification"));
                          write_exp_elt_opcode (UNOP_QUAL);
                          write_exp_elt_opcode (UNOP_QUAL);
                          write_exp_elt_type (yyvsp[-6].tval);
                          write_exp_elt_type (yyvsp[-6].tval);
                          write_exp_elt_opcode (UNOP_QUAL);
                          write_exp_elt_opcode (UNOP_QUAL);
                          type_qualifier = yyvsp[-4].tval;
                          type_qualifier = yyvsp[-4].tval;
                        }
                        }
    break;
    break;
 
 
  case 12:
  case 12:
#line 285 "ada-exp.y"
#line 285 "ada-exp.y"
    { yyval.tval = type_qualifier; }
    { yyval.tval = type_qualifier; }
    break;
    break;
 
 
  case 13:
  case 13:
#line 290 "ada-exp.y"
#line 290 "ada-exp.y"
    { write_exp_elt_opcode (TERNOP_SLICE); }
    { write_exp_elt_opcode (TERNOP_SLICE); }
    break;
    break;
 
 
  case 14:
  case 14:
#line 292 "ada-exp.y"
#line 292 "ada-exp.y"
    { if (yyvsp[-5].tval == NULL)
    { if (yyvsp[-5].tval == NULL)
                            write_exp_elt_opcode (TERNOP_SLICE);
                            write_exp_elt_opcode (TERNOP_SLICE);
                          else
                          else
                            error (_("Cannot slice a type"));
                            error (_("Cannot slice a type"));
                        }
                        }
    break;
    break;
 
 
  case 15:
  case 15:
#line 299 "ada-exp.y"
#line 299 "ada-exp.y"
    { }
    { }
    break;
    break;
 
 
  case 16:
  case 16:
#line 311 "ada-exp.y"
#line 311 "ada-exp.y"
    { if (yyvsp[0].tval != NULL)
    { if (yyvsp[0].tval != NULL)
                            {
                            {
                              write_exp_elt_opcode (OP_TYPE);
                              write_exp_elt_opcode (OP_TYPE);
                              write_exp_elt_type (yyvsp[0].tval);
                              write_exp_elt_type (yyvsp[0].tval);
                              write_exp_elt_opcode (OP_TYPE);
                              write_exp_elt_opcode (OP_TYPE);
                            }
                            }
                        }
                        }
    break;
    break;
 
 
  case 17:
  case 17:
#line 321 "ada-exp.y"
#line 321 "ada-exp.y"
    { write_dollar_variable (yyvsp[0].sval); }
    { write_dollar_variable (yyvsp[0].sval); }
    break;
    break;
 
 
  case 20:
  case 20:
#line 331 "ada-exp.y"
#line 331 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_NEG); }
    { write_exp_elt_opcode (UNOP_NEG); }
    break;
    break;
 
 
  case 21:
  case 21:
#line 335 "ada-exp.y"
#line 335 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_PLUS); }
    { write_exp_elt_opcode (UNOP_PLUS); }
    break;
    break;
 
 
  case 22:
  case 22:
#line 339 "ada-exp.y"
#line 339 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_LOGICAL_NOT); }
    { write_exp_elt_opcode (UNOP_LOGICAL_NOT); }
    break;
    break;
 
 
  case 23:
  case 23:
#line 343 "ada-exp.y"
#line 343 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_ABS); }
    { write_exp_elt_opcode (UNOP_ABS); }
    break;
    break;
 
 
  case 24:
  case 24:
#line 346 "ada-exp.y"
#line 346 "ada-exp.y"
    { yyval.lval = 0; }
    { yyval.lval = 0; }
    break;
    break;
 
 
  case 25:
  case 25:
#line 350 "ada-exp.y"
#line 350 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 26:
  case 26:
#line 352 "ada-exp.y"
#line 352 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 27:
  case 27:
#line 354 "ada-exp.y"
#line 354 "ada-exp.y"
    { yyval.lval = yyvsp[-2].lval + 1; }
    { yyval.lval = yyvsp[-2].lval + 1; }
    break;
    break;
 
 
  case 28:
  case 28:
#line 356 "ada-exp.y"
#line 356 "ada-exp.y"
    { yyval.lval = yyvsp[-4].lval + 1; }
    { yyval.lval = yyvsp[-4].lval + 1; }
    break;
    break;
 
 
  case 29:
  case 29:
#line 361 "ada-exp.y"
#line 361 "ada-exp.y"
    {
    {
                          if (yyvsp[-2].tval == NULL)
                          if (yyvsp[-2].tval == NULL)
                            error (_("Type required within braces in coercion"));
                            error (_("Type required within braces in coercion"));
                          write_exp_elt_opcode (UNOP_MEMVAL);
                          write_exp_elt_opcode (UNOP_MEMVAL);
                          write_exp_elt_type (yyvsp[-2].tval);
                          write_exp_elt_type (yyvsp[-2].tval);
                          write_exp_elt_opcode (UNOP_MEMVAL);
                          write_exp_elt_opcode (UNOP_MEMVAL);
                        }
                        }
    break;
    break;
 
 
  case 30:
  case 30:
#line 373 "ada-exp.y"
#line 373 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_EXP); }
    { write_exp_elt_opcode (BINOP_EXP); }
    break;
    break;
 
 
  case 31:
  case 31:
#line 377 "ada-exp.y"
#line 377 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_MUL); }
    { write_exp_elt_opcode (BINOP_MUL); }
    break;
    break;
 
 
  case 32:
  case 32:
#line 381 "ada-exp.y"
#line 381 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_DIV); }
    { write_exp_elt_opcode (BINOP_DIV); }
    break;
    break;
 
 
  case 33:
  case 33:
#line 385 "ada-exp.y"
#line 385 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_REM); }
    { write_exp_elt_opcode (BINOP_REM); }
    break;
    break;
 
 
  case 34:
  case 34:
#line 389 "ada-exp.y"
#line 389 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_MOD); }
    { write_exp_elt_opcode (BINOP_MOD); }
    break;
    break;
 
 
  case 35:
  case 35:
#line 393 "ada-exp.y"
#line 393 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_REPEAT); }
    { write_exp_elt_opcode (BINOP_REPEAT); }
    break;
    break;
 
 
  case 36:
  case 36:
#line 397 "ada-exp.y"
#line 397 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_ADD); }
    { write_exp_elt_opcode (BINOP_ADD); }
    break;
    break;
 
 
  case 37:
  case 37:
#line 401 "ada-exp.y"
#line 401 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_CONCAT); }
    { write_exp_elt_opcode (BINOP_CONCAT); }
    break;
    break;
 
 
  case 38:
  case 38:
#line 405 "ada-exp.y"
#line 405 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_SUB); }
    { write_exp_elt_opcode (BINOP_SUB); }
    break;
    break;
 
 
  case 40:
  case 40:
#line 412 "ada-exp.y"
#line 412 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_EQUAL); }
    { write_exp_elt_opcode (BINOP_EQUAL); }
    break;
    break;
 
 
  case 41:
  case 41:
#line 416 "ada-exp.y"
#line 416 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_NOTEQUAL); }
    { write_exp_elt_opcode (BINOP_NOTEQUAL); }
    break;
    break;
 
 
  case 42:
  case 42:
#line 420 "ada-exp.y"
#line 420 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_LEQ); }
    { write_exp_elt_opcode (BINOP_LEQ); }
    break;
    break;
 
 
  case 43:
  case 43:
#line 424 "ada-exp.y"
#line 424 "ada-exp.y"
    { write_exp_elt_opcode (TERNOP_IN_RANGE); }
    { write_exp_elt_opcode (TERNOP_IN_RANGE); }
    break;
    break;
 
 
  case 44:
  case 44:
#line 426 "ada-exp.y"
#line 426 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_IN_BOUNDS);
    { write_exp_elt_opcode (BINOP_IN_BOUNDS);
                          write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
                          write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
                          write_exp_elt_opcode (BINOP_IN_BOUNDS);
                          write_exp_elt_opcode (BINOP_IN_BOUNDS);
                        }
                        }
    break;
    break;
 
 
  case 45:
  case 45:
#line 431 "ada-exp.y"
#line 431 "ada-exp.y"
    {
    {
                          if (yyvsp[0].tval == NULL)
                          if (yyvsp[0].tval == NULL)
                            error (_("Right operand of 'in' must be type"));
                            error (_("Right operand of 'in' must be type"));
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_type (yyvsp[0].tval);
                          write_exp_elt_type (yyvsp[0].tval);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                        }
                        }
    break;
    break;
 
 
  case 46:
  case 46:
#line 439 "ada-exp.y"
#line 439 "ada-exp.y"
    { write_exp_elt_opcode (TERNOP_IN_RANGE);
    { write_exp_elt_opcode (TERNOP_IN_RANGE);
                          write_exp_elt_opcode (UNOP_LOGICAL_NOT);
                          write_exp_elt_opcode (UNOP_LOGICAL_NOT);
                        }
                        }
    break;
    break;
 
 
  case 47:
  case 47:
#line 443 "ada-exp.y"
#line 443 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_IN_BOUNDS);
    { write_exp_elt_opcode (BINOP_IN_BOUNDS);
                          write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
                          write_exp_elt_longcst ((LONGEST) yyvsp[0].lval);
                          write_exp_elt_opcode (BINOP_IN_BOUNDS);
                          write_exp_elt_opcode (BINOP_IN_BOUNDS);
                          write_exp_elt_opcode (UNOP_LOGICAL_NOT);
                          write_exp_elt_opcode (UNOP_LOGICAL_NOT);
                        }
                        }
    break;
    break;
 
 
  case 48:
  case 48:
#line 449 "ada-exp.y"
#line 449 "ada-exp.y"
    {
    {
                          if (yyvsp[0].tval == NULL)
                          if (yyvsp[0].tval == NULL)
                            error (_("Right operand of 'in' must be type"));
                            error (_("Right operand of 'in' must be type"));
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_type (yyvsp[0].tval);
                          write_exp_elt_type (yyvsp[0].tval);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_opcode (UNOP_IN_RANGE);
                          write_exp_elt_opcode (UNOP_LOGICAL_NOT);
                          write_exp_elt_opcode (UNOP_LOGICAL_NOT);
                        }
                        }
    break;
    break;
 
 
  case 49:
  case 49:
#line 460 "ada-exp.y"
#line 460 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_GEQ); }
    { write_exp_elt_opcode (BINOP_GEQ); }
    break;
    break;
 
 
  case 50:
  case 50:
#line 464 "ada-exp.y"
#line 464 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_LESS); }
    { write_exp_elt_opcode (BINOP_LESS); }
    break;
    break;
 
 
  case 51:
  case 51:
#line 468 "ada-exp.y"
#line 468 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_GTR); }
    { write_exp_elt_opcode (BINOP_GTR); }
    break;
    break;
 
 
  case 58:
  case 58:
#line 481 "ada-exp.y"
#line 481 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_BITWISE_AND); }
    { write_exp_elt_opcode (BINOP_BITWISE_AND); }
    break;
    break;
 
 
  case 59:
  case 59:
#line 483 "ada-exp.y"
#line 483 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_BITWISE_AND); }
    { write_exp_elt_opcode (BINOP_BITWISE_AND); }
    break;
    break;
 
 
  case 60:
  case 60:
#line 488 "ada-exp.y"
#line 488 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_LOGICAL_AND); }
    { write_exp_elt_opcode (BINOP_LOGICAL_AND); }
    break;
    break;
 
 
  case 61:
  case 61:
#line 490 "ada-exp.y"
#line 490 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_LOGICAL_AND); }
    { write_exp_elt_opcode (BINOP_LOGICAL_AND); }
    break;
    break;
 
 
  case 62:
  case 62:
#line 495 "ada-exp.y"
#line 495 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_BITWISE_IOR); }
    { write_exp_elt_opcode (BINOP_BITWISE_IOR); }
    break;
    break;
 
 
  case 63:
  case 63:
#line 497 "ada-exp.y"
#line 497 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_BITWISE_IOR); }
    { write_exp_elt_opcode (BINOP_BITWISE_IOR); }
    break;
    break;
 
 
  case 64:
  case 64:
#line 502 "ada-exp.y"
#line 502 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_LOGICAL_OR); }
    { write_exp_elt_opcode (BINOP_LOGICAL_OR); }
    break;
    break;
 
 
  case 65:
  case 65:
#line 504 "ada-exp.y"
#line 504 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_LOGICAL_OR); }
    { write_exp_elt_opcode (BINOP_LOGICAL_OR); }
    break;
    break;
 
 
  case 66:
  case 66:
#line 508 "ada-exp.y"
#line 508 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_BITWISE_XOR); }
    { write_exp_elt_opcode (BINOP_BITWISE_XOR); }
    break;
    break;
 
 
  case 67:
  case 67:
#line 510 "ada-exp.y"
#line 510 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_BITWISE_XOR); }
    { write_exp_elt_opcode (BINOP_BITWISE_XOR); }
    break;
    break;
 
 
  case 68:
  case 68:
#line 522 "ada-exp.y"
#line 522 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_ADDR); }
    { write_exp_elt_opcode (UNOP_ADDR); }
    break;
    break;
 
 
  case 69:
  case 69:
#line 524 "ada-exp.y"
#line 524 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_ADDR);
    { write_exp_elt_opcode (UNOP_ADDR);
                          write_exp_elt_opcode (UNOP_CAST);
                          write_exp_elt_opcode (UNOP_CAST);
                          write_exp_elt_type (type_system_address ());
                          write_exp_elt_type (type_system_address ());
                          write_exp_elt_opcode (UNOP_CAST);
                          write_exp_elt_opcode (UNOP_CAST);
                        }
                        }
    break;
    break;
 
 
  case 70:
  case 70:
#line 530 "ada-exp.y"
#line 530 "ada-exp.y"
    { write_int (yyvsp[0].lval, type_int ());
    { write_int (yyvsp[0].lval, type_int ());
                          write_exp_elt_opcode (OP_ATR_FIRST); }
                          write_exp_elt_opcode (OP_ATR_FIRST); }
    break;
    break;
 
 
  case 71:
  case 71:
#line 533 "ada-exp.y"
#line 533 "ada-exp.y"
    { write_int (yyvsp[0].lval, type_int ());
    { write_int (yyvsp[0].lval, type_int ());
                          write_exp_elt_opcode (OP_ATR_LAST); }
                          write_exp_elt_opcode (OP_ATR_LAST); }
    break;
    break;
 
 
  case 72:
  case 72:
#line 536 "ada-exp.y"
#line 536 "ada-exp.y"
    { write_int (yyvsp[0].lval, type_int ());
    { write_int (yyvsp[0].lval, type_int ());
                          write_exp_elt_opcode (OP_ATR_LENGTH); }
                          write_exp_elt_opcode (OP_ATR_LENGTH); }
    break;
    break;
 
 
  case 73:
  case 73:
#line 539 "ada-exp.y"
#line 539 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_SIZE); }
    { write_exp_elt_opcode (OP_ATR_SIZE); }
    break;
    break;
 
 
  case 74:
  case 74:
#line 541 "ada-exp.y"
#line 541 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_TAG); }
    { write_exp_elt_opcode (OP_ATR_TAG); }
    break;
    break;
 
 
  case 75:
  case 75:
#line 543 "ada-exp.y"
#line 543 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_MIN); }
    { write_exp_elt_opcode (OP_ATR_MIN); }
    break;
    break;
 
 
  case 76:
  case 76:
#line 545 "ada-exp.y"
#line 545 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_MAX); }
    { write_exp_elt_opcode (OP_ATR_MAX); }
    break;
    break;
 
 
  case 77:
  case 77:
#line 547 "ada-exp.y"
#line 547 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_POS); }
    { write_exp_elt_opcode (OP_ATR_POS); }
    break;
    break;
 
 
  case 78:
  case 78:
#line 549 "ada-exp.y"
#line 549 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_VAL); }
    { write_exp_elt_opcode (OP_ATR_VAL); }
    break;
    break;
 
 
  case 79:
  case 79:
#line 551 "ada-exp.y"
#line 551 "ada-exp.y"
    { write_exp_elt_opcode (OP_ATR_MODULUS); }
    { write_exp_elt_opcode (OP_ATR_MODULUS); }
    break;
    break;
 
 
  case 80:
  case 80:
#line 555 "ada-exp.y"
#line 555 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 81:
  case 81:
#line 557 "ada-exp.y"
#line 557 "ada-exp.y"
    { yyval.lval = yyvsp[-1].typed_val.val; }
    { yyval.lval = yyvsp[-1].typed_val.val; }
    break;
    break;
 
 
  case 82:
  case 82:
#line 562 "ada-exp.y"
#line 562 "ada-exp.y"
    {
    {
                          if (yyvsp[0].tval == NULL)
                          if (yyvsp[0].tval == NULL)
                            error (_("Prefix must be type"));
                            error (_("Prefix must be type"));
                          write_exp_elt_opcode (OP_TYPE);
                          write_exp_elt_opcode (OP_TYPE);
                          write_exp_elt_type (yyvsp[0].tval);
                          write_exp_elt_type (yyvsp[0].tval);
                          write_exp_elt_opcode (OP_TYPE); }
                          write_exp_elt_opcode (OP_TYPE); }
    break;
    break;
 
 
  case 84:
  case 84:
#line 573 "ada-exp.y"
#line 573 "ada-exp.y"
    { write_exp_elt_opcode (OP_TYPE);
    { write_exp_elt_opcode (OP_TYPE);
                          write_exp_elt_type (parse_type->builtin_void);
                          write_exp_elt_type (parse_type->builtin_void);
                          write_exp_elt_opcode (OP_TYPE); }
                          write_exp_elt_opcode (OP_TYPE); }
    break;
    break;
 
 
  case 85:
  case 85:
#line 580 "ada-exp.y"
#line 580 "ada-exp.y"
    { write_int ((LONGEST) yyvsp[0].typed_val.val, yyvsp[0].typed_val.type); }
    { write_int ((LONGEST) yyvsp[0].typed_val.val, yyvsp[0].typed_val.type); }
    break;
    break;
 
 
  case 86:
  case 86:
#line 584 "ada-exp.y"
#line 584 "ada-exp.y"
    { write_int (convert_char_literal (type_qualifier, yyvsp[0].typed_val.val),
    { write_int (convert_char_literal (type_qualifier, yyvsp[0].typed_val.val),
                               (type_qualifier == NULL)
                               (type_qualifier == NULL)
                               ? yyvsp[0].typed_val.type : type_qualifier);
                               ? yyvsp[0].typed_val.type : type_qualifier);
                  }
                  }
    break;
    break;
 
 
  case 87:
  case 87:
#line 591 "ada-exp.y"
#line 591 "ada-exp.y"
    { write_exp_elt_opcode (OP_DOUBLE);
    { write_exp_elt_opcode (OP_DOUBLE);
                          write_exp_elt_type (yyvsp[0].typed_val_float.type);
                          write_exp_elt_type (yyvsp[0].typed_val_float.type);
                          write_exp_elt_dblcst (yyvsp[0].typed_val_float.dval);
                          write_exp_elt_dblcst (yyvsp[0].typed_val_float.dval);
                          write_exp_elt_opcode (OP_DOUBLE);
                          write_exp_elt_opcode (OP_DOUBLE);
                        }
                        }
    break;
    break;
 
 
  case 88:
  case 88:
#line 599 "ada-exp.y"
#line 599 "ada-exp.y"
    { write_int (0, type_int ()); }
    { write_int (0, type_int ()); }
    break;
    break;
 
 
  case 89:
  case 89:
#line 603 "ada-exp.y"
#line 603 "ada-exp.y"
    {
    {
                          write_exp_op_with_string (OP_STRING, yyvsp[0].sval);
                          write_exp_op_with_string (OP_STRING, yyvsp[0].sval);
                        }
                        }
    break;
    break;
 
 
  case 90:
  case 90:
#line 609 "ada-exp.y"
#line 609 "ada-exp.y"
    { write_int (1, type_boolean ()); }
    { write_int (1, type_boolean ()); }
    break;
    break;
 
 
  case 91:
  case 91:
#line 611 "ada-exp.y"
#line 611 "ada-exp.y"
    { write_int (0, type_boolean ()); }
    { write_int (0, type_boolean ()); }
    break;
    break;
 
 
  case 92:
  case 92:
#line 615 "ada-exp.y"
#line 615 "ada-exp.y"
    { error (_("NEW not implemented.")); }
    { error (_("NEW not implemented.")); }
    break;
    break;
 
 
  case 93:
  case 93:
#line 619 "ada-exp.y"
#line 619 "ada-exp.y"
    { yyval.tval = write_var_or_type (NULL, yyvsp[0].sval); }
    { yyval.tval = write_var_or_type (NULL, yyvsp[0].sval); }
    break;
    break;
 
 
  case 94:
  case 94:
#line 621 "ada-exp.y"
#line 621 "ada-exp.y"
    { yyval.tval = write_var_or_type (yyvsp[-1].bval, yyvsp[0].sval); }
    { yyval.tval = write_var_or_type (yyvsp[-1].bval, yyvsp[0].sval); }
    break;
    break;
 
 
  case 95:
  case 95:
#line 623 "ada-exp.y"
#line 623 "ada-exp.y"
    {
    {
                          yyval.tval = write_var_or_type (NULL, yyvsp[-1].sval);
                          yyval.tval = write_var_or_type (NULL, yyvsp[-1].sval);
                          if (yyval.tval == NULL)
                          if (yyval.tval == NULL)
                            write_exp_elt_opcode (UNOP_ADDR);
                            write_exp_elt_opcode (UNOP_ADDR);
                          else
                          else
                            yyval.tval = lookup_pointer_type (yyval.tval);
                            yyval.tval = lookup_pointer_type (yyval.tval);
                        }
                        }
    break;
    break;
 
 
  case 96:
  case 96:
#line 631 "ada-exp.y"
#line 631 "ada-exp.y"
    {
    {
                          yyval.tval = write_var_or_type (yyvsp[-2].bval, yyvsp[-1].sval);
                          yyval.tval = write_var_or_type (yyvsp[-2].bval, yyvsp[-1].sval);
                          if (yyval.tval == NULL)
                          if (yyval.tval == NULL)
                            write_exp_elt_opcode (UNOP_ADDR);
                            write_exp_elt_opcode (UNOP_ADDR);
                          else
                          else
                            yyval.tval = lookup_pointer_type (yyval.tval);
                            yyval.tval = lookup_pointer_type (yyval.tval);
                        }
                        }
    break;
    break;
 
 
  case 97:
  case 97:
#line 642 "ada-exp.y"
#line 642 "ada-exp.y"
    { yyval.bval = block_lookup (NULL, yyvsp[-1].sval.ptr); }
    { yyval.bval = block_lookup (NULL, yyvsp[-1].sval.ptr); }
    break;
    break;
 
 
  case 98:
  case 98:
#line 644 "ada-exp.y"
#line 644 "ada-exp.y"
    { yyval.bval = block_lookup (yyvsp[-2].bval, yyvsp[-1].sval.ptr); }
    { yyval.bval = block_lookup (yyvsp[-2].bval, yyvsp[-1].sval.ptr); }
    break;
    break;
 
 
  case 99:
  case 99:
#line 649 "ada-exp.y"
#line 649 "ada-exp.y"
    {
    {
                          write_exp_elt_opcode (OP_AGGREGATE);
                          write_exp_elt_opcode (OP_AGGREGATE);
                          write_exp_elt_longcst (yyvsp[-1].lval);
                          write_exp_elt_longcst (yyvsp[-1].lval);
                          write_exp_elt_opcode (OP_AGGREGATE);
                          write_exp_elt_opcode (OP_AGGREGATE);
                        }
                        }
    break;
    break;
 
 
  case 100:
  case 100:
#line 657 "ada-exp.y"
#line 657 "ada-exp.y"
    { yyval.lval = yyvsp[0].lval; }
    { yyval.lval = yyvsp[0].lval; }
    break;
    break;
 
 
  case 101:
  case 101:
#line 659 "ada-exp.y"
#line 659 "ada-exp.y"
    { write_exp_elt_opcode (OP_POSITIONAL);
    { write_exp_elt_opcode (OP_POSITIONAL);
                          write_exp_elt_longcst (yyvsp[-1].lval);
                          write_exp_elt_longcst (yyvsp[-1].lval);
                          write_exp_elt_opcode (OP_POSITIONAL);
                          write_exp_elt_opcode (OP_POSITIONAL);
                          yyval.lval = yyvsp[-1].lval + 1;
                          yyval.lval = yyvsp[-1].lval + 1;
                        }
                        }
    break;
    break;
 
 
  case 102:
  case 102:
#line 665 "ada-exp.y"
#line 665 "ada-exp.y"
    { yyval.lval = yyvsp[-1].lval + yyvsp[0].lval; }
    { yyval.lval = yyvsp[-1].lval + yyvsp[0].lval; }
    break;
    break;
 
 
  case 103:
  case 103:
#line 670 "ada-exp.y"
#line 670 "ada-exp.y"
    { write_exp_elt_opcode (OP_POSITIONAL);
    { write_exp_elt_opcode (OP_POSITIONAL);
                          write_exp_elt_longcst (0);
                          write_exp_elt_longcst (0);
                          write_exp_elt_opcode (OP_POSITIONAL);
                          write_exp_elt_opcode (OP_POSITIONAL);
                          yyval.lval = 1;
                          yyval.lval = 1;
                        }
                        }
    break;
    break;
 
 
  case 104:
  case 104:
#line 676 "ada-exp.y"
#line 676 "ada-exp.y"
    { write_exp_elt_opcode (OP_POSITIONAL);
    { write_exp_elt_opcode (OP_POSITIONAL);
                          write_exp_elt_longcst (yyvsp[-2].lval);
                          write_exp_elt_longcst (yyvsp[-2].lval);
                          write_exp_elt_opcode (OP_POSITIONAL);
                          write_exp_elt_opcode (OP_POSITIONAL);
                          yyval.lval = yyvsp[-2].lval + 1;
                          yyval.lval = yyvsp[-2].lval + 1;
                        }
                        }
    break;
    break;
 
 
  case 105:
  case 105:
#line 684 "ada-exp.y"
#line 684 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 106:
  case 106:
#line 685 "ada-exp.y"
#line 685 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 107:
  case 107:
#line 687 "ada-exp.y"
#line 687 "ada-exp.y"
    { yyval.lval = yyvsp[0].lval + 1; }
    { yyval.lval = yyvsp[0].lval + 1; }
    break;
    break;
 
 
  case 108:
  case 108:
#line 691 "ada-exp.y"
#line 691 "ada-exp.y"
    { write_exp_elt_opcode (OP_OTHERS); }
    { write_exp_elt_opcode (OP_OTHERS); }
    break;
    break;
 
 
  case 109:
  case 109:
#line 696 "ada-exp.y"
#line 696 "ada-exp.y"
    {
    {
                          write_exp_elt_opcode (OP_CHOICES);
                          write_exp_elt_opcode (OP_CHOICES);
                          write_exp_elt_longcst (yyvsp[0].lval);
                          write_exp_elt_longcst (yyvsp[0].lval);
                          write_exp_elt_opcode (OP_CHOICES);
                          write_exp_elt_opcode (OP_CHOICES);
                        }
                        }
    break;
    break;
 
 
  case 110:
  case 110:
#line 710 "ada-exp.y"
#line 710 "ada-exp.y"
    { write_name_assoc (yyvsp[-1].sval); }
    { write_name_assoc (yyvsp[-1].sval); }
    break;
    break;
 
 
  case 111:
  case 111:
#line 711 "ada-exp.y"
#line 711 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 112:
  case 112:
#line 713 "ada-exp.y"
#line 713 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 113:
  case 113:
#line 715 "ada-exp.y"
#line 715 "ada-exp.y"
    { write_exp_elt_opcode (OP_DISCRETE_RANGE);
    { write_exp_elt_opcode (OP_DISCRETE_RANGE);
                          write_exp_op_with_string (OP_NAME, empty_stoken);
                          write_exp_op_with_string (OP_NAME, empty_stoken);
                        }
                        }
    break;
    break;
 
 
  case 114:
  case 114:
#line 718 "ada-exp.y"
#line 718 "ada-exp.y"
    { yyval.lval = 1; }
    { yyval.lval = 1; }
    break;
    break;
 
 
  case 115:
  case 115:
#line 720 "ada-exp.y"
#line 720 "ada-exp.y"
    { write_name_assoc (yyvsp[-1].sval); }
    { write_name_assoc (yyvsp[-1].sval); }
    break;
    break;
 
 
  case 116:
  case 116:
#line 721 "ada-exp.y"
#line 721 "ada-exp.y"
    { yyval.lval = yyvsp[0].lval + 1; }
    { yyval.lval = yyvsp[0].lval + 1; }
    break;
    break;
 
 
  case 117:
  case 117:
#line 723 "ada-exp.y"
#line 723 "ada-exp.y"
    { yyval.lval = yyvsp[0].lval + 1; }
    { yyval.lval = yyvsp[0].lval + 1; }
    break;
    break;
 
 
  case 118:
  case 118:
#line 725 "ada-exp.y"
#line 725 "ada-exp.y"
    { write_exp_elt_opcode (OP_DISCRETE_RANGE); }
    { write_exp_elt_opcode (OP_DISCRETE_RANGE); }
    break;
    break;
 
 
  case 119:
  case 119:
#line 726 "ada-exp.y"
#line 726 "ada-exp.y"
    { yyval.lval = yyvsp[0].lval + 1; }
    { yyval.lval = yyvsp[0].lval + 1; }
    break;
    break;
 
 
  case 120:
  case 120:
#line 733 "ada-exp.y"
#line 733 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_IND); }
    { write_exp_elt_opcode (UNOP_IND); }
    break;
    break;
 
 
  case 121:
  case 121:
#line 735 "ada-exp.y"
#line 735 "ada-exp.y"
    { write_exp_elt_opcode (UNOP_ADDR); }
    { write_exp_elt_opcode (UNOP_ADDR); }
    break;
    break;
 
 
  case 122:
  case 122:
#line 737 "ada-exp.y"
#line 737 "ada-exp.y"
    { write_exp_elt_opcode (BINOP_SUBSCRIPT); }
    { write_exp_elt_opcode (BINOP_SUBSCRIPT); }
    break;
    break;
 
 
 
 
    }
    }
 
 
/* Line 1000 of yacc.c.  */
/* Line 1000 of yacc.c.  */
#line 2204 "ada-exp.c.tmp"
#line 2204 "ada-exp.c.tmp"


  yyvsp -= yylen;
  yyvsp -= yylen;
  yyssp -= yylen;
  yyssp -= yylen;
 
 
 
 
  YY_STACK_PRINT (yyss, yyssp);
  YY_STACK_PRINT (yyss, yyssp);
 
 
  *++yyvsp = yyval;
  *++yyvsp = yyval;
 
 
 
 
  /* Now `shift' the result of the reduction.  Determine what state
  /* Now `shift' the result of the reduction.  Determine what state
     that goes to, based on the state we popped back to and the rule
     that goes to, based on the state we popped back to and the rule
     number reduced by.  */
     number reduced by.  */
 
 
  yyn = yyr1[yyn];
  yyn = yyr1[yyn];
 
 
  yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
  yystate = yypgoto[yyn - YYNTOKENS] + *yyssp;
  if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  if (0 <= yystate && yystate <= YYLAST && yycheck[yystate] == *yyssp)
    yystate = yytable[yystate];
    yystate = yytable[yystate];
  else
  else
    yystate = yydefgoto[yyn - YYNTOKENS];
    yystate = yydefgoto[yyn - YYNTOKENS];
 
 
  goto yynewstate;
  goto yynewstate;
 
 
 
 
/*------------------------------------.
/*------------------------------------.
| yyerrlab -- here on detecting error |
| yyerrlab -- here on detecting error |
`------------------------------------*/
`------------------------------------*/
yyerrlab:
yyerrlab:
  /* If not already recovering from an error, report this error.  */
  /* If not already recovering from an error, report this error.  */
  if (!yyerrstatus)
  if (!yyerrstatus)
    {
    {
      ++yynerrs;
      ++yynerrs;
#if YYERROR_VERBOSE
#if YYERROR_VERBOSE
      yyn = yypact[yystate];
      yyn = yypact[yystate];
 
 
      if (YYPACT_NINF < yyn && yyn < YYLAST)
      if (YYPACT_NINF < yyn && yyn < YYLAST)
        {
        {
          YYSIZE_T yysize = 0;
          YYSIZE_T yysize = 0;
          int yytype = YYTRANSLATE (yychar);
          int yytype = YYTRANSLATE (yychar);
          const char* yyprefix;
          const char* yyprefix;
          char *yymsg;
          char *yymsg;
          int yyx;
          int yyx;
 
 
          /* Start YYX at -YYN if negative to avoid negative indexes in
          /* Start YYX at -YYN if negative to avoid negative indexes in
             YYCHECK.  */
             YYCHECK.  */
          int yyxbegin = yyn < 0 ? -yyn : 0;
          int yyxbegin = yyn < 0 ? -yyn : 0;
 
 
          /* Stay within bounds of both yycheck and yytname.  */
          /* Stay within bounds of both yycheck and yytname.  */
          int yychecklim = YYLAST - yyn;
          int yychecklim = YYLAST - yyn;
          int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
          int yyxend = yychecklim < YYNTOKENS ? yychecklim : YYNTOKENS;
          int yycount = 0;
          int yycount = 0;
 
 
          yyprefix = ", expecting ";
          yyprefix = ", expecting ";
          for (yyx = yyxbegin; yyx < yyxend; ++yyx)
          for (yyx = yyxbegin; yyx < yyxend; ++yyx)
            if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
            if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
              {
              {
                yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]);
                yysize += yystrlen (yyprefix) + yystrlen (yytname [yyx]);
                yycount += 1;
                yycount += 1;
                if (yycount == 5)
                if (yycount == 5)
                  {
                  {
                    yysize = 0;
                    yysize = 0;
                    break;
                    break;
                  }
                  }
              }
              }
          yysize += (sizeof ("syntax error, unexpected ")
          yysize += (sizeof ("syntax error, unexpected ")
                     + yystrlen (yytname[yytype]));
                     + yystrlen (yytname[yytype]));
          yymsg = (char *) YYSTACK_ALLOC (yysize);
          yymsg = (char *) YYSTACK_ALLOC (yysize);
          if (yymsg != 0)
          if (yymsg != 0)
            {
            {
              char *yyp = yystpcpy (yymsg, "syntax error, unexpected ");
              char *yyp = yystpcpy (yymsg, "syntax error, unexpected ");
              yyp = yystpcpy (yyp, yytname[yytype]);
              yyp = yystpcpy (yyp, yytname[yytype]);
 
 
              if (yycount < 5)
              if (yycount < 5)
                {
                {
                  yyprefix = ", expecting ";
                  yyprefix = ", expecting ";
                  for (yyx = yyxbegin; yyx < yyxend; ++yyx)
                  for (yyx = yyxbegin; yyx < yyxend; ++yyx)
                    if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
                    if (yycheck[yyx + yyn] == yyx && yyx != YYTERROR)
                      {
                      {
                        yyp = yystpcpy (yyp, yyprefix);
                        yyp = yystpcpy (yyp, yyprefix);
                        yyp = yystpcpy (yyp, yytname[yyx]);
                        yyp = yystpcpy (yyp, yytname[yyx]);
                        yyprefix = " or ";
                        yyprefix = " or ";
                      }
                      }
                }
                }
              yyerror (yymsg);
              yyerror (yymsg);
              YYSTACK_FREE (yymsg);
              YYSTACK_FREE (yymsg);
            }
            }
          else
          else
            yyerror ("syntax error; also virtual memory exhausted");
            yyerror ("syntax error; also virtual memory exhausted");
        }
        }
      else
      else
#endif /* YYERROR_VERBOSE */
#endif /* YYERROR_VERBOSE */
        yyerror ("syntax error");
        yyerror ("syntax error");
    }
    }
 
 
 
 
 
 
  if (yyerrstatus == 3)
  if (yyerrstatus == 3)
    {
    {
      /* If just tried and failed to reuse lookahead token after an
      /* If just tried and failed to reuse lookahead token after an
         error, discard it.  */
         error, discard it.  */
 
 
      if (yychar <= YYEOF)
      if (yychar <= YYEOF)
        {
        {
          /* If at end of input, pop the error token,
          /* If at end of input, pop the error token,
             then the rest of the stack, then return failure.  */
             then the rest of the stack, then return failure.  */
          if (yychar == YYEOF)
          if (yychar == YYEOF)
             for (;;)
             for (;;)
               {
               {
                 YYPOPSTACK;
                 YYPOPSTACK;
                 if (yyssp == yyss)
                 if (yyssp == yyss)
                   YYABORT;
                   YYABORT;
                 YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
                 YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
                 yydestruct (yystos[*yyssp], yyvsp);
                 yydestruct (yystos[*yyssp], yyvsp);
               }
               }
        }
        }
      else
      else
        {
        {
          YYDSYMPRINTF ("Error: discarding", yytoken, &yylval, &yylloc);
          YYDSYMPRINTF ("Error: discarding", yytoken, &yylval, &yylloc);
          yydestruct (yytoken, &yylval);
          yydestruct (yytoken, &yylval);
          yychar = YYEMPTY;
          yychar = YYEMPTY;
 
 
        }
        }
    }
    }
 
 
  /* Else will try to reuse lookahead token after shifting the error
  /* Else will try to reuse lookahead token after shifting the error
     token.  */
     token.  */
  goto yyerrlab1;
  goto yyerrlab1;
 
 
 
 
/*---------------------------------------------------.
/*---------------------------------------------------.
| yyerrorlab -- error raised explicitly by YYERROR.  |
| yyerrorlab -- error raised explicitly by YYERROR.  |
`---------------------------------------------------*/
`---------------------------------------------------*/
yyerrorlab:
yyerrorlab:
 
 
#ifdef __GNUC__
#ifdef __GNUC__
  /* Pacify GCC when the user code never invokes YYERROR and the label
  /* Pacify GCC when the user code never invokes YYERROR and the label
     yyerrorlab therefore never appears in user code.  */
     yyerrorlab therefore never appears in user code.  */
  if (0)
  if (0)
     goto yyerrorlab;
     goto yyerrorlab;
#endif
#endif
 
 
  yyvsp -= yylen;
  yyvsp -= yylen;
  yyssp -= yylen;
  yyssp -= yylen;
  yystate = *yyssp;
  yystate = *yyssp;
  goto yyerrlab1;
  goto yyerrlab1;
 
 
 
 
/*-------------------------------------------------------------.
/*-------------------------------------------------------------.
| yyerrlab1 -- common code for both syntax error and YYERROR.  |
| yyerrlab1 -- common code for both syntax error and YYERROR.  |
`-------------------------------------------------------------*/
`-------------------------------------------------------------*/
yyerrlab1:
yyerrlab1:
  yyerrstatus = 3;      /* Each real token shifted decrements this.  */
  yyerrstatus = 3;      /* Each real token shifted decrements this.  */
 
 
  for (;;)
  for (;;)
    {
    {
      yyn = yypact[yystate];
      yyn = yypact[yystate];
      if (yyn != YYPACT_NINF)
      if (yyn != YYPACT_NINF)
        {
        {
          yyn += YYTERROR;
          yyn += YYTERROR;
          if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
          if (0 <= yyn && yyn <= YYLAST && yycheck[yyn] == YYTERROR)
            {
            {
              yyn = yytable[yyn];
              yyn = yytable[yyn];
              if (0 < yyn)
              if (0 < yyn)
                break;
                break;
            }
            }
        }
        }
 
 
      /* Pop the current state because it cannot handle the error token.  */
      /* Pop the current state because it cannot handle the error token.  */
      if (yyssp == yyss)
      if (yyssp == yyss)
        YYABORT;
        YYABORT;
 
 
      YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
      YYDSYMPRINTF ("Error: popping", yystos[*yyssp], yyvsp, yylsp);
      yydestruct (yystos[yystate], yyvsp);
      yydestruct (yystos[yystate], yyvsp);
      YYPOPSTACK;
      YYPOPSTACK;
      yystate = *yyssp;
      yystate = *yyssp;
      YY_STACK_PRINT (yyss, yyssp);
      YY_STACK_PRINT (yyss, yyssp);
    }
    }
 
 
  if (yyn == YYFINAL)
  if (yyn == YYFINAL)
    YYACCEPT;
    YYACCEPT;
 
 
  YYDPRINTF ((stderr, "Shifting error token, "));
  YYDPRINTF ((stderr, "Shifting error token, "));
 
 
  *++yyvsp = yylval;
  *++yyvsp = yylval;
 
 
 
 
  yystate = yyn;
  yystate = yyn;
  goto yynewstate;
  goto yynewstate;
 
 
 
 
/*-------------------------------------.
/*-------------------------------------.
| yyacceptlab -- YYACCEPT comes here.  |
| yyacceptlab -- YYACCEPT comes here.  |
`-------------------------------------*/
`-------------------------------------*/
yyacceptlab:
yyacceptlab:
  yyresult = 0;
  yyresult = 0;
  goto yyreturn;
  goto yyreturn;
 
 
/*-----------------------------------.
/*-----------------------------------.
| yyabortlab -- YYABORT comes here.  |
| yyabortlab -- YYABORT comes here.  |
`-----------------------------------*/
`-----------------------------------*/
yyabortlab:
yyabortlab:
  yyresult = 1;
  yyresult = 1;
  goto yyreturn;
  goto yyreturn;
 
 
#ifndef yyoverflow
#ifndef yyoverflow
/*----------------------------------------------.
/*----------------------------------------------.
| yyoverflowlab -- parser overflow comes here.  |
| yyoverflowlab -- parser overflow comes here.  |
`----------------------------------------------*/
`----------------------------------------------*/
yyoverflowlab:
yyoverflowlab:
  yyerror ("parser stack overflow");
  yyerror ("parser stack overflow");
  yyresult = 2;
  yyresult = 2;
  /* Fall through.  */
  /* Fall through.  */
#endif
#endif
 
 
yyreturn:
yyreturn:
#ifndef yyoverflow
#ifndef yyoverflow
  if (yyss != yyssa)
  if (yyss != yyssa)
    YYSTACK_FREE (yyss);
    YYSTACK_FREE (yyss);
#endif
#endif
  return yyresult;
  return yyresult;
}
}
 
 
 
 
#line 740 "ada-exp.y"
#line 740 "ada-exp.y"
 
 
 
 
/* yylex defined in ada-lex.c: Reads one token, getting characters */
/* yylex defined in ada-lex.c: Reads one token, getting characters */
/* through lexptr.  */
/* through lexptr.  */
 
 
/* Remap normal flex interface names (yylex) as well as gratuitiously */
/* Remap normal flex interface names (yylex) as well as gratuitiously */
/* global symbol names, so we can have multiple flex-generated parsers */
/* global symbol names, so we can have multiple flex-generated parsers */
/* in gdb.  */
/* in gdb.  */
 
 
/* (See note above on previous definitions for YACC.) */
/* (See note above on previous definitions for YACC.) */
 
 
#define yy_create_buffer ada_yy_create_buffer
#define yy_create_buffer ada_yy_create_buffer
#define yy_delete_buffer ada_yy_delete_buffer
#define yy_delete_buffer ada_yy_delete_buffer
#define yy_init_buffer ada_yy_init_buffer
#define yy_init_buffer ada_yy_init_buffer
#define yy_load_buffer_state ada_yy_load_buffer_state
#define yy_load_buffer_state ada_yy_load_buffer_state
#define yy_switch_to_buffer ada_yy_switch_to_buffer
#define yy_switch_to_buffer ada_yy_switch_to_buffer
#define yyrestart ada_yyrestart
#define yyrestart ada_yyrestart
#define yytext ada_yytext
#define yytext ada_yytext
#define yywrap ada_yywrap
#define yywrap ada_yywrap
 
 
static struct obstack temp_parse_space;
static struct obstack temp_parse_space;
 
 
/* The following kludge was found necessary to prevent conflicts between */
/* The following kludge was found necessary to prevent conflicts between */
/* defs.h and non-standard stdlib.h files.  */
/* defs.h and non-standard stdlib.h files.  */
#define qsort __qsort__dummy
#define qsort __qsort__dummy
#include "ada-lex.c"
#include "ada-lex.c"
 
 
int
int
ada_parse (void)
ada_parse (void)
{
{
  lexer_init (yyin);            /* (Re-)initialize lexer.  */
  lexer_init (yyin);            /* (Re-)initialize lexer.  */
  type_qualifier = NULL;
  type_qualifier = NULL;
  obstack_free (&temp_parse_space, NULL);
  obstack_free (&temp_parse_space, NULL);
  obstack_init (&temp_parse_space);
  obstack_init (&temp_parse_space);
 
 
  return _ada_parse ();
  return _ada_parse ();
}
}
 
 
void
void
yyerror (char *msg)
yyerror (char *msg)
{
{
  error (_("Error in expression, near `%s'."), lexptr);
  error (_("Error in expression, near `%s'."), lexptr);
}
}
 
 
/* The operator name corresponding to operator symbol STRING (adds
/* The operator name corresponding to operator symbol STRING (adds
   quotes and maps to lower-case).  Destroys the previous contents of
   quotes and maps to lower-case).  Destroys the previous contents of
   the array pointed to by STRING.ptr.  Error if STRING does not match
   the array pointed to by STRING.ptr.  Error if STRING does not match
   a valid Ada operator.  Assumes that STRING.ptr points to a
   a valid Ada operator.  Assumes that STRING.ptr points to a
   null-terminated string and that, if STRING is a valid operator
   null-terminated string and that, if STRING is a valid operator
   symbol, the array pointed to by STRING.ptr contains at least
   symbol, the array pointed to by STRING.ptr contains at least
   STRING.length+3 characters.  */
   STRING.length+3 characters.  */
 
 
static struct stoken
static struct stoken
string_to_operator (struct stoken string)
string_to_operator (struct stoken string)
{
{
  int i;
  int i;
 
 
  for (i = 0; ada_opname_table[i].encoded != NULL; i += 1)
  for (i = 0; ada_opname_table[i].encoded != NULL; i += 1)
    {
    {
      if (string.length == strlen (ada_opname_table[i].decoded)-2
      if (string.length == strlen (ada_opname_table[i].decoded)-2
          && strncasecmp (string.ptr, ada_opname_table[i].decoded+1,
          && strncasecmp (string.ptr, ada_opname_table[i].decoded+1,
                          string.length) == 0)
                          string.length) == 0)
        {
        {
          strncpy (string.ptr, ada_opname_table[i].decoded,
          strncpy (string.ptr, ada_opname_table[i].decoded,
                   string.length+2);
                   string.length+2);
          string.length += 2;
          string.length += 2;
          return string;
          return string;
        }
        }
    }
    }
  error (_("Invalid operator symbol `%s'"), string.ptr);
  error (_("Invalid operator symbol `%s'"), string.ptr);
}
}
 
 
/* Emit expression to access an instance of SYM, in block BLOCK (if
/* Emit expression to access an instance of SYM, in block BLOCK (if
 * non-NULL), and with :: qualification ORIG_LEFT_CONTEXT.  */
 * non-NULL), and with :: qualification ORIG_LEFT_CONTEXT.  */
static void
static void
write_var_from_sym (struct block *orig_left_context,
write_var_from_sym (struct block *orig_left_context,
                    struct block *block,
                    struct block *block,
                    struct symbol *sym)
                    struct symbol *sym)
{
{
  if (orig_left_context == NULL && symbol_read_needs_frame (sym))
  if (orig_left_context == NULL && symbol_read_needs_frame (sym))
    {
    {
      if (innermost_block == 0
      if (innermost_block == 0
          || contained_in (block, innermost_block))
          || contained_in (block, innermost_block))
        innermost_block = block;
        innermost_block = block;
    }
    }
 
 
  write_exp_elt_opcode (OP_VAR_VALUE);
  write_exp_elt_opcode (OP_VAR_VALUE);
  write_exp_elt_block (block);
  write_exp_elt_block (block);
  write_exp_elt_sym (sym);
  write_exp_elt_sym (sym);
  write_exp_elt_opcode (OP_VAR_VALUE);
  write_exp_elt_opcode (OP_VAR_VALUE);
}
}
 
 
/* Write integer or boolean constant ARG of type TYPE.  */
/* Write integer or boolean constant ARG of type TYPE.  */
 
 
static void
static void
write_int (LONGEST arg, struct type *type)
write_int (LONGEST arg, struct type *type)
{
{
  write_exp_elt_opcode (OP_LONG);
  write_exp_elt_opcode (OP_LONG);
  write_exp_elt_type (type);
  write_exp_elt_type (type);
  write_exp_elt_longcst (arg);
  write_exp_elt_longcst (arg);
  write_exp_elt_opcode (OP_LONG);
  write_exp_elt_opcode (OP_LONG);
}
}
 
 
/* Write an OPCODE, string, OPCODE sequence to the current expression.  */
/* Write an OPCODE, string, OPCODE sequence to the current expression.  */
static void
static void
write_exp_op_with_string (enum exp_opcode opcode, struct stoken token)
write_exp_op_with_string (enum exp_opcode opcode, struct stoken token)
{
{
  write_exp_elt_opcode (opcode);
  write_exp_elt_opcode (opcode);
  write_exp_string (token);
  write_exp_string (token);
  write_exp_elt_opcode (opcode);
  write_exp_elt_opcode (opcode);
}
}
 
 
/* Emit expression corresponding to the renamed object named
/* Emit expression corresponding to the renamed object named
 * designated by RENAMED_ENTITY[0 .. RENAMED_ENTITY_LEN-1] in the
 * designated by RENAMED_ENTITY[0 .. RENAMED_ENTITY_LEN-1] in the
 * context of ORIG_LEFT_CONTEXT, to which is applied the operations
 * context of ORIG_LEFT_CONTEXT, to which is applied the operations
 * encoded by RENAMING_EXPR.  MAX_DEPTH is the maximum number of
 * encoded by RENAMING_EXPR.  MAX_DEPTH is the maximum number of
 * cascaded renamings to allow.  If ORIG_LEFT_CONTEXT is null, it
 * cascaded renamings to allow.  If ORIG_LEFT_CONTEXT is null, it
 * defaults to the currently selected block. ORIG_SYMBOL is the
 * defaults to the currently selected block. ORIG_SYMBOL is the
 * symbol that originally encoded the renaming.  It is needed only
 * symbol that originally encoded the renaming.  It is needed only
 * because its prefix also qualifies any index variables used to index
 * because its prefix also qualifies any index variables used to index
 * or slice an array.  It should not be necessary once we go to the
 * or slice an array.  It should not be necessary once we go to the
 * new encoding entirely (FIXME pnh 7/20/2007).  */
 * new encoding entirely (FIXME pnh 7/20/2007).  */
 
 
static void
static void
write_object_renaming (struct block *orig_left_context,
write_object_renaming (struct block *orig_left_context,
                       const char *renamed_entity, int renamed_entity_len,
                       const char *renamed_entity, int renamed_entity_len,
                       const char *renaming_expr, int max_depth)
                       const char *renaming_expr, int max_depth)
{
{
  char *name;
  char *name;
  enum { SIMPLE_INDEX, LOWER_BOUND, UPPER_BOUND } slice_state;
  enum { SIMPLE_INDEX, LOWER_BOUND, UPPER_BOUND } slice_state;
  struct symbol *sym;
  struct symbol *sym;
  struct block *block;
  struct block *block;
 
 
  if (max_depth <= 0)
  if (max_depth <= 0)
    error (_("Could not find renamed symbol"));
    error (_("Could not find renamed symbol"));
 
 
  if (orig_left_context == NULL)
  if (orig_left_context == NULL)
    orig_left_context = get_selected_block (NULL);
    orig_left_context = get_selected_block (NULL);
 
 
  name = obsavestring (renamed_entity, renamed_entity_len, &temp_parse_space);
  name = obsavestring (renamed_entity, renamed_entity_len, &temp_parse_space);
  sym = ada_lookup_encoded_symbol (name, orig_left_context, VAR_DOMAIN,
  sym = ada_lookup_encoded_symbol (name, orig_left_context, VAR_DOMAIN,
                                   &block);
                                   &block);
  if (sym == NULL)
  if (sym == NULL)
    error (_("Could not find renamed variable: %s"), ada_decode (name));
    error (_("Could not find renamed variable: %s"), ada_decode (name));
  else if (SYMBOL_CLASS (sym) == LOC_TYPEDEF)
  else if (SYMBOL_CLASS (sym) == LOC_TYPEDEF)
    /* We have a renaming of an old-style renaming symbol.  Don't
    /* We have a renaming of an old-style renaming symbol.  Don't
       trust the block information.  */
       trust the block information.  */
    block = orig_left_context;
    block = orig_left_context;
 
 
  {
  {
    const char *inner_renamed_entity;
    const char *inner_renamed_entity;
    int inner_renamed_entity_len;
    int inner_renamed_entity_len;
    const char *inner_renaming_expr;
    const char *inner_renaming_expr;
 
 
    switch (ada_parse_renaming (sym, &inner_renamed_entity,
    switch (ada_parse_renaming (sym, &inner_renamed_entity,
                                &inner_renamed_entity_len,
                                &inner_renamed_entity_len,
                                &inner_renaming_expr))
                                &inner_renaming_expr))
      {
      {
      case ADA_NOT_RENAMING:
      case ADA_NOT_RENAMING:
        write_var_from_sym (orig_left_context, block, sym);
        write_var_from_sym (orig_left_context, block, sym);
        break;
        break;
      case ADA_OBJECT_RENAMING:
      case ADA_OBJECT_RENAMING:
        write_object_renaming (block,
        write_object_renaming (block,
                               inner_renamed_entity, inner_renamed_entity_len,
                               inner_renamed_entity, inner_renamed_entity_len,
                               inner_renaming_expr, max_depth - 1);
                               inner_renaming_expr, max_depth - 1);
        break;
        break;
      default:
      default:
        goto BadEncoding;
        goto BadEncoding;
      }
      }
  }
  }
 
 
  slice_state = SIMPLE_INDEX;
  slice_state = SIMPLE_INDEX;
  while (*renaming_expr == 'X')
  while (*renaming_expr == 'X')
    {
    {
      renaming_expr += 1;
      renaming_expr += 1;
 
 
      switch (*renaming_expr) {
      switch (*renaming_expr) {
      case 'A':
      case 'A':
        renaming_expr += 1;
        renaming_expr += 1;
        write_exp_elt_opcode (UNOP_IND);
        write_exp_elt_opcode (UNOP_IND);
        break;
        break;
      case 'L':
      case 'L':
        slice_state = LOWER_BOUND;
        slice_state = LOWER_BOUND;
      case 'S':
      case 'S':
        renaming_expr += 1;
        renaming_expr += 1;
        if (isdigit (*renaming_expr))
        if (isdigit (*renaming_expr))
          {
          {
            char *next;
            char *next;
            long val = strtol (renaming_expr, &next, 10);
            long val = strtol (renaming_expr, &next, 10);
            if (next == renaming_expr)
            if (next == renaming_expr)
              goto BadEncoding;
              goto BadEncoding;
            renaming_expr = next;
            renaming_expr = next;
            write_exp_elt_opcode (OP_LONG);
            write_exp_elt_opcode (OP_LONG);
            write_exp_elt_type (type_int ());
            write_exp_elt_type (type_int ());
            write_exp_elt_longcst ((LONGEST) val);
            write_exp_elt_longcst ((LONGEST) val);
            write_exp_elt_opcode (OP_LONG);
            write_exp_elt_opcode (OP_LONG);
          }
          }
        else
        else
          {
          {
            const char *end;
            const char *end;
            char *index_name;
            char *index_name;
            struct symbol *index_sym;
            struct symbol *index_sym;
 
 
            end = strchr (renaming_expr, 'X');
            end = strchr (renaming_expr, 'X');
            if (end == NULL)
            if (end == NULL)
              end = renaming_expr + strlen (renaming_expr);
              end = renaming_expr + strlen (renaming_expr);
 
 
            index_name =
            index_name =
              obsavestring (renaming_expr, end - renaming_expr,
              obsavestring (renaming_expr, end - renaming_expr,
                            &temp_parse_space);
                            &temp_parse_space);
            renaming_expr = end;
            renaming_expr = end;
 
 
            index_sym = ada_lookup_encoded_symbol (index_name, NULL,
            index_sym = ada_lookup_encoded_symbol (index_name, NULL,
                                                   VAR_DOMAIN, &block);
                                                   VAR_DOMAIN, &block);
            if (index_sym == NULL)
            if (index_sym == NULL)
              error (_("Could not find %s"), index_name);
              error (_("Could not find %s"), index_name);
            else if (SYMBOL_CLASS (index_sym) == LOC_TYPEDEF)
            else if (SYMBOL_CLASS (index_sym) == LOC_TYPEDEF)
              /* Index is an old-style renaming symbol.  */
              /* Index is an old-style renaming symbol.  */
              block = orig_left_context;
              block = orig_left_context;
            write_var_from_sym (NULL, block, index_sym);
            write_var_from_sym (NULL, block, index_sym);
          }
          }
        if (slice_state == SIMPLE_INDEX)
        if (slice_state == SIMPLE_INDEX)
          {
          {
            write_exp_elt_opcode (OP_FUNCALL);
            write_exp_elt_opcode (OP_FUNCALL);
            write_exp_elt_longcst ((LONGEST) 1);
            write_exp_elt_longcst ((LONGEST) 1);
            write_exp_elt_opcode (OP_FUNCALL);
            write_exp_elt_opcode (OP_FUNCALL);
          }
          }
        else if (slice_state == LOWER_BOUND)
        else if (slice_state == LOWER_BOUND)
          slice_state = UPPER_BOUND;
          slice_state = UPPER_BOUND;
        else if (slice_state == UPPER_BOUND)
        else if (slice_state == UPPER_BOUND)
          {
          {
            write_exp_elt_opcode (TERNOP_SLICE);
            write_exp_elt_opcode (TERNOP_SLICE);
            slice_state = SIMPLE_INDEX;
            slice_state = SIMPLE_INDEX;
          }
          }
        break;
        break;
 
 
      case 'R':
      case 'R':
        {
        {
          struct stoken field_name;
          struct stoken field_name;
          const char *end;
          const char *end;
          renaming_expr += 1;
          renaming_expr += 1;
 
 
          if (slice_state != SIMPLE_INDEX)
          if (slice_state != SIMPLE_INDEX)
            goto BadEncoding;
            goto BadEncoding;
          end = strchr (renaming_expr, 'X');
          end = strchr (renaming_expr, 'X');
          if (end == NULL)
          if (end == NULL)
            end = renaming_expr + strlen (renaming_expr);
            end = renaming_expr + strlen (renaming_expr);
          field_name.length = end - renaming_expr;
          field_name.length = end - renaming_expr;
          field_name.ptr = xmalloc (end - renaming_expr + 1);
          field_name.ptr = xmalloc (end - renaming_expr + 1);
          strncpy (field_name.ptr, renaming_expr, end - renaming_expr);
          strncpy (field_name.ptr, renaming_expr, end - renaming_expr);
          field_name.ptr[end - renaming_expr] = '\000';
          field_name.ptr[end - renaming_expr] = '\000';
          renaming_expr = end;
          renaming_expr = end;
          write_exp_op_with_string (STRUCTOP_STRUCT, field_name);
          write_exp_op_with_string (STRUCTOP_STRUCT, field_name);
          break;
          break;
        }
        }
 
 
      default:
      default:
        goto BadEncoding;
        goto BadEncoding;
      }
      }
    }
    }
  if (slice_state == SIMPLE_INDEX)
  if (slice_state == SIMPLE_INDEX)
    return;
    return;
 
 
 BadEncoding:
 BadEncoding:
  error (_("Internal error in encoding of renaming declaration"));
  error (_("Internal error in encoding of renaming declaration"));
}
}
 
 
static struct block*
static struct block*
block_lookup (struct block *context, char *raw_name)
block_lookup (struct block *context, char *raw_name)
{
{
  char *name;
  char *name;
  struct ada_symbol_info *syms;
  struct ada_symbol_info *syms;
  int nsyms;
  int nsyms;
  struct symtab *symtab;
  struct symtab *symtab;
 
 
  if (raw_name[0] == '\'')
  if (raw_name[0] == '\'')
    {
    {
      raw_name += 1;
      raw_name += 1;
      name = raw_name;
      name = raw_name;
    }
    }
  else
  else
    name = ada_encode (raw_name);
    name = ada_encode (raw_name);
 
 
  nsyms = ada_lookup_symbol_list (name, context, VAR_DOMAIN, &syms);
  nsyms = ada_lookup_symbol_list (name, context, VAR_DOMAIN, &syms);
  if (context == NULL
  if (context == NULL
      && (nsyms == 0 || SYMBOL_CLASS (syms[0].sym) != LOC_BLOCK))
      && (nsyms == 0 || SYMBOL_CLASS (syms[0].sym) != LOC_BLOCK))
    symtab = lookup_symtab (name);
    symtab = lookup_symtab (name);
  else
  else
    symtab = NULL;
    symtab = NULL;
 
 
  if (symtab != NULL)
  if (symtab != NULL)
    return BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), STATIC_BLOCK);
    return BLOCKVECTOR_BLOCK (BLOCKVECTOR (symtab), STATIC_BLOCK);
  else if (nsyms == 0 || SYMBOL_CLASS (syms[0].sym) != LOC_BLOCK)
  else if (nsyms == 0 || SYMBOL_CLASS (syms[0].sym) != LOC_BLOCK)
    {
    {
      if (context == NULL)
      if (context == NULL)
        error (_("No file or function \"%s\"."), raw_name);
        error (_("No file or function \"%s\"."), raw_name);
      else
      else
        error (_("No function \"%s\" in specified context."), raw_name);
        error (_("No function \"%s\" in specified context."), raw_name);
    }
    }
  else
  else
    {
    {
      if (nsyms > 1)
      if (nsyms > 1)
        warning (_("Function name \"%s\" ambiguous here"), raw_name);
        warning (_("Function name \"%s\" ambiguous here"), raw_name);
      return SYMBOL_BLOCK_VALUE (syms[0].sym);
      return SYMBOL_BLOCK_VALUE (syms[0].sym);
    }
    }
}
}
 
 
static struct symbol*
static struct symbol*
select_possible_type_sym (struct ada_symbol_info *syms, int nsyms)
select_possible_type_sym (struct ada_symbol_info *syms, int nsyms)
{
{
  int i;
  int i;
  int preferred_index;
  int preferred_index;
  struct type *preferred_type;
  struct type *preferred_type;
 
 
  preferred_index = -1; preferred_type = NULL;
  preferred_index = -1; preferred_type = NULL;
  for (i = 0; i < nsyms; i += 1)
  for (i = 0; i < nsyms; i += 1)
    switch (SYMBOL_CLASS (syms[i].sym))
    switch (SYMBOL_CLASS (syms[i].sym))
      {
      {
      case LOC_TYPEDEF:
      case LOC_TYPEDEF:
        if (ada_prefer_type (SYMBOL_TYPE (syms[i].sym), preferred_type))
        if (ada_prefer_type (SYMBOL_TYPE (syms[i].sym), preferred_type))
          {
          {
            preferred_index = i;
            preferred_index = i;
            preferred_type = SYMBOL_TYPE (syms[i].sym);
            preferred_type = SYMBOL_TYPE (syms[i].sym);
          }
          }
        break;
        break;
      case LOC_REGISTER:
      case LOC_REGISTER:
      case LOC_ARG:
      case LOC_ARG:
      case LOC_REF_ARG:
      case LOC_REF_ARG:
      case LOC_REGPARM_ADDR:
      case LOC_REGPARM_ADDR:
      case LOC_LOCAL:
      case LOC_LOCAL:
      case LOC_COMPUTED:
      case LOC_COMPUTED:
        return NULL;
        return NULL;
      default:
      default:
        break;
        break;
      }
      }
  if (preferred_type == NULL)
  if (preferred_type == NULL)
    return NULL;
    return NULL;
  return syms[preferred_index].sym;
  return syms[preferred_index].sym;
}
}
 
 
static struct type*
static struct type*
find_primitive_type (char *name)
find_primitive_type (char *name)
{
{
  struct type *type;
  struct type *type;
  type = language_lookup_primitive_type_by_name (parse_language,
  type = language_lookup_primitive_type_by_name (parse_language,
                                                 parse_gdbarch,
                                                 parse_gdbarch,
                                                 name);
                                                 name);
  if (type == NULL && strcmp ("system__address", name) == 0)
  if (type == NULL && strcmp ("system__address", name) == 0)
    type = type_system_address ();
    type = type_system_address ();
 
 
  if (type != NULL)
  if (type != NULL)
    {
    {
      /* Check to see if we have a regular definition of this
      /* Check to see if we have a regular definition of this
         type that just didn't happen to have been read yet.  */
         type that just didn't happen to have been read yet.  */
      int ntypes;
      int ntypes;
      struct symbol *sym;
      struct symbol *sym;
      char *expanded_name =
      char *expanded_name =
        (char *) alloca (strlen (name) + sizeof ("standard__"));
        (char *) alloca (strlen (name) + sizeof ("standard__"));
      strcpy (expanded_name, "standard__");
      strcpy (expanded_name, "standard__");
      strcat (expanded_name, name);
      strcat (expanded_name, name);
      sym = ada_lookup_symbol (expanded_name, NULL, VAR_DOMAIN, NULL);
      sym = ada_lookup_symbol (expanded_name, NULL, VAR_DOMAIN, NULL);
      if (sym != NULL && SYMBOL_CLASS (sym) == LOC_TYPEDEF)
      if (sym != NULL && SYMBOL_CLASS (sym) == LOC_TYPEDEF)
        type = SYMBOL_TYPE (sym);
        type = SYMBOL_TYPE (sym);
    }
    }
 
 
  return type;
  return type;
}
}
 
 
static int
static int
chop_selector (char *name, int end)
chop_selector (char *name, int end)
{
{
  int i;
  int i;
  for (i = end - 1; i > 0; i -= 1)
  for (i = end - 1; i > 0; i -= 1)
    if (name[i] == '.' || (name[i] == '_' && name[i+1] == '_'))
    if (name[i] == '.' || (name[i] == '_' && name[i+1] == '_'))
      return i;
      return i;
  return -1;
  return -1;
}
}
 
 
/* If NAME is a string beginning with a separator (either '__', or
/* If NAME is a string beginning with a separator (either '__', or
   '.'), chop this separator and return the result; else, return
   '.'), chop this separator and return the result; else, return
   NAME.  */
   NAME.  */
 
 
static char *
static char *
chop_separator (char *name)
chop_separator (char *name)
{
{
  if (*name == '.')
  if (*name == '.')
   return name + 1;
   return name + 1;
 
 
  if (name[0] == '_' && name[1] == '_')
  if (name[0] == '_' && name[1] == '_')
    return name + 2;
    return name + 2;
 
 
  return name;
  return name;
}
}
 
 
/* Given that SELS is a string of the form (<sep><identifier>)*, where
/* Given that SELS is a string of the form (<sep><identifier>)*, where
   <sep> is '__' or '.', write the indicated sequence of
   <sep> is '__' or '.', write the indicated sequence of
   STRUCTOP_STRUCT expression operators. */
   STRUCTOP_STRUCT expression operators. */
static void
static void
write_selectors (char *sels)
write_selectors (char *sels)
{
{
  while (*sels != '\0')
  while (*sels != '\0')
    {
    {
      struct stoken field_name;
      struct stoken field_name;
      char *p = chop_separator (sels);
      char *p = chop_separator (sels);
      sels = p;
      sels = p;
      while (*sels != '\0' && *sels != '.'
      while (*sels != '\0' && *sels != '.'
             && (sels[0] != '_' || sels[1] != '_'))
             && (sels[0] != '_' || sels[1] != '_'))
        sels += 1;
        sels += 1;
      field_name.length = sels - p;
      field_name.length = sels - p;
      field_name.ptr = p;
      field_name.ptr = p;
      write_exp_op_with_string (STRUCTOP_STRUCT, field_name);
      write_exp_op_with_string (STRUCTOP_STRUCT, field_name);
    }
    }
}
}
 
 
/* Write a variable access (OP_VAR_VALUE) to ambiguous encoded name
/* Write a variable access (OP_VAR_VALUE) to ambiguous encoded name
   NAME[0..LEN-1], in block context BLOCK, to be resolved later.  Writes
   NAME[0..LEN-1], in block context BLOCK, to be resolved later.  Writes
   a temporary symbol that is valid until the next call to ada_parse.
   a temporary symbol that is valid until the next call to ada_parse.
   */
   */
static void
static void
write_ambiguous_var (struct block *block, char *name, int len)
write_ambiguous_var (struct block *block, char *name, int len)
{
{
  struct symbol *sym =
  struct symbol *sym =
    obstack_alloc (&temp_parse_space, sizeof (struct symbol));
    obstack_alloc (&temp_parse_space, sizeof (struct symbol));
  memset (sym, 0, sizeof (struct symbol));
  memset (sym, 0, sizeof (struct symbol));
  SYMBOL_DOMAIN (sym) = UNDEF_DOMAIN;
  SYMBOL_DOMAIN (sym) = UNDEF_DOMAIN;
  SYMBOL_LINKAGE_NAME (sym) = obsavestring (name, len, &temp_parse_space);
  SYMBOL_LINKAGE_NAME (sym) = obsavestring (name, len, &temp_parse_space);
  SYMBOL_LANGUAGE (sym) = language_ada;
  SYMBOL_LANGUAGE (sym) = language_ada;
 
 
  write_exp_elt_opcode (OP_VAR_VALUE);
  write_exp_elt_opcode (OP_VAR_VALUE);
  write_exp_elt_block (block);
  write_exp_elt_block (block);
  write_exp_elt_sym (sym);
  write_exp_elt_sym (sym);
  write_exp_elt_opcode (OP_VAR_VALUE);
  write_exp_elt_opcode (OP_VAR_VALUE);
}
}
 
 
/* A convenient wrapper around ada_get_field_index that takes
/* A convenient wrapper around ada_get_field_index that takes
   a non NUL-terminated FIELD_NAME0 and a FIELD_NAME_LEN instead
   a non NUL-terminated FIELD_NAME0 and a FIELD_NAME_LEN instead
   of a NUL-terminated field name.  */
   of a NUL-terminated field name.  */
 
 
static int
static int
ada_nget_field_index (const struct type *type, const char *field_name0,
ada_nget_field_index (const struct type *type, const char *field_name0,
                      int field_name_len, int maybe_missing)
                      int field_name_len, int maybe_missing)
{
{
  char *field_name = alloca ((field_name_len + 1) * sizeof (char));
  char *field_name = alloca ((field_name_len + 1) * sizeof (char));
 
 
  strncpy (field_name, field_name0, field_name_len);
  strncpy (field_name, field_name0, field_name_len);
  field_name[field_name_len] = '\0';
  field_name[field_name_len] = '\0';
  return ada_get_field_index (type, field_name, maybe_missing);
  return ada_get_field_index (type, field_name, maybe_missing);
}
}
 
 
/* If encoded_field_name is the name of a field inside symbol SYM,
/* If encoded_field_name is the name of a field inside symbol SYM,
   then return the type of that field.  Otherwise, return NULL.
   then return the type of that field.  Otherwise, return NULL.
 
 
   This function is actually recursive, so if ENCODED_FIELD_NAME
   This function is actually recursive, so if ENCODED_FIELD_NAME
   doesn't match one of the fields of our symbol, then try to see
   doesn't match one of the fields of our symbol, then try to see
   if ENCODED_FIELD_NAME could not be a succession of field names
   if ENCODED_FIELD_NAME could not be a succession of field names
   (in other words, the user entered an expression of the form
   (in other words, the user entered an expression of the form
   TYPE_NAME.FIELD1.FIELD2.FIELD3), in which case we evaluate
   TYPE_NAME.FIELD1.FIELD2.FIELD3), in which case we evaluate
   each field name sequentially to obtain the desired field type.
   each field name sequentially to obtain the desired field type.
   In case of failure, we return NULL.  */
   In case of failure, we return NULL.  */
 
 
static struct type *
static struct type *
get_symbol_field_type (struct symbol *sym, char *encoded_field_name)
get_symbol_field_type (struct symbol *sym, char *encoded_field_name)
{
{
  char *field_name = encoded_field_name;
  char *field_name = encoded_field_name;
  char *subfield_name;
  char *subfield_name;
  struct type *type = SYMBOL_TYPE (sym);
  struct type *type = SYMBOL_TYPE (sym);
  int fieldno;
  int fieldno;
 
 
  if (type == NULL || field_name == NULL)
  if (type == NULL || field_name == NULL)
    return NULL;
    return NULL;
  type = check_typedef (type);
  type = check_typedef (type);
 
 
  while (field_name[0] != '\0')
  while (field_name[0] != '\0')
    {
    {
      field_name = chop_separator (field_name);
      field_name = chop_separator (field_name);
 
 
      fieldno = ada_get_field_index (type, field_name, 1);
      fieldno = ada_get_field_index (type, field_name, 1);
      if (fieldno >= 0)
      if (fieldno >= 0)
        return TYPE_FIELD_TYPE (type, fieldno);
        return TYPE_FIELD_TYPE (type, fieldno);
 
 
      subfield_name = field_name;
      subfield_name = field_name;
      while (*subfield_name != '\0' && *subfield_name != '.'
      while (*subfield_name != '\0' && *subfield_name != '.'
             && (subfield_name[0] != '_' || subfield_name[1] != '_'))
             && (subfield_name[0] != '_' || subfield_name[1] != '_'))
        subfield_name += 1;
        subfield_name += 1;
 
 
      if (subfield_name[0] == '\0')
      if (subfield_name[0] == '\0')
        return NULL;
        return NULL;
 
 
      fieldno = ada_nget_field_index (type, field_name,
      fieldno = ada_nget_field_index (type, field_name,
                                      subfield_name - field_name, 1);
                                      subfield_name - field_name, 1);
      if (fieldno < 0)
      if (fieldno < 0)
        return NULL;
        return NULL;
 
 
      type = TYPE_FIELD_TYPE (type, fieldno);
      type = TYPE_FIELD_TYPE (type, fieldno);
      field_name = subfield_name;
      field_name = subfield_name;
    }
    }
 
 
  return NULL;
  return NULL;
}
}
 
 
/* Look up NAME0 (an unencoded identifier or dotted name) in BLOCK (or
/* Look up NAME0 (an unencoded identifier or dotted name) in BLOCK (or
   expression_block_context if NULL).  If it denotes a type, return
   expression_block_context if NULL).  If it denotes a type, return
   that type.  Otherwise, write expression code to evaluate it as an
   that type.  Otherwise, write expression code to evaluate it as an
   object and return NULL. In this second case, NAME0 will, in general,
   object and return NULL. In this second case, NAME0 will, in general,
   have the form <name>(.<selector_name>)*, where <name> is an object
   have the form <name>(.<selector_name>)*, where <name> is an object
   or renaming encoded in the debugging data.  Calls error if no
   or renaming encoded in the debugging data.  Calls error if no
   prefix <name> matches a name in the debugging data (i.e., matches
   prefix <name> matches a name in the debugging data (i.e., matches
   either a complete name or, as a wild-card match, the final
   either a complete name or, as a wild-card match, the final
   identifier).  */
   identifier).  */
 
 
static struct type*
static struct type*
write_var_or_type (struct block *block, struct stoken name0)
write_var_or_type (struct block *block, struct stoken name0)
{
{
  int depth;
  int depth;
  char *encoded_name;
  char *encoded_name;
  int name_len;
  int name_len;
 
 
  if (block == NULL)
  if (block == NULL)
    block = expression_context_block;
    block = expression_context_block;
 
 
  encoded_name = ada_encode (name0.ptr);
  encoded_name = ada_encode (name0.ptr);
  name_len = strlen (encoded_name);
  name_len = strlen (encoded_name);
  encoded_name = obsavestring (encoded_name, name_len, &temp_parse_space);
  encoded_name = obsavestring (encoded_name, name_len, &temp_parse_space);
  for (depth = 0; depth < MAX_RENAMING_CHAIN_LENGTH; depth += 1)
  for (depth = 0; depth < MAX_RENAMING_CHAIN_LENGTH; depth += 1)
    {
    {
      int tail_index;
      int tail_index;
 
 
      tail_index = name_len;
      tail_index = name_len;
      while (tail_index > 0)
      while (tail_index > 0)
        {
        {
          int nsyms;
          int nsyms;
          struct ada_symbol_info *syms;
          struct ada_symbol_info *syms;
          struct symbol *type_sym;
          struct symbol *type_sym;
          struct symbol *renaming_sym;
          struct symbol *renaming_sym;
          const char* renaming;
          const char* renaming;
          int renaming_len;
          int renaming_len;
          const char* renaming_expr;
          const char* renaming_expr;
          int terminator = encoded_name[tail_index];
          int terminator = encoded_name[tail_index];
 
 
          encoded_name[tail_index] = '\0';
          encoded_name[tail_index] = '\0';
          nsyms = ada_lookup_symbol_list (encoded_name, block,
          nsyms = ada_lookup_symbol_list (encoded_name, block,
                                          VAR_DOMAIN, &syms);
                                          VAR_DOMAIN, &syms);
          encoded_name[tail_index] = terminator;
          encoded_name[tail_index] = terminator;
 
 
          /* A single symbol may rename a package or object. */
          /* A single symbol may rename a package or object. */
 
 
          /* This should go away when we move entirely to new version.
          /* This should go away when we move entirely to new version.
             FIXME pnh 7/20/2007. */
             FIXME pnh 7/20/2007. */
          if (nsyms == 1)
          if (nsyms == 1)
            {
            {
              struct symbol *renaming =
              struct symbol *renaming =
                ada_find_renaming_symbol (SYMBOL_LINKAGE_NAME (syms[0].sym),
                ada_find_renaming_symbol (SYMBOL_LINKAGE_NAME (syms[0].sym),
                                          syms[0].block);
                                          syms[0].block);
 
 
              if (renaming != NULL)
              if (renaming != NULL)
                syms[0].sym = renaming;
                syms[0].sym = renaming;
            }
            }
 
 
          type_sym = select_possible_type_sym (syms, nsyms);
          type_sym = select_possible_type_sym (syms, nsyms);
 
 
          if (type_sym != NULL)
          if (type_sym != NULL)
            renaming_sym = type_sym;
            renaming_sym = type_sym;
          else if (nsyms == 1)
          else if (nsyms == 1)
            renaming_sym = syms[0].sym;
            renaming_sym = syms[0].sym;
          else
          else
            renaming_sym = NULL;
            renaming_sym = NULL;
 
 
          switch (ada_parse_renaming (renaming_sym, &renaming,
          switch (ada_parse_renaming (renaming_sym, &renaming,
                                      &renaming_len, &renaming_expr))
                                      &renaming_len, &renaming_expr))
            {
            {
            case ADA_NOT_RENAMING:
            case ADA_NOT_RENAMING:
              break;
              break;
            case ADA_PACKAGE_RENAMING:
            case ADA_PACKAGE_RENAMING:
            case ADA_EXCEPTION_RENAMING:
            case ADA_EXCEPTION_RENAMING:
            case ADA_SUBPROGRAM_RENAMING:
            case ADA_SUBPROGRAM_RENAMING:
              {
              {
                char *new_name
                char *new_name
                  = obstack_alloc (&temp_parse_space,
                  = obstack_alloc (&temp_parse_space,
                                   renaming_len + name_len - tail_index + 1);
                                   renaming_len + name_len - tail_index + 1);
                strncpy (new_name, renaming, renaming_len);
                strncpy (new_name, renaming, renaming_len);
                strcpy (new_name + renaming_len, encoded_name + tail_index);
                strcpy (new_name + renaming_len, encoded_name + tail_index);
                encoded_name = new_name;
                encoded_name = new_name;
                name_len = renaming_len + name_len - tail_index;
                name_len = renaming_len + name_len - tail_index;
                goto TryAfterRenaming;
                goto TryAfterRenaming;
              }
              }
            case ADA_OBJECT_RENAMING:
            case ADA_OBJECT_RENAMING:
              write_object_renaming (block, renaming, renaming_len,
              write_object_renaming (block, renaming, renaming_len,
                                     renaming_expr, MAX_RENAMING_CHAIN_LENGTH);
                                     renaming_expr, MAX_RENAMING_CHAIN_LENGTH);
              write_selectors (encoded_name + tail_index);
              write_selectors (encoded_name + tail_index);
              return NULL;
              return NULL;
            default:
            default:
              internal_error (__FILE__, __LINE__,
              internal_error (__FILE__, __LINE__,
                              _("impossible value from ada_parse_renaming"));
                              _("impossible value from ada_parse_renaming"));
            }
            }
 
 
          if (type_sym != NULL)
          if (type_sym != NULL)
            {
            {
              struct type *field_type;
              struct type *field_type;
 
 
              if (tail_index == name_len)
              if (tail_index == name_len)
                return SYMBOL_TYPE (type_sym);
                return SYMBOL_TYPE (type_sym);
 
 
              /* We have some extraneous characters after the type name.
              /* We have some extraneous characters after the type name.
                 If this is an expression "TYPE_NAME.FIELD0.[...].FIELDN",
                 If this is an expression "TYPE_NAME.FIELD0.[...].FIELDN",
                 then try to get the type of FIELDN.  */
                 then try to get the type of FIELDN.  */
              field_type
              field_type
                = get_symbol_field_type (type_sym, encoded_name + tail_index);
                = get_symbol_field_type (type_sym, encoded_name + tail_index);
              if (field_type != NULL)
              if (field_type != NULL)
                return field_type;
                return field_type;
              else
              else
                error (_("Invalid attempt to select from type: \"%s\"."),
                error (_("Invalid attempt to select from type: \"%s\"."),
                       name0.ptr);
                       name0.ptr);
            }
            }
          else if (tail_index == name_len && nsyms == 0)
          else if (tail_index == name_len && nsyms == 0)
            {
            {
              struct type *type = find_primitive_type (encoded_name);
              struct type *type = find_primitive_type (encoded_name);
 
 
              if (type != NULL)
              if (type != NULL)
                return type;
                return type;
            }
            }
 
 
          if (nsyms == 1)
          if (nsyms == 1)
            {
            {
              write_var_from_sym (block, syms[0].block, syms[0].sym);
              write_var_from_sym (block, syms[0].block, syms[0].sym);
              write_selectors (encoded_name + tail_index);
              write_selectors (encoded_name + tail_index);
              return NULL;
              return NULL;
            }
            }
          else if (nsyms == 0)
          else if (nsyms == 0)
            {
            {
              int i;
              int i;
              struct minimal_symbol *msym
              struct minimal_symbol *msym
                = ada_lookup_simple_minsym (encoded_name);
                = ada_lookup_simple_minsym (encoded_name);
              if (msym != NULL)
              if (msym != NULL)
                {
                {
                  write_exp_msymbol (msym);
                  write_exp_msymbol (msym);
                  /* Maybe cause error here rather than later? FIXME? */
                  /* Maybe cause error here rather than later? FIXME? */
                  write_selectors (encoded_name + tail_index);
                  write_selectors (encoded_name + tail_index);
                  return NULL;
                  return NULL;
                }
                }
 
 
              if (tail_index == name_len
              if (tail_index == name_len
                  && strncmp (encoded_name, "standard__",
                  && strncmp (encoded_name, "standard__",
                              sizeof ("standard__") - 1) == 0)
                              sizeof ("standard__") - 1) == 0)
                error (_("No definition of \"%s\" found."), name0.ptr);
                error (_("No definition of \"%s\" found."), name0.ptr);
 
 
              tail_index = chop_selector (encoded_name, tail_index);
              tail_index = chop_selector (encoded_name, tail_index);
            }
            }
          else
          else
            {
            {
              write_ambiguous_var (block, encoded_name, tail_index);
              write_ambiguous_var (block, encoded_name, tail_index);
              write_selectors (encoded_name + tail_index);
              write_selectors (encoded_name + tail_index);
              return NULL;
              return NULL;
            }
            }
        }
        }
 
 
      if (!have_full_symbols () && !have_partial_symbols () && block == NULL)
      if (!have_full_symbols () && !have_partial_symbols () && block == NULL)
        error (_("No symbol table is loaded.  Use the \"file\" command."));
        error (_("No symbol table is loaded.  Use the \"file\" command."));
      if (block == expression_context_block)
      if (block == expression_context_block)
        error (_("No definition of \"%s\" in current context."), name0.ptr);
        error (_("No definition of \"%s\" in current context."), name0.ptr);
      else
      else
        error (_("No definition of \"%s\" in specified context."), name0.ptr);
        error (_("No definition of \"%s\" in specified context."), name0.ptr);
 
 
    TryAfterRenaming: ;
    TryAfterRenaming: ;
    }
    }
 
 
  error (_("Could not find renamed symbol \"%s\""), name0.ptr);
  error (_("Could not find renamed symbol \"%s\""), name0.ptr);
 
 
}
}
 
 
/* Write a left side of a component association (e.g., NAME in NAME =>
/* Write a left side of a component association (e.g., NAME in NAME =>
   exp).  If NAME has the form of a selected component, write it as an
   exp).  If NAME has the form of a selected component, write it as an
   ordinary expression.  If it is a simple variable that unambiguously
   ordinary expression.  If it is a simple variable that unambiguously
   corresponds to exactly one symbol that does not denote a type or an
   corresponds to exactly one symbol that does not denote a type or an
   object renaming, also write it normally as an OP_VAR_VALUE.
   object renaming, also write it normally as an OP_VAR_VALUE.
   Otherwise, write it as an OP_NAME.
   Otherwise, write it as an OP_NAME.
 
 
   Unfortunately, we don't know at this point whether NAME is supposed
   Unfortunately, we don't know at this point whether NAME is supposed
   to denote a record component name or the value of an array index.
   to denote a record component name or the value of an array index.
   Therefore, it is not appropriate to disambiguate an ambiguous name
   Therefore, it is not appropriate to disambiguate an ambiguous name
   as we normally would, nor to replace a renaming with its referent.
   as we normally would, nor to replace a renaming with its referent.
   As a result, in the (one hopes) rare case that one writes an
   As a result, in the (one hopes) rare case that one writes an
   aggregate such as (R => 42) where R renames an object or is an
   aggregate such as (R => 42) where R renames an object or is an
   ambiguous name, one must write instead ((R) => 42). */
   ambiguous name, one must write instead ((R) => 42). */
 
 
static void
static void
write_name_assoc (struct stoken name)
write_name_assoc (struct stoken name)
{
{
  if (strchr (name.ptr, '.') == NULL)
  if (strchr (name.ptr, '.') == NULL)
    {
    {
      struct ada_symbol_info *syms;
      struct ada_symbol_info *syms;
      int nsyms = ada_lookup_symbol_list (name.ptr, expression_context_block,
      int nsyms = ada_lookup_symbol_list (name.ptr, expression_context_block,
                                          VAR_DOMAIN, &syms);
                                          VAR_DOMAIN, &syms);
      if (nsyms != 1 || SYMBOL_CLASS (syms[0].sym) == LOC_TYPEDEF)
      if (nsyms != 1 || SYMBOL_CLASS (syms[0].sym) == LOC_TYPEDEF)
        write_exp_op_with_string (OP_NAME, name);
        write_exp_op_with_string (OP_NAME, name);
      else
      else
        write_var_from_sym (NULL, syms[0].block, syms[0].sym);
        write_var_from_sym (NULL, syms[0].block, syms[0].sym);
    }
    }
  else
  else
    if (write_var_or_type (NULL, name) != NULL)
    if (write_var_or_type (NULL, name) != NULL)
      error (_("Invalid use of type."));
      error (_("Invalid use of type."));
}
}
 
 
/* Convert the character literal whose ASCII value would be VAL to the
/* Convert the character literal whose ASCII value would be VAL to the
   appropriate value of type TYPE, if there is a translation.
   appropriate value of type TYPE, if there is a translation.
   Otherwise return VAL.  Hence, in an enumeration type ('A', 'B'),
   Otherwise return VAL.  Hence, in an enumeration type ('A', 'B'),
   the literal 'A' (VAL == 65), returns 0.  */
   the literal 'A' (VAL == 65), returns 0.  */
 
 
static LONGEST
static LONGEST
convert_char_literal (struct type *type, LONGEST val)
convert_char_literal (struct type *type, LONGEST val)
{
{
  char name[7];
  char name[7];
  int f;
  int f;
 
 
  if (type == NULL || TYPE_CODE (type) != TYPE_CODE_ENUM)
  if (type == NULL || TYPE_CODE (type) != TYPE_CODE_ENUM)
    return val;
    return val;
  xsnprintf (name, sizeof (name), "QU%02x", (int) val);
  xsnprintf (name, sizeof (name), "QU%02x", (int) val);
  for (f = 0; f < TYPE_NFIELDS (type); f += 1)
  for (f = 0; f < TYPE_NFIELDS (type); f += 1)
    {
    {
      if (strcmp (name, TYPE_FIELD_NAME (type, f)) == 0)
      if (strcmp (name, TYPE_FIELD_NAME (type, f)) == 0)
        return TYPE_FIELD_BITPOS (type, f);
        return TYPE_FIELD_BITPOS (type, f);
    }
    }
  return val;
  return val;
}
}
 
 
static struct type *
static struct type *
type_int (void)
type_int (void)
{
{
  return parse_type->builtin_int;
  return parse_type->builtin_int;
}
}
 
 
static struct type *
static struct type *
type_long (void)
type_long (void)
{
{
  return parse_type->builtin_long;
  return parse_type->builtin_long;
}
}
 
 
static struct type *
static struct type *
type_long_long (void)
type_long_long (void)
{
{
  return parse_type->builtin_long_long;
  return parse_type->builtin_long_long;
}
}
 
 
static struct type *
static struct type *
type_float (void)
type_float (void)
{
{
  return parse_type->builtin_float;
  return parse_type->builtin_float;
}
}
 
 
static struct type *
static struct type *
type_double (void)
type_double (void)
{
{
  return parse_type->builtin_double;
  return parse_type->builtin_double;
}
}
 
 
static struct type *
static struct type *
type_long_double (void)
type_long_double (void)
{
{
  return parse_type->builtin_long_double;
  return parse_type->builtin_long_double;
}
}
 
 
static struct type *
static struct type *
type_char (void)
type_char (void)
{
{
  return language_string_char_type (parse_language, parse_gdbarch);
  return language_string_char_type (parse_language, parse_gdbarch);
}
}
 
 
static struct type *
static struct type *
type_boolean (void)
type_boolean (void)
{
{
  return parse_type->builtin_bool;
  return parse_type->builtin_bool;
}
}
 
 
static struct type *
static struct type *
type_system_address (void)
type_system_address (void)
{
{
  struct type *type
  struct type *type
    = language_lookup_primitive_type_by_name (parse_language,
    = language_lookup_primitive_type_by_name (parse_language,
                                              parse_gdbarch,
                                              parse_gdbarch,
                                              "system__address");
                                              "system__address");
  return  type != NULL ? type : parse_type->builtin_data_ptr;
  return  type != NULL ? type : parse_type->builtin_data_ptr;
}
}
 
 
/* Provide a prototype to silence -Wmissing-prototypes.  */
/* Provide a prototype to silence -Wmissing-prototypes.  */
extern initialize_file_ftype _initialize_ada_exp;
extern initialize_file_ftype _initialize_ada_exp;
 
 
void
void
_initialize_ada_exp (void)
_initialize_ada_exp (void)
{
{
  obstack_init (&temp_parse_space);
  obstack_init (&temp_parse_space);
}
}
 
 
/* FIXME: hilfingr/2004-10-05: Hack to remove warning.  The function
/* FIXME: hilfingr/2004-10-05: Hack to remove warning.  The function
   string_to_operator is supposed to be used for cases where one
   string_to_operator is supposed to be used for cases where one
   calls an operator function with prefix notation, as in
   calls an operator function with prefix notation, as in
   "+" (a, b), but at some point, this code seems to have gone
   "+" (a, b), but at some point, this code seems to have gone
   missing. */
   missing. */
 
 
struct stoken (*dummy_string_to_ada_operator) (struct stoken)
struct stoken (*dummy_string_to_ada_operator) (struct stoken)
     = string_to_operator;
     = string_to_operator;
 
 
 
 
 
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.