
/*  A Bison parser, made from ys.y
    by GNU Bison version 1.28  */

#define YYBISON 1  /* Identify Bison output.  */

#define	NUMBERI	257
#define	NUMBERUI	258
#define	NUMBERLI	259
#define	NUMBERLUI	260
#define	NUMBERD	261
#define	NUMBERLD	262
#define	NUMBERF	263
#define	STRINGC	264
#define	WSTRINGC	265
#define	NUMBERC	266
#define	AUTO	267
#define	STATIC	268
#define	REGISTER	269
#define	EXTERN	270
#define	REMOTE	271
#define	UNLOAD	272
#define	INTRINSIC	273
#define	RPC	274
#define	IDENT	275
#define	INT	276
#define	DOUBLE	277
#define	FLOAT	278
#define	CHAR	279
#define	VOID	280
#define	LONG	281
#define	SHORT	282
#define	SIGNED	283
#define	UNSIGNED	284
#define	CONST	285
#define	VOLATILE	286
#define	ENUM	287
#define	STRUCT	288
#define	UNION	289
#define	EXIT	290
#define	IF	291
#define	ELSE	292
#define	SIZEOF	293
#define	SWITCH	294
#define	WHILE	295
#define	FOR	296
#define	DO	297
#define	CONTINUE	298
#define	BREAK	299
#define	RETURN	300
#define	GOTO	301
#define	CASE	302
#define	DEFAULT	303
#define	CSUSPEND	304
#define	RESUME	305
#define	EXPORT_T	306
#define	TYPEDEF	307
#define	TYPENAME	308
#define	MUL_ASSIGN	309
#define	DIV_ASSIGN	310
#define	MOD_ASSIGN	311
#define	ADD_ASSIGN	312
#define	SUB_ASSIGN	313
#define	LEFT_ASSIGN	314
#define	RIGHT_ASSIGN	315
#define	AND_ASSIGN	316
#define	XOR_ASSIGN	317
#define	OR_ASSIGN	318
#define	OR_A	319
#define	AND_A	320
#define	EQ_A	321
#define	NE_A	322
#define	LQ	323
#define	GQ	324
#define	SHIL	325
#define	SHIR	326
#define	NEG_T	327
#define	NEG_B	328
#define	PP	329
#define	MM	330
#define	PTR	331

#line 27 "ys.y"

#include <string.h>
#include "global.h"
#include "config.h"
#ifdef STDC_HEADERS
#include <stdlib.h>
#include <stddef.h>
#else
#include <malloc.h>
#endif
#include "instr.h"            /* 
			       * Header of structures.
			       * Defines size of virtual machine 
			       * instructions.
			       */
#include "geninstr.h"         /* 
			       * Header of macros.
			       * Defines instruction set of the
			       * virtual machine.
			       */
#include "control.h"          /* 
			       * Header of fixative structures
			       */
#include "type.h"	      /* 
			       * Header of internal representation
			       * of types.
			       */
#include "struct.h"           /*
			       * Header of globally used structures
			       */
#include "mystdio.h"	      /*
			       * Defining NULL
			       */
#include "ys.h"		      /*
			       * Header of compiler maintenance functions.
			       */
#include "allocx.h"
#include "comp_maint.h"
#include "load.h"
#include "virtual_machine.h"
#include "ls.h"
#include "tables.h"
#include "memmove.h"
#include "remote_call.h"
#include "printfx.h"
#include "s-conv.h"
#include "flags.h"
#include "parser.h"	      /*
			       * Header for parser specific variables.
			       */
#include "pso.h"

#define YYDEBUG 1
void dump_yacc PROTO((void));

#line 83 "ys.y"
typedef union	{
  int myint;
  unsigned int myuint;
  long int mylint;
  long unsigned int myluint;
  double mydouble;
  long double myldouble;
  float myfloat;
  char *mystring;
  wchar_t *mywstring;
  char mychar;
} YYSTYPE;
#include <stdio.h>

#ifndef __cplusplus
#ifndef __STDC__
#define const
#endif
#endif



#define	YYFINAL		601
#define	YYFLAG		-32768
#define	YYNTBASE	100

#define YYTRANSLATE(x) ((unsigned)(x) <= 331 ? yytranslate[x] : 254)

static const char yytranslate[] = {     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,    85,    72,     2,    90,
    91,    83,    81,    99,    82,    94,    84,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,    55,    96,    75,
    67,    77,    56,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
    92,     2,    93,    71,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,    98,    70,    97,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
     2,     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,     3,     4,     5,     6,
     7,     8,     9,    10,    11,    12,    13,    14,    15,    16,
    17,    18,    19,    20,    21,    22,    23,    24,    25,    26,
    27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
    37,    38,    39,    40,    41,    42,    43,    44,    45,    46,
    47,    48,    49,    50,    51,    52,    53,    54,    57,    58,
    59,    60,    61,    62,    63,    64,    65,    66,    68,    69,
    73,    74,    76,    78,    79,    80,    86,    87,    88,    89,
    95
};

#if YYDEBUG != 0
static const short yyprhs[] = {     0,
     0,     3,     4,     7,     8,    10,    12,    15,    17,    20,
    22,    26,    28,    31,    34,    37,    40,    44,    47,    49,
    52,    54,    57,    59,    62,    63,    67,    76,    85,    89,
    91,    93,    96,    98,   100,   102,   105,   108,   109,   116,
   117,   124,   125,   126,   134,   135,   144,   148,   150,   152,
   154,   155,   161,   162,   167,   168,   173,   174,   178,   181,
   183,   185,   187,   189,   191,   193,   195,   197,   199,   201,
   203,   205,   207,   209,   211,   213,   216,   219,   223,   225,
   228,   229,   236,   237,   243,   246,   248,   250,   252,   255,
   260,   262,   265,   267,   270,   272,   276,   278,   281,   285,
   286,   292,   293,   300,   303,   305,   309,   311,   315,   318,
   320,   322,   325,   327,   328,   332,   335,   339,   341,   342,
   347,   350,   354,   356,   358,   361,   365,   368,   372,   376,
   381,   384,   388,   392,   397,   399,   401,   403,   405,   407,
   409,   412,   413,   419,   423,   429,   431,   433,   439,   446,
   451,   452,   456,   457,   462,   463,   468,   469,   475,   476,
   481,   482,   488,   490,   491,   495,   496,   501,   502,   507,
   508,   513,   514,   518,   519,   523,   524,   529,   530,   535,
   538,   539,   543,   544,   549,   550,   555,   556,   561,   562,
   568,   569,   575,   578,   581,   585,   586,   591,   592,   595,
   596,   601,   603,   605,   606,   611,   612,   613,   620,   621,
   626,   631,   632,   639,   640,   644,   645,   652,   657,   658,
   666,   671,   672,   680,   686,   687,   696,   699,   703,   708,
   712,   716,   717,   723,   724,   728,   729,   734,   735,   741,
   742,   749,   750,   757,   758,   763,   764,   770,   771,   778,
   779,   787,   788,   796,   799,   800,   805,   808,   809,   814,
   818,   822,   823,   826,   828,   830,   833,   834,   839,   841,
   843,   845,   847,   849,   851,   853,   855,   857,   859,   861,
   865,   867,   869,   870,   876,   880,   884,   887,   890,   891,
   896,   898,   901,   904,   907,   910,   913,   914,   918,   922,
   926,   929,   934,   936,   941,   943,   947,   951,   955,   957,
   961,   965,   967,   971,   975,   977,   981,   985,   989,   993,
   995,   999,  1003,  1005,  1009,  1011,  1015,  1017,  1021,  1023,
  1024,  1029,  1031,  1032,  1037,  1039,  1040,  1041,  1049,  1051,
  1052,  1057,  1060,  1061,  1065,  1069,  1073,  1077,  1081,  1085,
  1089,  1093,  1097,  1101,  1103,  1104,  1109
};

static const short yyrhs[] = {   100,
   102,     0,     0,   101,   103,     0,     0,   107,     0,   108,
     0,    51,    96,     0,    96,     0,     1,    96,     0,   108,
     0,    47,    21,    96,     0,    96,     0,     1,    97,     0,
     1,    96,     0,    45,    96,     0,    44,    96,     0,    46,
   251,    96,     0,    46,    96,     0,   154,     0,   154,   105,
     0,   126,     0,   126,   105,     0,   127,     0,   127,   105,
     0,     0,   106,   105,   158,     0,    17,    98,    19,    99,
    10,    97,    21,    96,     0,    17,    98,    20,    99,    10,
    97,    21,    96,     0,    18,    21,    96,     0,   189,     0,
   194,     0,   251,    96,     0,   109,     0,   112,     0,   104,
     0,    36,    96,     0,    50,    96,     0,     0,    37,    90,
   251,    91,   110,   186,     0,     0,    40,    90,   251,    91,
   111,   188,     0,     0,     0,    41,   113,    90,   251,    91,
   114,   116,     0,     0,    43,   115,   117,    41,    90,   251,
    91,    96,     0,    42,   119,   118,     0,   103,     0,   103,
     0,   103,     0,     0,    90,   251,    96,   120,   122,     0,
     0,    90,    96,   121,   122,     0,     0,   251,    96,   123,
   125,     0,     0,    96,   124,   125,     0,   251,    91,     0,
    91,     0,    22,     0,    23,     0,    24,     0,    25,     0,
    26,     0,    27,     0,    28,     0,    29,     0,    30,     0,
   130,     0,   139,     0,    54,     0,    31,     0,    32,     0,
    83,     0,    83,   129,     0,    83,   128,     0,    83,   129,
   128,     0,   127,     0,   129,   127,     0,     0,   133,    21,
   131,    98,   134,    97,     0,     0,   133,   132,    98,   134,
    97,     0,   133,    21,     0,    34,     0,    35,     0,   135,
     0,   134,   135,     0,   106,   136,   137,    96,     0,   126,
     0,   126,   136,     0,   127,     0,   127,   136,     0,   138,
     0,   137,    99,   138,     0,   144,     0,    55,   253,     0,
   144,    55,   253,     0,     0,    33,    98,   140,   142,    97,
     0,     0,    33,    21,    98,   141,   142,    97,     0,    33,
    21,     0,   143,     0,   142,    99,   143,     0,    21,     0,
    21,    67,   253,     0,   128,   145,     0,   145,     0,    21,
     0,    21,   202,     0,   247,     0,     0,    98,   147,   148,
     0,   149,    97,     0,   149,    99,    97,     0,   146,     0,
     0,   149,    99,   150,   146,     0,   106,   136,     0,   106,
   136,   152,     0,   128,     0,   153,     0,   128,   153,     0,
    90,   152,    91,     0,    92,    93,     0,   153,    92,    93,
     0,    92,   253,    93,     0,   153,    92,   253,    93,     0,
    90,    91,     0,   153,    90,    91,     0,    90,   155,    91,
     0,   153,    90,   155,    91,     0,    53,     0,    16,     0,
    52,     0,    14,     0,    13,     0,    15,     0,   106,   105,
     0,     0,   106,   105,    99,   156,   155,     0,   106,   105,
   157,     0,   106,   105,   157,    99,   155,     0,   202,     0,
   128,     0,    90,   128,    91,    90,    91,     0,    90,   128,
    91,    90,   155,    91,     0,    90,   128,    91,   202,     0,
     0,    21,   159,   182,     0,     0,    21,   202,   160,   182,
     0,     0,   128,    21,   161,   182,     0,     0,   128,    21,
   202,   162,   182,     0,     0,    21,    90,   163,   165,     0,
     0,   128,    21,    90,   164,   165,     0,    96,     0,     0,
    91,   166,   182,     0,     0,   155,    91,   167,   182,     0,
     0,   197,    91,   168,   182,     0,     0,   197,    91,   169,
   194,     0,     0,    91,   170,   194,     0,     0,    91,   172,
   182,     0,     0,   155,    91,   173,   182,     0,     0,   197,
    91,   174,   182,     0,     1,    98,     0,     0,    21,   176,
   182,     0,     0,    21,   202,   177,   182,     0,     0,    21,
    90,   178,   171,     0,     0,   128,    21,   179,   182,     0,
     0,   128,    21,   202,   180,   182,     0,     0,   128,    21,
    90,   181,   171,     0,    96,   184,     0,   185,    96,     0,
    99,   184,   175,     0,     0,   185,   183,    99,   175,     0,
     0,    67,   146,     0,     0,   103,   187,    38,   103,     0,
   103,     0,   103,     0,     0,    21,    55,   190,   103,     0,
     0,     0,    48,   191,   253,   192,    55,   103,     0,     0,
    49,    55,   193,   103,     0,    98,   196,   101,    97,     0,
     0,    98,   196,   203,   195,   101,    97,     0,     0,   106,
   105,    21,     0,     0,   106,   105,    21,    99,   198,   197,
     0,   106,   105,    21,   202,     0,     0,   106,   105,    21,
   202,    99,   199,   197,     0,   106,   105,   128,    21,     0,
     0,   106,   105,   128,    21,    99,   200,   197,     0,   106,
   105,   128,    21,   202,     0,     0,   106,   105,   128,    21,
   202,    99,   201,   197,     0,    92,    93,     0,    92,     3,
    93,     0,   202,    92,     3,    93,     0,   106,   105,   205,
     0,   106,   105,    96,     0,     0,   106,   105,    96,   204,
   203,     0,     0,    21,   206,   216,     0,     0,    21,   202,
   207,   216,     0,     0,    21,    90,    91,   208,   216,     0,
     0,    21,    90,   155,    91,   209,   216,     0,     0,    21,
    90,   197,    91,   210,   216,     0,     0,   128,    21,   211,
   216,     0,     0,   128,    21,   202,   212,   216,     0,     0,
   128,    21,    90,    91,   213,   216,     0,     0,   128,    21,
    90,   155,    91,   214,   216,     0,     0,   128,    21,    90,
   197,    91,   215,   216,     0,    96,   219,     0,     0,    96,
   219,   217,   203,     0,   220,    96,     0,     0,   220,    96,
   218,   203,     0,    99,   219,   205,     0,   220,    99,   205,
     0,     0,    67,   146,     0,   222,     0,    91,     0,   247,
    91,     0,     0,   247,    99,   223,   222,     0,   225,     0,
     3,     0,     4,     0,     5,     0,     6,     0,     7,     0,
     8,     0,     9,     0,    10,     0,    11,     0,    12,     0,
    90,   251,    91,     0,    21,     0,   224,     0,     0,   226,
   227,    92,   251,    93,     0,   226,    94,    21,     0,   226,
    95,    21,     0,   226,    88,     0,   226,    89,     0,     0,
   226,    90,   228,   221,     0,   226,     0,    72,   229,     0,
    83,   229,     0,    86,   229,     0,    87,   229,     0,    81,
   229,     0,     0,    82,   230,   229,     0,    88,   229,   249,
     0,    89,   229,   249,     0,    39,   229,     0,    39,    90,
   151,    91,     0,   229,     0,    90,   151,    91,   231,     0,
   231,     0,   232,    83,   231,     0,   232,    84,   231,     0,
   232,    85,   231,     0,   232,     0,   233,    81,   232,     0,
   233,    82,   232,     0,   233,     0,   234,    79,   233,     0,
   234,    80,   233,     0,   234,     0,   235,    75,   234,     0,
   235,    77,   234,     0,   235,    76,   234,     0,   235,    78,
   234,     0,   235,     0,   236,    73,   235,     0,   236,    74,
   235,     0,   236,     0,   237,    72,   236,     0,   237,     0,
   238,    71,   237,     0,   238,     0,   239,    70,   238,     0,
   239,     0,     0,   240,    69,   241,   239,     0,   240,     0,
     0,   242,    68,   243,   240,     0,   242,     0,     0,     0,
   242,    56,   245,   251,    55,   246,   244,     0,   244,     0,
     0,   229,   248,    67,   247,     0,   229,   250,     0,     0,
    57,   249,   247,     0,    58,   249,   247,     0,    59,   249,
   247,     0,    60,   249,   247,     0,    61,   249,   247,     0,
    62,   249,   247,     0,    63,   249,   247,     0,    64,   249,
   247,     0,    65,   249,   247,     0,    66,   249,   247,     0,
   247,     0,     0,   251,    99,   252,   247,     0,   244,     0
};

#endif

#if YYDEBUG != 0
static const short yyrline[] = { 0,
   154,   187,   193,   194,   200,   201,   206,   212,   213,   225,
   226,   234,   235,   239,   258,   264,   270,   290,   311,   312,
   313,   314,   315,   316,   319,   350,   354,   372,   374,   387,
   389,   395,   437,   438,   439,   440,   450,   473,   488,   488,
   503,   526,   536,   548,   548,   559,   580,   597,   614,   621,
   624,   670,   670,   680,   682,   697,   697,   704,   706,   753,
   772,   783,   794,   805,   816,   826,   842,   858,   874,   890,
   891,   892,   921,   931,   944,   966,   967,   968,   972,   973,
   977,   987,  1002,  1008,  1018,  1038,  1056,  1076,  1080,  1087,
  1095,  1096,  1097,  1098,  1102,  1103,  1107,  1108,  1109,  1113,
  1132,  1137,  1161,  1171,  1195,  1196,  1200,  1224,  1229,  1239,
  1248,  1267,  1308,  1309,  1318,  1321,  1361,  1368,  1389,  1399,
  1414,  1415,  1419,  1420,  1421,  1425,  1426,  1427,  1428,  1429,
  1430,  1431,  1432,  1433,  1437,  1462,  1477,  1488,  1497,  1506,
  1520,  1532,  1545,  1545,  1547,  1551,  1573,  1583,  1595,  1609,
  1638,  1652,  1652,  1689,  1689,  1716,  1716,  1757,  1757,  1823,
  1823,  1891,  1891,  1907,  1926,  1926,  1947,  1947,  1971,  1971,
  1992,  2011,  2038,  2060,  2073,  2073,  2087,  2087,  2105,  2105,
  2115,  2130,  2130,  2168,  2168,  2232,  2232,  2258,  2258,  2298,
  2298,  2360,  2363,  2367,  2371,  2372,  2400,  2403,  2446,  2550,
  2556,  2562,  2569,  2577,  2587,  2587,  2606,  2626,  2628,  2633,
  2642,  2646,  2652,  2656,  2667,  2686,  2706,  2706,  2733,  2763,
  2763,  2782,  2802,  2802,  2829,  2858,  2863,  2868,  2874,  2885,
  2886,  2897,  2909,  2912,  2933,  2933,  2980,  2980,  2984,  2984,
  2988,  2988,  2992,  2992,  3024,  3024,  3072,  3072,  3093,  3093,
  3114,  3114,  3134,  3138,  3142,  3147,  3147,  3151,  3156,  3156,
  3157,  3160,  3204,  3337,  3338,  3346,  3435,  3521,  3532,  3554,
  3575,  3597,  3619,  3641,  3659,  3677,  3695,  3719,  3769,  3787,
  3790,  3797,  3798,  3838,  3870,  3925,  3968,  4001,  4037,  4066,
  4103,  4141,  4192,  4209,  4231,  4254,  4260,  4266,  4273,  4291,
  4309,  4333,  4355,  4356,  4482,  4483,  4499,  4515,  4541,  4542,
  4568,  4596,  4597,  4624,  4651,  4652,  4671,  4690,  4709,  4730,
  4731,  4750,  4775,  4776,  4803,  4804,  4831,  4832,  4859,  4860,
  4882,  4910,  4911,  4933,  4962,  4963,  4975,  4984,  4996,  4997,
  5020,  5030,  5036,  5052,  5069,  5086,  5114,  5142,  5170,  5198,
  5226,  5255,  5284,  5316,  5317,  5362,  5365
};
#endif


#if YYDEBUG != 0 || defined (YYERROR_VERBOSE)

static const char * const yytname[] = {   "$","error","$undefined.","NUMBERI",
"NUMBERUI","NUMBERLI","NUMBERLUI","NUMBERD","NUMBERLD","NUMBERF","STRINGC","WSTRINGC",
"NUMBERC","AUTO","STATIC","REGISTER","EXTERN","REMOTE","UNLOAD","INTRINSIC",
"RPC","IDENT","INT","DOUBLE","FLOAT","CHAR","VOID","LONG","SHORT","SIGNED","UNSIGNED",
"CONST","VOLATILE","ENUM","STRUCT","UNION","EXIT","IF","ELSE","SIZEOF","SWITCH",
"WHILE","FOR","DO","CONTINUE","BREAK","RETURN","GOTO","CASE","DEFAULT","CSUSPEND",
"RESUME","EXPORT_T","TYPEDEF","TYPENAME","':'","'?'","MUL_ASSIGN","DIV_ASSIGN",
"MOD_ASSIGN","ADD_ASSIGN","SUB_ASSIGN","LEFT_ASSIGN","RIGHT_ASSIGN","AND_ASSIGN",
"XOR_ASSIGN","OR_ASSIGN","'='","OR_A","AND_A","'|'","'^'","'&'","EQ_A","NE_A",
"'<'","LQ","'>'","GQ","SHIL","SHIR","'+'","'-'","'*'","'/'","'%'","NEG_T","NEG_B",
"PP","MM","'('","')'","'['","']'","'.'","PTR","';'","'}'","'{'","','","list_stat_0",
"list_stat","stat_0","stat_1","jump_statement","declaration_specifiers","M",
"declarations","statement","selection_statement","@1","@2","iteration_statement",
"@3","@4","@5","while_stat","do_while_stat","for_stat","for","@6","@7","for_expr1",
"@8","@9","for_expr2","type_specifier","type_qualifier","pointer","type_qualifier_list",
"struct_or_union_specifier","@10","@11","struct_or_union","struct_declaration_list",
"struct_declaration","specifier_qualifier_list","struct_declarator_list","struct_declarator",
"enum_specifier","@12","@13","enumerator_list","enumerator","declarator","direct_declarator",
"initializer","@14","initializer_list_complete","initializer_list","@15","type_name",
"abstract_declarator","direct_abstract_declarator","storage_class_specifier",
"list_type_spec","@16","list_dim_or_pointer","first_dekl","@17","@18","@19",
"@20","@21","@22","func_first","@23","@24","@25","@26","@27","func_rest","@28",
"@29","@30","list_dekl","@31","@32","@33","@34","@35","@36","initializer_optional",
"@37","R","initialization","then","@38","switch_body","labeled_statement","@39",
"@40","@41","@42","compound_statement","@43","N","list_form_param","@44","@45",
"@46","@47","list_dim","list_loc_dekl","@48","list_loc_dekl_1","@49","@50","@51",
"@52","@53","@54","@55","@56","@57","@58","initializer_optional_loc","@59","@60",
"P","local_initialization","call","list_param","@61","primary_expression","ident",
"postfix_expression","@62","@63","unary_expression","@64","cast_expression",
"multiplicative_expression","additive_expression","shift_expression","relational_expression",
"equality_expression","bit_AND_expression","exclusive_OR_expression","inclusive_OR_expression",
"logical_AND_expression","@65","logical_OR_expression","@66","conditional_expression",
"@67","@68","assignment_expression","@69","ae_empty","assignment_operator","expression",
"@70","constant_expression", NULL
};
#endif

