** Generate a warning from an error message */
| 447 | ** Generate a warning from an error message |
| 448 | */ |
| 449 | void luaE_warnerror (lua_State *L, const char *where) { |
| 450 | TValue *errobj = s2v(L->top - 1); /* error object */ |
| 451 | const char *msg = (ttisstring(errobj)) |
| 452 | ? svalue(errobj) |
| 453 | : "error object is not a string"; |
| 454 | /* produce warning "error in %s (%s)" (where, msg) */ |
| 455 | luaE_warning(L, "error in ", 1); |
| 456 | luaE_warning(L, where, 1); |
| 457 | luaE_warning(L, " (", 1); |
| 458 | luaE_warning(L, msg, 1); |
| 459 | luaE_warning(L, ")", 0); |
| 460 | } |
| 461 |
no test coverage detected