** Generate a warning from an error message */
| 406 | ** Generate a warning from an error message |
| 407 | */ |
| 408 | void luaE_warnerror (lua_State *L, const char *where) { |
| 409 | TValue *errobj = s2v(L->top.p - 1); /* error object */ |
| 410 | const char *msg = (ttisstring(errobj)) |
| 411 | ? getstr(tsvalue(errobj)) |
| 412 | : "error object is not a string"; |
| 413 | /* produce warning "error in %s (%s)" (where, msg) */ |
| 414 | luaE_warning(L, "error in ", 1); |
| 415 | luaE_warning(L, where, 1); |
| 416 | luaE_warning(L, " (", 1); |
| 417 | luaE_warning(L, msg, 1); |
| 418 | luaE_warning(L, ")", 0); |
| 419 | } |
| 420 |