static const short yyr1[] = {     0,
   100,   100,   101,   101,   102,   102,   102,   102,   102,   103,
   103,   103,   103,   103,   104,   104,   104,   104,   105,   105,
   105,   105,   105,   105,   106,   107,   107,   107,   107,   108,
   108,   108,   108,   108,   108,   108,   108,   110,   109,   111,
   109,   113,   114,   112,   115,   112,   112,   116,   117,   118,
   120,   119,   121,   119,   123,   122,   124,   122,   125,   125,
   126,   126,   126,   126,   126,   126,   126,   126,   126,   126,
   126,   126,   127,   127,   128,   128,   128,   128,   129,   129,
   131,   130,   132,   130,   130,   133,   133,   134,   134,   135,
   136,   136,   136,   136,   137,   137,   138,   138,   138,   140,
   139,   141,   139,   139,   142,   142,   143,   143,   144,   144,
   145,   145,   146,   147,   146,   148,   148,   149,   150,   149,
   151,   151,   152,   152,   152,   153,   153,   153,   153,   153,
   153,   153,   153,   153,   154,   154,   154,   154,   154,   154,
   155,   156,   155,   155,   155,   157,   157,   157,   157,   157,
   159,   158,   160,   158,   161,   158,   162,   158,   163,   158,
   164,   158,   158,   166,   165,   167,   165,   168,   165,   169,
   165,   170,   165,   172,   171,   173,   171,   174,   171,   171,
   176,   175,   177,   175,   178,   175,   179,   175,   180,   175,
   181,   175,   182,   182,   182,   183,   182,   184,   185,   187,
   186,   186,   188,   190,   189,   191,   192,   189,   193,   189,
   194,   195,   194,   196,   197,   198,   197,   197,   199,   197,
   197,   200,   197,   197,   201,   197,   202,   202,   202,   203,
   203,   204,   203,   206,   205,   207,   205,   208,   205,   209,
   205,   210,   205,   211,   205,   212,   205,   213,   205,   214,
   205,   215,   205,   216,   217,   216,   216,   218,   216,   216,
   216,   219,   220,   221,   221,   222,   223,   222,   224,   224,
   224,   224,   224,   224,   224,   224,   224,   224,   224,   224,
   225,   226,   227,   226,   226,   226,   226,   226,   228,   226,
   229,   229,   229,   229,   229,   229,   230,   229,   229,   229,
   229,   229,   231,   231,   232,   232,   232,   232,   233,   233,
   233,   234,   234,   234,   235,   235,   235,   235,   235,   236,
   236,   236,   237,   237,   238,   238,   239,   239,   240,   241,
   240,   242,   243,   242,   244,   245,   246,   244,   247,   248,
   247,   247,   249,   250,   250,   250,   250,   250,   250,   250,
   250,   250,   250,   251,   252,   251,   253
};

static const short yyr2[] = {     0,
     2,     0,     2,     0,     1,     1,     2,     1,     2,     1,
     3,     1,     2,     2,     2,     2,     3,     2,     1,     2,
     1,     2,     1,     2,     0,     3,     8,     8,     3,     1,
     1,     2,     1,     1,     1,     2,     2,     0,     6,     0,
     6,     0,     0,     7,     0,     8,     3,     1,     1,     1,
     0,     5,     0,     4,     0,     4,     0,     3,     2,     1,
     1,     1,     1,     1,     1,     1,     1,     1,     1,     1,
     1,     1,     1,     1,     1,     2,     2,     3,     1,     2,
     0,     6,     0,     5,     2,     1,     1,     1,     2,     4,
     1,     2,     1,     2,     1,     3,     1,     2,     3,     0,
     5,     0,     6,     2,     1,     3,     1,     3,     2,     1,
     1,     2,     1,     0,     3,     2,     3,     1,     0,     4,
     2,     3,     1,     1,     2,     3,     2,     3,     3,     4,
     2,     3,     3,     4,     1,     1,     1,     1,     1,     1,
     2,     0,     5,     3,     5,     1,     1,     5,     6,     4,
     0,     3,     0,     4,     0,     4,     0,     5,     0,     4,
     0,     5,     1,     0,     3,     0,     4,     0,     4,     0,
     4,     0,     3,     0,     3,     0,     4,     0,     4,     2,
     0,     3,     0,     4,     0,     4,     0,     4,     0,     5,
     0,     5,     2,     2,     3,     0,     4,     0,     2,     0,
     4,     1,     1,     0,     4,     0,     0,     6,     0,     4,
     4,     0,     6,     0,     3,     0,     6,     4,     0,     7,
     4,     0,     7,     5,     0,     8,     2,     3,     4,     3,
     3,     0,     5,     0,     3,     0,     4,     0,     5,     0,
     6,     0,     6,     0,     4,     0,     5,     0,     6,     0,
     7,     0,     7,     2,     0,     4,     2,     0,     4,     3,
     3,     0,     2,     1,     1,     2,     0,     4,     1,     1,
     1,     1,     1,     1,     1,     1,     1,     1,     1,     3,
     1,     1,     0,     5,     3,     3,     2,     2,     0,     4,
     1,     2,     2,     2,     2,     2,     0,     3,     3,     3,
     2,     4,     1,     4,     1,     3,     3,     3,     1,     3,
     3,     1,     3,     3,     1,     3,     3,     3,     3,     1,
     3,     3,     1,     3,     1,     3,     1,     3,     1,     0,
     4,     1,     0,     4,     1,     0,     0,     7,     1,     0,
     4,     2,     0,     3,     3,     3,     3,     3,     3,     3,
     3,     3,     3,     1,     0,     4,     1
};

static const short yydefact[] = {     2,
     0,     0,   270,   271,   272,   273,   274,   275,   276,   277,
   278,   279,     0,     0,   281,     0,     0,     0,     0,    42,
     0,    45,     0,     0,     0,   206,     0,     0,     0,     0,
     0,   297,     0,     0,     0,     0,     0,    25,     8,   214,
     1,    35,     0,     5,     6,    33,    34,    30,    31,   282,
   269,   291,   303,   305,   309,   312,   315,   320,   323,   325,
   327,   329,   332,   335,   339,   354,     0,     9,     0,     0,
   204,    36,     0,   281,    25,   301,     0,     0,     0,     0,
     0,    16,    15,    18,     0,     0,   209,    37,     7,     0,
   292,   296,     0,   293,   294,   295,   343,   343,     0,     0,
     0,     4,   139,   138,   140,   136,    61,    62,    63,    64,
    65,    66,    67,    68,    69,    73,    74,     0,    86,    87,
   137,   135,    72,     0,    21,    23,    70,    83,    71,    19,
   287,   288,   289,     0,     0,     0,   343,   343,   343,   343,
   343,   343,   343,   343,   343,   343,     0,   342,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,   330,   336,   333,    32,   355,     0,
     0,    29,     0,     0,     0,     0,     0,    53,     0,     0,
     0,    12,    50,    10,    47,    49,     0,    17,   303,   357,
   207,     0,   298,   299,   300,    91,    93,   121,     0,   280,
     0,     0,   212,   104,   100,   151,    75,   163,     0,    26,
    22,    24,    85,     0,    20,     0,   285,   286,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
   306,   307,   308,   310,   311,   313,   314,   316,   318,   317,
   319,   321,   322,   324,   326,   328,     0,     0,     0,     0,
     0,     0,   205,    38,   302,    40,     0,     0,    51,    14,
    13,     0,     0,     0,   210,    92,    94,    25,     0,   123,
   122,   124,   304,   211,     3,     0,     4,   102,     0,   159,
     0,     0,   153,    79,    77,    76,   155,     0,    25,   265,
   290,   264,     0,     0,   344,   345,   346,   347,   348,   349,
   350,   351,   352,   353,   341,   331,     0,   334,   356,     0,
     0,     0,     0,    43,    57,    54,     0,     0,    11,     0,
     0,   131,     0,     0,     0,   127,     0,   125,    25,     0,
   234,   231,     0,   230,     0,     0,   107,     0,   105,    25,
     0,   227,     0,   198,   198,   152,   196,     0,     0,    80,
    78,   161,     0,   157,    25,     0,    25,    88,   266,   267,
   284,   337,     0,     0,   202,    39,   203,    41,     0,     0,
    55,    52,     0,   208,   141,   126,   133,   129,   132,     0,
   128,     0,    25,   236,     0,    25,   244,   213,     0,     0,
   101,     0,   164,     0,     0,   160,     0,   228,   114,   199,
   113,   193,     0,   194,     0,     0,   154,    25,   156,     0,
    25,     0,    84,    89,     0,     0,     0,     0,     0,    48,
    44,    60,    58,     0,     0,     0,     0,   142,   147,   144,
   146,   134,   130,   238,     0,     0,     0,     0,   262,   262,
   235,     0,   233,    25,   246,     0,   103,   108,   106,     0,
     0,   141,   166,   168,     0,   181,     0,   195,     0,   229,
   162,   158,    82,   111,     0,     0,     0,    95,    97,   110,
   268,   338,    27,    28,     0,    59,    56,    46,     0,    25,
    25,     0,   240,   242,   237,   263,   254,     0,   257,     0,
   248,     0,     0,     0,   245,   165,   173,   215,   147,     0,
     0,     0,   118,   115,     0,   185,     0,   183,   187,   197,
   112,    98,   109,    90,     0,     0,   201,     0,   143,   145,
   239,     0,     0,    25,   260,    25,   261,     0,   250,   252,
   247,   216,   218,   221,   167,   169,   171,   116,   119,     0,
   182,     0,   191,     0,   189,    96,    99,    25,   150,   241,
   243,   256,   259,   249,     0,     0,    25,   219,   222,   224,
   117,     0,     0,   174,     0,   186,     0,   184,     0,   188,
     0,   148,     0,   251,   253,     0,   217,    25,    25,   225,
   120,   180,     0,   176,   178,   192,   190,   149,     0,   220,
   223,    25,   175,     0,     0,     0,   226,   177,   179,     0,
     0
};

static const short yydefgoto[] = {     1,
   201,    41,   275,    42,   124,   394,    44,   184,    46,   312,
   313,    47,    78,   369,    81,   421,   187,   185,    80,   318,
   258,   316,   425,   370,   423,   125,   126,   333,   286,   127,
   288,   214,   128,   357,   358,   198,   467,   468,   129,   279,
   336,   338,   339,   469,   470,   400,   455,   504,   505,   562,
   100,   271,   272,   130,   395,   480,   430,   210,   282,   349,
   353,   410,   340,   408,   396,   450,   500,   501,   502,   451,
   566,   583,   594,   595,   458,   507,   542,   540,   544,   571,
   569,   346,   405,   402,   347,   366,   419,   368,    48,   173,
    86,   264,   192,    49,   277,   102,   397,   557,   578,   579,
   592,   431,   203,   386,   334,   385,   437,   482,   522,   523,
   446,   494,   528,   555,   556,   441,   524,   526,   487,   442,
   291,   292,   415,    50,    51,    52,   136,   216,    53,    93,
    54,    55,    56,    57,    58,    59,    60,    61,    62,    63,
   247,    64,   249,    65,   248,   416,    66,   147,   194,   148,
    67,   250,   191
};

static const short yypact[] = {-32768,
   589,   -74,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,   -54,    43,    13,   -14,    -4,   498,    62,-32768,
    71,-32768,    69,    87,   933,-32768,   153,   122,   127,  1236,
  1236,-32768,  1236,  1236,  1236,  1236,  1236,  1288,-32768,-32768,
-32768,-32768,  1366,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,   121,   500,-32768,   118,   157,   164,   150,   180,   142,
   189,   235,   239,    60,-32768,-32768,   123,-32768,   246,   216,
-32768,-32768,  1288,-32768,  1288,-32768,  1288,   231,   978,   881,
   881,-32768,-32768,-32768,   141,  1288,-32768,-32768,-32768,  1288,
-32768,-32768,  1236,-32768,-32768,-32768,-32768,-32768,   715,   233,
   -29,  1399,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,-32768,     9,-32768,-32768,
-32768,-32768,-32768,    12,  1366,  1366,-32768,   301,-32768,  1366,
-32768,-32768,-32768,   305,   306,   237,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,   263,-32768,  1288,  1288,
  1288,  1288,  1288,  1288,  1288,  1288,  1288,  1288,  1288,  1288,
  1288,  1288,  1288,  1288,-32768,-32768,-32768,-32768,-32768,   232,
   234,-32768,   881,    27,   245,    32,  1288,-32768,   152,   214,
   319,-32768,-32768,-32768,-32768,-32768,   300,-32768,-32768,-32768,
-32768,   881,-32768,-32768,-32768,   715,   715,    37,  1288,-32768,
   685,  1366,-32768,   244,-32768,   139,    10,-32768,   324,-32768,
-32768,-32768,   249,   250,-32768,  1179,-32768,-32768,  1288,  1288,
  1288,  1288,  1288,  1288,  1288,  1288,  1288,  1288,  1288,  1288,
-32768,-32768,-32768,   118,   118,   157,   157,   164,   164,   164,
   164,   150,   150,   180,   142,   189,  1288,  1288,  1288,  1288,
   339,   340,-32768,-32768,-32768,-32768,    68,  1030,-32768,-32768,
-32768,   255,   262,   298,-32768,-32768,-32768,    86,  1086,   182,
-32768,   186,-32768,-32768,-32768,    17,-32768,-32768,   334,-32768,
     5,    55,   265,-32768,-32768,    10,   187,   260,-32768,-32768,
-32768,-32768,    90,    81,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,   235,     6,   239,-32768,   264,
   266,   881,   881,-32768,-32768,-32768,   163,  1030,-32768,  1288,
   881,-32768,  1366,   269,   271,-32768,   272,   186,   273,  1142,
   190,  1432,   345,-32768,   783,   334,   302,    20,-32768,   276,
   277,-32768,   452,-32768,-32768,-32768,   275,   369,    55,-32768,
-32768,-32768,    55,   265,-32768,   715,   278,-32768,-32768,-32768,
-32768,-32768,   353,   355,   342,-32768,-32768,-32768,   881,  1199,
-32768,-32768,    96,-32768,    80,-32768,-32768,-32768,-32768,   286,
-32768,   285,   291,   265,    95,-32768,   194,-32768,   196,  1288,
-32768,   334,   288,  1366,   292,-32768,   296,-32768,-32768,-32768,
-32768,-32768,    11,-32768,   289,   297,-32768,   276,-32768,    55,
   294,     8,-32768,-32768,  1288,  1288,   293,   304,   356,-32768,
-32768,-32768,-32768,   105,  1199,   307,   310,-32768,-32768,   303,
   265,-32768,-32768,-32768,   314,   315,    95,   452,-32768,-32768,
-32768,   165,-32768,   316,   265,    95,-32768,-32768,-32768,    55,
   311,     0,-32768,   313,   452,   204,   375,-32768,    11,-32768,
-32768,-32768,-32768,   309,  1288,   377,   174,-32768,   357,-32768,
-32768,-32768,-32768,-32768,   881,-32768,-32768,-32768,   322,-32768,
-32768,    95,-32768,-32768,-32768,-32768,  1465,    14,  1498,    14,
-32768,   323,   325,    95,-32768,-32768,-32768,   -52,   394,    55,
    55,   311,-32768,-32768,   200,-32768,    55,   265,   210,-32768,
   265,-32768,-32768,-32768,     8,  1288,-32768,   211,-32768,-32768,
-32768,    95,    95,-32768,-32768,-32768,-32768,    95,-32768,-32768,
-32768,-32768,    72,   100,-32768,-32768,-32768,-32768,   320,  1108,
-32768,    55,-32768,    55,   265,-32768,-32768,   327,   265,-32768,
-32768,-32768,-32768,-32768,    95,    95,-32768,-32768,-32768,   106,
-32768,   452,   321,-32768,   330,-32768,   331,-32768,  1108,-32768,
    55,-32768,   333,-32768,-32768,  1366,-32768,-32768,-32768,-32768,
-32768,-32768,    55,-32768,-32768,-32768,-32768,-32768,    28,-32768,
-32768,-32768,-32768,    55,    55,   394,-32768,-32768,-32768,   425,
-32768
};

static const short yypgoto[] = {-32768,
   149,-32768,   -71,-32768,  -123,    -1,-32768,   426,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,   110,-32768,-32768,     4,   -87,   -93,  -120,-32768,-32768,
-32768,-32768,-32768,    75,  -330,  -172,-32768,   -82,-32768,-32768,
-32768,    98,    54,-32768,   -19,  -412,-32768,-32768,-32768,-32768,
   374,   183,   184,-32768,  -223,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,    42,-32768,-32768,-32768,-32768,-32768,
  -117,-32768,-32768,-32768,     7,-32768,-32768,-32768,-32768,-32768,
-32768,  -163,-32768,   120,-32768,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,  -417,-32768,-32768,  -372,-32768,-32768,-32768,
-32768,  -175,  -371,-32768,  -184,-32768,-32768,-32768,-32768,-32768,
-32768,-32768,-32768,-32768,-32768,  -398,-32768,-32768,    30,-32768,
-32768,    52,-32768,-32768,-32768,-32768,-32768,-32768,   -17,-32768,
   -84,   138,   160,    77,   159,   312,   308,   317,   221,   223,
-32768,-32768,-32768,   -81,-32768,-32768,  -170,-32768,   299,-32768,
    -2,-32768,  -241
};


#define	YYLAST		1552


static const short yytable[] = {    43,
    76,   211,   212,   209,   190,   197,   215,   341,   183,   186,
   436,   196,    91,    92,   443,    94,    95,    96,    97,    98,
   498,    68,    85,   266,   267,   486,   414,   327,   464,   204,
   283,   456,   206,   497,   331,   101,    99,   331,   485,   281,
   116,   117,   503,    69,   325,   293,   532,   495,   498,   295,
   296,   297,   298,   299,   300,   301,   302,   303,   304,   305,
   362,   200,   465,    70,   231,   232,   233,    71,   189,   169,
   174,   493,   101,    99,   176,   193,   179,   270,   276,   309,
   414,    72,   207,   521,   537,    73,   285,   101,   382,   427,
   207,   281,   207,   207,   207,   531,   207,   342,   428,   207,
   202,   253,   197,   197,   169,   380,   205,   208,   196,   196,
   207,   354,   332,   284,   273,   166,   391,   254,   392,   207,
   265,   343,   256,   550,   551,   169,   268,   167,   269,   554,
   169,   189,   189,   189,   189,   189,   189,   189,   189,   189,
   189,   189,   189,   189,   189,   189,   189,   270,   448,   581,
   344,    77,   552,   345,   553,   384,   574,   575,   314,   435,
    79,   438,   207,   348,    82,   351,   169,   567,   207,   427,
   558,   281,   401,   361,   257,   268,   322,   269,   428,   169,
   359,   189,    83,   412,   577,   407,   426,   190,   360,   409,
   439,   281,   350,   440,   169,   476,   567,   348,   559,   375,
   149,   150,   151,   169,   580,   590,   591,    87,   131,   132,
   133,   445,  -283,   162,   134,   135,   294,    88,   168,   597,
   492,   169,    89,   512,   156,   157,   158,   159,   280,   189,
   281,   189,   238,   239,   240,   241,   188,   152,   153,   169,
   365,   367,   154,   155,   293,   307,   462,   259,   190,   374,
   169,   189,   160,   161,   429,   317,   519,   520,   371,   163,
   489,   169,   197,   490,   170,   171,   323,   401,   196,   514,
   452,   268,   515,   269,   547,   329,   352,   330,   281,   383,
   508,   281,   457,   444,   401,   281,   496,   356,   511,   234,
   235,   466,   447,   506,   392,   281,   538,   420,   539,   543,
   548,   281,   281,   525,   164,   527,   479,   165,   190,   260,
   261,   172,   189,   236,   237,   317,   565,   373,   242,   243,
   177,   213,   533,   199,   573,   217,   218,   323,   219,   230,
   251,   499,   252,   545,   472,   255,   535,   536,   457,   262,
   263,   278,   549,   541,   287,   565,   -81,   289,   310,   311,
   319,   320,   321,   356,   337,   356,   348,   355,   560,   376,
   363,   377,   364,   379,   378,   387,   393,   424,   390,   398,
   404,   406,   189,   417,   413,   418,   432,   433,   568,  -200,
   570,   434,   453,   190,   202,  -172,   454,   459,   473,   460,
   463,   401,   207,   475,   466,   509,   195,   464,   189,   474,
   281,   481,   478,   517,   483,   484,   491,   587,    40,   356,
  -170,   516,   518,   529,   534,   530,   561,   572,   582,   593,
   584,   585,   424,   588,   601,   335,    45,   372,   477,   411,
   598,   599,   546,   389,   190,   220,   221,   222,   223,   224,
   225,   226,   227,   228,   229,   449,   513,   189,   175,   461,
   324,   586,   589,   328,     3,     4,     5,     6,     7,     8,
     9,    10,    11,    12,   403,   510,   471,   306,   596,   488,
   245,   308,    74,   244,     0,     0,     0,     0,   323,   323,
   246,     0,     0,     0,     0,     0,     0,     0,     0,     0,
    18,     0,     0,     0,     0,     0,     0,     0,   189,     0,
     3,     4,     5,     6,     7,     8,     9,    10,    11,    12,
     0,     0,     0,     0,     0,     0,     0,     0,    74,     0,
     0,     0,   202,    30,   202,     0,     0,     0,     0,     0,
     0,     0,    31,    32,    33,     0,    18,    34,    35,    36,
    37,    38,     0,     0,     0,     0,   323,     0,     0,   399,
     0,     0,     0,     0,     0,   576,   137,   138,   139,   140,
   141,   142,   143,   144,   145,   146,  -340,     0,     0,    30,
     0,     0,     0,     0,     0,     0,   576,   576,    31,    32,
    33,     0,     0,    34,    35,    36,    37,    75,   600,     2,
   576,     3,     4,     5,     6,     7,     8,     9,    10,    11,
    12,   -25,   -25,   -25,   -25,    13,    14,     0,     0,    15,
   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,
   -25,   -25,   -25,   -25,    16,    17,     0,    18,    19,    20,
    21,    22,    23,    24,    25,     0,    26,    27,    28,    29,
   -25,   -25,   -25,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
    30,     0,     0,     0,     0,     0,     0,     0,     0,    31,
    32,    33,     0,     0,    34,    35,    36,    37,    38,     0,
     0,     0,     0,     0,    39,   180,    40,     3,     4,     5,
     6,     7,     8,     9,    10,    11,    12,     0,     0,     0,
     0,     0,     0,     0,     0,    15,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
    16,    17,     0,    18,    19,    20,    21,    22,    23,    24,
    25,   181,    26,    27,    28,     0,   107,   108,   109,   110,
   111,   112,   113,   114,   115,   116,   117,   118,   119,   120,
     0,     0,     0,     0,     0,     0,    30,     0,     0,     0,
     0,     0,     0,     0,     0,    31,    32,    33,   123,     0,
    34,    35,    36,    37,    38,     0,     0,     0,     0,     0,
   182,   274,    40,   180,     0,     3,     4,     5,     6,     7,
     8,     9,    10,    11,    12,     0,     0,     0,     0,     0,
     0,     0,     0,    15,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,    16,    17,
     0,    18,    19,    20,    21,    22,    23,    24,    25,   181,
    26,    27,    28,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,    30,     0,     0,     0,     0,     0,
     0,     0,     0,    31,    32,    33,     0,     0,    34,    35,
    36,    37,    38,     0,     0,     0,     0,     0,   182,   388,
    40,   180,     0,     3,     4,     5,     6,     7,     8,     9,
    10,    11,    12,     0,     0,     0,     0,     0,     0,     0,
     0,    15,     0,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,    16,    17,     0,    18,
    19,    20,    21,    22,    23,    24,    25,   181,    26,    27,
    28,     0,     0,     0,     0,     3,     4,     5,     6,     7,
     8,     9,    10,    11,    12,     0,     0,     0,     0,     0,
     0,     0,    30,    74,     0,     0,     0,     0,     0,     0,
     0,    31,    32,    33,     0,     0,    34,    35,    36,    37,
    38,    18,     0,     0,     0,     0,   182,     0,    40,     0,
     3,     4,     5,     6,     7,     8,     9,    10,    11,    12,
     0,     0,     0,     0,     0,     0,     0,     0,    74,     0,
     0,     0,     0,     0,    30,     0,     0,     0,     0,     0,
     0,     0,     0,    31,    32,    33,    18,     0,    34,    35,
    36,    37,    38,     0,     0,     0,     0,     0,    84,     0,
     0,     0,     3,     4,     5,     6,     7,     8,     9,    10,
    11,    12,     0,     0,     0,     0,     0,     0,     0,    30,
    74,     0,     0,     0,     0,     0,     0,     0,    31,    32,
    33,     0,     0,    34,    35,    36,    37,    38,    18,     0,
     0,     0,     0,   178,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     3,     4,
     5,     6,     7,     8,     9,    10,    11,    12,     0,     0,
     0,    30,     0,     0,     0,     0,    74,     0,   563,     0,
    31,    32,    33,     0,     0,    34,    35,    36,    37,    38,
   -25,   -25,   -25,   -25,    18,   315,     0,     0,     0,   -25,
   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,
   -25,   -25,   -25,     0,     3,     4,     5,     6,     7,     8,
     9,    10,    11,    12,     0,     0,     0,    30,     0,   -25,
   -25,   -25,    74,     0,     0,     0,    31,    32,    33,     0,
     0,    34,    35,    36,    37,    38,     0,     0,   326,     0,
    18,     3,     4,     5,     6,     7,     8,     9,    10,    11,
    12,     0,     0,     0,     0,     0,     0,     0,   564,    74,
     0,     3,     4,     5,     6,     7,     8,     9,    10,    11,
    12,     0,     0,    30,     0,     0,     0,    18,     0,    74,
     0,     0,    31,    32,    33,     0,     0,    34,    35,    36,
    37,    38,     0,     0,   381,     0,     0,    18,     3,     4,
     5,     6,     7,     8,     9,    10,    11,    12,     0,     0,
    30,     0,     0,     0,     0,     0,    74,     0,     0,    31,
    32,    33,     0,     0,    34,    35,    36,    37,    38,   290,
    30,     0,     0,     0,    18,     0,     0,     0,     0,    31,
    32,    33,     0,     0,    34,    35,    36,    37,    38,   422,
     3,     4,     5,     6,     7,     8,     9,    10,    11,    12,
     0,     0,     0,     0,     0,     0,     0,    30,    74,     0,
     0,     0,     0,     0,     0,     0,    31,    32,    33,     0,
     0,    34,    35,    36,    37,    90,    18,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,    30,
     0,     0,     0,     0,     0,     0,     0,     0,    31,    32,
    33,     0,     0,    34,    35,    36,    37,    38,   103,   104,
   105,   106,     0,     0,     0,     0,     0,   107,   108,   109,
   110,   111,   112,   113,   114,   115,   116,   117,   118,   119,
   120,     0,     0,     0,     0,     0,     0,     0,     0,     0,
     0,   -25,   -25,   -25,   -25,     0,     0,   121,   122,   123,
   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,   -25,
   -25,   -25,   -25,   -25,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,  -232,  -232,  -232,  -232,     0,     0,
   -25,   -25,   -25,  -232,  -232,  -232,  -232,  -232,  -232,  -232,
  -232,  -232,  -232,  -232,  -232,  -232,  -232,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,  -255,  -255,  -255,
  -255,     0,     0,  -232,  -232,  -232,  -255,  -255,  -255,  -255,
  -255,  -255,  -255,  -255,  -255,  -255,  -255,  -255,  -255,  -255,
     0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  -258,  -258,  -258,  -258,     0,     0,  -255,  -255,  -255,  -258,
  -258,  -258,  -258,  -258,  -258,  -258,  -258,  -258,  -258,  -258,
  -258,  -258,  -258,     0,     0,     0,     0,     0,     0,     0,
     0,     0,     0,     0,     0,     0,     0,     0,     0,  -258,
  -258,  -258
};

