/* Stack-based class handler */
#define yyclass(CS) (*(CS->csp))
#define yyclassld(CS) (ir_classld_from_class(yyclass(CS)))
- #define DEFAULT_VARIANT "default"
+ #define DEFAULT_VARIANT (uint8_t*)"default"
}
%define parse.error verbose
%define parse.lac full
NAME CLOPEN { yyclass_push(cs,ir_class_addchild(yyclass(cs), $1)); }
progn
CLCLOSE { yyclass_pop(cs); }
-| CLCLOSE { yyclass_pop(cs); }
;
statement_list:
)
{ ir_class* iter;
fprintf(stderr, "[class->");
- for (iter = cs->class_stack; iter < cs->csp; iter++)
+ for (iter = cs->class_stack; iter <= cs->csp; iter++)
fprintf(stderr, "%s/", ir_class_name(*iter));
+ if (strstr(s,"unexpected CLCLOSE") != NULL)
+ yyclass_pop(cs);
fprintf(stderr, "]\n\t");
fprintf(stderr, "%s\n", s);
}
static inline
ir_class yyclass_pop
( yycstate* cs )
-{ cs->csp--;
- return *(cs->csp + 1);
-}
+{ return *cs->csp--; }
static inline
ir_class yyclass_push