Commit | Line | Data |
---|---|---|
79ee8297 | 1 | /* |
33b839e2 | 2 | * Copyright (c) 1996-1998 Malcolm Beattie |
79ee8297 MB |
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 | ||
12 | #include "EXTERN.h" | |
13 | #include "perl.h" | |
d613ef02 GS |
14 | |
15 | void * | |
16 | bset_obj_store(void *obj, I32 ix) | |
17 | { | |
92742e37 GS |
18 | if (ix > PL_bytecode_obj_list_fill) { |
19 | if (PL_bytecode_obj_list_fill == -1) | |
20 | New(666, PL_bytecode_obj_list, ix + 1, void*); | |
d613ef02 | 21 | else |
92742e37 GS |
22 | Renew(PL_bytecode_obj_list, ix + 1, void*); |
23 | PL_bytecode_obj_list_fill = ix; | |
d613ef02 | 24 | } |
92742e37 | 25 | PL_bytecode_obj_list[ix] = obj; |
d613ef02 GS |
26 | return obj; |
27 | } | |
79ee8297 MB |
28 | |
29 | #ifdef INDIRECT_BGET_MACROS | |
33b839e2 | 30 | void byterun(struct bytestream bs) |
79ee8297 | 31 | #else |
4b534093 | 32 | void byterun(PerlIO *fp) |
79ee8297 MB |
33 | #endif /* INDIRECT_BGET_MACROS */ |
34 | { | |
ed65db6c | 35 | dTHR; |
79ee8297 | 36 | int insn; |
47358472 | 37 | while ((insn = BGET_FGETC()) != EOF) { |
79ee8297 MB |
38 | switch (insn) { |
39 | case INSN_COMMENT: /* 35 */ | |
40 | { | |
34e97019 | 41 | comment_t arg; |
fe3a57c4 | 42 | BGET_comment_t(arg); |
79ee8297 MB |
43 | arg = arg; |
44 | break; | |
45 | } | |
46 | case INSN_NOP: /* 10 */ | |
47 | { | |
48 | break; | |
49 | } | |
50 | case INSN_RET: /* 0 */ | |
51 | { | |
52 | BSET_ret(none); | |
53 | break; | |
54 | } | |
55 | case INSN_LDSV: /* 1 */ | |
56 | { | |
57 | svindex arg; | |
01f988be | 58 | BGET_svindex(arg); |
92742e37 | 59 | PL_bytecode_sv = arg; |
79ee8297 MB |
60 | break; |
61 | } | |
62 | case INSN_LDOP: /* 2 */ | |
63 | { | |
64 | opindex arg; | |
01f988be | 65 | BGET_opindex(arg); |
533c011a | 66 | PL_op = arg; |
79ee8297 MB |
67 | break; |
68 | } | |
69 | case INSN_STSV: /* 3 */ | |
70 | { | |
71 | U32 arg; | |
72 | BGET_U32(arg); | |
92742e37 | 73 | BSET_OBJ_STORE(PL_bytecode_sv, arg); |
79ee8297 MB |
74 | break; |
75 | } | |
76 | case INSN_STOP: /* 4 */ | |
77 | { | |
78 | U32 arg; | |
79 | BGET_U32(arg); | |
533c011a | 80 | BSET_OBJ_STORE(PL_op, arg); |
79ee8297 MB |
81 | break; |
82 | } | |
83 | case INSN_LDSPECSV: /* 5 */ | |
84 | { | |
85 | U8 arg; | |
86 | BGET_U8(arg); | |
92742e37 | 87 | BSET_ldspecsv(PL_bytecode_sv, arg); |
79ee8297 MB |
88 | break; |
89 | } | |
90 | case INSN_NEWSV: /* 6 */ | |
91 | { | |
92 | U8 arg; | |
93 | BGET_U8(arg); | |
92742e37 | 94 | BSET_newsv(PL_bytecode_sv, arg); |
79ee8297 MB |
95 | break; |
96 | } | |
97 | case INSN_NEWOP: /* 7 */ | |
98 | { | |
99 | U8 arg; | |
100 | BGET_U8(arg); | |
533c011a | 101 | BSET_newop(PL_op, arg); |
79ee8297 MB |
102 | break; |
103 | } | |
104 | case INSN_NEWOPN: /* 8 */ | |
105 | { | |
106 | U8 arg; | |
107 | BGET_U8(arg); | |
533c011a | 108 | BSET_newopn(PL_op, arg); |
79ee8297 MB |
109 | break; |
110 | } | |
111 | case INSN_NEWPV: /* 9 */ | |
112 | { | |
113 | PV arg; | |
114 | BGET_PV(arg); | |
115 | break; | |
116 | } | |
117 | case INSN_PV_CUR: /* 11 */ | |
118 | { | |
119 | STRLEN arg; | |
120 | BGET_U32(arg); | |
92742e37 | 121 | PL_bytecode_pv.xpv_cur = arg; |
79ee8297 MB |
122 | break; |
123 | } | |
124 | case INSN_PV_FREE: /* 12 */ | |
125 | { | |
92742e37 | 126 | BSET_pv_free(PL_bytecode_pv); |
79ee8297 MB |
127 | break; |
128 | } | |
129 | case INSN_SV_UPGRADE: /* 13 */ | |
130 | { | |
131 | char arg; | |
132 | BGET_U8(arg); | |
92742e37 | 133 | BSET_sv_upgrade(PL_bytecode_sv, arg); |
79ee8297 MB |
134 | break; |
135 | } | |
136 | case INSN_SV_REFCNT: /* 14 */ | |
137 | { | |
138 | U32 arg; | |
139 | BGET_U32(arg); | |
92742e37 | 140 | SvREFCNT(PL_bytecode_sv) = arg; |
79ee8297 MB |
141 | break; |
142 | } | |
143 | case INSN_SV_REFCNT_ADD: /* 15 */ | |
144 | { | |
145 | I32 arg; | |
146 | BGET_I32(arg); | |
92742e37 | 147 | BSET_sv_refcnt_add(SvREFCNT(PL_bytecode_sv), arg); |
79ee8297 MB |
148 | break; |
149 | } | |
150 | case INSN_SV_FLAGS: /* 16 */ | |
151 | { | |
152 | U32 arg; | |
153 | BGET_U32(arg); | |
92742e37 | 154 | SvFLAGS(PL_bytecode_sv) = arg; |
79ee8297 MB |
155 | break; |
156 | } | |
157 | case INSN_XRV: /* 17 */ | |
158 | { | |
159 | svindex arg; | |
01f988be | 160 | BGET_svindex(arg); |
92742e37 | 161 | SvRV(PL_bytecode_sv) = arg; |
79ee8297 MB |
162 | break; |
163 | } | |
164 | case INSN_XPV: /* 18 */ | |
165 | { | |
92742e37 | 166 | BSET_xpv(PL_bytecode_sv); |
79ee8297 MB |
167 | break; |
168 | } | |
169 | case INSN_XIV32: /* 19 */ | |
170 | { | |
171 | I32 arg; | |
172 | BGET_I32(arg); | |
92742e37 | 173 | SvIVX(PL_bytecode_sv) = arg; |
79ee8297 MB |
174 | break; |
175 | } | |
176 | case INSN_XIV64: /* 20 */ | |
177 | { | |
178 | IV64 arg; | |
179 | BGET_IV64(arg); | |
92742e37 | 180 | SvIVX(PL_bytecode_sv) = arg; |
79ee8297 MB |
181 | break; |
182 | } | |
183 | case INSN_XNV: /* 21 */ | |
184 | { | |
185 | double arg; | |
186 | BGET_double(arg); | |
92742e37 | 187 | SvNVX(PL_bytecode_sv) = arg; |
79ee8297 MB |
188 | break; |
189 | } | |
190 | case INSN_XLV_TARGOFF: /* 22 */ | |
191 | { | |
192 | STRLEN arg; | |
193 | BGET_U32(arg); | |
92742e37 | 194 | LvTARGOFF(PL_bytecode_sv) = arg; |
79ee8297 MB |
195 | break; |
196 | } | |
197 | case INSN_XLV_TARGLEN: /* 23 */ | |
198 | { | |
199 | STRLEN arg; | |
200 | BGET_U32(arg); | |
92742e37 | 201 | LvTARGLEN(PL_bytecode_sv) = arg; |
79ee8297 MB |
202 | break; |
203 | } | |
204 | case INSN_XLV_TARG: /* 24 */ | |
205 | { | |
206 | svindex arg; | |
01f988be | 207 | BGET_svindex(arg); |
92742e37 | 208 | LvTARG(PL_bytecode_sv) = arg; |
79ee8297 MB |
209 | break; |
210 | } | |
211 | case INSN_XLV_TYPE: /* 25 */ | |
212 | { | |
213 | char arg; | |
214 | BGET_U8(arg); | |
92742e37 | 215 | LvTYPE(PL_bytecode_sv) = arg; |
79ee8297 MB |
216 | break; |
217 | } | |
218 | case INSN_XBM_USEFUL: /* 26 */ | |
219 | { | |
220 | I32 arg; | |
221 | BGET_I32(arg); | |
92742e37 | 222 | BmUSEFUL(PL_bytecode_sv) = arg; |
79ee8297 MB |
223 | break; |
224 | } | |
225 | case INSN_XBM_PREVIOUS: /* 27 */ | |
226 | { | |
227 | U16 arg; | |
228 | BGET_U16(arg); | |
92742e37 | 229 | BmPREVIOUS(PL_bytecode_sv) = arg; |
79ee8297 MB |
230 | break; |
231 | } | |
232 | case INSN_XBM_RARE: /* 28 */ | |
233 | { | |
234 | U8 arg; | |
235 | BGET_U8(arg); | |
92742e37 | 236 | BmRARE(PL_bytecode_sv) = arg; |
79ee8297 MB |
237 | break; |
238 | } | |
239 | case INSN_XFM_LINES: /* 29 */ | |
240 | { | |
241 | I32 arg; | |
242 | BGET_I32(arg); | |
92742e37 | 243 | FmLINES(PL_bytecode_sv) = arg; |
79ee8297 MB |
244 | break; |
245 | } | |
246 | case INSN_XIO_LINES: /* 30 */ | |
247 | { | |
248 | long arg; | |
249 | BGET_I32(arg); | |
92742e37 | 250 | IoLINES(PL_bytecode_sv) = arg; |
79ee8297 MB |
251 | break; |
252 | } | |
253 | case INSN_XIO_PAGE: /* 31 */ | |
254 | { | |
255 | long arg; | |
256 | BGET_I32(arg); | |
92742e37 | 257 | IoPAGE(PL_bytecode_sv) = arg; |
79ee8297 MB |
258 | break; |
259 | } | |
260 | case INSN_XIO_PAGE_LEN: /* 32 */ | |
261 | { | |
262 | long arg; | |
263 | BGET_I32(arg); | |
92742e37 | 264 | IoPAGE_LEN(PL_bytecode_sv) = arg; |
79ee8297 MB |
265 | break; |
266 | } | |
267 | case INSN_XIO_LINES_LEFT: /* 33 */ | |
268 | { | |
269 | long arg; | |
270 | BGET_I32(arg); | |
92742e37 | 271 | IoLINES_LEFT(PL_bytecode_sv) = arg; |
79ee8297 MB |
272 | break; |
273 | } | |
274 | case INSN_XIO_TOP_NAME: /* 34 */ | |
275 | { | |
276 | pvcontents arg; | |
277 | BGET_pvcontents(arg); | |
92742e37 | 278 | IoTOP_NAME(PL_bytecode_sv) = arg; |
79ee8297 MB |
279 | break; |
280 | } | |
281 | case INSN_XIO_TOP_GV: /* 36 */ | |
282 | { | |
283 | svindex arg; | |
01f988be | 284 | BGET_svindex(arg); |
92742e37 | 285 | *(SV**)&IoTOP_GV(PL_bytecode_sv) = arg; |
79ee8297 MB |
286 | break; |
287 | } | |
288 | case INSN_XIO_FMT_NAME: /* 37 */ | |
289 | { | |
290 | pvcontents arg; | |
291 | BGET_pvcontents(arg); | |
92742e37 | 292 | IoFMT_NAME(PL_bytecode_sv) = arg; |
79ee8297 MB |
293 | break; |
294 | } | |
295 | case INSN_XIO_FMT_GV: /* 38 */ | |
296 | { | |
297 | svindex arg; | |
01f988be | 298 | BGET_svindex(arg); |
92742e37 | 299 | *(SV**)&IoFMT_GV(PL_bytecode_sv) = arg; |
79ee8297 MB |
300 | break; |
301 | } | |
302 | case INSN_XIO_BOTTOM_NAME: /* 39 */ | |
303 | { | |
304 | pvcontents arg; | |
305 | BGET_pvcontents(arg); | |
92742e37 | 306 | IoBOTTOM_NAME(PL_bytecode_sv) = arg; |
79ee8297 MB |
307 | break; |
308 | } | |
309 | case INSN_XIO_BOTTOM_GV: /* 40 */ | |
310 | { | |
311 | svindex arg; | |
01f988be | 312 | BGET_svindex(arg); |
92742e37 | 313 | *(SV**)&IoBOTTOM_GV(PL_bytecode_sv) = arg; |
79ee8297 MB |
314 | break; |
315 | } | |
316 | case INSN_XIO_SUBPROCESS: /* 41 */ | |
317 | { | |
318 | short arg; | |
319 | BGET_U16(arg); | |
92742e37 | 320 | IoSUBPROCESS(PL_bytecode_sv) = arg; |
79ee8297 MB |
321 | break; |
322 | } | |
323 | case INSN_XIO_TYPE: /* 42 */ | |
324 | { | |
325 | char arg; | |
326 | BGET_U8(arg); | |
92742e37 | 327 | IoTYPE(PL_bytecode_sv) = arg; |
79ee8297 MB |
328 | break; |
329 | } | |
330 | case INSN_XIO_FLAGS: /* 43 */ | |
331 | { | |
332 | char arg; | |
333 | BGET_U8(arg); | |
92742e37 | 334 | IoFLAGS(PL_bytecode_sv) = arg; |
79ee8297 MB |
335 | break; |
336 | } | |
337 | case INSN_XCV_STASH: /* 44 */ | |
338 | { | |
339 | svindex arg; | |
01f988be | 340 | BGET_svindex(arg); |
92742e37 | 341 | *(SV**)&CvSTASH(PL_bytecode_sv) = arg; |
79ee8297 MB |
342 | break; |
343 | } | |
344 | case INSN_XCV_START: /* 45 */ | |
345 | { | |
346 | opindex arg; | |
01f988be | 347 | BGET_opindex(arg); |
92742e37 | 348 | CvSTART(PL_bytecode_sv) = arg; |
79ee8297 MB |
349 | break; |
350 | } | |
351 | case INSN_XCV_ROOT: /* 46 */ | |
352 | { | |
353 | opindex arg; | |
01f988be | 354 | BGET_opindex(arg); |
92742e37 | 355 | CvROOT(PL_bytecode_sv) = arg; |
79ee8297 MB |
356 | break; |
357 | } | |
358 | case INSN_XCV_GV: /* 47 */ | |
359 | { | |
360 | svindex arg; | |
01f988be | 361 | BGET_svindex(arg); |
92742e37 | 362 | *(SV**)&CvGV(PL_bytecode_sv) = arg; |
79ee8297 MB |
363 | break; |
364 | } | |
365 | case INSN_XCV_FILEGV: /* 48 */ | |
366 | { | |
367 | svindex arg; | |
01f988be | 368 | BGET_svindex(arg); |
92742e37 | 369 | *(SV**)&CvFILEGV(PL_bytecode_sv) = arg; |
79ee8297 MB |
370 | break; |
371 | } | |
372 | case INSN_XCV_DEPTH: /* 49 */ | |
373 | { | |
374 | long arg; | |
375 | BGET_I32(arg); | |
92742e37 | 376 | CvDEPTH(PL_bytecode_sv) = arg; |
79ee8297 MB |
377 | break; |
378 | } | |
379 | case INSN_XCV_PADLIST: /* 50 */ | |
380 | { | |
381 | svindex arg; | |
01f988be | 382 | BGET_svindex(arg); |
92742e37 | 383 | *(SV**)&CvPADLIST(PL_bytecode_sv) = arg; |
79ee8297 MB |
384 | break; |
385 | } | |
386 | case INSN_XCV_OUTSIDE: /* 51 */ | |
387 | { | |
388 | svindex arg; | |
01f988be | 389 | BGET_svindex(arg); |
92742e37 | 390 | *(SV**)&CvOUTSIDE(PL_bytecode_sv) = arg; |
79ee8297 MB |
391 | break; |
392 | } | |
393 | case INSN_XCV_FLAGS: /* 52 */ | |
394 | { | |
395 | U8 arg; | |
396 | BGET_U8(arg); | |
92742e37 | 397 | CvFLAGS(PL_bytecode_sv) = arg; |
79ee8297 MB |
398 | break; |
399 | } | |
400 | case INSN_AV_EXTEND: /* 53 */ | |
401 | { | |
402 | SSize_t arg; | |
403 | BGET_I32(arg); | |
92742e37 | 404 | BSET_av_extend(PL_bytecode_sv, arg); |
79ee8297 MB |
405 | break; |
406 | } | |
407 | case INSN_AV_PUSH: /* 54 */ | |
408 | { | |
409 | svindex arg; | |
01f988be | 410 | BGET_svindex(arg); |
92742e37 | 411 | BSET_av_push(PL_bytecode_sv, arg); |
79ee8297 MB |
412 | break; |
413 | } | |
414 | case INSN_XAV_FILL: /* 55 */ | |
415 | { | |
416 | SSize_t arg; | |
417 | BGET_I32(arg); | |
92742e37 | 418 | AvFILLp(PL_bytecode_sv) = arg; |
79ee8297 MB |
419 | break; |
420 | } | |
421 | case INSN_XAV_MAX: /* 56 */ | |
422 | { | |
423 | SSize_t arg; | |
424 | BGET_I32(arg); | |
92742e37 | 425 | AvMAX(PL_bytecode_sv) = arg; |
79ee8297 MB |
426 | break; |
427 | } | |
428 | case INSN_XAV_FLAGS: /* 57 */ | |
429 | { | |
430 | U8 arg; | |
431 | BGET_U8(arg); | |
92742e37 | 432 | AvFLAGS(PL_bytecode_sv) = arg; |
79ee8297 MB |
433 | break; |
434 | } | |
435 | case INSN_XHV_RITER: /* 58 */ | |
436 | { | |
437 | I32 arg; | |
438 | BGET_I32(arg); | |
92742e37 | 439 | HvRITER(PL_bytecode_sv) = arg; |
79ee8297 MB |
440 | break; |
441 | } | |
442 | case INSN_XHV_NAME: /* 59 */ | |
443 | { | |
444 | pvcontents arg; | |
445 | BGET_pvcontents(arg); | |
92742e37 | 446 | HvNAME(PL_bytecode_sv) = arg; |
79ee8297 MB |
447 | break; |
448 | } | |
449 | case INSN_HV_STORE: /* 60 */ | |
450 | { | |
451 | svindex arg; | |
01f988be | 452 | BGET_svindex(arg); |
92742e37 | 453 | BSET_hv_store(PL_bytecode_sv, arg); |
79ee8297 MB |
454 | break; |
455 | } | |
456 | case INSN_SV_MAGIC: /* 61 */ | |
457 | { | |
458 | char arg; | |
459 | BGET_U8(arg); | |
92742e37 | 460 | BSET_sv_magic(PL_bytecode_sv, arg); |
79ee8297 MB |
461 | break; |
462 | } | |
463 | case INSN_MG_OBJ: /* 62 */ | |
464 | { | |
465 | svindex arg; | |
01f988be | 466 | BGET_svindex(arg); |
92742e37 | 467 | SvMAGIC(PL_bytecode_sv)->mg_obj = arg; |
79ee8297 MB |
468 | break; |
469 | } | |
470 | case INSN_MG_PRIVATE: /* 63 */ | |
471 | { | |
472 | U16 arg; | |
473 | BGET_U16(arg); | |
92742e37 | 474 | SvMAGIC(PL_bytecode_sv)->mg_private = arg; |
79ee8297 MB |
475 | break; |
476 | } | |
477 | case INSN_MG_FLAGS: /* 64 */ | |
478 | { | |
479 | U8 arg; | |
480 | BGET_U8(arg); | |
92742e37 | 481 | SvMAGIC(PL_bytecode_sv)->mg_flags = arg; |
79ee8297 MB |
482 | break; |
483 | } | |
484 | case INSN_MG_PV: /* 65 */ | |
485 | { | |
486 | pvcontents arg; | |
487 | BGET_pvcontents(arg); | |
92742e37 | 488 | BSET_mg_pv(SvMAGIC(PL_bytecode_sv), arg); |
79ee8297 MB |
489 | break; |
490 | } | |
491 | case INSN_XMG_STASH: /* 66 */ | |
492 | { | |
493 | svindex arg; | |
01f988be | 494 | BGET_svindex(arg); |
92742e37 | 495 | *(SV**)&SvSTASH(PL_bytecode_sv) = arg; |
79ee8297 MB |
496 | break; |
497 | } | |
498 | case INSN_GV_FETCHPV: /* 67 */ | |
499 | { | |
500 | strconst arg; | |
501 | BGET_strconst(arg); | |
92742e37 | 502 | BSET_gv_fetchpv(PL_bytecode_sv, arg); |
79ee8297 MB |
503 | break; |
504 | } | |
505 | case INSN_GV_STASHPV: /* 68 */ | |
506 | { | |
507 | strconst arg; | |
508 | BGET_strconst(arg); | |
92742e37 | 509 | BSET_gv_stashpv(PL_bytecode_sv, arg); |
79ee8297 MB |
510 | break; |
511 | } | |
512 | case INSN_GP_SV: /* 69 */ | |
513 | { | |
514 | svindex arg; | |
01f988be | 515 | BGET_svindex(arg); |
92742e37 | 516 | GvSV(PL_bytecode_sv) = arg; |
79ee8297 MB |
517 | break; |
518 | } | |
519 | case INSN_GP_REFCNT: /* 70 */ | |
520 | { | |
521 | U32 arg; | |
522 | BGET_U32(arg); | |
92742e37 | 523 | GvREFCNT(PL_bytecode_sv) = arg; |
79ee8297 MB |
524 | break; |
525 | } | |
526 | case INSN_GP_REFCNT_ADD: /* 71 */ | |
527 | { | |
528 | I32 arg; | |
529 | BGET_I32(arg); | |
92742e37 | 530 | BSET_gp_refcnt_add(GvREFCNT(PL_bytecode_sv), arg); |
79ee8297 MB |
531 | break; |
532 | } | |
533 | case INSN_GP_AV: /* 72 */ | |
534 | { | |
535 | svindex arg; | |
01f988be | 536 | BGET_svindex(arg); |
92742e37 | 537 | *(SV**)&GvAV(PL_bytecode_sv) = arg; |
79ee8297 MB |
538 | break; |
539 | } | |
540 | case INSN_GP_HV: /* 73 */ | |
541 | { | |
542 | svindex arg; | |
01f988be | 543 | BGET_svindex(arg); |
92742e37 | 544 | *(SV**)&GvHV(PL_bytecode_sv) = arg; |
79ee8297 MB |
545 | break; |
546 | } | |
547 | case INSN_GP_CV: /* 74 */ | |
548 | { | |
549 | svindex arg; | |
01f988be | 550 | BGET_svindex(arg); |
92742e37 | 551 | *(SV**)&GvCV(PL_bytecode_sv) = arg; |
79ee8297 MB |
552 | break; |
553 | } | |
554 | case INSN_GP_FILEGV: /* 75 */ | |
555 | { | |
556 | svindex arg; | |
01f988be | 557 | BGET_svindex(arg); |
92742e37 | 558 | *(SV**)&GvFILEGV(PL_bytecode_sv) = arg; |
79ee8297 MB |
559 | break; |
560 | } | |
561 | case INSN_GP_IO: /* 76 */ | |
562 | { | |
563 | svindex arg; | |
01f988be | 564 | BGET_svindex(arg); |
92742e37 | 565 | *(SV**)&GvIOp(PL_bytecode_sv) = arg; |
79ee8297 MB |
566 | break; |
567 | } | |
568 | case INSN_GP_FORM: /* 77 */ | |
569 | { | |
570 | svindex arg; | |
01f988be | 571 | BGET_svindex(arg); |
92742e37 | 572 | *(SV**)&GvFORM(PL_bytecode_sv) = arg; |
79ee8297 MB |
573 | break; |
574 | } | |
575 | case INSN_GP_CVGEN: /* 78 */ | |
576 | { | |
577 | U32 arg; | |
578 | BGET_U32(arg); | |
92742e37 | 579 | GvCVGEN(PL_bytecode_sv) = arg; |
79ee8297 MB |
580 | break; |
581 | } | |
582 | case INSN_GP_LINE: /* 79 */ | |
583 | { | |
584 | line_t arg; | |
585 | BGET_U16(arg); | |
92742e37 | 586 | GvLINE(PL_bytecode_sv) = arg; |
79ee8297 MB |
587 | break; |
588 | } | |
589 | case INSN_GP_SHARE: /* 80 */ | |
590 | { | |
591 | svindex arg; | |
01f988be | 592 | BGET_svindex(arg); |
92742e37 | 593 | BSET_gp_share(PL_bytecode_sv, arg); |
79ee8297 MB |
594 | break; |
595 | } | |
596 | case INSN_XGV_FLAGS: /* 81 */ | |
597 | { | |
598 | U8 arg; | |
599 | BGET_U8(arg); | |
92742e37 | 600 | GvFLAGS(PL_bytecode_sv) = arg; |
79ee8297 MB |
601 | break; |
602 | } | |
603 | case INSN_OP_NEXT: /* 82 */ | |
604 | { | |
605 | opindex arg; | |
01f988be | 606 | BGET_opindex(arg); |
533c011a | 607 | PL_op->op_next = arg; |
79ee8297 MB |
608 | break; |
609 | } | |
610 | case INSN_OP_SIBLING: /* 83 */ | |
611 | { | |
612 | opindex arg; | |
01f988be | 613 | BGET_opindex(arg); |
533c011a | 614 | PL_op->op_sibling = arg; |
79ee8297 MB |
615 | break; |
616 | } | |
617 | case INSN_OP_PPADDR: /* 84 */ | |
618 | { | |
619 | strconst arg; | |
620 | BGET_strconst(arg); | |
6b88bc9c | 621 | BSET_op_ppaddr(PL_op->op_ppaddr, arg); |
79ee8297 MB |
622 | break; |
623 | } | |
624 | case INSN_OP_TARG: /* 85 */ | |
625 | { | |
626 | PADOFFSET arg; | |
627 | BGET_U32(arg); | |
533c011a | 628 | PL_op->op_targ = arg; |
79ee8297 MB |
629 | break; |
630 | } | |
631 | case INSN_OP_TYPE: /* 86 */ | |
632 | { | |
633 | OPCODE arg; | |
634 | BGET_U16(arg); | |
533c011a | 635 | BSET_op_type(PL_op, arg); |
79ee8297 MB |
636 | break; |
637 | } | |
638 | case INSN_OP_SEQ: /* 87 */ | |
639 | { | |
640 | U16 arg; | |
641 | BGET_U16(arg); | |
533c011a | 642 | PL_op->op_seq = arg; |
79ee8297 MB |
643 | break; |
644 | } | |
645 | case INSN_OP_FLAGS: /* 88 */ | |
646 | { | |
647 | U8 arg; | |
648 | BGET_U8(arg); | |
533c011a | 649 | PL_op->op_flags = arg; |
79ee8297 MB |
650 | break; |
651 | } | |
652 | case INSN_OP_PRIVATE: /* 89 */ | |
653 | { | |
654 | U8 arg; | |
655 | BGET_U8(arg); | |
533c011a | 656 | PL_op->op_private = arg; |
79ee8297 MB |
657 | break; |
658 | } | |
659 | case INSN_OP_FIRST: /* 90 */ | |
660 | { | |
661 | opindex arg; | |
01f988be | 662 | BGET_opindex(arg); |
79ee8297 MB |
663 | cUNOP->op_first = arg; |
664 | break; | |
665 | } | |
666 | case INSN_OP_LAST: /* 91 */ | |
667 | { | |
668 | opindex arg; | |
01f988be | 669 | BGET_opindex(arg); |
79ee8297 MB |
670 | cBINOP->op_last = arg; |
671 | break; | |
672 | } | |
673 | case INSN_OP_OTHER: /* 92 */ | |
674 | { | |
675 | opindex arg; | |
01f988be | 676 | BGET_opindex(arg); |
79ee8297 MB |
677 | cLOGOP->op_other = arg; |
678 | break; | |
679 | } | |
680 | case INSN_OP_TRUE: /* 93 */ | |
681 | { | |
682 | opindex arg; | |
01f988be | 683 | BGET_opindex(arg); |
79ee8297 MB |
684 | cCONDOP->op_true = arg; |
685 | break; | |
686 | } | |
687 | case INSN_OP_FALSE: /* 94 */ | |
688 | { | |
689 | opindex arg; | |
01f988be | 690 | BGET_opindex(arg); |
79ee8297 MB |
691 | cCONDOP->op_false = arg; |
692 | break; | |
693 | } | |
694 | case INSN_OP_CHILDREN: /* 95 */ | |
695 | { | |
696 | U32 arg; | |
697 | BGET_U32(arg); | |
698 | cLISTOP->op_children = arg; | |
699 | break; | |
700 | } | |
701 | case INSN_OP_PMREPLROOT: /* 96 */ | |
702 | { | |
703 | opindex arg; | |
01f988be | 704 | BGET_opindex(arg); |
79ee8297 MB |
705 | cPMOP->op_pmreplroot = arg; |
706 | break; | |
707 | } | |
708 | case INSN_OP_PMREPLROOTGV: /* 97 */ | |
709 | { | |
710 | svindex arg; | |
01f988be | 711 | BGET_svindex(arg); |
79ee8297 MB |
712 | *(SV**)&cPMOP->op_pmreplroot = arg; |
713 | break; | |
714 | } | |
715 | case INSN_OP_PMREPLSTART: /* 98 */ | |
716 | { | |
717 | opindex arg; | |
01f988be | 718 | BGET_opindex(arg); |
79ee8297 MB |
719 | cPMOP->op_pmreplstart = arg; |
720 | break; | |
721 | } | |
722 | case INSN_OP_PMNEXT: /* 99 */ | |
723 | { | |
724 | opindex arg; | |
01f988be | 725 | BGET_opindex(arg); |
79ee8297 MB |
726 | *(OP**)&cPMOP->op_pmnext = arg; |
727 | break; | |
728 | } | |
729 | case INSN_PREGCOMP: /* 100 */ | |
730 | { | |
731 | pvcontents arg; | |
732 | BGET_pvcontents(arg); | |
533c011a | 733 | BSET_pregcomp(PL_op, arg); |
79ee8297 MB |
734 | break; |
735 | } | |
b15db76c | 736 | case INSN_OP_PMFLAGS: /* 101 */ |
79ee8297 MB |
737 | { |
738 | U16 arg; | |
739 | BGET_U16(arg); | |
740 | cPMOP->op_pmflags = arg; | |
741 | break; | |
742 | } | |
b15db76c | 743 | case INSN_OP_PMPERMFLAGS: /* 102 */ |
79ee8297 MB |
744 | { |
745 | U16 arg; | |
746 | BGET_U16(arg); | |
747 | cPMOP->op_pmpermflags = arg; | |
748 | break; | |
749 | } | |
b15db76c | 750 | case INSN_OP_SV: /* 103 */ |
79ee8297 MB |
751 | { |
752 | svindex arg; | |
01f988be | 753 | BGET_svindex(arg); |
79ee8297 MB |
754 | cSVOP->op_sv = arg; |
755 | break; | |
756 | } | |
b15db76c | 757 | case INSN_OP_GV: /* 104 */ |
79ee8297 MB |
758 | { |
759 | svindex arg; | |
01f988be | 760 | BGET_svindex(arg); |
f64a6365 | 761 | *(SV**)&cGVOP->op_gv = arg; |
79ee8297 MB |
762 | break; |
763 | } | |
b15db76c | 764 | case INSN_OP_PV: /* 105 */ |
79ee8297 MB |
765 | { |
766 | pvcontents arg; | |
767 | BGET_pvcontents(arg); | |
768 | cPVOP->op_pv = arg; | |
769 | break; | |
770 | } | |
b15db76c | 771 | case INSN_OP_PV_TR: /* 106 */ |
79ee8297 MB |
772 | { |
773 | op_tr_array arg; | |
774 | BGET_op_tr_array(arg); | |
775 | cPVOP->op_pv = arg; | |
776 | break; | |
777 | } | |
b15db76c | 778 | case INSN_OP_REDOOP: /* 107 */ |
79ee8297 MB |
779 | { |
780 | opindex arg; | |
01f988be | 781 | BGET_opindex(arg); |
79ee8297 MB |
782 | cLOOP->op_redoop = arg; |
783 | break; | |
784 | } | |
b15db76c | 785 | case INSN_OP_NEXTOP: /* 108 */ |
79ee8297 MB |
786 | { |
787 | opindex arg; | |
01f988be | 788 | BGET_opindex(arg); |
79ee8297 MB |
789 | cLOOP->op_nextop = arg; |
790 | break; | |
791 | } | |
b15db76c | 792 | case INSN_OP_LASTOP: /* 109 */ |
79ee8297 MB |
793 | { |
794 | opindex arg; | |
01f988be | 795 | BGET_opindex(arg); |
79ee8297 MB |
796 | cLOOP->op_lastop = arg; |
797 | break; | |
798 | } | |
b15db76c | 799 | case INSN_COP_LABEL: /* 110 */ |
79ee8297 MB |
800 | { |
801 | pvcontents arg; | |
802 | BGET_pvcontents(arg); | |
803 | cCOP->cop_label = arg; | |
804 | break; | |
805 | } | |
b15db76c | 806 | case INSN_COP_STASH: /* 111 */ |
79ee8297 MB |
807 | { |
808 | svindex arg; | |
01f988be | 809 | BGET_svindex(arg); |
79ee8297 MB |
810 | *(SV**)&cCOP->cop_stash = arg; |
811 | break; | |
812 | } | |
b15db76c | 813 | case INSN_COP_FILEGV: /* 112 */ |
79ee8297 MB |
814 | { |
815 | svindex arg; | |
01f988be | 816 | BGET_svindex(arg); |
f64a6365 | 817 | *(SV**)&cCOP->cop_filegv = arg; |
79ee8297 MB |
818 | break; |
819 | } | |
b15db76c | 820 | case INSN_COP_SEQ: /* 113 */ |
79ee8297 MB |
821 | { |
822 | U32 arg; | |
823 | BGET_U32(arg); | |
824 | cCOP->cop_seq = arg; | |
825 | break; | |
826 | } | |
b15db76c | 827 | case INSN_COP_ARYBASE: /* 114 */ |
79ee8297 MB |
828 | { |
829 | I32 arg; | |
830 | BGET_I32(arg); | |
831 | cCOP->cop_arybase = arg; | |
832 | break; | |
833 | } | |
b15db76c | 834 | case INSN_COP_LINE: /* 115 */ |
79ee8297 MB |
835 | { |
836 | line_t arg; | |
837 | BGET_U16(arg); | |
838 | cCOP->cop_line = arg; | |
839 | break; | |
840 | } | |
b15db76c | 841 | case INSN_MAIN_START: /* 116 */ |
79ee8297 MB |
842 | { |
843 | opindex arg; | |
01f988be | 844 | BGET_opindex(arg); |
3280af22 | 845 | PL_main_start = arg; |
79ee8297 MB |
846 | break; |
847 | } | |
b15db76c | 848 | case INSN_MAIN_ROOT: /* 117 */ |
79ee8297 MB |
849 | { |
850 | opindex arg; | |
01f988be | 851 | BGET_opindex(arg); |
3280af22 | 852 | PL_main_root = arg; |
79ee8297 MB |
853 | break; |
854 | } | |
b15db76c | 855 | case INSN_CURPAD: /* 118 */ |
79ee8297 MB |
856 | { |
857 | svindex arg; | |
01f988be | 858 | BGET_svindex(arg); |
3280af22 | 859 | BSET_curpad(PL_curpad, arg); |
79ee8297 MB |
860 | break; |
861 | } | |
862 | default: | |
863 | croak("Illegal bytecode instruction %d\n", insn); | |
864 | /* NOTREACHED */ | |
865 | } | |
866 | } | |
867 | } |