?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
fix codetest failure - ASSERT_ARGS does not have a ; after and
[parrot.git] / src / ops / core_ops.c
blob40bebf5874aadc57dea5bb5ef2c993cd665dd91a
1
2 /* ex: set ro:
3 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
4 *
5 * This file is generated automatically from 'src/ops/core.ops' (and possibly other
6 * .ops files). by ops2c.nqp.
7 *
8 * Any changes made here will be lost! To regenerate this file after making
9 * changes to any ops, use the bootstap-ops makefile target.
10 *
11 */
12
13 #include "parrot/oplib/core_ops.h"
14 #include "pmc/pmc_parrotlibrary.h"
15 #include "pmc/pmc_callcontext.h"
16
17
18 /* defines - Ops::Trans::C */
19 #undef CONST
20 #define REL_PC ((size_t)(cur_opcode - (opcode_t *)interp->code->base.data))
21 #define CUR_OPCODE cur_opcode
22 #define IREG(i) (CUR_CTX->bp.regs_i[cur_opcode[i]])
23 #define NREG(i) (CUR_CTX->bp.regs_n[-1L - cur_opcode[i]])
24 #define PREG(i) (CUR_CTX->bp_ps.regs_p[-1L - cur_opcode[i]])
25 #define SREG(i) (CUR_CTX->bp_ps.regs_s[cur_opcode[i]])
26 #define CONST(i) Parrot_pcc_get_constants(interp, interp->ctx)[cur_opcode[i]]
27
28 static int get_op(PARROT_INTERP, const char * name, int full);
29
30
31 /* XXX should be static, but C++ doesn't want to play ball */
32 extern op_lib_t core_op_lib;
33
34
35
36 #include "parrot/dynext.h"
37 #include "parrot/embed.h"
38 #include "parrot/runcore_api.h"
39 #include "pmc/pmc_continuation.h"
40 #include "pmc/pmc_parrotlibrary.h"
41
42
43 /* Signed shift operator that is compatible with PMC shifts. This is
44 * guaranteed to produce the same result as bitwise_left_shift_internal modulo
45 * word size, ignoring the fact that Parrot integers are always signed. This
46 * usually gives the same answer regardless whether you shift PMC operands and
47 * then assign to an I-reg, or move the operands to I-regs and do the shift
48 * there -- except when the true result is between 2^{w-1} and 2^w (where w is
49 * the word size), in which case the high order bit is taken as the sign,
50 * giving a truncated result that is 2^w lower.
51 */
52 #define bit_shift_left(number, bits) \
53 ((bits) >= 8*INTVAL_SIZE ? 0 \
54 : (bits) >= 0 ? (number) << (bits) \
55 : (bits) > -8*INTVAL_SIZE ? (number) >> -(bits) \
56 : 0)
57
58
59 #include "../io/io_private.h"
60
61
62 #if PARROT_HAS_ICU
63 # include <unicode/uchar.h>
64 #endif
65
66
67
68 INTVAL core_numops = 1084;
69
70 /*
71 ** Op Function Table:
72 */
73
74 static op_func_t core_op_func_table[1084] = {
75 Parrot_end, /* 0 */
76 Parrot_noop, /* 1 */
77 Parrot_check_events, /* 2 */
78 Parrot_check_events__, /* 3 */
79 Parrot_wrapper__, /* 4 */
80 Parrot_load_bytecode_s, /* 5 */
81 Parrot_load_bytecode_sc, /* 6 */
82 Parrot_load_language_s, /* 7 */
83 Parrot_load_language_sc, /* 8 */
84 Parrot_branch_i, /* 9 */
85 Parrot_branch_ic, /* 10 */
86 Parrot_local_branch_p_i, /* 11 */
87 Parrot_local_branch_p_ic, /* 12 */
88 Parrot_local_return_p, /* 13 */
89 Parrot_jump_i, /* 14 */
90 Parrot_jump_ic, /* 15 */
91 Parrot_enternative, /* 16 */
92 Parrot_if_i_ic, /* 17 */
93 Parrot_if_n_ic, /* 18 */
94 Parrot_if_s_ic, /* 19 */
95 Parrot_if_p_ic, /* 20 */
96 Parrot_unless_i_ic, /* 21 */
97 Parrot_unless_n_ic, /* 22 */
98 Parrot_unless_s_ic, /* 23 */
99 Parrot_unless_p_ic, /* 24 */
100 Parrot_invokecc_p, /* 25 */
101 Parrot_invoke_p_p, /* 26 */
102 Parrot_yield, /* 27 */
103 Parrot_tailcall_p, /* 28 */
104 Parrot_returncc, /* 29 */
105 Parrot_capture_lex_p, /* 30 */
106 Parrot_newclosure_p_p, /* 31 */
107 Parrot_set_args_pc, /* 32 */
108 Parrot_get_params_pc, /* 33 */
109 Parrot_set_returns_pc, /* 34 */
110 Parrot_get_results_pc, /* 35 */
111 Parrot_set_result_info_p, /* 36 */
112 Parrot_set_result_info_pc, /* 37 */
113 Parrot_result_info_p, /* 38 */
114 Parrot_set_addr_i_ic, /* 39 */
115 Parrot_set_addr_p_ic, /* 40 */
116 Parrot_set_addr_p_i, /* 41 */
117 Parrot_get_addr_i_p, /* 42 */
118 Parrot_schedule_p, /* 43 */
119 Parrot_addhandler_p, /* 44 */
120 Parrot_push_eh_ic, /* 45 */
121 Parrot_push_eh_p, /* 46 */
122 Parrot_pop_eh, /* 47 */
123 Parrot_throw_p, /* 48 */
124 Parrot_throw_p_p, /* 49 */
125 Parrot_rethrow_p, /* 50 */
126 Parrot_count_eh_i, /* 51 */
127 Parrot_die_s, /* 52 */
128 Parrot_die_sc, /* 53 */
129 Parrot_die_p, /* 54 */
130 Parrot_die_pc, /* 55 */
131 Parrot_die_i_i, /* 56 */
132 Parrot_die_ic_i, /* 57 */
133 Parrot_die_i_ic, /* 58 */
134 Parrot_die_ic_ic, /* 59 */
135 Parrot_exit_i, /* 60 */
136 Parrot_exit_ic, /* 61 */
137 Parrot_debug_i, /* 62 */
138 Parrot_debug_ic, /* 63 */
139 Parrot_bounds_i, /* 64 */
140 Parrot_bounds_ic, /* 65 */
141 Parrot_profile_i, /* 66 */
142 Parrot_profile_ic, /* 67 */
143 Parrot_trace_i, /* 68 */
144 Parrot_trace_ic, /* 69 */
145 Parrot_gc_debug_i, /* 70 */
146 Parrot_gc_debug_ic, /* 71 */
147 Parrot_interpinfo_i_i, /* 72 */
148 Parrot_interpinfo_i_ic, /* 73 */
149 Parrot_interpinfo_p_i, /* 74 */
150 Parrot_interpinfo_p_ic, /* 75 */
151 Parrot_interpinfo_s_i, /* 76 */
152 Parrot_interpinfo_s_ic, /* 77 */
153 Parrot_warningson_i, /* 78 */
154 Parrot_warningson_ic, /* 79 */
155 Parrot_warningsoff_i, /* 80 */
156 Parrot_warningsoff_ic, /* 81 */
157 Parrot_errorson_i, /* 82 */
158 Parrot_errorson_ic, /* 83 */
159 Parrot_errorsoff_i, /* 84 */
160 Parrot_errorsoff_ic, /* 85 */
161 Parrot_runinterp_p_i, /* 86 */
162 Parrot_runinterp_p_ic, /* 87 */
163 Parrot_getinterp_p, /* 88 */
164 Parrot_sweep_ic, /* 89 */
165 Parrot_collect, /* 90 */
166 Parrot_sweepoff, /* 91 */
167 Parrot_sweepon, /* 92 */
168 Parrot_collectoff, /* 93 */
169 Parrot_collecton, /* 94 */
170 Parrot_needs_destroy_p, /* 95 */
171 Parrot_loadlib_p_s, /* 96 */
172 Parrot_loadlib_p_sc, /* 97 */
173 Parrot_loadlib_p_s_p, /* 98 */
174 Parrot_loadlib_p_sc_p, /* 99 */
175 Parrot_loadlib_p_s_pc, /* 100 */
176 Parrot_loadlib_p_sc_pc, /* 101 */
177 Parrot_dlfunc_p_p_s_s, /* 102 */
178 Parrot_dlfunc_p_p_sc_s, /* 103 */
179 Parrot_dlfunc_p_p_s_sc, /* 104 */
180 Parrot_dlfunc_p_p_sc_sc, /* 105 */
181 Parrot_dlvar_p_p_s, /* 106 */
182 Parrot_dlvar_p_p_sc, /* 107 */
183 Parrot_compreg_s_p, /* 108 */
184 Parrot_compreg_sc_p, /* 109 */
185 Parrot_compreg_p_s, /* 110 */
186 Parrot_compreg_p_sc, /* 111 */
187 Parrot_new_callback_p_p_p_s, /* 112 */
188 Parrot_new_callback_p_p_p_sc, /* 113 */
189 Parrot_annotations_p, /* 114 */
190 Parrot_annotations_p_s, /* 115 */
191 Parrot_annotations_p_sc, /* 116 */
192 Parrot_band_i_i, /* 117 */
193 Parrot_band_i_ic, /* 118 */
194 Parrot_band_i_i_i, /* 119 */
195 Parrot_band_i_ic_i, /* 120 */
196 Parrot_band_i_i_ic, /* 121 */
197 Parrot_bor_i_i, /* 122 */
198 Parrot_bor_i_ic, /* 123 */
199 Parrot_bor_i_i_i, /* 124 */
200 Parrot_bor_i_ic_i, /* 125 */
201 Parrot_bor_i_i_ic, /* 126 */
202 Parrot_shl_i_i, /* 127 */
203 Parrot_shl_i_ic, /* 128 */
204 Parrot_shl_i_i_i, /* 129 */
205 Parrot_shl_i_ic_i, /* 130 */
206 Parrot_shl_i_i_ic, /* 131 */
207 Parrot_shr_i_i, /* 132 */
208 Parrot_shr_i_ic, /* 133 */
209 Parrot_shr_i_i_i, /* 134 */
210 Parrot_shr_i_ic_i, /* 135 */
211 Parrot_shr_i_i_ic, /* 136 */
212 Parrot_lsr_i_i, /* 137 */
213 Parrot_lsr_i_ic, /* 138 */
214 Parrot_lsr_i_i_i, /* 139 */
215 Parrot_lsr_i_ic_i, /* 140 */
216 Parrot_lsr_i_i_ic, /* 141 */
217 Parrot_bxor_i_i, /* 142 */
218 Parrot_bxor_i_ic, /* 143 */
219 Parrot_bxor_i_i_i, /* 144 */
220 Parrot_bxor_i_ic_i, /* 145 */
221 Parrot_bxor_i_i_ic, /* 146 */
222 Parrot_eq_i_i_ic, /* 147 */
223 Parrot_eq_ic_i_ic, /* 148 */
224 Parrot_eq_i_ic_ic, /* 149 */
225 Parrot_eq_n_n_ic, /* 150 */
226 Parrot_eq_nc_n_ic, /* 151 */
227 Parrot_eq_n_nc_ic, /* 152 */
228 Parrot_eq_s_s_ic, /* 153 */
229 Parrot_eq_sc_s_ic, /* 154 */
230 Parrot_eq_s_sc_ic, /* 155 */
231 Parrot_eq_p_p_ic, /* 156 */
232 Parrot_eq_p_i_ic, /* 157 */
233 Parrot_eq_p_ic_ic, /* 158 */
234 Parrot_eq_p_n_ic, /* 159 */
235 Parrot_eq_p_nc_ic, /* 160 */
236 Parrot_eq_p_s_ic, /* 161 */
237 Parrot_eq_p_sc_ic, /* 162 */
238 Parrot_eq_str_p_p_ic, /* 163 */
239 Parrot_eq_num_p_p_ic, /* 164 */
240 Parrot_eq_addr_s_s_ic, /* 165 */
241 Parrot_eq_addr_sc_s_ic, /* 166 */
242 Parrot_eq_addr_s_sc_ic, /* 167 */
243 Parrot_eq_addr_sc_sc_ic, /* 168 */
244 Parrot_eq_addr_p_p_ic, /* 169 */
245 Parrot_ne_i_i_ic, /* 170 */
246 Parrot_ne_ic_i_ic, /* 171 */
247 Parrot_ne_i_ic_ic, /* 172 */
248 Parrot_ne_n_n_ic, /* 173 */
249 Parrot_ne_nc_n_ic, /* 174 */
250 Parrot_ne_n_nc_ic, /* 175 */
251 Parrot_ne_s_s_ic, /* 176 */
252 Parrot_ne_sc_s_ic, /* 177 */
253 Parrot_ne_s_sc_ic, /* 178 */
254 Parrot_ne_p_p_ic, /* 179 */
255 Parrot_ne_p_i_ic, /* 180 */
256 Parrot_ne_p_ic_ic, /* 181 */
257 Parrot_ne_p_n_ic, /* 182 */
258 Parrot_ne_p_nc_ic, /* 183 */
259 Parrot_ne_p_s_ic, /* 184 */
260 Parrot_ne_p_sc_ic, /* 185 */
261 Parrot_ne_str_p_p_ic, /* 186 */
262 Parrot_ne_num_p_p_ic, /* 187 */
263 Parrot_ne_addr_s_s_ic, /* 188 */
264 Parrot_ne_addr_sc_s_ic, /* 189 */
265 Parrot_ne_addr_s_sc_ic, /* 190 */
266 Parrot_ne_addr_sc_sc_ic, /* 191 */
267 Parrot_ne_addr_p_p_ic, /* 192 */
268 Parrot_lt_i_i_ic, /* 193 */
269 Parrot_lt_ic_i_ic, /* 194 */
270 Parrot_lt_i_ic_ic, /* 195 */
271 Parrot_lt_n_n_ic, /* 196 */
272 Parrot_lt_nc_n_ic, /* 197 */
273 Parrot_lt_n_nc_ic, /* 198 */
274 Parrot_lt_s_s_ic, /* 199 */
275 Parrot_lt_sc_s_ic, /* 200 */
276 Parrot_lt_s_sc_ic, /* 201 */
277 Parrot_lt_p_p_ic, /* 202 */
278 Parrot_lt_p_i_ic, /* 203 */
279 Parrot_lt_p_ic_ic, /* 204 */
280 Parrot_lt_p_n_ic, /* 205 */
281 Parrot_lt_p_nc_ic, /* 206 */
282 Parrot_lt_p_s_ic, /* 207 */
283 Parrot_lt_p_sc_ic, /* 208 */
284 Parrot_lt_str_p_p_ic, /* 209 */
285 Parrot_lt_num_p_p_ic, /* 210 */
286 Parrot_le_i_i_ic, /* 211 */
287 Parrot_le_ic_i_ic, /* 212 */
288 Parrot_le_i_ic_ic, /* 213 */
289 Parrot_le_n_n_ic, /* 214 */
290 Parrot_le_nc_n_ic, /* 215 */
291 Parrot_le_n_nc_ic, /* 216 */
292 Parrot_le_s_s_ic, /* 217 */
293 Parrot_le_sc_s_ic, /* 218 */
294 Parrot_le_s_sc_ic, /* 219 */
295 Parrot_le_p_p_ic, /* 220 */
296 Parrot_le_p_i_ic, /* 221 */
297 Parrot_le_p_ic_ic, /* 222 */
298 Parrot_le_p_n_ic, /* 223 */
299 Parrot_le_p_nc_ic, /* 224 */
300 Parrot_le_p_s_ic, /* 225 */
301 Parrot_le_p_sc_ic, /* 226 */
302 Parrot_le_str_p_p_ic, /* 227 */
303 Parrot_le_num_p_p_ic, /* 228 */
304 Parrot_gt_p_p_ic, /* 229 */
305 Parrot_gt_p_i_ic, /* 230 */
306 Parrot_gt_p_ic_ic, /* 231 */
307 Parrot_gt_p_n_ic, /* 232 */
308 Parrot_gt_p_nc_ic, /* 233 */
309 Parrot_gt_p_s_ic, /* 234 */
310 Parrot_gt_p_sc_ic, /* 235 */
311 Parrot_gt_str_p_p_ic, /* 236 */
312 Parrot_gt_num_p_p_ic, /* 237 */
313 Parrot_ge_p_p_ic, /* 238 */
314 Parrot_ge_p_i_ic, /* 239 */
315 Parrot_ge_p_ic_ic, /* 240 */
316 Parrot_ge_p_n_ic, /* 241 */
317 Parrot_ge_p_nc_ic, /* 242 */
318 Parrot_ge_p_s_ic, /* 243 */
319 Parrot_ge_p_sc_ic, /* 244 */
320 Parrot_ge_str_p_p_ic, /* 245 */
321 Parrot_ge_num_p_p_ic, /* 246 */
322 Parrot_if_null_p_ic, /* 247 */
323 Parrot_if_null_s_ic, /* 248 */
324 Parrot_unless_null_p_ic, /* 249 */
325 Parrot_unless_null_s_ic, /* 250 */
326 Parrot_cmp_i_i_i, /* 251 */
327 Parrot_cmp_i_ic_i, /* 252 */
328 Parrot_cmp_i_i_ic, /* 253 */
329 Parrot_cmp_i_n_n, /* 254 */
330 Parrot_cmp_i_nc_n, /* 255 */
331 Parrot_cmp_i_n_nc, /* 256 */
332 Parrot_cmp_i_s_s, /* 257 */
333 Parrot_cmp_i_sc_s, /* 258 */
334 Parrot_cmp_i_s_sc, /* 259 */
335 Parrot_cmp_i_p_p, /* 260 */
336 Parrot_cmp_i_p_i, /* 261 */
337 Parrot_cmp_i_p_ic, /* 262 */
338 Parrot_cmp_i_p_n, /* 263 */
339 Parrot_cmp_i_p_nc, /* 264 */
340 Parrot_cmp_i_p_s, /* 265 */
341 Parrot_cmp_i_p_sc, /* 266 */
342 Parrot_cmp_str_i_p_p, /* 267 */
343 Parrot_cmp_num_i_p_p, /* 268 */
344 Parrot_cmp_pmc_p_p_p, /* 269 */
345 Parrot_issame_i_p_p, /* 270 */
346 Parrot_issame_i_s_s, /* 271 */
347 Parrot_issame_i_sc_s, /* 272 */
348 Parrot_issame_i_s_sc, /* 273 */
349 Parrot_issame_i_sc_sc, /* 274 */
350 Parrot_isntsame_i_p_p, /* 275 */
351 Parrot_isntsame_i_s_s, /* 276 */
352 Parrot_isntsame_i_sc_s, /* 277 */
353 Parrot_isntsame_i_s_sc, /* 278 */
354 Parrot_isntsame_i_sc_sc, /* 279 */
355 Parrot_istrue_i_p, /* 280 */
356 Parrot_isfalse_i_p, /* 281 */
357 Parrot_isnull_i_p, /* 282 */
358 Parrot_isnull_i_pc, /* 283 */
359 Parrot_isnull_i_s, /* 284 */
360 Parrot_isnull_i_sc, /* 285 */
361 Parrot_isgt_i_p_p, /* 286 */
362 Parrot_isge_i_p_p, /* 287 */
363 Parrot_isle_i_i_i, /* 288 */
364 Parrot_isle_i_ic_i, /* 289 */
365 Parrot_isle_i_i_ic, /* 290 */
366 Parrot_isle_i_n_n, /* 291 */
367 Parrot_isle_i_nc_n, /* 292 */
368 Parrot_isle_i_n_nc, /* 293 */
369 Parrot_isle_i_s_s, /* 294 */
370 Parrot_isle_i_sc_s, /* 295 */
371 Parrot_isle_i_s_sc, /* 296 */
372 Parrot_isle_i_p_p, /* 297 */
373 Parrot_islt_i_i_i, /* 298 */
374 Parrot_islt_i_ic_i, /* 299 */
375 Parrot_islt_i_i_ic, /* 300 */
376 Parrot_islt_i_n_n, /* 301 */
377 Parrot_islt_i_nc_n, /* 302 */
378 Parrot_islt_i_n_nc, /* 303 */
379 Parrot_islt_i_s_s, /* 304 */
380 Parrot_islt_i_sc_s, /* 305 */
381 Parrot_islt_i_s_sc, /* 306 */
382 Parrot_islt_i_p_p, /* 307 */
383 Parrot_iseq_i_i_i, /* 308 */
384 Parrot_iseq_i_ic_i, /* 309 */
385 Parrot_iseq_i_i_ic, /* 310 */
386 Parrot_iseq_i_n_n, /* 311 */
387 Parrot_iseq_i_nc_n, /* 312 */
388 Parrot_iseq_i_n_nc, /* 313 */
389 Parrot_iseq_i_s_s, /* 314 */
390 Parrot_iseq_i_sc_s, /* 315 */
391 Parrot_iseq_i_s_sc, /* 316 */
392 Parrot_iseq_i_p_p, /* 317 */
393 Parrot_isne_i_i_i, /* 318 */
394 Parrot_isne_i_ic_i, /* 319 */
395 Parrot_isne_i_i_ic, /* 320 */
396 Parrot_isne_i_n_n, /* 321 */
397 Parrot_isne_i_nc_n, /* 322 */
398 Parrot_isne_i_n_nc, /* 323 */
399 Parrot_isne_i_s_s, /* 324 */
400 Parrot_isne_i_sc_s, /* 325 */
401 Parrot_isne_i_s_sc, /* 326 */
402 Parrot_isne_i_p_p, /* 327 */
403 Parrot_and_i_i_i, /* 328 */
404 Parrot_and_i_ic_i, /* 329 */
405 Parrot_and_i_i_ic, /* 330 */
406 Parrot_and_p_p_p, /* 331 */
407 Parrot_not_i, /* 332 */
408 Parrot_not_i_i, /* 333 */
409 Parrot_not_p, /* 334 */
410 Parrot_not_p_p, /* 335 */
411 Parrot_or_i_i_i, /* 336 */
412 Parrot_or_i_ic_i, /* 337 */
413 Parrot_or_i_i_ic, /* 338 */
414 Parrot_or_p_p_p, /* 339 */
415 Parrot_xor_i_i_i, /* 340 */
416 Parrot_xor_i_ic_i, /* 341 */
417 Parrot_xor_i_i_ic, /* 342 */
418 Parrot_xor_p_p_p, /* 343 */
419 Parrot_print_i, /* 344 */
420 Parrot_print_ic, /* 345 */
421 Parrot_print_n, /* 346 */
422 Parrot_print_nc, /* 347 */
423 Parrot_print_s, /* 348 */
424 Parrot_print_sc, /* 349 */
425 Parrot_print_p, /* 350 */
426 Parrot_say_i, /* 351 */
427 Parrot_say_ic, /* 352 */
428 Parrot_say_n, /* 353 */
429 Parrot_say_nc, /* 354 */
430 Parrot_say_s, /* 355 */
431 Parrot_say_sc, /* 356 */
432 Parrot_say_p, /* 357 */
433 Parrot_print_p_i, /* 358 */
434 Parrot_print_p_ic, /* 359 */
435 Parrot_print_p_n, /* 360 */
436 Parrot_print_p_nc, /* 361 */
437 Parrot_print_p_s, /* 362 */
438 Parrot_print_p_sc, /* 363 */
439 Parrot_print_p_p, /* 364 */
440 Parrot_getstdin_p, /* 365 */
441 Parrot_getstdout_p, /* 366 */
442 Parrot_getstderr_p, /* 367 */
443 Parrot_abs_i, /* 368 */
444 Parrot_abs_n, /* 369 */
445 Parrot_abs_i_i, /* 370 */
446 Parrot_abs_n_n, /* 371 */
447 Parrot_abs_p, /* 372 */
448 Parrot_abs_p_p, /* 373 */
449 Parrot_add_i_i, /* 374 */
450 Parrot_add_i_ic, /* 375 */
451 Parrot_add_n_n, /* 376 */
452 Parrot_add_n_nc, /* 377 */
453 Parrot_add_p_p, /* 378 */
454 Parrot_add_p_i, /* 379 */
455 Parrot_add_p_ic, /* 380 */
456 Parrot_add_p_n, /* 381 */
457 Parrot_add_p_nc, /* 382 */
458 Parrot_add_i_i_i, /* 383 */
459 Parrot_add_i_ic_i, /* 384 */
460 Parrot_add_i_i_ic, /* 385 */
461 Parrot_add_n_n_n, /* 386 */
462 Parrot_add_n_nc_n, /* 387 */
463 Parrot_add_n_n_nc, /* 388 */
464 Parrot_add_p_p_p, /* 389 */
465 Parrot_add_p_p_i, /* 390 */
466 Parrot_add_p_p_ic, /* 391 */
467 Parrot_add_p_p_n, /* 392 */
468 Parrot_add_p_p_nc, /* 393 */
469 Parrot_dec_i, /* 394 */
470 Parrot_dec_n, /* 395 */
471 Parrot_dec_p, /* 396 */
472 Parrot_div_i_i, /* 397 */
473 Parrot_div_i_ic, /* 398 */
474 Parrot_div_n_n, /* 399 */
475 Parrot_div_n_nc, /* 400 */
476 Parrot_div_p_p, /* 401 */
477 Parrot_div_p_i, /* 402 */
478 Parrot_div_p_ic, /* 403 */
479 Parrot_div_p_n, /* 404 */
480 Parrot_div_p_nc, /* 405 */
481 Parrot_div_i_i_i, /* 406 */
482 Parrot_div_i_ic_i, /* 407 */
483 Parrot_div_i_i_ic, /* 408 */
484 Parrot_div_i_ic_ic, /* 409 */
485 Parrot_div_n_n_n, /* 410 */
486 Parrot_div_n_nc_n, /* 411 */
487 Parrot_div_n_n_nc, /* 412 */
488 Parrot_div_n_nc_nc, /* 413 */
489 Parrot_div_p_p_p, /* 414 */
490 Parrot_div_p_p_i, /* 415 */
491 Parrot_div_p_p_ic, /* 416 */
492 Parrot_div_p_p_n, /* 417 */
493 Parrot_div_p_p_nc, /* 418 */
494 Parrot_fdiv_i_i, /* 419 */
495 Parrot_fdiv_i_ic, /* 420 */
496 Parrot_fdiv_n_n, /* 421 */
497 Parrot_fdiv_n_nc, /* 422 */
498 Parrot_fdiv_p_p, /* 423 */
499 Parrot_fdiv_p_i, /* 424 */
500 Parrot_fdiv_p_ic, /* 425 */
501 Parrot_fdiv_p_n, /* 426 */
502 Parrot_fdiv_p_nc, /* 427 */
503 Parrot_fdiv_i_i_i, /* 428 */
504 Parrot_fdiv_i_ic_i, /* 429 */
505 Parrot_fdiv_i_i_ic, /* 430 */
506 Parrot_fdiv_n_n_n, /* 431 */
507 Parrot_fdiv_n_nc_n, /* 432 */
508 Parrot_fdiv_n_n_nc, /* 433 */
509 Parrot_fdiv_p_p_p, /* 434 */
510 Parrot_fdiv_p_p_i, /* 435 */
511 Parrot_fdiv_p_p_ic, /* 436 */
512 Parrot_fdiv_p_p_n, /* 437 */
513 Parrot_fdiv_p_p_nc, /* 438 */
514 Parrot_ceil_n, /* 439 */
515 Parrot_ceil_i_n, /* 440 */
516 Parrot_ceil_n_n, /* 441 */
517 Parrot_floor_n, /* 442 */
518 Parrot_floor_i_n, /* 443 */
519 Parrot_floor_n_n, /* 444 */
520 Parrot_inc_i, /* 445 */
521 Parrot_inc_n, /* 446 */
522 Parrot_inc_p, /* 447 */
523 Parrot_mod_i_i, /* 448 */
524 Parrot_mod_i_ic, /* 449 */
525 Parrot_mod_n_n, /* 450 */
526 Parrot_mod_n_nc, /* 451 */
527 Parrot_mod_p_p, /* 452 */
528 Parrot_mod_p_i, /* 453 */
529 Parrot_mod_p_ic, /* 454 */
530 Parrot_mod_p_n, /* 455 */
531 Parrot_mod_p_nc, /* 456 */
532 Parrot_mod_i_i_i, /* 457 */
533 Parrot_mod_i_ic_i, /* 458 */
534 Parrot_mod_i_i_ic, /* 459 */
535 Parrot_mod_n_n_n, /* 460 */
536 Parrot_mod_n_nc_n, /* 461 */
537 Parrot_mod_n_n_nc, /* 462 */
538 Parrot_mod_p_p_p, /* 463 */
539 Parrot_mod_p_p_i, /* 464 */
540 Parrot_mod_p_p_ic, /* 465 */
541 Parrot_mod_p_p_n, /* 466 */
542 Parrot_mod_p_p_nc, /* 467 */
543 Parrot_mul_i_i, /* 468 */
544 Parrot_mul_i_ic, /* 469 */
545 Parrot_mul_n_n, /* 470 */
546 Parrot_mul_n_nc, /* 471 */
547 Parrot_mul_p_p, /* 472 */
548 Parrot_mul_p_i, /* 473 */
549 Parrot_mul_p_ic, /* 474 */
550 Parrot_mul_p_n, /* 475 */
551 Parrot_mul_p_nc, /* 476 */
552 Parrot_mul_i_i_i, /* 477 */
553 Parrot_mul_i_ic_i, /* 478 */
554 Parrot_mul_i_i_ic, /* 479 */
555 Parrot_mul_n_n_n, /* 480 */
556 Parrot_mul_n_nc_n, /* 481 */
557 Parrot_mul_n_n_nc, /* 482 */
558 Parrot_mul_p_p_p, /* 483 */
559 Parrot_mul_p_p_i, /* 484 */
560 Parrot_mul_p_p_ic, /* 485 */
561 Parrot_mul_p_p_n, /* 486 */
562 Parrot_mul_p_p_nc, /* 487 */
563 Parrot_neg_i, /* 488 */
564 Parrot_neg_n, /* 489 */
565 Parrot_neg_p, /* 490 */
566 Parrot_neg_i_i, /* 491 */
567 Parrot_neg_n_n, /* 492 */
568 Parrot_neg_p_p, /* 493 */
569 Parrot_sub_i_i, /* 494 */
570 Parrot_sub_i_ic, /* 495 */
571 Parrot_sub_n_n, /* 496 */
572 Parrot_sub_n_nc, /* 497 */
573 Parrot_sub_p_p, /* 498 */
574 Parrot_sub_p_i, /* 499 */
575 Parrot_sub_p_ic, /* 500 */
576 Parrot_sub_p_n, /* 501 */
577 Parrot_sub_p_nc, /* 502 */
578 Parrot_sub_i_i_i, /* 503 */
579 Parrot_sub_i_ic_i, /* 504 */
580 Parrot_sub_i_i_ic, /* 505 */
581 Parrot_sub_n_n_n, /* 506 */
582 Parrot_sub_n_nc_n, /* 507 */
583 Parrot_sub_n_n_nc, /* 508 */
584 Parrot_sub_p_p_p, /* 509 */
585 Parrot_sub_p_p_i, /* 510 */
586 Parrot_sub_p_p_ic, /* 511 */
587 Parrot_sub_p_p_n, /* 512 */
588 Parrot_sub_p_p_nc, /* 513 */
589 Parrot_sqrt_n_n, /* 514 */
590 Parrot_callmethodcc_p_s, /* 515 */
591 Parrot_callmethodcc_p_sc, /* 516 */
592 Parrot_callmethodcc_p_p, /* 517 */
593 Parrot_callmethod_p_s_p, /* 518 */
594 Parrot_callmethod_p_sc_p, /* 519 */
595 Parrot_callmethod_p_p_p, /* 520 */
596 Parrot_tailcallmethod_p_s, /* 521 */
597 Parrot_tailcallmethod_p_sc, /* 522 */
598 Parrot_tailcallmethod_p_p, /* 523 */
599 Parrot_addmethod_p_s_p, /* 524 */
600 Parrot_addmethod_p_sc_p, /* 525 */
601 Parrot_can_i_p_s, /* 526 */
602 Parrot_can_i_p_sc, /* 527 */
603 Parrot_does_i_p_s, /* 528 */
604 Parrot_does_i_p_sc, /* 529 */
605 Parrot_does_i_p_p, /* 530 */
606 Parrot_does_i_p_pc, /* 531 */
607 Parrot_isa_i_p_s, /* 532 */
608 Parrot_isa_i_p_sc, /* 533 */
609 Parrot_isa_i_p_p, /* 534 */
610 Parrot_isa_i_p_pc, /* 535 */
611 Parrot_newclass_p_s, /* 536 */
612 Parrot_newclass_p_sc, /* 537 */
613 Parrot_newclass_p_p, /* 538 */
614 Parrot_newclass_p_pc, /* 539 */
615 Parrot_subclass_p_p, /* 540 */
616 Parrot_subclass_p_pc, /* 541 */
617 Parrot_subclass_p_p_s, /* 542 */
618 Parrot_subclass_p_pc_s, /* 543 */
619 Parrot_subclass_p_p_sc, /* 544 */
620 Parrot_subclass_p_pc_sc, /* 545 */
621 Parrot_subclass_p_p_p, /* 546 */
622 Parrot_subclass_p_pc_p, /* 547 */
623 Parrot_subclass_p_p_pc, /* 548 */
624 Parrot_subclass_p_pc_pc, /* 549 */
625 Parrot_subclass_p_s, /* 550 */
626 Parrot_subclass_p_sc, /* 551 */
627 Parrot_subclass_p_s_s, /* 552 */
628 Parrot_subclass_p_sc_s, /* 553 */
629 Parrot_subclass_p_s_sc, /* 554 */
630 Parrot_subclass_p_sc_sc, /* 555 */
631 Parrot_subclass_p_s_p, /* 556 */
632 Parrot_subclass_p_sc_p, /* 557 */
633 Parrot_subclass_p_s_pc, /* 558 */
634 Parrot_subclass_p_sc_pc, /* 559 */
635 Parrot_get_class_p_s, /* 560 */
636 Parrot_get_class_p_sc, /* 561 */
637 Parrot_get_class_p_p, /* 562 */
638 Parrot_get_class_p_pc, /* 563 */
639 Parrot_class_p_p, /* 564 */
640 Parrot_addparent_p_p, /* 565 */
641 Parrot_removeparent_p_p, /* 566 */
642 Parrot_addrole_p_p, /* 567 */
643 Parrot_addattribute_p_s, /* 568 */
644 Parrot_addattribute_p_sc, /* 569 */
645 Parrot_removeattribute_p_s, /* 570 */
646 Parrot_removeattribute_p_sc, /* 571 */
647 Parrot_getattribute_p_p_s, /* 572 */
648 Parrot_getattribute_p_p_sc, /* 573 */
649 Parrot_getattribute_p_p_p_s, /* 574 */
650 Parrot_getattribute_p_p_pc_s, /* 575 */
651 Parrot_getattribute_p_p_p_sc, /* 576 */
652 Parrot_getattribute_p_p_pc_sc, /* 577 */
653 Parrot_setattribute_p_s_p, /* 578 */
654 Parrot_setattribute_p_sc_p, /* 579 */
655 Parrot_setattribute_p_p_s_p, /* 580 */
656 Parrot_setattribute_p_pc_s_p, /* 581 */
657 Parrot_setattribute_p_p_sc_p, /* 582 */
658 Parrot_setattribute_p_pc_sc_p, /* 583 */
659 Parrot_inspect_p_p, /* 584 */
660 Parrot_inspect_p_pc, /* 585 */
661 Parrot_inspect_p_p_s, /* 586 */
662 Parrot_inspect_p_pc_s, /* 587 */
663 Parrot_inspect_p_p_sc, /* 588 */
664 Parrot_inspect_p_pc_sc, /* 589 */
665 Parrot_new_p_s, /* 590 */
666 Parrot_new_p_sc, /* 591 */
667 Parrot_new_p_s_p, /* 592 */
668 Parrot_new_p_sc_p, /* 593 */
669 Parrot_new_p_s_pc, /* 594 */
670 Parrot_new_p_sc_pc, /* 595 */
671 Parrot_new_p_p, /* 596 */
672 Parrot_new_p_pc, /* 597 */
673 Parrot_new_p_p_p, /* 598 */
674 Parrot_new_p_pc_p, /* 599 */
675 Parrot_new_p_p_pc, /* 600 */
676 Parrot_new_p_pc_pc, /* 601 */
677 Parrot_root_new_p_p, /* 602 */
678 Parrot_root_new_p_pc, /* 603 */
679 Parrot_root_new_p_p_p, /* 604 */
680 Parrot_root_new_p_pc_p, /* 605 */
681 Parrot_root_new_p_p_pc, /* 606 */
682 Parrot_root_new_p_pc_pc, /* 607 */
683 Parrot_typeof_s_p, /* 608 */
684 Parrot_typeof_p_p, /* 609 */
685 Parrot_get_repr_s_p, /* 610 */
686 Parrot_find_method_p_p_s, /* 611 */
687 Parrot_find_method_p_p_sc, /* 612 */
688 Parrot_defined_i_p, /* 613 */
689 Parrot_defined_i_p_ki, /* 614 */
690 Parrot_defined_i_p_kic, /* 615 */
691 Parrot_defined_i_p_k, /* 616 */
692 Parrot_defined_i_p_kc, /* 617 */
693 Parrot_exists_i_p_ki, /* 618 */
694 Parrot_exists_i_p_kic, /* 619 */
695 Parrot_exists_i_p_k, /* 620 */
696 Parrot_exists_i_p_kc, /* 621 */
697 Parrot_delete_p_k, /* 622 */
698 Parrot_delete_p_kc, /* 623 */
699 Parrot_delete_p_ki, /* 624 */
700 Parrot_delete_p_kic, /* 625 */
701 Parrot_elements_i_p, /* 626 */
702 Parrot_push_p_i, /* 627 */
703 Parrot_push_p_ic, /* 628 */
704 Parrot_push_p_n, /* 629 */
705 Parrot_push_p_nc, /* 630 */
706 Parrot_push_p_s, /* 631 */
707 Parrot_push_p_sc, /* 632 */
708 Parrot_push_p_p, /* 633 */
709 Parrot_pop_i_p, /* 634 */
710 Parrot_pop_n_p, /* 635 */
711 Parrot_pop_s_p, /* 636 */
712 Parrot_pop_p_p, /* 637 */
713 Parrot_unshift_p_i, /* 638 */
714 Parrot_unshift_p_ic, /* 639 */
715 Parrot_unshift_p_n, /* 640 */
716 Parrot_unshift_p_nc, /* 641 */
717 Parrot_unshift_p_s, /* 642 */
718 Parrot_unshift_p_sc, /* 643 */
719 Parrot_unshift_p_p, /* 644 */
720 Parrot_shift_i_p, /* 645 */
721 Parrot_shift_n_p, /* 646 */
722 Parrot_shift_s_p, /* 647 */
723 Parrot_shift_p_p, /* 648 */
724 Parrot_splice_p_p_i_i, /* 649 */
725 Parrot_splice_p_p_ic_i, /* 650 */
726 Parrot_splice_p_p_i_ic, /* 651 */
727 Parrot_splice_p_p_ic_ic, /* 652 */
728 Parrot_setprop_p_s_p, /* 653 */
729 Parrot_setprop_p_sc_p, /* 654 */
730 Parrot_getprop_p_s_p, /* 655 */
731 Parrot_getprop_p_sc_p, /* 656 */
732 Parrot_delprop_p_s, /* 657 */
733 Parrot_delprop_p_sc, /* 658 */
734 Parrot_prophash_p_p, /* 659 */
735 Parrot_freeze_s_p, /* 660 */
736 Parrot_thaw_p_s, /* 661 */
737 Parrot_thaw_p_sc, /* 662 */
738 Parrot_add_multi_s_s_p, /* 663 */
739 Parrot_add_multi_sc_s_p, /* 664 */
740 Parrot_add_multi_s_sc_p, /* 665 */
741 Parrot_add_multi_sc_sc_p, /* 666 */
742 Parrot_find_multi_p_s_s, /* 667 */
743 Parrot_find_multi_p_sc_s, /* 668 */
744 Parrot_find_multi_p_s_sc, /* 669 */
745 Parrot_find_multi_p_sc_sc, /* 670 */
746 Parrot_register_p, /* 671 */
747 Parrot_unregister_p, /* 672 */
748 Parrot_box_p_i, /* 673 */
749 Parrot_box_p_ic, /* 674 */
750 Parrot_box_p_n, /* 675 */
751 Parrot_box_p_nc, /* 676 */
752 Parrot_box_p_s, /* 677 */
753 Parrot_box_p_sc, /* 678 */
754 Parrot_iter_p_p, /* 679 */
755 Parrot_morph_p_p, /* 680 */
756 Parrot_morph_p_pc, /* 681 */
757 Parrot_clone_s_s, /* 682 */
758 Parrot_clone_s_sc, /* 683 */
759 Parrot_set_i_i, /* 684 */
760 Parrot_set_i_ic, /* 685 */
761 Parrot_set_i_n, /* 686 */
762 Parrot_set_i_nc, /* 687 */
763 Parrot_set_i_s, /* 688 */
764 Parrot_set_i_sc, /* 689 */
765 Parrot_set_n_n, /* 690 */
766 Parrot_set_n_nc, /* 691 */
767 Parrot_set_n_i, /* 692 */
768 Parrot_set_n_ic, /* 693 */
769 Parrot_set_n_s, /* 694 */
770 Parrot_set_n_sc, /* 695 */
771 Parrot_set_n_p, /* 696 */
772 Parrot_set_s_p, /* 697 */
773 Parrot_set_s_s, /* 698 */
774 Parrot_set_s_sc, /* 699 */
775 Parrot_set_s_i, /* 700 */
776 Parrot_set_s_ic, /* 701 */
777 Parrot_set_s_n, /* 702 */
778 Parrot_set_s_nc, /* 703 */
779 Parrot_set_p_pc, /* 704 */
780 Parrot_set_p_p, /* 705 */
781 Parrot_set_p_i, /* 706 */
782 Parrot_set_p_ic, /* 707 */
783 Parrot_set_p_n, /* 708 */
784 Parrot_set_p_nc, /* 709 */
785 Parrot_set_p_s, /* 710 */
786 Parrot_set_p_sc, /* 711 */
787 Parrot_set_i_p, /* 712 */
788 Parrot_assign_p_p, /* 713 */
789 Parrot_assign_p_i, /* 714 */
790 Parrot_assign_p_ic, /* 715 */
791 Parrot_assign_p_n, /* 716 */
792 Parrot_assign_p_nc, /* 717 */
793 Parrot_assign_p_s, /* 718 */
794 Parrot_assign_p_sc, /* 719 */
795 Parrot_assign_s_s, /* 720 */
796 Parrot_assign_s_sc, /* 721 */
797 Parrot_setref_p_p, /* 722 */
798 Parrot_deref_p_p, /* 723 */
799 Parrot_set_p_ki_i, /* 724 */
800 Parrot_set_p_kic_i, /* 725 */
801 Parrot_set_p_ki_ic, /* 726 */
802 Parrot_set_p_kic_ic, /* 727 */
803 Parrot_set_p_ki_n, /* 728 */
804 Parrot_set_p_kic_n, /* 729 */
805 Parrot_set_p_ki_nc, /* 730 */
806 Parrot_set_p_kic_nc, /* 731 */
807 Parrot_set_p_ki_s, /* 732 */
808 Parrot_set_p_kic_s, /* 733 */
809 Parrot_set_p_ki_sc, /* 734 */
810 Parrot_set_p_kic_sc, /* 735 */
811 Parrot_set_p_ki_p, /* 736 */
812 Parrot_set_p_kic_p, /* 737 */
813 Parrot_set_i_p_ki, /* 738 */
814 Parrot_set_i_p_kic, /* 739 */
815 Parrot_set_n_p_ki, /* 740 */
816 Parrot_set_n_p_kic, /* 741 */
817 Parrot_set_s_p_ki, /* 742 */
818 Parrot_set_s_p_kic, /* 743 */
819 Parrot_set_p_p_ki, /* 744 */
820 Parrot_set_p_p_kic, /* 745 */
821 Parrot_set_p_k_i, /* 746 */
822 Parrot_set_p_kc_i, /* 747 */
823 Parrot_set_p_k_ic, /* 748 */
824 Parrot_set_p_kc_ic, /* 749 */
825 Parrot_set_p_k_n, /* 750 */
826 Parrot_set_p_kc_n, /* 751 */
827 Parrot_set_p_k_nc, /* 752 */
828 Parrot_set_p_kc_nc, /* 753 */
829 Parrot_set_p_k_s, /* 754 */
830 Parrot_set_p_kc_s, /* 755 */
831 Parrot_set_p_k_sc, /* 756 */
832 Parrot_set_p_kc_sc, /* 757 */
833 Parrot_set_p_k_p, /* 758 */
834 Parrot_set_p_kc_p, /* 759 */
835 Parrot_set_i_p_k, /* 760 */
836 Parrot_set_i_p_kc, /* 761 */
837 Parrot_set_n_p_k, /* 762 */
838 Parrot_set_n_p_kc, /* 763 */
839 Parrot_set_s_p_k, /* 764 */
840 Parrot_set_s_p_kc, /* 765 */
841 Parrot_set_p_p_k, /* 766 */
842 Parrot_set_p_p_kc, /* 767 */
843 Parrot_clone_p_p, /* 768 */
844 Parrot_clone_p_p_p, /* 769 */
845 Parrot_clone_p_p_pc, /* 770 */
846 Parrot_copy_p_p, /* 771 */
847 Parrot_null_s, /* 772 */
848 Parrot_null_i, /* 773 */
849 Parrot_null_p, /* 774 */
850 Parrot_null_n, /* 775 */
851 Parrot_ord_i_s, /* 776 */
852 Parrot_ord_i_sc, /* 777 */
853 Parrot_ord_i_s_i, /* 778 */
854 Parrot_ord_i_sc_i, /* 779 */
855 Parrot_ord_i_s_ic, /* 780 */
856 Parrot_ord_i_sc_ic, /* 781 */
857 Parrot_chr_s_i, /* 782 */
858 Parrot_chr_s_ic, /* 783 */
859 Parrot_chopn_s_s_i, /* 784 */
860 Parrot_chopn_s_sc_i, /* 785 */
861 Parrot_chopn_s_s_ic, /* 786 */
862 Parrot_chopn_s_sc_ic, /* 787 */
863 Parrot_concat_s_s, /* 788 */
864 Parrot_concat_s_sc, /* 789 */
865 Parrot_concat_p_p, /* 790 */
866 Parrot_concat_p_s, /* 791 */
867 Parrot_concat_p_sc, /* 792 */
868 Parrot_concat_s_s_s, /* 793 */
869 Parrot_concat_s_sc_s, /* 794 */
870 Parrot_concat_s_s_sc, /* 795 */
871 Parrot_concat_p_p_s, /* 796 */
872 Parrot_concat_p_p_sc, /* 797 */
873 Parrot_concat_p_p_p, /* 798 */
874 Parrot_repeat_s_s_i, /* 799 */
875 Parrot_repeat_s_sc_i, /* 800 */
876 Parrot_repeat_s_s_ic, /* 801 */
877 Parrot_repeat_s_sc_ic, /* 802 */
878 Parrot_repeat_p_p_i, /* 803 */
879 Parrot_repeat_p_p_ic, /* 804 */
880 Parrot_repeat_p_p_p, /* 805 */
881 Parrot_repeat_p_i, /* 806 */
882 Parrot_repeat_p_ic, /* 807 */
883 Parrot_repeat_p_p, /* 808 */
884 Parrot_length_i_s, /* 809 */
885 Parrot_length_i_sc, /* 810 */
886 Parrot_bytelength_i_s, /* 811 */
887 Parrot_bytelength_i_sc, /* 812 */
888 Parrot_pin_s, /* 813 */
889 Parrot_unpin_s, /* 814 */
890 Parrot_substr_s_s_i, /* 815 */
891 Parrot_substr_s_sc_i, /* 816 */
892 Parrot_substr_s_s_ic, /* 817 */
893 Parrot_substr_s_sc_ic, /* 818 */
894 Parrot_substr_s_s_i_i, /* 819 */
895 Parrot_substr_s_sc_i_i, /* 820 */
896 Parrot_substr_s_s_ic_i, /* 821 */
897 Parrot_substr_s_sc_ic_i, /* 822 */
898 Parrot_substr_s_s_i_ic, /* 823 */
899 Parrot_substr_s_sc_i_ic, /* 824 */
900 Parrot_substr_s_s_ic_ic, /* 825 */
901 Parrot_substr_s_sc_ic_ic, /* 826 */
902 Parrot_substr_s_p_i_i, /* 827 */
903 Parrot_substr_s_p_ic_i, /* 828 */
904 Parrot_substr_s_p_i_ic, /* 829 */
905 Parrot_substr_s_p_ic_ic, /* 830 */
906 Parrot_replace_s_s_i_i_s, /* 831 */
907 Parrot_replace_s_sc_i_i_s, /* 832 */
908 Parrot_replace_s_s_ic_i_s, /* 833 */
909 Parrot_replace_s_sc_ic_i_s, /* 834 */
910 Parrot_replace_s_s_i_ic_s, /* 835 */
911 Parrot_replace_s_sc_i_ic_s, /* 836 */
912 Parrot_replace_s_s_ic_ic_s, /* 837 */
913 Parrot_replace_s_sc_ic_ic_s, /* 838 */
914 Parrot_replace_s_s_i_i_sc, /* 839 */
915 Parrot_replace_s_sc_i_i_sc, /* 840 */
916 Parrot_replace_s_s_ic_i_sc, /* 841 */
917 Parrot_replace_s_sc_ic_i_sc, /* 842 */
918 Parrot_replace_s_s_i_ic_sc, /* 843 */
919 Parrot_replace_s_sc_i_ic_sc, /* 844 */
920 Parrot_replace_s_s_ic_ic_sc, /* 845 */
921 Parrot_replace_s_sc_ic_ic_sc, /* 846 */
922 Parrot_index_i_s_s, /* 847 */
923 Parrot_index_i_sc_s, /* 848 */
924 Parrot_index_i_s_sc, /* 849 */
925 Parrot_index_i_sc_sc, /* 850 */
926 Parrot_index_i_s_s_i, /* 851 */
927 Parrot_index_i_sc_s_i, /* 852 */
928 Parrot_index_i_s_sc_i, /* 853 */
929 Parrot_index_i_sc_sc_i, /* 854 */
930 Parrot_index_i_s_s_ic, /* 855 */
931 Parrot_index_i_sc_s_ic, /* 856 */
932 Parrot_index_i_s_sc_ic, /* 857 */
933 Parrot_index_i_sc_sc_ic, /* 858 */
934 Parrot_sprintf_s_s_p, /* 859 */
935 Parrot_sprintf_s_sc_p, /* 860 */
936 Parrot_sprintf_p_p_p, /* 861 */
937 Parrot_new_s, /* 862 */
938 Parrot_new_s_i, /* 863 */
939 Parrot_new_s_ic, /* 864 */
940 Parrot_stringinfo_i_s_i, /* 865 */
941 Parrot_stringinfo_i_sc_i, /* 866 */
942 Parrot_stringinfo_i_s_ic, /* 867 */
943 Parrot_stringinfo_i_sc_ic, /* 868 */
944 Parrot_upcase_s_s, /* 869 */
945 Parrot_upcase_s_sc, /* 870 */
946 Parrot_downcase_s_s, /* 871 */
947 Parrot_downcase_s_sc, /* 872 */
948 Parrot_titlecase_s_s, /* 873 */
949 Parrot_titlecase_s_sc, /* 874 */
950 Parrot_join_s_s_p, /* 875 */
951 Parrot_join_s_sc_p, /* 876 */
952 Parrot_split_p_s_s, /* 877 */
953 Parrot_split_p_sc_s, /* 878 */
954 Parrot_split_p_s_sc, /* 879 */
955 Parrot_split_p_sc_sc, /* 880 */
956 Parrot_charset_i_s, /* 881 */
957 Parrot_charset_i_sc, /* 882 */
958 Parrot_charsetname_s_i, /* 883 */
959 Parrot_charsetname_s_ic, /* 884 */
960 Parrot_find_charset_i_s, /* 885 */
961 Parrot_find_charset_i_sc, /* 886 */
962 Parrot_trans_charset_s_s_i, /* 887 */
963 Parrot_trans_charset_s_sc_i, /* 888 */
964 Parrot_trans_charset_s_s_ic, /* 889 */
965 Parrot_trans_charset_s_sc_ic, /* 890 */
966 Parrot_encoding_i_s, /* 891 */
967 Parrot_encoding_i_sc, /* 892 */
968 Parrot_encodingname_s_i, /* 893 */
969 Parrot_encodingname_s_ic, /* 894 */
970 Parrot_find_encoding_i_s, /* 895 */
971 Parrot_find_encoding_i_sc, /* 896 */
972 Parrot_trans_encoding_s_s_i, /* 897 */
973 Parrot_trans_encoding_s_sc_i, /* 898 */
974 Parrot_trans_encoding_s_s_ic, /* 899 */
975 Parrot_trans_encoding_s_sc_ic, /* 900 */
976 Parrot_is_cclass_i_i_s_i, /* 901 */
977 Parrot_is_cclass_i_ic_s_i, /* 902 */
978 Parrot_is_cclass_i_i_sc_i, /* 903 */
979 Parrot_is_cclass_i_ic_sc_i, /* 904 */
980 Parrot_is_cclass_i_i_s_ic, /* 905 */
981 Parrot_is_cclass_i_ic_s_ic, /* 906 */
982 Parrot_is_cclass_i_i_sc_ic, /* 907 */
983 Parrot_is_cclass_i_ic_sc_ic, /* 908 */
984 Parrot_find_cclass_i_i_s_i_i, /* 909 */
985 Parrot_find_cclass_i_ic_s_i_i, /* 910 */
986 Parrot_find_cclass_i_i_sc_i_i, /* 911 */
987 Parrot_find_cclass_i_ic_sc_i_i, /* 912 */
988 Parrot_find_cclass_i_i_s_ic_i, /* 913 */
989 Parrot_find_cclass_i_ic_s_ic_i, /* 914 */
990 Parrot_find_cclass_i_i_sc_ic_i, /* 915 */
991 Parrot_find_cclass_i_ic_sc_ic_i, /* 916 */
992 Parrot_find_cclass_i_i_s_i_ic, /* 917 */
993 Parrot_find_cclass_i_ic_s_i_ic, /* 918 */
994 Parrot_find_cclass_i_i_sc_i_ic, /* 919 */
995 Parrot_find_cclass_i_ic_sc_i_ic, /* 920 */
996 Parrot_find_cclass_i_i_s_ic_ic, /* 921 */
997 Parrot_find_cclass_i_ic_s_ic_ic, /* 922 */
998 Parrot_find_cclass_i_i_sc_ic_ic, /* 923 */
999 Parrot_find_cclass_i_ic_sc_ic_ic, /* 924 */
1000 Parrot_find_not_cclass_i_i_s_i_i, /* 925 */
1001 Parrot_find_not_cclass_i_ic_s_i_i, /* 926 */
1002 Parrot_find_not_cclass_i_i_sc_i_i, /* 927 */
1003 Parrot_find_not_cclass_i_ic_sc_i_i, /* 928 */
1004 Parrot_find_not_cclass_i_i_s_ic_i, /* 929 */
1005 Parrot_find_not_cclass_i_ic_s_ic_i, /* 930 */
1006 Parrot_find_not_cclass_i_i_sc_ic_i, /* 931 */
1007 Parrot_find_not_cclass_i_ic_sc_ic_i, /* 932 */
1008 Parrot_find_not_cclass_i_i_s_i_ic, /* 933 */
1009 Parrot_find_not_cclass_i_ic_s_i_ic, /* 934 */
1010 Parrot_find_not_cclass_i_i_sc_i_ic, /* 935 */
1011 Parrot_find_not_cclass_i_ic_sc_i_ic, /* 936 */
1012 Parrot_find_not_cclass_i_i_s_ic_ic, /* 937 */
1013 Parrot_find_not_cclass_i_ic_s_ic_ic, /* 938 */
1014 Parrot_find_not_cclass_i_i_sc_ic_ic, /* 939 */
1015 Parrot_find_not_cclass_i_ic_sc_ic_ic, /* 940 */
1016 Parrot_escape_s_s, /* 941 */
1017 Parrot_compose_s_s, /* 942 */
1018 Parrot_compose_s_sc, /* 943 */
1019 Parrot_spawnw_i_s, /* 944 */
1020 Parrot_spawnw_i_sc, /* 945 */
1021 Parrot_spawnw_i_p, /* 946 */
1022 Parrot_err_i, /* 947 */
1023 Parrot_err_s, /* 948 */
1024 Parrot_err_s_i, /* 949 */
1025 Parrot_err_s_ic, /* 950 */
1026 Parrot_time_i, /* 951 */
1027 Parrot_time_n, /* 952 */
1028 Parrot_sleep_i, /* 953 */
1029 Parrot_sleep_ic, /* 954 */
1030 Parrot_sleep_n, /* 955 */
1031 Parrot_sleep_nc, /* 956 */
1032 Parrot_store_lex_s_p, /* 957 */
1033 Parrot_store_lex_sc_p, /* 958 */
1034 Parrot_store_dynamic_lex_s_p, /* 959 */
1035 Parrot_store_dynamic_lex_sc_p, /* 960 */
1036 Parrot_find_lex_p_s, /* 961 */
1037 Parrot_find_lex_p_sc, /* 962 */
1038 Parrot_find_dynamic_lex_p_s, /* 963 */
1039 Parrot_find_dynamic_lex_p_sc, /* 964 */
1040 Parrot_find_caller_lex_p_s, /* 965 */
1041 Parrot_find_caller_lex_p_sc, /* 966 */
1042 Parrot_get_namespace_p, /* 967 */
1043 Parrot_get_namespace_p_p, /* 968 */
1044 Parrot_get_namespace_p_pc, /* 969 */
1045 Parrot_get_hll_namespace_p, /* 970 */
1046 Parrot_get_hll_namespace_p_p, /* 971 */
1047 Parrot_get_hll_namespace_p_pc, /* 972 */
1048 Parrot_get_root_namespace_p, /* 973 */
1049 Parrot_get_root_namespace_p_p, /* 974 */
1050 Parrot_get_root_namespace_p_pc, /* 975 */
1051 Parrot_get_global_p_s, /* 976 */
1052 Parrot_get_global_p_sc, /* 977 */
1053 Parrot_get_global_p_p_s, /* 978 */
1054 Parrot_get_global_p_pc_s, /* 979 */
1055 Parrot_get_global_p_p_sc, /* 980 */
1056 Parrot_get_global_p_pc_sc, /* 981 */
1057 Parrot_get_hll_global_p_s, /* 982 */
1058 Parrot_get_hll_global_p_sc, /* 983 */
1059 Parrot_get_hll_global_p_p_s, /* 984 */
1060 Parrot_get_hll_global_p_pc_s, /* 985 */
1061 Parrot_get_hll_global_p_p_sc, /* 986 */
1062 Parrot_get_hll_global_p_pc_sc, /* 987 */
1063 Parrot_get_root_global_p_s, /* 988 */
1064 Parrot_get_root_global_p_sc, /* 989 */
1065 Parrot_get_root_global_p_p_s, /* 990 */
1066 Parrot_get_root_global_p_pc_s, /* 991 */
1067 Parrot_get_root_global_p_p_sc, /* 992 */
1068 Parrot_get_root_global_p_pc_sc, /* 993 */
1069 Parrot_set_global_s_p, /* 994 */
1070 Parrot_set_global_sc_p, /* 995 */
1071 Parrot_set_global_p_s_p, /* 996 */
1072 Parrot_set_global_pc_s_p, /* 997 */
1073 Parrot_set_global_p_sc_p, /* 998 */
1074 Parrot_set_global_pc_sc_p, /* 999 */
1075 Parrot_set_hll_global_s_p, /* 1000 */
1076 Parrot_set_hll_global_sc_p, /* 1001 */
1077 Parrot_set_hll_global_p_s_p, /* 1002 */
1078 Parrot_set_hll_global_pc_s_p, /* 1003 */
1079 Parrot_set_hll_global_p_sc_p, /* 1004 */
1080 Parrot_set_hll_global_pc_sc_p, /* 1005 */
1081 Parrot_set_root_global_s_p, /* 1006 */
1082 Parrot_set_root_global_sc_p, /* 1007 */
1083 Parrot_set_root_global_p_s_p, /* 1008 */
1084 Parrot_set_root_global_pc_s_p, /* 1009 */
1085 Parrot_set_root_global_p_sc_p, /* 1010 */
1086 Parrot_set_root_global_pc_sc_p, /* 1011 */
1087 Parrot_find_name_p_s, /* 1012 */
1088 Parrot_find_name_p_sc, /* 1013 */
1089 Parrot_find_sub_not_null_p_s, /* 1014 */
1090 Parrot_find_sub_not_null_p_sc, /* 1015 */
1091 Parrot_trap, /* 1016 */
1092 Parrot_set_label_p_ic, /* 1017 */
1093 Parrot_get_label_i_p, /* 1018 */
1094 Parrot_fetch_p_p_p_p, /* 1019 */
1095 Parrot_fetch_p_pc_p_p, /* 1020 */
1096 Parrot_fetch_p_p_pc_p, /* 1021 */
1097 Parrot_fetch_p_pc_pc_p, /* 1022 */
1098 Parrot_fetch_p_p_p_pc, /* 1023 */
1099 Parrot_fetch_p_pc_p_pc, /* 1024 */
1100 Parrot_fetch_p_p_pc_pc, /* 1025 */
1101 Parrot_fetch_p_pc_pc_pc, /* 1026 */
1102 Parrot_fetch_p_p_i_p, /* 1027 */
1103 Parrot_fetch_p_pc_i_p, /* 1028 */
1104 Parrot_fetch_p_p_ic_p, /* 1029 */
1105 Parrot_fetch_p_pc_ic_p, /* 1030 */
1106 Parrot_fetch_p_p_i_pc, /* 1031 */
1107 Parrot_fetch_p_pc_i_pc, /* 1032 */
1108 Parrot_fetch_p_p_ic_pc, /* 1033 */
1109 Parrot_fetch_p_pc_ic_pc, /* 1034 */
1110 Parrot_fetch_p_p_s_p, /* 1035 */
1111 Parrot_fetch_p_pc_s_p, /* 1036 */
1112 Parrot_fetch_p_p_sc_p, /* 1037 */
1113 Parrot_fetch_p_pc_sc_p, /* 1038 */
1114 Parrot_fetch_p_p_s_pc, /* 1039 */
1115 Parrot_fetch_p_pc_s_pc, /* 1040 */
1116 Parrot_fetch_p_p_sc_pc, /* 1041 */
1117 Parrot_fetch_p_pc_sc_pc, /* 1042 */
1118 Parrot_vivify_p_p_p_p, /* 1043 */
1119 Parrot_vivify_p_pc_p_p, /* 1044 */
1120 Parrot_vivify_p_p_pc_p, /* 1045 */
1121 Parrot_vivify_p_pc_pc_p, /* 1046 */
1122 Parrot_vivify_p_p_p_pc, /* 1047 */
1123 Parrot_vivify_p_pc_p_pc, /* 1048 */
1124 Parrot_vivify_p_p_pc_pc, /* 1049 */
1125 Parrot_vivify_p_pc_pc_pc, /* 1050 */
1126 Parrot_vivify_p_p_i_p, /* 1051 */
1127 Parrot_vivify_p_pc_i_p, /* 1052 */
1128 Parrot_vivify_p_p_ic_p, /* 1053 */
1129 Parrot_vivify_p_pc_ic_p, /* 1054 */
1130 Parrot_vivify_p_p_i_pc, /* 1055 */
1131 Parrot_vivify_p_pc_i_pc, /* 1056 */
1132 Parrot_vivify_p_p_ic_pc, /* 1057 */
1133 Parrot_vivify_p_pc_ic_pc, /* 1058 */
1134 Parrot_vivify_p_p_s_p, /* 1059 */
1135 Parrot_vivify_p_pc_s_p, /* 1060 */
1136 Parrot_vivify_p_p_sc_p, /* 1061 */
1137 Parrot_vivify_p_pc_sc_p, /* 1062 */
1138 Parrot_vivify_p_p_s_pc, /* 1063 */
1139 Parrot_vivify_p_pc_s_pc, /* 1064 */
1140 Parrot_vivify_p_p_sc_pc, /* 1065 */
1141 Parrot_vivify_p_pc_sc_pc, /* 1066 */
1142 Parrot_new_p_s_i, /* 1067 */
1143 Parrot_new_p_sc_i, /* 1068 */
1144 Parrot_new_p_s_ic, /* 1069 */
1145 Parrot_new_p_sc_ic, /* 1070 */
1146 Parrot_new_p_p_i, /* 1071 */
1147 Parrot_new_p_pc_i, /* 1072 */
1148 Parrot_new_p_p_ic, /* 1073 */
1149 Parrot_new_p_pc_ic, /* 1074 */
1150 Parrot_root_new_p_p_i, /* 1075 */
1151 Parrot_root_new_p_pc_i, /* 1076 */
1152 Parrot_root_new_p_p_ic, /* 1077 */
1153 Parrot_root_new_p_pc_ic, /* 1078 */
1154 Parrot_find_codepoint_i_s, /* 1079 */
1155 Parrot_find_codepoint_i_sc, /* 1080 */
1156 Parrot_finalize_p, /* 1081 */
1157 Parrot_finalize_pc, /* 1082 */
1158
1159 NULL /* NULL function pointer */
1160 };
1161
1162
1163
1164 /*
1165 ** Op Info Table:
1166 */
1167
1168 static op_info_t core_op_info_table[1084] = {
1169 { /* 0 */
1170 /* type PARROT_INLINE_OP, */
1171 "end",
1172 "end",
1173 "Parrot_end",
1174 /* "", body */
1175 0,
1176 1,
1177 { (arg_type_t) 0 },
1178 { (arg_dir_t) 0 },
1179 { 0 },
1180 &core_op_lib
1181 },
1182 { /* 1 */
1183 /* type PARROT_INLINE_OP, */
1184 "noop",
1185 "noop",
1186 "Parrot_noop",
1187 /* "", body */
1188 0,
1189 1,
1190 { (arg_type_t) 0 },
1191 { (arg_dir_t) 0 },
1192 { 0 },
1193 &core_op_lib
1194 },
1195 { /* 2 */
1196 /* type PARROT_INLINE_OP, */
1197 "check_events",
1198 "check_events",
1199 "Parrot_check_events",
1200 /* "", body */
1201 0,
1202 1,
1203 { (arg_type_t) 0 },
1204 { (arg_dir_t) 0 },
1205 { 0 },
1206 &core_op_lib
1207 },
1208 { /* 3 */
1209 /* type PARROT_INLINE_OP, */
1210 "check_events__",
1211 "check_events__",
1212 "Parrot_check_events__",
1213 /* "", body */
1214 0,
1215 1,
1216 { (arg_type_t) 0 },
1217 { (arg_dir_t) 0 },
1218 { 0 },
1219 &core_op_lib
1220 },
1221 { /* 4 */
1222 /* type PARROT_INLINE_OP, */
1223 "wrapper__",
1224 "wrapper__",
1225 "Parrot_wrapper__",
1226 /* "", body */
1227 0,
1228 1,
1229 { (arg_type_t) 0 },
1230 { (arg_dir_t) 0 },
1231 { 0 },
1232 &core_op_lib
1233 },
1234 { /* 5 */
1235 /* type PARROT_INLINE_OP, */
1236 "load_bytecode",
1237 "load_bytecode_s",
1238 "Parrot_load_bytecode_s",
1239 /* "", body */
1240 0,
1241 2,
1242 { PARROT_ARG_S },
1243 { PARROT_ARGDIR_IN },
1244 { 0 },
1245 &core_op_lib
1246 },
1247 { /* 6 */
1248 /* type PARROT_INLINE_OP, */
1249 "load_bytecode",
1250 "load_bytecode_sc",
1251 "Parrot_load_bytecode_sc",
1252 /* "", body */
1253 0,
1254 2,
1255 { PARROT_ARG_SC },
1256 { PARROT_ARGDIR_IN },
1257 { 0 },
1258 &core_op_lib
1259 },
1260 { /* 7 */
1261 /* type PARROT_INLINE_OP, */
1262 "load_language",
1263 "load_language_s",
1264 "Parrot_load_language_s",
1265 /* "", body */
1266 0,
1267 2,
1268 { PARROT_ARG_S },
1269 { PARROT_ARGDIR_IN },
1270 { 0 },
1271 &core_op_lib
1272 },
1273 { /* 8 */
1274 /* type PARROT_INLINE_OP, */
1275 "load_language",
1276 "load_language_sc",
1277 "Parrot_load_language_sc",
1278 /* "", body */
1279 0,
1280 2,
1281 { PARROT_ARG_SC },
1282 { PARROT_ARGDIR_IN },
1283 { 0 },
1284 &core_op_lib
1285 },
1286 { /* 9 */
1287 /* type PARROT_INLINE_OP, */
1288 "branch",
1289 "branch_i",
1290 "Parrot_branch_i",
1291 /* "", body */
1292 PARROT_JUMP_RELATIVE,
1293 2,
1294 { PARROT_ARG_I },
1295 { PARROT_ARGDIR_IN },
1296 { 1 },
1297 &core_op_lib
1298 },
1299 { /* 10 */
1300 /* type PARROT_INLINE_OP, */
1301 "branch",
1302 "branch_ic",
1303 "Parrot_branch_ic",
1304 /* "", body */
1305 PARROT_JUMP_RELATIVE,
1306 2,
1307 { PARROT_ARG_IC },
1308 { PARROT_ARGDIR_IN },
1309 { 1 },
1310 &core_op_lib
1311 },
1312 { /* 11 */
1313 /* type PARROT_INLINE_OP, */
1314 "local_branch",
1315 "local_branch_p_i",
1316 "Parrot_local_branch_p_i",
1317 /* "", body */
1318 PARROT_JUMP_RELATIVE,
1319 3,
1320 { PARROT_ARG_P, PARROT_ARG_I },
1321 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1322 { 0, 1 },
1323 &core_op_lib
1324 },
1325 { /* 12 */
1326 /* type PARROT_INLINE_OP, */
1327 "local_branch",
1328 "local_branch_p_ic",
1329 "Parrot_local_branch_p_ic",
1330 /* "", body */
1331 PARROT_JUMP_RELATIVE,
1332 3,
1333 { PARROT_ARG_P, PARROT_ARG_IC },
1334 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1335 { 0, 1 },
1336 &core_op_lib
1337 },
1338 { /* 13 */
1339 /* type PARROT_INLINE_OP, */
1340 "local_return",
1341 "local_return_p",
1342 "Parrot_local_return_p",
1343 /* "", body */
1344 0,
1345 2,
1346 { PARROT_ARG_P },
1347 { PARROT_ARGDIR_IN },
1348 { 0 },
1349 &core_op_lib
1350 },
1351 { /* 14 */
1352 /* type PARROT_INLINE_OP, */
1353 "jump",
1354 "jump_i",
1355 "Parrot_jump_i",
1356 /* "", body */
1357 0,
1358 2,
1359 { PARROT_ARG_I },
1360 { PARROT_ARGDIR_IN },
1361 { 1 },
1362 &core_op_lib
1363 },
1364 { /* 15 */
1365 /* type PARROT_INLINE_OP, */
1366 "jump",
1367 "jump_ic",
1368 "Parrot_jump_ic",
1369 /* "", body */
1370 0,
1371 2,
1372 { PARROT_ARG_IC },
1373 { PARROT_ARGDIR_IN },
1374 { 1 },
1375 &core_op_lib
1376 },
1377 { /* 16 */
1378 /* type PARROT_FUNCTION_OP, */
1379 "enternative",
1380 "enternative",
1381 "Parrot_enternative",
1382 /* "", body */
1383 0,
1384 1,
1385 { (arg_type_t) 0 },
1386 { (arg_dir_t) 0 },
1387 { 0 },
1388 &core_op_lib
1389 },
1390 { /* 17 */
1391 /* type PARROT_INLINE_OP, */
1392 "if",
1393 "if_i_ic",
1394 "Parrot_if_i_ic",
1395 /* "", body */
1396 PARROT_JUMP_RELATIVE,
1397 3,
1398 { PARROT_ARG_I, PARROT_ARG_IC },
1399 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1400 { 0, 1 },
1401 &core_op_lib
1402 },
1403 { /* 18 */
1404 /* type PARROT_INLINE_OP, */
1405 "if",
1406 "if_n_ic",
1407 "Parrot_if_n_ic",
1408 /* "", body */
1409 PARROT_JUMP_RELATIVE,
1410 3,
1411 { PARROT_ARG_N, PARROT_ARG_IC },
1412 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1413 { 0, 1 },
1414 &core_op_lib
1415 },
1416 { /* 19 */
1417 /* type PARROT_FUNCTION_OP, */
1418 "if",
1419 "if_s_ic",
1420 "Parrot_if_s_ic",
1421 /* "", body */
1422 PARROT_JUMP_RELATIVE,
1423 3,
1424 { PARROT_ARG_S, PARROT_ARG_IC },
1425 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1426 { 0, 1 },
1427 &core_op_lib
1428 },
1429 { /* 20 */
1430 /* type PARROT_FUNCTION_OP, */
1431 "if",
1432 "if_p_ic",
1433 "Parrot_if_p_ic",
1434 /* "", body */
1435 PARROT_JUMP_RELATIVE,
1436 3,
1437 { PARROT_ARG_P, PARROT_ARG_IC },
1438 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1439 { 0, 1 },
1440 &core_op_lib
1441 },
1442 { /* 21 */
1443 /* type PARROT_INLINE_OP, */
1444 "unless",
1445 "unless_i_ic",
1446 "Parrot_unless_i_ic",
1447 /* "", body */
1448 PARROT_JUMP_RELATIVE,
1449 3,
1450 { PARROT_ARG_I, PARROT_ARG_IC },
1451 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1452 { 0, 1 },
1453 &core_op_lib
1454 },
1455 { /* 22 */
1456 /* type PARROT_INLINE_OP, */
1457 "unless",
1458 "unless_n_ic",
1459 "Parrot_unless_n_ic",
1460 /* "", body */
1461 PARROT_JUMP_RELATIVE,
1462 3,
1463 { PARROT_ARG_N, PARROT_ARG_IC },
1464 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1465 { 0, 1 },
1466 &core_op_lib
1467 },
1468 { /* 23 */
1469 /* type PARROT_FUNCTION_OP, */
1470 "unless",
1471 "unless_s_ic",
1472 "Parrot_unless_s_ic",
1473 /* "", body */
1474 PARROT_JUMP_RELATIVE,
1475 3,
1476 { PARROT_ARG_S, PARROT_ARG_IC },
1477 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1478 { 0, 1 },
1479 &core_op_lib
1480 },
1481 { /* 24 */
1482 /* type PARROT_FUNCTION_OP, */
1483 "unless",
1484 "unless_p_ic",
1485 "Parrot_unless_p_ic",
1486 /* "", body */
1487 PARROT_JUMP_RELATIVE,
1488 3,
1489 { PARROT_ARG_P, PARROT_ARG_IC },
1490 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1491 { 0, 1 },
1492 &core_op_lib
1493 },
1494 { /* 25 */
1495 /* type PARROT_INLINE_OP, */
1496 "invokecc",
1497 "invokecc_p",
1498 "Parrot_invokecc_p",
1499 /* "", body */
1500 0,
1501 2,
1502 { PARROT_ARG_P },
1503 { PARROT_ARGDIR_IN },
1504 { 0 },
1505 &core_op_lib
1506 },
1507 { /* 26 */
1508 /* type PARROT_INLINE_OP, */
1509 "invoke",
1510 "invoke_p_p",
1511 "Parrot_invoke_p_p",
1512 /* "", body */
1513 0,
1514 3,
1515 { PARROT_ARG_P, PARROT_ARG_P },
1516 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1517 { 0, 0 },
1518 &core_op_lib
1519 },
1520 { /* 27 */
1521 /* type PARROT_INLINE_OP, */
1522 "yield",
1523 "yield",
1524 "Parrot_yield",
1525 /* "", body */
1526 0,
1527 1,
1528 { (arg_type_t) 0 },
1529 { (arg_dir_t) 0 },
1530 { 0 },
1531 &core_op_lib
1532 },
1533 { /* 28 */
1534 /* type PARROT_INLINE_OP, */
1535 "tailcall",
1536 "tailcall_p",
1537 "Parrot_tailcall_p",
1538 /* "", body */
1539 0,
1540 2,
1541 { PARROT_ARG_P },
1542 { PARROT_ARGDIR_IN },
1543 { 0 },
1544 &core_op_lib
1545 },
1546 { /* 29 */
1547 /* type PARROT_INLINE_OP, */
1548 "returncc",
1549 "returncc",
1550 "Parrot_returncc",
1551 /* "", body */
1552 0,
1553 1,
1554 { (arg_type_t) 0 },
1555 { (arg_dir_t) 0 },
1556 { 0 },
1557 &core_op_lib
1558 },
1559 { /* 30 */
1560 /* type PARROT_INLINE_OP, */
1561 "capture_lex",
1562 "capture_lex_p",
1563 "Parrot_capture_lex_p",
1564 /* "", body */
1565 0,
1566 2,
1567 { PARROT_ARG_P },
1568 { PARROT_ARGDIR_IN },
1569 { 0 },
1570 &core_op_lib
1571 },
1572 { /* 31 */
1573 /* type PARROT_INLINE_OP, */
1574 "newclosure",
1575 "newclosure_p_p",
1576 "Parrot_newclosure_p_p",
1577 /* "", body */
1578 0,
1579 3,
1580 { PARROT_ARG_P, PARROT_ARG_P },
1581 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
1582 { 0, 0 },
1583 &core_op_lib
1584 },
1585 { /* 32 */
1586 /* type PARROT_FUNCTION_OP, */
1587 "set_args",
1588 "set_args_pc",
1589 "Parrot_set_args_pc",
1590 /* "", body */
1591 PARROT_JUMP_RELATIVE,
1592 2,
1593 { PARROT_ARG_PC },
1594 { PARROT_ARGDIR_IN },
1595 { 0 },
1596 &core_op_lib
1597 },
1598 { /* 33 */
1599 /* type PARROT_FUNCTION_OP, */
1600 "get_params",
1601 "get_params_pc",
1602 "Parrot_get_params_pc",
1603 /* "", body */
1604 PARROT_JUMP_RELATIVE,
1605 2,
1606 { PARROT_ARG_PC },
1607 { PARROT_ARGDIR_IN },
1608 { 0 },
1609 &core_op_lib
1610 },
1611 { /* 34 */
1612 /* type PARROT_FUNCTION_OP, */
1613 "set_returns",
1614 "set_returns_pc",
1615 "Parrot_set_returns_pc",
1616 /* "", body */
1617 PARROT_JUMP_RELATIVE,
1618 2,
1619 { PARROT_ARG_PC },
1620 { PARROT_ARGDIR_IN },
1621 { 0 },
1622 &core_op_lib
1623 },
1624 { /* 35 */
1625 /* type PARROT_FUNCTION_OP, */
1626 "get_results",
1627 "get_results_pc",
1628 "Parrot_get_results_pc",
1629 /* "", body */
1630 PARROT_JUMP_RELATIVE,
1631 2,
1632 { PARROT_ARG_PC },
1633 { PARROT_ARGDIR_IN },
1634 { 0 },
1635 &core_op_lib
1636 },
1637 { /* 36 */
1638 /* type PARROT_INLINE_OP, */
1639 "set_result_info",
1640 "set_result_info_p",
1641 "Parrot_set_result_info_p",
1642 /* "", body */
1643 0,
1644 2,
1645 { PARROT_ARG_P },
1646 { PARROT_ARGDIR_IN },
1647 { 0 },
1648 &core_op_lib
1649 },
1650 { /* 37 */
1651 /* type PARROT_INLINE_OP, */
1652 "set_result_info",
1653 "set_result_info_pc",
1654 "Parrot_set_result_info_pc",
1655 /* "", body */
1656 0,
1657 2,
1658 { PARROT_ARG_PC },
1659 { PARROT_ARGDIR_IN },
1660 { 0 },
1661 &core_op_lib
1662 },
1663 { /* 38 */
1664 /* type PARROT_INLINE_OP, */
1665 "result_info",
1666 "result_info_p",
1667 "Parrot_result_info_p",
1668 /* "", body */
1669 0,
1670 2,
1671 { PARROT_ARG_P },
1672 { PARROT_ARGDIR_OUT },
1673 { 0 },
1674 &core_op_lib
1675 },
1676 { /* 39 */
1677 /* type PARROT_INLINE_OP, */
1678 "set_addr",
1679 "set_addr_i_ic",
1680 "Parrot_set_addr_i_ic",
1681 /* "", body */
1682 0,
1683 3,
1684 { PARROT_ARG_I, PARROT_ARG_IC },
1685 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
1686 { 0, 1 },
1687 &core_op_lib
1688 },
1689 { /* 40 */
1690 /* type PARROT_INLINE_OP, */
1691 "set_addr",
1692 "set_addr_p_ic",
1693 "Parrot_set_addr_p_ic",
1694 /* "", body */
1695 0,
1696 3,
1697 { PARROT_ARG_P, PARROT_ARG_IC },
1698 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1699 { 0, 1 },
1700 &core_op_lib
1701 },
1702 { /* 41 */
1703 /* type PARROT_INLINE_OP, */
1704 "set_addr",
1705 "set_addr_p_i",
1706 "Parrot_set_addr_p_i",
1707 /* "", body */
1708 0,
1709 3,
1710 { PARROT_ARG_P, PARROT_ARG_I },
1711 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1712 { 0, 1 },
1713 &core_op_lib
1714 },
1715 { /* 42 */
1716 /* type PARROT_INLINE_OP, */
1717 "get_addr",
1718 "get_addr_i_p",
1719 "Parrot_get_addr_i_p",
1720 /* "", body */
1721 0,
1722 3,
1723 { PARROT_ARG_I, PARROT_ARG_P },
1724 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
1725 { 0, 0 },
1726 &core_op_lib
1727 },
1728 { /* 43 */
1729 /* type PARROT_INLINE_OP, */
1730 "schedule",
1731 "schedule_p",
1732 "Parrot_schedule_p",
1733 /* "", body */
1734 0,
1735 2,
1736 { PARROT_ARG_P },
1737 { PARROT_ARGDIR_IN },
1738 { 0 },
1739 &core_op_lib
1740 },
1741 { /* 44 */
1742 /* type PARROT_INLINE_OP, */
1743 "addhandler",
1744 "addhandler_p",
1745 "Parrot_addhandler_p",
1746 /* "", body */
1747 0,
1748 2,
1749 { PARROT_ARG_P },
1750 { PARROT_ARGDIR_IN },
1751 { 0 },
1752 &core_op_lib
1753 },
1754 { /* 45 */
1755 /* type PARROT_INLINE_OP, */
1756 "push_eh",
1757 "push_eh_ic",
1758 "Parrot_push_eh_ic",
1759 /* "", body */
1760 0,
1761 2,
1762 { PARROT_ARG_IC },
1763 { PARROT_ARGDIR_IN },
1764 { 1 },
1765 &core_op_lib
1766 },
1767 { /* 46 */
1768 /* type PARROT_INLINE_OP, */
1769 "push_eh",
1770 "push_eh_p",
1771 "Parrot_push_eh_p",
1772 /* "", body */
1773 0,
1774 2,
1775 { PARROT_ARG_P },
1776 { PARROT_ARGDIR_IN },
1777 { 0 },
1778 &core_op_lib
1779 },
1780 { /* 47 */
1781 /* type PARROT_INLINE_OP, */
1782 "pop_eh",
1783 "pop_eh",
1784 "Parrot_pop_eh",
1785 /* "", body */
1786 0,
1787 1,
1788 { (arg_type_t) 0 },
1789 { (arg_dir_t) 0 },
1790 { 0 },
1791 &core_op_lib
1792 },
1793 { /* 48 */
1794 /* type PARROT_INLINE_OP, */
1795 "throw",
1796 "throw_p",
1797 "Parrot_throw_p",
1798 /* "", body */
1799 0,
1800 2,
1801 { PARROT_ARG_P },
1802 { PARROT_ARGDIR_IN },
1803 { 0 },
1804 &core_op_lib
1805 },
1806 { /* 49 */
1807 /* type PARROT_INLINE_OP, */
1808 "throw",
1809 "throw_p_p",
1810 "Parrot_throw_p_p",
1811 /* "", body */
1812 0,
1813 3,
1814 { PARROT_ARG_P, PARROT_ARG_P },
1815 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1816 { 0, 0 },
1817 &core_op_lib
1818 },
1819 { /* 50 */
1820 /* type PARROT_INLINE_OP, */
1821 "rethrow",
1822 "rethrow_p",
1823 "Parrot_rethrow_p",
1824 /* "", body */
1825 0,
1826 2,
1827 { PARROT_ARG_P },
1828 { PARROT_ARGDIR_IN },
1829 { 0 },
1830 &core_op_lib
1831 },
1832 { /* 51 */
1833 /* type PARROT_INLINE_OP, */
1834 "count_eh",
1835 "count_eh_i",
1836 "Parrot_count_eh_i",
1837 /* "", body */
1838 0,
1839 2,
1840 { PARROT_ARG_I },
1841 { PARROT_ARGDIR_OUT },
1842 { 0 },
1843 &core_op_lib
1844 },
1845 { /* 52 */
1846 /* type PARROT_INLINE_OP, */
1847 "die",
1848 "die_s",
1849 "Parrot_die_s",
1850 /* "", body */
1851 0,
1852 2,
1853 { PARROT_ARG_S },
1854 { PARROT_ARGDIR_IN },
1855 { 0 },
1856 &core_op_lib
1857 },
1858 { /* 53 */
1859 /* type PARROT_INLINE_OP, */
1860 "die",
1861 "die_sc",
1862 "Parrot_die_sc",
1863 /* "", body */
1864 0,
1865 2,
1866 { PARROT_ARG_SC },
1867 { PARROT_ARGDIR_IN },
1868 { 0 },
1869 &core_op_lib
1870 },
1871 { /* 54 */
1872 /* type PARROT_INLINE_OP, */
1873 "die",
1874 "die_p",
1875 "Parrot_die_p",
1876 /* "", body */
1877 0,
1878 2,
1879 { PARROT_ARG_P },
1880 { PARROT_ARGDIR_IN },
1881 { 0 },
1882 &core_op_lib
1883 },
1884 { /* 55 */
1885 /* type PARROT_INLINE_OP, */
1886 "die",
1887 "die_pc",
1888 "Parrot_die_pc",
1889 /* "", body */
1890 0,
1891 2,
1892 { PARROT_ARG_PC },
1893 { PARROT_ARGDIR_IN },
1894 { 0 },
1895 &core_op_lib
1896 },
1897 { /* 56 */
1898 /* type PARROT_INLINE_OP, */
1899 "die",
1900 "die_i_i",
1901 "Parrot_die_i_i",
1902 /* "", body */
1903 0,
1904 3,
1905 { PARROT_ARG_I, PARROT_ARG_I },
1906 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1907 { 0, 0 },
1908 &core_op_lib
1909 },
1910 { /* 57 */
1911 /* type PARROT_INLINE_OP, */
1912 "die",
1913 "die_ic_i",
1914 "Parrot_die_ic_i",
1915 /* "", body */
1916 0,
1917 3,
1918 { PARROT_ARG_IC, PARROT_ARG_I },
1919 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1920 { 0, 0 },
1921 &core_op_lib
1922 },
1923 { /* 58 */
1924 /* type PARROT_INLINE_OP, */
1925 "die",
1926 "die_i_ic",
1927 "Parrot_die_i_ic",
1928 /* "", body */
1929 0,
1930 3,
1931 { PARROT_ARG_I, PARROT_ARG_IC },
1932 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1933 { 0, 0 },
1934 &core_op_lib
1935 },
1936 { /* 59 */
1937 /* type PARROT_INLINE_OP, */
1938 "die",
1939 "die_ic_ic",
1940 "Parrot_die_ic_ic",
1941 /* "", body */
1942 0,
1943 3,
1944 { PARROT_ARG_IC, PARROT_ARG_IC },
1945 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
1946 { 0, 0 },
1947 &core_op_lib
1948 },
1949 { /* 60 */
1950 /* type PARROT_INLINE_OP, */
1951 "exit",
1952 "exit_i",
1953 "Parrot_exit_i",
1954 /* "", body */
1955 0,
1956 2,
1957 { PARROT_ARG_I },
1958 { PARROT_ARGDIR_IN },
1959 { 0 },
1960 &core_op_lib
1961 },
1962 { /* 61 */
1963 /* type PARROT_INLINE_OP, */
1964 "exit",
1965 "exit_ic",
1966 "Parrot_exit_ic",
1967 /* "", body */
1968 0,
1969 2,
1970 { PARROT_ARG_IC },
1971 { PARROT_ARGDIR_IN },
1972 { 0 },
1973 &core_op_lib
1974 },
1975 { /* 62 */
1976 /* type PARROT_INLINE_OP, */
1977 "debug",
1978 "debug_i",
1979 "Parrot_debug_i",
1980 /* "", body */
1981 0,
1982 2,
1983 { PARROT_ARG_I },
1984 { PARROT_ARGDIR_IN },
1985 { 0 },
1986 &core_op_lib
1987 },
1988 { /* 63 */
1989 /* type PARROT_INLINE_OP, */
1990 "debug",
1991 "debug_ic",
1992 "Parrot_debug_ic",
1993 /* "", body */
1994 0,
1995 2,
1996 { PARROT_ARG_IC },
1997 { PARROT_ARGDIR_IN },
1998 { 0 },
1999 &core_op_lib
2000 },
2001 { /* 64 */
2002 /* type PARROT_INLINE_OP, */
2003 "bounds",
2004 "bounds_i",
2005 "Parrot_bounds_i",
2006 /* "", body */
2007 0,
2008 2,
2009 { PARROT_ARG_I },
2010 { PARROT_ARGDIR_IN },
2011 { 0 },
2012 &core_op_lib
2013 },
2014 { /* 65 */
2015 /* type PARROT_INLINE_OP, */
2016 "bounds",
2017 "bounds_ic",
2018 "Parrot_bounds_ic",
2019 /* "", body */
2020 0,
2021 2,
2022 { PARROT_ARG_IC },
2023 { PARROT_ARGDIR_IN },
2024 { 0 },
2025 &core_op_lib
2026 },
2027 { /* 66 */
2028 /* type PARROT_INLINE_OP, */
2029 "profile",
2030 "profile_i",
2031 "Parrot_profile_i",
2032 /* "", body */
2033 0,
2034 2,
2035 { PARROT_ARG_I },
2036 { PARROT_ARGDIR_IN },
2037 { 0 },
2038 &core_op_lib
2039 },
2040 { /* 67 */
2041 /* type PARROT_INLINE_OP, */
2042 "profile",
2043 "profile_ic",
2044 "Parrot_profile_ic",
2045 /* "", body */
2046 0,
2047 2,
2048 { PARROT_ARG_IC },
2049 { PARROT_ARGDIR_IN },
2050 { 0 },
2051 &core_op_lib
2052 },
2053 { /* 68 */
2054 /* type PARROT_INLINE_OP, */
2055 "trace",
2056 "trace_i",
2057 "Parrot_trace_i",
2058 /* "", body */
2059 0,
2060 2,
2061 { PARROT_ARG_I },
2062 { PARROT_ARGDIR_IN },
2063 { 0 },
2064 &core_op_lib
2065 },
2066 { /* 69 */
2067 /* type PARROT_INLINE_OP, */
2068 "trace",
2069 "trace_ic",
2070 "Parrot_trace_ic",
2071 /* "", body */
2072 0,
2073 2,
2074 { PARROT_ARG_IC },
2075 { PARROT_ARGDIR_IN },
2076 { 0 },
2077 &core_op_lib
2078 },
2079 { /* 70 */
2080 /* type PARROT_INLINE_OP, */
2081 "gc_debug",
2082 "gc_debug_i",
2083 "Parrot_gc_debug_i",
2084 /* "", body */
2085 0,
2086 2,
2087 { PARROT_ARG_I },
2088 { PARROT_ARGDIR_IN },
2089 { 0 },
2090 &core_op_lib
2091 },
2092 { /* 71 */
2093 /* type PARROT_INLINE_OP, */
2094 "gc_debug",
2095 "gc_debug_ic",
2096 "Parrot_gc_debug_ic",
2097 /* "", body */
2098 0,
2099 2,
2100 { PARROT_ARG_IC },
2101 { PARROT_ARGDIR_IN },
2102 { 0 },
2103 &core_op_lib
2104 },
2105 { /* 72 */
2106 /* type PARROT_FUNCTION_OP, */
2107 "interpinfo",
2108 "interpinfo_i_i",
2109 "Parrot_interpinfo_i_i",
2110 /* "", body */
2111 0,
2112 3,
2113 { PARROT_ARG_I, PARROT_ARG_I },
2114 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2115 { 0, 0 },
2116 &core_op_lib
2117 },
2118 { /* 73 */
2119 /* type PARROT_FUNCTION_OP, */
2120 "interpinfo",
2121 "interpinfo_i_ic",
2122 "Parrot_interpinfo_i_ic",
2123 /* "", body */
2124 0,
2125 3,
2126 { PARROT_ARG_I, PARROT_ARG_IC },
2127 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2128 { 0, 0 },
2129 &core_op_lib
2130 },
2131 { /* 74 */
2132 /* type PARROT_FUNCTION_OP, */
2133 "interpinfo",
2134 "interpinfo_p_i",
2135 "Parrot_interpinfo_p_i",
2136 /* "", body */
2137 0,
2138 3,
2139 { PARROT_ARG_P, PARROT_ARG_I },
2140 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2141 { 0, 0 },
2142 &core_op_lib
2143 },
2144 { /* 75 */
2145 /* type PARROT_FUNCTION_OP, */
2146 "interpinfo",
2147 "interpinfo_p_ic",
2148 "Parrot_interpinfo_p_ic",
2149 /* "", body */
2150 0,
2151 3,
2152 { PARROT_ARG_P, PARROT_ARG_IC },
2153 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2154 { 0, 0 },
2155 &core_op_lib
2156 },
2157 { /* 76 */
2158 /* type PARROT_FUNCTION_OP, */
2159 "interpinfo",
2160 "interpinfo_s_i",
2161 "Parrot_interpinfo_s_i",
2162 /* "", body */
2163 0,
2164 3,
2165 { PARROT_ARG_S, PARROT_ARG_I },
2166 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2167 { 0, 0 },
2168 &core_op_lib
2169 },
2170 { /* 77 */
2171 /* type PARROT_FUNCTION_OP, */
2172 "interpinfo",
2173 "interpinfo_s_ic",
2174 "Parrot_interpinfo_s_ic",
2175 /* "", body */
2176 0,
2177 3,
2178 { PARROT_ARG_S, PARROT_ARG_IC },
2179 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2180 { 0, 0 },
2181 &core_op_lib
2182 },
2183 { /* 78 */
2184 /* type PARROT_INLINE_OP, */
2185 "warningson",
2186 "warningson_i",
2187 "Parrot_warningson_i",
2188 /* "", body */
2189 0,
2190 2,
2191 { PARROT_ARG_I },
2192 { PARROT_ARGDIR_IN },
2193 { 0 },
2194 &core_op_lib
2195 },
2196 { /* 79 */
2197 /* type PARROT_INLINE_OP, */
2198 "warningson",
2199 "warningson_ic",
2200 "Parrot_warningson_ic",
2201 /* "", body */
2202 0,
2203 2,
2204 { PARROT_ARG_IC },
2205 { PARROT_ARGDIR_IN },
2206 { 0 },
2207 &core_op_lib
2208 },
2209 { /* 80 */
2210 /* type PARROT_INLINE_OP, */
2211 "warningsoff",
2212 "warningsoff_i",
2213 "Parrot_warningsoff_i",
2214 /* "", body */
2215 0,
2216 2,
2217 { PARROT_ARG_I },
2218 { PARROT_ARGDIR_IN },
2219 { 0 },
2220 &core_op_lib
2221 },
2222 { /* 81 */
2223 /* type PARROT_INLINE_OP, */
2224 "warningsoff",
2225 "warningsoff_ic",
2226 "Parrot_warningsoff_ic",
2227 /* "", body */
2228 0,
2229 2,
2230 { PARROT_ARG_IC },
2231 { PARROT_ARGDIR_IN },
2232 { 0 },
2233 &core_op_lib
2234 },
2235 { /* 82 */
2236 /* type PARROT_INLINE_OP, */
2237 "errorson",
2238 "errorson_i",
2239 "Parrot_errorson_i",
2240 /* "", body */
2241 0,
2242 2,
2243 { PARROT_ARG_I },
2244 { PARROT_ARGDIR_IN },
2245 { 0 },
2246 &core_op_lib
2247 },
2248 { /* 83 */
2249 /* type PARROT_INLINE_OP, */
2250 "errorson",
2251 "errorson_ic",
2252 "Parrot_errorson_ic",
2253 /* "", body */
2254 0,
2255 2,
2256 { PARROT_ARG_IC },
2257 { PARROT_ARGDIR_IN },
2258 { 0 },
2259 &core_op_lib
2260 },
2261 { /* 84 */
2262 /* type PARROT_INLINE_OP, */
2263 "errorsoff",
2264 "errorsoff_i",
2265 "Parrot_errorsoff_i",
2266 /* "", body */
2267 0,
2268 2,
2269 { PARROT_ARG_I },
2270 { PARROT_ARGDIR_IN },
2271 { 0 },
2272 &core_op_lib
2273 },
2274 { /* 85 */
2275 /* type PARROT_INLINE_OP, */
2276 "errorsoff",
2277 "errorsoff_ic",
2278 "Parrot_errorsoff_ic",
2279 /* "", body */
2280 0,
2281 2,
2282 { PARROT_ARG_IC },
2283 { PARROT_ARGDIR_IN },
2284 { 0 },
2285 &core_op_lib
2286 },
2287 { /* 86 */
2288 /* type PARROT_FUNCTION_OP, */
2289 "runinterp",
2290 "runinterp_p_i",
2291 "Parrot_runinterp_p_i",
2292 /* "", body */
2293 PARROT_JUMP_RELATIVE,
2294 3,
2295 { PARROT_ARG_P, PARROT_ARG_I },
2296 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2297 { 0, 1 },
2298 &core_op_lib
2299 },
2300 { /* 87 */
2301 /* type PARROT_FUNCTION_OP, */
2302 "runinterp",
2303 "runinterp_p_ic",
2304 "Parrot_runinterp_p_ic",
2305 /* "", body */
2306 PARROT_JUMP_RELATIVE,
2307 3,
2308 { PARROT_ARG_P, PARROT_ARG_IC },
2309 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2310 { 0, 1 },
2311 &core_op_lib
2312 },
2313 { /* 88 */
2314 /* type PARROT_FUNCTION_OP, */
2315 "getinterp",
2316 "getinterp_p",
2317 "Parrot_getinterp_p",
2318 /* "", body */
2319 0,
2320 2,
2321 { PARROT_ARG_P },
2322 { PARROT_ARGDIR_OUT },
2323 { 0 },
2324 &core_op_lib
2325 },
2326 { /* 89 */
2327 /* type PARROT_FUNCTION_OP, */
2328 "sweep",
2329 "sweep_ic",
2330 "Parrot_sweep_ic",
2331 /* "", body */
2332 0,
2333 2,
2334 { PARROT_ARG_IC },
2335 { PARROT_ARGDIR_IN },
2336 { 0 },
2337 &core_op_lib
2338 },
2339 { /* 90 */
2340 /* type PARROT_FUNCTION_OP, */
2341 "collect",
2342 "collect",
2343 "Parrot_collect",
2344 /* "", body */
2345 0,
2346 1,
2347 { (arg_type_t) 0 },
2348 { (arg_dir_t) 0 },
2349 { 0 },
2350 &core_op_lib
2351 },
2352 { /* 91 */
2353 /* type PARROT_FUNCTION_OP, */
2354 "sweepoff",
2355 "sweepoff",
2356 "Parrot_sweepoff",
2357 /* "", body */
2358 0,
2359 1,
2360 { (arg_type_t) 0 },
2361 { (arg_dir_t) 0 },
2362 { 0 },
2363 &core_op_lib
2364 },
2365 { /* 92 */
2366 /* type PARROT_FUNCTION_OP, */
2367 "sweepon",
2368 "sweepon",
2369 "Parrot_sweepon",
2370 /* "", body */
2371 0,
2372 1,
2373 { (arg_type_t) 0 },
2374 { (arg_dir_t) 0 },
2375 { 0 },
2376 &core_op_lib
2377 },
2378 { /* 93 */
2379 /* type PARROT_FUNCTION_OP, */
2380 "collectoff",
2381 "collectoff",
2382 "Parrot_collectoff",
2383 /* "", body */
2384 0,
2385 1,
2386 { (arg_type_t) 0 },
2387 { (arg_dir_t) 0 },
2388 { 0 },
2389 &core_op_lib
2390 },
2391 { /* 94 */
2392 /* type PARROT_FUNCTION_OP, */
2393 "collecton",
2394 "collecton",
2395 "Parrot_collecton",
2396 /* "", body */
2397 0,
2398 1,
2399 { (arg_type_t) 0 },
2400 { (arg_dir_t) 0 },
2401 { 0 },
2402 &core_op_lib
2403 },
2404 { /* 95 */
2405 /* type PARROT_FUNCTION_OP, */
2406 "needs_destroy",
2407 "needs_destroy_p",
2408 "Parrot_needs_destroy_p",
2409 /* "", body */
2410 0,
2411 2,
2412 { PARROT_ARG_P },
2413 { PARROT_ARGDIR_IN },
2414 { 0 },
2415 &core_op_lib
2416 },
2417 { /* 96 */
2418 /* type PARROT_INLINE_OP, */
2419 "loadlib",
2420 "loadlib_p_s",
2421 "Parrot_loadlib_p_s",
2422 /* "", body */
2423 0,
2424 3,
2425 { PARROT_ARG_P, PARROT_ARG_S },
2426 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2427 { 0, 0 },
2428 &core_op_lib
2429 },
2430 { /* 97 */
2431 /* type PARROT_INLINE_OP, */
2432 "loadlib",
2433 "loadlib_p_sc",
2434 "Parrot_loadlib_p_sc",
2435 /* "", body */
2436 0,
2437 3,
2438 { PARROT_ARG_P, PARROT_ARG_SC },
2439 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2440 { 0, 0 },
2441 &core_op_lib
2442 },
2443 { /* 98 */
2444 /* type PARROT_INLINE_OP, */
2445 "loadlib",
2446 "loadlib_p_s_p",
2447 "Parrot_loadlib_p_s_p",
2448 /* "", body */
2449 0,
2450 4,
2451 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
2452 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2453 { 0, 0, 0 },
2454 &core_op_lib
2455 },
2456 { /* 99 */
2457 /* type PARROT_INLINE_OP, */
2458 "loadlib",
2459 "loadlib_p_sc_p",
2460 "Parrot_loadlib_p_sc_p",
2461 /* "", body */
2462 0,
2463 4,
2464 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
2465 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2466 { 0, 0, 0 },
2467 &core_op_lib
2468 },
2469 { /* 100 */
2470 /* type PARROT_INLINE_OP, */
2471 "loadlib",
2472 "loadlib_p_s_pc",
2473 "Parrot_loadlib_p_s_pc",
2474 /* "", body */
2475 0,
2476 4,
2477 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
2478 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2479 { 0, 0, 0 },
2480 &core_op_lib
2481 },
2482 { /* 101 */
2483 /* type PARROT_INLINE_OP, */
2484 "loadlib",
2485 "loadlib_p_sc_pc",
2486 "Parrot_loadlib_p_sc_pc",
2487 /* "", body */
2488 0,
2489 4,
2490 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
2491 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2492 { 0, 0, 0 },
2493 &core_op_lib
2494 },
2495 { /* 102 */
2496 /* type PARROT_FUNCTION_OP, */
2497 "dlfunc",
2498 "dlfunc_p_p_s_s",
2499 "Parrot_dlfunc_p_p_s_s",
2500 /* "", body */
2501 0,
2502 5,
2503 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
2504 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2505 { 0, 0, 0, 0 },
2506 &core_op_lib
2507 },
2508 { /* 103 */
2509 /* type PARROT_FUNCTION_OP, */
2510 "dlfunc",
2511 "dlfunc_p_p_sc_s",
2512 "Parrot_dlfunc_p_p_sc_s",
2513 /* "", body */
2514 0,
2515 5,
2516 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
2517 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2518 { 0, 0, 0, 0 },
2519 &core_op_lib
2520 },
2521 { /* 104 */
2522 /* type PARROT_FUNCTION_OP, */
2523 "dlfunc",
2524 "dlfunc_p_p_s_sc",
2525 "Parrot_dlfunc_p_p_s_sc",
2526 /* "", body */
2527 0,
2528 5,
2529 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
2530 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2531 { 0, 0, 0, 0 },
2532 &core_op_lib
2533 },
2534 { /* 105 */
2535 /* type PARROT_FUNCTION_OP, */
2536 "dlfunc",
2537 "dlfunc_p_p_sc_sc",
2538 "Parrot_dlfunc_p_p_sc_sc",
2539 /* "", body */
2540 0,
2541 5,
2542 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
2543 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2544 { 0, 0, 0, 0 },
2545 &core_op_lib
2546 },
2547 { /* 106 */
2548 /* type PARROT_FUNCTION_OP, */
2549 "dlvar",
2550 "dlvar_p_p_s",
2551 "Parrot_dlvar_p_p_s",
2552 /* "", body */
2553 0,
2554 4,
2555 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
2556 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2557 { 0, 0, 0 },
2558 &core_op_lib
2559 },
2560 { /* 107 */
2561 /* type PARROT_FUNCTION_OP, */
2562 "dlvar",
2563 "dlvar_p_p_sc",
2564 "Parrot_dlvar_p_p_sc",
2565 /* "", body */
2566 0,
2567 4,
2568 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
2569 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2570 { 0, 0, 0 },
2571 &core_op_lib
2572 },
2573 { /* 108 */
2574 /* type PARROT_INLINE_OP, */
2575 "compreg",
2576 "compreg_s_p",
2577 "Parrot_compreg_s_p",
2578 /* "", body */
2579 0,
2580 3,
2581 { PARROT_ARG_S, PARROT_ARG_P },
2582 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2583 { 0, 0 },
2584 &core_op_lib
2585 },
2586 { /* 109 */
2587 /* type PARROT_INLINE_OP, */
2588 "compreg",
2589 "compreg_sc_p",
2590 "Parrot_compreg_sc_p",
2591 /* "", body */
2592 0,
2593 3,
2594 { PARROT_ARG_SC, PARROT_ARG_P },
2595 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2596 { 0, 0 },
2597 &core_op_lib
2598 },
2599 { /* 110 */
2600 /* type PARROT_INLINE_OP, */
2601 "compreg",
2602 "compreg_p_s",
2603 "Parrot_compreg_p_s",
2604 /* "", body */
2605 0,
2606 3,
2607 { PARROT_ARG_P, PARROT_ARG_S },
2608 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2609 { 0, 0 },
2610 &core_op_lib
2611 },
2612 { /* 111 */
2613 /* type PARROT_INLINE_OP, */
2614 "compreg",
2615 "compreg_p_sc",
2616 "Parrot_compreg_p_sc",
2617 /* "", body */
2618 0,
2619 3,
2620 { PARROT_ARG_P, PARROT_ARG_SC },
2621 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2622 { 0, 0 },
2623 &core_op_lib
2624 },
2625 { /* 112 */
2626 /* type PARROT_FUNCTION_OP, */
2627 "new_callback",
2628 "new_callback_p_p_p_s",
2629 "Parrot_new_callback_p_p_p_s",
2630 /* "", body */
2631 0,
2632 5,
2633 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
2634 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2635 { 0, 0, 0, 0 },
2636 &core_op_lib
2637 },
2638 { /* 113 */
2639 /* type PARROT_FUNCTION_OP, */
2640 "new_callback",
2641 "new_callback_p_p_p_sc",
2642 "Parrot_new_callback_p_p_p_sc",
2643 /* "", body */
2644 0,
2645 5,
2646 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
2647 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2648 { 0, 0, 0, 0 },
2649 &core_op_lib
2650 },
2651 { /* 114 */
2652 /* type PARROT_INLINE_OP, */
2653 "annotations",
2654 "annotations_p",
2655 "Parrot_annotations_p",
2656 /* "", body */
2657 0,
2658 2,
2659 { PARROT_ARG_P },
2660 { PARROT_ARGDIR_OUT },
2661 { 0 },
2662 &core_op_lib
2663 },
2664 { /* 115 */
2665 /* type PARROT_INLINE_OP, */
2666 "annotations",
2667 "annotations_p_s",
2668 "Parrot_annotations_p_s",
2669 /* "", body */
2670 0,
2671 3,
2672 { PARROT_ARG_P, PARROT_ARG_S },
2673 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2674 { 0, 0 },
2675 &core_op_lib
2676 },
2677 { /* 116 */
2678 /* type PARROT_INLINE_OP, */
2679 "annotations",
2680 "annotations_p_sc",
2681 "Parrot_annotations_p_sc",
2682 /* "", body */
2683 0,
2684 3,
2685 { PARROT_ARG_P, PARROT_ARG_SC },
2686 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2687 { 0, 0 },
2688 &core_op_lib
2689 },
2690 { /* 117 */
2691 /* type PARROT_INLINE_OP, */
2692 "band",
2693 "band_i_i",
2694 "Parrot_band_i_i",
2695 /* "", body */
2696 0,
2697 3,
2698 { PARROT_ARG_I, PARROT_ARG_I },
2699 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2700 { 0, 0 },
2701 &core_op_lib
2702 },
2703 { /* 118 */
2704 /* type PARROT_INLINE_OP, */
2705 "band",
2706 "band_i_ic",
2707 "Parrot_band_i_ic",
2708 /* "", body */
2709 0,
2710 3,
2711 { PARROT_ARG_I, PARROT_ARG_IC },
2712 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2713 { 0, 0 },
2714 &core_op_lib
2715 },
2716 { /* 119 */
2717 /* type PARROT_INLINE_OP, */
2718 "band",
2719 "band_i_i_i",
2720 "Parrot_band_i_i_i",
2721 /* "", body */
2722 0,
2723 4,
2724 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
2725 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2726 { 0, 0, 0 },
2727 &core_op_lib
2728 },
2729 { /* 120 */
2730 /* type PARROT_INLINE_OP, */
2731 "band",
2732 "band_i_ic_i",
2733 "Parrot_band_i_ic_i",
2734 /* "", body */
2735 0,
2736 4,
2737 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
2738 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2739 { 0, 0, 0 },
2740 &core_op_lib
2741 },
2742 { /* 121 */
2743 /* type PARROT_INLINE_OP, */
2744 "band",
2745 "band_i_i_ic",
2746 "Parrot_band_i_i_ic",
2747 /* "", body */
2748 0,
2749 4,
2750 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
2751 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2752 { 0, 0, 0 },
2753 &core_op_lib
2754 },
2755 { /* 122 */
2756 /* type PARROT_INLINE_OP, */
2757 "bor",
2758 "bor_i_i",
2759 "Parrot_bor_i_i",
2760 /* "", body */
2761 0,
2762 3,
2763 { PARROT_ARG_I, PARROT_ARG_I },
2764 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2765 { 0, 0 },
2766 &core_op_lib
2767 },
2768 { /* 123 */
2769 /* type PARROT_INLINE_OP, */
2770 "bor",
2771 "bor_i_ic",
2772 "Parrot_bor_i_ic",
2773 /* "", body */
2774 0,
2775 3,
2776 { PARROT_ARG_I, PARROT_ARG_IC },
2777 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2778 { 0, 0 },
2779 &core_op_lib
2780 },
2781 { /* 124 */
2782 /* type PARROT_INLINE_OP, */
2783 "bor",
2784 "bor_i_i_i",
2785 "Parrot_bor_i_i_i",
2786 /* "", body */
2787 0,
2788 4,
2789 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
2790 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2791 { 0, 0, 0 },
2792 &core_op_lib
2793 },
2794 { /* 125 */
2795 /* type PARROT_INLINE_OP, */
2796 "bor",
2797 "bor_i_ic_i",
2798 "Parrot_bor_i_ic_i",
2799 /* "", body */
2800 0,
2801 4,
2802 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
2803 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2804 { 0, 0, 0 },
2805 &core_op_lib
2806 },
2807 { /* 126 */
2808 /* type PARROT_INLINE_OP, */
2809 "bor",
2810 "bor_i_i_ic",
2811 "Parrot_bor_i_i_ic",
2812 /* "", body */
2813 0,
2814 4,
2815 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
2816 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2817 { 0, 0, 0 },
2818 &core_op_lib
2819 },
2820 { /* 127 */
2821 /* type PARROT_INLINE_OP, */
2822 "shl",
2823 "shl_i_i",
2824 "Parrot_shl_i_i",
2825 /* "", body */
2826 0,
2827 3,
2828 { PARROT_ARG_I, PARROT_ARG_I },
2829 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2830 { 0, 0 },
2831 &core_op_lib
2832 },
2833 { /* 128 */
2834 /* type PARROT_INLINE_OP, */
2835 "shl",
2836 "shl_i_ic",
2837 "Parrot_shl_i_ic",
2838 /* "", body */
2839 0,
2840 3,
2841 { PARROT_ARG_I, PARROT_ARG_IC },
2842 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2843 { 0, 0 },
2844 &core_op_lib
2845 },
2846 { /* 129 */
2847 /* type PARROT_INLINE_OP, */
2848 "shl",
2849 "shl_i_i_i",
2850 "Parrot_shl_i_i_i",
2851 /* "", body */
2852 0,
2853 4,
2854 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
2855 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2856 { 0, 0, 0 },
2857 &core_op_lib
2858 },
2859 { /* 130 */
2860 /* type PARROT_INLINE_OP, */
2861 "shl",
2862 "shl_i_ic_i",
2863 "Parrot_shl_i_ic_i",
2864 /* "", body */
2865 0,
2866 4,
2867 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
2868 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2869 { 0, 0, 0 },
2870 &core_op_lib
2871 },
2872 { /* 131 */
2873 /* type PARROT_INLINE_OP, */
2874 "shl",
2875 "shl_i_i_ic",
2876 "Parrot_shl_i_i_ic",
2877 /* "", body */
2878 0,
2879 4,
2880 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
2881 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2882 { 0, 0, 0 },
2883 &core_op_lib
2884 },
2885 { /* 132 */
2886 /* type PARROT_INLINE_OP, */
2887 "shr",
2888 "shr_i_i",
2889 "Parrot_shr_i_i",
2890 /* "", body */
2891 0,
2892 3,
2893 { PARROT_ARG_I, PARROT_ARG_I },
2894 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2895 { 0, 0 },
2896 &core_op_lib
2897 },
2898 { /* 133 */
2899 /* type PARROT_INLINE_OP, */
2900 "shr",
2901 "shr_i_ic",
2902 "Parrot_shr_i_ic",
2903 /* "", body */
2904 0,
2905 3,
2906 { PARROT_ARG_I, PARROT_ARG_IC },
2907 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
2908 { 0, 0 },
2909 &core_op_lib
2910 },
2911 { /* 134 */
2912 /* type PARROT_INLINE_OP, */
2913 "shr",
2914 "shr_i_i_i",
2915 "Parrot_shr_i_i_i",
2916 /* "", body */
2917 0,
2918 4,
2919 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
2920 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2921 { 0, 0, 0 },
2922 &core_op_lib
2923 },
2924 { /* 135 */
2925 /* type PARROT_INLINE_OP, */
2926 "shr",
2927 "shr_i_ic_i",
2928 "Parrot_shr_i_ic_i",
2929 /* "", body */
2930 0,
2931 4,
2932 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
2933 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2934 { 0, 0, 0 },
2935 &core_op_lib
2936 },
2937 { /* 136 */
2938 /* type PARROT_INLINE_OP, */
2939 "shr",
2940 "shr_i_i_ic",
2941 "Parrot_shr_i_i_ic",
2942 /* "", body */
2943 0,
2944 4,
2945 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
2946 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2947 { 0, 0, 0 },
2948 &core_op_lib
2949 },
2950 { /* 137 */
2951 /* type PARROT_INLINE_OP, */
2952 "lsr",
2953 "lsr_i_i",
2954 "Parrot_lsr_i_i",
2955 /* "", body */
2956 0,
2957 3,
2958 { PARROT_ARG_I, PARROT_ARG_I },
2959 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2960 { 0, 0 },
2961 &core_op_lib
2962 },
2963 { /* 138 */
2964 /* type PARROT_INLINE_OP, */
2965 "lsr",
2966 "lsr_i_ic",
2967 "Parrot_lsr_i_ic",
2968 /* "", body */
2969 0,
2970 3,
2971 { PARROT_ARG_I, PARROT_ARG_IC },
2972 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
2973 { 0, 0 },
2974 &core_op_lib
2975 },
2976 { /* 139 */
2977 /* type PARROT_INLINE_OP, */
2978 "lsr",
2979 "lsr_i_i_i",
2980 "Parrot_lsr_i_i_i",
2981 /* "", body */
2982 0,
2983 4,
2984 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
2985 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2986 { 0, 0, 0 },
2987 &core_op_lib
2988 },
2989 { /* 140 */
2990 /* type PARROT_INLINE_OP, */
2991 "lsr",
2992 "lsr_i_ic_i",
2993 "Parrot_lsr_i_ic_i",
2994 /* "", body */
2995 0,
2996 4,
2997 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
2998 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
2999 { 0, 0, 0 },
3000 &core_op_lib
3001 },
3002 { /* 141 */
3003 /* type PARROT_INLINE_OP, */
3004 "lsr",
3005 "lsr_i_i_ic",
3006 "Parrot_lsr_i_i_ic",
3007 /* "", body */
3008 0,
3009 4,
3010 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
3011 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3012 { 0, 0, 0 },
3013 &core_op_lib
3014 },
3015 { /* 142 */
3016 /* type PARROT_INLINE_OP, */
3017 "bxor",
3018 "bxor_i_i",
3019 "Parrot_bxor_i_i",
3020 /* "", body */
3021 0,
3022 3,
3023 { PARROT_ARG_I, PARROT_ARG_I },
3024 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
3025 { 0, 0 },
3026 &core_op_lib
3027 },
3028 { /* 143 */
3029 /* type PARROT_INLINE_OP, */
3030 "bxor",
3031 "bxor_i_ic",
3032 "Parrot_bxor_i_ic",
3033 /* "", body */
3034 0,
3035 3,
3036 { PARROT_ARG_I, PARROT_ARG_IC },
3037 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
3038 { 0, 0 },
3039 &core_op_lib
3040 },
3041 { /* 144 */
3042 /* type PARROT_INLINE_OP, */
3043 "bxor",
3044 "bxor_i_i_i",
3045 "Parrot_bxor_i_i_i",
3046 /* "", body */
3047 0,
3048 4,
3049 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
3050 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3051 { 0, 0, 0 },
3052 &core_op_lib
3053 },
3054 { /* 145 */
3055 /* type PARROT_INLINE_OP, */
3056 "bxor",
3057 "bxor_i_ic_i",
3058 "Parrot_bxor_i_ic_i",
3059 /* "", body */
3060 0,
3061 4,
3062 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
3063 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3064 { 0, 0, 0 },
3065 &core_op_lib
3066 },
3067 { /* 146 */
3068 /* type PARROT_INLINE_OP, */
3069 "bxor",
3070 "bxor_i_i_ic",
3071 "Parrot_bxor_i_i_ic",
3072 /* "", body */
3073 0,
3074 4,
3075 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
3076 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3077 { 0, 0, 0 },
3078 &core_op_lib
3079 },
3080 { /* 147 */
3081 /* type PARROT_INLINE_OP, */
3082 "eq",
3083 "eq_i_i_ic",
3084 "Parrot_eq_i_i_ic",
3085 /* "", body */
3086 PARROT_JUMP_RELATIVE,
3087 4,
3088 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
3089 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3090 { 0, 0, 1 },
3091 &core_op_lib
3092 },
3093 { /* 148 */
3094 /* type PARROT_INLINE_OP, */
3095 "eq",
3096 "eq_ic_i_ic",
3097 "Parrot_eq_ic_i_ic",
3098 /* "", body */
3099 PARROT_JUMP_RELATIVE,
3100 4,
3101 { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
3102 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3103 { 0, 0, 1 },
3104 &core_op_lib
3105 },
3106 { /* 149 */
3107 /* type PARROT_INLINE_OP, */
3108 "eq",
3109 "eq_i_ic_ic",
3110 "Parrot_eq_i_ic_ic",
3111 /* "", body */
3112 PARROT_JUMP_RELATIVE,
3113 4,
3114 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
3115 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3116 { 0, 0, 1 },
3117 &core_op_lib
3118 },
3119 { /* 150 */
3120 /* type PARROT_INLINE_OP, */
3121 "eq",
3122 "eq_n_n_ic",
3123 "Parrot_eq_n_n_ic",
3124 /* "", body */
3125 PARROT_JUMP_RELATIVE,
3126 4,
3127 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
3128 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3129 { 0, 0, 1 },
3130 &core_op_lib
3131 },
3132 { /* 151 */
3133 /* type PARROT_INLINE_OP, */
3134 "eq",
3135 "eq_nc_n_ic",
3136 "Parrot_eq_nc_n_ic",
3137 /* "", body */
3138 PARROT_JUMP_RELATIVE,
3139 4,
3140 { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
3141 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3142 { 0, 0, 1 },
3143 &core_op_lib
3144 },
3145 { /* 152 */
3146 /* type PARROT_INLINE_OP, */
3147 "eq",
3148 "eq_n_nc_ic",
3149 "Parrot_eq_n_nc_ic",
3150 /* "", body */
3151 PARROT_JUMP_RELATIVE,
3152 4,
3153 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
3154 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3155 { 0, 0, 1 },
3156 &core_op_lib
3157 },
3158 { /* 153 */
3159 /* type PARROT_FUNCTION_OP, */
3160 "eq",
3161 "eq_s_s_ic",
3162 "Parrot_eq_s_s_ic",
3163 /* "", body */
3164 PARROT_JUMP_RELATIVE,
3165 4,
3166 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
3167 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3168 { 0, 0, 1 },
3169 &core_op_lib
3170 },
3171 { /* 154 */
3172 /* type PARROT_FUNCTION_OP, */
3173 "eq",
3174 "eq_sc_s_ic",
3175 "Parrot_eq_sc_s_ic",
3176 /* "", body */
3177 PARROT_JUMP_RELATIVE,
3178 4,
3179 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
3180 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3181 { 0, 0, 1 },
3182 &core_op_lib
3183 },
3184 { /* 155 */
3185 /* type PARROT_FUNCTION_OP, */
3186 "eq",
3187 "eq_s_sc_ic",
3188 "Parrot_eq_s_sc_ic",
3189 /* "", body */
3190 PARROT_JUMP_RELATIVE,
3191 4,
3192 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
3193 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3194 { 0, 0, 1 },
3195 &core_op_lib
3196 },
3197 { /* 156 */
3198 /* type PARROT_FUNCTION_OP, */
3199 "eq",
3200 "eq_p_p_ic",
3201 "Parrot_eq_p_p_ic",
3202 /* "", body */
3203 PARROT_JUMP_RELATIVE,
3204 4,
3205 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3206 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3207 { 0, 0, 1 },
3208 &core_op_lib
3209 },
3210 { /* 157 */
3211 /* type PARROT_FUNCTION_OP, */
3212 "eq",
3213 "eq_p_i_ic",
3214 "Parrot_eq_p_i_ic",
3215 /* "", body */
3216 PARROT_JUMP_RELATIVE,
3217 4,
3218 { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
3219 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3220 { 0, 0, 1 },
3221 &core_op_lib
3222 },
3223 { /* 158 */
3224 /* type PARROT_FUNCTION_OP, */
3225 "eq",
3226 "eq_p_ic_ic",
3227 "Parrot_eq_p_ic_ic",
3228 /* "", body */
3229 PARROT_JUMP_RELATIVE,
3230 4,
3231 { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
3232 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3233 { 0, 0, 1 },
3234 &core_op_lib
3235 },
3236 { /* 159 */
3237 /* type PARROT_FUNCTION_OP, */
3238 "eq",
3239 "eq_p_n_ic",
3240 "Parrot_eq_p_n_ic",
3241 /* "", body */
3242 PARROT_JUMP_RELATIVE,
3243 4,
3244 { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
3245 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3246 { 0, 0, 1 },
3247 &core_op_lib
3248 },
3249 { /* 160 */
3250 /* type PARROT_FUNCTION_OP, */
3251 "eq",
3252 "eq_p_nc_ic",
3253 "Parrot_eq_p_nc_ic",
3254 /* "", body */
3255 PARROT_JUMP_RELATIVE,
3256 4,
3257 { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
3258 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3259 { 0, 0, 1 },
3260 &core_op_lib
3261 },
3262 { /* 161 */
3263 /* type PARROT_FUNCTION_OP, */
3264 "eq",
3265 "eq_p_s_ic",
3266 "Parrot_eq_p_s_ic",
3267 /* "", body */
3268 PARROT_JUMP_RELATIVE,
3269 4,
3270 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
3271 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3272 { 0, 0, 1 },
3273 &core_op_lib
3274 },
3275 { /* 162 */
3276 /* type PARROT_FUNCTION_OP, */
3277 "eq",
3278 "eq_p_sc_ic",
3279 "Parrot_eq_p_sc_ic",
3280 /* "", body */
3281 PARROT_JUMP_RELATIVE,
3282 4,
3283 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
3284 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3285 { 0, 0, 1 },
3286 &core_op_lib
3287 },
3288 { /* 163 */
3289 /* type PARROT_FUNCTION_OP, */
3290 "eq_str",
3291 "eq_str_p_p_ic",
3292 "Parrot_eq_str_p_p_ic",
3293 /* "", body */
3294 PARROT_JUMP_RELATIVE,
3295 4,
3296 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3297 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3298 { 0, 0, 1 },
3299 &core_op_lib
3300 },
3301 { /* 164 */
3302 /* type PARROT_FUNCTION_OP, */
3303 "eq_num",
3304 "eq_num_p_p_ic",
3305 "Parrot_eq_num_p_p_ic",
3306 /* "", body */
3307 PARROT_JUMP_RELATIVE,
3308 4,
3309 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3310 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3311 { 0, 0, 1 },
3312 &core_op_lib
3313 },
3314 { /* 165 */
3315 /* type PARROT_FUNCTION_OP, */
3316 "eq_addr",
3317 "eq_addr_s_s_ic",
3318 "Parrot_eq_addr_s_s_ic",
3319 /* "", body */
3320 PARROT_JUMP_RELATIVE,
3321 4,
3322 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
3323 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3324 { 0, 0, 1 },
3325 &core_op_lib
3326 },
3327 { /* 166 */
3328 /* type PARROT_FUNCTION_OP, */
3329 "eq_addr",
3330 "eq_addr_sc_s_ic",
3331 "Parrot_eq_addr_sc_s_ic",
3332 /* "", body */
3333 PARROT_JUMP_RELATIVE,
3334 4,
3335 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
3336 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3337 { 0, 0, 1 },
3338 &core_op_lib
3339 },
3340 { /* 167 */
3341 /* type PARROT_FUNCTION_OP, */
3342 "eq_addr",
3343 "eq_addr_s_sc_ic",
3344 "Parrot_eq_addr_s_sc_ic",
3345 /* "", body */
3346 PARROT_JUMP_RELATIVE,
3347 4,
3348 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
3349 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3350 { 0, 0, 1 },
3351 &core_op_lib
3352 },
3353 { /* 168 */
3354 /* type PARROT_FUNCTION_OP, */
3355 "eq_addr",
3356 "eq_addr_sc_sc_ic",
3357 "Parrot_eq_addr_sc_sc_ic",
3358 /* "", body */
3359 PARROT_JUMP_RELATIVE,
3360 4,
3361 { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
3362 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3363 { 0, 0, 1 },
3364 &core_op_lib
3365 },
3366 { /* 169 */
3367 /* type PARROT_FUNCTION_OP, */
3368 "eq_addr",
3369 "eq_addr_p_p_ic",
3370 "Parrot_eq_addr_p_p_ic",
3371 /* "", body */
3372 PARROT_JUMP_RELATIVE,
3373 4,
3374 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3375 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3376 { 0, 0, 1 },
3377 &core_op_lib
3378 },
3379 { /* 170 */
3380 /* type PARROT_INLINE_OP, */
3381 "ne",
3382 "ne_i_i_ic",
3383 "Parrot_ne_i_i_ic",
3384 /* "", body */
3385 PARROT_JUMP_RELATIVE,
3386 4,
3387 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
3388 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3389 { 0, 0, 1 },
3390 &core_op_lib
3391 },
3392 { /* 171 */
3393 /* type PARROT_INLINE_OP, */
3394 "ne",
3395 "ne_ic_i_ic",
3396 "Parrot_ne_ic_i_ic",
3397 /* "", body */
3398 PARROT_JUMP_RELATIVE,
3399 4,
3400 { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
3401 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3402 { 0, 0, 1 },
3403 &core_op_lib
3404 },
3405 { /* 172 */
3406 /* type PARROT_INLINE_OP, */
3407 "ne",
3408 "ne_i_ic_ic",
3409 "Parrot_ne_i_ic_ic",
3410 /* "", body */
3411 PARROT_JUMP_RELATIVE,
3412 4,
3413 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
3414 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3415 { 0, 0, 1 },
3416 &core_op_lib
3417 },
3418 { /* 173 */
3419 /* type PARROT_INLINE_OP, */
3420 "ne",
3421 "ne_n_n_ic",
3422 "Parrot_ne_n_n_ic",
3423 /* "", body */
3424 PARROT_JUMP_RELATIVE,
3425 4,
3426 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
3427 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3428 { 0, 0, 1 },
3429 &core_op_lib
3430 },
3431 { /* 174 */
3432 /* type PARROT_INLINE_OP, */
3433 "ne",
3434 "ne_nc_n_ic",
3435 "Parrot_ne_nc_n_ic",
3436 /* "", body */
3437 PARROT_JUMP_RELATIVE,
3438 4,
3439 { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
3440 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3441 { 0, 0, 1 },
3442 &core_op_lib
3443 },
3444 { /* 175 */
3445 /* type PARROT_INLINE_OP, */
3446 "ne",
3447 "ne_n_nc_ic",
3448 "Parrot_ne_n_nc_ic",
3449 /* "", body */
3450 PARROT_JUMP_RELATIVE,
3451 4,
3452 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
3453 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3454 { 0, 0, 1 },
3455 &core_op_lib
3456 },
3457 { /* 176 */
3458 /* type PARROT_FUNCTION_OP, */
3459 "ne",
3460 "ne_s_s_ic",
3461 "Parrot_ne_s_s_ic",
3462 /* "", body */
3463 PARROT_JUMP_RELATIVE,
3464 4,
3465 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
3466 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3467 { 0, 0, 1 },
3468 &core_op_lib
3469 },
3470 { /* 177 */
3471 /* type PARROT_FUNCTION_OP, */
3472 "ne",
3473 "ne_sc_s_ic",
3474 "Parrot_ne_sc_s_ic",
3475 /* "", body */
3476 PARROT_JUMP_RELATIVE,
3477 4,
3478 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
3479 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3480 { 0, 0, 1 },
3481 &core_op_lib
3482 },
3483 { /* 178 */
3484 /* type PARROT_FUNCTION_OP, */
3485 "ne",
3486 "ne_s_sc_ic",
3487 "Parrot_ne_s_sc_ic",
3488 /* "", body */
3489 PARROT_JUMP_RELATIVE,
3490 4,
3491 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
3492 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3493 { 0, 0, 1 },
3494 &core_op_lib
3495 },
3496 { /* 179 */
3497 /* type PARROT_FUNCTION_OP, */
3498 "ne",
3499 "ne_p_p_ic",
3500 "Parrot_ne_p_p_ic",
3501 /* "", body */
3502 PARROT_JUMP_RELATIVE,
3503 4,
3504 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3505 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3506 { 0, 0, 1 },
3507 &core_op_lib
3508 },
3509 { /* 180 */
3510 /* type PARROT_FUNCTION_OP, */
3511 "ne",
3512 "ne_p_i_ic",
3513 "Parrot_ne_p_i_ic",
3514 /* "", body */
3515 PARROT_JUMP_RELATIVE,
3516 4,
3517 { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
3518 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3519 { 0, 0, 1 },
3520 &core_op_lib
3521 },
3522 { /* 181 */
3523 /* type PARROT_FUNCTION_OP, */
3524 "ne",
3525 "ne_p_ic_ic",
3526 "Parrot_ne_p_ic_ic",
3527 /* "", body */
3528 PARROT_JUMP_RELATIVE,
3529 4,
3530 { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
3531 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3532 { 0, 0, 1 },
3533 &core_op_lib
3534 },
3535 { /* 182 */
3536 /* type PARROT_FUNCTION_OP, */
3537 "ne",
3538 "ne_p_n_ic",
3539 "Parrot_ne_p_n_ic",
3540 /* "", body */
3541 PARROT_JUMP_RELATIVE,
3542 4,
3543 { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
3544 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3545 { 0, 0, 1 },
3546 &core_op_lib
3547 },
3548 { /* 183 */
3549 /* type PARROT_FUNCTION_OP, */
3550 "ne",
3551 "ne_p_nc_ic",
3552 "Parrot_ne_p_nc_ic",
3553 /* "", body */
3554 PARROT_JUMP_RELATIVE,
3555 4,
3556 { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
3557 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3558 { 0, 0, 1 },
3559 &core_op_lib
3560 },
3561 { /* 184 */
3562 /* type PARROT_FUNCTION_OP, */
3563 "ne",
3564 "ne_p_s_ic",
3565 "Parrot_ne_p_s_ic",
3566 /* "", body */
3567 PARROT_JUMP_RELATIVE,
3568 4,
3569 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
3570 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3571 { 0, 0, 1 },
3572 &core_op_lib
3573 },
3574 { /* 185 */
3575 /* type PARROT_FUNCTION_OP, */
3576 "ne",
3577 "ne_p_sc_ic",
3578 "Parrot_ne_p_sc_ic",
3579 /* "", body */
3580 PARROT_JUMP_RELATIVE,
3581 4,
3582 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
3583 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3584 { 0, 0, 1 },
3585 &core_op_lib
3586 },
3587 { /* 186 */
3588 /* type PARROT_FUNCTION_OP, */
3589 "ne_str",
3590 "ne_str_p_p_ic",
3591 "Parrot_ne_str_p_p_ic",
3592 /* "", body */
3593 PARROT_JUMP_RELATIVE,
3594 4,
3595 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3596 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3597 { 0, 0, 1 },
3598 &core_op_lib
3599 },
3600 { /* 187 */
3601 /* type PARROT_FUNCTION_OP, */
3602 "ne_num",
3603 "ne_num_p_p_ic",
3604 "Parrot_ne_num_p_p_ic",
3605 /* "", body */
3606 PARROT_JUMP_RELATIVE,
3607 4,
3608 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3609 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3610 { 0, 0, 1 },
3611 &core_op_lib
3612 },
3613 { /* 188 */
3614 /* type PARROT_FUNCTION_OP, */
3615 "ne_addr",
3616 "ne_addr_s_s_ic",
3617 "Parrot_ne_addr_s_s_ic",
3618 /* "", body */
3619 PARROT_JUMP_RELATIVE,
3620 4,
3621 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
3622 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3623 { 0, 0, 1 },
3624 &core_op_lib
3625 },
3626 { /* 189 */
3627 /* type PARROT_FUNCTION_OP, */
3628 "ne_addr",
3629 "ne_addr_sc_s_ic",
3630 "Parrot_ne_addr_sc_s_ic",
3631 /* "", body */
3632 PARROT_JUMP_RELATIVE,
3633 4,
3634 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
3635 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3636 { 0, 0, 1 },
3637 &core_op_lib
3638 },
3639 { /* 190 */
3640 /* type PARROT_FUNCTION_OP, */
3641 "ne_addr",
3642 "ne_addr_s_sc_ic",
3643 "Parrot_ne_addr_s_sc_ic",
3644 /* "", body */
3645 PARROT_JUMP_RELATIVE,
3646 4,
3647 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
3648 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3649 { 0, 0, 1 },
3650 &core_op_lib
3651 },
3652 { /* 191 */
3653 /* type PARROT_FUNCTION_OP, */
3654 "ne_addr",
3655 "ne_addr_sc_sc_ic",
3656 "Parrot_ne_addr_sc_sc_ic",
3657 /* "", body */
3658 PARROT_JUMP_RELATIVE,
3659 4,
3660 { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
3661 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3662 { 0, 0, 1 },
3663 &core_op_lib
3664 },
3665 { /* 192 */
3666 /* type PARROT_FUNCTION_OP, */
3667 "ne_addr",
3668 "ne_addr_p_p_ic",
3669 "Parrot_ne_addr_p_p_ic",
3670 /* "", body */
3671 PARROT_JUMP_RELATIVE,
3672 4,
3673 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3674 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3675 { 0, 0, 1 },
3676 &core_op_lib
3677 },
3678 { /* 193 */
3679 /* type PARROT_INLINE_OP, */
3680 "lt",
3681 "lt_i_i_ic",
3682 "Parrot_lt_i_i_ic",
3683 /* "", body */
3684 PARROT_JUMP_RELATIVE,
3685 4,
3686 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
3687 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3688 { 0, 0, 1 },
3689 &core_op_lib
3690 },
3691 { /* 194 */
3692 /* type PARROT_INLINE_OP, */
3693 "lt",
3694 "lt_ic_i_ic",
3695 "Parrot_lt_ic_i_ic",
3696 /* "", body */
3697 PARROT_JUMP_RELATIVE,
3698 4,
3699 { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
3700 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3701 { 0, 0, 1 },
3702 &core_op_lib
3703 },
3704 { /* 195 */
3705 /* type PARROT_INLINE_OP, */
3706 "lt",
3707 "lt_i_ic_ic",
3708 "Parrot_lt_i_ic_ic",
3709 /* "", body */
3710 PARROT_JUMP_RELATIVE,
3711 4,
3712 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
3713 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3714 { 0, 0, 1 },
3715 &core_op_lib
3716 },
3717 { /* 196 */
3718 /* type PARROT_INLINE_OP, */
3719 "lt",
3720 "lt_n_n_ic",
3721 "Parrot_lt_n_n_ic",
3722 /* "", body */
3723 PARROT_JUMP_RELATIVE,
3724 4,
3725 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
3726 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3727 { 0, 0, 1 },
3728 &core_op_lib
3729 },
3730 { /* 197 */
3731 /* type PARROT_INLINE_OP, */
3732 "lt",
3733 "lt_nc_n_ic",
3734 "Parrot_lt_nc_n_ic",
3735 /* "", body */
3736 PARROT_JUMP_RELATIVE,
3737 4,
3738 { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
3739 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3740 { 0, 0, 1 },
3741 &core_op_lib
3742 },
3743 { /* 198 */
3744 /* type PARROT_INLINE_OP, */
3745 "lt",
3746 "lt_n_nc_ic",
3747 "Parrot_lt_n_nc_ic",
3748 /* "", body */
3749 PARROT_JUMP_RELATIVE,
3750 4,
3751 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
3752 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3753 { 0, 0, 1 },
3754 &core_op_lib
3755 },
3756 { /* 199 */
3757 /* type PARROT_FUNCTION_OP, */
3758 "lt",
3759 "lt_s_s_ic",
3760 "Parrot_lt_s_s_ic",
3761 /* "", body */
3762 PARROT_JUMP_RELATIVE,
3763 4,
3764 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
3765 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3766 { 0, 0, 1 },
3767 &core_op_lib
3768 },
3769 { /* 200 */
3770 /* type PARROT_FUNCTION_OP, */
3771 "lt",
3772 "lt_sc_s_ic",
3773 "Parrot_lt_sc_s_ic",
3774 /* "", body */
3775 PARROT_JUMP_RELATIVE,
3776 4,
3777 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
3778 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3779 { 0, 0, 1 },
3780 &core_op_lib
3781 },
3782 { /* 201 */
3783 /* type PARROT_FUNCTION_OP, */
3784 "lt",
3785 "lt_s_sc_ic",
3786 "Parrot_lt_s_sc_ic",
3787 /* "", body */
3788 PARROT_JUMP_RELATIVE,
3789 4,
3790 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
3791 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3792 { 0, 0, 1 },
3793 &core_op_lib
3794 },
3795 { /* 202 */
3796 /* type PARROT_FUNCTION_OP, */
3797 "lt",
3798 "lt_p_p_ic",
3799 "Parrot_lt_p_p_ic",
3800 /* "", body */
3801 PARROT_JUMP_RELATIVE,
3802 4,
3803 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3804 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3805 { 0, 0, 1 },
3806 &core_op_lib
3807 },
3808 { /* 203 */
3809 /* type PARROT_FUNCTION_OP, */
3810 "lt",
3811 "lt_p_i_ic",
3812 "Parrot_lt_p_i_ic",
3813 /* "", body */
3814 PARROT_JUMP_RELATIVE,
3815 4,
3816 { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
3817 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3818 { 0, 0, 1 },
3819 &core_op_lib
3820 },
3821 { /* 204 */
3822 /* type PARROT_FUNCTION_OP, */
3823 "lt",
3824 "lt_p_ic_ic",
3825 "Parrot_lt_p_ic_ic",
3826 /* "", body */
3827 PARROT_JUMP_RELATIVE,
3828 4,
3829 { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
3830 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3831 { 0, 0, 1 },
3832 &core_op_lib
3833 },
3834 { /* 205 */
3835 /* type PARROT_FUNCTION_OP, */
3836 "lt",
3837 "lt_p_n_ic",
3838 "Parrot_lt_p_n_ic",
3839 /* "", body */
3840 PARROT_JUMP_RELATIVE,
3841 4,
3842 { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
3843 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3844 { 0, 0, 1 },
3845 &core_op_lib
3846 },
3847 { /* 206 */
3848 /* type PARROT_FUNCTION_OP, */
3849 "lt",
3850 "lt_p_nc_ic",
3851 "Parrot_lt_p_nc_ic",
3852 /* "", body */
3853 PARROT_JUMP_RELATIVE,
3854 4,
3855 { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
3856 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3857 { 0, 0, 1 },
3858 &core_op_lib
3859 },
3860 { /* 207 */
3861 /* type PARROT_FUNCTION_OP, */
3862 "lt",
3863 "lt_p_s_ic",
3864 "Parrot_lt_p_s_ic",
3865 /* "", body */
3866 PARROT_JUMP_RELATIVE,
3867 4,
3868 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
3869 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3870 { 0, 0, 1 },
3871 &core_op_lib
3872 },
3873 { /* 208 */
3874 /* type PARROT_FUNCTION_OP, */
3875 "lt",
3876 "lt_p_sc_ic",
3877 "Parrot_lt_p_sc_ic",
3878 /* "", body */
3879 PARROT_JUMP_RELATIVE,
3880 4,
3881 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
3882 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3883 { 0, 0, 1 },
3884 &core_op_lib
3885 },
3886 { /* 209 */
3887 /* type PARROT_FUNCTION_OP, */
3888 "lt_str",
3889 "lt_str_p_p_ic",
3890 "Parrot_lt_str_p_p_ic",
3891 /* "", body */
3892 PARROT_JUMP_RELATIVE,
3893 4,
3894 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3895 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3896 { 0, 0, 1 },
3897 &core_op_lib
3898 },
3899 { /* 210 */
3900 /* type PARROT_FUNCTION_OP, */
3901 "lt_num",
3902 "lt_num_p_p_ic",
3903 "Parrot_lt_num_p_p_ic",
3904 /* "", body */
3905 PARROT_JUMP_RELATIVE,
3906 4,
3907 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
3908 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3909 { 0, 0, 1 },
3910 &core_op_lib
3911 },
3912 { /* 211 */
3913 /* type PARROT_INLINE_OP, */
3914 "le",
3915 "le_i_i_ic",
3916 "Parrot_le_i_i_ic",
3917 /* "", body */
3918 PARROT_JUMP_RELATIVE,
3919 4,
3920 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
3921 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3922 { 0, 0, 1 },
3923 &core_op_lib
3924 },
3925 { /* 212 */
3926 /* type PARROT_INLINE_OP, */
3927 "le",
3928 "le_ic_i_ic",
3929 "Parrot_le_ic_i_ic",
3930 /* "", body */
3931 PARROT_JUMP_RELATIVE,
3932 4,
3933 { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
3934 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3935 { 0, 0, 1 },
3936 &core_op_lib
3937 },
3938 { /* 213 */
3939 /* type PARROT_INLINE_OP, */
3940 "le",
3941 "le_i_ic_ic",
3942 "Parrot_le_i_ic_ic",
3943 /* "", body */
3944 PARROT_JUMP_RELATIVE,
3945 4,
3946 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
3947 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3948 { 0, 0, 1 },
3949 &core_op_lib
3950 },
3951 { /* 214 */
3952 /* type PARROT_INLINE_OP, */
3953 "le",
3954 "le_n_n_ic",
3955 "Parrot_le_n_n_ic",
3956 /* "", body */
3957 PARROT_JUMP_RELATIVE,
3958 4,
3959 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
3960 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3961 { 0, 0, 1 },
3962 &core_op_lib
3963 },
3964 { /* 215 */
3965 /* type PARROT_INLINE_OP, */
3966 "le",
3967 "le_nc_n_ic",
3968 "Parrot_le_nc_n_ic",
3969 /* "", body */
3970 PARROT_JUMP_RELATIVE,
3971 4,
3972 { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
3973 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3974 { 0, 0, 1 },
3975 &core_op_lib
3976 },
3977 { /* 216 */
3978 /* type PARROT_INLINE_OP, */
3979 "le",
3980 "le_n_nc_ic",
3981 "Parrot_le_n_nc_ic",
3982 /* "", body */
3983 PARROT_JUMP_RELATIVE,
3984 4,
3985 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
3986 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
3987 { 0, 0, 1 },
3988 &core_op_lib
3989 },
3990 { /* 217 */
3991 /* type PARROT_FUNCTION_OP, */
3992 "le",
3993 "le_s_s_ic",
3994 "Parrot_le_s_s_ic",
3995 /* "", body */
3996 PARROT_JUMP_RELATIVE,
3997 4,
3998 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
3999 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4000 { 0, 0, 1 },
4001 &core_op_lib
4002 },
4003 { /* 218 */
4004 /* type PARROT_FUNCTION_OP, */
4005 "le",
4006 "le_sc_s_ic",
4007 "Parrot_le_sc_s_ic",
4008 /* "", body */
4009 PARROT_JUMP_RELATIVE,
4010 4,
4011 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
4012 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4013 { 0, 0, 1 },
4014 &core_op_lib
4015 },
4016 { /* 219 */
4017 /* type PARROT_FUNCTION_OP, */
4018 "le",
4019 "le_s_sc_ic",
4020 "Parrot_le_s_sc_ic",
4021 /* "", body */
4022 PARROT_JUMP_RELATIVE,
4023 4,
4024 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
4025 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4026 { 0, 0, 1 },
4027 &core_op_lib
4028 },
4029 { /* 220 */
4030 /* type PARROT_FUNCTION_OP, */
4031 "le",
4032 "le_p_p_ic",
4033 "Parrot_le_p_p_ic",
4034 /* "", body */
4035 PARROT_JUMP_RELATIVE,
4036 4,
4037 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4038 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4039 { 0, 0, 1 },
4040 &core_op_lib
4041 },
4042 { /* 221 */
4043 /* type PARROT_FUNCTION_OP, */
4044 "le",
4045 "le_p_i_ic",
4046 "Parrot_le_p_i_ic",
4047 /* "", body */
4048 PARROT_JUMP_RELATIVE,
4049 4,
4050 { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
4051 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4052 { 0, 0, 1 },
4053 &core_op_lib
4054 },
4055 { /* 222 */
4056 /* type PARROT_FUNCTION_OP, */
4057 "le",
4058 "le_p_ic_ic",
4059 "Parrot_le_p_ic_ic",
4060 /* "", body */
4061 PARROT_JUMP_RELATIVE,
4062 4,
4063 { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
4064 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4065 { 0, 0, 1 },
4066 &core_op_lib
4067 },
4068 { /* 223 */
4069 /* type PARROT_FUNCTION_OP, */
4070 "le",
4071 "le_p_n_ic",
4072 "Parrot_le_p_n_ic",
4073 /* "", body */
4074 PARROT_JUMP_RELATIVE,
4075 4,
4076 { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
4077 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4078 { 0, 0, 1 },
4079 &core_op_lib
4080 },
4081 { /* 224 */
4082 /* type PARROT_FUNCTION_OP, */
4083 "le",
4084 "le_p_nc_ic",
4085 "Parrot_le_p_nc_ic",
4086 /* "", body */
4087 PARROT_JUMP_RELATIVE,
4088 4,
4089 { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
4090 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4091 { 0, 0, 1 },
4092 &core_op_lib
4093 },
4094 { /* 225 */
4095 /* type PARROT_FUNCTION_OP, */
4096 "le",
4097 "le_p_s_ic",
4098 "Parrot_le_p_s_ic",
4099 /* "", body */
4100 PARROT_JUMP_RELATIVE,
4101 4,
4102 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
4103 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4104 { 0, 0, 1 },
4105 &core_op_lib
4106 },
4107 { /* 226 */
4108 /* type PARROT_FUNCTION_OP, */
4109 "le",
4110 "le_p_sc_ic",
4111 "Parrot_le_p_sc_ic",
4112 /* "", body */
4113 PARROT_JUMP_RELATIVE,
4114 4,
4115 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
4116 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4117 { 0, 0, 1 },
4118 &core_op_lib
4119 },
4120 { /* 227 */
4121 /* type PARROT_FUNCTION_OP, */
4122 "le_str",
4123 "le_str_p_p_ic",
4124 "Parrot_le_str_p_p_ic",
4125 /* "", body */
4126 PARROT_JUMP_RELATIVE,
4127 4,
4128 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4129 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4130 { 0, 0, 1 },
4131 &core_op_lib
4132 },
4133 { /* 228 */
4134 /* type PARROT_FUNCTION_OP, */
4135 "le_num",
4136 "le_num_p_p_ic",
4137 "Parrot_le_num_p_p_ic",
4138 /* "", body */
4139 PARROT_JUMP_RELATIVE,
4140 4,
4141 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4142 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4143 { 0, 0, 1 },
4144 &core_op_lib
4145 },
4146 { /* 229 */
4147 /* type PARROT_FUNCTION_OP, */
4148 "gt",
4149 "gt_p_p_ic",
4150 "Parrot_gt_p_p_ic",
4151 /* "", body */
4152 PARROT_JUMP_RELATIVE,
4153 4,
4154 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4155 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4156 { 0, 0, 1 },
4157 &core_op_lib
4158 },
4159 { /* 230 */
4160 /* type PARROT_FUNCTION_OP, */
4161 "gt",
4162 "gt_p_i_ic",
4163 "Parrot_gt_p_i_ic",
4164 /* "", body */
4165 PARROT_JUMP_RELATIVE,
4166 4,
4167 { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
4168 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4169 { 0, 0, 1 },
4170 &core_op_lib
4171 },
4172 { /* 231 */
4173 /* type PARROT_FUNCTION_OP, */
4174 "gt",
4175 "gt_p_ic_ic",
4176 "Parrot_gt_p_ic_ic",
4177 /* "", body */
4178 PARROT_JUMP_RELATIVE,
4179 4,
4180 { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
4181 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4182 { 0, 0, 1 },
4183 &core_op_lib
4184 },
4185 { /* 232 */
4186 /* type PARROT_FUNCTION_OP, */
4187 "gt",
4188 "gt_p_n_ic",
4189 "Parrot_gt_p_n_ic",
4190 /* "", body */
4191 PARROT_JUMP_RELATIVE,
4192 4,
4193 { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
4194 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4195 { 0, 0, 1 },
4196 &core_op_lib
4197 },
4198 { /* 233 */
4199 /* type PARROT_FUNCTION_OP, */
4200 "gt",
4201 "gt_p_nc_ic",
4202 "Parrot_gt_p_nc_ic",
4203 /* "", body */
4204 PARROT_JUMP_RELATIVE,
4205 4,
4206 { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
4207 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4208 { 0, 0, 1 },
4209 &core_op_lib
4210 },
4211 { /* 234 */
4212 /* type PARROT_FUNCTION_OP, */
4213 "gt",
4214 "gt_p_s_ic",
4215 "Parrot_gt_p_s_ic",
4216 /* "", body */
4217 PARROT_JUMP_RELATIVE,
4218 4,
4219 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
4220 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4221 { 0, 0, 1 },
4222 &core_op_lib
4223 },
4224 { /* 235 */
4225 /* type PARROT_FUNCTION_OP, */
4226 "gt",
4227 "gt_p_sc_ic",
4228 "Parrot_gt_p_sc_ic",
4229 /* "", body */
4230 PARROT_JUMP_RELATIVE,
4231 4,
4232 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
4233 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4234 { 0, 0, 1 },
4235 &core_op_lib
4236 },
4237 { /* 236 */
4238 /* type PARROT_FUNCTION_OP, */
4239 "gt_str",
4240 "gt_str_p_p_ic",
4241 "Parrot_gt_str_p_p_ic",
4242 /* "", body */
4243 PARROT_JUMP_RELATIVE,
4244 4,
4245 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4246 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4247 { 0, 0, 1 },
4248 &core_op_lib
4249 },
4250 { /* 237 */
4251 /* type PARROT_FUNCTION_OP, */
4252 "gt_num",
4253 "gt_num_p_p_ic",
4254 "Parrot_gt_num_p_p_ic",
4255 /* "", body */
4256 PARROT_JUMP_RELATIVE,
4257 4,
4258 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4259 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4260 { 0, 0, 1 },
4261 &core_op_lib
4262 },
4263 { /* 238 */
4264 /* type PARROT_FUNCTION_OP, */
4265 "ge",
4266 "ge_p_p_ic",
4267 "Parrot_ge_p_p_ic",
4268 /* "", body */
4269 PARROT_JUMP_RELATIVE,
4270 4,
4271 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4272 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4273 { 0, 0, 1 },
4274 &core_op_lib
4275 },
4276 { /* 239 */
4277 /* type PARROT_FUNCTION_OP, */
4278 "ge",
4279 "ge_p_i_ic",
4280 "Parrot_ge_p_i_ic",
4281 /* "", body */
4282 PARROT_JUMP_RELATIVE,
4283 4,
4284 { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
4285 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4286 { 0, 0, 1 },
4287 &core_op_lib
4288 },
4289 { /* 240 */
4290 /* type PARROT_FUNCTION_OP, */
4291 "ge",
4292 "ge_p_ic_ic",
4293 "Parrot_ge_p_ic_ic",
4294 /* "", body */
4295 PARROT_JUMP_RELATIVE,
4296 4,
4297 { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
4298 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4299 { 0, 0, 1 },
4300 &core_op_lib
4301 },
4302 { /* 241 */
4303 /* type PARROT_FUNCTION_OP, */
4304 "ge",
4305 "ge_p_n_ic",
4306 "Parrot_ge_p_n_ic",
4307 /* "", body */
4308 PARROT_JUMP_RELATIVE,
4309 4,
4310 { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
4311 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4312 { 0, 0, 1 },
4313 &core_op_lib
4314 },
4315 { /* 242 */
4316 /* type PARROT_FUNCTION_OP, */
4317 "ge",
4318 "ge_p_nc_ic",
4319 "Parrot_ge_p_nc_ic",
4320 /* "", body */
4321 PARROT_JUMP_RELATIVE,
4322 4,
4323 { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
4324 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4325 { 0, 0, 1 },
4326 &core_op_lib
4327 },
4328 { /* 243 */
4329 /* type PARROT_FUNCTION_OP, */
4330 "ge",
4331 "ge_p_s_ic",
4332 "Parrot_ge_p_s_ic",
4333 /* "", body */
4334 PARROT_JUMP_RELATIVE,
4335 4,
4336 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
4337 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4338 { 0, 0, 1 },
4339 &core_op_lib
4340 },
4341 { /* 244 */
4342 /* type PARROT_FUNCTION_OP, */
4343 "ge",
4344 "ge_p_sc_ic",
4345 "Parrot_ge_p_sc_ic",
4346 /* "", body */
4347 PARROT_JUMP_RELATIVE,
4348 4,
4349 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
4350 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4351 { 0, 0, 1 },
4352 &core_op_lib
4353 },
4354 { /* 245 */
4355 /* type PARROT_FUNCTION_OP, */
4356 "ge_str",
4357 "ge_str_p_p_ic",
4358 "Parrot_ge_str_p_p_ic",
4359 /* "", body */
4360 PARROT_JUMP_RELATIVE,
4361 4,
4362 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4363 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4364 { 0, 0, 1 },
4365 &core_op_lib
4366 },
4367 { /* 246 */
4368 /* type PARROT_FUNCTION_OP, */
4369 "ge_num",
4370 "ge_num_p_p_ic",
4371 "Parrot_ge_num_p_p_ic",
4372 /* "", body */
4373 PARROT_JUMP_RELATIVE,
4374 4,
4375 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
4376 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4377 { 0, 0, 1 },
4378 &core_op_lib
4379 },
4380 { /* 247 */
4381 /* type PARROT_FUNCTION_OP, */
4382 "if_null",
4383 "if_null_p_ic",
4384 "Parrot_if_null_p_ic",
4385 /* "", body */
4386 PARROT_JUMP_RELATIVE,
4387 3,
4388 { PARROT_ARG_P, PARROT_ARG_IC },
4389 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4390 { 0, 1 },
4391 &core_op_lib
4392 },
4393 { /* 248 */
4394 /* type PARROT_FUNCTION_OP, */
4395 "if_null",
4396 "if_null_s_ic",
4397 "Parrot_if_null_s_ic",
4398 /* "", body */
4399 PARROT_JUMP_RELATIVE,
4400 3,
4401 { PARROT_ARG_S, PARROT_ARG_IC },
4402 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4403 { 0, 1 },
4404 &core_op_lib
4405 },
4406 { /* 249 */
4407 /* type PARROT_FUNCTION_OP, */
4408 "unless_null",
4409 "unless_null_p_ic",
4410 "Parrot_unless_null_p_ic",
4411 /* "", body */
4412 PARROT_JUMP_RELATIVE,
4413 3,
4414 { PARROT_ARG_P, PARROT_ARG_IC },
4415 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4416 { 0, 1 },
4417 &core_op_lib
4418 },
4419 { /* 250 */
4420 /* type PARROT_FUNCTION_OP, */
4421 "unless_null",
4422 "unless_null_s_ic",
4423 "Parrot_unless_null_s_ic",
4424 /* "", body */
4425 PARROT_JUMP_RELATIVE,
4426 3,
4427 { PARROT_ARG_S, PARROT_ARG_IC },
4428 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4429 { 0, 1 },
4430 &core_op_lib
4431 },
4432 { /* 251 */
4433 /* type PARROT_INLINE_OP, */
4434 "cmp",
4435 "cmp_i_i_i",
4436 "Parrot_cmp_i_i_i",
4437 /* "", body */
4438 0,
4439 4,
4440 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
4441 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4442 { 0, 0, 0 },
4443 &core_op_lib
4444 },
4445 { /* 252 */
4446 /* type PARROT_INLINE_OP, */
4447 "cmp",
4448 "cmp_i_ic_i",
4449 "Parrot_cmp_i_ic_i",
4450 /* "", body */
4451 0,
4452 4,
4453 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
4454 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4455 { 0, 0, 0 },
4456 &core_op_lib
4457 },
4458 { /* 253 */
4459 /* type PARROT_INLINE_OP, */
4460 "cmp",
4461 "cmp_i_i_ic",
4462 "Parrot_cmp_i_i_ic",
4463 /* "", body */
4464 0,
4465 4,
4466 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
4467 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4468 { 0, 0, 0 },
4469 &core_op_lib
4470 },
4471 { /* 254 */
4472 /* type PARROT_INLINE_OP, */
4473 "cmp",
4474 "cmp_i_n_n",
4475 "Parrot_cmp_i_n_n",
4476 /* "", body */
4477 0,
4478 4,
4479 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
4480 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4481 { 0, 0, 0 },
4482 &core_op_lib
4483 },
4484 { /* 255 */
4485 /* type PARROT_INLINE_OP, */
4486 "cmp",
4487 "cmp_i_nc_n",
4488 "Parrot_cmp_i_nc_n",
4489 /* "", body */
4490 0,
4491 4,
4492 { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
4493 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4494 { 0, 0, 0 },
4495 &core_op_lib
4496 },
4497 { /* 256 */
4498 /* type PARROT_INLINE_OP, */
4499 "cmp",
4500 "cmp_i_n_nc",
4501 "Parrot_cmp_i_n_nc",
4502 /* "", body */
4503 0,
4504 4,
4505 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
4506 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4507 { 0, 0, 0 },
4508 &core_op_lib
4509 },
4510 { /* 257 */
4511 /* type PARROT_INLINE_OP, */
4512 "cmp",
4513 "cmp_i_s_s",
4514 "Parrot_cmp_i_s_s",
4515 /* "", body */
4516 0,
4517 4,
4518 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
4519 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4520 { 0, 0, 0 },
4521 &core_op_lib
4522 },
4523 { /* 258 */
4524 /* type PARROT_INLINE_OP, */
4525 "cmp",
4526 "cmp_i_sc_s",
4527 "Parrot_cmp_i_sc_s",
4528 /* "", body */
4529 0,
4530 4,
4531 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
4532 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4533 { 0, 0, 0 },
4534 &core_op_lib
4535 },
4536 { /* 259 */
4537 /* type PARROT_INLINE_OP, */
4538 "cmp",
4539 "cmp_i_s_sc",
4540 "Parrot_cmp_i_s_sc",
4541 /* "", body */
4542 0,
4543 4,
4544 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
4545 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4546 { 0, 0, 0 },
4547 &core_op_lib
4548 },
4549 { /* 260 */
4550 /* type PARROT_INLINE_OP, */
4551 "cmp",
4552 "cmp_i_p_p",
4553 "Parrot_cmp_i_p_p",
4554 /* "", body */
4555 0,
4556 4,
4557 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4558 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4559 { 0, 0, 0 },
4560 &core_op_lib
4561 },
4562 { /* 261 */
4563 /* type PARROT_INLINE_OP, */
4564 "cmp",
4565 "cmp_i_p_i",
4566 "Parrot_cmp_i_p_i",
4567 /* "", body */
4568 0,
4569 4,
4570 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_I },
4571 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4572 { 0, 0, 0 },
4573 &core_op_lib
4574 },
4575 { /* 262 */
4576 /* type PARROT_INLINE_OP, */
4577 "cmp",
4578 "cmp_i_p_ic",
4579 "Parrot_cmp_i_p_ic",
4580 /* "", body */
4581 0,
4582 4,
4583 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_IC },
4584 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4585 { 0, 0, 0 },
4586 &core_op_lib
4587 },
4588 { /* 263 */
4589 /* type PARROT_INLINE_OP, */
4590 "cmp",
4591 "cmp_i_p_n",
4592 "Parrot_cmp_i_p_n",
4593 /* "", body */
4594 0,
4595 4,
4596 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_N },
4597 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4598 { 0, 0, 0 },
4599 &core_op_lib
4600 },
4601 { /* 264 */
4602 /* type PARROT_INLINE_OP, */
4603 "cmp",
4604 "cmp_i_p_nc",
4605 "Parrot_cmp_i_p_nc",
4606 /* "", body */
4607 0,
4608 4,
4609 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_NC },
4610 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4611 { 0, 0, 0 },
4612 &core_op_lib
4613 },
4614 { /* 265 */
4615 /* type PARROT_INLINE_OP, */
4616 "cmp",
4617 "cmp_i_p_s",
4618 "Parrot_cmp_i_p_s",
4619 /* "", body */
4620 0,
4621 4,
4622 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
4623 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4624 { 0, 0, 0 },
4625 &core_op_lib
4626 },
4627 { /* 266 */
4628 /* type PARROT_INLINE_OP, */
4629 "cmp",
4630 "cmp_i_p_sc",
4631 "Parrot_cmp_i_p_sc",
4632 /* "", body */
4633 0,
4634 4,
4635 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
4636 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4637 { 0, 0, 0 },
4638 &core_op_lib
4639 },
4640 { /* 267 */
4641 /* type PARROT_INLINE_OP, */
4642 "cmp_str",
4643 "cmp_str_i_p_p",
4644 "Parrot_cmp_str_i_p_p",
4645 /* "", body */
4646 0,
4647 4,
4648 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4649 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4650 { 0, 0, 0 },
4651 &core_op_lib
4652 },
4653 { /* 268 */
4654 /* type PARROT_INLINE_OP, */
4655 "cmp_num",
4656 "cmp_num_i_p_p",
4657 "Parrot_cmp_num_i_p_p",
4658 /* "", body */
4659 0,
4660 4,
4661 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4662 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4663 { 0, 0, 0 },
4664 &core_op_lib
4665 },
4666 { /* 269 */
4667 /* type PARROT_INLINE_OP, */
4668 "cmp_pmc",
4669 "cmp_pmc_p_p_p",
4670 "Parrot_cmp_pmc_p_p_p",
4671 /* "", body */
4672 0,
4673 4,
4674 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
4675 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4676 { 0, 0, 0 },
4677 &core_op_lib
4678 },
4679 { /* 270 */
4680 /* type PARROT_INLINE_OP, */
4681 "issame",
4682 "issame_i_p_p",
4683 "Parrot_issame_i_p_p",
4684 /* "", body */
4685 0,
4686 4,
4687 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4688 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4689 { 0, 0, 0 },
4690 &core_op_lib
4691 },
4692 { /* 271 */
4693 /* type PARROT_INLINE_OP, */
4694 "issame",
4695 "issame_i_s_s",
4696 "Parrot_issame_i_s_s",
4697 /* "", body */
4698 0,
4699 4,
4700 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
4701 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4702 { 0, 0, 0 },
4703 &core_op_lib
4704 },
4705 { /* 272 */
4706 /* type PARROT_INLINE_OP, */
4707 "issame",
4708 "issame_i_sc_s",
4709 "Parrot_issame_i_sc_s",
4710 /* "", body */
4711 0,
4712 4,
4713 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
4714 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4715 { 0, 0, 0 },
4716 &core_op_lib
4717 },
4718 { /* 273 */
4719 /* type PARROT_INLINE_OP, */
4720 "issame",
4721 "issame_i_s_sc",
4722 "Parrot_issame_i_s_sc",
4723 /* "", body */
4724 0,
4725 4,
4726 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
4727 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4728 { 0, 0, 0 },
4729 &core_op_lib
4730 },
4731 { /* 274 */
4732 /* type PARROT_INLINE_OP, */
4733 "issame",
4734 "issame_i_sc_sc",
4735 "Parrot_issame_i_sc_sc",
4736 /* "", body */
4737 0,
4738 4,
4739 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
4740 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4741 { 0, 0, 0 },
4742 &core_op_lib
4743 },
4744 { /* 275 */
4745 /* type PARROT_INLINE_OP, */
4746 "isntsame",
4747 "isntsame_i_p_p",
4748 "Parrot_isntsame_i_p_p",
4749 /* "", body */
4750 0,
4751 4,
4752 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4753 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4754 { 0, 0, 0 },
4755 &core_op_lib
4756 },
4757 { /* 276 */
4758 /* type PARROT_INLINE_OP, */
4759 "isntsame",
4760 "isntsame_i_s_s",
4761 "Parrot_isntsame_i_s_s",
4762 /* "", body */
4763 0,
4764 4,
4765 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
4766 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4767 { 0, 0, 0 },
4768 &core_op_lib
4769 },
4770 { /* 277 */
4771 /* type PARROT_INLINE_OP, */
4772 "isntsame",
4773 "isntsame_i_sc_s",
4774 "Parrot_isntsame_i_sc_s",
4775 /* "", body */
4776 0,
4777 4,
4778 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
4779 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4780 { 0, 0, 0 },
4781 &core_op_lib
4782 },
4783 { /* 278 */
4784 /* type PARROT_INLINE_OP, */
4785 "isntsame",
4786 "isntsame_i_s_sc",
4787 "Parrot_isntsame_i_s_sc",
4788 /* "", body */
4789 0,
4790 4,
4791 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
4792 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4793 { 0, 0, 0 },
4794 &core_op_lib
4795 },
4796 { /* 279 */
4797 /* type PARROT_INLINE_OP, */
4798 "isntsame",
4799 "isntsame_i_sc_sc",
4800 "Parrot_isntsame_i_sc_sc",
4801 /* "", body */
4802 0,
4803 4,
4804 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
4805 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4806 { 0, 0, 0 },
4807 &core_op_lib
4808 },
4809 { /* 280 */
4810 /* type PARROT_INLINE_OP, */
4811 "istrue",
4812 "istrue_i_p",
4813 "Parrot_istrue_i_p",
4814 /* "", body */
4815 0,
4816 3,
4817 { PARROT_ARG_I, PARROT_ARG_P },
4818 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
4819 { 0, 0 },
4820 &core_op_lib
4821 },
4822 { /* 281 */
4823 /* type PARROT_INLINE_OP, */
4824 "isfalse",
4825 "isfalse_i_p",
4826 "Parrot_isfalse_i_p",
4827 /* "", body */
4828 0,
4829 3,
4830 { PARROT_ARG_I, PARROT_ARG_P },
4831 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
4832 { 0, 0 },
4833 &core_op_lib
4834 },
4835 { /* 282 */
4836 /* type PARROT_INLINE_OP, */
4837 "isnull",
4838 "isnull_i_p",
4839 "Parrot_isnull_i_p",
4840 /* "", body */
4841 0,
4842 3,
4843 { PARROT_ARG_I, PARROT_ARG_P },
4844 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
4845 { 0, 0 },
4846 &core_op_lib
4847 },
4848 { /* 283 */
4849 /* type PARROT_INLINE_OP, */
4850 "isnull",
4851 "isnull_i_pc",
4852 "Parrot_isnull_i_pc",
4853 /* "", body */
4854 0,
4855 3,
4856 { PARROT_ARG_I, PARROT_ARG_PC },
4857 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
4858 { 0, 0 },
4859 &core_op_lib
4860 },
4861 { /* 284 */
4862 /* type PARROT_INLINE_OP, */
4863 "isnull",
4864 "isnull_i_s",
4865 "Parrot_isnull_i_s",
4866 /* "", body */
4867 0,
4868 3,
4869 { PARROT_ARG_I, PARROT_ARG_S },
4870 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
4871 { 0, 0 },
4872 &core_op_lib
4873 },
4874 { /* 285 */
4875 /* type PARROT_INLINE_OP, */
4876 "isnull",
4877 "isnull_i_sc",
4878 "Parrot_isnull_i_sc",
4879 /* "", body */
4880 0,
4881 3,
4882 { PARROT_ARG_I, PARROT_ARG_SC },
4883 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
4884 { 0, 0 },
4885 &core_op_lib
4886 },
4887 { /* 286 */
4888 /* type PARROT_INLINE_OP, */
4889 "isgt",
4890 "isgt_i_p_p",
4891 "Parrot_isgt_i_p_p",
4892 /* "", body */
4893 0,
4894 4,
4895 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4896 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4897 { 0, 0, 0 },
4898 &core_op_lib
4899 },
4900 { /* 287 */
4901 /* type PARROT_INLINE_OP, */
4902 "isge",
4903 "isge_i_p_p",
4904 "Parrot_isge_i_p_p",
4905 /* "", body */
4906 0,
4907 4,
4908 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
4909 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4910 { 0, 0, 0 },
4911 &core_op_lib
4912 },
4913 { /* 288 */
4914 /* type PARROT_INLINE_OP, */
4915 "isle",
4916 "isle_i_i_i",
4917 "Parrot_isle_i_i_i",
4918 /* "", body */
4919 0,
4920 4,
4921 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
4922 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4923 { 0, 0, 0 },
4924 &core_op_lib
4925 },
4926 { /* 289 */
4927 /* type PARROT_INLINE_OP, */
4928 "isle",
4929 "isle_i_ic_i",
4930 "Parrot_isle_i_ic_i",
4931 /* "", body */
4932 0,
4933 4,
4934 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
4935 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4936 { 0, 0, 0 },
4937 &core_op_lib
4938 },
4939 { /* 290 */
4940 /* type PARROT_INLINE_OP, */
4941 "isle",
4942 "isle_i_i_ic",
4943 "Parrot_isle_i_i_ic",
4944 /* "", body */
4945 0,
4946 4,
4947 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
4948 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4949 { 0, 0, 0 },
4950 &core_op_lib
4951 },
4952 { /* 291 */
4953 /* type PARROT_INLINE_OP, */
4954 "isle",
4955 "isle_i_n_n",
4956 "Parrot_isle_i_n_n",
4957 /* "", body */
4958 0,
4959 4,
4960 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
4961 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4962 { 0, 0, 0 },
4963 &core_op_lib
4964 },
4965 { /* 292 */
4966 /* type PARROT_INLINE_OP, */
4967 "isle",
4968 "isle_i_nc_n",
4969 "Parrot_isle_i_nc_n",
4970 /* "", body */
4971 0,
4972 4,
4973 { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
4974 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4975 { 0, 0, 0 },
4976 &core_op_lib
4977 },
4978 { /* 293 */
4979 /* type PARROT_INLINE_OP, */
4980 "isle",
4981 "isle_i_n_nc",
4982 "Parrot_isle_i_n_nc",
4983 /* "", body */
4984 0,
4985 4,
4986 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
4987 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
4988 { 0, 0, 0 },
4989 &core_op_lib
4990 },
4991 { /* 294 */
4992 /* type PARROT_INLINE_OP, */
4993 "isle",
4994 "isle_i_s_s",
4995 "Parrot_isle_i_s_s",
4996 /* "", body */
4997 0,
4998 4,
4999 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
5000 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5001 { 0, 0, 0 },
5002 &core_op_lib
5003 },
5004 { /* 295 */
5005 /* type PARROT_INLINE_OP, */
5006 "isle",
5007 "isle_i_sc_s",
5008 "Parrot_isle_i_sc_s",
5009 /* "", body */
5010 0,
5011 4,
5012 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
5013 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5014 { 0, 0, 0 },
5015 &core_op_lib
5016 },
5017 { /* 296 */
5018 /* type PARROT_INLINE_OP, */
5019 "isle",
5020 "isle_i_s_sc",
5021 "Parrot_isle_i_s_sc",
5022 /* "", body */
5023 0,
5024 4,
5025 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
5026 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5027 { 0, 0, 0 },
5028 &core_op_lib
5029 },
5030 { /* 297 */
5031 /* type PARROT_INLINE_OP, */
5032 "isle",
5033 "isle_i_p_p",
5034 "Parrot_isle_i_p_p",
5035 /* "", body */
5036 0,
5037 4,
5038 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
5039 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5040 { 0, 0, 0 },
5041 &core_op_lib
5042 },
5043 { /* 298 */
5044 /* type PARROT_INLINE_OP, */
5045 "islt",
5046 "islt_i_i_i",
5047 "Parrot_islt_i_i_i",
5048 /* "", body */
5049 0,
5050 4,
5051 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
5052 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5053 { 0, 0, 0 },
5054 &core_op_lib
5055 },
5056 { /* 299 */
5057 /* type PARROT_INLINE_OP, */
5058 "islt",
5059 "islt_i_ic_i",
5060 "Parrot_islt_i_ic_i",
5061 /* "", body */
5062 0,
5063 4,
5064 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
5065 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5066 { 0, 0, 0 },
5067 &core_op_lib
5068 },
5069 { /* 300 */
5070 /* type PARROT_INLINE_OP, */
5071 "islt",
5072 "islt_i_i_ic",
5073 "Parrot_islt_i_i_ic",
5074 /* "", body */
5075 0,
5076 4,
5077 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
5078 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5079 { 0, 0, 0 },
5080 &core_op_lib
5081 },
5082 { /* 301 */
5083 /* type PARROT_INLINE_OP, */
5084 "islt",
5085 "islt_i_n_n",
5086 "Parrot_islt_i_n_n",
5087 /* "", body */
5088 0,
5089 4,
5090 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
5091 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5092 { 0, 0, 0 },
5093 &core_op_lib
5094 },
5095 { /* 302 */
5096 /* type PARROT_INLINE_OP, */
5097 "islt",
5098 "islt_i_nc_n",
5099 "Parrot_islt_i_nc_n",
5100 /* "", body */
5101 0,
5102 4,
5103 { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
5104 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5105 { 0, 0, 0 },
5106 &core_op_lib
5107 },
5108 { /* 303 */
5109 /* type PARROT_INLINE_OP, */
5110 "islt",
5111 "islt_i_n_nc",
5112 "Parrot_islt_i_n_nc",
5113 /* "", body */
5114 0,
5115 4,
5116 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
5117 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5118 { 0, 0, 0 },
5119 &core_op_lib
5120 },
5121 { /* 304 */
5122 /* type PARROT_INLINE_OP, */
5123 "islt",
5124 "islt_i_s_s",
5125 "Parrot_islt_i_s_s",
5126 /* "", body */
5127 0,
5128 4,
5129 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
5130 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5131 { 0, 0, 0 },
5132 &core_op_lib
5133 },
5134 { /* 305 */
5135 /* type PARROT_INLINE_OP, */
5136 "islt",
5137 "islt_i_sc_s",
5138 "Parrot_islt_i_sc_s",
5139 /* "", body */
5140 0,
5141 4,
5142 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
5143 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5144 { 0, 0, 0 },
5145 &core_op_lib
5146 },
5147 { /* 306 */
5148 /* type PARROT_INLINE_OP, */
5149 "islt",
5150 "islt_i_s_sc",
5151 "Parrot_islt_i_s_sc",
5152 /* "", body */
5153 0,
5154 4,
5155 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
5156 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5157 { 0, 0, 0 },
5158 &core_op_lib
5159 },
5160 { /* 307 */
5161 /* type PARROT_INLINE_OP, */
5162 "islt",
5163 "islt_i_p_p",
5164 "Parrot_islt_i_p_p",
5165 /* "", body */
5166 0,
5167 4,
5168 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
5169 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5170 { 0, 0, 0 },
5171 &core_op_lib
5172 },
5173 { /* 308 */
5174 /* type PARROT_INLINE_OP, */
5175 "iseq",
5176 "iseq_i_i_i",
5177 "Parrot_iseq_i_i_i",
5178 /* "", body */
5179 0,
5180 4,
5181 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
5182 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5183 { 0, 0, 0 },
5184 &core_op_lib
5185 },
5186 { /* 309 */
5187 /* type PARROT_INLINE_OP, */
5188 "iseq",
5189 "iseq_i_ic_i",
5190 "Parrot_iseq_i_ic_i",
5191 /* "", body */
5192 0,
5193 4,
5194 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
5195 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5196 { 0, 0, 0 },
5197 &core_op_lib
5198 },
5199 { /* 310 */
5200 /* type PARROT_INLINE_OP, */
5201 "iseq",
5202 "iseq_i_i_ic",
5203 "Parrot_iseq_i_i_ic",
5204 /* "", body */
5205 0,
5206 4,
5207 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
5208 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5209 { 0, 0, 0 },
5210 &core_op_lib
5211 },
5212 { /* 311 */
5213 /* type PARROT_INLINE_OP, */
5214 "iseq",
5215 "iseq_i_n_n",
5216 "Parrot_iseq_i_n_n",
5217 /* "", body */
5218 0,
5219 4,
5220 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
5221 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5222 { 0, 0, 0 },
5223 &core_op_lib
5224 },
5225 { /* 312 */
5226 /* type PARROT_INLINE_OP, */
5227 "iseq",
5228 "iseq_i_nc_n",
5229 "Parrot_iseq_i_nc_n",
5230 /* "", body */
5231 0,
5232 4,
5233 { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
5234 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5235 { 0, 0, 0 },
5236 &core_op_lib
5237 },
5238 { /* 313 */
5239 /* type PARROT_INLINE_OP, */
5240 "iseq",
5241 "iseq_i_n_nc",
5242 "Parrot_iseq_i_n_nc",
5243 /* "", body */
5244 0,
5245 4,
5246 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
5247 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5248 { 0, 0, 0 },
5249 &core_op_lib
5250 },
5251 { /* 314 */
5252 /* type PARROT_INLINE_OP, */
5253 "iseq",
5254 "iseq_i_s_s",
5255 "Parrot_iseq_i_s_s",
5256 /* "", body */
5257 0,
5258 4,
5259 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
5260 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5261 { 0, 0, 0 },
5262 &core_op_lib
5263 },
5264 { /* 315 */
5265 /* type PARROT_INLINE_OP, */
5266 "iseq",
5267 "iseq_i_sc_s",
5268 "Parrot_iseq_i_sc_s",
5269 /* "", body */
5270 0,
5271 4,
5272 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
5273 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5274 { 0, 0, 0 },
5275 &core_op_lib
5276 },
5277 { /* 316 */
5278 /* type PARROT_INLINE_OP, */
5279 "iseq",
5280 "iseq_i_s_sc",
5281 "Parrot_iseq_i_s_sc",
5282 /* "", body */
5283 0,
5284 4,
5285 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
5286 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5287 { 0, 0, 0 },
5288 &core_op_lib
5289 },
5290 { /* 317 */
5291 /* type PARROT_INLINE_OP, */
5292 "iseq",
5293 "iseq_i_p_p",
5294 "Parrot_iseq_i_p_p",
5295 /* "", body */
5296 0,
5297 4,
5298 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
5299 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5300 { 0, 0, 0 },
5301 &core_op_lib
5302 },
5303 { /* 318 */
5304 /* type PARROT_INLINE_OP, */
5305 "isne",
5306 "isne_i_i_i",
5307 "Parrot_isne_i_i_i",
5308 /* "", body */
5309 0,
5310 4,
5311 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
5312 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5313 { 0, 0, 0 },
5314 &core_op_lib
5315 },
5316 { /* 319 */
5317 /* type PARROT_INLINE_OP, */
5318 "isne",
5319 "isne_i_ic_i",
5320 "Parrot_isne_i_ic_i",
5321 /* "", body */
5322 0,
5323 4,
5324 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
5325 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5326 { 0, 0, 0 },
5327 &core_op_lib
5328 },
5329 { /* 320 */
5330 /* type PARROT_INLINE_OP, */
5331 "isne",
5332 "isne_i_i_ic",
5333 "Parrot_isne_i_i_ic",
5334 /* "", body */
5335 0,
5336 4,
5337 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
5338 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5339 { 0, 0, 0 },
5340 &core_op_lib
5341 },
5342 { /* 321 */
5343 /* type PARROT_INLINE_OP, */
5344 "isne",
5345 "isne_i_n_n",
5346 "Parrot_isne_i_n_n",
5347 /* "", body */
5348 0,
5349 4,
5350 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
5351 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5352 { 0, 0, 0 },
5353 &core_op_lib
5354 },
5355 { /* 322 */
5356 /* type PARROT_INLINE_OP, */
5357 "isne",
5358 "isne_i_nc_n",
5359 "Parrot_isne_i_nc_n",
5360 /* "", body */
5361 0,
5362 4,
5363 { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
5364 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5365 { 0, 0, 0 },
5366 &core_op_lib
5367 },
5368 { /* 323 */
5369 /* type PARROT_INLINE_OP, */
5370 "isne",
5371 "isne_i_n_nc",
5372 "Parrot_isne_i_n_nc",
5373 /* "", body */
5374 0,
5375 4,
5376 { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
5377 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5378 { 0, 0, 0 },
5379 &core_op_lib
5380 },
5381 { /* 324 */
5382 /* type PARROT_INLINE_OP, */
5383 "isne",
5384 "isne_i_s_s",
5385 "Parrot_isne_i_s_s",
5386 /* "", body */
5387 0,
5388 4,
5389 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
5390 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5391 { 0, 0, 0 },
5392 &core_op_lib
5393 },
5394 { /* 325 */
5395 /* type PARROT_INLINE_OP, */
5396 "isne",
5397 "isne_i_sc_s",
5398 "Parrot_isne_i_sc_s",
5399 /* "", body */
5400 0,
5401 4,
5402 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
5403 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5404 { 0, 0, 0 },
5405 &core_op_lib
5406 },
5407 { /* 326 */
5408 /* type PARROT_INLINE_OP, */
5409 "isne",
5410 "isne_i_s_sc",
5411 "Parrot_isne_i_s_sc",
5412 /* "", body */
5413 0,
5414 4,
5415 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
5416 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5417 { 0, 0, 0 },
5418 &core_op_lib
5419 },
5420 { /* 327 */
5421 /* type PARROT_INLINE_OP, */
5422 "isne",
5423 "isne_i_p_p",
5424 "Parrot_isne_i_p_p",
5425 /* "", body */
5426 0,
5427 4,
5428 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
5429 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5430 { 0, 0, 0 },
5431 &core_op_lib
5432 },
5433 { /* 328 */
5434 /* type PARROT_INLINE_OP, */
5435 "and",
5436 "and_i_i_i",
5437 "Parrot_and_i_i_i",
5438 /* "", body */
5439 0,
5440 4,
5441 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
5442 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5443 { 0, 0, 0 },
5444 &core_op_lib
5445 },
5446 { /* 329 */
5447 /* type PARROT_INLINE_OP, */
5448 "and",
5449 "and_i_ic_i",
5450 "Parrot_and_i_ic_i",
5451 /* "", body */
5452 0,
5453 4,
5454 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
5455 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5456 { 0, 0, 0 },
5457 &core_op_lib
5458 },
5459 { /* 330 */
5460 /* type PARROT_INLINE_OP, */
5461 "and",
5462 "and_i_i_ic",
5463 "Parrot_and_i_i_ic",
5464 /* "", body */
5465 0,
5466 4,
5467 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
5468 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5469 { 0, 0, 0 },
5470 &core_op_lib
5471 },
5472 { /* 331 */
5473 /* type PARROT_INLINE_OP, */
5474 "and",
5475 "and_p_p_p",
5476 "Parrot_and_p_p_p",
5477 /* "", body */
5478 0,
5479 4,
5480 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
5481 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5482 { 0, 0, 0 },
5483 &core_op_lib
5484 },
5485 { /* 332 */
5486 /* type PARROT_INLINE_OP, */
5487 "not",
5488 "not_i",
5489 "Parrot_not_i",
5490 /* "", body */
5491 0,
5492 2,
5493 { PARROT_ARG_I },
5494 { PARROT_ARGDIR_INOUT },
5495 { 0 },
5496 &core_op_lib
5497 },
5498 { /* 333 */
5499 /* type PARROT_INLINE_OP, */
5500 "not",
5501 "not_i_i",
5502 "Parrot_not_i_i",
5503 /* "", body */
5504 0,
5505 3,
5506 { PARROT_ARG_I, PARROT_ARG_I },
5507 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
5508 { 0, 0 },
5509 &core_op_lib
5510 },
5511 { /* 334 */
5512 /* type PARROT_INLINE_OP, */
5513 "not",
5514 "not_p",
5515 "Parrot_not_p",
5516 /* "", body */
5517 0,
5518 2,
5519 { PARROT_ARG_P },
5520 { PARROT_ARGDIR_IN },
5521 { 0 },
5522 &core_op_lib
5523 },
5524 { /* 335 */
5525 /* type PARROT_INLINE_OP, */
5526 "not",
5527 "not_p_p",
5528 "Parrot_not_p_p",
5529 /* "", body */
5530 0,
5531 3,
5532 { PARROT_ARG_P, PARROT_ARG_P },
5533 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
5534 { 0, 0 },
5535 &core_op_lib
5536 },
5537 { /* 336 */
5538 /* type PARROT_INLINE_OP, */
5539 "or",
5540 "or_i_i_i",
5541 "Parrot_or_i_i_i",
5542 /* "", body */
5543 0,
5544 4,
5545 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
5546 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5547 { 0, 0, 0 },
5548 &core_op_lib
5549 },
5550 { /* 337 */
5551 /* type PARROT_INLINE_OP, */
5552 "or",
5553 "or_i_ic_i",
5554 "Parrot_or_i_ic_i",
5555 /* "", body */
5556 0,
5557 4,
5558 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
5559 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5560 { 0, 0, 0 },
5561 &core_op_lib
5562 },
5563 { /* 338 */
5564 /* type PARROT_INLINE_OP, */
5565 "or",
5566 "or_i_i_ic",
5567 "Parrot_or_i_i_ic",
5568 /* "", body */
5569 0,
5570 4,
5571 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
5572 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5573 { 0, 0, 0 },
5574 &core_op_lib
5575 },
5576 { /* 339 */
5577 /* type PARROT_INLINE_OP, */
5578 "or",
5579 "or_p_p_p",
5580 "Parrot_or_p_p_p",
5581 /* "", body */
5582 0,
5583 4,
5584 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
5585 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5586 { 0, 0, 0 },
5587 &core_op_lib
5588 },
5589 { /* 340 */
5590 /* type PARROT_INLINE_OP, */
5591 "xor",
5592 "xor_i_i_i",
5593 "Parrot_xor_i_i_i",
5594 /* "", body */
5595 0,
5596 4,
5597 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
5598 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5599 { 0, 0, 0 },
5600 &core_op_lib
5601 },
5602 { /* 341 */
5603 /* type PARROT_INLINE_OP, */
5604 "xor",
5605 "xor_i_ic_i",
5606 "Parrot_xor_i_ic_i",
5607 /* "", body */
5608 0,
5609 4,
5610 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
5611 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5612 { 0, 0, 0 },
5613 &core_op_lib
5614 },
5615 { /* 342 */
5616 /* type PARROT_INLINE_OP, */
5617 "xor",
5618 "xor_i_i_ic",
5619 "Parrot_xor_i_i_ic",
5620 /* "", body */
5621 0,
5622 4,
5623 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
5624 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5625 { 0, 0, 0 },
5626 &core_op_lib
5627 },
5628 { /* 343 */
5629 /* type PARROT_INLINE_OP, */
5630 "xor",
5631 "xor_p_p_p",
5632 "Parrot_xor_p_p_p",
5633 /* "", body */
5634 0,
5635 4,
5636 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
5637 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5638 { 0, 0, 0 },
5639 &core_op_lib
5640 },
5641 { /* 344 */
5642 /* type PARROT_INLINE_OP, */
5643 "print",
5644 "print_i",
5645 "Parrot_print_i",
5646 /* "", body */
5647 0,
5648 2,
5649 { PARROT_ARG_I },
5650 { PARROT_ARGDIR_IN },
5651 { 0 },
5652 &core_op_lib
5653 },
5654 { /* 345 */
5655 /* type PARROT_INLINE_OP, */
5656 "print",
5657 "print_ic",
5658 "Parrot_print_ic",
5659 /* "", body */
5660 0,
5661 2,
5662 { PARROT_ARG_IC },
5663 { PARROT_ARGDIR_IN },
5664 { 0 },
5665 &core_op_lib
5666 },
5667 { /* 346 */
5668 /* type PARROT_INLINE_OP, */
5669 "print",
5670 "print_n",
5671 "Parrot_print_n",
5672 /* "", body */
5673 0,
5674 2,
5675 { PARROT_ARG_N },
5676 { PARROT_ARGDIR_IN },
5677 { 0 },
5678 &core_op_lib
5679 },
5680 { /* 347 */
5681 /* type PARROT_INLINE_OP, */
5682 "print",
5683 "print_nc",
5684 "Parrot_print_nc",
5685 /* "", body */
5686 0,
5687 2,
5688 { PARROT_ARG_NC },
5689 { PARROT_ARGDIR_IN },
5690 { 0 },
5691 &core_op_lib
5692 },
5693 { /* 348 */
5694 /* type PARROT_FUNCTION_OP, */
5695 "print",
5696 "print_s",
5697 "Parrot_print_s",
5698 /* "", body */
5699 0,
5700 2,
5701 { PARROT_ARG_S },
5702 { PARROT_ARGDIR_IN },
5703 { 0 },
5704 &core_op_lib
5705 },
5706 { /* 349 */
5707 /* type PARROT_FUNCTION_OP, */
5708 "print",
5709 "print_sc",
5710 "Parrot_print_sc",
5711 /* "", body */
5712 0,
5713 2,
5714 { PARROT_ARG_SC },
5715 { PARROT_ARGDIR_IN },
5716 { 0 },
5717 &core_op_lib
5718 },
5719 { /* 350 */
5720 /* type PARROT_FUNCTION_OP, */
5721 "print",
5722 "print_p",
5723 "Parrot_print_p",
5724 /* "", body */
5725 0,
5726 2,
5727 { PARROT_ARG_P },
5728 { PARROT_ARGDIR_IN },
5729 { 0 },
5730 &core_op_lib
5731 },
5732 { /* 351 */
5733 /* type PARROT_INLINE_OP, */
5734 "say",
5735 "say_i",
5736 "Parrot_say_i",
5737 /* "", body */
5738 0,
5739 2,
5740 { PARROT_ARG_I },
5741 { PARROT_ARGDIR_IN },
5742 { 0 },
5743 &core_op_lib
5744 },
5745 { /* 352 */
5746 /* type PARROT_INLINE_OP, */
5747 "say",
5748 "say_ic",
5749 "Parrot_say_ic",
5750 /* "", body */
5751 0,
5752 2,
5753 { PARROT_ARG_IC },
5754 { PARROT_ARGDIR_IN },
5755 { 0 },
5756 &core_op_lib
5757 },
5758 { /* 353 */
5759 /* type PARROT_INLINE_OP, */
5760 "say",
5761 "say_n",
5762 "Parrot_say_n",
5763 /* "", body */
5764 0,
5765 2,
5766 { PARROT_ARG_N },
5767 { PARROT_ARGDIR_IN },
5768 { 0 },
5769 &core_op_lib
5770 },
5771 { /* 354 */
5772 /* type PARROT_INLINE_OP, */
5773 "say",
5774 "say_nc",
5775 "Parrot_say_nc",
5776 /* "", body */
5777 0,
5778 2,
5779 { PARROT_ARG_NC },
5780 { PARROT_ARGDIR_IN },
5781 { 0 },
5782 &core_op_lib
5783 },
5784 { /* 355 */
5785 /* type PARROT_FUNCTION_OP, */
5786 "say",
5787 "say_s",
5788 "Parrot_say_s",
5789 /* "", body */
5790 0,
5791 2,
5792 { PARROT_ARG_S },
5793 { PARROT_ARGDIR_IN },
5794 { 0 },
5795 &core_op_lib
5796 },
5797 { /* 356 */
5798 /* type PARROT_FUNCTION_OP, */
5799 "say",
5800 "say_sc",
5801 "Parrot_say_sc",
5802 /* "", body */
5803 0,
5804 2,
5805 { PARROT_ARG_SC },
5806 { PARROT_ARGDIR_IN },
5807 { 0 },
5808 &core_op_lib
5809 },
5810 { /* 357 */
5811 /* type PARROT_FUNCTION_OP, */
5812 "say",
5813 "say_p",
5814 "Parrot_say_p",
5815 /* "", body */
5816 0,
5817 2,
5818 { PARROT_ARG_P },
5819 { PARROT_ARGDIR_IN },
5820 { 0 },
5821 &core_op_lib
5822 },
5823 { /* 358 */
5824 /* type PARROT_FUNCTION_OP, */
5825 "print",
5826 "print_p_i",
5827 "Parrot_print_p_i",
5828 /* "", body */
5829 0,
5830 3,
5831 { PARROT_ARG_P, PARROT_ARG_I },
5832 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5833 { 0, 0 },
5834 &core_op_lib
5835 },
5836 { /* 359 */
5837 /* type PARROT_FUNCTION_OP, */
5838 "print",
5839 "print_p_ic",
5840 "Parrot_print_p_ic",
5841 /* "", body */
5842 0,
5843 3,
5844 { PARROT_ARG_P, PARROT_ARG_IC },
5845 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5846 { 0, 0 },
5847 &core_op_lib
5848 },
5849 { /* 360 */
5850 /* type PARROT_FUNCTION_OP, */
5851 "print",
5852 "print_p_n",
5853 "Parrot_print_p_n",
5854 /* "", body */
5855 0,
5856 3,
5857 { PARROT_ARG_P, PARROT_ARG_N },
5858 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5859 { 0, 0 },
5860 &core_op_lib
5861 },
5862 { /* 361 */
5863 /* type PARROT_FUNCTION_OP, */
5864 "print",
5865 "print_p_nc",
5866 "Parrot_print_p_nc",
5867 /* "", body */
5868 0,
5869 3,
5870 { PARROT_ARG_P, PARROT_ARG_NC },
5871 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5872 { 0, 0 },
5873 &core_op_lib
5874 },
5875 { /* 362 */
5876 /* type PARROT_FUNCTION_OP, */
5877 "print",
5878 "print_p_s",
5879 "Parrot_print_p_s",
5880 /* "", body */
5881 0,
5882 3,
5883 { PARROT_ARG_P, PARROT_ARG_S },
5884 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5885 { 0, 0 },
5886 &core_op_lib
5887 },
5888 { /* 363 */
5889 /* type PARROT_FUNCTION_OP, */
5890 "print",
5891 "print_p_sc",
5892 "Parrot_print_p_sc",
5893 /* "", body */
5894 0,
5895 3,
5896 { PARROT_ARG_P, PARROT_ARG_SC },
5897 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5898 { 0, 0 },
5899 &core_op_lib
5900 },
5901 { /* 364 */
5902 /* type PARROT_FUNCTION_OP, */
5903 "print",
5904 "print_p_p",
5905 "Parrot_print_p_p",
5906 /* "", body */
5907 0,
5908 3,
5909 { PARROT_ARG_P, PARROT_ARG_P },
5910 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
5911 { 0, 0 },
5912 &core_op_lib
5913 },
5914 { /* 365 */
5915 /* type PARROT_INLINE_OP, */
5916 "getstdin",
5917 "getstdin_p",
5918 "Parrot_getstdin_p",
5919 /* "", body */
5920 0,
5921 2,
5922 { PARROT_ARG_P },
5923 { PARROT_ARGDIR_OUT },
5924 { 0 },
5925 &core_op_lib
5926 },
5927 { /* 366 */
5928 /* type PARROT_INLINE_OP, */
5929 "getstdout",
5930 "getstdout_p",
5931 "Parrot_getstdout_p",
5932 /* "", body */
5933 0,
5934 2,
5935 { PARROT_ARG_P },
5936 { PARROT_ARGDIR_OUT },
5937 { 0 },
5938 &core_op_lib
5939 },
5940 { /* 367 */
5941 /* type PARROT_INLINE_OP, */
5942 "getstderr",
5943 "getstderr_p",
5944 "Parrot_getstderr_p",
5945 /* "", body */
5946 0,
5947 2,
5948 { PARROT_ARG_P },
5949 { PARROT_ARGDIR_OUT },
5950 { 0 },
5951 &core_op_lib
5952 },
5953 { /* 368 */
5954 /* type PARROT_INLINE_OP, */
5955 "abs",
5956 "abs_i",
5957 "Parrot_abs_i",
5958 /* "", body */
5959 0,
5960 2,
5961 { PARROT_ARG_I },
5962 { PARROT_ARGDIR_INOUT },
5963 { 0 },
5964 &core_op_lib
5965 },
5966 { /* 369 */
5967 /* type PARROT_INLINE_OP, */
5968 "abs",
5969 "abs_n",
5970 "Parrot_abs_n",
5971 /* "", body */
5972 0,
5973 2,
5974 { PARROT_ARG_N },
5975 { PARROT_ARGDIR_INOUT },
5976 { 0 },
5977 &core_op_lib
5978 },
5979 { /* 370 */
5980 /* type PARROT_INLINE_OP, */
5981 "abs",
5982 "abs_i_i",
5983 "Parrot_abs_i_i",
5984 /* "", body */
5985 0,
5986 3,
5987 { PARROT_ARG_I, PARROT_ARG_I },
5988 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
5989 { 0, 0 },
5990 &core_op_lib
5991 },
5992 { /* 371 */
5993 /* type PARROT_INLINE_OP, */
5994 "abs",
5995 "abs_n_n",
5996 "Parrot_abs_n_n",
5997 /* "", body */
5998 0,
5999 3,
6000 { PARROT_ARG_N, PARROT_ARG_N },
6001 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
6002 { 0, 0 },
6003 &core_op_lib
6004 },
6005 { /* 372 */
6006 /* type PARROT_INLINE_OP, */
6007 "abs",
6008 "abs_p",
6009 "Parrot_abs_p",
6010 /* "", body */
6011 0,
6012 2,
6013 { PARROT_ARG_P },
6014 { PARROT_ARGDIR_IN },
6015 { 0 },
6016 &core_op_lib
6017 },
6018 { /* 373 */
6019 /* type PARROT_INLINE_OP, */
6020 "abs",
6021 "abs_p_p",
6022 "Parrot_abs_p_p",
6023 /* "", body */
6024 0,
6025 3,
6026 { PARROT_ARG_P, PARROT_ARG_P },
6027 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
6028 { 0, 0 },
6029 &core_op_lib
6030 },
6031 { /* 374 */
6032 /* type PARROT_INLINE_OP, */
6033 "add",
6034 "add_i_i",
6035 "Parrot_add_i_i",
6036 /* "", body */
6037 0,
6038 3,
6039 { PARROT_ARG_I, PARROT_ARG_I },
6040 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6041 { 0, 0 },
6042 &core_op_lib
6043 },
6044 { /* 375 */
6045 /* type PARROT_INLINE_OP, */
6046 "add",
6047 "add_i_ic",
6048 "Parrot_add_i_ic",
6049 /* "", body */
6050 0,
6051 3,
6052 { PARROT_ARG_I, PARROT_ARG_IC },
6053 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6054 { 0, 0 },
6055 &core_op_lib
6056 },
6057 { /* 376 */
6058 /* type PARROT_INLINE_OP, */
6059 "add",
6060 "add_n_n",
6061 "Parrot_add_n_n",
6062 /* "", body */
6063 0,
6064 3,
6065 { PARROT_ARG_N, PARROT_ARG_N },
6066 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6067 { 0, 0 },
6068 &core_op_lib
6069 },
6070 { /* 377 */
6071 /* type PARROT_INLINE_OP, */
6072 "add",
6073 "add_n_nc",
6074 "Parrot_add_n_nc",
6075 /* "", body */
6076 0,
6077 3,
6078 { PARROT_ARG_N, PARROT_ARG_NC },
6079 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6080 { 0, 0 },
6081 &core_op_lib
6082 },
6083 { /* 378 */
6084 /* type PARROT_INLINE_OP, */
6085 "add",
6086 "add_p_p",
6087 "Parrot_add_p_p",
6088 /* "", body */
6089 0,
6090 3,
6091 { PARROT_ARG_P, PARROT_ARG_P },
6092 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6093 { 0, 0 },
6094 &core_op_lib
6095 },
6096 { /* 379 */
6097 /* type PARROT_INLINE_OP, */
6098 "add",
6099 "add_p_i",
6100 "Parrot_add_p_i",
6101 /* "", body */
6102 0,
6103 3,
6104 { PARROT_ARG_P, PARROT_ARG_I },
6105 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6106 { 0, 0 },
6107 &core_op_lib
6108 },
6109 { /* 380 */
6110 /* type PARROT_INLINE_OP, */
6111 "add",
6112 "add_p_ic",
6113 "Parrot_add_p_ic",
6114 /* "", body */
6115 0,
6116 3,
6117 { PARROT_ARG_P, PARROT_ARG_IC },
6118 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6119 { 0, 0 },
6120 &core_op_lib
6121 },
6122 { /* 381 */
6123 /* type PARROT_INLINE_OP, */
6124 "add",
6125 "add_p_n",
6126 "Parrot_add_p_n",
6127 /* "", body */
6128 0,
6129 3,
6130 { PARROT_ARG_P, PARROT_ARG_N },
6131 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6132 { 0, 0 },
6133 &core_op_lib
6134 },
6135 { /* 382 */
6136 /* type PARROT_INLINE_OP, */
6137 "add",
6138 "add_p_nc",
6139 "Parrot_add_p_nc",
6140 /* "", body */
6141 0,
6142 3,
6143 { PARROT_ARG_P, PARROT_ARG_NC },
6144 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6145 { 0, 0 },
6146 &core_op_lib
6147 },
6148 { /* 383 */
6149 /* type PARROT_INLINE_OP, */
6150 "add",
6151 "add_i_i_i",
6152 "Parrot_add_i_i_i",
6153 /* "", body */
6154 0,
6155 4,
6156 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
6157 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6158 { 0, 0, 0 },
6159 &core_op_lib
6160 },
6161 { /* 384 */
6162 /* type PARROT_INLINE_OP, */
6163 "add",
6164 "add_i_ic_i",
6165 "Parrot_add_i_ic_i",
6166 /* "", body */
6167 0,
6168 4,
6169 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
6170 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6171 { 0, 0, 0 },
6172 &core_op_lib
6173 },
6174 { /* 385 */
6175 /* type PARROT_INLINE_OP, */
6176 "add",
6177 "add_i_i_ic",
6178 "Parrot_add_i_i_ic",
6179 /* "", body */
6180 0,
6181 4,
6182 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
6183 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6184 { 0, 0, 0 },
6185 &core_op_lib
6186 },
6187 { /* 386 */
6188 /* type PARROT_INLINE_OP, */
6189 "add",
6190 "add_n_n_n",
6191 "Parrot_add_n_n_n",
6192 /* "", body */
6193 0,
6194 4,
6195 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
6196 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6197 { 0, 0, 0 },
6198 &core_op_lib
6199 },
6200 { /* 387 */
6201 /* type PARROT_INLINE_OP, */
6202 "add",
6203 "add_n_nc_n",
6204 "Parrot_add_n_nc_n",
6205 /* "", body */
6206 0,
6207 4,
6208 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
6209 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6210 { 0, 0, 0 },
6211 &core_op_lib
6212 },
6213 { /* 388 */
6214 /* type PARROT_INLINE_OP, */
6215 "add",
6216 "add_n_n_nc",
6217 "Parrot_add_n_n_nc",
6218 /* "", body */
6219 0,
6220 4,
6221 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
6222 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6223 { 0, 0, 0 },
6224 &core_op_lib
6225 },
6226 { /* 389 */
6227 /* type PARROT_INLINE_OP, */
6228 "add",
6229 "add_p_p_p",
6230 "Parrot_add_p_p_p",
6231 /* "", body */
6232 0,
6233 4,
6234 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
6235 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6236 { 0, 0, 0 },
6237 &core_op_lib
6238 },
6239 { /* 390 */
6240 /* type PARROT_INLINE_OP, */
6241 "add",
6242 "add_p_p_i",
6243 "Parrot_add_p_p_i",
6244 /* "", body */
6245 0,
6246 4,
6247 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
6248 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6249 { 0, 0, 0 },
6250 &core_op_lib
6251 },
6252 { /* 391 */
6253 /* type PARROT_INLINE_OP, */
6254 "add",
6255 "add_p_p_ic",
6256 "Parrot_add_p_p_ic",
6257 /* "", body */
6258 0,
6259 4,
6260 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
6261 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6262 { 0, 0, 0 },
6263 &core_op_lib
6264 },
6265 { /* 392 */
6266 /* type PARROT_INLINE_OP, */
6267 "add",
6268 "add_p_p_n",
6269 "Parrot_add_p_p_n",
6270 /* "", body */
6271 0,
6272 4,
6273 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
6274 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6275 { 0, 0, 0 },
6276 &core_op_lib
6277 },
6278 { /* 393 */
6279 /* type PARROT_INLINE_OP, */
6280 "add",
6281 "add_p_p_nc",
6282 "Parrot_add_p_p_nc",
6283 /* "", body */
6284 0,
6285 4,
6286 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
6287 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6288 { 0, 0, 0 },
6289 &core_op_lib
6290 },
6291 { /* 394 */
6292 /* type PARROT_INLINE_OP, */
6293 "dec",
6294 "dec_i",
6295 "Parrot_dec_i",
6296 /* "", body */
6297 0,
6298 2,
6299 { PARROT_ARG_I },
6300 { PARROT_ARGDIR_INOUT },
6301 { 0 },
6302 &core_op_lib
6303 },
6304 { /* 395 */
6305 /* type PARROT_INLINE_OP, */
6306 "dec",
6307 "dec_n",
6308 "Parrot_dec_n",
6309 /* "", body */
6310 0,
6311 2,
6312 { PARROT_ARG_N },
6313 { PARROT_ARGDIR_INOUT },
6314 { 0 },
6315 &core_op_lib
6316 },
6317 { /* 396 */
6318 /* type PARROT_INLINE_OP, */
6319 "dec",
6320 "dec_p",
6321 "Parrot_dec_p",
6322 /* "", body */
6323 0,
6324 2,
6325 { PARROT_ARG_P },
6326 { PARROT_ARGDIR_IN },
6327 { 0 },
6328 &core_op_lib
6329 },
6330 { /* 397 */
6331 /* type PARROT_INLINE_OP, */
6332 "div",
6333 "div_i_i",
6334 "Parrot_div_i_i",
6335 /* "", body */
6336 0,
6337 3,
6338 { PARROT_ARG_I, PARROT_ARG_I },
6339 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6340 { 0, 0 },
6341 &core_op_lib
6342 },
6343 { /* 398 */
6344 /* type PARROT_INLINE_OP, */
6345 "div",
6346 "div_i_ic",
6347 "Parrot_div_i_ic",
6348 /* "", body */
6349 0,
6350 3,
6351 { PARROT_ARG_I, PARROT_ARG_IC },
6352 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6353 { 0, 0 },
6354 &core_op_lib
6355 },
6356 { /* 399 */
6357 /* type PARROT_INLINE_OP, */
6358 "div",
6359 "div_n_n",
6360 "Parrot_div_n_n",
6361 /* "", body */
6362 0,
6363 3,
6364 { PARROT_ARG_N, PARROT_ARG_N },
6365 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6366 { 0, 0 },
6367 &core_op_lib
6368 },
6369 { /* 400 */
6370 /* type PARROT_INLINE_OP, */
6371 "div",
6372 "div_n_nc",
6373 "Parrot_div_n_nc",
6374 /* "", body */
6375 0,
6376 3,
6377 { PARROT_ARG_N, PARROT_ARG_NC },
6378 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6379 { 0, 0 },
6380 &core_op_lib
6381 },
6382 { /* 401 */
6383 /* type PARROT_INLINE_OP, */
6384 "div",
6385 "div_p_p",
6386 "Parrot_div_p_p",
6387 /* "", body */
6388 0,
6389 3,
6390 { PARROT_ARG_P, PARROT_ARG_P },
6391 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6392 { 0, 0 },
6393 &core_op_lib
6394 },
6395 { /* 402 */
6396 /* type PARROT_INLINE_OP, */
6397 "div",
6398 "div_p_i",
6399 "Parrot_div_p_i",
6400 /* "", body */
6401 0,
6402 3,
6403 { PARROT_ARG_P, PARROT_ARG_I },
6404 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6405 { 0, 0 },
6406 &core_op_lib
6407 },
6408 { /* 403 */
6409 /* type PARROT_INLINE_OP, */
6410 "div",
6411 "div_p_ic",
6412 "Parrot_div_p_ic",
6413 /* "", body */
6414 0,
6415 3,
6416 { PARROT_ARG_P, PARROT_ARG_IC },
6417 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6418 { 0, 0 },
6419 &core_op_lib
6420 },
6421 { /* 404 */
6422 /* type PARROT_INLINE_OP, */
6423 "div",
6424 "div_p_n",
6425 "Parrot_div_p_n",
6426 /* "", body */
6427 0,
6428 3,
6429 { PARROT_ARG_P, PARROT_ARG_N },
6430 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6431 { 0, 0 },
6432 &core_op_lib
6433 },
6434 { /* 405 */
6435 /* type PARROT_INLINE_OP, */
6436 "div",
6437 "div_p_nc",
6438 "Parrot_div_p_nc",
6439 /* "", body */
6440 0,
6441 3,
6442 { PARROT_ARG_P, PARROT_ARG_NC },
6443 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6444 { 0, 0 },
6445 &core_op_lib
6446 },
6447 { /* 406 */
6448 /* type PARROT_INLINE_OP, */
6449 "div",
6450 "div_i_i_i",
6451 "Parrot_div_i_i_i",
6452 /* "", body */
6453 0,
6454 4,
6455 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
6456 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6457 { 0, 0, 0 },
6458 &core_op_lib
6459 },
6460 { /* 407 */
6461 /* type PARROT_INLINE_OP, */
6462 "div",
6463 "div_i_ic_i",
6464 "Parrot_div_i_ic_i",
6465 /* "", body */
6466 0,
6467 4,
6468 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
6469 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6470 { 0, 0, 0 },
6471 &core_op_lib
6472 },
6473 { /* 408 */
6474 /* type PARROT_INLINE_OP, */
6475 "div",
6476 "div_i_i_ic",
6477 "Parrot_div_i_i_ic",
6478 /* "", body */
6479 0,
6480 4,
6481 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
6482 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6483 { 0, 0, 0 },
6484 &core_op_lib
6485 },
6486 { /* 409 */
6487 /* type PARROT_INLINE_OP, */
6488 "div",
6489 "div_i_ic_ic",
6490 "Parrot_div_i_ic_ic",
6491 /* "", body */
6492 0,
6493 4,
6494 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
6495 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6496 { 0, 0, 0 },
6497 &core_op_lib
6498 },
6499 { /* 410 */
6500 /* type PARROT_INLINE_OP, */
6501 "div",
6502 "div_n_n_n",
6503 "Parrot_div_n_n_n",
6504 /* "", body */
6505 0,
6506 4,
6507 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
6508 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6509 { 0, 0, 0 },
6510 &core_op_lib
6511 },
6512 { /* 411 */
6513 /* type PARROT_INLINE_OP, */
6514 "div",
6515 "div_n_nc_n",
6516 "Parrot_div_n_nc_n",
6517 /* "", body */
6518 0,
6519 4,
6520 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
6521 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6522 { 0, 0, 0 },
6523 &core_op_lib
6524 },
6525 { /* 412 */
6526 /* type PARROT_INLINE_OP, */
6527 "div",
6528 "div_n_n_nc",
6529 "Parrot_div_n_n_nc",
6530 /* "", body */
6531 0,
6532 4,
6533 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
6534 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6535 { 0, 0, 0 },
6536 &core_op_lib
6537 },
6538 { /* 413 */
6539 /* type PARROT_INLINE_OP, */
6540 "div",
6541 "div_n_nc_nc",
6542 "Parrot_div_n_nc_nc",
6543 /* "", body */
6544 0,
6545 4,
6546 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_NC },
6547 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6548 { 0, 0, 0 },
6549 &core_op_lib
6550 },
6551 { /* 414 */
6552 /* type PARROT_INLINE_OP, */
6553 "div",
6554 "div_p_p_p",
6555 "Parrot_div_p_p_p",
6556 /* "", body */
6557 0,
6558 4,
6559 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
6560 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6561 { 0, 0, 0 },
6562 &core_op_lib
6563 },
6564 { /* 415 */
6565 /* type PARROT_INLINE_OP, */
6566 "div",
6567 "div_p_p_i",
6568 "Parrot_div_p_p_i",
6569 /* "", body */
6570 0,
6571 4,
6572 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
6573 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6574 { 0, 0, 0 },
6575 &core_op_lib
6576 },
6577 { /* 416 */
6578 /* type PARROT_INLINE_OP, */
6579 "div",
6580 "div_p_p_ic",
6581 "Parrot_div_p_p_ic",
6582 /* "", body */
6583 0,
6584 4,
6585 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
6586 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6587 { 0, 0, 0 },
6588 &core_op_lib
6589 },
6590 { /* 417 */
6591 /* type PARROT_INLINE_OP, */
6592 "div",
6593 "div_p_p_n",
6594 "Parrot_div_p_p_n",
6595 /* "", body */
6596 0,
6597 4,
6598 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
6599 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6600 { 0, 0, 0 },
6601 &core_op_lib
6602 },
6603 { /* 418 */
6604 /* type PARROT_INLINE_OP, */
6605 "div",
6606 "div_p_p_nc",
6607 "Parrot_div_p_p_nc",
6608 /* "", body */
6609 0,
6610 4,
6611 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
6612 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6613 { 0, 0, 0 },
6614 &core_op_lib
6615 },
6616 { /* 419 */
6617 /* type PARROT_INLINE_OP, */
6618 "fdiv",
6619 "fdiv_i_i",
6620 "Parrot_fdiv_i_i",
6621 /* "", body */
6622 0,
6623 3,
6624 { PARROT_ARG_I, PARROT_ARG_I },
6625 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6626 { 0, 0 },
6627 &core_op_lib
6628 },
6629 { /* 420 */
6630 /* type PARROT_INLINE_OP, */
6631 "fdiv",
6632 "fdiv_i_ic",
6633 "Parrot_fdiv_i_ic",
6634 /* "", body */
6635 0,
6636 3,
6637 { PARROT_ARG_I, PARROT_ARG_IC },
6638 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6639 { 0, 0 },
6640 &core_op_lib
6641 },
6642 { /* 421 */
6643 /* type PARROT_INLINE_OP, */
6644 "fdiv",
6645 "fdiv_n_n",
6646 "Parrot_fdiv_n_n",
6647 /* "", body */
6648 0,
6649 3,
6650 { PARROT_ARG_N, PARROT_ARG_N },
6651 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6652 { 0, 0 },
6653 &core_op_lib
6654 },
6655 { /* 422 */
6656 /* type PARROT_INLINE_OP, */
6657 "fdiv",
6658 "fdiv_n_nc",
6659 "Parrot_fdiv_n_nc",
6660 /* "", body */
6661 0,
6662 3,
6663 { PARROT_ARG_N, PARROT_ARG_NC },
6664 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
6665 { 0, 0 },
6666 &core_op_lib
6667 },
6668 { /* 423 */
6669 /* type PARROT_INLINE_OP, */
6670 "fdiv",
6671 "fdiv_p_p",
6672 "Parrot_fdiv_p_p",
6673 /* "", body */
6674 0,
6675 3,
6676 { PARROT_ARG_P, PARROT_ARG_P },
6677 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6678 { 0, 0 },
6679 &core_op_lib
6680 },
6681 { /* 424 */
6682 /* type PARROT_INLINE_OP, */
6683 "fdiv",
6684 "fdiv_p_i",
6685 "Parrot_fdiv_p_i",
6686 /* "", body */
6687 0,
6688 3,
6689 { PARROT_ARG_P, PARROT_ARG_I },
6690 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6691 { 0, 0 },
6692 &core_op_lib
6693 },
6694 { /* 425 */
6695 /* type PARROT_INLINE_OP, */
6696 "fdiv",
6697 "fdiv_p_ic",
6698 "Parrot_fdiv_p_ic",
6699 /* "", body */
6700 0,
6701 3,
6702 { PARROT_ARG_P, PARROT_ARG_IC },
6703 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6704 { 0, 0 },
6705 &core_op_lib
6706 },
6707 { /* 426 */
6708 /* type PARROT_INLINE_OP, */
6709 "fdiv",
6710 "fdiv_p_n",
6711 "Parrot_fdiv_p_n",
6712 /* "", body */
6713 0,
6714 3,
6715 { PARROT_ARG_P, PARROT_ARG_N },
6716 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6717 { 0, 0 },
6718 &core_op_lib
6719 },
6720 { /* 427 */
6721 /* type PARROT_INLINE_OP, */
6722 "fdiv",
6723 "fdiv_p_nc",
6724 "Parrot_fdiv_p_nc",
6725 /* "", body */
6726 0,
6727 3,
6728 { PARROT_ARG_P, PARROT_ARG_NC },
6729 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6730 { 0, 0 },
6731 &core_op_lib
6732 },
6733 { /* 428 */
6734 /* type PARROT_INLINE_OP, */
6735 "fdiv",
6736 "fdiv_i_i_i",
6737 "Parrot_fdiv_i_i_i",
6738 /* "", body */
6739 0,
6740 4,
6741 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
6742 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6743 { 0, 0, 0 },
6744 &core_op_lib
6745 },
6746 { /* 429 */
6747 /* type PARROT_INLINE_OP, */
6748 "fdiv",
6749 "fdiv_i_ic_i",
6750 "Parrot_fdiv_i_ic_i",
6751 /* "", body */
6752 0,
6753 4,
6754 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
6755 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6756 { 0, 0, 0 },
6757 &core_op_lib
6758 },
6759 { /* 430 */
6760 /* type PARROT_INLINE_OP, */
6761 "fdiv",
6762 "fdiv_i_i_ic",
6763 "Parrot_fdiv_i_i_ic",
6764 /* "", body */
6765 0,
6766 4,
6767 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
6768 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6769 { 0, 0, 0 },
6770 &core_op_lib
6771 },
6772 { /* 431 */
6773 /* type PARROT_INLINE_OP, */
6774 "fdiv",
6775 "fdiv_n_n_n",
6776 "Parrot_fdiv_n_n_n",
6777 /* "", body */
6778 0,
6779 4,
6780 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
6781 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6782 { 0, 0, 0 },
6783 &core_op_lib
6784 },
6785 { /* 432 */
6786 /* type PARROT_INLINE_OP, */
6787 "fdiv",
6788 "fdiv_n_nc_n",
6789 "Parrot_fdiv_n_nc_n",
6790 /* "", body */
6791 0,
6792 4,
6793 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
6794 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6795 { 0, 0, 0 },
6796 &core_op_lib
6797 },
6798 { /* 433 */
6799 /* type PARROT_INLINE_OP, */
6800 "fdiv",
6801 "fdiv_n_n_nc",
6802 "Parrot_fdiv_n_n_nc",
6803 /* "", body */
6804 0,
6805 4,
6806 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
6807 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6808 { 0, 0, 0 },
6809 &core_op_lib
6810 },
6811 { /* 434 */
6812 /* type PARROT_INLINE_OP, */
6813 "fdiv",
6814 "fdiv_p_p_p",
6815 "Parrot_fdiv_p_p_p",
6816 /* "", body */
6817 0,
6818 4,
6819 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
6820 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6821 { 0, 0, 0 },
6822 &core_op_lib
6823 },
6824 { /* 435 */
6825 /* type PARROT_INLINE_OP, */
6826 "fdiv",
6827 "fdiv_p_p_i",
6828 "Parrot_fdiv_p_p_i",
6829 /* "", body */
6830 0,
6831 4,
6832 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
6833 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6834 { 0, 0, 0 },
6835 &core_op_lib
6836 },
6837 { /* 436 */
6838 /* type PARROT_INLINE_OP, */
6839 "fdiv",
6840 "fdiv_p_p_ic",
6841 "Parrot_fdiv_p_p_ic",
6842 /* "", body */
6843 0,
6844 4,
6845 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
6846 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6847 { 0, 0, 0 },
6848 &core_op_lib
6849 },
6850 { /* 437 */
6851 /* type PARROT_INLINE_OP, */
6852 "fdiv",
6853 "fdiv_p_p_n",
6854 "Parrot_fdiv_p_p_n",
6855 /* "", body */
6856 0,
6857 4,
6858 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
6859 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6860 { 0, 0, 0 },
6861 &core_op_lib
6862 },
6863 { /* 438 */
6864 /* type PARROT_INLINE_OP, */
6865 "fdiv",
6866 "fdiv_p_p_nc",
6867 "Parrot_fdiv_p_p_nc",
6868 /* "", body */
6869 0,
6870 4,
6871 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
6872 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
6873 { 0, 0, 0 },
6874 &core_op_lib
6875 },
6876 { /* 439 */
6877 /* type PARROT_INLINE_OP, */
6878 "ceil",
6879 "ceil_n",
6880 "Parrot_ceil_n",
6881 /* "", body */
6882 0,
6883 2,
6884 { PARROT_ARG_N },
6885 { PARROT_ARGDIR_INOUT },
6886 { 0 },
6887 &core_op_lib
6888 },
6889 { /* 440 */
6890 /* type PARROT_INLINE_OP, */
6891 "ceil",
6892 "ceil_i_n",
6893 "Parrot_ceil_i_n",
6894 /* "", body */
6895 0,
6896 3,
6897 { PARROT_ARG_I, PARROT_ARG_N },
6898 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
6899 { 0, 0 },
6900 &core_op_lib
6901 },
6902 { /* 441 */
6903 /* type PARROT_INLINE_OP, */
6904 "ceil",
6905 "ceil_n_n",
6906 "Parrot_ceil_n_n",
6907 /* "", body */
6908 0,
6909 3,
6910 { PARROT_ARG_N, PARROT_ARG_N },
6911 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
6912 { 0, 0 },
6913 &core_op_lib
6914 },
6915 { /* 442 */
6916 /* type PARROT_INLINE_OP, */
6917 "floor",
6918 "floor_n",
6919 "Parrot_floor_n",
6920 /* "", body */
6921 0,
6922 2,
6923 { PARROT_ARG_N },
6924 { PARROT_ARGDIR_INOUT },
6925 { 0 },
6926 &core_op_lib
6927 },
6928 { /* 443 */
6929 /* type PARROT_INLINE_OP, */
6930 "floor",
6931 "floor_i_n",
6932 "Parrot_floor_i_n",
6933 /* "", body */
6934 0,
6935 3,
6936 { PARROT_ARG_I, PARROT_ARG_N },
6937 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
6938 { 0, 0 },
6939 &core_op_lib
6940 },
6941 { /* 444 */
6942 /* type PARROT_INLINE_OP, */
6943 "floor",
6944 "floor_n_n",
6945 "Parrot_floor_n_n",
6946 /* "", body */
6947 0,
6948 3,
6949 { PARROT_ARG_N, PARROT_ARG_N },
6950 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
6951 { 0, 0 },
6952 &core_op_lib
6953 },
6954 { /* 445 */
6955 /* type PARROT_INLINE_OP, */
6956 "inc",
6957 "inc_i",
6958 "Parrot_inc_i",
6959 /* "", body */
6960 0,
6961 2,
6962 { PARROT_ARG_I },
6963 { PARROT_ARGDIR_INOUT },
6964 { 0 },
6965 &core_op_lib
6966 },
6967 { /* 446 */
6968 /* type PARROT_INLINE_OP, */
6969 "inc",
6970 "inc_n",
6971 "Parrot_inc_n",
6972 /* "", body */
6973 0,
6974 2,
6975 { PARROT_ARG_N },
6976 { PARROT_ARGDIR_INOUT },
6977 { 0 },
6978 &core_op_lib
6979 },
6980 { /* 447 */
6981 /* type PARROT_INLINE_OP, */
6982 "inc",
6983 "inc_p",
6984 "Parrot_inc_p",
6985 /* "", body */
6986 0,
6987 2,
6988 { PARROT_ARG_P },
6989 { PARROT_ARGDIR_IN },
6990 { 0 },
6991 &core_op_lib
6992 },
6993 { /* 448 */
6994 /* type PARROT_FUNCTION_OP, */
6995 "mod",
6996 "mod_i_i",
6997 "Parrot_mod_i_i",
6998 /* "", body */
6999 0,
7000 3,
7001 { PARROT_ARG_I, PARROT_ARG_I },
7002 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7003 { 0, 0 },
7004 &core_op_lib
7005 },
7006 { /* 449 */
7007 /* type PARROT_FUNCTION_OP, */
7008 "mod",
7009 "mod_i_ic",
7010 "Parrot_mod_i_ic",
7011 /* "", body */
7012 0,
7013 3,
7014 { PARROT_ARG_I, PARROT_ARG_IC },
7015 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7016 { 0, 0 },
7017 &core_op_lib
7018 },
7019 { /* 450 */
7020 /* type PARROT_FUNCTION_OP, */
7021 "mod",
7022 "mod_n_n",
7023 "Parrot_mod_n_n",
7024 /* "", body */
7025 0,
7026 3,
7027 { PARROT_ARG_N, PARROT_ARG_N },
7028 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7029 { 0, 0 },
7030 &core_op_lib
7031 },
7032 { /* 451 */
7033 /* type PARROT_FUNCTION_OP, */
7034 "mod",
7035 "mod_n_nc",
7036 "Parrot_mod_n_nc",
7037 /* "", body */
7038 0,
7039 3,
7040 { PARROT_ARG_N, PARROT_ARG_NC },
7041 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7042 { 0, 0 },
7043 &core_op_lib
7044 },
7045 { /* 452 */
7046 /* type PARROT_INLINE_OP, */
7047 "mod",
7048 "mod_p_p",
7049 "Parrot_mod_p_p",
7050 /* "", body */
7051 0,
7052 3,
7053 { PARROT_ARG_P, PARROT_ARG_P },
7054 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7055 { 0, 0 },
7056 &core_op_lib
7057 },
7058 { /* 453 */
7059 /* type PARROT_INLINE_OP, */
7060 "mod",
7061 "mod_p_i",
7062 "Parrot_mod_p_i",
7063 /* "", body */
7064 0,
7065 3,
7066 { PARROT_ARG_P, PARROT_ARG_I },
7067 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7068 { 0, 0 },
7069 &core_op_lib
7070 },
7071 { /* 454 */
7072 /* type PARROT_INLINE_OP, */
7073 "mod",
7074 "mod_p_ic",
7075 "Parrot_mod_p_ic",
7076 /* "", body */
7077 0,
7078 3,
7079 { PARROT_ARG_P, PARROT_ARG_IC },
7080 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7081 { 0, 0 },
7082 &core_op_lib
7083 },
7084 { /* 455 */
7085 /* type PARROT_INLINE_OP, */
7086 "mod",
7087 "mod_p_n",
7088 "Parrot_mod_p_n",
7089 /* "", body */
7090 0,
7091 3,
7092 { PARROT_ARG_P, PARROT_ARG_N },
7093 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7094 { 0, 0 },
7095 &core_op_lib
7096 },
7097 { /* 456 */
7098 /* type PARROT_INLINE_OP, */
7099 "mod",
7100 "mod_p_nc",
7101 "Parrot_mod_p_nc",
7102 /* "", body */
7103 0,
7104 3,
7105 { PARROT_ARG_P, PARROT_ARG_NC },
7106 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7107 { 0, 0 },
7108 &core_op_lib
7109 },
7110 { /* 457 */
7111 /* type PARROT_FUNCTION_OP, */
7112 "mod",
7113 "mod_i_i_i",
7114 "Parrot_mod_i_i_i",
7115 /* "", body */
7116 0,
7117 4,
7118 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
7119 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7120 { 0, 0, 0 },
7121 &core_op_lib
7122 },
7123 { /* 458 */
7124 /* type PARROT_FUNCTION_OP, */
7125 "mod",
7126 "mod_i_ic_i",
7127 "Parrot_mod_i_ic_i",
7128 /* "", body */
7129 0,
7130 4,
7131 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
7132 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7133 { 0, 0, 0 },
7134 &core_op_lib
7135 },
7136 { /* 459 */
7137 /* type PARROT_FUNCTION_OP, */
7138 "mod",
7139 "mod_i_i_ic",
7140 "Parrot_mod_i_i_ic",
7141 /* "", body */
7142 0,
7143 4,
7144 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
7145 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7146 { 0, 0, 0 },
7147 &core_op_lib
7148 },
7149 { /* 460 */
7150 /* type PARROT_FUNCTION_OP, */
7151 "mod",
7152 "mod_n_n_n",
7153 "Parrot_mod_n_n_n",
7154 /* "", body */
7155 0,
7156 4,
7157 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
7158 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7159 { 0, 0, 0 },
7160 &core_op_lib
7161 },
7162 { /* 461 */
7163 /* type PARROT_FUNCTION_OP, */
7164 "mod",
7165 "mod_n_nc_n",
7166 "Parrot_mod_n_nc_n",
7167 /* "", body */
7168 0,
7169 4,
7170 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
7171 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7172 { 0, 0, 0 },
7173 &core_op_lib
7174 },
7175 { /* 462 */
7176 /* type PARROT_FUNCTION_OP, */
7177 "mod",
7178 "mod_n_n_nc",
7179 "Parrot_mod_n_n_nc",
7180 /* "", body */
7181 0,
7182 4,
7183 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
7184 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7185 { 0, 0, 0 },
7186 &core_op_lib
7187 },
7188 { /* 463 */
7189 /* type PARROT_INLINE_OP, */
7190 "mod",
7191 "mod_p_p_p",
7192 "Parrot_mod_p_p_p",
7193 /* "", body */
7194 0,
7195 4,
7196 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
7197 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7198 { 0, 0, 0 },
7199 &core_op_lib
7200 },
7201 { /* 464 */
7202 /* type PARROT_INLINE_OP, */
7203 "mod",
7204 "mod_p_p_i",
7205 "Parrot_mod_p_p_i",
7206 /* "", body */
7207 0,
7208 4,
7209 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
7210 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7211 { 0, 0, 0 },
7212 &core_op_lib
7213 },
7214 { /* 465 */
7215 /* type PARROT_INLINE_OP, */
7216 "mod",
7217 "mod_p_p_ic",
7218 "Parrot_mod_p_p_ic",
7219 /* "", body */
7220 0,
7221 4,
7222 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
7223 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7224 { 0, 0, 0 },
7225 &core_op_lib
7226 },
7227 { /* 466 */
7228 /* type PARROT_INLINE_OP, */
7229 "mod",
7230 "mod_p_p_n",
7231 "Parrot_mod_p_p_n",
7232 /* "", body */
7233 0,
7234 4,
7235 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
7236 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7237 { 0, 0, 0 },
7238 &core_op_lib
7239 },
7240 { /* 467 */
7241 /* type PARROT_INLINE_OP, */
7242 "mod",
7243 "mod_p_p_nc",
7244 "Parrot_mod_p_p_nc",
7245 /* "", body */
7246 0,
7247 4,
7248 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
7249 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7250 { 0, 0, 0 },
7251 &core_op_lib
7252 },
7253 { /* 468 */
7254 /* type PARROT_INLINE_OP, */
7255 "mul",
7256 "mul_i_i",
7257 "Parrot_mul_i_i",
7258 /* "", body */
7259 0,
7260 3,
7261 { PARROT_ARG_I, PARROT_ARG_I },
7262 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7263 { 0, 0 },
7264 &core_op_lib
7265 },
7266 { /* 469 */
7267 /* type PARROT_INLINE_OP, */
7268 "mul",
7269 "mul_i_ic",
7270 "Parrot_mul_i_ic",
7271 /* "", body */
7272 0,
7273 3,
7274 { PARROT_ARG_I, PARROT_ARG_IC },
7275 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7276 { 0, 0 },
7277 &core_op_lib
7278 },
7279 { /* 470 */
7280 /* type PARROT_INLINE_OP, */
7281 "mul",
7282 "mul_n_n",
7283 "Parrot_mul_n_n",
7284 /* "", body */
7285 0,
7286 3,
7287 { PARROT_ARG_N, PARROT_ARG_N },
7288 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7289 { 0, 0 },
7290 &core_op_lib
7291 },
7292 { /* 471 */
7293 /* type PARROT_INLINE_OP, */
7294 "mul",
7295 "mul_n_nc",
7296 "Parrot_mul_n_nc",
7297 /* "", body */
7298 0,
7299 3,
7300 { PARROT_ARG_N, PARROT_ARG_NC },
7301 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7302 { 0, 0 },
7303 &core_op_lib
7304 },
7305 { /* 472 */
7306 /* type PARROT_INLINE_OP, */
7307 "mul",
7308 "mul_p_p",
7309 "Parrot_mul_p_p",
7310 /* "", body */
7311 0,
7312 3,
7313 { PARROT_ARG_P, PARROT_ARG_P },
7314 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7315 { 0, 0 },
7316 &core_op_lib
7317 },
7318 { /* 473 */
7319 /* type PARROT_INLINE_OP, */
7320 "mul",
7321 "mul_p_i",
7322 "Parrot_mul_p_i",
7323 /* "", body */
7324 0,
7325 3,
7326 { PARROT_ARG_P, PARROT_ARG_I },
7327 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7328 { 0, 0 },
7329 &core_op_lib
7330 },
7331 { /* 474 */
7332 /* type PARROT_INLINE_OP, */
7333 "mul",
7334 "mul_p_ic",
7335 "Parrot_mul_p_ic",
7336 /* "", body */
7337 0,
7338 3,
7339 { PARROT_ARG_P, PARROT_ARG_IC },
7340 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7341 { 0, 0 },
7342 &core_op_lib
7343 },
7344 { /* 475 */
7345 /* type PARROT_INLINE_OP, */
7346 "mul",
7347 "mul_p_n",
7348 "Parrot_mul_p_n",
7349 /* "", body */
7350 0,
7351 3,
7352 { PARROT_ARG_P, PARROT_ARG_N },
7353 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7354 { 0, 0 },
7355 &core_op_lib
7356 },
7357 { /* 476 */
7358 /* type PARROT_INLINE_OP, */
7359 "mul",
7360 "mul_p_nc",
7361 "Parrot_mul_p_nc",
7362 /* "", body */
7363 0,
7364 3,
7365 { PARROT_ARG_P, PARROT_ARG_NC },
7366 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7367 { 0, 0 },
7368 &core_op_lib
7369 },
7370 { /* 477 */
7371 /* type PARROT_INLINE_OP, */
7372 "mul",
7373 "mul_i_i_i",
7374 "Parrot_mul_i_i_i",
7375 /* "", body */
7376 0,
7377 4,
7378 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
7379 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7380 { 0, 0, 0 },
7381 &core_op_lib
7382 },
7383 { /* 478 */
7384 /* type PARROT_INLINE_OP, */
7385 "mul",
7386 "mul_i_ic_i",
7387 "Parrot_mul_i_ic_i",
7388 /* "", body */
7389 0,
7390 4,
7391 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
7392 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7393 { 0, 0, 0 },
7394 &core_op_lib
7395 },
7396 { /* 479 */
7397 /* type PARROT_INLINE_OP, */
7398 "mul",
7399 "mul_i_i_ic",
7400 "Parrot_mul_i_i_ic",
7401 /* "", body */
7402 0,
7403 4,
7404 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
7405 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7406 { 0, 0, 0 },
7407 &core_op_lib
7408 },
7409 { /* 480 */
7410 /* type PARROT_INLINE_OP, */
7411 "mul",
7412 "mul_n_n_n",
7413 "Parrot_mul_n_n_n",
7414 /* "", body */
7415 0,
7416 4,
7417 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
7418 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7419 { 0, 0, 0 },
7420 &core_op_lib
7421 },
7422 { /* 481 */
7423 /* type PARROT_INLINE_OP, */
7424 "mul",
7425 "mul_n_nc_n",
7426 "Parrot_mul_n_nc_n",
7427 /* "", body */
7428 0,
7429 4,
7430 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
7431 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7432 { 0, 0, 0 },
7433 &core_op_lib
7434 },
7435 { /* 482 */
7436 /* type PARROT_INLINE_OP, */
7437 "mul",
7438 "mul_n_n_nc",
7439 "Parrot_mul_n_n_nc",
7440 /* "", body */
7441 0,
7442 4,
7443 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
7444 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7445 { 0, 0, 0 },
7446 &core_op_lib
7447 },
7448 { /* 483 */
7449 /* type PARROT_INLINE_OP, */
7450 "mul",
7451 "mul_p_p_p",
7452 "Parrot_mul_p_p_p",
7453 /* "", body */
7454 0,
7455 4,
7456 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
7457 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7458 { 0, 0, 0 },
7459 &core_op_lib
7460 },
7461 { /* 484 */
7462 /* type PARROT_INLINE_OP, */
7463 "mul",
7464 "mul_p_p_i",
7465 "Parrot_mul_p_p_i",
7466 /* "", body */
7467 0,
7468 4,
7469 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
7470 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7471 { 0, 0, 0 },
7472 &core_op_lib
7473 },
7474 { /* 485 */
7475 /* type PARROT_INLINE_OP, */
7476 "mul",
7477 "mul_p_p_ic",
7478 "Parrot_mul_p_p_ic",
7479 /* "", body */
7480 0,
7481 4,
7482 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
7483 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7484 { 0, 0, 0 },
7485 &core_op_lib
7486 },
7487 { /* 486 */
7488 /* type PARROT_INLINE_OP, */
7489 "mul",
7490 "mul_p_p_n",
7491 "Parrot_mul_p_p_n",
7492 /* "", body */
7493 0,
7494 4,
7495 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
7496 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7497 { 0, 0, 0 },
7498 &core_op_lib
7499 },
7500 { /* 487 */
7501 /* type PARROT_INLINE_OP, */
7502 "mul",
7503 "mul_p_p_nc",
7504 "Parrot_mul_p_p_nc",
7505 /* "", body */
7506 0,
7507 4,
7508 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
7509 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7510 { 0, 0, 0 },
7511 &core_op_lib
7512 },
7513 { /* 488 */
7514 /* type PARROT_INLINE_OP, */
7515 "neg",
7516 "neg_i",
7517 "Parrot_neg_i",
7518 /* "", body */
7519 0,
7520 2,
7521 { PARROT_ARG_I },
7522 { PARROT_ARGDIR_INOUT },
7523 { 0 },
7524 &core_op_lib
7525 },
7526 { /* 489 */
7527 /* type PARROT_INLINE_OP, */
7528 "neg",
7529 "neg_n",
7530 "Parrot_neg_n",
7531 /* "", body */
7532 0,
7533 2,
7534 { PARROT_ARG_N },
7535 { PARROT_ARGDIR_INOUT },
7536 { 0 },
7537 &core_op_lib
7538 },
7539 { /* 490 */
7540 /* type PARROT_INLINE_OP, */
7541 "neg",
7542 "neg_p",
7543 "Parrot_neg_p",
7544 /* "", body */
7545 0,
7546 2,
7547 { PARROT_ARG_P },
7548 { PARROT_ARGDIR_IN },
7549 { 0 },
7550 &core_op_lib
7551 },
7552 { /* 491 */
7553 /* type PARROT_INLINE_OP, */
7554 "neg",
7555 "neg_i_i",
7556 "Parrot_neg_i_i",
7557 /* "", body */
7558 0,
7559 3,
7560 { PARROT_ARG_I, PARROT_ARG_I },
7561 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
7562 { 0, 0 },
7563 &core_op_lib
7564 },
7565 { /* 492 */
7566 /* type PARROT_INLINE_OP, */
7567 "neg",
7568 "neg_n_n",
7569 "Parrot_neg_n_n",
7570 /* "", body */
7571 0,
7572 3,
7573 { PARROT_ARG_N, PARROT_ARG_N },
7574 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
7575 { 0, 0 },
7576 &core_op_lib
7577 },
7578 { /* 493 */
7579 /* type PARROT_INLINE_OP, */
7580 "neg",
7581 "neg_p_p",
7582 "Parrot_neg_p_p",
7583 /* "", body */
7584 0,
7585 3,
7586 { PARROT_ARG_P, PARROT_ARG_P },
7587 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
7588 { 0, 0 },
7589 &core_op_lib
7590 },
7591 { /* 494 */
7592 /* type PARROT_INLINE_OP, */
7593 "sub",
7594 "sub_i_i",
7595 "Parrot_sub_i_i",
7596 /* "", body */
7597 0,
7598 3,
7599 { PARROT_ARG_I, PARROT_ARG_I },
7600 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7601 { 0, 0 },
7602 &core_op_lib
7603 },
7604 { /* 495 */
7605 /* type PARROT_INLINE_OP, */
7606 "sub",
7607 "sub_i_ic",
7608 "Parrot_sub_i_ic",
7609 /* "", body */
7610 0,
7611 3,
7612 { PARROT_ARG_I, PARROT_ARG_IC },
7613 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7614 { 0, 0 },
7615 &core_op_lib
7616 },
7617 { /* 496 */
7618 /* type PARROT_INLINE_OP, */
7619 "sub",
7620 "sub_n_n",
7621 "Parrot_sub_n_n",
7622 /* "", body */
7623 0,
7624 3,
7625 { PARROT_ARG_N, PARROT_ARG_N },
7626 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7627 { 0, 0 },
7628 &core_op_lib
7629 },
7630 { /* 497 */
7631 /* type PARROT_INLINE_OP, */
7632 "sub",
7633 "sub_n_nc",
7634 "Parrot_sub_n_nc",
7635 /* "", body */
7636 0,
7637 3,
7638 { PARROT_ARG_N, PARROT_ARG_NC },
7639 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
7640 { 0, 0 },
7641 &core_op_lib
7642 },
7643 { /* 498 */
7644 /* type PARROT_INLINE_OP, */
7645 "sub",
7646 "sub_p_p",
7647 "Parrot_sub_p_p",
7648 /* "", body */
7649 0,
7650 3,
7651 { PARROT_ARG_P, PARROT_ARG_P },
7652 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7653 { 0, 0 },
7654 &core_op_lib
7655 },
7656 { /* 499 */
7657 /* type PARROT_INLINE_OP, */
7658 "sub",
7659 "sub_p_i",
7660 "Parrot_sub_p_i",
7661 /* "", body */
7662 0,
7663 3,
7664 { PARROT_ARG_P, PARROT_ARG_I },
7665 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7666 { 0, 0 },
7667 &core_op_lib
7668 },
7669 { /* 500 */
7670 /* type PARROT_INLINE_OP, */
7671 "sub",
7672 "sub_p_ic",
7673 "Parrot_sub_p_ic",
7674 /* "", body */
7675 0,
7676 3,
7677 { PARROT_ARG_P, PARROT_ARG_IC },
7678 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7679 { 0, 0 },
7680 &core_op_lib
7681 },
7682 { /* 501 */
7683 /* type PARROT_INLINE_OP, */
7684 "sub",
7685 "sub_p_n",
7686 "Parrot_sub_p_n",
7687 /* "", body */
7688 0,
7689 3,
7690 { PARROT_ARG_P, PARROT_ARG_N },
7691 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7692 { 0, 0 },
7693 &core_op_lib
7694 },
7695 { /* 502 */
7696 /* type PARROT_INLINE_OP, */
7697 "sub",
7698 "sub_p_nc",
7699 "Parrot_sub_p_nc",
7700 /* "", body */
7701 0,
7702 3,
7703 { PARROT_ARG_P, PARROT_ARG_NC },
7704 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7705 { 0, 0 },
7706 &core_op_lib
7707 },
7708 { /* 503 */
7709 /* type PARROT_INLINE_OP, */
7710 "sub",
7711 "sub_i_i_i",
7712 "Parrot_sub_i_i_i",
7713 /* "", body */
7714 0,
7715 4,
7716 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
7717 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7718 { 0, 0, 0 },
7719 &core_op_lib
7720 },
7721 { /* 504 */
7722 /* type PARROT_INLINE_OP, */
7723 "sub",
7724 "sub_i_ic_i",
7725 "Parrot_sub_i_ic_i",
7726 /* "", body */
7727 0,
7728 4,
7729 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
7730 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7731 { 0, 0, 0 },
7732 &core_op_lib
7733 },
7734 { /* 505 */
7735 /* type PARROT_INLINE_OP, */
7736 "sub",
7737 "sub_i_i_ic",
7738 "Parrot_sub_i_i_ic",
7739 /* "", body */
7740 0,
7741 4,
7742 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
7743 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7744 { 0, 0, 0 },
7745 &core_op_lib
7746 },
7747 { /* 506 */
7748 /* type PARROT_INLINE_OP, */
7749 "sub",
7750 "sub_n_n_n",
7751 "Parrot_sub_n_n_n",
7752 /* "", body */
7753 0,
7754 4,
7755 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
7756 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7757 { 0, 0, 0 },
7758 &core_op_lib
7759 },
7760 { /* 507 */
7761 /* type PARROT_INLINE_OP, */
7762 "sub",
7763 "sub_n_nc_n",
7764 "Parrot_sub_n_nc_n",
7765 /* "", body */
7766 0,
7767 4,
7768 { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
7769 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7770 { 0, 0, 0 },
7771 &core_op_lib
7772 },
7773 { /* 508 */
7774 /* type PARROT_INLINE_OP, */
7775 "sub",
7776 "sub_n_n_nc",
7777 "Parrot_sub_n_n_nc",
7778 /* "", body */
7779 0,
7780 4,
7781 { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
7782 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7783 { 0, 0, 0 },
7784 &core_op_lib
7785 },
7786 { /* 509 */
7787 /* type PARROT_INLINE_OP, */
7788 "sub",
7789 "sub_p_p_p",
7790 "Parrot_sub_p_p_p",
7791 /* "", body */
7792 0,
7793 4,
7794 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
7795 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7796 { 0, 0, 0 },
7797 &core_op_lib
7798 },
7799 { /* 510 */
7800 /* type PARROT_INLINE_OP, */
7801 "sub",
7802 "sub_p_p_i",
7803 "Parrot_sub_p_p_i",
7804 /* "", body */
7805 0,
7806 4,
7807 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
7808 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7809 { 0, 0, 0 },
7810 &core_op_lib
7811 },
7812 { /* 511 */
7813 /* type PARROT_INLINE_OP, */
7814 "sub",
7815 "sub_p_p_ic",
7816 "Parrot_sub_p_p_ic",
7817 /* "", body */
7818 0,
7819 4,
7820 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
7821 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7822 { 0, 0, 0 },
7823 &core_op_lib
7824 },
7825 { /* 512 */
7826 /* type PARROT_INLINE_OP, */
7827 "sub",
7828 "sub_p_p_n",
7829 "Parrot_sub_p_p_n",
7830 /* "", body */
7831 0,
7832 4,
7833 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
7834 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7835 { 0, 0, 0 },
7836 &core_op_lib
7837 },
7838 { /* 513 */
7839 /* type PARROT_INLINE_OP, */
7840 "sub",
7841 "sub_p_p_nc",
7842 "Parrot_sub_p_p_nc",
7843 /* "", body */
7844 0,
7845 4,
7846 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
7847 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7848 { 0, 0, 0 },
7849 &core_op_lib
7850 },
7851 { /* 514 */
7852 /* type PARROT_INLINE_OP, */
7853 "sqrt",
7854 "sqrt_n_n",
7855 "Parrot_sqrt_n_n",
7856 /* "", body */
7857 0,
7858 3,
7859 { PARROT_ARG_N, PARROT_ARG_N },
7860 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
7861 { 0, 0 },
7862 &core_op_lib
7863 },
7864 { /* 515 */
7865 /* type PARROT_FUNCTION_OP, */
7866 "callmethodcc",
7867 "callmethodcc_p_s",
7868 "Parrot_callmethodcc_p_s",
7869 /* "", body */
7870 0,
7871 3,
7872 { PARROT_ARG_P, PARROT_ARG_S },
7873 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7874 { 0, 0 },
7875 &core_op_lib
7876 },
7877 { /* 516 */
7878 /* type PARROT_FUNCTION_OP, */
7879 "callmethodcc",
7880 "callmethodcc_p_sc",
7881 "Parrot_callmethodcc_p_sc",
7882 /* "", body */
7883 0,
7884 3,
7885 { PARROT_ARG_P, PARROT_ARG_SC },
7886 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7887 { 0, 0 },
7888 &core_op_lib
7889 },
7890 { /* 517 */
7891 /* type PARROT_FUNCTION_OP, */
7892 "callmethodcc",
7893 "callmethodcc_p_p",
7894 "Parrot_callmethodcc_p_p",
7895 /* "", body */
7896 0,
7897 3,
7898 { PARROT_ARG_P, PARROT_ARG_P },
7899 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7900 { 0, 0 },
7901 &core_op_lib
7902 },
7903 { /* 518 */
7904 /* type PARROT_FUNCTION_OP, */
7905 "callmethod",
7906 "callmethod_p_s_p",
7907 "Parrot_callmethod_p_s_p",
7908 /* "", body */
7909 0,
7910 4,
7911 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
7912 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7913 { 0, 0, 0 },
7914 &core_op_lib
7915 },
7916 { /* 519 */
7917 /* type PARROT_FUNCTION_OP, */
7918 "callmethod",
7919 "callmethod_p_sc_p",
7920 "Parrot_callmethod_p_sc_p",
7921 /* "", body */
7922 0,
7923 4,
7924 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
7925 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7926 { 0, 0, 0 },
7927 &core_op_lib
7928 },
7929 { /* 520 */
7930 /* type PARROT_FUNCTION_OP, */
7931 "callmethod",
7932 "callmethod_p_p_p",
7933 "Parrot_callmethod_p_p_p",
7934 /* "", body */
7935 0,
7936 4,
7937 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
7938 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7939 { 0, 0, 0 },
7940 &core_op_lib
7941 },
7942 { /* 521 */
7943 /* type PARROT_FUNCTION_OP, */
7944 "tailcallmethod",
7945 "tailcallmethod_p_s",
7946 "Parrot_tailcallmethod_p_s",
7947 /* "", body */
7948 0,
7949 3,
7950 { PARROT_ARG_P, PARROT_ARG_S },
7951 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7952 { 0, 0 },
7953 &core_op_lib
7954 },
7955 { /* 522 */
7956 /* type PARROT_FUNCTION_OP, */
7957 "tailcallmethod",
7958 "tailcallmethod_p_sc",
7959 "Parrot_tailcallmethod_p_sc",
7960 /* "", body */
7961 0,
7962 3,
7963 { PARROT_ARG_P, PARROT_ARG_SC },
7964 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7965 { 0, 0 },
7966 &core_op_lib
7967 },
7968 { /* 523 */
7969 /* type PARROT_FUNCTION_OP, */
7970 "tailcallmethod",
7971 "tailcallmethod_p_p",
7972 "Parrot_tailcallmethod_p_p",
7973 /* "", body */
7974 0,
7975 3,
7976 { PARROT_ARG_P, PARROT_ARG_P },
7977 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7978 { 0, 0 },
7979 &core_op_lib
7980 },
7981 { /* 524 */
7982 /* type PARROT_INLINE_OP, */
7983 "addmethod",
7984 "addmethod_p_s_p",
7985 "Parrot_addmethod_p_s_p",
7986 /* "", body */
7987 0,
7988 4,
7989 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
7990 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
7991 { 0, 0, 0 },
7992 &core_op_lib
7993 },
7994 { /* 525 */
7995 /* type PARROT_INLINE_OP, */
7996 "addmethod",
7997 "addmethod_p_sc_p",
7998 "Parrot_addmethod_p_sc_p",
7999 /* "", body */
8000 0,
8001 4,
8002 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
8003 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8004 { 0, 0, 0 },
8005 &core_op_lib
8006 },
8007 { /* 526 */
8008 /* type PARROT_INLINE_OP, */
8009 "can",
8010 "can_i_p_s",
8011 "Parrot_can_i_p_s",
8012 /* "", body */
8013 0,
8014 4,
8015 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
8016 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8017 { 0, 0, 0 },
8018 &core_op_lib
8019 },
8020 { /* 527 */
8021 /* type PARROT_INLINE_OP, */
8022 "can",
8023 "can_i_p_sc",
8024 "Parrot_can_i_p_sc",
8025 /* "", body */
8026 0,
8027 4,
8028 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
8029 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8030 { 0, 0, 0 },
8031 &core_op_lib
8032 },
8033 { /* 528 */
8034 /* type PARROT_INLINE_OP, */
8035 "does",
8036 "does_i_p_s",
8037 "Parrot_does_i_p_s",
8038 /* "", body */
8039 0,
8040 4,
8041 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
8042 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8043 { 0, 0, 0 },
8044 &core_op_lib
8045 },
8046 { /* 529 */
8047 /* type PARROT_INLINE_OP, */
8048 "does",
8049 "does_i_p_sc",
8050 "Parrot_does_i_p_sc",
8051 /* "", body */
8052 0,
8053 4,
8054 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
8055 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8056 { 0, 0, 0 },
8057 &core_op_lib
8058 },
8059 { /* 530 */
8060 /* type PARROT_INLINE_OP, */
8061 "does",
8062 "does_i_p_p",
8063 "Parrot_does_i_p_p",
8064 /* "", body */
8065 0,
8066 4,
8067 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
8068 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8069 { 0, 0, 0 },
8070 &core_op_lib
8071 },
8072 { /* 531 */
8073 /* type PARROT_INLINE_OP, */
8074 "does",
8075 "does_i_p_pc",
8076 "Parrot_does_i_p_pc",
8077 /* "", body */
8078 0,
8079 4,
8080 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_PC },
8081 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8082 { 0, 0, 0 },
8083 &core_op_lib
8084 },
8085 { /* 532 */
8086 /* type PARROT_INLINE_OP, */
8087 "isa",
8088 "isa_i_p_s",
8089 "Parrot_isa_i_p_s",
8090 /* "", body */
8091 0,
8092 4,
8093 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
8094 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8095 { 0, 0, 0 },
8096 &core_op_lib
8097 },
8098 { /* 533 */
8099 /* type PARROT_INLINE_OP, */
8100 "isa",
8101 "isa_i_p_sc",
8102 "Parrot_isa_i_p_sc",
8103 /* "", body */
8104 0,
8105 4,
8106 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
8107 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8108 { 0, 0, 0 },
8109 &core_op_lib
8110 },
8111 { /* 534 */
8112 /* type PARROT_INLINE_OP, */
8113 "isa",
8114 "isa_i_p_p",
8115 "Parrot_isa_i_p_p",
8116 /* "", body */
8117 0,
8118 4,
8119 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
8120 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8121 { 0, 0, 0 },
8122 &core_op_lib
8123 },
8124 { /* 535 */
8125 /* type PARROT_INLINE_OP, */
8126 "isa",
8127 "isa_i_p_pc",
8128 "Parrot_isa_i_p_pc",
8129 /* "", body */
8130 0,
8131 4,
8132 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_PC },
8133 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8134 { 0, 0, 0 },
8135 &core_op_lib
8136 },
8137 { /* 536 */
8138 /* type PARROT_INLINE_OP, */
8139 "newclass",
8140 "newclass_p_s",
8141 "Parrot_newclass_p_s",
8142 /* "", body */
8143 0,
8144 3,
8145 { PARROT_ARG_P, PARROT_ARG_S },
8146 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8147 { 0, 0 },
8148 &core_op_lib
8149 },
8150 { /* 537 */
8151 /* type PARROT_INLINE_OP, */
8152 "newclass",
8153 "newclass_p_sc",
8154 "Parrot_newclass_p_sc",
8155 /* "", body */
8156 0,
8157 3,
8158 { PARROT_ARG_P, PARROT_ARG_SC },
8159 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8160 { 0, 0 },
8161 &core_op_lib
8162 },
8163 { /* 538 */
8164 /* type PARROT_INLINE_OP, */
8165 "newclass",
8166 "newclass_p_p",
8167 "Parrot_newclass_p_p",
8168 /* "", body */
8169 0,
8170 3,
8171 { PARROT_ARG_P, PARROT_ARG_P },
8172 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8173 { 0, 0 },
8174 &core_op_lib
8175 },
8176 { /* 539 */
8177 /* type PARROT_INLINE_OP, */
8178 "newclass",
8179 "newclass_p_pc",
8180 "Parrot_newclass_p_pc",
8181 /* "", body */
8182 0,
8183 3,
8184 { PARROT_ARG_P, PARROT_ARG_PC },
8185 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8186 { 0, 0 },
8187 &core_op_lib
8188 },
8189 { /* 540 */
8190 /* type PARROT_INLINE_OP, */
8191 "subclass",
8192 "subclass_p_p",
8193 "Parrot_subclass_p_p",
8194 /* "", body */
8195 0,
8196 3,
8197 { PARROT_ARG_P, PARROT_ARG_P },
8198 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8199 { 0, 0 },
8200 &core_op_lib
8201 },
8202 { /* 541 */
8203 /* type PARROT_INLINE_OP, */
8204 "subclass",
8205 "subclass_p_pc",
8206 "Parrot_subclass_p_pc",
8207 /* "", body */
8208 0,
8209 3,
8210 { PARROT_ARG_P, PARROT_ARG_PC },
8211 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8212 { 0, 0 },
8213 &core_op_lib
8214 },
8215 { /* 542 */
8216 /* type PARROT_INLINE_OP, */
8217 "subclass",
8218 "subclass_p_p_s",
8219 "Parrot_subclass_p_p_s",
8220 /* "", body */
8221 0,
8222 4,
8223 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
8224 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8225 { 0, 0, 0 },
8226 &core_op_lib
8227 },
8228 { /* 543 */
8229 /* type PARROT_INLINE_OP, */
8230 "subclass",
8231 "subclass_p_pc_s",
8232 "Parrot_subclass_p_pc_s",
8233 /* "", body */
8234 0,
8235 4,
8236 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
8237 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8238 { 0, 0, 0 },
8239 &core_op_lib
8240 },
8241 { /* 544 */
8242 /* type PARROT_INLINE_OP, */
8243 "subclass",
8244 "subclass_p_p_sc",
8245 "Parrot_subclass_p_p_sc",
8246 /* "", body */
8247 0,
8248 4,
8249 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
8250 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8251 { 0, 0, 0 },
8252 &core_op_lib
8253 },
8254 { /* 545 */
8255 /* type PARROT_INLINE_OP, */
8256 "subclass",
8257 "subclass_p_pc_sc",
8258 "Parrot_subclass_p_pc_sc",
8259 /* "", body */
8260 0,
8261 4,
8262 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
8263 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8264 { 0, 0, 0 },
8265 &core_op_lib
8266 },
8267 { /* 546 */
8268 /* type PARROT_INLINE_OP, */
8269 "subclass",
8270 "subclass_p_p_p",
8271 "Parrot_subclass_p_p_p",
8272 /* "", body */
8273 0,
8274 4,
8275 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
8276 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8277 { 0, 0, 0 },
8278 &core_op_lib
8279 },
8280 { /* 547 */
8281 /* type PARROT_INLINE_OP, */
8282 "subclass",
8283 "subclass_p_pc_p",
8284 "Parrot_subclass_p_pc_p",
8285 /* "", body */
8286 0,
8287 4,
8288 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
8289 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8290 { 0, 0, 0 },
8291 &core_op_lib
8292 },
8293 { /* 548 */
8294 /* type PARROT_INLINE_OP, */
8295 "subclass",
8296 "subclass_p_p_pc",
8297 "Parrot_subclass_p_p_pc",
8298 /* "", body */
8299 0,
8300 4,
8301 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
8302 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8303 { 0, 0, 0 },
8304 &core_op_lib
8305 },
8306 { /* 549 */
8307 /* type PARROT_INLINE_OP, */
8308 "subclass",
8309 "subclass_p_pc_pc",
8310 "Parrot_subclass_p_pc_pc",
8311 /* "", body */
8312 0,
8313 4,
8314 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
8315 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8316 { 0, 0, 0 },
8317 &core_op_lib
8318 },
8319 { /* 550 */
8320 /* type PARROT_FUNCTION_OP, */
8321 "subclass",
8322 "subclass_p_s",
8323 "Parrot_subclass_p_s",
8324 /* "", body */
8325 0,
8326 3,
8327 { PARROT_ARG_P, PARROT_ARG_S },
8328 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8329 { 0, 0 },
8330 &core_op_lib
8331 },
8332 { /* 551 */
8333 /* type PARROT_FUNCTION_OP, */
8334 "subclass",
8335 "subclass_p_sc",
8336 "Parrot_subclass_p_sc",
8337 /* "", body */
8338 0,
8339 3,
8340 { PARROT_ARG_P, PARROT_ARG_SC },
8341 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8342 { 0, 0 },
8343 &core_op_lib
8344 },
8345 { /* 552 */
8346 /* type PARROT_FUNCTION_OP, */
8347 "subclass",
8348 "subclass_p_s_s",
8349 "Parrot_subclass_p_s_s",
8350 /* "", body */
8351 0,
8352 4,
8353 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
8354 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8355 { 0, 0, 0 },
8356 &core_op_lib
8357 },
8358 { /* 553 */
8359 /* type PARROT_FUNCTION_OP, */
8360 "subclass",
8361 "subclass_p_sc_s",
8362 "Parrot_subclass_p_sc_s",
8363 /* "", body */
8364 0,
8365 4,
8366 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
8367 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8368 { 0, 0, 0 },
8369 &core_op_lib
8370 },
8371 { /* 554 */
8372 /* type PARROT_FUNCTION_OP, */
8373 "subclass",
8374 "subclass_p_s_sc",
8375 "Parrot_subclass_p_s_sc",
8376 /* "", body */
8377 0,
8378 4,
8379 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
8380 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8381 { 0, 0, 0 },
8382 &core_op_lib
8383 },
8384 { /* 555 */
8385 /* type PARROT_FUNCTION_OP, */
8386 "subclass",
8387 "subclass_p_sc_sc",
8388 "Parrot_subclass_p_sc_sc",
8389 /* "", body */
8390 0,
8391 4,
8392 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
8393 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8394 { 0, 0, 0 },
8395 &core_op_lib
8396 },
8397 { /* 556 */
8398 /* type PARROT_FUNCTION_OP, */
8399 "subclass",
8400 "subclass_p_s_p",
8401 "Parrot_subclass_p_s_p",
8402 /* "", body */
8403 0,
8404 4,
8405 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
8406 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8407 { 0, 0, 0 },
8408 &core_op_lib
8409 },
8410 { /* 557 */
8411 /* type PARROT_FUNCTION_OP, */
8412 "subclass",
8413 "subclass_p_sc_p",
8414 "Parrot_subclass_p_sc_p",
8415 /* "", body */
8416 0,
8417 4,
8418 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
8419 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8420 { 0, 0, 0 },
8421 &core_op_lib
8422 },
8423 { /* 558 */
8424 /* type PARROT_FUNCTION_OP, */
8425 "subclass",
8426 "subclass_p_s_pc",
8427 "Parrot_subclass_p_s_pc",
8428 /* "", body */
8429 0,
8430 4,
8431 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
8432 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8433 { 0, 0, 0 },
8434 &core_op_lib
8435 },
8436 { /* 559 */
8437 /* type PARROT_FUNCTION_OP, */
8438 "subclass",
8439 "subclass_p_sc_pc",
8440 "Parrot_subclass_p_sc_pc",
8441 /* "", body */
8442 0,
8443 4,
8444 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
8445 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8446 { 0, 0, 0 },
8447 &core_op_lib
8448 },
8449 { /* 560 */
8450 /* type PARROT_INLINE_OP, */
8451 "get_class",
8452 "get_class_p_s",
8453 "Parrot_get_class_p_s",
8454 /* "", body */
8455 0,
8456 3,
8457 { PARROT_ARG_P, PARROT_ARG_S },
8458 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8459 { 0, 0 },
8460 &core_op_lib
8461 },
8462 { /* 561 */
8463 /* type PARROT_INLINE_OP, */
8464 "get_class",
8465 "get_class_p_sc",
8466 "Parrot_get_class_p_sc",
8467 /* "", body */
8468 0,
8469 3,
8470 { PARROT_ARG_P, PARROT_ARG_SC },
8471 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8472 { 0, 0 },
8473 &core_op_lib
8474 },
8475 { /* 562 */
8476 /* type PARROT_INLINE_OP, */
8477 "get_class",
8478 "get_class_p_p",
8479 "Parrot_get_class_p_p",
8480 /* "", body */
8481 0,
8482 3,
8483 { PARROT_ARG_P, PARROT_ARG_P },
8484 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8485 { 0, 0 },
8486 &core_op_lib
8487 },
8488 { /* 563 */
8489 /* type PARROT_INLINE_OP, */
8490 "get_class",
8491 "get_class_p_pc",
8492 "Parrot_get_class_p_pc",
8493 /* "", body */
8494 0,
8495 3,
8496 { PARROT_ARG_P, PARROT_ARG_PC },
8497 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8498 { 0, 0 },
8499 &core_op_lib
8500 },
8501 { /* 564 */
8502 /* type PARROT_INLINE_OP, */
8503 "class",
8504 "class_p_p",
8505 "Parrot_class_p_p",
8506 /* "", body */
8507 0,
8508 3,
8509 { PARROT_ARG_P, PARROT_ARG_P },
8510 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8511 { 0, 0 },
8512 &core_op_lib
8513 },
8514 { /* 565 */
8515 /* type PARROT_INLINE_OP, */
8516 "addparent",
8517 "addparent_p_p",
8518 "Parrot_addparent_p_p",
8519 /* "", body */
8520 0,
8521 3,
8522 { PARROT_ARG_P, PARROT_ARG_P },
8523 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8524 { 0, 0 },
8525 &core_op_lib
8526 },
8527 { /* 566 */
8528 /* type PARROT_INLINE_OP, */
8529 "removeparent",
8530 "removeparent_p_p",
8531 "Parrot_removeparent_p_p",
8532 /* "", body */
8533 0,
8534 3,
8535 { PARROT_ARG_P, PARROT_ARG_P },
8536 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8537 { 0, 0 },
8538 &core_op_lib
8539 },
8540 { /* 567 */
8541 /* type PARROT_INLINE_OP, */
8542 "addrole",
8543 "addrole_p_p",
8544 "Parrot_addrole_p_p",
8545 /* "", body */
8546 0,
8547 3,
8548 { PARROT_ARG_P, PARROT_ARG_P },
8549 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8550 { 0, 0 },
8551 &core_op_lib
8552 },
8553 { /* 568 */
8554 /* type PARROT_INLINE_OP, */
8555 "addattribute",
8556 "addattribute_p_s",
8557 "Parrot_addattribute_p_s",
8558 /* "", body */
8559 0,
8560 3,
8561 { PARROT_ARG_P, PARROT_ARG_S },
8562 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8563 { 0, 0 },
8564 &core_op_lib
8565 },
8566 { /* 569 */
8567 /* type PARROT_INLINE_OP, */
8568 "addattribute",
8569 "addattribute_p_sc",
8570 "Parrot_addattribute_p_sc",
8571 /* "", body */
8572 0,
8573 3,
8574 { PARROT_ARG_P, PARROT_ARG_SC },
8575 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8576 { 0, 0 },
8577 &core_op_lib
8578 },
8579 { /* 570 */
8580 /* type PARROT_FUNCTION_OP, */
8581 "removeattribute",
8582 "removeattribute_p_s",
8583 "Parrot_removeattribute_p_s",
8584 /* "", body */
8585 0,
8586 3,
8587 { PARROT_ARG_P, PARROT_ARG_S },
8588 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8589 { 0, 0 },
8590 &core_op_lib
8591 },
8592 { /* 571 */
8593 /* type PARROT_FUNCTION_OP, */
8594 "removeattribute",
8595 "removeattribute_p_sc",
8596 "Parrot_removeattribute_p_sc",
8597 /* "", body */
8598 0,
8599 3,
8600 { PARROT_ARG_P, PARROT_ARG_SC },
8601 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8602 { 0, 0 },
8603 &core_op_lib
8604 },
8605 { /* 572 */
8606 /* type PARROT_INLINE_OP, */
8607 "getattribute",
8608 "getattribute_p_p_s",
8609 "Parrot_getattribute_p_p_s",
8610 /* "", body */
8611 0,
8612 4,
8613 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
8614 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8615 { 0, 0, 0 },
8616 &core_op_lib
8617 },
8618 { /* 573 */
8619 /* type PARROT_INLINE_OP, */
8620 "getattribute",
8621 "getattribute_p_p_sc",
8622 "Parrot_getattribute_p_p_sc",
8623 /* "", body */
8624 0,
8625 4,
8626 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
8627 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8628 { 0, 0, 0 },
8629 &core_op_lib
8630 },
8631 { /* 574 */
8632 /* type PARROT_INLINE_OP, */
8633 "getattribute",
8634 "getattribute_p_p_p_s",
8635 "Parrot_getattribute_p_p_p_s",
8636 /* "", body */
8637 0,
8638 5,
8639 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
8640 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8641 { 0, 0, 0, 0 },
8642 &core_op_lib
8643 },
8644 { /* 575 */
8645 /* type PARROT_INLINE_OP, */
8646 "getattribute",
8647 "getattribute_p_p_pc_s",
8648 "Parrot_getattribute_p_p_pc_s",
8649 /* "", body */
8650 0,
8651 5,
8652 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
8653 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8654 { 0, 0, 0, 0 },
8655 &core_op_lib
8656 },
8657 { /* 576 */
8658 /* type PARROT_INLINE_OP, */
8659 "getattribute",
8660 "getattribute_p_p_p_sc",
8661 "Parrot_getattribute_p_p_p_sc",
8662 /* "", body */
8663 0,
8664 5,
8665 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
8666 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8667 { 0, 0, 0, 0 },
8668 &core_op_lib
8669 },
8670 { /* 577 */
8671 /* type PARROT_INLINE_OP, */
8672 "getattribute",
8673 "getattribute_p_p_pc_sc",
8674 "Parrot_getattribute_p_p_pc_sc",
8675 /* "", body */
8676 0,
8677 5,
8678 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
8679 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8680 { 0, 0, 0, 0 },
8681 &core_op_lib
8682 },
8683 { /* 578 */
8684 /* type PARROT_INLINE_OP, */
8685 "setattribute",
8686 "setattribute_p_s_p",
8687 "Parrot_setattribute_p_s_p",
8688 /* "", body */
8689 0,
8690 4,
8691 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
8692 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8693 { 0, 0, 0 },
8694 &core_op_lib
8695 },
8696 { /* 579 */
8697 /* type PARROT_INLINE_OP, */
8698 "setattribute",
8699 "setattribute_p_sc_p",
8700 "Parrot_setattribute_p_sc_p",
8701 /* "", body */
8702 0,
8703 4,
8704 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
8705 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8706 { 0, 0, 0 },
8707 &core_op_lib
8708 },
8709 { /* 580 */
8710 /* type PARROT_INLINE_OP, */
8711 "setattribute",
8712 "setattribute_p_p_s_p",
8713 "Parrot_setattribute_p_p_s_p",
8714 /* "", body */
8715 0,
8716 5,
8717 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
8718 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8719 { 0, 0, 0, 0 },
8720 &core_op_lib
8721 },
8722 { /* 581 */
8723 /* type PARROT_INLINE_OP, */
8724 "setattribute",
8725 "setattribute_p_pc_s_p",
8726 "Parrot_setattribute_p_pc_s_p",
8727 /* "", body */
8728 0,
8729 5,
8730 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
8731 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8732 { 0, 0, 0, 0 },
8733 &core_op_lib
8734 },
8735 { /* 582 */
8736 /* type PARROT_INLINE_OP, */
8737 "setattribute",
8738 "setattribute_p_p_sc_p",
8739 "Parrot_setattribute_p_p_sc_p",
8740 /* "", body */
8741 0,
8742 5,
8743 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
8744 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8745 { 0, 0, 0, 0 },
8746 &core_op_lib
8747 },
8748 { /* 583 */
8749 /* type PARROT_INLINE_OP, */
8750 "setattribute",
8751 "setattribute_p_pc_sc_p",
8752 "Parrot_setattribute_p_pc_sc_p",
8753 /* "", body */
8754 0,
8755 5,
8756 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
8757 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8758 { 0, 0, 0, 0 },
8759 &core_op_lib
8760 },
8761 { /* 584 */
8762 /* type PARROT_INLINE_OP, */
8763 "inspect",
8764 "inspect_p_p",
8765 "Parrot_inspect_p_p",
8766 /* "", body */
8767 0,
8768 3,
8769 { PARROT_ARG_P, PARROT_ARG_P },
8770 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8771 { 0, 0 },
8772 &core_op_lib
8773 },
8774 { /* 585 */
8775 /* type PARROT_INLINE_OP, */
8776 "inspect",
8777 "inspect_p_pc",
8778 "Parrot_inspect_p_pc",
8779 /* "", body */
8780 0,
8781 3,
8782 { PARROT_ARG_P, PARROT_ARG_PC },
8783 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8784 { 0, 0 },
8785 &core_op_lib
8786 },
8787 { /* 586 */
8788 /* type PARROT_INLINE_OP, */
8789 "inspect",
8790 "inspect_p_p_s",
8791 "Parrot_inspect_p_p_s",
8792 /* "", body */
8793 0,
8794 4,
8795 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
8796 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8797 { 0, 0, 0 },
8798 &core_op_lib
8799 },
8800 { /* 587 */
8801 /* type PARROT_INLINE_OP, */
8802 "inspect",
8803 "inspect_p_pc_s",
8804 "Parrot_inspect_p_pc_s",
8805 /* "", body */
8806 0,
8807 4,
8808 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
8809 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8810 { 0, 0, 0 },
8811 &core_op_lib
8812 },
8813 { /* 588 */
8814 /* type PARROT_INLINE_OP, */
8815 "inspect",
8816 "inspect_p_p_sc",
8817 "Parrot_inspect_p_p_sc",
8818 /* "", body */
8819 0,
8820 4,
8821 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
8822 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8823 { 0, 0, 0 },
8824 &core_op_lib
8825 },
8826 { /* 589 */
8827 /* type PARROT_INLINE_OP, */
8828 "inspect",
8829 "inspect_p_pc_sc",
8830 "Parrot_inspect_p_pc_sc",
8831 /* "", body */
8832 0,
8833 4,
8834 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
8835 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8836 { 0, 0, 0 },
8837 &core_op_lib
8838 },
8839 { /* 590 */
8840 /* type PARROT_FUNCTION_OP, */
8841 "new",
8842 "new_p_s",
8843 "Parrot_new_p_s",
8844 /* "", body */
8845 0,
8846 3,
8847 { PARROT_ARG_P, PARROT_ARG_S },
8848 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8849 { 0, 0 },
8850 &core_op_lib
8851 },
8852 { /* 591 */
8853 /* type PARROT_FUNCTION_OP, */
8854 "new",
8855 "new_p_sc",
8856 "Parrot_new_p_sc",
8857 /* "", body */
8858 0,
8859 3,
8860 { PARROT_ARG_P, PARROT_ARG_SC },
8861 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8862 { 0, 0 },
8863 &core_op_lib
8864 },
8865 { /* 592 */
8866 /* type PARROT_FUNCTION_OP, */
8867 "new",
8868 "new_p_s_p",
8869 "Parrot_new_p_s_p",
8870 /* "", body */
8871 0,
8872 4,
8873 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
8874 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8875 { 0, 0, 0 },
8876 &core_op_lib
8877 },
8878 { /* 593 */
8879 /* type PARROT_FUNCTION_OP, */
8880 "new",
8881 "new_p_sc_p",
8882 "Parrot_new_p_sc_p",
8883 /* "", body */
8884 0,
8885 4,
8886 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
8887 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8888 { 0, 0, 0 },
8889 &core_op_lib
8890 },
8891 { /* 594 */
8892 /* type PARROT_FUNCTION_OP, */
8893 "new",
8894 "new_p_s_pc",
8895 "Parrot_new_p_s_pc",
8896 /* "", body */
8897 0,
8898 4,
8899 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
8900 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8901 { 0, 0, 0 },
8902 &core_op_lib
8903 },
8904 { /* 595 */
8905 /* type PARROT_FUNCTION_OP, */
8906 "new",
8907 "new_p_sc_pc",
8908 "Parrot_new_p_sc_pc",
8909 /* "", body */
8910 0,
8911 4,
8912 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
8913 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8914 { 0, 0, 0 },
8915 &core_op_lib
8916 },
8917 { /* 596 */
8918 /* type PARROT_INLINE_OP, */
8919 "new",
8920 "new_p_p",
8921 "Parrot_new_p_p",
8922 /* "", body */
8923 0,
8924 3,
8925 { PARROT_ARG_P, PARROT_ARG_P },
8926 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8927 { 0, 0 },
8928 &core_op_lib
8929 },
8930 { /* 597 */
8931 /* type PARROT_INLINE_OP, */
8932 "new",
8933 "new_p_pc",
8934 "Parrot_new_p_pc",
8935 /* "", body */
8936 0,
8937 3,
8938 { PARROT_ARG_P, PARROT_ARG_PC },
8939 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
8940 { 0, 0 },
8941 &core_op_lib
8942 },
8943 { /* 598 */
8944 /* type PARROT_FUNCTION_OP, */
8945 "new",
8946 "new_p_p_p",
8947 "Parrot_new_p_p_p",
8948 /* "", body */
8949 0,
8950 4,
8951 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
8952 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8953 { 0, 0, 0 },
8954 &core_op_lib
8955 },
8956 { /* 599 */
8957 /* type PARROT_FUNCTION_OP, */
8958 "new",
8959 "new_p_pc_p",
8960 "Parrot_new_p_pc_p",
8961 /* "", body */
8962 0,
8963 4,
8964 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
8965 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8966 { 0, 0, 0 },
8967 &core_op_lib
8968 },
8969 { /* 600 */
8970 /* type PARROT_FUNCTION_OP, */
8971 "new",
8972 "new_p_p_pc",
8973 "Parrot_new_p_p_pc",
8974 /* "", body */
8975 0,
8976 4,
8977 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
8978 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8979 { 0, 0, 0 },
8980 &core_op_lib
8981 },
8982 { /* 601 */
8983 /* type PARROT_FUNCTION_OP, */
8984 "new",
8985 "new_p_pc_pc",
8986 "Parrot_new_p_pc_pc",
8987 /* "", body */
8988 0,
8989 4,
8990 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
8991 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
8992 { 0, 0, 0 },
8993 &core_op_lib
8994 },
8995 { /* 602 */
8996 /* type PARROT_FUNCTION_OP, */
8997 "root_new",
8998 "root_new_p_p",
8999 "Parrot_root_new_p_p",
9000 /* "", body */
9001 0,
9002 3,
9003 { PARROT_ARG_P, PARROT_ARG_P },
9004 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9005 { 0, 0 },
9006 &core_op_lib
9007 },
9008 { /* 603 */
9009 /* type PARROT_FUNCTION_OP, */
9010 "root_new",
9011 "root_new_p_pc",
9012 "Parrot_root_new_p_pc",
9013 /* "", body */
9014 0,
9015 3,
9016 { PARROT_ARG_P, PARROT_ARG_PC },
9017 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9018 { 0, 0 },
9019 &core_op_lib
9020 },
9021 { /* 604 */
9022 /* type PARROT_FUNCTION_OP, */
9023 "root_new",
9024 "root_new_p_p_p",
9025 "Parrot_root_new_p_p_p",
9026 /* "", body */
9027 0,
9028 4,
9029 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
9030 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9031 { 0, 0, 0 },
9032 &core_op_lib
9033 },
9034 { /* 605 */
9035 /* type PARROT_FUNCTION_OP, */
9036 "root_new",
9037 "root_new_p_pc_p",
9038 "Parrot_root_new_p_pc_p",
9039 /* "", body */
9040 0,
9041 4,
9042 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
9043 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9044 { 0, 0, 0 },
9045 &core_op_lib
9046 },
9047 { /* 606 */
9048 /* type PARROT_FUNCTION_OP, */
9049 "root_new",
9050 "root_new_p_p_pc",
9051 "Parrot_root_new_p_p_pc",
9052 /* "", body */
9053 0,
9054 4,
9055 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
9056 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9057 { 0, 0, 0 },
9058 &core_op_lib
9059 },
9060 { /* 607 */
9061 /* type PARROT_FUNCTION_OP, */
9062 "root_new",
9063 "root_new_p_pc_pc",
9064 "Parrot_root_new_p_pc_pc",
9065 /* "", body */
9066 0,
9067 4,
9068 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
9069 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9070 { 0, 0, 0 },
9071 &core_op_lib
9072 },
9073 { /* 608 */
9074 /* type PARROT_INLINE_OP, */
9075 "typeof",
9076 "typeof_s_p",
9077 "Parrot_typeof_s_p",
9078 /* "", body */
9079 0,
9080 3,
9081 { PARROT_ARG_S, PARROT_ARG_P },
9082 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9083 { 0, 0 },
9084 &core_op_lib
9085 },
9086 { /* 609 */
9087 /* type PARROT_INLINE_OP, */
9088 "typeof",
9089 "typeof_p_p",
9090 "Parrot_typeof_p_p",
9091 /* "", body */
9092 0,
9093 3,
9094 { PARROT_ARG_P, PARROT_ARG_P },
9095 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9096 { 0, 0 },
9097 &core_op_lib
9098 },
9099 { /* 610 */
9100 /* type PARROT_FUNCTION_OP, */
9101 "get_repr",
9102 "get_repr_s_p",
9103 "Parrot_get_repr_s_p",
9104 /* "", body */
9105 0,
9106 3,
9107 { PARROT_ARG_S, PARROT_ARG_P },
9108 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9109 { 0, 0 },
9110 &core_op_lib
9111 },
9112 { /* 611 */
9113 /* type PARROT_FUNCTION_OP, */
9114 "find_method",
9115 "find_method_p_p_s",
9116 "Parrot_find_method_p_p_s",
9117 /* "", body */
9118 0,
9119 4,
9120 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
9121 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9122 { 0, 0, 0 },
9123 &core_op_lib
9124 },
9125 { /* 612 */
9126 /* type PARROT_FUNCTION_OP, */
9127 "find_method",
9128 "find_method_p_p_sc",
9129 "Parrot_find_method_p_p_sc",
9130 /* "", body */
9131 0,
9132 4,
9133 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
9134 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9135 { 0, 0, 0 },
9136 &core_op_lib
9137 },
9138 { /* 613 */
9139 /* type PARROT_INLINE_OP, */
9140 "defined",
9141 "defined_i_p",
9142 "Parrot_defined_i_p",
9143 /* "", body */
9144 0,
9145 3,
9146 { PARROT_ARG_I, PARROT_ARG_P },
9147 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9148 { 0, 0 },
9149 &core_op_lib
9150 },
9151 { /* 614 */
9152 /* type PARROT_INLINE_OP, */
9153 "defined",
9154 "defined_i_p_ki",
9155 "Parrot_defined_i_p_ki",
9156 /* "", body */
9157 0,
9158 4,
9159 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
9160 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9161 { 0, 0, 0 },
9162 &core_op_lib
9163 },
9164 { /* 615 */
9165 /* type PARROT_INLINE_OP, */
9166 "defined",
9167 "defined_i_p_kic",
9168 "Parrot_defined_i_p_kic",
9169 /* "", body */
9170 0,
9171 4,
9172 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
9173 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9174 { 0, 0, 0 },
9175 &core_op_lib
9176 },
9177 { /* 616 */
9178 /* type PARROT_INLINE_OP, */
9179 "defined",
9180 "defined_i_p_k",
9181 "Parrot_defined_i_p_k",
9182 /* "", body */
9183 0,
9184 4,
9185 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
9186 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9187 { 0, 0, 0 },
9188 &core_op_lib
9189 },
9190 { /* 617 */
9191 /* type PARROT_INLINE_OP, */
9192 "defined",
9193 "defined_i_p_kc",
9194 "Parrot_defined_i_p_kc",
9195 /* "", body */
9196 0,
9197 4,
9198 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
9199 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9200 { 0, 0, 0 },
9201 &core_op_lib
9202 },
9203 { /* 618 */
9204 /* type PARROT_INLINE_OP, */
9205 "exists",
9206 "exists_i_p_ki",
9207 "Parrot_exists_i_p_ki",
9208 /* "", body */
9209 0,
9210 4,
9211 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
9212 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9213 { 0, 0, 0 },
9214 &core_op_lib
9215 },
9216 { /* 619 */
9217 /* type PARROT_INLINE_OP, */
9218 "exists",
9219 "exists_i_p_kic",
9220 "Parrot_exists_i_p_kic",
9221 /* "", body */
9222 0,
9223 4,
9224 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
9225 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9226 { 0, 0, 0 },
9227 &core_op_lib
9228 },
9229 { /* 620 */
9230 /* type PARROT_INLINE_OP, */
9231 "exists",
9232 "exists_i_p_k",
9233 "Parrot_exists_i_p_k",
9234 /* "", body */
9235 0,
9236 4,
9237 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
9238 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9239 { 0, 0, 0 },
9240 &core_op_lib
9241 },
9242 { /* 621 */
9243 /* type PARROT_INLINE_OP, */
9244 "exists",
9245 "exists_i_p_kc",
9246 "Parrot_exists_i_p_kc",
9247 /* "", body */
9248 0,
9249 4,
9250 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
9251 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9252 { 0, 0, 0 },
9253 &core_op_lib
9254 },
9255 { /* 622 */
9256 /* type PARROT_INLINE_OP, */
9257 "delete",
9258 "delete_p_k",
9259 "Parrot_delete_p_k",
9260 /* "", body */
9261 0,
9262 3,
9263 { PARROT_ARG_P, PARROT_ARG_K },
9264 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9265 { 0, 0 },
9266 &core_op_lib
9267 },
9268 { /* 623 */
9269 /* type PARROT_INLINE_OP, */
9270 "delete",
9271 "delete_p_kc",
9272 "Parrot_delete_p_kc",
9273 /* "", body */
9274 0,
9275 3,
9276 { PARROT_ARG_P, PARROT_ARG_KC },
9277 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9278 { 0, 0 },
9279 &core_op_lib
9280 },
9281 { /* 624 */
9282 /* type PARROT_INLINE_OP, */
9283 "delete",
9284 "delete_p_ki",
9285 "Parrot_delete_p_ki",
9286 /* "", body */
9287 0,
9288 3,
9289 { PARROT_ARG_P, PARROT_ARG_KI },
9290 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9291 { 0, 0 },
9292 &core_op_lib
9293 },
9294 { /* 625 */
9295 /* type PARROT_INLINE_OP, */
9296 "delete",
9297 "delete_p_kic",
9298 "Parrot_delete_p_kic",
9299 /* "", body */
9300 0,
9301 3,
9302 { PARROT_ARG_P, PARROT_ARG_KIC },
9303 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9304 { 0, 0 },
9305 &core_op_lib
9306 },
9307 { /* 626 */
9308 /* type PARROT_INLINE_OP, */
9309 "elements",
9310 "elements_i_p",
9311 "Parrot_elements_i_p",
9312 /* "", body */
9313 0,
9314 3,
9315 { PARROT_ARG_I, PARROT_ARG_P },
9316 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9317 { 0, 0 },
9318 &core_op_lib
9319 },
9320 { /* 627 */
9321 /* type PARROT_INLINE_OP, */
9322 "push",
9323 "push_p_i",
9324 "Parrot_push_p_i",
9325 /* "", body */
9326 0,
9327 3,
9328 { PARROT_ARG_P, PARROT_ARG_I },
9329 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9330 { 0, 0 },
9331 &core_op_lib
9332 },
9333 { /* 628 */
9334 /* type PARROT_INLINE_OP, */
9335 "push",
9336 "push_p_ic",
9337 "Parrot_push_p_ic",
9338 /* "", body */
9339 0,
9340 3,
9341 { PARROT_ARG_P, PARROT_ARG_IC },
9342 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9343 { 0, 0 },
9344 &core_op_lib
9345 },
9346 { /* 629 */
9347 /* type PARROT_INLINE_OP, */
9348 "push",
9349 "push_p_n",
9350 "Parrot_push_p_n",
9351 /* "", body */
9352 0,
9353 3,
9354 { PARROT_ARG_P, PARROT_ARG_N },
9355 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9356 { 0, 0 },
9357 &core_op_lib
9358 },
9359 { /* 630 */
9360 /* type PARROT_INLINE_OP, */
9361 "push",
9362 "push_p_nc",
9363 "Parrot_push_p_nc",
9364 /* "", body */
9365 0,
9366 3,
9367 { PARROT_ARG_P, PARROT_ARG_NC },
9368 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9369 { 0, 0 },
9370 &core_op_lib
9371 },
9372 { /* 631 */
9373 /* type PARROT_INLINE_OP, */
9374 "push",
9375 "push_p_s",
9376 "Parrot_push_p_s",
9377 /* "", body */
9378 0,
9379 3,
9380 { PARROT_ARG_P, PARROT_ARG_S },
9381 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9382 { 0, 0 },
9383 &core_op_lib
9384 },
9385 { /* 632 */
9386 /* type PARROT_INLINE_OP, */
9387 "push",
9388 "push_p_sc",
9389 "Parrot_push_p_sc",
9390 /* "", body */
9391 0,
9392 3,
9393 { PARROT_ARG_P, PARROT_ARG_SC },
9394 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9395 { 0, 0 },
9396 &core_op_lib
9397 },
9398 { /* 633 */
9399 /* type PARROT_INLINE_OP, */
9400 "push",
9401 "push_p_p",
9402 "Parrot_push_p_p",
9403 /* "", body */
9404 0,
9405 3,
9406 { PARROT_ARG_P, PARROT_ARG_P },
9407 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9408 { 0, 0 },
9409 &core_op_lib
9410 },
9411 { /* 634 */
9412 /* type PARROT_INLINE_OP, */
9413 "pop",
9414 "pop_i_p",
9415 "Parrot_pop_i_p",
9416 /* "", body */
9417 0,
9418 3,
9419 { PARROT_ARG_I, PARROT_ARG_P },
9420 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9421 { 0, 0 },
9422 &core_op_lib
9423 },
9424 { /* 635 */
9425 /* type PARROT_INLINE_OP, */
9426 "pop",
9427 "pop_n_p",
9428 "Parrot_pop_n_p",
9429 /* "", body */
9430 0,
9431 3,
9432 { PARROT_ARG_N, PARROT_ARG_P },
9433 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9434 { 0, 0 },
9435 &core_op_lib
9436 },
9437 { /* 636 */
9438 /* type PARROT_INLINE_OP, */
9439 "pop",
9440 "pop_s_p",
9441 "Parrot_pop_s_p",
9442 /* "", body */
9443 0,
9444 3,
9445 { PARROT_ARG_S, PARROT_ARG_P },
9446 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9447 { 0, 0 },
9448 &core_op_lib
9449 },
9450 { /* 637 */
9451 /* type PARROT_INLINE_OP, */
9452 "pop",
9453 "pop_p_p",
9454 "Parrot_pop_p_p",
9455 /* "", body */
9456 0,
9457 3,
9458 { PARROT_ARG_P, PARROT_ARG_P },
9459 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9460 { 0, 0 },
9461 &core_op_lib
9462 },
9463 { /* 638 */
9464 /* type PARROT_INLINE_OP, */
9465 "unshift",
9466 "unshift_p_i",
9467 "Parrot_unshift_p_i",
9468 /* "", body */
9469 0,
9470 3,
9471 { PARROT_ARG_P, PARROT_ARG_I },
9472 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9473 { 0, 0 },
9474 &core_op_lib
9475 },
9476 { /* 639 */
9477 /* type PARROT_INLINE_OP, */
9478 "unshift",
9479 "unshift_p_ic",
9480 "Parrot_unshift_p_ic",
9481 /* "", body */
9482 0,
9483 3,
9484 { PARROT_ARG_P, PARROT_ARG_IC },
9485 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9486 { 0, 0 },
9487 &core_op_lib
9488 },
9489 { /* 640 */
9490 /* type PARROT_INLINE_OP, */
9491 "unshift",
9492 "unshift_p_n",
9493 "Parrot_unshift_p_n",
9494 /* "", body */
9495 0,
9496 3,
9497 { PARROT_ARG_P, PARROT_ARG_N },
9498 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9499 { 0, 0 },
9500 &core_op_lib
9501 },
9502 { /* 641 */
9503 /* type PARROT_INLINE_OP, */
9504 "unshift",
9505 "unshift_p_nc",
9506 "Parrot_unshift_p_nc",
9507 /* "", body */
9508 0,
9509 3,
9510 { PARROT_ARG_P, PARROT_ARG_NC },
9511 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9512 { 0, 0 },
9513 &core_op_lib
9514 },
9515 { /* 642 */
9516 /* type PARROT_INLINE_OP, */
9517 "unshift",
9518 "unshift_p_s",
9519 "Parrot_unshift_p_s",
9520 /* "", body */
9521 0,
9522 3,
9523 { PARROT_ARG_P, PARROT_ARG_S },
9524 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9525 { 0, 0 },
9526 &core_op_lib
9527 },
9528 { /* 643 */
9529 /* type PARROT_INLINE_OP, */
9530 "unshift",
9531 "unshift_p_sc",
9532 "Parrot_unshift_p_sc",
9533 /* "", body */
9534 0,
9535 3,
9536 { PARROT_ARG_P, PARROT_ARG_SC },
9537 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9538 { 0, 0 },
9539 &core_op_lib
9540 },
9541 { /* 644 */
9542 /* type PARROT_INLINE_OP, */
9543 "unshift",
9544 "unshift_p_p",
9545 "Parrot_unshift_p_p",
9546 /* "", body */
9547 0,
9548 3,
9549 { PARROT_ARG_P, PARROT_ARG_P },
9550 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9551 { 0, 0 },
9552 &core_op_lib
9553 },
9554 { /* 645 */
9555 /* type PARROT_INLINE_OP, */
9556 "shift",
9557 "shift_i_p",
9558 "Parrot_shift_i_p",
9559 /* "", body */
9560 0,
9561 3,
9562 { PARROT_ARG_I, PARROT_ARG_P },
9563 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9564 { 0, 0 },
9565 &core_op_lib
9566 },
9567 { /* 646 */
9568 /* type PARROT_INLINE_OP, */
9569 "shift",
9570 "shift_n_p",
9571 "Parrot_shift_n_p",
9572 /* "", body */
9573 0,
9574 3,
9575 { PARROT_ARG_N, PARROT_ARG_P },
9576 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9577 { 0, 0 },
9578 &core_op_lib
9579 },
9580 { /* 647 */
9581 /* type PARROT_INLINE_OP, */
9582 "shift",
9583 "shift_s_p",
9584 "Parrot_shift_s_p",
9585 /* "", body */
9586 0,
9587 3,
9588 { PARROT_ARG_S, PARROT_ARG_P },
9589 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9590 { 0, 0 },
9591 &core_op_lib
9592 },
9593 { /* 648 */
9594 /* type PARROT_INLINE_OP, */
9595 "shift",
9596 "shift_p_p",
9597 "Parrot_shift_p_p",
9598 /* "", body */
9599 0,
9600 3,
9601 { PARROT_ARG_P, PARROT_ARG_P },
9602 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9603 { 0, 0 },
9604 &core_op_lib
9605 },
9606 { /* 649 */
9607 /* type PARROT_INLINE_OP, */
9608 "splice",
9609 "splice_p_p_i_i",
9610 "Parrot_splice_p_p_i_i",
9611 /* "", body */
9612 0,
9613 5,
9614 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
9615 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9616 { 0, 0, 0, 0 },
9617 &core_op_lib
9618 },
9619 { /* 650 */
9620 /* type PARROT_INLINE_OP, */
9621 "splice",
9622 "splice_p_p_ic_i",
9623 "Parrot_splice_p_p_ic_i",
9624 /* "", body */
9625 0,
9626 5,
9627 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
9628 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9629 { 0, 0, 0, 0 },
9630 &core_op_lib
9631 },
9632 { /* 651 */
9633 /* type PARROT_INLINE_OP, */
9634 "splice",
9635 "splice_p_p_i_ic",
9636 "Parrot_splice_p_p_i_ic",
9637 /* "", body */
9638 0,
9639 5,
9640 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
9641 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9642 { 0, 0, 0, 0 },
9643 &core_op_lib
9644 },
9645 { /* 652 */
9646 /* type PARROT_INLINE_OP, */
9647 "splice",
9648 "splice_p_p_ic_ic",
9649 "Parrot_splice_p_p_ic_ic",
9650 /* "", body */
9651 0,
9652 5,
9653 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
9654 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9655 { 0, 0, 0, 0 },
9656 &core_op_lib
9657 },
9658 { /* 653 */
9659 /* type PARROT_FUNCTION_OP, */
9660 "setprop",
9661 "setprop_p_s_p",
9662 "Parrot_setprop_p_s_p",
9663 /* "", body */
9664 0,
9665 4,
9666 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
9667 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9668 { 0, 0, 0 },
9669 &core_op_lib
9670 },
9671 { /* 654 */
9672 /* type PARROT_FUNCTION_OP, */
9673 "setprop",
9674 "setprop_p_sc_p",
9675 "Parrot_setprop_p_sc_p",
9676 /* "", body */
9677 0,
9678 4,
9679 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
9680 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9681 { 0, 0, 0 },
9682 &core_op_lib
9683 },
9684 { /* 655 */
9685 /* type PARROT_FUNCTION_OP, */
9686 "getprop",
9687 "getprop_p_s_p",
9688 "Parrot_getprop_p_s_p",
9689 /* "", body */
9690 0,
9691 4,
9692 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
9693 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9694 { 0, 0, 0 },
9695 &core_op_lib
9696 },
9697 { /* 656 */
9698 /* type PARROT_FUNCTION_OP, */
9699 "getprop",
9700 "getprop_p_sc_p",
9701 "Parrot_getprop_p_sc_p",
9702 /* "", body */
9703 0,
9704 4,
9705 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
9706 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9707 { 0, 0, 0 },
9708 &core_op_lib
9709 },
9710 { /* 657 */
9711 /* type PARROT_FUNCTION_OP, */
9712 "delprop",
9713 "delprop_p_s",
9714 "Parrot_delprop_p_s",
9715 /* "", body */
9716 0,
9717 3,
9718 { PARROT_ARG_P, PARROT_ARG_S },
9719 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9720 { 0, 0 },
9721 &core_op_lib
9722 },
9723 { /* 658 */
9724 /* type PARROT_FUNCTION_OP, */
9725 "delprop",
9726 "delprop_p_sc",
9727 "Parrot_delprop_p_sc",
9728 /* "", body */
9729 0,
9730 3,
9731 { PARROT_ARG_P, PARROT_ARG_SC },
9732 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9733 { 0, 0 },
9734 &core_op_lib
9735 },
9736 { /* 659 */
9737 /* type PARROT_FUNCTION_OP, */
9738 "prophash",
9739 "prophash_p_p",
9740 "Parrot_prophash_p_p",
9741 /* "", body */
9742 0,
9743 3,
9744 { PARROT_ARG_P, PARROT_ARG_P },
9745 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9746 { 0, 0 },
9747 &core_op_lib
9748 },
9749 { /* 660 */
9750 /* type PARROT_FUNCTION_OP, */
9751 "freeze",
9752 "freeze_s_p",
9753 "Parrot_freeze_s_p",
9754 /* "", body */
9755 0,
9756 3,
9757 { PARROT_ARG_S, PARROT_ARG_P },
9758 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9759 { 0, 0 },
9760 &core_op_lib
9761 },
9762 { /* 661 */
9763 /* type PARROT_FUNCTION_OP, */
9764 "thaw",
9765 "thaw_p_s",
9766 "Parrot_thaw_p_s",
9767 /* "", body */
9768 0,
9769 3,
9770 { PARROT_ARG_P, PARROT_ARG_S },
9771 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9772 { 0, 0 },
9773 &core_op_lib
9774 },
9775 { /* 662 */
9776 /* type PARROT_FUNCTION_OP, */
9777 "thaw",
9778 "thaw_p_sc",
9779 "Parrot_thaw_p_sc",
9780 /* "", body */
9781 0,
9782 3,
9783 { PARROT_ARG_P, PARROT_ARG_SC },
9784 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9785 { 0, 0 },
9786 &core_op_lib
9787 },
9788 { /* 663 */
9789 /* type PARROT_INLINE_OP, */
9790 "add_multi",
9791 "add_multi_s_s_p",
9792 "Parrot_add_multi_s_s_p",
9793 /* "", body */
9794 0,
9795 4,
9796 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
9797 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9798 { 0, 0, 0 },
9799 &core_op_lib
9800 },
9801 { /* 664 */
9802 /* type PARROT_INLINE_OP, */
9803 "add_multi",
9804 "add_multi_sc_s_p",
9805 "Parrot_add_multi_sc_s_p",
9806 /* "", body */
9807 0,
9808 4,
9809 { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_P },
9810 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9811 { 0, 0, 0 },
9812 &core_op_lib
9813 },
9814 { /* 665 */
9815 /* type PARROT_INLINE_OP, */
9816 "add_multi",
9817 "add_multi_s_sc_p",
9818 "Parrot_add_multi_s_sc_p",
9819 /* "", body */
9820 0,
9821 4,
9822 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
9823 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9824 { 0, 0, 0 },
9825 &core_op_lib
9826 },
9827 { /* 666 */
9828 /* type PARROT_INLINE_OP, */
9829 "add_multi",
9830 "add_multi_sc_sc_p",
9831 "Parrot_add_multi_sc_sc_p",
9832 /* "", body */
9833 0,
9834 4,
9835 { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_P },
9836 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9837 { 0, 0, 0 },
9838 &core_op_lib
9839 },
9840 { /* 667 */
9841 /* type PARROT_INLINE_OP, */
9842 "find_multi",
9843 "find_multi_p_s_s",
9844 "Parrot_find_multi_p_s_s",
9845 /* "", body */
9846 0,
9847 4,
9848 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
9849 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9850 { 0, 0, 0 },
9851 &core_op_lib
9852 },
9853 { /* 668 */
9854 /* type PARROT_INLINE_OP, */
9855 "find_multi",
9856 "find_multi_p_sc_s",
9857 "Parrot_find_multi_p_sc_s",
9858 /* "", body */
9859 0,
9860 4,
9861 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
9862 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9863 { 0, 0, 0 },
9864 &core_op_lib
9865 },
9866 { /* 669 */
9867 /* type PARROT_INLINE_OP, */
9868 "find_multi",
9869 "find_multi_p_s_sc",
9870 "Parrot_find_multi_p_s_sc",
9871 /* "", body */
9872 0,
9873 4,
9874 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
9875 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9876 { 0, 0, 0 },
9877 &core_op_lib
9878 },
9879 { /* 670 */
9880 /* type PARROT_INLINE_OP, */
9881 "find_multi",
9882 "find_multi_p_sc_sc",
9883 "Parrot_find_multi_p_sc_sc",
9884 /* "", body */
9885 0,
9886 4,
9887 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
9888 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
9889 { 0, 0, 0 },
9890 &core_op_lib
9891 },
9892 { /* 671 */
9893 /* type PARROT_FUNCTION_OP, */
9894 "register",
9895 "register_p",
9896 "Parrot_register_p",
9897 /* "", body */
9898 0,
9899 2,
9900 { PARROT_ARG_P },
9901 { PARROT_ARGDIR_IN },
9902 { 0 },
9903 &core_op_lib
9904 },
9905 { /* 672 */
9906 /* type PARROT_FUNCTION_OP, */
9907 "unregister",
9908 "unregister_p",
9909 "Parrot_unregister_p",
9910 /* "", body */
9911 0,
9912 2,
9913 { PARROT_ARG_P },
9914 { PARROT_ARGDIR_IN },
9915 { 0 },
9916 &core_op_lib
9917 },
9918 { /* 673 */
9919 /* type PARROT_FUNCTION_OP, */
9920 "box",
9921 "box_p_i",
9922 "Parrot_box_p_i",
9923 /* "", body */
9924 0,
9925 3,
9926 { PARROT_ARG_P, PARROT_ARG_I },
9927 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9928 { 0, 0 },
9929 &core_op_lib
9930 },
9931 { /* 674 */
9932 /* type PARROT_FUNCTION_OP, */
9933 "box",
9934 "box_p_ic",
9935 "Parrot_box_p_ic",
9936 /* "", body */
9937 0,
9938 3,
9939 { PARROT_ARG_P, PARROT_ARG_IC },
9940 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9941 { 0, 0 },
9942 &core_op_lib
9943 },
9944 { /* 675 */
9945 /* type PARROT_FUNCTION_OP, */
9946 "box",
9947 "box_p_n",
9948 "Parrot_box_p_n",
9949 /* "", body */
9950 0,
9951 3,
9952 { PARROT_ARG_P, PARROT_ARG_N },
9953 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9954 { 0, 0 },
9955 &core_op_lib
9956 },
9957 { /* 676 */
9958 /* type PARROT_FUNCTION_OP, */
9959 "box",
9960 "box_p_nc",
9961 "Parrot_box_p_nc",
9962 /* "", body */
9963 0,
9964 3,
9965 { PARROT_ARG_P, PARROT_ARG_NC },
9966 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9967 { 0, 0 },
9968 &core_op_lib
9969 },
9970 { /* 677 */
9971 /* type PARROT_FUNCTION_OP, */
9972 "box",
9973 "box_p_s",
9974 "Parrot_box_p_s",
9975 /* "", body */
9976 0,
9977 3,
9978 { PARROT_ARG_P, PARROT_ARG_S },
9979 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9980 { 0, 0 },
9981 &core_op_lib
9982 },
9983 { /* 678 */
9984 /* type PARROT_FUNCTION_OP, */
9985 "box",
9986 "box_p_sc",
9987 "Parrot_box_p_sc",
9988 /* "", body */
9989 0,
9990 3,
9991 { PARROT_ARG_P, PARROT_ARG_SC },
9992 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
9993 { 0, 0 },
9994 &core_op_lib
9995 },
9996 { /* 679 */
9997 /* type PARROT_INLINE_OP, */
9998 "iter",
9999 "iter_p_p",
10000 "Parrot_iter_p_p",
10001 /* "", body */
10002 0,
10003 3,
10004 { PARROT_ARG_P, PARROT_ARG_P },
10005 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10006 { 0, 0 },
10007 &core_op_lib
10008 },
10009 { /* 680 */
10010 /* type PARROT_INLINE_OP, */
10011 "morph",
10012 "morph_p_p",
10013 "Parrot_morph_p_p",
10014 /* "", body */
10015 0,
10016 3,
10017 { PARROT_ARG_P, PARROT_ARG_P },
10018 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10019 { 0, 0 },
10020 &core_op_lib
10021 },
10022 { /* 681 */
10023 /* type PARROT_INLINE_OP, */
10024 "morph",
10025 "morph_p_pc",
10026 "Parrot_morph_p_pc",
10027 /* "", body */
10028 0,
10029 3,
10030 { PARROT_ARG_P, PARROT_ARG_PC },
10031 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10032 { 0, 0 },
10033 &core_op_lib
10034 },
10035 { /* 682 */
10036 /* type PARROT_INLINE_OP, */
10037 "clone",
10038 "clone_s_s",
10039 "Parrot_clone_s_s",
10040 /* "", body */
10041 0,
10042 3,
10043 { PARROT_ARG_S, PARROT_ARG_S },
10044 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10045 { 0, 0 },
10046 &core_op_lib
10047 },
10048 { /* 683 */
10049 /* type PARROT_INLINE_OP, */
10050 "clone",
10051 "clone_s_sc",
10052 "Parrot_clone_s_sc",
10053 /* "", body */
10054 0,
10055 3,
10056 { PARROT_ARG_S, PARROT_ARG_SC },
10057 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10058 { 0, 0 },
10059 &core_op_lib
10060 },
10061 { /* 684 */
10062 /* type PARROT_INLINE_OP, */
10063 "set",
10064 "set_i_i",
10065 "Parrot_set_i_i",
10066 /* "", body */
10067 0,
10068 3,
10069 { PARROT_ARG_I, PARROT_ARG_I },
10070 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10071 { 0, 0 },
10072 &core_op_lib
10073 },
10074 { /* 685 */
10075 /* type PARROT_INLINE_OP, */
10076 "set",
10077 "set_i_ic",
10078 "Parrot_set_i_ic",
10079 /* "", body */
10080 0,
10081 3,
10082 { PARROT_ARG_I, PARROT_ARG_IC },
10083 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10084 { 0, 0 },
10085 &core_op_lib
10086 },
10087 { /* 686 */
10088 /* type PARROT_INLINE_OP, */
10089 "set",
10090 "set_i_n",
10091 "Parrot_set_i_n",
10092 /* "", body */
10093 0,
10094 3,
10095 { PARROT_ARG_I, PARROT_ARG_N },
10096 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10097 { 0, 0 },
10098 &core_op_lib
10099 },
10100 { /* 687 */
10101 /* type PARROT_INLINE_OP, */
10102 "set",
10103 "set_i_nc",
10104 "Parrot_set_i_nc",
10105 /* "", body */
10106 0,
10107 3,
10108 { PARROT_ARG_I, PARROT_ARG_NC },
10109 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10110 { 0, 0 },
10111 &core_op_lib
10112 },
10113 { /* 688 */
10114 /* type PARROT_INLINE_OP, */
10115 "set",
10116 "set_i_s",
10117 "Parrot_set_i_s",
10118 /* "", body */
10119 0,
10120 3,
10121 { PARROT_ARG_I, PARROT_ARG_S },
10122 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10123 { 0, 0 },
10124 &core_op_lib
10125 },
10126 { /* 689 */
10127 /* type PARROT_INLINE_OP, */
10128 "set",
10129 "set_i_sc",
10130 "Parrot_set_i_sc",
10131 /* "", body */
10132 0,
10133 3,
10134 { PARROT_ARG_I, PARROT_ARG_SC },
10135 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10136 { 0, 0 },
10137 &core_op_lib
10138 },
10139 { /* 690 */
10140 /* type PARROT_INLINE_OP, */
10141 "set",
10142 "set_n_n",
10143 "Parrot_set_n_n",
10144 /* "", body */
10145 0,
10146 3,
10147 { PARROT_ARG_N, PARROT_ARG_N },
10148 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10149 { 0, 0 },
10150 &core_op_lib
10151 },
10152 { /* 691 */
10153 /* type PARROT_INLINE_OP, */
10154 "set",
10155 "set_n_nc",
10156 "Parrot_set_n_nc",
10157 /* "", body */
10158 0,
10159 3,
10160 { PARROT_ARG_N, PARROT_ARG_NC },
10161 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10162 { 0, 0 },
10163 &core_op_lib
10164 },
10165 { /* 692 */
10166 /* type PARROT_INLINE_OP, */
10167 "set",
10168 "set_n_i",
10169 "Parrot_set_n_i",
10170 /* "", body */
10171 0,
10172 3,
10173 { PARROT_ARG_N, PARROT_ARG_I },
10174 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10175 { 0, 0 },
10176 &core_op_lib
10177 },
10178 { /* 693 */
10179 /* type PARROT_INLINE_OP, */
10180 "set",
10181 "set_n_ic",
10182 "Parrot_set_n_ic",
10183 /* "", body */
10184 0,
10185 3,
10186 { PARROT_ARG_N, PARROT_ARG_IC },
10187 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10188 { 0, 0 },
10189 &core_op_lib
10190 },
10191 { /* 694 */
10192 /* type PARROT_INLINE_OP, */
10193 "set",
10194 "set_n_s",
10195 "Parrot_set_n_s",
10196 /* "", body */
10197 0,
10198 3,
10199 { PARROT_ARG_N, PARROT_ARG_S },
10200 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10201 { 0, 0 },
10202 &core_op_lib
10203 },
10204 { /* 695 */
10205 /* type PARROT_INLINE_OP, */
10206 "set",
10207 "set_n_sc",
10208 "Parrot_set_n_sc",
10209 /* "", body */
10210 0,
10211 3,
10212 { PARROT_ARG_N, PARROT_ARG_SC },
10213 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10214 { 0, 0 },
10215 &core_op_lib
10216 },
10217 { /* 696 */
10218 /* type PARROT_INLINE_OP, */
10219 "set",
10220 "set_n_p",
10221 "Parrot_set_n_p",
10222 /* "", body */
10223 0,
10224 3,
10225 { PARROT_ARG_N, PARROT_ARG_P },
10226 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10227 { 0, 0 },
10228 &core_op_lib
10229 },
10230 { /* 697 */
10231 /* type PARROT_INLINE_OP, */
10232 "set",
10233 "set_s_p",
10234 "Parrot_set_s_p",
10235 /* "", body */
10236 0,
10237 3,
10238 { PARROT_ARG_S, PARROT_ARG_P },
10239 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10240 { 0, 0 },
10241 &core_op_lib
10242 },
10243 { /* 698 */
10244 /* type PARROT_INLINE_OP, */
10245 "set",
10246 "set_s_s",
10247 "Parrot_set_s_s",
10248 /* "", body */
10249 0,
10250 3,
10251 { PARROT_ARG_S, PARROT_ARG_S },
10252 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10253 { 0, 0 },
10254 &core_op_lib
10255 },
10256 { /* 699 */
10257 /* type PARROT_INLINE_OP, */
10258 "set",
10259 "set_s_sc",
10260 "Parrot_set_s_sc",
10261 /* "", body */
10262 0,
10263 3,
10264 { PARROT_ARG_S, PARROT_ARG_SC },
10265 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10266 { 0, 0 },
10267 &core_op_lib
10268 },
10269 { /* 700 */
10270 /* type PARROT_INLINE_OP, */
10271 "set",
10272 "set_s_i",
10273 "Parrot_set_s_i",
10274 /* "", body */
10275 0,
10276 3,
10277 { PARROT_ARG_S, PARROT_ARG_I },
10278 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10279 { 0, 0 },
10280 &core_op_lib
10281 },
10282 { /* 701 */
10283 /* type PARROT_INLINE_OP, */
10284 "set",
10285 "set_s_ic",
10286 "Parrot_set_s_ic",
10287 /* "", body */
10288 0,
10289 3,
10290 { PARROT_ARG_S, PARROT_ARG_IC },
10291 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10292 { 0, 0 },
10293 &core_op_lib
10294 },
10295 { /* 702 */
10296 /* type PARROT_INLINE_OP, */
10297 "set",
10298 "set_s_n",
10299 "Parrot_set_s_n",
10300 /* "", body */
10301 0,
10302 3,
10303 { PARROT_ARG_S, PARROT_ARG_N },
10304 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10305 { 0, 0 },
10306 &core_op_lib
10307 },
10308 { /* 703 */
10309 /* type PARROT_INLINE_OP, */
10310 "set",
10311 "set_s_nc",
10312 "Parrot_set_s_nc",
10313 /* "", body */
10314 0,
10315 3,
10316 { PARROT_ARG_S, PARROT_ARG_NC },
10317 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10318 { 0, 0 },
10319 &core_op_lib
10320 },
10321 { /* 704 */
10322 /* type PARROT_INLINE_OP, */
10323 "set",
10324 "set_p_pc",
10325 "Parrot_set_p_pc",
10326 /* "", body */
10327 0,
10328 3,
10329 { PARROT_ARG_P, PARROT_ARG_PC },
10330 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10331 { 0, 0 },
10332 &core_op_lib
10333 },
10334 { /* 705 */
10335 /* type PARROT_INLINE_OP, */
10336 "set",
10337 "set_p_p",
10338 "Parrot_set_p_p",
10339 /* "", body */
10340 0,
10341 3,
10342 { PARROT_ARG_P, PARROT_ARG_P },
10343 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10344 { 0, 0 },
10345 &core_op_lib
10346 },
10347 { /* 706 */
10348 /* type PARROT_INLINE_OP, */
10349 "set",
10350 "set_p_i",
10351 "Parrot_set_p_i",
10352 /* "", body */
10353 0,
10354 3,
10355 { PARROT_ARG_P, PARROT_ARG_I },
10356 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10357 { 0, 0 },
10358 &core_op_lib
10359 },
10360 { /* 707 */
10361 /* type PARROT_INLINE_OP, */
10362 "set",
10363 "set_p_ic",
10364 "Parrot_set_p_ic",
10365 /* "", body */
10366 0,
10367 3,
10368 { PARROT_ARG_P, PARROT_ARG_IC },
10369 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10370 { 0, 0 },
10371 &core_op_lib
10372 },
10373 { /* 708 */
10374 /* type PARROT_INLINE_OP, */
10375 "set",
10376 "set_p_n",
10377 "Parrot_set_p_n",
10378 /* "", body */
10379 0,
10380 3,
10381 { PARROT_ARG_P, PARROT_ARG_N },
10382 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10383 { 0, 0 },
10384 &core_op_lib
10385 },
10386 { /* 709 */
10387 /* type PARROT_INLINE_OP, */
10388 "set",
10389 "set_p_nc",
10390 "Parrot_set_p_nc",
10391 /* "", body */
10392 0,
10393 3,
10394 { PARROT_ARG_P, PARROT_ARG_NC },
10395 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10396 { 0, 0 },
10397 &core_op_lib
10398 },
10399 { /* 710 */
10400 /* type PARROT_INLINE_OP, */
10401 "set",
10402 "set_p_s",
10403 "Parrot_set_p_s",
10404 /* "", body */
10405 0,
10406 3,
10407 { PARROT_ARG_P, PARROT_ARG_S },
10408 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10409 { 0, 0 },
10410 &core_op_lib
10411 },
10412 { /* 711 */
10413 /* type PARROT_INLINE_OP, */
10414 "set",
10415 "set_p_sc",
10416 "Parrot_set_p_sc",
10417 /* "", body */
10418 0,
10419 3,
10420 { PARROT_ARG_P, PARROT_ARG_SC },
10421 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10422 { 0, 0 },
10423 &core_op_lib
10424 },
10425 { /* 712 */
10426 /* type PARROT_INLINE_OP, */
10427 "set",
10428 "set_i_p",
10429 "Parrot_set_i_p",
10430 /* "", body */
10431 0,
10432 3,
10433 { PARROT_ARG_I, PARROT_ARG_P },
10434 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10435 { 0, 0 },
10436 &core_op_lib
10437 },
10438 { /* 713 */
10439 /* type PARROT_INLINE_OP, */
10440 "assign",
10441 "assign_p_p",
10442 "Parrot_assign_p_p",
10443 /* "", body */
10444 0,
10445 3,
10446 { PARROT_ARG_P, PARROT_ARG_P },
10447 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10448 { 0, 0 },
10449 &core_op_lib
10450 },
10451 { /* 714 */
10452 /* type PARROT_INLINE_OP, */
10453 "assign",
10454 "assign_p_i",
10455 "Parrot_assign_p_i",
10456 /* "", body */
10457 0,
10458 3,
10459 { PARROT_ARG_P, PARROT_ARG_I },
10460 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10461 { 0, 0 },
10462 &core_op_lib
10463 },
10464 { /* 715 */
10465 /* type PARROT_INLINE_OP, */
10466 "assign",
10467 "assign_p_ic",
10468 "Parrot_assign_p_ic",
10469 /* "", body */
10470 0,
10471 3,
10472 { PARROT_ARG_P, PARROT_ARG_IC },
10473 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10474 { 0, 0 },
10475 &core_op_lib
10476 },
10477 { /* 716 */
10478 /* type PARROT_INLINE_OP, */
10479 "assign",
10480 "assign_p_n",
10481 "Parrot_assign_p_n",
10482 /* "", body */
10483 0,
10484 3,
10485 { PARROT_ARG_P, PARROT_ARG_N },
10486 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10487 { 0, 0 },
10488 &core_op_lib
10489 },
10490 { /* 717 */
10491 /* type PARROT_INLINE_OP, */
10492 "assign",
10493 "assign_p_nc",
10494 "Parrot_assign_p_nc",
10495 /* "", body */
10496 0,
10497 3,
10498 { PARROT_ARG_P, PARROT_ARG_NC },
10499 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10500 { 0, 0 },
10501 &core_op_lib
10502 },
10503 { /* 718 */
10504 /* type PARROT_INLINE_OP, */
10505 "assign",
10506 "assign_p_s",
10507 "Parrot_assign_p_s",
10508 /* "", body */
10509 0,
10510 3,
10511 { PARROT_ARG_P, PARROT_ARG_S },
10512 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10513 { 0, 0 },
10514 &core_op_lib
10515 },
10516 { /* 719 */
10517 /* type PARROT_INLINE_OP, */
10518 "assign",
10519 "assign_p_sc",
10520 "Parrot_assign_p_sc",
10521 /* "", body */
10522 0,
10523 3,
10524 { PARROT_ARG_P, PARROT_ARG_SC },
10525 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10526 { 0, 0 },
10527 &core_op_lib
10528 },
10529 { /* 720 */
10530 /* type PARROT_INLINE_OP, */
10531 "assign",
10532 "assign_s_s",
10533 "Parrot_assign_s_s",
10534 /* "", body */
10535 0,
10536 3,
10537 { PARROT_ARG_S, PARROT_ARG_S },
10538 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10539 { 0, 0 },
10540 &core_op_lib
10541 },
10542 { /* 721 */
10543 /* type PARROT_INLINE_OP, */
10544 "assign",
10545 "assign_s_sc",
10546 "Parrot_assign_s_sc",
10547 /* "", body */
10548 0,
10549 3,
10550 { PARROT_ARG_S, PARROT_ARG_SC },
10551 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10552 { 0, 0 },
10553 &core_op_lib
10554 },
10555 { /* 722 */
10556 /* type PARROT_INLINE_OP, */
10557 "setref",
10558 "setref_p_p",
10559 "Parrot_setref_p_p",
10560 /* "", body */
10561 0,
10562 3,
10563 { PARROT_ARG_P, PARROT_ARG_P },
10564 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10565 { 0, 0 },
10566 &core_op_lib
10567 },
10568 { /* 723 */
10569 /* type PARROT_INLINE_OP, */
10570 "deref",
10571 "deref_p_p",
10572 "Parrot_deref_p_p",
10573 /* "", body */
10574 0,
10575 3,
10576 { PARROT_ARG_P, PARROT_ARG_P },
10577 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
10578 { 0, 0 },
10579 &core_op_lib
10580 },
10581 { /* 724 */
10582 /* type PARROT_INLINE_OP, */
10583 "set",
10584 "set_p_ki_i",
10585 "Parrot_set_p_ki_i",
10586 /* "", body */
10587 0,
10588 4,
10589 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_I },
10590 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10591 { 0, 0, 0 },
10592 &core_op_lib
10593 },
10594 { /* 725 */
10595 /* type PARROT_INLINE_OP, */
10596 "set",
10597 "set_p_kic_i",
10598 "Parrot_set_p_kic_i",
10599 /* "", body */
10600 0,
10601 4,
10602 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_I },
10603 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10604 { 0, 0, 0 },
10605 &core_op_lib
10606 },
10607 { /* 726 */
10608 /* type PARROT_INLINE_OP, */
10609 "set",
10610 "set_p_ki_ic",
10611 "Parrot_set_p_ki_ic",
10612 /* "", body */
10613 0,
10614 4,
10615 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_IC },
10616 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10617 { 0, 0, 0 },
10618 &core_op_lib
10619 },
10620 { /* 727 */
10621 /* type PARROT_INLINE_OP, */
10622 "set",
10623 "set_p_kic_ic",
10624 "Parrot_set_p_kic_ic",
10625 /* "", body */
10626 0,
10627 4,
10628 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_IC },
10629 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10630 { 0, 0, 0 },
10631 &core_op_lib
10632 },
10633 { /* 728 */
10634 /* type PARROT_INLINE_OP, */
10635 "set",
10636 "set_p_ki_n",
10637 "Parrot_set_p_ki_n",
10638 /* "", body */
10639 0,
10640 4,
10641 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_N },
10642 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10643 { 0, 0, 0 },
10644 &core_op_lib
10645 },
10646 { /* 729 */
10647 /* type PARROT_INLINE_OP, */
10648 "set",
10649 "set_p_kic_n",
10650 "Parrot_set_p_kic_n",
10651 /* "", body */
10652 0,
10653 4,
10654 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_N },
10655 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10656 { 0, 0, 0 },
10657 &core_op_lib
10658 },
10659 { /* 730 */
10660 /* type PARROT_INLINE_OP, */
10661 "set",
10662 "set_p_ki_nc",
10663 "Parrot_set_p_ki_nc",
10664 /* "", body */
10665 0,
10666 4,
10667 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_NC },
10668 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10669 { 0, 0, 0 },
10670 &core_op_lib
10671 },
10672 { /* 731 */
10673 /* type PARROT_INLINE_OP, */
10674 "set",
10675 "set_p_kic_nc",
10676 "Parrot_set_p_kic_nc",
10677 /* "", body */
10678 0,
10679 4,
10680 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_NC },
10681 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10682 { 0, 0, 0 },
10683 &core_op_lib
10684 },
10685 { /* 732 */
10686 /* type PARROT_INLINE_OP, */
10687 "set",
10688 "set_p_ki_s",
10689 "Parrot_set_p_ki_s",
10690 /* "", body */
10691 0,
10692 4,
10693 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_S },
10694 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10695 { 0, 0, 0 },
10696 &core_op_lib
10697 },
10698 { /* 733 */
10699 /* type PARROT_INLINE_OP, */
10700 "set",
10701 "set_p_kic_s",
10702 "Parrot_set_p_kic_s",
10703 /* "", body */
10704 0,
10705 4,
10706 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_S },
10707 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10708 { 0, 0, 0 },
10709 &core_op_lib
10710 },
10711 { /* 734 */
10712 /* type PARROT_INLINE_OP, */
10713 "set",
10714 "set_p_ki_sc",
10715 "Parrot_set_p_ki_sc",
10716 /* "", body */
10717 0,
10718 4,
10719 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_SC },
10720 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10721 { 0, 0, 0 },
10722 &core_op_lib
10723 },
10724 { /* 735 */
10725 /* type PARROT_INLINE_OP, */
10726 "set",
10727 "set_p_kic_sc",
10728 "Parrot_set_p_kic_sc",
10729 /* "", body */
10730 0,
10731 4,
10732 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_SC },
10733 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10734 { 0, 0, 0 },
10735 &core_op_lib
10736 },
10737 { /* 736 */
10738 /* type PARROT_INLINE_OP, */
10739 "set",
10740 "set_p_ki_p",
10741 "Parrot_set_p_ki_p",
10742 /* "", body */
10743 0,
10744 4,
10745 { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_P },
10746 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10747 { 0, 0, 0 },
10748 &core_op_lib
10749 },
10750 { /* 737 */
10751 /* type PARROT_INLINE_OP, */
10752 "set",
10753 "set_p_kic_p",
10754 "Parrot_set_p_kic_p",
10755 /* "", body */
10756 0,
10757 4,
10758 { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_P },
10759 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10760 { 0, 0, 0 },
10761 &core_op_lib
10762 },
10763 { /* 738 */
10764 /* type PARROT_INLINE_OP, */
10765 "set",
10766 "set_i_p_ki",
10767 "Parrot_set_i_p_ki",
10768 /* "", body */
10769 0,
10770 4,
10771 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
10772 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10773 { 0, 0, 0 },
10774 &core_op_lib
10775 },
10776 { /* 739 */
10777 /* type PARROT_INLINE_OP, */
10778 "set",
10779 "set_i_p_kic",
10780 "Parrot_set_i_p_kic",
10781 /* "", body */
10782 0,
10783 4,
10784 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
10785 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10786 { 0, 0, 0 },
10787 &core_op_lib
10788 },
10789 { /* 740 */
10790 /* type PARROT_INLINE_OP, */
10791 "set",
10792 "set_n_p_ki",
10793 "Parrot_set_n_p_ki",
10794 /* "", body */
10795 0,
10796 4,
10797 { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KI },
10798 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10799 { 0, 0, 0 },
10800 &core_op_lib
10801 },
10802 { /* 741 */
10803 /* type PARROT_INLINE_OP, */
10804 "set",
10805 "set_n_p_kic",
10806 "Parrot_set_n_p_kic",
10807 /* "", body */
10808 0,
10809 4,
10810 { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KIC },
10811 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10812 { 0, 0, 0 },
10813 &core_op_lib
10814 },
10815 { /* 742 */
10816 /* type PARROT_INLINE_OP, */
10817 "set",
10818 "set_s_p_ki",
10819 "Parrot_set_s_p_ki",
10820 /* "", body */
10821 0,
10822 4,
10823 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KI },
10824 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10825 { 0, 0, 0 },
10826 &core_op_lib
10827 },
10828 { /* 743 */
10829 /* type PARROT_INLINE_OP, */
10830 "set",
10831 "set_s_p_kic",
10832 "Parrot_set_s_p_kic",
10833 /* "", body */
10834 0,
10835 4,
10836 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KIC },
10837 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10838 { 0, 0, 0 },
10839 &core_op_lib
10840 },
10841 { /* 744 */
10842 /* type PARROT_INLINE_OP, */
10843 "set",
10844 "set_p_p_ki",
10845 "Parrot_set_p_p_ki",
10846 /* "", body */
10847 0,
10848 4,
10849 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KI },
10850 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10851 { 0, 0, 0 },
10852 &core_op_lib
10853 },
10854 { /* 745 */
10855 /* type PARROT_INLINE_OP, */
10856 "set",
10857 "set_p_p_kic",
10858 "Parrot_set_p_p_kic",
10859 /* "", body */
10860 0,
10861 4,
10862 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KIC },
10863 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10864 { 0, 0, 0 },
10865 &core_op_lib
10866 },
10867 { /* 746 */
10868 /* type PARROT_INLINE_OP, */
10869 "set",
10870 "set_p_k_i",
10871 "Parrot_set_p_k_i",
10872 /* "", body */
10873 0,
10874 4,
10875 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_I },
10876 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10877 { 0, 0, 0 },
10878 &core_op_lib
10879 },
10880 { /* 747 */
10881 /* type PARROT_INLINE_OP, */
10882 "set",
10883 "set_p_kc_i",
10884 "Parrot_set_p_kc_i",
10885 /* "", body */
10886 0,
10887 4,
10888 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_I },
10889 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10890 { 0, 0, 0 },
10891 &core_op_lib
10892 },
10893 { /* 748 */
10894 /* type PARROT_INLINE_OP, */
10895 "set",
10896 "set_p_k_ic",
10897 "Parrot_set_p_k_ic",
10898 /* "", body */
10899 0,
10900 4,
10901 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_IC },
10902 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10903 { 0, 0, 0 },
10904 &core_op_lib
10905 },
10906 { /* 749 */
10907 /* type PARROT_INLINE_OP, */
10908 "set",
10909 "set_p_kc_ic",
10910 "Parrot_set_p_kc_ic",
10911 /* "", body */
10912 0,
10913 4,
10914 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_IC },
10915 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10916 { 0, 0, 0 },
10917 &core_op_lib
10918 },
10919 { /* 750 */
10920 /* type PARROT_INLINE_OP, */
10921 "set",
10922 "set_p_k_n",
10923 "Parrot_set_p_k_n",
10924 /* "", body */
10925 0,
10926 4,
10927 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_N },
10928 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10929 { 0, 0, 0 },
10930 &core_op_lib
10931 },
10932 { /* 751 */
10933 /* type PARROT_INLINE_OP, */
10934 "set",
10935 "set_p_kc_n",
10936 "Parrot_set_p_kc_n",
10937 /* "", body */
10938 0,
10939 4,
10940 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_N },
10941 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10942 { 0, 0, 0 },
10943 &core_op_lib
10944 },
10945 { /* 752 */
10946 /* type PARROT_INLINE_OP, */
10947 "set",
10948 "set_p_k_nc",
10949 "Parrot_set_p_k_nc",
10950 /* "", body */
10951 0,
10952 4,
10953 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_NC },
10954 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10955 { 0, 0, 0 },
10956 &core_op_lib
10957 },
10958 { /* 753 */
10959 /* type PARROT_INLINE_OP, */
10960 "set",
10961 "set_p_kc_nc",
10962 "Parrot_set_p_kc_nc",
10963 /* "", body */
10964 0,
10965 4,
10966 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_NC },
10967 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10968 { 0, 0, 0 },
10969 &core_op_lib
10970 },
10971 { /* 754 */
10972 /* type PARROT_INLINE_OP, */
10973 "set",
10974 "set_p_k_s",
10975 "Parrot_set_p_k_s",
10976 /* "", body */
10977 0,
10978 4,
10979 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_S },
10980 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10981 { 0, 0, 0 },
10982 &core_op_lib
10983 },
10984 { /* 755 */
10985 /* type PARROT_INLINE_OP, */
10986 "set",
10987 "set_p_kc_s",
10988 "Parrot_set_p_kc_s",
10989 /* "", body */
10990 0,
10991 4,
10992 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_S },
10993 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
10994 { 0, 0, 0 },
10995 &core_op_lib
10996 },
10997 { /* 756 */
10998 /* type PARROT_INLINE_OP, */
10999 "set",
11000 "set_p_k_sc",
11001 "Parrot_set_p_k_sc",
11002 /* "", body */
11003 0,
11004 4,
11005 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_SC },
11006 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11007 { 0, 0, 0 },
11008 &core_op_lib
11009 },
11010 { /* 757 */
11011 /* type PARROT_INLINE_OP, */
11012 "set",
11013 "set_p_kc_sc",
11014 "Parrot_set_p_kc_sc",
11015 /* "", body */
11016 0,
11017 4,
11018 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_SC },
11019 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11020 { 0, 0, 0 },
11021 &core_op_lib
11022 },
11023 { /* 758 */
11024 /* type PARROT_INLINE_OP, */
11025 "set",
11026 "set_p_k_p",
11027 "Parrot_set_p_k_p",
11028 /* "", body */
11029 0,
11030 4,
11031 { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_P },
11032 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11033 { 0, 0, 0 },
11034 &core_op_lib
11035 },
11036 { /* 759 */
11037 /* type PARROT_INLINE_OP, */
11038 "set",
11039 "set_p_kc_p",
11040 "Parrot_set_p_kc_p",
11041 /* "", body */
11042 0,
11043 4,
11044 { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_P },
11045 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11046 { 0, 0, 0 },
11047 &core_op_lib
11048 },
11049 { /* 760 */
11050 /* type PARROT_INLINE_OP, */
11051 "set",
11052 "set_i_p_k",
11053 "Parrot_set_i_p_k",
11054 /* "", body */
11055 0,
11056 4,
11057 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
11058 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11059 { 0, 0, 0 },
11060 &core_op_lib
11061 },
11062 { /* 761 */
11063 /* type PARROT_INLINE_OP, */
11064 "set",
11065 "set_i_p_kc",
11066 "Parrot_set_i_p_kc",
11067 /* "", body */
11068 0,
11069 4,
11070 { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
11071 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11072 { 0, 0, 0 },
11073 &core_op_lib
11074 },
11075 { /* 762 */
11076 /* type PARROT_INLINE_OP, */
11077 "set",
11078 "set_n_p_k",
11079 "Parrot_set_n_p_k",
11080 /* "", body */
11081 0,
11082 4,
11083 { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_K },
11084 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11085 { 0, 0, 0 },
11086 &core_op_lib
11087 },
11088 { /* 763 */
11089 /* type PARROT_INLINE_OP, */
11090 "set",
11091 "set_n_p_kc",
11092 "Parrot_set_n_p_kc",
11093 /* "", body */
11094 0,
11095 4,
11096 { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KC },
11097 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11098 { 0, 0, 0 },
11099 &core_op_lib
11100 },
11101 { /* 764 */
11102 /* type PARROT_INLINE_OP, */
11103 "set",
11104 "set_s_p_k",
11105 "Parrot_set_s_p_k",
11106 /* "", body */
11107 0,
11108 4,
11109 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_K },
11110 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11111 { 0, 0, 0 },
11112 &core_op_lib
11113 },
11114 { /* 765 */
11115 /* type PARROT_INLINE_OP, */
11116 "set",
11117 "set_s_p_kc",
11118 "Parrot_set_s_p_kc",
11119 /* "", body */
11120 0,
11121 4,
11122 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KC },
11123 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11124 { 0, 0, 0 },
11125 &core_op_lib
11126 },
11127 { /* 766 */
11128 /* type PARROT_INLINE_OP, */
11129 "set",
11130 "set_p_p_k",
11131 "Parrot_set_p_p_k",
11132 /* "", body */
11133 0,
11134 4,
11135 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_K },
11136 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11137 { 0, 0, 0 },
11138 &core_op_lib
11139 },
11140 { /* 767 */
11141 /* type PARROT_INLINE_OP, */
11142 "set",
11143 "set_p_p_kc",
11144 "Parrot_set_p_p_kc",
11145 /* "", body */
11146 0,
11147 4,
11148 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KC },
11149 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11150 { 0, 0, 0 },
11151 &core_op_lib
11152 },
11153 { /* 768 */
11154 /* type PARROT_INLINE_OP, */
11155 "clone",
11156 "clone_p_p",
11157 "Parrot_clone_p_p",
11158 /* "", body */
11159 0,
11160 3,
11161 { PARROT_ARG_P, PARROT_ARG_P },
11162 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11163 { 0, 0 },
11164 &core_op_lib
11165 },
11166 { /* 769 */
11167 /* type PARROT_INLINE_OP, */
11168 "clone",
11169 "clone_p_p_p",
11170 "Parrot_clone_p_p_p",
11171 /* "", body */
11172 0,
11173 4,
11174 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
11175 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11176 { 0, 0, 0 },
11177 &core_op_lib
11178 },
11179 { /* 770 */
11180 /* type PARROT_INLINE_OP, */
11181 "clone",
11182 "clone_p_p_pc",
11183 "Parrot_clone_p_p_pc",
11184 /* "", body */
11185 0,
11186 4,
11187 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
11188 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11189 { 0, 0, 0 },
11190 &core_op_lib
11191 },
11192 { /* 771 */
11193 /* type PARROT_INLINE_OP, */
11194 "copy",
11195 "copy_p_p",
11196 "Parrot_copy_p_p",
11197 /* "", body */
11198 0,
11199 3,
11200 { PARROT_ARG_P, PARROT_ARG_P },
11201 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
11202 { 0, 0 },
11203 &core_op_lib
11204 },
11205 { /* 772 */
11206 /* type PARROT_INLINE_OP, */
11207 "null",
11208 "null_s",
11209 "Parrot_null_s",
11210 /* "", body */
11211 0,
11212 2,
11213 { PARROT_ARG_S },
11214 { PARROT_ARGDIR_OUT },
11215 { 0 },
11216 &core_op_lib
11217 },
11218 { /* 773 */
11219 /* type PARROT_INLINE_OP, */
11220 "null",
11221 "null_i",
11222 "Parrot_null_i",
11223 /* "", body */
11224 0,
11225 2,
11226 { PARROT_ARG_I },
11227 { PARROT_ARGDIR_OUT },
11228 { 0 },
11229 &core_op_lib
11230 },
11231 { /* 774 */
11232 /* type PARROT_INLINE_OP, */
11233 "null",
11234 "null_p",
11235 "Parrot_null_p",
11236 /* "", body */
11237 0,
11238 2,
11239 { PARROT_ARG_P },
11240 { PARROT_ARGDIR_OUT },
11241 { 0 },
11242 &core_op_lib
11243 },
11244 { /* 775 */
11245 /* type PARROT_INLINE_OP, */
11246 "null",
11247 "null_n",
11248 "Parrot_null_n",
11249 /* "", body */
11250 0,
11251 2,
11252 { PARROT_ARG_N },
11253 { PARROT_ARGDIR_OUT },
11254 { 0 },
11255 &core_op_lib
11256 },
11257 { /* 776 */
11258 /* type PARROT_INLINE_OP, */
11259 "ord",
11260 "ord_i_s",
11261 "Parrot_ord_i_s",
11262 /* "", body */
11263 0,
11264 3,
11265 { PARROT_ARG_I, PARROT_ARG_S },
11266 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11267 { 0, 0 },
11268 &core_op_lib
11269 },
11270 { /* 777 */
11271 /* type PARROT_INLINE_OP, */
11272 "ord",
11273 "ord_i_sc",
11274 "Parrot_ord_i_sc",
11275 /* "", body */
11276 0,
11277 3,
11278 { PARROT_ARG_I, PARROT_ARG_SC },
11279 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11280 { 0, 0 },
11281 &core_op_lib
11282 },
11283 { /* 778 */
11284 /* type PARROT_INLINE_OP, */
11285 "ord",
11286 "ord_i_s_i",
11287 "Parrot_ord_i_s_i",
11288 /* "", body */
11289 0,
11290 4,
11291 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
11292 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11293 { 0, 0, 0 },
11294 &core_op_lib
11295 },
11296 { /* 779 */
11297 /* type PARROT_INLINE_OP, */
11298 "ord",
11299 "ord_i_sc_i",
11300 "Parrot_ord_i_sc_i",
11301 /* "", body */
11302 0,
11303 4,
11304 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
11305 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11306 { 0, 0, 0 },
11307 &core_op_lib
11308 },
11309 { /* 780 */
11310 /* type PARROT_INLINE_OP, */
11311 "ord",
11312 "ord_i_s_ic",
11313 "Parrot_ord_i_s_ic",
11314 /* "", body */
11315 0,
11316 4,
11317 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
11318 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11319 { 0, 0, 0 },
11320 &core_op_lib
11321 },
11322 { /* 781 */
11323 /* type PARROT_INLINE_OP, */
11324 "ord",
11325 "ord_i_sc_ic",
11326 "Parrot_ord_i_sc_ic",
11327 /* "", body */
11328 0,
11329 4,
11330 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
11331 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11332 { 0, 0, 0 },
11333 &core_op_lib
11334 },
11335 { /* 782 */
11336 /* type PARROT_INLINE_OP, */
11337 "chr",
11338 "chr_s_i",
11339 "Parrot_chr_s_i",
11340 /* "", body */
11341 0,
11342 3,
11343 { PARROT_ARG_S, PARROT_ARG_I },
11344 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11345 { 0, 0 },
11346 &core_op_lib
11347 },
11348 { /* 783 */
11349 /* type PARROT_INLINE_OP, */
11350 "chr",
11351 "chr_s_ic",
11352 "Parrot_chr_s_ic",
11353 /* "", body */
11354 0,
11355 3,
11356 { PARROT_ARG_S, PARROT_ARG_IC },
11357 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11358 { 0, 0 },
11359 &core_op_lib
11360 },
11361 { /* 784 */
11362 /* type PARROT_INLINE_OP, */
11363 "chopn",
11364 "chopn_s_s_i",
11365 "Parrot_chopn_s_s_i",
11366 /* "", body */
11367 0,
11368 4,
11369 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
11370 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11371 { 0, 0, 0 },
11372 &core_op_lib
11373 },
11374 { /* 785 */
11375 /* type PARROT_INLINE_OP, */
11376 "chopn",
11377 "chopn_s_sc_i",
11378 "Parrot_chopn_s_sc_i",
11379 /* "", body */
11380 0,
11381 4,
11382 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
11383 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11384 { 0, 0, 0 },
11385 &core_op_lib
11386 },
11387 { /* 786 */
11388 /* type PARROT_INLINE_OP, */
11389 "chopn",
11390 "chopn_s_s_ic",
11391 "Parrot_chopn_s_s_ic",
11392 /* "", body */
11393 0,
11394 4,
11395 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
11396 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11397 { 0, 0, 0 },
11398 &core_op_lib
11399 },
11400 { /* 787 */
11401 /* type PARROT_INLINE_OP, */
11402 "chopn",
11403 "chopn_s_sc_ic",
11404 "Parrot_chopn_s_sc_ic",
11405 /* "", body */
11406 0,
11407 4,
11408 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
11409 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11410 { 0, 0, 0 },
11411 &core_op_lib
11412 },
11413 { /* 788 */
11414 /* type PARROT_INLINE_OP, */
11415 "concat",
11416 "concat_s_s",
11417 "Parrot_concat_s_s",
11418 /* "", body */
11419 0,
11420 3,
11421 { PARROT_ARG_S, PARROT_ARG_S },
11422 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
11423 { 0, 0 },
11424 &core_op_lib
11425 },
11426 { /* 789 */
11427 /* type PARROT_INLINE_OP, */
11428 "concat",
11429 "concat_s_sc",
11430 "Parrot_concat_s_sc",
11431 /* "", body */
11432 0,
11433 3,
11434 { PARROT_ARG_S, PARROT_ARG_SC },
11435 { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
11436 { 0, 0 },
11437 &core_op_lib
11438 },
11439 { /* 790 */
11440 /* type PARROT_INLINE_OP, */
11441 "concat",
11442 "concat_p_p",
11443 "Parrot_concat_p_p",
11444 /* "", body */
11445 0,
11446 3,
11447 { PARROT_ARG_P, PARROT_ARG_P },
11448 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11449 { 0, 0 },
11450 &core_op_lib
11451 },
11452 { /* 791 */
11453 /* type PARROT_INLINE_OP, */
11454 "concat",
11455 "concat_p_s",
11456 "Parrot_concat_p_s",
11457 /* "", body */
11458 0,
11459 3,
11460 { PARROT_ARG_P, PARROT_ARG_S },
11461 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11462 { 0, 0 },
11463 &core_op_lib
11464 },
11465 { /* 792 */
11466 /* type PARROT_INLINE_OP, */
11467 "concat",
11468 "concat_p_sc",
11469 "Parrot_concat_p_sc",
11470 /* "", body */
11471 0,
11472 3,
11473 { PARROT_ARG_P, PARROT_ARG_SC },
11474 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11475 { 0, 0 },
11476 &core_op_lib
11477 },
11478 { /* 793 */
11479 /* type PARROT_INLINE_OP, */
11480 "concat",
11481 "concat_s_s_s",
11482 "Parrot_concat_s_s_s",
11483 /* "", body */
11484 0,
11485 4,
11486 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_S },
11487 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11488 { 0, 0, 0 },
11489 &core_op_lib
11490 },
11491 { /* 794 */
11492 /* type PARROT_INLINE_OP, */
11493 "concat",
11494 "concat_s_sc_s",
11495 "Parrot_concat_s_sc_s",
11496 /* "", body */
11497 0,
11498 4,
11499 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_S },
11500 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11501 { 0, 0, 0 },
11502 &core_op_lib
11503 },
11504 { /* 795 */
11505 /* type PARROT_INLINE_OP, */
11506 "concat",
11507 "concat_s_s_sc",
11508 "Parrot_concat_s_s_sc",
11509 /* "", body */
11510 0,
11511 4,
11512 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_SC },
11513 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11514 { 0, 0, 0 },
11515 &core_op_lib
11516 },
11517 { /* 796 */
11518 /* type PARROT_INLINE_OP, */
11519 "concat",
11520 "concat_p_p_s",
11521 "Parrot_concat_p_p_s",
11522 /* "", body */
11523 0,
11524 4,
11525 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
11526 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11527 { 0, 0, 0 },
11528 &core_op_lib
11529 },
11530 { /* 797 */
11531 /* type PARROT_INLINE_OP, */
11532 "concat",
11533 "concat_p_p_sc",
11534 "Parrot_concat_p_p_sc",
11535 /* "", body */
11536 0,
11537 4,
11538 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
11539 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11540 { 0, 0, 0 },
11541 &core_op_lib
11542 },
11543 { /* 798 */
11544 /* type PARROT_INLINE_OP, */
11545 "concat",
11546 "concat_p_p_p",
11547 "Parrot_concat_p_p_p",
11548 /* "", body */
11549 0,
11550 4,
11551 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
11552 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11553 { 0, 0, 0 },
11554 &core_op_lib
11555 },
11556 { /* 799 */
11557 /* type PARROT_INLINE_OP, */
11558 "repeat",
11559 "repeat_s_s_i",
11560 "Parrot_repeat_s_s_i",
11561 /* "", body */
11562 0,
11563 4,
11564 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
11565 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11566 { 0, 0, 0 },
11567 &core_op_lib
11568 },
11569 { /* 800 */
11570 /* type PARROT_INLINE_OP, */
11571 "repeat",
11572 "repeat_s_sc_i",
11573 "Parrot_repeat_s_sc_i",
11574 /* "", body */
11575 0,
11576 4,
11577 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
11578 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11579 { 0, 0, 0 },
11580 &core_op_lib
11581 },
11582 { /* 801 */
11583 /* type PARROT_INLINE_OP, */
11584 "repeat",
11585 "repeat_s_s_ic",
11586 "Parrot_repeat_s_s_ic",
11587 /* "", body */
11588 0,
11589 4,
11590 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
11591 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11592 { 0, 0, 0 },
11593 &core_op_lib
11594 },
11595 { /* 802 */
11596 /* type PARROT_INLINE_OP, */
11597 "repeat",
11598 "repeat_s_sc_ic",
11599 "Parrot_repeat_s_sc_ic",
11600 /* "", body */
11601 0,
11602 4,
11603 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
11604 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11605 { 0, 0, 0 },
11606 &core_op_lib
11607 },
11608 { /* 803 */
11609 /* type PARROT_INLINE_OP, */
11610 "repeat",
11611 "repeat_p_p_i",
11612 "Parrot_repeat_p_p_i",
11613 /* "", body */
11614 0,
11615 4,
11616 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
11617 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11618 { 0, 0, 0 },
11619 &core_op_lib
11620 },
11621 { /* 804 */
11622 /* type PARROT_INLINE_OP, */
11623 "repeat",
11624 "repeat_p_p_ic",
11625 "Parrot_repeat_p_p_ic",
11626 /* "", body */
11627 0,
11628 4,
11629 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
11630 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11631 { 0, 0, 0 },
11632 &core_op_lib
11633 },
11634 { /* 805 */
11635 /* type PARROT_INLINE_OP, */
11636 "repeat",
11637 "repeat_p_p_p",
11638 "Parrot_repeat_p_p_p",
11639 /* "", body */
11640 0,
11641 4,
11642 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
11643 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11644 { 0, 0, 0 },
11645 &core_op_lib
11646 },
11647 { /* 806 */
11648 /* type PARROT_INLINE_OP, */
11649 "repeat",
11650 "repeat_p_i",
11651 "Parrot_repeat_p_i",
11652 /* "", body */
11653 0,
11654 3,
11655 { PARROT_ARG_P, PARROT_ARG_I },
11656 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11657 { 0, 0 },
11658 &core_op_lib
11659 },
11660 { /* 807 */
11661 /* type PARROT_INLINE_OP, */
11662 "repeat",
11663 "repeat_p_ic",
11664 "Parrot_repeat_p_ic",
11665 /* "", body */
11666 0,
11667 3,
11668 { PARROT_ARG_P, PARROT_ARG_IC },
11669 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11670 { 0, 0 },
11671 &core_op_lib
11672 },
11673 { /* 808 */
11674 /* type PARROT_INLINE_OP, */
11675 "repeat",
11676 "repeat_p_p",
11677 "Parrot_repeat_p_p",
11678 /* "", body */
11679 0,
11680 3,
11681 { PARROT_ARG_P, PARROT_ARG_P },
11682 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11683 { 0, 0 },
11684 &core_op_lib
11685 },
11686 { /* 809 */
11687 /* type PARROT_INLINE_OP, */
11688 "length",
11689 "length_i_s",
11690 "Parrot_length_i_s",
11691 /* "", body */
11692 0,
11693 3,
11694 { PARROT_ARG_I, PARROT_ARG_S },
11695 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11696 { 0, 0 },
11697 &core_op_lib
11698 },
11699 { /* 810 */
11700 /* type PARROT_INLINE_OP, */
11701 "length",
11702 "length_i_sc",
11703 "Parrot_length_i_sc",
11704 /* "", body */
11705 0,
11706 3,
11707 { PARROT_ARG_I, PARROT_ARG_SC },
11708 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11709 { 0, 0 },
11710 &core_op_lib
11711 },
11712 { /* 811 */
11713 /* type PARROT_INLINE_OP, */
11714 "bytelength",
11715 "bytelength_i_s",
11716 "Parrot_bytelength_i_s",
11717 /* "", body */
11718 0,
11719 3,
11720 { PARROT_ARG_I, PARROT_ARG_S },
11721 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11722 { 0, 0 },
11723 &core_op_lib
11724 },
11725 { /* 812 */
11726 /* type PARROT_INLINE_OP, */
11727 "bytelength",
11728 "bytelength_i_sc",
11729 "Parrot_bytelength_i_sc",
11730 /* "", body */
11731 0,
11732 3,
11733 { PARROT_ARG_I, PARROT_ARG_SC },
11734 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
11735 { 0, 0 },
11736 &core_op_lib
11737 },
11738 { /* 813 */
11739 /* type PARROT_FUNCTION_OP, */
11740 "pin",
11741 "pin_s",
11742 "Parrot_pin_s",
11743 /* "", body */
11744 0,
11745 2,
11746 { PARROT_ARG_S },
11747 { PARROT_ARGDIR_INOUT },
11748 { 0 },
11749 &core_op_lib
11750 },
11751 { /* 814 */
11752 /* type PARROT_FUNCTION_OP, */
11753 "unpin",
11754 "unpin_s",
11755 "Parrot_unpin_s",
11756 /* "", body */
11757 0,
11758 2,
11759 { PARROT_ARG_S },
11760 { PARROT_ARGDIR_INOUT },
11761 { 0 },
11762 &core_op_lib
11763 },
11764 { /* 815 */
11765 /* type PARROT_INLINE_OP, */
11766 "substr",
11767 "substr_s_s_i",
11768 "Parrot_substr_s_s_i",
11769 /* "", body */
11770 0,
11771 4,
11772 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
11773 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11774 { 0, 0, 0 },
11775 &core_op_lib
11776 },
11777 { /* 816 */
11778 /* type PARROT_INLINE_OP, */
11779 "substr",
11780 "substr_s_sc_i",
11781 "Parrot_substr_s_sc_i",
11782 /* "", body */
11783 0,
11784 4,
11785 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
11786 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11787 { 0, 0, 0 },
11788 &core_op_lib
11789 },
11790 { /* 817 */
11791 /* type PARROT_INLINE_OP, */
11792 "substr",
11793 "substr_s_s_ic",
11794 "Parrot_substr_s_s_ic",
11795 /* "", body */
11796 0,
11797 4,
11798 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
11799 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11800 { 0, 0, 0 },
11801 &core_op_lib
11802 },
11803 { /* 818 */
11804 /* type PARROT_INLINE_OP, */
11805 "substr",
11806 "substr_s_sc_ic",
11807 "Parrot_substr_s_sc_ic",
11808 /* "", body */
11809 0,
11810 4,
11811 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
11812 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11813 { 0, 0, 0 },
11814 &core_op_lib
11815 },
11816 { /* 819 */
11817 /* type PARROT_INLINE_OP, */
11818 "substr",
11819 "substr_s_s_i_i",
11820 "Parrot_substr_s_s_i_i",
11821 /* "", body */
11822 0,
11823 5,
11824 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
11825 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11826 { 0, 0, 0, 0 },
11827 &core_op_lib
11828 },
11829 { /* 820 */
11830 /* type PARROT_INLINE_OP, */
11831 "substr",
11832 "substr_s_sc_i_i",
11833 "Parrot_substr_s_sc_i_i",
11834 /* "", body */
11835 0,
11836 5,
11837 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
11838 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11839 { 0, 0, 0, 0 },
11840 &core_op_lib
11841 },
11842 { /* 821 */
11843 /* type PARROT_INLINE_OP, */
11844 "substr",
11845 "substr_s_s_ic_i",
11846 "Parrot_substr_s_s_ic_i",
11847 /* "", body */
11848 0,
11849 5,
11850 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
11851 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11852 { 0, 0, 0, 0 },
11853 &core_op_lib
11854 },
11855 { /* 822 */
11856 /* type PARROT_INLINE_OP, */
11857 "substr",
11858 "substr_s_sc_ic_i",
11859 "Parrot_substr_s_sc_ic_i",
11860 /* "", body */
11861 0,
11862 5,
11863 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
11864 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11865 { 0, 0, 0, 0 },
11866 &core_op_lib
11867 },
11868 { /* 823 */
11869 /* type PARROT_INLINE_OP, */
11870 "substr",
11871 "substr_s_s_i_ic",
11872 "Parrot_substr_s_s_i_ic",
11873 /* "", body */
11874 0,
11875 5,
11876 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
11877 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11878 { 0, 0, 0, 0 },
11879 &core_op_lib
11880 },
11881 { /* 824 */
11882 /* type PARROT_INLINE_OP, */
11883 "substr",
11884 "substr_s_sc_i_ic",
11885 "Parrot_substr_s_sc_i_ic",
11886 /* "", body */
11887 0,
11888 5,
11889 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
11890 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11891 { 0, 0, 0, 0 },
11892 &core_op_lib
11893 },
11894 { /* 825 */
11895 /* type PARROT_INLINE_OP, */
11896 "substr",
11897 "substr_s_s_ic_ic",
11898 "Parrot_substr_s_s_ic_ic",
11899 /* "", body */
11900 0,
11901 5,
11902 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
11903 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11904 { 0, 0, 0, 0 },
11905 &core_op_lib
11906 },
11907 { /* 826 */
11908 /* type PARROT_INLINE_OP, */
11909 "substr",
11910 "substr_s_sc_ic_ic",
11911 "Parrot_substr_s_sc_ic_ic",
11912 /* "", body */
11913 0,
11914 5,
11915 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
11916 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11917 { 0, 0, 0, 0 },
11918 &core_op_lib
11919 },
11920 { /* 827 */
11921 /* type PARROT_INLINE_OP, */
11922 "substr",
11923 "substr_s_p_i_i",
11924 "Parrot_substr_s_p_i_i",
11925 /* "", body */
11926 0,
11927 5,
11928 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
11929 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11930 { 0, 0, 0, 0 },
11931 &core_op_lib
11932 },
11933 { /* 828 */
11934 /* type PARROT_INLINE_OP, */
11935 "substr",
11936 "substr_s_p_ic_i",
11937 "Parrot_substr_s_p_ic_i",
11938 /* "", body */
11939 0,
11940 5,
11941 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
11942 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11943 { 0, 0, 0, 0 },
11944 &core_op_lib
11945 },
11946 { /* 829 */
11947 /* type PARROT_INLINE_OP, */
11948 "substr",
11949 "substr_s_p_i_ic",
11950 "Parrot_substr_s_p_i_ic",
11951 /* "", body */
11952 0,
11953 5,
11954 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
11955 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11956 { 0, 0, 0, 0 },
11957 &core_op_lib
11958 },
11959 { /* 830 */
11960 /* type PARROT_INLINE_OP, */
11961 "substr",
11962 "substr_s_p_ic_ic",
11963 "Parrot_substr_s_p_ic_ic",
11964 /* "", body */
11965 0,
11966 5,
11967 { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
11968 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11969 { 0, 0, 0, 0 },
11970 &core_op_lib
11971 },
11972 { /* 831 */
11973 /* type PARROT_INLINE_OP, */
11974 "replace",
11975 "replace_s_s_i_i_s",
11976 "Parrot_replace_s_s_i_i_s",
11977 /* "", body */
11978 0,
11979 6,
11980 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S },
11981 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11982 { 0, 0, 0, 0, 0 },
11983 &core_op_lib
11984 },
11985 { /* 832 */
11986 /* type PARROT_INLINE_OP, */
11987 "replace",
11988 "replace_s_sc_i_i_s",
11989 "Parrot_replace_s_sc_i_i_s",
11990 /* "", body */
11991 0,
11992 6,
11993 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S },
11994 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
11995 { 0, 0, 0, 0, 0 },
11996 &core_op_lib
11997 },
11998 { /* 833 */
11999 /* type PARROT_INLINE_OP, */
12000 "replace",
12001 "replace_s_s_ic_i_s",
12002 "Parrot_replace_s_s_ic_i_s",
12003 /* "", body */
12004 0,
12005 6,
12006 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_S },
12007 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12008 { 0, 0, 0, 0, 0 },
12009 &core_op_lib
12010 },
12011 { /* 834 */
12012 /* type PARROT_INLINE_OP, */
12013 "replace",
12014 "replace_s_sc_ic_i_s",
12015 "Parrot_replace_s_sc_ic_i_s",
12016 /* "", body */
12017 0,
12018 6,
12019 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_S },
12020 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12021 { 0, 0, 0, 0, 0 },
12022 &core_op_lib
12023 },
12024 { /* 835 */
12025 /* type PARROT_INLINE_OP, */
12026 "replace",
12027 "replace_s_s_i_ic_s",
12028 "Parrot_replace_s_s_i_ic_s",
12029 /* "", body */
12030 0,
12031 6,
12032 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S },
12033 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12034 { 0, 0, 0, 0, 0 },
12035 &core_op_lib
12036 },
12037 { /* 836 */
12038 /* type PARROT_INLINE_OP, */
12039 "replace",
12040 "replace_s_sc_i_ic_s",
12041 "Parrot_replace_s_sc_i_ic_s",
12042 /* "", body */
12043 0,
12044 6,
12045 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S },
12046 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12047 { 0, 0, 0, 0, 0 },
12048 &core_op_lib
12049 },
12050 { /* 837 */
12051 /* type PARROT_INLINE_OP, */
12052 "replace",
12053 "replace_s_s_ic_ic_s",
12054 "Parrot_replace_s_s_ic_ic_s",
12055 /* "", body */
12056 0,
12057 6,
12058 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_S },
12059 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12060 { 0, 0, 0, 0, 0 },
12061 &core_op_lib
12062 },
12063 { /* 838 */
12064 /* type PARROT_INLINE_OP, */
12065 "replace",
12066 "replace_s_sc_ic_ic_s",
12067 "Parrot_replace_s_sc_ic_ic_s",
12068 /* "", body */
12069 0,
12070 6,
12071 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_S },
12072 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12073 { 0, 0, 0, 0, 0 },
12074 &core_op_lib
12075 },
12076 { /* 839 */
12077 /* type PARROT_INLINE_OP, */
12078 "replace",
12079 "replace_s_s_i_i_sc",
12080 "Parrot_replace_s_s_i_i_sc",
12081 /* "", body */
12082 0,
12083 6,
12084 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC },
12085 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12086 { 0, 0, 0, 0, 0 },
12087 &core_op_lib
12088 },
12089 { /* 840 */
12090 /* type PARROT_INLINE_OP, */
12091 "replace",
12092 "replace_s_sc_i_i_sc",
12093 "Parrot_replace_s_sc_i_i_sc",
12094 /* "", body */
12095 0,
12096 6,
12097 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC },
12098 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12099 { 0, 0, 0, 0, 0 },
12100 &core_op_lib
12101 },
12102 { /* 841 */
12103 /* type PARROT_INLINE_OP, */
12104 "replace",
12105 "replace_s_s_ic_i_sc",
12106 "Parrot_replace_s_s_ic_i_sc",
12107 /* "", body */
12108 0,
12109 6,
12110 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_SC },
12111 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12112 { 0, 0, 0, 0, 0 },
12113 &core_op_lib
12114 },
12115 { /* 842 */
12116 /* type PARROT_INLINE_OP, */
12117 "replace",
12118 "replace_s_sc_ic_i_sc",
12119 "Parrot_replace_s_sc_ic_i_sc",
12120 /* "", body */
12121 0,
12122 6,
12123 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_SC },
12124 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12125 { 0, 0, 0, 0, 0 },
12126 &core_op_lib
12127 },
12128 { /* 843 */
12129 /* type PARROT_INLINE_OP, */
12130 "replace",
12131 "replace_s_s_i_ic_sc",
12132 "Parrot_replace_s_s_i_ic_sc",
12133 /* "", body */
12134 0,
12135 6,
12136 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC },
12137 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12138 { 0, 0, 0, 0, 0 },
12139 &core_op_lib
12140 },
12141 { /* 844 */
12142 /* type PARROT_INLINE_OP, */
12143 "replace",
12144 "replace_s_sc_i_ic_sc",
12145 "Parrot_replace_s_sc_i_ic_sc",
12146 /* "", body */
12147 0,
12148 6,
12149 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC },
12150 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12151 { 0, 0, 0, 0, 0 },
12152 &core_op_lib
12153 },
12154 { /* 845 */
12155 /* type PARROT_INLINE_OP, */
12156 "replace",
12157 "replace_s_s_ic_ic_sc",
12158 "Parrot_replace_s_s_ic_ic_sc",
12159 /* "", body */
12160 0,
12161 6,
12162 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_SC },
12163 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12164 { 0, 0, 0, 0, 0 },
12165 &core_op_lib
12166 },
12167 { /* 846 */
12168 /* type PARROT_INLINE_OP, */
12169 "replace",
12170 "replace_s_sc_ic_ic_sc",
12171 "Parrot_replace_s_sc_ic_ic_sc",
12172 /* "", body */
12173 0,
12174 6,
12175 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_SC },
12176 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12177 { 0, 0, 0, 0, 0 },
12178 &core_op_lib
12179 },
12180 { /* 847 */
12181 /* type PARROT_INLINE_OP, */
12182 "index",
12183 "index_i_s_s",
12184 "Parrot_index_i_s_s",
12185 /* "", body */
12186 0,
12187 4,
12188 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
12189 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12190 { 0, 0, 0 },
12191 &core_op_lib
12192 },
12193 { /* 848 */
12194 /* type PARROT_INLINE_OP, */
12195 "index",
12196 "index_i_sc_s",
12197 "Parrot_index_i_sc_s",
12198 /* "", body */
12199 0,
12200 4,
12201 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
12202 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12203 { 0, 0, 0 },
12204 &core_op_lib
12205 },
12206 { /* 849 */
12207 /* type PARROT_INLINE_OP, */
12208 "index",
12209 "index_i_s_sc",
12210 "Parrot_index_i_s_sc",
12211 /* "", body */
12212 0,
12213 4,
12214 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
12215 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12216 { 0, 0, 0 },
12217 &core_op_lib
12218 },
12219 { /* 850 */
12220 /* type PARROT_INLINE_OP, */
12221 "index",
12222 "index_i_sc_sc",
12223 "Parrot_index_i_sc_sc",
12224 /* "", body */
12225 0,
12226 4,
12227 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
12228 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12229 { 0, 0, 0 },
12230 &core_op_lib
12231 },
12232 { /* 851 */
12233 /* type PARROT_INLINE_OP, */
12234 "index",
12235 "index_i_s_s_i",
12236 "Parrot_index_i_s_s_i",
12237 /* "", body */
12238 0,
12239 5,
12240 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
12241 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12242 { 0, 0, 0, 0 },
12243 &core_op_lib
12244 },
12245 { /* 852 */
12246 /* type PARROT_INLINE_OP, */
12247 "index",
12248 "index_i_sc_s_i",
12249 "Parrot_index_i_sc_s_i",
12250 /* "", body */
12251 0,
12252 5,
12253 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_I },
12254 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12255 { 0, 0, 0, 0 },
12256 &core_op_lib
12257 },
12258 { /* 853 */
12259 /* type PARROT_INLINE_OP, */
12260 "index",
12261 "index_i_s_sc_i",
12262 "Parrot_index_i_s_sc_i",
12263 /* "", body */
12264 0,
12265 5,
12266 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
12267 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12268 { 0, 0, 0, 0 },
12269 &core_op_lib
12270 },
12271 { /* 854 */
12272 /* type PARROT_INLINE_OP, */
12273 "index",
12274 "index_i_sc_sc_i",
12275 "Parrot_index_i_sc_sc_i",
12276 /* "", body */
12277 0,
12278 5,
12279 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_I },
12280 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12281 { 0, 0, 0, 0 },
12282 &core_op_lib
12283 },
12284 { /* 855 */
12285 /* type PARROT_INLINE_OP, */
12286 "index",
12287 "index_i_s_s_ic",
12288 "Parrot_index_i_s_s_ic",
12289 /* "", body */
12290 0,
12291 5,
12292 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
12293 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12294 { 0, 0, 0, 0 },
12295 &core_op_lib
12296 },
12297 { /* 856 */
12298 /* type PARROT_INLINE_OP, */
12299 "index",
12300 "index_i_sc_s_ic",
12301 "Parrot_index_i_sc_s_ic",
12302 /* "", body */
12303 0,
12304 5,
12305 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
12306 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12307 { 0, 0, 0, 0 },
12308 &core_op_lib
12309 },
12310 { /* 857 */
12311 /* type PARROT_INLINE_OP, */
12312 "index",
12313 "index_i_s_sc_ic",
12314 "Parrot_index_i_s_sc_ic",
12315 /* "", body */
12316 0,
12317 5,
12318 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
12319 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12320 { 0, 0, 0, 0 },
12321 &core_op_lib
12322 },
12323 { /* 858 */
12324 /* type PARROT_INLINE_OP, */
12325 "index",
12326 "index_i_sc_sc_ic",
12327 "Parrot_index_i_sc_sc_ic",
12328 /* "", body */
12329 0,
12330 5,
12331 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
12332 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12333 { 0, 0, 0, 0 },
12334 &core_op_lib
12335 },
12336 { /* 859 */
12337 /* type PARROT_INLINE_OP, */
12338 "sprintf",
12339 "sprintf_s_s_p",
12340 "Parrot_sprintf_s_s_p",
12341 /* "", body */
12342 0,
12343 4,
12344 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
12345 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12346 { 0, 0, 0 },
12347 &core_op_lib
12348 },
12349 { /* 860 */
12350 /* type PARROT_INLINE_OP, */
12351 "sprintf",
12352 "sprintf_s_sc_p",
12353 "Parrot_sprintf_s_sc_p",
12354 /* "", body */
12355 0,
12356 4,
12357 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
12358 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12359 { 0, 0, 0 },
12360 &core_op_lib
12361 },
12362 { /* 861 */
12363 /* type PARROT_INLINE_OP, */
12364 "sprintf",
12365 "sprintf_p_p_p",
12366 "Parrot_sprintf_p_p_p",
12367 /* "", body */
12368 0,
12369 4,
12370 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
12371 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12372 { 0, 0, 0 },
12373 &core_op_lib
12374 },
12375 { /* 862 */
12376 /* type PARROT_INLINE_OP, */
12377 "new",
12378 "new_s",
12379 "Parrot_new_s",
12380 /* "", body */
12381 0,
12382 2,
12383 { PARROT_ARG_S },
12384 { PARROT_ARGDIR_OUT },
12385 { 0 },
12386 &core_op_lib
12387 },
12388 { /* 863 */
12389 /* type PARROT_INLINE_OP, */
12390 "new",
12391 "new_s_i",
12392 "Parrot_new_s_i",
12393 /* "", body */
12394 0,
12395 3,
12396 { PARROT_ARG_S, PARROT_ARG_I },
12397 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12398 { 0, 0 },
12399 &core_op_lib
12400 },
12401 { /* 864 */
12402 /* type PARROT_INLINE_OP, */
12403 "new",
12404 "new_s_ic",
12405 "Parrot_new_s_ic",
12406 /* "", body */
12407 0,
12408 3,
12409 { PARROT_ARG_S, PARROT_ARG_IC },
12410 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12411 { 0, 0 },
12412 &core_op_lib
12413 },
12414 { /* 865 */
12415 /* type PARROT_INLINE_OP, */
12416 "stringinfo",
12417 "stringinfo_i_s_i",
12418 "Parrot_stringinfo_i_s_i",
12419 /* "", body */
12420 0,
12421 4,
12422 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
12423 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12424 { 0, 0, 0 },
12425 &core_op_lib
12426 },
12427 { /* 866 */
12428 /* type PARROT_INLINE_OP, */
12429 "stringinfo",
12430 "stringinfo_i_sc_i",
12431 "Parrot_stringinfo_i_sc_i",
12432 /* "", body */
12433 0,
12434 4,
12435 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
12436 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12437 { 0, 0, 0 },
12438 &core_op_lib
12439 },
12440 { /* 867 */
12441 /* type PARROT_INLINE_OP, */
12442 "stringinfo",
12443 "stringinfo_i_s_ic",
12444 "Parrot_stringinfo_i_s_ic",
12445 /* "", body */
12446 0,
12447 4,
12448 { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
12449 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12450 { 0, 0, 0 },
12451 &core_op_lib
12452 },
12453 { /* 868 */
12454 /* type PARROT_INLINE_OP, */
12455 "stringinfo",
12456 "stringinfo_i_sc_ic",
12457 "Parrot_stringinfo_i_sc_ic",
12458 /* "", body */
12459 0,
12460 4,
12461 { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
12462 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12463 { 0, 0, 0 },
12464 &core_op_lib
12465 },
12466 { /* 869 */
12467 /* type PARROT_INLINE_OP, */
12468 "upcase",
12469 "upcase_s_s",
12470 "Parrot_upcase_s_s",
12471 /* "", body */
12472 0,
12473 3,
12474 { PARROT_ARG_S, PARROT_ARG_S },
12475 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12476 { 0, 0 },
12477 &core_op_lib
12478 },
12479 { /* 870 */
12480 /* type PARROT_INLINE_OP, */
12481 "upcase",
12482 "upcase_s_sc",
12483 "Parrot_upcase_s_sc",
12484 /* "", body */
12485 0,
12486 3,
12487 { PARROT_ARG_S, PARROT_ARG_SC },
12488 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12489 { 0, 0 },
12490 &core_op_lib
12491 },
12492 { /* 871 */
12493 /* type PARROT_INLINE_OP, */
12494 "downcase",
12495 "downcase_s_s",
12496 "Parrot_downcase_s_s",
12497 /* "", body */
12498 0,
12499 3,
12500 { PARROT_ARG_S, PARROT_ARG_S },
12501 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12502 { 0, 0 },
12503 &core_op_lib
12504 },
12505 { /* 872 */
12506 /* type PARROT_INLINE_OP, */
12507 "downcase",
12508 "downcase_s_sc",
12509 "Parrot_downcase_s_sc",
12510 /* "", body */
12511 0,
12512 3,
12513 { PARROT_ARG_S, PARROT_ARG_SC },
12514 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12515 { 0, 0 },
12516 &core_op_lib
12517 },
12518 { /* 873 */
12519 /* type PARROT_INLINE_OP, */
12520 "titlecase",
12521 "titlecase_s_s",
12522 "Parrot_titlecase_s_s",
12523 /* "", body */
12524 0,
12525 3,
12526 { PARROT_ARG_S, PARROT_ARG_S },
12527 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12528 { 0, 0 },
12529 &core_op_lib
12530 },
12531 { /* 874 */
12532 /* type PARROT_INLINE_OP, */
12533 "titlecase",
12534 "titlecase_s_sc",
12535 "Parrot_titlecase_s_sc",
12536 /* "", body */
12537 0,
12538 3,
12539 { PARROT_ARG_S, PARROT_ARG_SC },
12540 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12541 { 0, 0 },
12542 &core_op_lib
12543 },
12544 { /* 875 */
12545 /* type PARROT_FUNCTION_OP, */
12546 "join",
12547 "join_s_s_p",
12548 "Parrot_join_s_s_p",
12549 /* "", body */
12550 0,
12551 4,
12552 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
12553 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12554 { 0, 0, 0 },
12555 &core_op_lib
12556 },
12557 { /* 876 */
12558 /* type PARROT_FUNCTION_OP, */
12559 "join",
12560 "join_s_sc_p",
12561 "Parrot_join_s_sc_p",
12562 /* "", body */
12563 0,
12564 4,
12565 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
12566 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12567 { 0, 0, 0 },
12568 &core_op_lib
12569 },
12570 { /* 877 */
12571 /* type PARROT_FUNCTION_OP, */
12572 "split",
12573 "split_p_s_s",
12574 "Parrot_split_p_s_s",
12575 /* "", body */
12576 0,
12577 4,
12578 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
12579 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12580 { 0, 0, 0 },
12581 &core_op_lib
12582 },
12583 { /* 878 */
12584 /* type PARROT_FUNCTION_OP, */
12585 "split",
12586 "split_p_sc_s",
12587 "Parrot_split_p_sc_s",
12588 /* "", body */
12589 0,
12590 4,
12591 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
12592 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12593 { 0, 0, 0 },
12594 &core_op_lib
12595 },
12596 { /* 879 */
12597 /* type PARROT_FUNCTION_OP, */
12598 "split",
12599 "split_p_s_sc",
12600 "Parrot_split_p_s_sc",
12601 /* "", body */
12602 0,
12603 4,
12604 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
12605 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12606 { 0, 0, 0 },
12607 &core_op_lib
12608 },
12609 { /* 880 */
12610 /* type PARROT_FUNCTION_OP, */
12611 "split",
12612 "split_p_sc_sc",
12613 "Parrot_split_p_sc_sc",
12614 /* "", body */
12615 0,
12616 4,
12617 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
12618 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12619 { 0, 0, 0 },
12620 &core_op_lib
12621 },
12622 { /* 881 */
12623 /* type PARROT_FUNCTION_OP, */
12624 "charset",
12625 "charset_i_s",
12626 "Parrot_charset_i_s",
12627 /* "", body */
12628 0,
12629 3,
12630 { PARROT_ARG_I, PARROT_ARG_S },
12631 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12632 { 0, 0 },
12633 &core_op_lib
12634 },
12635 { /* 882 */
12636 /* type PARROT_FUNCTION_OP, */
12637 "charset",
12638 "charset_i_sc",
12639 "Parrot_charset_i_sc",
12640 /* "", body */
12641 0,
12642 3,
12643 { PARROT_ARG_I, PARROT_ARG_SC },
12644 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12645 { 0, 0 },
12646 &core_op_lib
12647 },
12648 { /* 883 */
12649 /* type PARROT_FUNCTION_OP, */
12650 "charsetname",
12651 "charsetname_s_i",
12652 "Parrot_charsetname_s_i",
12653 /* "", body */
12654 0,
12655 3,
12656 { PARROT_ARG_S, PARROT_ARG_I },
12657 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12658 { 0, 0 },
12659 &core_op_lib
12660 },
12661 { /* 884 */
12662 /* type PARROT_FUNCTION_OP, */
12663 "charsetname",
12664 "charsetname_s_ic",
12665 "Parrot_charsetname_s_ic",
12666 /* "", body */
12667 0,
12668 3,
12669 { PARROT_ARG_S, PARROT_ARG_IC },
12670 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12671 { 0, 0 },
12672 &core_op_lib
12673 },
12674 { /* 885 */
12675 /* type PARROT_FUNCTION_OP, */
12676 "find_charset",
12677 "find_charset_i_s",
12678 "Parrot_find_charset_i_s",
12679 /* "", body */
12680 0,
12681 3,
12682 { PARROT_ARG_I, PARROT_ARG_S },
12683 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12684 { 0, 0 },
12685 &core_op_lib
12686 },
12687 { /* 886 */
12688 /* type PARROT_FUNCTION_OP, */
12689 "find_charset",
12690 "find_charset_i_sc",
12691 "Parrot_find_charset_i_sc",
12692 /* "", body */
12693 0,
12694 3,
12695 { PARROT_ARG_I, PARROT_ARG_SC },
12696 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12697 { 0, 0 },
12698 &core_op_lib
12699 },
12700 { /* 887 */
12701 /* type PARROT_FUNCTION_OP, */
12702 "trans_charset",
12703 "trans_charset_s_s_i",
12704 "Parrot_trans_charset_s_s_i",
12705 /* "", body */
12706 0,
12707 4,
12708 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
12709 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12710 { 0, 0, 0 },
12711 &core_op_lib
12712 },
12713 { /* 888 */
12714 /* type PARROT_FUNCTION_OP, */
12715 "trans_charset",
12716 "trans_charset_s_sc_i",
12717 "Parrot_trans_charset_s_sc_i",
12718 /* "", body */
12719 0,
12720 4,
12721 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
12722 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12723 { 0, 0, 0 },
12724 &core_op_lib
12725 },
12726 { /* 889 */
12727 /* type PARROT_FUNCTION_OP, */
12728 "trans_charset",
12729 "trans_charset_s_s_ic",
12730 "Parrot_trans_charset_s_s_ic",
12731 /* "", body */
12732 0,
12733 4,
12734 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
12735 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12736 { 0, 0, 0 },
12737 &core_op_lib
12738 },
12739 { /* 890 */
12740 /* type PARROT_FUNCTION_OP, */
12741 "trans_charset",
12742 "trans_charset_s_sc_ic",
12743 "Parrot_trans_charset_s_sc_ic",
12744 /* "", body */
12745 0,
12746 4,
12747 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
12748 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12749 { 0, 0, 0 },
12750 &core_op_lib
12751 },
12752 { /* 891 */
12753 /* type PARROT_FUNCTION_OP, */
12754 "encoding",
12755 "encoding_i_s",
12756 "Parrot_encoding_i_s",
12757 /* "", body */
12758 0,
12759 3,
12760 { PARROT_ARG_I, PARROT_ARG_S },
12761 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12762 { 0, 0 },
12763 &core_op_lib
12764 },
12765 { /* 892 */
12766 /* type PARROT_FUNCTION_OP, */
12767 "encoding",
12768 "encoding_i_sc",
12769 "Parrot_encoding_i_sc",
12770 /* "", body */
12771 0,
12772 3,
12773 { PARROT_ARG_I, PARROT_ARG_SC },
12774 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12775 { 0, 0 },
12776 &core_op_lib
12777 },
12778 { /* 893 */
12779 /* type PARROT_FUNCTION_OP, */
12780 "encodingname",
12781 "encodingname_s_i",
12782 "Parrot_encodingname_s_i",
12783 /* "", body */
12784 0,
12785 3,
12786 { PARROT_ARG_S, PARROT_ARG_I },
12787 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12788 { 0, 0 },
12789 &core_op_lib
12790 },
12791 { /* 894 */
12792 /* type PARROT_FUNCTION_OP, */
12793 "encodingname",
12794 "encodingname_s_ic",
12795 "Parrot_encodingname_s_ic",
12796 /* "", body */
12797 0,
12798 3,
12799 { PARROT_ARG_S, PARROT_ARG_IC },
12800 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12801 { 0, 0 },
12802 &core_op_lib
12803 },
12804 { /* 895 */
12805 /* type PARROT_FUNCTION_OP, */
12806 "find_encoding",
12807 "find_encoding_i_s",
12808 "Parrot_find_encoding_i_s",
12809 /* "", body */
12810 0,
12811 3,
12812 { PARROT_ARG_I, PARROT_ARG_S },
12813 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12814 { 0, 0 },
12815 &core_op_lib
12816 },
12817 { /* 896 */
12818 /* type PARROT_FUNCTION_OP, */
12819 "find_encoding",
12820 "find_encoding_i_sc",
12821 "Parrot_find_encoding_i_sc",
12822 /* "", body */
12823 0,
12824 3,
12825 { PARROT_ARG_I, PARROT_ARG_SC },
12826 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
12827 { 0, 0 },
12828 &core_op_lib
12829 },
12830 { /* 897 */
12831 /* type PARROT_FUNCTION_OP, */
12832 "trans_encoding",
12833 "trans_encoding_s_s_i",
12834 "Parrot_trans_encoding_s_s_i",
12835 /* "", body */
12836 0,
12837 4,
12838 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
12839 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12840 { 0, 0, 0 },
12841 &core_op_lib
12842 },
12843 { /* 898 */
12844 /* type PARROT_FUNCTION_OP, */
12845 "trans_encoding",
12846 "trans_encoding_s_sc_i",
12847 "Parrot_trans_encoding_s_sc_i",
12848 /* "", body */
12849 0,
12850 4,
12851 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
12852 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12853 { 0, 0, 0 },
12854 &core_op_lib
12855 },
12856 { /* 899 */
12857 /* type PARROT_FUNCTION_OP, */
12858 "trans_encoding",
12859 "trans_encoding_s_s_ic",
12860 "Parrot_trans_encoding_s_s_ic",
12861 /* "", body */
12862 0,
12863 4,
12864 { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
12865 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12866 { 0, 0, 0 },
12867 &core_op_lib
12868 },
12869 { /* 900 */
12870 /* type PARROT_FUNCTION_OP, */
12871 "trans_encoding",
12872 "trans_encoding_s_sc_ic",
12873 "Parrot_trans_encoding_s_sc_ic",
12874 /* "", body */
12875 0,
12876 4,
12877 { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
12878 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12879 { 0, 0, 0 },
12880 &core_op_lib
12881 },
12882 { /* 901 */
12883 /* type PARROT_INLINE_OP, */
12884 "is_cclass",
12885 "is_cclass_i_i_s_i",
12886 "Parrot_is_cclass_i_i_s_i",
12887 /* "", body */
12888 0,
12889 5,
12890 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
12891 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12892 { 0, 0, 0, 0 },
12893 &core_op_lib
12894 },
12895 { /* 902 */
12896 /* type PARROT_INLINE_OP, */
12897 "is_cclass",
12898 "is_cclass_i_ic_s_i",
12899 "Parrot_is_cclass_i_ic_s_i",
12900 /* "", body */
12901 0,
12902 5,
12903 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I },
12904 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12905 { 0, 0, 0, 0 },
12906 &core_op_lib
12907 },
12908 { /* 903 */
12909 /* type PARROT_INLINE_OP, */
12910 "is_cclass",
12911 "is_cclass_i_i_sc_i",
12912 "Parrot_is_cclass_i_i_sc_i",
12913 /* "", body */
12914 0,
12915 5,
12916 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
12917 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12918 { 0, 0, 0, 0 },
12919 &core_op_lib
12920 },
12921 { /* 904 */
12922 /* type PARROT_INLINE_OP, */
12923 "is_cclass",
12924 "is_cclass_i_ic_sc_i",
12925 "Parrot_is_cclass_i_ic_sc_i",
12926 /* "", body */
12927 0,
12928 5,
12929 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I },
12930 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12931 { 0, 0, 0, 0 },
12932 &core_op_lib
12933 },
12934 { /* 905 */
12935 /* type PARROT_INLINE_OP, */
12936 "is_cclass",
12937 "is_cclass_i_i_s_ic",
12938 "Parrot_is_cclass_i_i_s_ic",
12939 /* "", body */
12940 0,
12941 5,
12942 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
12943 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12944 { 0, 0, 0, 0 },
12945 &core_op_lib
12946 },
12947 { /* 906 */
12948 /* type PARROT_INLINE_OP, */
12949 "is_cclass",
12950 "is_cclass_i_ic_s_ic",
12951 "Parrot_is_cclass_i_ic_s_ic",
12952 /* "", body */
12953 0,
12954 5,
12955 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC },
12956 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12957 { 0, 0, 0, 0 },
12958 &core_op_lib
12959 },
12960 { /* 907 */
12961 /* type PARROT_INLINE_OP, */
12962 "is_cclass",
12963 "is_cclass_i_i_sc_ic",
12964 "Parrot_is_cclass_i_i_sc_ic",
12965 /* "", body */
12966 0,
12967 5,
12968 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
12969 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12970 { 0, 0, 0, 0 },
12971 &core_op_lib
12972 },
12973 { /* 908 */
12974 /* type PARROT_INLINE_OP, */
12975 "is_cclass",
12976 "is_cclass_i_ic_sc_ic",
12977 "Parrot_is_cclass_i_ic_sc_ic",
12978 /* "", body */
12979 0,
12980 5,
12981 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC },
12982 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12983 { 0, 0, 0, 0 },
12984 &core_op_lib
12985 },
12986 { /* 909 */
12987 /* type PARROT_INLINE_OP, */
12988 "find_cclass",
12989 "find_cclass_i_i_s_i_i",
12990 "Parrot_find_cclass_i_i_s_i_i",
12991 /* "", body */
12992 0,
12993 6,
12994 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
12995 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
12996 { 0, 0, 0, 0, 0 },
12997 &core_op_lib
12998 },
12999 { /* 910 */
13000 /* type PARROT_INLINE_OP, */
13001 "find_cclass",
13002 "find_cclass_i_ic_s_i_i",
13003 "Parrot_find_cclass_i_ic_s_i_i",
13004 /* "", body */
13005 0,
13006 6,
13007 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
13008 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13009 { 0, 0, 0, 0, 0 },
13010 &core_op_lib
13011 },
13012 { /* 911 */
13013 /* type PARROT_INLINE_OP, */
13014 "find_cclass",
13015 "find_cclass_i_i_sc_i_i",
13016 "Parrot_find_cclass_i_i_sc_i_i",
13017 /* "", body */
13018 0,
13019 6,
13020 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
13021 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13022 { 0, 0, 0, 0, 0 },
13023 &core_op_lib
13024 },
13025 { /* 912 */
13026 /* type PARROT_INLINE_OP, */
13027 "find_cclass",
13028 "find_cclass_i_ic_sc_i_i",
13029 "Parrot_find_cclass_i_ic_sc_i_i",
13030 /* "", body */
13031 0,
13032 6,
13033 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
13034 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13035 { 0, 0, 0, 0, 0 },
13036 &core_op_lib
13037 },
13038 { /* 913 */
13039 /* type PARROT_INLINE_OP, */
13040 "find_cclass",
13041 "find_cclass_i_i_s_ic_i",
13042 "Parrot_find_cclass_i_i_s_ic_i",
13043 /* "", body */
13044 0,
13045 6,
13046 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
13047 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13048 { 0, 0, 0, 0, 0 },
13049 &core_op_lib
13050 },
13051 { /* 914 */
13052 /* type PARROT_INLINE_OP, */
13053 "find_cclass",
13054 "find_cclass_i_ic_s_ic_i",
13055 "Parrot_find_cclass_i_ic_s_ic_i",
13056 /* "", body */
13057 0,
13058 6,
13059 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
13060 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13061 { 0, 0, 0, 0, 0 },
13062 &core_op_lib
13063 },
13064 { /* 915 */
13065 /* type PARROT_INLINE_OP, */
13066 "find_cclass",
13067 "find_cclass_i_i_sc_ic_i",
13068 "Parrot_find_cclass_i_i_sc_ic_i",
13069 /* "", body */
13070 0,
13071 6,
13072 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
13073 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13074 { 0, 0, 0, 0, 0 },
13075 &core_op_lib
13076 },
13077 { /* 916 */
13078 /* type PARROT_INLINE_OP, */
13079 "find_cclass",
13080 "find_cclass_i_ic_sc_ic_i",
13081 "Parrot_find_cclass_i_ic_sc_ic_i",
13082 /* "", body */
13083 0,
13084 6,
13085 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
13086 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13087 { 0, 0, 0, 0, 0 },
13088 &core_op_lib
13089 },
13090 { /* 917 */
13091 /* type PARROT_INLINE_OP, */
13092 "find_cclass",
13093 "find_cclass_i_i_s_i_ic",
13094 "Parrot_find_cclass_i_i_s_i_ic",
13095 /* "", body */
13096 0,
13097 6,
13098 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
13099 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13100 { 0, 0, 0, 0, 0 },
13101 &core_op_lib
13102 },
13103 { /* 918 */
13104 /* type PARROT_INLINE_OP, */
13105 "find_cclass",
13106 "find_cclass_i_ic_s_i_ic",
13107 "Parrot_find_cclass_i_ic_s_i_ic",
13108 /* "", body */
13109 0,
13110 6,
13111 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
13112 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13113 { 0, 0, 0, 0, 0 },
13114 &core_op_lib
13115 },
13116 { /* 919 */
13117 /* type PARROT_INLINE_OP, */
13118 "find_cclass",
13119 "find_cclass_i_i_sc_i_ic",
13120 "Parrot_find_cclass_i_i_sc_i_ic",
13121 /* "", body */
13122 0,
13123 6,
13124 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
13125 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13126 { 0, 0, 0, 0, 0 },
13127 &core_op_lib
13128 },
13129 { /* 920 */
13130 /* type PARROT_INLINE_OP, */
13131 "find_cclass",
13132 "find_cclass_i_ic_sc_i_ic",
13133 "Parrot_find_cclass_i_ic_sc_i_ic",
13134 /* "", body */
13135 0,
13136 6,
13137 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
13138 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13139 { 0, 0, 0, 0, 0 },
13140 &core_op_lib
13141 },
13142 { /* 921 */
13143 /* type PARROT_INLINE_OP, */
13144 "find_cclass",
13145 "find_cclass_i_i_s_ic_ic",
13146 "Parrot_find_cclass_i_i_s_ic_ic",
13147 /* "", body */
13148 0,
13149 6,
13150 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
13151 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13152 { 0, 0, 0, 0, 0 },
13153 &core_op_lib
13154 },
13155 { /* 922 */
13156 /* type PARROT_INLINE_OP, */
13157 "find_cclass",
13158 "find_cclass_i_ic_s_ic_ic",
13159 "Parrot_find_cclass_i_ic_s_ic_ic",
13160 /* "", body */
13161 0,
13162 6,
13163 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
13164 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13165 { 0, 0, 0, 0, 0 },
13166 &core_op_lib
13167 },
13168 { /* 923 */
13169 /* type PARROT_INLINE_OP, */
13170 "find_cclass",
13171 "find_cclass_i_i_sc_ic_ic",
13172 "Parrot_find_cclass_i_i_sc_ic_ic",
13173 /* "", body */
13174 0,
13175 6,
13176 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
13177 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13178 { 0, 0, 0, 0, 0 },
13179 &core_op_lib
13180 },
13181 { /* 924 */
13182 /* type PARROT_INLINE_OP, */
13183 "find_cclass",
13184 "find_cclass_i_ic_sc_ic_ic",
13185 "Parrot_find_cclass_i_ic_sc_ic_ic",
13186 /* "", body */
13187 0,
13188 6,
13189 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
13190 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13191 { 0, 0, 0, 0, 0 },
13192 &core_op_lib
13193 },
13194 { /* 925 */
13195 /* type PARROT_INLINE_OP, */
13196 "find_not_cclass",
13197 "find_not_cclass_i_i_s_i_i",
13198 "Parrot_find_not_cclass_i_i_s_i_i",
13199 /* "", body */
13200 0,
13201 6,
13202 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
13203 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13204 { 0, 0, 0, 0, 0 },
13205 &core_op_lib
13206 },
13207 { /* 926 */
13208 /* type PARROT_INLINE_OP, */
13209 "find_not_cclass",
13210 "find_not_cclass_i_ic_s_i_i",
13211 "Parrot_find_not_cclass_i_ic_s_i_i",
13212 /* "", body */
13213 0,
13214 6,
13215 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
13216 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13217 { 0, 0, 0, 0, 0 },
13218 &core_op_lib
13219 },
13220 { /* 927 */
13221 /* type PARROT_INLINE_OP, */
13222 "find_not_cclass",
13223 "find_not_cclass_i_i_sc_i_i",
13224 "Parrot_find_not_cclass_i_i_sc_i_i",
13225 /* "", body */
13226 0,
13227 6,
13228 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
13229 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13230 { 0, 0, 0, 0, 0 },
13231 &core_op_lib
13232 },
13233 { /* 928 */
13234 /* type PARROT_INLINE_OP, */
13235 "find_not_cclass",
13236 "find_not_cclass_i_ic_sc_i_i",
13237 "Parrot_find_not_cclass_i_ic_sc_i_i",
13238 /* "", body */
13239 0,
13240 6,
13241 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
13242 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13243 { 0, 0, 0, 0, 0 },
13244 &core_op_lib
13245 },
13246 { /* 929 */
13247 /* type PARROT_INLINE_OP, */
13248 "find_not_cclass",
13249 "find_not_cclass_i_i_s_ic_i",
13250 "Parrot_find_not_cclass_i_i_s_ic_i",
13251 /* "", body */
13252 0,
13253 6,
13254 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
13255 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13256 { 0, 0, 0, 0, 0 },
13257 &core_op_lib
13258 },
13259 { /* 930 */
13260 /* type PARROT_INLINE_OP, */
13261 "find_not_cclass",
13262 "find_not_cclass_i_ic_s_ic_i",
13263 "Parrot_find_not_cclass_i_ic_s_ic_i",
13264 /* "", body */
13265 0,
13266 6,
13267 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
13268 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13269 { 0, 0, 0, 0, 0 },
13270 &core_op_lib
13271 },
13272 { /* 931 */
13273 /* type PARROT_INLINE_OP, */
13274 "find_not_cclass",
13275 "find_not_cclass_i_i_sc_ic_i",
13276 "Parrot_find_not_cclass_i_i_sc_ic_i",
13277 /* "", body */
13278 0,
13279 6,
13280 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
13281 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13282 { 0, 0, 0, 0, 0 },
13283 &core_op_lib
13284 },
13285 { /* 932 */
13286 /* type PARROT_INLINE_OP, */
13287 "find_not_cclass",
13288 "find_not_cclass_i_ic_sc_ic_i",
13289 "Parrot_find_not_cclass_i_ic_sc_ic_i",
13290 /* "", body */
13291 0,
13292 6,
13293 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
13294 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13295 { 0, 0, 0, 0, 0 },
13296 &core_op_lib
13297 },
13298 { /* 933 */
13299 /* type PARROT_INLINE_OP, */
13300 "find_not_cclass",
13301 "find_not_cclass_i_i_s_i_ic",
13302 "Parrot_find_not_cclass_i_i_s_i_ic",
13303 /* "", body */
13304 0,
13305 6,
13306 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
13307 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13308 { 0, 0, 0, 0, 0 },
13309 &core_op_lib
13310 },
13311 { /* 934 */
13312 /* type PARROT_INLINE_OP, */
13313 "find_not_cclass",
13314 "find_not_cclass_i_ic_s_i_ic",
13315 "Parrot_find_not_cclass_i_ic_s_i_ic",
13316 /* "", body */
13317 0,
13318 6,
13319 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
13320 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13321 { 0, 0, 0, 0, 0 },
13322 &core_op_lib
13323 },
13324 { /* 935 */
13325 /* type PARROT_INLINE_OP, */
13326 "find_not_cclass",
13327 "find_not_cclass_i_i_sc_i_ic",
13328 "Parrot_find_not_cclass_i_i_sc_i_ic",
13329 /* "", body */
13330 0,
13331 6,
13332 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
13333 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13334 { 0, 0, 0, 0, 0 },
13335 &core_op_lib
13336 },
13337 { /* 936 */
13338 /* type PARROT_INLINE_OP, */
13339 "find_not_cclass",
13340 "find_not_cclass_i_ic_sc_i_ic",
13341 "Parrot_find_not_cclass_i_ic_sc_i_ic",
13342 /* "", body */
13343 0,
13344 6,
13345 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
13346 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13347 { 0, 0, 0, 0, 0 },
13348 &core_op_lib
13349 },
13350 { /* 937 */
13351 /* type PARROT_INLINE_OP, */
13352 "find_not_cclass",
13353 "find_not_cclass_i_i_s_ic_ic",
13354 "Parrot_find_not_cclass_i_i_s_ic_ic",
13355 /* "", body */
13356 0,
13357 6,
13358 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
13359 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13360 { 0, 0, 0, 0, 0 },
13361 &core_op_lib
13362 },
13363 { /* 938 */
13364 /* type PARROT_INLINE_OP, */
13365 "find_not_cclass",
13366 "find_not_cclass_i_ic_s_ic_ic",
13367 "Parrot_find_not_cclass_i_ic_s_ic_ic",
13368 /* "", body */
13369 0,
13370 6,
13371 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
13372 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13373 { 0, 0, 0, 0, 0 },
13374 &core_op_lib
13375 },
13376 { /* 939 */
13377 /* type PARROT_INLINE_OP, */
13378 "find_not_cclass",
13379 "find_not_cclass_i_i_sc_ic_ic",
13380 "Parrot_find_not_cclass_i_i_sc_ic_ic",
13381 /* "", body */
13382 0,
13383 6,
13384 { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
13385 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13386 { 0, 0, 0, 0, 0 },
13387 &core_op_lib
13388 },
13389 { /* 940 */
13390 /* type PARROT_INLINE_OP, */
13391 "find_not_cclass",
13392 "find_not_cclass_i_ic_sc_ic_ic",
13393 "Parrot_find_not_cclass_i_ic_sc_ic_ic",
13394 /* "", body */
13395 0,
13396 6,
13397 { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
13398 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13399 { 0, 0, 0, 0, 0 },
13400 &core_op_lib
13401 },
13402 { /* 941 */
13403 /* type PARROT_FUNCTION_OP, */
13404 "escape",
13405 "escape_s_s",
13406 "Parrot_escape_s_s",
13407 /* "", body */
13408 0,
13409 3,
13410 { PARROT_ARG_S, PARROT_ARG_S },
13411 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13412 { 0, 0 },
13413 &core_op_lib
13414 },
13415 { /* 942 */
13416 /* type PARROT_FUNCTION_OP, */
13417 "compose",
13418 "compose_s_s",
13419 "Parrot_compose_s_s",
13420 /* "", body */
13421 0,
13422 3,
13423 { PARROT_ARG_S, PARROT_ARG_S },
13424 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13425 { 0, 0 },
13426 &core_op_lib
13427 },
13428 { /* 943 */
13429 /* type PARROT_FUNCTION_OP, */
13430 "compose",
13431 "compose_s_sc",
13432 "Parrot_compose_s_sc",
13433 /* "", body */
13434 0,
13435 3,
13436 { PARROT_ARG_S, PARROT_ARG_SC },
13437 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13438 { 0, 0 },
13439 &core_op_lib
13440 },
13441 { /* 944 */
13442 /* type PARROT_INLINE_OP, */
13443 "spawnw",
13444 "spawnw_i_s",
13445 "Parrot_spawnw_i_s",
13446 /* "", body */
13447 0,
13448 3,
13449 { PARROT_ARG_I, PARROT_ARG_S },
13450 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13451 { 0, 0 },
13452 &core_op_lib
13453 },
13454 { /* 945 */
13455 /* type PARROT_INLINE_OP, */
13456 "spawnw",
13457 "spawnw_i_sc",
13458 "Parrot_spawnw_i_sc",
13459 /* "", body */
13460 0,
13461 3,
13462 { PARROT_ARG_I, PARROT_ARG_SC },
13463 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13464 { 0, 0 },
13465 &core_op_lib
13466 },
13467 { /* 946 */
13468 /* type PARROT_INLINE_OP, */
13469 "spawnw",
13470 "spawnw_i_p",
13471 "Parrot_spawnw_i_p",
13472 /* "", body */
13473 0,
13474 3,
13475 { PARROT_ARG_I, PARROT_ARG_P },
13476 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13477 { 0, 0 },
13478 &core_op_lib
13479 },
13480 { /* 947 */
13481 /* type PARROT_INLINE_OP, */
13482 "err",
13483 "err_i",
13484 "Parrot_err_i",
13485 /* "", body */
13486 0,
13487 2,
13488 { PARROT_ARG_I },
13489 { PARROT_ARGDIR_OUT },
13490 { 0 },
13491 &core_op_lib
13492 },
13493 { /* 948 */
13494 /* type PARROT_FUNCTION_OP, */
13495 "err",
13496 "err_s",
13497 "Parrot_err_s",
13498 /* "", body */
13499 0,
13500 2,
13501 { PARROT_ARG_S },
13502 { PARROT_ARGDIR_OUT },
13503 { 0 },
13504 &core_op_lib
13505 },
13506 { /* 949 */
13507 /* type PARROT_FUNCTION_OP, */
13508 "err",
13509 "err_s_i",
13510 "Parrot_err_s_i",
13511 /* "", body */
13512 0,
13513 3,
13514 { PARROT_ARG_S, PARROT_ARG_I },
13515 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13516 { 0, 0 },
13517 &core_op_lib
13518 },
13519 { /* 950 */
13520 /* type PARROT_FUNCTION_OP, */
13521 "err",
13522 "err_s_ic",
13523 "Parrot_err_s_ic",
13524 /* "", body */
13525 0,
13526 3,
13527 { PARROT_ARG_S, PARROT_ARG_IC },
13528 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13529 { 0, 0 },
13530 &core_op_lib
13531 },
13532 { /* 951 */
13533 /* type PARROT_INLINE_OP, */
13534 "time",
13535 "time_i",
13536 "Parrot_time_i",
13537 /* "", body */
13538 0,
13539 2,
13540 { PARROT_ARG_I },
13541 { PARROT_ARGDIR_OUT },
13542 { 0 },
13543 &core_op_lib
13544 },
13545 { /* 952 */
13546 /* type PARROT_INLINE_OP, */
13547 "time",
13548 "time_n",
13549 "Parrot_time_n",
13550 /* "", body */
13551 0,
13552 2,
13553 { PARROT_ARG_N },
13554 { PARROT_ARGDIR_OUT },
13555 { 0 },
13556 &core_op_lib
13557 },
13558 { /* 953 */
13559 /* type PARROT_INLINE_OP, */
13560 "sleep",
13561 "sleep_i",
13562 "Parrot_sleep_i",
13563 /* "", body */
13564 0,
13565 2,
13566 { PARROT_ARG_I },
13567 { PARROT_ARGDIR_IN },
13568 { 0 },
13569 &core_op_lib
13570 },
13571 { /* 954 */
13572 /* type PARROT_INLINE_OP, */
13573 "sleep",
13574 "sleep_ic",
13575 "Parrot_sleep_ic",
13576 /* "", body */
13577 0,
13578 2,
13579 { PARROT_ARG_IC },
13580 { PARROT_ARGDIR_IN },
13581 { 0 },
13582 &core_op_lib
13583 },
13584 { /* 955 */
13585 /* type PARROT_INLINE_OP, */
13586 "sleep",
13587 "sleep_n",
13588 "Parrot_sleep_n",
13589 /* "", body */
13590 0,
13591 2,
13592 { PARROT_ARG_N },
13593 { PARROT_ARGDIR_IN },
13594 { 0 },
13595 &core_op_lib
13596 },
13597 { /* 956 */
13598 /* type PARROT_INLINE_OP, */
13599 "sleep",
13600 "sleep_nc",
13601 "Parrot_sleep_nc",
13602 /* "", body */
13603 0,
13604 2,
13605 { PARROT_ARG_NC },
13606 { PARROT_ARGDIR_IN },
13607 { 0 },
13608 &core_op_lib
13609 },
13610 { /* 957 */
13611 /* type PARROT_FUNCTION_OP, */
13612 "store_lex",
13613 "store_lex_s_p",
13614 "Parrot_store_lex_s_p",
13615 /* "", body */
13616 0,
13617 3,
13618 { PARROT_ARG_S, PARROT_ARG_P },
13619 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13620 { 0, 0 },
13621 &core_op_lib
13622 },
13623 { /* 958 */
13624 /* type PARROT_FUNCTION_OP, */
13625 "store_lex",
13626 "store_lex_sc_p",
13627 "Parrot_store_lex_sc_p",
13628 /* "", body */
13629 0,
13630 3,
13631 { PARROT_ARG_SC, PARROT_ARG_P },
13632 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13633 { 0, 0 },
13634 &core_op_lib
13635 },
13636 { /* 959 */
13637 /* type PARROT_FUNCTION_OP, */
13638 "store_dynamic_lex",
13639 "store_dynamic_lex_s_p",
13640 "Parrot_store_dynamic_lex_s_p",
13641 /* "", body */
13642 0,
13643 3,
13644 { PARROT_ARG_S, PARROT_ARG_P },
13645 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13646 { 0, 0 },
13647 &core_op_lib
13648 },
13649 { /* 960 */
13650 /* type PARROT_FUNCTION_OP, */
13651 "store_dynamic_lex",
13652 "store_dynamic_lex_sc_p",
13653 "Parrot_store_dynamic_lex_sc_p",
13654 /* "", body */
13655 0,
13656 3,
13657 { PARROT_ARG_SC, PARROT_ARG_P },
13658 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13659 { 0, 0 },
13660 &core_op_lib
13661 },
13662 { /* 961 */
13663 /* type PARROT_FUNCTION_OP, */
13664 "find_lex",
13665 "find_lex_p_s",
13666 "Parrot_find_lex_p_s",
13667 /* "", body */
13668 0,
13669 3,
13670 { PARROT_ARG_P, PARROT_ARG_S },
13671 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13672 { 0, 0 },
13673 &core_op_lib
13674 },
13675 { /* 962 */
13676 /* type PARROT_FUNCTION_OP, */
13677 "find_lex",
13678 "find_lex_p_sc",
13679 "Parrot_find_lex_p_sc",
13680 /* "", body */
13681 0,
13682 3,
13683 { PARROT_ARG_P, PARROT_ARG_SC },
13684 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13685 { 0, 0 },
13686 &core_op_lib
13687 },
13688 { /* 963 */
13689 /* type PARROT_FUNCTION_OP, */
13690 "find_dynamic_lex",
13691 "find_dynamic_lex_p_s",
13692 "Parrot_find_dynamic_lex_p_s",
13693 /* "", body */
13694 0,
13695 3,
13696 { PARROT_ARG_P, PARROT_ARG_S },
13697 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13698 { 0, 0 },
13699 &core_op_lib
13700 },
13701 { /* 964 */
13702 /* type PARROT_FUNCTION_OP, */
13703 "find_dynamic_lex",
13704 "find_dynamic_lex_p_sc",
13705 "Parrot_find_dynamic_lex_p_sc",
13706 /* "", body */
13707 0,
13708 3,
13709 { PARROT_ARG_P, PARROT_ARG_SC },
13710 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13711 { 0, 0 },
13712 &core_op_lib
13713 },
13714 { /* 965 */
13715 /* type PARROT_FUNCTION_OP, */
13716 "find_caller_lex",
13717 "find_caller_lex_p_s",
13718 "Parrot_find_caller_lex_p_s",
13719 /* "", body */
13720 0,
13721 3,
13722 { PARROT_ARG_P, PARROT_ARG_S },
13723 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13724 { 0, 0 },
13725 &core_op_lib
13726 },
13727 { /* 966 */
13728 /* type PARROT_FUNCTION_OP, */
13729 "find_caller_lex",
13730 "find_caller_lex_p_sc",
13731 "Parrot_find_caller_lex_p_sc",
13732 /* "", body */
13733 0,
13734 3,
13735 { PARROT_ARG_P, PARROT_ARG_SC },
13736 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13737 { 0, 0 },
13738 &core_op_lib
13739 },
13740 { /* 967 */
13741 /* type PARROT_FUNCTION_OP, */
13742 "get_namespace",
13743 "get_namespace_p",
13744 "Parrot_get_namespace_p",
13745 /* "", body */
13746 0,
13747 2,
13748 { PARROT_ARG_P },
13749 { PARROT_ARGDIR_OUT },
13750 { 0 },
13751 &core_op_lib
13752 },
13753 { /* 968 */
13754 /* type PARROT_FUNCTION_OP, */
13755 "get_namespace",
13756 "get_namespace_p_p",
13757 "Parrot_get_namespace_p_p",
13758 /* "", body */
13759 0,
13760 3,
13761 { PARROT_ARG_P, PARROT_ARG_P },
13762 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13763 { 0, 0 },
13764 &core_op_lib
13765 },
13766 { /* 969 */
13767 /* type PARROT_FUNCTION_OP, */
13768 "get_namespace",
13769 "get_namespace_p_pc",
13770 "Parrot_get_namespace_p_pc",
13771 /* "", body */
13772 0,
13773 3,
13774 { PARROT_ARG_P, PARROT_ARG_PC },
13775 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13776 { 0, 0 },
13777 &core_op_lib
13778 },
13779 { /* 970 */
13780 /* type PARROT_FUNCTION_OP, */
13781 "get_hll_namespace",
13782 "get_hll_namespace_p",
13783 "Parrot_get_hll_namespace_p",
13784 /* "", body */
13785 0,
13786 2,
13787 { PARROT_ARG_P },
13788 { PARROT_ARGDIR_OUT },
13789 { 0 },
13790 &core_op_lib
13791 },
13792 { /* 971 */
13793 /* type PARROT_FUNCTION_OP, */
13794 "get_hll_namespace",
13795 "get_hll_namespace_p_p",
13796 "Parrot_get_hll_namespace_p_p",
13797 /* "", body */
13798 0,
13799 3,
13800 { PARROT_ARG_P, PARROT_ARG_P },
13801 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13802 { 0, 0 },
13803 &core_op_lib
13804 },
13805 { /* 972 */
13806 /* type PARROT_FUNCTION_OP, */
13807 "get_hll_namespace",
13808 "get_hll_namespace_p_pc",
13809 "Parrot_get_hll_namespace_p_pc",
13810 /* "", body */
13811 0,
13812 3,
13813 { PARROT_ARG_P, PARROT_ARG_PC },
13814 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13815 { 0, 0 },
13816 &core_op_lib
13817 },
13818 { /* 973 */
13819 /* type PARROT_FUNCTION_OP, */
13820 "get_root_namespace",
13821 "get_root_namespace_p",
13822 "Parrot_get_root_namespace_p",
13823 /* "", body */
13824 0,
13825 2,
13826 { PARROT_ARG_P },
13827 { PARROT_ARGDIR_OUT },
13828 { 0 },
13829 &core_op_lib
13830 },
13831 { /* 974 */
13832 /* type PARROT_FUNCTION_OP, */
13833 "get_root_namespace",
13834 "get_root_namespace_p_p",
13835 "Parrot_get_root_namespace_p_p",
13836 /* "", body */
13837 0,
13838 3,
13839 { PARROT_ARG_P, PARROT_ARG_P },
13840 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13841 { 0, 0 },
13842 &core_op_lib
13843 },
13844 { /* 975 */
13845 /* type PARROT_FUNCTION_OP, */
13846 "get_root_namespace",
13847 "get_root_namespace_p_pc",
13848 "Parrot_get_root_namespace_p_pc",
13849 /* "", body */
13850 0,
13851 3,
13852 { PARROT_ARG_P, PARROT_ARG_PC },
13853 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13854 { 0, 0 },
13855 &core_op_lib
13856 },
13857 { /* 976 */
13858 /* type PARROT_FUNCTION_OP, */
13859 "get_global",
13860 "get_global_p_s",
13861 "Parrot_get_global_p_s",
13862 /* "", body */
13863 0,
13864 3,
13865 { PARROT_ARG_P, PARROT_ARG_S },
13866 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13867 { 0, 0 },
13868 &core_op_lib
13869 },
13870 { /* 977 */
13871 /* type PARROT_FUNCTION_OP, */
13872 "get_global",
13873 "get_global_p_sc",
13874 "Parrot_get_global_p_sc",
13875 /* "", body */
13876 0,
13877 3,
13878 { PARROT_ARG_P, PARROT_ARG_SC },
13879 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13880 { 0, 0 },
13881 &core_op_lib
13882 },
13883 { /* 978 */
13884 /* type PARROT_FUNCTION_OP, */
13885 "get_global",
13886 "get_global_p_p_s",
13887 "Parrot_get_global_p_p_s",
13888 /* "", body */
13889 0,
13890 4,
13891 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
13892 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13893 { 0, 0, 0 },
13894 &core_op_lib
13895 },
13896 { /* 979 */
13897 /* type PARROT_FUNCTION_OP, */
13898 "get_global",
13899 "get_global_p_pc_s",
13900 "Parrot_get_global_p_pc_s",
13901 /* "", body */
13902 0,
13903 4,
13904 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
13905 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13906 { 0, 0, 0 },
13907 &core_op_lib
13908 },
13909 { /* 980 */
13910 /* type PARROT_FUNCTION_OP, */
13911 "get_global",
13912 "get_global_p_p_sc",
13913 "Parrot_get_global_p_p_sc",
13914 /* "", body */
13915 0,
13916 4,
13917 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
13918 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13919 { 0, 0, 0 },
13920 &core_op_lib
13921 },
13922 { /* 981 */
13923 /* type PARROT_FUNCTION_OP, */
13924 "get_global",
13925 "get_global_p_pc_sc",
13926 "Parrot_get_global_p_pc_sc",
13927 /* "", body */
13928 0,
13929 4,
13930 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
13931 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13932 { 0, 0, 0 },
13933 &core_op_lib
13934 },
13935 { /* 982 */
13936 /* type PARROT_FUNCTION_OP, */
13937 "get_hll_global",
13938 "get_hll_global_p_s",
13939 "Parrot_get_hll_global_p_s",
13940 /* "", body */
13941 0,
13942 3,
13943 { PARROT_ARG_P, PARROT_ARG_S },
13944 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13945 { 0, 0 },
13946 &core_op_lib
13947 },
13948 { /* 983 */
13949 /* type PARROT_FUNCTION_OP, */
13950 "get_hll_global",
13951 "get_hll_global_p_sc",
13952 "Parrot_get_hll_global_p_sc",
13953 /* "", body */
13954 0,
13955 3,
13956 { PARROT_ARG_P, PARROT_ARG_SC },
13957 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
13958 { 0, 0 },
13959 &core_op_lib
13960 },
13961 { /* 984 */
13962 /* type PARROT_FUNCTION_OP, */
13963 "get_hll_global",
13964 "get_hll_global_p_p_s",
13965 "Parrot_get_hll_global_p_p_s",
13966 /* "", body */
13967 0,
13968 4,
13969 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
13970 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13971 { 0, 0, 0 },
13972 &core_op_lib
13973 },
13974 { /* 985 */
13975 /* type PARROT_FUNCTION_OP, */
13976 "get_hll_global",
13977 "get_hll_global_p_pc_s",
13978 "Parrot_get_hll_global_p_pc_s",
13979 /* "", body */
13980 0,
13981 4,
13982 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
13983 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13984 { 0, 0, 0 },
13985 &core_op_lib
13986 },
13987 { /* 986 */
13988 /* type PARROT_FUNCTION_OP, */
13989 "get_hll_global",
13990 "get_hll_global_p_p_sc",
13991 "Parrot_get_hll_global_p_p_sc",
13992 /* "", body */
13993 0,
13994 4,
13995 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
13996 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
13997 { 0, 0, 0 },
13998 &core_op_lib
13999 },
14000 { /* 987 */
14001 /* type PARROT_FUNCTION_OP, */
14002 "get_hll_global",
14003 "get_hll_global_p_pc_sc",
14004 "Parrot_get_hll_global_p_pc_sc",
14005 /* "", body */
14006 0,
14007 4,
14008 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
14009 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14010 { 0, 0, 0 },
14011 &core_op_lib
14012 },
14013 { /* 988 */
14014 /* type PARROT_FUNCTION_OP, */
14015 "get_root_global",
14016 "get_root_global_p_s",
14017 "Parrot_get_root_global_p_s",
14018 /* "", body */
14019 0,
14020 3,
14021 { PARROT_ARG_P, PARROT_ARG_S },
14022 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14023 { 0, 0 },
14024 &core_op_lib
14025 },
14026 { /* 989 */
14027 /* type PARROT_FUNCTION_OP, */
14028 "get_root_global",
14029 "get_root_global_p_sc",
14030 "Parrot_get_root_global_p_sc",
14031 /* "", body */
14032 0,
14033 3,
14034 { PARROT_ARG_P, PARROT_ARG_SC },
14035 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14036 { 0, 0 },
14037 &core_op_lib
14038 },
14039 { /* 990 */
14040 /* type PARROT_FUNCTION_OP, */
14041 "get_root_global",
14042 "get_root_global_p_p_s",
14043 "Parrot_get_root_global_p_p_s",
14044 /* "", body */
14045 0,
14046 4,
14047 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
14048 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14049 { 0, 0, 0 },
14050 &core_op_lib
14051 },
14052 { /* 991 */
14053 /* type PARROT_FUNCTION_OP, */
14054 "get_root_global",
14055 "get_root_global_p_pc_s",
14056 "Parrot_get_root_global_p_pc_s",
14057 /* "", body */
14058 0,
14059 4,
14060 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
14061 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14062 { 0, 0, 0 },
14063 &core_op_lib
14064 },
14065 { /* 992 */
14066 /* type PARROT_FUNCTION_OP, */
14067 "get_root_global",
14068 "get_root_global_p_p_sc",
14069 "Parrot_get_root_global_p_p_sc",
14070 /* "", body */
14071 0,
14072 4,
14073 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
14074 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14075 { 0, 0, 0 },
14076 &core_op_lib
14077 },
14078 { /* 993 */
14079 /* type PARROT_FUNCTION_OP, */
14080 "get_root_global",
14081 "get_root_global_p_pc_sc",
14082 "Parrot_get_root_global_p_pc_sc",
14083 /* "", body */
14084 0,
14085 4,
14086 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
14087 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14088 { 0, 0, 0 },
14089 &core_op_lib
14090 },
14091 { /* 994 */
14092 /* type PARROT_FUNCTION_OP, */
14093 "set_global",
14094 "set_global_s_p",
14095 "Parrot_set_global_s_p",
14096 /* "", body */
14097 0,
14098 3,
14099 { PARROT_ARG_S, PARROT_ARG_P },
14100 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14101 { 0, 0 },
14102 &core_op_lib
14103 },
14104 { /* 995 */
14105 /* type PARROT_FUNCTION_OP, */
14106 "set_global",
14107 "set_global_sc_p",
14108 "Parrot_set_global_sc_p",
14109 /* "", body */
14110 0,
14111 3,
14112 { PARROT_ARG_SC, PARROT_ARG_P },
14113 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14114 { 0, 0 },
14115 &core_op_lib
14116 },
14117 { /* 996 */
14118 /* type PARROT_FUNCTION_OP, */
14119 "set_global",
14120 "set_global_p_s_p",
14121 "Parrot_set_global_p_s_p",
14122 /* "", body */
14123 0,
14124 4,
14125 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
14126 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14127 { 0, 0, 0 },
14128 &core_op_lib
14129 },
14130 { /* 997 */
14131 /* type PARROT_FUNCTION_OP, */
14132 "set_global",
14133 "set_global_pc_s_p",
14134 "Parrot_set_global_pc_s_p",
14135 /* "", body */
14136 0,
14137 4,
14138 { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
14139 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14140 { 0, 0, 0 },
14141 &core_op_lib
14142 },
14143 { /* 998 */
14144 /* type PARROT_FUNCTION_OP, */
14145 "set_global",
14146 "set_global_p_sc_p",
14147 "Parrot_set_global_p_sc_p",
14148 /* "", body */
14149 0,
14150 4,
14151 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
14152 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14153 { 0, 0, 0 },
14154 &core_op_lib
14155 },
14156 { /* 999 */
14157 /* type PARROT_FUNCTION_OP, */
14158 "set_global",
14159 "set_global_pc_sc_p",
14160 "Parrot_set_global_pc_sc_p",
14161 /* "", body */
14162 0,
14163 4,
14164 { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
14165 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14166 { 0, 0, 0 },
14167 &core_op_lib
14168 },
14169 { /* 1000 */
14170 /* type PARROT_FUNCTION_OP, */
14171 "set_hll_global",
14172 "set_hll_global_s_p",
14173 "Parrot_set_hll_global_s_p",
14174 /* "", body */
14175 0,
14176 3,
14177 { PARROT_ARG_S, PARROT_ARG_P },
14178 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14179 { 0, 0 },
14180 &core_op_lib
14181 },
14182 { /* 1001 */
14183 /* type PARROT_FUNCTION_OP, */
14184 "set_hll_global",
14185 "set_hll_global_sc_p",
14186 "Parrot_set_hll_global_sc_p",
14187 /* "", body */
14188 0,
14189 3,
14190 { PARROT_ARG_SC, PARROT_ARG_P },
14191 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14192 { 0, 0 },
14193 &core_op_lib
14194 },
14195 { /* 1002 */
14196 /* type PARROT_FUNCTION_OP, */
14197 "set_hll_global",
14198 "set_hll_global_p_s_p",
14199 "Parrot_set_hll_global_p_s_p",
14200 /* "", body */
14201 0,
14202 4,
14203 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
14204 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14205 { 0, 0, 0 },
14206 &core_op_lib
14207 },
14208 { /* 1003 */
14209 /* type PARROT_FUNCTION_OP, */
14210 "set_hll_global",
14211 "set_hll_global_pc_s_p",
14212 "Parrot_set_hll_global_pc_s_p",
14213 /* "", body */
14214 0,
14215 4,
14216 { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
14217 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14218 { 0, 0, 0 },
14219 &core_op_lib
14220 },
14221 { /* 1004 */
14222 /* type PARROT_FUNCTION_OP, */
14223 "set_hll_global",
14224 "set_hll_global_p_sc_p",
14225 "Parrot_set_hll_global_p_sc_p",
14226 /* "", body */
14227 0,
14228 4,
14229 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
14230 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14231 { 0, 0, 0 },
14232 &core_op_lib
14233 },
14234 { /* 1005 */
14235 /* type PARROT_FUNCTION_OP, */
14236 "set_hll_global",
14237 "set_hll_global_pc_sc_p",
14238 "Parrot_set_hll_global_pc_sc_p",
14239 /* "", body */
14240 0,
14241 4,
14242 { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
14243 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14244 { 0, 0, 0 },
14245 &core_op_lib
14246 },
14247 { /* 1006 */
14248 /* type PARROT_FUNCTION_OP, */
14249 "set_root_global",
14250 "set_root_global_s_p",
14251 "Parrot_set_root_global_s_p",
14252 /* "", body */
14253 0,
14254 3,
14255 { PARROT_ARG_S, PARROT_ARG_P },
14256 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14257 { 0, 0 },
14258 &core_op_lib
14259 },
14260 { /* 1007 */
14261 /* type PARROT_FUNCTION_OP, */
14262 "set_root_global",
14263 "set_root_global_sc_p",
14264 "Parrot_set_root_global_sc_p",
14265 /* "", body */
14266 0,
14267 3,
14268 { PARROT_ARG_SC, PARROT_ARG_P },
14269 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14270 { 0, 0 },
14271 &core_op_lib
14272 },
14273 { /* 1008 */
14274 /* type PARROT_FUNCTION_OP, */
14275 "set_root_global",
14276 "set_root_global_p_s_p",
14277 "Parrot_set_root_global_p_s_p",
14278 /* "", body */
14279 0,
14280 4,
14281 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
14282 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14283 { 0, 0, 0 },
14284 &core_op_lib
14285 },
14286 { /* 1009 */
14287 /* type PARROT_FUNCTION_OP, */
14288 "set_root_global",
14289 "set_root_global_pc_s_p",
14290 "Parrot_set_root_global_pc_s_p",
14291 /* "", body */
14292 0,
14293 4,
14294 { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
14295 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14296 { 0, 0, 0 },
14297 &core_op_lib
14298 },
14299 { /* 1010 */
14300 /* type PARROT_FUNCTION_OP, */
14301 "set_root_global",
14302 "set_root_global_p_sc_p",
14303 "Parrot_set_root_global_p_sc_p",
14304 /* "", body */
14305 0,
14306 4,
14307 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
14308 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14309 { 0, 0, 0 },
14310 &core_op_lib
14311 },
14312 { /* 1011 */
14313 /* type PARROT_FUNCTION_OP, */
14314 "set_root_global",
14315 "set_root_global_pc_sc_p",
14316 "Parrot_set_root_global_pc_sc_p",
14317 /* "", body */
14318 0,
14319 4,
14320 { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
14321 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14322 { 0, 0, 0 },
14323 &core_op_lib
14324 },
14325 { /* 1012 */
14326 /* type PARROT_FUNCTION_OP, */
14327 "find_name",
14328 "find_name_p_s",
14329 "Parrot_find_name_p_s",
14330 /* "", body */
14331 0,
14332 3,
14333 { PARROT_ARG_P, PARROT_ARG_S },
14334 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14335 { 0, 0 },
14336 &core_op_lib
14337 },
14338 { /* 1013 */
14339 /* type PARROT_FUNCTION_OP, */
14340 "find_name",
14341 "find_name_p_sc",
14342 "Parrot_find_name_p_sc",
14343 /* "", body */
14344 0,
14345 3,
14346 { PARROT_ARG_P, PARROT_ARG_SC },
14347 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14348 { 0, 0 },
14349 &core_op_lib
14350 },
14351 { /* 1014 */
14352 /* type PARROT_INLINE_OP, */
14353 "find_sub_not_null",
14354 "find_sub_not_null_p_s",
14355 "Parrot_find_sub_not_null_p_s",
14356 /* "", body */
14357 0,
14358 3,
14359 { PARROT_ARG_P, PARROT_ARG_S },
14360 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14361 { 0, 0 },
14362 &core_op_lib
14363 },
14364 { /* 1015 */
14365 /* type PARROT_INLINE_OP, */
14366 "find_sub_not_null",
14367 "find_sub_not_null_p_sc",
14368 "Parrot_find_sub_not_null_p_sc",
14369 /* "", body */
14370 0,
14371 3,
14372 { PARROT_ARG_P, PARROT_ARG_SC },
14373 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14374 { 0, 0 },
14375 &core_op_lib
14376 },
14377 { /* 1016 */
14378 /* type PARROT_FUNCTION_OP, */
14379 "trap",
14380 "trap",
14381 "Parrot_trap",
14382 /* "", body */
14383 0,
14384 1,
14385 { (arg_type_t) 0 },
14386 { (arg_dir_t) 0 },
14387 { 0 },
14388 &core_op_lib
14389 },
14390 { /* 1017 */
14391 /* type PARROT_INLINE_OP, */
14392 "set_label",
14393 "set_label_p_ic",
14394 "Parrot_set_label_p_ic",
14395 /* "", body */
14396 0,
14397 3,
14398 { PARROT_ARG_P, PARROT_ARG_IC },
14399 { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14400 { 0, 1 },
14401 &core_op_lib
14402 },
14403 { /* 1018 */
14404 /* type PARROT_INLINE_OP, */
14405 "get_label",
14406 "get_label_i_p",
14407 "Parrot_get_label_i_p",
14408 /* "", body */
14409 0,
14410 3,
14411 { PARROT_ARG_I, PARROT_ARG_P },
14412 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
14413 { 0, 0 },
14414 &core_op_lib
14415 },
14416 { /* 1019 */
14417 /* type PARROT_INLINE_OP, */
14418 "fetch",
14419 "fetch_p_p_p_p",
14420 "Parrot_fetch_p_p_p_p",
14421 /* "", body */
14422 0,
14423 5,
14424 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
14425 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14426 { 0, 0, 0, 0 },
14427 &core_op_lib
14428 },
14429 { /* 1020 */
14430 /* type PARROT_INLINE_OP, */
14431 "fetch",
14432 "fetch_p_pc_p_p",
14433 "Parrot_fetch_p_pc_p_p",
14434 /* "", body */
14435 0,
14436 5,
14437 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_P },
14438 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14439 { 0, 0, 0, 0 },
14440 &core_op_lib
14441 },
14442 { /* 1021 */
14443 /* type PARROT_INLINE_OP, */
14444 "fetch",
14445 "fetch_p_p_pc_p",
14446 "Parrot_fetch_p_p_pc_p",
14447 /* "", body */
14448 0,
14449 5,
14450 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
14451 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14452 { 0, 0, 0, 0 },
14453 &core_op_lib
14454 },
14455 { /* 1022 */
14456 /* type PARROT_INLINE_OP, */
14457 "fetch",
14458 "fetch_p_pc_pc_p",
14459 "Parrot_fetch_p_pc_pc_p",
14460 /* "", body */
14461 0,
14462 5,
14463 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_P },
14464 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14465 { 0, 0, 0, 0 },
14466 &core_op_lib
14467 },
14468 { /* 1023 */
14469 /* type PARROT_INLINE_OP, */
14470 "fetch",
14471 "fetch_p_p_p_pc",
14472 "Parrot_fetch_p_p_p_pc",
14473 /* "", body */
14474 0,
14475 5,
14476 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
14477 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14478 { 0, 0, 0, 0 },
14479 &core_op_lib
14480 },
14481 { /* 1024 */
14482 /* type PARROT_INLINE_OP, */
14483 "fetch",
14484 "fetch_p_pc_p_pc",
14485 "Parrot_fetch_p_pc_p_pc",
14486 /* "", body */
14487 0,
14488 5,
14489 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_PC },
14490 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14491 { 0, 0, 0, 0 },
14492 &core_op_lib
14493 },
14494 { /* 1025 */
14495 /* type PARROT_INLINE_OP, */
14496 "fetch",
14497 "fetch_p_p_pc_pc",
14498 "Parrot_fetch_p_p_pc_pc",
14499 /* "", body */
14500 0,
14501 5,
14502 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
14503 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14504 { 0, 0, 0, 0 },
14505 &core_op_lib
14506 },
14507 { /* 1026 */
14508 /* type PARROT_INLINE_OP, */
14509 "fetch",
14510 "fetch_p_pc_pc_pc",
14511 "Parrot_fetch_p_pc_pc_pc",
14512 /* "", body */
14513 0,
14514 5,
14515 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_PC },
14516 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14517 { 0, 0, 0, 0 },
14518 &core_op_lib
14519 },
14520 { /* 1027 */
14521 /* type PARROT_INLINE_OP, */
14522 "fetch",
14523 "fetch_p_p_i_p",
14524 "Parrot_fetch_p_p_i_p",
14525 /* "", body */
14526 0,
14527 5,
14528 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_P },
14529 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14530 { 0, 0, 0, 0 },
14531 &core_op_lib
14532 },
14533 { /* 1028 */
14534 /* type PARROT_INLINE_OP, */
14535 "fetch",
14536 "fetch_p_pc_i_p",
14537 "Parrot_fetch_p_pc_i_p",
14538 /* "", body */
14539 0,
14540 5,
14541 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_P },
14542 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14543 { 0, 0, 0, 0 },
14544 &core_op_lib
14545 },
14546 { /* 1029 */
14547 /* type PARROT_INLINE_OP, */
14548 "fetch",
14549 "fetch_p_p_ic_p",
14550 "Parrot_fetch_p_p_ic_p",
14551 /* "", body */
14552 0,
14553 5,
14554 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_P },
14555 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14556 { 0, 0, 0, 0 },
14557 &core_op_lib
14558 },
14559 { /* 1030 */
14560 /* type PARROT_INLINE_OP, */
14561 "fetch",
14562 "fetch_p_pc_ic_p",
14563 "Parrot_fetch_p_pc_ic_p",
14564 /* "", body */
14565 0,
14566 5,
14567 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_P },
14568 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14569 { 0, 0, 0, 0 },
14570 &core_op_lib
14571 },
14572 { /* 1031 */
14573 /* type PARROT_INLINE_OP, */
14574 "fetch",
14575 "fetch_p_p_i_pc",
14576 "Parrot_fetch_p_p_i_pc",
14577 /* "", body */
14578 0,
14579 5,
14580 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_PC },
14581 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14582 { 0, 0, 0, 0 },
14583 &core_op_lib
14584 },
14585 { /* 1032 */
14586 /* type PARROT_INLINE_OP, */
14587 "fetch",
14588 "fetch_p_pc_i_pc",
14589 "Parrot_fetch_p_pc_i_pc",
14590 /* "", body */
14591 0,
14592 5,
14593 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_PC },
14594 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14595 { 0, 0, 0, 0 },
14596 &core_op_lib
14597 },
14598 { /* 1033 */
14599 /* type PARROT_INLINE_OP, */
14600 "fetch",
14601 "fetch_p_p_ic_pc",
14602 "Parrot_fetch_p_p_ic_pc",
14603 /* "", body */
14604 0,
14605 5,
14606 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_PC },
14607 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14608 { 0, 0, 0, 0 },
14609 &core_op_lib
14610 },
14611 { /* 1034 */
14612 /* type PARROT_INLINE_OP, */
14613 "fetch",
14614 "fetch_p_pc_ic_pc",
14615 "Parrot_fetch_p_pc_ic_pc",
14616 /* "", body */
14617 0,
14618 5,
14619 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_PC },
14620 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14621 { 0, 0, 0, 0 },
14622 &core_op_lib
14623 },
14624 { /* 1035 */
14625 /* type PARROT_INLINE_OP, */
14626 "fetch",
14627 "fetch_p_p_s_p",
14628 "Parrot_fetch_p_p_s_p",
14629 /* "", body */
14630 0,
14631 5,
14632 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
14633 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14634 { 0, 0, 0, 0 },
14635 &core_op_lib
14636 },
14637 { /* 1036 */
14638 /* type PARROT_INLINE_OP, */
14639 "fetch",
14640 "fetch_p_pc_s_p",
14641 "Parrot_fetch_p_pc_s_p",
14642 /* "", body */
14643 0,
14644 5,
14645 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
14646 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14647 { 0, 0, 0, 0 },
14648 &core_op_lib
14649 },
14650 { /* 1037 */
14651 /* type PARROT_INLINE_OP, */
14652 "fetch",
14653 "fetch_p_p_sc_p",
14654 "Parrot_fetch_p_p_sc_p",
14655 /* "", body */
14656 0,
14657 5,
14658 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
14659 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14660 { 0, 0, 0, 0 },
14661 &core_op_lib
14662 },
14663 { /* 1038 */
14664 /* type PARROT_INLINE_OP, */
14665 "fetch",
14666 "fetch_p_pc_sc_p",
14667 "Parrot_fetch_p_pc_sc_p",
14668 /* "", body */
14669 0,
14670 5,
14671 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
14672 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14673 { 0, 0, 0, 0 },
14674 &core_op_lib
14675 },
14676 { /* 1039 */
14677 /* type PARROT_INLINE_OP, */
14678 "fetch",
14679 "fetch_p_p_s_pc",
14680 "Parrot_fetch_p_p_s_pc",
14681 /* "", body */
14682 0,
14683 5,
14684 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
14685 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14686 { 0, 0, 0, 0 },
14687 &core_op_lib
14688 },
14689 { /* 1040 */
14690 /* type PARROT_INLINE_OP, */
14691 "fetch",
14692 "fetch_p_pc_s_pc",
14693 "Parrot_fetch_p_pc_s_pc",
14694 /* "", body */
14695 0,
14696 5,
14697 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_PC },
14698 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14699 { 0, 0, 0, 0 },
14700 &core_op_lib
14701 },
14702 { /* 1041 */
14703 /* type PARROT_INLINE_OP, */
14704 "fetch",
14705 "fetch_p_p_sc_pc",
14706 "Parrot_fetch_p_p_sc_pc",
14707 /* "", body */
14708 0,
14709 5,
14710 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
14711 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14712 { 0, 0, 0, 0 },
14713 &core_op_lib
14714 },
14715 { /* 1042 */
14716 /* type PARROT_INLINE_OP, */
14717 "fetch",
14718 "fetch_p_pc_sc_pc",
14719 "Parrot_fetch_p_pc_sc_pc",
14720 /* "", body */
14721 0,
14722 5,
14723 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_PC },
14724 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14725 { 0, 0, 0, 0 },
14726 &core_op_lib
14727 },
14728 { /* 1043 */
14729 /* type PARROT_INLINE_OP, */
14730 "vivify",
14731 "vivify_p_p_p_p",
14732 "Parrot_vivify_p_p_p_p",
14733 /* "", body */
14734 0,
14735 5,
14736 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
14737 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14738 { 0, 0, 0, 0 },
14739 &core_op_lib
14740 },
14741 { /* 1044 */
14742 /* type PARROT_INLINE_OP, */
14743 "vivify",
14744 "vivify_p_pc_p_p",
14745 "Parrot_vivify_p_pc_p_p",
14746 /* "", body */
14747 0,
14748 5,
14749 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_P },
14750 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14751 { 0, 0, 0, 0 },
14752 &core_op_lib
14753 },
14754 { /* 1045 */
14755 /* type PARROT_INLINE_OP, */
14756 "vivify",
14757 "vivify_p_p_pc_p",
14758 "Parrot_vivify_p_p_pc_p",
14759 /* "", body */
14760 0,
14761 5,
14762 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
14763 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14764 { 0, 0, 0, 0 },
14765 &core_op_lib
14766 },
14767 { /* 1046 */
14768 /* type PARROT_INLINE_OP, */
14769 "vivify",
14770 "vivify_p_pc_pc_p",
14771 "Parrot_vivify_p_pc_pc_p",
14772 /* "", body */
14773 0,
14774 5,
14775 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_P },
14776 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14777 { 0, 0, 0, 0 },
14778 &core_op_lib
14779 },
14780 { /* 1047 */
14781 /* type PARROT_INLINE_OP, */
14782 "vivify",
14783 "vivify_p_p_p_pc",
14784 "Parrot_vivify_p_p_p_pc",
14785 /* "", body */
14786 0,
14787 5,
14788 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
14789 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14790 { 0, 0, 0, 0 },
14791 &core_op_lib
14792 },
14793 { /* 1048 */
14794 /* type PARROT_INLINE_OP, */
14795 "vivify",
14796 "vivify_p_pc_p_pc",
14797 "Parrot_vivify_p_pc_p_pc",
14798 /* "", body */
14799 0,
14800 5,
14801 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_PC },
14802 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14803 { 0, 0, 0, 0 },
14804 &core_op_lib
14805 },
14806 { /* 1049 */
14807 /* type PARROT_INLINE_OP, */
14808 "vivify",
14809 "vivify_p_p_pc_pc",
14810 "Parrot_vivify_p_p_pc_pc",
14811 /* "", body */
14812 0,
14813 5,
14814 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
14815 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14816 { 0, 0, 0, 0 },
14817 &core_op_lib
14818 },
14819 { /* 1050 */
14820 /* type PARROT_INLINE_OP, */
14821 "vivify",
14822 "vivify_p_pc_pc_pc",
14823 "Parrot_vivify_p_pc_pc_pc",
14824 /* "", body */
14825 0,
14826 5,
14827 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_PC },
14828 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14829 { 0, 0, 0, 0 },
14830 &core_op_lib
14831 },
14832 { /* 1051 */
14833 /* type PARROT_INLINE_OP, */
14834 "vivify",
14835 "vivify_p_p_i_p",
14836 "Parrot_vivify_p_p_i_p",
14837 /* "", body */
14838 0,
14839 5,
14840 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_P },
14841 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14842 { 0, 0, 0, 0 },
14843 &core_op_lib
14844 },
14845 { /* 1052 */
14846 /* type PARROT_INLINE_OP, */
14847 "vivify",
14848 "vivify_p_pc_i_p",
14849 "Parrot_vivify_p_pc_i_p",
14850 /* "", body */
14851 0,
14852 5,
14853 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_P },
14854 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14855 { 0, 0, 0, 0 },
14856 &core_op_lib
14857 },
14858 { /* 1053 */
14859 /* type PARROT_INLINE_OP, */
14860 "vivify",
14861 "vivify_p_p_ic_p",
14862 "Parrot_vivify_p_p_ic_p",
14863 /* "", body */
14864 0,
14865 5,
14866 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_P },
14867 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14868 { 0, 0, 0, 0 },
14869 &core_op_lib
14870 },
14871 { /* 1054 */
14872 /* type PARROT_INLINE_OP, */
14873 "vivify",
14874 "vivify_p_pc_ic_p",
14875 "Parrot_vivify_p_pc_ic_p",
14876 /* "", body */
14877 0,
14878 5,
14879 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_P },
14880 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14881 { 0, 0, 0, 0 },
14882 &core_op_lib
14883 },
14884 { /* 1055 */
14885 /* type PARROT_INLINE_OP, */
14886 "vivify",
14887 "vivify_p_p_i_pc",
14888 "Parrot_vivify_p_p_i_pc",
14889 /* "", body */
14890 0,
14891 5,
14892 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_PC },
14893 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14894 { 0, 0, 0, 0 },
14895 &core_op_lib
14896 },
14897 { /* 1056 */
14898 /* type PARROT_INLINE_OP, */
14899 "vivify",
14900 "vivify_p_pc_i_pc",
14901 "Parrot_vivify_p_pc_i_pc",
14902 /* "", body */
14903 0,
14904 5,
14905 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_PC },
14906 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14907 { 0, 0, 0, 0 },
14908 &core_op_lib
14909 },
14910 { /* 1057 */
14911 /* type PARROT_INLINE_OP, */
14912 "vivify",
14913 "vivify_p_p_ic_pc",
14914 "Parrot_vivify_p_p_ic_pc",
14915 /* "", body */
14916 0,
14917 5,
14918 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_PC },
14919 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14920 { 0, 0, 0, 0 },
14921 &core_op_lib
14922 },
14923 { /* 1058 */
14924 /* type PARROT_INLINE_OP, */
14925 "vivify",
14926 "vivify_p_pc_ic_pc",
14927 "Parrot_vivify_p_pc_ic_pc",
14928 /* "", body */
14929 0,
14930 5,
14931 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_PC },
14932 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14933 { 0, 0, 0, 0 },
14934 &core_op_lib
14935 },
14936 { /* 1059 */
14937 /* type PARROT_INLINE_OP, */
14938 "vivify",
14939 "vivify_p_p_s_p",
14940 "Parrot_vivify_p_p_s_p",
14941 /* "", body */
14942 0,
14943 5,
14944 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
14945 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14946 { 0, 0, 0, 0 },
14947 &core_op_lib
14948 },
14949 { /* 1060 */
14950 /* type PARROT_INLINE_OP, */
14951 "vivify",
14952 "vivify_p_pc_s_p",
14953 "Parrot_vivify_p_pc_s_p",
14954 /* "", body */
14955 0,
14956 5,
14957 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
14958 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14959 { 0, 0, 0, 0 },
14960 &core_op_lib
14961 },
14962 { /* 1061 */
14963 /* type PARROT_INLINE_OP, */
14964 "vivify",
14965 "vivify_p_p_sc_p",
14966 "Parrot_vivify_p_p_sc_p",
14967 /* "", body */
14968 0,
14969 5,
14970 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
14971 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14972 { 0, 0, 0, 0 },
14973 &core_op_lib
14974 },
14975 { /* 1062 */
14976 /* type PARROT_INLINE_OP, */
14977 "vivify",
14978 "vivify_p_pc_sc_p",
14979 "Parrot_vivify_p_pc_sc_p",
14980 /* "", body */
14981 0,
14982 5,
14983 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
14984 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14985 { 0, 0, 0, 0 },
14986 &core_op_lib
14987 },
14988 { /* 1063 */
14989 /* type PARROT_INLINE_OP, */
14990 "vivify",
14991 "vivify_p_p_s_pc",
14992 "Parrot_vivify_p_p_s_pc",
14993 /* "", body */
14994 0,
14995 5,
14996 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
14997 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
14998 { 0, 0, 0, 0 },
14999 &core_op_lib
15000 },
15001 { /* 1064 */
15002 /* type PARROT_INLINE_OP, */
15003 "vivify",
15004 "vivify_p_pc_s_pc",
15005 "Parrot_vivify_p_pc_s_pc",
15006 /* "", body */
15007 0,
15008 5,
15009 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_PC },
15010 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15011 { 0, 0, 0, 0 },
15012 &core_op_lib
15013 },
15014 { /* 1065 */
15015 /* type PARROT_INLINE_OP, */
15016 "vivify",
15017 "vivify_p_p_sc_pc",
15018 "Parrot_vivify_p_p_sc_pc",
15019 /* "", body */
15020 0,
15021 5,
15022 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
15023 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15024 { 0, 0, 0, 0 },
15025 &core_op_lib
15026 },
15027 { /* 1066 */
15028 /* type PARROT_INLINE_OP, */
15029 "vivify",
15030 "vivify_p_pc_sc_pc",
15031 "Parrot_vivify_p_pc_sc_pc",
15032 /* "", body */
15033 0,
15034 5,
15035 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_PC },
15036 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15037 { 0, 0, 0, 0 },
15038 &core_op_lib
15039 },
15040 { /* 1067 */
15041 /* type PARROT_FUNCTION_OP, */
15042 "new",
15043 "new_p_s_i",
15044 "Parrot_new_p_s_i",
15045 /* "", body */
15046 0,
15047 4,
15048 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_I },
15049 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15050 { 0, 0, 0 },
15051 &core_op_lib
15052 },
15053 { /* 1068 */
15054 /* type PARROT_FUNCTION_OP, */
15055 "new",
15056 "new_p_sc_i",
15057 "Parrot_new_p_sc_i",
15058 /* "", body */
15059 0,
15060 4,
15061 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_I },
15062 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15063 { 0, 0, 0 },
15064 &core_op_lib
15065 },
15066 { /* 1069 */
15067 /* type PARROT_FUNCTION_OP, */
15068 "new",
15069 "new_p_s_ic",
15070 "Parrot_new_p_s_ic",
15071 /* "", body */
15072 0,
15073 4,
15074 { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
15075 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15076 { 0, 0, 0 },
15077 &core_op_lib
15078 },
15079 { /* 1070 */
15080 /* type PARROT_FUNCTION_OP, */
15081 "new",
15082 "new_p_sc_ic",
15083 "Parrot_new_p_sc_ic",
15084 /* "", body */
15085 0,
15086 4,
15087 { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
15088 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15089 { 0, 0, 0 },
15090 &core_op_lib
15091 },
15092 { /* 1071 */
15093 /* type PARROT_FUNCTION_OP, */
15094 "new",
15095 "new_p_p_i",
15096 "Parrot_new_p_p_i",
15097 /* "", body */
15098 0,
15099 4,
15100 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
15101 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15102 { 0, 0, 0 },
15103 &core_op_lib
15104 },
15105 { /* 1072 */
15106 /* type PARROT_FUNCTION_OP, */
15107 "new",
15108 "new_p_pc_i",
15109 "Parrot_new_p_pc_i",
15110 /* "", body */
15111 0,
15112 4,
15113 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I },
15114 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15115 { 0, 0, 0 },
15116 &core_op_lib
15117 },
15118 { /* 1073 */
15119 /* type PARROT_FUNCTION_OP, */
15120 "new",
15121 "new_p_p_ic",
15122 "Parrot_new_p_p_ic",
15123 /* "", body */
15124 0,
15125 4,
15126 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
15127 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15128 { 0, 0, 0 },
15129 &core_op_lib
15130 },
15131 { /* 1074 */
15132 /* type PARROT_FUNCTION_OP, */
15133 "new",
15134 "new_p_pc_ic",
15135 "Parrot_new_p_pc_ic",
15136 /* "", body */
15137 0,
15138 4,
15139 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC },
15140 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15141 { 0, 0, 0 },
15142 &core_op_lib
15143 },
15144 { /* 1075 */
15145 /* type PARROT_FUNCTION_OP, */
15146 "root_new",
15147 "root_new_p_p_i",
15148 "Parrot_root_new_p_p_i",
15149 /* "", body */
15150 0,
15151 4,
15152 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
15153 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15154 { 0, 0, 0 },
15155 &core_op_lib
15156 },
15157 { /* 1076 */
15158 /* type PARROT_FUNCTION_OP, */
15159 "root_new",
15160 "root_new_p_pc_i",
15161 "Parrot_root_new_p_pc_i",
15162 /* "", body */
15163 0,
15164 4,
15165 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I },
15166 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15167 { 0, 0, 0 },
15168 &core_op_lib
15169 },
15170 { /* 1077 */
15171 /* type PARROT_FUNCTION_OP, */
15172 "root_new",
15173 "root_new_p_p_ic",
15174 "Parrot_root_new_p_p_ic",
15175 /* "", body */
15176 0,
15177 4,
15178 { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
15179 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15180 { 0, 0, 0 },
15181 &core_op_lib
15182 },
15183 { /* 1078 */
15184 /* type PARROT_FUNCTION_OP, */
15185 "root_new",
15186 "root_new_p_pc_ic",
15187 "Parrot_root_new_p_pc_ic",
15188 /* "", body */
15189 0,
15190 4,
15191 { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC },
15192 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
15193 { 0, 0, 0 },
15194 &core_op_lib
15195 },
15196 { /* 1079 */
15197 /* type PARROT_FUNCTION_OP, */
15198 "find_codepoint",
15199 "find_codepoint_i_s",
15200 "Parrot_find_codepoint_i_s",
15201 /* "", body */
15202 0,
15203 3,
15204 { PARROT_ARG_I, PARROT_ARG_S },
15205 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
15206 { 0, 0 },
15207 &core_op_lib
15208 },
15209 { /* 1080 */
15210 /* type PARROT_FUNCTION_OP, */
15211 "find_codepoint",
15212 "find_codepoint_i_sc",
15213 "Parrot_find_codepoint_i_sc",
15214 /* "", body */
15215 0,
15216 3,
15217 { PARROT_ARG_I, PARROT_ARG_SC },
15218 { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
15219 { 0, 0 },
15220 &core_op_lib
15221 },
15222 { /* 1081 */
15223 /* type PARROT_FUNCTION_OP, */
15224 "finalize",
15225 "finalize_p",
15226 "Parrot_finalize_p",
15227 /* "", body */
15228 0,
15229 2,
15230 { PARROT_ARG_P },
15231 { PARROT_ARGDIR_IN },
15232 { 0 },
15233 &core_op_lib
15234 },
15235 { /* 1082 */
15236 /* type PARROT_FUNCTION_OP, */
15237 "finalize",
15238 "finalize_pc",
15239 "Parrot_finalize_pc",
15240 /* "", body */
15241 0,
15242 2,
15243 { PARROT_ARG_PC },
15244 { PARROT_ARGDIR_IN },
15245 { 0 },
15246 &core_op_lib
15247 },
15248
15249 };
15250
15251
15252 /*
15253 ** Op Function Definitions:
15254 */
15255
15256 opcode_t *
15257 Parrot_end(opcode_t *cur_opcode, PARROT_INTERP) {
15258 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);return (opcode_t *)0;
15259 }
15260
15261 opcode_t *
15262 Parrot_noop(opcode_t *cur_opcode, PARROT_INTERP) {
15263 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15264
15265 return (opcode_t *)cur_opcode + 1;}
15266
15267 opcode_t *
15268 Parrot_check_events(opcode_t *cur_opcode, PARROT_INTERP) {
15269 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15270 opcode_t * const next = cur_opcode + 1;
15271 Parrot_cx_check_tasks(interp, interp->scheduler);return (opcode_t *)next; /* force this being a branch op */
15272 }
15273
15274 opcode_t *
15275 Parrot_check_events__(opcode_t *cur_opcode, PARROT_INTERP) {
15276 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15277 opcode_t * const _this = CUR_OPCODE;
15278 /* Restore op_func_table. */
15279 disable_event_checking(interp);
15280 Parrot_cx_handle_tasks(interp, interp->scheduler);return (opcode_t *)_this; /* force this being a branch op */
15281 }
15282
15283 opcode_t *
15284 Parrot_wrapper__(opcode_t *cur_opcode, PARROT_INTERP) {
15285 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15286 opcode_t *pc = CUR_OPCODE;
15287 DO_OP(pc, interp);return (opcode_t *)pc;
15288 }
15289
15290 opcode_t *
15291 Parrot_load_bytecode_s(opcode_t *cur_opcode, PARROT_INTERP) {
15292 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15293 Parrot_load_bytecode(interp, SREG(1));
15294
15295 return (opcode_t *)cur_opcode + 2;}
15296
15297 opcode_t *
15298 Parrot_load_bytecode_sc(opcode_t *cur_opcode, PARROT_INTERP) {
15299 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15300 Parrot_load_bytecode(interp, CONST(1).u.string);
15301
15302 return (opcode_t *)cur_opcode + 2;}
15303
15304 opcode_t *
15305 Parrot_load_language_s(opcode_t *cur_opcode, PARROT_INTERP) {
15306 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15307 Parrot_load_language(interp, SREG(1));
15308
15309 return (opcode_t *)cur_opcode + 2;}
15310
15311 opcode_t *
15312 Parrot_load_language_sc(opcode_t *cur_opcode, PARROT_INTERP) {
15313 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15314 Parrot_load_language(interp, CONST(1).u.string);
15315
15316 return (opcode_t *)cur_opcode + 2;}
15317
15318 opcode_t *
15319 Parrot_branch_i(opcode_t *cur_opcode, PARROT_INTERP) {
15320 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);return (opcode_t *)cur_opcode + IREG(1);
15321 }
15322
15323 opcode_t *
15324 Parrot_branch_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15325 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);return (opcode_t *)cur_opcode + cur_opcode[1];
15326 }
15327
15328 opcode_t *
15329 Parrot_local_branch_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
15330 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15331 INTVAL return_addr;
15332 opcode_t * const dest = cur_opcode + 3;
15333
15334 if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_ResizableIntegerArray) {
15335 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
15336 EXCEPTION_INVALID_OPERATION,
15337 "Must pass a valid integer array to 'local_branch'");return (opcode_t *)handler;
15338 }
15339
15340 return_addr = PTR2INTVAL(dest);
15341 VTABLE_push_integer(interp, PREG(1), return_addr);return (opcode_t *)cur_opcode + IREG(2);
15342 }
15343
15344 opcode_t *
15345 Parrot_local_branch_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15346 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15347 INTVAL return_addr;
15348 opcode_t * const dest = cur_opcode + 3;
15349
15350 if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_ResizableIntegerArray) {
15351 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
15352 EXCEPTION_INVALID_OPERATION,
15353 "Must pass a valid integer array to 'local_branch'");return (opcode_t *)handler;
15354 }
15355
15356 return_addr = PTR2INTVAL(dest);
15357 VTABLE_push_integer(interp, PREG(1), return_addr);return (opcode_t *)cur_opcode + cur_opcode[2];
15358 }
15359
15360 opcode_t *
15361 Parrot_local_return_p(opcode_t *cur_opcode, PARROT_INTERP) {
15362 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15363 INTVAL return_addr;
15364 opcode_t *next;
15365 opcode_t * const dest = cur_opcode + 2;
15366
15367 if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_ResizableIntegerArray) {
15368 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
15369 EXCEPTION_INVALID_OPERATION,
15370 "Must pass a valid integer array to 'local_return'");return (opcode_t *)handler;
15371 }
15372
15373 return_addr = VTABLE_pop_integer(interp, PREG(1));
15374 next = INTVAL2PTR(opcode_t *, return_addr);
15375
15376 /* The return address must be within the current code segment. */
15377 if (! (next >= interp->code->base.data
15378 && next < (interp->code->base.data + interp->code->base.size))) {
15379 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
15380 EXCEPTION_INVALID_OPERATION,
15381 "Address for 'local_return' must be within the current code segment");return (opcode_t *)handler;
15382 }return (opcode_t *)next;
15383 }
15384
15385 opcode_t *
15386 Parrot_jump_i(opcode_t *cur_opcode, PARROT_INTERP) {
15387 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15388 opcode_t * const loc = INTVAL2PTR(opcode_t *, IREG(1));return (opcode_t *)loc;
15389 }
15390
15391 opcode_t *
15392 Parrot_jump_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15393 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15394 opcode_t * const loc = INTVAL2PTR(opcode_t *, cur_opcode[1]);return (opcode_t *)loc;
15395 }
15396
15397 opcode_t *
15398 Parrot_enternative(opcode_t *cur_opcode, PARROT_INTERP) {
15399 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15400 opcode_t * const addr = run_native(interp, CUR_OPCODE,
15401 interp->code->base.data);return (opcode_t *)addr;
15402 }
15403
15404 opcode_t *
15405 Parrot_if_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15406 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15407 if (IREG(1) != 0)return (opcode_t *)cur_opcode + cur_opcode[2];
15408
15409 return (opcode_t *)cur_opcode + 3;}
15410
15411 opcode_t *
15412 Parrot_if_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15413 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15414 if (!FLOAT_IS_ZERO(NREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
15415
15416 return (opcode_t *)cur_opcode + 3;}
15417
15418 opcode_t *
15419 Parrot_if_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15420 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15421 if (Parrot_str_boolean(interp, SREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
15422
15423 return (opcode_t *)cur_opcode + 3;}
15424
15425 opcode_t *
15426 Parrot_if_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15427 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15428 if (VTABLE_get_bool(interp, PREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
15429
15430 return (opcode_t *)cur_opcode + 3;}
15431
15432 opcode_t *
15433 Parrot_unless_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15434 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15435 if (IREG(1) == 0)return (opcode_t *)cur_opcode + cur_opcode[2];
15436
15437 return (opcode_t *)cur_opcode + 3;}
15438
15439 opcode_t *
15440 Parrot_unless_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15441 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15442 if (FLOAT_IS_ZERO(NREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
15443
15444 return (opcode_t *)cur_opcode + 3;}
15445
15446 opcode_t *
15447 Parrot_unless_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15448 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15449 if (!Parrot_str_boolean(interp, SREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
15450
15451 return (opcode_t *)cur_opcode + 3;}
15452
15453 opcode_t *
15454 Parrot_unless_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15455 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15456 if (!VTABLE_get_bool(interp, PREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
15457
15458 return (opcode_t *)cur_opcode + 3;}
15459
15460 opcode_t *
15461 Parrot_invokecc_p(opcode_t *cur_opcode, PARROT_INTERP) {
15462 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15463 PMC * const p = PREG(1);
15464 opcode_t *dest = cur_opcode + 2;
15465 PMC * const signature = Parrot_pcc_get_signature(interp,
15466 CURRENT_CONTEXT(interp));
15467
15468 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
15469
15470 if (!PMC_IS_NULL(signature))
15471 Parrot_pcc_set_object(interp, signature, NULL);
15472 interp->current_cont = NEED_CONTINUATION;
15473 dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
15474 }
15475
15476 opcode_t *
15477 Parrot_invoke_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
15478 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15479 opcode_t *dest = cur_opcode + 3;
15480 PMC * const p = PREG(1);
15481 PMC * const signature = Parrot_pcc_get_signature(interp,
15482 CURRENT_CONTEXT(interp));
15483
15484 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
15485
15486 if (!PMC_IS_NULL(signature))
15487 Parrot_pcc_set_object(interp, signature, NULL);
15488 interp->current_cont = PREG(2);
15489
15490 dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
15491 }
15492
15493 opcode_t *
15494 Parrot_yield(opcode_t *cur_opcode, PARROT_INTERP) {
15495 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15496 opcode_t *dest = cur_opcode + 1;
15497 PMC * const p = Parrot_pcc_get_sub(interp, CURRENT_CONTEXT(interp));
15498
15499 VTABLE_increment(interp, p);
15500 dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
15501 }
15502
15503 opcode_t *
15504 Parrot_tailcall_p(opcode_t *cur_opcode, PARROT_INTERP) {
15505 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15506 PMC * const p = PREG(1);
15507 opcode_t *dest = cur_opcode + 2;
15508 PMC * const ctx = CURRENT_CONTEXT(interp);
15509 PMC * const parent_ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
15510 PMC * const this_call_sig = Parrot_pcc_get_signature(interp, ctx);
15511 PMC * const parent_call_sig = Parrot_pcc_get_signature(interp, parent_ctx);
15512 interp->current_cont = Parrot_pcc_get_continuation(interp, ctx);
15513
15514 Parrot_pcc_merge_signature_for_tailcall(interp, parent_call_sig, this_call_sig);
15515
15516 SUB_FLAG_TAILCALL_SET(interp->current_cont);
15517 dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
15518 }
15519
15520 opcode_t *
15521 Parrot_returncc(opcode_t *cur_opcode, PARROT_INTERP) {
15522 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15523 PMC * const p = Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp));
15524 opcode_t * const dest = VTABLE_invoke(interp, p, cur_opcode + 1);return (opcode_t *)dest;
15525 }
15526
15527 opcode_t *
15528 Parrot_capture_lex_p(opcode_t *cur_opcode, PARROT_INTERP) {
15529 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15530 Parrot_capture_lex(interp, PREG(1));
15531
15532 return (opcode_t *)cur_opcode + 2;}
15533
15534 opcode_t *
15535 Parrot_newclosure_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
15536 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15537 PREG(1) = parrot_new_closure(interp, PREG(2));
15538
15539 return (opcode_t *)cur_opcode + 3;}
15540
15541 opcode_t *
15542 Parrot_set_args_pc(opcode_t *cur_opcode, PARROT_INTERP) {
15543 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15544 opcode_t * const raw_args = CUR_OPCODE;
15545 PMC * const signature = CONST(1).u.key;
15546 PMC * const call_sig = Parrot_pcc_build_sig_object_from_op(interp,
15547 PMCNULL, signature, raw_args);
15548 const INTVAL argc = VTABLE_elements(interp, signature);
15549 Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);return (opcode_t *)cur_opcode + argc + 2;
15550 }
15551
15552 opcode_t *
15553 Parrot_get_params_pc(opcode_t *cur_opcode, PARROT_INTERP) {
15554 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15555 opcode_t * const raw_params = CUR_OPCODE;
15556 PMC * const signature = CONST(1).u.key;
15557 PMC * const ctx = CURRENT_CONTEXT(interp);
15558 PMC * const ccont = Parrot_pcc_get_continuation(interp, ctx);
15559 PMC * const caller_ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
15560 PMC * const call_object = Parrot_pcc_get_signature(interp, caller_ctx);
15561 INTVAL argc;
15562
15563 Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params,
15564 PARROT_ERRORS_PARAM_COUNT_FLAG);
15565
15566 /* TODO Factor out with Sub.invoke */
15567 if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {
15568 PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;
15569 Parrot_pcc_dec_recursion_depth(interp, ctx);
15570 Parrot_pcc_set_caller_ctx(interp, ctx, Parrot_pcc_get_caller_ctx(interp, caller_ctx));
15571 }
15572 argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
15573 }
15574
15575 opcode_t *
15576 Parrot_set_returns_pc(opcode_t *cur_opcode, PARROT_INTERP) {
15577 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15578 opcode_t * const raw_args = CUR_OPCODE;
15579 PMC * const signature = CONST(1).u.key;
15580 PMC * const call_sig = Parrot_pcc_build_sig_object_from_op(interp,
15581 Parrot_pcc_get_signature(interp,
15582 Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp))),
15583 signature, raw_args);
15584 INTVAL argc;
15585
15586 Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
15587
15588 argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
15589 }
15590
15591 opcode_t *
15592 Parrot_get_results_pc(opcode_t *cur_opcode, PARROT_INTERP) {
15593 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15594 opcode_t * const raw_params = CUR_OPCODE;
15595 PMC * const signature = CONST(1).u.key;
15596 PMC *ctx = CURRENT_CONTEXT(interp);
15597 PMC *ccont = Parrot_pcc_get_continuation(interp, ctx);
15598 PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
15599
15600 INTVAL argc;
15601
15602 Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params,
15603 PARROT_ERRORS_RESULT_COUNT_FLAG);
15604
15605 argc = VTABLE_elements(interp, signature);
15606 Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), PMCNULL);return (opcode_t *)cur_opcode + argc + 2;
15607 }
15608
15609 opcode_t *
15610 Parrot_set_result_info_p(opcode_t *cur_opcode, PARROT_INTERP) {
15611 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15612 PMC * const ctx = CURRENT_CONTEXT(interp);
15613
15614 VTABLE_set_attr_str(interp, ctx,
15615 Parrot_str_new_constant(interp, "return_flags"),
15616 PREG(1));
15617
15618 return (opcode_t *)cur_opcode + 2;}
15619
15620 opcode_t *
15621 Parrot_set_result_info_pc(opcode_t *cur_opcode, PARROT_INTERP) {
15622 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15623 PMC * const ctx = CURRENT_CONTEXT(interp);
15624
15625 VTABLE_set_attr_str(interp, ctx,
15626 Parrot_str_new_constant(interp, "return_flags"),
15627 CONST(1).u.key);
15628
15629 return (opcode_t *)cur_opcode + 2;}
15630
15631 opcode_t *
15632 Parrot_result_info_p(opcode_t *cur_opcode, PARROT_INTERP) {
15633 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15634 PMC * const caller_ctx = Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
15635 PMC * const sig = VTABLE_get_attr_str(interp, caller_ctx,
15636 Parrot_str_new_constant(interp, "return_flags"));
15637
15638 /* If no elements, hand back empty array; otherwise PMC. */
15639 if (!sig)
15640 PREG(1) = Parrot_pmc_new(interp, enum_class_FixedIntegerArray);
15641 else
15642 PREG(1) = sig;
15643
15644 return (opcode_t *)cur_opcode + 2;}
15645
15646 opcode_t *
15647 Parrot_set_addr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15648 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15649 IREG(1) = PTR2INTVAL(CUR_OPCODE + cur_opcode[2]);
15650
15651 return (opcode_t *)cur_opcode + 3;}
15652
15653 opcode_t *
15654 Parrot_set_addr_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15655 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15656 VTABLE_set_pointer(interp, PREG(1), (CUR_OPCODE + cur_opcode[2]));
15657
15658 return (opcode_t *)cur_opcode + 3;}
15659
15660 opcode_t *
15661 Parrot_set_addr_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
15662 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15663 VTABLE_set_pointer(interp, PREG(1), (void*)IREG(2));
15664
15665 return (opcode_t *)cur_opcode + 3;}
15666
15667 opcode_t *
15668 Parrot_get_addr_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
15669 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15670 void *ptr = VTABLE_get_pointer(interp, PREG(2));
15671 IREG(1) = (INTVAL)ptr;
15672
15673 return (opcode_t *)cur_opcode + 3;}
15674
15675 opcode_t *
15676 Parrot_schedule_p(opcode_t *cur_opcode, PARROT_INTERP) {
15677 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15678 Parrot_cx_schedule_task(interp, PREG(1));
15679
15680 return (opcode_t *)cur_opcode + 2;}
15681
15682 opcode_t *
15683 Parrot_addhandler_p(opcode_t *cur_opcode, PARROT_INTERP) {
15684 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15685 Parrot_cx_add_handler(interp, PREG(1));
15686
15687 return (opcode_t *)cur_opcode + 2;}
15688
15689 opcode_t *
15690 Parrot_push_eh_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15691 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15692 PMC * const eh = Parrot_pmc_new(interp, enum_class_ExceptionHandler);
15693 VTABLE_set_pointer(interp, eh, CUR_OPCODE + cur_opcode[1]);
15694 Parrot_cx_add_handler_local(interp, eh);
15695
15696 return (opcode_t *)cur_opcode + 2;}
15697
15698 opcode_t *
15699 Parrot_push_eh_p(opcode_t *cur_opcode, PARROT_INTERP) {
15700 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15701 Parrot_cx_add_handler_local(interp, PREG(1));
15702
15703 return (opcode_t *)cur_opcode + 2;}
15704
15705 opcode_t *
15706 Parrot_pop_eh(opcode_t *cur_opcode, PARROT_INTERP) {
15707 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15708 Parrot_cx_delete_handler_local(interp,
15709 Parrot_str_new_constant(interp, "exception"));
15710
15711 return (opcode_t *)cur_opcode + 1;}
15712
15713 opcode_t *
15714 Parrot_throw_p(opcode_t *cur_opcode, PARROT_INTERP) {
15715 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15716 PMC * except = PREG(1);
15717 opcode_t *dest;
15718 opcode_t * const ret = cur_opcode + 2;
15719 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15720
15721 VTABLE_set_pointer(interp, resume, ret);
15722
15723 if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
15724 except = Parrot_ex_build_exception(interp, EXCEPT_fatal,
15725 EXCEPTION_UNIMPLEMENTED,
15726 Parrot_str_new_constant(interp, "Not a throwable object"));
15727
15728 VTABLE_set_attr_str(interp, except, Parrot_str_new_constant(interp, "resume"), resume);
15729 dest = Parrot_ex_throw_from_op(interp, except, ret);return (opcode_t *)dest;
15730 }
15731
15732 opcode_t *
15733 Parrot_throw_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
15734 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15735 opcode_t * dest;
15736 PMC * except = PREG(1);
15737 if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
15738 except = Parrot_ex_build_exception(interp, EXCEPT_fatal,
15739 EXCEPTION_UNIMPLEMENTED,
15740 Parrot_str_new_constant(interp, "Not a throwable object"));
15741 dest = Parrot_ex_throw_from_op(interp, PREG(1),
15742 VTABLE_get_pointer(interp, PREG(2)));return (opcode_t *)dest;
15743 }
15744
15745 opcode_t *
15746 Parrot_rethrow_p(opcode_t *cur_opcode, PARROT_INTERP) {
15747 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15748 opcode_t * dest;
15749 if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_Exception) {
15750 opcode_t * const ret = cur_opcode + 2;
15751 PMC * const except = Parrot_ex_build_exception(interp, EXCEPT_fatal,
15752 EXCEPTION_UNIMPLEMENTED,
15753 Parrot_str_new_constant(interp, "Not a throwable object"));
15754 dest = Parrot_ex_throw_from_op(interp, except, ret);return (opcode_t *)dest;
15755 }
15756 dest = Parrot_ex_rethrow_from_op(interp, PREG(1));return (opcode_t *)dest;
15757 }
15758
15759 opcode_t *
15760 Parrot_count_eh_i(opcode_t *cur_opcode, PARROT_INTERP) {
15761 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15762 IREG(1) = Parrot_cx_count_handlers_local(interp,
15763 Parrot_str_new_constant(interp, "exception"));
15764
15765 return (opcode_t *)cur_opcode + 2;}
15766
15767 opcode_t *
15768 Parrot_die_s(opcode_t *cur_opcode, PARROT_INTERP) {
15769 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15770 opcode_t *dest;
15771 opcode_t * const ret = cur_opcode + 2;
15772 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15773 PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_error,
15774 CONTROL_ERROR, SREG(1));
15775
15776 VTABLE_set_pointer(interp, resume, ret);
15777
15778 VTABLE_set_attr_str(interp, exception,
15779 Parrot_str_new_constant(interp, "resume"), resume);
15780 dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15781 }
15782
15783 opcode_t *
15784 Parrot_die_sc(opcode_t *cur_opcode, PARROT_INTERP) {
15785 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15786 opcode_t *dest;
15787 opcode_t * const ret = cur_opcode + 2;
15788 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15789 PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_error,
15790 CONTROL_ERROR, CONST(1).u.string);
15791
15792 VTABLE_set_pointer(interp, resume, ret);
15793
15794 VTABLE_set_attr_str(interp, exception,
15795 Parrot_str_new_constant(interp, "resume"), resume);
15796 dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15797 }
15798
15799 opcode_t *
15800 Parrot_die_p(opcode_t *cur_opcode, PARROT_INTERP) {
15801 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15802 opcode_t *dest;
15803 opcode_t * const ret = cur_opcode + 2;
15804 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15805 STRING * const msg = PMC_IS_NULL(PREG(1)) ? NULL : VTABLE_get_string(interp, PREG(1));
15806 PMC * const exception =
15807 Parrot_ex_build_exception(interp, EXCEPT_error, CONTROL_ERROR, msg);
15808
15809 VTABLE_set_pointer(interp, resume, ret);
15810
15811 VTABLE_set_attr_str(interp, exception,
15812 Parrot_str_new_constant(interp, "resume"), resume);
15813 dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15814 }
15815
15816 opcode_t *
15817 Parrot_die_pc(opcode_t *cur_opcode, PARROT_INTERP) {
15818 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15819 opcode_t *dest;
15820 opcode_t * const ret = cur_opcode + 2;
15821 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15822 STRING * const msg = PMC_IS_NULL(CONST(1).u.key) ? NULL : VTABLE_get_string(interp, CONST(1).u.key);
15823 PMC * const exception =
15824 Parrot_ex_build_exception(interp, EXCEPT_error, CONTROL_ERROR, msg);
15825
15826 VTABLE_set_pointer(interp, resume, ret);
15827
15828 VTABLE_set_attr_str(interp, exception,
15829 Parrot_str_new_constant(interp, "resume"), resume);
15830 dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15831 }
15832
15833 opcode_t *
15834 Parrot_die_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
15835 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15836 if (IREG(1) == EXCEPT_doomed)
15837 _exit(IREG(2));
15838 else {
15839 opcode_t * const ret = cur_opcode + 3;
15840 PMC * const exception = Parrot_ex_build_exception(interp, IREG(1), IREG(2), NULL);
15841 opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15842 }
15843 }
15844
15845 opcode_t *
15846 Parrot_die_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
15847 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15848 if (cur_opcode[1] == EXCEPT_doomed)
15849 _exit(IREG(2));
15850 else {
15851 opcode_t * const ret = cur_opcode + 3;
15852 PMC * const exception = Parrot_ex_build_exception(interp, cur_opcode[1], IREG(2), NULL);
15853 opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15854 }
15855 }
15856
15857 opcode_t *
15858 Parrot_die_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15859 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15860 if (IREG(1) == EXCEPT_doomed)
15861 _exit(cur_opcode[2]);
15862 else {
15863 opcode_t * const ret = cur_opcode + 3;
15864 PMC * const exception = Parrot_ex_build_exception(interp, IREG(1), cur_opcode[2], NULL);
15865 opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15866 }
15867 }
15868
15869 opcode_t *
15870 Parrot_die_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15871 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15872 if (cur_opcode[1] == EXCEPT_doomed)
15873 _exit(cur_opcode[2]);
15874 else {
15875 opcode_t * const ret = cur_opcode + 3;
15876 PMC * const exception = Parrot_ex_build_exception(interp, cur_opcode[1], cur_opcode[2], NULL);
15877 opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15878 }
15879 }
15880
15881 opcode_t *
15882 Parrot_exit_i(opcode_t *cur_opcode, PARROT_INTERP) {
15883 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15884 opcode_t *dest;
15885 opcode_t * const ret = cur_opcode + 2;
15886 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15887 PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,
15888 CONTROL_EXIT, NULL);
15889
15890 VTABLE_set_pointer(interp, resume, ret);
15891
15892 VTABLE_set_attr_str(interp, exception,
15893 Parrot_str_new_constant(interp, "resume"), resume);
15894 VTABLE_set_integer_keyed_str(interp, exception,
15895 Parrot_str_new_constant(interp, "exit_code"), IREG(1));
15896 dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15897 }
15898
15899 opcode_t *
15900 Parrot_exit_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15901 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15902 opcode_t *dest;
15903 opcode_t * const ret = cur_opcode + 2;
15904 PMC * const resume = pmc_new(interp, enum_class_Continuation);
15905 PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,
15906 CONTROL_EXIT, NULL);
15907
15908 VTABLE_set_pointer(interp, resume, ret);
15909
15910 VTABLE_set_attr_str(interp, exception,
15911 Parrot_str_new_constant(interp, "resume"), resume);
15912 VTABLE_set_integer_keyed_str(interp, exception,
15913 Parrot_str_new_constant(interp, "exit_code"), cur_opcode[1]);
15914 dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
15915 }
15916
15917 opcode_t *
15918 Parrot_debug_i(opcode_t *cur_opcode, PARROT_INTERP) {
15919 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15920 if (IREG(1) != 0) { Interp_debug_SET(interp, IREG(1)); }
15921 else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15922 }
15923
15924 opcode_t *
15925 Parrot_debug_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15926 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15927 if (cur_opcode[1] != 0) { Interp_debug_SET(interp, cur_opcode[1]); }
15928 else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15929 }
15930
15931 opcode_t *
15932 Parrot_bounds_i(opcode_t *cur_opcode, PARROT_INTERP) {
15933 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15934 if (IREG(1) != 0) { Parrot_set_flag(interp, PARROT_BOUNDS_FLAG); }
15935 else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15936 }
15937
15938 opcode_t *
15939 Parrot_bounds_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15940 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15941 if (cur_opcode[1] != 0) { Parrot_set_flag(interp, PARROT_BOUNDS_FLAG); }
15942 else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15943 }
15944
15945 opcode_t *
15946 Parrot_profile_i(opcode_t *cur_opcode, PARROT_INTERP) {
15947 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15948 if (IREG(1) != 0) { Parrot_set_flag(interp, PARROT_PROFILE_FLAG); }
15949 else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15950 }
15951
15952 opcode_t *
15953 Parrot_profile_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15954 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15955 if (cur_opcode[1] != 0) { Parrot_set_flag(interp, PARROT_PROFILE_FLAG); }
15956 else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15957 }
15958
15959 opcode_t *
15960 Parrot_trace_i(opcode_t *cur_opcode, PARROT_INTERP) {
15961 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15962 if (IREG(1) != 0) { Parrot_set_trace(interp, IREG(1)); }
15963 else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15964 }
15965
15966 opcode_t *
15967 Parrot_trace_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15968 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15969 if (cur_opcode[1] != 0) { Parrot_set_trace(interp, cur_opcode[1]); }
15970 else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
15971 }
15972
15973 opcode_t *
15974 Parrot_gc_debug_i(opcode_t *cur_opcode, PARROT_INTERP) {
15975 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15976 if (IREG(1) != 0) { Interp_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
15977 else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
15978
15979 return (opcode_t *)cur_opcode + 2;}
15980
15981 opcode_t *
15982 Parrot_gc_debug_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15983 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15984 if (cur_opcode[1] != 0) { Interp_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
15985 else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
15986
15987 return (opcode_t *)cur_opcode + 2;}
15988
15989 opcode_t *
15990 Parrot_interpinfo_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
15991 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15992 IREG(1) = interpinfo(interp, IREG(2));
15993
15994 return (opcode_t *)cur_opcode + 3;}
15995
15996 opcode_t *
15997 Parrot_interpinfo_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
15998 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
15999 IREG(1) = interpinfo(interp, cur_opcode[2]);
16000
16001 return (opcode_t *)cur_opcode + 3;}
16002
16003 opcode_t *
16004 Parrot_interpinfo_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
16005 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16006 PREG(1) = interpinfo_p(interp, IREG(2));
16007
16008 return (opcode_t *)cur_opcode + 3;}
16009
16010 opcode_t *
16011 Parrot_interpinfo_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16012 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16013 PREG(1) = interpinfo_p(interp, cur_opcode[2]);
16014
16015 return (opcode_t *)cur_opcode + 3;}
16016
16017 opcode_t *
16018 Parrot_interpinfo_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
16019 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16020 STRING * const s = interpinfo_s(interp, IREG(2));
16021 SREG(1) = s;
16022
16023 return (opcode_t *)cur_opcode + 3;}
16024
16025 opcode_t *
16026 Parrot_interpinfo_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16027 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16028 STRING * const s = interpinfo_s(interp, cur_opcode[2]);
16029 SREG(1) = s;
16030
16031 return (opcode_t *)cur_opcode + 3;}
16032
16033 opcode_t *
16034 Parrot_warningson_i(opcode_t *cur_opcode, PARROT_INTERP) {
16035 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16036 PARROT_WARNINGS_on(interp, IREG(1));
16037
16038 return (opcode_t *)cur_opcode + 2;}
16039
16040 opcode_t *
16041 Parrot_warningson_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16042 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16043 PARROT_WARNINGS_on(interp, cur_opcode[1]);
16044
16045 return (opcode_t *)cur_opcode + 2;}
16046
16047 opcode_t *
16048 Parrot_warningsoff_i(opcode_t *cur_opcode, PARROT_INTERP) {
16049 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16050 PARROT_WARNINGS_off(interp, IREG(1));
16051
16052 return (opcode_t *)cur_opcode + 2;}
16053
16054 opcode_t *
16055 Parrot_warningsoff_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16056 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16057 PARROT_WARNINGS_off(interp, cur_opcode[1]);
16058
16059 return (opcode_t *)cur_opcode + 2;}
16060
16061 opcode_t *
16062 Parrot_errorson_i(opcode_t *cur_opcode, PARROT_INTERP) {
16063 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16064 PARROT_ERRORS_on(interp, IREG(1));
16065
16066 return (opcode_t *)cur_opcode + 2;}
16067
16068 opcode_t *
16069 Parrot_errorson_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16070 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16071 PARROT_ERRORS_on(interp, cur_opcode[1]);
16072
16073 return (opcode_t *)cur_opcode + 2;}
16074
16075 opcode_t *
16076 Parrot_errorsoff_i(opcode_t *cur_opcode, PARROT_INTERP) {
16077 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16078 PARROT_ERRORS_off(interp, IREG(1));
16079
16080 return (opcode_t *)cur_opcode + 2;}
16081
16082 opcode_t *
16083 Parrot_errorsoff_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16084 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16085 PARROT_ERRORS_off(interp, cur_opcode[1]);
16086
16087 return (opcode_t *)cur_opcode + 2;}
16088
16089 opcode_t *
16090 Parrot_runinterp_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
16091 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16092 Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
16093 Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
16094 Parrot_switch_to_cs(new_interp, interp->code, 1);
16095 runops(new_interp, REL_PC + IREG(2));
16096
16097 return (opcode_t *)cur_opcode + 3;}
16098
16099 opcode_t *
16100 Parrot_runinterp_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16101 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16102 Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
16103 Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
16104 Parrot_switch_to_cs(new_interp, interp->code, 1);
16105 runops(new_interp, REL_PC + cur_opcode[2]);
16106
16107 return (opcode_t *)cur_opcode + 3;}
16108
16109 opcode_t *
16110 Parrot_getinterp_p(opcode_t *cur_opcode, PARROT_INTERP) {
16111 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16112 PREG(1) = VTABLE_get_pmc_keyed_int(interp, interp->iglobals,
16113 IGLOBALS_INTERPRETER);
16114
16115 return (opcode_t *)cur_opcode + 2;}
16116
16117 opcode_t *
16118 Parrot_sweep_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16119 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16120 if (cur_opcode[1])
16121 Parrot_gc_mark_and_sweep(interp, GC_trace_normal_FLAG);
16122 else
16123 if (Parrot_gc_impatient_pmcs(interp))
16124 Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);
16125
16126 return (opcode_t *)cur_opcode + 2;}
16127
16128 opcode_t *
16129 Parrot_collect(opcode_t *cur_opcode, PARROT_INTERP) {
16130 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16131 Parrot_gc_compact_memory_pool(interp);
16132
16133 return (opcode_t *)cur_opcode + 1;}
16134
16135 opcode_t *
16136 Parrot_sweepoff(opcode_t *cur_opcode, PARROT_INTERP) {
16137 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16138 Parrot_block_GC_mark(interp);
16139
16140 return (opcode_t *)cur_opcode + 1;}
16141
16142 opcode_t *
16143 Parrot_sweepon(opcode_t *cur_opcode, PARROT_INTERP) {
16144 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16145 Parrot_unblock_GC_mark(interp);
16146
16147 return (opcode_t *)cur_opcode + 1;}
16148
16149 opcode_t *
16150 Parrot_collectoff(opcode_t *cur_opcode, PARROT_INTERP) {
16151 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16152 Parrot_block_GC_sweep(interp);
16153
16154 return (opcode_t *)cur_opcode + 1;}
16155
16156 opcode_t *
16157 Parrot_collecton(opcode_t *cur_opcode, PARROT_INTERP) {
16158 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16159 Parrot_unblock_GC_sweep(interp);
16160
16161 return (opcode_t *)cur_opcode + 1;}
16162
16163 opcode_t *
16164 Parrot_needs_destroy_p(opcode_t *cur_opcode, PARROT_INTERP) {
16165 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16166 Parrot_gc_pmc_needs_early_collection(interp, PREG(1));
16167
16168 return (opcode_t *)cur_opcode + 2;}
16169
16170 opcode_t *
16171 Parrot_loadlib_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
16172 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16173 PREG(1) = Parrot_load_lib(interp, SREG(2), NULL);
16174
16175 return (opcode_t *)cur_opcode + 3;}
16176
16177 opcode_t *
16178 Parrot_loadlib_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16179 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16180 PREG(1) = Parrot_load_lib(interp, CONST(2).u.string, NULL);
16181
16182 return (opcode_t *)cur_opcode + 3;}
16183
16184 opcode_t *
16185 Parrot_loadlib_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
16186 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16187 PREG(1) = Parrot_load_lib(interp, SREG(2), PREG(3));
16188
16189 return (opcode_t *)cur_opcode + 4;}
16190
16191 opcode_t *
16192 Parrot_loadlib_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
16193 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16194 PREG(1) = Parrot_load_lib(interp, CONST(2).u.string, PREG(3));
16195
16196 return (opcode_t *)cur_opcode + 4;}
16197
16198 opcode_t *
16199 Parrot_loadlib_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
16200 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16201 PREG(1) = Parrot_load_lib(interp, SREG(2), CONST(3).u.key);
16202
16203 return (opcode_t *)cur_opcode + 4;}
16204
16205 opcode_t *
16206 Parrot_loadlib_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
16207 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16208 PREG(1) = Parrot_load_lib(interp, CONST(2).u.string, CONST(3).u.key);
16209
16210 return (opcode_t *)cur_opcode + 4;}
16211
16212 opcode_t *
16213 Parrot_dlfunc_p_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
16214 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16215 void *dl_handle = NULL;
16216 void *ptr = NULL;
16217 funcptr_t p;
16218
16219 if (!PMC_IS_NULL(PREG(2))
16220 && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
16221 && VTABLE_defined(interp, PREG(2))) {
16222 dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
16223 }
16224
16225 ptr = Parrot_dlsym_str(interp, dl_handle, SREG(3));
16226 p = D2FPTR(ptr);
16227
16228 if (p == NULLfunc) {
16229 const char * err = Parrot_dlerror();
16230 Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
16231 "Symbol '%Ss' not found: %s\n", SREG(3), err ? err : "unknown reason");
16232 PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
16233 }
16234 else {
16235 PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
16236 VTABLE_set_pointer_keyed_str(interp, PREG(1), SREG(4), F2DPTR(p));
16237 }
16238
16239 return (opcode_t *)cur_opcode + 5;}
16240
16241 opcode_t *
16242 Parrot_dlfunc_p_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
16243 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16244 void *dl_handle = NULL;
16245 void *ptr = NULL;
16246 funcptr_t p;
16247
16248 if (!PMC_IS_NULL(PREG(2))
16249 && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
16250 && VTABLE_defined(interp, PREG(2))) {
16251 dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
16252 }
16253
16254 ptr = Parrot_dlsym_str(interp, dl_handle, CONST(3).u.string);
16255 p = D2FPTR(ptr);
16256
16257 if (p == NULLfunc) {
16258 const char * err = Parrot_dlerror();
16259 Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
16260 "Symbol '%Ss' not found: %s\n", CONST(3).u.string, err ? err : "unknown reason");
16261 PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
16262 }
16263 else {
16264 PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
16265 VTABLE_set_pointer_keyed_str(interp, PREG(1), SREG(4), F2DPTR(p));
16266 }
16267
16268 return (opcode_t *)cur_opcode + 5;}
16269
16270 opcode_t *
16271 Parrot_dlfunc_p_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16272 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16273 void *dl_handle = NULL;
16274 void *ptr = NULL;
16275 funcptr_t p;
16276
16277 if (!PMC_IS_NULL(PREG(2))
16278 && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
16279 && VTABLE_defined(interp, PREG(2))) {
16280 dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
16281 }
16282
16283 ptr = Parrot_dlsym_str(interp, dl_handle, SREG(3));
16284 p = D2FPTR(ptr);
16285
16286 if (p == NULLfunc) {
16287 const char * err = Parrot_dlerror();
16288 Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
16289 "Symbol '%Ss' not found: %s\n", SREG(3), err ? err : "unknown reason");
16290 PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
16291 }
16292 else {
16293 PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
16294 VTABLE_set_pointer_keyed_str(interp, PREG(1), CONST(4).u.string, F2DPTR(p));
16295 }
16296
16297 return (opcode_t *)cur_opcode + 5;}
16298
16299 opcode_t *
16300 Parrot_dlfunc_p_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16301 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16302 void *dl_handle = NULL;
16303 void *ptr = NULL;
16304 funcptr_t p;
16305
16306 if (!PMC_IS_NULL(PREG(2))
16307 && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
16308 && VTABLE_defined(interp, PREG(2))) {
16309 dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
16310 }
16311
16312 ptr = Parrot_dlsym_str(interp, dl_handle, CONST(3).u.string);
16313 p = D2FPTR(ptr);
16314
16315 if (p == NULLfunc) {
16316 const char * err = Parrot_dlerror();
16317 Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
16318 "Symbol '%Ss' not found: %s\n", CONST(3).u.string, err ? err : "unknown reason");
16319 PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
16320 }
16321 else {
16322 PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
16323 VTABLE_set_pointer_keyed_str(interp, PREG(1), CONST(4).u.string, F2DPTR(p));
16324 }
16325
16326 return (opcode_t *)cur_opcode + 5;}
16327
16328 opcode_t *
16329 Parrot_dlvar_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
16330 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16331 void * dl_handle = NULL;
16332 void * p = NULL;
16333
16334 if (!PMC_IS_NULL(PREG(2))
16335 && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
16336 && VTABLE_defined(interp, PREG(2))) {
16337 dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
16338 }
16339
16340 p = Parrot_dlsym_str(interp, dl_handle, SREG(3));
16341
16342 if (p == NULL) {
16343 const char * const err = Parrot_dlerror();
16344 Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
16345 "Symbol '%Ss' not found: %s\n", SREG(3), err ? err : "unknown reason");
16346 PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
16347 }
16348 else {
16349 /* At this point we have the symbol's address. We just need to build
16350 a PMC with it so we can get and set the value */
16351 PREG(1) = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
16352 VTABLE_set_pointer(interp, PREG(1), p);
16353 }
16354
16355 return (opcode_t *)cur_opcode + 4;}
16356
16357 opcode_t *
16358 Parrot_dlvar_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16359 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16360 void * dl_handle = NULL;
16361 void * p = NULL;
16362
16363 if (!PMC_IS_NULL(PREG(2))
16364 && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
16365 && VTABLE_defined(interp, PREG(2))) {
16366 dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
16367 }
16368
16369 p = Parrot_dlsym_str(interp, dl_handle, CONST(3).u.string);
16370
16371 if (p == NULL) {
16372 const char * const err = Parrot_dlerror();
16373 Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
16374 "Symbol '%Ss' not found: %s\n", CONST(3).u.string, err ? err : "unknown reason");
16375 PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
16376 }
16377 else {
16378 /* At this point we have the symbol's address. We just need to build
16379 a PMC with it so we can get and set the value */
16380 PREG(1) = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
16381 VTABLE_set_pointer(interp, PREG(1), p);
16382 }
16383
16384 return (opcode_t *)cur_opcode + 4;}
16385
16386 opcode_t *
16387 Parrot_compreg_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
16388 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16389 PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
16390 interp->iglobals, IGLOBALS_COMPREG_HASH);
16391 VTABLE_set_pmc_keyed_str(interp, compreg_hash, SREG(1), PREG(2));
16392
16393 return (opcode_t *)cur_opcode + 3;}
16394
16395 opcode_t *
16396 Parrot_compreg_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
16397 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16398 PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
16399 interp->iglobals, IGLOBALS_COMPREG_HASH);
16400 VTABLE_set_pmc_keyed_str(interp, compreg_hash, CONST(1).u.string, PREG(2));
16401
16402 return (opcode_t *)cur_opcode + 3;}
16403
16404 opcode_t *
16405 Parrot_compreg_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
16406 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16407 PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
16408 interp->iglobals, IGLOBALS_COMPREG_HASH);
16409 PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, SREG(2));
16410
16411 return (opcode_t *)cur_opcode + 3;}
16412
16413 opcode_t *
16414 Parrot_compreg_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16415 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16416 PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
16417 interp->iglobals, IGLOBALS_COMPREG_HASH);
16418 PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, CONST(2).u.string);
16419
16420 return (opcode_t *)cur_opcode + 3;}
16421
16422 opcode_t *
16423 Parrot_new_callback_p_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
16424 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16425 PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), SREG(4));
16426
16427 return (opcode_t *)cur_opcode + 5;}
16428
16429 opcode_t *
16430 Parrot_new_callback_p_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16431 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16432 PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), CONST(4).u.string);
16433
16434 return (opcode_t *)cur_opcode + 5;}
16435
16436 opcode_t *
16437 Parrot_annotations_p(opcode_t *cur_opcode, PARROT_INTERP) {
16438 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16439 if (interp->code->annotations) {
16440 const opcode_t cur_pos = ( cur_opcode + 2) - interp->code->base.data;
16441 PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
16442 cur_pos, NULL);
16443 }
16444 else {
16445 PREG(1) = Parrot_pmc_new(interp, enum_class_Hash);
16446 }
16447
16448 return (opcode_t *)cur_opcode + 2;}
16449
16450 opcode_t *
16451 Parrot_annotations_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
16452 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16453 if (interp->code->annotations) {
16454 const opcode_t cur_pos = ( cur_opcode + 3) - interp->code->base.data;
16455 PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
16456 cur_pos, SREG(2));
16457 }
16458 else {
16459 PREG(1) = PMCNULL;
16460 }
16461
16462 return (opcode_t *)cur_opcode + 3;}
16463
16464 opcode_t *
16465 Parrot_annotations_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
16466 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16467 if (interp->code->annotations) {
16468 const opcode_t cur_pos = ( cur_opcode + 3) - interp->code->base.data;
16469 PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
16470 cur_pos, CONST(2).u.string);
16471 }
16472 else {
16473 PREG(1) = PMCNULL;
16474 }
16475
16476 return (opcode_t *)cur_opcode + 3;}
16477
16478 opcode_t *
16479 Parrot_band_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16480 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16481 IREG(1) &= IREG(2);
16482
16483 return (opcode_t *)cur_opcode + 3;}
16484
16485 opcode_t *
16486 Parrot_band_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16487 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16488 IREG(1) &= cur_opcode[2];
16489
16490 return (opcode_t *)cur_opcode + 3;}
16491
16492 opcode_t *
16493 Parrot_band_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16494 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16495 IREG(1) = IREG(2) & IREG(3);
16496
16497 return (opcode_t *)cur_opcode + 4;}
16498
16499 opcode_t *
16500 Parrot_band_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
16501 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16502 IREG(1) = cur_opcode[2] & IREG(3);
16503
16504 return (opcode_t *)cur_opcode + 4;}
16505
16506 opcode_t *
16507 Parrot_band_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16508 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16509 IREG(1) = IREG(2) & cur_opcode[3];
16510
16511 return (opcode_t *)cur_opcode + 4;}
16512
16513 opcode_t *
16514 Parrot_bor_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16515 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16516 IREG(1) |= IREG(2);
16517
16518 return (opcode_t *)cur_opcode + 3;}
16519
16520 opcode_t *
16521 Parrot_bor_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16522 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16523 IREG(1) |= cur_opcode[2];
16524
16525 return (opcode_t *)cur_opcode + 3;}
16526
16527 opcode_t *
16528 Parrot_bor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16529 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16530 IREG(1) = IREG(2) | IREG(3);
16531
16532 return (opcode_t *)cur_opcode + 4;}
16533
16534 opcode_t *
16535 Parrot_bor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
16536 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16537 IREG(1) = cur_opcode[2] | IREG(3);
16538
16539 return (opcode_t *)cur_opcode + 4;}
16540
16541 opcode_t *
16542 Parrot_bor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16543 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16544 IREG(1) = IREG(2) | cur_opcode[3];
16545
16546 return (opcode_t *)cur_opcode + 4;}
16547
16548 opcode_t *
16549 Parrot_shl_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16550 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16551 IREG(1) = bit_shift_left(IREG(1), IREG(2));
16552
16553 return (opcode_t *)cur_opcode + 3;}
16554
16555 opcode_t *
16556 Parrot_shl_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16557 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16558 IREG(1) = bit_shift_left(IREG(1), cur_opcode[2]);
16559
16560 return (opcode_t *)cur_opcode + 3;}
16561
16562 opcode_t *
16563 Parrot_shl_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16564 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16565 IREG(1) = bit_shift_left(IREG(2), IREG(3));
16566
16567 return (opcode_t *)cur_opcode + 4;}
16568
16569 opcode_t *
16570 Parrot_shl_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
16571 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16572 IREG(1) = bit_shift_left(cur_opcode[2], IREG(3));
16573
16574 return (opcode_t *)cur_opcode + 4;}
16575
16576 opcode_t *
16577 Parrot_shl_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16578 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16579 IREG(1) = bit_shift_left(IREG(2), cur_opcode[3]);
16580
16581 return (opcode_t *)cur_opcode + 4;}
16582
16583 opcode_t *
16584 Parrot_shr_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16585 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16586 const INTVAL signed_shift = -IREG(2);
16587 IREG(1) = bit_shift_left(IREG(1), signed_shift);
16588
16589 return (opcode_t *)cur_opcode + 3;}
16590
16591 opcode_t *
16592 Parrot_shr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16593 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16594 const INTVAL signed_shift = -cur_opcode[2];
16595 IREG(1) = bit_shift_left(IREG(1), signed_shift);
16596
16597 return (opcode_t *)cur_opcode + 3;}
16598
16599 opcode_t *
16600 Parrot_shr_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16601 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16602 const INTVAL signed_shift = -IREG(3);
16603 IREG(1) = bit_shift_left(IREG(2), signed_shift);
16604
16605 return (opcode_t *)cur_opcode + 4;}
16606
16607 opcode_t *
16608 Parrot_shr_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
16609 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16610 const INTVAL signed_shift = -IREG(3);
16611 IREG(1) = bit_shift_left(cur_opcode[2], signed_shift);
16612
16613 return (opcode_t *)cur_opcode + 4;}
16614
16615 opcode_t *
16616 Parrot_shr_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16617 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16618 const INTVAL signed_shift = -cur_opcode[3];
16619 IREG(1) = bit_shift_left(IREG(2), signed_shift);
16620
16621 return (opcode_t *)cur_opcode + 4;}
16622
16623 opcode_t *
16624 Parrot_lsr_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16625 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16626 const UINTVAL a = (UINTVAL)IREG(1);
16627 const UINTVAL b = a >> IREG(2);
16628 IREG(1) = (INTVAL)b;
16629
16630 return (opcode_t *)cur_opcode + 3;}
16631
16632 opcode_t *
16633 Parrot_lsr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16634 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16635 const UINTVAL a = (UINTVAL)IREG(1);
16636 const UINTVAL b = a >> cur_opcode[2];
16637 IREG(1) = (INTVAL)b;
16638
16639 return (opcode_t *)cur_opcode + 3;}
16640
16641 opcode_t *
16642 Parrot_lsr_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16643 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16644 IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> IREG(3));
16645
16646 return (opcode_t *)cur_opcode + 4;}
16647
16648 opcode_t *
16649 Parrot_lsr_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
16650 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16651 IREG(1) = (INTVAL)((UINTVAL)cur_opcode[2] >> IREG(3));
16652
16653 return (opcode_t *)cur_opcode + 4;}
16654
16655 opcode_t *
16656 Parrot_lsr_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16657 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16658 IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> cur_opcode[3]);
16659
16660 return (opcode_t *)cur_opcode + 4;}
16661
16662 opcode_t *
16663 Parrot_bxor_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16664 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16665 IREG(1) ^= IREG(2);
16666
16667 return (opcode_t *)cur_opcode + 3;}
16668
16669 opcode_t *
16670 Parrot_bxor_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16671 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16672 IREG(1) ^= cur_opcode[2];
16673
16674 return (opcode_t *)cur_opcode + 3;}
16675
16676 opcode_t *
16677 Parrot_bxor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
16678 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16679 IREG(1) = IREG(2) ^ IREG(3);
16680
16681 return (opcode_t *)cur_opcode + 4;}
16682
16683 opcode_t *
16684 Parrot_bxor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
16685 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16686 IREG(1) = cur_opcode[2] ^ IREG(3);
16687
16688 return (opcode_t *)cur_opcode + 4;}
16689
16690 opcode_t *
16691 Parrot_bxor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16692 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16693 IREG(1) = IREG(2) ^ cur_opcode[3];
16694
16695 return (opcode_t *)cur_opcode + 4;}
16696
16697 opcode_t *
16698 Parrot_eq_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16699 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16700 if (IREG(1) == IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16701 }
16702
16703 return (opcode_t *)cur_opcode + 4;}
16704
16705 opcode_t *
16706 Parrot_eq_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16707 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16708 if (cur_opcode[1] == IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16709 }
16710
16711 return (opcode_t *)cur_opcode + 4;}
16712
16713 opcode_t *
16714 Parrot_eq_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16715 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16716 if (IREG(1) == cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
16717 }
16718
16719 return (opcode_t *)cur_opcode + 4;}
16720
16721 opcode_t *
16722 Parrot_eq_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16723 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16724 if (NREG(1) == NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16725 }
16726
16727 return (opcode_t *)cur_opcode + 4;}
16728
16729 opcode_t *
16730 Parrot_eq_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16731 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16732 if (CONST(1).u.number == NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16733 }
16734
16735 return (opcode_t *)cur_opcode + 4;}
16736
16737 opcode_t *
16738 Parrot_eq_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16739 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16740 if (NREG(1) == CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
16741 }
16742
16743 return (opcode_t *)cur_opcode + 4;}
16744
16745 opcode_t *
16746 Parrot_eq_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16747 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16748 if (Parrot_str_equal(interp, SREG(1), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16749 }
16750
16751 return (opcode_t *)cur_opcode + 4;}
16752
16753 opcode_t *
16754 Parrot_eq_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16755 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16756 if (Parrot_str_equal(interp, CONST(1).u.string, SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16757 }
16758
16759 return (opcode_t *)cur_opcode + 4;}
16760
16761 opcode_t *
16762 Parrot_eq_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16763 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16764 if (Parrot_str_equal(interp, SREG(1), CONST(2).u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16765 }
16766
16767 return (opcode_t *)cur_opcode + 4;}
16768
16769 opcode_t *
16770 Parrot_eq_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16771 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16772 if (VTABLE_is_equal(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16773 }
16774
16775 return (opcode_t *)cur_opcode + 4;}
16776
16777 opcode_t *
16778 Parrot_eq_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16779 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16780 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
16781 VTABLE_set_integer_native(interp, temp, IREG(2));
16782
16783 if (VTABLE_is_equal(interp, PREG(1), temp)) {
16784 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
16785 }
16786
16787 Parrot_pmc_free_temporary(interp, temp);
16788
16789 return (opcode_t *)cur_opcode + 4;}
16790
16791 opcode_t *
16792 Parrot_eq_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16793 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16794 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
16795 VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
16796
16797 if (VTABLE_is_equal(interp, PREG(1), temp)) {
16798 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
16799 }
16800
16801 Parrot_pmc_free_temporary(interp, temp);
16802
16803 return (opcode_t *)cur_opcode + 4;}
16804
16805 opcode_t *
16806 Parrot_eq_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16807 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16808 /*
16809 * the get_number and get_string should probably
16810 * be also replaced with code like above, as
16811 * overriding the compare multi subs wouldn't
16812 * have any effect with the current code
16813 */
16814 if (VTABLE_get_number(interp, PREG(1)) == NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16815 }
16816
16817 return (opcode_t *)cur_opcode + 4;}
16818
16819 opcode_t *
16820 Parrot_eq_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16821 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16822 /*
16823 * the get_number and get_string should probably
16824 * be also replaced with code like above, as
16825 * overriding the compare multi subs wouldn't
16826 * have any effect with the current code
16827 */
16828 if (VTABLE_get_number(interp, PREG(1)) == CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
16829 }
16830
16831 return (opcode_t *)cur_opcode + 4;}
16832
16833 opcode_t *
16834 Parrot_eq_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16835 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16836 if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16837 }
16838
16839 return (opcode_t *)cur_opcode + 4;}
16840
16841 opcode_t *
16842 Parrot_eq_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16843 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16844 if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2).u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16845 }
16846
16847 return (opcode_t *)cur_opcode + 4;}
16848
16849 opcode_t *
16850 Parrot_eq_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16851 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16852 if (VTABLE_is_equal_string(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16853 }
16854
16855 return (opcode_t *)cur_opcode + 4;}
16856
16857 opcode_t *
16858 Parrot_eq_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16859 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16860 if (VTABLE_is_equal_num(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16861 }
16862
16863 return (opcode_t *)cur_opcode + 4;}
16864
16865 opcode_t *
16866 Parrot_eq_addr_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16867 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16868 if (SREG(1) == SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16869 }
16870
16871 return (opcode_t *)cur_opcode + 4;}
16872
16873 opcode_t *
16874 Parrot_eq_addr_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16875 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16876 if (CONST(1).u.string == SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16877 }
16878
16879 return (opcode_t *)cur_opcode + 4;}
16880
16881 opcode_t *
16882 Parrot_eq_addr_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16883 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16884 if (SREG(1) == CONST(2).u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
16885 }
16886
16887 return (opcode_t *)cur_opcode + 4;}
16888
16889 opcode_t *
16890 Parrot_eq_addr_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16891 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16892 if (CONST(1).u.string == CONST(2).u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
16893 }
16894
16895 return (opcode_t *)cur_opcode + 4;}
16896
16897 opcode_t *
16898 Parrot_eq_addr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16899 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16900 if (PREG(1) == PREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16901 }
16902
16903 return (opcode_t *)cur_opcode + 4;}
16904
16905 opcode_t *
16906 Parrot_ne_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16907 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16908 if (IREG(1) != IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16909 }
16910
16911 return (opcode_t *)cur_opcode + 4;}
16912
16913 opcode_t *
16914 Parrot_ne_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16915 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16916 if (cur_opcode[1] != IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16917 }
16918
16919 return (opcode_t *)cur_opcode + 4;}
16920
16921 opcode_t *
16922 Parrot_ne_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16923 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16924 if (IREG(1) != cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
16925 }
16926
16927 return (opcode_t *)cur_opcode + 4;}
16928
16929 opcode_t *
16930 Parrot_ne_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16931 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16932 if (NREG(1) != NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16933 }
16934
16935 return (opcode_t *)cur_opcode + 4;}
16936
16937 opcode_t *
16938 Parrot_ne_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16939 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16940 if (CONST(1).u.number != NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16941 }
16942
16943 return (opcode_t *)cur_opcode + 4;}
16944
16945 opcode_t *
16946 Parrot_ne_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16947 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16948 if (NREG(1) != CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
16949 }
16950
16951 return (opcode_t *)cur_opcode + 4;}
16952
16953 opcode_t *
16954 Parrot_ne_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16955 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16956 if (Parrot_str_not_equal(interp, SREG(1), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16957 }
16958
16959 return (opcode_t *)cur_opcode + 4;}
16960
16961 opcode_t *
16962 Parrot_ne_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16963 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16964 if (Parrot_str_not_equal(interp, CONST(1).u.string, SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16965 }
16966
16967 return (opcode_t *)cur_opcode + 4;}
16968
16969 opcode_t *
16970 Parrot_ne_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16971 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16972 if (Parrot_str_not_equal(interp, SREG(1), CONST(2).u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
16973 }
16974
16975 return (opcode_t *)cur_opcode + 4;}
16976
16977 opcode_t *
16978 Parrot_ne_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16979 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16980 if (!VTABLE_is_equal(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
16981 }
16982
16983 return (opcode_t *)cur_opcode + 4;}
16984
16985 opcode_t *
16986 Parrot_ne_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
16987 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
16988 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
16989 VTABLE_set_integer_native(interp, temp, IREG(2));
16990
16991 if (!VTABLE_is_equal(interp, PREG(1), temp)) {
16992 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
16993 }
16994
16995 Parrot_pmc_free_temporary(interp, temp);
16996
16997 return (opcode_t *)cur_opcode + 4;}
16998
16999 opcode_t *
17000 Parrot_ne_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17001 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17002 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17003 VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
17004
17005 if (!VTABLE_is_equal(interp, PREG(1), temp)) {
17006 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17007 }
17008
17009 Parrot_pmc_free_temporary(interp, temp);
17010
17011 return (opcode_t *)cur_opcode + 4;}
17012
17013 opcode_t *
17014 Parrot_ne_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17015 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17016 if (VTABLE_get_number(interp, PREG(1)) != NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17017 }
17018
17019 return (opcode_t *)cur_opcode + 4;}
17020
17021 opcode_t *
17022 Parrot_ne_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17023 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17024 if (VTABLE_get_number(interp, PREG(1)) != CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17025 }
17026
17027 return (opcode_t *)cur_opcode + 4;}
17028
17029 opcode_t *
17030 Parrot_ne_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17031 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17032 if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
17033 }
17034
17035 return (opcode_t *)cur_opcode + 4;}
17036
17037 opcode_t *
17038 Parrot_ne_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17039 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17040 if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2).u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17041 }
17042
17043 return (opcode_t *)cur_opcode + 4;}
17044
17045 opcode_t *
17046 Parrot_ne_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17047 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17048 if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) != 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17049 }
17050
17051 return (opcode_t *)cur_opcode + 4;}
17052
17053 opcode_t *
17054 Parrot_ne_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17055 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17056 if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) != 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17057 }
17058
17059 return (opcode_t *)cur_opcode + 4;}
17060
17061 opcode_t *
17062 Parrot_ne_addr_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17063 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17064 if (SREG(1) != SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17065 }
17066
17067 return (opcode_t *)cur_opcode + 4;}
17068
17069 opcode_t *
17070 Parrot_ne_addr_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17071 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17072 if (CONST(1).u.string != SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17073 }
17074
17075 return (opcode_t *)cur_opcode + 4;}
17076
17077 opcode_t *
17078 Parrot_ne_addr_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17079 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17080 if (SREG(1) != CONST(2).u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
17081 }
17082
17083 return (opcode_t *)cur_opcode + 4;}
17084
17085 opcode_t *
17086 Parrot_ne_addr_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17087 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17088 if (CONST(1).u.string != CONST(2).u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
17089 }
17090
17091 return (opcode_t *)cur_opcode + 4;}
17092
17093 opcode_t *
17094 Parrot_ne_addr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17095 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17096 if (PREG(1) != PREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17097 }
17098
17099 return (opcode_t *)cur_opcode + 4;}
17100
17101 opcode_t *
17102 Parrot_lt_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17103 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17104 if (IREG(1) < IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17105 }
17106
17107 return (opcode_t *)cur_opcode + 4;}
17108
17109 opcode_t *
17110 Parrot_lt_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17111 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17112 if (cur_opcode[1] < IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17113 }
17114
17115 return (opcode_t *)cur_opcode + 4;}
17116
17117 opcode_t *
17118 Parrot_lt_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17119 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17120 if (IREG(1) < cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
17121 }
17122
17123 return (opcode_t *)cur_opcode + 4;}
17124
17125 opcode_t *
17126 Parrot_lt_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17127 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17128 if (NREG(1) < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17129 }
17130
17131 return (opcode_t *)cur_opcode + 4;}
17132
17133 opcode_t *
17134 Parrot_lt_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17135 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17136 if (CONST(1).u.number < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17137 }
17138
17139 return (opcode_t *)cur_opcode + 4;}
17140
17141 opcode_t *
17142 Parrot_lt_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17143 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17144 if (NREG(1) < CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17145 }
17146
17147 return (opcode_t *)cur_opcode + 4;}
17148
17149 opcode_t *
17150 Parrot_lt_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17151 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17152 if (Parrot_str_compare(interp, SREG(1), SREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17153 }
17154
17155 return (opcode_t *)cur_opcode + 4;}
17156
17157 opcode_t *
17158 Parrot_lt_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17159 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17160 if (Parrot_str_compare(interp, CONST(1).u.string, SREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17161 }
17162
17163 return (opcode_t *)cur_opcode + 4;}
17164
17165 opcode_t *
17166 Parrot_lt_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17167 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17168 if (Parrot_str_compare(interp, SREG(1), CONST(2).u.string) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17169 }
17170
17171 return (opcode_t *)cur_opcode + 4;}
17172
17173 opcode_t *
17174 Parrot_lt_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17175 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17176 if (VTABLE_cmp(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17177 }
17178
17179 return (opcode_t *)cur_opcode + 4;}
17180
17181 opcode_t *
17182 Parrot_lt_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17183 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17184 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17185 VTABLE_set_integer_native(interp, temp, IREG(2));
17186
17187 if (VTABLE_cmp(interp, PREG(1), temp) < 0) {
17188 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17189 }
17190
17191 Parrot_pmc_free_temporary(interp, temp);
17192
17193 return (opcode_t *)cur_opcode + 4;}
17194
17195 opcode_t *
17196 Parrot_lt_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17197 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17198 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17199 VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
17200
17201 if (VTABLE_cmp(interp, PREG(1), temp) < 0) {
17202 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17203 }
17204
17205 Parrot_pmc_free_temporary(interp, temp);
17206
17207 return (opcode_t *)cur_opcode + 4;}
17208
17209 opcode_t *
17210 Parrot_lt_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17211 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17212 if (VTABLE_get_number(interp, PREG(1)) < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17213 }
17214
17215 return (opcode_t *)cur_opcode + 4;}
17216
17217 opcode_t *
17218 Parrot_lt_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17219 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17220 if (VTABLE_get_number(interp, PREG(1)) < CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17221 }
17222
17223 return (opcode_t *)cur_opcode + 4;}
17224
17225 opcode_t *
17226 Parrot_lt_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17227 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17228 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17229 }
17230
17231 return (opcode_t *)cur_opcode + 4;}
17232
17233 opcode_t *
17234 Parrot_lt_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17235 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17236 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2).u.string) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17237 }
17238
17239 return (opcode_t *)cur_opcode + 4;}
17240
17241 opcode_t *
17242 Parrot_lt_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17243 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17244 if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17245 }
17246
17247 return (opcode_t *)cur_opcode + 4;}
17248
17249 opcode_t *
17250 Parrot_lt_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17251 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17252 if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17253 }
17254
17255 return (opcode_t *)cur_opcode + 4;}
17256
17257 opcode_t *
17258 Parrot_le_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17259 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17260 if (IREG(1) <= IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17261 }
17262
17263 return (opcode_t *)cur_opcode + 4;}
17264
17265 opcode_t *
17266 Parrot_le_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17267 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17268 if (cur_opcode[1] <= IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17269 }
17270
17271 return (opcode_t *)cur_opcode + 4;}
17272
17273 opcode_t *
17274 Parrot_le_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17275 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17276 if (IREG(1) <= cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
17277 }
17278
17279 return (opcode_t *)cur_opcode + 4;}
17280
17281 opcode_t *
17282 Parrot_le_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17283 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17284 if (NREG(1) <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17285 }
17286
17287 return (opcode_t *)cur_opcode + 4;}
17288
17289 opcode_t *
17290 Parrot_le_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17291 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17292 if (CONST(1).u.number <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17293 }
17294
17295 return (opcode_t *)cur_opcode + 4;}
17296
17297 opcode_t *
17298 Parrot_le_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17299 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17300 if (NREG(1) <= CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17301 }
17302
17303 return (opcode_t *)cur_opcode + 4;}
17304
17305 opcode_t *
17306 Parrot_le_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17307 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17308 if (Parrot_str_compare(interp, SREG(1), SREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17309 }
17310
17311 return (opcode_t *)cur_opcode + 4;}
17312
17313 opcode_t *
17314 Parrot_le_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17315 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17316 if (Parrot_str_compare(interp, CONST(1).u.string, SREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17317 }
17318
17319 return (opcode_t *)cur_opcode + 4;}
17320
17321 opcode_t *
17322 Parrot_le_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17323 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17324 if (Parrot_str_compare(interp, SREG(1), CONST(2).u.string) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17325 }
17326
17327 return (opcode_t *)cur_opcode + 4;}
17328
17329 opcode_t *
17330 Parrot_le_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17331 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17332 if (VTABLE_cmp(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17333 }
17334
17335 return (opcode_t *)cur_opcode + 4;}
17336
17337 opcode_t *
17338 Parrot_le_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17339 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17340 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17341 VTABLE_set_integer_native(interp, temp, IREG(2));
17342
17343 if (VTABLE_cmp(interp, PREG(1), temp) <= 0) {
17344 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17345 }
17346
17347 Parrot_pmc_free_temporary(interp, temp);
17348
17349 return (opcode_t *)cur_opcode + 4;}
17350
17351 opcode_t *
17352 Parrot_le_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17353 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17354 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17355 VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
17356
17357 if (VTABLE_cmp(interp, PREG(1), temp) <= 0) {
17358 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17359 }
17360
17361 Parrot_pmc_free_temporary(interp, temp);
17362
17363 return (opcode_t *)cur_opcode + 4;}
17364
17365 opcode_t *
17366 Parrot_le_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17367 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17368 if (VTABLE_get_number(interp, PREG(1)) <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17369 }
17370
17371 return (opcode_t *)cur_opcode + 4;}
17372
17373 opcode_t *
17374 Parrot_le_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17375 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17376 if (VTABLE_get_number(interp, PREG(1)) <= CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17377 }
17378
17379 return (opcode_t *)cur_opcode + 4;}
17380
17381 opcode_t *
17382 Parrot_le_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17383 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17384 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17385 }
17386
17387 return (opcode_t *)cur_opcode + 4;}
17388
17389 opcode_t *
17390 Parrot_le_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17391 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17392 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2).u.string) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17393 }
17394
17395 return (opcode_t *)cur_opcode + 4;}
17396
17397 opcode_t *
17398 Parrot_le_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17399 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17400 if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17401 }
17402
17403 return (opcode_t *)cur_opcode + 4;}
17404
17405 opcode_t *
17406 Parrot_le_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17407 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17408 if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17409 }
17410
17411 return (opcode_t *)cur_opcode + 4;}
17412
17413 opcode_t *
17414 Parrot_gt_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17415 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17416 if (VTABLE_cmp(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17417 }
17418
17419 return (opcode_t *)cur_opcode + 4;}
17420
17421 opcode_t *
17422 Parrot_gt_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17423 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17424 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17425 VTABLE_set_integer_native(interp, temp, IREG(2));
17426
17427 if (VTABLE_cmp(interp, PREG(1), temp) > 0) {
17428 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17429 }
17430
17431 Parrot_pmc_free_temporary(interp, temp);
17432
17433 return (opcode_t *)cur_opcode + 4;}
17434
17435 opcode_t *
17436 Parrot_gt_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17437 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17438 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17439 VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
17440
17441 if (VTABLE_cmp(interp, PREG(1), temp) > 0) {
17442 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17443 }
17444
17445 Parrot_pmc_free_temporary(interp, temp);
17446
17447 return (opcode_t *)cur_opcode + 4;}
17448
17449 opcode_t *
17450 Parrot_gt_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17451 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17452 if (VTABLE_get_number(interp, PREG(1)) > NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17453 }
17454
17455 return (opcode_t *)cur_opcode + 4;}
17456
17457 opcode_t *
17458 Parrot_gt_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17459 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17460 if (VTABLE_get_number(interp, PREG(1)) > CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17461 }
17462
17463 return (opcode_t *)cur_opcode + 4;}
17464
17465 opcode_t *
17466 Parrot_gt_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17467 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17468 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17469 }
17470
17471 return (opcode_t *)cur_opcode + 4;}
17472
17473 opcode_t *
17474 Parrot_gt_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17475 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17476 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2).u.string) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17477 }
17478
17479 return (opcode_t *)cur_opcode + 4;}
17480
17481 opcode_t *
17482 Parrot_gt_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17483 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17484 if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17485 }
17486
17487 return (opcode_t *)cur_opcode + 4;}
17488
17489 opcode_t *
17490 Parrot_gt_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17491 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17492 if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17493 }
17494
17495 return (opcode_t *)cur_opcode + 4;}
17496
17497 opcode_t *
17498 Parrot_ge_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17499 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17500 if (VTABLE_cmp(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17501 }
17502
17503 return (opcode_t *)cur_opcode + 4;}
17504
17505 opcode_t *
17506 Parrot_ge_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17507 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17508 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17509 VTABLE_set_integer_native(interp, temp, IREG(2));
17510
17511 if (VTABLE_cmp(interp, PREG(1), temp) >= 0) {
17512 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17513 }
17514
17515 Parrot_pmc_free_temporary(interp, temp);
17516
17517 return (opcode_t *)cur_opcode + 4;}
17518
17519 opcode_t *
17520 Parrot_ge_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17521 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17522 PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
17523 VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
17524
17525 if (VTABLE_cmp(interp, PREG(1), temp) >= 0) {
17526 Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
17527 }
17528
17529 Parrot_pmc_free_temporary(interp, temp);
17530
17531 return (opcode_t *)cur_opcode + 4;}
17532
17533 opcode_t *
17534 Parrot_ge_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17535 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17536 if (VTABLE_get_number(interp, PREG(1)) >= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
17537 }
17538
17539 return (opcode_t *)cur_opcode + 4;}
17540
17541 opcode_t *
17542 Parrot_ge_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17543 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17544 if (VTABLE_get_number(interp, PREG(1)) >= CONST(2).u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
17545 }
17546
17547 return (opcode_t *)cur_opcode + 4;}
17548
17549 opcode_t *
17550 Parrot_ge_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17551 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17552 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17553 }
17554
17555 return (opcode_t *)cur_opcode + 4;}
17556
17557 opcode_t *
17558 Parrot_ge_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17559 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17560 if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2).u.string) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17561 }
17562
17563 return (opcode_t *)cur_opcode + 4;}
17564
17565 opcode_t *
17566 Parrot_ge_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17567 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17568 if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17569 }
17570
17571 return (opcode_t *)cur_opcode + 4;}
17572
17573 opcode_t *
17574 Parrot_ge_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17575 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17576 if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
17577 }
17578
17579 return (opcode_t *)cur_opcode + 4;}
17580
17581 opcode_t *
17582 Parrot_if_null_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17583 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17584 if (PMC_IS_NULL(PREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
17585 }
17586
17587 return (opcode_t *)cur_opcode + 3;}
17588
17589 opcode_t *
17590 Parrot_if_null_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17591 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17592 if (STRING_IS_NULL(SREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
17593 }
17594
17595 return (opcode_t *)cur_opcode + 3;}
17596
17597 opcode_t *
17598 Parrot_unless_null_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17599 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17600 if (!PMC_IS_NULL(PREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
17601 }
17602
17603 return (opcode_t *)cur_opcode + 3;}
17604
17605 opcode_t *
17606 Parrot_unless_null_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17607 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17608 if (!STRING_IS_NULL(SREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
17609 }
17610
17611 return (opcode_t *)cur_opcode + 3;}
17612
17613 opcode_t *
17614 Parrot_cmp_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
17615 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17616 IREG(1) = IREG(2) < IREG(3) ? -1 :
17617 IREG(2) > IREG(3) ? +1 :
17618 0;
17619
17620 return (opcode_t *)cur_opcode + 4;}
17621
17622 opcode_t *
17623 Parrot_cmp_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
17624 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17625 IREG(1) = cur_opcode[2] < IREG(3) ? -1 :
17626 cur_opcode[2] > IREG(3) ? +1 :
17627 0;
17628
17629 return (opcode_t *)cur_opcode + 4;}
17630
17631 opcode_t *
17632 Parrot_cmp_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17633 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17634 IREG(1) = IREG(2) < cur_opcode[3] ? -1 :
17635 IREG(2) > cur_opcode[3] ? +1 :
17636 0;
17637
17638 return (opcode_t *)cur_opcode + 4;}
17639
17640 opcode_t *
17641 Parrot_cmp_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
17642 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17643 IREG(1) = NREG(2) < NREG(3) ? -1 :
17644 NREG(2) > NREG(3) ? +1 :
17645 0;
17646
17647 return (opcode_t *)cur_opcode + 4;}
17648
17649 opcode_t *
17650 Parrot_cmp_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
17651 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17652 IREG(1) = CONST(2).u.number < NREG(3) ? -1 :
17653 CONST(2).u.number > NREG(3) ? +1 :
17654 0;
17655
17656 return (opcode_t *)cur_opcode + 4;}
17657
17658 opcode_t *
17659 Parrot_cmp_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
17660 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17661 IREG(1) = NREG(2) < CONST(3).u.number ? -1 :
17662 NREG(2) > CONST(3).u.number ? +1 :
17663 0;
17664
17665 return (opcode_t *)cur_opcode + 4;}
17666
17667 opcode_t *
17668 Parrot_cmp_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
17669 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17670 IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3));
17671
17672 return (opcode_t *)cur_opcode + 4;}
17673
17674 opcode_t *
17675 Parrot_cmp_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
17676 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17677 IREG(1) = Parrot_str_compare(interp, CONST(2).u.string, SREG(3));
17678
17679 return (opcode_t *)cur_opcode + 4;}
17680
17681 opcode_t *
17682 Parrot_cmp_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17683 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17684 IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3).u.string);
17685
17686 return (opcode_t *)cur_opcode + 4;}
17687
17688 opcode_t *
17689 Parrot_cmp_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17690 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17691 IREG(1) = VTABLE_cmp(interp, PREG(2), PREG(3));
17692
17693 return (opcode_t *)cur_opcode + 4;}
17694
17695 opcode_t *
17696 Parrot_cmp_i_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
17697 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17698 const INTVAL l = VTABLE_get_integer(interp, PREG(2));
17699 IREG(1) = l < IREG(3) ? -1 :
17700 l > IREG(3) ? +1 :
17701 0;
17702
17703 return (opcode_t *)cur_opcode + 4;}
17704
17705 opcode_t *
17706 Parrot_cmp_i_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17707 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17708 const INTVAL l = VTABLE_get_integer(interp, PREG(2));
17709 IREG(1) = l < cur_opcode[3] ? -1 :
17710 l > cur_opcode[3] ? +1 :
17711 0;
17712
17713 return (opcode_t *)cur_opcode + 4;}
17714
17715 opcode_t *
17716 Parrot_cmp_i_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
17717 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17718 const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
17719 IREG(1) = l < NREG(3) ? -1 :
17720 l > NREG(3) ? +1 :
17721 0;
17722
17723 return (opcode_t *)cur_opcode + 4;}
17724
17725 opcode_t *
17726 Parrot_cmp_i_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
17727 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17728 const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
17729 IREG(1) = l < CONST(3).u.number ? -1 :
17730 l > CONST(3).u.number ? +1 :
17731 0;
17732
17733 return (opcode_t *)cur_opcode + 4;}
17734
17735 opcode_t *
17736 Parrot_cmp_i_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
17737 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17738 STRING* const l = VTABLE_get_string(interp, PREG(2));
17739 IREG(1) = Parrot_str_compare(interp, l, SREG(3));
17740
17741 return (opcode_t *)cur_opcode + 4;}
17742
17743 opcode_t *
17744 Parrot_cmp_i_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17745 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17746 STRING* const l = VTABLE_get_string(interp, PREG(2));
17747 IREG(1) = Parrot_str_compare(interp, l, CONST(3).u.string);
17748
17749 return (opcode_t *)cur_opcode + 4;}
17750
17751 opcode_t *
17752 Parrot_cmp_str_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17753 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17754 IREG(1) = VTABLE_cmp_string(interp, PREG(2), PREG(3));
17755
17756 return (opcode_t *)cur_opcode + 4;}
17757
17758 opcode_t *
17759 Parrot_cmp_num_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17760 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17761 IREG(1) = VTABLE_cmp_num(interp, PREG(2), PREG(3));
17762
17763 return (opcode_t *)cur_opcode + 4;}
17764
17765 opcode_t *
17766 Parrot_cmp_pmc_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17767 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17768 PREG(1) = VTABLE_cmp_pmc(interp, PREG(2), PREG(3));
17769
17770 return (opcode_t *)cur_opcode + 4;}
17771
17772 opcode_t *
17773 Parrot_issame_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17774 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17775 if (PREG(2) == PREG(3))
17776 IREG(1) = 1;
17777 else
17778 IREG(1) = VTABLE_is_same(interp, PREG(2), PREG(3));
17779
17780 return (opcode_t *)cur_opcode + 4;}
17781
17782 opcode_t *
17783 Parrot_issame_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
17784 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17785 IREG(1) = SREG(2) == SREG(3);
17786
17787 return (opcode_t *)cur_opcode + 4;}
17788
17789 opcode_t *
17790 Parrot_issame_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
17791 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17792 IREG(1) = CONST(2).u.string == SREG(3);
17793
17794 return (opcode_t *)cur_opcode + 4;}
17795
17796 opcode_t *
17797 Parrot_issame_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17798 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17799 IREG(1) = SREG(2) == CONST(3).u.string;
17800
17801 return (opcode_t *)cur_opcode + 4;}
17802
17803 opcode_t *
17804 Parrot_issame_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17805 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17806 IREG(1) = CONST(2).u.string == CONST(3).u.string;
17807
17808 return (opcode_t *)cur_opcode + 4;}
17809
17810 opcode_t *
17811 Parrot_isntsame_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17812 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17813 if (PREG(2) == PREG(3))
17814 IREG(1) = 0;
17815 else
17816 IREG(1) = !VTABLE_is_same(interp, PREG(2), PREG(3));
17817
17818 return (opcode_t *)cur_opcode + 4;}
17819
17820 opcode_t *
17821 Parrot_isntsame_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
17822 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17823 IREG(1) = SREG(2) != SREG(3);
17824
17825 return (opcode_t *)cur_opcode + 4;}
17826
17827 opcode_t *
17828 Parrot_isntsame_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
17829 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17830 IREG(1) = CONST(2).u.string != SREG(3);
17831
17832 return (opcode_t *)cur_opcode + 4;}
17833
17834 opcode_t *
17835 Parrot_isntsame_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17836 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17837 IREG(1) = SREG(2) != CONST(3).u.string;
17838
17839 return (opcode_t *)cur_opcode + 4;}
17840
17841 opcode_t *
17842 Parrot_isntsame_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17843 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17844 IREG(1) = CONST(2).u.string != CONST(3).u.string;
17845
17846 return (opcode_t *)cur_opcode + 4;}
17847
17848 opcode_t *
17849 Parrot_istrue_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
17850 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17851 IREG(1) = VTABLE_get_bool(interp, PREG(2));
17852
17853 return (opcode_t *)cur_opcode + 3;}
17854
17855 opcode_t *
17856 Parrot_isfalse_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
17857 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17858 IREG(1) = !VTABLE_get_bool(interp, PREG(2));
17859
17860 return (opcode_t *)cur_opcode + 3;}
17861
17862 opcode_t *
17863 Parrot_isnull_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
17864 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17865 IREG(1) = PMC_IS_NULL(PREG(2));
17866
17867 return (opcode_t *)cur_opcode + 3;}
17868
17869 opcode_t *
17870 Parrot_isnull_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
17871 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17872 IREG(1) = PMC_IS_NULL(CONST(2).u.key);
17873
17874 return (opcode_t *)cur_opcode + 3;}
17875
17876 opcode_t *
17877 Parrot_isnull_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
17878 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17879 IREG(1) = STRING_IS_NULL(SREG(2));
17880
17881 return (opcode_t *)cur_opcode + 3;}
17882
17883 opcode_t *
17884 Parrot_isnull_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17885 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17886 IREG(1) = STRING_IS_NULL(CONST(2).u.string);
17887
17888 return (opcode_t *)cur_opcode + 3;}
17889
17890 opcode_t *
17891 Parrot_isgt_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17892 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17893 IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) > 0);
17894
17895 return (opcode_t *)cur_opcode + 4;}
17896
17897 opcode_t *
17898 Parrot_isge_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17899 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17900 IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) >= 0);
17901
17902 return (opcode_t *)cur_opcode + 4;}
17903
17904 opcode_t *
17905 Parrot_isle_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
17906 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17907 IREG(1) = IREG(2) <= IREG(3);
17908
17909 return (opcode_t *)cur_opcode + 4;}
17910
17911 opcode_t *
17912 Parrot_isle_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
17913 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17914 IREG(1) = cur_opcode[2] <= IREG(3);
17915
17916 return (opcode_t *)cur_opcode + 4;}
17917
17918 opcode_t *
17919 Parrot_isle_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17920 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17921 IREG(1) = IREG(2) <= cur_opcode[3];
17922
17923 return (opcode_t *)cur_opcode + 4;}
17924
17925 opcode_t *
17926 Parrot_isle_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
17927 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17928 IREG(1) = NREG(2) <= NREG(3);
17929
17930 return (opcode_t *)cur_opcode + 4;}
17931
17932 opcode_t *
17933 Parrot_isle_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
17934 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17935 IREG(1) = CONST(2).u.number <= NREG(3);
17936
17937 return (opcode_t *)cur_opcode + 4;}
17938
17939 opcode_t *
17940 Parrot_isle_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
17941 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17942 IREG(1) = NREG(2) <= CONST(3).u.number;
17943
17944 return (opcode_t *)cur_opcode + 4;}
17945
17946 opcode_t *
17947 Parrot_isle_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
17948 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17949 IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) <= 0;
17950
17951 return (opcode_t *)cur_opcode + 4;}
17952
17953 opcode_t *
17954 Parrot_isle_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
17955 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17956 IREG(1) = Parrot_str_compare(interp, CONST(2).u.string, SREG(3)) <= 0;
17957
17958 return (opcode_t *)cur_opcode + 4;}
17959
17960 opcode_t *
17961 Parrot_isle_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
17962 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17963 IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3).u.string) <= 0;
17964
17965 return (opcode_t *)cur_opcode + 4;}
17966
17967 opcode_t *
17968 Parrot_isle_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
17969 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17970 IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) <= 0);
17971
17972 return (opcode_t *)cur_opcode + 4;}
17973
17974 opcode_t *
17975 Parrot_islt_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
17976 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17977 IREG(1) = (IREG(2) < IREG(3)) ? 1 : 0;
17978
17979 return (opcode_t *)cur_opcode + 4;}
17980
17981 opcode_t *
17982 Parrot_islt_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
17983 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17984 IREG(1) = (cur_opcode[2] < IREG(3)) ? 1 : 0;
17985
17986 return (opcode_t *)cur_opcode + 4;}
17987
17988 opcode_t *
17989 Parrot_islt_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
17990 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17991 IREG(1) = (IREG(2) < cur_opcode[3]) ? 1 : 0;
17992
17993 return (opcode_t *)cur_opcode + 4;}
17994
17995 opcode_t *
17996 Parrot_islt_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
17997 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
17998 IREG(1) = NREG(2) < NREG(3);
17999
18000 return (opcode_t *)cur_opcode + 4;}
18001
18002 opcode_t *
18003 Parrot_islt_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
18004 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18005 IREG(1) = CONST(2).u.number < NREG(3);
18006
18007 return (opcode_t *)cur_opcode + 4;}
18008
18009 opcode_t *
18010 Parrot_islt_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18011 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18012 IREG(1) = NREG(2) < CONST(3).u.number;
18013
18014 return (opcode_t *)cur_opcode + 4;}
18015
18016 opcode_t *
18017 Parrot_islt_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
18018 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18019 IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) < 0;
18020
18021 return (opcode_t *)cur_opcode + 4;}
18022
18023 opcode_t *
18024 Parrot_islt_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
18025 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18026 IREG(1) = Parrot_str_compare(interp, CONST(2).u.string, SREG(3)) < 0;
18027
18028 return (opcode_t *)cur_opcode + 4;}
18029
18030 opcode_t *
18031 Parrot_islt_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
18032 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18033 IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3).u.string) < 0;
18034
18035 return (opcode_t *)cur_opcode + 4;}
18036
18037 opcode_t *
18038 Parrot_islt_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18039 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18040 IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) < 0);
18041
18042 return (opcode_t *)cur_opcode + 4;}
18043
18044 opcode_t *
18045 Parrot_iseq_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18046 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18047 IREG(1) = (IREG(2) == IREG(3)) ? 1 : 0;
18048
18049 return (opcode_t *)cur_opcode + 4;}
18050
18051 opcode_t *
18052 Parrot_iseq_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18053 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18054 IREG(1) = (cur_opcode[2] == IREG(3)) ? 1 : 0;
18055
18056 return (opcode_t *)cur_opcode + 4;}
18057
18058 opcode_t *
18059 Parrot_iseq_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18060 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18061 IREG(1) = (IREG(2) == cur_opcode[3]) ? 1 : 0;
18062
18063 return (opcode_t *)cur_opcode + 4;}
18064
18065 opcode_t *
18066 Parrot_iseq_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18067 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18068 IREG(1) = NREG(2) == NREG(3);
18069
18070 return (opcode_t *)cur_opcode + 4;}
18071
18072 opcode_t *
18073 Parrot_iseq_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
18074 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18075 IREG(1) = CONST(2).u.number == NREG(3);
18076
18077 return (opcode_t *)cur_opcode + 4;}
18078
18079 opcode_t *
18080 Parrot_iseq_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18081 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18082 IREG(1) = NREG(2) == CONST(3).u.number;
18083
18084 return (opcode_t *)cur_opcode + 4;}
18085
18086 opcode_t *
18087 Parrot_iseq_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
18088 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18089 IREG(1) = (Parrot_str_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
18090
18091 return (opcode_t *)cur_opcode + 4;}
18092
18093 opcode_t *
18094 Parrot_iseq_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
18095 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18096 IREG(1) = (Parrot_str_equal(interp, CONST(2).u.string, SREG(3)) ? 1 : 0);
18097
18098 return (opcode_t *)cur_opcode + 4;}
18099
18100 opcode_t *
18101 Parrot_iseq_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
18102 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18103 IREG(1) = (Parrot_str_equal(interp, SREG(2), CONST(3).u.string) ? 1 : 0);
18104
18105 return (opcode_t *)cur_opcode + 4;}
18106
18107 opcode_t *
18108 Parrot_iseq_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18109 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18110 if (&PREG(2) == &PREG(3))
18111 IREG(1) = 1;
18112 else
18113 IREG(1) = VTABLE_is_equal(interp, PREG(2), PREG(3));
18114
18115 return (opcode_t *)cur_opcode + 4;}
18116
18117 opcode_t *
18118 Parrot_isne_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18119 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18120 IREG(1) = (IREG(2) == IREG(3)) ? 0 : 1;
18121
18122 return (opcode_t *)cur_opcode + 4;}
18123
18124 opcode_t *
18125 Parrot_isne_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18126 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18127 IREG(1) = (cur_opcode[2] == IREG(3)) ? 0 : 1;
18128
18129 return (opcode_t *)cur_opcode + 4;}
18130
18131 opcode_t *
18132 Parrot_isne_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18133 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18134 IREG(1) = (IREG(2) == cur_opcode[3]) ? 0 : 1;
18135
18136 return (opcode_t *)cur_opcode + 4;}
18137
18138 opcode_t *
18139 Parrot_isne_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18140 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18141 IREG(1) = NREG(2) != NREG(3);
18142
18143 return (opcode_t *)cur_opcode + 4;}
18144
18145 opcode_t *
18146 Parrot_isne_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
18147 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18148 IREG(1) = CONST(2).u.number != NREG(3);
18149
18150 return (opcode_t *)cur_opcode + 4;}
18151
18152 opcode_t *
18153 Parrot_isne_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18154 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18155 IREG(1) = NREG(2) != CONST(3).u.number;
18156
18157 return (opcode_t *)cur_opcode + 4;}
18158
18159 opcode_t *
18160 Parrot_isne_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
18161 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18162 IREG(1) = (Parrot_str_not_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
18163
18164 return (opcode_t *)cur_opcode + 4;}
18165
18166 opcode_t *
18167 Parrot_isne_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
18168 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18169 IREG(1) = (Parrot_str_not_equal(interp, CONST(2).u.string, SREG(3)) ? 1 : 0);
18170
18171 return (opcode_t *)cur_opcode + 4;}
18172
18173 opcode_t *
18174 Parrot_isne_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
18175 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18176 IREG(1) = (Parrot_str_not_equal(interp, SREG(2), CONST(3).u.string) ? 1 : 0);
18177
18178 return (opcode_t *)cur_opcode + 4;}
18179
18180 opcode_t *
18181 Parrot_isne_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18182 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18183 if (&PREG(2) == &PREG(3))
18184 IREG(1) = 0;
18185 else
18186 IREG(1) = !VTABLE_is_equal(interp, PREG(2), PREG(3));
18187
18188 return (opcode_t *)cur_opcode + 4;}
18189
18190 opcode_t *
18191 Parrot_and_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18192 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18193 IREG(1) = IREG(2) ? IREG(3) : IREG(2);
18194
18195 return (opcode_t *)cur_opcode + 4;}
18196
18197 opcode_t *
18198 Parrot_and_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18199 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18200 IREG(1) = cur_opcode[2] ? IREG(3) : cur_opcode[2];
18201
18202 return (opcode_t *)cur_opcode + 4;}
18203
18204 opcode_t *
18205 Parrot_and_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18206 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18207 IREG(1) = IREG(2) ? cur_opcode[3] : IREG(2);
18208
18209 return (opcode_t *)cur_opcode + 4;}
18210
18211 opcode_t *
18212 Parrot_and_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18213 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18214 PREG(1) = VTABLE_get_bool(interp, PREG(2)) ? PREG(3) : PREG(2);
18215
18216 return (opcode_t *)cur_opcode + 4;}
18217
18218 opcode_t *
18219 Parrot_not_i(opcode_t *cur_opcode, PARROT_INTERP) {
18220 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18221 IREG(1) = ! IREG(1);
18222
18223 return (opcode_t *)cur_opcode + 2;}
18224
18225 opcode_t *
18226 Parrot_not_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18227 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18228 IREG(1) = ! IREG(2);
18229
18230 return (opcode_t *)cur_opcode + 3;}
18231
18232 opcode_t *
18233 Parrot_not_p(opcode_t *cur_opcode, PARROT_INTERP) {
18234 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18235 VTABLE_set_bool(interp, PREG(1), !VTABLE_get_bool(interp, PREG(1)));
18236
18237 return (opcode_t *)cur_opcode + 2;}
18238
18239 opcode_t *
18240 Parrot_not_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18241 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18242 const INTVAL a = ! VTABLE_get_bool(interp, PREG(2));
18243 if (PMC_IS_NULL(PREG(1)))
18244 PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
18245 VTABLE_set_bool(interp, PREG(1), a);
18246
18247 return (opcode_t *)cur_opcode + 3;}
18248
18249 opcode_t *
18250 Parrot_or_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18251 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18252 IREG(1) = IREG(2) ? IREG(2) : IREG(3);
18253
18254 return (opcode_t *)cur_opcode + 4;}
18255
18256 opcode_t *
18257 Parrot_or_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18258 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18259 IREG(1) = cur_opcode[2] ? cur_opcode[2] : IREG(3);
18260
18261 return (opcode_t *)cur_opcode + 4;}
18262
18263 opcode_t *
18264 Parrot_or_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18265 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18266 IREG(1) = IREG(2) ? IREG(2) : cur_opcode[3];
18267
18268 return (opcode_t *)cur_opcode + 4;}
18269
18270 opcode_t *
18271 Parrot_or_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18272 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18273 PREG(1) = VTABLE_get_bool(interp, PREG(2)) ? PREG(2) : PREG(3);
18274
18275 return (opcode_t *)cur_opcode + 4;}
18276
18277 opcode_t *
18278 Parrot_xor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18279 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18280 IREG(1) = (IREG(2) && ! IREG(3)) ? IREG(2) : (IREG(3) && ! IREG(2)) ? IREG(3) : 0;
18281
18282 return (opcode_t *)cur_opcode + 4;}
18283
18284 opcode_t *
18285 Parrot_xor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18286 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18287 IREG(1) = (cur_opcode[2] && ! IREG(3)) ? cur_opcode[2] : (IREG(3) && ! cur_opcode[2]) ? IREG(3) : 0;
18288
18289 return (opcode_t *)cur_opcode + 4;}
18290
18291 opcode_t *
18292 Parrot_xor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18293 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18294 IREG(1) = (IREG(2) && ! cur_opcode[3]) ? IREG(2) : (cur_opcode[3] && ! IREG(2)) ? cur_opcode[3] : 0;
18295
18296 return (opcode_t *)cur_opcode + 4;}
18297
18298 opcode_t *
18299 Parrot_xor_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18300 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18301 const INTVAL a = VTABLE_get_bool(interp, PREG(2));
18302 const INTVAL b = VTABLE_get_bool(interp, PREG(3));
18303 if (a && ! b)
18304 PREG(1) = PREG(2);
18305 else
18306 if (b && ! a)
18307 PREG(1) = PREG(3) ;
18308 else{
18309 PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
18310 VTABLE_set_bool(interp, PREG(1), 0);
18311 }
18312
18313 return (opcode_t *)cur_opcode + 4;}
18314
18315 opcode_t *
18316 Parrot_print_i(opcode_t *cur_opcode, PARROT_INTERP) {
18317 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18318 Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)IREG(1));
18319
18320 return (opcode_t *)cur_opcode + 2;}
18321
18322 opcode_t *
18323 Parrot_print_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18324 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18325 Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)cur_opcode[1]);
18326
18327 return (opcode_t *)cur_opcode + 2;}
18328
18329 opcode_t *
18330 Parrot_print_n(opcode_t *cur_opcode, PARROT_INTERP) {
18331 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18332 #ifdef PARROT_HAS_NEGATIVE_ZERO
18333 Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
18334 #else
18335 /* Workaround for older msvcrt and openbsd. TT #313 */
18336 if (Parrot_is_nzero(NREG(1))) {
18337 Parrot_io_printf(interp, "-0");
18338 }
18339 else {
18340 Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
18341 }
18342 #endif
18343
18344 return (opcode_t *)cur_opcode + 2;}
18345
18346 opcode_t *
18347 Parrot_print_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18348 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18349 #ifdef PARROT_HAS_NEGATIVE_ZERO
18350 Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1).u.number);
18351 #else
18352 /* Workaround for older msvcrt and openbsd. TT #313 */
18353 if (Parrot_is_nzero(CONST(1).u.number)) {
18354 Parrot_io_printf(interp, "-0");
18355 }
18356 else {
18357 Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1).u.number);
18358 }
18359 #endif
18360
18361 return (opcode_t *)cur_opcode + 2;}
18362
18363 opcode_t *
18364 Parrot_print_s(opcode_t *cur_opcode, PARROT_INTERP) {
18365 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18366 STRING * const s = SREG(1);
18367 if (s && Parrot_str_byte_length(interp, s))
18368 Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
18369
18370 return (opcode_t *)cur_opcode + 2;}
18371
18372 opcode_t *
18373 Parrot_print_sc(opcode_t *cur_opcode, PARROT_INTERP) {
18374 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18375 STRING * const s = CONST(1).u.string;
18376 if (s && Parrot_str_byte_length(interp, s))
18377 Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
18378
18379 return (opcode_t *)cur_opcode + 2;}
18380
18381 opcode_t *
18382 Parrot_print_p(opcode_t *cur_opcode, PARROT_INTERP) {
18383 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18384 PMC * const p = PREG(1);
18385 STRING * const s = (VTABLE_get_string(interp, p));
18386 if (s)
18387 Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
18388
18389 return (opcode_t *)cur_opcode + 2;}
18390
18391 opcode_t *
18392 Parrot_say_i(opcode_t *cur_opcode, PARROT_INTERP) {
18393 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18394 Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)IREG(1));
18395
18396 return (opcode_t *)cur_opcode + 2;}
18397
18398 opcode_t *
18399 Parrot_say_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18400 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18401 Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)cur_opcode[1]);
18402
18403 return (opcode_t *)cur_opcode + 2;}
18404
18405 opcode_t *
18406 Parrot_say_n(opcode_t *cur_opcode, PARROT_INTERP) {
18407 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18408 #ifdef PARROT_HAS_NEGATIVE_ZERO
18409 Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
18410 #else
18411 /* Workaround for older msvcrt and openbsd. TT #313 */
18412 if (Parrot_is_nzero(NREG(1))) {
18413 Parrot_io_printf(interp, "-0\n");
18414 }
18415 else {
18416 Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
18417 }
18418 #endif
18419
18420 return (opcode_t *)cur_opcode + 2;}
18421
18422 opcode_t *
18423 Parrot_say_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18424 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18425 #ifdef PARROT_HAS_NEGATIVE_ZERO
18426 Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1).u.number);
18427 #else
18428 /* Workaround for older msvcrt and openbsd. TT #313 */
18429 if (Parrot_is_nzero(CONST(1).u.number)) {
18430 Parrot_io_printf(interp, "-0\n");
18431 }
18432 else {
18433 Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1).u.number);
18434 }
18435 #endif
18436
18437 return (opcode_t *)cur_opcode + 2;}
18438
18439 opcode_t *
18440 Parrot_say_s(opcode_t *cur_opcode, PARROT_INTERP) {
18441 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18442 STRING * const s = SREG(1);
18443 if (s && Parrot_str_byte_length(interp, s))
18444 Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
18445 Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
18446
18447 return (opcode_t *)cur_opcode + 2;}
18448
18449 opcode_t *
18450 Parrot_say_sc(opcode_t *cur_opcode, PARROT_INTERP) {
18451 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18452 STRING * const s = CONST(1).u.string;
18453 if (s && Parrot_str_byte_length(interp, s))
18454 Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
18455 Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
18456
18457 return (opcode_t *)cur_opcode + 2;}
18458
18459 opcode_t *
18460 Parrot_say_p(opcode_t *cur_opcode, PARROT_INTERP) {
18461 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18462 PMC * const p = PREG(1);
18463
18464 if (PMC_IS_NULL(p)) {
18465 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 2,
18466 EXCEPTION_UNEXPECTED_NULL,
18467 "Null PMC in say");return (opcode_t *)handler;
18468 }
18469 else {
18470 STRING * const s = VTABLE_get_string(interp, p);
18471 if (s)
18472 Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
18473 Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
18474 }
18475
18476 return (opcode_t *)cur_opcode + 2;}
18477
18478 opcode_t *
18479 Parrot_print_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
18480 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18481 if (PREG(1)) {
18482 STRING * const s = Parrot_str_from_int(interp, IREG(2));
18483 Parrot_io_putps(interp, PREG(1), s);
18484 }
18485
18486 return (opcode_t *)cur_opcode + 3;}
18487
18488 opcode_t *
18489 Parrot_print_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18490 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18491 if (PREG(1)) {
18492 STRING * const s = Parrot_str_from_int(interp, cur_opcode[2]);
18493 Parrot_io_putps(interp, PREG(1), s);
18494 }
18495
18496 return (opcode_t *)cur_opcode + 3;}
18497
18498 opcode_t *
18499 Parrot_print_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
18500 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18501 if (PREG(1)) {
18502 STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, NREG(2));
18503 Parrot_io_putps(interp, PREG(1), s);
18504 }
18505
18506 return (opcode_t *)cur_opcode + 3;}
18507
18508 opcode_t *
18509 Parrot_print_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18510 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18511 if (PREG(1)) {
18512 STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, CONST(2).u.number);
18513 Parrot_io_putps(interp, PREG(1), s);
18514 }
18515
18516 return (opcode_t *)cur_opcode + 3;}
18517
18518 opcode_t *
18519 Parrot_print_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
18520 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18521 if (SREG(2) && PREG(1)) {
18522 Parrot_io_putps(interp, PREG(1), SREG(2));
18523 }
18524
18525 return (opcode_t *)cur_opcode + 3;}
18526
18527 opcode_t *
18528 Parrot_print_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
18529 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18530 if (CONST(2).u.string && PREG(1)) {
18531 Parrot_io_putps(interp, PREG(1), CONST(2).u.string);
18532 }
18533
18534 return (opcode_t *)cur_opcode + 3;}
18535
18536 opcode_t *
18537 Parrot_print_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18538 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18539 if (PREG(2) && PREG(1)) {
18540 STRING * const s = VTABLE_get_string(interp, PREG(2));
18541 Parrot_io_putps(interp, PREG(1), s);
18542 }
18543
18544 return (opcode_t *)cur_opcode + 3;}
18545
18546 opcode_t *
18547 Parrot_getstdin_p(opcode_t *cur_opcode, PARROT_INTERP) {
18548 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18549 PREG(1) = _PIO_STDIN(interp);
18550
18551 return (opcode_t *)cur_opcode + 2;}
18552
18553 opcode_t *
18554 Parrot_getstdout_p(opcode_t *cur_opcode, PARROT_INTERP) {
18555 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18556 PREG(1) = _PIO_STDOUT(interp);
18557
18558 return (opcode_t *)cur_opcode + 2;}
18559
18560 opcode_t *
18561 Parrot_getstderr_p(opcode_t *cur_opcode, PARROT_INTERP) {
18562 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18563 PREG(1) = _PIO_STDERR(interp);
18564
18565 return (opcode_t *)cur_opcode + 2;}
18566
18567 opcode_t *
18568 Parrot_abs_i(opcode_t *cur_opcode, PARROT_INTERP) {
18569 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18570 IREG(1) = abs(IREG(1));
18571
18572 return (opcode_t *)cur_opcode + 2;}
18573
18574 opcode_t *
18575 Parrot_abs_n(opcode_t *cur_opcode, PARROT_INTERP) {
18576 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18577 NREG(1) = fabs(NREG(1));
18578
18579 return (opcode_t *)cur_opcode + 2;}
18580
18581 opcode_t *
18582 Parrot_abs_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18583 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18584 IREG(1) = abs(IREG(2));
18585
18586 return (opcode_t *)cur_opcode + 3;}
18587
18588 opcode_t *
18589 Parrot_abs_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18590 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18591 NREG(1) = fabs(NREG(2));
18592
18593 return (opcode_t *)cur_opcode + 3;}
18594
18595 opcode_t *
18596 Parrot_abs_p(opcode_t *cur_opcode, PARROT_INTERP) {
18597 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18598 VTABLE_i_absolute(interp, PREG(1));
18599
18600 return (opcode_t *)cur_opcode + 2;}
18601
18602 opcode_t *
18603 Parrot_abs_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18604 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18605 PREG(1) = VTABLE_absolute(interp, PREG(2), PREG(1));
18606
18607 return (opcode_t *)cur_opcode + 3;}
18608
18609 opcode_t *
18610 Parrot_add_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18611 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18612 IREG(1) += IREG(2);
18613
18614 return (opcode_t *)cur_opcode + 3;}
18615
18616 opcode_t *
18617 Parrot_add_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18618 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18619 IREG(1) += cur_opcode[2];
18620
18621 return (opcode_t *)cur_opcode + 3;}
18622
18623 opcode_t *
18624 Parrot_add_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18625 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18626 NREG(1) += NREG(2);
18627
18628 return (opcode_t *)cur_opcode + 3;}
18629
18630 opcode_t *
18631 Parrot_add_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18632 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18633 NREG(1) += CONST(2).u.number;
18634
18635 return (opcode_t *)cur_opcode + 3;}
18636
18637 opcode_t *
18638 Parrot_add_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18639 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18640 VTABLE_i_add(interp, PREG(1), PREG(2));
18641
18642 return (opcode_t *)cur_opcode + 3;}
18643
18644 opcode_t *
18645 Parrot_add_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
18646 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18647 VTABLE_i_add_int(interp, PREG(1), IREG(2));
18648
18649 return (opcode_t *)cur_opcode + 3;}
18650
18651 opcode_t *
18652 Parrot_add_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18653 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18654 VTABLE_i_add_int(interp, PREG(1), cur_opcode[2]);
18655
18656 return (opcode_t *)cur_opcode + 3;}
18657
18658 opcode_t *
18659 Parrot_add_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
18660 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18661 VTABLE_i_add_float(interp, PREG(1), NREG(2));
18662
18663 return (opcode_t *)cur_opcode + 3;}
18664
18665 opcode_t *
18666 Parrot_add_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18667 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18668 VTABLE_i_add_float(interp, PREG(1), CONST(2).u.number);
18669
18670 return (opcode_t *)cur_opcode + 3;}
18671
18672 opcode_t *
18673 Parrot_add_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18674 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18675 IREG(1) = IREG(2) + IREG(3);
18676
18677 return (opcode_t *)cur_opcode + 4;}
18678
18679 opcode_t *
18680 Parrot_add_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18681 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18682 IREG(1) = cur_opcode[2] + IREG(3);
18683
18684 return (opcode_t *)cur_opcode + 4;}
18685
18686 opcode_t *
18687 Parrot_add_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18688 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18689 IREG(1) = IREG(2) + cur_opcode[3];
18690
18691 return (opcode_t *)cur_opcode + 4;}
18692
18693 opcode_t *
18694 Parrot_add_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18695 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18696 NREG(1) = NREG(2) + NREG(3);
18697
18698 return (opcode_t *)cur_opcode + 4;}
18699
18700 opcode_t *
18701 Parrot_add_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
18702 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18703 NREG(1) = CONST(2).u.number + NREG(3);
18704
18705 return (opcode_t *)cur_opcode + 4;}
18706
18707 opcode_t *
18708 Parrot_add_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18709 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18710 NREG(1) = NREG(2) + CONST(3).u.number;
18711
18712 return (opcode_t *)cur_opcode + 4;}
18713
18714 opcode_t *
18715 Parrot_add_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18716 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18717 PREG(1) = VTABLE_add(interp, PREG(2), PREG(3), PREG(1));
18718
18719 return (opcode_t *)cur_opcode + 4;}
18720
18721 opcode_t *
18722 Parrot_add_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
18723 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18724 PREG(1) = VTABLE_add_int(interp, PREG(2), IREG(3), PREG(1));
18725
18726 return (opcode_t *)cur_opcode + 4;}
18727
18728 opcode_t *
18729 Parrot_add_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18730 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18731 PREG(1) = VTABLE_add_int(interp, PREG(2), cur_opcode[3], PREG(1));
18732
18733 return (opcode_t *)cur_opcode + 4;}
18734
18735 opcode_t *
18736 Parrot_add_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
18737 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18738 PREG(1) = VTABLE_add_float(interp, PREG(2), NREG(3), PREG(1));
18739
18740 return (opcode_t *)cur_opcode + 4;}
18741
18742 opcode_t *
18743 Parrot_add_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18744 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18745 PREG(1) = VTABLE_add_float(interp, PREG(2), CONST(3).u.number, PREG(1));
18746
18747 return (opcode_t *)cur_opcode + 4;}
18748
18749 opcode_t *
18750 Parrot_dec_i(opcode_t *cur_opcode, PARROT_INTERP) {
18751 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18752 IREG(1)--;
18753
18754 return (opcode_t *)cur_opcode + 2;}
18755
18756 opcode_t *
18757 Parrot_dec_n(opcode_t *cur_opcode, PARROT_INTERP) {
18758 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18759 NREG(1)--;
18760
18761 return (opcode_t *)cur_opcode + 2;}
18762
18763 opcode_t *
18764 Parrot_dec_p(opcode_t *cur_opcode, PARROT_INTERP) {
18765 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18766 VTABLE_decrement(interp, PREG(1));
18767
18768 return (opcode_t *)cur_opcode + 2;}
18769
18770 opcode_t *
18771 Parrot_div_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18772 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18773 INTVAL den = IREG(2);
18774 if (den == 0) {
18775 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
18776 EXCEPTION_DIV_BY_ZERO,
18777 "Divide by zero");return (opcode_t *)handler;
18778 }
18779 IREG(1) /= den;
18780
18781 return (opcode_t *)cur_opcode + 3;}
18782
18783 opcode_t *
18784 Parrot_div_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18785 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18786 INTVAL den = cur_opcode[2];
18787 if (den == 0) {
18788 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
18789 EXCEPTION_DIV_BY_ZERO,
18790 "Divide by zero");return (opcode_t *)handler;
18791 }
18792 IREG(1) /= den;
18793
18794 return (opcode_t *)cur_opcode + 3;}
18795
18796 opcode_t *
18797 Parrot_div_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18798 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18799 FLOATVAL den = NREG(2);
18800 if (FLOAT_IS_ZERO(den)) {
18801 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
18802 EXCEPTION_DIV_BY_ZERO,
18803 "Divide by zero");return (opcode_t *)handler;
18804 }
18805 NREG(1) /= den;
18806
18807 return (opcode_t *)cur_opcode + 3;}
18808
18809 opcode_t *
18810 Parrot_div_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18811 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18812 FLOATVAL den = CONST(2).u.number;
18813 if (FLOAT_IS_ZERO(den)) {
18814 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
18815 EXCEPTION_DIV_BY_ZERO,
18816 "Divide by zero");return (opcode_t *)handler;
18817 }
18818 NREG(1) /= den;
18819
18820 return (opcode_t *)cur_opcode + 3;}
18821
18822 opcode_t *
18823 Parrot_div_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18824 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18825 VTABLE_i_divide(interp, PREG(1), PREG(2));
18826
18827 return (opcode_t *)cur_opcode + 3;}
18828
18829 opcode_t *
18830 Parrot_div_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
18831 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18832 VTABLE_i_divide_int(interp, PREG(1), IREG(2));
18833
18834 return (opcode_t *)cur_opcode + 3;}
18835
18836 opcode_t *
18837 Parrot_div_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18838 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18839 VTABLE_i_divide_int(interp, PREG(1), cur_opcode[2]);
18840
18841 return (opcode_t *)cur_opcode + 3;}
18842
18843 opcode_t *
18844 Parrot_div_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
18845 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18846 VTABLE_i_divide_float(interp, PREG(1), NREG(2));
18847
18848 return (opcode_t *)cur_opcode + 3;}
18849
18850 opcode_t *
18851 Parrot_div_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18852 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18853 VTABLE_i_divide_float(interp, PREG(1), CONST(2).u.number);
18854
18855 return (opcode_t *)cur_opcode + 3;}
18856
18857 opcode_t *
18858 Parrot_div_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18859 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18860 INTVAL den = IREG(3);
18861 if (den == 0) {
18862 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18863 EXCEPTION_DIV_BY_ZERO,
18864 "Divide by zero");return (opcode_t *)handler;
18865 }
18866 IREG(1) = IREG(2) / den;
18867
18868 return (opcode_t *)cur_opcode + 4;}
18869
18870 opcode_t *
18871 Parrot_div_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
18872 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18873 INTVAL den = IREG(3);
18874 if (den == 0) {
18875 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18876 EXCEPTION_DIV_BY_ZERO,
18877 "Divide by zero");return (opcode_t *)handler;
18878 }
18879 IREG(1) = cur_opcode[2] / den;
18880
18881 return (opcode_t *)cur_opcode + 4;}
18882
18883 opcode_t *
18884 Parrot_div_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18885 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18886 INTVAL den = cur_opcode[3];
18887 if (den == 0) {
18888 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18889 EXCEPTION_DIV_BY_ZERO,
18890 "Divide by zero");return (opcode_t *)handler;
18891 }
18892 IREG(1) = IREG(2) / den;
18893
18894 return (opcode_t *)cur_opcode + 4;}
18895
18896 opcode_t *
18897 Parrot_div_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18898 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18899 INTVAL den = cur_opcode[3];
18900 if (den == 0) {
18901 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18902 EXCEPTION_DIV_BY_ZERO,
18903 "Divide by zero");return (opcode_t *)handler;
18904 }
18905 IREG(1) = cur_opcode[2] / den;
18906
18907 return (opcode_t *)cur_opcode + 4;}
18908
18909 opcode_t *
18910 Parrot_div_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
18911 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18912 FLOATVAL den = NREG(3);
18913 if (FLOAT_IS_ZERO(den)) {
18914 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18915 EXCEPTION_DIV_BY_ZERO,
18916 "Divide by zero");return (opcode_t *)handler;
18917 }
18918 NREG(1) = NREG(2) / den;
18919
18920 return (opcode_t *)cur_opcode + 4;}
18921
18922 opcode_t *
18923 Parrot_div_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
18924 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18925 FLOATVAL den = NREG(3);
18926 if (FLOAT_IS_ZERO(den)) {
18927 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18928 EXCEPTION_DIV_BY_ZERO,
18929 "Divide by zero");return (opcode_t *)handler;
18930 }
18931 NREG(1) = CONST(2).u.number / den;
18932
18933 return (opcode_t *)cur_opcode + 4;}
18934
18935 opcode_t *
18936 Parrot_div_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18937 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18938 FLOATVAL den = CONST(3).u.number;
18939 if (FLOAT_IS_ZERO(den)) {
18940 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18941 EXCEPTION_DIV_BY_ZERO,
18942 "Divide by zero");return (opcode_t *)handler;
18943 }
18944 NREG(1) = NREG(2) / den;
18945
18946 return (opcode_t *)cur_opcode + 4;}
18947
18948 opcode_t *
18949 Parrot_div_n_nc_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18950 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18951 FLOATVAL den = CONST(3).u.number;
18952 if (FLOAT_IS_ZERO(den)) {
18953 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
18954 EXCEPTION_DIV_BY_ZERO,
18955 "Divide by zero");return (opcode_t *)handler;
18956 }
18957 NREG(1) = CONST(2).u.number / den;
18958
18959 return (opcode_t *)cur_opcode + 4;}
18960
18961 opcode_t *
18962 Parrot_div_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
18963 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18964 PREG(1) = VTABLE_divide(interp, PREG(2), PREG(3), PREG(1));
18965
18966 return (opcode_t *)cur_opcode + 4;}
18967
18968 opcode_t *
18969 Parrot_div_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
18970 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18971 PREG(1) = VTABLE_divide_int(interp, PREG(2), IREG(3), PREG(1));
18972
18973 return (opcode_t *)cur_opcode + 4;}
18974
18975 opcode_t *
18976 Parrot_div_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
18977 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18978 PREG(1) = VTABLE_divide_int(interp, PREG(2), cur_opcode[3], PREG(1));
18979
18980 return (opcode_t *)cur_opcode + 4;}
18981
18982 opcode_t *
18983 Parrot_div_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
18984 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18985 PREG(1) = VTABLE_divide_float(interp, PREG(2), NREG(3), PREG(1));
18986
18987 return (opcode_t *)cur_opcode + 4;}
18988
18989 opcode_t *
18990 Parrot_div_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
18991 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18992 PREG(1) = VTABLE_divide_float(interp, PREG(2), CONST(3).u.number, PREG(1));
18993
18994 return (opcode_t *)cur_opcode + 4;}
18995
18996 opcode_t *
18997 Parrot_fdiv_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
18998 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
18999 INTVAL den = IREG(2);
19000 FLOATVAL f;
19001
19002 if (den == 0) {
19003 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
19004 EXCEPTION_DIV_BY_ZERO,
19005 "Divide by zero");return (opcode_t *)handler;
19006 }
19007
19008 f = floor(((FLOATVAL)IREG(1)) / den);
19009 IREG(1) = (INTVAL)f;
19010
19011 return (opcode_t *)cur_opcode + 3;}
19012
19013 opcode_t *
19014 Parrot_fdiv_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19015 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19016 INTVAL den = cur_opcode[2];
19017 FLOATVAL f;
19018
19019 if (den == 0) {
19020 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
19021 EXCEPTION_DIV_BY_ZERO,
19022 "Divide by zero");return (opcode_t *)handler;
19023 }
19024
19025 f = floor(((FLOATVAL)IREG(1)) / den);
19026 IREG(1) = (INTVAL)f;
19027
19028 return (opcode_t *)cur_opcode + 3;}
19029
19030 opcode_t *
19031 Parrot_fdiv_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19032 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19033 FLOATVAL den = NREG(2);
19034 if (FLOAT_IS_ZERO(den)) {
19035 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
19036 EXCEPTION_DIV_BY_ZERO,
19037 "Divide by zero");return (opcode_t *)handler;
19038 }
19039 NREG(1) = floor(NREG(1) / den);
19040
19041 return (opcode_t *)cur_opcode + 3;}
19042
19043 opcode_t *
19044 Parrot_fdiv_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19045 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19046 FLOATVAL den = CONST(2).u.number;
19047 if (FLOAT_IS_ZERO(den)) {
19048 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
19049 EXCEPTION_DIV_BY_ZERO,
19050 "Divide by zero");return (opcode_t *)handler;
19051 }
19052 NREG(1) = floor(NREG(1) / den);
19053
19054 return (opcode_t *)cur_opcode + 3;}
19055
19056 opcode_t *
19057 Parrot_fdiv_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19058 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19059 VTABLE_i_floor_divide(interp, PREG(1), PREG(2));
19060
19061 return (opcode_t *)cur_opcode + 3;}
19062
19063 opcode_t *
19064 Parrot_fdiv_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19065 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19066 VTABLE_i_floor_divide_int(interp, PREG(1), IREG(2));
19067
19068 return (opcode_t *)cur_opcode + 3;}
19069
19070 opcode_t *
19071 Parrot_fdiv_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19072 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19073 VTABLE_i_floor_divide_int(interp, PREG(1), cur_opcode[2]);
19074
19075 return (opcode_t *)cur_opcode + 3;}
19076
19077 opcode_t *
19078 Parrot_fdiv_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19079 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19080 VTABLE_i_floor_divide_float(interp, PREG(1), NREG(2));
19081
19082 return (opcode_t *)cur_opcode + 3;}
19083
19084 opcode_t *
19085 Parrot_fdiv_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19086 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19087 VTABLE_i_floor_divide_float(interp, PREG(1), CONST(2).u.number);
19088
19089 return (opcode_t *)cur_opcode + 3;}
19090
19091 opcode_t *
19092 Parrot_fdiv_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19093 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19094 INTVAL den = IREG(3);
19095 FLOATVAL f;
19096
19097 if (den == 0) {
19098 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
19099 EXCEPTION_DIV_BY_ZERO,
19100 "Divide by zero");return (opcode_t *)handler;
19101 }
19102
19103 f = floor((FLOATVAL)IREG(2) / den);
19104 IREG(1) = (INTVAL)f;
19105
19106 return (opcode_t *)cur_opcode + 4;}
19107
19108 opcode_t *
19109 Parrot_fdiv_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
19110 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19111 INTVAL den = IREG(3);
19112 FLOATVAL f;
19113
19114 if (den == 0) {
19115 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
19116 EXCEPTION_DIV_BY_ZERO,
19117 "Divide by zero");return (opcode_t *)handler;
19118 }
19119
19120 f = floor((FLOATVAL)cur_opcode[2] / den);
19121 IREG(1) = (INTVAL)f;
19122
19123 return (opcode_t *)cur_opcode + 4;}
19124
19125 opcode_t *
19126 Parrot_fdiv_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19127 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19128 INTVAL den = cur_opcode[3];
19129 FLOATVAL f;
19130
19131 if (den == 0) {
19132 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
19133 EXCEPTION_DIV_BY_ZERO,
19134 "Divide by zero");return (opcode_t *)handler;
19135 }
19136
19137 f = floor((FLOATVAL)IREG(2) / den);
19138 IREG(1) = (INTVAL)f;
19139
19140 return (opcode_t *)cur_opcode + 4;}
19141
19142 opcode_t *
19143 Parrot_fdiv_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19144 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19145 FLOATVAL den = NREG(3);
19146 if (FLOAT_IS_ZERO(den)) {
19147 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
19148 EXCEPTION_DIV_BY_ZERO,
19149 "Divide by zero");return (opcode_t *)handler;
19150 }
19151 NREG(1) = floor(NREG(2) / den);
19152
19153 return (opcode_t *)cur_opcode + 4;}
19154
19155 opcode_t *
19156 Parrot_fdiv_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
19157 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19158 FLOATVAL den = NREG(3);
19159 if (FLOAT_IS_ZERO(den)) {
19160 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
19161 EXCEPTION_DIV_BY_ZERO,
19162 "Divide by zero");return (opcode_t *)handler;
19163 }
19164 NREG(1) = floor(CONST(2).u.number / den);
19165
19166 return (opcode_t *)cur_opcode + 4;}
19167
19168 opcode_t *
19169 Parrot_fdiv_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19170 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19171 FLOATVAL den = CONST(3).u.number;
19172 if (FLOAT_IS_ZERO(den)) {
19173 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
19174 EXCEPTION_DIV_BY_ZERO,
19175 "Divide by zero");return (opcode_t *)handler;
19176 }
19177 NREG(1) = floor(NREG(2) / den);
19178
19179 return (opcode_t *)cur_opcode + 4;}
19180
19181 opcode_t *
19182 Parrot_fdiv_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19183 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19184 PREG(1) = VTABLE_floor_divide(interp, PREG(2), PREG(3), PREG(1));
19185
19186 return (opcode_t *)cur_opcode + 4;}
19187
19188 opcode_t *
19189 Parrot_fdiv_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19190 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19191 PREG(1) = VTABLE_floor_divide_int(interp, PREG(2), IREG(3), PREG(1));
19192
19193 return (opcode_t *)cur_opcode + 4;}
19194
19195 opcode_t *
19196 Parrot_fdiv_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19197 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19198 PREG(1) = VTABLE_floor_divide_int(interp, PREG(2), cur_opcode[3], PREG(1));
19199
19200 return (opcode_t *)cur_opcode + 4;}
19201
19202 opcode_t *
19203 Parrot_fdiv_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19204 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19205 PREG(1) = VTABLE_floor_divide_float(interp, PREG(2), NREG(3), PREG(1));
19206
19207 return (opcode_t *)cur_opcode + 4;}
19208
19209 opcode_t *
19210 Parrot_fdiv_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19211 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19212 PREG(1) = VTABLE_floor_divide_float(interp, PREG(2), CONST(3).u.number, PREG(1));
19213
19214 return (opcode_t *)cur_opcode + 4;}
19215
19216 opcode_t *
19217 Parrot_ceil_n(opcode_t *cur_opcode, PARROT_INTERP) {
19218 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19219 NREG(1) = ceil(NREG(1));
19220
19221 return (opcode_t *)cur_opcode + 2;}
19222
19223 opcode_t *
19224 Parrot_ceil_i_n(opcode_t *cur_opcode, PARROT_INTERP) {
19225 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19226 FLOATVAL f = ceil(NREG(2));
19227 IREG(1) = (INTVAL)f;
19228
19229 return (opcode_t *)cur_opcode + 3;}
19230
19231 opcode_t *
19232 Parrot_ceil_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19233 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19234 NREG(1) = ceil(NREG(2));
19235
19236 return (opcode_t *)cur_opcode + 3;}
19237
19238 opcode_t *
19239 Parrot_floor_n(opcode_t *cur_opcode, PARROT_INTERP) {
19240 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19241 NREG(1) = floor(NREG(1));
19242
19243 return (opcode_t *)cur_opcode + 2;}
19244
19245 opcode_t *
19246 Parrot_floor_i_n(opcode_t *cur_opcode, PARROT_INTERP) {
19247 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19248 FLOATVAL f = floor(NREG(2));
19249 IREG(1) = (INTVAL)f;
19250
19251 return (opcode_t *)cur_opcode + 3;}
19252
19253 opcode_t *
19254 Parrot_floor_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19255 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19256 NREG(1) = floor(NREG(2));
19257
19258 return (opcode_t *)cur_opcode + 3;}
19259
19260 opcode_t *
19261 Parrot_inc_i(opcode_t *cur_opcode, PARROT_INTERP) {
19262 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19263 IREG(1)++;
19264
19265 return (opcode_t *)cur_opcode + 2;}
19266
19267 opcode_t *
19268 Parrot_inc_n(opcode_t *cur_opcode, PARROT_INTERP) {
19269 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19270 NREG(1)++;
19271
19272 return (opcode_t *)cur_opcode + 2;}
19273
19274 opcode_t *
19275 Parrot_inc_p(opcode_t *cur_opcode, PARROT_INTERP) {
19276 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19277 VTABLE_increment(interp, PREG(1));
19278
19279 return (opcode_t *)cur_opcode + 2;}
19280
19281 opcode_t *
19282 Parrot_mod_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19283 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19284 IREG(1) = intval_mod(IREG(1), IREG(2));
19285
19286 return (opcode_t *)cur_opcode + 3;}
19287
19288 opcode_t *
19289 Parrot_mod_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19290 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19291 IREG(1) = intval_mod(IREG(1), cur_opcode[2]);
19292
19293 return (opcode_t *)cur_opcode + 3;}
19294
19295 opcode_t *
19296 Parrot_mod_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19297 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19298 NREG(1) = floatval_mod(NREG(1), NREG(2));
19299
19300 return (opcode_t *)cur_opcode + 3;}
19301
19302 opcode_t *
19303 Parrot_mod_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19304 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19305 NREG(1) = floatval_mod(NREG(1), CONST(2).u.number);
19306
19307 return (opcode_t *)cur_opcode + 3;}
19308
19309 opcode_t *
19310 Parrot_mod_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19311 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19312 VTABLE_i_modulus(interp, PREG(1), PREG(2));
19313
19314 return (opcode_t *)cur_opcode + 3;}
19315
19316 opcode_t *
19317 Parrot_mod_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19318 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19319 VTABLE_i_modulus_int(interp, PREG(1), IREG(2));
19320
19321 return (opcode_t *)cur_opcode + 3;}
19322
19323 opcode_t *
19324 Parrot_mod_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19325 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19326 VTABLE_i_modulus_int(interp, PREG(1), cur_opcode[2]);
19327
19328 return (opcode_t *)cur_opcode + 3;}
19329
19330 opcode_t *
19331 Parrot_mod_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19332 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19333 VTABLE_i_modulus_float(interp, PREG(1), NREG(2));
19334
19335 return (opcode_t *)cur_opcode + 3;}
19336
19337 opcode_t *
19338 Parrot_mod_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19339 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19340 VTABLE_i_modulus_float(interp, PREG(1), CONST(2).u.number);
19341
19342 return (opcode_t *)cur_opcode + 3;}
19343
19344 opcode_t *
19345 Parrot_mod_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19346 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19347 IREG(1) = intval_mod(IREG(2), IREG(3));
19348
19349 return (opcode_t *)cur_opcode + 4;}
19350
19351 opcode_t *
19352 Parrot_mod_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
19353 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19354 IREG(1) = intval_mod(cur_opcode[2], IREG(3));
19355
19356 return (opcode_t *)cur_opcode + 4;}
19357
19358 opcode_t *
19359 Parrot_mod_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19360 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19361 IREG(1) = intval_mod(IREG(2), cur_opcode[3]);
19362
19363 return (opcode_t *)cur_opcode + 4;}
19364
19365 opcode_t *
19366 Parrot_mod_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19367 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19368 NREG(1) = floatval_mod(NREG(2), NREG(3));
19369
19370 return (opcode_t *)cur_opcode + 4;}
19371
19372 opcode_t *
19373 Parrot_mod_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
19374 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19375 NREG(1) = floatval_mod(CONST(2).u.number, NREG(3));
19376
19377 return (opcode_t *)cur_opcode + 4;}
19378
19379 opcode_t *
19380 Parrot_mod_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19381 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19382 NREG(1) = floatval_mod(NREG(2), CONST(3).u.number);
19383
19384 return (opcode_t *)cur_opcode + 4;}
19385
19386 opcode_t *
19387 Parrot_mod_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19388 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19389 PREG(1) = VTABLE_modulus(interp, PREG(2), PREG(3), PREG(1));
19390
19391 return (opcode_t *)cur_opcode + 4;}
19392
19393 opcode_t *
19394 Parrot_mod_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19395 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19396 PREG(1) = VTABLE_modulus_int(interp, PREG(2), IREG(3), PREG(1));
19397
19398 return (opcode_t *)cur_opcode + 4;}
19399
19400 opcode_t *
19401 Parrot_mod_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19402 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19403 PREG(1) = VTABLE_modulus_int(interp, PREG(2), cur_opcode[3], PREG(1));
19404
19405 return (opcode_t *)cur_opcode + 4;}
19406
19407 opcode_t *
19408 Parrot_mod_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19409 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19410 PREG(1) = VTABLE_modulus_float(interp, PREG(2), NREG(3), PREG(1));
19411
19412 return (opcode_t *)cur_opcode + 4;}
19413
19414 opcode_t *
19415 Parrot_mod_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19416 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19417 PREG(1) = VTABLE_modulus_float(interp, PREG(2), CONST(3).u.number, PREG(1));
19418
19419 return (opcode_t *)cur_opcode + 4;}
19420
19421 opcode_t *
19422 Parrot_mul_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19423 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19424 IREG(1) *= IREG(2);
19425
19426 return (opcode_t *)cur_opcode + 3;}
19427
19428 opcode_t *
19429 Parrot_mul_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19430 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19431 IREG(1) *= cur_opcode[2];
19432
19433 return (opcode_t *)cur_opcode + 3;}
19434
19435 opcode_t *
19436 Parrot_mul_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19437 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19438 NREG(1) *= NREG(2);
19439
19440 return (opcode_t *)cur_opcode + 3;}
19441
19442 opcode_t *
19443 Parrot_mul_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19444 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19445 NREG(1) *= CONST(2).u.number;
19446
19447 return (opcode_t *)cur_opcode + 3;}
19448
19449 opcode_t *
19450 Parrot_mul_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19451 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19452 VTABLE_i_multiply(interp, PREG(1), PREG(2));
19453
19454 return (opcode_t *)cur_opcode + 3;}
19455
19456 opcode_t *
19457 Parrot_mul_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19458 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19459 VTABLE_i_multiply_int(interp, PREG(1), IREG(2));
19460
19461 return (opcode_t *)cur_opcode + 3;}
19462
19463 opcode_t *
19464 Parrot_mul_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19465 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19466 VTABLE_i_multiply_int(interp, PREG(1), cur_opcode[2]);
19467
19468 return (opcode_t *)cur_opcode + 3;}
19469
19470 opcode_t *
19471 Parrot_mul_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19472 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19473 VTABLE_i_multiply_float(interp, PREG(1), NREG(2));
19474
19475 return (opcode_t *)cur_opcode + 3;}
19476
19477 opcode_t *
19478 Parrot_mul_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19479 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19480 VTABLE_i_multiply_float(interp, PREG(1), CONST(2).u.number);
19481
19482 return (opcode_t *)cur_opcode + 3;}
19483
19484 opcode_t *
19485 Parrot_mul_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19486 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19487 IREG(1) = IREG(2) * IREG(3);
19488
19489 return (opcode_t *)cur_opcode + 4;}
19490
19491 opcode_t *
19492 Parrot_mul_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
19493 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19494 IREG(1) = cur_opcode[2] * IREG(3);
19495
19496 return (opcode_t *)cur_opcode + 4;}
19497
19498 opcode_t *
19499 Parrot_mul_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19500 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19501 IREG(1) = IREG(2) * cur_opcode[3];
19502
19503 return (opcode_t *)cur_opcode + 4;}
19504
19505 opcode_t *
19506 Parrot_mul_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19507 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19508 NREG(1) = NREG(2) * NREG(3);
19509
19510 return (opcode_t *)cur_opcode + 4;}
19511
19512 opcode_t *
19513 Parrot_mul_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
19514 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19515 NREG(1) = CONST(2).u.number * NREG(3);
19516
19517 return (opcode_t *)cur_opcode + 4;}
19518
19519 opcode_t *
19520 Parrot_mul_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19521 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19522 NREG(1) = NREG(2) * CONST(3).u.number;
19523
19524 return (opcode_t *)cur_opcode + 4;}
19525
19526 opcode_t *
19527 Parrot_mul_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19528 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19529 PREG(1) = VTABLE_multiply(interp, PREG(2), PREG(3), PREG(1));
19530
19531 return (opcode_t *)cur_opcode + 4;}
19532
19533 opcode_t *
19534 Parrot_mul_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19535 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19536 PREG(1) = VTABLE_multiply_int(interp, PREG(2), IREG(3), PREG(1));
19537
19538 return (opcode_t *)cur_opcode + 4;}
19539
19540 opcode_t *
19541 Parrot_mul_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19542 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19543 PREG(1) = VTABLE_multiply_int(interp, PREG(2), cur_opcode[3], PREG(1));
19544
19545 return (opcode_t *)cur_opcode + 4;}
19546
19547 opcode_t *
19548 Parrot_mul_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19549 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19550 PREG(1) = VTABLE_multiply_float(interp, PREG(2), NREG(3), PREG(1));
19551
19552 return (opcode_t *)cur_opcode + 4;}
19553
19554 opcode_t *
19555 Parrot_mul_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19556 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19557 PREG(1) = VTABLE_multiply_float(interp, PREG(2), CONST(3).u.number, PREG(1));
19558
19559 return (opcode_t *)cur_opcode + 4;}
19560
19561 opcode_t *
19562 Parrot_neg_i(opcode_t *cur_opcode, PARROT_INTERP) {
19563 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19564 IREG(1) = - IREG(1);
19565
19566 return (opcode_t *)cur_opcode + 2;}
19567
19568 opcode_t *
19569 Parrot_neg_n(opcode_t *cur_opcode, PARROT_INTERP) {
19570 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19571 NREG(1) = - NREG(1);
19572
19573 return (opcode_t *)cur_opcode + 2;}
19574
19575 opcode_t *
19576 Parrot_neg_p(opcode_t *cur_opcode, PARROT_INTERP) {
19577 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19578 VTABLE_i_neg(interp, PREG(1));
19579
19580 return (opcode_t *)cur_opcode + 2;}
19581
19582 opcode_t *
19583 Parrot_neg_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19584 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19585 IREG(1) = - IREG(2);
19586
19587 return (opcode_t *)cur_opcode + 3;}
19588
19589 opcode_t *
19590 Parrot_neg_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19591 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19592 NREG(1) = - NREG(2);
19593
19594 return (opcode_t *)cur_opcode + 3;}
19595
19596 opcode_t *
19597 Parrot_neg_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19598 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19599 PREG(1) = VTABLE_neg(interp, PREG(2), PREG(1));
19600
19601 return (opcode_t *)cur_opcode + 3;}
19602
19603 opcode_t *
19604 Parrot_sub_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19605 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19606 IREG(1) -= IREG(2);
19607
19608 return (opcode_t *)cur_opcode + 3;}
19609
19610 opcode_t *
19611 Parrot_sub_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19612 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19613 IREG(1) -= cur_opcode[2];
19614
19615 return (opcode_t *)cur_opcode + 3;}
19616
19617 opcode_t *
19618 Parrot_sub_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19619 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19620 NREG(1) -= NREG(2);
19621
19622 return (opcode_t *)cur_opcode + 3;}
19623
19624 opcode_t *
19625 Parrot_sub_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19626 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19627 NREG(1) -= CONST(2).u.number;
19628
19629 return (opcode_t *)cur_opcode + 3;}
19630
19631 opcode_t *
19632 Parrot_sub_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19633 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19634 VTABLE_i_subtract(interp, PREG(1), PREG(2));
19635
19636 return (opcode_t *)cur_opcode + 3;}
19637
19638 opcode_t *
19639 Parrot_sub_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19640 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19641 VTABLE_i_subtract_int(interp, PREG(1), IREG(2));
19642
19643 return (opcode_t *)cur_opcode + 3;}
19644
19645 opcode_t *
19646 Parrot_sub_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19647 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19648 VTABLE_i_subtract_int(interp, PREG(1), cur_opcode[2]);
19649
19650 return (opcode_t *)cur_opcode + 3;}
19651
19652 opcode_t *
19653 Parrot_sub_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19654 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19655 VTABLE_i_subtract_float(interp, PREG(1), NREG(2));
19656
19657 return (opcode_t *)cur_opcode + 3;}
19658
19659 opcode_t *
19660 Parrot_sub_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19661 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19662 VTABLE_i_subtract_float(interp, PREG(1), CONST(2).u.number);
19663
19664 return (opcode_t *)cur_opcode + 3;}
19665
19666 opcode_t *
19667 Parrot_sub_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
19668 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19669 IREG(1) = IREG(2) - IREG(3);
19670
19671 return (opcode_t *)cur_opcode + 4;}
19672
19673 opcode_t *
19674 Parrot_sub_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
19675 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19676 IREG(1) = cur_opcode[2] - IREG(3);
19677
19678 return (opcode_t *)cur_opcode + 4;}
19679
19680 opcode_t *
19681 Parrot_sub_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19682 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19683 IREG(1) = IREG(2) - cur_opcode[3];
19684
19685 return (opcode_t *)cur_opcode + 4;}
19686
19687 opcode_t *
19688 Parrot_sub_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19689 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19690 NREG(1) = NREG(2) - NREG(3);
19691
19692 return (opcode_t *)cur_opcode + 4;}
19693
19694 opcode_t *
19695 Parrot_sub_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
19696 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19697 NREG(1) = CONST(2).u.number - NREG(3);
19698
19699 return (opcode_t *)cur_opcode + 4;}
19700
19701 opcode_t *
19702 Parrot_sub_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19703 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19704 NREG(1) = NREG(2) - CONST(3).u.number;
19705
19706 return (opcode_t *)cur_opcode + 4;}
19707
19708 opcode_t *
19709 Parrot_sub_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19710 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19711 PREG(1) = VTABLE_subtract(interp, PREG(2), PREG(3), PREG(1));
19712
19713 return (opcode_t *)cur_opcode + 4;}
19714
19715 opcode_t *
19716 Parrot_sub_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
19717 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19718 PREG(1) = VTABLE_subtract_int(interp, PREG(2), IREG(3), PREG(1));
19719
19720 return (opcode_t *)cur_opcode + 4;}
19721
19722 opcode_t *
19723 Parrot_sub_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
19724 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19725 PREG(1) = VTABLE_subtract_int(interp, PREG(2), cur_opcode[3], PREG(1));
19726
19727 return (opcode_t *)cur_opcode + 4;}
19728
19729 opcode_t *
19730 Parrot_sub_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
19731 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19732 PREG(1) = VTABLE_subtract_float(interp, PREG(2), NREG(3), PREG(1));
19733
19734 return (opcode_t *)cur_opcode + 4;}
19735
19736 opcode_t *
19737 Parrot_sub_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
19738 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19739 PREG(1) = VTABLE_subtract_float(interp, PREG(2), CONST(3).u.number, PREG(1));
19740
19741 return (opcode_t *)cur_opcode + 4;}
19742
19743 opcode_t *
19744 Parrot_sqrt_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
19745 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19746 NREG(1) = sqrt((FLOATVAL)NREG(2));
19747
19748 return (opcode_t *)cur_opcode + 3;}
19749
19750 opcode_t *
19751 Parrot_callmethodcc_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
19752 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19753 PMC * const object = PREG(1);
19754 STRING * const meth = SREG(2);
19755 opcode_t * const next = cur_opcode + 3;
19756
19757 PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
19758 opcode_t *dest = NULL;
19759
19760 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
19761
19762 if (!PMC_IS_NULL(method_pmc)) {
19763 PMC * const signature = Parrot_pcc_get_signature(interp,
19764 CURRENT_CONTEXT(interp));
19765 if (!PMC_IS_NULL(signature))
19766 Parrot_pcc_set_object(interp, signature, object);
19767
19768 interp->current_cont = NEED_CONTINUATION;
19769 dest = VTABLE_invoke(interp, method_pmc, next);
19770 }
19771 else {
19772 PMC * const _class = VTABLE_get_class(interp, object);
19773 if (PMC_IS_NULL(_class)) {
19774 dest = Parrot_ex_throw_from_op_args(interp, next,
19775 EXCEPTION_METHOD_NOT_FOUND,
19776 "Method '%Ss' not found for non-object", meth);
19777 }
19778 else {
19779 dest = Parrot_ex_throw_from_op_args(interp, next,
19780 EXCEPTION_METHOD_NOT_FOUND,
19781 "Method '%Ss' not found for invocant of class '%Ss'", meth,
19782 VTABLE_get_string(interp, _class));
19783 }
19784 }return (opcode_t *)dest;
19785 }
19786
19787 opcode_t *
19788 Parrot_callmethodcc_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
19789 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19790 PMC * const object = PREG(1);
19791 STRING * const meth = CONST(2).u.string;
19792 opcode_t * const next = cur_opcode + 3;
19793
19794 PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
19795 opcode_t *dest = NULL;
19796
19797 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
19798
19799 if (!PMC_IS_NULL(method_pmc)) {
19800 PMC * const signature = Parrot_pcc_get_signature(interp,
19801 CURRENT_CONTEXT(interp));
19802 if (!PMC_IS_NULL(signature))
19803 Parrot_pcc_set_object(interp, signature, object);
19804
19805 interp->current_cont = NEED_CONTINUATION;
19806 dest = VTABLE_invoke(interp, method_pmc, next);
19807 }
19808 else {
19809 PMC * const _class = VTABLE_get_class(interp, object);
19810 if (PMC_IS_NULL(_class)) {
19811 dest = Parrot_ex_throw_from_op_args(interp, next,
19812 EXCEPTION_METHOD_NOT_FOUND,
19813 "Method '%Ss' not found for non-object", meth);
19814 }
19815 else {
19816 dest = Parrot_ex_throw_from_op_args(interp, next,
19817 EXCEPTION_METHOD_NOT_FOUND,
19818 "Method '%Ss' not found for invocant of class '%Ss'", meth,
19819 VTABLE_get_string(interp, _class));
19820 }
19821 }return (opcode_t *)dest;
19822 }
19823
19824 opcode_t *
19825 Parrot_callmethodcc_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19826 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19827 opcode_t *dest;
19828 opcode_t * const next = cur_opcode + 3;
19829 PMC * signature = Parrot_pcc_get_signature(interp,
19830 CURRENT_CONTEXT(interp));
19831
19832 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
19833
19834 if (!PMC_IS_NULL(signature))
19835 Parrot_pcc_set_object(interp, signature, PREG(1));
19836 interp->current_cont = NEED_CONTINUATION;
19837 dest = VTABLE_invoke(interp, PREG(2), next);return (opcode_t *)dest;
19838 }
19839
19840 opcode_t *
19841 Parrot_callmethod_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
19842 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19843 PMC * const object = PREG(1);
19844 STRING * const meth = SREG(2);
19845 opcode_t * const next = cur_opcode + 4;
19846
19847 PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
19848 opcode_t *dest = NULL;
19849 PMC * signature = Parrot_pcc_get_signature(interp,
19850 CURRENT_CONTEXT(interp));
19851
19852 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
19853
19854 if (PMC_IS_NULL(method_pmc)) {
19855 dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
19856 "Method '%Ss' not found for invocant of class '%Ss'", meth,
19857 VTABLE_get_string(interp, VTABLE_get_class(interp, object)));
19858 }
19859 else {
19860 if (!PMC_IS_NULL(signature))
19861 Parrot_pcc_set_object(interp, signature, object);
19862 interp->current_cont = PREG(3);
19863 dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
19864 }return (opcode_t *)dest;
19865 }
19866
19867 opcode_t *
19868 Parrot_callmethod_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
19869 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19870 PMC * const object = PREG(1);
19871 STRING * const meth = CONST(2).u.string;
19872 opcode_t * const next = cur_opcode + 4;
19873
19874 PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
19875 opcode_t *dest = NULL;
19876 PMC * signature = Parrot_pcc_get_signature(interp,
19877 CURRENT_CONTEXT(interp));
19878
19879 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
19880
19881 if (PMC_IS_NULL(method_pmc)) {
19882 dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
19883 "Method '%Ss' not found for invocant of class '%Ss'", meth,
19884 VTABLE_get_string(interp, VTABLE_get_class(interp, object)));
19885 }
19886 else {
19887 if (!PMC_IS_NULL(signature))
19888 Parrot_pcc_set_object(interp, signature, object);
19889 interp->current_cont = PREG(3);
19890 dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
19891 }return (opcode_t *)dest;
19892 }
19893
19894 opcode_t *
19895 Parrot_callmethod_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19896 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19897 PMC * const object = PREG(1);
19898 PMC * const method_pmc = PREG(2);
19899 opcode_t * const next = cur_opcode + 4;
19900
19901 opcode_t *dest;
19902 PMC * signature = Parrot_pcc_get_signature(interp,
19903 CURRENT_CONTEXT(interp));
19904
19905 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
19906
19907 if (!PMC_IS_NULL(signature))
19908 Parrot_pcc_set_object(interp, signature, object);
19909 interp->current_cont = PREG(3);
19910 dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);return (opcode_t *)dest;
19911 }
19912
19913 opcode_t *
19914 Parrot_tailcallmethod_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
19915 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19916 opcode_t * const next = cur_opcode + 3;
19917 PMC * const object = PREG(1);
19918 STRING * const meth = SREG(2);
19919 PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
19920
19921 opcode_t *dest;
19922 PMC * signature = Parrot_pcc_get_signature(interp,
19923 CURRENT_CONTEXT(interp));
19924
19925 if (PMC_IS_NULL(method_pmc)) {
19926 dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
19927 "Method '%Ss' not found for invocant of class '%Ss'", meth,
19928 VTABLE_get_string(interp, VTABLE_get_class(interp, object)));
19929 }
19930 else {
19931 interp->current_cont = Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp));
19932 PObj_get_FLAGS(interp->current_cont) |= SUB_FLAG_TAILCALL;
19933 if (!PMC_IS_NULL(signature))
19934 Parrot_pcc_set_object(interp, signature, object);
19935 dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
19936 }return (opcode_t *)dest;
19937 }
19938
19939 opcode_t *
19940 Parrot_tailcallmethod_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
19941 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19942 opcode_t * const next = cur_opcode + 3;
19943 PMC * const object = PREG(1);
19944 STRING * const meth = CONST(2).u.string;
19945 PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
19946
19947 opcode_t *dest;
19948 PMC * signature = Parrot_pcc_get_signature(interp,
19949 CURRENT_CONTEXT(interp));
19950
19951 if (PMC_IS_NULL(method_pmc)) {
19952 dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
19953 "Method '%Ss' not found for invocant of class '%Ss'", meth,
19954 VTABLE_get_string(interp, VTABLE_get_class(interp, object)));
19955 }
19956 else {
19957 interp->current_cont = Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp));
19958 PObj_get_FLAGS(interp->current_cont) |= SUB_FLAG_TAILCALL;
19959 if (!PMC_IS_NULL(signature))
19960 Parrot_pcc_set_object(interp, signature, object);
19961 dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
19962 }return (opcode_t *)dest;
19963 }
19964
19965 opcode_t *
19966 Parrot_tailcallmethod_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
19967 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19968 opcode_t * const next = cur_opcode + 3;
19969 PMC * const object = PREG(1);
19970 PMC * const method_pmc = PREG(2);
19971
19972 opcode_t *dest;
19973 PMC * signature = Parrot_pcc_get_signature(interp,
19974 CURRENT_CONTEXT(interp));
19975
19976 interp->current_cont = Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp));
19977 PObj_get_FLAGS(interp->current_cont) |= SUB_FLAG_TAILCALL;
19978
19979 if (!PMC_IS_NULL(signature))
19980 Parrot_pcc_set_object(interp, signature, object);
19981 dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);return (opcode_t *)dest;
19982 }
19983
19984 opcode_t *
19985 Parrot_addmethod_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
19986 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19987 VTABLE_add_method(interp, PREG(1), SREG(2), PREG(3));
19988
19989 return (opcode_t *)cur_opcode + 4;}
19990
19991 opcode_t *
19992 Parrot_addmethod_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
19993 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
19994 VTABLE_add_method(interp, PREG(1), CONST(2).u.string, PREG(3));
19995
19996 return (opcode_t *)cur_opcode + 4;}
19997
19998 opcode_t *
19999 Parrot_can_i_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20000 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20001 IREG(1) = VTABLE_can(interp, PREG(2), SREG(3));
20002
20003 return (opcode_t *)cur_opcode + 4;}
20004
20005 opcode_t *
20006 Parrot_can_i_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20007 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20008 IREG(1) = VTABLE_can(interp, PREG(2), CONST(3).u.string);
20009
20010 return (opcode_t *)cur_opcode + 4;}
20011
20012 opcode_t *
20013 Parrot_does_i_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20014 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20015 IREG(1) = SREG(3) ? VTABLE_does(interp, PREG(2), SREG(3)) : 0;
20016
20017 return (opcode_t *)cur_opcode + 4;}
20018
20019 opcode_t *
20020 Parrot_does_i_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20021 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20022 IREG(1) = CONST(3).u.string ? VTABLE_does(interp, PREG(2), CONST(3).u.string) : 0;
20023
20024 return (opcode_t *)cur_opcode + 4;}
20025
20026 opcode_t *
20027 Parrot_does_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20028 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20029 IREG(1) = PREG(3) ? VTABLE_does_pmc(interp, PREG(2), PREG(3)) : 0;
20030
20031 return (opcode_t *)cur_opcode + 4;}
20032
20033 opcode_t *
20034 Parrot_does_i_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20035 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20036 IREG(1) = CONST(3).u.key ? VTABLE_does_pmc(interp, PREG(2), CONST(3).u.key) : 0;
20037
20038 return (opcode_t *)cur_opcode + 4;}
20039
20040 opcode_t *
20041 Parrot_isa_i_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20042 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20043 IREG(1) = SREG(3) ? VTABLE_isa(interp, PREG(2), SREG(3)) : 0;
20044
20045 return (opcode_t *)cur_opcode + 4;}
20046
20047 opcode_t *
20048 Parrot_isa_i_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20049 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20050 IREG(1) = CONST(3).u.string ? VTABLE_isa(interp, PREG(2), CONST(3).u.string) : 0;
20051
20052 return (opcode_t *)cur_opcode + 4;}
20053
20054 opcode_t *
20055 Parrot_isa_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20056 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20057 IREG(1) = PREG(3) ? VTABLE_isa_pmc(interp, PREG(2), PREG(3)) : 0;
20058
20059 return (opcode_t *)cur_opcode + 4;}
20060
20061 opcode_t *
20062 Parrot_isa_i_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20063 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20064 IREG(1) = CONST(3).u.key ? VTABLE_isa_pmc(interp, PREG(2), CONST(3).u.key) : 0;
20065
20066 return (opcode_t *)cur_opcode + 4;}
20067
20068 opcode_t *
20069 Parrot_newclass_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20070 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20071 PMC * const name = Parrot_pmc_new(interp, enum_class_String);
20072 VTABLE_set_string_native(interp, name, SREG(2));
20073 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, name);
20074
20075 return (opcode_t *)cur_opcode + 3;}
20076
20077 opcode_t *
20078 Parrot_newclass_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20079 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20080 PMC * const name = Parrot_pmc_new(interp, enum_class_String);
20081 VTABLE_set_string_native(interp, name, CONST(2).u.string);
20082 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, name);
20083
20084 return (opcode_t *)cur_opcode + 3;}
20085
20086 opcode_t *
20087 Parrot_newclass_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20088 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20089 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(2));
20090
20091 return (opcode_t *)cur_opcode + 3;}
20092
20093 opcode_t *
20094 Parrot_newclass_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20095 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20096 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(2).u.key);
20097
20098 return (opcode_t *)cur_opcode + 3;}
20099
20100 opcode_t *
20101 Parrot_subclass_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20102 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20103 PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
20104 opcode_t * const next = cur_opcode + 3;
20105
20106 if (PMC_IS_NULL(parent_class)) {
20107 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20108 EXCEPTION_NO_CLASS,
20109 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
20110 }
20111 PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
20112 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20113 }
20114
20115 opcode_t *
20116 Parrot_subclass_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20117 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20118 PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2).u.key);
20119 opcode_t * const next = cur_opcode + 3;
20120
20121 if (PMC_IS_NULL(parent_class)) {
20122 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20123 EXCEPTION_NO_CLASS,
20124 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2).u.key));return (opcode_t *)handler;
20125 }
20126 PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
20127 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20128 }
20129
20130 opcode_t *
20131 Parrot_subclass_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20132 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20133 PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
20134 opcode_t * const next = cur_opcode + 4;
20135
20136 if (PMC_IS_NULL(parent_class)) {
20137 opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
20138 EXCEPTION_NO_CLASS,
20139 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
20140 }
20141 PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
20142 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20143 }
20144
20145 opcode_t *
20146 Parrot_subclass_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
20147 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20148 PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2).u.key);
20149 opcode_t * const next = cur_opcode + 4;
20150
20151 if (PMC_IS_NULL(parent_class)) {
20152 opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
20153 EXCEPTION_NO_CLASS,
20154 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2).u.key));return (opcode_t *)handler;
20155 }
20156 PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
20157 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20158 }
20159
20160 opcode_t *
20161 Parrot_subclass_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20162 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20163 PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
20164 opcode_t * const next = cur_opcode + 4;
20165
20166 if (PMC_IS_NULL(parent_class)) {
20167 opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
20168 EXCEPTION_NO_CLASS,
20169 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
20170 }
20171 PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3).u.string);
20172 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20173 }
20174
20175 opcode_t *
20176 Parrot_subclass_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20177 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20178 PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2).u.key);
20179 opcode_t * const next = cur_opcode + 4;
20180
20181 if (PMC_IS_NULL(parent_class)) {
20182 opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
20183 EXCEPTION_NO_CLASS,
20184 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2).u.key));return (opcode_t *)handler;
20185 }
20186 PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3).u.string);
20187 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20188 }
20189
20190 opcode_t *
20191 Parrot_subclass_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20192 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20193 PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
20194 opcode_t * const next = cur_opcode + 4;
20195
20196 if (PMC_IS_NULL(parent_class)) {
20197 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20198 EXCEPTION_NO_CLASS,
20199 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
20200 }
20201 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
20202 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20203 }
20204
20205 opcode_t *
20206 Parrot_subclass_p_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20207 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20208 PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2).u.key);
20209 opcode_t * const next = cur_opcode + 4;
20210
20211 if (PMC_IS_NULL(parent_class)) {
20212 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20213 EXCEPTION_NO_CLASS,
20214 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2).u.key));return (opcode_t *)handler;
20215 }
20216 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
20217 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20218 }
20219
20220 opcode_t *
20221 Parrot_subclass_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20222 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20223 PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
20224 opcode_t * const next = cur_opcode + 4;
20225
20226 if (PMC_IS_NULL(parent_class)) {
20227 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20228 EXCEPTION_NO_CLASS,
20229 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
20230 }
20231 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3).u.key);
20232 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20233 }
20234
20235 opcode_t *
20236 Parrot_subclass_p_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20237 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20238 PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2).u.key);
20239 opcode_t * const next = cur_opcode + 4;
20240
20241 if (PMC_IS_NULL(parent_class)) {
20242 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20243 EXCEPTION_NO_CLASS,
20244 "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2).u.key));return (opcode_t *)handler;
20245 }
20246 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3).u.key);
20247 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20248 }
20249
20250 opcode_t *
20251 Parrot_subclass_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20252 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20253 PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
20254 opcode_t * const next = cur_opcode + 3;
20255
20256 if (PMC_IS_NULL(parent_class)) {
20257 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20258 EXCEPTION_NO_CLASS,
20259 "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
20260 }
20261
20262 PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
20263 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20264 }
20265
20266 opcode_t *
20267 Parrot_subclass_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20268 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20269 PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2).u.string);
20270 opcode_t * const next = cur_opcode + 3;
20271
20272 if (PMC_IS_NULL(parent_class)) {
20273 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20274 EXCEPTION_NO_CLASS,
20275 "Class '%Ss' doesn't exist", CONST(2).u.string);return (opcode_t *)handler;
20276 }
20277
20278 PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
20279 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20280 }
20281
20282 opcode_t *
20283 Parrot_subclass_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
20284 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20285 PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
20286 opcode_t * const next = cur_opcode + 4;
20287
20288 if (PMC_IS_NULL(parent_class)) {
20289 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20290 EXCEPTION_NO_CLASS,
20291 "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
20292 }
20293
20294 PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
20295 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20296 }
20297
20298 opcode_t *
20299 Parrot_subclass_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
20300 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20301 PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2).u.string);
20302 opcode_t * const next = cur_opcode + 4;
20303
20304 if (PMC_IS_NULL(parent_class)) {
20305 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20306 EXCEPTION_NO_CLASS,
20307 "Class '%Ss' doesn't exist", CONST(2).u.string);return (opcode_t *)handler;
20308 }
20309
20310 PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
20311 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20312 }
20313
20314 opcode_t *
20315 Parrot_subclass_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20316 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20317 PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
20318 opcode_t * const next = cur_opcode + 4;
20319
20320 if (PMC_IS_NULL(parent_class)) {
20321 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20322 EXCEPTION_NO_CLASS,
20323 "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
20324 }
20325
20326 PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3).u.string);
20327 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20328 }
20329
20330 opcode_t *
20331 Parrot_subclass_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20332 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20333 PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2).u.string);
20334 opcode_t * const next = cur_opcode + 4;
20335
20336 if (PMC_IS_NULL(parent_class)) {
20337 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20338 EXCEPTION_NO_CLASS,
20339 "Class '%Ss' doesn't exist", CONST(2).u.string);return (opcode_t *)handler;
20340 }
20341
20342 PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3).u.string);
20343 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20344 }
20345
20346 opcode_t *
20347 Parrot_subclass_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
20348 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20349 PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
20350 opcode_t * const next = cur_opcode + 4;
20351
20352 if (PMC_IS_NULL(parent_class)) {
20353 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20354 EXCEPTION_NO_CLASS,
20355 "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
20356 }
20357
20358 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
20359 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20360 }
20361
20362 opcode_t *
20363 Parrot_subclass_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20364 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20365 PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2).u.string);
20366 opcode_t * const next = cur_opcode + 4;
20367
20368 if (PMC_IS_NULL(parent_class)) {
20369 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20370 EXCEPTION_NO_CLASS,
20371 "Class '%Ss' doesn't exist", CONST(2).u.string);return (opcode_t *)handler;
20372 }
20373
20374 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
20375 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20376 }
20377
20378 opcode_t *
20379 Parrot_subclass_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20380 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20381 PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
20382 opcode_t * const next = cur_opcode + 4;
20383
20384 if (PMC_IS_NULL(parent_class)) {
20385 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20386 EXCEPTION_NO_CLASS,
20387 "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
20388 }
20389
20390 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3).u.key);
20391 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20392 }
20393
20394 opcode_t *
20395 Parrot_subclass_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20396 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20397 PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2).u.string);
20398 opcode_t * const next = cur_opcode + 4;
20399
20400 if (PMC_IS_NULL(parent_class)) {
20401 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
20402 EXCEPTION_NO_CLASS,
20403 "Class '%Ss' doesn't exist", CONST(2).u.string);return (opcode_t *)handler;
20404 }
20405
20406 PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3).u.key);
20407 VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
20408 }
20409
20410 opcode_t *
20411 Parrot_get_class_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20412 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20413 PREG(1) = Parrot_oo_get_class_str(interp, SREG(2));
20414
20415 return (opcode_t *)cur_opcode + 3;}
20416
20417 opcode_t *
20418 Parrot_get_class_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20419 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20420 PREG(1) = Parrot_oo_get_class_str(interp, CONST(2).u.string);
20421
20422 return (opcode_t *)cur_opcode + 3;}
20423
20424 opcode_t *
20425 Parrot_get_class_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20426 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20427 PREG(1) = Parrot_oo_get_class(interp, PREG(2));
20428
20429 return (opcode_t *)cur_opcode + 3;}
20430
20431 opcode_t *
20432 Parrot_get_class_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20433 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20434 PREG(1) = Parrot_oo_get_class(interp, CONST(2).u.key);
20435
20436 return (opcode_t *)cur_opcode + 3;}
20437
20438 opcode_t *
20439 Parrot_class_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20440 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20441 PREG(1) = VTABLE_get_class(interp, PREG(2));
20442
20443 return (opcode_t *)cur_opcode + 3;}
20444
20445 opcode_t *
20446 Parrot_addparent_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20447 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20448 VTABLE_add_parent(interp, PREG(1), PREG(2));
20449
20450 return (opcode_t *)cur_opcode + 3;}
20451
20452 opcode_t *
20453 Parrot_removeparent_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20454 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20455 VTABLE_remove_parent(interp, PREG(1), PREG(2));
20456
20457 return (opcode_t *)cur_opcode + 3;}
20458
20459 opcode_t *
20460 Parrot_addrole_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20461 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20462 VTABLE_add_role(interp, PREG(1), PREG(2));
20463
20464 return (opcode_t *)cur_opcode + 3;}
20465
20466 opcode_t *
20467 Parrot_addattribute_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20468 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20469 VTABLE_add_attribute(interp, PREG(1), SREG(2), PMCNULL);
20470
20471 return (opcode_t *)cur_opcode + 3;}
20472
20473 opcode_t *
20474 Parrot_addattribute_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20475 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20476 VTABLE_add_attribute(interp, PREG(1), CONST(2).u.string, PMCNULL);
20477
20478 return (opcode_t *)cur_opcode + 3;}
20479
20480 opcode_t *
20481 Parrot_removeattribute_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20482 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20483 VTABLE_remove_attribute(interp, PREG(1), SREG(2));
20484
20485 return (opcode_t *)cur_opcode + 3;}
20486
20487 opcode_t *
20488 Parrot_removeattribute_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20489 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20490 VTABLE_remove_attribute(interp, PREG(1), CONST(2).u.string);
20491
20492 return (opcode_t *)cur_opcode + 3;}
20493
20494 opcode_t *
20495 Parrot_getattribute_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20496 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20497 PREG(1) = VTABLE_get_attr_str(interp, PREG(2), SREG(3));
20498
20499 return (opcode_t *)cur_opcode + 4;}
20500
20501 opcode_t *
20502 Parrot_getattribute_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20503 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20504 PREG(1) = VTABLE_get_attr_str(interp, PREG(2), CONST(3).u.string);
20505
20506 return (opcode_t *)cur_opcode + 4;}
20507
20508 opcode_t *
20509 Parrot_getattribute_p_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20510 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20511 PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), PREG(3), SREG(4));
20512
20513 return (opcode_t *)cur_opcode + 5;}
20514
20515 opcode_t *
20516 Parrot_getattribute_p_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
20517 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20518 PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), CONST(3).u.key, SREG(4));
20519
20520 return (opcode_t *)cur_opcode + 5;}
20521
20522 opcode_t *
20523 Parrot_getattribute_p_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20524 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20525 PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), PREG(3), CONST(4).u.string);
20526
20527 return (opcode_t *)cur_opcode + 5;}
20528
20529 opcode_t *
20530 Parrot_getattribute_p_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20531 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20532 PREG(1) = VTABLE_get_attr_keyed(interp, PREG(2), CONST(3).u.key, CONST(4).u.string);
20533
20534 return (opcode_t *)cur_opcode + 5;}
20535
20536 opcode_t *
20537 Parrot_setattribute_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
20538 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20539 VTABLE_set_attr_str(interp, PREG(1), SREG(2), PREG(3));
20540
20541 return (opcode_t *)cur_opcode + 4;}
20542
20543 opcode_t *
20544 Parrot_setattribute_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20545 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20546 VTABLE_set_attr_str(interp, PREG(1), CONST(2).u.string, PREG(3));
20547
20548 return (opcode_t *)cur_opcode + 4;}
20549
20550 opcode_t *
20551 Parrot_setattribute_p_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
20552 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20553 VTABLE_set_attr_keyed(interp, PREG(1), PREG(2), SREG(3), PREG(4));
20554
20555 return (opcode_t *)cur_opcode + 5;}
20556
20557 opcode_t *
20558 Parrot_setattribute_p_pc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
20559 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20560 VTABLE_set_attr_keyed(interp, PREG(1), CONST(2).u.key, SREG(3), PREG(4));
20561
20562 return (opcode_t *)cur_opcode + 5;}
20563
20564 opcode_t *
20565 Parrot_setattribute_p_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20566 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20567 VTABLE_set_attr_keyed(interp, PREG(1), PREG(2), CONST(3).u.string, PREG(4));
20568
20569 return (opcode_t *)cur_opcode + 5;}
20570
20571 opcode_t *
20572 Parrot_setattribute_p_pc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20573 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20574 VTABLE_set_attr_keyed(interp, PREG(1), CONST(2).u.key, CONST(3).u.string, PREG(4));
20575
20576 return (opcode_t *)cur_opcode + 5;}
20577
20578 opcode_t *
20579 Parrot_inspect_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20580 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20581 PREG(1) = VTABLE_inspect(interp, PREG(2));
20582
20583 return (opcode_t *)cur_opcode + 3;}
20584
20585 opcode_t *
20586 Parrot_inspect_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20587 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20588 PREG(1) = VTABLE_inspect(interp, CONST(2).u.key);
20589
20590 return (opcode_t *)cur_opcode + 3;}
20591
20592 opcode_t *
20593 Parrot_inspect_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20594 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20595 PREG(1) = VTABLE_inspect_str(interp, PREG(2), SREG(3));
20596
20597 return (opcode_t *)cur_opcode + 4;}
20598
20599 opcode_t *
20600 Parrot_inspect_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
20601 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20602 PREG(1) = VTABLE_inspect_str(interp, CONST(2).u.key, SREG(3));
20603
20604 return (opcode_t *)cur_opcode + 4;}
20605
20606 opcode_t *
20607 Parrot_inspect_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20608 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20609 PREG(1) = VTABLE_inspect_str(interp, PREG(2), CONST(3).u.string);
20610
20611 return (opcode_t *)cur_opcode + 4;}
20612
20613 opcode_t *
20614 Parrot_inspect_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20615 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20616 PREG(1) = VTABLE_inspect_str(interp, CONST(2).u.key, CONST(3).u.string);
20617
20618 return (opcode_t *)cur_opcode + 4;}
20619
20620 opcode_t *
20621 Parrot_new_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
20622 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20623 STRING * const name = SREG(2);
20624 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
20625 ? Parrot_oo_get_class_str(interp, name)
20626 : PMCNULL;
20627
20628 if (!PMC_IS_NULL(_class))
20629 PREG(1) = VTABLE_instantiate(interp, _class, PMCNULL);
20630 else {
20631 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
20632 if (type <= 0) {
20633 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
20634 EXCEPTION_NO_CLASS,
20635 "Class '%Ss' not found", name);return (opcode_t *)dest;
20636 }
20637 PREG(1) = Parrot_pmc_new(interp, type);
20638 }
20639
20640 return (opcode_t *)cur_opcode + 3;}
20641
20642 opcode_t *
20643 Parrot_new_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
20644 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20645 STRING * const name = CONST(2).u.string;
20646 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
20647 ? Parrot_oo_get_class_str(interp, name)
20648 : PMCNULL;
20649
20650 if (!PMC_IS_NULL(_class))
20651 PREG(1) = VTABLE_instantiate(interp, _class, PMCNULL);
20652 else {
20653 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
20654 if (type <= 0) {
20655 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
20656 EXCEPTION_NO_CLASS,
20657 "Class '%Ss' not found", name);return (opcode_t *)dest;
20658 }
20659 PREG(1) = Parrot_pmc_new(interp, type);
20660 }
20661
20662 return (opcode_t *)cur_opcode + 3;}
20663
20664 opcode_t *
20665 Parrot_new_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
20666 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20667 STRING * const name = SREG(2);
20668 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
20669 ? Parrot_oo_get_class_str(interp, name)
20670 : PMCNULL;
20671
20672 if (!PMC_IS_NULL(_class))
20673 PREG(1) = VTABLE_instantiate(interp, _class, PREG(3));
20674 else {
20675 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
20676 if (type <= 0) {
20677 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20678 EXCEPTION_NO_CLASS,
20679 "Class '%Ss' not found", name);return (opcode_t *)dest;
20680 }
20681 PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
20682 }
20683
20684 return (opcode_t *)cur_opcode + 4;}
20685
20686 opcode_t *
20687 Parrot_new_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20688 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20689 STRING * const name = CONST(2).u.string;
20690 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
20691 ? Parrot_oo_get_class_str(interp, name)
20692 : PMCNULL;
20693
20694 if (!PMC_IS_NULL(_class))
20695 PREG(1) = VTABLE_instantiate(interp, _class, PREG(3));
20696 else {
20697 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
20698 if (type <= 0) {
20699 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20700 EXCEPTION_NO_CLASS,
20701 "Class '%Ss' not found", name);return (opcode_t *)dest;
20702 }
20703 PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
20704 }
20705
20706 return (opcode_t *)cur_opcode + 4;}
20707
20708 opcode_t *
20709 Parrot_new_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20710 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20711 STRING * const name = SREG(2);
20712 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
20713 ? Parrot_oo_get_class_str(interp, name)
20714 : PMCNULL;
20715
20716 if (!PMC_IS_NULL(_class))
20717 PREG(1) = VTABLE_instantiate(interp, _class, CONST(3).u.key);
20718 else {
20719 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
20720 if (type <= 0) {
20721 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20722 EXCEPTION_NO_CLASS,
20723 "Class '%Ss' not found", name);return (opcode_t *)dest;
20724 }
20725 PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3).u.key);
20726 }
20727
20728 return (opcode_t *)cur_opcode + 4;}
20729
20730 opcode_t *
20731 Parrot_new_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20732 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20733 STRING * const name = CONST(2).u.string;
20734 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
20735 ? Parrot_oo_get_class_str(interp, name)
20736 : PMCNULL;
20737
20738 if (!PMC_IS_NULL(_class))
20739 PREG(1) = VTABLE_instantiate(interp, _class, CONST(3).u.key);
20740 else {
20741 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
20742 if (type <= 0) {
20743 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20744 EXCEPTION_NO_CLASS,
20745 "Class '%Ss' not found", name);return (opcode_t *)dest;
20746 }
20747 PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3).u.key);
20748 }
20749
20750 return (opcode_t *)cur_opcode + 4;}
20751
20752 opcode_t *
20753 Parrot_new_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20754 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20755 PMC * const name_key = PREG(2);
20756 PMC * const _class = Parrot_oo_get_class(interp, name_key);
20757
20758 if (!PMC_IS_NULL(_class))
20759 PREG(1) = VTABLE_instantiate(interp, _class, PMCNULL);
20760 else {
20761 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
20762 if (type <= 0) {
20763 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
20764 EXCEPTION_NO_CLASS,
20765 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
20766 }
20767 PREG(1) = Parrot_pmc_new(interp, type);
20768 }
20769
20770 return (opcode_t *)cur_opcode + 3;}
20771
20772 opcode_t *
20773 Parrot_new_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20774 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20775 PMC * const name_key = CONST(2).u.key;
20776 PMC * const _class = Parrot_oo_get_class(interp, name_key);
20777
20778 if (!PMC_IS_NULL(_class))
20779 PREG(1) = VTABLE_instantiate(interp, _class, PMCNULL);
20780 else {
20781 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
20782 if (type <= 0) {
20783 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
20784 EXCEPTION_NO_CLASS,
20785 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
20786 }
20787 PREG(1) = Parrot_pmc_new(interp, type);
20788 }
20789
20790 return (opcode_t *)cur_opcode + 3;}
20791
20792 opcode_t *
20793 Parrot_new_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20794 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20795 PMC * const name_key = PREG(2);
20796 PMC * const _class = Parrot_oo_get_class(interp, name_key);
20797
20798 if (!PMC_IS_NULL(_class))
20799 PREG(1) = VTABLE_instantiate(interp, _class, PREG(3));
20800 else {
20801 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
20802 if (type <= 0) {
20803 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20804 EXCEPTION_NO_CLASS,
20805 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
20806 }
20807 PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
20808 }
20809
20810 return (opcode_t *)cur_opcode + 4;}
20811
20812 opcode_t *
20813 Parrot_new_p_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20814 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20815 PMC * const name_key = CONST(2).u.key;
20816 PMC * const _class = Parrot_oo_get_class(interp, name_key);
20817
20818 if (!PMC_IS_NULL(_class))
20819 PREG(1) = VTABLE_instantiate(interp, _class, PREG(3));
20820 else {
20821 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
20822 if (type <= 0) {
20823 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20824 EXCEPTION_NO_CLASS,
20825 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
20826 }
20827 PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
20828 }
20829
20830 return (opcode_t *)cur_opcode + 4;}
20831
20832 opcode_t *
20833 Parrot_new_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20834 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20835 PMC * const name_key = PREG(2);
20836 PMC * const _class = Parrot_oo_get_class(interp, name_key);
20837
20838 if (!PMC_IS_NULL(_class))
20839 PREG(1) = VTABLE_instantiate(interp, _class, CONST(3).u.key);
20840 else {
20841 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
20842 if (type <= 0) {
20843 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20844 EXCEPTION_NO_CLASS,
20845 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
20846 }
20847 PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3).u.key);
20848 }
20849
20850 return (opcode_t *)cur_opcode + 4;}
20851
20852 opcode_t *
20853 Parrot_new_p_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20854 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20855 PMC * const name_key = CONST(2).u.key;
20856 PMC * const _class = Parrot_oo_get_class(interp, name_key);
20857
20858 if (!PMC_IS_NULL(_class))
20859 PREG(1) = VTABLE_instantiate(interp, _class, CONST(3).u.key);
20860 else {
20861 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
20862 if (type <= 0) {
20863 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20864 EXCEPTION_NO_CLASS,
20865 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
20866 }
20867 PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3).u.key);
20868 }
20869
20870 return (opcode_t *)cur_opcode + 4;}
20871
20872 opcode_t *
20873 Parrot_root_new_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20874 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20875 PMC * const key = PREG(2);
20876 PMC * const root_ns = interp->root_namespace;
20877 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, key);
20878 PMC * classobj = PMCNULL;
20879
20880 if (!PMC_IS_NULL(ns))
20881 classobj = Parrot_oo_get_class(interp, ns);
20882 if (!PMC_IS_NULL(classobj))
20883 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
20884 else {
20885 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
20886 EXCEPTION_NO_CLASS,
20887 "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
20888 }
20889
20890 return (opcode_t *)cur_opcode + 3;}
20891
20892 opcode_t *
20893 Parrot_root_new_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20894 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20895 PMC * const key = CONST(2).u.key;
20896 PMC * const root_ns = interp->root_namespace;
20897 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, key);
20898 PMC * classobj = PMCNULL;
20899
20900 if (!PMC_IS_NULL(ns))
20901 classobj = Parrot_oo_get_class(interp, ns);
20902 if (!PMC_IS_NULL(classobj))
20903 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
20904 else {
20905 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
20906 EXCEPTION_NO_CLASS,
20907 "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
20908 }
20909
20910 return (opcode_t *)cur_opcode + 3;}
20911
20912 opcode_t *
20913 Parrot_root_new_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
20914 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20915 PMC * const key = PREG(2);
20916 PMC * const root_ns = interp->root_namespace;
20917 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, key);
20918 PMC * classobj = PMCNULL;
20919
20920 if (!PMC_IS_NULL(ns))
20921 classobj = Parrot_oo_get_class(interp, ns);
20922 if (!PMC_IS_NULL(classobj))
20923 PREG(1) = VTABLE_instantiate(interp, classobj, PREG(3));
20924 else {
20925 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20926 EXCEPTION_NO_CLASS,
20927 "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
20928 }
20929
20930 return (opcode_t *)cur_opcode + 4;}
20931
20932 opcode_t *
20933 Parrot_root_new_p_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
20934 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20935 PMC * const key = CONST(2).u.key;
20936 PMC * const root_ns = interp->root_namespace;
20937 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, key);
20938 PMC * classobj = PMCNULL;
20939
20940 if (!PMC_IS_NULL(ns))
20941 classobj = Parrot_oo_get_class(interp, ns);
20942 if (!PMC_IS_NULL(classobj))
20943 PREG(1) = VTABLE_instantiate(interp, classobj, PREG(3));
20944 else {
20945 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20946 EXCEPTION_NO_CLASS,
20947 "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
20948 }
20949
20950 return (opcode_t *)cur_opcode + 4;}
20951
20952 opcode_t *
20953 Parrot_root_new_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20954 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20955 PMC * const key = PREG(2);
20956 PMC * const root_ns = interp->root_namespace;
20957 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, key);
20958 PMC * classobj = PMCNULL;
20959
20960 if (!PMC_IS_NULL(ns))
20961 classobj = Parrot_oo_get_class(interp, ns);
20962 if (!PMC_IS_NULL(classobj))
20963 PREG(1) = VTABLE_instantiate(interp, classobj, CONST(3).u.key);
20964 else {
20965 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20966 EXCEPTION_NO_CLASS,
20967 "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
20968 }
20969
20970 return (opcode_t *)cur_opcode + 4;}
20971
20972 opcode_t *
20973 Parrot_root_new_p_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
20974 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20975 PMC * const key = CONST(2).u.key;
20976 PMC * const root_ns = interp->root_namespace;
20977 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, key);
20978 PMC * classobj = PMCNULL;
20979
20980 if (!PMC_IS_NULL(ns))
20981 classobj = Parrot_oo_get_class(interp, ns);
20982 if (!PMC_IS_NULL(classobj))
20983 PREG(1) = VTABLE_instantiate(interp, classobj, CONST(3).u.key);
20984 else {
20985 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
20986 EXCEPTION_NO_CLASS,
20987 "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
20988 }
20989
20990 return (opcode_t *)cur_opcode + 4;}
20991
20992 opcode_t *
20993 Parrot_typeof_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
20994 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
20995 SREG(1) = VTABLE_name(interp, PREG(2));
20996
20997 return (opcode_t *)cur_opcode + 3;}
20998
20999 opcode_t *
21000 Parrot_typeof_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21001 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21002 PREG(1) = VTABLE_get_class(interp, PREG(2));
21003
21004 return (opcode_t *)cur_opcode + 3;}
21005
21006 opcode_t *
21007 Parrot_get_repr_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21008 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21009 SREG(1) = VTABLE_get_repr(interp, PREG(2));
21010
21011 return (opcode_t *)cur_opcode + 3;}
21012
21013 opcode_t *
21014 Parrot_find_method_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21015 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21016 opcode_t * const resume = cur_opcode + 4;
21017 PREG(1) = VTABLE_find_method(interp, PREG(2), SREG(3));
21018 if (PMC_IS_NULL(PREG(1)) || !VTABLE_defined(interp, PREG(1))) {
21019 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, resume,
21020 EXCEPTION_METHOD_NOT_FOUND,
21021 "Method '%Ss' not found for invocant of class '%Ss'", SREG(3),
21022 VTABLE_get_string(interp, VTABLE_get_class(interp, PREG(2))));return (opcode_t *)dest;
21023 }return (opcode_t *)resume;
21024 }
21025
21026 opcode_t *
21027 Parrot_find_method_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21028 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21029 opcode_t * const resume = cur_opcode + 4;
21030 PREG(1) = VTABLE_find_method(interp, PREG(2), CONST(3).u.string);
21031 if (PMC_IS_NULL(PREG(1)) || !VTABLE_defined(interp, PREG(1))) {
21032 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, resume,
21033 EXCEPTION_METHOD_NOT_FOUND,
21034 "Method '%Ss' not found for invocant of class '%Ss'", CONST(3).u.string,
21035 VTABLE_get_string(interp, VTABLE_get_class(interp, PREG(2))));return (opcode_t *)dest;
21036 }return (opcode_t *)resume;
21037 }
21038
21039 opcode_t *
21040 Parrot_defined_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
21041 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21042 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined(interp, PREG(2));
21043
21044 return (opcode_t *)cur_opcode + 3;}
21045
21046 opcode_t *
21047 Parrot_defined_i_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21048 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21049 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed_int(interp, PREG(2), IREG(3));
21050
21051 return (opcode_t *)cur_opcode + 4;}
21052
21053 opcode_t *
21054 Parrot_defined_i_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21055 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21056 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed_int(interp, PREG(2), cur_opcode[3]);
21057
21058 return (opcode_t *)cur_opcode + 4;}
21059
21060 opcode_t *
21061 Parrot_defined_i_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
21062 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21063 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed(interp, PREG(2), PREG(3));
21064
21065 return (opcode_t *)cur_opcode + 4;}
21066
21067 opcode_t *
21068 Parrot_defined_i_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
21069 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21070 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_defined_keyed(interp, PREG(2), CONST(3).u.key);
21071
21072 return (opcode_t *)cur_opcode + 4;}
21073
21074 opcode_t *
21075 Parrot_exists_i_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21076 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21077 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_exists_keyed_int(interp, PREG(2), IREG(3));
21078
21079 return (opcode_t *)cur_opcode + 4;}
21080
21081 opcode_t *
21082 Parrot_exists_i_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21083 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21084 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0 : VTABLE_exists_keyed_int(interp, PREG(2), cur_opcode[3]);
21085
21086 return (opcode_t *)cur_opcode + 4;}
21087
21088 opcode_t *
21089 Parrot_exists_i_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
21090 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21091 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0: VTABLE_exists_keyed(interp, PREG(2), PREG(3));
21092
21093 return (opcode_t *)cur_opcode + 4;}
21094
21095 opcode_t *
21096 Parrot_exists_i_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
21097 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21098 IREG(1) = PMC_IS_NULL(PREG(2)) ? 0: VTABLE_exists_keyed(interp, PREG(2), CONST(3).u.key);
21099
21100 return (opcode_t *)cur_opcode + 4;}
21101
21102 opcode_t *
21103 Parrot_delete_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
21104 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21105 VTABLE_delete_keyed(interp, PREG(1), PREG(2));
21106
21107 return (opcode_t *)cur_opcode + 3;}
21108
21109 opcode_t *
21110 Parrot_delete_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
21111 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21112 VTABLE_delete_keyed(interp, PREG(1), CONST(2).u.key);
21113
21114 return (opcode_t *)cur_opcode + 3;}
21115
21116 opcode_t *
21117 Parrot_delete_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21118 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21119 VTABLE_delete_keyed_int(interp, PREG(1), IREG(2));
21120
21121 return (opcode_t *)cur_opcode + 3;}
21122
21123 opcode_t *
21124 Parrot_delete_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21125 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21126 VTABLE_delete_keyed_int(interp, PREG(1), cur_opcode[2]);
21127
21128 return (opcode_t *)cur_opcode + 3;}
21129
21130 opcode_t *
21131 Parrot_elements_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
21132 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21133 IREG(1) = VTABLE_elements(interp, PREG(2));
21134
21135 return (opcode_t *)cur_opcode + 3;}
21136
21137 opcode_t *
21138 Parrot_push_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
21139 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21140 VTABLE_push_integer(interp, PREG(1), IREG(2));
21141
21142 return (opcode_t *)cur_opcode + 3;}
21143
21144 opcode_t *
21145 Parrot_push_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21146 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21147 VTABLE_push_integer(interp, PREG(1), cur_opcode[2]);
21148
21149 return (opcode_t *)cur_opcode + 3;}
21150
21151 opcode_t *
21152 Parrot_push_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
21153 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21154 VTABLE_push_float(interp, PREG(1), NREG(2));
21155
21156 return (opcode_t *)cur_opcode + 3;}
21157
21158 opcode_t *
21159 Parrot_push_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21160 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21161 VTABLE_push_float(interp, PREG(1), CONST(2).u.number);
21162
21163 return (opcode_t *)cur_opcode + 3;}
21164
21165 opcode_t *
21166 Parrot_push_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21167 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21168 VTABLE_push_string(interp, PREG(1), SREG(2));
21169
21170 return (opcode_t *)cur_opcode + 3;}
21171
21172 opcode_t *
21173 Parrot_push_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21174 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21175 VTABLE_push_string(interp, PREG(1), CONST(2).u.string);
21176
21177 return (opcode_t *)cur_opcode + 3;}
21178
21179 opcode_t *
21180 Parrot_push_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21181 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21182 VTABLE_push_pmc(interp, PREG(1), PREG(2));
21183
21184 return (opcode_t *)cur_opcode + 3;}
21185
21186 opcode_t *
21187 Parrot_pop_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
21188 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21189 IREG(1) = VTABLE_pop_integer(interp, PREG(2));
21190
21191 return (opcode_t *)cur_opcode + 3;}
21192
21193 opcode_t *
21194 Parrot_pop_n_p(opcode_t *cur_opcode, PARROT_INTERP) {
21195 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21196 NREG(1) = VTABLE_pop_float(interp, PREG(2));
21197
21198 return (opcode_t *)cur_opcode + 3;}
21199
21200 opcode_t *
21201 Parrot_pop_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21202 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21203 SREG(1) = VTABLE_pop_string(interp, PREG(2));
21204
21205 return (opcode_t *)cur_opcode + 3;}
21206
21207 opcode_t *
21208 Parrot_pop_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21209 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21210 PREG(1) = VTABLE_pop_pmc(interp, PREG(2));
21211
21212 return (opcode_t *)cur_opcode + 3;}
21213
21214 opcode_t *
21215 Parrot_unshift_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
21216 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21217 VTABLE_unshift_integer(interp, PREG(1), IREG(2));
21218
21219 return (opcode_t *)cur_opcode + 3;}
21220
21221 opcode_t *
21222 Parrot_unshift_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21223 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21224 VTABLE_unshift_integer(interp, PREG(1), cur_opcode[2]);
21225
21226 return (opcode_t *)cur_opcode + 3;}
21227
21228 opcode_t *
21229 Parrot_unshift_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
21230 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21231 VTABLE_unshift_float(interp, PREG(1), NREG(2));
21232
21233 return (opcode_t *)cur_opcode + 3;}
21234
21235 opcode_t *
21236 Parrot_unshift_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21237 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21238 VTABLE_unshift_float(interp, PREG(1), CONST(2).u.number);
21239
21240 return (opcode_t *)cur_opcode + 3;}
21241
21242 opcode_t *
21243 Parrot_unshift_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21244 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21245 VTABLE_unshift_string(interp, PREG(1), SREG(2));
21246
21247 return (opcode_t *)cur_opcode + 3;}
21248
21249 opcode_t *
21250 Parrot_unshift_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21251 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21252 VTABLE_unshift_string(interp, PREG(1), CONST(2).u.string);
21253
21254 return (opcode_t *)cur_opcode + 3;}
21255
21256 opcode_t *
21257 Parrot_unshift_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21258 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21259 VTABLE_unshift_pmc(interp, PREG(1), PREG(2));
21260
21261 return (opcode_t *)cur_opcode + 3;}
21262
21263 opcode_t *
21264 Parrot_shift_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
21265 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21266 IREG(1) = VTABLE_shift_integer(interp, PREG(2));
21267
21268 return (opcode_t *)cur_opcode + 3;}
21269
21270 opcode_t *
21271 Parrot_shift_n_p(opcode_t *cur_opcode, PARROT_INTERP) {
21272 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21273 NREG(1) = VTABLE_shift_float(interp, PREG(2));
21274
21275 return (opcode_t *)cur_opcode + 3;}
21276
21277 opcode_t *
21278 Parrot_shift_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21279 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21280 SREG(1) = VTABLE_shift_string(interp, PREG(2));
21281
21282 return (opcode_t *)cur_opcode + 3;}
21283
21284 opcode_t *
21285 Parrot_shift_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21286 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21287 PREG(1) = VTABLE_shift_pmc(interp, PREG(2));
21288
21289 return (opcode_t *)cur_opcode + 3;}
21290
21291 opcode_t *
21292 Parrot_splice_p_p_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
21293 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21294 VTABLE_splice(interp, PREG(1), PREG(2), IREG(3), IREG(4));
21295
21296 return (opcode_t *)cur_opcode + 5;}
21297
21298 opcode_t *
21299 Parrot_splice_p_p_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
21300 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21301 VTABLE_splice(interp, PREG(1), PREG(2), cur_opcode[3], IREG(4));
21302
21303 return (opcode_t *)cur_opcode + 5;}
21304
21305 opcode_t *
21306 Parrot_splice_p_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21307 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21308 VTABLE_splice(interp, PREG(1), PREG(2), IREG(3), cur_opcode[4]);
21309
21310 return (opcode_t *)cur_opcode + 5;}
21311
21312 opcode_t *
21313 Parrot_splice_p_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21314 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21315 VTABLE_splice(interp, PREG(1), PREG(2), cur_opcode[3], cur_opcode[4]);
21316
21317 return (opcode_t *)cur_opcode + 5;}
21318
21319 opcode_t *
21320 Parrot_setprop_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21321 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21322 VTABLE_setprop(interp, PREG(1), SREG(2), PREG(3));
21323
21324 return (opcode_t *)cur_opcode + 4;}
21325
21326 opcode_t *
21327 Parrot_setprop_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
21328 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21329 VTABLE_setprop(interp, PREG(1), CONST(2).u.string, PREG(3));
21330
21331 return (opcode_t *)cur_opcode + 4;}
21332
21333 opcode_t *
21334 Parrot_getprop_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21335 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21336 PREG(1) = VTABLE_getprop(interp, PREG(3), SREG(2));
21337
21338 return (opcode_t *)cur_opcode + 4;}
21339
21340 opcode_t *
21341 Parrot_getprop_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
21342 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21343 PREG(1) = VTABLE_getprop(interp, PREG(3), CONST(2).u.string);
21344
21345 return (opcode_t *)cur_opcode + 4;}
21346
21347 opcode_t *
21348 Parrot_delprop_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21349 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21350 VTABLE_delprop(interp, PREG(1), SREG(2));
21351
21352 return (opcode_t *)cur_opcode + 3;}
21353
21354 opcode_t *
21355 Parrot_delprop_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21356 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21357 VTABLE_delprop(interp, PREG(1), CONST(2).u.string);
21358
21359 return (opcode_t *)cur_opcode + 3;}
21360
21361 opcode_t *
21362 Parrot_prophash_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21363 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21364 PREG(1) = VTABLE_getprops(interp, PREG(2));
21365
21366 return (opcode_t *)cur_opcode + 3;}
21367
21368 opcode_t *
21369 Parrot_freeze_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21370 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21371 SREG(1) = Parrot_freeze(interp, PREG(2));
21372
21373 return (opcode_t *)cur_opcode + 3;}
21374
21375 opcode_t *
21376 Parrot_thaw_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21377 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21378 PREG(1) = Parrot_thaw(interp, SREG(2));
21379
21380 return (opcode_t *)cur_opcode + 3;}
21381
21382 opcode_t *
21383 Parrot_thaw_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21384 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21385 PREG(1) = Parrot_thaw(interp, CONST(2).u.string);
21386
21387 return (opcode_t *)cur_opcode + 3;}
21388
21389 opcode_t *
21390 Parrot_add_multi_s_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21391 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21392 Parrot_mmd_add_multi_from_long_sig(interp, SREG(1), SREG(2), PREG(3));
21393
21394 return (opcode_t *)cur_opcode + 4;}
21395
21396 opcode_t *
21397 Parrot_add_multi_sc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21398 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21399 Parrot_mmd_add_multi_from_long_sig(interp, CONST(1).u.string, SREG(2), PREG(3));
21400
21401 return (opcode_t *)cur_opcode + 4;}
21402
21403 opcode_t *
21404 Parrot_add_multi_s_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
21405 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21406 Parrot_mmd_add_multi_from_long_sig(interp, SREG(1), CONST(2).u.string, PREG(3));
21407
21408 return (opcode_t *)cur_opcode + 4;}
21409
21410 opcode_t *
21411 Parrot_add_multi_sc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
21412 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21413 Parrot_mmd_add_multi_from_long_sig(interp, CONST(1).u.string, CONST(2).u.string, PREG(3));
21414
21415 return (opcode_t *)cur_opcode + 4;}
21416
21417 opcode_t *
21418 Parrot_find_multi_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
21419 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21420 PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, SREG(2), SREG(3));
21421
21422 return (opcode_t *)cur_opcode + 4;}
21423
21424 opcode_t *
21425 Parrot_find_multi_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
21426 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21427 PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, CONST(2).u.string, SREG(3));
21428
21429 return (opcode_t *)cur_opcode + 4;}
21430
21431 opcode_t *
21432 Parrot_find_multi_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21433 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21434 PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, SREG(2), CONST(3).u.string);
21435
21436 return (opcode_t *)cur_opcode + 4;}
21437
21438 opcode_t *
21439 Parrot_find_multi_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21440 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21441 PREG(1) = Parrot_mmd_find_multi_from_long_sig(interp, CONST(2).u.string, CONST(3).u.string);
21442
21443 return (opcode_t *)cur_opcode + 4;}
21444
21445 opcode_t *
21446 Parrot_register_p(opcode_t *cur_opcode, PARROT_INTERP) {
21447 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21448 Parrot_pmc_gc_register(interp, PREG(1));
21449
21450 return (opcode_t *)cur_opcode + 2;}
21451
21452 opcode_t *
21453 Parrot_unregister_p(opcode_t *cur_opcode, PARROT_INTERP) {
21454 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21455 Parrot_pmc_gc_unregister(interp, PREG(1));
21456
21457 return (opcode_t *)cur_opcode + 2;}
21458
21459 opcode_t *
21460 Parrot_box_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
21461 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21462 PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
21463 VTABLE_set_integer_native(interp, PREG(1), IREG(2));
21464
21465 return (opcode_t *)cur_opcode + 3;}
21466
21467 opcode_t *
21468 Parrot_box_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21469 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21470 PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
21471 VTABLE_set_integer_native(interp, PREG(1), cur_opcode[2]);
21472
21473 return (opcode_t *)cur_opcode + 3;}
21474
21475 opcode_t *
21476 Parrot_box_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
21477 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21478 PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
21479 VTABLE_set_number_native(interp, PREG(1), NREG(2));
21480
21481 return (opcode_t *)cur_opcode + 3;}
21482
21483 opcode_t *
21484 Parrot_box_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21485 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21486 PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
21487 VTABLE_set_number_native(interp, PREG(1), CONST(2).u.number);
21488
21489 return (opcode_t *)cur_opcode + 3;}
21490
21491 opcode_t *
21492 Parrot_box_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21493 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21494 PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
21495 VTABLE_set_string_native(interp, PREG(1), SREG(2));
21496
21497 return (opcode_t *)cur_opcode + 3;}
21498
21499 opcode_t *
21500 Parrot_box_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21501 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21502 PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_String));
21503 VTABLE_set_string_native(interp, PREG(1), CONST(2).u.string);
21504
21505 return (opcode_t *)cur_opcode + 3;}
21506
21507 opcode_t *
21508 Parrot_iter_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21509 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21510 PREG(1) = VTABLE_get_iter(interp, PREG(2));
21511
21512 return (opcode_t *)cur_opcode + 3;}
21513
21514 opcode_t *
21515 Parrot_morph_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21516 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21517 VTABLE_morph(interp, PREG(1), PREG(2));
21518
21519 return (opcode_t *)cur_opcode + 3;}
21520
21521 opcode_t *
21522 Parrot_morph_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
21523 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21524 VTABLE_morph(interp, PREG(1), CONST(2).u.key);
21525
21526 return (opcode_t *)cur_opcode + 3;}
21527
21528 opcode_t *
21529 Parrot_clone_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
21530 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21531 /* cloning a NULL STRING produces an empty STRING; TT #964 */
21532 SREG(1) = STRING_IS_NULL(SREG(2))
21533 ? Parrot_str_new(interp, NULL, 0)
21534 : SREG(2);
21535
21536 return (opcode_t *)cur_opcode + 3;}
21537
21538 opcode_t *
21539 Parrot_clone_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21540 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21541 /* cloning a NULL STRING produces an empty STRING; TT #964 */
21542 SREG(1) = STRING_IS_NULL(CONST(2).u.string)
21543 ? Parrot_str_new(interp, NULL, 0)
21544 : CONST(2).u.string;
21545
21546 return (opcode_t *)cur_opcode + 3;}
21547
21548 opcode_t *
21549 Parrot_set_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
21550 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21551 IREG(1) = IREG(2);
21552
21553 return (opcode_t *)cur_opcode + 3;}
21554
21555 opcode_t *
21556 Parrot_set_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21557 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21558 IREG(1) = cur_opcode[2];
21559
21560 return (opcode_t *)cur_opcode + 3;}
21561
21562 opcode_t *
21563 Parrot_set_i_n(opcode_t *cur_opcode, PARROT_INTERP) {
21564 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21565 IREG(1) = (INTVAL)(NREG(2));
21566
21567 return (opcode_t *)cur_opcode + 3;}
21568
21569 opcode_t *
21570 Parrot_set_i_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21571 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21572 IREG(1) = (INTVAL)(CONST(2).u.number);
21573
21574 return (opcode_t *)cur_opcode + 3;}
21575
21576 opcode_t *
21577 Parrot_set_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
21578 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21579 IREG(1) = Parrot_str_to_int(interp, SREG(2));
21580
21581 return (opcode_t *)cur_opcode + 3;}
21582
21583 opcode_t *
21584 Parrot_set_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21585 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21586 IREG(1) = Parrot_str_to_int(interp, CONST(2).u.string);
21587
21588 return (opcode_t *)cur_opcode + 3;}
21589
21590 opcode_t *
21591 Parrot_set_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
21592 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21593 NREG(1) = NREG(2);
21594
21595 return (opcode_t *)cur_opcode + 3;}
21596
21597 opcode_t *
21598 Parrot_set_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21599 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21600 NREG(1) = CONST(2).u.number;
21601
21602 return (opcode_t *)cur_opcode + 3;}
21603
21604 opcode_t *
21605 Parrot_set_n_i(opcode_t *cur_opcode, PARROT_INTERP) {
21606 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21607 NREG(1) = (FLOATVAL)IREG(2);
21608
21609 return (opcode_t *)cur_opcode + 3;}
21610
21611 opcode_t *
21612 Parrot_set_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21613 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21614 NREG(1) = (FLOATVAL)cur_opcode[2];
21615
21616 return (opcode_t *)cur_opcode + 3;}
21617
21618 opcode_t *
21619 Parrot_set_n_s(opcode_t *cur_opcode, PARROT_INTERP) {
21620 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21621 NREG(1) = Parrot_str_to_num(interp, SREG(2));
21622
21623 return (opcode_t *)cur_opcode + 3;}
21624
21625 opcode_t *
21626 Parrot_set_n_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21627 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21628 NREG(1) = Parrot_str_to_num(interp, CONST(2).u.string);
21629
21630 return (opcode_t *)cur_opcode + 3;}
21631
21632 opcode_t *
21633 Parrot_set_n_p(opcode_t *cur_opcode, PARROT_INTERP) {
21634 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21635 NREG(1) = VTABLE_get_number(interp, PREG(2));
21636
21637 return (opcode_t *)cur_opcode + 3;}
21638
21639 opcode_t *
21640 Parrot_set_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
21641 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21642 SREG(1) = VTABLE_get_string(interp, PREG(2));
21643
21644 return (opcode_t *)cur_opcode + 3;}
21645
21646 opcode_t *
21647 Parrot_set_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
21648 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21649 SREG(1) = SREG(2);
21650
21651 return (opcode_t *)cur_opcode + 3;}
21652
21653 opcode_t *
21654 Parrot_set_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21655 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21656 SREG(1) = CONST(2).u.string;
21657
21658 return (opcode_t *)cur_opcode + 3;}
21659
21660 opcode_t *
21661 Parrot_set_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
21662 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21663 SREG(1) = Parrot_str_from_int(interp, IREG(2));
21664
21665 return (opcode_t *)cur_opcode + 3;}
21666
21667 opcode_t *
21668 Parrot_set_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21669 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21670 SREG(1) = Parrot_str_from_int(interp, cur_opcode[2]);
21671
21672 return (opcode_t *)cur_opcode + 3;}
21673
21674 opcode_t *
21675 Parrot_set_s_n(opcode_t *cur_opcode, PARROT_INTERP) {
21676 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21677 SREG(1) = Parrot_str_from_num(interp, NREG(2));
21678
21679 return (opcode_t *)cur_opcode + 3;}
21680
21681 opcode_t *
21682 Parrot_set_s_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21683 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21684 SREG(1) = Parrot_str_from_num(interp, CONST(2).u.number);
21685
21686 return (opcode_t *)cur_opcode + 3;}
21687
21688 opcode_t *
21689 Parrot_set_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
21690 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21691 PREG(1) = CONST(2).u.key;
21692
21693 return (opcode_t *)cur_opcode + 3;}
21694
21695 opcode_t *
21696 Parrot_set_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21697 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21698 PREG(1) = PREG(2);
21699
21700 return (opcode_t *)cur_opcode + 3;}
21701
21702 opcode_t *
21703 Parrot_set_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
21704 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21705 VTABLE_set_integer_native(interp, PREG(1), IREG(2));
21706
21707 return (opcode_t *)cur_opcode + 3;}
21708
21709 opcode_t *
21710 Parrot_set_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21711 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21712 VTABLE_set_integer_native(interp, PREG(1), cur_opcode[2]);
21713
21714 return (opcode_t *)cur_opcode + 3;}
21715
21716 opcode_t *
21717 Parrot_set_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
21718 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21719 VTABLE_set_number_native(interp, PREG(1), NREG(2));
21720
21721 return (opcode_t *)cur_opcode + 3;}
21722
21723 opcode_t *
21724 Parrot_set_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21725 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21726 VTABLE_set_number_native(interp, PREG(1), CONST(2).u.number);
21727
21728 return (opcode_t *)cur_opcode + 3;}
21729
21730 opcode_t *
21731 Parrot_set_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21732 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21733 VTABLE_set_string_native(interp, PREG(1), SREG(2));
21734
21735 return (opcode_t *)cur_opcode + 3;}
21736
21737 opcode_t *
21738 Parrot_set_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21739 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21740 VTABLE_set_string_native(interp, PREG(1), CONST(2).u.string);
21741
21742 return (opcode_t *)cur_opcode + 3;}
21743
21744 opcode_t *
21745 Parrot_set_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
21746 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21747 IREG(1) = VTABLE_get_integer(interp, PREG(2));
21748
21749 return (opcode_t *)cur_opcode + 3;}
21750
21751 opcode_t *
21752 Parrot_assign_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21753 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21754 VTABLE_assign_pmc(interp, PREG(1), PREG(2));
21755
21756 return (opcode_t *)cur_opcode + 3;}
21757
21758 opcode_t *
21759 Parrot_assign_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
21760 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21761 VTABLE_set_integer_native(interp, PREG(1), IREG(2));
21762
21763 return (opcode_t *)cur_opcode + 3;}
21764
21765 opcode_t *
21766 Parrot_assign_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21767 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21768 VTABLE_set_integer_native(interp, PREG(1), cur_opcode[2]);
21769
21770 return (opcode_t *)cur_opcode + 3;}
21771
21772 opcode_t *
21773 Parrot_assign_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
21774 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21775 VTABLE_set_number_native(interp, PREG(1), NREG(2));
21776
21777 return (opcode_t *)cur_opcode + 3;}
21778
21779 opcode_t *
21780 Parrot_assign_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21781 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21782 VTABLE_set_number_native(interp, PREG(1), CONST(2).u.number);
21783
21784 return (opcode_t *)cur_opcode + 3;}
21785
21786 opcode_t *
21787 Parrot_assign_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
21788 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21789 VTABLE_assign_string_native(interp, PREG(1), SREG(2));
21790
21791 return (opcode_t *)cur_opcode + 3;}
21792
21793 opcode_t *
21794 Parrot_assign_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21795 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21796 VTABLE_assign_string_native(interp, PREG(1), CONST(2).u.string);
21797
21798 return (opcode_t *)cur_opcode + 3;}
21799
21800 opcode_t *
21801 Parrot_assign_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
21802 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21803 SREG(1) = SREG(2);
21804
21805 return (opcode_t *)cur_opcode + 3;}
21806
21807 opcode_t *
21808 Parrot_assign_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21809 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21810 SREG(1) = CONST(2).u.string;
21811
21812 return (opcode_t *)cur_opcode + 3;}
21813
21814 opcode_t *
21815 Parrot_setref_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21816 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21817 VTABLE_set_pmc(interp, PREG(1), PREG(2));
21818
21819 return (opcode_t *)cur_opcode + 3;}
21820
21821 opcode_t *
21822 Parrot_deref_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
21823 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21824 PREG(1) = VTABLE_get_pmc(interp, PREG(2));
21825
21826 return (opcode_t *)cur_opcode + 3;}
21827
21828 opcode_t *
21829 Parrot_set_p_ki_i(opcode_t *cur_opcode, PARROT_INTERP) {
21830 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21831 VTABLE_set_integer_keyed_int(interp, PREG(1), IREG(2), IREG(3));
21832
21833 return (opcode_t *)cur_opcode + 4;}
21834
21835 opcode_t *
21836 Parrot_set_p_kic_i(opcode_t *cur_opcode, PARROT_INTERP) {
21837 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21838 VTABLE_set_integer_keyed_int(interp, PREG(1), cur_opcode[2], IREG(3));
21839
21840 return (opcode_t *)cur_opcode + 4;}
21841
21842 opcode_t *
21843 Parrot_set_p_ki_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21844 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21845 VTABLE_set_integer_keyed_int(interp, PREG(1), IREG(2), cur_opcode[3]);
21846
21847 return (opcode_t *)cur_opcode + 4;}
21848
21849 opcode_t *
21850 Parrot_set_p_kic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21851 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21852 VTABLE_set_integer_keyed_int(interp, PREG(1), cur_opcode[2], cur_opcode[3]);
21853
21854 return (opcode_t *)cur_opcode + 4;}
21855
21856 opcode_t *
21857 Parrot_set_p_ki_n(opcode_t *cur_opcode, PARROT_INTERP) {
21858 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21859 VTABLE_set_number_keyed_int(interp, PREG(1), IREG(2), NREG(3));
21860
21861 return (opcode_t *)cur_opcode + 4;}
21862
21863 opcode_t *
21864 Parrot_set_p_kic_n(opcode_t *cur_opcode, PARROT_INTERP) {
21865 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21866 VTABLE_set_number_keyed_int(interp, PREG(1), cur_opcode[2], NREG(3));
21867
21868 return (opcode_t *)cur_opcode + 4;}
21869
21870 opcode_t *
21871 Parrot_set_p_ki_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21872 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21873 VTABLE_set_number_keyed_int(interp, PREG(1), IREG(2), CONST(3).u.number);
21874
21875 return (opcode_t *)cur_opcode + 4;}
21876
21877 opcode_t *
21878 Parrot_set_p_kic_nc(opcode_t *cur_opcode, PARROT_INTERP) {
21879 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21880 VTABLE_set_number_keyed_int(interp, PREG(1), cur_opcode[2], CONST(3).u.number);
21881
21882 return (opcode_t *)cur_opcode + 4;}
21883
21884 opcode_t *
21885 Parrot_set_p_ki_s(opcode_t *cur_opcode, PARROT_INTERP) {
21886 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21887 VTABLE_set_string_keyed_int(interp, PREG(1), IREG(2), SREG(3));
21888
21889 return (opcode_t *)cur_opcode + 4;}
21890
21891 opcode_t *
21892 Parrot_set_p_kic_s(opcode_t *cur_opcode, PARROT_INTERP) {
21893 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21894 VTABLE_set_string_keyed_int(interp, PREG(1), cur_opcode[2], SREG(3));
21895
21896 return (opcode_t *)cur_opcode + 4;}
21897
21898 opcode_t *
21899 Parrot_set_p_ki_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21900 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21901 VTABLE_set_string_keyed_int(interp, PREG(1), IREG(2), CONST(3).u.string);
21902
21903 return (opcode_t *)cur_opcode + 4;}
21904
21905 opcode_t *
21906 Parrot_set_p_kic_sc(opcode_t *cur_opcode, PARROT_INTERP) {
21907 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21908 VTABLE_set_string_keyed_int(interp, PREG(1), cur_opcode[2], CONST(3).u.string);
21909
21910 return (opcode_t *)cur_opcode + 4;}
21911
21912 opcode_t *
21913 Parrot_set_p_ki_p(opcode_t *cur_opcode, PARROT_INTERP) {
21914 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21915 VTABLE_set_pmc_keyed_int(interp, PREG(1), IREG(2), PREG(3));
21916
21917 return (opcode_t *)cur_opcode + 4;}
21918
21919 opcode_t *
21920 Parrot_set_p_kic_p(opcode_t *cur_opcode, PARROT_INTERP) {
21921 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21922 VTABLE_set_pmc_keyed_int(interp, PREG(1), cur_opcode[2], PREG(3));
21923
21924 return (opcode_t *)cur_opcode + 4;}
21925
21926 opcode_t *
21927 Parrot_set_i_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21928 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21929 IREG(1) = VTABLE_get_integer_keyed_int(interp, PREG(2), IREG(3));
21930
21931 return (opcode_t *)cur_opcode + 4;}
21932
21933 opcode_t *
21934 Parrot_set_i_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21935 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21936 IREG(1) = VTABLE_get_integer_keyed_int(interp, PREG(2), cur_opcode[3]);
21937
21938 return (opcode_t *)cur_opcode + 4;}
21939
21940 opcode_t *
21941 Parrot_set_n_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21942 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21943 NREG(1) = VTABLE_get_number_keyed_int(interp, PREG(2), IREG(3));
21944
21945 return (opcode_t *)cur_opcode + 4;}
21946
21947 opcode_t *
21948 Parrot_set_n_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21949 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21950 NREG(1) = VTABLE_get_number_keyed_int(interp, PREG(2), cur_opcode[3]);
21951
21952 return (opcode_t *)cur_opcode + 4;}
21953
21954 opcode_t *
21955 Parrot_set_s_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21956 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21957 SREG(1) = VTABLE_get_string_keyed_int(interp, PREG(2), IREG(3));
21958
21959 return (opcode_t *)cur_opcode + 4;}
21960
21961 opcode_t *
21962 Parrot_set_s_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21963 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21964 SREG(1) = VTABLE_get_string_keyed_int(interp, PREG(2), cur_opcode[3]);
21965
21966 return (opcode_t *)cur_opcode + 4;}
21967
21968 opcode_t *
21969 Parrot_set_p_p_ki(opcode_t *cur_opcode, PARROT_INTERP) {
21970 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21971 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
21972
21973 return (opcode_t *)cur_opcode + 4;}
21974
21975 opcode_t *
21976 Parrot_set_p_p_kic(opcode_t *cur_opcode, PARROT_INTERP) {
21977 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21978 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
21979
21980 return (opcode_t *)cur_opcode + 4;}
21981
21982 opcode_t *
21983 Parrot_set_p_k_i(opcode_t *cur_opcode, PARROT_INTERP) {
21984 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21985 VTABLE_set_integer_keyed(interp, PREG(1), PREG(2), IREG(3));
21986
21987 return (opcode_t *)cur_opcode + 4;}
21988
21989 opcode_t *
21990 Parrot_set_p_kc_i(opcode_t *cur_opcode, PARROT_INTERP) {
21991 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21992 VTABLE_set_integer_keyed(interp, PREG(1), CONST(2).u.key, IREG(3));
21993
21994 return (opcode_t *)cur_opcode + 4;}
21995
21996 opcode_t *
21997 Parrot_set_p_k_ic(opcode_t *cur_opcode, PARROT_INTERP) {
21998 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
21999 VTABLE_set_integer_keyed(interp, PREG(1), PREG(2), cur_opcode[3]);
22000
22001 return (opcode_t *)cur_opcode + 4;}
22002
22003 opcode_t *
22004 Parrot_set_p_kc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22005 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22006 VTABLE_set_integer_keyed(interp, PREG(1), CONST(2).u.key, cur_opcode[3]);
22007
22008 return (opcode_t *)cur_opcode + 4;}
22009
22010 opcode_t *
22011 Parrot_set_p_k_n(opcode_t *cur_opcode, PARROT_INTERP) {
22012 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22013 VTABLE_set_number_keyed(interp, PREG(1), PREG(2), NREG(3));
22014
22015 return (opcode_t *)cur_opcode + 4;}
22016
22017 opcode_t *
22018 Parrot_set_p_kc_n(opcode_t *cur_opcode, PARROT_INTERP) {
22019 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22020 VTABLE_set_number_keyed(interp, PREG(1), CONST(2).u.key, NREG(3));
22021
22022 return (opcode_t *)cur_opcode + 4;}
22023
22024 opcode_t *
22025 Parrot_set_p_k_nc(opcode_t *cur_opcode, PARROT_INTERP) {
22026 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22027 VTABLE_set_number_keyed(interp, PREG(1), PREG(2), CONST(3).u.number);
22028
22029 return (opcode_t *)cur_opcode + 4;}
22030
22031 opcode_t *
22032 Parrot_set_p_kc_nc(opcode_t *cur_opcode, PARROT_INTERP) {
22033 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22034 VTABLE_set_number_keyed(interp, PREG(1), CONST(2).u.key, CONST(3).u.number);
22035
22036 return (opcode_t *)cur_opcode + 4;}
22037
22038 opcode_t *
22039 Parrot_set_p_k_s(opcode_t *cur_opcode, PARROT_INTERP) {
22040 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22041 VTABLE_set_string_keyed(interp, PREG(1), PREG(2), SREG(3));
22042
22043 return (opcode_t *)cur_opcode + 4;}
22044
22045 opcode_t *
22046 Parrot_set_p_kc_s(opcode_t *cur_opcode, PARROT_INTERP) {
22047 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22048 VTABLE_set_string_keyed(interp, PREG(1), CONST(2).u.key, SREG(3));
22049
22050 return (opcode_t *)cur_opcode + 4;}
22051
22052 opcode_t *
22053 Parrot_set_p_k_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22054 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22055 VTABLE_set_string_keyed(interp, PREG(1), PREG(2), CONST(3).u.string);
22056
22057 return (opcode_t *)cur_opcode + 4;}
22058
22059 opcode_t *
22060 Parrot_set_p_kc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22061 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22062 VTABLE_set_string_keyed(interp, PREG(1), CONST(2).u.key, CONST(3).u.string);
22063
22064 return (opcode_t *)cur_opcode + 4;}
22065
22066 opcode_t *
22067 Parrot_set_p_k_p(opcode_t *cur_opcode, PARROT_INTERP) {
22068 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22069 VTABLE_set_pmc_keyed(interp, PREG(1), PREG(2), PREG(3));
22070
22071 return (opcode_t *)cur_opcode + 4;}
22072
22073 opcode_t *
22074 Parrot_set_p_kc_p(opcode_t *cur_opcode, PARROT_INTERP) {
22075 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22076 VTABLE_set_pmc_keyed(interp, PREG(1), CONST(2).u.key, PREG(3));
22077
22078 return (opcode_t *)cur_opcode + 4;}
22079
22080 opcode_t *
22081 Parrot_set_i_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
22082 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22083 IREG(1) = VTABLE_get_integer_keyed(interp, PREG(2), PREG(3));
22084
22085 return (opcode_t *)cur_opcode + 4;}
22086
22087 opcode_t *
22088 Parrot_set_i_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
22089 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22090 IREG(1) = VTABLE_get_integer_keyed(interp, PREG(2), CONST(3).u.key);
22091
22092 return (opcode_t *)cur_opcode + 4;}
22093
22094 opcode_t *
22095 Parrot_set_n_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
22096 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22097 NREG(1) = VTABLE_get_number_keyed(interp, PREG(2), PREG(3));
22098
22099 return (opcode_t *)cur_opcode + 4;}
22100
22101 opcode_t *
22102 Parrot_set_n_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
22103 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22104 NREG(1) = VTABLE_get_number_keyed(interp, PREG(2), CONST(3).u.key);
22105
22106 return (opcode_t *)cur_opcode + 4;}
22107
22108 opcode_t *
22109 Parrot_set_s_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
22110 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22111 SREG(1) = VTABLE_get_string_keyed(interp, PREG(2), PREG(3));
22112
22113 return (opcode_t *)cur_opcode + 4;}
22114
22115 opcode_t *
22116 Parrot_set_s_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
22117 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22118 SREG(1) = VTABLE_get_string_keyed(interp, PREG(2), CONST(3).u.key);
22119
22120 return (opcode_t *)cur_opcode + 4;}
22121
22122 opcode_t *
22123 Parrot_set_p_p_k(opcode_t *cur_opcode, PARROT_INTERP) {
22124 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22125 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
22126
22127 return (opcode_t *)cur_opcode + 4;}
22128
22129 opcode_t *
22130 Parrot_set_p_p_kc(opcode_t *cur_opcode, PARROT_INTERP) {
22131 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22132 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3).u.key);
22133
22134 return (opcode_t *)cur_opcode + 4;}
22135
22136 opcode_t *
22137 Parrot_clone_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22138 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22139 PREG(1) = VTABLE_clone(interp, PREG(2));
22140
22141 return (opcode_t *)cur_opcode + 3;}
22142
22143 opcode_t *
22144 Parrot_clone_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22145 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22146 PREG(1) = VTABLE_clone_pmc(interp, PREG(2), PREG(3));
22147
22148 return (opcode_t *)cur_opcode + 4;}
22149
22150 opcode_t *
22151 Parrot_clone_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
22152 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22153 PREG(1) = VTABLE_clone_pmc(interp, PREG(2), CONST(3).u.key);
22154
22155 return (opcode_t *)cur_opcode + 4;}
22156
22157 opcode_t *
22158 Parrot_copy_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22159 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22160 if (PMC_IS_NULL(PREG(1))) {
22161 opcode_t * const dest = cur_opcode + 3;
22162 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
22163 EXCEPTION_NULL_REG_ACCESS, "Null PMC in copy");return (opcode_t *)handler;
22164 }
22165 else {
22166 PMC * const clone = VTABLE_clone(interp, PREG(2));
22167 /* Preserve the metadata on the destination. */
22168 PMC * const meta = VTABLE_getprops(interp, PREG(1));
22169
22170 /* avoid leaks and unreachable memory by destroying the destination PMC */
22171 Parrot_pmc_destroy(interp, PREG(1));
22172
22173 /* the source PMC knows how to clone itself, but we must reuse the
22174 * destination header */
22175 memmove(PREG(1), clone, sizeof (PMC));
22176
22177 /* don't let the clone's destruction destroy the destination's data */
22178 PObj_custom_destroy_CLEAR(clone);
22179 PMC_data(clone) = NULL;
22180 PMC_metadata(clone) = NULL;
22181
22182 /* Restore metadata. */
22183 if (!PMC_IS_NULL(meta)) {
22184 PMC * const iter = VTABLE_get_iter(interp, meta);
22185 while (VTABLE_get_bool(interp, iter)) {
22186 STRING * const key = VTABLE_shift_string(interp, iter);
22187 PMC * const value = VTABLE_get_pmc_keyed_str(interp, meta, key);
22188 VTABLE_setprop(interp, PREG(1), key, value);
22189 }
22190 }
22191 }
22192
22193 return (opcode_t *)cur_opcode + 3;}
22194
22195 opcode_t *
22196 Parrot_null_s(opcode_t *cur_opcode, PARROT_INTERP) {
22197 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22198 SREG(1) = STRINGNULL;
22199
22200 return (opcode_t *)cur_opcode + 2;}
22201
22202 opcode_t *
22203 Parrot_null_i(opcode_t *cur_opcode, PARROT_INTERP) {
22204 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22205 IREG(1) = 0;
22206
22207 return (opcode_t *)cur_opcode + 2;}
22208
22209 opcode_t *
22210 Parrot_null_p(opcode_t *cur_opcode, PARROT_INTERP) {
22211 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22212 PREG(1) = PMCNULL;
22213
22214 return (opcode_t *)cur_opcode + 2;}
22215
22216 opcode_t *
22217 Parrot_null_n(opcode_t *cur_opcode, PARROT_INTERP) {
22218 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22219 NREG(1) = 0;
22220
22221 return (opcode_t *)cur_opcode + 2;}
22222
22223 opcode_t *
22224 Parrot_ord_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22225 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22226 IREG(1) = string_ord(interp, SREG(2), 0);
22227
22228 return (opcode_t *)cur_opcode + 3;}
22229
22230 opcode_t *
22231 Parrot_ord_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22232 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22233 IREG(1) = string_ord(interp, CONST(2).u.string, 0);
22234
22235 return (opcode_t *)cur_opcode + 3;}
22236
22237 opcode_t *
22238 Parrot_ord_i_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22239 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22240 IREG(1) = string_ord(interp, SREG(2), IREG(3));
22241
22242 return (opcode_t *)cur_opcode + 4;}
22243
22244 opcode_t *
22245 Parrot_ord_i_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22246 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22247 IREG(1) = string_ord(interp, CONST(2).u.string, IREG(3));
22248
22249 return (opcode_t *)cur_opcode + 4;}
22250
22251 opcode_t *
22252 Parrot_ord_i_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22253 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22254 IREG(1) = string_ord(interp, SREG(2), cur_opcode[3]);
22255
22256 return (opcode_t *)cur_opcode + 4;}
22257
22258 opcode_t *
22259 Parrot_ord_i_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22260 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22261 IREG(1) = string_ord(interp, CONST(2).u.string, cur_opcode[3]);
22262
22263 return (opcode_t *)cur_opcode + 4;}
22264
22265 opcode_t *
22266 Parrot_chr_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22267 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22268 STRING * const s = string_chr(interp, (UINTVAL)IREG(2));
22269 SREG(1) = s;
22270
22271 return (opcode_t *)cur_opcode + 3;}
22272
22273 opcode_t *
22274 Parrot_chr_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22275 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22276 STRING * const s = string_chr(interp, (UINTVAL)cur_opcode[2]);
22277 SREG(1) = s;
22278
22279 return (opcode_t *)cur_opcode + 3;}
22280
22281 opcode_t *
22282 Parrot_chopn_s_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22283 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22284 SREG(1) = Parrot_str_chopn(interp, SREG(2), IREG(3));
22285
22286 return (opcode_t *)cur_opcode + 4;}
22287
22288 opcode_t *
22289 Parrot_chopn_s_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22290 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22291 SREG(1) = Parrot_str_chopn(interp, CONST(2).u.string, IREG(3));
22292
22293 return (opcode_t *)cur_opcode + 4;}
22294
22295 opcode_t *
22296 Parrot_chopn_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22297 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22298 SREG(1) = Parrot_str_chopn(interp, SREG(2), cur_opcode[3]);
22299
22300 return (opcode_t *)cur_opcode + 4;}
22301
22302 opcode_t *
22303 Parrot_chopn_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22304 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22305 SREG(1) = Parrot_str_chopn(interp, CONST(2).u.string, cur_opcode[3]);
22306
22307 return (opcode_t *)cur_opcode + 4;}
22308
22309 opcode_t *
22310 Parrot_concat_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
22311 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22312 SREG(1) = Parrot_str_concat(interp, SREG(1), SREG(2));
22313
22314 return (opcode_t *)cur_opcode + 3;}
22315
22316 opcode_t *
22317 Parrot_concat_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22318 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22319 SREG(1) = Parrot_str_concat(interp, SREG(1), CONST(2).u.string);
22320
22321 return (opcode_t *)cur_opcode + 3;}
22322
22323 opcode_t *
22324 Parrot_concat_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22325 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22326 VTABLE_i_concatenate(interp, PREG(1), PREG(2));
22327
22328 return (opcode_t *)cur_opcode + 3;}
22329
22330 opcode_t *
22331 Parrot_concat_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
22332 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22333 VTABLE_i_concatenate_str(interp, PREG(1), SREG(2));
22334
22335 return (opcode_t *)cur_opcode + 3;}
22336
22337 opcode_t *
22338 Parrot_concat_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22339 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22340 VTABLE_i_concatenate_str(interp, PREG(1), CONST(2).u.string);
22341
22342 return (opcode_t *)cur_opcode + 3;}
22343
22344 opcode_t *
22345 Parrot_concat_s_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
22346 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22347 SREG(1) = Parrot_str_concat(interp, SREG(2), SREG(3));
22348
22349 return (opcode_t *)cur_opcode + 4;}
22350
22351 opcode_t *
22352 Parrot_concat_s_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
22353 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22354 SREG(1) = Parrot_str_concat(interp, CONST(2).u.string, SREG(3));
22355
22356 return (opcode_t *)cur_opcode + 4;}
22357
22358 opcode_t *
22359 Parrot_concat_s_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22360 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22361 SREG(1) = Parrot_str_concat(interp, SREG(2), CONST(3).u.string);
22362
22363 return (opcode_t *)cur_opcode + 4;}
22364
22365 opcode_t *
22366 Parrot_concat_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
22367 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22368 PREG(1) = VTABLE_concatenate_str(interp, PREG(2), SREG(3), PREG(1));
22369
22370 return (opcode_t *)cur_opcode + 4;}
22371
22372 opcode_t *
22373 Parrot_concat_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22374 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22375 PREG(1) = VTABLE_concatenate_str(interp, PREG(2), CONST(3).u.string, PREG(1));
22376
22377 return (opcode_t *)cur_opcode + 4;}
22378
22379 opcode_t *
22380 Parrot_concat_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22381 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22382 PREG(1) = VTABLE_concatenate(interp, PREG(2), PREG(3), PREG(1));
22383
22384 return (opcode_t *)cur_opcode + 4;}
22385
22386 opcode_t *
22387 Parrot_repeat_s_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22388 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22389 if (IREG(3) < 0) {
22390 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22391 EXCEPTION_NEG_REPEAT,
22392 "Cannot repeat with negative arg");return (opcode_t *)handler;
22393 }
22394 SREG(1) = Parrot_str_repeat(interp, SREG(2), (UINTVAL)IREG(3));
22395
22396 return (opcode_t *)cur_opcode + 4;}
22397
22398 opcode_t *
22399 Parrot_repeat_s_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22400 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22401 if (IREG(3) < 0) {
22402 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22403 EXCEPTION_NEG_REPEAT,
22404 "Cannot repeat with negative arg");return (opcode_t *)handler;
22405 }
22406 SREG(1) = Parrot_str_repeat(interp, CONST(2).u.string, (UINTVAL)IREG(3));
22407
22408 return (opcode_t *)cur_opcode + 4;}
22409
22410 opcode_t *
22411 Parrot_repeat_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22412 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22413 if (cur_opcode[3] < 0) {
22414 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22415 EXCEPTION_NEG_REPEAT,
22416 "Cannot repeat with negative arg");return (opcode_t *)handler;
22417 }
22418 SREG(1) = Parrot_str_repeat(interp, SREG(2), (UINTVAL)cur_opcode[3]);
22419
22420 return (opcode_t *)cur_opcode + 4;}
22421
22422 opcode_t *
22423 Parrot_repeat_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22424 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22425 if (cur_opcode[3] < 0) {
22426 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22427 EXCEPTION_NEG_REPEAT,
22428 "Cannot repeat with negative arg");return (opcode_t *)handler;
22429 }
22430 SREG(1) = Parrot_str_repeat(interp, CONST(2).u.string, (UINTVAL)cur_opcode[3]);
22431
22432 return (opcode_t *)cur_opcode + 4;}
22433
22434 opcode_t *
22435 Parrot_repeat_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
22436 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22437 if (IREG(3) < 0) {
22438 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22439 EXCEPTION_NEG_REPEAT,
22440 "Cannot repeat with negative arg");return (opcode_t *)handler;
22441 }
22442 PREG(1) = VTABLE_repeat_int(interp, PREG(2), IREG(3), PREG(1));
22443
22444 return (opcode_t *)cur_opcode + 4;}
22445
22446 opcode_t *
22447 Parrot_repeat_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22448 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22449 if (cur_opcode[3] < 0) {
22450 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22451 EXCEPTION_NEG_REPEAT,
22452 "Cannot repeat with negative arg");return (opcode_t *)handler;
22453 }
22454 PREG(1) = VTABLE_repeat_int(interp, PREG(2), cur_opcode[3], PREG(1));
22455
22456 return (opcode_t *)cur_opcode + 4;}
22457
22458 opcode_t *
22459 Parrot_repeat_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22460 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22461 if (VTABLE_get_integer(interp, PREG(3)) < 0) {
22462 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22463 EXCEPTION_NEG_REPEAT,
22464 "Cannot repeat with negative arg");return (opcode_t *)handler;
22465 }
22466 PREG(1) = VTABLE_repeat(interp, PREG(2), PREG(3), PREG(1));
22467
22468 return (opcode_t *)cur_opcode + 4;}
22469
22470 opcode_t *
22471 Parrot_repeat_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
22472 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22473 VTABLE_i_repeat_int(interp, PREG(1), IREG(2));
22474
22475 return (opcode_t *)cur_opcode + 3;}
22476
22477 opcode_t *
22478 Parrot_repeat_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22479 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22480 VTABLE_i_repeat_int(interp, PREG(1), cur_opcode[2]);
22481
22482 return (opcode_t *)cur_opcode + 3;}
22483
22484 opcode_t *
22485 Parrot_repeat_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22486 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22487 VTABLE_i_repeat(interp, PREG(1), PREG(2));
22488
22489 return (opcode_t *)cur_opcode + 3;}
22490
22491 opcode_t *
22492 Parrot_length_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22493 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22494 IREG(1) = Parrot_str_length(interp, SREG(2));
22495
22496 return (opcode_t *)cur_opcode + 3;}
22497
22498 opcode_t *
22499 Parrot_length_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22500 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22501 IREG(1) = Parrot_str_length(interp, CONST(2).u.string);
22502
22503 return (opcode_t *)cur_opcode + 3;}
22504
22505 opcode_t *
22506 Parrot_bytelength_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22507 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22508 IREG(1) = Parrot_str_byte_length(interp, SREG(2));
22509
22510 return (opcode_t *)cur_opcode + 3;}
22511
22512 opcode_t *
22513 Parrot_bytelength_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22514 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22515 IREG(1) = Parrot_str_byte_length(interp, CONST(2).u.string);
22516
22517 return (opcode_t *)cur_opcode + 3;}
22518
22519 opcode_t *
22520 Parrot_pin_s(opcode_t *cur_opcode, PARROT_INTERP) {
22521 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22522 Parrot_str_pin(interp, SREG(1));
22523
22524 return (opcode_t *)cur_opcode + 2;}
22525
22526 opcode_t *
22527 Parrot_unpin_s(opcode_t *cur_opcode, PARROT_INTERP) {
22528 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22529 Parrot_str_unpin(interp, SREG(1));
22530
22531 return (opcode_t *)cur_opcode + 2;}
22532
22533 opcode_t *
22534 Parrot_substr_s_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22535 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22536 const INTVAL len = Parrot_str_byte_length(interp, SREG(2));
22537 SREG(1) = Parrot_str_substr(interp, SREG(2), IREG(3), len);
22538
22539 return (opcode_t *)cur_opcode + 4;}
22540
22541 opcode_t *
22542 Parrot_substr_s_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22543 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22544 const INTVAL len = Parrot_str_byte_length(interp, CONST(2).u.string);
22545 SREG(1) = Parrot_str_substr(interp, CONST(2).u.string, IREG(3), len);
22546
22547 return (opcode_t *)cur_opcode + 4;}
22548
22549 opcode_t *
22550 Parrot_substr_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22551 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22552 const INTVAL len = Parrot_str_byte_length(interp, SREG(2));
22553 SREG(1) = Parrot_str_substr(interp, SREG(2), cur_opcode[3], len);
22554
22555 return (opcode_t *)cur_opcode + 4;}
22556
22557 opcode_t *
22558 Parrot_substr_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22559 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22560 const INTVAL len = Parrot_str_byte_length(interp, CONST(2).u.string);
22561 SREG(1) = Parrot_str_substr(interp, CONST(2).u.string, cur_opcode[3], len);
22562
22563 return (opcode_t *)cur_opcode + 4;}
22564
22565 opcode_t *
22566 Parrot_substr_s_s_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
22567 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22568 SREG(1) = Parrot_str_substr(interp, SREG(2), IREG(3), IREG(4));
22569
22570 return (opcode_t *)cur_opcode + 5;}
22571
22572 opcode_t *
22573 Parrot_substr_s_sc_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
22574 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22575 SREG(1) = Parrot_str_substr(interp, CONST(2).u.string, IREG(3), IREG(4));
22576
22577 return (opcode_t *)cur_opcode + 5;}
22578
22579 opcode_t *
22580 Parrot_substr_s_s_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
22581 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22582 SREG(1) = Parrot_str_substr(interp, SREG(2), cur_opcode[3], IREG(4));
22583
22584 return (opcode_t *)cur_opcode + 5;}
22585
22586 opcode_t *
22587 Parrot_substr_s_sc_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
22588 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22589 SREG(1) = Parrot_str_substr(interp, CONST(2).u.string, cur_opcode[3], IREG(4));
22590
22591 return (opcode_t *)cur_opcode + 5;}
22592
22593 opcode_t *
22594 Parrot_substr_s_s_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22595 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22596 SREG(1) = Parrot_str_substr(interp, SREG(2), IREG(3), cur_opcode[4]);
22597
22598 return (opcode_t *)cur_opcode + 5;}
22599
22600 opcode_t *
22601 Parrot_substr_s_sc_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22602 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22603 SREG(1) = Parrot_str_substr(interp, CONST(2).u.string, IREG(3), cur_opcode[4]);
22604
22605 return (opcode_t *)cur_opcode + 5;}
22606
22607 opcode_t *
22608 Parrot_substr_s_s_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22609 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22610 SREG(1) = Parrot_str_substr(interp, SREG(2), cur_opcode[3], cur_opcode[4]);
22611
22612 return (opcode_t *)cur_opcode + 5;}
22613
22614 opcode_t *
22615 Parrot_substr_s_sc_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22616 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22617 SREG(1) = Parrot_str_substr(interp, CONST(2).u.string, cur_opcode[3], cur_opcode[4]);
22618
22619 return (opcode_t *)cur_opcode + 5;}
22620
22621 opcode_t *
22622 Parrot_substr_s_p_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
22623 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22624 SREG(1) = VTABLE_substr_str(interp, PREG(2), IREG(3), IREG(4));
22625
22626 return (opcode_t *)cur_opcode + 5;}
22627
22628 opcode_t *
22629 Parrot_substr_s_p_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
22630 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22631 SREG(1) = VTABLE_substr_str(interp, PREG(2), cur_opcode[3], IREG(4));
22632
22633 return (opcode_t *)cur_opcode + 5;}
22634
22635 opcode_t *
22636 Parrot_substr_s_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22637 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22638 SREG(1) = VTABLE_substr_str(interp, PREG(2), IREG(3), cur_opcode[4]);
22639
22640 return (opcode_t *)cur_opcode + 5;}
22641
22642 opcode_t *
22643 Parrot_substr_s_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22644 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22645 SREG(1) = VTABLE_substr_str(interp, PREG(2), cur_opcode[3], cur_opcode[4]);
22646
22647 return (opcode_t *)cur_opcode + 5;}
22648
22649 opcode_t *
22650 Parrot_replace_s_s_i_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22651 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22652 SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), IREG(4), SREG(5));
22653
22654 return (opcode_t *)cur_opcode + 6;}
22655
22656 opcode_t *
22657 Parrot_replace_s_sc_i_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22658 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22659 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, IREG(3), IREG(4), SREG(5));
22660
22661 return (opcode_t *)cur_opcode + 6;}
22662
22663 opcode_t *
22664 Parrot_replace_s_s_ic_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22665 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22666 SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], IREG(4), SREG(5));
22667
22668 return (opcode_t *)cur_opcode + 6;}
22669
22670 opcode_t *
22671 Parrot_replace_s_sc_ic_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
22672 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22673 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, cur_opcode[3], IREG(4), SREG(5));
22674
22675 return (opcode_t *)cur_opcode + 6;}
22676
22677 opcode_t *
22678 Parrot_replace_s_s_i_ic_s(opcode_t *cur_opcode, PARROT_INTERP) {
22679 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22680 SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), cur_opcode[4], SREG(5));
22681
22682 return (opcode_t *)cur_opcode + 6;}
22683
22684 opcode_t *
22685 Parrot_replace_s_sc_i_ic_s(opcode_t *cur_opcode, PARROT_INTERP) {
22686 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22687 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, IREG(3), cur_opcode[4], SREG(5));
22688
22689 return (opcode_t *)cur_opcode + 6;}
22690
22691 opcode_t *
22692 Parrot_replace_s_s_ic_ic_s(opcode_t *cur_opcode, PARROT_INTERP) {
22693 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22694 SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], cur_opcode[4], SREG(5));
22695
22696 return (opcode_t *)cur_opcode + 6;}
22697
22698 opcode_t *
22699 Parrot_replace_s_sc_ic_ic_s(opcode_t *cur_opcode, PARROT_INTERP) {
22700 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22701 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, cur_opcode[3], cur_opcode[4], SREG(5));
22702
22703 return (opcode_t *)cur_opcode + 6;}
22704
22705 opcode_t *
22706 Parrot_replace_s_s_i_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22707 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22708 SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), IREG(4), CONST(5).u.string);
22709
22710 return (opcode_t *)cur_opcode + 6;}
22711
22712 opcode_t *
22713 Parrot_replace_s_sc_i_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22714 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22715 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, IREG(3), IREG(4), CONST(5).u.string);
22716
22717 return (opcode_t *)cur_opcode + 6;}
22718
22719 opcode_t *
22720 Parrot_replace_s_s_ic_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22721 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22722 SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], IREG(4), CONST(5).u.string);
22723
22724 return (opcode_t *)cur_opcode + 6;}
22725
22726 opcode_t *
22727 Parrot_replace_s_sc_ic_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22728 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22729 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, cur_opcode[3], IREG(4), CONST(5).u.string);
22730
22731 return (opcode_t *)cur_opcode + 6;}
22732
22733 opcode_t *
22734 Parrot_replace_s_s_i_ic_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22735 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22736 SREG(1) = Parrot_str_replace(interp, SREG(2), IREG(3), cur_opcode[4], CONST(5).u.string);
22737
22738 return (opcode_t *)cur_opcode + 6;}
22739
22740 opcode_t *
22741 Parrot_replace_s_sc_i_ic_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22742 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22743 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, IREG(3), cur_opcode[4], CONST(5).u.string);
22744
22745 return (opcode_t *)cur_opcode + 6;}
22746
22747 opcode_t *
22748 Parrot_replace_s_s_ic_ic_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22749 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22750 SREG(1) = Parrot_str_replace(interp, SREG(2), cur_opcode[3], cur_opcode[4], CONST(5).u.string);
22751
22752 return (opcode_t *)cur_opcode + 6;}
22753
22754 opcode_t *
22755 Parrot_replace_s_sc_ic_ic_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22756 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22757 SREG(1) = Parrot_str_replace(interp, CONST(2).u.string, cur_opcode[3], cur_opcode[4], CONST(5).u.string);
22758
22759 return (opcode_t *)cur_opcode + 6;}
22760
22761 opcode_t *
22762 Parrot_index_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
22763 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22764 IREG(1) = (SREG(2) && SREG(3)) ? Parrot_str_find_index(interp, SREG(2), SREG(3), 0) : -1;
22765
22766 return (opcode_t *)cur_opcode + 4;}
22767
22768 opcode_t *
22769 Parrot_index_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
22770 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22771 IREG(1) = (CONST(2).u.string && SREG(3)) ? Parrot_str_find_index(interp, CONST(2).u.string, SREG(3), 0) : -1;
22772
22773 return (opcode_t *)cur_opcode + 4;}
22774
22775 opcode_t *
22776 Parrot_index_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22777 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22778 IREG(1) = (SREG(2) && CONST(3).u.string) ? Parrot_str_find_index(interp, SREG(2), CONST(3).u.string, 0) : -1;
22779
22780 return (opcode_t *)cur_opcode + 4;}
22781
22782 opcode_t *
22783 Parrot_index_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
22784 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22785 IREG(1) = (CONST(2).u.string && CONST(3).u.string) ? Parrot_str_find_index(interp, CONST(2).u.string, CONST(3).u.string, 0) : -1;
22786
22787 return (opcode_t *)cur_opcode + 4;}
22788
22789 opcode_t *
22790 Parrot_index_i_s_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22791 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22792 IREG(1) = (SREG(2) && SREG(3)) ? Parrot_str_find_index(interp, SREG(2), SREG(3), IREG(4)) : -1;
22793
22794 return (opcode_t *)cur_opcode + 5;}
22795
22796 opcode_t *
22797 Parrot_index_i_sc_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22798 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22799 IREG(1) = (CONST(2).u.string && SREG(3)) ? Parrot_str_find_index(interp, CONST(2).u.string, SREG(3), IREG(4)) : -1;
22800
22801 return (opcode_t *)cur_opcode + 5;}
22802
22803 opcode_t *
22804 Parrot_index_i_s_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22805 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22806 IREG(1) = (SREG(2) && CONST(3).u.string) ? Parrot_str_find_index(interp, SREG(2), CONST(3).u.string, IREG(4)) : -1;
22807
22808 return (opcode_t *)cur_opcode + 5;}
22809
22810 opcode_t *
22811 Parrot_index_i_sc_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22812 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22813 IREG(1) = (CONST(2).u.string && CONST(3).u.string) ? Parrot_str_find_index(interp, CONST(2).u.string, CONST(3).u.string, IREG(4)) : -1;
22814
22815 return (opcode_t *)cur_opcode + 5;}
22816
22817 opcode_t *
22818 Parrot_index_i_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22819 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22820 IREG(1) = (SREG(2) && SREG(3)) ? Parrot_str_find_index(interp, SREG(2), SREG(3), cur_opcode[4]) : -1;
22821
22822 return (opcode_t *)cur_opcode + 5;}
22823
22824 opcode_t *
22825 Parrot_index_i_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22826 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22827 IREG(1) = (CONST(2).u.string && SREG(3)) ? Parrot_str_find_index(interp, CONST(2).u.string, SREG(3), cur_opcode[4]) : -1;
22828
22829 return (opcode_t *)cur_opcode + 5;}
22830
22831 opcode_t *
22832 Parrot_index_i_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22833 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22834 IREG(1) = (SREG(2) && CONST(3).u.string) ? Parrot_str_find_index(interp, SREG(2), CONST(3).u.string, cur_opcode[4]) : -1;
22835
22836 return (opcode_t *)cur_opcode + 5;}
22837
22838 opcode_t *
22839 Parrot_index_i_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22840 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22841 IREG(1) = (CONST(2).u.string && CONST(3).u.string) ? Parrot_str_find_index(interp, CONST(2).u.string, CONST(3).u.string, cur_opcode[4]) : -1;
22842
22843 return (opcode_t *)cur_opcode + 5;}
22844
22845 opcode_t *
22846 Parrot_sprintf_s_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
22847 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22848 SREG(1)=Parrot_psprintf(interp, SREG(2), PREG(3));
22849
22850 return (opcode_t *)cur_opcode + 4;}
22851
22852 opcode_t *
22853 Parrot_sprintf_s_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
22854 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22855 SREG(1)=Parrot_psprintf(interp, CONST(2).u.string, PREG(3));
22856
22857 return (opcode_t *)cur_opcode + 4;}
22858
22859 opcode_t *
22860 Parrot_sprintf_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
22861 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22862 VTABLE_set_string_native(interp, PREG(1),
22863 Parrot_psprintf(interp, VTABLE_get_string(interp, PREG(2)), PREG(3)));
22864
22865 return (opcode_t *)cur_opcode + 4;}
22866
22867 opcode_t *
22868 Parrot_new_s(opcode_t *cur_opcode, PARROT_INTERP) {
22869 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22870 SREG(1) = Parrot_str_new_noinit(interp, 0);
22871
22872 return (opcode_t *)cur_opcode + 2;}
22873
22874 opcode_t *
22875 Parrot_new_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22876 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22877 SREG(1) = Parrot_str_new_noinit(interp, IREG(2));
22878
22879 return (opcode_t *)cur_opcode + 3;}
22880
22881 opcode_t *
22882 Parrot_new_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22883 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22884 SREG(1) = Parrot_str_new_noinit(interp, cur_opcode[2]);
22885
22886 return (opcode_t *)cur_opcode + 3;}
22887
22888 opcode_t *
22889 Parrot_stringinfo_i_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
22890 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22891 if (SREG(2) == NULL)
22892 IREG(1) = 0;
22893 else {
22894 switch (IREG(3)) {
22895 case STRINGINFO_HEADER:
22896 IREG(1) = PTR2UINTVAL(SREG(2));
22897 break;
22898 case STRINGINFO_STRSTART:
22899 IREG(1) = PTR2UINTVAL(SREG(2)->strstart);
22900 break;
22901 case STRINGINFO_BUFLEN:
22902 IREG(1) = Buffer_buflen(SREG(2));
22903 break;
22904 case STRINGINFO_FLAGS:
22905 IREG(1) = PObj_get_FLAGS(SREG(2));
22906 break;
22907 case STRINGINFO_BUFUSED:
22908 IREG(1) = SREG(2)->bufused;
22909 break;
22910 case STRINGINFO_STRLEN:
22911 IREG(1) = SREG(2)->strlen;
22912 break;
22913 default:
22914 {
22915 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22916 EXCEPTION_INVALID_OPERATION,
22917 "stringinfo: unknown info type: %d", IREG(3));return (opcode_t *)handler;
22918 }
22919 }
22920 }
22921
22922 return (opcode_t *)cur_opcode + 4;}
22923
22924 opcode_t *
22925 Parrot_stringinfo_i_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
22926 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22927 if (CONST(2).u.string == NULL)
22928 IREG(1) = 0;
22929 else {
22930 switch (IREG(3)) {
22931 case STRINGINFO_HEADER:
22932 IREG(1) = PTR2UINTVAL(CONST(2).u.string);
22933 break;
22934 case STRINGINFO_STRSTART:
22935 IREG(1) = PTR2UINTVAL(CONST(2).u.string->strstart);
22936 break;
22937 case STRINGINFO_BUFLEN:
22938 IREG(1) = Buffer_buflen(CONST(2).u.string);
22939 break;
22940 case STRINGINFO_FLAGS:
22941 IREG(1) = PObj_get_FLAGS(CONST(2).u.string);
22942 break;
22943 case STRINGINFO_BUFUSED:
22944 IREG(1) = CONST(2).u.string->bufused;
22945 break;
22946 case STRINGINFO_STRLEN:
22947 IREG(1) = CONST(2).u.string->strlen;
22948 break;
22949 default:
22950 {
22951 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22952 EXCEPTION_INVALID_OPERATION,
22953 "stringinfo: unknown info type: %d", IREG(3));return (opcode_t *)handler;
22954 }
22955 }
22956 }
22957
22958 return (opcode_t *)cur_opcode + 4;}
22959
22960 opcode_t *
22961 Parrot_stringinfo_i_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22962 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22963 if (SREG(2) == NULL)
22964 IREG(1) = 0;
22965 else {
22966 switch (cur_opcode[3]) {
22967 case STRINGINFO_HEADER:
22968 IREG(1) = PTR2UINTVAL(SREG(2));
22969 break;
22970 case STRINGINFO_STRSTART:
22971 IREG(1) = PTR2UINTVAL(SREG(2)->strstart);
22972 break;
22973 case STRINGINFO_BUFLEN:
22974 IREG(1) = Buffer_buflen(SREG(2));
22975 break;
22976 case STRINGINFO_FLAGS:
22977 IREG(1) = PObj_get_FLAGS(SREG(2));
22978 break;
22979 case STRINGINFO_BUFUSED:
22980 IREG(1) = SREG(2)->bufused;
22981 break;
22982 case STRINGINFO_STRLEN:
22983 IREG(1) = SREG(2)->strlen;
22984 break;
22985 default:
22986 {
22987 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
22988 EXCEPTION_INVALID_OPERATION,
22989 "stringinfo: unknown info type: %d", cur_opcode[3]);return (opcode_t *)handler;
22990 }
22991 }
22992 }
22993
22994 return (opcode_t *)cur_opcode + 4;}
22995
22996 opcode_t *
22997 Parrot_stringinfo_i_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
22998 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
22999 if (CONST(2).u.string == NULL)
23000 IREG(1) = 0;
23001 else {
23002 switch (cur_opcode[3]) {
23003 case STRINGINFO_HEADER:
23004 IREG(1) = PTR2UINTVAL(CONST(2).u.string);
23005 break;
23006 case STRINGINFO_STRSTART:
23007 IREG(1) = PTR2UINTVAL(CONST(2).u.string->strstart);
23008 break;
23009 case STRINGINFO_BUFLEN:
23010 IREG(1) = Buffer_buflen(CONST(2).u.string);
23011 break;
23012 case STRINGINFO_FLAGS:
23013 IREG(1) = PObj_get_FLAGS(CONST(2).u.string);
23014 break;
23015 case STRINGINFO_BUFUSED:
23016 IREG(1) = CONST(2).u.string->bufused;
23017 break;
23018 case STRINGINFO_STRLEN:
23019 IREG(1) = CONST(2).u.string->strlen;
23020 break;
23021 default:
23022 {
23023 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
23024 EXCEPTION_INVALID_OPERATION,
23025 "stringinfo: unknown info type: %d", cur_opcode[3]);return (opcode_t *)handler;
23026 }
23027 }
23028 }
23029
23030 return (opcode_t *)cur_opcode + 4;}
23031
23032 opcode_t *
23033 Parrot_upcase_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
23034 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23035 SREG(1) = Parrot_str_upcase(interp, SREG(2));
23036
23037 return (opcode_t *)cur_opcode + 3;}
23038
23039 opcode_t *
23040 Parrot_upcase_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23041 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23042 SREG(1) = Parrot_str_upcase(interp, CONST(2).u.string);
23043
23044 return (opcode_t *)cur_opcode + 3;}
23045
23046 opcode_t *
23047 Parrot_downcase_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
23048 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23049 SREG(1) = Parrot_str_downcase(interp, SREG(2));
23050
23051 return (opcode_t *)cur_opcode + 3;}
23052
23053 opcode_t *
23054 Parrot_downcase_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23055 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23056 SREG(1) = Parrot_str_downcase(interp, CONST(2).u.string);
23057
23058 return (opcode_t *)cur_opcode + 3;}
23059
23060 opcode_t *
23061 Parrot_titlecase_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
23062 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23063 SREG(1) = Parrot_str_titlecase(interp, SREG(2));
23064
23065 return (opcode_t *)cur_opcode + 3;}
23066
23067 opcode_t *
23068 Parrot_titlecase_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23069 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23070 SREG(1) = Parrot_str_titlecase(interp, CONST(2).u.string);
23071
23072 return (opcode_t *)cur_opcode + 3;}
23073
23074 opcode_t *
23075 Parrot_join_s_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
23076 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23077 SREG(1) = Parrot_str_join(interp, SREG(2), PREG(3));
23078
23079 return (opcode_t *)cur_opcode + 4;}
23080
23081 opcode_t *
23082 Parrot_join_s_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
23083 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23084 SREG(1) = Parrot_str_join(interp, CONST(2).u.string, PREG(3));
23085
23086 return (opcode_t *)cur_opcode + 4;}
23087
23088 opcode_t *
23089 Parrot_split_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
23090 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23091 PREG(1) = Parrot_str_split(interp, SREG(2), SREG(3));
23092
23093 return (opcode_t *)cur_opcode + 4;}
23094
23095 opcode_t *
23096 Parrot_split_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
23097 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23098 PREG(1) = Parrot_str_split(interp, CONST(2).u.string, SREG(3));
23099
23100 return (opcode_t *)cur_opcode + 4;}
23101
23102 opcode_t *
23103 Parrot_split_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23104 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23105 PREG(1) = Parrot_str_split(interp, SREG(2), CONST(3).u.string);
23106
23107 return (opcode_t *)cur_opcode + 4;}
23108
23109 opcode_t *
23110 Parrot_split_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23111 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23112 PREG(1) = Parrot_str_split(interp, CONST(2).u.string, CONST(3).u.string);
23113
23114 return (opcode_t *)cur_opcode + 4;}
23115
23116 opcode_t *
23117 Parrot_charset_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
23118 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23119 IREG(1) = Parrot_encoding_number_of_str(interp, SREG(2));
23120
23121 return (opcode_t *)cur_opcode + 3;}
23122
23123 opcode_t *
23124 Parrot_charset_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23125 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23126 IREG(1) = Parrot_encoding_number_of_str(interp, CONST(2).u.string);
23127
23128 return (opcode_t *)cur_opcode + 3;}
23129
23130 opcode_t *
23131 Parrot_charsetname_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23132 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23133 SREG(1) = Parrot_encoding_name(interp, IREG(2));
23134
23135 return (opcode_t *)cur_opcode + 3;}
23136
23137 opcode_t *
23138 Parrot_charsetname_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23139 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23140 SREG(1) = Parrot_encoding_name(interp, cur_opcode[2]);
23141
23142 return (opcode_t *)cur_opcode + 3;}
23143
23144 opcode_t *
23145 Parrot_find_charset_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
23146 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23147 const INTVAL n = Parrot_encoding_number(interp, SREG(2));
23148 if (n < 0) {
23149 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
23150 EXCEPTION_INVALID_CHARTYPE,
23151 "charset '%Ss' not found", SREG(2));return (opcode_t *)handler;
23152 }
23153 IREG(1) = n;
23154
23155 return (opcode_t *)cur_opcode + 3;}
23156
23157 opcode_t *
23158 Parrot_find_charset_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23159 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23160 const INTVAL n = Parrot_encoding_number(interp, CONST(2).u.string);
23161 if (n < 0) {
23162 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
23163 EXCEPTION_INVALID_CHARTYPE,
23164 "charset '%Ss' not found", CONST(2).u.string);return (opcode_t *)handler;
23165 }
23166 IREG(1) = n;
23167
23168 return (opcode_t *)cur_opcode + 3;}
23169
23170 opcode_t *
23171 Parrot_trans_charset_s_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23172 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23173 SREG(1) = Parrot_str_change_charset(interp, SREG(2), IREG(3));
23174
23175 return (opcode_t *)cur_opcode + 4;}
23176
23177 opcode_t *
23178 Parrot_trans_charset_s_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
23179 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23180 SREG(1) = Parrot_str_change_charset(interp, CONST(2).u.string, IREG(3));
23181
23182 return (opcode_t *)cur_opcode + 4;}
23183
23184 opcode_t *
23185 Parrot_trans_charset_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23186 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23187 SREG(1) = Parrot_str_change_charset(interp, SREG(2), cur_opcode[3]);
23188
23189 return (opcode_t *)cur_opcode + 4;}
23190
23191 opcode_t *
23192 Parrot_trans_charset_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23193 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23194 SREG(1) = Parrot_str_change_charset(interp, CONST(2).u.string, cur_opcode[3]);
23195
23196 return (opcode_t *)cur_opcode + 4;}
23197
23198 opcode_t *
23199 Parrot_encoding_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
23200 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23201 IREG(1) = Parrot_encoding_number_of_str(interp, SREG(2));
23202
23203 return (opcode_t *)cur_opcode + 3;}
23204
23205 opcode_t *
23206 Parrot_encoding_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23207 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23208 IREG(1) = Parrot_encoding_number_of_str(interp, CONST(2).u.string);
23209
23210 return (opcode_t *)cur_opcode + 3;}
23211
23212 opcode_t *
23213 Parrot_encodingname_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23214 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23215 SREG(1) = Parrot_encoding_name(interp, IREG(2));
23216
23217 return (opcode_t *)cur_opcode + 3;}
23218
23219 opcode_t *
23220 Parrot_encodingname_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23221 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23222 SREG(1) = Parrot_encoding_name(interp, cur_opcode[2]);
23223
23224 return (opcode_t *)cur_opcode + 3;}
23225
23226 opcode_t *
23227 Parrot_find_encoding_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
23228 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23229 const INTVAL n = Parrot_encoding_number(interp, SREG(2));
23230 if (n < 0) {
23231 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
23232 EXCEPTION_INVALID_ENCODING,
23233 "encoding '%Ss' not found", SREG(2));return (opcode_t *)handler;
23234 }
23235 IREG(1) = n;
23236
23237 return (opcode_t *)cur_opcode + 3;}
23238
23239 opcode_t *
23240 Parrot_find_encoding_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23241 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23242 const INTVAL n = Parrot_encoding_number(interp, CONST(2).u.string);
23243 if (n < 0) {
23244 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
23245 EXCEPTION_INVALID_ENCODING,
23246 "encoding '%Ss' not found", CONST(2).u.string);return (opcode_t *)handler;
23247 }
23248 IREG(1) = n;
23249
23250 return (opcode_t *)cur_opcode + 3;}
23251
23252 opcode_t *
23253 Parrot_trans_encoding_s_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23254 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23255 SREG(1) = Parrot_str_change_encoding(interp, SREG(2), IREG(3));
23256
23257 return (opcode_t *)cur_opcode + 4;}
23258
23259 opcode_t *
23260 Parrot_trans_encoding_s_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
23261 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23262 SREG(1) = Parrot_str_change_encoding(interp, CONST(2).u.string, IREG(3));
23263
23264 return (opcode_t *)cur_opcode + 4;}
23265
23266 opcode_t *
23267 Parrot_trans_encoding_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23268 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23269 SREG(1) = Parrot_str_change_encoding(interp, SREG(2), cur_opcode[3]);
23270
23271 return (opcode_t *)cur_opcode + 4;}
23272
23273 opcode_t *
23274 Parrot_trans_encoding_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23275 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23276 SREG(1) = Parrot_str_change_encoding(interp, CONST(2).u.string, cur_opcode[3]);
23277
23278 return (opcode_t *)cur_opcode + 4;}
23279
23280 opcode_t *
23281 Parrot_is_cclass_i_i_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23282 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23283 IREG(1) = Parrot_str_is_cclass(interp, IREG(2), SREG(3), IREG(4));
23284
23285 return (opcode_t *)cur_opcode + 5;}
23286
23287 opcode_t *
23288 Parrot_is_cclass_i_ic_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23289 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23290 IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], SREG(3), IREG(4));
23291
23292 return (opcode_t *)cur_opcode + 5;}
23293
23294 opcode_t *
23295 Parrot_is_cclass_i_i_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
23296 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23297 IREG(1) = Parrot_str_is_cclass(interp, IREG(2), CONST(3).u.string, IREG(4));
23298
23299 return (opcode_t *)cur_opcode + 5;}
23300
23301 opcode_t *
23302 Parrot_is_cclass_i_ic_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
23303 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23304 IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], CONST(3).u.string, IREG(4));
23305
23306 return (opcode_t *)cur_opcode + 5;}
23307
23308 opcode_t *
23309 Parrot_is_cclass_i_i_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23310 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23311 IREG(1) = Parrot_str_is_cclass(interp, IREG(2), SREG(3), cur_opcode[4]);
23312
23313 return (opcode_t *)cur_opcode + 5;}
23314
23315 opcode_t *
23316 Parrot_is_cclass_i_ic_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23317 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23318 IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4]);
23319
23320 return (opcode_t *)cur_opcode + 5;}
23321
23322 opcode_t *
23323 Parrot_is_cclass_i_i_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23324 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23325 IREG(1) = Parrot_str_is_cclass(interp, IREG(2), CONST(3).u.string, cur_opcode[4]);
23326
23327 return (opcode_t *)cur_opcode + 5;}
23328
23329 opcode_t *
23330 Parrot_is_cclass_i_ic_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23331 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23332 IREG(1) = Parrot_str_is_cclass(interp, cur_opcode[2], CONST(3).u.string, cur_opcode[4]);
23333
23334 return (opcode_t *)cur_opcode + 5;}
23335
23336 opcode_t *
23337 Parrot_find_cclass_i_i_s_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23338 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23339 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), IREG(4), IREG(5));
23340
23341 return (opcode_t *)cur_opcode + 6;}
23342
23343 opcode_t *
23344 Parrot_find_cclass_i_ic_s_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23345 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23346 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), IREG(4), IREG(5));
23347
23348 return (opcode_t *)cur_opcode + 6;}
23349
23350 opcode_t *
23351 Parrot_find_cclass_i_i_sc_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23352 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23353 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3).u.string, IREG(4), IREG(5));
23354
23355 return (opcode_t *)cur_opcode + 6;}
23356
23357 opcode_t *
23358 Parrot_find_cclass_i_ic_sc_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23359 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23360 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3).u.string, IREG(4), IREG(5));
23361
23362 return (opcode_t *)cur_opcode + 6;}
23363
23364 opcode_t *
23365 Parrot_find_cclass_i_i_s_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23366 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23367 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), cur_opcode[4], IREG(5));
23368
23369 return (opcode_t *)cur_opcode + 6;}
23370
23371 opcode_t *
23372 Parrot_find_cclass_i_ic_s_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23373 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23374 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], IREG(5));
23375
23376 return (opcode_t *)cur_opcode + 6;}
23377
23378 opcode_t *
23379 Parrot_find_cclass_i_i_sc_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23380 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23381 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3).u.string, cur_opcode[4], IREG(5));
23382
23383 return (opcode_t *)cur_opcode + 6;}
23384
23385 opcode_t *
23386 Parrot_find_cclass_i_ic_sc_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23387 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23388 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3).u.string, cur_opcode[4], IREG(5));
23389
23390 return (opcode_t *)cur_opcode + 6;}
23391
23392 opcode_t *
23393 Parrot_find_cclass_i_i_s_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23394 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23395 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), IREG(4), cur_opcode[5]);
23396
23397 return (opcode_t *)cur_opcode + 6;}
23398
23399 opcode_t *
23400 Parrot_find_cclass_i_ic_s_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23401 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23402 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), IREG(4), cur_opcode[5]);
23403
23404 return (opcode_t *)cur_opcode + 6;}
23405
23406 opcode_t *
23407 Parrot_find_cclass_i_i_sc_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23408 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23409 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3).u.string, IREG(4), cur_opcode[5]);
23410
23411 return (opcode_t *)cur_opcode + 6;}
23412
23413 opcode_t *
23414 Parrot_find_cclass_i_ic_sc_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23415 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23416 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3).u.string, IREG(4), cur_opcode[5]);
23417
23418 return (opcode_t *)cur_opcode + 6;}
23419
23420 opcode_t *
23421 Parrot_find_cclass_i_i_s_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23422 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23423 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), SREG(3), cur_opcode[4], cur_opcode[5]);
23424
23425 return (opcode_t *)cur_opcode + 6;}
23426
23427 opcode_t *
23428 Parrot_find_cclass_i_ic_s_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23429 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23430 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], cur_opcode[5]);
23431
23432 return (opcode_t *)cur_opcode + 6;}
23433
23434 opcode_t *
23435 Parrot_find_cclass_i_i_sc_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23436 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23437 IREG(1) = Parrot_str_find_cclass(interp, IREG(2), CONST(3).u.string, cur_opcode[4], cur_opcode[5]);
23438
23439 return (opcode_t *)cur_opcode + 6;}
23440
23441 opcode_t *
23442 Parrot_find_cclass_i_ic_sc_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23443 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23444 IREG(1) = Parrot_str_find_cclass(interp, cur_opcode[2], CONST(3).u.string, cur_opcode[4], cur_opcode[5]);
23445
23446 return (opcode_t *)cur_opcode + 6;}
23447
23448 opcode_t *
23449 Parrot_find_not_cclass_i_i_s_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23450 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23451 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), IREG(4), IREG(5));
23452
23453 return (opcode_t *)cur_opcode + 6;}
23454
23455 opcode_t *
23456 Parrot_find_not_cclass_i_ic_s_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23457 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23458 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), IREG(4), IREG(5));
23459
23460 return (opcode_t *)cur_opcode + 6;}
23461
23462 opcode_t *
23463 Parrot_find_not_cclass_i_i_sc_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23464 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23465 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3).u.string, IREG(4), IREG(5));
23466
23467 return (opcode_t *)cur_opcode + 6;}
23468
23469 opcode_t *
23470 Parrot_find_not_cclass_i_ic_sc_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
23471 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23472 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3).u.string, IREG(4), IREG(5));
23473
23474 return (opcode_t *)cur_opcode + 6;}
23475
23476 opcode_t *
23477 Parrot_find_not_cclass_i_i_s_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23478 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23479 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), cur_opcode[4], IREG(5));
23480
23481 return (opcode_t *)cur_opcode + 6;}
23482
23483 opcode_t *
23484 Parrot_find_not_cclass_i_ic_s_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23485 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23486 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], IREG(5));
23487
23488 return (opcode_t *)cur_opcode + 6;}
23489
23490 opcode_t *
23491 Parrot_find_not_cclass_i_i_sc_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23492 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23493 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3).u.string, cur_opcode[4], IREG(5));
23494
23495 return (opcode_t *)cur_opcode + 6;}
23496
23497 opcode_t *
23498 Parrot_find_not_cclass_i_ic_sc_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
23499 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23500 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3).u.string, cur_opcode[4], IREG(5));
23501
23502 return (opcode_t *)cur_opcode + 6;}
23503
23504 opcode_t *
23505 Parrot_find_not_cclass_i_i_s_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23506 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23507 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), IREG(4), cur_opcode[5]);
23508
23509 return (opcode_t *)cur_opcode + 6;}
23510
23511 opcode_t *
23512 Parrot_find_not_cclass_i_ic_s_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23513 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23514 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), IREG(4), cur_opcode[5]);
23515
23516 return (opcode_t *)cur_opcode + 6;}
23517
23518 opcode_t *
23519 Parrot_find_not_cclass_i_i_sc_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23520 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23521 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3).u.string, IREG(4), cur_opcode[5]);
23522
23523 return (opcode_t *)cur_opcode + 6;}
23524
23525 opcode_t *
23526 Parrot_find_not_cclass_i_ic_sc_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23527 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23528 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3).u.string, IREG(4), cur_opcode[5]);
23529
23530 return (opcode_t *)cur_opcode + 6;}
23531
23532 opcode_t *
23533 Parrot_find_not_cclass_i_i_s_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23534 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23535 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), SREG(3), cur_opcode[4], cur_opcode[5]);
23536
23537 return (opcode_t *)cur_opcode + 6;}
23538
23539 opcode_t *
23540 Parrot_find_not_cclass_i_ic_s_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23541 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23542 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], SREG(3), cur_opcode[4], cur_opcode[5]);
23543
23544 return (opcode_t *)cur_opcode + 6;}
23545
23546 opcode_t *
23547 Parrot_find_not_cclass_i_i_sc_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23548 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23549 IREG(1) = Parrot_str_find_not_cclass(interp, IREG(2), CONST(3).u.string, cur_opcode[4], cur_opcode[5]);
23550
23551 return (opcode_t *)cur_opcode + 6;}
23552
23553 opcode_t *
23554 Parrot_find_not_cclass_i_ic_sc_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23555 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23556 IREG(1) = Parrot_str_find_not_cclass(interp, cur_opcode[2], CONST(3).u.string, cur_opcode[4], cur_opcode[5]);
23557
23558 return (opcode_t *)cur_opcode + 6;}
23559
23560 opcode_t *
23561 Parrot_escape_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
23562 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23563 SREG(1) = Parrot_str_escape(interp, SREG(2));
23564
23565 return (opcode_t *)cur_opcode + 3;}
23566
23567 opcode_t *
23568 Parrot_compose_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
23569 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23570 SREG(1) = Parrot_str_compose(interp, SREG(2));
23571
23572 return (opcode_t *)cur_opcode + 3;}
23573
23574 opcode_t *
23575 Parrot_compose_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23576 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23577 SREG(1) = Parrot_str_compose(interp, CONST(2).u.string);
23578
23579 return (opcode_t *)cur_opcode + 3;}
23580
23581 opcode_t *
23582 Parrot_spawnw_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
23583 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23584 IREG(1) = Parrot_Run_OS_Command(interp, SREG(2));
23585
23586 return (opcode_t *)cur_opcode + 3;}
23587
23588 opcode_t *
23589 Parrot_spawnw_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23590 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23591 IREG(1) = Parrot_Run_OS_Command(interp, CONST(2).u.string);
23592
23593 return (opcode_t *)cur_opcode + 3;}
23594
23595 opcode_t *
23596 Parrot_spawnw_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
23597 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23598 IREG(1) = Parrot_Run_OS_Command_Argv(interp, PREG(2));
23599
23600 return (opcode_t *)cur_opcode + 3;}
23601
23602 opcode_t *
23603 Parrot_err_i(opcode_t *cur_opcode, PARROT_INTERP) {
23604 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23605 IREG(1) = errno;
23606
23607 return (opcode_t *)cur_opcode + 2;}
23608
23609 opcode_t *
23610 Parrot_err_s(opcode_t *cur_opcode, PARROT_INTERP) {
23611 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23612 const char * const tmp = strerror(errno);
23613 SREG(1) = Parrot_str_new_init(interp, tmp, strlen(tmp),
23614 Parrot_ascii_encoding_ptr, 0);
23615
23616 return (opcode_t *)cur_opcode + 2;}
23617
23618 opcode_t *
23619 Parrot_err_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
23620 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23621 const char * const tmp = strerror(IREG(2));
23622 SREG(1) = Parrot_str_new_init(interp, tmp, strlen(tmp),
23623 Parrot_ascii_encoding_ptr, 0);
23624
23625 return (opcode_t *)cur_opcode + 3;}
23626
23627 opcode_t *
23628 Parrot_err_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23629 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23630 const char * const tmp = strerror(cur_opcode[2]);
23631 SREG(1) = Parrot_str_new_init(interp, tmp, strlen(tmp),
23632 Parrot_ascii_encoding_ptr, 0);
23633
23634 return (opcode_t *)cur_opcode + 3;}
23635
23636 opcode_t *
23637 Parrot_time_i(opcode_t *cur_opcode, PARROT_INTERP) {
23638 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23639 IREG(1) = Parrot_intval_time();
23640
23641 return (opcode_t *)cur_opcode + 2;}
23642
23643 opcode_t *
23644 Parrot_time_n(opcode_t *cur_opcode, PARROT_INTERP) {
23645 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23646 NREG(1) = Parrot_floatval_time();
23647
23648 return (opcode_t *)cur_opcode + 2;}
23649
23650 opcode_t *
23651 Parrot_sleep_i(opcode_t *cur_opcode, PARROT_INTERP) {
23652 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23653 opcode_t *next = cur_opcode + 2;
23654 if (IREG(1) < 0) {
23655 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
23656 EXCEPTION_NEG_SLEEP,
23657 "Cannot go back in time");return (opcode_t *)handler;
23658 }
23659 next = (opcode_t *)Parrot_cx_schedule_sleep(interp, (FLOATVAL) IREG(1), next);return (opcode_t *)next;
23660 }
23661
23662 opcode_t *
23663 Parrot_sleep_ic(opcode_t *cur_opcode, PARROT_INTERP) {
23664 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23665 opcode_t *next = cur_opcode + 2;
23666 if (cur_opcode[1] < 0) {
23667 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
23668 EXCEPTION_NEG_SLEEP,
23669 "Cannot go back in time");return (opcode_t *)handler;
23670 }
23671 next = (opcode_t *)Parrot_cx_schedule_sleep(interp, (FLOATVAL) cur_opcode[1], next);return (opcode_t *)next;
23672 }
23673
23674 opcode_t *
23675 Parrot_sleep_n(opcode_t *cur_opcode, PARROT_INTERP) {
23676 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23677 opcode_t *next = cur_opcode + 2;
23678 if (NREG(1) < 0.0) {
23679 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
23680 EXCEPTION_NEG_SLEEP,
23681 "Cannot go back in time");return (opcode_t *)handler;
23682 }
23683 next = (opcode_t *)Parrot_cx_schedule_sleep(interp, NREG(1), next);return (opcode_t *)next;
23684 }
23685
23686 opcode_t *
23687 Parrot_sleep_nc(opcode_t *cur_opcode, PARROT_INTERP) {
23688 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23689 opcode_t *next = cur_opcode + 2;
23690 if (CONST(1).u.number < 0.0) {
23691 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
23692 EXCEPTION_NEG_SLEEP,
23693 "Cannot go back in time");return (opcode_t *)handler;
23694 }
23695 next = (opcode_t *)Parrot_cx_schedule_sleep(interp, CONST(1).u.number, next);return (opcode_t *)next;
23696 }
23697
23698 opcode_t *
23699 Parrot_store_lex_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
23700 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23701 PMC * const ctx = CURRENT_CONTEXT(interp);
23702 STRING * const lex_name = SREG(1);
23703 PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
23704
23705 if (PMC_IS_NULL(lex_pad)) {
23706 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
23707 EXCEPTION_LEX_NOT_FOUND,
23708 "Lexical '%Ss' not found", lex_name);return (opcode_t *)handler;
23709 }
23710 VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
23711
23712 return (opcode_t *)cur_opcode + 3;}
23713
23714 opcode_t *
23715 Parrot_store_lex_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
23716 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23717 PMC * const ctx = CURRENT_CONTEXT(interp);
23718 STRING * const lex_name = CONST(1).u.string;
23719 PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
23720
23721 if (PMC_IS_NULL(lex_pad)) {
23722 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
23723 EXCEPTION_LEX_NOT_FOUND,
23724 "Lexical '%Ss' not found", lex_name);return (opcode_t *)handler;
23725 }
23726 VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
23727
23728 return (opcode_t *)cur_opcode + 3;}
23729
23730 opcode_t *
23731 Parrot_store_dynamic_lex_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
23732 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23733 STRING * const lex_name = SREG(1);
23734 PMC * const ctx =
23735 Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
23736 PMC * const lex_pad =
23737 PMC_IS_NULL(ctx)
23738 ? PMCNULL
23739 : Parrot_find_dynamic_pad(interp, lex_name, ctx);
23740
23741 if (PMC_IS_NULL(lex_pad)) {
23742 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
23743 EXCEPTION_LEX_NOT_FOUND,
23744 "Lexical '%Ss' not found in dynamic scope", lex_name);return (opcode_t *)handler;
23745 }
23746 VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
23747
23748 return (opcode_t *)cur_opcode + 3;}
23749
23750 opcode_t *
23751 Parrot_store_dynamic_lex_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
23752 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23753 STRING * const lex_name = CONST(1).u.string;
23754 PMC * const ctx =
23755 Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
23756 PMC * const lex_pad =
23757 PMC_IS_NULL(ctx)
23758 ? PMCNULL
23759 : Parrot_find_dynamic_pad(interp, lex_name, ctx);
23760
23761 if (PMC_IS_NULL(lex_pad)) {
23762 opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
23763 EXCEPTION_LEX_NOT_FOUND,
23764 "Lexical '%Ss' not found in dynamic scope", lex_name);return (opcode_t *)handler;
23765 }
23766 VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
23767
23768 return (opcode_t *)cur_opcode + 3;}
23769
23770 opcode_t *
23771 Parrot_find_lex_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
23772 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23773 PMC * const ctx = CURRENT_CONTEXT(interp);
23774 STRING * const lex_name = SREG(2);
23775 PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
23776
23777 PMC * const result =
23778 PMC_IS_NULL(lex_pad)
23779 ? PMCNULL
23780 : VTABLE_get_pmc_keyed_str(interp, lex_pad, lex_name);
23781 PREG(1) = result;
23782
23783 return (opcode_t *)cur_opcode + 3;}
23784
23785 opcode_t *
23786 Parrot_find_lex_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23787 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23788 PMC * const ctx = CURRENT_CONTEXT(interp);
23789 STRING * const lex_name = CONST(2).u.string;
23790 PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
23791
23792 PMC * const result =
23793 PMC_IS_NULL(lex_pad)
23794 ? PMCNULL
23795 : VTABLE_get_pmc_keyed_str(interp, lex_pad, lex_name);
23796 PREG(1) = result;
23797
23798 return (opcode_t *)cur_opcode + 3;}
23799
23800 opcode_t *
23801 Parrot_find_dynamic_lex_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
23802 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23803 STRING * const lex_name = SREG(2);
23804 PMC * const ctx =
23805 Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
23806 PMC * const lex_pad =
23807 PMC_IS_NULL(ctx)
23808 ? PMCNULL
23809 : Parrot_find_dynamic_pad(interp, lex_name, ctx);
23810 PMC * const result =
23811 PMC_IS_NULL(lex_pad)
23812 ? PMCNULL
23813 : VTABLE_get_pmc_keyed_str(interp, lex_pad, lex_name);
23814 PREG(1) = result;
23815
23816 return (opcode_t *)cur_opcode + 3;}
23817
23818 opcode_t *
23819 Parrot_find_dynamic_lex_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23820 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23821 STRING * const lex_name = CONST(2).u.string;
23822 PMC * const ctx =
23823 Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
23824 PMC * const lex_pad =
23825 PMC_IS_NULL(ctx)
23826 ? PMCNULL
23827 : Parrot_find_dynamic_pad(interp, lex_name, ctx);
23828 PMC * const result =
23829 PMC_IS_NULL(lex_pad)
23830 ? PMCNULL
23831 : VTABLE_get_pmc_keyed_str(interp, lex_pad, lex_name);
23832 PREG(1) = result;
23833
23834 return (opcode_t *)cur_opcode + 3;}
23835
23836 opcode_t *
23837 Parrot_find_caller_lex_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
23838 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23839 STRING * const lex_name = SREG(2);
23840 PMC * ctx = CURRENT_CONTEXT(interp);
23841 PMC * result = PMCNULL;
23842
23843 for (ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
23844 !PMC_IS_NULL(ctx) && PMC_IS_NULL(result);
23845 ctx = Parrot_pcc_get_caller_ctx(interp, ctx))
23846 {
23847 PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
23848 if (!PMC_IS_NULL(lex_pad)) {
23849 result = VTABLE_get_pmc_keyed_str(interp, lex_pad, lex_name);
23850 }
23851 if (!result) result = PMCNULL;
23852 }
23853 PREG(1) = result;
23854
23855 return (opcode_t *)cur_opcode + 3;}
23856
23857 opcode_t *
23858 Parrot_find_caller_lex_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23859 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23860 STRING * const lex_name = CONST(2).u.string;
23861 PMC * ctx = CURRENT_CONTEXT(interp);
23862 PMC * result = PMCNULL;
23863
23864 for (ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
23865 !PMC_IS_NULL(ctx) && PMC_IS_NULL(result);
23866 ctx = Parrot_pcc_get_caller_ctx(interp, ctx))
23867 {
23868 PMC * const lex_pad = Parrot_find_pad(interp, lex_name, ctx);
23869 if (!PMC_IS_NULL(lex_pad)) {
23870 result = VTABLE_get_pmc_keyed_str(interp, lex_pad, lex_name);
23871 }
23872 if (!result) result = PMCNULL;
23873 }
23874 PREG(1) = result;
23875
23876 return (opcode_t *)cur_opcode + 3;}
23877
23878 opcode_t *
23879 Parrot_get_namespace_p(opcode_t *cur_opcode, PARROT_INTERP) {
23880 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23881 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
23882 PREG(1) = cur_ns;
23883
23884 return (opcode_t *)cur_opcode + 2;}
23885
23886 opcode_t *
23887 Parrot_get_namespace_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
23888 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23889 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
23890 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, PREG(2));
23891
23892 PREG(1) = PMC_IS_NULL(ns) ? PMCNULL : ns;
23893
23894 return (opcode_t *)cur_opcode + 3;}
23895
23896 opcode_t *
23897 Parrot_get_namespace_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
23898 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23899 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
23900 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, CONST(2).u.key);
23901
23902 PREG(1) = PMC_IS_NULL(ns) ? PMCNULL : ns;
23903
23904 return (opcode_t *)cur_opcode + 3;}
23905
23906 opcode_t *
23907 Parrot_get_hll_namespace_p(opcode_t *cur_opcode, PARROT_INTERP) {
23908 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23909 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
23910 PREG(1) = hll_ns;
23911
23912 return (opcode_t *)cur_opcode + 2;}
23913
23914 opcode_t *
23915 Parrot_get_hll_namespace_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
23916 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23917 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
23918 if (PMC_IS_NULL(hll_ns))
23919 PREG(1) = PMCNULL;
23920 else {
23921 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, PREG(2));
23922 PREG(1) = ns;
23923 }
23924
23925 return (opcode_t *)cur_opcode + 3;}
23926
23927 opcode_t *
23928 Parrot_get_hll_namespace_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
23929 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23930 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
23931 if (PMC_IS_NULL(hll_ns))
23932 PREG(1) = PMCNULL;
23933 else {
23934 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, CONST(2).u.key);
23935 PREG(1) = ns;
23936 }
23937
23938 return (opcode_t *)cur_opcode + 3;}
23939
23940 opcode_t *
23941 Parrot_get_root_namespace_p(opcode_t *cur_opcode, PARROT_INTERP) {
23942 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23943 PMC * const root_ns = interp->root_namespace;
23944 PREG(1) = root_ns;
23945
23946 return (opcode_t *)cur_opcode + 2;}
23947
23948 opcode_t *
23949 Parrot_get_root_namespace_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
23950 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23951 PMC * const root_ns = interp->root_namespace;
23952 if (PMC_IS_NULL(root_ns))
23953 PREG(1) = PMCNULL;
23954 else {
23955 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, PREG(2));
23956 PREG(1) = ns;
23957 }
23958
23959 return (opcode_t *)cur_opcode + 3;}
23960
23961 opcode_t *
23962 Parrot_get_root_namespace_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
23963 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23964 PMC * const root_ns = interp->root_namespace;
23965 if (PMC_IS_NULL(root_ns))
23966 PREG(1) = PMCNULL;
23967 else {
23968 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, CONST(2).u.key);
23969 PREG(1) = ns;
23970 }
23971
23972 return (opcode_t *)cur_opcode + 3;}
23973
23974 opcode_t *
23975 Parrot_get_global_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
23976 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23977 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
23978 PREG(1) = Parrot_ns_find_global_from_op(interp, cur_ns, SREG(2), cur_opcode + 3);
23979
23980 return (opcode_t *)cur_opcode + 3;}
23981
23982 opcode_t *
23983 Parrot_get_global_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
23984 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23985 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
23986 PREG(1) = Parrot_ns_find_global_from_op(interp, cur_ns, CONST(2).u.string, cur_opcode + 3);
23987
23988 return (opcode_t *)cur_opcode + 3;}
23989
23990 opcode_t *
23991 Parrot_get_global_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
23992 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
23993 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
23994 if (PMC_IS_NULL(cur_ns)) {
23995 PREG(1) = PMCNULL;
23996 }
23997 else {
23998 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, PREG(2));
23999 if (PMC_IS_NULL(ns))
24000 PREG(1) = PMCNULL;
24001 else
24002 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, SREG(3), cur_opcode + 4);
24003 }
24004
24005 return (opcode_t *)cur_opcode + 4;}
24006
24007 opcode_t *
24008 Parrot_get_global_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
24009 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24010 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24011 if (PMC_IS_NULL(cur_ns)) {
24012 PREG(1) = PMCNULL;
24013 }
24014 else {
24015 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, CONST(2).u.key);
24016 if (PMC_IS_NULL(ns))
24017 PREG(1) = PMCNULL;
24018 else
24019 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, SREG(3), cur_opcode + 4);
24020 }
24021
24022 return (opcode_t *)cur_opcode + 4;}
24023
24024 opcode_t *
24025 Parrot_get_global_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24026 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24027 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24028 if (PMC_IS_NULL(cur_ns)) {
24029 PREG(1) = PMCNULL;
24030 }
24031 else {
24032 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, PREG(2));
24033 if (PMC_IS_NULL(ns))
24034 PREG(1) = PMCNULL;
24035 else
24036 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, CONST(3).u.string, cur_opcode + 4);
24037 }
24038
24039 return (opcode_t *)cur_opcode + 4;}
24040
24041 opcode_t *
24042 Parrot_get_global_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24043 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24044 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24045 if (PMC_IS_NULL(cur_ns)) {
24046 PREG(1) = PMCNULL;
24047 }
24048 else {
24049 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, cur_ns, CONST(2).u.key);
24050 if (PMC_IS_NULL(ns))
24051 PREG(1) = PMCNULL;
24052 else
24053 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, CONST(3).u.string, cur_opcode + 4);
24054 }
24055
24056 return (opcode_t *)cur_opcode + 4;}
24057
24058 opcode_t *
24059 Parrot_get_hll_global_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
24060 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24061 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24062 PREG(1) = Parrot_ns_find_global_from_op(interp, hll_ns, SREG(2), cur_opcode + 3);
24063
24064 return (opcode_t *)cur_opcode + 3;}
24065
24066 opcode_t *
24067 Parrot_get_hll_global_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24068 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24069 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24070 PREG(1) = Parrot_ns_find_global_from_op(interp, hll_ns, CONST(2).u.string, cur_opcode + 3);
24071
24072 return (opcode_t *)cur_opcode + 3;}
24073
24074 opcode_t *
24075 Parrot_get_hll_global_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
24076 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24077 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24078 if (PMC_IS_NULL(hll_ns)) {
24079 PREG(1) = hll_ns;
24080 }
24081 else {
24082 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, PREG(2));
24083 if (PMC_IS_NULL(ns))
24084 PREG(1) = PMCNULL;
24085 else
24086 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, SREG(3), cur_opcode + 4);
24087 }
24088
24089 return (opcode_t *)cur_opcode + 4;}
24090
24091 opcode_t *
24092 Parrot_get_hll_global_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
24093 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24094 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24095 if (PMC_IS_NULL(hll_ns)) {
24096 PREG(1) = hll_ns;
24097 }
24098 else {
24099 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, CONST(2).u.key);
24100 if (PMC_IS_NULL(ns))
24101 PREG(1) = PMCNULL;
24102 else
24103 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, SREG(3), cur_opcode + 4);
24104 }
24105
24106 return (opcode_t *)cur_opcode + 4;}
24107
24108 opcode_t *
24109 Parrot_get_hll_global_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24110 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24111 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24112 if (PMC_IS_NULL(hll_ns)) {
24113 PREG(1) = hll_ns;
24114 }
24115 else {
24116 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, PREG(2));
24117 if (PMC_IS_NULL(ns))
24118 PREG(1) = PMCNULL;
24119 else
24120 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, CONST(3).u.string, cur_opcode + 4);
24121 }
24122
24123 return (opcode_t *)cur_opcode + 4;}
24124
24125 opcode_t *
24126 Parrot_get_hll_global_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24127 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24128 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24129 if (PMC_IS_NULL(hll_ns)) {
24130 PREG(1) = hll_ns;
24131 }
24132 else {
24133 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, hll_ns, CONST(2).u.key);
24134 if (PMC_IS_NULL(ns))
24135 PREG(1) = PMCNULL;
24136 else
24137 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, CONST(3).u.string, cur_opcode + 4);
24138 }
24139
24140 return (opcode_t *)cur_opcode + 4;}
24141
24142 opcode_t *
24143 Parrot_get_root_global_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
24144 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24145 PMC * const root_ns = interp->root_namespace;
24146 PREG(1) = Parrot_ns_find_global_from_op(interp, root_ns, SREG(2), cur_opcode + 3);
24147
24148 return (opcode_t *)cur_opcode + 3;}
24149
24150 opcode_t *
24151 Parrot_get_root_global_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24152 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24153 PMC * const root_ns = interp->root_namespace;
24154 PREG(1) = Parrot_ns_find_global_from_op(interp, root_ns, CONST(2).u.string, cur_opcode + 3);
24155
24156 return (opcode_t *)cur_opcode + 3;}
24157
24158 opcode_t *
24159 Parrot_get_root_global_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
24160 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24161 PMC * const root_ns = interp->root_namespace;
24162 if (PMC_IS_NULL(root_ns))
24163 PREG(1) = PMCNULL;
24164 else {
24165 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, PREG(2));
24166 if (PMC_IS_NULL(ns))
24167 PREG(1) = PMCNULL;
24168 else
24169 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, SREG(3), cur_opcode + 4);
24170 }
24171
24172 return (opcode_t *)cur_opcode + 4;}
24173
24174 opcode_t *
24175 Parrot_get_root_global_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
24176 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24177 PMC * const root_ns = interp->root_namespace;
24178 if (PMC_IS_NULL(root_ns))
24179 PREG(1) = PMCNULL;
24180 else {
24181 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, CONST(2).u.key);
24182 if (PMC_IS_NULL(ns))
24183 PREG(1) = PMCNULL;
24184 else
24185 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, SREG(3), cur_opcode + 4);
24186 }
24187
24188 return (opcode_t *)cur_opcode + 4;}
24189
24190 opcode_t *
24191 Parrot_get_root_global_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24192 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24193 PMC * const root_ns = interp->root_namespace;
24194 if (PMC_IS_NULL(root_ns))
24195 PREG(1) = PMCNULL;
24196 else {
24197 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, PREG(2));
24198 if (PMC_IS_NULL(ns))
24199 PREG(1) = PMCNULL;
24200 else
24201 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, CONST(3).u.string, cur_opcode + 4);
24202 }
24203
24204 return (opcode_t *)cur_opcode + 4;}
24205
24206 opcode_t *
24207 Parrot_get_root_global_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24208 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24209 PMC * const root_ns = interp->root_namespace;
24210 if (PMC_IS_NULL(root_ns))
24211 PREG(1) = PMCNULL;
24212 else {
24213 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, CONST(2).u.key);
24214 if (PMC_IS_NULL(ns))
24215 PREG(1) = PMCNULL;
24216 else
24217 PREG(1) = Parrot_ns_find_global_from_op(interp, ns, CONST(3).u.string, cur_opcode + 4);
24218 }
24219
24220 return (opcode_t *)cur_opcode + 4;}
24221
24222 opcode_t *
24223 Parrot_set_global_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24224 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24225 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24226 Parrot_ns_set_global(interp, cur_ns, SREG(1), PREG(2));
24227
24228 return (opcode_t *)cur_opcode + 3;}
24229
24230 opcode_t *
24231 Parrot_set_global_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24232 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24233 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24234 Parrot_ns_set_global(interp, cur_ns, CONST(1).u.string, PREG(2));
24235
24236 return (opcode_t *)cur_opcode + 3;}
24237
24238 opcode_t *
24239 Parrot_set_global_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24240 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24241 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24242 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, cur_ns, PREG(1));
24243
24244 Parrot_ns_set_global(interp, ns, SREG(2), PREG(3));
24245
24246 return (opcode_t *)cur_opcode + 4;}
24247
24248 opcode_t *
24249 Parrot_set_global_pc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24250 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24251 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24252 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, cur_ns, CONST(1).u.key);
24253
24254 Parrot_ns_set_global(interp, ns, SREG(2), PREG(3));
24255
24256 return (opcode_t *)cur_opcode + 4;}
24257
24258 opcode_t *
24259 Parrot_set_global_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24260 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24261 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24262 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, cur_ns, PREG(1));
24263
24264 Parrot_ns_set_global(interp, ns, CONST(2).u.string, PREG(3));
24265
24266 return (opcode_t *)cur_opcode + 4;}
24267
24268 opcode_t *
24269 Parrot_set_global_pc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24270 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24271 PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
24272 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, cur_ns, CONST(1).u.key);
24273
24274 Parrot_ns_set_global(interp, ns, CONST(2).u.string, PREG(3));
24275
24276 return (opcode_t *)cur_opcode + 4;}
24277
24278 opcode_t *
24279 Parrot_set_hll_global_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24280 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24281 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24282 Parrot_ns_set_global(interp, hll_ns, SREG(1), PREG(2));
24283
24284 return (opcode_t *)cur_opcode + 3;}
24285
24286 opcode_t *
24287 Parrot_set_hll_global_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24288 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24289 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24290 Parrot_ns_set_global(interp, hll_ns, CONST(1).u.string, PREG(2));
24291
24292 return (opcode_t *)cur_opcode + 3;}
24293
24294 opcode_t *
24295 Parrot_set_hll_global_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24296 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24297 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24298 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, hll_ns, PREG(1));
24299
24300 Parrot_ns_set_global(interp, ns, SREG(2), PREG(3));
24301
24302 return (opcode_t *)cur_opcode + 4;}
24303
24304 opcode_t *
24305 Parrot_set_hll_global_pc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24306 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24307 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24308 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, hll_ns, CONST(1).u.key);
24309
24310 Parrot_ns_set_global(interp, ns, SREG(2), PREG(3));
24311
24312 return (opcode_t *)cur_opcode + 4;}
24313
24314 opcode_t *
24315 Parrot_set_hll_global_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24316 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24317 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24318 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, hll_ns, PREG(1));
24319
24320 Parrot_ns_set_global(interp, ns, CONST(2).u.string, PREG(3));
24321
24322 return (opcode_t *)cur_opcode + 4;}
24323
24324 opcode_t *
24325 Parrot_set_hll_global_pc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24326 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24327 PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
24328 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, hll_ns, CONST(1).u.key);
24329
24330 Parrot_ns_set_global(interp, ns, CONST(2).u.string, PREG(3));
24331
24332 return (opcode_t *)cur_opcode + 4;}
24333
24334 opcode_t *
24335 Parrot_set_root_global_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24336 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24337 PMC * const root_ns = interp->root_namespace;
24338 Parrot_ns_set_global(interp, root_ns, SREG(1), PREG(2));
24339
24340 return (opcode_t *)cur_opcode + 3;}
24341
24342 opcode_t *
24343 Parrot_set_root_global_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24344 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24345 PMC * const root_ns = interp->root_namespace;
24346 Parrot_ns_set_global(interp, root_ns, CONST(1).u.string, PREG(2));
24347
24348 return (opcode_t *)cur_opcode + 3;}
24349
24350 opcode_t *
24351 Parrot_set_root_global_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24352 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24353 PMC * const root_ns = interp->root_namespace;
24354 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, root_ns, PREG(1));
24355
24356 Parrot_ns_set_global(interp, ns, SREG(2), PREG(3));
24357
24358 return (opcode_t *)cur_opcode + 4;}
24359
24360 opcode_t *
24361 Parrot_set_root_global_pc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24362 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24363 PMC * const root_ns = interp->root_namespace;
24364 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, root_ns, CONST(1).u.key);
24365
24366 Parrot_ns_set_global(interp, ns, SREG(2), PREG(3));
24367
24368 return (opcode_t *)cur_opcode + 4;}
24369
24370 opcode_t *
24371 Parrot_set_root_global_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24372 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24373 PMC * const root_ns = interp->root_namespace;
24374 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, root_ns, PREG(1));
24375
24376 Parrot_ns_set_global(interp, ns, CONST(2).u.string, PREG(3));
24377
24378 return (opcode_t *)cur_opcode + 4;}
24379
24380 opcode_t *
24381 Parrot_set_root_global_pc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24382 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24383 PMC * const root_ns = interp->root_namespace;
24384 PMC * const ns = Parrot_ns_make_namespace_keyed(interp, root_ns, CONST(1).u.key);
24385
24386 Parrot_ns_set_global(interp, ns, CONST(2).u.string, PREG(3));
24387
24388 return (opcode_t *)cur_opcode + 4;}
24389
24390 opcode_t *
24391 Parrot_find_name_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
24392 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24393 if (!SREG(2)) {
24394 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
24395 EXCEPTION_INVALID_OPERATION,
24396 "Tried to find null name");return (opcode_t *)handler;
24397 }
24398
24399 PREG(1) = Parrot_ns_find_named_item(interp, SREG(2), cur_opcode + 3);
24400
24401 return (opcode_t *)cur_opcode + 3;}
24402
24403 opcode_t *
24404 Parrot_find_name_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24405 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24406 if (!CONST(2).u.string) {
24407 opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
24408 EXCEPTION_INVALID_OPERATION,
24409 "Tried to find null name");return (opcode_t *)handler;
24410 }
24411
24412 PREG(1) = Parrot_ns_find_named_item(interp, CONST(2).u.string, cur_opcode + 3);
24413
24414 return (opcode_t *)cur_opcode + 3;}
24415
24416 opcode_t *
24417 Parrot_find_sub_not_null_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
24418 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24419 opcode_t *dest = cur_opcode + 3;
24420 PMC *sub = Parrot_ns_find_named_item(interp, SREG(2), dest);
24421
24422 if (PMC_IS_NULL(sub)) {
24423 opcode_t *handler;
24424 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
24425 handler = Parrot_ex_throw_from_op_args(interp, dest,
24426 EXCEPTION_GLOBAL_NOT_FOUND,
24427 "Could not find sub %Ss", SREG(2));return (opcode_t *)handler;
24428 }
24429
24430 PREG(1) = sub;
24431
24432 return (opcode_t *)cur_opcode + 3;}
24433
24434 opcode_t *
24435 Parrot_find_sub_not_null_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
24436 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24437 opcode_t *dest = cur_opcode + 3;
24438 PMC *sub = Parrot_ns_find_named_item(interp, CONST(2).u.string, dest);
24439
24440 if (PMC_IS_NULL(sub)) {
24441 opcode_t *handler;
24442 Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
24443 handler = Parrot_ex_throw_from_op_args(interp, dest,
24444 EXCEPTION_GLOBAL_NOT_FOUND,
24445 "Could not find sub %Ss", CONST(2).u.string);return (opcode_t *)handler;
24446 }
24447
24448 PREG(1) = sub;
24449
24450 return (opcode_t *)cur_opcode + 3;}
24451
24452 opcode_t *
24453 Parrot_trap(opcode_t *cur_opcode, PARROT_INTERP) {
24454 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24455 #if defined(__GNUC__) && defined(i386)
24456 __asm__("int3"); /* opcode 0xcc */
24457 #endif
24458 #if defined(__GNUC__) && defined(PPC)
24459 __asm__("trap"); /* opcode tr 31, 0, 0 */
24460 #endif
24461
24462 return (opcode_t *)cur_opcode + 1;}
24463
24464 opcode_t *
24465 Parrot_set_label_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
24466 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24467 VTABLE_set_pointer(interp, PREG(1), (CUR_OPCODE + cur_opcode[2]));
24468
24469 return (opcode_t *)cur_opcode + 3;}
24470
24471 opcode_t *
24472 Parrot_get_label_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
24473 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24474 void * const ptr = VTABLE_get_pointer(interp, PREG(2));
24475 IREG(1) = PTR2INTVAL(ptr);
24476
24477 return (opcode_t *)cur_opcode + 3;}
24478
24479 opcode_t *
24480 Parrot_fetch_p_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
24481 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24482 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
24483 if (PMC_IS_NULL(PREG(1))) {
24484 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24485 if (!PMC_IS_NULL(classobj))
24486 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24487 else {
24488 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24489 if (type <= 0) {
24490 opcode_t *dest = Parrot_ex_throw_from_op_args(
24491 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24492 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24493 }
24494
24495 PREG(1) = Parrot_pmc_new(interp, type);
24496 }
24497 }
24498
24499 return (opcode_t *)cur_opcode + 5;}
24500
24501 opcode_t *
24502 Parrot_fetch_p_pc_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
24503 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24504 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, PREG(3));
24505 if (PMC_IS_NULL(PREG(1))) {
24506 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24507 if (!PMC_IS_NULL(classobj))
24508 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24509 else {
24510 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24511 if (type <= 0) {
24512 opcode_t *dest = Parrot_ex_throw_from_op_args(
24513 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24514 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24515 }
24516
24517 PREG(1) = Parrot_pmc_new(interp, type);
24518 }
24519 }
24520
24521 return (opcode_t *)cur_opcode + 5;}
24522
24523 opcode_t *
24524 Parrot_fetch_p_p_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24525 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24526 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3).u.key);
24527 if (PMC_IS_NULL(PREG(1))) {
24528 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24529 if (!PMC_IS_NULL(classobj))
24530 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24531 else {
24532 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24533 if (type <= 0) {
24534 opcode_t *dest = Parrot_ex_throw_from_op_args(
24535 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24536 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24537 }
24538
24539 PREG(1) = Parrot_pmc_new(interp, type);
24540 }
24541 }
24542
24543 return (opcode_t *)cur_opcode + 5;}
24544
24545 opcode_t *
24546 Parrot_fetch_p_pc_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24547 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24548 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, CONST(3).u.key);
24549 if (PMC_IS_NULL(PREG(1))) {
24550 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24551 if (!PMC_IS_NULL(classobj))
24552 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24553 else {
24554 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24555 if (type <= 0) {
24556 opcode_t *dest = Parrot_ex_throw_from_op_args(
24557 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24558 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24559 }
24560
24561 PREG(1) = Parrot_pmc_new(interp, type);
24562 }
24563 }
24564
24565 return (opcode_t *)cur_opcode + 5;}
24566
24567 opcode_t *
24568 Parrot_fetch_p_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24569 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24570 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
24571 if (PMC_IS_NULL(PREG(1))) {
24572 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24573 if (!PMC_IS_NULL(classobj))
24574 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24575 else {
24576 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24577 if (type <= 0) {
24578 opcode_t *dest = Parrot_ex_throw_from_op_args(
24579 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24580 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24581 }
24582
24583 PREG(1) = Parrot_pmc_new(interp, type);
24584 }
24585 }
24586
24587 return (opcode_t *)cur_opcode + 5;}
24588
24589 opcode_t *
24590 Parrot_fetch_p_pc_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24591 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24592 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, PREG(3));
24593 if (PMC_IS_NULL(PREG(1))) {
24594 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24595 if (!PMC_IS_NULL(classobj))
24596 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24597 else {
24598 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24599 if (type <= 0) {
24600 opcode_t *dest = Parrot_ex_throw_from_op_args(
24601 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24602 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24603 }
24604
24605 PREG(1) = Parrot_pmc_new(interp, type);
24606 }
24607 }
24608
24609 return (opcode_t *)cur_opcode + 5;}
24610
24611 opcode_t *
24612 Parrot_fetch_p_p_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24613 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24614 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3).u.key);
24615 if (PMC_IS_NULL(PREG(1))) {
24616 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24617 if (!PMC_IS_NULL(classobj))
24618 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24619 else {
24620 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24621 if (type <= 0) {
24622 opcode_t *dest = Parrot_ex_throw_from_op_args(
24623 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24624 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24625 }
24626
24627 PREG(1) = Parrot_pmc_new(interp, type);
24628 }
24629 }
24630
24631 return (opcode_t *)cur_opcode + 5;}
24632
24633 opcode_t *
24634 Parrot_fetch_p_pc_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24635 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24636 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, CONST(3).u.key);
24637 if (PMC_IS_NULL(PREG(1))) {
24638 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24639 if (!PMC_IS_NULL(classobj))
24640 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24641 else {
24642 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24643 if (type <= 0) {
24644 opcode_t *dest = Parrot_ex_throw_from_op_args(
24645 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24646 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24647 }
24648
24649 PREG(1) = Parrot_pmc_new(interp, type);
24650 }
24651 }
24652
24653 return (opcode_t *)cur_opcode + 5;}
24654
24655 opcode_t *
24656 Parrot_fetch_p_p_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
24657 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24658 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
24659 if (PMC_IS_NULL(PREG(1))) {
24660 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24661 if (!PMC_IS_NULL(classobj))
24662 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24663 else {
24664 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24665 if (type <= 0) {
24666 opcode_t *dest = Parrot_ex_throw_from_op_args(
24667 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24668 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24669 }
24670
24671 PREG(1) = Parrot_pmc_new(interp, type);
24672 }
24673 }
24674
24675 return (opcode_t *)cur_opcode + 5;}
24676
24677 opcode_t *
24678 Parrot_fetch_p_pc_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
24679 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24680 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, IREG(3));
24681 if (PMC_IS_NULL(PREG(1))) {
24682 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24683 if (!PMC_IS_NULL(classobj))
24684 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24685 else {
24686 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24687 if (type <= 0) {
24688 opcode_t *dest = Parrot_ex_throw_from_op_args(
24689 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24690 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24691 }
24692
24693 PREG(1) = Parrot_pmc_new(interp, type);
24694 }
24695 }
24696
24697 return (opcode_t *)cur_opcode + 5;}
24698
24699 opcode_t *
24700 Parrot_fetch_p_p_ic_p(opcode_t *cur_opcode, PARROT_INTERP) {
24701 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24702 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
24703 if (PMC_IS_NULL(PREG(1))) {
24704 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24705 if (!PMC_IS_NULL(classobj))
24706 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24707 else {
24708 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24709 if (type <= 0) {
24710 opcode_t *dest = Parrot_ex_throw_from_op_args(
24711 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24712 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24713 }
24714
24715 PREG(1) = Parrot_pmc_new(interp, type);
24716 }
24717 }
24718
24719 return (opcode_t *)cur_opcode + 5;}
24720
24721 opcode_t *
24722 Parrot_fetch_p_pc_ic_p(opcode_t *cur_opcode, PARROT_INTERP) {
24723 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24724 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, cur_opcode[3]);
24725 if (PMC_IS_NULL(PREG(1))) {
24726 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24727 if (!PMC_IS_NULL(classobj))
24728 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24729 else {
24730 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24731 if (type <= 0) {
24732 opcode_t *dest = Parrot_ex_throw_from_op_args(
24733 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24734 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24735 }
24736
24737 PREG(1) = Parrot_pmc_new(interp, type);
24738 }
24739 }
24740
24741 return (opcode_t *)cur_opcode + 5;}
24742
24743 opcode_t *
24744 Parrot_fetch_p_p_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24745 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24746 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
24747 if (PMC_IS_NULL(PREG(1))) {
24748 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24749 if (!PMC_IS_NULL(classobj))
24750 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24751 else {
24752 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24753 if (type <= 0) {
24754 opcode_t *dest = Parrot_ex_throw_from_op_args(
24755 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24756 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24757 }
24758
24759 PREG(1) = Parrot_pmc_new(interp, type);
24760 }
24761 }
24762
24763 return (opcode_t *)cur_opcode + 5;}
24764
24765 opcode_t *
24766 Parrot_fetch_p_pc_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24767 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24768 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, IREG(3));
24769 if (PMC_IS_NULL(PREG(1))) {
24770 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24771 if (!PMC_IS_NULL(classobj))
24772 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24773 else {
24774 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24775 if (type <= 0) {
24776 opcode_t *dest = Parrot_ex_throw_from_op_args(
24777 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24778 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24779 }
24780
24781 PREG(1) = Parrot_pmc_new(interp, type);
24782 }
24783 }
24784
24785 return (opcode_t *)cur_opcode + 5;}
24786
24787 opcode_t *
24788 Parrot_fetch_p_p_ic_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24789 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24790 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
24791 if (PMC_IS_NULL(PREG(1))) {
24792 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24793 if (!PMC_IS_NULL(classobj))
24794 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24795 else {
24796 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24797 if (type <= 0) {
24798 opcode_t *dest = Parrot_ex_throw_from_op_args(
24799 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24800 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24801 }
24802
24803 PREG(1) = Parrot_pmc_new(interp, type);
24804 }
24805 }
24806
24807 return (opcode_t *)cur_opcode + 5;}
24808
24809 opcode_t *
24810 Parrot_fetch_p_pc_ic_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24811 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24812 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, cur_opcode[3]);
24813 if (PMC_IS_NULL(PREG(1))) {
24814 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24815 if (!PMC_IS_NULL(classobj))
24816 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24817 else {
24818 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24819 if (type <= 0) {
24820 opcode_t *dest = Parrot_ex_throw_from_op_args(
24821 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24822 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24823 }
24824
24825 PREG(1) = Parrot_pmc_new(interp, type);
24826 }
24827 }
24828
24829 return (opcode_t *)cur_opcode + 5;}
24830
24831 opcode_t *
24832 Parrot_fetch_p_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24833 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24834 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
24835 if (PMC_IS_NULL(PREG(1))) {
24836 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24837 if (!PMC_IS_NULL(classobj))
24838 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24839 else {
24840 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24841 if (type <= 0) {
24842 opcode_t *dest = Parrot_ex_throw_from_op_args(
24843 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24844 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24845 }
24846
24847 PREG(1) = Parrot_pmc_new(interp, type);
24848 }
24849 }
24850
24851 return (opcode_t *)cur_opcode + 5;}
24852
24853 opcode_t *
24854 Parrot_fetch_p_pc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
24855 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24856 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, SREG(3));
24857 if (PMC_IS_NULL(PREG(1))) {
24858 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24859 if (!PMC_IS_NULL(classobj))
24860 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24861 else {
24862 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24863 if (type <= 0) {
24864 opcode_t *dest = Parrot_ex_throw_from_op_args(
24865 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24866 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24867 }
24868
24869 PREG(1) = Parrot_pmc_new(interp, type);
24870 }
24871 }
24872
24873 return (opcode_t *)cur_opcode + 5;}
24874
24875 opcode_t *
24876 Parrot_fetch_p_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24877 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24878 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3).u.string);
24879 if (PMC_IS_NULL(PREG(1))) {
24880 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24881 if (!PMC_IS_NULL(classobj))
24882 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24883 else {
24884 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24885 if (type <= 0) {
24886 opcode_t *dest = Parrot_ex_throw_from_op_args(
24887 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24888 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24889 }
24890
24891 PREG(1) = Parrot_pmc_new(interp, type);
24892 }
24893 }
24894
24895 return (opcode_t *)cur_opcode + 5;}
24896
24897 opcode_t *
24898 Parrot_fetch_p_pc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
24899 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24900 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, CONST(3).u.string);
24901 if (PMC_IS_NULL(PREG(1))) {
24902 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
24903 if (!PMC_IS_NULL(classobj))
24904 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24905 else {
24906 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
24907 if (type <= 0) {
24908 opcode_t *dest = Parrot_ex_throw_from_op_args(
24909 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24910 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
24911 }
24912
24913 PREG(1) = Parrot_pmc_new(interp, type);
24914 }
24915 }
24916
24917 return (opcode_t *)cur_opcode + 5;}
24918
24919 opcode_t *
24920 Parrot_fetch_p_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24921 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24922 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
24923 if (PMC_IS_NULL(PREG(1))) {
24924 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24925 if (!PMC_IS_NULL(classobj))
24926 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24927 else {
24928 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24929 if (type <= 0) {
24930 opcode_t *dest = Parrot_ex_throw_from_op_args(
24931 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24932 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24933 }
24934
24935 PREG(1) = Parrot_pmc_new(interp, type);
24936 }
24937 }
24938
24939 return (opcode_t *)cur_opcode + 5;}
24940
24941 opcode_t *
24942 Parrot_fetch_p_pc_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24943 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24944 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, SREG(3));
24945 if (PMC_IS_NULL(PREG(1))) {
24946 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24947 if (!PMC_IS_NULL(classobj))
24948 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24949 else {
24950 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24951 if (type <= 0) {
24952 opcode_t *dest = Parrot_ex_throw_from_op_args(
24953 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24954 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24955 }
24956
24957 PREG(1) = Parrot_pmc_new(interp, type);
24958 }
24959 }
24960
24961 return (opcode_t *)cur_opcode + 5;}
24962
24963 opcode_t *
24964 Parrot_fetch_p_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24965 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24966 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3).u.string);
24967 if (PMC_IS_NULL(PREG(1))) {
24968 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24969 if (!PMC_IS_NULL(classobj))
24970 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24971 else {
24972 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24973 if (type <= 0) {
24974 opcode_t *dest = Parrot_ex_throw_from_op_args(
24975 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24976 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24977 }
24978
24979 PREG(1) = Parrot_pmc_new(interp, type);
24980 }
24981 }
24982
24983 return (opcode_t *)cur_opcode + 5;}
24984
24985 opcode_t *
24986 Parrot_fetch_p_pc_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
24987 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
24988 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, CONST(3).u.string);
24989 if (PMC_IS_NULL(PREG(1))) {
24990 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
24991 if (!PMC_IS_NULL(classobj))
24992 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
24993 else {
24994 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
24995 if (type <= 0) {
24996 opcode_t *dest = Parrot_ex_throw_from_op_args(
24997 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
24998 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
24999 }
25000
25001 PREG(1) = Parrot_pmc_new(interp, type);
25002 }
25003 }
25004
25005 return (opcode_t *)cur_opcode + 5;}
25006
25007 opcode_t *
25008 Parrot_vivify_p_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
25009 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25010 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
25011
25012 if (PMC_IS_NULL(PREG(1))) {
25013 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25014
25015 if (!PMC_IS_NULL(classobj))
25016 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25017 else {
25018 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25019 if (type <= 0) {
25020 opcode_t *dest = Parrot_ex_throw_from_op_args(
25021 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25022 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25023 }
25024
25025 PREG(1) = Parrot_pmc_new(interp, type);
25026 }
25027 VTABLE_set_pmc_keyed(interp, PREG(2), PREG(3), PREG(1));
25028 }
25029
25030 return (opcode_t *)cur_opcode + 5;}
25031
25032 opcode_t *
25033 Parrot_vivify_p_pc_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
25034 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25035 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, PREG(3));
25036
25037 if (PMC_IS_NULL(PREG(1))) {
25038 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25039
25040 if (!PMC_IS_NULL(classobj))
25041 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25042 else {
25043 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25044 if (type <= 0) {
25045 opcode_t *dest = Parrot_ex_throw_from_op_args(
25046 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25047 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25048 }
25049
25050 PREG(1) = Parrot_pmc_new(interp, type);
25051 }
25052 VTABLE_set_pmc_keyed(interp, CONST(2).u.key, PREG(3), PREG(1));
25053 }
25054
25055 return (opcode_t *)cur_opcode + 5;}
25056
25057 opcode_t *
25058 Parrot_vivify_p_p_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
25059 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25060 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3).u.key);
25061
25062 if (PMC_IS_NULL(PREG(1))) {
25063 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25064
25065 if (!PMC_IS_NULL(classobj))
25066 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25067 else {
25068 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25069 if (type <= 0) {
25070 opcode_t *dest = Parrot_ex_throw_from_op_args(
25071 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25072 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25073 }
25074
25075 PREG(1) = Parrot_pmc_new(interp, type);
25076 }
25077 VTABLE_set_pmc_keyed(interp, PREG(2), CONST(3).u.key, PREG(1));
25078 }
25079
25080 return (opcode_t *)cur_opcode + 5;}
25081
25082 opcode_t *
25083 Parrot_vivify_p_pc_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
25084 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25085 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, CONST(3).u.key);
25086
25087 if (PMC_IS_NULL(PREG(1))) {
25088 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25089
25090 if (!PMC_IS_NULL(classobj))
25091 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25092 else {
25093 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25094 if (type <= 0) {
25095 opcode_t *dest = Parrot_ex_throw_from_op_args(
25096 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25097 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25098 }
25099
25100 PREG(1) = Parrot_pmc_new(interp, type);
25101 }
25102 VTABLE_set_pmc_keyed(interp, CONST(2).u.key, CONST(3).u.key, PREG(1));
25103 }
25104
25105 return (opcode_t *)cur_opcode + 5;}
25106
25107 opcode_t *
25108 Parrot_vivify_p_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25109 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25110 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), PREG(3));
25111
25112 if (PMC_IS_NULL(PREG(1))) {
25113 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25114
25115 if (!PMC_IS_NULL(classobj))
25116 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25117 else {
25118 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25119 if (type <= 0) {
25120 opcode_t *dest = Parrot_ex_throw_from_op_args(
25121 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25122 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25123 }
25124
25125 PREG(1) = Parrot_pmc_new(interp, type);
25126 }
25127 VTABLE_set_pmc_keyed(interp, PREG(2), PREG(3), PREG(1));
25128 }
25129
25130 return (opcode_t *)cur_opcode + 5;}
25131
25132 opcode_t *
25133 Parrot_vivify_p_pc_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25134 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25135 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, PREG(3));
25136
25137 if (PMC_IS_NULL(PREG(1))) {
25138 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25139
25140 if (!PMC_IS_NULL(classobj))
25141 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25142 else {
25143 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25144 if (type <= 0) {
25145 opcode_t *dest = Parrot_ex_throw_from_op_args(
25146 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25147 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25148 }
25149
25150 PREG(1) = Parrot_pmc_new(interp, type);
25151 }
25152 VTABLE_set_pmc_keyed(interp, CONST(2).u.key, PREG(3), PREG(1));
25153 }
25154
25155 return (opcode_t *)cur_opcode + 5;}
25156
25157 opcode_t *
25158 Parrot_vivify_p_p_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25159 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25160 PREG(1) = VTABLE_get_pmc_keyed(interp, PREG(2), CONST(3).u.key);
25161
25162 if (PMC_IS_NULL(PREG(1))) {
25163 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25164
25165 if (!PMC_IS_NULL(classobj))
25166 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25167 else {
25168 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25169 if (type <= 0) {
25170 opcode_t *dest = Parrot_ex_throw_from_op_args(
25171 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25172 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25173 }
25174
25175 PREG(1) = Parrot_pmc_new(interp, type);
25176 }
25177 VTABLE_set_pmc_keyed(interp, PREG(2), CONST(3).u.key, PREG(1));
25178 }
25179
25180 return (opcode_t *)cur_opcode + 5;}
25181
25182 opcode_t *
25183 Parrot_vivify_p_pc_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25184 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25185 PREG(1) = VTABLE_get_pmc_keyed(interp, CONST(2).u.key, CONST(3).u.key);
25186
25187 if (PMC_IS_NULL(PREG(1))) {
25188 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25189
25190 if (!PMC_IS_NULL(classobj))
25191 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25192 else {
25193 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25194 if (type <= 0) {
25195 opcode_t *dest = Parrot_ex_throw_from_op_args(
25196 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25197 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25198 }
25199
25200 PREG(1) = Parrot_pmc_new(interp, type);
25201 }
25202 VTABLE_set_pmc_keyed(interp, CONST(2).u.key, CONST(3).u.key, PREG(1));
25203 }
25204
25205 return (opcode_t *)cur_opcode + 5;}
25206
25207 opcode_t *
25208 Parrot_vivify_p_p_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
25209 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25210 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
25211
25212 if (PMC_IS_NULL(PREG(1))) {
25213 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25214 if (!PMC_IS_NULL(classobj))
25215 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25216 else {
25217 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25218 if (type <= 0) {
25219 opcode_t *dest = Parrot_ex_throw_from_op_args(
25220 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25221 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25222 }
25223
25224 PREG(1) = Parrot_pmc_new(interp, type);
25225 }
25226
25227 VTABLE_set_pmc_keyed_int(interp, PREG(2), IREG(3), PREG(1));
25228 }
25229
25230 return (opcode_t *)cur_opcode + 5;}
25231
25232 opcode_t *
25233 Parrot_vivify_p_pc_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
25234 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25235 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, IREG(3));
25236
25237 if (PMC_IS_NULL(PREG(1))) {
25238 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25239 if (!PMC_IS_NULL(classobj))
25240 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25241 else {
25242 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25243 if (type <= 0) {
25244 opcode_t *dest = Parrot_ex_throw_from_op_args(
25245 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25246 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25247 }
25248
25249 PREG(1) = Parrot_pmc_new(interp, type);
25250 }
25251
25252 VTABLE_set_pmc_keyed_int(interp, CONST(2).u.key, IREG(3), PREG(1));
25253 }
25254
25255 return (opcode_t *)cur_opcode + 5;}
25256
25257 opcode_t *
25258 Parrot_vivify_p_p_ic_p(opcode_t *cur_opcode, PARROT_INTERP) {
25259 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25260 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
25261
25262 if (PMC_IS_NULL(PREG(1))) {
25263 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25264 if (!PMC_IS_NULL(classobj))
25265 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25266 else {
25267 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25268 if (type <= 0) {
25269 opcode_t *dest = Parrot_ex_throw_from_op_args(
25270 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25271 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25272 }
25273
25274 PREG(1) = Parrot_pmc_new(interp, type);
25275 }
25276
25277 VTABLE_set_pmc_keyed_int(interp, PREG(2), cur_opcode[3], PREG(1));
25278 }
25279
25280 return (opcode_t *)cur_opcode + 5;}
25281
25282 opcode_t *
25283 Parrot_vivify_p_pc_ic_p(opcode_t *cur_opcode, PARROT_INTERP) {
25284 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25285 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, cur_opcode[3]);
25286
25287 if (PMC_IS_NULL(PREG(1))) {
25288 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25289 if (!PMC_IS_NULL(classobj))
25290 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25291 else {
25292 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25293 if (type <= 0) {
25294 opcode_t *dest = Parrot_ex_throw_from_op_args(
25295 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25296 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25297 }
25298
25299 PREG(1) = Parrot_pmc_new(interp, type);
25300 }
25301
25302 VTABLE_set_pmc_keyed_int(interp, CONST(2).u.key, cur_opcode[3], PREG(1));
25303 }
25304
25305 return (opcode_t *)cur_opcode + 5;}
25306
25307 opcode_t *
25308 Parrot_vivify_p_p_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25309 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25310 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), IREG(3));
25311
25312 if (PMC_IS_NULL(PREG(1))) {
25313 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25314 if (!PMC_IS_NULL(classobj))
25315 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25316 else {
25317 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25318 if (type <= 0) {
25319 opcode_t *dest = Parrot_ex_throw_from_op_args(
25320 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25321 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25322 }
25323
25324 PREG(1) = Parrot_pmc_new(interp, type);
25325 }
25326
25327 VTABLE_set_pmc_keyed_int(interp, PREG(2), IREG(3), PREG(1));
25328 }
25329
25330 return (opcode_t *)cur_opcode + 5;}
25331
25332 opcode_t *
25333 Parrot_vivify_p_pc_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25334 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25335 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, IREG(3));
25336
25337 if (PMC_IS_NULL(PREG(1))) {
25338 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25339 if (!PMC_IS_NULL(classobj))
25340 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25341 else {
25342 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25343 if (type <= 0) {
25344 opcode_t *dest = Parrot_ex_throw_from_op_args(
25345 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25346 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25347 }
25348
25349 PREG(1) = Parrot_pmc_new(interp, type);
25350 }
25351
25352 VTABLE_set_pmc_keyed_int(interp, CONST(2).u.key, IREG(3), PREG(1));
25353 }
25354
25355 return (opcode_t *)cur_opcode + 5;}
25356
25357 opcode_t *
25358 Parrot_vivify_p_p_ic_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25359 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25360 PREG(1) = VTABLE_get_pmc_keyed_int(interp, PREG(2), cur_opcode[3]);
25361
25362 if (PMC_IS_NULL(PREG(1))) {
25363 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25364 if (!PMC_IS_NULL(classobj))
25365 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25366 else {
25367 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25368 if (type <= 0) {
25369 opcode_t *dest = Parrot_ex_throw_from_op_args(
25370 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25371 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25372 }
25373
25374 PREG(1) = Parrot_pmc_new(interp, type);
25375 }
25376
25377 VTABLE_set_pmc_keyed_int(interp, PREG(2), cur_opcode[3], PREG(1));
25378 }
25379
25380 return (opcode_t *)cur_opcode + 5;}
25381
25382 opcode_t *
25383 Parrot_vivify_p_pc_ic_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25384 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25385 PREG(1) = VTABLE_get_pmc_keyed_int(interp, CONST(2).u.key, cur_opcode[3]);
25386
25387 if (PMC_IS_NULL(PREG(1))) {
25388 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25389 if (!PMC_IS_NULL(classobj))
25390 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25391 else {
25392 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25393 if (type <= 0) {
25394 opcode_t *dest = Parrot_ex_throw_from_op_args(
25395 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25396 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25397 }
25398
25399 PREG(1) = Parrot_pmc_new(interp, type);
25400 }
25401
25402 VTABLE_set_pmc_keyed_int(interp, CONST(2).u.key, cur_opcode[3], PREG(1));
25403 }
25404
25405 return (opcode_t *)cur_opcode + 5;}
25406
25407 opcode_t *
25408 Parrot_vivify_p_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
25409 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25410 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
25411
25412 if (PMC_IS_NULL(PREG(1))) {
25413 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25414 if (!PMC_IS_NULL(classobj))
25415 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25416 else {
25417 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25418 if (type <= 0) {
25419 opcode_t *dest = Parrot_ex_throw_from_op_args(
25420 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25421 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25422 }
25423
25424 PREG(1) = Parrot_pmc_new(interp, type);
25425 }
25426
25427 VTABLE_set_pmc_keyed_str(interp, PREG(2), SREG(3), PREG(1));
25428 }
25429
25430 return (opcode_t *)cur_opcode + 5;}
25431
25432 opcode_t *
25433 Parrot_vivify_p_pc_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
25434 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25435 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, SREG(3));
25436
25437 if (PMC_IS_NULL(PREG(1))) {
25438 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25439 if (!PMC_IS_NULL(classobj))
25440 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25441 else {
25442 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25443 if (type <= 0) {
25444 opcode_t *dest = Parrot_ex_throw_from_op_args(
25445 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25446 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25447 }
25448
25449 PREG(1) = Parrot_pmc_new(interp, type);
25450 }
25451
25452 VTABLE_set_pmc_keyed_str(interp, CONST(2).u.key, SREG(3), PREG(1));
25453 }
25454
25455 return (opcode_t *)cur_opcode + 5;}
25456
25457 opcode_t *
25458 Parrot_vivify_p_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
25459 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25460 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3).u.string);
25461
25462 if (PMC_IS_NULL(PREG(1))) {
25463 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25464 if (!PMC_IS_NULL(classobj))
25465 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25466 else {
25467 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25468 if (type <= 0) {
25469 opcode_t *dest = Parrot_ex_throw_from_op_args(
25470 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25471 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25472 }
25473
25474 PREG(1) = Parrot_pmc_new(interp, type);
25475 }
25476
25477 VTABLE_set_pmc_keyed_str(interp, PREG(2), CONST(3).u.string, PREG(1));
25478 }
25479
25480 return (opcode_t *)cur_opcode + 5;}
25481
25482 opcode_t *
25483 Parrot_vivify_p_pc_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
25484 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25485 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, CONST(3).u.string);
25486
25487 if (PMC_IS_NULL(PREG(1))) {
25488 PMC * const classobj = Parrot_oo_get_class(interp, PREG(4));
25489 if (!PMC_IS_NULL(classobj))
25490 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25491 else {
25492 const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
25493 if (type <= 0) {
25494 opcode_t *dest = Parrot_ex_throw_from_op_args(
25495 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25496 "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
25497 }
25498
25499 PREG(1) = Parrot_pmc_new(interp, type);
25500 }
25501
25502 VTABLE_set_pmc_keyed_str(interp, CONST(2).u.key, CONST(3).u.string, PREG(1));
25503 }
25504
25505 return (opcode_t *)cur_opcode + 5;}
25506
25507 opcode_t *
25508 Parrot_vivify_p_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25509 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25510 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), SREG(3));
25511
25512 if (PMC_IS_NULL(PREG(1))) {
25513 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25514 if (!PMC_IS_NULL(classobj))
25515 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25516 else {
25517 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25518 if (type <= 0) {
25519 opcode_t *dest = Parrot_ex_throw_from_op_args(
25520 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25521 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25522 }
25523
25524 PREG(1) = Parrot_pmc_new(interp, type);
25525 }
25526
25527 VTABLE_set_pmc_keyed_str(interp, PREG(2), SREG(3), PREG(1));
25528 }
25529
25530 return (opcode_t *)cur_opcode + 5;}
25531
25532 opcode_t *
25533 Parrot_vivify_p_pc_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25534 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25535 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, SREG(3));
25536
25537 if (PMC_IS_NULL(PREG(1))) {
25538 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25539 if (!PMC_IS_NULL(classobj))
25540 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25541 else {
25542 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25543 if (type <= 0) {
25544 opcode_t *dest = Parrot_ex_throw_from_op_args(
25545 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25546 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25547 }
25548
25549 PREG(1) = Parrot_pmc_new(interp, type);
25550 }
25551
25552 VTABLE_set_pmc_keyed_str(interp, CONST(2).u.key, SREG(3), PREG(1));
25553 }
25554
25555 return (opcode_t *)cur_opcode + 5;}
25556
25557 opcode_t *
25558 Parrot_vivify_p_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25559 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25560 PREG(1) = VTABLE_get_pmc_keyed_str(interp, PREG(2), CONST(3).u.string);
25561
25562 if (PMC_IS_NULL(PREG(1))) {
25563 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25564 if (!PMC_IS_NULL(classobj))
25565 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25566 else {
25567 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25568 if (type <= 0) {
25569 opcode_t *dest = Parrot_ex_throw_from_op_args(
25570 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25571 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25572 }
25573
25574 PREG(1) = Parrot_pmc_new(interp, type);
25575 }
25576
25577 VTABLE_set_pmc_keyed_str(interp, PREG(2), CONST(3).u.string, PREG(1));
25578 }
25579
25580 return (opcode_t *)cur_opcode + 5;}
25581
25582 opcode_t *
25583 Parrot_vivify_p_pc_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
25584 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25585 PREG(1) = VTABLE_get_pmc_keyed_str(interp, CONST(2).u.key, CONST(3).u.string);
25586
25587 if (PMC_IS_NULL(PREG(1))) {
25588 PMC * const classobj = Parrot_oo_get_class(interp, CONST(4).u.key);
25589 if (!PMC_IS_NULL(classobj))
25590 PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
25591 else {
25592 const INTVAL type = Parrot_pmc_get_type(interp, CONST(4).u.key);
25593 if (type <= 0) {
25594 opcode_t *dest = Parrot_ex_throw_from_op_args(
25595 interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
25596 "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4).u.key));return (opcode_t *)dest;
25597 }
25598
25599 PREG(1) = Parrot_pmc_new(interp, type);
25600 }
25601
25602 VTABLE_set_pmc_keyed_str(interp, CONST(2).u.key, CONST(3).u.string, PREG(1));
25603 }
25604
25605 return (opcode_t *)cur_opcode + 5;}
25606
25607 opcode_t *
25608 Parrot_new_p_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
25609 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25610 STRING * const name = SREG(2);
25611 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
25612 ? Parrot_oo_get_class_str(interp, name)
25613 : PMCNULL;
25614
25615 if (!PMC_IS_NULL(_class)) {
25616 PMC *initial = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25617 VTABLE_set_integer_native(interp, initial, IREG(3));
25618 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25619 }
25620 else {
25621 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
25622 if (type <= 0) {
25623 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25624 EXCEPTION_NO_CLASS,
25625 "Class '%Ss' not found", name);return (opcode_t *)dest;
25626 }
25627 PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
25628 }
25629
25630 return (opcode_t *)cur_opcode + 4;}
25631
25632 opcode_t *
25633 Parrot_new_p_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
25634 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25635 STRING * const name = CONST(2).u.string;
25636 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
25637 ? Parrot_oo_get_class_str(interp, name)
25638 : PMCNULL;
25639
25640 if (!PMC_IS_NULL(_class)) {
25641 PMC *initial = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25642 VTABLE_set_integer_native(interp, initial, IREG(3));
25643 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25644 }
25645 else {
25646 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
25647 if (type <= 0) {
25648 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25649 EXCEPTION_NO_CLASS,
25650 "Class '%Ss' not found", name);return (opcode_t *)dest;
25651 }
25652 PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
25653 }
25654
25655 return (opcode_t *)cur_opcode + 4;}
25656
25657 opcode_t *
25658 Parrot_new_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
25659 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25660 STRING * const name = SREG(2);
25661 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
25662 ? Parrot_oo_get_class_str(interp, name)
25663 : PMCNULL;
25664
25665 if (!PMC_IS_NULL(_class)) {
25666 PMC *initial = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25667 VTABLE_set_integer_native(interp, initial, cur_opcode[3]);
25668 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25669 }
25670 else {
25671 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
25672 if (type <= 0) {
25673 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25674 EXCEPTION_NO_CLASS,
25675 "Class '%Ss' not found", name);return (opcode_t *)dest;
25676 }
25677 PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
25678 }
25679
25680 return (opcode_t *)cur_opcode + 4;}
25681
25682 opcode_t *
25683 Parrot_new_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
25684 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25685 STRING * const name = CONST(2).u.string;
25686 PMC * const _class = Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp))
25687 ? Parrot_oo_get_class_str(interp, name)
25688 : PMCNULL;
25689
25690 if (!PMC_IS_NULL(_class)) {
25691 PMC *initial = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25692 VTABLE_set_integer_native(interp, initial, cur_opcode[3]);
25693 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25694 }
25695 else {
25696 const INTVAL type = Parrot_pmc_get_type_str(interp, name);
25697 if (type <= 0) {
25698 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25699 EXCEPTION_NO_CLASS,
25700 "Class '%Ss' not found", name);return (opcode_t *)dest;
25701 }
25702 PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
25703 }
25704
25705 return (opcode_t *)cur_opcode + 4;}
25706
25707 opcode_t *
25708 Parrot_new_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
25709 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25710 PMC * const name_key = PREG(2);
25711
25712 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25713 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25714
25715 /* if it's clearly a PIR-level PMC */
25716 if (type > enum_class_core_max) {
25717 PMC * const _class = Parrot_oo_get_class(interp, name_key);
25718 if (!PMC_IS_NULL(_class)) {
25719 PMC *initial = Parrot_pmc_new(interp,
25720 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25721 VTABLE_set_integer_native(interp, initial, IREG(3));
25722 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25723 }
25724 }
25725
25726 /* if it's a core PMC */
25727 else if (type > enum_class_default)
25728 PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
25729
25730 /* it's a typo */
25731 else {
25732 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25733 EXCEPTION_NO_CLASS,
25734 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25735 }
25736
25737 return (opcode_t *)cur_opcode + 4;}
25738
25739 opcode_t *
25740 Parrot_new_p_pc_i(opcode_t *cur_opcode, PARROT_INTERP) {
25741 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25742 PMC * const name_key = CONST(2).u.key;
25743
25744 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25745 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25746
25747 /* if it's clearly a PIR-level PMC */
25748 if (type > enum_class_core_max) {
25749 PMC * const _class = Parrot_oo_get_class(interp, name_key);
25750 if (!PMC_IS_NULL(_class)) {
25751 PMC *initial = Parrot_pmc_new(interp,
25752 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25753 VTABLE_set_integer_native(interp, initial, IREG(3));
25754 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25755 }
25756 }
25757
25758 /* if it's a core PMC */
25759 else if (type > enum_class_default)
25760 PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
25761
25762 /* it's a typo */
25763 else {
25764 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25765 EXCEPTION_NO_CLASS,
25766 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25767 }
25768
25769 return (opcode_t *)cur_opcode + 4;}
25770
25771 opcode_t *
25772 Parrot_new_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
25773 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25774 PMC * const name_key = PREG(2);
25775
25776 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25777 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25778
25779 /* if it's clearly a PIR-level PMC */
25780 if (type > enum_class_core_max) {
25781 PMC * const _class = Parrot_oo_get_class(interp, name_key);
25782 if (!PMC_IS_NULL(_class)) {
25783 PMC *initial = Parrot_pmc_new(interp,
25784 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25785 VTABLE_set_integer_native(interp, initial, cur_opcode[3]);
25786 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25787 }
25788 }
25789
25790 /* if it's a core PMC */
25791 else if (type > enum_class_default)
25792 PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
25793
25794 /* it's a typo */
25795 else {
25796 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25797 EXCEPTION_NO_CLASS,
25798 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25799 }
25800
25801 return (opcode_t *)cur_opcode + 4;}
25802
25803 opcode_t *
25804 Parrot_new_p_pc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
25805 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25806 PMC * const name_key = CONST(2).u.key;
25807
25808 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25809 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25810
25811 /* if it's clearly a PIR-level PMC */
25812 if (type > enum_class_core_max) {
25813 PMC * const _class = Parrot_oo_get_class(interp, name_key);
25814 if (!PMC_IS_NULL(_class)) {
25815 PMC *initial = Parrot_pmc_new(interp,
25816 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25817 VTABLE_set_integer_native(interp, initial, cur_opcode[3]);
25818 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25819 }
25820 }
25821
25822 /* if it's a core PMC */
25823 else if (type > enum_class_default)
25824 PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
25825
25826 /* it's a typo */
25827 else {
25828 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25829 EXCEPTION_NO_CLASS,
25830 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25831 }
25832
25833 return (opcode_t *)cur_opcode + 4;}
25834
25835 opcode_t *
25836 Parrot_root_new_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
25837 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25838 PMC * const name_key = PREG(2);
25839
25840 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25841 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25842
25843 /* if it's clearly a PIR-level PMC */
25844 if (type > enum_class_core_max) {
25845 PMC * const root_ns = interp->root_namespace;
25846 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, name_key);
25847 PMC * const _class = Parrot_oo_get_class(interp, ns);
25848 if (!PMC_IS_NULL(_class)) {
25849 PMC *initial = Parrot_pmc_new(interp,
25850 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25851 VTABLE_set_integer_native(interp, initial, IREG(3));
25852 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25853 }
25854 }
25855
25856 /* if it's a core PMC */
25857 else if (type > enum_class_default)
25858 PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
25859
25860 /* it's a typo */
25861 else {
25862 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25863 EXCEPTION_NO_CLASS,
25864 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25865 }
25866
25867 return (opcode_t *)cur_opcode + 4;}
25868
25869 opcode_t *
25870 Parrot_root_new_p_pc_i(opcode_t *cur_opcode, PARROT_INTERP) {
25871 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25872 PMC * const name_key = CONST(2).u.key;
25873
25874 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25875 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25876
25877 /* if it's clearly a PIR-level PMC */
25878 if (type > enum_class_core_max) {
25879 PMC * const root_ns = interp->root_namespace;
25880 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, name_key);
25881 PMC * const _class = Parrot_oo_get_class(interp, ns);
25882 if (!PMC_IS_NULL(_class)) {
25883 PMC *initial = Parrot_pmc_new(interp,
25884 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25885 VTABLE_set_integer_native(interp, initial, IREG(3));
25886 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25887 }
25888 }
25889
25890 /* if it's a core PMC */
25891 else if (type > enum_class_default)
25892 PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
25893
25894 /* it's a typo */
25895 else {
25896 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25897 EXCEPTION_NO_CLASS,
25898 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25899 }
25900
25901 return (opcode_t *)cur_opcode + 4;}
25902
25903 opcode_t *
25904 Parrot_root_new_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
25905 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25906 PMC * const name_key = PREG(2);
25907
25908 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25909 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25910
25911 /* if it's clearly a PIR-level PMC */
25912 if (type > enum_class_core_max) {
25913 PMC * const root_ns = interp->root_namespace;
25914 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, name_key);
25915 PMC * const _class = Parrot_oo_get_class(interp, ns);
25916 if (!PMC_IS_NULL(_class)) {
25917 PMC *initial = Parrot_pmc_new(interp,
25918 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25919 VTABLE_set_integer_native(interp, initial, cur_opcode[3]);
25920 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25921 }
25922 }
25923
25924 /* if it's a core PMC */
25925 else if (type > enum_class_default)
25926 PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
25927
25928 /* it's a typo */
25929 else {
25930 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25931 EXCEPTION_NO_CLASS,
25932 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25933 }
25934
25935 return (opcode_t *)cur_opcode + 4;}
25936
25937 opcode_t *
25938 Parrot_root_new_p_pc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
25939 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25940 PMC * const name_key = CONST(2).u.key;
25941
25942 /* get_class() returns a PMCProxy for core types, so check for core PMCs */
25943 const INTVAL type = Parrot_pmc_get_type(interp, name_key);
25944
25945 /* if it's clearly a PIR-level PMC */
25946 if (type > enum_class_core_max) {
25947 PMC * const root_ns = interp->root_namespace;
25948 PMC * const ns = Parrot_ns_get_namespace_keyed(interp, root_ns, name_key);
25949 PMC * const _class = Parrot_oo_get_class(interp, ns);
25950 if (!PMC_IS_NULL(_class)) {
25951 PMC *initial = Parrot_pmc_new(interp,
25952 Parrot_get_ctx_HLL_type(interp, enum_class_Integer));
25953 VTABLE_set_integer_native(interp, initial, cur_opcode[3]);
25954 PREG(1) = VTABLE_instantiate(interp, _class, initial);
25955 }
25956 }
25957
25958 /* if it's a core PMC */
25959 else if (type > enum_class_default)
25960 PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
25961
25962 /* it's a typo */
25963 else {
25964 opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
25965 EXCEPTION_NO_CLASS,
25966 "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
25967 }
25968
25969 return (opcode_t *)cur_opcode + 4;}
25970
25971 opcode_t *
25972 Parrot_find_codepoint_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
25973 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25974 #if PARROT_HAS_ICU
25975 UErrorCode err = U_ZERO_ERROR;
25976 char * const cstr = Parrot_str_to_cstring(interp, SREG(2));
25977 UChar32 codepoint = u_charFromName(U_EXTENDED_CHAR_NAME, cstr, &err);
25978 Parrot_str_free_cstring(cstr);
25979 IREG(1) = U_SUCCESS(err) ? (INTVAL) codepoint : -1;
25980 #else
25981 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
25982 EXCEPTION_LIBRARY_ERROR, "no ICU lib loaded");return (opcode_t *)dest;
25983 #endif
25984
25985 return (opcode_t *)cur_opcode + 3;}
25986
25987 opcode_t *
25988 Parrot_find_codepoint_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
25989 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
25990 #if PARROT_HAS_ICU
25991 UErrorCode err = U_ZERO_ERROR;
25992 char * const cstr = Parrot_str_to_cstring(interp, CONST(2).u.string);
25993 UChar32 codepoint = u_charFromName(U_EXTENDED_CHAR_NAME, cstr, &err);
25994 Parrot_str_free_cstring(cstr);
25995 IREG(1) = U_SUCCESS(err) ? (INTVAL) codepoint : -1;
25996 #else
25997 opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
25998 EXCEPTION_LIBRARY_ERROR, "no ICU lib loaded");return (opcode_t *)dest;
25999 #endif
26000
26001 return (opcode_t *)cur_opcode + 3;}
26002
26003 opcode_t *
26004 Parrot_finalize_p(opcode_t *cur_opcode, PARROT_INTERP) {
26005 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
26006 /* Go to the next op after loop unrolling */
26007 opcode_t * const dest = cur_opcode + 2;
26008 PMC *eh = PMCNULL;
26009 if (!PMC_IS_NULL(PREG(1))) {
26010 /* If isa ExceptionHandler, use it. If isa Exception, get its active handler */
26011 if (VTABLE_isa(interp, PREG(1), Parrot_str_new_constant(interp, "ExceptionHandler")))
26012 eh = PREG(1);
26013 else if (VTABLE_isa(interp, PREG(1), Parrot_str_new_constant(interp, "Exception"))) {
26014 PMC *iter = VTABLE_get_attr_str(interp,
26015 PREG(1), Parrot_str_new_constant(interp, "handler_iter"));
26016 if (!PMC_IS_NULL(iter))
26017 eh = VTABLE_get_pmc_keyed_int(interp, iter, -1);
26018 }
26019 }
26020 if (!PMC_IS_NULL(eh)) {
26021 /* Get the runloop_id from the continuation and jump to it. */
26022 Parrot_runloop *rl = interp->current_runloop;
26023 INTVAL rid;
26024 Parrot_pcc_invoke_method_from_c_args(interp,
26025 eh, Parrot_str_new_constant(interp, "rid"),
26026 "->I", &rid);
26027 while (rl && rl->id != rid)
26028 rl = rl->prev;
26029 if (rl) {
26030 if (rl != interp->current_runloop) {
26031 rl->handler_start = dest;
26032 longjmp(rl->resume, 3);
26033 }
26034 }
26035 else
26036 Parrot_ex_throw_from_c_args(interp, NULL,
26037 EXCEPTION_INVALID_OPERATION, "missing runloop");
26038 }
26039
26040 return (opcode_t *)cur_opcode + 2;}
26041
26042 opcode_t *
26043 Parrot_finalize_pc(opcode_t *cur_opcode, PARROT_INTERP) {
26044 const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
26045 /* Go to the next op after loop unrolling */
26046 opcode_t * const dest = cur_opcode + 2;
26047 PMC *eh = PMCNULL;
26048 if (!PMC_IS_NULL(CONST(1).u.key)) {
26049 /* If isa ExceptionHandler, use it. If isa Exception, get its active handler */
26050 if (VTABLE_isa(interp, CONST(1).u.key, Parrot_str_new_constant(interp, "ExceptionHandler")))
26051 eh = CONST(1).u.key;
26052 else if (VTABLE_isa(interp, CONST(1).u.key, Parrot_str_new_constant(interp, "Exception"))) {
26053 PMC *iter = VTABLE_get_attr_str(interp,
26054 CONST(1).u.key, Parrot_str_new_constant(interp, "handler_iter"));
26055 if (!PMC_IS_NULL(iter))
26056 eh = VTABLE_get_pmc_keyed_int(interp, iter, -1);
26057 }
26058 }
26059 if (!PMC_IS_NULL(eh)) {
26060 /* Get the runloop_id from the continuation and jump to it. */
26061 Parrot_runloop *rl = interp->current_runloop;
26062 INTVAL rid;
26063 Parrot_pcc_invoke_method_from_c_args(interp,
26064 eh, Parrot_str_new_constant(interp, "rid"),
26065 "->I", &rid);
26066 while (rl && rl->id != rid)
26067 rl = rl->prev;
26068 if (rl) {
26069 if (rl != interp->current_runloop) {
26070 rl->handler_start = dest;
26071 longjmp(rl->resume, 3);
26072 }
26073 }
26074 else
26075 Parrot_ex_throw_from_c_args(interp, NULL,
26076 EXCEPTION_INVALID_OPERATION, "missing runloop");
26077 }
26078
26079 return (opcode_t *)cur_opcode + 2;}
26080
26081
26082 /*
26083 ** op lib descriptor:
26084 */
26085
26086 /* XXX should be static, but C++ doesn't want to play ball */
26087 op_lib_t core_op_lib = {
26088 "core_ops", /* name */
26089 "", /* suffix */
26090 PARROT_FUNCTION_CORE, /* core_type = PARROT_XX_CORE */
26091 0, /* flags */
26092 2, /* major_version */
26093 7, /* minor_version */
26094 0, /* patch_version */
26095 1083, /* op_count */
26096 core_op_info_table, /* op_info_table */
26097 core_op_func_table, /* op_func_table */
26098 get_op /* op_code() */
26099 };
26100
26101 /*
26102 ** Op lookup function:
26103 */
26104
26105 #define OP_HASH_SIZE 3041
26106
26107 /* we could calculate a prime somewhat bigger than
26108 * n of fullnames + n of names
26109 * for now this should be ok
26110 *
26111 * look up an op_code: at first call to op_code() a hash
26112 * of short and full opcode names is created
26113 * hash functions are from imcc, thanks to Melvin.
26114 */
26115
26116
26117 typedef struct hop {
26118 op_info_t * info;
26119 struct hop *next;
26120 } HOP;
26121
26122 static HOP *hop_buckets;
26123 static HOP **hop;
26124
26125 static void hop_init(PARROT_INTERP);
26126 static size_t hash_str(const char *str);
26127 static void store_op(PARROT_INTERP, op_info_t *info, HOP *p, const char *name);
26128
26129 /* XXX on changing interpreters, this should be called,
26130 through a hook */
26131
26132 static void hop_deinit(PARROT_INTERP);
26133
26134 /*
26135 * find a short or full opcode
26136 * usage:
26137 *
26138 * interp->op_lib->op_code("set", 0)
26139 * interp->op_lib->op_code("set_i_i", 1)
26140 *
26141 * returns >= 0 (found idx into info_table), -1 if not
26142 */
26143
26144 PARROT_PURE_FUNCTION
26145 static
26146 size_t hash_str(ARGIN(const char *str))
26147 {
26148 size_t key = 0;
26149 const char *s = str;
26150
26151 while (*s) {
26152 key *= 65599;
26153 key += *s++;
26154 }
26155
26156 return key;
26157 }
26158
26159
26160 static void store_op(PARROT_INTERP, op_info_t *info, HOP *p, const char *name)
26161 {
26162 const size_t hidx = hash_str(name) % OP_HASH_SIZE;
26163
26164 p->info = info;
26165 p->next = hop[hidx];
26166 hop[hidx] = p;
26167 }
26168
26169 static int get_op(PARROT_INTERP, const char *name, int full)
26170 {
26171 const HOP *p;
26172 const size_t hidx = hash_str(name) % OP_HASH_SIZE;
26173
26174 if (!hop) {
26175 hop = mem_gc_allocate_n_zeroed_typed(interp, OP_HASH_SIZE,HOP *);
26176 hop_init(interp);
26177 }
26178
26179 for (p = hop[hidx]; p; p = p->next) {
26180 if (STREQ(name, full ? p->info->full_name : p->info->name))
26181 return p->info - core_op_lib.op_info_table;
26182 }
26183
26184 return -1;
26185 }
26186
26187
26188 static void hop_init(PARROT_INTERP)
26189 {
26190 op_info_t * const info = core_op_lib.op_info_table;
26191
26192 /* allocate the storage all in one chunk
26193 * yes, this is profligate, but we can tighten it later */
26194 HOP *hops = hop_buckets =
26195 mem_gc_allocate_n_zeroed_typed(interp, core_op_lib.op_count * 2, HOP );
26196
26197 size_t i;
26198
26199 /* store full names */
26200 for (i = 0; i < core_op_lib.op_count; i++) {
26201 store_op(interp, info + i, hops++, info[i].full_name);
26202
26203 /* plus one short name */
26204 if (i && info[i - 1].name != info[i].name)
26205 store_op(interp, info + i, hops++, info[i].name);
26206 }
26207 }
26208
26209 static void hop_deinit(PARROT_INTERP)
26210 {
26211 if (hop)
26212 mem_sys_free(hop);
26213 if (hop_buckets)
26214 mem_gc_free(interp, hop_buckets);
26215
26216 hop = NULL;
26217 hop_buckets = NULL;
26218 }PARROT_EXPORT
26219 op_lib_t *
26220 Parrot_DynOp_core_2_7_0(PARROT_INTERP, long init) {
26221 /* initialize and return op_lib ptr */
26222 if (init == 1) {
26223
26224 return &core_op_lib;
26225 }
26226 /* set op_lib to the passed ptr (in init) */
26227 else if (init) {
26228
26229 }
26230 /* deinit - free resources */
26231 else {
26232 hop_deinit(interp);
26233 }
26234 return NULL;
26235 }
26236
26237
26238 /*
26239 * dynamic lib load function - called once
26240 */
26241 PMC*
26242 Parrot_lib_core_ops_load(PARROT_INTERP);
26243
26244 PMC*
26245 Parrot_lib_core_ops_load(PARROT_INTERP)
26246
26247 {
26248 PMC *const lib = Parrot_pmc_new(interp, enum_class_ParrotLibrary);
26249 ((Parrot_ParrotLibrary_attributes*)PMC_data(lib))->oplib_init = (void *) Parrot_DynOp_core_2_7_0;
26250 dynop_register(interp, lib);
26251 return lib;
26252 }
26253
26254
26255 /*
26256 * Local variables:
26257 * c-file-style: "parrot"
26258 * buffer-read-only: t
26259 * End:
26260 * vim: expandtab shiftwidth=4:
26261 */
parrot vm git mirror