** generates an error for an undefined 'goto'. */
| 638 | ** generates an error for an undefined 'goto'. |
| 639 | */ |
| 640 | static l_noret undefgoto (LexState *ls, Labeldesc *gt) { |
| 641 | const char *msg; |
| 642 | if (eqstr(gt->name, luaS_newliteral(ls->L, "break"))) { |
| 643 | msg = "break outside loop at line %d"; |
| 644 | msg = luaO_pushfstring(ls->L, msg, gt->line); |
| 645 | } |
| 646 | else { |
| 647 | msg = "no visible label '%s' for <goto> at line %d"; |
| 648 | msg = luaO_pushfstring(ls->L, msg, getstr(gt->name), gt->line); |
| 649 | } |
| 650 | luaK_semerror(ls, msg); |
| 651 | } |
| 652 | |
| 653 | |
| 654 | static void leaveblock (FuncState *fs) { |
no test coverage detected