| 1181 | |
| 1182 | |
| 1183 | static void gotostat (LexState *ls, int pc) { |
| 1184 | int line = ls->linenumber; |
| 1185 | TString *label; |
| 1186 | int g; |
| 1187 | if (testnext(ls, TK_GOTO)) |
| 1188 | label = str_checkname(ls); |
| 1189 | else { |
| 1190 | luaX_next(ls); /* skip break */ |
| 1191 | label = luaS_new(ls->L, "break"); |
| 1192 | } |
| 1193 | g = newlabelentry(ls, &ls->dyd->gt, label, line, pc); |
| 1194 | findlabel(ls, g); /* close it if label already defined */ |
| 1195 | } |
| 1196 | |
| 1197 | |
| 1198 | /* check for repeated labels on the same block */ |