static const short yycheck[] = {     1,
    18,   125,   126,   124,    86,    99,   130,     3,    80,    81,
   383,    99,    30,    31,   386,    33,    34,    35,    36,    37,
    21,    96,    25,   196,   197,   438,   357,   269,    21,    21,
   206,    21,    21,   451,    21,    38,    38,    21,   437,    92,
    31,    32,   455,    98,   268,   216,    99,   446,    21,   220,
   221,   222,   223,   224,   225,   226,   227,   228,   229,   230,
    55,    91,    55,    21,   149,   150,   151,    55,    86,    99,
    73,   444,    75,    75,    77,    93,    79,   198,   202,   250,
   411,    96,    83,   482,   502,    90,   207,    90,   330,    90,
    83,    92,    83,    83,    83,   494,    83,    93,    99,    83,
   102,   173,   196,   197,    99,   329,    98,    96,   196,   197,
    83,   287,    96,   207,   199,    56,    97,    91,    99,    83,
   192,    67,    91,   522,   523,    99,    90,    68,    92,   528,
    99,   149,   150,   151,   152,   153,   154,   155,   156,   157,
   158,   159,   160,   161,   162,   163,   164,   268,   390,   562,
    96,    90,   524,    99,   526,   331,   555,   556,    91,   383,
    90,    67,    83,    92,    96,   286,    99,   540,    83,    90,
    99,    92,   343,    93,   177,    90,    91,    92,    99,    99,
    91,   199,    96,   356,   557,   349,    91,   269,    99,   353,
    96,    92,   286,    99,    99,    91,   569,    92,    99,   323,
    83,    84,    85,    99,    99,   578,   579,    55,    88,    89,
    90,   387,    92,    72,    94,    95,   219,    96,    96,   592,
   444,    99,    96,   465,    75,    76,    77,    78,    90,   247,
    92,   249,   156,   157,   158,   159,    96,    81,    82,    99,
   312,   313,    79,    80,   415,   248,   410,    96,   330,   321,
    99,   269,    73,    74,   375,   258,   480,   481,    96,    71,
    96,    99,   356,    99,    19,    20,   268,   438,   356,    96,
   394,    90,    99,    92,   516,    90,    90,    92,    92,    90,
   456,    92,   403,    90,   455,    92,   450,   289,   464,   152,
   153,   412,    97,    90,    99,    92,    97,   369,    99,    90,
    90,    92,    92,   488,    70,   490,   427,    69,   390,    96,
    97,    96,   330,   154,   155,   318,   540,   320,   160,   161,
    90,    21,   498,    91,   548,    21,    21,   329,    92,    67,
    99,   452,    99,   509,   416,    91,   500,   501,   459,    21,
    41,    98,   518,   507,    21,   569,    98,    98,    10,    10,
    96,    90,    55,   355,    21,   357,    92,    98,   534,    91,
    97,    91,    97,    91,    93,    21,    91,   370,    67,    93,
    96,     3,   390,    21,    97,    21,    91,    93,   542,    38,
   544,    91,    91,   465,   386,    98,    91,    99,    96,    93,
    97,   562,    83,    38,   515,    21,    98,    21,   416,    96,
    92,    99,    96,   475,    91,    91,    91,   571,    98,   411,
    98,    55,    91,    91,    21,    91,    97,    91,    98,   583,
    91,    91,   425,    91,     0,   277,     1,   318,   425,   355,
   594,   595,   515,   336,   516,   137,   138,   139,   140,   141,
   142,   143,   144,   145,   146,   392,   466,   465,    75,   408,
   268,   569,   576,   270,     3,     4,     5,     6,     7,     8,
     9,    10,    11,    12,   345,   459,   415,   247,   589,   440,
   163,   249,    21,   162,    -1,    -1,    -1,    -1,   480,   481,
   164,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    39,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   516,    -1,
     3,     4,     5,     6,     7,     8,     9,    10,    11,    12,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    21,    -1,
    -1,    -1,   524,    72,   526,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    81,    82,    83,    -1,    39,    86,    87,    88,
    89,    90,    -1,    -1,    -1,    -1,   548,    -1,    -1,    98,
    -1,    -1,    -1,    -1,    -1,   557,    57,    58,    59,    60,
    61,    62,    63,    64,    65,    66,    67,    -1,    -1,    72,
    -1,    -1,    -1,    -1,    -1,    -1,   578,   579,    81,    82,
    83,    -1,    -1,    86,    87,    88,    89,    90,     0,     1,
   592,     3,     4,     5,     6,     7,     8,     9,    10,    11,
    12,    13,    14,    15,    16,    17,    18,    -1,    -1,    21,
    22,    23,    24,    25,    26,    27,    28,    29,    30,    31,
    32,    33,    34,    35,    36,    37,    -1,    39,    40,    41,
    42,    43,    44,    45,    46,    -1,    48,    49,    50,    51,
    52,    53,    54,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    72,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    81,
    82,    83,    -1,    -1,    86,    87,    88,    89,    90,    -1,
    -1,    -1,    -1,    -1,    96,     1,    98,     3,     4,     5,
     6,     7,     8,     9,    10,    11,    12,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    21,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    36,    37,    -1,    39,    40,    41,    42,    43,    44,    45,
    46,    47,    48,    49,    50,    -1,    22,    23,    24,    25,
    26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
    -1,    -1,    -1,    -1,    -1,    -1,    72,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    81,    82,    83,    54,    -1,
    86,    87,    88,    89,    90,    -1,    -1,    -1,    -1,    -1,
    96,    97,    98,     1,    -1,     3,     4,     5,     6,     7,
     8,     9,    10,    11,    12,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    21,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    36,    37,
    -1,    39,    40,    41,    42,    43,    44,    45,    46,    47,
    48,    49,    50,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    72,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    81,    82,    83,    -1,    -1,    86,    87,
    88,    89,    90,    -1,    -1,    -1,    -1,    -1,    96,    97,
    98,     1,    -1,     3,     4,     5,     6,     7,     8,     9,
    10,    11,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    21,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    36,    37,    -1,    39,
    40,    41,    42,    43,    44,    45,    46,    47,    48,    49,
    50,    -1,    -1,    -1,    -1,     3,     4,     5,     6,     7,
     8,     9,    10,    11,    12,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    72,    21,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    81,    82,    83,    -1,    -1,    86,    87,    88,    89,
    90,    39,    -1,    -1,    -1,    -1,    96,    -1,    98,    -1,
     3,     4,     5,     6,     7,     8,     9,    10,    11,    12,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    21,    -1,
    -1,    -1,    -1,    -1,    72,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    81,    82,    83,    39,    -1,    86,    87,
    88,    89,    90,    -1,    -1,    -1,    -1,    -1,    96,    -1,
    -1,    -1,     3,     4,     5,     6,     7,     8,     9,    10,
    11,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    72,
    21,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    81,    82,
    83,    -1,    -1,    86,    87,    88,    89,    90,    39,    -1,
    -1,    -1,    -1,    96,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,
     5,     6,     7,     8,     9,    10,    11,    12,    -1,    -1,
    -1,    72,    -1,    -1,    -1,    -1,    21,    -1,     1,    -1,
    81,    82,    83,    -1,    -1,    86,    87,    88,    89,    90,
    13,    14,    15,    16,    39,    96,    -1,    -1,    -1,    22,
    23,    24,    25,    26,    27,    28,    29,    30,    31,    32,
    33,    34,    35,    -1,     3,     4,     5,     6,     7,     8,
     9,    10,    11,    12,    -1,    -1,    -1,    72,    -1,    52,
    53,    54,    21,    -1,    -1,    -1,    81,    82,    83,    -1,
    -1,    86,    87,    88,    89,    90,    -1,    -1,    93,    -1,
    39,     3,     4,     5,     6,     7,     8,     9,    10,    11,
    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    91,    21,
    -1,     3,     4,     5,     6,     7,     8,     9,    10,    11,
    12,    -1,    -1,    72,    -1,    -1,    -1,    39,    -1,    21,
    -1,    -1,    81,    82,    83,    -1,    -1,    86,    87,    88,
    89,    90,    -1,    -1,    93,    -1,    -1,    39,     3,     4,
     5,     6,     7,     8,     9,    10,    11,    12,    -1,    -1,
    72,    -1,    -1,    -1,    -1,    -1,    21,    -1,    -1,    81,
    82,    83,    -1,    -1,    86,    87,    88,    89,    90,    91,
    72,    -1,    -1,    -1,    39,    -1,    -1,    -1,    -1,    81,
    82,    83,    -1,    -1,    86,    87,    88,    89,    90,    91,
     3,     4,     5,     6,     7,     8,     9,    10,    11,    12,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    72,    21,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    81,    82,    83,    -1,
    -1,    86,    87,    88,    89,    90,    39,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    72,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    81,    82,
    83,    -1,    -1,    86,    87,    88,    89,    90,    13,    14,
    15,    16,    -1,    -1,    -1,    -1,    -1,    22,    23,    24,
    25,    26,    27,    28,    29,    30,    31,    32,    33,    34,
    35,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    13,    14,    15,    16,    -1,    -1,    52,    53,    54,
    22,    23,    24,    25,    26,    27,    28,    29,    30,    31,
    32,    33,    34,    35,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    13,    14,    15,    16,    -1,    -1,
    52,    53,    54,    22,    23,    24,    25,    26,    27,    28,
    29,    30,    31,    32,    33,    34,    35,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    13,    14,    15,
    16,    -1,    -1,    52,    53,    54,    22,    23,    24,    25,
    26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    13,    14,    15,    16,    -1,    -1,    52,    53,    54,    22,
    23,    24,    25,    26,    27,    28,    29,    30,    31,    32,
    33,    34,    35,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    52,
    53,    54
};
/* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
#line 3 "/usr/share/misc/bison.simple"
/* This file comes from bison-1.28.  */

/* Skeleton output parser for bison,
   Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2, or (at your option)
   any later version.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.  */

/* As a special exception, when this file is copied by Bison into a
   Bison output file, you may use that output file without restriction.
   This special exception was added by the Free Software Foundation
   in version 1.24 of Bison.  */

/* This is the parser code that is written into each bison parser
  when the %semantic_parser declaration is not specified in the grammar.
  It was written by Richard Stallman by simplifying the hairy parser
  used when %semantic_parser is specified.  */

#ifndef YYSTACK_USE_ALLOCA
#ifdef alloca
#define YYSTACK_USE_ALLOCA
#else /* alloca not defined */
#ifdef __GNUC__
#define YYSTACK_USE_ALLOCA
#define alloca __builtin_alloca
#else /* not GNU C.  */
#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi) || (defined (__sun) && defined (__i386))
#define YYSTACK_USE_ALLOCA
#include <alloca.h>
#else /* not sparc */
/* We think this test detects Watcom and Microsoft C.  */
/* This used to test MSDOS, but that is a bad idea
   since that symbol is in the user namespace.  */
#if (defined (_MSDOS) || defined (_MSDOS_)) && !defined (__TURBOC__)
#if 0 /* No need for malloc.h, which pollutes the namespace;
	 instead, just don't use alloca.  */
#include <malloc.h>
#endif
#else /* not MSDOS, or __TURBOC__ */
#if defined(_AIX)
/* I don't know what this was needed for, but it pollutes the namespace.
   So I turned it off.   rms, 2 May 1997.  */
/* #include <malloc.h>  */
 #pragma alloca
#define YYSTACK_USE_ALLOCA
#else /* not MSDOS, or __TURBOC__, or _AIX */
#if 0
#ifdef __hpux /* haible@ilog.fr says this works for HPUX 9.05 and up,
		 and on HPUX 10.  Eventually we can turn this on.  */
#define YYSTACK_USE_ALLOCA
#define alloca __builtin_alloca
#endif /* __hpux */
#endif
#endif /* not _AIX */
#endif /* not MSDOS, or __TURBOC__ */
#endif /* not sparc */
#endif /* not GNU C */
#endif /* alloca not defined */
#endif /* YYSTACK_USE_ALLOCA not defined */

#ifdef YYSTACK_USE_ALLOCA
#define YYSTACK_ALLOC alloca
#else
#define YYSTACK_ALLOC malloc
#endif

/* Note: there must be only one dollar sign in this file.
   It is replaced by the list of actions, each action
   as one case of the switch.  */

#define yyerrok		(yyerrstatus = 0)
#define yyclearin	(yychar = YYEMPTY)
#define YYEMPTY		-2
#define YYEOF		0
#define YYACCEPT	goto yyacceptlab
#define YYABORT 	goto yyabortlab
#define YYERROR		goto yyerrlab1
/* Like YYERROR except do call yyerror.
   This remains here temporarily to ease the
   transition to the new meaning of YYERROR, for GCC.
   Once GCC version 2 has supplanted version 1, this can go.  */
#define YYFAIL		goto yyerrlab
#define YYRECOVERING()  (!!yyerrstatus)
#define YYBACKUP(token, value) \
do								\
  if (yychar == YYEMPTY && yylen == 1)				\
    { yychar = (token), yylval = (value);			\
      yychar1 = YYTRANSLATE (yychar);				\
      YYPOPSTACK;						\
      goto yybackup;						\
    }								\
  else								\
    { yyerror ("syntax error: cannot back up"); YYERROR; }	\
while (0)

#define YYTERROR	1
#define YYERRCODE	256

#ifndef YYPURE
#define YYLEX		yylex()
#endif

#ifdef YYPURE
#ifdef YYLSP_NEEDED
#ifdef YYLEX_PARAM
#define YYLEX		yylex(&yylval, &yylloc, YYLEX_PARAM)
#else
#define YYLEX		yylex(&yylval, &yylloc)
#endif
#else /* not YYLSP_NEEDED */
#ifdef YYLEX_PARAM
#define YYLEX		yylex(&yylval, YYLEX_PARAM)
#else
#define YYLEX		yylex(&yylval)
#endif
#endif /* not YYLSP_NEEDED */
#endif

/* If nonreentrant, generate the variables here */

#ifndef YYPURE

int	yychar;			/*  the lookahead symbol		*/
YYSTYPE	yylval;			/*  the semantic value of the		*/
				/*  lookahead symbol			*/

#ifdef YYLSP_NEEDED
YYLTYPE yylloc;			/*  location data for the lookahead	*/
				/*  symbol				*/
#endif

int yynerrs;			/*  number of parse errors so far       */
#endif  /* not YYPURE */

#if YYDEBUG != 0
int yydebug;			/*  nonzero means print parse trace	*/
/* Since this is uninitialized, it does not stop multiple parsers
   from coexisting.  */
#endif

/*  YYINITDEPTH indicates the initial size of the parser's stacks	*/

#ifndef	YYINITDEPTH
#define YYINITDEPTH 200
#endif

/*  YYMAXDEPTH is the maximum size the stacks can grow to
    (effective only if the built-in stack extension method is used).  */

#if YYMAXDEPTH == 0
#undef YYMAXDEPTH
#endif

#ifndef YYMAXDEPTH
#define YYMAXDEPTH 10000
#endif

/* Define __yy_memcpy.  Note that the size argument
   should be passed with type unsigned int, because that is what the non-GCC
   definitions require.  With GCC, __builtin_memcpy takes an arg
   of type size_t, but it can handle unsigned int.  */

#if __GNUC__ > 1		/* GNU C and GNU C++ define this.  */
#define __yy_memcpy(TO,FROM,COUNT)	__builtin_memcpy(TO,FROM,COUNT)
#else				/* not GNU C or C++ */
#ifndef __cplusplus

/* This is the most reliable way to avoid incompatibilities
   in available built-in functions on various systems.  */
static void
__yy_memcpy (to, from, count)
     char *to;
     char *from;
     unsigned int count;
{
  register char *f = from;
  register char *t = to;
  register int i = count;

  while (i-- > 0)
    *t++ = *f++;
}

#else /* __cplusplus */

/* This is the most reliable way to avoid incompatibilities
   in available built-in functions on various systems.  */
static void
__yy_memcpy (char *to, char *from, unsigned int count)
{
  register char *t = to;
  register char *f = from;
  register int i = count;

  while (i-- > 0)
    *t++ = *f++;
}

#endif
#endif

#line 217 "/usr/share/misc/bison.simple"

/* The user can define YYPARSE_PARAM as the name of an argument to be passed
   into yyparse.  The argument should have type void *.
   It should actually point to an object.
   Grammar actions can access the variable by casting it
   to the proper pointer type.  */

#ifdef YYPARSE_PARAM
#ifdef __cplusplus
#define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
#define YYPARSE_PARAM_DECL
#else /* not __cplusplus */
#define YYPARSE_PARAM_ARG YYPARSE_PARAM
#define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
#endif /* not __cplusplus */
#else /* not YYPARSE_PARAM */
#define YYPARSE_PARAM_ARG
#define YYPARSE_PARAM_DECL
#endif /* not YYPARSE_PARAM */

/* Prevent warning if -Wstrict-prototypes.  */
#ifdef __GNUC__
#ifdef YYPARSE_PARAM
int yyparse (void *);
#else
int yyparse (void);
#endif
#endif

int
yyparse(YYPARSE_PARAM_ARG)
     YYPARSE_PARAM_DECL
{
  register int yystate;
  register int yyn;
  register short *yyssp;
  register YYSTYPE *yyvsp;
  int yyerrstatus;	/*  number of tokens to shift before error messages enabled */
  int yychar1 = 0;		/*  lookahead token as an internal (translated) token number */

  short	yyssa[YYINITDEPTH];	/*  the state stack			*/
  YYSTYPE yyvsa[YYINITDEPTH];	/*  the semantic value stack		*/

  short *yyss = yyssa;		/*  refer to the stacks thru separate pointers */
  YYSTYPE *yyvs = yyvsa;	/*  to allow yyoverflow to reallocate them elsewhere */

#ifdef YYLSP_NEEDED
  YYLTYPE yylsa[YYINITDEPTH];	/*  the location stack			*/
  YYLTYPE *yyls = yylsa;
  YYLTYPE *yylsp;

#define YYPOPSTACK   (yyvsp--, yyssp--, yylsp--)
#else
#define YYPOPSTACK   (yyvsp--, yyssp--)
#endif

  int yystacksize = YYINITDEPTH;
  int yyfree_stacks = 0;

#ifdef YYPURE
  int yychar;
  YYSTYPE yylval;
  int yynerrs;
#ifdef YYLSP_NEEDED
  YYLTYPE yylloc;
#endif
#endif

  YYSTYPE yyval;		/*  the variable used to return		*/
				/*  semantic values from the action	*/
				/*  routines				*/

  int yylen;

#if YYDEBUG != 0
  if (yydebug)
    fprintf(stderr, "Starting parse\n");
#endif

  yystate = 0;
  yyerrstatus = 0;
  yynerrs = 0;
  yychar = YYEMPTY;		/* Cause a token to be read.  */

  /* Initialize stack pointers.
     Waste one element of value and location stack
     so that they stay on the same level as the state stack.
     The wasted elements are never initialized.  */

  yyssp = yyss - 1;
  yyvsp = yyvs;
#ifdef YYLSP_NEEDED
  yylsp = yyls;
#endif

/* Push a new state, which is found in  yystate  .  */
/* In all cases, when you get here, the value and location stacks
   have just been pushed. so pushing a state here evens the stacks.  */
yynewstate:

  *++yyssp = yystate;

  if (yyssp >= yyss + yystacksize - 1)
    {
      /* Give user a chance to reallocate the stack */
      /* Use copies of these so that the &'s don't force the real ones into memory. */
      YYSTYPE *yyvs1 = yyvs;
      short *yyss1 = yyss;
#ifdef YYLSP_NEEDED
      YYLTYPE *yyls1 = yyls;
#endif

      /* Get the current used size of the three stacks, in elements.  */
      int size = yyssp - yyss + 1;

#ifdef yyoverflow
      /* Each stack pointer address is followed by the size of
	 the data in use in that stack, in bytes.  */
#ifdef YYLSP_NEEDED
      /* This used to be a conditional around just the two extra args,
	 but that might be undefined if yyoverflow is a macro.  */
      yyoverflow("parser stack overflow",
		 &yyss1, size * sizeof (*yyssp),
		 &yyvs1, size * sizeof (*yyvsp),
		 &yyls1, size * sizeof (*yylsp),
		 &yystacksize);
#else
      yyoverflow("parser stack overflow",
		 &yyss1, size * sizeof (*yyssp),
		 &yyvs1, size * sizeof (*yyvsp),
		 &yystacksize);
#endif

      yyss = yyss1; yyvs = yyvs1;
#ifdef YYLSP_NEEDED
      yyls = yyls1;
#endif
#else /* no yyoverflow */
      /* Extend the stack our own way.  */
      if (yystacksize >= YYMAXDEPTH)
	{
	  yyerror("parser stack overflow");
	  if (yyfree_stacks)
	    {
	      free (yyss);
	      free (yyvs);
#ifdef YYLSP_NEEDED
	      free (yyls);
#endif
	    }
	  return 2;
	}
      yystacksize *= 2;
      if (yystacksize > YYMAXDEPTH)
	yystacksize = YYMAXDEPTH;
#ifndef YYSTACK_USE_ALLOCA
      yyfree_stacks = 1;
#endif
      yyss = (short *) YYSTACK_ALLOC (yystacksize * sizeof (*yyssp));
      __yy_memcpy ((char *)yyss, (char *)yyss1,
		   size * (unsigned int) sizeof (*yyssp));
      yyvs = (YYSTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yyvsp));
      __yy_memcpy ((char *)yyvs, (char *)yyvs1,
		   size * (unsigned int) sizeof (*yyvsp));
#ifdef YYLSP_NEEDED
      yyls = (YYLTYPE *) YYSTACK_ALLOC (yystacksize * sizeof (*yylsp));
      __yy_memcpy ((char *)yyls, (char *)yyls1,
		   size * (unsigned int) sizeof (*yylsp));
#endif
#endif /* no yyoverflow */

      yyssp = yyss + size - 1;
      yyvsp = yyvs + size - 1;
#ifdef YYLSP_NEEDED
      yylsp = yyls + size - 1;
#endif

#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Stack size increased to %d\n", yystacksize);
#endif

      if (yyssp >= yyss + yystacksize - 1)
	YYABORT;
    }

