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