ruby-104/ruby/parse.c

398 #define lvtbl			(parser->parser_lvtbl)
15144 	    vtable_add(lvtbl->vars, name);
15145 	    if (lvtbl->used) {
15146 		vtable_add(lvtbl->used, (ID)ruby_sourceline | LVAR_USED);
16029     local->prev = lvtbl;
16037     lvtbl = local;
16043     struct local_vars *local = lvtbl->prev;
16044     if (lvtbl->used) {
16045 	warn_unused_var(parser, lvtbl);
16046 	vtable_free(lvtbl->used);
16048     vtable_free(lvtbl->args);
16049     vtable_free(lvtbl->vars);
16050     cmdarg_stack = lvtbl->cmdargs;
16051     xfree(lvtbl);
16052     lvtbl = local;
16074     int cnt = vtable_size(lvtbl->args) + vtable_size(lvtbl->vars);
16079     vtable_tblcpy(buf+1, lvtbl->args);
16080     vtable_tblcpy(buf+vtable_size(lvtbl->args)+1, lvtbl->vars);
16089     vtable_add(lvtbl->args, id);
16090     return vtable_size(lvtbl->args) - 1;
16096     vtable_add(lvtbl->vars, id);
16097     if (lvtbl->used) {
16098 	vtable_add(lvtbl->used, (ID)ruby_sourceline);
16100     return vtable_size(lvtbl->vars) - 1;
16108     vars = lvtbl->vars;
16109     args = lvtbl->args;
16110     used = lvtbl->used;
16134     lvtbl->args = vtable_alloc(lvtbl->args);
16135     lvtbl->vars = vtable_alloc(lvtbl->vars);
16136     if (lvtbl->used) {
16137 	lvtbl->used = vtable_alloc(lvtbl->used);
16139     return lvtbl->args;
16147     if ((tmp = lvtbl->used) != 0) {
16148 	warn_unused_var(parser, lvtbl);
16149 	lvtbl->used = lvtbl->used->prev;
16152     tmp = lvtbl->args;
16153     lvtbl->args = lvtbl->args->prev;
16155     tmp = lvtbl->vars;
16156     lvtbl->vars = lvtbl->vars->prev;
16163     while (lvtbl->args != lvargs) {
16165 	if (!lvtbl->args) {
16166 	    struct local_vars *local = lvtbl->prev;
16167 	    xfree(lvtbl);
16168 	    lvtbl = local;
16177     return POINTER_P(lvtbl->vars) && lvtbl->vars->prev != DVARS_TOPSCOPE;
16186     args = lvtbl->args;
16187     vars = lvtbl->vars;
16188     used = lvtbl->used;
16214     return (vtable_included(lvtbl->args, id) ||
16215 	    vtable_included(lvtbl->vars, id));
16560     ID id = (ID)vtable_size(lvtbl->args) + (ID)vtable_size(lvtbl->vars);