#if YYDEBUG != 0
  if (yydebug)
    fprintf(stderr, "Entering state %d\n", yystate);
#endif

  goto yybackup;
 yybackup:

/* Do appropriate processing given the current state.  */
/* Read a lookahead token if we need one and don't already have one.  */
/* yyresume: */

  /* First try to decide what to do without reference to lookahead token.  */

  yyn = yypact[yystate];
  if (yyn == YYFLAG)
    goto yydefault;

  /* Not known => get a lookahead token if don't already have one.  */

  /* yychar is either YYEMPTY or YYEOF
     or a valid token in external form.  */

  if (yychar == YYEMPTY)
    {
#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Reading a token: ");
#endif
      yychar = YYLEX;
    }

  /* Convert token to internal form (in yychar1) for indexing tables with */

  if (yychar <= 0)		/* This means end of input. */
    {
      yychar1 = 0;
      yychar = YYEOF;		/* Don't call YYLEX any more */

#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Now at end of input.\n");
#endif
    }
  else
    {
      yychar1 = YYTRANSLATE(yychar);

#if YYDEBUG != 0
      if (yydebug)
	{
	  fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
	  /* Give the individual parser a way to print the precise meaning
	     of a token, for further debugging info.  */
#ifdef YYPRINT
	  YYPRINT (stderr, yychar, yylval);
#endif
	  fprintf (stderr, ")\n");
	}
#endif
    }

  yyn += yychar1;
  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
    goto yydefault;

  yyn = yytable[yyn];

  /* yyn is what to do for this token type in this state.
     Negative => reduce, -yyn is rule number.
     Positive => shift, yyn is new state.
       New state is final state => don't bother to shift,
       just return success.
     0, or most negative number => error.  */

  if (yyn < 0)
    {
      if (yyn == YYFLAG)
	goto yyerrlab;
      yyn = -yyn;
      goto yyreduce;
    }
  else if (yyn == 0)
    goto yyerrlab;

  if (yyn == YYFINAL)
    YYACCEPT;

  /* Shift the lookahead token.  */

#if YYDEBUG != 0
  if (yydebug)
    fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
#endif

  /* Discard the token being shifted unless it is eof.  */
  if (yychar != YYEOF)
    yychar = YYEMPTY;

  *++yyvsp = yylval;
#ifdef YYLSP_NEEDED
  *++yylsp = yylloc;
#endif

  /* count tokens shifted since error; after three, turn off error status.  */
  if (yyerrstatus) yyerrstatus--;

  yystate = yyn;
  goto yynewstate;

/* Do the default action for the current state.  */
yydefault:

  yyn = yydefact[yystate];
  if (yyn == 0)
    goto yyerrlab;

/* Do a reduction.  yyn is the number of a rule to reduce with.  */
yyreduce:
  yylen = yyr2[yyn];
  if (yylen > 0)
    yyval = yyvsp[1-yylen]; /* implement default value of the action */

#if YYDEBUG != 0
  if (yydebug)
    {
      int i;

      fprintf (stderr, "Reducing via rule %d (line %d), ",
	       yyn, yyrline[yyn]);

      /* Print the symbols being reduced, and their result.  */
      for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
	fprintf (stderr, "%s ", yytname[yyrhs[i]]);
      fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
    }
#endif


  switch (yyn) {

case 1:
#line 159 "ys.y"
{
		  GEN_STOP; GENCODE;
		  if (handle_main && ! no_compile_only)
		    fix_and_clear_goto_table ();
		  if (no_compile_only
		      && (! handle_main || initialize_only))
		    {
		      /* Code for initialization is executed even if
			 the `main' function option was specified. */
		      fix_and_clear_goto_table ();
#ifndef NOT_MSWIN_AND_YES_DOS
		      VIRTUAL_MACHINE_SUSPENDED_RESET;
#endif
		      if (0 == exec ())
			return 0;
#ifndef NOT_MSWIN_AND_YES_DOS
		      VIRTUAL_MACHINE_SUSPENDED_SET;
#endif
		    }
		  else if (! s)
		    return 0;
		  initialize_only ? initialize_only-- :
		    initialize_only;
		  RESET_CODE_GENERATION_BEGINNING;
#if 0
		  deallocate (BLOCK);
#endif
		;
    break;}
case 6:
#line 202 "ys.y"
{
		  if (handle_main)
		    error_message (7003);
		;
    break;}
case 7:
#line 207 "ys.y"
{
		  if (handle_main)
		    error_message (7003);
		  GEN_IRET; GENCODE;
		;
    break;}
case 9:
#line 214 "ys.y"
{
		  yyerrok;
		  /* I changed ";" to text. I don't know, if parse
		     error is always reported correctly. */
		  error_message (1004, text);
		;
    break;}
case 11:
#line 227 "ys.y"
{
		  if (no_compile_only) 
		    {
		      has_goto (yyvsp[-1].mystring);
		      GEN_JMP; GENCODE;
		    }
		;
    break;}
case 13:
#line 236 "ys.y"
{
		  yyerrok; error_message (1004, "}");
		;
    break;}
case 14:
#line 240 "ys.y"
{
		  yyerrok; error_message (1004, ";");
		;
    break;}
case 15:
#line 259 "ys.y"
{
		  brfix ();
		  GEN_JMP; GENCODE;
		;
    break;}
case 16:
#line 265 "ys.y"
{
		  cofix ();
		  GEN_JMP; GENCODE;
		;
    break;}
case 17:
#line 271 "ys.y"
{
		  if (VID == type_ac[set - 1])
		    error_message (6002);
		  if ((-1 == l_value_cast ()) && (2 < set))
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  if (NULL != kodp3)
		    {
		      memmovex (kodp3 + sizeof(struct OPERAND_0_ma),
				kodp3, (unsigned int)(kodp - kodp3));
		      GEN_CLRTr; GENCODE;
		      kodp3 = NULL;
		    }
		  retfix ();
		  GEN_JMP; GENCODE;
		  is_address = 0;
		;
    break;}
case 18:
#line 291 "ys.y"
{
		  if (VID != type_ac[set])
		    error_message (6001);
		  retfix ();
		  GEN_JMP; GENCODE;
		;
    break;}
case 25:
#line 320 "ys.y"
{
		  typeh[++type_spec_count] = (struct internal_type *) 
		    allocate (sizeof(struct internal_type), 
			      scope_level > PERM ? BLOCK : PERM);
		  init_zero ((char *)typeh[type_spec_count],
			     sizeof(struct internal_type));
		  typeh[type_spec_count]->attribute.function_class =
		    SIMPLE;
		  typeh[type_spec_count]->attribute.type_qualifier =
		    UNDEF_TQ;
		  typeh[type_spec_count]->attribute.arit_class =
		    UNUSED_AC;
		  typeh[type_spec_count]->attribute.storage_class_specifier =
		    UNSPEC_SC;
		  body_flag = 1;
		;
    break;}
case 27:
#line 355 "ys.y"
{
		  typeh[++type_spec_count] = (struct internal_type *) 
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)typeh[type_spec_count],
			     sizeof(struct internal_type));
/*		 typeh[type_spec_count]->attribute.arit_class = LIB;*/
		  typeh[type_spec_count]->attribute.function_class =
		    LIB;
		  body_flag = 1;
		  if (-1 == has (yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (!load_new () &&
		      !load (&remote_ptr_C))
		    has_remote (remote_ptr_C);
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 28:
#line 373 "ys.y"
{;
    break;}
case 29:
#line 375 "ys.y"
{
		  body_flag = 0; unload ();
		;
    break;}
case 31:
#line 390 "ys.y"
{
		  GEN_ADDss(scope_offset_get ()); GENCODE;
		  exit_scope ();
		;
    break;}
case 32:
#line 399 "ys.y"
{
		  if (! LOCAL_P(type_com[set]) &&
		      ! REMOTE_P(type_com[set]) &&
		      ! MOV_P && ! POPA_P)
		    error_message (6027);

		  switch (type_ac[set])
		    {
		      /* No breaks here. */
		    case INTEGER:
		    case SIGNED_AC | INTEGER:
		    case UNSIGNED_AC | INTEGER:
		    case LONG_AC | INTEGER:
		    case LONG_AC | SIGNED_AC | INTEGER:
		    case LONG_AC | UNSIGNED_AC | INTEGER:
		    case SHORT_AC | INTEGER:
		    case SHORT_AC | SIGNED_AC | INTEGER:
		    case SHORT_AC | UNSIGNED_AC | INTEGER:
		    case DOUB:
		    case LONG_AC | DOUB:
		    case FLT:
		    case CHR:
		    case SIGNED_AC | CHR:
		    case UNSIGNED_AC | CHR:
		      GEN_POPAe; GENCODE;
		      break;
		    case VID:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); return (0);
		    }
		  GEN_CLRT;GENCODE;kodp3 = NULL;
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		;
    break;}
case 36:
#line 441 "ys.y"
{
		  GEN_HALT; GENCODE;
		;
    break;}
case 37:
#line 451 "ys.y"
{
		  GEN_INTER; GENCODE;
		;
    break;}
case 38:
#line 474 "ys.y"
{
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = NULL; GEN_CLRT; GENCODE; fixp++;
#ifdef DEBUG
		  printfx ("fixp=%u\n",fixp);
#endif
		  fixp->if1.major = IF;
		  fixp->if1.jz = kodp;
		  GEN_JZ;GENCODE;
		  is_address = 0;
		;
    break;}
case 40:
#line 489 "ys.y"
{
		  if (INTEGER != type_ac[set])
		    error_message (1013);
		  kodp3 = NULL; fixp++;
#ifdef DEBUG
		  printfx ("fixp=%u\n",fixp);
#endif
		  fixp->switch1.major = SWITCH;
		  fixp->switch1.jz = NULL;
		  fixp->switch1.def_use.def_flag = 0;
		  fixp->switch1.jmp = kodp; GEN_JMP; GENCODE;
		  is_address = 0;
		;
    break;}
case 41:
#line 503 "ys.y"
{
		  search_duplicate_labels ();
		  if (fixp->switch1.def_use.def_flag)
			    /* Note: We have to backpatch the address
			       for default label here because we don't
			       know where the default label
			       appeared. (In general case, it can be
			       anywhere in the switch statement.) */
		    ((struct OPERAND_1_ma *)(fixp->switch1.jz))->adr = 
		      fixp->switch1.def_use.adr;
		  else if (NULL != fixp->switch1.jz)
		    ((struct OPERAND_1_ma *)(fixp->switch1.jz))->adr
		      = kodp;
		  fix_break_s ();
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  GEN_CLRT; GENCODE; fixp--;
		;
    break;}
case 42:
#line 527 "ys.y"
{
		  fixp++;
		  fixp->while1.major = WHILE;
		  fixp->while1.jmp = kodp;
#ifdef DEBUG
		  printfx ("JMP jump to address=%u\n",
			   fixp->while1.jmp);
#endif		
		;
    break;}
case 43:
#line 537 "ys.y"
{
		  promote_type ();
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = NULL; GEN_CLRT; GENCODE;
		  fixp->while1.jz = kodp;
		  GEN_JZ; GENCODE;
		  is_address = 0;
		;
    break;}
case 45:
#line 549 "ys.y"
{
		  fixp++;
		  fixp->while1.major = WHILE;
		  fixp->while1.jmp = kodp;
#ifdef DEBUG
		  printfx ("JMP jump to address=%u\n",
			   fixp->while1.jmp);
#endif		
		;
    break;}
case 46:
#line 560 "ys.y"
{
		  promote_type ();
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = NULL; GEN_CLRT; GENCODE;
		  fixp->while1.jz = kodp;
		  GEN_JZ; GENCODE;
		  ((struct OPERAND_1_ma *)kodp)->adr = fixp->while1.jmp; 
		  GEN_JMP; GENCODE;
		  ((struct OPERAND_1_ma *)(fixp->while1.jz))->adr 
		    = kodp; 
#ifdef DEBUG
		  printfx ("JZ jump to address=%u\n",kodp);
#endif
		  fix_break_w ();
		  fix_cont_w ();
		  fixp--;
		  is_address = 0;
		;
    break;}
case 47:
#line 581 "ys.y"
{
		  ((struct OPERAND_1_ma *)kodp)->adr = fixp->for1.jmp3;
		  GEN_JMP; GENCODE;
		  if (NULL != fixp->for1.jn)
		    ((struct OPERAND_1_ma *)(fixp->for1.jn))->adr =
		      kodp;
		  fix_break_f ();
		  fix_cont_f ();
		  fixp--;
		;
    break;}
case 48:
#line 598 "ys.y"
{
		  ((struct OPERAND_1_ma *)kodp)->adr =
		    fixp->while1.jmp;
		  GEN_JMP; GENCODE;
		  ((struct OPERAND_1_ma *)(fixp->while1.jz))->adr =
		    kodp; 
#ifdef DEBUG
		  printfx ("JZ jump to address=%u\n", kodp);
#endif
		  fix_break_w ();
		  fix_cont_w ();
		  fixp--;
		;
    break;}
case 51:
#line 625 "ys.y"
{
		  if (! LOCAL_P(type_com[set]) &&
		      ! REMOTE_P(type_com[set]) &&
		      ! MOV_P && ! POPA_P)
		    error_message (6027);

		  switch (type_ac[set])
		    {
		      /* No breaks here. */
		    case INTEGER:
		    case SIGNED_AC | INTEGER:
		    case UNSIGNED_AC | INTEGER:
		    case LONG_AC | INTEGER:
		    case LONG_AC | SIGNED_AC | INTEGER:
		    case LONG_AC | UNSIGNED_AC | INTEGER:
		    case SHORT_AC | INTEGER:
		    case SHORT_AC | SIGNED_AC | INTEGER:
		    case SHORT_AC | UNSIGNED_AC | INTEGER:
		    case DOUB:
		    case LONG_AC | DOUB:
		    case FLT:
		    case CHR:
		    case SIGNED_AC | CHR:
		    case UNSIGNED_AC | CHR:
		      GEN_POPAe; GENCODE;
		      break;
		    case VID: 
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); return (0);
		    }
		  kodp3 = NULL;
		  GEN_CLRT; GENCODE; fixp++;
#ifdef DEBUG
		  printfx ("fixp=%u\n", fixp);
#endif
		  fixp->for1.major = FOR;
		  jmp1 = kodp;
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		;
    break;}
case 53:
#line 671 "ys.y"
{
		  fixp++;
#ifdef DEBUG
		  printfx ("fixp=%u\n", fixp);
#endif
		  fixp->for1.major = FOR;
		  jmp1 = kodp;
		;
    break;}
case 55:
#line 683 "ys.y"
{
		  promote_type ();
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = NULL; GEN_CLRT; GENCODE;
		  fixp->for1.jn = kodp;
		  GEN_JZ; GENCODE;
		  fixp->for1.jmp2 = kodp;
		  GEN_JMP; GENCODE;
		  fixp->for1.jmp3 = kodp;
		  is_address = 0;
		;
    break;}
case 57:
#line 698 "ys.y"
{
		  fixp->for1.jn = NULL;
		  fixp->for1.jmp2 = NULL;
		  fixp->for1.jmp3 = kodp;
		;
    break;}
case 59:
#line 707 "ys.y"
{
		  if (! LOCAL_P(type_com[set]) &&
		      ! REMOTE_P(type_com[set]) &&
		      ! MOV_P && ! POPA_P)
		    error_message (6027);

		  switch (type_ac[set])
		    {
		      /* No breaks here. */
		    case INTEGER:
		    case SIGNED_AC | INTEGER:
		    case UNSIGNED_AC | INTEGER:
		    case LONG_AC | INTEGER:
		    case LONG_AC | SIGNED_AC | INTEGER:
		    case LONG_AC | UNSIGNED_AC | INTEGER:
		    case SHORT_AC | INTEGER:
		    case SHORT_AC | SIGNED_AC | INTEGER:
		    case SHORT_AC | UNSIGNED_AC | INTEGER:
		    case DOUB:
		    case LONG_AC | DOUB:
		    case FLT:
		    case CHR:
		    case SIGNED_AC | CHR:
		    case UNSIGNED_AC | CHR:
		      GEN_POPAe; GENCODE;
		      break;
		    case VID:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); return (0);
		    }
		  kodp3 = NULL;
		  GEN_CLRT; GENCODE; 
		  if (NULL != fixp->for1.jn)
		    {
		      ((struct OPERAND_1_ma *)kodp)->adr = jmp1;
		      GEN_JMP; GENCODE;
		      ((struct OPERAND_1_ma *)(fixp->for1.jmp2))->adr =
			kodp;
		    }
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		;
    break;}
case 60:
#line 754 "ys.y"
{
		  if (NULL != fixp->for1.jn)
		    {
		      fixp->for1.jmp3 = jmp1;
		      ((struct OPERAND_1_ma *)(fixp->for1.jmp2))->adr
			= kodp;
		    }
		  else
		    fixp->for1.jmp3 = kodp;
		;
    break;}
case 61:
#line 773 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.arit_class +=
		      INTEGER;
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      INTEGER;
		  typedef_f = 0;
		;
    break;}
case 62:
#line 784 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.arit_class +=
		      DOUB;
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      DOUB;
		  typedef_f = 0;
		;
    break;}
case 63:
#line 795 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.arit_class +=
		      FLT;
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      FLT;
		  typedef_f = 0;
		;
    break;}
case 64:
#line 806 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.arit_class +=
		      CHR;
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      CHR;
		  typedef_f = 0;
		;
    break;}
case 65:
#line 817 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.arit_class +=
		      VID;
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      VID;
		  typedef_f = 0;
		;
    break;}
case 66:
#line 827 "ys.y"
{
		  if (LONG_P(typeh[type_spec_count]))
		    error_message (6025, "long");
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      if (LONG_P(typeh[type_spec_count]->output))
			error_message (6025, "long");
		      typeh[type_spec_count]->output->attribute.arit_class +=
			LONG_AC;
		    }
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      LONG_AC;
		  typedef_f = 0;
		;
    break;}
case 67:
#line 843 "ys.y"
{
		  if (SHORT_P(typeh[type_spec_count]))
		    error_message (6025, "short");
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      if (SHORT_P(typeh[type_spec_count]->output))
			error_message (6025, "short");
		      typeh[type_spec_count]->output->attribute.arit_class +=
			SHORT_AC;
		    }
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      SHORT_AC;
		  typedef_f = 0;
		;
    break;}
case 68:
#line 859 "ys.y"
{
		  if (SIGNED_P(typeh[type_spec_count]))
		    error_message (6025, "signed");
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      if (SIGNED_P(typeh[type_spec_count]->output))
			error_message (6025, "signed");
		      typeh[type_spec_count]->output->attribute.arit_class +=
			SIGNED_AC;
		    }
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      SIGNED_AC;
		  typedef_f = 0;
		;
    break;}
case 69:
#line 875 "ys.y"
{
		  if (UNSIGNED_P(typeh[type_spec_count]))
		    error_message (6025, "unsigned");
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      if (UNSIGNED_P(typeh[type_spec_count]->output))
			error_message (6025, "unsigned");
		      typeh[type_spec_count]->output->attribute.arit_class +=
			UNSIGNED_AC;
		    }
		  else
		    typeh[type_spec_count]->attribute.arit_class +=
		      UNSIGNED_AC;
		  typedef_f = 0;
		;
    break;}
case 72:
#line 893 "ys.y"
{
		  struct ident_tab_loc *ptr;
		  int unused_p = UNUSED_P(typeh[type_spec_count]);
		  if (! unused_p)
	            {
		      error_message (1001);
		      COMPILE_ONLY;
		    }
		  ptr = point_loc (yyvsp[0].mystring);
		  if (NULL == ptr)
	            {
		      struct ident_tab *ptr1 = point (yyvsp[0].mystring);
		      if (NULL == ptr1)
			COMPILE_ONLY;
		      if (unused_p)
			typeh[type_spec_count] = ptr1->type->output;
		      else
			ptr1->type = typeh[type_spec_count];
		    }
		  else if (unused_p)
		    typeh[type_spec_count] = ptr->type->output;
		  else
		    ptr->type = typeh[type_spec_count];
		  typedef_f = 0;
		;
    break;}
case 73:
#line 922 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.type_qualifier =
		      CONST_TQ;
		  else
		    typeh[type_spec_count]->attribute.type_qualifier =
		      CONST_TQ;
		;
    break;}
case 74:
#line 932 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output->attribute.type_qualifier =
		      VOLATILE_TQ;
		  else
		    typeh[type_spec_count]->attribute.type_qualifier =
		      VOLATILE_TQ;
		;
    break;}
case 75:
#line 945 "ys.y"
{
		  struct internal_type *help;
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help,
			     sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		      typeh[type_spec_count]->output->attribute.arit_class =
			POINTER;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		      typeh[type_spec_count]->attribute.function_class =
			POINTER;
		    }
		;
    break;}
case 81:
#line 978 "ys.y"
{
		  typedef_f = 0;
		  body_flag = 0;
		  if (-1 == has_tag (0, yyvsp[0].mystring))
                    COMPILE_ONLY;
		  struct_union_enum_name[++suen_count] = text;
		  if (param_flag)
                    error_message (6009);
		;
    break;}
case 82:
#line 988 "ys.y"
{
		  proc_name_text[++proc] =
		  struct_union_enum_name[suen_count];
		  if (-1 == add_spec_to_tag ())
	            COMPILE_ONLY;
		  if (-1 == add_ident_to_tag ())
	            COMPILE_ONLY;
		  proc_name_text[proc--] = NULL;
		  body_flag = 1;
		  text = struct_union_enum_name[suen_count];
		  if (-1 == has_tag (0, text))
	            COMPILE_ONLY;
		  struct_union_enum_name[suen_count--] = NULL;
		;
    break;}
