| 1143 | |
| 1144 | |
| 1145 | TStatus luaD_protectedparser (lua_State *L, ZIO *z, const char *name, |
| 1146 | const char *mode) { |
| 1147 | struct SParser p; |
| 1148 | TStatus status; |
| 1149 | incnny(L); /* cannot yield during parsing */ |
| 1150 | p.z = z; p.name = name; p.mode = mode; |
| 1151 | p.dyd.actvar.arr = NULL; p.dyd.actvar.size = 0; |
| 1152 | p.dyd.gt.arr = NULL; p.dyd.gt.size = 0; |
| 1153 | p.dyd.label.arr = NULL; p.dyd.label.size = 0; |
| 1154 | luaZ_initbuffer(L, &p.buff); |
| 1155 | status = luaD_pcall(L, f_parser, &p, savestack(L, L->top.p), L->errfunc); |
| 1156 | luaZ_freebuffer(L, &p.buff); |
| 1157 | luaM_freearray(L, p.dyd.actvar.arr, cast_sizet(p.dyd.actvar.size)); |
| 1158 | luaM_freearray(L, p.dyd.gt.arr, cast_sizet(p.dyd.gt.size)); |
| 1159 | luaM_freearray(L, p.dyd.label.arr, cast_sizet(p.dyd.label.size)); |
| 1160 | decnny(L); |
| 1161 | return status; |
| 1162 | } |
| 1163 | |
| 1164 |
no test coverage detected