typedef long * yy;
#define yyu 2147483647L
static yy yynull;
extern yy yyh;
extern yy yyhx;
static yyErr(n,l)
{
yyAbort(n,"code", l);
}
extern yy yyglov_GentleFlag;
extern yy yyglov_NontermList;
extern yy yyglov_PreludeBlock;
fix_code()
{
{
yy yyb;
yy yy_2_1;
yy yy_4_1;
yy yy_6_1;
yy yy_8_1_1;
yy yy_8_1_2_1;
yy yy_8_2_1_1;
yy yy_8_2_3_1;
yy yy_9_1;
yy yy_11_1;
yy yy_13_1;
yy yy_15_1;
yy yy_17_1;
yy yy_19_1;
yy yy_21_1;
yy yy_23_1;
yy yy_25_1;
yy yy_27_1;
yy yy_29_1;
yy yy_31_1;
yy yy_33_1;
yy yy_35_1;
yy yy_37_1;
yy yy_39_1;
yy yy_41_1;
yy yy_43_1;
yy yy_45_1;
yy yy_47_1;
yy yy_49_1;
yy yy_51_1;
yy yy_53_1;
yy yy_55_1;
yy yy_57_1;
yy yy_59_1;
yy yy_61_1;
yy yy_63_1;
yy yy_65_1;
yy yy_67_1;
yy yy_69_1;
yy yy_71_1;
yy yy_73_1;
yy yy_75_1;
yy yy_77_1;
yy yy_79_1;
yy yy_81_1;
yy yy_83_1;
yy yy_85_1;
yy yy_87_1;
yy yy_89_1;
yy yy_91_1;
yy yy_93_1;
yy yy_95_1;
yy yy_97_1;
yy yy_99_1;
yy yy_101_1;
Nl();
yy_2_1 = ((yy)"extern YYSTYPE yylval;");
Put(yy_2_1);
Nl();
yy_4_1 = ((yy)"YYSTYPE yylval;");
Put(yy_4_1);
Nl();
yy_6_1 = ((yy)"extern long yypos;");
Put(yy_6_1);
Nl();
yy_6_1 = ((yy)"#if defined(DELPHI)");Put(yy_6_1);Nl();  //CO3
yy_6_1 = ((yy)" void *co3malloc(long); ");Put(yy_6_1);Nl();  //CO3
yy_6_1 = ((yy)"#else");Put(yy_6_1);Nl();  //CO3
yy_6_1 = ((yy)" #define co3malloc(x) malloc(x)");Put(yy_6_1);Nl();  //CO3
yy_6_1 = ((yy)"#endif");Put(yy_6_1);Nl();  //CO3
{
yy yysb = yyb;
yy_8_1_1 = yyglov_GentleFlag;
if (yy_8_1_1 == (yy) yyu) yyErr(1,41);
if (yy_8_1_1[0] != 1) goto yyfl_3_1_8_1;
yy_8_1_2_1 = ((yy)"/* GentleFlag = yes */");
Put(yy_8_1_2_1);
Nl();
goto yysl_3_1_8;
yyfl_3_1_8_1 : ;
yy_8_2_1_1 = ((yy)"long yypos = 1;");
Put(yy_8_2_1_1);
Nl();
yy_8_2_3_1 = ((yy)"/* GentleFlag = no */");
Put(yy_8_2_3_1);
Nl();
goto yysl_3_1_8;
yysl_3_1_8 : ;
yyb = yysb;
}
yy_9_1 = ((yy)"");
Put(yy_9_1);
Nl();
yy_11_1 = ((yy)"typedef struct LEXELEMSTRUCT {");
Put(yy_11_1);
Nl();
yy_13_1 = ((yy)"   YYSTYPE val;");
Put(yy_13_1);
Nl();
yy_15_1 = ((yy)"   long pos;");
Put(yy_15_1);
Nl();
yy_17_1 = ((yy)"   long sym;");
Put(yy_17_1);
Nl();
yy_19_1 = ((yy)"   char * text;");
Put(yy_19_1);
Nl();
yy_21_1 = ((yy)"   struct LEXELEMSTRUCT *next;");
Put(yy_21_1);
Nl();
yy_23_1 = ((yy)"} LEXELEM;");
Put(yy_23_1);
Nl();
yy_25_1 = ((yy)"   ");
Put(yy_25_1);
Nl();
yy_27_1 = ((yy)"LEXELEM *first_lexelem, *cur_lexelem;");
Put(yy_27_1);
Nl();
yy_29_1 = ((yy)"");
Put(yy_29_1);
Nl();
yy_31_1 = ((yy)"void init_lexelem(void)");   //CO3
Put(yy_31_1);
Nl();
yy_33_1 = ((yy)"{");
Put(yy_33_1);
Nl();
yy_35_1 = ((yy)"   cur_lexelem = first_lexelem;");
Put(yy_35_1);
Nl();
yy_37_1 = ((yy)"}");
Put(yy_37_1);
Nl();
yy_39_1 = ((yy)"");
Put(yy_39_1);
Nl();
yy_41_1 = ((yy)"void first_lexval (void) {");   //CO3
Put(yy_41_1);
Nl();
yy_43_1 = ((yy)"   LEXELEM *p;");
Put(yy_43_1);
Nl();
yy_45_1 = ((yy)"   p = (LEXELEM *)co3malloc(sizeof(LEXELEM));");      //CO3
Put(yy_45_1);
Nl();
yy_47_1 = ((yy)"   if (! p) yymallocerror();");
Put(yy_47_1);
Nl();
yy_49_1 = ((yy)"   p->val = yylval;");
Put(yy_49_1);
Nl();
yy_51_1 = ((yy)"   p->pos = yypos;");
Put(yy_51_1);
Nl();
yy_53_1 = ((yy)"   p->next = 0;");
Put(yy_53_1);
Nl();
yy_55_1 = ((yy)"   cur_lexelem = p;");
Put(yy_55_1);
Nl();
yy_57_1 = ((yy)"   first_lexelem = p;");
Put(yy_57_1);
Nl();
yy_59_1 = ((yy)"}");
Put(yy_59_1);
Nl();
yy_61_1 = ((yy)"");
Put(yy_61_1);
Nl();
yy_63_1 = ((yy)"void next_lexval(void) {");    //CO3
Put(yy_63_1);
Nl();
yy_65_1 = ((yy)"   LEXELEM *p;");
Put(yy_65_1);
Nl();
yy_67_1 = ((yy)"   p = (LEXELEM *)co3malloc(sizeof(LEXELEM));");  // CO3
Put(yy_67_1);
Nl();
yy_69_1 = ((yy)"   if (! p) yymallocerror();");
Put(yy_69_1);
Nl();
yy_71_1 = ((yy)"   cur_lexelem-> next = p;");
Put(yy_71_1);
Nl();
yy_73_1 = ((yy)"   p->val = yylval;");
Put(yy_73_1);
Nl();
yy_75_1 = ((yy)"   p->pos = yypos;");
Put(yy_75_1);
Nl();
yy_77_1 = ((yy)"   p->next = 0;");
Put(yy_77_1);
Nl();
yy_79_1 = ((yy)"   cur_lexelem = p;");
Put(yy_79_1);
Nl();
yy_81_1 = ((yy)"}");
Put(yy_81_1);
Nl();
yy_83_1 = ((yy)"");
Put(yy_83_1);
Nl();
yy_85_1 = ((yy)"void get_lexval(void) {");       //CO3
Put(yy_85_1);
Nl();
yy_87_1 = ((yy)"   extern int FREE_LEXELEMS;");
Put(yy_87_1);
Nl();
yy_89_1 = ((yy)"   LEXELEM *p;");
Put(yy_89_1);
Nl();
yy_91_1 = ((yy)"   yylval = cur_lexelem->val;");
Put(yy_91_1);
Nl();
yy_93_1 = ((yy)"   yypos = cur_lexelem->pos;");
Put(yy_93_1);
Nl();
yy_95_1 = ((yy)"   p = cur_lexelem;");
Put(yy_95_1);
Nl();
yy_97_1 = ((yy)"   cur_lexelem = cur_lexelem->next;");
Put(yy_97_1);
Nl();
yy_99_1 = ((yy)"   free(p);");
Put(yy_99_1);
Nl();
yy_101_1 = ((yy)"}");
Put(yy_101_1);
Nl();
Nl();
return;
}
}