** Generate a warning from an error message */
| 425 | ** Generate a warning from an error message |
| 426 | */ |
| 427 | void luaE_warnerror (lua_State *L, const char *where) { |
| 428 | TValue *errobj = s2v(L->top - 1); /* error object */ |
| 429 | const char *msg = (ttisstring(errobj)) |
| 430 | ? svalue(errobj) |
| 431 | : "error object is not a string"; |
| 432 | /* produce warning "error in %s (%s)" (where, msg) */ |
| 433 | luaE_warning(L, "error in ", 1); |
| 434 | luaE_warning(L, where, 1); |
| 435 | luaE_warning(L, " (", 1); |
| 436 | luaE_warning(L, msg, 1); |
| 437 | luaE_warning(L, ")", 0); |
| 438 | } |
| 439 |