case 83:
#line 1003 "ys.y"
{
		  typedef_f = 0;
		  if (param_flag)
	            error_message (6009);
		;
    break;}
case 84:
#line 1009 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
	            typeh[type_spec_count]->output->input = l_type_spec;
		  else
		    typeh[type_spec_count]->input = l_type_spec;
		  l_type_spec = NULL;
		  if (param_flag)
                    error_message (6009);
	        ;
    break;}
case 85:
#line 1019 "ys.y"
{
		  typedef_f = 0;
		  body_flag = 0;
		  if (-1 == (body_flag = has_tag (1, yyvsp[0].mystring)))
	            COMPILE_ONLY;
		  if (TYPEDEF_P(typeh[type_spec_count]))
	            {
		      if (0 == typeh[type_spec_count]->output->attribute.memory_size)
			struct_union_enum_name[++suen_count] = yyvsp[0].mystring;
		    }
		  else
	            {
		      if (0 == typeh[type_spec_count]->attribute.memory_size)
			struct_union_enum_name[++suen_count] = yyvsp[0].mystring;
		    }
		;
    break;}
case 86:
#line 1039 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
                    {
		      typeh[type_spec_count]->output->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->output->attribute.function_class =
			STRUCT_FC;
		    }
		  else
                    {
		      typeh[type_spec_count]->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->attribute.function_class =
			STRUCT_FC;
		    }
		;
    break;}
case 87:
#line 1057 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
                    {
		      typeh[type_spec_count]->output->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->output->attribute.function_class =
			UNION_FC;
		    }
		  else
		    {
		      typeh[type_spec_count]->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->attribute.function_class =
			UNION_FC;
		    }
		;
    break;}
case 88:
#line 1077 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 89:
#line 1081 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 90:
#line 1088 "ys.y"
{
		  if (1 < suen_count)
		    struct_union_enum_name[suen_count--] = NULL;
		;
    break;}
case 100:
#line 1114 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      typeh[type_spec_count]->output->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->output->attribute.function_class =
			ENUM_FC;
		    }
		  else
		    {
		      typeh[type_spec_count]->attribute.arit_class = INTEGER;
		      typeh[type_spec_count]->attribute.function_class =
			ENUM_FC;
		    }
		  if (param_flag)
		    error_message (6009);
		  typedef_f = 0;
		;
    break;}
case 101:
#line 1133 "ys.y"
{
		  enum_value = 0;
		;
    break;}
case 102:
#line 1138 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      typeh[type_spec_count]->output->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->output->attribute.function_class =
			ENUM_FC;
		    }
		  else
		    {
		      typeh[type_spec_count]->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->attribute.function_class =
			ENUM_FC;
		    }
		  body_flag = 0;
		  if (-1 == has_tag (0, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  struct_union_enum_name[++suen_count] = text;
		  if (param_flag)
		    error_message (6009);
		  typedef_f = 0;
		;
    break;}
case 103:
#line 1162 "ys.y"
{
		  enum_value = 0;
		  body_flag = 1;
		  text = struct_union_enum_name[suen_count];
		  if (-1 == has_tag (0, text))
		    COMPILE_ONLY;
		  struct_union_enum_name[suen_count--] = NULL;
		;
    break;}
case 104:
#line 1172 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      typeh[type_spec_count]->output->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->output->attribute.function_class =
			ENUM_FC;
		    }
		  else
		    {
		      typeh[type_spec_count]->attribute.arit_class =
			INTEGER;
		      typeh[type_spec_count]->attribute.function_class =
			ENUM_FC;
		    }
		  body_flag = 0;
		  if (-1 == (body_flag = has_tag (1, yyvsp[0].mystring)))
	            COMPILE_ONLY;
		  typedef_f = 0;
	        ;
    break;}
case 107:
#line 1201 "ys.y"
{
		  typeh[++type_spec_count] = (struct internal_type *) 
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)typeh[type_spec_count],
			     sizeof(struct internal_type));
		  typeh[type_spec_count]->attribute.arit_class =
		    INTEGER;
		  typeh[type_spec_count]->attribute.function_class =
		    SIMPLE;
		  typeh[type_spec_count]->attribute.type_qualifier =
		    CONST_TQ;
		  typeh[type_spec_count]->attribute.storage_class_specifier =
		    UNSPEC_SC;
		  typeh[type_spec_count]->attribute.domain =
		    (char *) allocate (sizeof (int), PERM);
		  init_zero ((char *)typeh[type_spec_count]->attribute.domain, 
			     sizeof(struct internal_type));
		  *(int *)typeh[type_spec_count]->attribute.domain =
		    enum_value++;
		  /* The enum_value++ has to be at the end. */
		  put2table (yyvsp[0].mystring, typeh[type_spec_count]);
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 108:
#line 1225 "ys.y"
{fprintfx (stderr, "Assignment in an enumeration not supported yet\n");;
    break;}
case 109:
#line 1230 "ys.y"
{
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(typeh[type_spec_count]))
		    {
		      typeh[type_spec_count] =
			typeh[type_spec_count]->output;
		    }
		;
    break;}
case 111:
#line 1249 "ys.y"
{
		  struct internal_type *type = typeh[type_spec_count];
		  if (TYPEDEF_P(type))
		    type = type->output;
		  if ((STRUCT_P (type) || UNION_P (type)) &&
		      suen_count > 1 &&
		      (0 == type->attribute.memory_size))
		    {
		      error_message (1025);
		      COMPILE_ONLY;
		    }
		  type->field_name = yyvsp[0].mystring;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  type->field_name = NULL;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		;
    break;}
case 112:
#line 1268 "ys.y"
{
		  struct internal_type *help, *arch,
		    *type = typeh[type_spec_count];
		  if (TYPEDEF_P(type))
		    type = type->output;
		  if ((STRUCT_P (type) || UNION_P (type)) &&
		      suen_count > 1 &&
		      (0 == type->attribute.memory_size))
		    {
		      error_message (1025);
		      COMPILE_ONLY;
		    }
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help,
			     sizeof(struct internal_type));
		  help->output = type;
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  help->field_name = yyvsp[-1].mystring;
		  arch = type;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typeh[type_spec_count]->output = help;
		  else
		    typeh[type_spec_count] = help;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  help->field_name = NULL;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
		  DELETE_SUBSCRIPT;
		;
    break;}
case 114:
#line 1310 "ys.y"
{
		  if (! initialize_only && ! full_bracketing)
		    {
		      GEN_MOVaa; GENCODE;
		    }
		  full_bracketing++;
		;
    break;}
case 116:
#line 1322 "ys.y"
{
		  int bracket_initializers;
		  if (dim[poc] >= 0 && full_bracketing == poc)
		    {
		      bracket_initializers =
			initialize_only % dim[poc - 1];
		      if (bracket_initializers)
			initialize_only +=
			  (dim[poc - 1] - bracket_initializers);
		      aggregate_memory_size[full_bracketing] = 0;
		    }
		  if (ARRAY_P(type_com[set]))
		    {
		      int i = initialize_only,
			j = get_field_size (&i, type_com[set]),
			k = aggregate_memory_size[full_bracketing];
		      i = j * initialize_only;
		      while (0 != k && i >= k)
			k += aggregate_memory_size[full_bracketing];
		      
		      for (; i < k; i++)
			{
			  GEN_MOVaa; GENCODE;
			  GEN_PUSHAIi(i); GENCODE;
			  GEN_MOVar; GENCODE;
			  GEN_PUSHAIc((char)0); GENCODE;
			  GEN_MOVc; GENCODE;
			  GEN_POPAe; GENCODE;
			}
		      if (j * initialize_only < k)
			initialize_only = k / j;
		    }
		  if (full_bracketing > 1
		      && ! type_com[set]->attribute.memory_size )
		    type_com[set]->attribute.memory_size +=
		      2 * aggregate_memory_size[full_bracketing];
		  aggregate_memory_size[full_bracketing] = 0;
		  full_bracketing--;
		;
    break;}
case 117:
#line 1362 "ys.y"
{
		  full_bracketing--;
		;
    break;}
case 118:
#line 1369 "ys.y"
{
		  if (set > 1)
		    {
		      initialize_only++;
		      if (-1 == l_value_cast ())
			COMPILE_ONLY;
		      SET_ADDRESS;
		      TYPE_CLEAR;	
		      move2lvalue ();
		      GEN_POPAe; GENCODE;
		    }
		  if (ARRAY_P(type_com[set]) ||
		      STRUCT_P(type_com[set]))
		    {
		      aggregate_memory_size[full_bracketing] =
			get_memory_size (full_bracketing,
					 type_com[set],
					 initialize_only);
		    }
		;
    break;}
case 119:
#line 1390 "ys.y"
{
		  int i = initialize_only,
		    j = get_field_size (&i, type_com[set]);
		  GEN_MOVaa; GENCODE;
		  GEN_PUSHAIi(initialize_only * j);
		  GENCODE;
		  GEN_MOVar; GENCODE;
		;
    break;}
case 120:
#line 1399 "ys.y"
{
		  if (set > 1)
		    {
		      initialize_only++;
		      if (-1 == l_value_cast ())
			COMPILE_ONLY;
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      move2lvalue ();
		      GEN_POPAe; GENCODE;
		    }
		;
    break;}
case 135:
#line 1438 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (6025, "typedef");
		  else if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2017);
		  typeh[type_spec_count]->attribute.storage_class_specifier
		    = TYPEDEF_SC;
		  typeh[++type_spec_count] = (struct internal_type *) 
		    allocate (sizeof(struct internal_type), 
			      scope_level > PERM ? BLOCK : PERM);
		  init_zero ((char *)typeh[type_spec_count],
			     sizeof(struct internal_type));
		  typeh[type_spec_count]->attribute.function_class =
		    SIMPLE;
		  typeh[type_spec_count]->attribute.type_qualifier =
		    UNDEF_TQ;
		  typeh[type_spec_count]->attribute.arit_class =
		    UNUSED_AC;
		  typeh[type_spec_count]->attribute.storage_class_specifier =
		    UNSPEC_SC;
		  typeh[type_spec_count - 1]->output =
		    typeh[type_spec_count];
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 136:
#line 1463 "ys.y"
{	/*
			 * Internal types: 
			 */
		  if (EXTERN_P(typeh[type_spec_count]))
		    error_message (6025, "extern");
		  else if (! UNSPEC_P(typeh[type_spec_count]) &&
			   ! EXPORT_P(typeh[type_spec_count]))
		    error_message (2017);
		  typeh[type_spec_count]->attribute.storage_class_specifier
		    = EXTERN_SC;
		  typeh[type_spec_count]->attribute.function_class =
		    REMOTE_F;
		;
    break;}
case 137:
#line 1478 "ys.y"
{	/*
			 * Internal types: 
			 */
		 typeh[type_spec_count]->attribute.export_type = YES;
		 typeh[type_spec_count]->attribute.storage_class_specifier
		   = EXPORT_SC;
		 typeh[type_spec_count]->attribute.function_class =
		   REMOTE_F;
		;
    break;}
case 138:
#line 1489 "ys.y"
{
		  if (STATIC_P(typeh[type_spec_count]))
		    error_message (6025, "static");
		  else if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2017);
		  typeh[type_spec_count]->attribute.storage_class_specifier
		    = STATIC_SC;
		;
    break;}
case 139:
#line 1498 "ys.y"
{
		  if (AUTO_P(typeh[type_spec_count]))
		    error_message (6025, "auto");
		  else if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2017);
		  typeh[type_spec_count]->attribute.storage_class_specifier
		    = AUTO_SC;
		;
    break;}
case 140:
#line 1507 "ys.y"
{
		  if (REGISTER_P(typeh[type_spec_count]))
		    error_message (6025, "register");
		  else if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2017);
		  typeh[type_spec_count]->attribute.storage_class_specifier
		    = REGISTER_SC;
		;
    break;}
case 141:
#line 1521 "ys.y"
{
		  if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2018, "type name");
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 142:
#line 1533 "ys.y"
{
		  if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2018, "type name");
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 146:
#line 1552 "ys.y"
{
		  struct internal_type *help;
		  if (! UNSPEC_P(typeh[type_spec_count]))
		    error_message (2018, "type name");
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  help->output = typeh[type_spec_count];
		  typeh[type_spec_count] = help;
		  typeh[type_spec_count]->attribute.function_class =
		    ARRAY;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  typeh[type_spec_count--] = NULL;
		  DELETE_SUBSCRIPT;
		;
    break;}
case 147:
#line 1574 "ys.y"
{
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 148:
#line 1584 "ys.y"
{
		  typeh[type_spec_count]->attribute.function_class =
		    LOCAL;
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 149:
#line 1596 "ys.y"
{
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  typeh[type_spec_count]->attribute.function_class =
		    LOCAL;
		  typeh[type_spec_count]->input = l_type_spec;
		  l_type_spec = NULL;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 150:
#line 1610 "ys.y"
{
		  struct internal_type *help;
		  typeh[type_spec_count]->attribute.function_class =
		    LOCAL;
		  check_spec_constr (typeh[type_spec_count], "type name");
		  if (!body_flag)
		    error_message (6009);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  help->output = typeh[type_spec_count];
		  typeh[type_spec_count] = help;
		  typeh[type_spec_count]->attribute.function_class =
		    ARRAY;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  typeh[type_spec_count--] = NULL;
		  DELETE_SUBSCRIPT;
		;
    break;}
case 151:
#line 1639 "ys.y"
{
		  if (VOID_P(typeh[type_spec_count]))
		    error_message (1012);
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  put2table (yyvsp[0].mystring, typeh[type_spec_count]);
		  align_memory (&kodp, sizeof(int));
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[0].mystring, variable);
		  typedef_f = 1;
		;
    break;}
case 153:
#line 1653 "ys.y"
{
		  struct internal_type *help, *arch;
		  if (VOID_P(typeh[type_spec_count]))
		    error_message (1012);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		    }
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  count_arr = 1;
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[-1].mystring, variable);
		  initialize_only = 0;
		  typedef_f = 1;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
		;
    break;}
case 155:
#line 1690 "ys.y"
{
		  struct internal_type *type;
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  put2table (yyvsp[0].mystring, typeh[type_spec_count]);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    type = typeh[type_spec_count]->output;
		  else
		    type = typeh[type_spec_count];
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(type))
		    {
		      type = type->output;
		    }
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (type);
		  else
		    typeh[type_spec_count] = type;
		  align_memory (&kodp, sizeof(int));
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[0].mystring, variable);
		  typedef_f = 1;
		;
    break;}
case 157:
#line 1717 "ys.y"
{
		  struct internal_type *help, *arch;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help,
			     sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		    }
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier =
		    UNSPEC_SC;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  count_arr = 1;
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[-1].mystring, variable);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(arch))
		    arch = arch->output;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 159:
#line 1758 "ys.y"
{
		  struct internal_type *help, *arch;
				/*
				 * Internal types:
				 */

		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  if (STRUCT_P(typeh[type_spec_count]) ||
		      UNION_P(typeh[type_spec_count]))
		    error_message (6034);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help,
			     sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		      if (REMOTE_P(typeh[type_spec_count]->output->output))
			typeh[type_spec_count]->output->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->output->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->output->attribute.export_type
			= typeh[type_spec_count]->output->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count]->output;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		      if (REMOTE_P(typeh[type_spec_count]->output))
			typeh[type_spec_count]->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->attribute.export_type
			= typeh[type_spec_count]->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count];
		    }
		  body_flag = 0;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  variable[set].adr = kodp;
		  variable[set].name = yyvsp[-1].mystring;
		  count[++proc] = -(3 * sizeof (char *));
		  proc_name_text[proc] = text;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
		  param_flag = 1;
		  enter_scope ();
		  func_def_s ();
		  typedef_f = 1;
		;
    break;}
case 161:
#line 1824 "ys.y"
{
		  struct internal_type *help,*arch;
				/*
				 * Internal types:
				 */

		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help,
			     sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		      if (REMOTE_P(typeh[type_spec_count]->output->output))
			typeh[type_spec_count]->output->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->output->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->output->attribute.export_type
			= typeh[type_spec_count]->output->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count]->output;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		      if (REMOTE_P(typeh[type_spec_count]->output))
			typeh[type_spec_count]->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->attribute.export_type
			= typeh[type_spec_count]->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count];
		    }
		  body_flag = 0;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  variable[set].adr = kodp;
		  variable[set].name = yyvsp[-1].mystring;
		  count[++proc] = -(3 * sizeof (char *));
		  proc_name_text[proc] = text;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;

				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(arch))
		    arch = arch->output;
		  param_flag = 1;
		  enter_scope ();
		  func_def_s ();
		  typedef_f = 1;
		;
    break;}
case 163:
#line 1892 "ys.y"
{
		  if (!(ENUM_P (typeh[type_spec_count]) ||
			UNION_P (typeh[type_spec_count]) ||
			STRUCT_P (typeh[type_spec_count])))
		    {
		      error_message (6010);
		      error_message (6011);
		      SET_ADDRESS;
		      TYPE_CLEAR;
		    }
		  typeh[type_spec_count--] = NULL;		  
		  typedef_f = 1;
		;
    break;}
case 164:
#line 1908 "ys.y"
{
		  count[proc] = 0;
#if 0
		  SET_ADDRESS;
		  TYPE_CLEAR;
#endif
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc--] = NULL;
#endif
		  param_flag = 0;
		  func_def_r ();
		  exit_scope ();
		  typedef_f = 1;
		;
    break;}
case 166:
#line 1927 "ys.y"
{
		  count[proc] = 0;
		  if (-1 == add_spec_to_has ())
		    COMPILE_ONLY;
#if 0
		  SET_ADDRESS;
		  TYPE_CLEAR;
#endif
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc--] = NULL;
#endif
		  param_flag = 0;
		  func_def_r ();
		  exit_scope ();
		  typedef_f = 1;
		;
    break;}
case 168:
#line 1948 "ys.y"
{
		  count[proc] = 0;
		  if (-1 == add_spec_to_has ())
		    COMPILE_ONLY;
		  if (-1 == add_ident_to_has ())
		    COMPILE_ONLY;
		  clear_hash_tab_declaration (); 
#if 0
		  SET_ADDRESS;
		  TYPE_CLEAR;
#endif
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc--] = NULL;
#endif
		  param_flag = 0;
		  func_def_r ();
		  exit_scope ();
		  typedef_f = 1;
		;
    break;}
case 170:
#line 1972 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (1036, "typedef");
		  else if (REGISTER_P(typeh[type_spec_count]))
		    error_message (1036, "register");
		  else if (AUTO_P(typeh[type_spec_count]))
		    error_message (1036, "auto");
		  if (-1 == add_spec_to_has ())
		    COMPILE_ONLY;
		  if (-1 == add_ident_to_has ())
		    COMPILE_ONLY;
		  FUNCTION_PROLOGUE;
		  count[proc] = -count[proc];
		  count[proc] %= sizeof (double);
		  count[proc] = -count[proc];
		  typeh[type_spec_count--] = NULL;
		  param_flag = 0;
		  typedef_f = 1;
		;
    break;}
case 171:
#line 1992 "ys.y"
{
		  text = proc_name_text[proc];
		  fix_ret ();
		  FUNCTION_EPILOGUE;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  body_flag = 1;
		  put2table (text, NULL);
		  body_flag = 0;
		  SET_CODE_GENERATION_BEGINNING;
		  exit_scope ();
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc] = NULL;
		  count[proc--] = 0;
#endif
		;
    break;}
case 172:
#line 2012 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (1036, "typedef");
		  else if (REGISTER_P(typeh[type_spec_count]))
		    error_message (1036, "register");
		  else if (AUTO_P(typeh[type_spec_count]))
		    error_message (1036, "auto");
		  typeh[++type_spec_count] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)typeh[type_spec_count],
			     sizeof(struct internal_type));
		  typeh[type_spec_count]->attribute.arit_class =
		    VID;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == add_spec_to_has ())
		    COMPILE_ONLY;
		  FUNCTION_PROLOGUE;
		  count[proc] = -count[proc];
		  count[proc] %= sizeof (double);
		  count[proc] = -count[proc];
		  typeh[type_spec_count--] = NULL;
		  param_flag = 0;
		  typedef_f = 1;
		;
    break;}
case 173:
#line 2038 "ys.y"
{
		  text = proc_name_text[proc];
		  fix_ret ();
		  FUNCTION_EPILOGUE;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  body_flag = 1;
		  put2table (text, NULL);
		  body_flag = 0;
		  SET_CODE_GENERATION_BEGINNING;
		  exit_scope ();
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc] = NULL;
		  count[proc--] = 0;
#endif
		  typeh[type_spec_count--] = NULL;
		  typedef_f = 1;
		;
    break;}
case 174:
#line 2061 "ys.y"
{
		  count[proc] = 0; 
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc--] = NULL;
#endif
		  param_flag = 0;
		  typedef_f = 1;
		;
    break;}
case 176:
#line 2074 "ys.y"
{
		  count[proc] = 0;
		  if (-1 == add_spec_to_has ())
		    COMPILE_ONLY;
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc--] = NULL;
#endif
		  typedef_f = 1;
		;
    break;}
case 178:
#line 2088 "ys.y"
{
		  count[proc] = 0;
		  if (-1 == add_spec_to_has ())
		    COMPILE_ONLY;
		  if (-1 == add_ident_to_has ())
		    COMPILE_ONLY;
		  clear_hash_tab_declaration ();
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name_text[proc--] = NULL;
#endif
		  param_flag = 0;
		  typedef_f = 1;
		;
    break;}
case 180:
#line 2106 "ys.y"
{
		  yyerrok; proc--;
		  error_message (1004, "{"); proc++;
		;
    break;}
case 181:
#line 2116 "ys.y"
{
		  if (VOID_P(typeh[type_spec_count]))
		    error_message (1012);
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  body_flag = 1;
		  put2table (yyvsp[0].mystring, typeh[type_spec_count]);
		  align_memory (&kodp, sizeof(int));
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[0].mystring, variable);
		  typedef_f = 1;
		;
    break;}
case 183:
#line 2131 "ys.y"
{
		  struct internal_type *help,*arch;
		  if (VOID_P(typeh[type_spec_count]))
		    error_message (1012);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		    }
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  body_flag = 1;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  count_arr = 1;
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[-1].mystring, variable);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 185:
#line 2169 "ys.y"
{
		  struct internal_type *help, *arch;
			/*
			 * Internal types:
			 */

		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  if (STRUCT_P(typeh[type_spec_count]) ||
		      UNION_P(typeh[type_spec_count]))
		    error_message (6034);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help,
			     sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      typedef_copy (typeh[type_spec_count]->output);
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		      if (REMOTE_P(typeh[type_spec_count]->output->output))
			typeh[type_spec_count]->output->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->output->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->output->attribute.export_type
			= typeh[type_spec_count]->output->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count]->output;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		      if (REMOTE_P(typeh[type_spec_count]->output))
			typeh[type_spec_count]->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->attribute.export_type
			= typeh[type_spec_count]->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count];
		    }
		  body_flag = 0;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  variable[set].adr = kodp;
		  variable[set].name = yyvsp[-1].mystring;
		  count[++proc] = -(3 * sizeof (char *));
		  proc_name_text[proc] = text;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
		  typedef_f = 1;
		;
    break;}
case 187:
#line 2233 "ys.y"
{
		  struct internal_type *type;
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  body_flag = 1;
		  put2table (yyvsp[0].mystring, typeh[type_spec_count]);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    type = typeh[type_spec_count]->output;
		  else
		    type = typeh[type_spec_count];
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(type))
		    type = type->output;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (type);
		  else
		    typeh[type_spec_count] = type;
		  align_memory (&kodp, sizeof(int));
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[0].mystring, variable);
		  typedef_f = 1;
		;
    break;}
