** find a "name" for the RK value 'c' */
| 353 | ** find a "name" for the RK value 'c' |
| 354 | */ |
| 355 | static void kname (Proto *p, int pc, int c, const char **name) { |
| 356 | if (ISK(c)) { /* is 'c' a constant? */ |
| 357 | TValue *kvalue = &p->k[INDEXK(c)]; |
| 358 | if (ttisstring(kvalue)) { /* literal constant? */ |
| 359 | *name = svalue(kvalue); /* it is its own name */ |
| 360 | return; |
| 361 | } |
| 362 | /* else no reasonable name found */ |
| 363 | } |
| 364 | else { /* 'c' is a register */ |
| 365 | const char *what = getobjname(p, pc, c, name); /* search for 'c' */ |
| 366 | if (what && *what == 'c') { /* found a constant name? */ |
| 367 | return; /* 'name' already filled */ |
| 368 | } |
| 369 | /* else no reasonable name found */ |
| 370 | } |
| 371 | *name = "?"; /* no reasonable name found */ |
| 372 | } |
| 373 | |
| 374 | |
| 375 | static int filterpc (int pc, int jmptarget) { |
no test coverage detected