| 500 | |
| 501 | |
| 502 | static const char *getobjname (lua_State *L, CallInfo *ci, int stackpos, |
| 503 | const char **name) { |
| 504 | if (isLua(ci)) { /* a Lua function? */ |
| 505 | Proto *p = ci_func(ci)->l.p; |
| 506 | int pc = currentpc(L, ci); |
| 507 | Instruction i; |
| 508 | *name = luaF_getlocalname(p, stackpos+1, pc); |
| 509 | if (*name) /* is a local? */ |
| 510 | return "local"; |
| 511 | i = symbexec(p, pc, stackpos); /* try symbolic execution */ |
| 512 | lua_assert(pc != -1); |
| 513 | switch (GET_OPCODE(i)) { |
| 514 | case OP_GETGLOBAL: { |
| 515 | int g = GETARG_Bx(i); /* global index */ |
| 516 | lua_assert(ttisstring(&p->k[g])); |
| 517 | *name = svalue(&p->k[g]); |
| 518 | return "global"; |
| 519 | } |
| 520 | case OP_MOVE: { |
| 521 | int a = GETARG_A(i); |
| 522 | int b = GETARG_B(i); /* move from `b' to `a' */ |
| 523 | if (b < a) |
| 524 | return getobjname(L, ci, b, name); /* get name for `b' */ |
| 525 | break; |
| 526 | } |
| 527 | case OP_GETTABLE: { |
| 528 | int k = GETARG_C(i); /* key index */ |
| 529 | *name = kname(p, k); |
| 530 | return "field"; |
| 531 | } |
| 532 | case OP_GETUPVAL: { |
| 533 | int u = GETARG_B(i); /* upvalue index */ |
| 534 | *name = p->upvalues ? getstr(p->upvalues[u]) : "?"; |
| 535 | return "upvalue"; |
| 536 | } |
| 537 | case OP_SELF: { |
| 538 | int k = GETARG_C(i); /* key index */ |
| 539 | *name = kname(p, k); |
| 540 | return "method"; |
| 541 | } |
| 542 | default: break; |
| 543 | } |
| 544 | } |
| 545 | return NULL; /* no useful name found */ |
| 546 | } |
| 547 | |
| 548 | |
| 549 | static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { |
no test coverage detected