case 189:
#line 2259 "ys.y"
{
		  struct internal_type *help,*arch;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		    }
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  body_flag = 1;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  count_arr = 1;
		  SET_CODE_GENERATION_BEGINNING;
		  body_flag = 0;
		  lookup_tables (yyvsp[-1].mystring, variable);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(arch))
		    arch = arch->output;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 191:
#line 2299 "ys.y"
{
		  struct internal_type *help, *arch;
				/*
				 * Internal types:
				 */

		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		      if (REMOTE_P(typeh[type_spec_count]->output->output))
			typeh[type_spec_count]->output->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->output->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->output->attribute.export_type
			= typeh[type_spec_count]->output->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count]->output;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		      if (REMOTE_P(typeh[type_spec_count]->output))
			typeh[type_spec_count]->attribute.function_class
			  = REMOTE_F;
		      else
			typeh[type_spec_count]->attribute.function_class
			  = LOCAL;
		      typeh[type_spec_count]->attribute.export_type
			= typeh[type_spec_count]->output->attribute.export_type;
		      type_ac[++set]
			= typeh[type_spec_count]->output->attribute.arit_class;
		      type_com[set] = typeh[type_spec_count];
		    }
		  body_flag = 0;
		  put2table (yyvsp[-1].mystring, typeh[type_spec_count]);
		  variable[set].adr = kodp;
		  variable[set].name = yyvsp[-1].mystring;
		  count[++proc] = -(3 * sizeof (char *));
		  proc_name_text[proc] = text;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(arch))
		    arch = arch->output;
		  typedef_f = 1;
		;
    break;}
case 193:
#line 2364 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 194:
#line 2368 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 196:
#line 2373 "ys.y"
{
				/* The following block looks like
				   semantic of the list_stat_0
				   rule. The code for the
				   initialization of the parsed
				   variable must be executed. */
		  {
		    GEN_STOP; GENCODE;
		    if (no_compile_only
			&& (! handle_main || initialize_only))
		      {
#ifndef NOT_MSWIN_AND_YES_DOS
			VIRTUAL_MACHINE_SUSPENDED_RESET;
#endif
			if (0 == exec ())
			  return 0;
#ifndef NOT_MSWIN_AND_YES_DOS
			VIRTUAL_MACHINE_SUSPENDED_SET;
#endif
		      }
		    else if (! s)
		      return 0;
		    initialize_only ? initialize_only-- :
		      initialize_only;
		    RESET_CODE_GENERATION_BEGINNING;
		  }
		;
    break;}
case 198:
#line 2404 "ys.y"
{
		  if (! LOCAL_P(type_com[set])
		      && ! REMOTE_P(type_com[set])
		      && ! TYPEDEF_P(type_com[set]))
		    {
		      switch (type_ac[set])
			{
			  /* No breaks here. */
			case INTEGER:
			case SIGNED_AC | INTEGER:
			case UNSIGNED_AC | INTEGER:
			case LONG_AC | INTEGER:
			case LONG_AC | SIGNED_AC | INTEGER:
			case LONG_AC | UNSIGNED_AC | INTEGER:
			case SHORT_AC | INTEGER:
			case SHORT_AC | SIGNED_AC | INTEGER:
			case SHORT_AC | UNSIGNED_AC | INTEGER:
			case DOUB:
			case LONG_AC | DOUB:
			case FLT:
			case CHR:
			case SIGNED_AC | CHR:
			case UNSIGNED_AC | CHR:
			  GEN_POPAe; GENCODE;
			  break;
			case VID:
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GEN_CLRT; GENCODE;
		    }
		  kodp3 = NULL;
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  DELETE_SUBSCRIPT;
		;
    break;}
case 199:
#line 2447 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (1037, text);
#if 0
		  if (! CONST_P(type_com[set]))
		    error_message ();
#endif		  
		  if (SIMPLE_P(type_com[set]))
		    {
		      if (-1 == l_value_cast ())
			COMPILE_ONLY;
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      move2lvalue ();
		    }
		  else if (ARRAY_P(type_com[set]))
		    {
		      DELETE_SUBSCRIPT;
		      if (CONST_P(type_com[set]))
			{
			  type_com[set - 1]->attribute.domain =
			    type_com[set]->attribute.domain;
			  if (! type_com[set - 1]->attribute.memory_size)
			    type_com[set - 1]->attribute.memory_size =
			      type_com[set]->attribute.memory_size;
			  if (CHAR_P(type_com[set]->output))
			    {
			      register int i;
			      
			      for (i = 0;
				   i < type_com[set]->attribute.memory_size;
				   i++)
				{
				  GEN_PUSHAIi(i); GENCODE;
				  GEN_MOVbv; GENCODE;
				}
			    }
			  if (! POINTER_P(type_com[set]))
			    {
			      GEN_POPAe; GENCODE;
			      SET_ADDRESS;
			      TYPE_CLEAR;
			    }
			}
		      else if (! type_com[set]->attribute.memory_size)
			{
			  type_com[set]->attribute.memory_size
			    = initialize_only *
			    type_com[set]->output->attribute.memory_size;
			  dim[++poc] = initialize_only;
			  put_array_subscript (&type_com[set]);
			}
		      kodp1 += type_com[set]->attribute.memory_size;
		      align_memory (&kodp1, sizeof(int));
		      if (set > 1 && POINTER_P(type_com[set - 1]))
			{
				/* MOV two pointers as long ints. */
			  GEN_MOVli; GENCODE;
			  SET_ADDRESS;
			  TYPE_CLEAR;
			}
		    }

		  switch (type_ac[set])
		    {
		      /* No breaks here. */
		    case INTEGER:
		    case SIGNED_AC | INTEGER:
		    case UNSIGNED_AC | INTEGER:
		    case LONG_AC | INTEGER:
		    case LONG_AC | SIGNED_AC | INTEGER:
		    case LONG_AC | UNSIGNED_AC | INTEGER:
		    case SHORT_AC | INTEGER:
		    case SHORT_AC | SIGNED_AC | INTEGER:
		    case SHORT_AC | UNSIGNED_AC | INTEGER:
		    case DOUB:
		    case LONG_AC | DOUB:
		    case FLT:
		    case CHR:
		    case SIGNED_AC | CHR:
		    case UNSIGNED_AC | CHR:
		      GEN_POPAe; GENCODE;
		      break;
		    case VID:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); 
		      return 0;
		    }
		  GEN_CLRT; GENCODE; kodp3 = NULL;
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  if (handle_main)
		    initialize_only = 1;
		;
    break;}
case 200:
#line 2551 "ys.y"
{
		  fixp->if1.jmp = kodp;
		  GEN_JMP; GENCODE;
		  ((struct OPERAND_1_ma *)(fixp->if1.jz))->adr = kodp;
		;
    break;}
case 201:
#line 2557 "ys.y"
{
		  ((struct OPERAND_1_ma *)(fixp->if1.jmp))->adr = kodp;
		  fixp--;
		;
    break;}
case 202:
#line 2563 "ys.y"
{
		  ((struct OPERAND_1_ma *)(fixp->if1.jz))->adr = kodp;
		  fixp--;
		;
    break;}
case 204:
#line 2578 "ys.y"
{
		  if (no_compile_only)
		    has_label (yyvsp[-1].mystring);
		;
    break;}
case 206:
#line 2588 "ys.y"
{
		  char *help = fixp->switch1.jmp;
		  /* If in the previous case label was not a break */
		  /* state jump over the next <constant_expression> */
		  /* to the <statements>. */
		  fixp->switch1.jmp = kodp; GEN_JMP; GENCODE;
		  if (fixp->switch1.jz != NULL)
		    /* If previous case label was not successful jump here. */
		    ((struct OPERAND_1_ma *)(fixp->switch1.jz))->adr = kodp;
		  if (help != NULL)
		    /* Backpatch the address for the first case label. */
		    ((struct OPERAND_1_ma *)help)->adr = kodp;
		  GEN_MOVaa; GENCODE; /* Reloading top of the arithmetical */
				/* stack with the same value for */
				/* the purpose of comparing. */
		  it_is_in_case = 1;
		;
    break;}
case 207:
#line 2606 "ys.y"
{
		  if ((CONST_TQ != type_com[set]->attribute.type_qualifier) 
		      || (INTEGER != type_ac[set]))
		    error_message (1014);
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  GEN_EQi; GENCODE;
		  GEN_CLRT; GENCODE; /* Clears arithmetical stack. */
				/* We know that the value is */
				/* still there. */
		  fixp->switch1.jz = kodp;
		  GEN_JZ; GENCODE;
		  /* Jump here if the next statements should apply. */
		  /* In the previous case label there was not */
		  /* the break statement. */
		  ((struct OPERAND_1_ma *)fixp->switch1.jmp)->adr =
		    kodp;
		  fixp->switch1.jmp = NULL;
		  it_is_in_case = 0;
		;
    break;}
case 209:
#line 2629 "ys.y"
{
		  add_default_to_fixp ();
		;
    break;}
case 212:
#line 2647 "ys.y"
{
		  ERROR_P;
		  GEN_SUBss(scope_offset_set (count[proc])); GENCODE;
		  count[proc] = 0;
		;
    break;}
case 214:
#line 2657 "ys.y"
{
		  enter_scope ();
		;
    break;}
case 215:
#line 2668 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[0].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[0].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[0].mystring))
		    COMPILE_ONLY;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		  typedef_f = 1;
		;
    break;}
case 216:
#line 2687 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		  typedef_f = 1;
		;
    break;}
case 218:
#line 2707 "ys.y"
{
		  struct internal_type *help;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), BLOCK);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  help->output = typeh[type_spec_count];
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  typeh[type_spec_count] = help;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  typeh[type_spec_count--] = NULL;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 219:
#line 2734 "ys.y"
{
		  struct internal_type *help;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-2].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-2].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-2].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), BLOCK);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  help->output = typeh[type_spec_count];
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  typeh[type_spec_count] = help;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[-2].mystring))
		    COMPILE_ONLY;
		  while (-1 != dim[poc])
		    dim[poc--] = -1;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  typeh[type_spec_count--] = NULL;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 221:
#line 2764 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[0].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[0].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[0].mystring))
		    COMPILE_ONLY;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		  typedef_f = 1;
		;
    break;}
case 222:
#line 2783 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  if (!body_flag)
		    error_message (6009);
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  typeh[type_spec_count--] = NULL;
		  typedef_f = 1;
		;
    break;}
case 224:
#line 2803 "ys.y"
{
		  struct internal_type *help;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-1].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), BLOCK);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  help->output = typeh[type_spec_count];
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  typeh[type_spec_count] = help;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  typeh[type_spec_count--] = NULL;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 225:
#line 2830 "ys.y"
{
		  struct internal_type *help;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-2].mystring);
		  else if (EXTERN_P(typeh[type_spec_count]))
		    error_message (2018, yyvsp[-2].mystring);
		  check_spec_constr (typeh[type_spec_count], yyvsp[-2].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), BLOCK);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  help->output = typeh[type_spec_count];
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  typeh[type_spec_count] = help;
		  if (-1 == add_to_spec_list ())
		    COMPILE_ONLY;
		  if (-1 == has_loc (PAR, yyvsp[-2].mystring))
		    COMPILE_ONLY;
		  while (-1 != dim[poc])
		    dim[poc--] = -1;
		  if (-1 == add_to_ident_list ())
		    COMPILE_ONLY;
		  count_arr = 1;
		  typeh[type_spec_count--] = NULL;
		  DELETE_SUBSCRIPT;
		  typedef_f = 1;
		;
    break;}
case 227:
#line 2864 "ys.y"
{
		  dim[++poc] = NOT_DEFINED;
		;
    break;}
case 228:
#line 2869 "ys.y"
{
		  count_arr *= yyvsp[-1].myint;
		  dim[++poc] = yyvsp[-1].myint;
		;
    break;}
case 229:
#line 2875 "ys.y"
{
		  count_arr *= yyvsp[-1].myint;
		  dim[++poc] = yyvsp[-1].myint;
		;
    break;}
case 231:
#line 2887 "ys.y"
{
		  if (!(ENUM_P (typeh[type_spec_count]) ||
			UNION_P (typeh[type_spec_count]) ||
			STRUCT_P (typeh[type_spec_count])))
		    {
		      error_message (6010);
		      error_message (6011);
		    }
		  typeh[type_spec_count--] = NULL;		  
		;
    break;}
case 232:
#line 2898 "ys.y"
{
		  if (!(ENUM_P (typeh[type_spec_count]) ||
			UNION_P (typeh[type_spec_count]) ||
			STRUCT_P (typeh[type_spec_count])))
		    {
		      error_message (6010);
		      error_message (6011);
		    }
		  typeh[type_spec_count--] = NULL;		  
		;
    break;}
case 234:
#line 2913 "ys.y"
{
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  if (VOID_P(typeh[type_spec_count]))
		    error_message (1012);
		  if (STATIC_P(typeh[type_spec_count]))
		    {
		      jmp1 = kodp;
		      GEN_JMP; GENCODE;
		      if (UNUSED_P(typeh[type_spec_count]))
			typeh[type_spec_count]->attribute.arit_class =
			  INTEGER;
		    }
		  if (-1 == has_loc (VAR, yyvsp[0].mystring))
		    COMPILE_ONLY;
		  if (STATIC_P(typeh[type_spec_count]))
		    ((struct OPERAND_1_ma *)jmp1)->adr = kodp;
		  lookup_tables (yyvsp[0].mystring, variable);
		;
    break;}
case 236:
#line 2934 "ys.y"
{
		  struct internal_type *help, *arch;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  if (VOID_P(typeh[type_spec_count]))
		    error_message (1012);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), BLOCK);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		    }
		  help->attribute.function_class = ARRAY;
		  if (STATIC_P(help->output))
		    {
		      jmp1 = kodp;
		      GEN_JMP; GENCODE;
		      if (help->output->attribute.arit_class
			  == UNUSED_AC)
			help->output->attribute.arit_class =
			  INTEGER;
		      help->attribute.storage_class_specifier =
			STATIC_SC;
		    }
		  if (-1 == has_loc (VAR, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (STATIC_P(help->output))
		    ((struct OPERAND_1_ma *)jmp1)->adr = kodp;
		  count_arr = 1;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
		  DELETE_SUBSCRIPT;
		  lookup_tables (yyvsp[-1].mystring, variable);
		;
    break;}
case 238:
#line 2981 "ys.y"
{;
    break;}
case 240:
#line 2985 "ys.y"
{;
    break;}
case 242:
#line 2989 "ys.y"
{;
    break;}
case 244:
#line 2993 "ys.y"
{
		  struct internal_type *type;
		  check_spec_constr (typeh[type_spec_count], yyvsp[0].mystring);
		  if (STATIC_P(typeh[type_spec_count]))
		    {
		      jmp1 = kodp;
		      GEN_JMP; GENCODE;
		      if (typeh[type_spec_count]->attribute.arit_class
			  == UNUSED_AC)
			typeh[type_spec_count]->attribute.arit_class =
			  INTEGER;
		    }
		  if (-1 == has_loc (VAR, yyvsp[0].mystring))
		    COMPILE_ONLY;
		  if (STATIC_P(typeh[type_spec_count]))
		    ((struct OPERAND_1_ma *)jmp1)->adr = kodp;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      type = typeh[type_spec_count]->output;
		      typedef_copy (typeh[type_spec_count]->output);
		    }
		  else
		    type = typeh[type_spec_count];
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(type))
		    type = type->output;
		  lookup_tables (yyvsp[0].mystring, variable);
		;
    break;}
case 246:
#line 3025 "ys.y"
{
		  struct internal_type *help, *arch;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-1].mystring);
		  help = (struct internal_type *)
		    allocate (sizeof (struct internal_type), BLOCK);
		  init_zero ((char *)help, sizeof(struct internal_type));
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    {
		      help->output = typeh[type_spec_count]->output;
		      arch = typeh[type_spec_count]->output;
		      typeh[type_spec_count]->output = help;
		    }
		  else
		    {
		      help->output = typeh[type_spec_count];
		      arch = typeh[type_spec_count];
		      typeh[type_spec_count] = help;
		    }
		  help->attribute.function_class = ARRAY;
		  help->attribute.storage_class_specifier = UNSPEC_SC;
		  if (STATIC_P(typeh[type_spec_count]))
		    {
		      jmp1 = kodp;
		      GEN_JMP; GENCODE;
		      if (typeh[type_spec_count]->attribute.arit_class
			  == UNUSED_AC)
			typeh[type_spec_count]->attribute.arit_class =
			  INTEGER;
		    }
		  if (-1 == has_loc (VAR, yyvsp[-1].mystring))
		    COMPILE_ONLY;
		  if (STATIC_P(typeh[type_spec_count]))
		    ((struct OPERAND_1_ma *)jmp1)->adr = kodp;
		  count_arr = 1;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (arch);
		  else
		    typeh[type_spec_count] = arch;
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(typeh[type_spec_count]->output))
		    arch = arch->output;
		  DELETE_SUBSCRIPT;
		  lookup_tables (yyvsp[-1].mystring, variable);
		;
    break;}
case 248:
#line 3073 "ys.y"
{
		  struct internal_type *type;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-2].mystring);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    type = typeh[type_spec_count]->output;
		  else
		    type = typeh[type_spec_count];
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(type))
		    type = type->output;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (type);
		  else
		    typeh[type_spec_count] = type;
		  param_flag = 0;
		  lookup_tables (yyvsp[-2].mystring, variable);
		;
    break;}
case 250:
#line 3094 "ys.y"
{
		  struct internal_type *type;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-3].mystring);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    type = typeh[type_spec_count]->output;
		  else
		    type = typeh[type_spec_count];
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(type))
		    type = type->output;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (type);
		  else
		    typeh[type_spec_count] = type;
		  param_flag = 0;
		  lookup_tables (yyvsp[-3].mystring, variable);
		;
    break;}
case 252:
#line 3115 "ys.y"
{
		  struct internal_type *type;
		  check_spec_constr (typeh[type_spec_count], yyvsp[-3].mystring);
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    type = typeh[type_spec_count]->output;
		  else
		    type = typeh[type_spec_count];
				/* FIXME: here is a memory leakage in
				   the following loop. */
		  while (POINTER_P(type))
		    type = type->output;
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    typedef_copy (type);
		  else
		    typeh[type_spec_count] = type;
		  param_flag = 0;
		  lookup_tables (yyvsp[-3].mystring, variable);
		;
    break;}
case 254:
#line 3139 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 255:
#line 3143 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 257:
#line 3148 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 258:
#line 3152 "ys.y"
{
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 262:
#line 3161 "ys.y"
{
		  if (! LOCAL_P(type_com[set])
		      && ! REMOTE_P(type_com[set])
		      && ! TYPEDEF_P(type_com[set]))
		    {
		      switch (type_ac[set])
			{
			  /* No breaks here. */
			case INTEGER:
			case SIGNED_AC | INTEGER:
			case UNSIGNED_AC | INTEGER:
			case LONG_AC | INTEGER:
			case LONG_AC | SIGNED_AC | INTEGER:
			case LONG_AC | UNSIGNED_AC | INTEGER:
			case SHORT_AC | INTEGER:
			case SHORT_AC | SIGNED_AC | INTEGER:
			case SHORT_AC | UNSIGNED_AC | INTEGER:
			case DOUB:
			case LONG_AC | DOUB:
			case FLT:
			case CHR:
			case SIGNED_AC | CHR:
			case UNSIGNED_AC | CHR:
			  GEN_POPAe; GENCODE;
			  break;
			case VID:
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000);
			  return 0;
			}
		      GEN_CLRT; GENCODE;
		      noninitialized_loc (variable[set].name);
		    }
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  DELETE_SUBSCRIPT;
		;
    break;}
case 263:
#line 3205 "ys.y"
{
		  if (TYPEDEF_P(typeh[type_spec_count]))
		    error_message (1037, text);
#if 0
		  if (! CONST_P(type_com[set]))
		    error_message ();
#endif		  
		  if (SIMPLE_P(type_com[set]))
		    {
		      if (-1 == l_value_cast ())
			COMPILE_ONLY;
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      move2lvalue ();
		    }
		  else if (ARRAY_P(type_com[set]))
		    {
		      DELETE_SUBSCRIPT;
		      if (CONST_P(type_com[set]))
			{
			  type_com[set - 1]->attribute.domain =
			    type_com[set]->attribute.domain;
			  if (! type_com[set - 1]->attribute.memory_size)
			    type_com[set - 1]->attribute.memory_size =
			      type_com[set]->attribute.memory_size;
			  {
			    register int i;
			    
			    for (i = 0;
				 i < type_com[set]->attribute.memory_size;
				 i++)
			      {
				GEN_PUSHAIi(i); GENCODE;
				GEN_MOVbv; GENCODE;
			      }
			    if (! POINTER_P(type_com[set - 1]))
			      {
				GEN_POPAe; GENCODE;
				SET_ADDRESS;
				TYPE_CLEAR;
			      }
			    if (CHAR_P(type_com[set]->output) && proc)
			      num_args[proc]--;
			  }
			}
		      else if (! type_com[set]->attribute.memory_size)
			{
			  type_com[set]->attribute.memory_size
			    = initialize_only *
			    type_com[set]->output->attribute.memory_size;
			  dim[++poc] = initialize_only;
			  put_array_subscript (&type_com[set]);
			}
		      if (set > 1 && POINTER_P(type_com[set - 1]))
			{
			  /* MOV two pointers as long ints. */
			  GEN_MOVli; GENCODE;
			  SET_ADDRESS;
			  TYPE_CLEAR;
			}
		    }
		  
		  switch (type_ac[set])
		    {
		      /* No breaks here. */
		    case INTEGER:
		    case SIGNED_AC | INTEGER:
		    case UNSIGNED_AC | INTEGER:
		    case LONG_AC | INTEGER:
		    case LONG_AC | SIGNED_AC | INTEGER:
		    case LONG_AC | UNSIGNED_AC | INTEGER:
		    case SHORT_AC | INTEGER:
		    case SHORT_AC | SIGNED_AC | INTEGER:
		    case SHORT_AC | UNSIGNED_AC | INTEGER:
		    case DOUB:
		    case LONG_AC | DOUB:
		    case FLT:
		    case CHR:
		    case SIGNED_AC | CHR:
		    case UNSIGNED_AC | CHR:
		      GEN_POPAe; GENCODE;
		      break;
		    case VID:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000);
		      return 0;
		    }
		  GEN_CLRT; GENCODE;
		  is_address = 0;
		  if (handle_main)
		    initialize_only = 1;
		  if (STATIC_P(typeh[type_spec_count]))
		    {
		      /* If there is a static variable in block
			 definition or function definition, we need to
			 initialize it only once. The virtual machine
			 must be triggered here. The variable jmp1
			 holds the start of the code generated by
			 initialization. */
		      pc = ((struct OPERAND_1_ma *)jmp1)->adr;
		      GEN_STOP; GENCODE;
		      if (no_compile_only
			  && (! handle_main || initialize_only))
			{
#ifndef NOT_MSWIN_AND_YES_DOS
			  VIRTUAL_MACHINE_SUSPENDED_RESET;
#endif
			  if (0 == exec ())
			    return 0;
#ifndef NOT_MSWIN_AND_YES_DOS
			  VIRTUAL_MACHINE_SUSPENDED_SET;
#endif
			}
		      else if (! s)
			return 0;
		      initialize_only ? initialize_only-- :
			initialize_only;
		      if (ARRAY_P(type_com[set]))
			((struct OPERAND_1_ma *)jmp1)->adr +=
			  type_com[set]->attribute.memory_size;
			kodp = ((struct OPERAND_1_ma *)jmp1)->adr;
		    }
		  set_value (variable[set].name);
		  SET_ADDRESS;
		  TYPE_CLEAR;
		;
    break;}
