| 514 | |
| 515 | |
| 516 | static const char *getupvalname (CallInfo *ci, const TValue *o, |
| 517 | const char **name) { |
| 518 | LClosure *c = ci_func(ci); |
| 519 | int i; |
| 520 | for (i = 0; i < c->nupvalues; i++) { |
| 521 | if (c->upvals[i]->v == o) { |
| 522 | *name = upvalname(c->p, i); |
| 523 | return "upvalue"; |
| 524 | } |
| 525 | } |
| 526 | return NULL; |
| 527 | } |
| 528 | |
| 529 | |
| 530 | l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *op) { |
no test coverage detected