[svn:parrot] r47003 - in trunk: . compilers/opsc compilers/opsc/src/Ops include/parrot src/ops t/compilers/opsc
cotto at svn.parrot.org
cotto at svn.parrot.org
Wed May 26 01:35:33 UTC 2010
Author: cotto
Date: Wed May 26 01:35:32 2010
New Revision: 47003
URL: https://trac.parrot.org/parrot/changeset/47003
Log:
[opsc] nuke ops.num and supporting code
Deleted:
trunk/src/ops/ops.num
Modified:
trunk/MANIFEST
trunk/compilers/opsc/ops2c.nqp
trunk/compilers/opsc/src/Ops/Emitter.pm
trunk/compilers/opsc/src/Ops/File.pm
trunk/compilers/opsc/src/Ops/OpLib.pm
trunk/include/parrot/opsenum.h
trunk/src/ops/core_ops.c
trunk/t/compilers/opsc/05-oplib.t
Modified: trunk/MANIFEST
==============================================================================
--- trunk/MANIFEST Wed May 26 01:30:50 2010 (r47002)
+++ trunk/MANIFEST Wed May 26 01:35:32 2010 (r47003)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Mon May 24 08:07:25 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Wed May 26 01:29:10 2010 UT
#
# See below for documentation on the format of this file.
#
@@ -28,13 +28,13 @@
RESPONSIBLE_PARTIES [main]doc
TODO [devel]doc
VERSION [devel]
-compilers/data_json/Defines.mak []
-compilers/data_json/Rules.mak []
+compilers/data_json/Defines.mak [data_json]
+compilers/data_json/Rules.mak [data_json]
compilers/data_json/data_json.pir [data_json]
compilers/data_json/data_json/grammar.pg [data_json]
compilers/data_json/data_json/pge2pir.tg [data_json]
-compilers/imcc/Defines.mak []
-compilers/imcc/Rules.in []
+compilers/imcc/Defines.mak [imcc]
+compilers/imcc/Rules.in [imcc]
compilers/imcc/cfg.c [imcc]
compilers/imcc/cfg.h [imcc]
compilers/imcc/debug.c [imcc]
@@ -62,8 +62,8 @@
compilers/imcc/symreg.c [imcc]
compilers/imcc/symreg.h [imcc]
compilers/imcc/unit.h [imcc]
-compilers/opsc/Defines.mak []
-compilers/opsc/Rules.mak []
+compilers/opsc/Defines.mak [opsc]
+compilers/opsc/Rules.mak [opsc]
compilers/opsc/TODO [opsc]
compilers/opsc/gen/Ops/Compiler/IGNOREME [opsc]
compilers/opsc/gen/Ops/Trans/IGNOREME [opsc]
@@ -80,10 +80,10 @@
compilers/opsc/src/Ops/Trans.pm [opsc]
compilers/opsc/src/Ops/Trans/C.pm [opsc]
compilers/opsc/src/builtins.pir [opsc]
-compilers/pct/Defines.mak []
+compilers/pct/Defines.mak [pct]
compilers/pct/PCT.pir [pct]
compilers/pct/README.pod []doc
-compilers/pct/Rules.mak []
+compilers/pct/Rules.mak [pct]
compilers/pct/src/PAST.pir [pct]
compilers/pct/src/PAST/Compiler.pir [pct]
compilers/pct/src/PAST/Node.pir [pct]
@@ -93,7 +93,7 @@
compilers/pct/src/PCT/Node.pir [pct]
compilers/pct/src/POST/Compiler.pir [pct]
compilers/pct/src/POST/Node.pir [pct]
-compilers/pge/Defines.mak []
+compilers/pge/Defines.mak [pge]
compilers/pge/P6Rule.grammar [pge]
compilers/pge/PGE.pir [pge]
compilers/pge/PGE/Exp.pir [pge]
@@ -104,11 +104,11 @@
compilers/pge/PGE/Regex.pir [pge]
compilers/pge/PGE/builtins.pg [pge]
compilers/pge/README.pod []doc
-compilers/pge/Rules.mak []
+compilers/pge/Rules.mak [pge]
compilers/pge/STATUS [pge]
-compilers/pirc/Defines.mak []
+compilers/pirc/Defines.mak [pirc]
compilers/pirc/README.pod []doc
-compilers/pirc/Rules.mak []
+compilers/pirc/Rules.mak [pirc]
compilers/pirc/TODO [pirc]
compilers/pirc/heredoc/heredocmain.c [pirc]
compilers/pirc/macro/lexer.h [pirc]
@@ -159,9 +159,9 @@
compilers/pirc/t/macro.t [test]
compilers/pirc/t/stmts.t [test]
compilers/pirc/t/subflags.t [test]
-compilers/tge/Defines.mak []
+compilers/tge/Defines.mak [tge]
compilers/tge/README []doc
-compilers/tge/Rules.mak []
+compilers/tge/Rules.mak [tge]
compilers/tge/TGE.pir [tge]
compilers/tge/TGE/Compiler.pir [tge]
compilers/tge/TGE/Grammar.pir [tge]
@@ -1181,7 +1181,7 @@
runtime/parrot/library/ProfTest/Want.nqp [library]
runtime/parrot/library/Protoobject.pir [library]
runtime/parrot/library/Range.pir [library]
-runtime/parrot/library/Rules.mak []
+runtime/parrot/library/Rules.mak [library]
runtime/parrot/library/SDL.pir [library]
runtime/parrot/library/SDL/App.pir [library]
runtime/parrot/library/SDL/Button.pir [library]
@@ -1329,7 +1329,6 @@
src/ops/io.ops []
src/ops/math.ops []
src/ops/object.ops []
-src/ops/ops.num [devel]src
src/ops/ops.skip []
src/ops/pmc.ops []
src/ops/set.ops []
Modified: trunk/compilers/opsc/ops2c.nqp
==============================================================================
--- trunk/compilers/opsc/ops2c.nqp Wed May 26 01:30:50 2010 (r47002)
+++ trunk/compilers/opsc/ops2c.nqp Wed May 26 01:35:32 2010 (r47003)
@@ -97,7 +97,6 @@
if $core {
my $lib := Ops::OpLib.new(
- :num_file('src/ops/ops.num'),
:skip_file('src/ops/ops.skip'),
:quiet($quiet)
);
@@ -117,7 +116,7 @@
);
unless $debug {
- if $force_regen || $f<renum>.need_regeneration {
+ if $core {
$emitter.print_ops_num_files();
}
$emitter.print_c_header_files();
Modified: trunk/compilers/opsc/src/Ops/Emitter.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/Emitter.pm Wed May 26 01:30:50 2010 (r47002)
+++ trunk/compilers/opsc/src/Ops/Emitter.pm Wed May 26 01:35:32 2010 (r47003)
@@ -118,47 +118,15 @@
method print_ops_num_files() {
- my $file := ~self<dir> ~ ~self<ops_file>.oplib.num_file;
+ my $file := ~self<dir> ~ "include/parrot/opsenum.h";
my $fh := pir::open__pss($file, 'w')
|| die("Can't open $file for writing: " ~ ~pir::err__s());
- self.emit_ops_num_file($fh);
- $fh.close();
-
- $file := ~self<dir> ~ "include/parrot/opsenum.h";
- $fh := pir::open__pss($file, 'w')
- || die("Can't open $file for writing: " ~ ~pir::err__s());
self.emit_c_opsenum_header($fh, $file);
$fh.close();
}
-method emit_ops_num_file($fh) {
-
- if !self.exists('max_fixed_op_num') {
- self._prepare_ops_num();
- }
-
- $fh.print( join('', |self<ops_num_start>) );
- my $max_op_num := self<max_fixed_op_num> + 0; #+ 0 to force cloning
-
- for self.ops_file.ops -> $op {
- if self<numbered_ops>.exists( $op.full_name ) {
-
- $max_op_num++;
-
- my $space := pir::repeat__SsI(' ',
- 35 - pir::length__Is($op.full_name) - pir::length__Is(~$max_op_num));
- $fh.print($op.full_name ~ $space ~ $max_op_num ~ "\n");
- }
- }
-
-}
-
method emit_c_opsenum_header($fh, $file) {
- if !self.exists('max_fixed_op_num') {
- self._prepare_ops_num();
- }
-
self._emit_guard_prefix($fh, $file);
self._emit_preamble($fh);
@@ -174,56 +142,20 @@
$fh.print("enum OPS_ENUM \{\n");
- my $max_op_num := self<max_fixed_op_num> + 0;
+ my $max_op_num := 0;
for self.ops_file.ops -> $op {
- if self<numbered_ops>.exists( $op.full_name ) {
- $max_op_num++;
-
+ if !self.ops_file<core> || !self.ops_file.oplib.op_skip_table.exists( $op.full_name ) {
my $space := pir::repeat__SsI(' ', 30 - pir::length__Is($op.full_name));
$fh.print(" enum_ops_" ~ $op.full_name ~ $space ~ "=");
$space := pir::repeat__SsI(' ', 5 - pir::length__Is(~$max_op_num));
$fh.print($space ~ $max_op_num ~ ",\n");
+ $max_op_num++;
}
}
$fh.print("};\n");
}
-method _prepare_ops_num() {
-
- #grab all ops in ops.num
- self<numbered_ops> := hash();
- my $found_dynamic := 0;
- self<max_fixed_op_num> := 0;
- self<ops_num_start> := list();
- self<max_op_num> := 0;
-
- #record which ones have fixed numbers and which just need to be somewhere in ops.num
- for self.ops_file.oplib.num_file_lines -> $line {
-
- #copy all lines through ###DYNAMIC### into the new ops.num verbatim
- unless $found_dynamic {
- self<ops_num_start>.push(~$line);
- }
-
- if $line<op> {
- if $found_dynamic {
- self<numbered_ops>{ $line<op><name> } := 1;
- self<quiet> || say("# added '"~$line<op><name> ~" to numered ops");
- }
- else {
- #don't need to keep track of fixed ops
- self<max_fixed_op_num> := +$line<op><number>;
- self<quiet> || say("# added '"~$line<op><name> ~" to fixed ops");
- }
- self<max_op_num>++;
- }
- elsif $line<dynamic> {
- $found_dynamic := 1;
- }
- }
-}
-
method print_c_source_file() {
# Build file in memeory
my $fh := pir::new__Ps('StringHandle');
Modified: trunk/compilers/opsc/src/Ops/File.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/File.pm Wed May 26 01:30:50 2010 (r47002)
+++ trunk/compilers/opsc/src/Ops/File.pm Wed May 26 01:35:32 2010 (r47003)
@@ -189,7 +189,6 @@
self<preamble>:= '';
self<compiler>:= pir::compreg__Ps('Ops');
self<op_order>:= 0;
- self<renum> := Ops::Renumberer.new( :ops_file(self) );
self<quiet> := $quiet;
if $core {
@@ -285,30 +284,10 @@
method _calculate_op_codes() {
- my $code := self<oplib> ??
- self<oplib>.max_op_num + 1 !!
- 0;
+ my $code := 0;
for self<ops> -> $op {
- #ops listed in ops.num are non-experimental
- if self<oplib> {
- my $full_name := $op.full_name;
- if self<oplib>.op_num_table.exists($full_name) {
- $op<code> := self<oplib>.op_num_table{$full_name};
- }
- elsif !$op<experimental> && !self<oplib>.op_skip_table.exists($full_name) {
- die("Non-experimental op " ~ $op.full_name ~ " is not in ops.num.");
- }
- #ops not explicitly listed but not skipped are experimental
- else {
- $op<code> := $code++;
- self<quiet> || say("# Experimental op " ~ $op.full_name ~ " is not in ops.num.");
- }
- }
- #if there's no oplib, we're compiling dynops and ops aren't experimental
- else {
- $op<code> := $code++;
- }
+ $op<code> := $code++;
}
}
Modified: trunk/compilers/opsc/src/Ops/OpLib.pm
==============================================================================
--- trunk/compilers/opsc/src/Ops/OpLib.pm Wed May 26 01:30:50 2010 (r47002)
+++ trunk/compilers/opsc/src/Ops/OpLib.pm Wed May 26 01:35:32 2010 (r47003)
@@ -16,8 +16,8 @@
=begin DESCRIPTION
-Responsible for loading F<src/ops/ops.num> and F<src/ops/ops.skip> files,
-parse F<.ops> files, sort them, etc.
+Responsible for loading F<src/ops/ops.skip> files, parse F<.ops> files, sort
+them, etc.
Heavily inspired by Perl5 Parrot::Ops2pm.
@@ -26,7 +26,6 @@
=begin SYNOPSIS
my $oplib := Ops::OpLib.new(
- :num_file('../../src/ops/ops.num'),
:skip_file('../../src/ops/ops.skip'),
));
@@ -36,32 +35,6 @@
=over 4
-=item * C<$.max_op_num>
-
-Scalar holding number of highest non-experimental op. Example:
-
- 'max_op_num' => 1246,
-
-=item * C<%.op_num_table>
-
-Hash holding mapping of opcode names ops to their numbers.
-Example:
-
- 'op_num_table' => {
- 'pow_p_p_i' => 650,
- 'say_s' => 463,
- 'lsr_p_p_i' => 207,
- 'lt_s_sc_ic' => 289,
- # ...
- 'debug_init' => 429,
- 'iseq_i_nc_n' => 397,
- 'eq_addr_sc_s_ic' => 254
- },
-
-Per F<src/ops/ops.num>, this mapping exists so that we can nail down
-the op numbers for the core opcodes in a particular version of the
-bytecode and provide backward-compatibility for bytecode.
-
=item * C<%.op_skip_table>
Reference to a 'seen-hash' of skipped opcodes.
@@ -93,16 +66,12 @@
=end METHODS
-method new(:$num_file, :$skip_file, :$quiet? = 0) {
- self<num_file> := $num_file // './src/ops/ops.num';
+method new(:$skip_file, :$quiet? = 0) {
self<skip_file> := $skip_file // './src/ops/ops.skip';
self<quiet> := $quiet;
# Initialize self.
- self<max_op_num> := 0;
- self<op_num_table> := hash();
self<op_skip_table> := hash();
- self<num_file_lines>:= list();
self<ops_past> := list();
self<regen_ops_num> := 0;
@@ -120,61 +89,9 @@
=end METHODS
method load_op_map_files() {
- self._load_num_file;
self._load_skip_file;
}
-my method _load_num_file() {
- # slurp isn't very efficient. But extending NQP beyond bare minimum is not in scope.
- my $buf := slurp(self<num_file>);
- grammar NUM {
- rule TOP { <line>+ }
-
- rule line {
- [
- | <op>
- | <dynamic>
- | <comment>
- ]
- }
- rule op { $<name>=(\w+) $<number>=(\d+) }
- rule dynamic { '###DYNAMIC###' \N* }
- rule comment { '#' \N* }
- }
-
- #say("Parsing NUM");
- my $ops := NUM.parse($buf);
- #_dumper($ops);
- #pir::exit(0);
-
- my $prev := -1;
- for $ops<line> {
- self<num_file_lines>.push($_);
- if $_<op> {
- my $name := ~$_<op><name>;
- my $number := +$_<op><number>;
- if (+$number) eq $number {
- if ($prev + 1 != $number) {
- self<regen_ops_num> := 1;
- self<quiet> || say("# hole in ops.num before #$number: will regenerate ops.num");
- }
- if self<op_num_table>.exists($name) {
- self<regen_ops_num> := 1;
- self<quiet> || say("# duplicate opcode $name and $number: will regenerate ops.num");
- }
-
- $prev := $number;
- self<op_num_table>{$name} := $number;
- if ( $number > self<max_op_num> ) {
- self<max_op_num> := $number;
- }
- }
- }
- }
-
- #_dumper(self<op_num_table>);
-}
-
method _load_skip_file() {
my $buf := slurp(self<skip_file>);
grammar SKIP {
@@ -192,9 +109,6 @@
my $lines := SKIP.parse($buf);
for $lines<op> {
- if self<op_num_table> && self<op_num_table>.exists($_<name>) {
- die("skipped opcode '$_' is also in num_file");
- }
self<op_skip_table>{$_<name>} := 1;
}
}
@@ -206,28 +120,12 @@
=over 4
-=item * C<max_op_num>
-
-=item * C<op_num_table>
-
=item * C<op_skip_table>
-=item * C<num_file>
-
-=item * C<num_file_lines>
-
=end ACCESSORS
-method max_op_num() { self<max_op_num>; }
-
-method op_num_table() { self<op_num_table>; }
-
method op_skip_table() { self<op_skip_table>; }
-method num_file() { self<num_file>; }
-
-method num_file_lines() { self<num_file_lines>; }
-
# Local Variables:
# mode: perl6
# fill-column: 100
Modified: trunk/include/parrot/opsenum.h
==============================================================================
--- trunk/include/parrot/opsenum.h Wed May 26 01:30:50 2010 (r47002)
+++ trunk/include/parrot/opsenum.h Wed May 26 01:35:32 2010 (r47003)
@@ -15,6 +15,11 @@
*
*/
enum OPS_ENUM {
+ enum_ops_end = 0,
+ enum_ops_noop = 1,
+ enum_ops_check_events = 2,
+ enum_ops_check_events__ = 3,
+ enum_ops_wrapper__ = 4,
enum_ops_load_bytecode_s = 5,
enum_ops_load_bytecode_sc = 6,
enum_ops_load_language_s = 7,
@@ -1211,6 +1216,73 @@
enum_ops_find_name_p_sc = 1198,
enum_ops_find_sub_not_null_p_s = 1199,
enum_ops_find_sub_not_null_p_sc = 1200,
+ enum_ops_trap = 1201,
+ enum_ops_set_label_p_ic = 1202,
+ enum_ops_get_label_i_p = 1203,
+ enum_ops_fetch_p_p_p_p = 1204,
+ enum_ops_fetch_p_pc_p_p = 1205,
+ enum_ops_fetch_p_p_pc_p = 1206,
+ enum_ops_fetch_p_pc_pc_p = 1207,
+ enum_ops_fetch_p_p_p_pc = 1208,
+ enum_ops_fetch_p_pc_p_pc = 1209,
+ enum_ops_fetch_p_p_pc_pc = 1210,
+ enum_ops_fetch_p_pc_pc_pc = 1211,
+ enum_ops_fetch_p_p_i_p = 1212,
+ enum_ops_fetch_p_pc_i_p = 1213,
+ enum_ops_fetch_p_p_ic_p = 1214,
+ enum_ops_fetch_p_pc_ic_p = 1215,
+ enum_ops_fetch_p_p_i_pc = 1216,
+ enum_ops_fetch_p_pc_i_pc = 1217,
+ enum_ops_fetch_p_p_ic_pc = 1218,
+ enum_ops_fetch_p_pc_ic_pc = 1219,
+ enum_ops_fetch_p_p_s_p = 1220,
+ enum_ops_fetch_p_pc_s_p = 1221,
+ enum_ops_fetch_p_p_sc_p = 1222,
+ enum_ops_fetch_p_pc_sc_p = 1223,
+ enum_ops_fetch_p_p_s_pc = 1224,
+ enum_ops_fetch_p_pc_s_pc = 1225,
+ enum_ops_fetch_p_p_sc_pc = 1226,
+ enum_ops_fetch_p_pc_sc_pc = 1227,
+ enum_ops_vivify_p_p_p_p = 1228,
+ enum_ops_vivify_p_pc_p_p = 1229,
+ enum_ops_vivify_p_p_pc_p = 1230,
+ enum_ops_vivify_p_pc_pc_p = 1231,
+ enum_ops_vivify_p_p_p_pc = 1232,
+ enum_ops_vivify_p_pc_p_pc = 1233,
+ enum_ops_vivify_p_p_pc_pc = 1234,
+ enum_ops_vivify_p_pc_pc_pc = 1235,
+ enum_ops_vivify_p_p_i_p = 1236,
+ enum_ops_vivify_p_pc_i_p = 1237,
+ enum_ops_vivify_p_p_ic_p = 1238,
+ enum_ops_vivify_p_pc_ic_p = 1239,
+ enum_ops_vivify_p_p_i_pc = 1240,
+ enum_ops_vivify_p_pc_i_pc = 1241,
+ enum_ops_vivify_p_p_ic_pc = 1242,
+ enum_ops_vivify_p_pc_ic_pc = 1243,
+ enum_ops_vivify_p_p_s_p = 1244,
+ enum_ops_vivify_p_pc_s_p = 1245,
+ enum_ops_vivify_p_p_sc_p = 1246,
+ enum_ops_vivify_p_pc_sc_p = 1247,
+ enum_ops_vivify_p_p_s_pc = 1248,
+ enum_ops_vivify_p_pc_s_pc = 1249,
+ enum_ops_vivify_p_p_sc_pc = 1250,
+ enum_ops_vivify_p_pc_sc_pc = 1251,
+ enum_ops_new_p_s_i = 1252,
+ enum_ops_new_p_sc_i = 1253,
+ enum_ops_new_p_s_ic = 1254,
+ enum_ops_new_p_sc_ic = 1255,
+ enum_ops_new_p_p_i = 1256,
+ enum_ops_new_p_pc_i = 1257,
+ enum_ops_new_p_p_ic = 1258,
+ enum_ops_new_p_pc_ic = 1259,
+ enum_ops_root_new_p_p_i = 1260,
+ enum_ops_root_new_p_pc_i = 1261,
+ enum_ops_root_new_p_p_ic = 1262,
+ enum_ops_root_new_p_pc_ic = 1263,
+ enum_ops_find_codepoint_i_s = 1264,
+ enum_ops_find_codepoint_i_sc = 1265,
+ enum_ops_unroll_p = 1266,
+ enum_ops_unroll_pc = 1267,
};
Modified: trunk/src/ops/core_ops.c
==============================================================================
--- trunk/src/ops/core_ops.c Wed May 26 01:30:50 2010 (r47002)
+++ trunk/src/ops/core_ops.c Wed May 26 01:35:32 2010 (r47003)
@@ -16584,9 +16584,8 @@
opcode_t *
Parrot_check_events(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const next = cur_opcode + 1;
- Parrot_cx_check_tasks(interp, interp->scheduler);
- return (opcode_t *)next; /* force this being a branch op */
+ opcode_t * const next =cur_opcode + 1;
+ Parrot_cx_check_tasks(interp, interp->scheduler);return (opcode_t *)next; /* force this being a branch op */
}
opcode_t *
@@ -16595,16 +16594,14 @@
opcode_t * const _this = CUR_OPCODE;
/* Restore op_func_table. */
disable_event_checking(interp);
- Parrot_cx_handle_tasks(interp, interp->scheduler);
- return (opcode_t *)_this; /* force this being a branch op */
+ Parrot_cx_handle_tasks(interp, interp->scheduler);return (opcode_t *)_this; /* force this being a branch op */
}
opcode_t *
Parrot_wrapper__(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *pc = CUR_OPCODE;
- DO_OP(pc, interp);
- return (opcode_t *)pc;
+ DO_OP(pc, interp);return (opcode_t *)pc;
}
opcode_t *
@@ -16649,38 +16646,32 @@
Parrot_local_branch_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL return_addr;
- opcode_t * const dest = cur_opcode + 3;
+ opcode_t * const dest =cur_opcode + 3;
if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_ResizableIntegerArray) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_INVALID_OPERATION,
- "Must pass a valid integer array to 'local_branch'");
- return (opcode_t *)handler;
+ "Must pass a valid integer array to 'local_branch'");return (opcode_t *)handler;
}
return_addr = PTR2INTVAL(dest);
- VTABLE_push_integer(interp, PREG(1), return_addr);
-
- return (opcode_t *)cur_opcode + IREG(2);
+ VTABLE_push_integer(interp, PREG(1), return_addr);return (opcode_t *)cur_opcode + IREG(2);
}
opcode_t *
Parrot_local_branch_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL return_addr;
- opcode_t * const dest = cur_opcode + 3;
+ opcode_t * const dest =cur_opcode + 3;
if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_ResizableIntegerArray) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_INVALID_OPERATION,
- "Must pass a valid integer array to 'local_branch'");
- return (opcode_t *)handler;
+ "Must pass a valid integer array to 'local_branch'");return (opcode_t *)handler;
}
return_addr = PTR2INTVAL(dest);
- VTABLE_push_integer(interp, PREG(1), return_addr);
-
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ VTABLE_push_integer(interp, PREG(1), return_addr);return (opcode_t *)cur_opcode + cur_opcode[2];
}
opcode_t *
@@ -16688,13 +16679,12 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL return_addr;
opcode_t *next;
- opcode_t * const dest = cur_opcode + 2;
+ opcode_t * const dest =cur_opcode + 2;
if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_ResizableIntegerArray) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_INVALID_OPERATION,
- "Must pass a valid integer array to 'local_return'");
- return (opcode_t *)handler;
+ "Must pass a valid integer array to 'local_return'");return (opcode_t *)handler;
}
return_addr = VTABLE_pop_integer(interp, PREG(1));
@@ -16705,96 +16695,82 @@
&& next < (interp->code->base.data + interp->code->base.size))) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_INVALID_OPERATION,
- "Address for 'local_return' must be within the current code segment");
- return (opcode_t *)handler;
- }
-
- return (opcode_t *)next;
+ "Address for 'local_return' must be within the current code segment");return (opcode_t *)handler;
+ }return (opcode_t *)next;
}
opcode_t *
Parrot_jump_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const loc = INTVAL2PTR(opcode_t *, IREG(1));
- return (opcode_t *)loc;
+ opcode_t * const loc = INTVAL2PTR(opcode_t *, IREG(1));return (opcode_t *)loc;
}
opcode_t *
Parrot_jump_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const loc = INTVAL2PTR(opcode_t *, cur_opcode[1]);
- return (opcode_t *)loc;
+ opcode_t * const loc = INTVAL2PTR(opcode_t *, cur_opcode[1]);return (opcode_t *)loc;
}
opcode_t *
Parrot_enternative(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t * const addr = run_native(interp, CUR_OPCODE,
- interp->code->base.data);
- return (opcode_t *)addr;
+ interp->code->base.data);return (opcode_t *)addr;
}
opcode_t *
Parrot_if_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) != 0)
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (IREG(1) != 0)return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_if_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (!FLOAT_IS_ZERO(NREG(1)))
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (!FLOAT_IS_ZERO(NREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_if_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_boolean(interp, SREG(1)))
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (Parrot_str_boolean(interp, SREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_if_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_bool(interp, PREG(1)))
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (VTABLE_get_bool(interp, PREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_unless_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) == 0)
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (IREG(1) == 0)return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_unless_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (FLOAT_IS_ZERO(NREG(1)))
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (FLOAT_IS_ZERO(NREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_unless_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (!Parrot_str_boolean(interp, SREG(1)))
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (!Parrot_str_boolean(interp, SREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_unless_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (!VTABLE_get_bool(interp, PREG(1)))
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (!VTABLE_get_bool(interp, PREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
@@ -16802,22 +16778,20 @@
Parrot_invokecc_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const p = PREG(1);
- opcode_t *dest = cur_opcode + 2;
+ opcode_t *dest =cur_opcode + 2;
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, NULL);
interp->current_cont = NEED_CONTINUATION;
- dest = VTABLE_invoke(interp, p, dest);
-
- return (opcode_t *)dest;
+ dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
}
opcode_t *
Parrot_invoke_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *dest = cur_opcode + 3;
+ opcode_t *dest =cur_opcode + 3;
PMC * const p = PREG(1);
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
@@ -16826,27 +16800,24 @@
Parrot_pcc_set_object(interp, signature, NULL);
interp->current_cont = PREG(2);
- dest = VTABLE_invoke(interp, p, dest);
- return (opcode_t *)dest;
+ dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
}
opcode_t *
Parrot_yield(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *dest = cur_opcode + 1;
+ opcode_t *dest =cur_opcode + 1;
PMC * const p = Parrot_pcc_get_sub(interp, CURRENT_CONTEXT(interp));
VTABLE_increment(interp, p);
- dest = VTABLE_invoke(interp, p, dest);
-
- return (opcode_t *)dest;
+ dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
}
opcode_t *
Parrot_tailcall_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const p = PREG(1);
- opcode_t *dest = cur_opcode + 2;
+ opcode_t *dest =cur_opcode + 2;
PMC * const ctx = CURRENT_CONTEXT(interp);
PMC * const parent_ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
PMC * const this_call_sig = Parrot_pcc_get_signature(interp, ctx);
@@ -16856,16 +16827,14 @@
Parrot_pcc_merge_signature_for_tailcall(interp, parent_call_sig, this_call_sig);
SUB_FLAG_TAILCALL_SET(interp->current_cont);
- dest = VTABLE_invoke(interp, p, dest);
- return (opcode_t *)dest;
+ dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
}
opcode_t *
Parrot_returncc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const p = Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp));
- opcode_t * const dest = VTABLE_invoke(interp, p, cur_opcode + 1);
- return (opcode_t *)dest;
+ opcode_t * const dest = VTABLE_invoke(interp, p,cur_opcode + 1);return (opcode_t *)dest;
}
opcode_t *
@@ -16890,8 +16859,7 @@
PMC * const call_sig = Parrot_pcc_build_sig_object_from_op(interp,
PMCNULL, signature, raw_args);
const INTVAL argc = VTABLE_elements(interp, signature);
- Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
- return (opcode_t *)cur_opcode + argc + 2;
+ Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);return (opcode_t *)cur_opcode + argc + 2;
}
opcode_t *
@@ -16914,8 +16882,7 @@
Parrot_pcc_dec_recursion_depth(interp, ctx);
Parrot_pcc_set_caller_ctx(interp, ctx, Parrot_pcc_get_caller_ctx(interp, caller_ctx));
}
- argc = VTABLE_elements(interp, signature);
- return (opcode_t *)cur_opcode + argc + 2;
+ argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
}
opcode_t *
@@ -16931,8 +16898,7 @@
Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
- argc = VTABLE_elements(interp, signature);
- return (opcode_t *)cur_opcode + argc + 2;
+ argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
}
opcode_t *
@@ -16949,8 +16915,7 @@
Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params,
PARROT_ERRORS_RESULT_COUNT_FLAG);
- argc = VTABLE_elements(interp, signature);
- return (opcode_t *)cur_opcode + argc + 2;
+ argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
}
opcode_t *
@@ -17062,7 +17027,7 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * except = PREG(1);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
VTABLE_set_pointer(interp, resume, ret);
@@ -17073,8 +17038,7 @@
Parrot_str_new_constant(interp, "Not a throwable object"));
VTABLE_set_attr_str(interp, except, Parrot_str_new_constant(interp, "resume"), resume);
- dest = Parrot_ex_throw_from_op(interp, except, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, except, ret);return (opcode_t *)dest;
}
opcode_t *
@@ -17087,8 +17051,7 @@
EXCEPTION_UNIMPLEMENTED,
Parrot_str_new_constant(interp, "Not a throwable object"));
dest = Parrot_ex_throw_from_op(interp, PREG(1),
- VTABLE_get_pointer(interp, PREG(2)));
- return (opcode_t *)dest;
+ VTABLE_get_pointer(interp, PREG(2)));return (opcode_t *)dest;
}
opcode_t *
@@ -17096,15 +17059,13 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t * dest;
if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_Exception) {
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const except = Parrot_ex_build_exception(interp, EXCEPT_fatal,
EXCEPTION_UNIMPLEMENTED,
Parrot_str_new_constant(interp, "Not a throwable object"));
- dest = Parrot_ex_throw_from_op(interp, except, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, except, ret);return (opcode_t *)dest;
}
- dest = Parrot_ex_rethrow_from_op(interp, PREG(1));
- return (opcode_t *)dest;
+ dest = Parrot_ex_rethrow_from_op(interp, PREG(1));return (opcode_t *)dest;
}
opcode_t *
@@ -17119,7 +17080,7 @@
Parrot_die_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_error,
CONTROL_ERROR, SREG(1));
@@ -17128,15 +17089,14 @@
VTABLE_set_attr_str(interp, exception,
Parrot_str_new_constant(interp, "resume"), resume);
- dest = Parrot_ex_throw_from_op(interp, exception, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
opcode_t *
Parrot_die_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_error,
CONTROL_ERROR, CONST(1)->u.string);
@@ -17145,15 +17105,14 @@
VTABLE_set_attr_str(interp, exception,
Parrot_str_new_constant(interp, "resume"), resume);
- dest = Parrot_ex_throw_from_op(interp, exception, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
opcode_t *
Parrot_die_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
STRING * const msg = PMC_IS_NULL(PREG(1)) ? NULL : VTABLE_get_string(interp, PREG(1));
PMC * const exception =
@@ -17163,15 +17122,14 @@
VTABLE_set_attr_str(interp, exception,
Parrot_str_new_constant(interp, "resume"), resume);
- dest = Parrot_ex_throw_from_op(interp, exception, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
opcode_t *
Parrot_die_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
STRING * const msg = PMC_IS_NULL(CONST(1)->u.key) ? NULL : VTABLE_get_string(interp, CONST(1)->u.key);
PMC * const exception =
@@ -17181,8 +17139,7 @@
VTABLE_set_attr_str(interp, exception,
Parrot_str_new_constant(interp, "resume"), resume);
- dest = Parrot_ex_throw_from_op(interp, exception, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
opcode_t *
@@ -17191,11 +17148,9 @@
if (IREG(1) == EXCEPT_doomed)
_exit(IREG(2));
else {
- opcode_t * const ret = cur_opcode + 3;
+ opcode_t * const ret =cur_opcode + 3;
PMC * const exception = Parrot_ex_build_exception(interp, IREG(1), IREG(2), NULL);
- opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);
-
- return (opcode_t *)dest;
+ opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
}
@@ -17205,11 +17160,9 @@
if (cur_opcode[1] == EXCEPT_doomed)
_exit(IREG(2));
else {
- opcode_t * const ret = cur_opcode + 3;
+ opcode_t * const ret =cur_opcode + 3;
PMC * const exception = Parrot_ex_build_exception(interp, cur_opcode[1], IREG(2), NULL);
- opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);
-
- return (opcode_t *)dest;
+ opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
}
@@ -17219,11 +17172,9 @@
if (IREG(1) == EXCEPT_doomed)
_exit(cur_opcode[2]);
else {
- opcode_t * const ret = cur_opcode + 3;
+ opcode_t * const ret =cur_opcode + 3;
PMC * const exception = Parrot_ex_build_exception(interp, IREG(1), cur_opcode[2], NULL);
- opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);
-
- return (opcode_t *)dest;
+ opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
}
@@ -17233,11 +17184,9 @@
if (cur_opcode[1] == EXCEPT_doomed)
_exit(cur_opcode[2]);
else {
- opcode_t * const ret = cur_opcode + 3;
+ opcode_t * const ret =cur_opcode + 3;
PMC * const exception = Parrot_ex_build_exception(interp, cur_opcode[1], cur_opcode[2], NULL);
- opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);
-
- return (opcode_t *)dest;
+ opcode_t * const dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
}
@@ -17245,7 +17194,7 @@
Parrot_exit_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, IREG(1), NULL);
@@ -17255,15 +17204,14 @@
Parrot_str_new_constant(interp, "resume"), resume);
VTABLE_set_integer_keyed_str(interp, exception,
Parrot_str_new_constant(interp, "exit_code"), IREG(1));
- dest = Parrot_ex_throw_from_op(interp, exception, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
opcode_t *
Parrot_exit_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const ret = cur_opcode + 2;
+ opcode_t * const ret =cur_opcode + 2;
PMC * const resume = pmc_new(interp, enum_class_Continuation);
PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, cur_opcode[1], NULL);
@@ -17273,72 +17221,63 @@
Parrot_str_new_constant(interp, "resume"), resume);
VTABLE_set_integer_keyed_str(interp, exception,
Parrot_str_new_constant(interp, "exit_code"), cur_opcode[1]);
- dest = Parrot_ex_throw_from_op(interp, exception, ret);
- return (opcode_t *)dest;
+ dest = Parrot_ex_throw_from_op(interp, exception, ret);return (opcode_t *)dest;
}
opcode_t *
Parrot_debug_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (IREG(1) != 0) { Interp_debug_SET(interp, IREG(1)); }
- else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_debug_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (cur_opcode[1] != 0) { Interp_debug_SET(interp, cur_opcode[1]); }
- else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Interp_debug_CLEAR(interp, PARROT_ALL_DEBUG_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_bounds_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (IREG(1) != 0) { Parrot_set_flag(interp, PARROT_BOUNDS_FLAG); }
- else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_bounds_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (cur_opcode[1] != 0) { Parrot_set_flag(interp, PARROT_BOUNDS_FLAG); }
- else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Interp_flags_CLEAR(interp, PARROT_BOUNDS_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_profile_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (IREG(1) != 0) { Parrot_set_flag(interp, PARROT_PROFILE_FLAG); }
- else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_profile_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (cur_opcode[1] != 0) { Parrot_set_flag(interp, PARROT_PROFILE_FLAG); }
- else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Interp_flags_CLEAR(interp, PARROT_PROFILE_FLAG); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_trace_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (IREG(1) != 0) { Parrot_set_trace(interp, IREG(1)); }
- else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
Parrot_trace_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (cur_opcode[1] != 0) { Parrot_set_trace(interp, cur_opcode[1]); }
- else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }
- interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
+ else { Parrot_clear_trace(interp, PARROT_ALL_TRACE_FLAGS); }interp->resume_offset = REL_PC + 2; interp->resume_flag = 1;return (opcode_t *)0;
}
opcode_t *
@@ -18754,8 +18693,7 @@
opcode_t *
Parrot_eq_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) == IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) == IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18763,8 +18701,7 @@
opcode_t *
Parrot_eq_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (cur_opcode[1] == IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (cur_opcode[1] == IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18772,8 +18709,7 @@
opcode_t *
Parrot_eq_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) == cur_opcode[2]) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) == cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18781,8 +18717,7 @@
opcode_t *
Parrot_eq_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) == NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) == NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18790,8 +18725,7 @@
opcode_t *
Parrot_eq_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.number == NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.number == NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18799,8 +18733,7 @@
opcode_t *
Parrot_eq_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) == CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) == CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18808,8 +18741,7 @@
opcode_t *
Parrot_eq_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_equal(interp, SREG(1), SREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_equal(interp, SREG(1), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18817,8 +18749,7 @@
opcode_t *
Parrot_eq_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_equal(interp, CONST(1)->u.string, SREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_equal(interp, CONST(1)->u.string, SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18826,8 +18757,7 @@
opcode_t *
Parrot_eq_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_equal(interp, SREG(1), CONST(2)->u.string)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_equal(interp, SREG(1), CONST(2)->u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18835,8 +18765,7 @@
opcode_t *
Parrot_eq_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_is_equal(interp, PREG(1), PREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_is_equal(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18848,8 +18777,7 @@
VTABLE_set_integer_native(interp, temp, IREG(2));
if (VTABLE_is_equal(interp, PREG(1), temp)) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -18863,8 +18791,7 @@
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
if (VTABLE_is_equal(interp, PREG(1), temp)) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -18880,8 +18807,7 @@
* overriding the compare multi subs wouldn't
* have any effect with the current code
*/
- if (VTABLE_get_number(interp, PREG(1)) == NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) == NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18895,8 +18821,7 @@
* overriding the compare multi subs wouldn't
* have any effect with the current code
*/
- if (VTABLE_get_number(interp, PREG(1)) == CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) == CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18904,8 +18829,7 @@
opcode_t *
Parrot_eq_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18913,8 +18837,7 @@
opcode_t *
Parrot_eq_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18922,8 +18845,7 @@
opcode_t *
Parrot_eq_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_is_equal_string(interp, PREG(1), PREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_is_equal_string(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18931,8 +18853,7 @@
opcode_t *
Parrot_eq_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_is_equal_num(interp, PREG(1), PREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_is_equal_num(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18940,8 +18861,7 @@
opcode_t *
Parrot_eq_addr_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (SREG(1) == SREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (SREG(1) == SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18949,8 +18869,7 @@
opcode_t *
Parrot_eq_addr_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.string == SREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.string == SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18958,8 +18877,7 @@
opcode_t *
Parrot_eq_addr_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (SREG(1) == CONST(2)->u.string) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (SREG(1) == CONST(2)->u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18967,8 +18885,7 @@
opcode_t *
Parrot_eq_addr_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.string == CONST(2)->u.string) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.string == CONST(2)->u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18976,8 +18893,7 @@
opcode_t *
Parrot_eq_addr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(1) == PREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (PREG(1) == PREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18985,8 +18901,7 @@
opcode_t *
Parrot_ne_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) != IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) != IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -18994,8 +18909,7 @@
opcode_t *
Parrot_ne_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (cur_opcode[1] != IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (cur_opcode[1] != IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19003,8 +18917,7 @@
opcode_t *
Parrot_ne_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) != cur_opcode[2]) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) != cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19012,8 +18925,7 @@
opcode_t *
Parrot_ne_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) != NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) != NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19021,8 +18933,7 @@
opcode_t *
Parrot_ne_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.number != NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.number != NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19030,8 +18941,7 @@
opcode_t *
Parrot_ne_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) != CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) != CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19039,8 +18949,7 @@
opcode_t *
Parrot_ne_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_not_equal(interp, SREG(1), SREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_not_equal(interp, SREG(1), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19048,8 +18957,7 @@
opcode_t *
Parrot_ne_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_not_equal(interp, CONST(1)->u.string, SREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_not_equal(interp, CONST(1)->u.string, SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19057,8 +18965,7 @@
opcode_t *
Parrot_ne_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_not_equal(interp, SREG(1), CONST(2)->u.string)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_not_equal(interp, SREG(1), CONST(2)->u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19066,8 +18973,7 @@
opcode_t *
Parrot_ne_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (!VTABLE_is_equal(interp, PREG(1), PREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (!VTABLE_is_equal(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19079,8 +18985,7 @@
VTABLE_set_integer_native(interp, temp, IREG(2));
if (!VTABLE_is_equal(interp, PREG(1), temp)) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19094,8 +18999,7 @@
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
if (!VTABLE_is_equal(interp, PREG(1), temp)) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19105,8 +19009,7 @@
opcode_t *
Parrot_ne_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) != NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) != NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19114,8 +19017,7 @@
opcode_t *
Parrot_ne_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) != CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) != CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19123,8 +19025,7 @@
opcode_t *
Parrot_ne_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), SREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19132,8 +19033,7 @@
opcode_t *
Parrot_ne_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_not_equal(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19141,8 +19041,7 @@
opcode_t *
Parrot_ne_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) != 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) != 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19150,8 +19049,7 @@
opcode_t *
Parrot_ne_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) != 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) != 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19159,8 +19057,7 @@
opcode_t *
Parrot_ne_addr_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (SREG(1) != SREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (SREG(1) != SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19168,8 +19065,7 @@
opcode_t *
Parrot_ne_addr_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.string != SREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.string != SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19177,8 +19073,7 @@
opcode_t *
Parrot_ne_addr_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (SREG(1) != CONST(2)->u.string) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (SREG(1) != CONST(2)->u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19186,8 +19081,7 @@
opcode_t *
Parrot_ne_addr_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.string != CONST(2)->u.string) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.string != CONST(2)->u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19195,8 +19089,7 @@
opcode_t *
Parrot_ne_addr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(1) != PREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (PREG(1) != PREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19204,8 +19097,7 @@
opcode_t *
Parrot_lt_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) < IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) < IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19213,8 +19105,7 @@
opcode_t *
Parrot_lt_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (cur_opcode[1] < IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (cur_opcode[1] < IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19222,8 +19113,7 @@
opcode_t *
Parrot_lt_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) < cur_opcode[2]) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) < cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19231,8 +19121,7 @@
opcode_t *
Parrot_lt_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) < NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19240,8 +19129,7 @@
opcode_t *
Parrot_lt_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.number < NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.number < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19249,8 +19137,7 @@
opcode_t *
Parrot_lt_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) < CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) < CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19258,8 +19145,7 @@
opcode_t *
Parrot_lt_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, SREG(1), SREG(2)) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, SREG(1), SREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19267,8 +19153,7 @@
opcode_t *
Parrot_lt_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, CONST(1)->u.string, SREG(2)) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, CONST(1)->u.string, SREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19276,8 +19161,7 @@
opcode_t *
Parrot_lt_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, SREG(1), CONST(2)->u.string) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, SREG(1), CONST(2)->u.string) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19285,8 +19169,7 @@
opcode_t *
Parrot_lt_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp(interp, PREG(1), PREG(2)) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19298,8 +19181,7 @@
VTABLE_set_integer_native(interp, temp, IREG(2));
if (VTABLE_cmp(interp, PREG(1), temp) < 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19313,8 +19195,7 @@
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
if (VTABLE_cmp(interp, PREG(1), temp) < 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19324,8 +19205,7 @@
opcode_t *
Parrot_lt_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) < NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19333,8 +19213,7 @@
opcode_t *
Parrot_lt_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) < CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) < CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19342,8 +19221,7 @@
opcode_t *
Parrot_lt_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19351,8 +19229,7 @@
opcode_t *
Parrot_lt_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19360,8 +19237,7 @@
opcode_t *
Parrot_lt_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19369,8 +19245,7 @@
opcode_t *
Parrot_lt_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) < 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19378,8 +19253,7 @@
opcode_t *
Parrot_le_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) <= IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) <= IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19387,8 +19261,7 @@
opcode_t *
Parrot_le_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (cur_opcode[1] <= IREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (cur_opcode[1] <= IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19396,8 +19269,7 @@
opcode_t *
Parrot_le_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) <= cur_opcode[2]) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (IREG(1) <= cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19405,8 +19277,7 @@
opcode_t *
Parrot_le_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) <= NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19414,8 +19285,7 @@
opcode_t *
Parrot_le_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(1)->u.number <= NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (CONST(1)->u.number <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19423,8 +19293,7 @@
opcode_t *
Parrot_le_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (NREG(1) <= CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (NREG(1) <= CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19432,8 +19301,7 @@
opcode_t *
Parrot_le_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, SREG(1), SREG(2)) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, SREG(1), SREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19441,8 +19309,7 @@
opcode_t *
Parrot_le_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, CONST(1)->u.string, SREG(2)) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, CONST(1)->u.string, SREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19450,8 +19317,7 @@
opcode_t *
Parrot_le_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, SREG(1), CONST(2)->u.string) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, SREG(1), CONST(2)->u.string) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19459,8 +19325,7 @@
opcode_t *
Parrot_le_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp(interp, PREG(1), PREG(2)) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19472,8 +19337,7 @@
VTABLE_set_integer_native(interp, temp, IREG(2));
if (VTABLE_cmp(interp, PREG(1), temp) <= 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19487,8 +19351,7 @@
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
if (VTABLE_cmp(interp, PREG(1), temp) <= 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19498,8 +19361,7 @@
opcode_t *
Parrot_le_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) <= NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19507,8 +19369,7 @@
opcode_t *
Parrot_le_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) <= CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) <= CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19516,8 +19377,7 @@
opcode_t *
Parrot_le_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19525,8 +19385,7 @@
opcode_t *
Parrot_le_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19534,8 +19393,7 @@
opcode_t *
Parrot_le_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19543,8 +19401,7 @@
opcode_t *
Parrot_le_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) <= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19552,8 +19409,7 @@
opcode_t *
Parrot_gt_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp(interp, PREG(1), PREG(2)) > 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19565,8 +19421,7 @@
VTABLE_set_integer_native(interp, temp, IREG(2));
if (VTABLE_cmp(interp, PREG(1), temp) > 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19580,8 +19435,7 @@
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
if (VTABLE_cmp(interp, PREG(1), temp) > 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19591,8 +19445,7 @@
opcode_t *
Parrot_gt_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) > NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) > NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19600,8 +19453,7 @@
opcode_t *
Parrot_gt_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) > CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) > CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19609,8 +19461,7 @@
opcode_t *
Parrot_gt_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) > 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19618,8 +19469,7 @@
opcode_t *
Parrot_gt_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) > 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19627,8 +19477,7 @@
opcode_t *
Parrot_gt_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) > 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19636,8 +19485,7 @@
opcode_t *
Parrot_gt_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) > 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19645,8 +19493,7 @@
opcode_t *
Parrot_ge_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp(interp, PREG(1), PREG(2)) >= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19658,8 +19505,7 @@
VTABLE_set_integer_native(interp, temp, IREG(2));
if (VTABLE_cmp(interp, PREG(1), temp) >= 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19673,8 +19519,7 @@
VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
if (VTABLE_cmp(interp, PREG(1), temp) >= 0) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
}
Parrot_pmc_free_temporary(interp, temp);
@@ -19684,8 +19529,7 @@
opcode_t *
Parrot_ge_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) >= NREG(2)) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) >= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19693,8 +19537,7 @@
opcode_t *
Parrot_ge_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_get_number(interp, PREG(1)) >= CONST(2)->u.number) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_get_number(interp, PREG(1)) >= CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19702,8 +19545,7 @@
opcode_t *
Parrot_ge_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) >= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19711,8 +19553,7 @@
opcode_t *
Parrot_ge_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) >= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19720,8 +19561,7 @@
opcode_t *
Parrot_ge_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) >= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19729,8 +19569,7 @@
opcode_t *
Parrot_ge_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) >= 0) {
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
return (opcode_t *)cur_opcode + 4;}
@@ -19738,8 +19577,7 @@
opcode_t *
Parrot_if_null_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PMC_IS_NULL(PREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (PMC_IS_NULL(PREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
}
return (opcode_t *)cur_opcode + 3;}
@@ -19747,8 +19585,7 @@
opcode_t *
Parrot_if_null_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (STRING_IS_NULL(SREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (STRING_IS_NULL(SREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
}
return (opcode_t *)cur_opcode + 3;}
@@ -19756,8 +19593,7 @@
opcode_t *
Parrot_unless_null_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (!PMC_IS_NULL(PREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (!PMC_IS_NULL(PREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
}
return (opcode_t *)cur_opcode + 3;}
@@ -19765,8 +19601,7 @@
opcode_t *
Parrot_unless_null_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (!STRING_IS_NULL(SREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (!STRING_IS_NULL(SREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
}
return (opcode_t *)cur_opcode + 3;}
@@ -20485,10 +20320,9 @@
Parrot_debug_print(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (!interp->pdb) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 1,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 1,
EXCEPTION_INVALID_OPERATION,
- "Initialize debugger with debug_init before using debug_print");
- return (opcode_t *)handler;
+ "Initialize debugger with debug_init before using debug_print");return (opcode_t *)handler;
}
if (!(interp->pdb->state & PDB_BREAK)) {
@@ -20614,9 +20448,8 @@
Parrot_open_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (STRING_IS_NULL(SREG(2)) || STRING_IS_NULL(SREG(3))) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- return (opcode_t *)handler;
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");return (opcode_t *)handler;
}
else {
PREG(1) = Parrot_io_open(interp, PMCNULL, SREG(2), SREG(3));
@@ -20629,9 +20462,8 @@
Parrot_open_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (STRING_IS_NULL(CONST(2)->u.string) || STRING_IS_NULL(SREG(3))) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- return (opcode_t *)handler;
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");return (opcode_t *)handler;
}
else {
PREG(1) = Parrot_io_open(interp, PMCNULL, CONST(2)->u.string, SREG(3));
@@ -20644,9 +20476,8 @@
Parrot_open_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (STRING_IS_NULL(SREG(2)) || STRING_IS_NULL(CONST(3)->u.string)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- return (opcode_t *)handler;
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");return (opcode_t *)handler;
}
else {
PREG(1) = Parrot_io_open(interp, PMCNULL, SREG(2), CONST(3)->u.string);
@@ -20659,9 +20490,8 @@
Parrot_open_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (STRING_IS_NULL(CONST(2)->u.string) || STRING_IS_NULL(CONST(3)->u.string)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- return (opcode_t *)handler;
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");return (opcode_t *)handler;
}
else {
PREG(1) = Parrot_io_open(interp, PMCNULL, CONST(2)->u.string, CONST(3)->u.string);
@@ -20674,9 +20504,8 @@
Parrot_open_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (STRING_IS_NULL(SREG(2))) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- return (opcode_t *)handler;
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");return (opcode_t *)handler;
}
else {
PREG(1) = Parrot_io_open(interp, PMCNULL, SREG(2), NULL);
@@ -20689,9 +20518,8 @@
Parrot_open_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (STRING_IS_NULL(CONST(2)->u.string)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- return (opcode_t *)handler;
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");return (opcode_t *)handler;
}
else {
PREG(1) = Parrot_io_open(interp, PMCNULL, CONST(2)->u.string, NULL);
@@ -20850,10 +20678,9 @@
PMC * const p = PREG(1);
if (PMC_IS_NULL(p)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 2,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 2,
EXCEPTION_UNEXPECTED_NULL,
- "Null PMC in say");
- return (opcode_t *)handler;
+ "Null PMC in say");return (opcode_t *)handler;
}
else {
STRING * const s = VTABLE_get_string(interp, p);
@@ -21108,10 +20935,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(IREG(2)), IREG(3)) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
+ "seek failed (32bit)");return (opcode_t *)handler;
}
}
@@ -21122,10 +20948,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(cur_opcode[2]), IREG(3)) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
+ "seek failed (32bit)");return (opcode_t *)handler;
}
}
@@ -21136,10 +20961,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(IREG(2)), cur_opcode[3]) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
+ "seek failed (32bit)");return (opcode_t *)handler;
}
}
@@ -21150,10 +20974,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset(cur_opcode[2]), cur_opcode[3]) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
+ "seek failed (32bit)");return (opcode_t *)handler;
}
}
@@ -21164,10 +20987,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), IREG(3)), IREG(4)) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21178,10 +21000,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], IREG(3)), IREG(4)) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21192,10 +21013,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), cur_opcode[3]), IREG(4)) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21206,10 +21026,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], cur_opcode[3]), IREG(4)) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21220,10 +21039,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), IREG(3)), cur_opcode[4]) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21234,10 +21052,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], IREG(3)), cur_opcode[4]) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21248,10 +21065,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(IREG(2), cur_opcode[3]), cur_opcode[4]) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21262,10 +21078,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PREG(1)) {
if (Parrot_io_seek(interp, PREG(1), Parrot_io_make_offset32(cur_opcode[2], cur_opcode[3]), cur_opcode[4]) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 5,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 5,
EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
+ "seek failed (64bit)");return (opcode_t *)handler;
}
}
@@ -21478,10 +21293,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = IREG(3);
if (IREG(3) == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = IREG(2) % den;
@@ -21492,10 +21306,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = IREG(3);
if (IREG(3) == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = cur_opcode[2] % den;
@@ -21506,10 +21319,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = cur_opcode[3];
if (cur_opcode[3] == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = IREG(2) % den;
@@ -21521,10 +21333,9 @@
INTVAL result;
if (IREG(3) == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
result = VTABLE_get_integer(interp, PREG(2)) % IREG(3);
@@ -21540,10 +21351,9 @@
INTVAL result;
if (cur_opcode[3] == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
result = VTABLE_get_integer(interp, PREG(2)) % cur_opcode[3];
@@ -21560,10 +21370,9 @@
INTVAL value = VTABLE_get_integer(interp, PREG(3));
if (value == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
result = VTABLE_get_integer(interp, PREG(2)) % value;
@@ -21578,10 +21387,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(NREG(3))) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = fmod(NREG(2), den);
@@ -21592,10 +21400,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(NREG(3))) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = fmod(CONST(2)->u.number, den);
@@ -21606,10 +21413,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(CONST(3)->u.number)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = fmod(NREG(2), den);
@@ -21622,10 +21428,9 @@
FLOATVAL value = NREG(3);
if (FLOAT_IS_ZERO(value)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
result = fmod(VTABLE_get_integer(interp, PREG(2)), value);
@@ -21642,10 +21447,9 @@
FLOATVAL value = CONST(3)->u.number;
if (FLOAT_IS_ZERO(value)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
result = fmod(VTABLE_get_integer(interp, PREG(2)), value);
@@ -21681,10 +21485,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = IREG(2);
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) /= den;
@@ -21695,10 +21498,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = cur_opcode[2];
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) /= den;
@@ -21709,10 +21511,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(2);
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) /= den;
@@ -21723,10 +21524,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = CONST(2)->u.number;
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) /= den;
@@ -21772,10 +21572,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = IREG(3);
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = IREG(2) / den;
@@ -21786,10 +21585,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = IREG(3);
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = cur_opcode[2] / den;
@@ -21800,10 +21598,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = cur_opcode[3];
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = IREG(2) / den;
@@ -21814,10 +21611,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
INTVAL den = cur_opcode[3];
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
IREG(1) = cur_opcode[2] / den;
@@ -21828,10 +21624,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = NREG(2) / den;
@@ -21842,10 +21637,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = CONST(2)->u.number / den;
@@ -21856,10 +21650,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = NREG(2) / den;
@@ -21870,10 +21663,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = CONST(2)->u.number / den;
@@ -21921,10 +21713,9 @@
FLOATVAL f;
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
f = floor(IREG(1) / den);
@@ -21939,10 +21730,9 @@
FLOATVAL f;
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
f = floor(IREG(1) / den);
@@ -21955,10 +21745,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(2);
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = floor(NREG(1) / den);
@@ -21969,10 +21758,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = CONST(2)->u.number;
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = floor(NREG(1) / den);
@@ -22020,10 +21808,9 @@
FLOATVAL f;
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
f = floor(IREG(2) / den);
@@ -22038,10 +21825,9 @@
FLOATVAL f;
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
f = floor(cur_opcode[2] / den);
@@ -22056,10 +21842,9 @@
FLOATVAL f;
if (den == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
f = floor(IREG(2) / den);
@@ -22072,10 +21857,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = floor(NREG(2) / den);
@@ -22086,10 +21870,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = NREG(3);
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = floor(CONST(2)->u.number / den);
@@ -22100,10 +21883,9 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
FLOATVAL den = CONST(3)->u.number;
if (FLOAT_IS_ZERO(den)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
+ "Divide by zero");return (opcode_t *)handler;
}
NREG(1) = floor(NREG(2) / den);
@@ -23014,7 +22796,7 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const object = PREG(1);
STRING * const meth = SREG(2);
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
opcode_t *dest = NULL;
@@ -23040,8 +22822,7 @@
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = NEED_CONTINUATION;
dest = VTABLE_invoke(interp, method_pmc, next);
- }
- return (opcode_t *)dest;
+ }return (opcode_t *)dest;
}
opcode_t *
@@ -23049,7 +22830,7 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const object = PREG(1);
STRING * const meth = CONST(2)->u.string;
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
opcode_t *dest = NULL;
@@ -23075,24 +22856,21 @@
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = NEED_CONTINUATION;
dest = VTABLE_invoke(interp, method_pmc, next);
- }
- return (opcode_t *)dest;
+ }return (opcode_t *)dest;
}
opcode_t *
Parrot_callmethodcc_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
opcode_t *dest;
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, PREG(1));
interp->current_cont = NEED_CONTINUATION;
- dest = VTABLE_invoke(interp, PREG(2), next);
-
- return (opcode_t *)dest;
+ dest = VTABLE_invoke(interp, PREG(2), next);return (opcode_t *)dest;
}
opcode_t *
@@ -23100,7 +22878,7 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const object = PREG(1);
STRING * const meth = SREG(2);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
opcode_t *dest = NULL;
@@ -23118,8 +22896,7 @@
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = PREG(3);
dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
- }
- return (opcode_t *)dest;
+ }return (opcode_t *)dest;
}
opcode_t *
@@ -23127,7 +22904,7 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const object = PREG(1);
STRING * const meth = CONST(2)->u.string;
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
opcode_t *dest = NULL;
@@ -23145,8 +22922,7 @@
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = PREG(3);
dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
- }
- return (opcode_t *)dest;
+ }return (opcode_t *)dest;
}
opcode_t *
@@ -23154,7 +22930,7 @@
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const object = PREG(1);
PMC * const method_pmc = PREG(2);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
opcode_t *dest;
PMC * signature = Parrot_pcc_get_signature(interp,
@@ -23163,14 +22939,13 @@
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = PREG(3);
- dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
- return (opcode_t *)dest;
+ dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);return (opcode_t *)dest;
}
opcode_t *
Parrot_tailcallmethod_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
PMC * const object = PREG(1);
STRING * const meth = SREG(2);
PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
@@ -23190,14 +22965,13 @@
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, object);
dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
- }
- return (opcode_t *)dest;
+ }return (opcode_t *)dest;
}
opcode_t *
Parrot_tailcallmethod_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
PMC * const object = PREG(1);
STRING * const meth = CONST(2)->u.string;
PMC * const method_pmc = VTABLE_find_method(interp, object, meth);
@@ -23217,14 +22991,13 @@
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, object);
dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
- }
- return (opcode_t *)dest;
+ }return (opcode_t *)dest;
}
opcode_t *
Parrot_tailcallmethod_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
PMC * const object = PREG(1);
PMC * const method_pmc = PREG(2);
@@ -23237,8 +23010,7 @@
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, object);
- dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);
- return (opcode_t *)dest;
+ dest = (opcode_t *)VTABLE_invoke(interp, method_pmc, next);return (opcode_t *)dest;
}
opcode_t *
@@ -23361,350 +23133,310 @@
Parrot_subclass_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_pc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3)->u.string);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_pc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t * handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3)->u.string);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_pc_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_p_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, PREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, PREG(2)));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3)->u.key);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_pc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class(interp, CONST(2)->u.key);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", VTABLE_get_string(interp, CONST(2)->u.key));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3)->u.key);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", SREG(2));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
- opcode_t * const next = cur_opcode + 3;
+ opcode_t * const next =cur_opcode + 3;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", CONST(2)->u.string);return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new(interp, enum_class_Class);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", SREG(2));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", CONST(2)->u.string);return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, SREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", SREG(2));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3)->u.string);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", CONST(2)->u.string);return (opcode_t *)handler;
}
PREG(1) = Parrot_oo_newclass_from_str(interp, CONST(3)->u.string);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", SREG(2));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", CONST(2)->u.string);return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, PREG(3));
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, SREG(2));
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", SREG(2));
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", SREG(2));return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3)->u.key);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
Parrot_subclass_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const parent_class = Parrot_oo_get_class_str(interp, CONST(2)->u.string);
- opcode_t * const next = cur_opcode + 4;
+ opcode_t * const next =cur_opcode + 4;
if (PMC_IS_NULL(parent_class)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NO_CLASS,
- "Class '%Ss' doesn't exist", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "Class '%Ss' doesn't exist", CONST(2)->u.string);return (opcode_t *)handler;
}
PREG(1) = Parrot_pmc_new_init(interp, enum_class_Class, CONST(3)->u.key);
- VTABLE_add_parent(interp, PREG(1), parent_class);
- return (opcode_t *)next;
+ VTABLE_add_parent(interp, PREG(1), parent_class);return (opcode_t *)next;
}
opcode_t *
@@ -23774,8 +23506,7 @@
else {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "Cannot add attribute to non-class");
- return (opcode_t *)handler;
+ "Cannot add attribute to non-class");return (opcode_t *)handler;
}
return (opcode_t *)cur_opcode + 3;}
@@ -23791,8 +23522,7 @@
else {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "Cannot add attribute to non-class");
- return (opcode_t *)handler;
+ "Cannot add attribute to non-class");return (opcode_t *)handler;
}
return (opcode_t *)cur_opcode + 3;}
@@ -23950,10 +23680,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
}
@@ -23973,10 +23702,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
}
@@ -23996,10 +23724,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
}
@@ -24019,10 +23746,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
}
@@ -24042,10 +23768,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3)->u.key);
}
@@ -24065,10 +23790,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3)->u.key);
}
@@ -24086,10 +23810,9 @@
else {
const INTVAL type = Parrot_pmc_get_type(interp, name_key);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
}
@@ -24107,10 +23830,9 @@
else {
const INTVAL type = Parrot_pmc_get_type(interp, name_key);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
}
@@ -24128,10 +23850,9 @@
else {
const INTVAL type = Parrot_pmc_get_type(interp, name_key);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
}
@@ -24149,10 +23870,9 @@
else {
const INTVAL type = Parrot_pmc_get_type(interp, name_key);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, PREG(3));
}
@@ -24170,10 +23890,9 @@
else {
const INTVAL type = Parrot_pmc_get_type(interp, name_key);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3)->u.key);
}
@@ -24191,10 +23910,9 @@
else {
const INTVAL type = Parrot_pmc_get_type(interp, name_key);
if (type <= 0) {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init(interp, type, CONST(3)->u.key);
}
@@ -24214,10 +23932,9 @@
if (!PMC_IS_NULL(classobj))
PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
else {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 3;}
@@ -24235,10 +23952,9 @@
if (!PMC_IS_NULL(classobj))
PREG(1) = VTABLE_instantiate(interp, classobj, PMCNULL);
else {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 3,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 3,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 3;}
@@ -24256,10 +23972,9 @@
if (!PMC_IS_NULL(classobj))
PREG(1) = VTABLE_instantiate(interp, classobj, PREG(3));
else {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -24277,10 +23992,9 @@
if (!PMC_IS_NULL(classobj))
PREG(1) = VTABLE_instantiate(interp, classobj, PREG(3));
else {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -24298,10 +24012,9 @@
if (!PMC_IS_NULL(classobj))
PREG(1) = VTABLE_instantiate(interp, classobj, CONST(3)->u.key);
else {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -24319,10 +24032,9 @@
if (!PMC_IS_NULL(classobj))
PREG(1) = VTABLE_instantiate(interp, classobj, CONST(3)->u.key);
else {
- opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t * const dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -24351,31 +24063,27 @@
opcode_t *
Parrot_find_method_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const resume = cur_opcode + 4;
+ opcode_t * const resume =cur_opcode + 4;
PREG(1) = VTABLE_find_method(interp, PREG(2), SREG(3));
if (PMC_IS_NULL(PREG(1)) || !VTABLE_defined(interp, PREG(1))) {
opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, resume,
EXCEPTION_METHOD_NOT_FOUND,
"Method '%Ss' not found for invocant of class '%Ss'", SREG(3),
- VTABLE_get_string(interp, VTABLE_get_class(interp, PREG(2))));
- return (opcode_t *)dest;
- }
- return (opcode_t *)resume;
+ VTABLE_get_string(interp, VTABLE_get_class(interp, PREG(2))));return (opcode_t *)dest;
+ }return (opcode_t *)resume;
}
opcode_t *
Parrot_find_method_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const resume = cur_opcode + 4;
+ opcode_t * const resume =cur_opcode + 4;
PREG(1) = VTABLE_find_method(interp, PREG(2), CONST(3)->u.string);
if (PMC_IS_NULL(PREG(1)) || !VTABLE_defined(interp, PREG(1))) {
opcode_t * const dest = Parrot_ex_throw_from_op_args(interp, resume,
EXCEPTION_METHOD_NOT_FOUND,
"Method '%Ss' not found for invocant of class '%Ss'", CONST(3)->u.string,
- VTABLE_get_string(interp, VTABLE_get_class(interp, PREG(2))));
- return (opcode_t *)dest;
- }
- return (opcode_t *)resume;
+ VTABLE_get_string(interp, VTABLE_get_class(interp, PREG(2))));return (opcode_t *)dest;
+ }return (opcode_t *)resume;
}
opcode_t *
@@ -25500,10 +25208,9 @@
Parrot_copy_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
if (PMC_IS_NULL(PREG(1))) {
- opcode_t * const dest = cur_opcode + 3;
+ opcode_t * const dest =cur_opcode + 3;
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, dest,
- EXCEPTION_NULL_REG_ACCESS, "Null PMC in copy");
- return (opcode_t *)handler;
+ EXCEPTION_NULL_REG_ACCESS, "Null PMC in copy");return (opcode_t *)handler;
}
else {
PMC * const clone = VTABLE_clone(interp, PREG(2));
@@ -25732,8 +25439,7 @@
if (IREG(3) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
SREG(1) = Parrot_str_repeat(interp, SREG(2), (UINTVAL)IREG(3));
@@ -25745,8 +25451,7 @@
if (IREG(3) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
SREG(1) = Parrot_str_repeat(interp, CONST(2)->u.string, (UINTVAL)IREG(3));
@@ -25758,8 +25463,7 @@
if (cur_opcode[3] < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
SREG(1) = Parrot_str_repeat(interp, SREG(2), (UINTVAL)cur_opcode[3]);
@@ -25771,8 +25475,7 @@
if (cur_opcode[3] < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
SREG(1) = Parrot_str_repeat(interp, CONST(2)->u.string, (UINTVAL)cur_opcode[3]);
@@ -25784,8 +25487,7 @@
if (IREG(3) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
PREG(1) = VTABLE_repeat_int(interp, PREG(2), IREG(3), PREG(1));
@@ -25797,8 +25499,7 @@
if (cur_opcode[3] < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
PREG(1) = VTABLE_repeat_int(interp, PREG(2), cur_opcode[3], PREG(1));
@@ -25810,8 +25511,7 @@
if (VTABLE_get_integer(interp, PREG(3)) < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_NEG_REPEAT,
- "Cannot repeat with negative arg");
- return (opcode_t *)handler;
+ "Cannot repeat with negative arg");return (opcode_t *)handler;
}
PREG(1) = VTABLE_repeat(interp, PREG(2), PREG(3), PREG(1));
@@ -26264,8 +25964,7 @@
{
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "stringinfo: unknown info type: %d", IREG(3));
- return (opcode_t *)handler;
+ "stringinfo: unknown info type: %d", IREG(3));return (opcode_t *)handler;
}
}
}
@@ -26301,8 +26000,7 @@
{
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "stringinfo: unknown info type: %d", IREG(3));
- return (opcode_t *)handler;
+ "stringinfo: unknown info type: %d", IREG(3));return (opcode_t *)handler;
}
}
}
@@ -26338,8 +26036,7 @@
{
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "stringinfo: unknown info type: %d", cur_opcode[3]);
- return (opcode_t *)handler;
+ "stringinfo: unknown info type: %d", cur_opcode[3]);return (opcode_t *)handler;
}
}
}
@@ -26375,8 +26072,7 @@
{
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "stringinfo: unknown info type: %d", cur_opcode[3]);
- return (opcode_t *)handler;
+ "stringinfo: unknown info type: %d", cur_opcode[3]);return (opcode_t *)handler;
}
}
}
@@ -26502,8 +26198,7 @@
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_CHARTYPE,
- "charset '%Ss' not found", SREG(2));
- return (opcode_t *)handler;
+ "charset '%Ss' not found", SREG(2));return (opcode_t *)handler;
}
IREG(1) = n;
@@ -26516,8 +26211,7 @@
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_CHARTYPE,
- "charset '%Ss' not found", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "charset '%Ss' not found", CONST(2)->u.string);return (opcode_t *)handler;
}
IREG(1) = n;
@@ -26586,8 +26280,7 @@
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_ENCODING,
- "encoding '%Ss' not found", SREG(2));
- return (opcode_t *)handler;
+ "encoding '%Ss' not found", SREG(2));return (opcode_t *)handler;
}
IREG(1) = n;
@@ -26600,8 +26293,7 @@
if (n < 0) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_ENCODING,
- "encoding '%Ss' not found", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "encoding '%Ss' not found", CONST(2)->u.string);return (opcode_t *)handler;
}
IREG(1) = n;
@@ -27121,57 +26813,49 @@
opcode_t *
Parrot_sleep_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *next = cur_opcode + 2;
+ opcode_t *next =cur_opcode + 2;
if (IREG(1) < 0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NEG_SLEEP,
- "Cannot go back in time");
- return (opcode_t *)handler;
+ "Cannot go back in time");return (opcode_t *)handler;
}
- next = (opcode_t *)Parrot_cx_schedule_sleep(interp, (FLOATVAL) IREG(1), next);
- return (opcode_t *)next;
+ next = (opcode_t *)Parrot_cx_schedule_sleep(interp, (FLOATVAL) IREG(1), next);return (opcode_t *)next;
}
opcode_t *
Parrot_sleep_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *next = cur_opcode + 2;
+ opcode_t *next =cur_opcode + 2;
if (cur_opcode[1] < 0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NEG_SLEEP,
- "Cannot go back in time");
- return (opcode_t *)handler;
+ "Cannot go back in time");return (opcode_t *)handler;
}
- next = (opcode_t *)Parrot_cx_schedule_sleep(interp, (FLOATVAL) cur_opcode[1], next);
- return (opcode_t *)next;
+ next = (opcode_t *)Parrot_cx_schedule_sleep(interp, (FLOATVAL) cur_opcode[1], next);return (opcode_t *)next;
}
opcode_t *
Parrot_sleep_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *next = cur_opcode + 2;
+ opcode_t *next =cur_opcode + 2;
if (NREG(1) < 0.0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NEG_SLEEP,
- "Cannot go back in time");
- return (opcode_t *)handler;
+ "Cannot go back in time");return (opcode_t *)handler;
}
- next = (opcode_t *)Parrot_cx_schedule_sleep(interp, NREG(1), next);
- return (opcode_t *)next;
+ next = (opcode_t *)Parrot_cx_schedule_sleep(interp, NREG(1), next);return (opcode_t *)next;
}
opcode_t *
Parrot_sleep_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *next = cur_opcode + 2;
+ opcode_t *next =cur_opcode + 2;
if (CONST(1)->u.number < 0.0) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, next,
EXCEPTION_NEG_SLEEP,
- "Cannot go back in time");
- return (opcode_t *)handler;
+ "Cannot go back in time");return (opcode_t *)handler;
}
- next = (opcode_t *)Parrot_cx_schedule_sleep(interp, CONST(1)->u.number, next);
- return (opcode_t *)next;
+ next = (opcode_t *)Parrot_cx_schedule_sleep(interp, CONST(1)->u.number, next);return (opcode_t *)next;
}
opcode_t *
@@ -27184,8 +26868,7 @@
if (PMC_IS_NULL(lex_pad)) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_LEX_NOT_FOUND,
- "Lexical '%Ss' not found", lex_name);
- return (opcode_t *)handler;
+ "Lexical '%Ss' not found", lex_name);return (opcode_t *)handler;
}
VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
@@ -27201,8 +26884,7 @@
if (PMC_IS_NULL(lex_pad)) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_LEX_NOT_FOUND,
- "Lexical '%Ss' not found", lex_name);
- return (opcode_t *)handler;
+ "Lexical '%Ss' not found", lex_name);return (opcode_t *)handler;
}
VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
@@ -27222,8 +26904,7 @@
if (PMC_IS_NULL(lex_pad)) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_LEX_NOT_FOUND,
- "Lexical '%Ss' not found in dynamic scope", lex_name);
- return (opcode_t *)handler;
+ "Lexical '%Ss' not found in dynamic scope", lex_name);return (opcode_t *)handler;
}
VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
@@ -27243,8 +26924,7 @@
if (PMC_IS_NULL(lex_pad)) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_LEX_NOT_FOUND,
- "Lexical '%Ss' not found in dynamic scope", lex_name);
- return (opcode_t *)handler;
+ "Lexical '%Ss' not found in dynamic scope", lex_name);return (opcode_t *)handler;
}
VTABLE_set_pmc_keyed_str(interp, lex_pad, lex_name, PREG(2));
@@ -27264,8 +26944,7 @@
if (!result) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_LEX_NOT_FOUND,
- "Lexical '%Ss' not found", lex_name);
- return (opcode_t *)handler;
+ "Lexical '%Ss' not found", lex_name);return (opcode_t *)handler;
}
PREG(1) = result;
@@ -27285,8 +26964,7 @@
if (!result) {
opcode_t * const handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_LEX_NOT_FOUND,
- "Lexical '%Ss' not found", lex_name);
- return (opcode_t *)handler;
+ "Lexical '%Ss' not found", lex_name);return (opcode_t *)handler;
}
PREG(1) = result;
@@ -27470,7 +27148,7 @@
Parrot_get_global_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
- PREG(1) = Parrot_find_global_op(interp, cur_ns, SREG(2), cur_opcode + 3);
+ PREG(1) = Parrot_find_global_op(interp, cur_ns, SREG(2),cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27478,7 +27156,7 @@
Parrot_get_global_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const cur_ns = Parrot_pcc_get_namespace(interp, CURRENT_CONTEXT(interp));
- PREG(1) = Parrot_find_global_op(interp, cur_ns, CONST(2)->u.string, cur_opcode + 3);
+ PREG(1) = Parrot_find_global_op(interp, cur_ns, CONST(2)->u.string,cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27494,7 +27172,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, SREG(3), cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, SREG(3),cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27511,7 +27189,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, SREG(3), cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, SREG(3),cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27528,7 +27206,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string, cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string,cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27545,7 +27223,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string, cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string,cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27554,7 +27232,7 @@
Parrot_get_hll_global_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
- PREG(1) = Parrot_find_global_op(interp, hll_ns, SREG(2), cur_opcode + 3);
+ PREG(1) = Parrot_find_global_op(interp, hll_ns, SREG(2),cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27562,7 +27240,7 @@
Parrot_get_hll_global_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const hll_ns = Parrot_get_ctx_HLL_namespace(interp);
- PREG(1) = Parrot_find_global_op(interp, hll_ns, CONST(2)->u.string, cur_opcode + 3);
+ PREG(1) = Parrot_find_global_op(interp, hll_ns, CONST(2)->u.string,cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27578,7 +27256,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, SREG(3), cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, SREG(3),cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27595,7 +27273,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, SREG(3), cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, SREG(3),cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27612,7 +27290,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string, cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string,cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27629,7 +27307,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string, cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string,cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27638,7 +27316,7 @@
Parrot_get_root_global_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const root_ns = interp->root_namespace;
- PREG(1) = Parrot_find_global_op(interp, root_ns, SREG(2), cur_opcode + 3);
+ PREG(1) = Parrot_find_global_op(interp, root_ns, SREG(2),cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27646,7 +27324,7 @@
Parrot_get_root_global_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const root_ns = interp->root_namespace;
- PREG(1) = Parrot_find_global_op(interp, root_ns, CONST(2)->u.string, cur_opcode + 3);
+ PREG(1) = Parrot_find_global_op(interp, root_ns, CONST(2)->u.string,cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27661,7 +27339,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, SREG(3), cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, SREG(3),cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27677,7 +27355,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, SREG(3), cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, SREG(3),cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27693,7 +27371,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string, cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string,cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27709,7 +27387,7 @@
if (PMC_IS_NULL(ns))
PREG(1) = PMCNULL;
else
- PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string, cur_opcode + 4);
+ PREG(1) = Parrot_find_global_op(interp, ns, CONST(3)->u.string,cur_opcode + 4);
}
return (opcode_t *)cur_opcode + 4;}
@@ -27888,11 +27566,10 @@
if (!SREG(2)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "Tried to find null name");
- return (opcode_t *)handler;
+ "Tried to find null name");return (opcode_t *)handler;
}
- PREG(1) = Parrot_find_name_op(interp, SREG(2), cur_opcode + 3);
+ PREG(1) = Parrot_find_name_op(interp, SREG(2),cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
@@ -27902,25 +27579,23 @@
if (!CONST(2)->u.string) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, NULL,
EXCEPTION_INVALID_OPERATION,
- "Tried to find null name");
- return (opcode_t *)handler;
+ "Tried to find null name");return (opcode_t *)handler;
}
- PREG(1) = Parrot_find_name_op(interp, CONST(2)->u.string, cur_opcode + 3);
+ PREG(1) = Parrot_find_name_op(interp, CONST(2)->u.string,cur_opcode + 3);
return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_find_sub_not_null_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *dest = cur_opcode + 3;
+ opcode_t *dest =cur_opcode + 3;
PMC *sub = Parrot_find_name_op(interp, SREG(2), dest);
if (PMC_IS_NULL(sub)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_GLOBAL_NOT_FOUND,
- "Could not find sub %Ss", SREG(2));
- return (opcode_t *)handler;
+ "Could not find sub %Ss", SREG(2));return (opcode_t *)handler;
}
PREG(1) = sub;
@@ -27930,14 +27605,13 @@
opcode_t *
Parrot_find_sub_not_null_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t *dest = cur_opcode + 3;
+ opcode_t *dest =cur_opcode + 3;
PMC *sub = Parrot_find_name_op(interp, CONST(2)->u.string, dest);
if (PMC_IS_NULL(sub)) {
opcode_t *handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_GLOBAL_NOT_FOUND,
- "Could not find sub %Ss", CONST(2)->u.string);
- return (opcode_t *)handler;
+ "Could not find sub %Ss", CONST(2)->u.string);return (opcode_t *)handler;
}
PREG(1) = sub;
@@ -27983,9 +27657,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28006,9 +27679,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28029,9 +27701,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28052,9 +27723,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28075,9 +27745,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28098,9 +27767,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28121,9 +27789,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28144,9 +27811,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28167,9 +27833,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28190,9 +27855,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28213,9 +27877,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28236,9 +27899,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28259,9 +27921,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28282,9 +27943,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28305,9 +27965,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28328,9 +27987,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28351,9 +28009,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28374,9 +28031,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28397,9 +28053,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28420,9 +28075,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28443,9 +28097,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28466,9 +28119,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28489,9 +28141,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28512,9 +28163,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28537,9 +28187,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28563,9 +28212,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28589,9 +28237,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28615,9 +28262,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28641,9 +28287,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28667,9 +28312,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28693,9 +28337,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28719,9 +28362,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28744,9 +28386,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28770,9 +28411,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28796,9 +28436,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28822,9 +28461,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28848,9 +28486,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28874,9 +28511,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28900,9 +28536,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28926,9 +28561,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28952,9 +28586,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -28978,9 +28611,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29004,9 +28636,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29030,9 +28661,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, PREG(4));
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, PREG(4)));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29056,9 +28686,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29082,9 +28711,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29108,9 +28736,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29134,9 +28761,8 @@
const INTVAL type = Parrot_pmc_get_type(interp, CONST(4)->u.key);
if (type <= 0) {
opcode_t *dest = Parrot_ex_throw_from_op_args(
- interp, cur_opcode + 5, EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));
- return (opcode_t *)dest;
+ interp,cur_opcode + 5, EXCEPTION_NO_CLASS,
+ "Class '%Ss' not found", VTABLE_get_repr(interp, CONST(4)->u.key));return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new(interp, type);
@@ -29163,10 +28789,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
}
@@ -29189,10 +28814,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init_int(interp, type, IREG(3));
}
@@ -29215,10 +28839,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
}
@@ -29241,10 +28864,9 @@
else {
const INTVAL type = Parrot_pmc_get_type_str(interp, name);
if (type <= 0) {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", name);
- return (opcode_t *)dest;
+ "Class '%Ss' not found", name);return (opcode_t *)dest;
}
PREG(1) = Parrot_pmc_new_init_int(interp, type, cur_opcode[3]);
}
@@ -29276,10 +28898,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29309,10 +28930,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29342,10 +28962,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29375,10 +28994,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29410,10 +29028,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29445,10 +29062,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29480,10 +29096,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29515,10 +29130,9 @@
/* it's a typo */
else {
- opcode_t *dest = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
+ opcode_t *dest = Parrot_ex_throw_from_op_args(interp,cur_opcode + 4,
EXCEPTION_NO_CLASS,
- "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));
- return (opcode_t *)dest;
+ "Class '%Ss' not found", VTABLE_get_repr(interp, name_key));return (opcode_t *)dest;
}
return (opcode_t *)cur_opcode + 4;}
@@ -29533,7 +29147,7 @@
Parrot_str_free_cstring(cstr);
IREG(1) = U_SUCCESS(err) ? (INTVAL) codepoint : -1;
#else
- opcode_t * const dest = cur_opcode + 3;
+ opcode_t * const dest =cur_opcode + 3;
Parrot_ex_throw_from_op_args(interp, dest, EXCEPTION_LIBRARY_ERROR,
"no ICU lib loaded");
#endif
@@ -29550,7 +29164,7 @@
Parrot_str_free_cstring(cstr);
IREG(1) = U_SUCCESS(err) ? (INTVAL) codepoint : -1;
#else
- opcode_t * const dest = cur_opcode + 3;
+ opcode_t * const dest =cur_opcode + 3;
Parrot_ex_throw_from_op_args(interp, dest, EXCEPTION_LIBRARY_ERROR,
"no ICU lib loaded");
#endif
@@ -29561,7 +29175,7 @@
Parrot_unroll_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
/* Go to the next op after loop unrolling */
- opcode_t * const dest = cur_opcode + 2;
+ opcode_t * const dest =cur_opcode + 2;
PMC *eh = PMCNULL;
if (!PMC_IS_NULL(PREG(1))) {
/* If isa ExceptionHandler, use it. If isa Exception, get its active handler */
@@ -29600,7 +29214,7 @@
Parrot_unroll_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
/* Go to the next op after loop unrolling */
- opcode_t * const dest = cur_opcode + 2;
+ opcode_t * const dest =cur_opcode + 2;
PMC *eh = PMCNULL;
if (!PMC_IS_NULL(CONST(1)->u.key)) {
/* If isa ExceptionHandler, use it. If isa Exception, get its active handler */
Deleted: trunk/src/ops/ops.num
==============================================================================
--- trunk/src/ops/ops.num Wed May 26 01:35:32 2010 (r47002)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,1224 +0,0 @@
-# This file provides opcode name->number mapping, so we can nail down
-# the op numbers for the core opcodes in a particular version of the
-# bytecode and provide backward-compatibility for bytecode.
-#
-# The format of this file is simple:
-#
-# opcode_name (whitespace) opcode_number
-#
-# The opcode name is the full and complete name of the
-# opcode--i.e. for the "add N1, N2, N3" op the name is add_n_n_n, not
-# add.
-#
-# The numbering of opcodes whose names are *not* in this file begins
-# immediately after the highest-numbered opcode in this file,
-# regardless of what order it is found in. There should be *no* holes
-# in the numbering!
-
-# Please note that only opcodes from experimental.ops are included
-# in the core.pm, if they are missing here.
-
-# Note that end must always be op 0.
-end 0
-# the following ops are enums in oplib.h
-noop 1
-check_events 2
-check_events__ 3
-wrapper__ 4
-###DYNAMIC### other ops
-load_bytecode_s 5
-load_bytecode_sc 6
-load_language_s 7
-load_language_sc 8
-branch_i 9
-branch_ic 10
-local_branch_p_i 11
-local_branch_p_ic 12
-local_return_p 13
-jump_i 14
-jump_ic 15
-enternative 16
-if_i_ic 17
-if_n_ic 18
-if_s_ic 19
-if_p_ic 20
-unless_i_ic 21
-unless_n_ic 22
-unless_s_ic 23
-unless_p_ic 24
-invokecc_p 25
-invoke_p_p 26
-yield 27
-tailcall_p 28
-returncc 29
-capture_lex_p 30
-newclosure_p_p 31
-set_args_pc 32
-get_params_pc 33
-set_returns_pc 34
-get_results_pc 35
-set_result_info_p 36
-set_result_info_pc 37
-result_info_p 38
-set_addr_i_ic 39
-set_addr_p_ic 40
-set_addr_p_i 41
-get_addr_i_p 42
-schedule_p 43
-addhandler_p 44
-push_eh_ic 45
-push_eh_p 46
-pop_eh 47
-throw_p 48
-throw_p_p 49
-rethrow_p 50
-count_eh_i 51
-die_s 52
-die_sc 53
-die_p 54
-die_pc 55
-die_i_i 56
-die_ic_i 57
-die_i_ic 58
-die_ic_ic 59
-exit_i 60
-exit_ic 61
-debug_i 62
-debug_ic 63
-bounds_i 64
-bounds_ic 65
-profile_i 66
-profile_ic 67
-trace_i 68
-trace_ic 69
-gc_debug_i 70
-gc_debug_ic 71
-interpinfo_i_i 72
-interpinfo_i_ic 73
-interpinfo_p_i 74
-interpinfo_p_ic 75
-interpinfo_s_i 76
-interpinfo_s_ic 77
-warningson_i 78
-warningson_ic 79
-warningsoff_i 80
-warningsoff_ic 81
-errorson_i 82
-errorson_ic 83
-errorsoff_i 84
-errorsoff_ic 85
-runinterp_p_i 86
-runinterp_p_ic 87
-getinterp_p 88
-sweep_ic 89
-collect 90
-sweepoff 91
-sweepon 92
-collectoff 93
-collecton 94
-needs_destroy_p 95
-loadlib_p_s 96
-loadlib_p_sc 97
-loadlib_p_s_p 98
-loadlib_p_sc_p 99
-loadlib_p_s_pc 100
-loadlib_p_sc_pc 101
-dlfunc_p_p_s_s 102
-dlfunc_p_p_sc_s 103
-dlfunc_p_p_s_sc 104
-dlfunc_p_p_sc_sc 105
-dlvar_p_p_s 106
-dlvar_p_p_sc 107
-compreg_s_p 108
-compreg_sc_p 109
-compreg_p_s 110
-compreg_p_sc 111
-new_callback_p_p_p_s 112
-new_callback_p_p_p_sc 113
-annotations_p 114
-annotations_p_s 115
-annotations_p_sc 116
-band_i_i 117
-band_i_ic 118
-band_p_i 119
-band_p_ic 120
-band_p_p 121
-band_i_i_i 122
-band_i_ic_i 123
-band_i_i_ic 124
-band_p_p_i 125
-band_p_p_ic 126
-band_p_p_p 127
-bands_p_s 128
-bands_p_sc 129
-bands_p_p 130
-bands_s_s_s 131
-bands_s_sc_s 132
-bands_s_s_sc 133
-bands_p_p_s 134
-bands_p_p_sc 135
-bands_p_p_p 136
-bnot_i 137
-bnot_i_i 138
-bnot_p 139
-bnot_p_p 140
-bnots_s_s 141
-bnots_s_sc 142
-bnots_p 143
-bnots_p_p 144
-bor_i_i 145
-bor_i_ic 146
-bor_p_i 147
-bor_p_ic 148
-bor_p_p 149
-bor_i_i_i 150
-bor_i_ic_i 151
-bor_i_i_ic 152
-bor_p_p_i 153
-bor_p_p_ic 154
-bor_p_p_p 155
-bors_p_s 156
-bors_p_sc 157
-bors_p_p 158
-bors_s_s_s 159
-bors_s_sc_s 160
-bors_s_s_sc 161
-bors_p_p_s 162
-bors_p_p_sc 163
-bors_p_p_p 164
-shl_i_i 165
-shl_i_ic 166
-shl_p_i 167
-shl_p_ic 168
-shl_p_p 169
-shl_i_i_i 170
-shl_i_ic_i 171
-shl_i_i_ic 172
-shl_p_p_i 173
-shl_p_p_ic 174
-shl_p_p_p 175
-shr_i_i 176
-shr_i_ic 177
-shr_p_i 178
-shr_p_ic 179
-shr_p_p 180
-shr_i_i_i 181
-shr_i_ic_i 182
-shr_i_i_ic 183
-shr_p_p_i 184
-shr_p_p_ic 185
-shr_p_p_p 186
-lsr_i_i 187
-lsr_i_ic 188
-lsr_p_i 189
-lsr_p_ic 190
-lsr_p_p 191
-lsr_i_i_i 192
-lsr_i_ic_i 193
-lsr_i_i_ic 194
-lsr_p_p_i 195
-lsr_p_p_ic 196
-lsr_p_p_p 197
-rot_i_i_i_ic 198
-rot_i_ic_i_ic 199
-rot_i_i_ic_ic 200
-bxor_i_i 201
-bxor_i_ic 202
-bxor_p_i 203
-bxor_p_ic 204
-bxor_p_p 205
-bxor_i_i_i 206
-bxor_i_ic_i 207
-bxor_i_i_ic 208
-bxor_p_p_i 209
-bxor_p_p_ic 210
-bxor_p_p_p 211
-bxors_p_s 212
-bxors_p_sc 213
-bxors_p_p 214
-bxors_s_s_s 215
-bxors_s_sc_s 216
-bxors_s_s_sc 217
-bxors_p_p_s 218
-bxors_p_p_sc 219
-bxors_p_p_p 220
-eq_i_i_ic 221
-eq_ic_i_ic 222
-eq_i_ic_ic 223
-eq_n_n_ic 224
-eq_nc_n_ic 225
-eq_n_nc_ic 226
-eq_s_s_ic 227
-eq_sc_s_ic 228
-eq_s_sc_ic 229
-eq_p_p_ic 230
-eq_p_i_ic 231
-eq_p_ic_ic 232
-eq_p_n_ic 233
-eq_p_nc_ic 234
-eq_p_s_ic 235
-eq_p_sc_ic 236
-eq_str_p_p_ic 237
-eq_num_p_p_ic 238
-eq_addr_s_s_ic 239
-eq_addr_sc_s_ic 240
-eq_addr_s_sc_ic 241
-eq_addr_sc_sc_ic 242
-eq_addr_p_p_ic 243
-ne_i_i_ic 244
-ne_ic_i_ic 245
-ne_i_ic_ic 246
-ne_n_n_ic 247
-ne_nc_n_ic 248
-ne_n_nc_ic 249
-ne_s_s_ic 250
-ne_sc_s_ic 251
-ne_s_sc_ic 252
-ne_p_p_ic 253
-ne_p_i_ic 254
-ne_p_ic_ic 255
-ne_p_n_ic 256
-ne_p_nc_ic 257
-ne_p_s_ic 258
-ne_p_sc_ic 259
-ne_str_p_p_ic 260
-ne_num_p_p_ic 261
-ne_addr_s_s_ic 262
-ne_addr_sc_s_ic 263
-ne_addr_s_sc_ic 264
-ne_addr_sc_sc_ic 265
-ne_addr_p_p_ic 266
-lt_i_i_ic 267
-lt_ic_i_ic 268
-lt_i_ic_ic 269
-lt_n_n_ic 270
-lt_nc_n_ic 271
-lt_n_nc_ic 272
-lt_s_s_ic 273
-lt_sc_s_ic 274
-lt_s_sc_ic 275
-lt_p_p_ic 276
-lt_p_i_ic 277
-lt_p_ic_ic 278
-lt_p_n_ic 279
-lt_p_nc_ic 280
-lt_p_s_ic 281
-lt_p_sc_ic 282
-lt_str_p_p_ic 283
-lt_num_p_p_ic 284
-le_i_i_ic 285
-le_ic_i_ic 286
-le_i_ic_ic 287
-le_n_n_ic 288
-le_nc_n_ic 289
-le_n_nc_ic 290
-le_s_s_ic 291
-le_sc_s_ic 292
-le_s_sc_ic 293
-le_p_p_ic 294
-le_p_i_ic 295
-le_p_ic_ic 296
-le_p_n_ic 297
-le_p_nc_ic 298
-le_p_s_ic 299
-le_p_sc_ic 300
-le_str_p_p_ic 301
-le_num_p_p_ic 302
-gt_p_p_ic 303
-gt_p_i_ic 304
-gt_p_ic_ic 305
-gt_p_n_ic 306
-gt_p_nc_ic 307
-gt_p_s_ic 308
-gt_p_sc_ic 309
-gt_str_p_p_ic 310
-gt_num_p_p_ic 311
-ge_p_p_ic 312
-ge_p_i_ic 313
-ge_p_ic_ic 314
-ge_p_n_ic 315
-ge_p_nc_ic 316
-ge_p_s_ic 317
-ge_p_sc_ic 318
-ge_str_p_p_ic 319
-ge_num_p_p_ic 320
-if_null_p_ic 321
-if_null_s_ic 322
-unless_null_p_ic 323
-unless_null_s_ic 324
-cmp_i_i_i 325
-cmp_i_ic_i 326
-cmp_i_i_ic 327
-cmp_i_n_n 328
-cmp_i_nc_n 329
-cmp_i_n_nc 330
-cmp_i_s_s 331
-cmp_i_sc_s 332
-cmp_i_s_sc 333
-cmp_i_p_p 334
-cmp_i_p_i 335
-cmp_i_p_ic 336
-cmp_i_p_n 337
-cmp_i_p_nc 338
-cmp_i_p_s 339
-cmp_i_p_sc 340
-cmp_str_i_p_p 341
-cmp_num_i_p_p 342
-cmp_pmc_p_p_p 343
-issame_i_p_p 344
-issame_i_s_s 345
-issame_i_sc_s 346
-issame_i_s_sc 347
-issame_i_sc_sc 348
-isntsame_i_p_p 349
-isntsame_i_s_s 350
-isntsame_i_sc_s 351
-isntsame_i_s_sc 352
-isntsame_i_sc_sc 353
-istrue_i_p 354
-isfalse_i_p 355
-isnull_i_p 356
-isnull_i_pc 357
-isnull_i_s 358
-isnull_i_sc 359
-isgt_i_p_p 360
-isge_i_p_p 361
-isle_i_i_i 362
-isle_i_ic_i 363
-isle_i_i_ic 364
-isle_i_n_n 365
-isle_i_nc_n 366
-isle_i_n_nc 367
-isle_i_s_s 368
-isle_i_sc_s 369
-isle_i_s_sc 370
-isle_i_p_p 371
-islt_i_i_i 372
-islt_i_ic_i 373
-islt_i_i_ic 374
-islt_i_n_n 375
-islt_i_nc_n 376
-islt_i_n_nc 377
-islt_i_s_s 378
-islt_i_sc_s 379
-islt_i_s_sc 380
-islt_i_p_p 381
-iseq_i_i_i 382
-iseq_i_ic_i 383
-iseq_i_i_ic 384
-iseq_i_n_n 385
-iseq_i_nc_n 386
-iseq_i_n_nc 387
-iseq_i_s_s 388
-iseq_i_sc_s 389
-iseq_i_s_sc 390
-iseq_i_p_p 391
-isne_i_i_i 392
-isne_i_ic_i 393
-isne_i_i_ic 394
-isne_i_n_n 395
-isne_i_nc_n 396
-isne_i_n_nc 397
-isne_i_s_s 398
-isne_i_sc_s 399
-isne_i_s_sc 400
-isne_i_p_p 401
-and_i_i_i 402
-and_i_ic_i 403
-and_i_i_ic 404
-and_p_p_p 405
-not_i 406
-not_i_i 407
-not_p 408
-not_p_p 409
-or_i_i_i 410
-or_i_ic_i 411
-or_i_i_ic 412
-or_p_p_p 413
-xor_i_i_i 414
-xor_i_ic_i 415
-xor_i_i_ic 416
-xor_p_p_p 417
-debug_init 418
-debug_load_sc 419
-debug_break 420
-debug_print 421
-backtrace 422
-getline_i 423
-getfile_s 424
-close_p 425
-fdopen_p_i_s 426
-fdopen_p_ic_s 427
-fdopen_p_i_sc 428
-fdopen_p_ic_sc 429
-getstdin_p 430
-getstdout_p 431
-getstderr_p 432
-setstdin_p 433
-setstdout_p 434
-setstderr_p 435
-open_p_s_s 436
-open_p_sc_s 437
-open_p_s_sc 438
-open_p_sc_sc 439
-open_p_s 440
-open_p_sc 441
-print_i 442
-print_ic 443
-print_n 444
-print_nc 445
-print_s 446
-print_sc 447
-print_p 448
-say_i 449
-say_ic 450
-say_n 451
-say_nc 452
-say_s 453
-say_sc 454
-say_p 455
-printerr_i 456
-printerr_ic 457
-printerr_n 458
-printerr_nc 459
-printerr_s 460
-printerr_sc 461
-printerr_p 462
-print_p_i 463
-print_p_ic 464
-print_p_n 465
-print_p_nc 466
-print_p_s 467
-print_p_sc 468
-print_p_p 469
-read_s_i 470
-read_s_ic 471
-read_s_p_i 472
-read_s_p_ic 473
-readline_s_p 474
-peek_s 475
-peek_s_p 476
-stat_i_s_i 477
-stat_i_sc_i 478
-stat_i_s_ic 479
-stat_i_sc_ic 480
-stat_i_i_i 481
-stat_i_ic_i 482
-stat_i_i_ic 483
-stat_i_ic_ic 484
-seek_p_i_i 485
-seek_p_ic_i 486
-seek_p_i_ic 487
-seek_p_ic_ic 488
-seek_p_i_i_i 489
-seek_p_ic_i_i 490
-seek_p_i_ic_i 491
-seek_p_ic_ic_i 492
-seek_p_i_i_ic 493
-seek_p_ic_i_ic 494
-seek_p_i_ic_ic 495
-seek_p_ic_ic_ic 496
-tell_i_p 497
-tell_i_i_p 498
-abs_i 499
-abs_n 500
-abs_i_i 501
-abs_n_n 502
-abs_p 503
-abs_p_p 504
-add_i_i 505
-add_i_ic 506
-add_n_n 507
-add_n_nc 508
-add_p_p 509
-add_p_i 510
-add_p_ic 511
-add_p_n 512
-add_p_nc 513
-add_i_i_i 514
-add_i_ic_i 515
-add_i_i_ic 516
-add_n_n_n 517
-add_n_nc_n 518
-add_n_n_nc 519
-add_p_p_p 520
-add_p_p_i 521
-add_p_p_ic 522
-add_p_p_n 523
-add_p_p_nc 524
-cmod_i_i_i 525
-cmod_i_ic_i 526
-cmod_i_i_ic 527
-cmod_p_p_i 528
-cmod_p_p_ic 529
-cmod_p_p_p 530
-cmod_n_n_n 531
-cmod_n_nc_n 532
-cmod_n_n_nc 533
-cmod_p_p_n 534
-cmod_p_p_nc 535
-dec_i 536
-dec_n 537
-dec_p 538
-div_i_i 539
-div_i_ic 540
-div_n_n 541
-div_n_nc 542
-div_p_p 543
-div_p_i 544
-div_p_ic 545
-div_p_n 546
-div_p_nc 547
-div_i_i_i 548
-div_i_ic_i 549
-div_i_i_ic 550
-div_i_ic_ic 551
-div_n_n_n 552
-div_n_nc_n 553
-div_n_n_nc 554
-div_n_nc_nc 555
-div_p_p_p 556
-div_p_p_i 557
-div_p_p_ic 558
-div_p_p_n 559
-div_p_p_nc 560
-fdiv_i_i 561
-fdiv_i_ic 562
-fdiv_n_n 563
-fdiv_n_nc 564
-fdiv_p_p 565
-fdiv_p_i 566
-fdiv_p_ic 567
-fdiv_p_n 568
-fdiv_p_nc 569
-fdiv_i_i_i 570
-fdiv_i_ic_i 571
-fdiv_i_i_ic 572
-fdiv_n_n_n 573
-fdiv_n_nc_n 574
-fdiv_n_n_nc 575
-fdiv_p_p_p 576
-fdiv_p_p_i 577
-fdiv_p_p_ic 578
-fdiv_p_p_n 579
-fdiv_p_p_nc 580
-ceil_n 581
-ceil_i_n 582
-ceil_n_n 583
-floor_n 584
-floor_i_n 585
-floor_n_n 586
-inc_i 587
-inc_n 588
-inc_p 589
-mod_i_i 590
-mod_i_ic 591
-mod_n_n 592
-mod_n_nc 593
-mod_p_p 594
-mod_p_i 595
-mod_p_ic 596
-mod_p_n 597
-mod_p_nc 598
-mod_i_i_i 599
-mod_i_ic_i 600
-mod_i_i_ic 601
-mod_n_n_n 602
-mod_n_nc_n 603
-mod_n_n_nc 604
-mod_p_p_p 605
-mod_p_p_i 606
-mod_p_p_ic 607
-mod_p_p_n 608
-mod_p_p_nc 609
-mul_i_i 610
-mul_i_ic 611
-mul_n_n 612
-mul_n_nc 613
-mul_p_p 614
-mul_p_i 615
-mul_p_ic 616
-mul_p_n 617
-mul_p_nc 618
-mul_i_i_i 619
-mul_i_ic_i 620
-mul_i_i_ic 621
-mul_n_n_n 622
-mul_n_nc_n 623
-mul_n_n_nc 624
-mul_p_p_p 625
-mul_p_p_i 626
-mul_p_p_ic 627
-mul_p_p_n 628
-mul_p_p_nc 629
-neg_i 630
-neg_n 631
-neg_p 632
-neg_i_i 633
-neg_n_n 634
-neg_p_p 635
-pow_n_n_n 636
-pow_n_nc_n 637
-pow_n_n_nc 638
-pow_p_p_p 639
-pow_p_p_i 640
-pow_p_p_ic 641
-pow_p_p_n 642
-pow_p_p_nc 643
-pow_n_n_i 644
-pow_n_nc_i 645
-pow_n_n_ic 646
-pow_n_nc_ic 647
-sub_i_i 648
-sub_i_ic 649
-sub_n_n 650
-sub_n_nc 651
-sub_p_p 652
-sub_p_i 653
-sub_p_ic 654
-sub_p_n 655
-sub_p_nc 656
-sub_i_i_i 657
-sub_i_ic_i 658
-sub_i_i_ic 659
-sub_n_n_n 660
-sub_n_nc_n 661
-sub_n_n_nc 662
-sub_p_p_p 663
-sub_p_p_i 664
-sub_p_p_ic 665
-sub_p_p_n 666
-sub_p_p_nc 667
-sqrt_n_n 668
-acos_n_n 669
-asec_n_n 670
-asin_n_n 671
-atan_n_n 672
-atan_n_n_n 673
-atan_n_nc_n 674
-atan_n_n_nc 675
-cos_n_n 676
-cosh_n_n 677
-exp_n_n 678
-ln_n_n 679
-log10_n_n 680
-log2_n_n 681
-sec_n_n 682
-sech_n_n 683
-sin_n_n 684
-sinh_n_n 685
-tan_n_n 686
-tanh_n_n 687
-callmethodcc_p_s 688
-callmethodcc_p_sc 689
-callmethodcc_p_p 690
-callmethod_p_s_p 691
-callmethod_p_sc_p 692
-callmethod_p_p_p 693
-tailcallmethod_p_s 694
-tailcallmethod_p_sc 695
-tailcallmethod_p_p 696
-addmethod_p_s_p 697
-addmethod_p_sc_p 698
-can_i_p_s 699
-can_i_p_sc 700
-does_i_p_s 701
-does_i_p_sc 702
-does_i_p_p 703
-does_i_p_pc 704
-isa_i_p_s 705
-isa_i_p_sc 706
-isa_i_p_p 707
-isa_i_p_pc 708
-newclass_p_s 709
-newclass_p_sc 710
-newclass_p_p 711
-newclass_p_pc 712
-subclass_p_p 713
-subclass_p_pc 714
-subclass_p_p_s 715
-subclass_p_pc_s 716
-subclass_p_p_sc 717
-subclass_p_pc_sc 718
-subclass_p_p_p 719
-subclass_p_pc_p 720
-subclass_p_p_pc 721
-subclass_p_pc_pc 722
-subclass_p_s 723
-subclass_p_sc 724
-subclass_p_s_s 725
-subclass_p_sc_s 726
-subclass_p_s_sc 727
-subclass_p_sc_sc 728
-subclass_p_s_p 729
-subclass_p_sc_p 730
-subclass_p_s_pc 731
-subclass_p_sc_pc 732
-get_class_p_s 733
-get_class_p_sc 734
-get_class_p_p 735
-get_class_p_pc 736
-class_p_p 737
-addparent_p_p 738
-removeparent_p_p 739
-addrole_p_p 740
-addattribute_p_s 741
-addattribute_p_sc 742
-removeattribute_p_s 743
-removeattribute_p_sc 744
-getattribute_p_p_s 745
-getattribute_p_p_sc 746
-getattribute_p_p_p_s 747
-getattribute_p_p_pc_s 748
-getattribute_p_p_p_sc 749
-getattribute_p_p_pc_sc 750
-setattribute_p_s_p 751
-setattribute_p_sc_p 752
-setattribute_p_p_s_p 753
-setattribute_p_pc_s_p 754
-setattribute_p_p_sc_p 755
-setattribute_p_pc_sc_p 756
-inspect_p_p 757
-inspect_p_pc 758
-inspect_p_p_s 759
-inspect_p_pc_s 760
-inspect_p_p_sc 761
-inspect_p_pc_sc 762
-new_p_s 763
-new_p_sc 764
-new_p_s_p 765
-new_p_sc_p 766
-new_p_s_pc 767
-new_p_sc_pc 768
-new_p_p 769
-new_p_pc 770
-new_p_p_p 771
-new_p_pc_p 772
-new_p_p_pc 773
-new_p_pc_pc 774
-root_new_p_p 775
-root_new_p_pc 776
-root_new_p_p_p 777
-root_new_p_pc_p 778
-root_new_p_p_pc 779
-root_new_p_pc_pc 780
-typeof_s_p 781
-typeof_p_p 782
-get_repr_s_p 783
-find_method_p_p_s 784
-find_method_p_p_sc 785
-defined_i_p 786
-defined_i_p_ki 787
-defined_i_p_kic 788
-defined_i_p_k 789
-defined_i_p_kc 790
-exists_i_p_ki 791
-exists_i_p_kic 792
-exists_i_p_k 793
-exists_i_p_kc 794
-delete_p_k 795
-delete_p_kc 796
-delete_p_ki 797
-delete_p_kic 798
-elements_i_p 799
-push_p_i 800
-push_p_ic 801
-push_p_n 802
-push_p_nc 803
-push_p_s 804
-push_p_sc 805
-push_p_p 806
-pop_i_p 807
-pop_n_p 808
-pop_s_p 809
-pop_p_p 810
-unshift_p_i 811
-unshift_p_ic 812
-unshift_p_n 813
-unshift_p_nc 814
-unshift_p_s 815
-unshift_p_sc 816
-unshift_p_p 817
-shift_i_p 818
-shift_n_p 819
-shift_s_p 820
-shift_p_p 821
-splice_p_p_i_i 822
-splice_p_p_ic_i 823
-splice_p_p_i_ic 824
-splice_p_p_ic_ic 825
-setprop_p_s_p 826
-setprop_p_sc_p 827
-getprop_p_s_p 828
-getprop_p_sc_p 829
-delprop_p_s 830
-delprop_p_sc 831
-prophash_p_p 832
-freeze_s_p 833
-thaw_p_s 834
-thaw_p_sc 835
-add_multi_s_s_p 836
-add_multi_sc_s_p 837
-add_multi_s_sc_p 838
-add_multi_sc_sc_p 839
-find_multi_p_s_s 840
-find_multi_p_sc_s 841
-find_multi_p_s_sc 842
-find_multi_p_sc_sc 843
-register_p 844
-unregister_p 845
-box_p_i 846
-box_p_ic 847
-box_p_n 848
-box_p_nc 849
-box_p_s 850
-box_p_sc 851
-iter_p_p 852
-morph_p_p 853
-morph_p_pc 854
-clone_s_s 855
-clone_s_sc 856
-set_i_i 857
-set_i_ic 858
-set_i_n 859
-set_i_nc 860
-set_i_s 861
-set_i_sc 862
-set_n_n 863
-set_n_nc 864
-set_n_i 865
-set_n_ic 866
-set_n_s 867
-set_n_sc 868
-set_n_p 869
-set_s_p 870
-set_s_s 871
-set_s_sc 872
-set_s_i 873
-set_s_ic 874
-set_s_n 875
-set_s_nc 876
-set_p_pc 877
-set_p_p 878
-set_p_i 879
-set_p_ic 880
-set_p_n 881
-set_p_nc 882
-set_p_s 883
-set_p_sc 884
-set_i_p 885
-assign_p_p 886
-assign_p_i 887
-assign_p_ic 888
-assign_p_n 889
-assign_p_nc 890
-assign_p_s 891
-assign_p_sc 892
-assign_s_s 893
-assign_s_sc 894
-setref_p_p 895
-deref_p_p 896
-set_p_ki_i 897
-set_p_kic_i 898
-set_p_ki_ic 899
-set_p_kic_ic 900
-set_p_ki_n 901
-set_p_kic_n 902
-set_p_ki_nc 903
-set_p_kic_nc 904
-set_p_ki_s 905
-set_p_kic_s 906
-set_p_ki_sc 907
-set_p_kic_sc 908
-set_p_ki_p 909
-set_p_kic_p 910
-set_i_p_ki 911
-set_i_p_kic 912
-set_n_p_ki 913
-set_n_p_kic 914
-set_s_p_ki 915
-set_s_p_kic 916
-set_p_p_ki 917
-set_p_p_kic 918
-set_p_k_i 919
-set_p_kc_i 920
-set_p_k_ic 921
-set_p_kc_ic 922
-set_p_k_n 923
-set_p_kc_n 924
-set_p_k_nc 925
-set_p_kc_nc 926
-set_p_k_s 927
-set_p_kc_s 928
-set_p_k_sc 929
-set_p_kc_sc 930
-set_p_k_p 931
-set_p_kc_p 932
-set_i_p_k 933
-set_i_p_kc 934
-set_n_p_k 935
-set_n_p_kc 936
-set_s_p_k 937
-set_s_p_kc 938
-set_p_p_k 939
-set_p_p_kc 940
-clone_p_p 941
-clone_p_p_p 942
-clone_p_p_pc 943
-copy_p_p 944
-null_s 945
-null_i 946
-null_p 947
-null_n 948
-ord_i_s 949
-ord_i_sc 950
-ord_i_s_i 951
-ord_i_sc_i 952
-ord_i_s_ic 953
-ord_i_sc_ic 954
-chr_s_i 955
-chr_s_ic 956
-chopn_s_s_i 957
-chopn_s_sc_i 958
-chopn_s_s_ic 959
-chopn_s_sc_ic 960
-concat_s_s 961
-concat_s_sc 962
-concat_p_p 963
-concat_p_s 964
-concat_p_sc 965
-concat_s_s_s 966
-concat_s_sc_s 967
-concat_s_s_sc 968
-concat_p_p_s 969
-concat_p_p_sc 970
-concat_p_p_p 971
-repeat_s_s_i 972
-repeat_s_sc_i 973
-repeat_s_s_ic 974
-repeat_s_sc_ic 975
-repeat_p_p_i 976
-repeat_p_p_ic 977
-repeat_p_p_p 978
-repeat_p_i 979
-repeat_p_ic 980
-repeat_p_p 981
-length_i_s 982
-length_i_sc 983
-bytelength_i_s 984
-bytelength_i_sc 985
-pin_s 986
-unpin_s 987
-substr_s_s_i 988
-substr_s_sc_i 989
-substr_s_s_ic 990
-substr_s_sc_ic 991
-substr_s_s_i_i 992
-substr_s_sc_i_i 993
-substr_s_s_ic_i 994
-substr_s_sc_ic_i 995
-substr_s_s_i_ic 996
-substr_s_sc_i_ic 997
-substr_s_s_ic_ic 998
-substr_s_sc_ic_ic 999
-substr_s_p_i_i 1000
-substr_s_p_ic_i 1001
-substr_s_p_i_ic 1002
-substr_s_p_ic_ic 1003
-replace_s_s_i_i_s 1004
-replace_s_sc_i_i_s 1005
-replace_s_s_ic_i_s 1006
-replace_s_sc_ic_i_s 1007
-replace_s_s_i_ic_s 1008
-replace_s_sc_i_ic_s 1009
-replace_s_s_ic_ic_s 1010
-replace_s_sc_ic_ic_s 1011
-replace_s_s_i_i_sc 1012
-replace_s_sc_i_i_sc 1013
-replace_s_s_ic_i_sc 1014
-replace_s_sc_ic_i_sc 1015
-replace_s_s_i_ic_sc 1016
-replace_s_sc_i_ic_sc 1017
-replace_s_s_ic_ic_sc 1018
-replace_s_sc_ic_ic_sc 1019
-index_i_s_s 1020
-index_i_sc_s 1021
-index_i_s_sc 1022
-index_i_sc_sc 1023
-index_i_s_s_i 1024
-index_i_sc_s_i 1025
-index_i_s_sc_i 1026
-index_i_sc_sc_i 1027
-index_i_s_s_ic 1028
-index_i_sc_s_ic 1029
-index_i_s_sc_ic 1030
-index_i_sc_sc_ic 1031
-sprintf_s_s_p 1032
-sprintf_s_sc_p 1033
-sprintf_p_p_p 1034
-new_s 1035
-new_s_i 1036
-new_s_ic 1037
-stringinfo_i_s_i 1038
-stringinfo_i_sc_i 1039
-stringinfo_i_s_ic 1040
-stringinfo_i_sc_ic 1041
-upcase_s_s 1042
-upcase_s_sc 1043
-downcase_s_s 1044
-downcase_s_sc 1045
-titlecase_s_s 1046
-titlecase_s_sc 1047
-join_s_s_p 1048
-join_s_sc_p 1049
-split_p_s_s 1050
-split_p_sc_s 1051
-split_p_s_sc 1052
-split_p_sc_sc 1053
-charset_i_s 1054
-charset_i_sc 1055
-charsetname_s_i 1056
-charsetname_s_ic 1057
-find_charset_i_s 1058
-find_charset_i_sc 1059
-trans_charset_s_s_i 1060
-trans_charset_s_sc_i 1061
-trans_charset_s_s_ic 1062
-trans_charset_s_sc_ic 1063
-encoding_i_s 1064
-encoding_i_sc 1065
-encodingname_s_i 1066
-encodingname_s_ic 1067
-find_encoding_i_s 1068
-find_encoding_i_sc 1069
-trans_encoding_s_s_i 1070
-trans_encoding_s_sc_i 1071
-trans_encoding_s_s_ic 1072
-trans_encoding_s_sc_ic 1073
-is_cclass_i_i_s_i 1074
-is_cclass_i_ic_s_i 1075
-is_cclass_i_i_sc_i 1076
-is_cclass_i_ic_sc_i 1077
-is_cclass_i_i_s_ic 1078
-is_cclass_i_ic_s_ic 1079
-is_cclass_i_i_sc_ic 1080
-is_cclass_i_ic_sc_ic 1081
-find_cclass_i_i_s_i_i 1082
-find_cclass_i_ic_s_i_i 1083
-find_cclass_i_i_sc_i_i 1084
-find_cclass_i_ic_sc_i_i 1085
-find_cclass_i_i_s_ic_i 1086
-find_cclass_i_ic_s_ic_i 1087
-find_cclass_i_i_sc_ic_i 1088
-find_cclass_i_ic_sc_ic_i 1089
-find_cclass_i_i_s_i_ic 1090
-find_cclass_i_ic_s_i_ic 1091
-find_cclass_i_i_sc_i_ic 1092
-find_cclass_i_ic_sc_i_ic 1093
-find_cclass_i_i_s_ic_ic 1094
-find_cclass_i_ic_s_ic_ic 1095
-find_cclass_i_i_sc_ic_ic 1096
-find_cclass_i_ic_sc_ic_ic 1097
-find_not_cclass_i_i_s_i_i 1098
-find_not_cclass_i_ic_s_i_i 1099
-find_not_cclass_i_i_sc_i_i 1100
-find_not_cclass_i_ic_sc_i_i 1101
-find_not_cclass_i_i_s_ic_i 1102
-find_not_cclass_i_ic_s_ic_i 1103
-find_not_cclass_i_i_sc_ic_i 1104
-find_not_cclass_i_ic_sc_ic_i 1105
-find_not_cclass_i_i_s_i_ic 1106
-find_not_cclass_i_ic_s_i_ic 1107
-find_not_cclass_i_i_sc_i_ic 1108
-find_not_cclass_i_ic_sc_i_ic 1109
-find_not_cclass_i_i_s_ic_ic 1110
-find_not_cclass_i_ic_s_ic_ic 1111
-find_not_cclass_i_i_sc_ic_ic 1112
-find_not_cclass_i_ic_sc_ic_ic 1113
-escape_s_s 1114
-compose_s_s 1115
-compose_s_sc 1116
-spawnw_i_s 1117
-spawnw_i_sc 1118
-spawnw_i_p 1119
-err_i 1120
-err_s 1121
-err_s_i 1122
-err_s_ic 1123
-time_i 1124
-time_n 1125
-gmtime_s_i 1126
-gmtime_s_ic 1127
-localtime_s_i 1128
-localtime_s_ic 1129
-decodetime_p_i 1130
-decodetime_p_ic 1131
-decodelocaltime_p_i 1132
-decodelocaltime_p_ic 1133
-sysinfo_s_i 1134
-sysinfo_s_ic 1135
-sysinfo_i_i 1136
-sysinfo_i_ic 1137
-sleep_i 1138
-sleep_ic 1139
-sleep_n 1140
-sleep_nc 1141
-store_lex_s_p 1142
-store_lex_sc_p 1143
-store_dynamic_lex_s_p 1144
-store_dynamic_lex_sc_p 1145
-find_lex_p_s 1146
-find_lex_p_sc 1147
-find_dynamic_lex_p_s 1148
-find_dynamic_lex_p_sc 1149
-find_caller_lex_p_s 1150
-find_caller_lex_p_sc 1151
-get_namespace_p 1152
-get_namespace_p_p 1153
-get_namespace_p_pc 1154
-get_hll_namespace_p 1155
-get_hll_namespace_p_p 1156
-get_hll_namespace_p_pc 1157
-get_root_namespace_p 1158
-get_root_namespace_p_p 1159
-get_root_namespace_p_pc 1160
-get_global_p_s 1161
-get_global_p_sc 1162
-get_global_p_p_s 1163
-get_global_p_pc_s 1164
-get_global_p_p_sc 1165
-get_global_p_pc_sc 1166
-get_hll_global_p_s 1167
-get_hll_global_p_sc 1168
-get_hll_global_p_p_s 1169
-get_hll_global_p_pc_s 1170
-get_hll_global_p_p_sc 1171
-get_hll_global_p_pc_sc 1172
-get_root_global_p_s 1173
-get_root_global_p_sc 1174
-get_root_global_p_p_s 1175
-get_root_global_p_pc_s 1176
-get_root_global_p_p_sc 1177
-get_root_global_p_pc_sc 1178
-set_global_s_p 1179
-set_global_sc_p 1180
-set_global_p_s_p 1181
-set_global_pc_s_p 1182
-set_global_p_sc_p 1183
-set_global_pc_sc_p 1184
-set_hll_global_s_p 1185
-set_hll_global_sc_p 1186
-set_hll_global_p_s_p 1187
-set_hll_global_pc_s_p 1188
-set_hll_global_p_sc_p 1189
-set_hll_global_pc_sc_p 1190
-set_root_global_s_p 1191
-set_root_global_sc_p 1192
-set_root_global_p_s_p 1193
-set_root_global_pc_s_p 1194
-set_root_global_p_sc_p 1195
-set_root_global_pc_sc_p 1196
-find_name_p_s 1197
-find_name_p_sc 1198
-find_sub_not_null_p_s 1199
-find_sub_not_null_p_sc 1200
Modified: trunk/t/compilers/opsc/05-oplib.t
==============================================================================
--- trunk/t/compilers/opsc/05-oplib.t Wed May 26 01:30:50 2010 (r47002)
+++ trunk/t/compilers/opsc/05-oplib.t Wed May 26 01:35:32 2010 (r47003)
@@ -6,21 +6,12 @@
pir::load_bytecode("opsc.pbc");
-plan(5);
+plan(2);
my $lib := Ops::OpLib.new(
- :num_file('src/ops/ops.num'),
:skip_file('src/ops/ops.skip'),
);
-# It's 1200 currently. But testing for exact match isn't nessary.
-ok( $lib.max_op_num > 1000, "ops.num file parsed");
-say('# ' ~ $lib.max_op_num);
-
-# Check couple random ops.
-ok( $lib.op_num_table<end> == 0, "'end' has code 0");
-ok( $lib.op_num_table<set_addr_p_i> != 42, "'set_addr_p_i' have non 0 code");
-
ok( $lib.op_skip_table<abs_i_ic>, "'abs_i_ic' in skiptable");
ok( $lib.op_skip_table<ne_nc_nc_ic>, "'ne_nc_nc_ic' in skiptable");
#_dumper($lib.skiptable);
More information about the parrot-commits
mailing list