case 265:
#line 3339 "ys.y"
{
		  param_flag = 0;
		;
    break;}
case 266:
#line 3347 "ys.y"
{
		  args[proc]++;
		  if (PRINTF_P || SCANF_P)
		    {
#if 0
		      if (!ARRAY_P(type_com[set]) &&
			  !POINTER_P(type_com[set]))
			promote_type ();
#endif
		      compare_format_args
			(format_args[proc][args[proc]],
			 type_com[set], type_ac[set]);
		      format_args[proc][args[proc]] = NULL;
		    }
		  if (STRUCT_P(type_com[set]) ||
		      UNION_P(type_com[set]))
		    error_message (6035);
		  if (call_by_value)
		    {
		      if (ARRAY_P(type_com[set]) ||
			  (POINTER_P(type_com[set])
			   && PRINTF_P))
			{
			  GEN_POPAst(count[proc]);
			  count[proc] += sizeof (char *);
			}
		      else if (STRUCT_P(type_com[set]) ||
			       UNION_P(type_com[set]))
			{
			  register int i;
			  for (i = count[proc];
			       i < type_com[set]->attribute.memory_size;
			       i++)
			    {
			      GEN_POPAb(i); GENCODE;
			    }
			  count[proc] +=
			    type_com[set]->attribute.memory_size;
			  GEN_POPAe;
			}
		      else
			{
			  GEN_POPA(count[proc]);
			  if (LOCAL_P(type_com[set]) ||
			      REMOTE_P(type_com[set]))
			    count[proc] +=
			      type_com[set]->output->attribute.memory_size;
			  else
			    count[proc] +=
			      type_com[set]->attribute.memory_size;
			}
		      if ((count[proc] % sizeof (int)) > 0)
			count[proc] += sizeof (int)
			  - (count[proc] % sizeof (int));
		    }
		  else if (call_by_reference)
		    {
		      GEN_POPAst(count[proc]);
		      count[proc] += sizeof (char *);
		    }
		  GENCODE; param_flag = 0;
				/*
				 * Internal types:
				 */
		  if (YES == type_com[set - 1]->attribute.export_type)
		    {
		      GEN_PUSHAIi(type_transform (type_ac[set],
				  type_com[set]->attribute.function_class,
						  atom_type_flag));
		      GENCODE;
		      if (call_by_value)
			{
			  GEN_POPAi(count[proc]);
			  count[proc] += sizeof (int);
			}
		      else if (call_by_reference)
			{
			  GEN_POPAst(count[proc]);
			  count[proc] += sizeof (char *);
			}
		      GENCODE;
		    }
		  atom_type_flag = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  is_address = 0;
		;
    break;}
case 267:
#line 3436 "ys.y"
{
		  args[proc]++;
		  if (PRINTF_P || SCANF_P)
		    {
#if 0
		      if (!ARRAY_P(type_com[set]) &&
			  !POINTER_P(type_com[set]))
			promote_type ();
#endif
		      compare_format_args
			(format_args[proc][args[proc]],
			 type_com[set], type_ac[set]);
		      format_args[proc][args[proc]] = NULL;
		    }
		  if (STRUCT_P(type_com[set]) ||
		      UNION_P(type_com[set]))
		    error_message (6035);
		  if (call_by_value)
		    {
		      if (ARRAY_P(type_com[set]) ||
			  (POINTER_P(type_com[set])
			   && PRINTF_P))
			{
			  GEN_POPAst(count[proc]);
			  count[proc] += sizeof (char *);
			}
		      else if (STRUCT_P(type_com[set]) ||
			       UNION_P(type_com[set]))
			{
			  register int i;
			  for (i = count[proc];
			       i < type_com[set]->attribute.memory_size;
			       i++)
			    {
			      GEN_POPAb(i); GENCODE;
			    }
			  count[proc] +=
			    type_com[set]->attribute.memory_size;
			  GEN_POPAe;
			}
		      else
			{
			  GEN_POPA(count[proc]);
			  if (LOCAL_P(type_com[set]) ||
			      REMOTE_P(type_com[set]))
			    count[proc] +=
			      type_com[set]->output->attribute.memory_size;
			  else
			    count[proc] +=
			      type_com[set]->attribute.memory_size;
			}
		      if ((count[proc] % sizeof (int)) > 0)
			count[proc] += sizeof (int)
			  - (count[proc] % sizeof (int));
		    }
		  else if (call_by_reference)
		    {
		      GEN_POPAst(count[proc]);
		      count[proc] += sizeof (char *);
		    }
		  GENCODE; 
		  if (YES == type_com[set-1]->attribute.export_type)
		    {
		      GEN_PUSHAIi(type_transform (type_ac[set],
				  type_com[set]->attribute.function_class,
						  atom_type_flag));
		      GENCODE;
		      if (call_by_value)
			{
			  GEN_POPA(count[proc]);
			  count[proc] += sizeof (int);
			}
		      else if (call_by_reference)
			{
			  GEN_POPAst(count[proc]);
			  count[proc] += sizeof (char *);
			}
		      GENCODE;
		    }
		  atom_type_flag = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  is_address = 0;
		;
    break;}
case 269:
#line 3533 "ys.y"
{
		  switch (type_com[set]->attribute.function_class)
		    {
		    case ENUM_FC: /* Fall through */
		    case SIMPLE:
		    case ARRAY: 
		    case STRUCT_FC:
		    case UNION_FC:
		    case LOCAL:
		    case REMOTE_F:
		    case POINTER:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); return (0);
		    }
		;
    break;}
case 270:
#line 3555 "ys.y"
{
		  GEN_PUSHAIi(yyvsp[0].myint); GENCODE; 
		  type_ac[++set] = INTEGER;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = INTEGER;
		  type_com[set]->attribute.memory_size = sizeof (int);
		  if (it_is_in_case &&
		      -1 == add_constant_to_list (yyvsp[0].myint))
		    return (0);
		  else
		    type_com[set]->attribute.domain = (char *)
		      &(((struct OPERAND_1_i *)
			 (kodp - sizeof (struct OPERAND_1_i)))->num);
		;
    break;}
case 271:
#line 3576 "ys.y"
{
		  GEN_PUSHAIui(yyvsp[0].myuint); GENCODE; 
		  type_ac[++set] = UNSIGNED_AC | INTEGER;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (unsigned int);
		  if (it_is_in_case &&
		      -1 == add_constant_to_list (yyvsp[0].myuint))
		    return (0);
		  else
		    type_com[set]->attribute.domain = (char *)
		      &(((struct OPERAND_1_ui *)
			 (kodp - sizeof (struct OPERAND_1_ui)))->num);
		;
    break;}
case 272:
#line 3598 "ys.y"
{
		  GEN_PUSHAIli(yyvsp[0].mylint); GENCODE; 
		  type_ac[++set] = LONG_AC | INTEGER;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (long int);
		  if (it_is_in_case &&
		      -1 == add_constant_to_list (yyvsp[0].mylint))
		    return (0);
		  else
		    type_com[set]->attribute.domain = (char *)
		      &(((struct OPERAND_1_li *)
			 (kodp - sizeof (struct OPERAND_1_li)))->num);
		;
    break;}
case 273:
#line 3620 "ys.y"
{
		  GEN_PUSHAIlui(yyvsp[0].myluint); GENCODE; 
		  type_ac[++set] = LONG_AC | UNSIGNED_AC | INTEGER;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (long unsigned int);
		  if (it_is_in_case &&
		      -1 == add_constant_to_list (yyvsp[0].myluint))
		    return (0);
		  else
		    type_com[set]->attribute.domain = (char *)
		      &(((struct OPERAND_1_lui *)
			 (kodp - sizeof (struct OPERAND_1_lui)))->num);
		;
    break;}
case 274:
#line 3642 "ys.y"
{
		  GEN_PUSHAId(yyvsp[0].mydouble); GENCODE; 
		  type_ac[++set] = DOUB;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (double);
		  type_com[set]->attribute.domain = (char *)
		    &(((struct OPERAND_1_id *)
		       (kodp - sizeof (struct OPERAND_1_id)))->num);
		;
    break;}
case 275:
#line 3660 "ys.y"
{
		  GEN_PUSHAIld(yyvsp[0].myldouble); GENCODE; 
		  type_ac[++set] = LONG_AC | DOUB;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (long double);
		  type_com[set]->attribute.domain = (char *)
		    &(((struct OPERAND_1_ild *)
		       (kodp - sizeof (struct OPERAND_1_ild)))->num);
		;
    break;}
case 276:
#line 3678 "ys.y"
{
		  GEN_PUSHAIf(yyvsp[0].myfloat); GENCODE; 
		  type_ac[++set] = FLT;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (float);
		  type_com[set]->attribute.domain = (char *)
		    &(((struct OPERAND_1_if *)
		       (kodp - sizeof (struct OPERAND_1_if)))->num);
		;
    break;}
case 277:
#line 3696 "ys.y"
{
		  GEN_PUSHAIst(yyvsp[0].mystring); GENCODE; 
		  type_ac[++set] = CHR;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof (struct internal_type));
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.function_class = ARRAY;
		  type_com[set]->output = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set]->output,
			     sizeof (struct internal_type));
		  type_com[set]->output->attribute.arit_class =
		    type_ac[set];
		  type_com[set]->attribute.domain = 
		    ((struct OPERAND_1_mi *)
		     (kodp - sizeof (struct OPERAND_1_mi)))->adr;
		  type_com[set]->attribute.memory_size =
		    strlen (yyvsp[0].mystring) + 1;
		  SET_ADDRESS;
		;
    break;}
case 278:
#line 3720 "ys.y"
{
		  type_com[++set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof (struct internal_type));
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.function_class = ARRAY;
		  type_com[set]->output = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set]->output,
			     sizeof (struct internal_type));
		  if (ARRAY_P(type_com[set - 1]) &&
		      INTEGER_P(type_com[set - 1]->output))
		    {
		      int i, j = strlen (yyvsp[0].mystring);
		      type_ac[set] = INTEGER;
		      for (i = 1; i < j; i++)
			{
			  GEN_MOVaa; GENCODE;
			  GEN_PUSHAIi((i - 1) * sizeof (int));
			  GENCODE;
			  GEN_MOVar; GENCODE;
			  GEN_PUSHAIi(yyvsp[0].mystring[i]); GENCODE;
			  move2lvalue ();
			  GEN_POPAe; GENCODE;
			}
		      type_com[set]->attribute.memory_size =
			j * sizeof (int); 
		      /* There is L at the beginning of the string;
			 therefore &$1[1] */
		      type_com[set]->attribute.domain = &yyvsp[0].mystring[1];
		    }
		  else
		    {
		      /* There is L at the beginning of the string;
			 therefore &$1[1] */
		      GEN_PUSHAIst(&yyvsp[0].mystring[1]); GENCODE;
		      type_ac[set] = CHR;
		      type_com[set]->attribute.memory_size =
			strlen (yyvsp[0].mystring) + 1; 
		      type_com[set]->attribute.domain = 
			((struct OPERAND_1_mi *)
			 (kodp - sizeof (struct OPERAND_1_mi)))->adr;
		    }
		  type_com[set]->output->attribute.arit_class =
		    type_ac[set];
		  SET_ADDRESS;
		;
    break;}
case 279:
#line 3770 "ys.y"
{
		  GEN_PUSHAIc(yyvsp[0].mychar); GENCODE;
		  type_ac[++set] = CHR;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.arit_class = type_ac[set];
		  type_com[set]->attribute.memory_size
		    = sizeof (char);
		  type_com[set]->attribute.domain = (char *)
		    &(((struct OPERAND_1_ic *)
		       (kodp - sizeof (struct OPERAND_1_ic)))->num);
		;
    break;}
case 281:
#line 3791 "ys.y"
{
		  lookup_tables (yyvsp[0].mystring, variable);
		;
    break;}
case 283:
#line 3799 "ys.y"
{
		  if (subscript_flag[set])
		  /* 
		   * Flag for the first subscript 
		   */
		    {
		      atom_type_flag = 1;
		      if (1 == poc)
			{
			  GEN_PUSHAIi(dim[poc]); GENCODE;
			  GEN_MULTi; GENCODE;
			  dim[poc--] = -1;
			}
		      else if (1 < poc)
			{
			  GEN_PUSHAIi(dim[poc]); GENCODE;
			  GEN_MULTi; GENCODE;
			  dim[poc--] = -1;
			}
		      else if (! POINTER_P(type_com[set]))
			error_message (2000);
		    }
		  else
		    {
		      if (poc)
			dim[poc--] = -1;
		      if (! ARRAY_P(type_com[set]) &&
			  ! POINTER_P(type_com[set]))
			error_message (2000);
		      if (POINTER_P(type_com[set])
#if 0
			  && 0 < variable[set].offset
#endif
			)
			{
			  GEN_MOVap; GENCODE;
			}
		    }
		;
    break;}
case 284:
#line 3839 "ys.y"
{
		  if (INTEGER != type_ac[set])
		    error_message (2002);
		  else
		    {
		      if (subscript_flag[set - 1])
			{
			  GEN_ADDi; GENCODE;
			}
		      subscript_flag[set - 1]++;
		    }
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  if (! poc)
		    {
		      subscript_flag[set]--;
		      GEN_PUSHAIi(type_com[set]->output->attribute.memory_size); 
		      GENCODE;
		      GEN_MULTi; GENCODE;
		      OFFSET_LAST_ADD_ARRAY;
		      GEN_MOVar; GENCODE;
		      kodp3 = kodp;
		      type_com[set] = type_com[set]->output;
		      if (POINTER_P(type_com[set]))
			type_ac[set] = LONG_AC | INTEGER;
		      else
			type_ac[set] =
			  type_com[set]->attribute.arit_class;
		    }
		;
    break;}
case 285:
#line 3871 "ys.y"
{/* offset_aggregate_ident () calls find_member and
		    this function changes the type_ac[set]
		    accordingly. It generates appropriate instructions
		    as well. */
		  int aggr_offset = 0;
		  /* Not in subscript any more.*/
		  if ((STRUCT_P (type_com[set]) ||
		       UNION_P (type_com[set]))
		      && NULL != type_com[set]->input)
		    {
		      type_com[set] = type_com[set]->input;
		      aggr_offset = offset_aggregate_ident ();
		    }
		  else if (NULL != type_com[set]->output
			   && (STRUCT_P (type_com[set]->output)
			       || UNION_P (type_com[set]->output))
			   && NULL != type_com[set]->output->input)
		    {
		      if (subscript_flag[set])
			{
			  GEN_PUSHAIi(type_com[set]->output->attribute.memory_size); 
			  GENCODE;
			  GEN_MULTi; GENCODE;
			}
		      type_com[set] = type_com[set]->output->input;
		      aggr_offset = offset_aggregate_ident ();
		      if (ARRAY_P(type_com[set]))
			{
			  array_subscript (type_com[set]->input);
			  type_ac[set] =
			    type_com[set]->output->attribute.arit_class;
			}
		      else if (POINTER_P(type_com[set]))
			type_ac[set] = LONG_AC | INTEGER;
		    }
		  else
		    {
		      text = yyvsp[0].mystring;
		      error_message (2009);
		    }
		  GEN_PUSHAIi(aggr_offset); GENCODE;
		  if (struct_union_field[set])
		    {
		      GEN_ADDi; GENCODE;
		      struct_union_field[set]--;
		    }
		  if (subscript_flag[set])
		    {
		      GEN_ADDi; GENCODE;
		      subscript_flag[set]--;
		    }
		  struct_union_field[set]++;
		;
    break;}
case 286:
#line 3926 "ys.y"
{
		  int aggr_offset;
		  if (POINTER_P(type_com[set]))
		    {
		      /* Not in subscript any more.*/
		      subscript_flag[set] > 0 ? subscript_flag[set]-- :
			subscript_flag[set];
		      if ((variable[set].adr != NULL
			   || variable[set].offset != 0) &&
			  !(SIMPLE_P(type_com[set]->output)))
			{
			  if (struct_union_field[set])
			    {
			      GEN_MOVar; GENCODE;
			      struct_union_field[set]--;
			    }
			  GEN_MOVap; GENCODE;
			}
		      if (NULL != type_com[set]->output->input)
			{
			  type_com[set] = type_com[set]->output->input;
			  type_ac[set] =
			    type_com[set]->attribute.arit_class;
			  aggr_offset = offset_aggregate_ident ();
			  GEN_PUSHAIi(aggr_offset); GENCODE;
			  
			  if (struct_union_field[set])
			    {
			      GEN_ADDi; GENCODE;
			      struct_union_field[set]--;
			    }
			  struct_union_field[set]++;
			  if (type_ac[set] == UNUSED_AC)
			    type_ac[set] = LONG_AC | INTEGER;
			}
		      else
			fprintfx (stderr, "FIXME:%d\n", __LINE__);
		    }
		  else
		    error_message (1021);
		;
    break;}
case 287:
#line 3969 "ys.y"
{
		  if (struct_union_field[set])
		    {
		      OFFSET_LAST_ADD;
		      GEN_MOVar; GENCODE;
		      variable[set].adr = NULL;
		      variable[set].offset = 0;
		    }
		  else if (POINTER_P(type_com[set]))
		    {
		      GEN_MOVvli; GENCODE;
		      GEN_XCHG; GENCODE;
		      GEN_MOVaa; GENCODE;
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_ADDli; GENCODE;
		      GEN_MOVli; GENCODE;
		      GEN_POPAe; GENCODE;
		      break;
		    }
		  if (! PUSHA_P && ! MOV_P)
		    error_message (1035, "increment");
		  
		  GEN_MOVv; GENCODE;
		  GEN_XCHG; GENCODE;
		  GEN_MOVaa; GENCODE;
		  GEN_PUSHAI(1); GENCODE;
		  GEN_ADD; GENCODE;
		  GEN_MOV; GENCODE;
		  GEN_POPAe; GENCODE;
		;
    break;}
case 288:
#line 4002 "ys.y"
{
		  if (struct_union_field[set])
		    {
		      OFFSET_LAST_ADD;
		      GEN_MOVar; GENCODE;
		      variable[set].adr = NULL;
		      variable[set].offset = 0;
		    }
		  else if (POINTER_P(type_com[set]))
		    {
		      GEN_MOVvli; GENCODE;
		      GEN_XCHG; GENCODE;
		      GEN_MOVaa; GENCODE;
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_SUBli; GENCODE;
		      GEN_MOVli; GENCODE;
		      GEN_POPAe; GENCODE;
		      break;
		    }
		  if (! PUSHA_P && ! MOV_P)
		    error_message (1035, "decrement");

		  GEN_MOVv; GENCODE;
		  GEN_XCHG; GENCODE;
		  GEN_MOVaa; GENCODE;
		  GEN_PUSHAI(1); GENCODE;
		  GEN_SUB; GENCODE;
		  GEN_MOV; GENCODE;
		  GEN_POPAe; GENCODE;
		;
    break;}
case 289:
#line 4038 "ys.y"
{
		  struct ident_tab *help;
		  text = proc_name_text[proc];
		  help = point (text);
		  if (NULL == help)
		    COMPILE_ONLY;
		  if (help->body)
		    proc_name[proc] = help->adr;
		  if (!num_args[proc])
		    num_args[proc] = get_num_args (help->type);
		  param_flag = 1;
			/*
			 * Internal types:
			 */
		  switch (type_com[set]->attribute.function_class)
		    {
		    case REMOTE_F:
		      GEN_PUSHf; GENCODE;
		      GEN_MOVfs; GENCODE;
		      /* type_com[set] =
			 help->type->output->attribute.export_type;*/
		      break;
		    default: /* FIXME: */
		      break;
		    }
		  call_fix[proc] = kodp; GEN_SUBss(0); GENCODE;
		;
    break;}
case 290:
#line 4066 "ys.y"
{
		  text = proc_name_text[proc];
		  if (num_args[proc] != 0)
		    if (num_args[proc] > args[proc])
		      error_message (2010);
		    else if (num_args[proc] < args[proc])
		      error_message (2011);
		  if (-1 == point_call (text))
		    COMPILE_ONLY;
		  if (LOCAL == type_com[set]->attribute.function_class)
		    {
		      GEN_CALL(proc_name[proc]); GENCODE;
		      GEN_ADDss(count[proc]); GENCODE;
		    }
		  else
		    {
		      GEN_XCALL; GENCODE;
		      GEN_MOVsf; GENCODE;
		      GEN_POPf; GENCODE;
		    }
		  ((struct OPERAND_1_i *)call_fix[proc])->num = count[proc];
		  count[proc] = 0;
#if 0
		  free (proc_name_text[proc--]);
#else
		  proc_name[proc] = NULL;
		  num_args[proc] = 0;
		  args[proc] = 0;
		  proc_name_text[proc--] = NULL;
#endif
		;
    break;}
case 291:
#line 4104 "ys.y"
{
		  switch (type_com[set]->attribute.function_class)
		    {
		    case POINTER:
		    case ENUM_FC:
		    case SIMPLE:
		      if (NULL != type_com[set]->field_name)
			{
			  OFFSET_LAST_ADD;
			  if (variable[set].offset != 0
			      || variable[set].adr != NULL)
			    {
			      GEN_MOVar; GENCODE;
			    }
			  kodp3 = kodp;
			}
		      break;
		    case ARRAY:
		      if (param_flag && !subscript_flag[set])
			{
			  kodp3 = kodp;
			  DELETE_SUBSCRIPT;
			}
		      break;
		    case STRUCT_FC: /* FIXME: */
		    case UNION_FC:
		      break;
		    case LOCAL:
		    case REMOTE_F:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000);
		      abort ();
		    }
		;
    break;}
case 292:
#line 4142 "ys.y"
{
		  if (is_address)
		    error_message (1022);
		  else
		    {
		      struct internal_type *arch;
		      kodp3 = kodp;
		      is_address = 1;
		      switch (type_com[set]->attribute.function_class)
			{
			case SIMPLE:
			case ARRAY:
			case STRUCT_FC:
			case UNION_FC:
			  if ((NULL != type_com[set]->field_name
			       || ARRAY_P(type_com[set])) &&
			      variable[set].adr == NULL
			      && variable[set].offset == 0)
			    {
			      GEN_ADDi; GENCODE;
			    }
			  if (variable[set].adr != NULL
			      || variable[set].offset != 0)
			    {
			      GEN_MOVpa; GENCODE;
			    }
			  arch = (struct internal_type *) 
			    allocate (sizeof(struct internal_type), 
				      scope_level > PERM ? BLOCK : PERM);
			  init_zero ((char *)arch,
				     sizeof(struct internal_type));
			  arch->attribute.function_class = POINTER;
			  arch->attribute.type_qualifier = UNDEF_TQ;
			  arch->attribute.memory_size = POINTER_SIZE;

			  if (ARRAY_P(type_com[set]))
			    arch->output = type_com[set]->output;
			  else
			    arch->output = type_com[set];
			  type_com[set] = arch;
			  type_ac[set] = INTEGER;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			  break;
			}
		    }
		;
    break;}
case 293:
#line 4193 "ys.y"
{
		  if (POINTER_P(type_com[set]))
		    {
		      type_com[set] = type_com[set]->output;
		      GEN_MOVap; GENCODE;
		      type_ac[set] = type_com[set]->attribute.arit_class;
		    }
		  else if (ARRAY_P(type_com[set]))
		    {
		      type_com[set] = type_com[set]->output;
		      type_ac[set] = type_com[set]->attribute.arit_class;
		    }
		  else
		    error_message (1029);
		;
    break;}
