Commit | Line | Data |
79ee8297 |
1 | /* |
a6c40364 |
2 | * Copyright (c) 1996-1999 Malcolm Beattie |
79ee8297 |
3 | * |
4 | * You may distribute under the terms of either the GNU General Public |
5 | * License or the Artistic License, as specified in the README file. |
6 | * |
7 | */ |
8 | /* |
9 | * This file is autogenerated from bytecode.pl. Changes made here will be lost. |
10 | */ |
11 | |
c5be433b |
12 | #define PERL_NO_GET_CONTEXT |
79ee8297 |
13 | #include "EXTERN.h" |
14 | #include "perl.h" |
0cb96387 |
15 | #define NO_XSLOCKS |
16 | #include "XSUB.h" |
17 | |
e8edd1e6 |
18 | #include "byterun.h" |
19 | #include "bytecode.h" |
20 | |
0cb96387 |
21 | |
059a8bb7 |
22 | static const int optype_size[] = { |
e8edd1e6 |
23 | sizeof(OP), |
24 | sizeof(UNOP), |
25 | sizeof(BINOP), |
26 | sizeof(LOGOP), |
e8edd1e6 |
27 | sizeof(LISTOP), |
28 | sizeof(PMOP), |
29 | sizeof(SVOP), |
7934575e |
30 | sizeof(PADOP), |
e8edd1e6 |
31 | sizeof(PVOP), |
32 | sizeof(LOOP), |
33 | sizeof(COP) |
34 | }; |
35 | |
d613ef02 |
36 | void * |
acfe0abc |
37 | bset_obj_store(pTHX_ struct byteloader_state *bstate, void *obj, I32 ix) |
d613ef02 |
38 | { |
059a8bb7 |
39 | if (ix > bstate->bs_obj_list_fill) { |
40 | Renew(bstate->bs_obj_list, ix + 32, void*); |
41 | bstate->bs_obj_list_fill = ix + 31; |
d613ef02 |
42 | } |
059a8bb7 |
43 | bstate->bs_obj_list[ix] = obj; |
d613ef02 |
44 | return obj; |
45 | } |
79ee8297 |
46 | |
3610fdac |
47 | int |
acfe0abc |
48 | byterun(pTHX_ register struct byteloader_state *bstate) |
79ee8297 |
49 | { |
27da23d5 |
50 | dVAR; |
059a8bb7 |
51 | register int insn; |
52 | U32 ix; |
53 | SV *specialsv_list[6]; |
54 | |
55 | BYTECODE_HEADER_CHECK; /* croak if incorrect platform */ |
56 | New(666, bstate->bs_obj_list, 32, void*); /* set op objlist */ |
57 | bstate->bs_obj_list_fill = 31; |
3610fdac |
58 | bstate->bs_obj_list[0] = NULL; /* first is always Null */ |
566ece03 |
59 | bstate->bs_ix = 1; |
e8edd1e6 |
60 | |
61 | specialsv_list[0] = Nullsv; |
62 | specialsv_list[1] = &PL_sv_undef; |
63 | specialsv_list[2] = &PL_sv_yes; |
64 | specialsv_list[3] = &PL_sv_no; |
059a8bb7 |
65 | specialsv_list[4] = pWARN_ALL; |
66 | specialsv_list[5] = pWARN_NONE; |
e8edd1e6 |
67 | |
47358472 |
68 | while ((insn = BGET_FGETC()) != EOF) { |
79ee8297 |
69 | switch (insn) { |
70 | case INSN_COMMENT: /* 35 */ |
71 | { |
34e97019 |
72 | comment_t arg; |
fe3a57c4 |
73 | BGET_comment_t(arg); |
79ee8297 |
74 | arg = arg; |
75 | break; |
76 | } |
77 | case INSN_NOP: /* 10 */ |
78 | { |
79 | break; |
80 | } |
81 | case INSN_RET: /* 0 */ |
82 | { |
83 | BSET_ret(none); |
84 | break; |
85 | } |
86 | case INSN_LDSV: /* 1 */ |
87 | { |
88 | svindex arg; |
01f988be |
89 | BGET_svindex(arg); |
059a8bb7 |
90 | bstate->bs_sv = arg; |
79ee8297 |
91 | break; |
92 | } |
93 | case INSN_LDOP: /* 2 */ |
94 | { |
95 | opindex arg; |
01f988be |
96 | BGET_opindex(arg); |
533c011a |
97 | PL_op = arg; |
79ee8297 |
98 | break; |
99 | } |
100 | case INSN_STSV: /* 3 */ |
101 | { |
102 | U32 arg; |
103 | BGET_U32(arg); |
059a8bb7 |
104 | BSET_OBJ_STORE(bstate->bs_sv, arg); |
79ee8297 |
105 | break; |
106 | } |
107 | case INSN_STOP: /* 4 */ |
108 | { |
109 | U32 arg; |
110 | BGET_U32(arg); |
533c011a |
111 | BSET_OBJ_STORE(PL_op, arg); |
79ee8297 |
112 | break; |
113 | } |
059a8bb7 |
114 | case INSN_STPV: /* 5 */ |
115 | { |
116 | U32 arg; |
117 | BGET_U32(arg); |
118 | BSET_stpv(bstate->bs_pv.xpv_pv, arg); |
119 | break; |
120 | } |
121 | case INSN_LDSPECSV: /* 6 */ |
79ee8297 |
122 | { |
123 | U8 arg; |
124 | BGET_U8(arg); |
059a8bb7 |
125 | BSET_ldspecsv(bstate->bs_sv, arg); |
79ee8297 |
126 | break; |
127 | } |
566ece03 |
128 | case INSN_LDSPECSVX: /* 7 */ |
129 | { |
130 | U8 arg; |
131 | BGET_U8(arg); |
132 | BSET_ldspecsvx(bstate->bs_sv, arg); |
133 | break; |
134 | } |
135 | case INSN_NEWSV: /* 8 */ |
79ee8297 |
136 | { |
137 | U8 arg; |
138 | BGET_U8(arg); |
059a8bb7 |
139 | BSET_newsv(bstate->bs_sv, arg); |
79ee8297 |
140 | break; |
141 | } |
566ece03 |
142 | case INSN_NEWSVX: /* 9 */ |
143 | { |
144 | U32 arg; |
145 | BGET_U32(arg); |
146 | BSET_newsvx(bstate->bs_sv, arg); |
147 | break; |
148 | } |
149 | case INSN_NEWOP: /* 11 */ |
79ee8297 |
150 | { |
151 | U8 arg; |
152 | BGET_U8(arg); |
533c011a |
153 | BSET_newop(PL_op, arg); |
79ee8297 |
154 | break; |
155 | } |
566ece03 |
156 | case INSN_NEWOPX: /* 12 */ |
157 | { |
158 | U16 arg; |
159 | BGET_U16(arg); |
160 | BSET_newopx(PL_op, arg); |
161 | break; |
162 | } |
163 | case INSN_NEWOPN: /* 13 */ |
79ee8297 |
164 | { |
165 | U8 arg; |
166 | BGET_U8(arg); |
533c011a |
167 | BSET_newopn(PL_op, arg); |
79ee8297 |
168 | break; |
169 | } |
566ece03 |
170 | case INSN_NEWPV: /* 14 */ |
79ee8297 |
171 | { |
172 | PV arg; |
173 | BGET_PV(arg); |
174 | break; |
175 | } |
566ece03 |
176 | case INSN_PV_CUR: /* 15 */ |
79ee8297 |
177 | { |
178 | STRLEN arg; |
ebc18564 |
179 | BGET_PADOFFSET(arg); |
059a8bb7 |
180 | bstate->bs_pv.xpv_cur = arg; |
79ee8297 |
181 | break; |
182 | } |
566ece03 |
183 | case INSN_PV_FREE: /* 16 */ |
79ee8297 |
184 | { |
059a8bb7 |
185 | BSET_pv_free(bstate->bs_pv); |
79ee8297 |
186 | break; |
187 | } |
566ece03 |
188 | case INSN_SV_UPGRADE: /* 17 */ |
79ee8297 |
189 | { |
6e21dc91 |
190 | U8 arg; |
79ee8297 |
191 | BGET_U8(arg); |
059a8bb7 |
192 | BSET_sv_upgrade(bstate->bs_sv, arg); |
79ee8297 |
193 | break; |
194 | } |
566ece03 |
195 | case INSN_SV_REFCNT: /* 18 */ |
79ee8297 |
196 | { |
197 | U32 arg; |
198 | BGET_U32(arg); |
059a8bb7 |
199 | SvREFCNT(bstate->bs_sv) = arg; |
79ee8297 |
200 | break; |
201 | } |
566ece03 |
202 | case INSN_SV_REFCNT_ADD: /* 19 */ |
79ee8297 |
203 | { |
204 | I32 arg; |
205 | BGET_I32(arg); |
059a8bb7 |
206 | BSET_sv_refcnt_add(SvREFCNT(bstate->bs_sv), arg); |
79ee8297 |
207 | break; |
208 | } |
566ece03 |
209 | case INSN_SV_FLAGS: /* 20 */ |
79ee8297 |
210 | { |
211 | U32 arg; |
212 | BGET_U32(arg); |
059a8bb7 |
213 | SvFLAGS(bstate->bs_sv) = arg; |
79ee8297 |
214 | break; |
215 | } |
566ece03 |
216 | case INSN_XRV: /* 21 */ |
79ee8297 |
217 | { |
218 | svindex arg; |
01f988be |
219 | BGET_svindex(arg); |
27da23d5 |
220 | BSET_xrv(bstate->bs_sv, arg); |
79ee8297 |
221 | break; |
222 | } |
566ece03 |
223 | case INSN_XPV: /* 22 */ |
79ee8297 |
224 | { |
059a8bb7 |
225 | BSET_xpv(bstate->bs_sv); |
79ee8297 |
226 | break; |
227 | } |
0032b46e |
228 | case INSN_XPV_CUR: /* 23 */ |
79ee8297 |
229 | { |
3610fdac |
230 | STRLEN arg; |
ebc18564 |
231 | BGET_PADOFFSET(arg); |
27da23d5 |
232 | BSET_xpv_cur(bstate->bs_sv, arg); |
3610fdac |
233 | break; |
234 | } |
566ece03 |
235 | case INSN_XPV_LEN: /* 24 */ |
3610fdac |
236 | { |
237 | STRLEN arg; |
ebc18564 |
238 | BGET_PADOFFSET(arg); |
27da23d5 |
239 | BSET_xpv_len(bstate->bs_sv, arg); |
79ee8297 |
240 | break; |
241 | } |
566ece03 |
242 | case INSN_XIV: /* 25 */ |
79ee8297 |
243 | { |
3610fdac |
244 | IV arg; |
245 | BGET_IV(arg); |
27da23d5 |
246 | BSET_xiv(bstate->bs_sv, arg); |
79ee8297 |
247 | break; |
248 | } |
566ece03 |
249 | case INSN_XNV: /* 26 */ |
79ee8297 |
250 | { |
65202027 |
251 | NV arg; |
252 | BGET_NV(arg); |
27da23d5 |
253 | BSET_xnv(bstate->bs_sv, arg); |
79ee8297 |
254 | break; |
255 | } |
566ece03 |
256 | case INSN_XLV_TARGOFF: /* 27 */ |
79ee8297 |
257 | { |
258 | STRLEN arg; |
ebc18564 |
259 | BGET_PADOFFSET(arg); |
059a8bb7 |
260 | LvTARGOFF(bstate->bs_sv) = arg; |
79ee8297 |
261 | break; |
262 | } |
566ece03 |
263 | case INSN_XLV_TARGLEN: /* 28 */ |
79ee8297 |
264 | { |
265 | STRLEN arg; |
ebc18564 |
266 | BGET_PADOFFSET(arg); |
059a8bb7 |
267 | LvTARGLEN(bstate->bs_sv) = arg; |
79ee8297 |
268 | break; |
269 | } |
566ece03 |
270 | case INSN_XLV_TARG: /* 29 */ |
79ee8297 |
271 | { |
272 | svindex arg; |
01f988be |
273 | BGET_svindex(arg); |
059a8bb7 |
274 | LvTARG(bstate->bs_sv) = arg; |
79ee8297 |
275 | break; |
276 | } |
566ece03 |
277 | case INSN_XLV_TYPE: /* 30 */ |
79ee8297 |
278 | { |
279 | char arg; |
280 | BGET_U8(arg); |
059a8bb7 |
281 | LvTYPE(bstate->bs_sv) = arg; |
79ee8297 |
282 | break; |
283 | } |
566ece03 |
284 | case INSN_XBM_USEFUL: /* 31 */ |
79ee8297 |
285 | { |
286 | I32 arg; |
287 | BGET_I32(arg); |
059a8bb7 |
288 | BmUSEFUL(bstate->bs_sv) = arg; |
79ee8297 |
289 | break; |
290 | } |
566ece03 |
291 | case INSN_XBM_PREVIOUS: /* 32 */ |
79ee8297 |
292 | { |
293 | U16 arg; |
294 | BGET_U16(arg); |
059a8bb7 |
295 | BmPREVIOUS(bstate->bs_sv) = arg; |
79ee8297 |
296 | break; |
297 | } |
566ece03 |
298 | case INSN_XBM_RARE: /* 33 */ |
79ee8297 |
299 | { |
300 | U8 arg; |
301 | BGET_U8(arg); |
059a8bb7 |
302 | BmRARE(bstate->bs_sv) = arg; |
79ee8297 |
303 | break; |
304 | } |
566ece03 |
305 | case INSN_XFM_LINES: /* 34 */ |
79ee8297 |
306 | { |
11a7ac70 |
307 | IV arg; |
308 | BGET_IV(arg); |
059a8bb7 |
309 | FmLINES(bstate->bs_sv) = arg; |
79ee8297 |
310 | break; |
311 | } |
566ece03 |
312 | case INSN_XIO_LINES: /* 36 */ |
79ee8297 |
313 | { |
11a7ac70 |
314 | IV arg; |
315 | BGET_IV(arg); |
059a8bb7 |
316 | IoLINES(bstate->bs_sv) = arg; |
79ee8297 |
317 | break; |
318 | } |
566ece03 |
319 | case INSN_XIO_PAGE: /* 37 */ |
79ee8297 |
320 | { |
11a7ac70 |
321 | IV arg; |
322 | BGET_IV(arg); |
059a8bb7 |
323 | IoPAGE(bstate->bs_sv) = arg; |
79ee8297 |
324 | break; |
325 | } |
566ece03 |
326 | case INSN_XIO_PAGE_LEN: /* 38 */ |
79ee8297 |
327 | { |
11a7ac70 |
328 | IV arg; |
329 | BGET_IV(arg); |
059a8bb7 |
330 | IoPAGE_LEN(bstate->bs_sv) = arg; |
79ee8297 |
331 | break; |
332 | } |
566ece03 |
333 | case INSN_XIO_LINES_LEFT: /* 39 */ |
79ee8297 |
334 | { |
11a7ac70 |
335 | IV arg; |
336 | BGET_IV(arg); |
059a8bb7 |
337 | IoLINES_LEFT(bstate->bs_sv) = arg; |
79ee8297 |
338 | break; |
339 | } |
566ece03 |
340 | case INSN_XIO_TOP_NAME: /* 40 */ |
79ee8297 |
341 | { |
3610fdac |
342 | pvindex arg; |
343 | BGET_pvindex(arg); |
059a8bb7 |
344 | IoTOP_NAME(bstate->bs_sv) = arg; |
79ee8297 |
345 | break; |
346 | } |
566ece03 |
347 | case INSN_XIO_TOP_GV: /* 41 */ |
79ee8297 |
348 | { |
349 | svindex arg; |
01f988be |
350 | BGET_svindex(arg); |
059a8bb7 |
351 | *(SV**)&IoTOP_GV(bstate->bs_sv) = arg; |
79ee8297 |
352 | break; |
353 | } |
566ece03 |
354 | case INSN_XIO_FMT_NAME: /* 42 */ |
79ee8297 |
355 | { |
3610fdac |
356 | pvindex arg; |
357 | BGET_pvindex(arg); |
059a8bb7 |
358 | IoFMT_NAME(bstate->bs_sv) = arg; |
79ee8297 |
359 | break; |
360 | } |
566ece03 |
361 | case INSN_XIO_FMT_GV: /* 43 */ |
79ee8297 |
362 | { |
363 | svindex arg; |
01f988be |
364 | BGET_svindex(arg); |
059a8bb7 |
365 | *(SV**)&IoFMT_GV(bstate->bs_sv) = arg; |
79ee8297 |
366 | break; |
367 | } |
566ece03 |
368 | case INSN_XIO_BOTTOM_NAME: /* 44 */ |
79ee8297 |
369 | { |
3610fdac |
370 | pvindex arg; |
371 | BGET_pvindex(arg); |
059a8bb7 |
372 | IoBOTTOM_NAME(bstate->bs_sv) = arg; |
79ee8297 |
373 | break; |
374 | } |
566ece03 |
375 | case INSN_XIO_BOTTOM_GV: /* 45 */ |
79ee8297 |
376 | { |
377 | svindex arg; |
01f988be |
378 | BGET_svindex(arg); |
059a8bb7 |
379 | *(SV**)&IoBOTTOM_GV(bstate->bs_sv) = arg; |
79ee8297 |
380 | break; |
381 | } |
566ece03 |
382 | case INSN_XIO_SUBPROCESS: /* 46 */ |
79ee8297 |
383 | { |
384 | short arg; |
385 | BGET_U16(arg); |
059a8bb7 |
386 | IoSUBPROCESS(bstate->bs_sv) = arg; |
79ee8297 |
387 | break; |
388 | } |
566ece03 |
389 | case INSN_XIO_TYPE: /* 47 */ |
79ee8297 |
390 | { |
391 | char arg; |
392 | BGET_U8(arg); |
059a8bb7 |
393 | IoTYPE(bstate->bs_sv) = arg; |
79ee8297 |
394 | break; |
395 | } |
566ece03 |
396 | case INSN_XIO_FLAGS: /* 48 */ |
79ee8297 |
397 | { |
398 | char arg; |
399 | BGET_U8(arg); |
059a8bb7 |
400 | IoFLAGS(bstate->bs_sv) = arg; |
79ee8297 |
401 | break; |
402 | } |
566ece03 |
403 | case INSN_XCV_XSUBANY: /* 49 */ |
3610fdac |
404 | { |
405 | svindex arg; |
406 | BGET_svindex(arg); |
407 | *(SV**)&CvXSUBANY(bstate->bs_sv).any_ptr = arg; |
408 | break; |
409 | } |
566ece03 |
410 | case INSN_XCV_STASH: /* 50 */ |
79ee8297 |
411 | { |
412 | svindex arg; |
01f988be |
413 | BGET_svindex(arg); |
059a8bb7 |
414 | *(SV**)&CvSTASH(bstate->bs_sv) = arg; |
79ee8297 |
415 | break; |
416 | } |
566ece03 |
417 | case INSN_XCV_START: /* 51 */ |
79ee8297 |
418 | { |
419 | opindex arg; |
01f988be |
420 | BGET_opindex(arg); |
059a8bb7 |
421 | CvSTART(bstate->bs_sv) = arg; |
79ee8297 |
422 | break; |
423 | } |
566ece03 |
424 | case INSN_XCV_ROOT: /* 52 */ |
79ee8297 |
425 | { |
426 | opindex arg; |
01f988be |
427 | BGET_opindex(arg); |
059a8bb7 |
428 | CvROOT(bstate->bs_sv) = arg; |
79ee8297 |
429 | break; |
430 | } |
566ece03 |
431 | case INSN_XCV_GV: /* 53 */ |
79ee8297 |
432 | { |
433 | svindex arg; |
01f988be |
434 | BGET_svindex(arg); |
059a8bb7 |
435 | *(SV**)&CvGV(bstate->bs_sv) = arg; |
79ee8297 |
436 | break; |
437 | } |
566ece03 |
438 | case INSN_XCV_FILE: /* 54 */ |
57843af0 |
439 | { |
059a8bb7 |
440 | pvindex arg; |
441 | BGET_pvindex(arg); |
442 | CvFILE(bstate->bs_sv) = arg; |
57843af0 |
443 | break; |
444 | } |
566ece03 |
445 | case INSN_XCV_DEPTH: /* 55 */ |
79ee8297 |
446 | { |
447 | long arg; |
ebc18564 |
448 | BGET_long(arg); |
059a8bb7 |
449 | CvDEPTH(bstate->bs_sv) = arg; |
79ee8297 |
450 | break; |
451 | } |
566ece03 |
452 | case INSN_XCV_PADLIST: /* 56 */ |
79ee8297 |
453 | { |
454 | svindex arg; |
01f988be |
455 | BGET_svindex(arg); |
059a8bb7 |
456 | *(SV**)&CvPADLIST(bstate->bs_sv) = arg; |
79ee8297 |
457 | break; |
458 | } |
566ece03 |
459 | case INSN_XCV_OUTSIDE: /* 57 */ |
79ee8297 |
460 | { |
461 | svindex arg; |
01f988be |
462 | BGET_svindex(arg); |
059a8bb7 |
463 | *(SV**)&CvOUTSIDE(bstate->bs_sv) = arg; |
79ee8297 |
464 | break; |
465 | } |
566ece03 |
466 | case INSN_XCV_OUTSIDE_SEQ: /* 58 */ |
f52873be |
467 | { |
468 | U32 arg; |
469 | BGET_U32(arg); |
470 | CvOUTSIDE_SEQ(bstate->bs_sv) = arg; |
471 | break; |
472 | } |
566ece03 |
473 | case INSN_XCV_FLAGS: /* 59 */ |
79ee8297 |
474 | { |
fc290457 |
475 | U16 arg; |
476 | BGET_U16(arg); |
059a8bb7 |
477 | CvFLAGS(bstate->bs_sv) = arg; |
79ee8297 |
478 | break; |
479 | } |
566ece03 |
480 | case INSN_AV_EXTEND: /* 60 */ |
79ee8297 |
481 | { |
482 | SSize_t arg; |
ebc18564 |
483 | BGET_PADOFFSET(arg); |
059a8bb7 |
484 | BSET_av_extend(bstate->bs_sv, arg); |
79ee8297 |
485 | break; |
486 | } |
566ece03 |
487 | case INSN_AV_PUSHX: /* 61 */ |
3610fdac |
488 | { |
489 | svindex arg; |
490 | BGET_svindex(arg); |
491 | BSET_av_pushx(bstate->bs_sv, arg); |
492 | break; |
493 | } |
566ece03 |
494 | case INSN_AV_PUSH: /* 62 */ |
79ee8297 |
495 | { |
496 | svindex arg; |
01f988be |
497 | BGET_svindex(arg); |
059a8bb7 |
498 | BSET_av_push(bstate->bs_sv, arg); |
79ee8297 |
499 | break; |
500 | } |
566ece03 |
501 | case INSN_XAV_FILL: /* 63 */ |
79ee8297 |
502 | { |
503 | SSize_t arg; |
ebc18564 |
504 | BGET_PADOFFSET(arg); |
059a8bb7 |
505 | AvFILLp(bstate->bs_sv) = arg; |
79ee8297 |
506 | break; |
507 | } |
566ece03 |
508 | case INSN_XAV_MAX: /* 64 */ |
79ee8297 |
509 | { |
510 | SSize_t arg; |
ebc18564 |
511 | BGET_PADOFFSET(arg); |
059a8bb7 |
512 | AvMAX(bstate->bs_sv) = arg; |
79ee8297 |
513 | break; |
514 | } |
566ece03 |
515 | case INSN_XAV_FLAGS: /* 65 */ |
79ee8297 |
516 | { |
517 | U8 arg; |
518 | BGET_U8(arg); |
059a8bb7 |
519 | AvFLAGS(bstate->bs_sv) = arg; |
79ee8297 |
520 | break; |
521 | } |
566ece03 |
522 | case INSN_XHV_RITER: /* 66 */ |
79ee8297 |
523 | { |
524 | I32 arg; |
525 | BGET_I32(arg); |
059a8bb7 |
526 | HvRITER(bstate->bs_sv) = arg; |
79ee8297 |
527 | break; |
528 | } |
566ece03 |
529 | case INSN_XHV_NAME: /* 67 */ |
79ee8297 |
530 | { |
3610fdac |
531 | pvindex arg; |
532 | BGET_pvindex(arg); |
059a8bb7 |
533 | HvNAME(bstate->bs_sv) = arg; |
79ee8297 |
534 | break; |
535 | } |
566ece03 |
536 | case INSN_XHV_PMROOT: /* 68 */ |
3610fdac |
537 | { |
538 | opindex arg; |
539 | BGET_opindex(arg); |
540 | *(OP**)&HvPMROOT(bstate->bs_sv) = arg; |
541 | break; |
542 | } |
566ece03 |
543 | case INSN_HV_STORE: /* 69 */ |
79ee8297 |
544 | { |
545 | svindex arg; |
01f988be |
546 | BGET_svindex(arg); |
059a8bb7 |
547 | BSET_hv_store(bstate->bs_sv, arg); |
79ee8297 |
548 | break; |
549 | } |
566ece03 |
550 | case INSN_SV_MAGIC: /* 70 */ |
79ee8297 |
551 | { |
552 | char arg; |
553 | BGET_U8(arg); |
059a8bb7 |
554 | BSET_sv_magic(bstate->bs_sv, arg); |
79ee8297 |
555 | break; |
556 | } |
566ece03 |
557 | case INSN_MG_OBJ: /* 71 */ |
79ee8297 |
558 | { |
559 | svindex arg; |
01f988be |
560 | BGET_svindex(arg); |
059a8bb7 |
561 | SvMAGIC(bstate->bs_sv)->mg_obj = arg; |
79ee8297 |
562 | break; |
563 | } |
566ece03 |
564 | case INSN_MG_PRIVATE: /* 72 */ |
79ee8297 |
565 | { |
566 | U16 arg; |
567 | BGET_U16(arg); |
059a8bb7 |
568 | SvMAGIC(bstate->bs_sv)->mg_private = arg; |
79ee8297 |
569 | break; |
570 | } |
566ece03 |
571 | case INSN_MG_FLAGS: /* 73 */ |
79ee8297 |
572 | { |
573 | U8 arg; |
574 | BGET_U8(arg); |
059a8bb7 |
575 | SvMAGIC(bstate->bs_sv)->mg_flags = arg; |
79ee8297 |
576 | break; |
577 | } |
566ece03 |
578 | case INSN_MG_NAME: /* 74 */ |
79ee8297 |
579 | { |
580 | pvcontents arg; |
581 | BGET_pvcontents(arg); |
3610fdac |
582 | BSET_mg_name(SvMAGIC(bstate->bs_sv), arg); |
583 | break; |
584 | } |
566ece03 |
585 | case INSN_MG_NAMEX: /* 75 */ |
3610fdac |
586 | { |
587 | svindex arg; |
588 | BGET_svindex(arg); |
589 | BSET_mg_namex(SvMAGIC(bstate->bs_sv), arg); |
79ee8297 |
590 | break; |
591 | } |
566ece03 |
592 | case INSN_XMG_STASH: /* 76 */ |
79ee8297 |
593 | { |
594 | svindex arg; |
01f988be |
595 | BGET_svindex(arg); |
03687789 |
596 | BSET_xmg_stash(bstate->bs_sv, arg); |
79ee8297 |
597 | break; |
598 | } |
566ece03 |
599 | case INSN_GV_FETCHPV: /* 77 */ |
79ee8297 |
600 | { |
601 | strconst arg; |
602 | BGET_strconst(arg); |
059a8bb7 |
603 | BSET_gv_fetchpv(bstate->bs_sv, arg); |
79ee8297 |
604 | break; |
605 | } |
566ece03 |
606 | case INSN_GV_FETCHPVX: /* 78 */ |
607 | { |
608 | strconst arg; |
609 | BGET_strconst(arg); |
610 | BSET_gv_fetchpvx(bstate->bs_sv, arg); |
611 | break; |
612 | } |
613 | case INSN_GV_STASHPV: /* 79 */ |
79ee8297 |
614 | { |
615 | strconst arg; |
616 | BGET_strconst(arg); |
059a8bb7 |
617 | BSET_gv_stashpv(bstate->bs_sv, arg); |
79ee8297 |
618 | break; |
619 | } |
566ece03 |
620 | case INSN_GV_STASHPVX: /* 80 */ |
621 | { |
622 | strconst arg; |
623 | BGET_strconst(arg); |
624 | BSET_gv_stashpvx(bstate->bs_sv, arg); |
625 | break; |
626 | } |
627 | case INSN_GP_SV: /* 81 */ |
79ee8297 |
628 | { |
629 | svindex arg; |
01f988be |
630 | BGET_svindex(arg); |
059a8bb7 |
631 | GvSV(bstate->bs_sv) = arg; |
79ee8297 |
632 | break; |
633 | } |
566ece03 |
634 | case INSN_GP_REFCNT: /* 82 */ |
79ee8297 |
635 | { |
636 | U32 arg; |
637 | BGET_U32(arg); |
059a8bb7 |
638 | GvREFCNT(bstate->bs_sv) = arg; |
79ee8297 |
639 | break; |
640 | } |
566ece03 |
641 | case INSN_GP_REFCNT_ADD: /* 83 */ |
79ee8297 |
642 | { |
643 | I32 arg; |
644 | BGET_I32(arg); |
059a8bb7 |
645 | BSET_gp_refcnt_add(GvREFCNT(bstate->bs_sv), arg); |
79ee8297 |
646 | break; |
647 | } |
566ece03 |
648 | case INSN_GP_AV: /* 84 */ |
79ee8297 |
649 | { |
650 | svindex arg; |
01f988be |
651 | BGET_svindex(arg); |
059a8bb7 |
652 | *(SV**)&GvAV(bstate->bs_sv) = arg; |
79ee8297 |
653 | break; |
654 | } |
566ece03 |
655 | case INSN_GP_HV: /* 85 */ |
79ee8297 |
656 | { |
657 | svindex arg; |
01f988be |
658 | BGET_svindex(arg); |
059a8bb7 |
659 | *(SV**)&GvHV(bstate->bs_sv) = arg; |
79ee8297 |
660 | break; |
661 | } |
566ece03 |
662 | case INSN_GP_CV: /* 86 */ |
79ee8297 |
663 | { |
664 | svindex arg; |
01f988be |
665 | BGET_svindex(arg); |
059a8bb7 |
666 | *(SV**)&GvCV(bstate->bs_sv) = arg; |
79ee8297 |
667 | break; |
668 | } |
566ece03 |
669 | case INSN_GP_FILE: /* 87 */ |
79ee8297 |
670 | { |
059a8bb7 |
671 | pvindex arg; |
672 | BGET_pvindex(arg); |
673 | GvFILE(bstate->bs_sv) = arg; |
79ee8297 |
674 | break; |
675 | } |
566ece03 |
676 | case INSN_GP_IO: /* 88 */ |
79ee8297 |
677 | { |
678 | svindex arg; |
01f988be |
679 | BGET_svindex(arg); |
059a8bb7 |
680 | *(SV**)&GvIOp(bstate->bs_sv) = arg; |
79ee8297 |
681 | break; |
682 | } |
566ece03 |
683 | case INSN_GP_FORM: /* 89 */ |
79ee8297 |
684 | { |
685 | svindex arg; |
01f988be |
686 | BGET_svindex(arg); |
059a8bb7 |
687 | *(SV**)&GvFORM(bstate->bs_sv) = arg; |
79ee8297 |
688 | break; |
689 | } |
566ece03 |
690 | case INSN_GP_CVGEN: /* 90 */ |
79ee8297 |
691 | { |
692 | U32 arg; |
693 | BGET_U32(arg); |
059a8bb7 |
694 | GvCVGEN(bstate->bs_sv) = arg; |
79ee8297 |
695 | break; |
696 | } |
566ece03 |
697 | case INSN_GP_LINE: /* 91 */ |
79ee8297 |
698 | { |
699 | line_t arg; |
dea28490 |
700 | BGET_U32(arg); |
059a8bb7 |
701 | GvLINE(bstate->bs_sv) = arg; |
79ee8297 |
702 | break; |
703 | } |
566ece03 |
704 | case INSN_GP_SHARE: /* 92 */ |
79ee8297 |
705 | { |
706 | svindex arg; |
01f988be |
707 | BGET_svindex(arg); |
059a8bb7 |
708 | BSET_gp_share(bstate->bs_sv, arg); |
79ee8297 |
709 | break; |
710 | } |
566ece03 |
711 | case INSN_XGV_FLAGS: /* 93 */ |
79ee8297 |
712 | { |
713 | U8 arg; |
714 | BGET_U8(arg); |
059a8bb7 |
715 | GvFLAGS(bstate->bs_sv) = arg; |
79ee8297 |
716 | break; |
717 | } |
566ece03 |
718 | case INSN_OP_NEXT: /* 94 */ |
79ee8297 |
719 | { |
720 | opindex arg; |
01f988be |
721 | BGET_opindex(arg); |
533c011a |
722 | PL_op->op_next = arg; |
79ee8297 |
723 | break; |
724 | } |
566ece03 |
725 | case INSN_OP_SIBLING: /* 95 */ |
79ee8297 |
726 | { |
727 | opindex arg; |
01f988be |
728 | BGET_opindex(arg); |
533c011a |
729 | PL_op->op_sibling = arg; |
79ee8297 |
730 | break; |
731 | } |
566ece03 |
732 | case INSN_OP_PPADDR: /* 96 */ |
79ee8297 |
733 | { |
734 | strconst arg; |
735 | BGET_strconst(arg); |
6b88bc9c |
736 | BSET_op_ppaddr(PL_op->op_ppaddr, arg); |
79ee8297 |
737 | break; |
738 | } |
566ece03 |
739 | case INSN_OP_TARG: /* 97 */ |
79ee8297 |
740 | { |
741 | PADOFFSET arg; |
ca337316 |
742 | BGET_PADOFFSET(arg); |
533c011a |
743 | PL_op->op_targ = arg; |
79ee8297 |
744 | break; |
745 | } |
566ece03 |
746 | case INSN_OP_TYPE: /* 98 */ |
79ee8297 |
747 | { |
748 | OPCODE arg; |
749 | BGET_U16(arg); |
533c011a |
750 | BSET_op_type(PL_op, arg); |
79ee8297 |
751 | break; |
752 | } |
2814eb74 |
753 | case INSN_OP_OPT: /* 99 */ |
79ee8297 |
754 | { |
2814eb74 |
755 | U8 arg; |
756 | BGET_U8(arg); |
757 | PL_op->op_opt = arg; |
758 | break; |
759 | } |
760 | case INSN_OP_STATIC: /* 100 */ |
761 | { |
762 | U8 arg; |
763 | BGET_U8(arg); |
764 | PL_op->op_static = arg; |
79ee8297 |
765 | break; |
766 | } |
2814eb74 |
767 | case INSN_OP_FLAGS: /* 101 */ |
79ee8297 |
768 | { |
769 | U8 arg; |
770 | BGET_U8(arg); |
533c011a |
771 | PL_op->op_flags = arg; |
79ee8297 |
772 | break; |
773 | } |
2814eb74 |
774 | case INSN_OP_PRIVATE: /* 102 */ |
79ee8297 |
775 | { |
776 | U8 arg; |
777 | BGET_U8(arg); |
533c011a |
778 | PL_op->op_private = arg; |
79ee8297 |
779 | break; |
780 | } |
2814eb74 |
781 | case INSN_OP_FIRST: /* 103 */ |
79ee8297 |
782 | { |
783 | opindex arg; |
01f988be |
784 | BGET_opindex(arg); |
79ee8297 |
785 | cUNOP->op_first = arg; |
786 | break; |
787 | } |
2814eb74 |
788 | case INSN_OP_LAST: /* 104 */ |
79ee8297 |
789 | { |
790 | opindex arg; |
01f988be |
791 | BGET_opindex(arg); |
79ee8297 |
792 | cBINOP->op_last = arg; |
793 | break; |
794 | } |
2814eb74 |
795 | case INSN_OP_OTHER: /* 105 */ |
79ee8297 |
796 | { |
797 | opindex arg; |
01f988be |
798 | BGET_opindex(arg); |
79ee8297 |
799 | cLOGOP->op_other = arg; |
800 | break; |
801 | } |
2814eb74 |
802 | case INSN_OP_PMREPLROOT: /* 106 */ |
79ee8297 |
803 | { |
804 | opindex arg; |
01f988be |
805 | BGET_opindex(arg); |
79ee8297 |
806 | cPMOP->op_pmreplroot = arg; |
807 | break; |
808 | } |
2814eb74 |
809 | case INSN_OP_PMREPLSTART: /* 107 */ |
79ee8297 |
810 | { |
811 | opindex arg; |
01f988be |
812 | BGET_opindex(arg); |
79ee8297 |
813 | cPMOP->op_pmreplstart = arg; |
814 | break; |
815 | } |
2814eb74 |
816 | case INSN_OP_PMNEXT: /* 108 */ |
79ee8297 |
817 | { |
818 | opindex arg; |
01f988be |
819 | BGET_opindex(arg); |
79ee8297 |
820 | *(OP**)&cPMOP->op_pmnext = arg; |
821 | break; |
822 | } |
3610fdac |
823 | #ifdef USE_ITHREADS |
2814eb74 |
824 | case INSN_OP_PMSTASHPV: /* 109 */ |
3610fdac |
825 | { |
826 | pvindex arg; |
827 | BGET_pvindex(arg); |
47682f07 |
828 | BSET_op_pmstashpv(cPMOP, arg); |
3610fdac |
829 | break; |
830 | } |
2814eb74 |
831 | case INSN_OP_PMREPLROOTPO: /* 110 */ |
3610fdac |
832 | { |
833 | PADOFFSET arg; |
ca337316 |
834 | BGET_PADOFFSET(arg); |
b97332e7 |
835 | cPMOP->op_pmreplroot = (OP*)arg; |
3610fdac |
836 | break; |
837 | } |
838 | #else |
2814eb74 |
839 | case INSN_OP_PMSTASH: /* 111 */ |
3610fdac |
840 | { |
841 | svindex arg; |
842 | BGET_svindex(arg); |
843 | *(SV**)&cPMOP->op_pmstash = arg; |
844 | break; |
845 | } |
2814eb74 |
846 | case INSN_OP_PMREPLROOTGV: /* 112 */ |
3610fdac |
847 | { |
848 | svindex arg; |
849 | BGET_svindex(arg); |
850 | *(SV**)&cPMOP->op_pmreplroot = arg; |
851 | break; |
852 | } |
853 | #endif |
2814eb74 |
854 | case INSN_PREGCOMP: /* 113 */ |
79ee8297 |
855 | { |
856 | pvcontents arg; |
857 | BGET_pvcontents(arg); |
533c011a |
858 | BSET_pregcomp(PL_op, arg); |
79ee8297 |
859 | break; |
860 | } |
2814eb74 |
861 | case INSN_OP_PMFLAGS: /* 114 */ |
79ee8297 |
862 | { |
863 | U16 arg; |
864 | BGET_U16(arg); |
865 | cPMOP->op_pmflags = arg; |
866 | break; |
867 | } |
2814eb74 |
868 | case INSN_OP_PMPERMFLAGS: /* 115 */ |
79ee8297 |
869 | { |
870 | U16 arg; |
871 | BGET_U16(arg); |
872 | cPMOP->op_pmpermflags = arg; |
873 | break; |
874 | } |
2814eb74 |
875 | case INSN_OP_PMDYNFLAGS: /* 116 */ |
3610fdac |
876 | { |
877 | U8 arg; |
878 | BGET_U8(arg); |
879 | cPMOP->op_pmdynflags = arg; |
880 | break; |
881 | } |
2814eb74 |
882 | case INSN_OP_SV: /* 117 */ |
79ee8297 |
883 | { |
884 | svindex arg; |
01f988be |
885 | BGET_svindex(arg); |
79ee8297 |
886 | cSVOP->op_sv = arg; |
887 | break; |
888 | } |
2814eb74 |
889 | case INSN_OP_PADIX: /* 118 */ |
79ee8297 |
890 | { |
7934575e |
891 | PADOFFSET arg; |
ca337316 |
892 | BGET_PADOFFSET(arg); |
7934575e |
893 | cPADOP->op_padix = arg; |
79ee8297 |
894 | break; |
895 | } |
2814eb74 |
896 | case INSN_OP_PV: /* 119 */ |
79ee8297 |
897 | { |
898 | pvcontents arg; |
899 | BGET_pvcontents(arg); |
900 | cPVOP->op_pv = arg; |
901 | break; |
902 | } |
2814eb74 |
903 | case INSN_OP_PV_TR: /* 120 */ |
79ee8297 |
904 | { |
905 | op_tr_array arg; |
906 | BGET_op_tr_array(arg); |
907 | cPVOP->op_pv = arg; |
908 | break; |
909 | } |
2814eb74 |
910 | case INSN_OP_REDOOP: /* 121 */ |
79ee8297 |
911 | { |
912 | opindex arg; |
01f988be |
913 | BGET_opindex(arg); |
79ee8297 |
914 | cLOOP->op_redoop = arg; |
915 | break; |
916 | } |
2814eb74 |
917 | case INSN_OP_NEXTOP: /* 122 */ |
79ee8297 |
918 | { |
919 | opindex arg; |
01f988be |
920 | BGET_opindex(arg); |
79ee8297 |
921 | cLOOP->op_nextop = arg; |
922 | break; |
923 | } |
2814eb74 |
924 | case INSN_OP_LASTOP: /* 123 */ |
79ee8297 |
925 | { |
926 | opindex arg; |
01f988be |
927 | BGET_opindex(arg); |
79ee8297 |
928 | cLOOP->op_lastop = arg; |
929 | break; |
930 | } |
2814eb74 |
931 | case INSN_COP_LABEL: /* 124 */ |
79ee8297 |
932 | { |
059a8bb7 |
933 | pvindex arg; |
934 | BGET_pvindex(arg); |
79ee8297 |
935 | cCOP->cop_label = arg; |
936 | break; |
937 | } |
3610fdac |
938 | #ifdef USE_ITHREADS |
2814eb74 |
939 | case INSN_COP_STASHPV: /* 125 */ |
79ee8297 |
940 | { |
059a8bb7 |
941 | pvindex arg; |
942 | BGET_pvindex(arg); |
11faa288 |
943 | BSET_cop_stashpv(cCOP, arg); |
79ee8297 |
944 | break; |
945 | } |
2814eb74 |
946 | case INSN_COP_FILE: /* 126 */ |
79ee8297 |
947 | { |
059a8bb7 |
948 | pvindex arg; |
949 | BGET_pvindex(arg); |
57843af0 |
950 | BSET_cop_file(cCOP, arg); |
79ee8297 |
951 | break; |
952 | } |
3610fdac |
953 | #else |
2814eb74 |
954 | case INSN_COP_STASH: /* 127 */ |
3610fdac |
955 | { |
956 | svindex arg; |
957 | BGET_svindex(arg); |
958 | BSET_cop_stash(cCOP, arg); |
959 | break; |
960 | } |
2814eb74 |
961 | case INSN_COP_FILEGV: /* 128 */ |
3610fdac |
962 | { |
963 | svindex arg; |
964 | BGET_svindex(arg); |
965 | BSET_cop_filegv(cCOP, arg); |
966 | break; |
967 | } |
968 | #endif |
2814eb74 |
969 | case INSN_COP_SEQ: /* 129 */ |
79ee8297 |
970 | { |
971 | U32 arg; |
972 | BGET_U32(arg); |
973 | cCOP->cop_seq = arg; |
974 | break; |
975 | } |
2814eb74 |
976 | case INSN_COP_ARYBASE: /* 130 */ |
79ee8297 |
977 | { |
978 | I32 arg; |
979 | BGET_I32(arg); |
980 | cCOP->cop_arybase = arg; |
981 | break; |
982 | } |
2814eb74 |
983 | case INSN_COP_LINE: /* 131 */ |
79ee8297 |
984 | { |
985 | line_t arg; |
dea28490 |
986 | BGET_U32(arg); |
3610fdac |
987 | cCOP->cop_line = arg; |
988 | break; |
989 | } |
2814eb74 |
990 | case INSN_COP_IO: /* 132 */ |
3610fdac |
991 | { |
992 | svindex arg; |
993 | BGET_svindex(arg); |
994 | cCOP->cop_io = arg; |
79ee8297 |
995 | break; |
996 | } |
2814eb74 |
997 | case INSN_COP_WARNINGS: /* 133 */ |
b295d113 |
998 | { |
999 | svindex arg; |
1000 | BGET_svindex(arg); |
1001 | cCOP->cop_warnings = arg; |
1002 | break; |
1003 | } |
2814eb74 |
1004 | case INSN_MAIN_START: /* 134 */ |
79ee8297 |
1005 | { |
1006 | opindex arg; |
01f988be |
1007 | BGET_opindex(arg); |
3280af22 |
1008 | PL_main_start = arg; |
79ee8297 |
1009 | break; |
1010 | } |
2814eb74 |
1011 | case INSN_MAIN_ROOT: /* 135 */ |
79ee8297 |
1012 | { |
1013 | opindex arg; |
01f988be |
1014 | BGET_opindex(arg); |
3280af22 |
1015 | PL_main_root = arg; |
79ee8297 |
1016 | break; |
1017 | } |
2814eb74 |
1018 | case INSN_MAIN_CV: /* 136 */ |
3610fdac |
1019 | { |
1020 | svindex arg; |
1021 | BGET_svindex(arg); |
1022 | *(SV**)&PL_main_cv = arg; |
1023 | break; |
1024 | } |
2814eb74 |
1025 | case INSN_CURPAD: /* 137 */ |
79ee8297 |
1026 | { |
1027 | svindex arg; |
01f988be |
1028 | BGET_svindex(arg); |
3280af22 |
1029 | BSET_curpad(PL_curpad, arg); |
79ee8297 |
1030 | break; |
1031 | } |
2814eb74 |
1032 | case INSN_PUSH_BEGIN: /* 138 */ |
059a8bb7 |
1033 | { |
1034 | svindex arg; |
1035 | BGET_svindex(arg); |
1036 | BSET_push_begin(PL_beginav, arg); |
1037 | break; |
1038 | } |
2814eb74 |
1039 | case INSN_PUSH_INIT: /* 139 */ |
059a8bb7 |
1040 | { |
1041 | svindex arg; |
1042 | BGET_svindex(arg); |
1043 | BSET_push_init(PL_initav, arg); |
1044 | break; |
1045 | } |
2814eb74 |
1046 | case INSN_PUSH_END: /* 140 */ |
059a8bb7 |
1047 | { |
1048 | svindex arg; |
1049 | BGET_svindex(arg); |
1050 | BSET_push_end(PL_endav, arg); |
1051 | break; |
1052 | } |
2814eb74 |
1053 | case INSN_CURSTASH: /* 141 */ |
3610fdac |
1054 | { |
1055 | svindex arg; |
1056 | BGET_svindex(arg); |
1057 | *(SV**)&PL_curstash = arg; |
1058 | break; |
1059 | } |
2814eb74 |
1060 | case INSN_DEFSTASH: /* 142 */ |
3610fdac |
1061 | { |
1062 | svindex arg; |
1063 | BGET_svindex(arg); |
1064 | *(SV**)&PL_defstash = arg; |
1065 | break; |
1066 | } |
2814eb74 |
1067 | case INSN_DATA: /* 143 */ |
3610fdac |
1068 | { |
1069 | U8 arg; |
1070 | BGET_U8(arg); |
1071 | BSET_data(none, arg); |
1072 | break; |
1073 | } |
2814eb74 |
1074 | case INSN_INCAV: /* 144 */ |
3610fdac |
1075 | { |
1076 | svindex arg; |
1077 | BGET_svindex(arg); |
0ac16f7c |
1078 | *(SV**)&GvAV(PL_incgv) = arg; |
3610fdac |
1079 | break; |
1080 | } |
2814eb74 |
1081 | case INSN_LOAD_GLOB: /* 145 */ |
3610fdac |
1082 | { |
1083 | svindex arg; |
1084 | BGET_svindex(arg); |
1085 | BSET_load_glob(none, arg); |
1086 | break; |
1087 | } |
1088 | #ifdef USE_ITHREADS |
2814eb74 |
1089 | case INSN_REGEX_PADAV: /* 146 */ |
3610fdac |
1090 | { |
1091 | svindex arg; |
1092 | BGET_svindex(arg); |
1093 | *(SV**)&PL_regex_padav = arg; |
1094 | break; |
1095 | } |
1096 | #endif |
2814eb74 |
1097 | case INSN_DOWARN: /* 147 */ |
3610fdac |
1098 | { |
1099 | U8 arg; |
1100 | BGET_U8(arg); |
1101 | PL_dowarn = arg; |
1102 | break; |
1103 | } |
2814eb74 |
1104 | case INSN_COMPPAD_NAME: /* 148 */ |
3610fdac |
1105 | { |
1106 | svindex arg; |
1107 | BGET_svindex(arg); |
1108 | *(SV**)&PL_comppad_name = arg; |
1109 | break; |
1110 | } |
2814eb74 |
1111 | case INSN_XGV_STASH: /* 149 */ |
3610fdac |
1112 | { |
1113 | svindex arg; |
1114 | BGET_svindex(arg); |
1115 | *(SV**)&GvSTASH(bstate->bs_sv) = arg; |
1116 | break; |
1117 | } |
2814eb74 |
1118 | case INSN_SIGNAL: /* 150 */ |
3610fdac |
1119 | { |
1120 | strconst arg; |
1121 | BGET_strconst(arg); |
1122 | BSET_signal(bstate->bs_sv, arg); |
1123 | break; |
1124 | } |
2814eb74 |
1125 | case INSN_FORMFEED: /* 151 */ |
3610fdac |
1126 | { |
1127 | svindex arg; |
1128 | BGET_svindex(arg); |
1129 | PL_formfeed = arg; |
1130 | break; |
1131 | } |
79ee8297 |
1132 | default: |
cea2e8a9 |
1133 | Perl_croak(aTHX_ "Illegal bytecode instruction %d\n", insn); |
79ee8297 |
1134 | /* NOTREACHED */ |
1135 | } |
1136 | } |
3610fdac |
1137 | return 0; |
79ee8297 |
1138 | } |