case 294:
#line 4210 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      type_com[set] = (struct internal_type *) 
			allocate (sizeof(struct internal_type), 
				  scope_level > PERM ? BLOCK : PERM);
		      init_zero ((char *)type_com[set],
				 sizeof(struct internal_type));
		      type_com[set]->attribute.function_class =
			SIMPLE;
		      type_com[set]->attribute.type_qualifier =
			UNDEF_TQ;
		      type_com[set]->attribute.arit_class =
			INTEGER;
		    }
		  kodp3 = kodp;
		  GEN_NEG;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 295:
#line 4232 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (1030);
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_NOT;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; type_ac[set] = INTEGER;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 296:
#line 4255 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (1032);
		;
    break;}
case 297:
#line 4261 "ys.y"
{
		  kodp3=kodp;
		  GEN_PUSHAI(0); GENCODE;
		;
    break;}
case 298:
#line 4266 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (1031);
		  GEN_SUB; GENCODE;
		;
    break;}
case 299:
#line 4274 "ys.y"
{
		  if (POINTER_P(type_com[set]))
		    {
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_ADDli;
		    }
		  else 
		    {
		      GEN_PUSHAI(1); GENCODE;
		      GEN_ADD;
		    }
		  GENCODE; kodp3 = kodp;
		  move2lvalue ();
		  SET_ADDRESS;
  		;
    break;}
case 300:
#line 4292 "ys.y"
{
		  if (POINTER_P(type_com[set]))
		    {
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_SUBli;
		    }
		  else 
		    {
		      GEN_PUSHAI(1); GENCODE;
		      GEN_SUB;
		    }
		  GENCODE; kodp3 = kodp;
		  move2lvalue ();
		  SET_ADDRESS;
		;
    break;}
case 301:
#line 4310 "ys.y"
{
		  if (NULL != kodp4)
		    {
		      kodp = kodp4;
		      kodp4 = NULL;
		    }
		  if (type_com[set]->attribute.memory_size)
		    {
		      GEN_PUSHAIi(type_com[set]->attribute.memory_size);
		      GENCODE;
		    }
		  else
		    error_message (1027);
		  type_ac[set] = INTEGER;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.memory_size = sizeof (int);
		;
    break;}
case 302:
#line 4334 "ys.y"
{
		  if (typeh[type_spec_count]->attribute.memory_size)
		    {
		      GEN_PUSHAIi(typeh[type_spec_count]->attribute.memory_size);
		      GENCODE;
		    }
		  else
		    error_message (1027);
		  type_ac[++set] = INTEGER;
		  type_com[set] = (struct internal_type *)
		    allocate (sizeof (struct internal_type), PERM);
		  init_zero ((char *)type_com[set],
			     sizeof(struct internal_type));
		  type_com[set]->attribute.function_class = SIMPLE;
		  type_com[set]->attribute.type_qualifier = CONST_TQ;
		  type_com[set]->attribute.memory_size = sizeof (int);
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 304:
#line 4357 "ys.y"
{
		  check_spec_constr (typeh[type_spec_count], "type name");
		  typeh[type_spec_count]->attribute.memory_size =
		    set_memory_size (typeh[type_spec_count]->attribute.arit_class);
		  switch (typeh[type_spec_count]->attribute.function_class)
		    {
		    case SIMPLE:
		      kodp3 = kodp;
		      switch (typeh[type_spec_count]->attribute.arit_class)
			{
			case INTEGER:
			  switch (type_ac[set])
			    {
			    case INTEGER:
			      break;
			    case DOUB:
			      GEN_CVTDI; GENCODE;
			      break;
			    case FLT:
			      GEN_CVTFI; GENCODE;
			      break;
			    case CHR:
			      GEN_CVTCIt; GENCODE;
			      break;
			    default:
			      error_message (1005);
			    }
			  type_ac[set] = INTEGER;
			  break;
			case DOUB:
			  switch (type_ac[set])
			    {
			    case INTEGER:
			      GEN_CVTIDt; GENCODE;
			      break;
			    case DOUB:
			      break;
			    case FLT:
			      GEN_CVTFDt; GENCODE;
			      break;
			    case CHR:
			      GEN_CVTCDt; GENCODE;
			      break;
			    default:
			      error_message (1005);
			    }
			  type_ac[set] = DOUB;
			  break;
			case FLT:
			  switch (type_ac[set])
			    {
			    case INTEGER:
			      GEN_CVTIFt; GENCODE;
			      break;
			    case DOUB:
			      GEN_CVTDF; GENCODE;
			      break;
			    case FLT:
			      break;
			    case CHR:
			      GEN_CVTCFt; GENCODE;
			      break;
			    default:
			      error_message (1005);
			    }
			  type_ac[set] = FLT;
			  break;
			case CHR:
			  switch (type_ac[set])
			    {
			    case INTEGER:
			      GEN_CVTIC; GENCODE;
			      break;
			    case DOUB:
			      GEN_CVTDC; GENCODE;
			      break;
			    case FLT:
			      GEN_CVTFC; GENCODE;
			      break;
			    case CHR:
			      break;
			    default:
			      error_message (1005);
			    }
			  type_ac[set] = CHR;
			  break;
			case VID:
			  switch (type_ac[set])
			    {
			      /* Here are no breaks between. */
			    case INTEGER:
			    case DOUB:
			    case CHR:
			    case VID:
			      break;
			    default:
			      error_message (1005);
			    }
			  type_ac[set] = VID;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n",
				    __FILE__, __LINE__);
			  error_message (5000); 
			  abort ();
			}
		      break;
		    case ARRAY:
		    case STRUCT_FC:
		    case UNION_FC:
		      error_message (1020);
		      break;
		    case POINTER:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5002);
		      abort ();
		    }
		  type_com[set] = typeh[type_spec_count];
		  typeh[type_spec_count--] = NULL;
		;
    break;}
case 306:
#line 4484 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "*");
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_MULT;
		  GENCODE;
		;
    break;}
case 307:
#line 4500 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "/");
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_DIV;
		  GENCODE;
		;
    break;}
case 308:
#line 4516 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "%");
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[--set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_MOD; GENCODE;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		    }
		  else 
		    error_message (1005);
	     	;
    break;}
case 310:
#line 4543 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		      type_com[set - 1] = type_com[set];
		    }
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    {
		      GEN_PUSHAIli(type_com[set - 1]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		    }
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_ADD;
		  GENCODE;
		;
    break;}
case 311:
#line 4569 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		      type_com[set - 1] = type_com[set];
		    }
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    {
		      GEN_PUSHAIli(type_com[set - 1]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		    }
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_SUB;
		  GENCODE;
		;
    break;}
case 313:
#line 4598 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "<<");
		  ERROR_P;
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[--set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_SAL;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__,
				    __LINE__); 
			  error_message (5000); return (0);
			}
		    }
		  else
		    error_message (1005);
		  GENCODE;
		;
    break;}
case 314:
#line 4625 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, ">>");
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[--set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_SAR;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		    }
		  else
		    error_message (1005);
		  GENCODE;
		;
    break;}
case 316:
#line 4653 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (6024, type_com[set],
				   type_com[set - 1]);
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    error_message (6024, type_com[set - 1],
				   type_com[set]);
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_LO;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 317:
#line 4672 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (6024, type_com[set],
				   type_com[set - 1]);
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    error_message (6024, type_com[set - 1],
				   type_com[set]);
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_GR;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 318:
#line 4691 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (6024, type_com[set],
				   type_com[set - 1]);
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    error_message (6024, type_com[set - 1],
				   type_com[set]);
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_LE;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 319:
#line 4710 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (6024, type_com[set],
				   type_com[set - 1]);
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    error_message (6024, type_com[set - 1],
				   type_com[set]);
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_GE;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 321:
#line 4732 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (6024, type_com[set],
				   type_com[set - 1]);
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    error_message (6024, type_com[set - 1],
				   type_com[set]);
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_EQ;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 322:
#line 4751 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    error_message (6024, type_com[set],
				   type_com[set - 1]);
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    error_message (6024, type_com[set - 1],
				   type_com[set]);
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_NE;
		  GENCODE; type_ac[set] = INTEGER;
		;
    break;}
case 324:
#line 4777 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "&");
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[--set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_ANDB;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		    }
		  else
		    error_message (1005);
		  GENCODE;
		;
    break;}
case 326:
#line 4805 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "^");
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[--set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_XOR;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		    }
		  else
		    error_message (1005);
		  GENCODE;
		;
    break;}
case 328:
#line 4833 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "|");
		  if (INTEGER == type_ac[set])
		    {
		      switch (type_ac[--set])
			{
			case INTEGER:
			  kodp3 = kodp;
			  GEN_ORB;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		    }
		  else
		    error_message (1005);
		  GENCODE;
		;
    break;}
case 330:
#line 4861 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      type_com[set] = (struct internal_type *) 
			allocate (sizeof(struct internal_type), 
				  scope_level > PERM ? BLOCK : PERM);
		      init_zero ((char *)type_com[set],
				 sizeof(struct internal_type));
		      type_com[set]->attribute.function_class =
			SIMPLE;
		      type_com[set]->attribute.type_qualifier =
			UNDEF_TQ;
		      type_com[set]->attribute.arit_class =
			LONG_AC | INTEGER;
		    }
		  GEN_MOVaa; GENCODE;
		  and_jmp[set] = kodp;
		  GEN_JZ; GENCODE;
		;
    break;}
case 331:
#line 4882 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      type_com[set] = (struct internal_type *) 
			allocate (sizeof(struct internal_type), 
				  scope_level > PERM ? BLOCK : PERM);
		      init_zero ((char *)type_com[set],
				 sizeof(struct internal_type));
		      type_com[set]->attribute.function_class =
			SIMPLE;
		      type_com[set]->attribute.type_qualifier =
			UNDEF_TQ;
		      type_com[set]->attribute.arit_class =
			LONG_AC | INTEGER;
		    }
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_AND;
		  GENCODE; type_ac[set] = INTEGER;
		  ((struct OPERAND_1_ma *)and_jmp[set])->adr = kodp;
		;
    break;}
case 333:
#line 4912 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      type_com[set] = (struct internal_type *) 
			allocate (sizeof(struct internal_type), 
				  scope_level > PERM ? BLOCK : PERM);
		      init_zero ((char *)type_com[set],
				 sizeof(struct internal_type));
		      type_com[set]->attribute.function_class =
			SIMPLE;
		      type_com[set]->attribute.type_qualifier =
			UNDEF_TQ;
		      type_com[set]->attribute.arit_class =
			LONG_AC | INTEGER;
		    }
		  GEN_MOVaa; GENCODE;
		  or_jmp[set] = kodp;
		  GEN_JNZ; GENCODE;
		;
    break;}
case 334:
#line 4933 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      type_com[set] = (struct internal_type *) 
			allocate (sizeof(struct internal_type), 
				  scope_level > PERM ? BLOCK : PERM);
		      init_zero ((char *)type_com[set],
				 sizeof(struct internal_type));
		      type_com[set]->attribute.function_class =
			SIMPLE;
		      type_com[set]->attribute.type_qualifier =
			UNDEF_TQ;
		      type_com[set]->attribute.arit_class =
			LONG_AC | INTEGER;
		    }
		  if (-1 == implicit_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = kodp;
		  GEN_OR;
		  GENCODE; type_ac[set] = INTEGER;
		  ((struct OPERAND_1_ma *)or_jmp[set])->adr = kodp;
		;
    break;}
case 336:
#line 4964 "ys.y"
{
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  kodp3 = NULL; GEN_CLRT; GENCODE; fixp++;
#ifdef DEBUG
		  printfx ("fixp=%u\n",fixp);
#endif
		  fixp->if1.major = IF;
		  fixp->if1.jz = kodp;
		  GEN_JZ; GENCODE;
		;
    break;}
case 337:
#line 4976 "ys.y"
{
		  fixp->if1.jmp = kodp;
		  GEN_JMP; GENCODE;
		  ((struct OPERAND_1_ma *)(fixp->if1.jz))->adr = kodp;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		;
    break;}
case 338:
#line 4984 "ys.y"
{
		  ((struct OPERAND_1_ma *)(fixp->if1.jmp))->adr =
		    kodp; 
		  fixp--;
		;
    break;}
case 340:
#line 4998 "ys.y"
{
		  if (POPA_P)
		    error_message (1034);
		  set_value (variable[set].name);
		  switch (type_com[set]->attribute.function_class)
		    {
		    case SIMPLE:
		    case ARRAY:
		    case STRUCT_FC:
		    case ENUM_FC:
		    case POINTER:
		    case UNION_FC:
		      break;
		    case LOCAL:
		    case REMOTE_F:
		      error_message (1034);
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); return (0);
		    }
		;
    break;}
case 341:
#line 5021 "ys.y"
{
		  if (-1 == l_value_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  move2lvalue ();
		  SET_ADDRESS;
		;
    break;}
case 343:
#line 5037 "ys.y"
{
				/* The lvalue just parsed is array,
				   structure or union. We need the
				   offset of the field twice. Once for
				   lvalue and MOV instruction and once
				   for right side value. (if there is
				   a side effect in lvalue expression
				   it is evaluated only once as the
				   semantic should be (ANSI)) */
		  GEN_MOVaa; GENCODE;
		;
    break;}
case 344:
#line 5053 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "*");
		  if (-1 == l_value_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  GEN_MULT;
		  GENCODE; kodp3 = kodp;
		  move2lvalue ();
		  SET_ADDRESS;
		;
    break;}
case 345:
#line 5070 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "/");
		  if (-1 == l_value_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  GEN_DIV;
		  GENCODE; kodp3 = kodp;
		  move2lvalue ();
		  SET_ADDRESS;
		;
    break;}
case 346:
#line 5087 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "%");
		  if (INTEGER == type_ac[set])
		    {
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      switch (type_ac[set])
			{
			case INTEGER:
			  GEN_MOD;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; kodp3 = kodp;
		      move2lvalue ();
		      SET_ADDRESS;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 347:
#line 5115 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		      type_com[set - 1] = type_com[set];
		    }
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    {
		      GEN_PUSHAIli(type_com[set - 1]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		      type_com[set] = type_com[set - 1];
		    }
		  if (-1 == l_value_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  GEN_ADD;
		  GENCODE; kodp3 = kodp;
		  move2lvalue ();
		  SET_ADDRESS;
		;
    break;}
case 348:
#line 5143 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]))
		    {
		      GEN_PUSHAIli(type_com[set]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		      type_com[set - 1] = type_com[set];
		    }
		  else if (POINTER_P(type_com[set - 1]) ||
			   ARRAY_P(type_com[set - 1]))
		    {
		      GEN_PUSHAIli(type_com[set - 1]->output->attribute.memory_size);
		      GENCODE;
		      GEN_MULTli; GENCODE;
		      type_com[set] = type_com[set - 1];
		    }
		  if (-1 == l_value_cast ())
		    COMPILE_ONLY;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		  GEN_SUB;
		  GENCODE; kodp3 = kodp;
		  move2lvalue ();
		  SET_ADDRESS;
		;
    break;}
case 349:
#line 5171 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "<<");
		  if (INTEGER == type_ac[set])
		    {
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      switch (type_ac[set])
			{
			case INTEGER:
			  GEN_SAL;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; kodp3 = kodp;
		      move2lvalue ();
		      SET_ADDRESS;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 350:
#line 5199 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, ">>");
		  if (INTEGER == type_ac[set])
		    {
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      switch (type_ac[set])
			{
			case INTEGER:
			  GEN_SAR;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; kodp3 = kodp;
		      move2lvalue ();
		      SET_ADDRESS;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 351:
#line 5227 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "&");
		  ERROR_P;
		  if (INTEGER == type_ac[set])
		    {
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      switch (type_ac[set])
			{
			case INTEGER:
			  GEN_ANDB;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; kodp3 = kodp;
		      move2lvalue ();
		      SET_ADDRESS;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 352:
#line 5256 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "^");
		  ERROR_P;
		  if (INTEGER == type_ac[set])
		    {
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      switch (type_ac[set])
			{
			case INTEGER:
			  GEN_XOR;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; kodp3 = kodp;
		      move2lvalue ();
		      SET_ADDRESS;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 353:
#line 5285 "ys.y"
{
		  if (POINTER_P(type_com[set]) ||
		      ARRAY_P(type_com[set]) ||
		      POINTER_P(type_com[set - 1]) ||
		      ARRAY_P(type_com[set - 1]))
		    error_message (1033, "|");
		  ERROR_P;
		  if (INTEGER == type_ac[set])
		    {
		      SET_ADDRESS;
		      TYPE_CLEAR;
		      switch (type_ac[set])
			{
			case INTEGER:
			  GEN_ORB;
			  break;
			default:
			  fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
			  error_message (5000); return (0);
			}
		      GENCODE; kodp3 = kodp;
		      move2lvalue ();
		      SET_ADDRESS;
		    }
		  else
		    error_message (1005);
		;
    break;}
case 355:
#line 5318 "ys.y"
{
#if 0
		  /* Exact copy of the top level expression. Now it is
		     left-hand operand of comma expression for warning*/
		  if (! LOCAL_P(type_com[set]) &&
		      ! REMOTE_P(type_com[set]) &&
		      ! MOV_P && ! POPA_P)
		    error_message (6027);
#else
		  if (! MOV_P)
		    error_message (6029);
#endif		  
		  switch (type_ac[set])
		    {
		      /* No breaks here. */
		    case INTEGER:
		    case SIGNED_AC | INTEGER:
		    case UNSIGNED_AC | INTEGER:
		    case LONG_AC | INTEGER:
		    case LONG_AC | SIGNED_AC | INTEGER:
		    case LONG_AC | UNSIGNED_AC | INTEGER:
		    case SHORT_AC | INTEGER:
		    case SHORT_AC | SIGNED_AC | INTEGER:
		    case SHORT_AC | UNSIGNED_AC | INTEGER:
		    case DOUB:
		    case LONG_AC | DOUB:
		    case FLT:
		    case CHR:
		    case SIGNED_AC | CHR:
		    case UNSIGNED_AC | CHR:
		      GEN_POPAe; GENCODE;
		      break;
		    case VID:
		      break;
		    default:
		      fprintfx (stderr, "%s:%d:\n", __FILE__, __LINE__);
		      error_message (5000); return (0);
		    }
		  kodp3 = NULL;
		  is_address = 0;
		  SET_ADDRESS;
		  TYPE_CLEAR;
		;
    break;}
}
   /* the action file gets copied in in place of this dollarsign */
#line 543 "/usr/share/misc/bison.simple"

  yyvsp -= yylen;
  yyssp -= yylen;
#ifdef YYLSP_NEEDED
  yylsp -= yylen;
#endif

#if YYDEBUG != 0
  if (yydebug)
    {
      short *ssp1 = yyss - 1;
      fprintf (stderr, "state stack now");
      while (ssp1 != yyssp)
	fprintf (stderr, " %d", *++ssp1);
      fprintf (stderr, "\n");
    }
#endif

  *++yyvsp = yyval;

#ifdef YYLSP_NEEDED
  yylsp++;
  if (yylen == 0)
    {
      yylsp->first_line = yylloc.first_line;
      yylsp->first_column = yylloc.first_column;
      yylsp->last_line = (yylsp-1)->last_line;
      yylsp->last_column = (yylsp-1)->last_column;
      yylsp->text = 0;
    }
  else
    {
      yylsp->last_line = (yylsp+yylen-1)->last_line;
      yylsp->last_column = (yylsp+yylen-1)->last_column;
    }
#endif

  /* Now "shift" the result of the reduction.
     Determine what state that goes to,
     based on the state we popped back to
     and the rule number reduced by.  */

  yyn = yyr1[yyn];

  yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
    yystate = yytable[yystate];
  else
    yystate = yydefgoto[yyn - YYNTBASE];

  goto yynewstate;

yyerrlab:   /* here on detecting error */

  if (! yyerrstatus)
    /* If not already recovering from an error, report this error.  */
    {
      ++yynerrs;

#ifdef YYERROR_VERBOSE
      yyn = yypact[yystate];

      if (yyn > YYFLAG && yyn < YYLAST)
	{
	  int size = 0;
	  char *msg;
	  int x, count;

	  count = 0;
	  /* Start X at -yyn if nec to avoid negative indexes in yycheck.  */
	  for (x = (yyn < 0 ? -yyn : 0);
	       x < (sizeof(yytname) / sizeof(char *)); x++)
	    if (yycheck[x + yyn] == x)
	      size += strlen(yytname[x]) + 15, count++;
	  msg = (char *) malloc(size + 15);
	  if (msg != 0)
	    {
	      strcpy(msg, "parse error");

	      if (count < 5)
		{
		  count = 0;
		  for (x = (yyn < 0 ? -yyn : 0);
		       x < (sizeof(yytname) / sizeof(char *)); x++)
		    if (yycheck[x + yyn] == x)
		      {
			strcat(msg, count == 0 ? ", expecting `" : " or `");
			strcat(msg, yytname[x]);
			strcat(msg, "'");
			count++;
		      }
		}
	      yyerror(msg);
	      free(msg);
	    }
	  else
	    yyerror ("parse error; also virtual memory exceeded");
	}
      else
#endif /* YYERROR_VERBOSE */
	yyerror("parse error");
    }

  goto yyerrlab1;
yyerrlab1:   /* here on error raised explicitly by an action */

  if (yyerrstatus == 3)
    {
      /* if just tried and failed to reuse lookahead token after an error, discard it.  */

      /* return failure if at end of input */
      if (yychar == YYEOF)
	YYABORT;

#if YYDEBUG != 0
      if (yydebug)
	fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
#endif

      yychar = YYEMPTY;
    }

  /* Else will try to reuse lookahead token
     after shifting the error token.  */

  yyerrstatus = 3;		/* Each real token shifted decrements this */

  goto yyerrhandle;

yyerrdefault:  /* current state does not do anything special for the error token. */

#if 0
  /* This is wrong; only states that explicitly want error tokens
     should shift them.  */
  yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  if (yyn) goto yydefault;
#endif

yyerrpop:   /* pop the current state because it cannot handle the error token */

  if (yyssp == yyss) YYABORT;
  yyvsp--;
  yystate = *--yyssp;
#ifdef YYLSP_NEEDED
  yylsp--;
#endif

#if YYDEBUG != 0
  if (yydebug)
    {
      short *ssp1 = yyss - 1;
      fprintf (stderr, "Error: state stack now");
      while (ssp1 != yyssp)
	fprintf (stderr, " %d", *++ssp1);
      fprintf (stderr, "\n");
    }
#endif

yyerrhandle:

  yyn = yypact[yystate];
  if (yyn == YYFLAG)
    goto yyerrdefault;

  yyn += YYTERROR;
  if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
    goto yyerrdefault;

  yyn = yytable[yyn];
  if (yyn < 0)
    {
      if (yyn == YYFLAG)
	goto yyerrpop;
      yyn = -yyn;
      goto yyreduce;
    }
  else if (yyn == 0)
    goto yyerrpop;

  if (yyn == YYFINAL)
    YYACCEPT;

#if YYDEBUG != 0
  if (yydebug)
    fprintf(stderr, "Shifting error token, ");
#endif

  *++yyvsp = yylval;
#ifdef YYLSP_NEEDED
  *++yylsp = yylloc;
#endif

  yystate = yyn;
  goto yynewstate;

 yyacceptlab:
  /* YYACCEPT comes here.  */
  if (yyfree_stacks)
    {
      free (yyss);
      free (yyvs);
#ifdef YYLSP_NEEDED
      free (yyls);
#endif
    }
  return 0;

 yyabortlab:
  /* YYABORT comes here.  */
  if (yyfree_stacks)
    {
      free (yyss);
      free (yyvs);
#ifdef YYLSP_NEEDED
      free (yyls);
#endif
    }
  return 1;
}
#line 5370 "ys.y"
    
void
dump_yacc ()
{
#if YYDEBUG
  yydebug = 1;
#else
  fprintfx (stderr, "YYDEBUG not defined\n");
#endif
}
