[svn:parrot] r47109 - in branches/gsoc_instrument: . compilers/data_json compilers/imcc compilers/opsc compilers/opsc/src compilers/opsc/src/Ops compilers/opsc/src/Ops/Compiler compilers/pct compilers/pct/src/PCT compilers/pge compilers/tge config/auto/sizes config/auto/zlib config/gen/config_pm config/gen/makefiles config/gen/platform/ansi config/gen/platform/generic config/gen/platform/solaris config/gen/platform/win32 docs docs/book/draft docs/book/pct docs/book/pir docs/dev docs/pdds docs/user/pir examples/benchmarks examples/embed examples/io examples/json examples/languages/abc examples/languages/squaak examples/languages/squaak/doc examples/library examples/pasm examples/pge examples/pir examples/pir/befunge examples/sdl/lcd examples/sdl/minesweeper examples/shootout examples/tge/branch examples/tutorial ext/nqp-rx ext/nqp-rx/src/stage0 include/parrot include/parrot/oplib lib/Parrot lib/Parrot/Configure/Options lib/Parrot/Configure/Options/Conf lib/Parrot/Conf igure/Step ports/cygwin ports/debian ports/fedora/2.3.0 ports/suse/2.2.0 runtime/parrot/languages runtime/parrot/library runtime/parrot/library/Archive runtime/parrot/library/CGI runtime/parrot/library/Config runtime/parrot/library/Configure runtime/parrot/library/Digest runtime/parrot/library/HTTP runtime/parrot/library/LWP runtime/parrot/library/Math runtime/parrot/library/PGE runtime/parrot/library/Stream runtime/parrot/library/TAP runtime/parrot/library/Test runtime/parrot/library/Test/Builder src src/call src/dynoplibs src/gc src/interp src/io src/ops src/pmc src/runcore src/string src/string/encoding t t/codingstd t/compilers/imcc/imcpasm t/compilers/imcc/syn t/compilers/opsc t/compilers/pge/p5regex t/compilers/pge/perl6regex t/compilers/tge t/dynoplibs t/dynpmc t/examples t/library t/native_pbc t/native_pbc/testdata t/oo t/op t/pmc t/pmc/testlib t/src t/steps/init/hints tools/build tools/dev tools/util
khairul at svn.parrot.org
khairul at svn.parrot.org
Sat May 29 11:56:57 UTC 2010
Author: khairul
Date: Sat May 29 11:56:49 2010
New Revision: 47109
URL: https://trac.parrot.org/parrot/changeset/47109
Log:
Sync with trunk
Added:
branches/gsoc_instrument/src/dynoplibs/bit.ops
- copied unchanged from r47107, trunk/src/dynoplibs/bit.ops
branches/gsoc_instrument/src/dynoplibs/debug.ops
- copied unchanged from r47107, trunk/src/dynoplibs/debug.ops
branches/gsoc_instrument/src/dynoplibs/io.ops
- copied unchanged from r47107, trunk/src/dynoplibs/io.ops
branches/gsoc_instrument/src/dynoplibs/sys.ops
- copied unchanged from r47107, trunk/src/dynoplibs/sys.ops
branches/gsoc_instrument/src/dynoplibs/trans.ops
- copied unchanged from r47107, trunk/src/dynoplibs/trans.ops
branches/gsoc_instrument/src/string/encoding/ucs4.c
- copied unchanged from r47107, trunk/src/string/encoding/ucs4.c
branches/gsoc_instrument/src/string/encoding/ucs4.h
- copied unchanged from r47107, trunk/src/string/encoding/ucs4.h
branches/gsoc_instrument/t/dynoplibs/bit.t
- copied unchanged from r47107, trunk/t/dynoplibs/bit.t
branches/gsoc_instrument/t/dynoplibs/debug.t
- copied unchanged from r47107, trunk/t/dynoplibs/debug.t
branches/gsoc_instrument/t/dynoplibs/io.t
- copied unchanged from r47107, trunk/t/dynoplibs/io.t
branches/gsoc_instrument/t/dynoplibs/pmc_pow.t
- copied unchanged from r47107, trunk/t/dynoplibs/pmc_pow.t
branches/gsoc_instrument/t/dynoplibs/string_pmc_bitwise.t
- copied unchanged from r47107, trunk/t/dynoplibs/string_pmc_bitwise.t
branches/gsoc_instrument/t/dynoplibs/sysinfo.t
- copied unchanged from r47107, trunk/t/dynoplibs/sysinfo.t
branches/gsoc_instrument/t/dynoplibs/time.t
- copied unchanged from r47107, trunk/t/dynoplibs/time.t
branches/gsoc_instrument/t/dynoplibs/time_old.t
- copied unchanged from r47107, trunk/t/dynoplibs/time_old.t
branches/gsoc_instrument/t/dynoplibs/trans-infnan.t
- copied unchanged from r47107, trunk/t/dynoplibs/trans-infnan.t
branches/gsoc_instrument/t/dynoplibs/trans-old.t
- copied unchanged from r47107, trunk/t/dynoplibs/trans-old.t
branches/gsoc_instrument/t/dynoplibs/trans.t
- copied unchanged from r47107, trunk/t/dynoplibs/trans.t
branches/gsoc_instrument/t/library/distutils.t
- copied unchanged from r47107, trunk/t/library/distutils.t
branches/gsoc_instrument/t/native_pbc/integer.pbc
- copied unchanged from r47107, trunk/t/native_pbc/integer.pbc
branches/gsoc_instrument/t/native_pbc/number.pbc
- copied unchanged from r47107, trunk/t/native_pbc/number.pbc
branches/gsoc_instrument/t/native_pbc/string.pbc
- copied unchanged from r47107, trunk/t/native_pbc/string.pbc
branches/gsoc_instrument/tools/dev/mk_packfile_pbc
- copied unchanged from r47107, trunk/tools/dev/mk_packfile_pbc
Deleted:
branches/gsoc_instrument/src/ops/debug.ops
branches/gsoc_instrument/src/ops/ops.num
branches/gsoc_instrument/t/op/debuginfo.t
branches/gsoc_instrument/t/op/io.t
branches/gsoc_instrument/t/op/sysinfo.t
branches/gsoc_instrument/t/op/time_old.t
branches/gsoc_instrument/t/op/trans.t
branches/gsoc_instrument/t/op/trans_old.t
Modified:
branches/gsoc_instrument/ (props changed)
branches/gsoc_instrument/DEPRECATED.pod
branches/gsoc_instrument/MANIFEST
branches/gsoc_instrument/MANIFEST.SKIP
branches/gsoc_instrument/MANIFEST.generated
branches/gsoc_instrument/PBC_COMPAT
branches/gsoc_instrument/compilers/data_json/Rules.mak (props changed)
branches/gsoc_instrument/compilers/imcc/Rules.in (props changed)
branches/gsoc_instrument/compilers/imcc/pbc.c
branches/gsoc_instrument/compilers/opsc/ops2c.nqp
branches/gsoc_instrument/compilers/opsc/opsc.pir
branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Actions.pm
branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Grammar.pm
branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm
branches/gsoc_instrument/compilers/opsc/src/Ops/File.pm
branches/gsoc_instrument/compilers/opsc/src/Ops/OpLib.pm
branches/gsoc_instrument/compilers/opsc/src/builtins.pir
branches/gsoc_instrument/compilers/pct/Rules.mak (props changed)
branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir
branches/gsoc_instrument/compilers/pge/Rules.mak (props changed)
branches/gsoc_instrument/compilers/tge/Rules.mak (props changed)
branches/gsoc_instrument/compilers/tge/tgc.pir
branches/gsoc_instrument/config/auto/sizes/intval_maxmin_c.in (props changed)
branches/gsoc_instrument/config/auto/zlib/ (props changed)
branches/gsoc_instrument/config/gen/config_pm/config_pir.in
branches/gsoc_instrument/config/gen/makefiles/root.in
branches/gsoc_instrument/config/gen/platform/ansi/time.c
branches/gsoc_instrument/config/gen/platform/generic/time.c
branches/gsoc_instrument/config/gen/platform/solaris/time.c
branches/gsoc_instrument/config/gen/platform/win32/dl.c
branches/gsoc_instrument/config/gen/platform/win32/time.c
branches/gsoc_instrument/docs/book/draft/README (props changed)
branches/gsoc_instrument/docs/book/draft/appa_glossary.pod (props changed)
branches/gsoc_instrument/docs/book/draft/appb_patch_submission.pod (props changed)
branches/gsoc_instrument/docs/book/draft/appc_command_line_options.pod (props changed)
branches/gsoc_instrument/docs/book/draft/appd_build_options.pod (props changed)
branches/gsoc_instrument/docs/book/draft/appe_source_code.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch01_introduction.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch02_getting_started.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch07_dynpmcs.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch08_dynops.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch10_opcode_reference.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch11_directive_reference.pod (props changed)
branches/gsoc_instrument/docs/book/draft/ch12_operator_reference.pod (props changed)
branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod (contents, props changed)
branches/gsoc_instrument/docs/book/draft/chXX_library.pod (props changed)
branches/gsoc_instrument/docs/book/draft/chXX_testing_and_debugging.pod (props changed)
branches/gsoc_instrument/docs/book/pct/ch01_introduction.pod (props changed)
branches/gsoc_instrument/docs/book/pct/ch02_getting_started.pod (props changed)
branches/gsoc_instrument/docs/book/pct/ch03_compiler_tools.pod (props changed)
branches/gsoc_instrument/docs/book/pct/ch04_pge.pod (props changed)
branches/gsoc_instrument/docs/book/pct/ch05_nqp.pod (props changed)
branches/gsoc_instrument/docs/book/pir/ch04_variables.pod
branches/gsoc_instrument/docs/book/pir/ch08_io.pod
branches/gsoc_instrument/docs/compiler_faq.pod
branches/gsoc_instrument/docs/dev/c_functions.pod (props changed)
branches/gsoc_instrument/docs/pdds/pdd22_io.pod
branches/gsoc_instrument/docs/pdds/pdd28_strings.pod
branches/gsoc_instrument/docs/pdds/pdd30_install.pod (props changed)
branches/gsoc_instrument/docs/tests.pod
branches/gsoc_instrument/docs/user/pir/intro.pod
branches/gsoc_instrument/examples/benchmarks/primes.pasm
branches/gsoc_instrument/examples/benchmarks/primes_i.pasm
branches/gsoc_instrument/examples/embed/cotorra.c (props changed)
branches/gsoc_instrument/examples/io/http.pir
branches/gsoc_instrument/examples/io/httpd.pir
branches/gsoc_instrument/examples/json/postalcodes.pir
branches/gsoc_instrument/examples/languages/abc/ (props changed)
branches/gsoc_instrument/examples/languages/squaak/ (props changed)
branches/gsoc_instrument/examples/languages/squaak/doc/tutorial_episode_1.pod
branches/gsoc_instrument/examples/languages/squaak/squaak.pir
branches/gsoc_instrument/examples/library/md5sum.pir
branches/gsoc_instrument/examples/library/ncurses_life.pir
branches/gsoc_instrument/examples/pasm/cat.pasm
branches/gsoc_instrument/examples/pge/demo.pir (contents, props changed)
branches/gsoc_instrument/examples/pir/befunge/befunge.pir
branches/gsoc_instrument/examples/pir/io.pir
branches/gsoc_instrument/examples/pir/life.pir
branches/gsoc_instrument/examples/pir/make_hello_pbc.pir
branches/gsoc_instrument/examples/pir/pirric.pir
branches/gsoc_instrument/examples/pir/quine_ord.pir
branches/gsoc_instrument/examples/pir/readline.pir
branches/gsoc_instrument/examples/pir/sudoku.pir
branches/gsoc_instrument/examples/pir/uniq.pir
branches/gsoc_instrument/examples/sdl/lcd/clock.pir
branches/gsoc_instrument/examples/sdl/minesweeper/field.pir
branches/gsoc_instrument/examples/shootout/binarytrees.pir
branches/gsoc_instrument/examples/shootout/fasta.pir
branches/gsoc_instrument/examples/shootout/knucleotide.pir
branches/gsoc_instrument/examples/shootout/nbody.pir
branches/gsoc_instrument/examples/shootout/partialsums-2.pir
branches/gsoc_instrument/examples/shootout/partialsums.pir
branches/gsoc_instrument/examples/shootout/regexdna.pir
branches/gsoc_instrument/examples/shootout/revcomp.pir
branches/gsoc_instrument/examples/shootout/sumcol.pir
branches/gsoc_instrument/examples/tge/branch/transform.pir
branches/gsoc_instrument/examples/tutorial/40_file_ops.pir
branches/gsoc_instrument/ext/nqp-rx/Rules.mak (props changed)
branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir
branches/gsoc_instrument/ext/nqp-rx/src/stage0/NQP-s0.pir
branches/gsoc_instrument/ext/nqp-rx/src/stage0/P6Regex-s0.pir
branches/gsoc_instrument/ext/nqp-rx/src/stage0/Regex-s0.pir
branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp
branches/gsoc_instrument/include/parrot/call.h (props changed)
branches/gsoc_instrument/include/parrot/debugger.h
branches/gsoc_instrument/include/parrot/encoding.h
branches/gsoc_instrument/include/parrot/gc_api.h (props changed)
branches/gsoc_instrument/include/parrot/interpreter.h
branches/gsoc_instrument/include/parrot/io.h
branches/gsoc_instrument/include/parrot/misc.h
branches/gsoc_instrument/include/parrot/oplib/ (props changed)
branches/gsoc_instrument/include/parrot/oplib/core_ops.h
branches/gsoc_instrument/include/parrot/oplib/ops.h
branches/gsoc_instrument/include/parrot/opsenum.h
branches/gsoc_instrument/include/parrot/platform_interface.h
branches/gsoc_instrument/include/parrot/pmc.h
branches/gsoc_instrument/include/parrot/runcore_api.h (props changed)
branches/gsoc_instrument/include/parrot/runcore_profiling.h (props changed)
branches/gsoc_instrument/include/parrot/runcore_trace.h (props changed)
branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf.pm
branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf/Shared.pm
branches/gsoc_instrument/lib/Parrot/Configure/Options/Reconf.pm
branches/gsoc_instrument/lib/Parrot/Configure/Step/Test.pm (props changed)
branches/gsoc_instrument/lib/Parrot/H2inc.pm (props changed)
branches/gsoc_instrument/ports/cygwin/parrot-1.0.0-1.cygport (props changed)
branches/gsoc_instrument/ports/debian/libparrot-dev.install.in (props changed)
branches/gsoc_instrument/ports/debian/libparrot.install.in (props changed)
branches/gsoc_instrument/ports/debian/parrot-doc.install.in (props changed)
branches/gsoc_instrument/ports/debian/parrot.install.in (props changed)
branches/gsoc_instrument/ports/fedora/2.3.0/ (props changed)
branches/gsoc_instrument/ports/suse/2.2.0/ (props changed)
branches/gsoc_instrument/runtime/parrot/languages/ (props changed)
branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir
branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir
branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir
branches/gsoc_instrument/runtime/parrot/library/Config/JSON.pir
branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir
branches/gsoc_instrument/runtime/parrot/library/Crow.pir
branches/gsoc_instrument/runtime/parrot/library/Digest/MD5.pir
branches/gsoc_instrument/runtime/parrot/library/HTTP/Message.pir
branches/gsoc_instrument/runtime/parrot/library/LWP/Protocol.pir
branches/gsoc_instrument/runtime/parrot/library/LWP/UserAgent.pir
branches/gsoc_instrument/runtime/parrot/library/Math/Rand.pir (props changed)
branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir
branches/gsoc_instrument/runtime/parrot/library/Rules.mak (props changed)
branches/gsoc_instrument/runtime/parrot/library/Stream/ParrotIO.pir
branches/gsoc_instrument/runtime/parrot/library/TAP/Harness.pir
branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir
branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir
branches/gsoc_instrument/runtime/parrot/library/Test/More.pir
branches/gsoc_instrument/runtime/parrot/library/distutils.pir
branches/gsoc_instrument/runtime/parrot/library/osutils.pir
branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir
branches/gsoc_instrument/runtime/parrot/library/pcre.pir
branches/gsoc_instrument/src/call/ops.c (props changed)
branches/gsoc_instrument/src/call/pcc.c (props changed)
branches/gsoc_instrument/src/debug.c
branches/gsoc_instrument/src/dynoplibs/Defines.in
branches/gsoc_instrument/src/dynoplibs/Rules.in
branches/gsoc_instrument/src/dynoplibs/math.ops
branches/gsoc_instrument/src/gc/alloc_memory.c (props changed)
branches/gsoc_instrument/src/gc/alloc_resources.c (props changed)
branches/gsoc_instrument/src/gc/api.c (props changed)
branches/gsoc_instrument/src/gc/malloc.c (props changed)
branches/gsoc_instrument/src/gc/malloc_trace.c (props changed)
branches/gsoc_instrument/src/gc/mark_sweep.c (props changed)
branches/gsoc_instrument/src/gc/system.c (props changed)
branches/gsoc_instrument/src/interp/inter_cb.c (props changed)
branches/gsoc_instrument/src/interp/inter_create.c (props changed)
branches/gsoc_instrument/src/interp/inter_misc.c (contents, props changed)
branches/gsoc_instrument/src/io/api.c
branches/gsoc_instrument/src/oo.c
branches/gsoc_instrument/src/ops/bit.ops
branches/gsoc_instrument/src/ops/core_ops.c
branches/gsoc_instrument/src/ops/experimental.ops
branches/gsoc_instrument/src/ops/io.ops
branches/gsoc_instrument/src/ops/math.ops
branches/gsoc_instrument/src/ops/sys.ops
branches/gsoc_instrument/src/pmc.c
branches/gsoc_instrument/src/pmc/callcontext.pmc
branches/gsoc_instrument/src/pmc/coroutine.pmc
branches/gsoc_instrument/src/pmc/exception.pmc
branches/gsoc_instrument/src/pmc/filehandle.pmc
branches/gsoc_instrument/src/pmc/resizablepmcarray.pmc
branches/gsoc_instrument/src/pmc/string.pmc
branches/gsoc_instrument/src/pmc/stringbuilder.pmc
branches/gsoc_instrument/src/pmc/sub.pmc
branches/gsoc_instrument/src/runcore/cores.c (props changed)
branches/gsoc_instrument/src/runcore/main.c (props changed)
branches/gsoc_instrument/src/runcore/profiling.c (props changed)
branches/gsoc_instrument/src/runcore/trace.c (props changed)
branches/gsoc_instrument/src/string/api.c
branches/gsoc_instrument/src/string/charset.c
branches/gsoc_instrument/src/string/encoding.c
branches/gsoc_instrument/src/utils.c
branches/gsoc_instrument/t/codingstd/c_function_docs.t
branches/gsoc_instrument/t/compilers/imcc/imcpasm/opt1.t
branches/gsoc_instrument/t/compilers/imcc/syn/op.t
branches/gsoc_instrument/t/compilers/imcc/syn/tail.t
branches/gsoc_instrument/t/compilers/opsc/05-oplib.t
branches/gsoc_instrument/t/compilers/opsc/06-opsfile.t
branches/gsoc_instrument/t/compilers/opsc/07-emitter.t
branches/gsoc_instrument/t/compilers/opsc/common.pir
branches/gsoc_instrument/t/compilers/pge/p5regex/p5rx.t
branches/gsoc_instrument/t/compilers/pge/perl6regex/01-regex.t
branches/gsoc_instrument/t/compilers/tge/NoneGrammar.tg (props changed)
branches/gsoc_instrument/t/dynoplibs/math.t
branches/gsoc_instrument/t/dynoplibs/obscure.t
branches/gsoc_instrument/t/dynpmc/gziphandle.t
branches/gsoc_instrument/t/dynpmc/os.t
branches/gsoc_instrument/t/examples/pir.t
branches/gsoc_instrument/t/harness.pir
branches/gsoc_instrument/t/library/coroutine.t
branches/gsoc_instrument/t/library/osutils.t
branches/gsoc_instrument/t/native_pbc/annotations.pbc
branches/gsoc_instrument/t/native_pbc/integer_1.pbc
branches/gsoc_instrument/t/native_pbc/integer_2.pbc
branches/gsoc_instrument/t/native_pbc/number_1.pbc
branches/gsoc_instrument/t/native_pbc/number_2.pbc
branches/gsoc_instrument/t/native_pbc/string_1.pbc
branches/gsoc_instrument/t/native_pbc/string_2.pbc
branches/gsoc_instrument/t/native_pbc/testdata/string.pasm
branches/gsoc_instrument/t/oo/methods.t
branches/gsoc_instrument/t/oo/root_new.t (props changed)
branches/gsoc_instrument/t/op/arithmetics.t
branches/gsoc_instrument/t/op/arithmetics_pmc.t
branches/gsoc_instrument/t/op/inf_nan.t
branches/gsoc_instrument/t/op/integer.t
branches/gsoc_instrument/t/op/interp.t
branches/gsoc_instrument/t/op/number.t
branches/gsoc_instrument/t/op/sprintf.t
branches/gsoc_instrument/t/op/string.t
branches/gsoc_instrument/t/op/string_cs.t
branches/gsoc_instrument/t/op/stringu.t
branches/gsoc_instrument/t/op/time.t
branches/gsoc_instrument/t/pmc/complex.t
branches/gsoc_instrument/t/pmc/eval.t
branches/gsoc_instrument/t/pmc/exception-old.t
branches/gsoc_instrument/t/pmc/filehandle.t
branches/gsoc_instrument/t/pmc/freeze.t
branches/gsoc_instrument/t/pmc/integer.t
branches/gsoc_instrument/t/pmc/io.t
branches/gsoc_instrument/t/pmc/namespace-old.t (props changed)
branches/gsoc_instrument/t/pmc/nci.t
branches/gsoc_instrument/t/pmc/resizablepmcarray.t
branches/gsoc_instrument/t/pmc/string.t
branches/gsoc_instrument/t/pmc/stringbuilder.t
branches/gsoc_instrument/t/pmc/stringhandle.t
branches/gsoc_instrument/t/pmc/sub.t
branches/gsoc_instrument/t/pmc/sys.t
branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir
branches/gsoc_instrument/t/src/embed.t (props changed)
branches/gsoc_instrument/t/src/extend.t
branches/gsoc_instrument/t/steps/init/hints/linux-01.t (props changed)
branches/gsoc_instrument/tools/build/h2inc.pl (props changed)
branches/gsoc_instrument/tools/dev/fetch_languages.pl (props changed)
branches/gsoc_instrument/tools/dev/mk_gitignore.pl (props changed)
branches/gsoc_instrument/tools/dev/mk_language_shell.pl
branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir
branches/gsoc_instrument/tools/dev/pbc_to_exe.pir
branches/gsoc_instrument/tools/util/parrot-config.pir
branches/gsoc_instrument/tools/util/perlcritic-cage.conf (props changed)
branches/gsoc_instrument/tools/util/perlcritic.conf
branches/gsoc_instrument/tools/util/pgegrep
Modified: branches/gsoc_instrument/DEPRECATED.pod
==============================================================================
--- branches/gsoc_instrument/DEPRECATED.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/DEPRECATED.pod Sat May 29 11:56:49 2010 (r47109)
@@ -233,9 +233,9 @@
L<https://trac.parrot.org/parrot/ticket/1643>
-=item unroll [experimental]
+=item finalize [experimental]
-Unroll inner runloops from exception handlers.
+Finalize exception handler, unrolling inner runloops if needed.
L<https://trac.parrot.org/parrot/ticket/1635>
Modified: branches/gsoc_instrument/MANIFEST
==============================================================================
--- branches/gsoc_instrument/MANIFEST Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/MANIFEST Sat May 29 11:56:49 2010 (r47109)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by ./tools/dev/mk_manifest_and_skip.pl Mon May 24 15:54:07 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Sat May 29 07:05:55 2010 UT
#
# See below for documentation on the format of this file.
#
@@ -1256,9 +1256,14 @@
src/dynoplibs/Defines.in []
src/dynoplibs/README []doc
src/dynoplibs/Rules.in []
+src/dynoplibs/bit.ops []
+src/dynoplibs/debug.ops []
src/dynoplibs/deprecated.ops []
+src/dynoplibs/io.ops []
src/dynoplibs/math.ops []
src/dynoplibs/obscure.ops []
+src/dynoplibs/sys.ops []
+src/dynoplibs/trans.ops []
src/dynpmc/Defines.in []
src/dynpmc/README.pod []doc
src/dynpmc/Rules.in []
@@ -1328,12 +1333,10 @@
src/ops/cmp.ops []
src/ops/core.ops []
src/ops/core_ops.c []
-src/ops/debug.ops []
src/ops/experimental.ops []
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 []
@@ -1459,6 +1462,8 @@
src/string/encoding/fixed_8.h []
src/string/encoding/ucs2.c []
src/string/encoding/ucs2.h []
+src/string/encoding/ucs4.c []
+src/string/encoding/ucs4.h []
src/string/encoding/utf16.c []
src/string/encoding/utf16.h []
src/string/encoding/utf8.c []
@@ -1651,9 +1656,20 @@
t/distro/file_metadata.t [test]
t/distro/manifest.t [test]
t/distro/manifest_generated.t [test]
+t/dynoplibs/bit.t [test]
+t/dynoplibs/debug.t [test]
t/dynoplibs/deprecated.t [test]
+t/dynoplibs/io.t [test]
t/dynoplibs/math.t [test]
t/dynoplibs/obscure.t [test]
+t/dynoplibs/pmc_pow.t [test]
+t/dynoplibs/string_pmc_bitwise.t [test]
+t/dynoplibs/sysinfo.t [test]
+t/dynoplibs/time.t [test]
+t/dynoplibs/time_old.t [test]
+t/dynoplibs/trans-infnan.t [test]
+t/dynoplibs/trans-old.t [test]
+t/dynoplibs/trans.t [test]
t/dynpmc/dynlexpad.t [test]
t/dynpmc/file.t [test]
t/dynpmc/foo.t [test]
@@ -1685,6 +1701,7 @@
t/library/cgi_query_hash.t [test]
t/library/configure.t [test]
t/library/coroutine.t [test]
+t/library/distutils.t [test]
t/library/dumper.t [test]
t/library/getopt_obj.t [test]
t/library/hllmacros.t [test]
@@ -1721,6 +1738,7 @@
t/manifest/README []doc
t/native_pbc/annotations.pbc [test]
t/native_pbc/header.t [test]
+t/native_pbc/integer.pbc [test]
t/native_pbc/integer.t [test]
t/native_pbc/integer_1.pbc [test]
t/native_pbc/integer_2.pbc [test]
@@ -1729,6 +1747,7 @@
t/native_pbc/integer_5.pbc [test]
t/native_pbc/integer_6.pbc [test]
t/native_pbc/integer_7.pbc [test]
+t/native_pbc/number.pbc [test]
t/native_pbc/number.t [test]
t/native_pbc/number_1.pbc [test]
t/native_pbc/number_2.pbc [test]
@@ -1737,6 +1756,7 @@
t/native_pbc/number_5.pbc [test]
t/native_pbc/number_6.pbc [test]
t/native_pbc/number_7.pbc [test]
+t/native_pbc/string.pbc [test]
t/native_pbc/string.t [test]
t/native_pbc/string_1.pbc [test]
t/native_pbc/string_2.pbc [test]
@@ -1779,7 +1799,6 @@
t/op/cmp-nonbranch.t [test]
t/op/comp.t [test]
t/op/copy.t [test]
-t/op/debuginfo.t [test]
t/op/errorson.t [test]
t/op/exceptions.t [test]
t/op/exit.t [test]
@@ -1791,7 +1810,6 @@
t/op/inf_nan.t [test]
t/op/integer.t [test]
t/op/interp.t [test]
-t/op/io.t [test]
t/op/jit.t [test]
t/op/jitn.t [test]
t/op/lexicals.t [test]
@@ -1810,11 +1828,7 @@
t/op/string_cs.t [test]
t/op/string_mem.t [test]
t/op/stringu.t [test]
-t/op/sysinfo.t [test]
t/op/time.t [test]
-t/op/time_old.t [test]
-t/op/trans.t [test]
-t/op/trans_old.t [test]
t/op/vivify.t [test]
t/perl/Parrot_Distribution.t [test]
t/perl/Parrot_Docs.t [test]
@@ -2107,6 +2121,7 @@
tools/dev/mk_manifest_and_skip.pl []
tools/dev/mk_native_pbc []
tools/dev/mk_nci_thunks.pl []
+tools/dev/mk_packfile_pbc []
tools/dev/mk_rpm_manifests.pl []
tools/dev/nci_test_gen.pl []
tools/dev/nci_thunk_gen.pir []
Modified: branches/gsoc_instrument/MANIFEST.SKIP
==============================================================================
--- branches/gsoc_instrument/MANIFEST.SKIP Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/MANIFEST.SKIP Sat May 29 11:56:49 2010 (r47109)
@@ -1,6 +1,6 @@
# ex: set ro:
# $Id$
-# generated by tools/dev/mk_manifest_and_skip.pl Mon May 24 03:29:34 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Thu May 27 15:25:37 2010 UT
#
# This file should contain a transcript of the svn:ignore properties
# of the directories in the Parrot subversion repository. (Needed for
@@ -473,15 +473,6 @@
^include/parrot/platform_limits\.h/
^include/parrot/vtable\.h$
^include/parrot/vtable\.h/
-# generated from svn:ignore of 'include/parrot/oplib/'
-^include/parrot/oplib/.*_ops\.h$
-^include/parrot/oplib/.*_ops\.h/
-^include/parrot/oplib/.*_ops_cg.*\.h$
-^include/parrot/oplib/.*_ops_cg.*\.h/
-^include/parrot/oplib/.*_ops_switch\.h$
-^include/parrot/oplib/.*_ops_switch\.h/
-^include/parrot/oplib/ops\.h$
-^include/parrot/oplib/ops\.h/
# generated from svn:ignore of 'include/pmc/'
^include/pmc/.*\.h$
^include/pmc/.*\.h/
Modified: branches/gsoc_instrument/MANIFEST.generated
==============================================================================
--- branches/gsoc_instrument/MANIFEST.generated Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/MANIFEST.generated Sat May 29 11:56:49 2010 (r47109)
@@ -33,8 +33,6 @@
include/parrot/extend_vtable.h [main]include
include/parrot/feature.h [main]include
include/parrot/has_header.h [main]include
-include/parrot/oplib/core_ops.h [main]include
-include/parrot/oplib/ops.h [main]include
include/parrot/pbcversion.h [devel]include
include/parrot/platform.h [main]include
include/parrot/platform_limits.h [devel]include
@@ -152,6 +150,18 @@
libparrot.dll [main]bin
libparrot.lib [main]bin
parrot.pc [main]pkgconfig
+runtime/parrot/dynext/bit_ops.bundle [library]
+runtime/parrot/dynext/bit_ops.dll [library]
+runtime/parrot/dynext/bit_ops.dylib [library]
+runtime/parrot/dynext/bit_ops.so [library]
+runtime/parrot/dynext/debug_ops.bundle [library]
+runtime/parrot/dynext/debug_ops.dll [library]
+runtime/parrot/dynext/debug_ops.dylib [library]
+runtime/parrot/dynext/debug_ops.so [library]
+runtime/parrot/dynext/deprecated_ops.bundle [library]
+runtime/parrot/dynext/deprecated_ops.dll [library]
+runtime/parrot/dynext/deprecated_ops.dylib [library]
+runtime/parrot/dynext/deprecated_ops.so [library]
runtime/parrot/dynext/dynlexpad.bundle [library]
runtime/parrot/dynext/dynlexpad.dll [library]
runtime/parrot/dynext/dynlexpad.dylib [library]
@@ -164,6 +174,10 @@
runtime/parrot/dynext/gziphandle.dll [library]
runtime/parrot/dynext/gziphandle.dylib [library]
runtime/parrot/dynext/gziphandle.so [library]
+runtime/parrot/dynext/io_ops.bundle [library]
+runtime/parrot/dynext/io_ops.dll [library]
+runtime/parrot/dynext/io_ops.dylib [library]
+runtime/parrot/dynext/io_ops.so [library]
runtime/parrot/dynext/libglutcb.bundle [library]
runtime/parrot/dynext/libglutcb.dll [library]
runtime/parrot/dynext/libglutcb.dylib [library]
@@ -184,6 +198,14 @@
runtime/parrot/dynext/rational.dll [library]
runtime/parrot/dynext/rational.dylib [library]
runtime/parrot/dynext/rational.so [library]
+runtime/parrot/dynext/sys_ops.bundle [library]
+runtime/parrot/dynext/sys_ops.dll [library]
+runtime/parrot/dynext/sys_ops.dylib [library]
+runtime/parrot/dynext/sys_ops.so [library]
+runtime/parrot/dynext/trans_ops.bundle [library]
+runtime/parrot/dynext/trans_ops.dll [library]
+runtime/parrot/dynext/trans_ops.dylib [library]
+runtime/parrot/dynext/trans_ops.so [library]
runtime/parrot/include/call_bits.pasm [main]
runtime/parrot/include/cclass.pasm [main]
runtime/parrot/include/config.fpmc []
Modified: branches/gsoc_instrument/PBC_COMPAT
==============================================================================
--- branches/gsoc_instrument/PBC_COMPAT Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/PBC_COMPAT Sat May 29 11:56:49 2010 (r47109)
@@ -23,10 +23,13 @@
# TODO TT #361: all .pbc files should make-depend on PBC_COMPAT
-# Also, if you're removing an opcode, be sure to run "make opsrenumber"
+# Also, don't forget to run tools/dev/mk_packfile_pbc to rebuild PBCs
+# used for testing Packfile* PMCs.
# please insert tab separated entries at the top of the list
+6.19 2010.05.27 plobsing removed numerous core ops (TT #449)
+6.18 2010.05.25 cotto removed ops.num
6.17 2010.05.20 NotFound store encoding of string constants
6.16 2010.05.18 plobsing move freeze/thaw adjacent to visit
6.15 2010.05.06 bacek add StringBuilder PMC
Modified: branches/gsoc_instrument/compilers/imcc/pbc.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/pbc.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/imcc/pbc.c Sat May 29 11:56:49 2010 (r47109)
@@ -913,13 +913,25 @@
charset_name[p- p2 - 2] = '\0';
/*fprintf(stderr, "%s:%s\n", charset_name, encoding_name);*/
s_charset = Parrot_find_charset(interp, charset_name);
+ if (s_charset == NULL)
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_INVALID_STRING_REPRESENTATION,
+ "Unknown charset '%s'", charset_name);
s_encoding = Parrot_find_encoding(interp, encoding_name);
+ if (s_encoding == NULL)
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_INVALID_STRING_REPRESENTATION,
+ "Unknown encoding '%s'", encoding_name);
}
else {
strncpy(charset_name, buf, p - buf - 1);
charset_name[p - buf - 1] = '\0';
/*fprintf(stderr, "%s\n", charset_name);*/
s_charset = Parrot_find_charset(interp, charset_name);
+ if (s_charset == NULL)
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_INVALID_STRING_REPRESENTATION,
+ "Unknown charset '%s'", charset_name);
}
if (strcmp(charset_name, "unicode") == 0)
src_encoding = Parrot_utf8_encoding_ptr;
@@ -1311,7 +1323,7 @@
ASSERT_ARGS(add_const_pmc_sub)
PMC *ns_pmc;
PMC *sub_pmc;
- Parrot_Sub_attributes *sub, *outer_sub;
+ Parrot_Sub_attributes *sub;
PackFile_ConstTable * const ct = interp->code->const_table;
IMC_Unit * const unit =
@@ -1324,23 +1336,25 @@
SymReg * const ns = unit->_namespace->reg;
/* strip namespace off from front */
+ static const char ns_sep[] = "@@@";
+ char *real_name = strstr(r->name, ns_sep);
- static const char ns_sep[] = "@@@";
- char *real_name = strstr(r->name, ns_sep);
if (real_name) {
/* Unfortunately, there is no strrstr, then iterate until last */
char *aux = strstr(real_name + 3, ns_sep);
+
while (aux) {
- real_name = aux;
- aux = strstr(real_name + 3, ns_sep);
+ real_name = aux;
+ aux = strstr(real_name + 3, ns_sep);
}
+
real_name += 3;
}
IMCC_debug(interp, DEBUG_PBC_CONST,
"name space const = %d ns name '%s'\n", ns->color, ns->name);
- ns_const = ns->color;
+ ns_const = ns->color;
if (real_name) {
char * const p = mem_sys_strdup(real_name);
@@ -1371,15 +1385,17 @@
else {
/* use a possible type mapping for the Sub PMCs, and create it */
const INTVAL type = Parrot_get_ctx_HLL_type(interp,
- r->pcc_sub->yield ? enum_class_Coroutine : enum_class_Sub);
+ r->pcc_sub->yield
+ ? enum_class_Coroutine
+ : enum_class_Sub);
/* TODO create constant - see also src/packfile.c */
sub_pmc = Parrot_pmc_new(interp, type);
}
/* Set flags and get the sub info. */
- PObj_get_FLAGS(sub_pmc) |= (r->pcc_sub->pragma & SUB_FLAG_PF_MASK);
PMC_get_sub(interp, sub_pmc, sub);
+ PObj_get_FLAGS(sub_pmc) |= (r->pcc_sub->pragma & SUB_FLAG_PF_MASK);
Sub_comp_get_FLAGS(sub) |= (r->pcc_sub->pragma & SUB_COMP_FLAG_MASK);
r->color = add_const_str(interp, IMCC_string_from_reg(interp, r));
@@ -1396,7 +1412,8 @@
mem_sys_free(oldname);
/* create string constant for it. */
- unit->subid->color = add_const_str(interp, IMCC_string_from_reg(interp, unit->subid));
+ unit->subid->color = add_const_str(interp,
+ IMCC_string_from_reg(interp, unit->subid));
}
sub->subid = ct->constants[unit->subid->color]->u.string;
@@ -1409,7 +1426,8 @@
break;
case PFC_STRING:
ns_pmc = Parrot_pmc_new_constant(interp, enum_class_String);
- VTABLE_set_string_native(interp, ns_pmc, ct->constants[ns_const]->u.string);
+ VTABLE_set_string_native(interp, ns_pmc,
+ ct->constants[ns_const]->u.string);
break;
default:
break;
@@ -1425,7 +1443,7 @@
sub->n_regs_used[i] = unit->n_regs_used[i];
sub->lex_info = create_lexinfo(interp, unit, sub_pmc,
- r->pcc_sub->pragma & P_NEED_LEX);
+ r->pcc_sub->pragma & P_NEED_LEX);
sub->outer_sub = find_outer(interp, unit);
sub->vtable_index = -1;
@@ -1472,7 +1490,6 @@
else
sub->method_name = Parrot_str_new(interp, "", 0);
-
if (unit->has_ns_entry_name == 1) {
/* Work out the name of the ns entry. */
if (unit->ns_entry_name) {
@@ -1487,25 +1504,24 @@
Parrot_store_sub_in_namespace(interp, sub_pmc);
- if (sub->outer_sub)
- PMC_get_sub(interp, sub->outer_sub, outer_sub);
-
/*
* store the sub's strings
* XXX these need to occur before the sub to support thawing properly
*/
{
PMC *strings = Parrot_freeze_strings(interp, sub_pmc);
- int n = VTABLE_elements(interp, strings);
+ int n = VTABLE_elements(interp, strings);
+
for (i = 0; i < n; i++) {
- int unused = add_const_str(interp, VTABLE_get_string_keyed_int(interp, strings, i));
+ int unused = add_const_str(interp,
+ VTABLE_get_string_keyed_int(interp, strings, i));
}
}
/* store the sub */
{
- const int k = add_const_table(interp);
- PackFile_Constant * const pfc = ct->constants[k];
+ const int k = add_const_table(interp);
+ PackFile_Constant * const pfc = ct->constants[k];
pfc->type = PFC_PMC;
pfc->u.key = sub_pmc;
@@ -1513,14 +1529,20 @@
IMCC_INFO(interp)->globals->cs->subs->pmc_const = k;
- IMCC_debug(interp, DEBUG_PBC_CONST,
- "add_const_pmc_sub '%s' flags %x color %d (%Ss) "
- "lex_info %s :outer(%Ss)\n",
- r->name, r->pcc_sub->pragma, k,
- sub_pmc->vtable->whoami,
- sub->lex_info ? "yes" : "no",
- sub->outer_sub? outer_sub->name :
- Parrot_str_new(interp, "*none*", 0));
+ if (DEBUG_PBC_CONST & IMCC_INFO(interp)->debug) {
+ Parrot_Sub_attributes *outer_sub;
+ if (sub->outer_sub)
+ PMC_get_sub(interp, sub->outer_sub, outer_sub);
+
+ IMCC_debug(interp, DEBUG_PBC_CONST,
+ "add_const_pmc_sub '%s' flags %x color %d (%Ss) "
+ "lex_info %s :outer(%Ss)\n",
+ r->name, r->pcc_sub->pragma, k,
+ sub_pmc->vtable->whoami,
+ sub->lex_info ? "yes" : "no",
+ sub->outer_sub ? outer_sub->name
+ : Parrot_str_new(interp, "*none*", 0));
+ }
/*
* create entry in our fixup (=symbol) table
Modified: branches/gsoc_instrument/compilers/opsc/ops2c.nqp
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/ops2c.nqp Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/ops2c.nqp Sat May 29 11:56:49 2010 (r47109)
@@ -11,31 +11,43 @@
my $getopts := Q:PIR{ %r = new ['Getopt';'Obj'] };
$getopts.notOptStop();
+
+# build core ops
my $arg := $getopts.add();
$arg.long('core');
$arg.short('c');
+# build the dynops in one .ops file
$arg := $getopts.add();
$arg.long('dynamic');
$arg.short('d');
$arg.type('String');
+# don't write to any files
$arg := $getopts.add();
$arg.long('debug');
$arg.short('g');
+# don't add line numbers to generated files (not implemented)
$arg := $getopts.add();
$arg.long('no-lines');
$arg.short('n');
+# print anemic usage information and exit
$arg := $getopts.add();
$arg.long('help');
$arg.short('h');
+# regenerate ops.num et. al. even if it's not necessary
$arg := $getopts.add();
$arg.long('force-regen');
$arg.short('f');
+# suppress timing and debug output on stdout
+$arg := $getopts.add();
+$arg.long('quiet');
+$arg.short('q');
+
my $opts := $getopts.get_options(pir::getinterp__p()[2]);
if $opts<core> {
@@ -43,7 +55,6 @@
src/ops/core.ops
src/ops/bit.ops
src/ops/cmp.ops
- src/ops/debug.ops
src/ops/io.ops
src/ops/math.ops
src/ops/object.ops
@@ -78,32 +89,33 @@
my $trans := Ops::Trans::C.new();
my $start_time := pir::time__N();
-my $debug := ?$opts<debug>;
+my $debug := ?$opts<debug>;
+my $quiet := ?$opts<quiet>;
my $f;
my $renum;
if $core {
my $lib := Ops::OpLib.new(
- :num_file('src/ops/ops.num'),
:skip_file('src/ops/ops.skip'),
+ :quiet($quiet)
);
- $f := Ops::File.new(|@files, :oplib($lib), :core(1));
+ $f := Ops::File.new(|@files, :oplib($lib), :core(1), :quiet($quiet));
}
else {
- $f := Ops::File.new(|@files, :core(0));
+ $f := Ops::File.new(|@files, :core(0), :quiet($quiet));
}
pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
-#say("# Ops parsed in $time seconds.");
+$quiet || say("# Ops parsed in $time seconds.");
my $emitter := Ops::Emitter.new(
:ops_file($f), :trans($trans),
:script('ops2c.nqp'), :file(@files[0]),
- :flags( hash( core => $core ) ),
+ :flags( hash( core => $core, quiet => $quiet ) ),
);
unless $debug {
- if $force_regen || $f<renum>.need_regeneration {
+ if $core {
$emitter.print_ops_num_files();
}
$emitter.print_c_header_files();
Modified: branches/gsoc_instrument/compilers/opsc/opsc.pir
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/opsc.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/opsc.pir Sat May 29 11:56:49 2010 (r47109)
@@ -18,6 +18,18 @@
.include 'compilers/opsc/gen/Ops/File.pir'
.include 'compilers/opsc/gen/Ops/Renumberer.pir'
+
+.namespace []
+.sub 'main' :main
+ .param pmc args
+
+ $P0 = compreg 'Ops'
+ $P0.'command_line'(args)
+ exit 0
+.end
+
+
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Actions.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Actions.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Actions.pm Sat May 29 11:56:49 2010 (r47109)
@@ -63,10 +63,7 @@
%flags{~$_<identifier>} := 1;
}
- my @args := list();
- if ($<op_params>) {
- @args := @($<op_params>[0].ast);
- }
+ my @args := @($<signature>.ast);
my @norm_args := normalize_args(@args);
# We have to clone @norm_args. Otherwise it will be destroyed...
@@ -224,7 +221,7 @@
}
-method op_params($/) {
+method signature($/) {
my $past := PAST::Stmts.new(
:node($/)
);
Modified: branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Grammar.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Grammar.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/Compiler/Grammar.pm Sat May 29 11:56:49 2010 (r47109)
@@ -8,18 +8,17 @@
rule TOP {
<body>
- [ $ || <panic: 'Syntax error'> ]
- {*}
+ [ $ || <.panic: 'Syntax error'> ]
}
rule body {
- [ <preamble> | <op> ]* {*}
+ [ <preamble> | <op> ]*
}
token preamble {
<begin_preamble>
<preamble_guts>
- <end_preamble> {*}
+ <end_preamble>
}
regex preamble_guts {
@@ -35,10 +34,10 @@
}
rule op {
- <op_type>? 'op' <op_name=identifier> '('
- [ <op_params>? || <panic: "Fail to parse params"> ]
- ')' <op_flag>*
- [ <op_body> || <panic: "Fail to parse op body"> ]
+ <op_type>? 'op' <op_name=identifier>
+ [ '(' <signature> ')' || <.panic: "Fail to parse signature"> ]
+ <op_flag>*
+ [ <op_body> || <.panic: "Fail to parse op body"> ]
{*}
}
@@ -46,18 +45,14 @@
[ 'inline' | 'function' ]
}
-rule op_params {
- <op_param> [ ',' <op_param> ]*
- {*}
-}
+rule signature { [ [<.ws><op_param><.ws>] ** ',' ]? }
rule op_param {
<op_param_direction> <op_param_type>
- {*}
}
token op_param_direction {
- # Order is crucial. PGE doesn't support LTM yet.
+ # Order is crucial. NQP doesn't support LTM yet.
[
| 'inout'
| 'inconst'
@@ -68,7 +63,7 @@
}
token op_param_type {
- # Order is crucial. PGE doesn't support LTM yet.
+ # Order is crucial. NQP doesn't support LTM yet.
[
| 'INTKEY'
| 'INT'
@@ -94,23 +89,32 @@
#Process op body by breaking it into "words" consisting entirely of whitespace,
#alnums or a single punctuation, then checking for interesting macros (e.g $1
#or goto NEXT() ) in the midst of the words.
-regex body_word {
+token body_word {
[
- | <macro_param>
- | <op_macro>
- | $<word>=[<alnum>+|<punct>|<space>+]
+ || <macro_param>
+ || <op_macro>
+ || <word>
]
- {*}
}
+token word {
+ || <quote>
+ || <ident>
+ || <alnum>
+ || <punct>
+ || <ws>
+}
+
+proto token quote { <...> }
+token quote:sym<apos> { <?[']> <quote_EXPR: ':q'> }
+token quote:sym<dblq> { <?["]> <quote_EXPR: ':q'> }
+
token macro_param {
- '$' $<num>=[<digit>+]
- {*}
+ '$' $<num>=<integer> # Up to nine params.
}
-regex op_macro {
- <macro_type> <space>* <macro_destination> <space>* '(' <space>* <body_word>*? ')'
- {*}
+rule op_macro {
+ <macro_type> <macro_destination> '(' <body_word>*? ')'
}
token macro_type {
Modified: branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm Sat May 29 11:56:49 2010 (r47109)
@@ -16,6 +16,7 @@
self<script> := $script;
self<file> := $file;
self<flags> := %flags;
+ self<quiet> := %flags<quiet> // 0;
# Preparing various bits.
my $suffix := $trans.suffix();
@@ -73,13 +74,15 @@
method print_c_header_files() {
- my $fh := pir::open__PSs(self<func_header>, 'w')
+ my $fh := pir::new__Ps('FileHandle');
+ $fh.open(self<func_header>, 'w')
|| die("Can't open "~ self<func_header>);
self.emit_c_op_func_header($fh);
$fh.close();
if self.ops_file<core> {
- $fh := pir::open__PSs(self<enum_header>, 'w')
+ $fh := pir::new__Ps('FileHandle');
+ $fh.open(self<enum_header>, 'w')
|| die("Can't open "~ self<enum_header>);
self.emit_c_op_enum_header($fh);
$fh.close();
@@ -117,47 +120,16 @@
method print_ops_num_files() {
- my $file := ~self<dir> ~ ~self<ops_file>.oplib.num_file;
- 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')
+ my $file := ~self<dir> ~ "include/parrot/opsenum.h";
+ my $fh := pir::new__Ps('FileHandle');
+ $fh.open($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);
@@ -173,54 +145,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();
-
- #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;
- #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>;
- #say("# added '"~$line<op><name> ~" to fixed ops");
- }
- }
- elsif $line<dynamic> {
- $found_dynamic := 1;
- }
- }
-}
-
method print_c_source_file() {
# Build file in memeory
my $fh := pir::new__Ps('StringHandle');
@@ -229,7 +167,8 @@
$fh.close();
# ... and write it to disk
- my $final := pir::open__PSs(self<source>, 'w') || die("Can't open filehandle");
+ my $final := pir::new__Ps('FileHandle');
+ $final.open(self<source>, 'w') || die("Can't open filehandle");
$final.print($fh.readall());
$final.close();
return self<source>;
Modified: branches/gsoc_instrument/compilers/opsc/src/Ops/File.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/File.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/File.pm Sat May 29 11:56:49 2010 (r47109)
@@ -182,14 +182,14 @@
=end
-method new(*@files, :$oplib, :$core!, :$nolines) {
+method new(*@files, :$oplib, :$core!, :$nolines, :$quiet? = 0) {
self<files> := @files;
self<core> := $core;
self<ops> := list(); # Ops
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 {
self<oplib> := $oplib;
@@ -243,12 +243,15 @@
method read_ops($file, $nolines) {
$Ops::Compiler::Actions::OPLIB := self<oplib>;
- say("# Parsing $file...");
+ self<quiet> || say("# Parsing $file...");
my $start_time := pir::time__N();
my $buffer := slurp($file);
+ my $start_ops := +self<ops>;
self.compile_ops($buffer, :experimental( $file ~~ /experimental\.ops/));
+ my $end_ops := +self<ops>;
pir::sprintf(my $time, "%.3f", [pir::time__N() - $start_time] );
- say("# Parsed $file in $time seconds.");
+ self<quiet> || say("# Parsed $file in $time seconds; found "~
+ ($end_ops - $start_ops) ~" ops.");
}
method compile_ops($str, :$experimental? = 0) {
@@ -284,30 +287,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++;
- 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: branches/gsoc_instrument/compilers/opsc/src/Ops/OpLib.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/OpLib.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/OpLib.pm Sat May 29 11:56:49 2010 (r47109)
@@ -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,15 +66,12 @@
=end METHODS
-method new(:$num_file, :$skip_file) {
- 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;
@@ -119,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;
- say("# hole in ops.num before #$number: will regenerate ops.num");
- }
- if self<op_num_table>.exists($name) {
- self<regen_ops_num> := 1;
- 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 {
@@ -191,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;
}
}
@@ -205,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: branches/gsoc_instrument/compilers/opsc/src/builtins.pir
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/builtins.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/opsc/src/builtins.pir Sat May 29 11:56:49 2010 (r47109)
@@ -93,9 +93,10 @@
.sub 'slurp'
.param string file
.local pmc pio
- pio = open file
+ pio = new ['FileHandle']
+ pio.'open'(file)
$S0 = pio.'readall'()
- close pio
+ pio.'close'()
.return ($S0)
.end
Modified: branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir Sat May 29 11:56:49 2010 (r47109)
@@ -329,11 +329,13 @@
result = self.stagename(result, adverbs :flat :named)
$N1 = time
$N2 = $N1 - $N0
- printerr "Stage '"
- printerr stagename
- printerr "': "
- printerr $N2
- printerr " sec\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("Stage '")
+ $P1.'print'(stagename)
+ $P1.'print'("': ")
+ $P1.'print'($N2)
+ $P1.'print'(" sec\n")
if target == stagename goto have_result
goto stagestats_loop
@@ -611,11 +613,14 @@
# on startup show the welcome message
$P0 = self.'commandline_banner'()
- printerr $P0
+ $P1 = getinterp
+ $P2 = $P1.'stdhandle'(2)
+ $P2.'print'($P0)
.local pmc stdin
.local int has_readline
- stdin = getstdin
+ $P0 = getinterp
+ stdin = $P0.'stdhandle'(0)
encoding = adverbs['encoding']
if encoding == 'fixed_8' goto interactive_loop
unless encoding goto interactive_loop
@@ -746,7 +751,7 @@
iter_loop_1:
$S0 = ifh.'readall'(iname)
code .= $S0
- close ifh
+ ifh.'close'()
goto iter_loop
iter_end:
$S0 = join ' ', files
@@ -876,15 +881,17 @@
if target != 'pir' goto end
.local string output
.local pmc ofh
- ofh = getstdout
+ $P0 = getinterp
+ ofh = $P0.'stdhandle'(1)
output = adverbs['output']
if output == '' goto save_output_1
if output == '-' goto save_output_1
- ofh = open output, 'w'
+ ofh = new ['FileHandle']
+ ofh.'open'(output, 'w')
unless ofh goto err_output
save_output_1:
print ofh, result
- close ofh
+ ofh.'close'()
end:
.return ()
Modified: branches/gsoc_instrument/compilers/tge/tgc.pir
==============================================================================
--- branches/gsoc_instrument/compilers/tge/tgc.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/compilers/tge/tgc.pir Sat May 29 11:56:49 2010 (r47109)
@@ -64,24 +64,27 @@
if ck_output goto OUTPUT_FILE
OUTPUT_STDOUT:
- outfh = getstdout
+ $P0 = getinterp
+ outfh = $P0.'stdhandle'(1)
goto OUTPUT_DONE
OUTPUT_FILE:
outfile = opts['output']
- outfh = open outfile, 'w'
+ outfh = new ['FileHandle']
+ outfh.'open'(outfile, 'w')
unless outfh goto ERR_NO_OUTFILE
OUTPUT_DONE:
# Read grammar file and compile here
.local pmc infh
- infh = open infile, 'r'
+ infh = new ['FileHandle']
+ infh.'open'(infile, 'r')
unless infh goto ERR_NO_INFILE
.local string source
- source = read infh, 65535
- close infh
+ source = infh.'read'(65535)
+ infh.'close'()
.local pmc grammar
grammar = new ['TGE';'Compiler']
@@ -99,10 +102,12 @@
goto END
USAGE:
- printerr "Usage: "
- printerr prog
- printerr " [OPTIONS] FILE\n"
- printerr <<"OPTIONS"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("Usage: ")
+ $P1.'print'(prog)
+ $P1.'print'(" [OPTIONS] FILE\n")
+ $P1.'print'(<<"OPTIONS")
Options:
--output=OUTFILE -- redirect output to OUTFILE
--help -- print this message
@@ -110,19 +115,25 @@
exit 1
ERR_TOO_FEW_ARGS:
- printerr "Error: too few arguments\n\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("Error: too few arguments\n\n")
goto USAGE
ERR_NO_INFILE:
- printerr "Error: file not found: "
- printerr infile
- printerr "\n\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("Error: file not found: ")
+ $P1.'print'(infile)
+ $P1.'print'("\n\n")
goto USAGE
ERR_NO_OUTFILE:
- printerr "Error: file not found: "
- printerr outfile
- printerr "\n\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("Error: file not found: ")
+ $P1.'print'(outfile)
+ $P1.'print'("\n\n")
goto USAGE
END:
Modified: branches/gsoc_instrument/config/gen/config_pm/config_pir.in
==============================================================================
--- branches/gsoc_instrument/config/gen/config_pm/config_pir.in Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/config_pm/config_pir.in Sat May 29 11:56:49 2010 (r47109)
@@ -40,15 +40,21 @@
=cut
.include "interpinfo.pasm"
-.include "stat.pasm"
.sub _config
.local string prefix, conf_file
prefix = interpinfo .INTERPINFO_RUNTIME_PREFIX
$S0 = concat prefix, "/runtime"
- $I0 = stat $S0, .STAT_EXISTS
- if $I0 goto L1
+
+ $P0 = loadlib 'os'
+ $P0 = new ['OS']
+ push_eh file_not_found
+ # OS.stat throws on file not found
+ $P0.'stat'($S0)
+ goto L1
+ pop_eh
+ file_not_found:
conf_file = "@libdir@@versiondir@/include/config.fpmc"
goto L2
L1:
Modified: branches/gsoc_instrument/config/gen/makefiles/root.in
==============================================================================
--- branches/gsoc_instrument/config/gen/makefiles/root.in Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/makefiles/root.in Sat May 29 11:56:49 2010 (r47109)
@@ -630,6 +630,30 @@
$(GEN_LIBRARY) : $(PARROT) $(GEN_PASM_INCLUDES)
+$(LIBRARY_DIR)/Digest/MD5.pbc: $(DYNEXT_DIR)/bit_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/Archive/Zip.pbc: $(DYNEXT_DIR)/sys_ops$(LOAD_EXT) $(DYNEXT_DIR)/io_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/Configure/genfile.pbc: $(DYNEXT_DIR)/sys_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/HTTP/Message.pbc: $(DYNEXT_DIR)/sys_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/distutils.pbc: $(DYNEXT_DIR)/sys_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/pcre.pbc: $(DYNEXT_DIR)/sys_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/LWP/Protocol.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT) $(DYNEXT_DIR)/sys_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/Test/More.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/Archive/Tar.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/osutils.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/Config/JSON.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT) $(DYNEXT_DIR)/sys_ops$(LOAD_EXT)
+
+$(LIBRARY_DIR)/LWP/UserAgent.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT)
+
# constant string support
.c.str : # suffix rule (limited support)
$(PERL) $(BUILD_TOOLS_DIR)/c2str.pl $< > $@
@@ -800,7 +824,7 @@
installable: all $(INSTALLABLEPARROT) $(INSTALLABLEPDUMP) $(INSTALLABLEDIS) $(INSTALLABLEPDB) $(INSTALLABLEPBC_MERGE) $(INSTALLABLEPBCTOEXE) $(INSTALLABLECONFIG) $(INSTALLABLENQP) $(INSTALLABLENCITHUNKGEN) $(INSTALLABLEPROVE) $(INSTALLABLEOPS2C)
bootstrap-ops : $(OPS2C)
- $(OPS2C) --core
+ $(OPS2C) --core --quiet
$(MAKE) .
runtime/parrot/include/parrotlib.pbc: runtime/parrot/library/parrotlib.pir $(PARROT) $(GEN_PASM_INCLUDES)
@@ -1506,6 +1530,7 @@
src/string/encoding/utf8.h \
src/string/encoding/utf16.h \
src/string/encoding/ucs2.h \
+ src/string/encoding/ucs4.h \
src/string/charset/ascii.h \
src/string/charset/binary.h \
src/string/charset/iso-8859-1.h \
Modified: branches/gsoc_instrument/config/gen/platform/ansi/time.c
==============================================================================
--- branches/gsoc_instrument/config/gen/platform/ansi/time.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/platform/ansi/time.c Sat May 29 11:56:49 2010 (r47109)
@@ -60,6 +60,8 @@
=item C<void Parrot_sleep(unsigned int seconds)>
+Sleep for at least the specified number of seconds.
+
=cut
*/
Modified: branches/gsoc_instrument/config/gen/platform/generic/time.c
==============================================================================
--- branches/gsoc_instrument/config/gen/platform/generic/time.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/platform/generic/time.c Sat May 29 11:56:49 2010 (r47109)
@@ -94,6 +94,7 @@
*/
+PARROT_EXPORT
struct tm *
Parrot_gmtime_r(const time_t *t, struct tm *tm)
{
@@ -108,6 +109,7 @@
*/
+PARROT_EXPORT
struct tm *
Parrot_localtime_r(const time_t *t, struct tm *tm)
{
@@ -122,6 +124,7 @@
*/
+PARROT_EXPORT
char*
Parrot_asctime_r(const struct tm *tm, char *buffer)
{
Modified: branches/gsoc_instrument/config/gen/platform/solaris/time.c
==============================================================================
--- branches/gsoc_instrument/config/gen/platform/solaris/time.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/platform/solaris/time.c Sat May 29 11:56:49 2010 (r47109)
@@ -94,6 +94,7 @@
*/
+PARROT_EXPORT
struct tm *
Parrot_gmtime_r(const time_t *t, struct tm *tm)
{
@@ -108,6 +109,7 @@
*/
+PARROT_EXPORT
struct tm *
Parrot_localtime_r(const time_t *t, struct tm *tm)
{
@@ -122,6 +124,7 @@
*/
+PARROT_EXPORT
char*
Parrot_asctime_r(const struct tm *tm, char *buffer)
{
Modified: branches/gsoc_instrument/config/gen/platform/win32/dl.c
==============================================================================
--- branches/gsoc_instrument/config/gen/platform/win32/dl.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/platform/win32/dl.c Sat May 29 11:56:49 2010 (r47109)
@@ -42,7 +42,7 @@
=item C<const char * Parrot_dlerror(void)>
-System-dependant error code that indicates failure in opening a DL.
+System-dependent error code that indicates failure in opening a DL.
=cut
Modified: branches/gsoc_instrument/config/gen/platform/win32/time.c
==============================================================================
--- branches/gsoc_instrument/config/gen/platform/win32/time.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/config/gen/platform/win32/time.c Sat May 29 11:56:49 2010 (r47109)
@@ -122,6 +122,7 @@
*/
+PARROT_EXPORT
struct tm *
Parrot_gmtime_r(const time_t *t, struct tm *tm)
{
@@ -139,6 +140,7 @@
*/
+PARROT_EXPORT
struct tm *
Parrot_localtime_r(const time_t *t, struct tm *tm)
{
@@ -157,6 +159,7 @@
*/
+PARROT_EXPORT
char*
Parrot_asctime_r(const struct tm *tm, char *buffer)
{
Modified: branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod
==============================================================================
--- branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod Sat May 29 11:56:49 2010 (r47109)
@@ -127,11 +127,12 @@
=begin PIR
.sub main
- $P0 = getstdin
+ $P0 = getinterp
+ $P0 = $P0.'stdhandle'(0)
$P1 = compreg 'PIR'
loop_top:
- $S0 = readline $P0
+ $S0 = $P0.'readline'()
$S0 = ".sub '' :anon\n" . $S0
$S0 = $S0 . "\n.end\n"
$P2 = $P1($S0)
Modified: branches/gsoc_instrument/docs/book/pir/ch04_variables.pod
==============================================================================
--- branches/gsoc_instrument/docs/book/pir/ch04_variables.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/book/pir/ch04_variables.pod Sat May 29 11:56:49 2010 (r47109)
@@ -133,12 +133,16 @@
C<vers>X<vers opcode> (versine). All angle arguments for the X<trigonometric
opcodes> trigonometric opcodes are in radians:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'trans_ops'
+
+ # ...
$N0 = sin $N1
$N0 = exp 2
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
The majority of the floating-point operations have a single argument and a
single result. The arguments can generally be either an integer or number, but
@@ -167,14 +171,18 @@
The C<or>X<or opcode> opcode returns the first argument if
it's true and the second argument otherwise:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'bit_ops'
+
+ # ...
$I0 = or 1, 0 # returns 1
$I0 = or 0, 2 # returns 2
$P0 = or $P1, $P2
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID[
Both C<and> and C<or> are short-circuiting ops. If they can determine what
value to return from the first argument, they'll never evaluate the second.
@@ -210,30 +218,42 @@
value that is the logical AND, OR, or XOR of each bit in the source arguments.
They each take two arguments.
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'bit_ops'
+
+ # ...
$I0 = bor $I1, $I2
$P0 = bxor $P1, $I2
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
C<band>, C<bor>, and C<bxor> also have variants that modify the result
in place.
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'bit_ops'
+
+ # ...
$I0 = band $I1
$P0 = bor $P1
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
C<bnot>X<bnot opcode> is the logical NOT of each bit in the source argument.
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'bit_ops'
+
+ # ...
$I0 = bnot $I1
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
X<shl opcode>
X<shr opcode>
@@ -241,13 +261,17 @@
The logical and arithmetic shift operations shift their values by a specified
number of bits:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'bit_ops'
+
+ # ...
$I0 = shl $I1, $I2 # shift $I1 left by count $I2
$I0 = shr $I1, $I2 # arithmetic shift right
$P0 = lsr $P1, $P2 # logical shift right
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
=head2 Working with Strings
@@ -889,14 +913,18 @@
operation on each byte of the strings to produce the result string.
Remember that in-place string operations are no longer available.
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'bit_ops'
+
+ # ...
$P0 = bors $P1
$P0 = bands $P1
$S0 = bors $S1, $S2
$P0 = bxors $P1, $S2
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
The bitwise string opcodes produce meaningful results only when used with
simple ASCII strings, because Parrot performs bitwise operations per byte.
Modified: branches/gsoc_instrument/docs/book/pir/ch08_io.pod
==============================================================================
--- branches/gsoc_instrument/docs/book/pir/ch08_io.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/book/pir/ch08_io.pod Sat May 29 11:56:49 2010 (r47109)
@@ -12,24 +12,32 @@
The C<open>X<open opcode> opcode opens a new filehandle. It takes a
string argument, which is the path to the file:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
+
+ # ...
$P0 = open 'my/file/name.txt'
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
By default, it opens the filehandle as read-only, but an optional second string
argument can specify the mode for the file. The modes are C<r> for read, C<w>
for write, C<a> for append, and C<p> for pipe:N<These are the same as the C
language read-modes, so may be familiar.>
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
+
+ # ...
$P0 = open 'my/file/name.txt', 'a'
$P0 = open 'myfile.txt', 'r'
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
You can combine modes; a handle that can read and write uses the mode string
C<rw>. A handle that can read and write but will not overwrite the existing
@@ -42,11 +50,15 @@
input, standard output, or standard error filehandles, though you can
recreate them.>
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
+
+ # ...
close $P0
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
The C<print>X<print opcode> opcode prints a string argument or the
string form of an integer, number, or PMC to a filehandle:
@@ -71,13 +83,19 @@
mentioning is the C<printerr>X<printerr opcode> opcode, which prints an
argument to the standard error instead of standard output:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
say 'Turnip'
+ # ...
+
+ .loadlib 'io_ops'
+
+ # ...
+
printerr 'Blancmange'
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
The C<read>X<read opcode> and C<readline>X<readline opcode> opcodes read
values from a filehandle. C<read> takes an integer value and returns a
@@ -85,44 +103,58 @@
of input from a filehandle and returns the string without the trailing
newline:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
$S0 = read $P0, 10
$S0 = readline $P0
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
The C<read> opcode has a one-argument variant that reads from standard input:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
- $S0 = read 10
+ .loadlib 'io_ops'
-=end PIR_FRAGMENT
+ # ...
+
+ $S0 = read 10
+
+=end PIR_FRAGMENT_INVALID
The C<getstdin>X<getstdin opcode>, C<getstdout>X<getstdout opcode>, and
C<getstderr>X<getstderr opcode> opcodes fetch the filehandle objects for
the standard streams: standard input, standard output, and standard
error:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
+
+ # ...
$P0 = getstdin # Standard input handle
$P1 = getstdout # Standard output handle
$P2 = getstderr # Standard error handle
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
Once you have the filehandle for one of the standard streams, you can use it
just like any other filehandle object:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
+
+ # ...
$P0 = getstdout
print $P0, 'hello'
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
This following example reads data from the file F<myfile.txt> one line at a
time using the C<readline> opcode. As it loops over the lines of the file, it
@@ -131,6 +163,8 @@
=begin PIR
+ .loadlib 'io_ops'
+
.sub 'main'
$P0 = getstdout
$P1 = open 'myfile.txt', 'r'
Modified: branches/gsoc_instrument/docs/compiler_faq.pod
==============================================================================
--- branches/gsoc_instrument/docs/compiler_faq.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/compiler_faq.pod Sat May 29 11:56:49 2010 (r47109)
@@ -526,7 +526,9 @@
or with the class object:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+
+ .loadlib 'io_ops'
$P1 = get_class 'Dog' # find the 'Dog' class
unless null $P1 goto have_dog_class
@@ -535,7 +537,7 @@
have_dog_class:
new $P0, $P1 # creates a Dog object and stores it in register $P0
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
The chief difference is that using a string constant will produce the
specific error "Class 'Dog' not found" if that happens to be the case;
Modified: branches/gsoc_instrument/docs/pdds/pdd22_io.pod
==============================================================================
--- branches/gsoc_instrument/docs/pdds/pdd22_io.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/pdds/pdd22_io.pod Sat May 29 11:56:49 2010 (r47109)
@@ -464,6 +464,8 @@
=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
$P0 = open $S1
$P0 = open $S1, $S2
$P0 = open $P1
@@ -488,6 +490,8 @@
=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
close $P0
close $P0, $P1
@@ -554,14 +558,16 @@
=item C<printerr>
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
printerr $I0
printerr $N0
printerr $S0
printerr $P0
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
Writes an integer, float, string, or PMC value to standard error.
@@ -578,6 +584,8 @@
=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
$S0 = read $I1
$S0 = read $P1, $I2
$P0 = read $P1, $I2, $P3
@@ -598,6 +606,8 @@
=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
$S0 = readline $P1
$P0 = readline $P1, $P2
@@ -613,12 +623,14 @@
=item C<peek>
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
$S0 = peek
$S0 = peek $P1
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
[C<peek>, C<seek>, C<tell>, and C<poll> are all candidates for moving from
opcodes to FileHandle object methods.]
@@ -641,6 +653,8 @@
=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
seek $P0, $I1, $I2
seek $P0, $I1, $I2, $I3
seek $P0, $I1, $I2, $P3
@@ -664,6 +678,8 @@
=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
$I0 = tell $P1
($I0, $I1) = tell $P2
Modified: branches/gsoc_instrument/docs/pdds/pdd28_strings.pod
==============================================================================
--- branches/gsoc_instrument/docs/pdds/pdd28_strings.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/pdds/pdd28_strings.pod Sat May 29 11:56:49 2010 (r47109)
@@ -161,7 +161,7 @@
code must always assume a variable-byte encoding, and use expensive
lookaheads. The cost is incurred on every operation, though the particular
string operated on might not contain combining characters. It's particularly
-noticeable in parsing and regular expression matches, where backtracking
+noticeable in parsing and regular expres699sion matches, where backtracking
operations may re-traverse the characters of a simple string hundreds of
times.
@@ -296,7 +296,7 @@
may be variably sized.}}
=item hashval
-
+699
A cache of the hash value of the string, for rapid lookups when the string is
used as a hash key.
Modified: branches/gsoc_instrument/docs/tests.pod
==============================================================================
--- branches/gsoc_instrument/docs/tests.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/tests.pod Sat May 29 11:56:49 2010 (r47109)
@@ -111,7 +111,7 @@
Parrot_run_native(interp, the_test);
printf("done\n");
- fflush(stdout);
+ fflush(stdout);
return 0;
}
Modified: branches/gsoc_instrument/docs/user/pir/intro.pod
==============================================================================
--- branches/gsoc_instrument/docs/user/pir/intro.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/docs/user/pir/intro.pod Sat May 29 11:56:49 2010 (r47109)
@@ -410,22 +410,26 @@
pass it a string register or variable where you wish the characters
read to be placed and the number of characters you wish to read:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
+ ...
read $S1, 100
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
This line will read 100 characters (or until the end of the line) and
put the read string into C<$S1>. In case you need a number, just
assign the string to the correct register type:
-=begin PIR_FRAGMENT
+=begin PIR_FRAGMENT_INVALID
+ .loadlib 'io_ops'
read $S1, 100
+ ...
$I1 = $S1
-=end PIR_FRAGMENT
+=end PIR_FRAGMENT_INVALID
With the PIR syntax shown in this article you should be able to start
writing simple programs. Next article we will look into available
Modified: branches/gsoc_instrument/examples/benchmarks/primes.pasm
==============================================================================
--- branches/gsoc_instrument/examples/benchmarks/primes.pasm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/benchmarks/primes.pasm Sat May 29 11:56:49 2010 (r47109)
@@ -42,6 +42,7 @@
div P4, P1, 2
# Check if P3 is a factor of P1
LOOP:
+.loadlib 'math_ops' # cmod is a dynop
cmod P5, P1, P3
if P5, OK
Modified: branches/gsoc_instrument/examples/benchmarks/primes_i.pasm
==============================================================================
--- branches/gsoc_instrument/examples/benchmarks/primes_i.pasm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/benchmarks/primes_i.pasm Sat May 29 11:56:49 2010 (r47109)
@@ -30,6 +30,7 @@
set I3, 2
div I4, I1, 2
LOOP: # Check if I3 is a factor of I1
+.loadlib 'math_ops' # cmod is a dynop
cmod I5, I1, I3
if I5, OK
# We've found a factor, so it can't be a prime and
Modified: branches/gsoc_instrument/examples/io/http.pir
==============================================================================
--- branches/gsoc_instrument/examples/io/http.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/io/http.pir Sat May 29 11:56:49 2010 (r47109)
@@ -53,7 +53,7 @@
print "Socket error\n"
end
END:
- close sock
+ sock.'close'()
end
.end
Modified: branches/gsoc_instrument/examples/io/httpd.pir
==============================================================================
--- branches/gsoc_instrument/examples/io/httpd.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/io/httpd.pir Sat May 29 11:56:49 2010 (r47109)
@@ -95,6 +95,9 @@
.include 'except_types.pasm'
.include 'socket.pasm'
+.loadlib 'io_ops'
+.loadlib 'sys_ops'
+
.sub main :main
.local pmc listener, work, fp
.local pmc fp # read requested files from disk
Modified: branches/gsoc_instrument/examples/json/postalcodes.pir
==============================================================================
--- branches/gsoc_instrument/examples/json/postalcodes.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/json/postalcodes.pir Sat May 29 11:56:49 2010 (r47109)
@@ -18,6 +18,7 @@
=cut
.include 'socket.pasm'
+.loadlib 'io_ops'
.sub _main :main
.param pmc argv
Modified: branches/gsoc_instrument/examples/languages/squaak/doc/tutorial_episode_1.pod
==============================================================================
--- branches/gsoc_instrument/examples/languages/squaak/doc/tutorial_episode_1.pod Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/languages/squaak/doc/tutorial_episode_1.pod Sat May 29 11:56:49 2010 (r47109)
@@ -9,7 +9,7 @@
Parrot Compiler Tools. If you're interested in virtual machines, you've
probably heard of the Parrot virtual machine. Parrot is a generic virtual
machine designed for dynamic languages. This is in contrast with the Java
-virtual machine (JVM) and Microsoft's Common Language Runtime (CLR), both of
+virtual machine (JVM) and Microsoft's B<C>ommon B<L>anguage B<R>untime (CLR), both of
which were designed to run static languages. Both the JVM and Microsoft
(through the Dynamic Language Runtime -- DLR) are adding support for dynamic
languages, but their primary focus is still static languages.
@@ -17,7 +17,7 @@
=head2 High Level Languages
The main purpose of a virtual machine is to run programs. These programs are
-typically written in some High Level Language (HLL). Some well-known dynamic
+typically written in some B<H>igh B<L>evel B<L>anguage (HLL). Some well-known dynamic
languages (sometimes referred to as scripting languages) are Lua, Perl, PHP,
Python, Ruby, and Tcl. Parrot is designed to be able to run all these languages.
Each language that Parrot hosts, needs a compiler to parse the syntax of the
@@ -34,7 +34,7 @@
=head2 The Parrot Compiler Toolkit
-Enter the Parrot Compiler Toolkit (PCT). In order to make Parrot an interesting
+Enter the B<P>arrot B<C>ompiler B<T>oolkit (PCT). In order to make Parrot an interesting
target for language developers, the process of constructing a compiler should be
supported by the right tools. Just as any construction task becomes much easier
if you have the right tools (you wouldn't build a house using only your bare
@@ -99,13 +99,13 @@
=over 4
-=item Parrot Grammar Engine (PGE).
+=item B<P>arrot B<G>rammar B<E>ngine (PGE).
The PGE is an advanced engine for regular expressions. Besides regexes as found
in Perl 5, it can also be used to define language grammars, using Perl 6 syntax.
(Check the references for the specification.)
-=item Parrot Abstract Syntax Tree (PAST).
+=item B<P>arrot B<A>bstract B<S>yntax B<T>ree (PAST).
The PAST nodes are a set of classes defining generic abstract syntax tree nodes
that represent common language constructs.
@@ -114,7 +114,7 @@
This class is the compiler driver for any PCT-based compiler.
-=item Not Quite Perl (6) (NQP).
+=item B<N>ot B<Q>uite B<P>erl (6) (NQP).
NQP is a lightweight language inspired by Perl 6 and can be used to write the
methods that must be executed during the parsing phase, just as you can write
@@ -140,18 +140,18 @@
$ perl tools/dev/mk_language_shell.pl Squaak languages/squaak
(Note: if you're on Windows, you should use backslashes.) This will generate the
-files in a directory languages/squaak, and use the name Squaak as the language's
-name. The last config step is to create the Makefile for your new language:
+files in a directory F<languages/squaak>, and use the name Squaak as the language's
+name.
- $ perl Configure.pl --languages=squaak
+After this, go to the directory F<languages/squaak> and type:
-After this, go to the directory languages/squaak and type:
-
- $ make test
+ $ parrot setup.pir test
This will compile the generated files and run the test suite. If you want more
information on what files are being generated, please check out the references
-at the end of this episode.
+at the end of this episode or read the documentation included in the file
+F<mk_language_shell.pl>. For that you can use an installed parrot executable
+from your distribution or one you have just compiled.
Note that we didn't write a single line of code, and already we have the basic
infrastructure in place to get us started. Of course, the generated compiler
@@ -163,7 +163,7 @@
say "Squaak!";
-Save the file (for instance as test.sq) and type:
+Save it the as file F<test.sq> and type:
$ ../../parrot squaak.pbc test.sq
Modified: branches/gsoc_instrument/examples/languages/squaak/squaak.pir
==============================================================================
--- branches/gsoc_instrument/examples/languages/squaak/squaak.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/languages/squaak/squaak.pir Sat May 29 11:56:49 2010 (r47109)
@@ -26,6 +26,7 @@
.namespace [ 'Squaak';'Compiler' ]
+.loadlib 'io_ops'
.loadlib 'squaak_group'
.sub 'onload' :anon :load :init
Modified: branches/gsoc_instrument/examples/library/md5sum.pir
==============================================================================
--- branches/gsoc_instrument/examples/library/md5sum.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/library/md5sum.pir Sat May 29 11:56:49 2010 (r47109)
@@ -24,6 +24,8 @@
=cut
+.loadlib 'os' # OS object
+
.sub _main :main
.param pmc args
@@ -34,9 +36,9 @@
$I0 = $I0 - 1
if $I0 > 0 goto has_args
$S0 = args[0]
- printerr "(parrot) "
- printerr $S0
- printerr " filename [filename ...]\n"
+ print "(parrot) "
+ print $S0
+ print " filename [filename ...]\n"
exit 1
has_args:
@@ -50,7 +52,10 @@
file = args[$I1]
.include "stat.pasm"
# Get size of file
- size = stat file, .STAT_FILESIZE
+ .local pmc os, stat_buf
+ os = new ['OS']
+ stat_buf = os.'stat'(file)
+ size = stat_buf[7]
.local pmc pio, cl
cl = new 'FileHandle'
# slurp the file into memory
@@ -60,8 +65,12 @@
$I2 = length contents
if $I2 == size goto size_ok
- printerr file
- printerr ": size mismatch\n"
+ print file
+ print ": size mismatch ("
+ print size
+ print " vs "
+ print $I2
+ print ")\n"
goto iter_cont
size_ok:
Modified: branches/gsoc_instrument/examples/library/ncurses_life.pir
==============================================================================
--- branches/gsoc_instrument/examples/library/ncurses_life.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/library/ncurses_life.pir Sat May 29 11:56:49 2010 (r47109)
@@ -56,6 +56,8 @@
=cut
+.loadlib 'io_ops'
+
.sub _MAIN :main
.param pmc argv
# the command line
Modified: branches/gsoc_instrument/examples/pasm/cat.pasm
==============================================================================
--- branches/gsoc_instrument/examples/pasm/cat.pasm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pasm/cat.pasm Sat May 29 11:56:49 2010 (r47109)
@@ -19,6 +19,8 @@
=cut
+.loadlib 'io_ops'
+
getstdin P0
getstdout P1
REDO:
Modified: branches/gsoc_instrument/examples/pge/demo.pir
==============================================================================
--- branches/gsoc_instrument/examples/pge/demo.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pge/demo.pir Sat May 29 11:56:49 2010 (r47109)
@@ -34,8 +34,9 @@
read_loop:
print "\ninput \"regex <pattern>\", \"glob <pattern>\", \"save <name>\",\n"
print "target string, \"pir\", \"exp\", \"trace\", \"next\"\n"
- getstdin stdin
- readline x, stdin
+ $P0 = getinterp
+ stdin = $P0.'stdhandle'(0)
+ x = stdin.'readline'()
length $I0, x
if $I0 < 1 goto end_demo
$I0 = index x, " "
Modified: branches/gsoc_instrument/examples/pir/befunge/befunge.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/befunge/befunge.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/befunge/befunge.pir Sat May 29 11:56:49 2010 (r47109)
@@ -1,6 +1,8 @@
# Copyright (C) 2002-2009, Parrot Foundation.
# $Id$
+.loadlib 'io_ops'
+
.include "debug.pir"
.include "flow.pir"
.include "io.pir"
Modified: branches/gsoc_instrument/examples/pir/io.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/io.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/io.pir Sat May 29 11:56:49 2010 (r47109)
@@ -17,6 +17,8 @@
=cut
+.loadlib 'io_ops' # convenient I/O dynamic opcodes
+
.sub 'example' :main
.local string test_fn
test_fn = "tmp_example_io.tmp"
Modified: branches/gsoc_instrument/examples/pir/life.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/life.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/life.pir Sat May 29 11:56:49 2010 (r47109)
@@ -86,7 +86,9 @@
inc $I0
mod $I31,$I0,100
if $I31, skip
- printerr "."
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ print $P1, "."
skip:
local_branch jmpstack, generate
Modified: branches/gsoc_instrument/examples/pir/make_hello_pbc.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/make_hello_pbc.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/make_hello_pbc.pir Sat May 29 11:56:49 2010 (r47109)
@@ -84,9 +84,10 @@
# Now pack Packfile and save it
$S0 = pf
- $P1 = open "generated_hello.pbc", "w"
+ $P1 = new ['FileHandle']
+ $P1.'open'("generated_hello.pbc", "w")
$P1.'puts'($S0)
- close $P1
+ $P1.'close'()
# And check it!
load_bytecode 'generated_hello.pbc'
Modified: branches/gsoc_instrument/examples/pir/pirric.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/pirric.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/pirric.pir Sat May 29 11:56:49 2010 (r47109)
@@ -49,6 +49,10 @@
.include 'warnings.pasm'
+.loadlib 'io_ops'
+.loadlib 'debug_ops'
+.loadlib 'trans_ops'
+
#-----------------------------------------------------------------------
.sub pirric_aux_loadbytecode
Modified: branches/gsoc_instrument/examples/pir/quine_ord.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/quine_ord.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/quine_ord.pir Sat May 29 11:56:49 2010 (r47109)
@@ -1,6 +1,9 @@
# Copyright (C) 2006-2010, Parrot Foundation.
# ATT no autoexpanding svn markers please
+# XXX currently broken
+.loadlib 'io_ops'
+
.sub quine :main
.param pmc argv
Modified: branches/gsoc_instrument/examples/pir/readline.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/readline.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/readline.pir Sat May 29 11:56:49 2010 (r47109)
@@ -19,6 +19,7 @@
=cut
.include 'cclass.pasm'
+.loadlib 'io_ops'
.sub "example" :main
.local pmc stdin
Modified: branches/gsoc_instrument/examples/pir/sudoku.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/sudoku.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/sudoku.pir Sat May 29 11:56:49 2010 (r47109)
@@ -151,6 +151,9 @@
.const string VERSION="0.2.3"
+.loadlib 'bit_ops'
+.loadlib 'io_ops'
+
.sub _main :main
.param pmc argv
.local int argc
Modified: branches/gsoc_instrument/examples/pir/uniq.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/uniq.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/pir/uniq.pir Sat May 29 11:56:49 2010 (r47109)
@@ -41,6 +41,8 @@
=cut
+.loadlib 'io_ops' # convenient I/O dynamic opcodes
+
.sub "uniq" :main
.param pmc argv
Modified: branches/gsoc_instrument/examples/sdl/lcd/clock.pir
==============================================================================
--- branches/gsoc_instrument/examples/sdl/lcd/clock.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/sdl/lcd/clock.pir Sat May 29 11:56:49 2010 (r47109)
@@ -20,6 +20,8 @@
.include "tm.pasm"
.include "timer.pasm"
+.loadlib 'sys_ops'
+.loadlib 'math_ops'
=item _main
Modified: branches/gsoc_instrument/examples/sdl/minesweeper/field.pir
==============================================================================
--- branches/gsoc_instrument/examples/sdl/minesweeper/field.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/sdl/minesweeper/field.pir Sat May 29 11:56:49 2010 (r47109)
@@ -35,6 +35,7 @@
=cut
.include "iterator.pasm"
+.loadlib 'math_ops'
.namespace ["Mines::Field"]
# size of a single mine field, in pixels
Modified: branches/gsoc_instrument/examples/shootout/binarytrees.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/binarytrees.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/binarytrees.pir Sat May 29 11:56:49 2010 (r47109)
@@ -6,6 +6,8 @@
# by Joshua Isom, modified by Leopold Toetsch
# modified by karl : default value of N=10 to match shootout output
+.loadlib 'trans_ops'
+
.sub itemcheck
.param pmc node
$I0 = exists node[0]
Modified: branches/gsoc_instrument/examples/shootout/fasta.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/fasta.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/fasta.pir Sat May 29 11:56:49 2010 (r47109)
@@ -160,10 +160,11 @@
.sub main :main
.param pmc argv
- .local pmc stdout
+ .local pmc interp, stdout
.local int n
# stdout is linebuffered per default - make it block buffered
- stdout = getstdout
+ interp = getinterp
+ stdout = interp.'stdhandle'(1)
stdout.'buffer_size'(40960)
$I0 = argv
if $I0 > 1 goto argsok
Modified: branches/gsoc_instrument/examples/shootout/knucleotide.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/knucleotide.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/knucleotide.pir Sat May 29 11:56:49 2010 (r47109)
@@ -1,6 +1,8 @@
# Copyright (C) 2005-2010, Parrot Foundation.
# $Id$
+.loadlib 'io_ops'
+
.sub main :main
.local pmc stdin
.local string line
Modified: branches/gsoc_instrument/examples/shootout/nbody.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/nbody.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/nbody.pir Sat May 29 11:56:49 2010 (r47109)
@@ -9,6 +9,8 @@
# speed up from 1m25 to 6s by Leopold Toetsch
# changed default value to 1000 to match shootout default (karl)
+.loadlib 'trans_ops'
+
.const int x = 0
.const int y = 1
.const int z = 2
Modified: branches/gsoc_instrument/examples/shootout/partialsums-2.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/partialsums-2.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/partialsums-2.pir Sat May 29 11:56:49 2010 (r47109)
@@ -7,6 +7,8 @@
# By Joshua Isom
# changed default value to N=25000 (shootout test default) Karl Forner
+.loadlib 'trans_ops'
+
.sub main :main
.param pmc argv
.local int k, n
Modified: branches/gsoc_instrument/examples/shootout/partialsums.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/partialsums.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/partialsums.pir Sat May 29 11:56:49 2010 (r47109)
@@ -7,6 +7,8 @@
# By Joshua Isom
# changed default value to N=25000 (shootout test default) Karl Forner
+.loadlib 'trans_ops'
+
.sub main :main
.param pmc argv
.local int k, n
Modified: branches/gsoc_instrument/examples/shootout/regexdna.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/regexdna.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/regexdna.pir Sat May 29 11:56:49 2010 (r47109)
@@ -61,8 +61,10 @@
############################################
# Read in the file
beginwhile:
- chunk = read 65535
- chunklen = length chunk
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(0) # stdin
+ chunk = $P1.'read'(65535)
+ chunklen = length chunk
unless chunklen goto endwhile
# They don't say you have to match case insenitive...
chunk = downcase chunk
Modified: branches/gsoc_instrument/examples/shootout/revcomp.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/revcomp.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/revcomp.pir Sat May 29 11:56:49 2010 (r47109)
@@ -35,15 +35,16 @@
.sub main :main
.local pmc stdin, stdout
.local string line, seq
- stdin = getstdin
- stdout = getstdout
+ $P0 = getinterp
+ stdin = $P0.'stdhandle'(0)
+ stdout = $P0.'stdhandle'(1)
# stdout is linebuffered per default - make it block buffered
stdout.'buffer_size'(8192)
seq = ''
beginwhile:
- line = readline stdin
+ line = stdin.'readline'()
unless line goto endwhile
$I0 = ord line
unless $I0 == 62 goto else # '>'
Modified: branches/gsoc_instrument/examples/shootout/sumcol.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/sumcol.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/shootout/sumcol.pir Sat May 29 11:56:49 2010 (r47109)
@@ -7,17 +7,18 @@
# N.B. it is called the sum-file benchmark on the computer shootout (KF)
.sub main :main
- .local pmc stdin
+ .local pmc interp, stdin
.local string line
.local int count, tmp, linelen
- count = 0
- stdin = getstdin
+ count = 0
+ interp = getinterp
+ stdin = interp.'stdhandle'(0)
beginwhile:
- line = readline stdin
+ line = stdin.'readline'()
linelen = length line
unless linelen goto endwhile
- tmp = line
- count += tmp
+ tmp = line
+ count += tmp
goto beginwhile
endwhile:
print count
Modified: branches/gsoc_instrument/examples/tge/branch/transform.pir
==============================================================================
--- branches/gsoc_instrument/examples/tge/branch/transform.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/tge/branch/transform.pir Sat May 29 11:56:49 2010 (r47109)
@@ -105,21 +105,23 @@
$I0 = argv
if $I0 == 2 goto fromfile
- filehandle = getstdin
+ $P0 = getinterp
+ filehandle = $P0.'stdhandle'(0)
goto grabline
fromfile:
# Read in the source file
filename = argv[1]
- filehandle = open filename, 'r'
+ filehandle = new ['FileHandle']
+ filehandle.'open'(filename, 'r')
grabline:
- $S1 = read filehandle, 65535
+ $S1 = filehandle.'read'(65535)
# $S1 = readline filehandle
# print $S1
if $I0 != 2 goto finished
- close filehandle
+ filehandle.'close'()
finished:
.return ($S1)
Modified: branches/gsoc_instrument/examples/tutorial/40_file_ops.pir
==============================================================================
--- branches/gsoc_instrument/examples/tutorial/40_file_ops.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/examples/tutorial/40_file_ops.pir Sat May 29 11:56:49 2010 (r47109)
@@ -10,14 +10,16 @@
.sub main :main
.local pmc fileout, filein
- fileout = open '40_file_ops_data.txt', 'w'
- print fileout, "The quick brown fox jumps over the lazy dog.\n"
- close fileout
+ fileout = new ['FileHandle']
+ fileout.'open'('40_file_ops_data.txt', 'w')
+ fileout.'print'("The quick brown fox jumps over the lazy dog.\n")
+ fileout.'close'()
- filein = open '40_file_ops_data.txt', 'r'
- $S0 = readline filein
+ filein = new ['FileHandle']
+ filein.'open'('40_file_ops_data.txt', 'r')
+ $S0 = filein.'readline'()
say $S0
- close filein
+ filein.'close'()
# Be nice and remove the temporary file we created.
$P0 = loadlib 'os'
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir Sat May 29 11:56:49 2010 (r47109)
@@ -121,6 +121,27 @@
# return the result
.return (ns)
.end
+
+
+# This sub serves as a cumulative "outer context" for code
+# executed in HLL::Compiler's interactive REPL. It's invoked
+# exactly once upon load/init to obtain a context, and its
+# default LexPad is replaced with a Hash that we can use to
+# cumulatively store outer context information. Both the
+# context and hash are then made available via package
+# variables.
+.namespace []
+.sub '&interactive_outer' :lex :init :load
+ .local pmc ctx, pad
+ $P0 = getinterp
+ ctx = $P0['context']
+ set_global ['HLL';'Compiler'], '$interactive_ctx', ctx
+ pad = getattribute ctx, 'lex_pad'
+ $P1 = new ['Hash']
+ copy pad, $P1
+ set_global ['HLL';'Compiler'], '%interactive_pad', pad
+.end
+
### .include 'src/cheats/hll-grammar.pir'
# Copyright (C) 2009, The Perl Foundation.
@@ -851,28 +872,62 @@
# End:
# vim: expandtab shiftwidth=4 ft=pir:
+### .include 'src/cheats/parrot-callcontext.pir'
+.namespace ['CallContext']
+.sub 'lexpad_full' :method
+ .local pmc ctx, lexall, lexpad, lexpad_it
+ ctx = self
+ lexall = root_new ['parrot';'Hash']
+
+ context_loop:
+ if null ctx goto context_done
+ lexpad = getattribute ctx, 'lex_pad'
+ if null lexpad goto lexpad_done
+ lexpad_it = iter lexpad
+ lexpad_loop:
+ unless lexpad_it goto lexpad_done
+ $S0 = shift lexpad_it
+ $I0 = exists lexall[$S0]
+ if $I0 goto lexpad_loop
+ $P0 = lexpad[$S0]
+ lexall[$S0] = $P0
+ goto lexpad_loop
+ lexpad_done:
+ ctx = getattribute ctx, 'outer_ctx'
+ goto context_loop
+ context_done:
+ .return (lexall)
+.end
+
### .include 'gen/hllgrammar-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564773.54721")
+.sub "_block11" :anon :subid("10_1275117579.6042")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Grammar"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 5
get_hll_global $P14, ["HLL";"Grammar"], "_block13"
capture_lex $P14
$P343 = $P14()
.annotate 'line', 1
.return ($P343)
- .const 'Sub' $P345 = "104_1274564773.54721"
+ .const 'Sub' $P345 = "104_1275117579.6042"
.return ($P345)
.end
.namespace []
-.sub "" :load :init :subid("post105") :outer("10_1274564773.54721")
+.sub "" :load :init :subid("post105") :outer("10_1275117579.6042")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564773.54721"
+ .const 'Sub' $P12 = "10_1275117579.6042"
.local pmc block
set block, $P12
$P348 = get_root_global ["parrot"], "P6metaclass"
@@ -881,94 +936,100 @@
.namespace ["HLL";"Grammar"]
-.sub "_block13" :subid("11_1274564773.54721") :outer("10_1274564773.54721")
+.sub "_block13" :subid("11_1275117579.6042") :outer("10_1275117579.6042")
.annotate 'line', 5
- .const 'Sub' $P329 = "101_1274564773.54721"
+ .const 'Sub' $P329 = "101_1275117579.6042"
capture_lex $P329
- .const 'Sub' $P322 = "99_1274564773.54721"
+ .const 'Sub' $P322 = "99_1275117579.6042"
capture_lex $P322
- .const 'Sub' $P309 = "96_1274564773.54721"
+ .const 'Sub' $P309 = "96_1275117579.6042"
capture_lex $P309
- .const 'Sub' $P277 = "91_1274564773.54721"
+ .const 'Sub' $P277 = "91_1275117579.6042"
capture_lex $P277
- .const 'Sub' $P271 = "89_1274564773.54721"
+ .const 'Sub' $P271 = "89_1275117579.6042"
capture_lex $P271
- .const 'Sub' $P266 = "87_1274564773.54721"
+ .const 'Sub' $P266 = "87_1275117579.6042"
capture_lex $P266
- .const 'Sub' $P260 = "85_1274564773.54721"
+ .const 'Sub' $P260 = "85_1275117579.6042"
capture_lex $P260
- .const 'Sub' $P254 = "83_1274564773.54721"
+ .const 'Sub' $P254 = "83_1275117579.6042"
capture_lex $P254
- .const 'Sub' $P249 = "81_1274564773.54721"
+ .const 'Sub' $P249 = "81_1275117579.6042"
capture_lex $P249
- .const 'Sub' $P244 = "79_1274564773.54721"
+ .const 'Sub' $P244 = "79_1275117579.6042"
capture_lex $P244
- .const 'Sub' $P239 = "77_1274564773.54721"
+ .const 'Sub' $P239 = "77_1275117579.6042"
capture_lex $P239
- .const 'Sub' $P234 = "75_1274564773.54721"
+ .const 'Sub' $P234 = "75_1275117579.6042"
capture_lex $P234
- .const 'Sub' $P229 = "73_1274564773.54721"
+ .const 'Sub' $P229 = "73_1275117579.6042"
capture_lex $P229
- .const 'Sub' $P224 = "71_1274564773.54721"
+ .const 'Sub' $P224 = "71_1275117579.6042"
capture_lex $P224
- .const 'Sub' $P219 = "69_1274564773.54721"
+ .const 'Sub' $P219 = "69_1275117579.6042"
capture_lex $P219
- .const 'Sub' $P208 = "65_1274564773.54721"
+ .const 'Sub' $P208 = "65_1275117579.6042"
capture_lex $P208
- .const 'Sub' $P195 = "63_1274564773.54721"
+ .const 'Sub' $P195 = "63_1275117579.6042"
capture_lex $P195
- .const 'Sub' $P183 = "61_1274564773.54721"
+ .const 'Sub' $P183 = "61_1275117579.6042"
capture_lex $P183
- .const 'Sub' $P176 = "59_1274564773.54721"
+ .const 'Sub' $P176 = "59_1275117579.6042"
capture_lex $P176
- .const 'Sub' $P167 = "57_1274564773.54721"
+ .const 'Sub' $P167 = "57_1275117579.6042"
capture_lex $P167
- .const 'Sub' $P160 = "55_1274564773.54721"
+ .const 'Sub' $P160 = "55_1275117579.6042"
capture_lex $P160
- .const 'Sub' $P151 = "53_1274564773.54721"
+ .const 'Sub' $P151 = "53_1275117579.6042"
capture_lex $P151
- .const 'Sub' $P144 = "51_1274564773.54721"
+ .const 'Sub' $P144 = "51_1275117579.6042"
capture_lex $P144
- .const 'Sub' $P135 = "49_1274564773.54721"
+ .const 'Sub' $P135 = "49_1275117579.6042"
capture_lex $P135
- .const 'Sub' $P128 = "47_1274564773.54721"
+ .const 'Sub' $P128 = "47_1275117579.6042"
capture_lex $P128
- .const 'Sub' $P121 = "45_1274564773.54721"
+ .const 'Sub' $P121 = "45_1275117579.6042"
capture_lex $P121
- .const 'Sub' $P111 = "43_1274564773.54721"
+ .const 'Sub' $P111 = "43_1275117579.6042"
capture_lex $P111
- .const 'Sub' $P103 = "41_1274564773.54721"
+ .const 'Sub' $P103 = "41_1275117579.6042"
capture_lex $P103
- .const 'Sub' $P93 = "40_1274564773.54721"
+ .const 'Sub' $P93 = "40_1275117579.6042"
capture_lex $P93
- .const 'Sub' $P87 = "38_1274564773.54721"
+ .const 'Sub' $P87 = "38_1275117579.6042"
capture_lex $P87
- .const 'Sub' $P82 = "36_1274564773.54721"
+ .const 'Sub' $P82 = "36_1275117579.6042"
capture_lex $P82
- .const 'Sub' $P74 = "34_1274564773.54721"
+ .const 'Sub' $P74 = "34_1275117579.6042"
capture_lex $P74
- .const 'Sub' $P68 = "32_1274564773.54721"
+ .const 'Sub' $P68 = "32_1275117579.6042"
capture_lex $P68
- .const 'Sub' $P62 = "30_1274564773.54721"
+ .const 'Sub' $P62 = "30_1275117579.6042"
capture_lex $P62
- .const 'Sub' $P56 = "28_1274564773.54721"
+ .const 'Sub' $P56 = "28_1275117579.6042"
capture_lex $P56
- .const 'Sub' $P23 = "14_1274564773.54721"
+ .const 'Sub' $P23 = "14_1275117579.6042"
capture_lex $P23
- .const 'Sub' $P15 = "12_1274564773.54721"
+ .const 'Sub' $P15 = "12_1275117579.6042"
capture_lex $P15
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 33
- .const 'Sub' $P329 = "101_1274564773.54721"
+ .const 'Sub' $P329 = "101_1275117579.6042"
capture_lex $P329
.annotate 'line', 5
.return ($P329)
- .const 'Sub' $P340 = "103_1274564773.54721"
+ .const 'Sub' $P340 = "103_1275117579.6042"
.return ($P340)
.end
.namespace ["HLL";"Grammar"]
-.sub "ws" :subid("12_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "ws" :subid("12_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx16_tgt
.local int rx16_pos
@@ -1052,7 +1113,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__ws" :subid("13_1274564773.54721") :method
+.sub "!PREFIX__ws" :subid("13_1275117579.6042") :method
.annotate 'line', 5
new $P18, "ResizablePMCArray"
push $P18, ""
@@ -1061,7 +1122,7 @@
.namespace ["HLL";"Grammar"]
-.sub "termish" :subid("14_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "termish" :subid("14_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx24_tgt
.local int rx24_pos
@@ -1153,7 +1214,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__termish" :subid("15_1274564773.54721") :method
+.sub "!PREFIX__termish" :subid("15_1275117579.6042") :method
.annotate 'line', 5
new $P26, "ResizablePMCArray"
push $P26, ""
@@ -1162,7 +1223,7 @@
.namespace ["HLL";"Grammar"]
-.sub "term" :subid("16_1274564773.54721") :method
+.sub "term" :subid("16_1275117579.6042") :method
.annotate 'line', 13
$P33 = self."!protoregex"("term")
.return ($P33)
@@ -1170,7 +1231,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__term" :subid("17_1274564773.54721") :method
+.sub "!PREFIX__term" :subid("17_1275117579.6042") :method
.annotate 'line', 13
$P35 = self."!PREFIX__!protoregex"("term")
.return ($P35)
@@ -1178,7 +1239,7 @@
.namespace ["HLL";"Grammar"]
-.sub "infix" :subid("18_1274564773.54721") :method
+.sub "infix" :subid("18_1275117579.6042") :method
.annotate 'line', 14
$P37 = self."!protoregex"("infix")
.return ($P37)
@@ -1186,7 +1247,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__infix" :subid("19_1274564773.54721") :method
+.sub "!PREFIX__infix" :subid("19_1275117579.6042") :method
.annotate 'line', 14
$P39 = self."!PREFIX__!protoregex"("infix")
.return ($P39)
@@ -1194,7 +1255,7 @@
.namespace ["HLL";"Grammar"]
-.sub "prefix" :subid("20_1274564773.54721") :method
+.sub "prefix" :subid("20_1275117579.6042") :method
.annotate 'line', 15
$P41 = self."!protoregex"("prefix")
.return ($P41)
@@ -1202,7 +1263,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__prefix" :subid("21_1274564773.54721") :method
+.sub "!PREFIX__prefix" :subid("21_1275117579.6042") :method
.annotate 'line', 15
$P43 = self."!PREFIX__!protoregex"("prefix")
.return ($P43)
@@ -1210,7 +1271,7 @@
.namespace ["HLL";"Grammar"]
-.sub "postfix" :subid("22_1274564773.54721") :method
+.sub "postfix" :subid("22_1275117579.6042") :method
.annotate 'line', 16
$P45 = self."!protoregex"("postfix")
.return ($P45)
@@ -1218,7 +1279,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postfix" :subid("23_1274564773.54721") :method
+.sub "!PREFIX__postfix" :subid("23_1275117579.6042") :method
.annotate 'line', 16
$P47 = self."!PREFIX__!protoregex"("postfix")
.return ($P47)
@@ -1226,7 +1287,7 @@
.namespace ["HLL";"Grammar"]
-.sub "circumfix" :subid("24_1274564773.54721") :method
+.sub "circumfix" :subid("24_1275117579.6042") :method
.annotate 'line', 17
$P49 = self."!protoregex"("circumfix")
.return ($P49)
@@ -1234,7 +1295,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__circumfix" :subid("25_1274564773.54721") :method
+.sub "!PREFIX__circumfix" :subid("25_1275117579.6042") :method
.annotate 'line', 17
$P51 = self."!PREFIX__!protoregex"("circumfix")
.return ($P51)
@@ -1242,7 +1303,7 @@
.namespace ["HLL";"Grammar"]
-.sub "postcircumfix" :subid("26_1274564773.54721") :method
+.sub "postcircumfix" :subid("26_1275117579.6042") :method
.annotate 'line', 18
$P53 = self."!protoregex"("postcircumfix")
.return ($P53)
@@ -1250,7 +1311,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postcircumfix" :subid("27_1274564773.54721") :method
+.sub "!PREFIX__postcircumfix" :subid("27_1275117579.6042") :method
.annotate 'line', 18
$P55 = self."!PREFIX__!protoregex"("postcircumfix")
.return ($P55)
@@ -1258,7 +1319,7 @@
.namespace ["HLL";"Grammar"]
-.sub "term:sym<circumfix>" :subid("28_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "term:sym<circumfix>" :subid("28_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx57_tgt
.local int rx57_pos
@@ -1316,7 +1377,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__term:sym<circumfix>" :subid("29_1274564773.54721") :method
+.sub "!PREFIX__term:sym<circumfix>" :subid("29_1275117579.6042") :method
.annotate 'line', 5
$P59 = self."!PREFIX__!subrule"("circumfix", "")
new $P60, "ResizablePMCArray"
@@ -1326,7 +1387,7 @@
.namespace ["HLL";"Grammar"]
-.sub "infixish" :subid("30_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "infixish" :subid("30_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx63_tgt
.local int rx63_pos
@@ -1384,7 +1445,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__infixish" :subid("31_1274564773.54721") :method
+.sub "!PREFIX__infixish" :subid("31_1275117579.6042") :method
.annotate 'line', 5
$P65 = self."!PREFIX__!subrule"("OPER=infix", "")
new $P66, "ResizablePMCArray"
@@ -1394,7 +1455,7 @@
.namespace ["HLL";"Grammar"]
-.sub "prefixish" :subid("32_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "prefixish" :subid("32_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx69_tgt
.local int rx69_pos
@@ -1457,7 +1518,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__prefixish" :subid("33_1274564773.54721") :method
+.sub "!PREFIX__prefixish" :subid("33_1275117579.6042") :method
.annotate 'line', 5
$P71 = self."!PREFIX__!subrule"("OPER=prefix", "")
new $P72, "ResizablePMCArray"
@@ -1467,7 +1528,7 @@
.namespace ["HLL";"Grammar"]
-.sub "postfixish" :subid("34_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "postfixish" :subid("34_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx75_tgt
.local int rx75_pos
@@ -1541,7 +1602,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postfixish" :subid("35_1274564773.54721") :method
+.sub "!PREFIX__postfixish" :subid("35_1275117579.6042") :method
.annotate 'line', 5
$P77 = self."!PREFIX__!subrule"("OPER=postcircumfix", "")
$P78 = self."!PREFIX__!subrule"("OPER=postfix", "")
@@ -1553,7 +1614,7 @@
.namespace ["HLL";"Grammar"]
-.sub "nullterm" :subid("36_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "nullterm" :subid("36_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx83_tgt
.local int rx83_pos
@@ -1604,7 +1665,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__nullterm" :subid("37_1274564773.54721") :method
+.sub "!PREFIX__nullterm" :subid("37_1275117579.6042") :method
.annotate 'line', 5
new $P85, "ResizablePMCArray"
push $P85, ""
@@ -1613,7 +1674,7 @@
.namespace ["HLL";"Grammar"]
-.sub "nullterm_alt" :subid("38_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "nullterm_alt" :subid("38_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 5
.local string rx88_tgt
.local int rx88_pos
@@ -1671,7 +1732,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__nullterm_alt" :subid("39_1274564773.54721") :method
+.sub "!PREFIX__nullterm_alt" :subid("39_1275117579.6042") :method
.annotate 'line', 5
$P90 = self."!PREFIX__!subrule"("term", "")
new $P91, "ResizablePMCArray"
@@ -1681,7 +1742,7 @@
.namespace ["HLL";"Grammar"]
-.sub "nulltermish" :subid("40_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "nulltermish" :subid("40_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
new $P95, 'ExceptionHandler'
set_addr $P95, control_94
@@ -1708,7 +1769,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_delimited" :subid("41_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_delimited" :subid("41_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx104_tgt
.local int rx104_pos
@@ -1790,7 +1851,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_delimited" :subid("42_1274564773.54721") :method
+.sub "!PREFIX__quote_delimited" :subid("42_1275117579.6042") :method
.annotate 'line', 33
$P106 = self."!PREFIX__!subrule"("starter", "")
new $P107, "ResizablePMCArray"
@@ -1800,7 +1861,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_atom" :subid("43_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_atom" :subid("43_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx112_tgt
.local int rx112_pos
@@ -1891,7 +1952,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_atom" :subid("44_1274564773.54721") :method
+.sub "!PREFIX__quote_atom" :subid("44_1275117579.6042") :method
.annotate 'line', 33
new $P114, "ResizablePMCArray"
push $P114, ""
@@ -1900,7 +1961,7 @@
.namespace ["HLL";"Grammar"]
-.sub "decint" :subid("45_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "decint" :subid("45_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx122_tgt
.local int rx122_pos
@@ -1972,7 +2033,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__decint" :subid("46_1274564773.54721") :method
+.sub "!PREFIX__decint" :subid("46_1275117579.6042") :method
.annotate 'line', 33
new $P124, "ResizablePMCArray"
push $P124, ""
@@ -1981,7 +2042,7 @@
.namespace ["HLL";"Grammar"]
-.sub "decints" :subid("47_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "decints" :subid("47_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx129_tgt
.local int rx129_pos
@@ -2065,7 +2126,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__decints" :subid("48_1274564773.54721") :method
+.sub "!PREFIX__decints" :subid("48_1275117579.6042") :method
.annotate 'line', 33
new $P131, "ResizablePMCArray"
push $P131, ""
@@ -2074,7 +2135,7 @@
.namespace ["HLL";"Grammar"]
-.sub "hexint" :subid("49_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "hexint" :subid("49_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx136_tgt
.local int rx136_pos
@@ -2155,7 +2216,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__hexint" :subid("50_1274564773.54721") :method
+.sub "!PREFIX__hexint" :subid("50_1275117579.6042") :method
.annotate 'line', 33
new $P138, "ResizablePMCArray"
push $P138, ""
@@ -2164,7 +2225,7 @@
.namespace ["HLL";"Grammar"]
-.sub "hexints" :subid("51_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "hexints" :subid("51_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx145_tgt
.local int rx145_pos
@@ -2248,7 +2309,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__hexints" :subid("52_1274564773.54721") :method
+.sub "!PREFIX__hexints" :subid("52_1275117579.6042") :method
.annotate 'line', 33
new $P147, "ResizablePMCArray"
push $P147, ""
@@ -2257,7 +2318,7 @@
.namespace ["HLL";"Grammar"]
-.sub "octint" :subid("53_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "octint" :subid("53_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx152_tgt
.local int rx152_pos
@@ -2338,7 +2399,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__octint" :subid("54_1274564773.54721") :method
+.sub "!PREFIX__octint" :subid("54_1275117579.6042") :method
.annotate 'line', 33
new $P154, "ResizablePMCArray"
push $P154, ""
@@ -2347,7 +2408,7 @@
.namespace ["HLL";"Grammar"]
-.sub "octints" :subid("55_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "octints" :subid("55_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx161_tgt
.local int rx161_pos
@@ -2431,7 +2492,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__octints" :subid("56_1274564773.54721") :method
+.sub "!PREFIX__octints" :subid("56_1275117579.6042") :method
.annotate 'line', 33
new $P163, "ResizablePMCArray"
push $P163, ""
@@ -2440,7 +2501,7 @@
.namespace ["HLL";"Grammar"]
-.sub "binint" :subid("57_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "binint" :subid("57_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx168_tgt
.local int rx168_pos
@@ -2521,7 +2582,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__binint" :subid("58_1274564773.54721") :method
+.sub "!PREFIX__binint" :subid("58_1275117579.6042") :method
.annotate 'line', 33
new $P170, "ResizablePMCArray"
push $P170, ""
@@ -2530,7 +2591,7 @@
.namespace ["HLL";"Grammar"]
-.sub "binints" :subid("59_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "binints" :subid("59_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx177_tgt
.local int rx177_pos
@@ -2614,7 +2675,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__binints" :subid("60_1274564773.54721") :method
+.sub "!PREFIX__binints" :subid("60_1275117579.6042") :method
.annotate 'line', 33
new $P179, "ResizablePMCArray"
push $P179, ""
@@ -2623,7 +2684,7 @@
.namespace ["HLL";"Grammar"]
-.sub "integer" :subid("61_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "integer" :subid("61_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx184_tgt
.local int rx184_pos
@@ -2771,7 +2832,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__integer" :subid("62_1274564773.54721") :method
+.sub "!PREFIX__integer" :subid("62_1275117579.6042") :method
.annotate 'line', 33
$P186 = self."!PREFIX__!subrule"("VALUE=decint", "")
$P187 = self."!PREFIX__!subrule"("VALUE=decint", "0d")
@@ -2789,7 +2850,7 @@
.namespace ["HLL";"Grammar"]
-.sub "dec_number" :subid("63_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "dec_number" :subid("63_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx196_tgt
.local int rx196_pos
@@ -2968,7 +3029,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__dec_number" :subid("64_1274564773.54721") :method
+.sub "!PREFIX__dec_number" :subid("64_1275117579.6042") :method
.annotate 'line', 33
new $P198, "ResizablePMCArray"
push $P198, ""
@@ -2979,7 +3040,7 @@
.namespace ["HLL";"Grammar"]
-.sub "escale" :subid("65_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "escale" :subid("65_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx209_tgt
.local int rx209_pos
@@ -3056,7 +3117,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__escale" :subid("66_1274564773.54721") :method
+.sub "!PREFIX__escale" :subid("66_1275117579.6042") :method
.annotate 'line', 33
new $P211, "ResizablePMCArray"
push $P211, "e"
@@ -3066,7 +3127,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape" :subid("67_1274564773.54721") :method
+.sub "quote_escape" :subid("67_1275117579.6042") :method
.annotate 'line', 79
$P216 = self."!protoregex"("quote_escape")
.return ($P216)
@@ -3074,7 +3135,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape" :subid("68_1274564773.54721") :method
+.sub "!PREFIX__quote_escape" :subid("68_1275117579.6042") :method
.annotate 'line', 79
$P218 = self."!PREFIX__!protoregex"("quote_escape")
.return ($P218)
@@ -3082,7 +3143,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<backslash>" :subid("69_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<backslash>" :subid("69_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx220_tgt
.local int rx220_pos
@@ -3144,7 +3205,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<backslash>" :subid("70_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<backslash>" :subid("70_1275117579.6042") :method
.annotate 'line', 33
new $P222, "ResizablePMCArray"
push $P222, "\\\\"
@@ -3153,7 +3214,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<stopper>" :subid("71_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<stopper>" :subid("71_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx225_tgt
.local int rx225_pos
@@ -3222,7 +3283,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<stopper>" :subid("72_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<stopper>" :subid("72_1275117579.6042") :method
.annotate 'line', 33
new $P227, "ResizablePMCArray"
push $P227, "\\"
@@ -3231,7 +3292,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<bs>" :subid("73_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<bs>" :subid("73_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx230_tgt
.local int rx230_pos
@@ -3293,7 +3354,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<bs>" :subid("74_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<bs>" :subid("74_1275117579.6042") :method
.annotate 'line', 33
new $P232, "ResizablePMCArray"
push $P232, "\\b"
@@ -3302,7 +3363,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<nl>" :subid("75_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<nl>" :subid("75_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx235_tgt
.local int rx235_pos
@@ -3364,7 +3425,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<nl>" :subid("76_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<nl>" :subid("76_1275117579.6042") :method
.annotate 'line', 33
new $P237, "ResizablePMCArray"
push $P237, "\\n"
@@ -3373,7 +3434,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<cr>" :subid("77_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<cr>" :subid("77_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx240_tgt
.local int rx240_pos
@@ -3435,7 +3496,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<cr>" :subid("78_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<cr>" :subid("78_1275117579.6042") :method
.annotate 'line', 33
new $P242, "ResizablePMCArray"
push $P242, "\\r"
@@ -3444,7 +3505,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<tab>" :subid("79_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<tab>" :subid("79_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx245_tgt
.local int rx245_pos
@@ -3506,7 +3567,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<tab>" :subid("80_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<tab>" :subid("80_1275117579.6042") :method
.annotate 'line', 33
new $P247, "ResizablePMCArray"
push $P247, "\\t"
@@ -3515,7 +3576,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<ff>" :subid("81_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<ff>" :subid("81_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx250_tgt
.local int rx250_pos
@@ -3577,7 +3638,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<ff>" :subid("82_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<ff>" :subid("82_1275117579.6042") :method
.annotate 'line', 33
new $P252, "ResizablePMCArray"
push $P252, "\\f"
@@ -3586,7 +3647,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<hex>" :subid("83_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<hex>" :subid("83_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx255_tgt
.local int rx255_pos
@@ -3684,7 +3745,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<hex>" :subid("84_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<hex>" :subid("84_1275117579.6042") :method
.annotate 'line', 33
new $P257, "ResizablePMCArray"
push $P257, unicode:"\\x"
@@ -3693,7 +3754,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<oct>" :subid("85_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<oct>" :subid("85_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx261_tgt
.local int rx261_pos
@@ -3791,7 +3852,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<oct>" :subid("86_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<oct>" :subid("86_1275117579.6042") :method
.annotate 'line', 33
new $P263, "ResizablePMCArray"
push $P263, "\\o"
@@ -3800,7 +3861,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<chr>" :subid("87_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<chr>" :subid("87_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx267_tgt
.local int rx267_pos
@@ -3869,7 +3930,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<chr>" :subid("88_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<chr>" :subid("88_1275117579.6042") :method
.annotate 'line', 33
new $P269, "ResizablePMCArray"
push $P269, "\\c"
@@ -3878,7 +3939,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<0>" :subid("89_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<0>" :subid("89_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx272_tgt
.local int rx272_pos
@@ -3961,7 +4022,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<0>" :subid("90_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<0>" :subid("90_1275117579.6042") :method
.annotate 'line', 33
new $P274, "ResizablePMCArray"
push $P274, "\\0"
@@ -3970,13 +4031,13 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<misc>" :subid("91_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "quote_escape:sym<misc>" :subid("91_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
- .const 'Sub' $P297 = "95_1274564773.54721"
+ .const 'Sub' $P297 = "95_1275117579.6042"
capture_lex $P297
- .const 'Sub' $P290 = "94_1274564773.54721"
+ .const 'Sub' $P290 = "94_1275117579.6042"
capture_lex $P290
- .const 'Sub' $P285 = "93_1274564773.54721"
+ .const 'Sub' $P285 = "93_1275117579.6042"
capture_lex $P285
.local string rx278_tgt
.local int rx278_pos
@@ -4008,12 +4069,11 @@
rx278_cur."!mark_push"(0, rx278_pos, $I10)
rxscan281_done:
.annotate 'line', 99
- # rx pastnode subtype= negate=
rx278_cur."!cursor_pos"(rx278_pos)
find_lex $P282, unicode:"$\x{a2}"
$P283 = $P282."MATCH"()
store_lex "$/", $P283
- .const 'Sub' $P285 = "93_1274564773.54721"
+ .const 'Sub' $P285 = "93_1275117579.6042"
capture_lex $P285
$P286 = $P285()
# rx literal "\\"
@@ -4039,7 +4099,7 @@
.annotate 'line', 103
# rx subrule $P290 subtype=capture negate=
rx278_cur."!cursor_pos"(rx278_pos)
- .const 'Sub' $P290 = "94_1274564773.54721"
+ .const 'Sub' $P290 = "94_1275117579.6042"
capture_lex $P290
$P10 = rx278_cur.$P290()
unless $P10, rx278_fail
@@ -4069,12 +4129,11 @@
rxcap_293_fail:
goto rx278_fail
rxcap_293_done:
- # rx pastnode subtype= negate=
rx278_cur."!cursor_pos"(rx278_pos)
find_lex $P294, unicode:"$\x{a2}"
$P295 = $P294."MATCH"()
store_lex "$/", $P295
- .const 'Sub' $P297 = "95_1274564773.54721"
+ .const 'Sub' $P297 = "95_1275117579.6042"
capture_lex $P297
$P307 = $P297()
alt288_end:
@@ -4120,7 +4179,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<misc>" :subid("92_1274564773.54721") :method
+.sub "!PREFIX__quote_escape:sym<misc>" :subid("92_1275117579.6042") :method
.annotate 'line', 33
new $P280, "ResizablePMCArray"
push $P280, ""
@@ -4129,14 +4188,14 @@
.namespace ["HLL";"Grammar"]
-.sub "_block284" :anon :subid("93_1274564773.54721") :outer("91_1274564773.54721")
+.sub "_block284" :anon :subid("93_1275117579.6042") :outer("91_1275117579.6042")
.annotate 'line', 99
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "_block289" :anon :subid("94_1274564773.54721") :method :outer("91_1274564773.54721")
+.sub "_block289" :anon :subid("94_1275117579.6042") :method :outer("91_1275117579.6042")
.annotate 'line', 103
.local string rx291_tgt
.local int rx291_pos
@@ -4191,7 +4250,7 @@
.namespace ["HLL";"Grammar"]
-.sub "_block296" :anon :subid("95_1274564773.54721") :outer("91_1274564773.54721")
+.sub "_block296" :anon :subid("95_1275117579.6042") :outer("91_1275117579.6042")
.annotate 'line', 104
find_lex $P298, "$/"
$P299 = $P298."CURSOR"()
@@ -4214,9 +4273,9 @@
.namespace ["HLL";"Grammar"]
-.sub "charname" :subid("96_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "charname" :subid("96_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
- .const 'Sub' $P319 = "98_1274564773.54721"
+ .const 'Sub' $P319 = "98_1275117579.6042"
capture_lex $P319
.local string rx310_tgt
.local int rx310_pos
@@ -4294,7 +4353,7 @@
.annotate 'line', 113
# rx subrule "before" subtype=zerowidth negate=
rx310_cur."!cursor_pos"(rx310_pos)
- .const 'Sub' $P319 = "98_1274564773.54721"
+ .const 'Sub' $P319 = "98_1275117579.6042"
capture_lex $P319
$P10 = rx310_cur."before"($P319)
unless $P10, rx310_fail
@@ -4319,7 +4378,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charname" :subid("97_1274564773.54721") :method
+.sub "!PREFIX__charname" :subid("97_1275117579.6042") :method
.annotate 'line', 33
$P312 = self."!PREFIX__!subrule"("integer", "")
new $P313, "ResizablePMCArray"
@@ -4381,7 +4440,7 @@
.namespace ["HLL";"Grammar"]
-.sub "_block318" :anon :subid("98_1274564773.54721") :method :outer("96_1274564773.54721")
+.sub "_block318" :anon :subid("98_1275117579.6042") :method :outer("96_1275117579.6042")
.annotate 'line', 113
.local string rx320_tgt
.local int rx320_pos
@@ -4441,7 +4500,7 @@
.namespace ["HLL";"Grammar"]
-.sub "charnames" :subid("99_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "charnames" :subid("99_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx323_tgt
.local int rx323_pos
@@ -4525,7 +4584,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charnames" :subid("100_1274564773.54721") :method
+.sub "!PREFIX__charnames" :subid("100_1275117579.6042") :method
.annotate 'line', 33
new $P325, "ResizablePMCArray"
push $P325, ""
@@ -4534,7 +4593,7 @@
.namespace ["HLL";"Grammar"]
-.sub "charspec" :subid("101_1274564773.54721") :method :outer("11_1274564773.54721")
+.sub "charspec" :subid("101_1275117579.6042") :method :outer("11_1275117579.6042")
.annotate 'line', 33
.local string rx330_tgt
.local int rx330_pos
@@ -4664,7 +4723,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charspec" :subid("102_1274564773.54721") :method
+.sub "!PREFIX__charspec" :subid("102_1275117579.6042") :method
.annotate 'line', 33
$P332 = self."!PREFIX__!subrule"("", "")
$P333 = self."!PREFIX__!subrule"("charnames", "[")
@@ -4705,18 +4764,18 @@
.namespace ["HLL";"Grammar"]
-.sub "_block339" :load :anon :subid("103_1274564773.54721")
+.sub "_block339" :load :anon :subid("103_1275117579.6042")
.annotate 'line', 5
- .const 'Sub' $P341 = "11_1274564773.54721"
+ .const 'Sub' $P341 = "11_1275117579.6042"
$P342 = $P341()
.return ($P342)
.end
.namespace []
-.sub "_block344" :load :anon :subid("104_1274564773.54721")
+.sub "_block344" :load :anon :subid("104_1275117579.6042")
.annotate 'line', 1
- .const 'Sub' $P346 = "10_1274564773.54721"
+ .const 'Sub' $P346 = "10_1275117579.6042"
$P347 = $P346()
.return ($P347)
.end
@@ -4724,109 +4783,126 @@
### .include 'gen/hllgrammar-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564775.02458")
+.sub "_block11" :anon :subid("10_1275117587.37325")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Actions"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 3
get_hll_global $P14, ["HLL";"Actions"], "_block13"
capture_lex $P14
- $P575 = $P14()
+ $P620 = $P14()
.annotate 'line', 1
- .return ($P575)
- .const 'Sub' $P577 = "50_1274564775.02458"
- .return ($P577)
+ .return ($P620)
+ .const 'Sub' $P622 = "54_1275117587.37325"
+ .return ($P622)
.end
.namespace []
-.sub "" :load :init :subid("post51") :outer("10_1274564775.02458")
+.sub "" :load :init :subid("post55") :outer("10_1275117587.37325")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564775.02458"
+ .const 'Sub' $P12 = "10_1275117587.37325"
.local pmc block
set block, $P12
- $P580 = get_root_global ["parrot"], "P6metaclass"
- $P580."new_class"("HLL::Actions")
+ $P625 = get_root_global ["parrot"], "P6metaclass"
+ $P625."new_class"("HLL::Actions")
.end
.namespace ["HLL";"Actions"]
-.sub "_block13" :subid("11_1274564775.02458") :outer("10_1274564775.02458")
+.sub "_block13" :subid("11_1275117587.37325") :outer("10_1275117587.37325")
.annotate 'line', 3
- .const 'Sub' $P553 = "48_1274564775.02458"
- capture_lex $P553
- .const 'Sub' $P528 = "46_1274564775.02458"
- capture_lex $P528
- .const 'Sub' $P498 = "45_1274564775.02458"
- capture_lex $P498
- .const 'Sub' $P479 = "44_1274564775.02458"
- capture_lex $P479
- .const 'Sub' $P472 = "43_1274564775.02458"
- capture_lex $P472
- .const 'Sub' $P462 = "42_1274564775.02458"
- capture_lex $P462
- .const 'Sub' $P445 = "41_1274564775.02458"
+ .const 'Sub' $P598 = "52_1275117587.37325"
+ capture_lex $P598
+ .const 'Sub' $P573 = "50_1275117587.37325"
+ capture_lex $P573
+ .const 'Sub' $P543 = "49_1275117587.37325"
+ capture_lex $P543
+ .const 'Sub' $P524 = "48_1275117587.37325"
+ capture_lex $P524
+ .const 'Sub' $P517 = "47_1275117587.37325"
+ capture_lex $P517
+ .const 'Sub' $P507 = "46_1275117587.37325"
+ capture_lex $P507
+ .const 'Sub' $P490 = "45_1275117587.37325"
+ capture_lex $P490
+ .const 'Sub' $P473 = "44_1275117587.37325"
+ capture_lex $P473
+ .const 'Sub' $P466 = "43_1275117587.37325"
+ capture_lex $P466
+ .const 'Sub' $P459 = "42_1275117587.37325"
+ capture_lex $P459
+ .const 'Sub' $P452 = "41_1275117587.37325"
+ capture_lex $P452
+ .const 'Sub' $P445 = "40_1275117587.37325"
capture_lex $P445
- .const 'Sub' $P428 = "40_1274564775.02458"
+ .const 'Sub' $P438 = "39_1275117587.37325"
+ capture_lex $P438
+ .const 'Sub' $P428 = "38_1275117587.37325"
capture_lex $P428
- .const 'Sub' $P421 = "39_1274564775.02458"
+ .const 'Sub' $P421 = "37_1275117587.37325"
capture_lex $P421
- .const 'Sub' $P414 = "38_1274564775.02458"
- capture_lex $P414
- .const 'Sub' $P407 = "37_1274564775.02458"
- capture_lex $P407
- .const 'Sub' $P400 = "36_1274564775.02458"
- capture_lex $P400
- .const 'Sub' $P393 = "35_1274564775.02458"
- capture_lex $P393
- .const 'Sub' $P383 = "34_1274564775.02458"
- capture_lex $P383
- .const 'Sub' $P376 = "33_1274564775.02458"
- capture_lex $P376
- .const 'Sub' $P360 = "32_1274564775.02458"
- capture_lex $P360
- .const 'Sub' $P285 = "30_1274564775.02458"
- capture_lex $P285
- .const 'Sub' $P222 = "27_1274564775.02458"
+ .const 'Sub' $P405 = "36_1275117587.37325"
+ capture_lex $P405
+ .const 'Sub' $P330 = "34_1275117587.37325"
+ capture_lex $P330
+ .const 'Sub' $P267 = "31_1275117587.37325"
+ capture_lex $P267
+ .const 'Sub' $P258 = "30_1275117587.37325"
+ capture_lex $P258
+ .const 'Sub' $P249 = "29_1275117587.37325"
+ capture_lex $P249
+ .const 'Sub' $P240 = "28_1275117587.37325"
+ capture_lex $P240
+ .const 'Sub' $P231 = "27_1275117587.37325"
+ capture_lex $P231
+ .const 'Sub' $P222 = "26_1275117587.37325"
capture_lex $P222
- .const 'Sub' $P213 = "26_1274564775.02458"
- capture_lex $P213
- .const 'Sub' $P204 = "25_1274564775.02458"
- capture_lex $P204
- .const 'Sub' $P195 = "24_1274564775.02458"
- capture_lex $P195
- .const 'Sub' $P186 = "23_1274564775.02458"
- capture_lex $P186
- .const 'Sub' $P177 = "22_1274564775.02458"
- capture_lex $P177
- .const 'Sub' $P167 = "21_1274564775.02458"
- capture_lex $P167
- .const 'Sub' $P157 = "20_1274564775.02458"
- capture_lex $P157
- .const 'Sub' $P149 = "19_1274564775.02458"
- capture_lex $P149
- .const 'Sub' $P139 = "18_1274564775.02458"
- capture_lex $P139
- .const 'Sub' $P129 = "17_1274564775.02458"
- capture_lex $P129
- .const 'Sub' $P28 = "14_1274564775.02458"
+ .const 'Sub' $P212 = "25_1275117587.37325"
+ capture_lex $P212
+ .const 'Sub' $P202 = "24_1275117587.37325"
+ capture_lex $P202
+ .const 'Sub' $P194 = "23_1275117587.37325"
+ capture_lex $P194
+ .const 'Sub' $P184 = "22_1275117587.37325"
+ capture_lex $P184
+ .const 'Sub' $P174 = "21_1275117587.37325"
+ capture_lex $P174
+ .const 'Sub' $P73 = "18_1275117587.37325"
+ capture_lex $P73
+ .const 'Sub' $P35 = "15_1275117587.37325"
+ capture_lex $P35
+ .const 'Sub' $P28 = "14_1275117587.37325"
capture_lex $P28
- .const 'Sub' $P22 = "13_1274564775.02458"
+ .const 'Sub' $P22 = "13_1275117587.37325"
capture_lex $P22
- .const 'Sub' $P15 = "12_1274564775.02458"
+ .const 'Sub' $P15 = "12_1275117587.37325"
capture_lex $P15
-.annotate 'line', 197
- .const 'Sub' $P553 = "48_1274564775.02458"
- newclosure $P570, $P553
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
+.annotate 'line', 224
+ .const 'Sub' $P598 = "52_1275117587.37325"
+ newclosure $P615, $P598
.annotate 'line', 3
- .return ($P570)
- .const 'Sub' $P572 = "49_1274564775.02458"
- .return ($P572)
+ .return ($P615)
+ .const 'Sub' $P617 = "53_1275117587.37325"
+ .return ($P617)
.end
.namespace ["HLL";"Actions"]
-.sub "string_to_int" :subid("12_1274564775.02458") :outer("11_1274564775.02458")
+.sub "string_to_int" :subid("12_1275117587.37325") :outer("11_1275117587.37325")
.param pmc param_18
.param pmc param_19
.annotate 'line', 3
@@ -4879,7 +4955,7 @@
.namespace ["HLL";"Actions"]
-.sub "ints_to_string" :subid("13_1274564775.02458") :outer("11_1274564775.02458")
+.sub "ints_to_string" :subid("13_1275117587.37325") :outer("11_1275117587.37325")
.param pmc param_25
.annotate 'line', 37
new $P24, 'ExceptionHandler'
@@ -4920,539 +4996,574 @@
.namespace ["HLL";"Actions"]
-.sub "EXPR" :subid("14_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_31
- .param pmc param_32 :optional
- .param int has_param_32 :opt_flag
+.sub "CTXSAVE" :subid("14_1275117587.37325") :method :outer("11_1275117587.37325")
.annotate 'line', 62
- .const 'Sub' $P111 = "16_1274564775.02458"
- capture_lex $P111
- .const 'Sub' $P78 = "15_1274564775.02458"
- capture_lex $P78
new $P30, 'ExceptionHandler'
set_addr $P30, control_29
$P30."handle_types"(57)
push_eh $P30
.lex "self", self
- .lex "$/", param_31
- if has_param_32, optparam_52
- new $P33, "Undef"
- set param_32, $P33
- optparam_52:
- .lex "$key", param_32
-.annotate 'line', 64
- new $P34, "Undef"
- .lex "$past", $P34
.annotate 'line', 63
- find_lex $P36, "$key"
- if $P36, unless_35_end
- new $P37, "Exception"
- set $P37['type'], 57
- new $P38, "Integer"
- assign $P38, 0
- setattribute $P37, 'payload', $P38
- throw $P37
- unless_35_end:
-.annotate 'line', 64
- find_lex $P40, "$/"
- $P41 = $P40."ast"()
- set $P39, $P41
- defined $I43, $P39
- if $I43, default_42
- find_lex $P44, "$/"
- unless_null $P44, vivify_53
- $P44 = root_new ['parrot';'Hash']
- vivify_53:
- set $P45, $P44["OPER"]
- unless_null $P45, vivify_54
- new $P45, "Undef"
- vivify_54:
- $P46 = $P45."ast"()
- set $P39, $P46
- default_42:
- store_lex "$past", $P39
-.annotate 'line', 65
- find_lex $P48, "$past"
- if $P48, unless_47_end
-.annotate 'line', 66
- get_hll_global $P49, ["PAST"], "Op"
- find_lex $P50, "$/"
- $P51 = $P49."new"($P50 :named("node"))
- store_lex "$past", $P51
-.annotate 'line', 67
- find_lex $P53, "$/"
- unless_null $P53, vivify_55
- $P53 = root_new ['parrot';'Hash']
- vivify_55:
- set $P54, $P53["OPER"]
- unless_null $P54, vivify_56
- $P54 = root_new ['parrot';'Hash']
- vivify_56:
- set $P55, $P54["O"]
- unless_null $P55, vivify_57
- $P55 = root_new ['parrot';'Hash']
- vivify_57:
- set $P56, $P55["pasttype"]
- unless_null $P56, vivify_58
- new $P56, "Undef"
- vivify_58:
- if $P56, if_52
-.annotate 'line', 68
- find_lex $P64, "$/"
- unless_null $P64, vivify_59
- $P64 = root_new ['parrot';'Hash']
- vivify_59:
- set $P65, $P64["OPER"]
- unless_null $P65, vivify_60
- $P65 = root_new ['parrot';'Hash']
- vivify_60:
- set $P66, $P65["O"]
- unless_null $P66, vivify_61
- $P66 = root_new ['parrot';'Hash']
- vivify_61:
- set $P67, $P66["pirop"]
- unless_null $P67, vivify_62
- new $P67, "Undef"
- vivify_62:
- unless $P67, if_63_end
- find_lex $P68, "$past"
- find_lex $P69, "$/"
- unless_null $P69, vivify_63
- $P69 = root_new ['parrot';'Hash']
- vivify_63:
- set $P70, $P69["OPER"]
- unless_null $P70, vivify_64
- $P70 = root_new ['parrot';'Hash']
- vivify_64:
- set $P71, $P70["O"]
- unless_null $P71, vivify_65
- $P71 = root_new ['parrot';'Hash']
- vivify_65:
- set $P72, $P71["pirop"]
- unless_null $P72, vivify_66
- new $P72, "Undef"
- vivify_66:
- set $S73, $P72
- $P68."pirop"($S73)
- if_63_end:
- goto if_52_end
- if_52:
-.annotate 'line', 67
- find_lex $P57, "$past"
- find_lex $P58, "$/"
- unless_null $P58, vivify_67
- $P58 = root_new ['parrot';'Hash']
- vivify_67:
- set $P59, $P58["OPER"]
- unless_null $P59, vivify_68
- $P59 = root_new ['parrot';'Hash']
- vivify_68:
- set $P60, $P59["O"]
- unless_null $P60, vivify_69
- $P60 = root_new ['parrot';'Hash']
- vivify_69:
- set $P61, $P60["pasttype"]
- unless_null $P61, vivify_70
- new $P61, "Undef"
- vivify_70:
- set $S62, $P61
- $P57."pasttype"($S62)
- if_52_end:
+ get_hll_global $P31, ["PAST"], "Op"
.annotate 'line', 69
- find_lex $P75, "$past"
- $P76 = $P75."name"()
- if $P76, unless_74_end
- .const 'Sub' $P78 = "15_1274564775.02458"
- capture_lex $P78
- $P78()
- unless_74_end:
- unless_47_end:
-.annotate 'line', 80
- find_lex $P98, "$key"
- set $S99, $P98
- iseq $I100, $S99, "POSTFIX"
- if $I100, if_97
-.annotate 'line', 82
- find_lex $P106, "$/"
- $P107 = $P106."list"()
- defined $I108, $P107
- unless $I108, for_undef_74
- iter $P105, $P107
- new $P123, 'ExceptionHandler'
- set_addr $P123, loop122_handler
- $P123."handle_types"(64, 66, 65)
- push_eh $P123
- loop122_test:
- unless $P105, loop122_done
- shift $P109, $P105
- loop122_redo:
- .const 'Sub' $P111 = "16_1274564775.02458"
- capture_lex $P111
- $P111($P109)
- loop122_next:
- goto loop122_test
- loop122_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P124, exception, 'type'
- eq $P124, 64, loop122_next
- eq $P124, 66, loop122_redo
- loop122_done:
- pop_eh
- for_undef_74:
-.annotate 'line', 81
- goto if_97_end
- if_97:
-.annotate 'line', 80
- find_lex $P101, "$past"
- find_lex $P102, "$/"
- unless_null $P102, vivify_75
- $P102 = root_new ['parrot';'ResizablePMCArray']
- vivify_75:
- set $P103, $P102[0]
- unless_null $P103, vivify_76
- new $P103, "Undef"
- vivify_76:
- $P104 = $P103."ast"()
- $P101."unshift"($P104)
- if_97_end:
-.annotate 'line', 84
- find_lex $P125, "$/"
- find_lex $P126, "$past"
- $P127 = $P125."!make"($P126)
+ new $P32, "ResizablePMCArray"
+ push $P32, " $P0 = find_dynamic_lex \"$*CTXSAVE\""
+ push $P32, " if null $P0 goto ctxsave_done"
+ push $P32, " $I0 = can $P0, \"ctxsave\""
+ push $P32, " unless $I0 goto ctxsave_done"
+ push $P32, " $P0.\"ctxsave\"()"
+ push $P32, " ctxsave_done:"
+ $P33 = $P31."new"($P32 :named("inline"))
.annotate 'line', 62
- .return ($P127)
+ .return ($P33)
control_29:
.local pmc exception
.get_results (exception)
- getattribute $P128, exception, "payload"
- .return ($P128)
+ getattribute $P34, exception, "payload"
+ .return ($P34)
.end
.namespace ["HLL";"Actions"]
-.sub "_block77" :anon :subid("15_1274564775.02458") :outer("14_1274564775.02458")
-.annotate 'line', 71
- new $P79, "Undef"
- .lex "$name", $P79
-.annotate 'line', 70
- find_lex $P81, "$key"
- set $S82, $P81
- iseq $I83, $S82, "LIST"
- unless $I83, if_80_end
- new $P84, "String"
- assign $P84, "infix"
- store_lex "$key", $P84
- if_80_end:
-.annotate 'line', 71
-
- $P0 = find_lex '$key'
- $S0 = $P0
- $S0 = downcase $S0
- $P85 = box $S0
-
- concat $P86, $P85, ":<"
+.sub "SET_BLOCK_OUTER_CTX" :subid("15_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_38
.annotate 'line', 76
- find_lex $P87, "$/"
- unless_null $P87, vivify_71
- $P87 = root_new ['parrot';'Hash']
- vivify_71:
- set $P88, $P87["OPER"]
- unless_null $P88, vivify_72
- $P88 = root_new ['parrot';'Hash']
- vivify_72:
- set $P89, $P88["sym"]
- unless_null $P89, vivify_73
- new $P89, "Undef"
- vivify_73:
- concat $P90, $P86, $P89
- concat $P91, $P90, ">"
- store_lex "$name", $P91
+ .const 'Sub' $P48 = "16_1275117587.37325"
+ capture_lex $P48
+ new $P37, 'ExceptionHandler'
+ set_addr $P37, control_36
+ $P37."handle_types"(57)
+ push_eh $P37
+ .lex "self", self
+ .lex "$block", param_38
.annotate 'line', 77
- find_lex $P92, "$past"
- new $P93, "String"
- assign $P93, "&"
- find_lex $P94, "$name"
- concat $P95, $P93, $P94
- $P96 = $P92."name"($P95)
-.annotate 'line', 69
- .return ($P96)
+ new $P39, "Undef"
+ .lex "$outer_ctx", $P39
+ find_dynamic_lex $P40, "%*COMPILING"
+ unless_null $P40, vivify_56
+ get_hll_global $P40, "%COMPILING"
+ unless_null $P40, vivify_57
+ die "Contextual %*COMPILING not found"
+ vivify_57:
+ vivify_56:
+ set $P41, $P40["%?OPTIONS"]
+ unless_null $P41, vivify_58
+ $P41 = root_new ['parrot';'Hash']
+ vivify_58:
+ set $P42, $P41["outer_ctx"]
+ unless_null $P42, vivify_59
+ new $P42, "Undef"
+ vivify_59:
+ store_lex "$outer_ctx", $P42
+.annotate 'line', 78
+ find_lex $P45, "$outer_ctx"
+ defined $I46, $P45
+ if $I46, if_44
+ new $P43, 'Integer'
+ set $P43, $I46
+ goto if_44_end
+ if_44:
+ .const 'Sub' $P48 = "16_1275117587.37325"
+ capture_lex $P48
+ $P71 = $P48()
+ set $P43, $P71
+ if_44_end:
+.annotate 'line', 76
+ .return ($P43)
+ control_36:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P72, exception, "payload"
+ .return ($P72)
.end
.namespace ["HLL";"Actions"]
-.sub "_block110" :anon :subid("16_1274564775.02458") :outer("14_1274564775.02458")
- .param pmc param_112
+.sub "_block47" :anon :subid("16_1275117587.37325") :outer("15_1275117587.37325")
+.annotate 'line', 78
+ .const 'Sub' $P62 = "17_1275117587.37325"
+ capture_lex $P62
+.annotate 'line', 79
+ $P49 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@ns", $P49
+ find_lex $P50, "$outer_ctx"
+ getattribute $P51, $P50, "current_namespace"
+ $P52 = $P51."get_name"()
+ store_lex "@ns", $P52
+.annotate 'line', 80
+ find_lex $P53, "@ns"
+ $P53."shift"()
+.annotate 'line', 81
+ find_lex $P54, "$block"
+ find_lex $P55, "@ns"
+ $P54."namespace"($P55)
.annotate 'line', 82
- .lex "$_", param_112
- find_lex $P115, "$_"
- $P116 = $P115."ast"()
- defined $I117, $P116
- if $I117, if_114
- new $P113, 'Integer'
- set $P113, $I117
- goto if_114_end
- if_114:
- find_lex $P118, "$past"
- find_lex $P119, "$_"
- $P120 = $P119."ast"()
- $P121 = $P118."push"($P120)
- set $P113, $P121
- if_114_end:
- .return ($P113)
-.end
-
-
-.namespace ["HLL";"Actions"]
-.sub "term:sym<circumfix>" :subid("17_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_132
-.annotate 'line', 87
- new $P131, 'ExceptionHandler'
- set_addr $P131, control_130
- $P131."handle_types"(57)
- push_eh $P131
- .lex "self", self
- .lex "$/", param_132
- find_lex $P133, "$/"
- find_lex $P134, "$/"
- unless_null $P134, vivify_77
- $P134 = root_new ['parrot';'Hash']
- vivify_77:
- set $P135, $P134["circumfix"]
- unless_null $P135, vivify_78
- new $P135, "Undef"
- vivify_78:
- $P136 = $P135."ast"()
- $P137 = $P133."!make"($P136)
- .return ($P137)
- control_130:
+ find_lex $P57, "$outer_ctx"
+ $P58 = $P57."lexpad_full"()
+ defined $I59, $P58
+ unless $I59, for_undef_60
+ iter $P56, $P58
+ new $P69, 'ExceptionHandler'
+ set_addr $P69, loop68_handler
+ $P69."handle_types"(64, 66, 65)
+ push_eh $P69
+ loop68_test:
+ unless $P56, loop68_done
+ shift $P60, $P56
+ loop68_redo:
+ .const 'Sub' $P62 = "17_1275117587.37325"
+ capture_lex $P62
+ $P62($P60)
+ loop68_next:
+ goto loop68_test
+ loop68_handler:
.local pmc exception
.get_results (exception)
- getattribute $P138, exception, "payload"
- .return ($P138)
+ getattribute $P70, exception, 'type'
+ eq $P70, 64, loop68_next
+ eq $P70, 66, loop68_redo
+ loop68_done:
+ pop_eh
+ for_undef_60:
+.annotate 'line', 78
+ .return ($P56)
.end
.namespace ["HLL";"Actions"]
-.sub "termish" :subid("18_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_142
-.annotate 'line', 89
- new $P141, 'ExceptionHandler'
- set_addr $P141, control_140
- $P141."handle_types"(57)
- push_eh $P141
- .lex "self", self
- .lex "$/", param_142
- find_lex $P143, "$/"
- find_lex $P144, "$/"
- unless_null $P144, vivify_79
- $P144 = root_new ['parrot';'Hash']
- vivify_79:
- set $P145, $P144["term"]
- unless_null $P145, vivify_80
- new $P145, "Undef"
- vivify_80:
- $P146 = $P145."ast"()
- $P147 = $P143."!make"($P146)
- .return ($P147)
- control_140:
- .local pmc exception
- .get_results (exception)
- getattribute $P148, exception, "payload"
- .return ($P148)
+.sub "_block61" :anon :subid("17_1275117587.37325") :outer("16_1275117587.37325")
+ .param pmc param_63
+.annotate 'line', 82
+ .lex "$_", param_63
+.annotate 'line', 83
+ find_lex $P64, "$block"
+ find_lex $P65, "$_"
+ $P66 = $P65."key"()
+ $P67 = $P64."symbol"($P66, "lexical" :named("scope"))
+.annotate 'line', 82
+ .return ($P67)
.end
.namespace ["HLL";"Actions"]
-.sub "nullterm" :subid("19_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_152
-.annotate 'line', 90
- new $P151, 'ExceptionHandler'
- set_addr $P151, control_150
- $P151."handle_types"(57)
- push_eh $P151
+.sub "EXPR" :subid("18_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_76
+ .param pmc param_77 :optional
+ .param int has_param_77 :opt_flag
+.annotate 'line', 89
+ .const 'Sub' $P156 = "20_1275117587.37325"
+ capture_lex $P156
+ .const 'Sub' $P123 = "19_1275117587.37325"
+ capture_lex $P123
+ new $P75, 'ExceptionHandler'
+ set_addr $P75, control_74
+ $P75."handle_types"(57)
+ push_eh $P75
.lex "self", self
- .lex "$/", param_152
- find_lex $P153, "$/"
- $P154 = new ['Undef']
- $P155 = $P153."!make"($P154)
- .return ($P155)
- control_150:
+ .lex "$/", param_76
+ if has_param_77, optparam_61
+ new $P78, "Undef"
+ set param_77, $P78
+ optparam_61:
+ .lex "$key", param_77
+.annotate 'line', 91
+ new $P79, "Undef"
+ .lex "$past", $P79
+.annotate 'line', 90
+ find_lex $P81, "$key"
+ if $P81, unless_80_end
+ new $P82, "Exception"
+ set $P82['type'], 57
+ new $P83, "Integer"
+ assign $P83, 0
+ setattribute $P82, 'payload', $P83
+ throw $P82
+ unless_80_end:
+.annotate 'line', 91
+ find_lex $P85, "$/"
+ $P86 = $P85."ast"()
+ set $P84, $P86
+ defined $I88, $P84
+ if $I88, default_87
+ find_lex $P89, "$/"
+ unless_null $P89, vivify_62
+ $P89 = root_new ['parrot';'Hash']
+ vivify_62:
+ set $P90, $P89["OPER"]
+ unless_null $P90, vivify_63
+ new $P90, "Undef"
+ vivify_63:
+ $P91 = $P90."ast"()
+ set $P84, $P91
+ default_87:
+ store_lex "$past", $P84
+.annotate 'line', 92
+ find_lex $P93, "$past"
+ if $P93, unless_92_end
+.annotate 'line', 93
+ get_hll_global $P94, ["PAST"], "Op"
+ find_lex $P95, "$/"
+ $P96 = $P94."new"($P95 :named("node"))
+ store_lex "$past", $P96
+.annotate 'line', 94
+ find_lex $P98, "$/"
+ unless_null $P98, vivify_64
+ $P98 = root_new ['parrot';'Hash']
+ vivify_64:
+ set $P99, $P98["OPER"]
+ unless_null $P99, vivify_65
+ $P99 = root_new ['parrot';'Hash']
+ vivify_65:
+ set $P100, $P99["O"]
+ unless_null $P100, vivify_66
+ $P100 = root_new ['parrot';'Hash']
+ vivify_66:
+ set $P101, $P100["pasttype"]
+ unless_null $P101, vivify_67
+ new $P101, "Undef"
+ vivify_67:
+ if $P101, if_97
+.annotate 'line', 95
+ find_lex $P109, "$/"
+ unless_null $P109, vivify_68
+ $P109 = root_new ['parrot';'Hash']
+ vivify_68:
+ set $P110, $P109["OPER"]
+ unless_null $P110, vivify_69
+ $P110 = root_new ['parrot';'Hash']
+ vivify_69:
+ set $P111, $P110["O"]
+ unless_null $P111, vivify_70
+ $P111 = root_new ['parrot';'Hash']
+ vivify_70:
+ set $P112, $P111["pirop"]
+ unless_null $P112, vivify_71
+ new $P112, "Undef"
+ vivify_71:
+ unless $P112, if_108_end
+ find_lex $P113, "$past"
+ find_lex $P114, "$/"
+ unless_null $P114, vivify_72
+ $P114 = root_new ['parrot';'Hash']
+ vivify_72:
+ set $P115, $P114["OPER"]
+ unless_null $P115, vivify_73
+ $P115 = root_new ['parrot';'Hash']
+ vivify_73:
+ set $P116, $P115["O"]
+ unless_null $P116, vivify_74
+ $P116 = root_new ['parrot';'Hash']
+ vivify_74:
+ set $P117, $P116["pirop"]
+ unless_null $P117, vivify_75
+ new $P117, "Undef"
+ vivify_75:
+ set $S118, $P117
+ $P113."pirop"($S118)
+ if_108_end:
+ goto if_97_end
+ if_97:
+.annotate 'line', 94
+ find_lex $P102, "$past"
+ find_lex $P103, "$/"
+ unless_null $P103, vivify_76
+ $P103 = root_new ['parrot';'Hash']
+ vivify_76:
+ set $P104, $P103["OPER"]
+ unless_null $P104, vivify_77
+ $P104 = root_new ['parrot';'Hash']
+ vivify_77:
+ set $P105, $P104["O"]
+ unless_null $P105, vivify_78
+ $P105 = root_new ['parrot';'Hash']
+ vivify_78:
+ set $P106, $P105["pasttype"]
+ unless_null $P106, vivify_79
+ new $P106, "Undef"
+ vivify_79:
+ set $S107, $P106
+ $P102."pasttype"($S107)
+ if_97_end:
+.annotate 'line', 96
+ find_lex $P120, "$past"
+ $P121 = $P120."name"()
+ if $P121, unless_119_end
+ .const 'Sub' $P123 = "19_1275117587.37325"
+ capture_lex $P123
+ $P123()
+ unless_119_end:
+ unless_92_end:
+.annotate 'line', 107
+ find_lex $P143, "$key"
+ set $S144, $P143
+ iseq $I145, $S144, "POSTFIX"
+ if $I145, if_142
+.annotate 'line', 109
+ find_lex $P151, "$/"
+ $P152 = $P151."list"()
+ defined $I153, $P152
+ unless $I153, for_undef_83
+ iter $P150, $P152
+ new $P168, 'ExceptionHandler'
+ set_addr $P168, loop167_handler
+ $P168."handle_types"(64, 66, 65)
+ push_eh $P168
+ loop167_test:
+ unless $P150, loop167_done
+ shift $P154, $P150
+ loop167_redo:
+ .const 'Sub' $P156 = "20_1275117587.37325"
+ capture_lex $P156
+ $P156($P154)
+ loop167_next:
+ goto loop167_test
+ loop167_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P169, exception, 'type'
+ eq $P169, 64, loop167_next
+ eq $P169, 66, loop167_redo
+ loop167_done:
+ pop_eh
+ for_undef_83:
+.annotate 'line', 108
+ goto if_142_end
+ if_142:
+.annotate 'line', 107
+ find_lex $P146, "$past"
+ find_lex $P147, "$/"
+ unless_null $P147, vivify_84
+ $P147 = root_new ['parrot';'ResizablePMCArray']
+ vivify_84:
+ set $P148, $P147[0]
+ unless_null $P148, vivify_85
+ new $P148, "Undef"
+ vivify_85:
+ $P149 = $P148."ast"()
+ $P146."unshift"($P149)
+ if_142_end:
+.annotate 'line', 111
+ find_lex $P170, "$/"
+ find_lex $P171, "$past"
+ $P172 = $P170."!make"($P171)
+.annotate 'line', 89
+ .return ($P172)
+ control_74:
.local pmc exception
.get_results (exception)
- getattribute $P156, exception, "payload"
- .return ($P156)
+ getattribute $P173, exception, "payload"
+ .return ($P173)
.end
.namespace ["HLL";"Actions"]
-.sub "nullterm_alt" :subid("20_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_160
-.annotate 'line', 91
- new $P159, 'ExceptionHandler'
- set_addr $P159, control_158
- $P159."handle_types"(57)
- push_eh $P159
- .lex "self", self
- .lex "$/", param_160
- find_lex $P161, "$/"
- find_lex $P162, "$/"
- unless_null $P162, vivify_81
- $P162 = root_new ['parrot';'Hash']
+.sub "_block122" :anon :subid("19_1275117587.37325") :outer("18_1275117587.37325")
+.annotate 'line', 98
+ new $P124, "Undef"
+ .lex "$name", $P124
+.annotate 'line', 97
+ find_lex $P126, "$key"
+ set $S127, $P126
+ iseq $I128, $S127, "LIST"
+ unless $I128, if_125_end
+ new $P129, "String"
+ assign $P129, "infix"
+ store_lex "$key", $P129
+ if_125_end:
+.annotate 'line', 98
+
+ $P0 = find_lex '$key'
+ $S0 = $P0
+ $S0 = downcase $S0
+ $P130 = box $S0
+
+ concat $P131, $P130, ":<"
+.annotate 'line', 103
+ find_lex $P132, "$/"
+ unless_null $P132, vivify_80
+ $P132 = root_new ['parrot';'Hash']
+ vivify_80:
+ set $P133, $P132["OPER"]
+ unless_null $P133, vivify_81
+ $P133 = root_new ['parrot';'Hash']
vivify_81:
- set $P163, $P162["term"]
- unless_null $P163, vivify_82
- new $P163, "Undef"
+ set $P134, $P133["sym"]
+ unless_null $P134, vivify_82
+ new $P134, "Undef"
vivify_82:
- $P164 = $P163."ast"()
- $P165 = $P161."!make"($P164)
- .return ($P165)
- control_158:
- .local pmc exception
- .get_results (exception)
- getattribute $P166, exception, "payload"
- .return ($P166)
+ concat $P135, $P131, $P134
+ concat $P136, $P135, ">"
+ store_lex "$name", $P136
+.annotate 'line', 104
+ find_lex $P137, "$past"
+ new $P138, "String"
+ assign $P138, "&"
+ find_lex $P139, "$name"
+ concat $P140, $P138, $P139
+ $P141 = $P137."name"($P140)
+.annotate 'line', 96
+ .return ($P141)
.end
.namespace ["HLL";"Actions"]
-.sub "integer" :subid("21_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_170
-.annotate 'line', 93
- new $P169, 'ExceptionHandler'
- set_addr $P169, control_168
- $P169."handle_types"(57)
- push_eh $P169
- .lex "self", self
- .lex "$/", param_170
- find_lex $P171, "$/"
- find_lex $P172, "$/"
- unless_null $P172, vivify_83
- $P172 = root_new ['parrot';'Hash']
- vivify_83:
- set $P173, $P172["VALUE"]
- unless_null $P173, vivify_84
- new $P173, "Undef"
- vivify_84:
- $P174 = $P173."ast"()
- $P175 = $P171."!make"($P174)
- .return ($P175)
- control_168:
- .local pmc exception
- .get_results (exception)
- getattribute $P176, exception, "payload"
- .return ($P176)
+.sub "_block155" :anon :subid("20_1275117587.37325") :outer("18_1275117587.37325")
+ .param pmc param_157
+.annotate 'line', 109
+ .lex "$_", param_157
+ find_lex $P160, "$_"
+ $P161 = $P160."ast"()
+ defined $I162, $P161
+ if $I162, if_159
+ new $P158, 'Integer'
+ set $P158, $I162
+ goto if_159_end
+ if_159:
+ find_lex $P163, "$past"
+ find_lex $P164, "$_"
+ $P165 = $P164."ast"()
+ $P166 = $P163."push"($P165)
+ set $P158, $P166
+ if_159_end:
+ .return ($P158)
.end
.namespace ["HLL";"Actions"]
-.sub "dec_number" :subid("22_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_180
-.annotate 'line', 95
- new $P179, 'ExceptionHandler'
- set_addr $P179, control_178
- $P179."handle_types"(57)
- push_eh $P179
+.sub "term:sym<circumfix>" :subid("21_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_177
+.annotate 'line', 114
+ new $P176, 'ExceptionHandler'
+ set_addr $P176, control_175
+ $P176."handle_types"(57)
+ push_eh $P176
.lex "self", self
- .lex "$/", param_180
- find_lex $P181, "$/"
- find_lex $P182, "$/"
- set $N183, $P182
- $P184 = $P181."!make"($N183)
- .return ($P184)
- control_178:
+ .lex "$/", param_177
+ find_lex $P178, "$/"
+ find_lex $P179, "$/"
+ unless_null $P179, vivify_86
+ $P179 = root_new ['parrot';'Hash']
+ vivify_86:
+ set $P180, $P179["circumfix"]
+ unless_null $P180, vivify_87
+ new $P180, "Undef"
+ vivify_87:
+ $P181 = $P180."ast"()
+ $P182 = $P178."!make"($P181)
+ .return ($P182)
+ control_175:
.local pmc exception
.get_results (exception)
- getattribute $P185, exception, "payload"
- .return ($P185)
+ getattribute $P183, exception, "payload"
+ .return ($P183)
.end
.namespace ["HLL";"Actions"]
-.sub "decint" :subid("23_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_189
-.annotate 'line', 97
- new $P188, 'ExceptionHandler'
- set_addr $P188, control_187
- $P188."handle_types"(57)
- push_eh $P188
- .lex "self", self
- .lex "$/", param_189
- find_lex $P190, "$/"
- find_lex $P191, "$/"
- $P192 = "string_to_int"($P191, 10)
- $P193 = $P190."!make"($P192)
- .return ($P193)
- control_187:
+.sub "termish" :subid("22_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_187
+.annotate 'line', 116
+ new $P186, 'ExceptionHandler'
+ set_addr $P186, control_185
+ $P186."handle_types"(57)
+ push_eh $P186
+ .lex "self", self
+ .lex "$/", param_187
+ find_lex $P188, "$/"
+ find_lex $P189, "$/"
+ unless_null $P189, vivify_88
+ $P189 = root_new ['parrot';'Hash']
+ vivify_88:
+ set $P190, $P189["term"]
+ unless_null $P190, vivify_89
+ new $P190, "Undef"
+ vivify_89:
+ $P191 = $P190."ast"()
+ $P192 = $P188."!make"($P191)
+ .return ($P192)
+ control_185:
.local pmc exception
.get_results (exception)
- getattribute $P194, exception, "payload"
- .return ($P194)
+ getattribute $P193, exception, "payload"
+ .return ($P193)
.end
.namespace ["HLL";"Actions"]
-.sub "hexint" :subid("24_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_198
-.annotate 'line', 98
- new $P197, 'ExceptionHandler'
- set_addr $P197, control_196
- $P197."handle_types"(57)
- push_eh $P197
+.sub "nullterm" :subid("23_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_197
+.annotate 'line', 117
+ new $P196, 'ExceptionHandler'
+ set_addr $P196, control_195
+ $P196."handle_types"(57)
+ push_eh $P196
.lex "self", self
- .lex "$/", param_198
- find_lex $P199, "$/"
- find_lex $P200, "$/"
- $P201 = "string_to_int"($P200, 16)
- $P202 = $P199."!make"($P201)
- .return ($P202)
- control_196:
+ .lex "$/", param_197
+ find_lex $P198, "$/"
+ $P199 = new ['Undef']
+ $P200 = $P198."!make"($P199)
+ .return ($P200)
+ control_195:
.local pmc exception
.get_results (exception)
- getattribute $P203, exception, "payload"
- .return ($P203)
+ getattribute $P201, exception, "payload"
+ .return ($P201)
.end
.namespace ["HLL";"Actions"]
-.sub "octint" :subid("25_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_207
-.annotate 'line', 99
- new $P206, 'ExceptionHandler'
- set_addr $P206, control_205
- $P206."handle_types"(57)
- push_eh $P206
- .lex "self", self
- .lex "$/", param_207
- find_lex $P208, "$/"
- find_lex $P209, "$/"
- $P210 = "string_to_int"($P209, 8)
- $P211 = $P208."!make"($P210)
- .return ($P211)
- control_205:
+.sub "nullterm_alt" :subid("24_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_205
+.annotate 'line', 118
+ new $P204, 'ExceptionHandler'
+ set_addr $P204, control_203
+ $P204."handle_types"(57)
+ push_eh $P204
+ .lex "self", self
+ .lex "$/", param_205
+ find_lex $P206, "$/"
+ find_lex $P207, "$/"
+ unless_null $P207, vivify_90
+ $P207 = root_new ['parrot';'Hash']
+ vivify_90:
+ set $P208, $P207["term"]
+ unless_null $P208, vivify_91
+ new $P208, "Undef"
+ vivify_91:
+ $P209 = $P208."ast"()
+ $P210 = $P206."!make"($P209)
+ .return ($P210)
+ control_203:
.local pmc exception
.get_results (exception)
- getattribute $P212, exception, "payload"
- .return ($P212)
+ getattribute $P211, exception, "payload"
+ .return ($P211)
.end
.namespace ["HLL";"Actions"]
-.sub "binint" :subid("26_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_216
-.annotate 'line', 100
- new $P215, 'ExceptionHandler'
- set_addr $P215, control_214
- $P215."handle_types"(57)
- push_eh $P215
+.sub "integer" :subid("25_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_215
+.annotate 'line', 120
+ new $P214, 'ExceptionHandler'
+ set_addr $P214, control_213
+ $P214."handle_types"(57)
+ push_eh $P214
.lex "self", self
- .lex "$/", param_216
+ .lex "$/", param_215
+ find_lex $P216, "$/"
find_lex $P217, "$/"
- find_lex $P218, "$/"
- $P219 = "string_to_int"($P218, 2)
- $P220 = $P217."!make"($P219)
+ unless_null $P217, vivify_92
+ $P217 = root_new ['parrot';'Hash']
+ vivify_92:
+ set $P218, $P217["VALUE"]
+ unless_null $P218, vivify_93
+ new $P218, "Undef"
+ vivify_93:
+ $P219 = $P218."ast"()
+ $P220 = $P216."!make"($P219)
.return ($P220)
- control_214:
+ control_213:
.local pmc exception
.get_results (exception)
getattribute $P221, exception, "payload"
@@ -5461,537 +5572,517 @@
.namespace ["HLL";"Actions"]
-.sub "quote_EXPR" :subid("27_1274564775.02458") :method :outer("11_1274564775.02458")
+.sub "dec_number" :subid("26_1275117587.37325") :method :outer("11_1275117587.37325")
.param pmc param_225
-.annotate 'line', 102
- .const 'Sub' $P241 = "28_1274564775.02458"
- capture_lex $P241
+.annotate 'line', 122
new $P224, 'ExceptionHandler'
set_addr $P224, control_223
$P224."handle_types"(57)
push_eh $P224
.lex "self", self
.lex "$/", param_225
-.annotate 'line', 103
- new $P226, "Undef"
- .lex "$past", $P226
+ find_lex $P226, "$/"
find_lex $P227, "$/"
- unless_null $P227, vivify_85
- $P227 = root_new ['parrot';'Hash']
- vivify_85:
- set $P228, $P227["quote_delimited"]
- unless_null $P228, vivify_86
- new $P228, "Undef"
- vivify_86:
- $P229 = $P228."ast"()
- store_lex "$past", $P229
-.annotate 'line', 104
- find_lex $P231, "$/"
- $P232 = $P231."CURSOR"()
- $P233 = $P232."quotemod_check"("w")
- unless $P233, if_230_end
-.annotate 'line', 105
- get_hll_global $P235, ["PAST"], "Node"
- find_lex $P236, "$past"
- $P237 = $P235."ACCEPTS"($P236)
- if $P237, if_234
-.annotate 'line', 108
- .const 'Sub' $P241 = "28_1274564775.02458"
- capture_lex $P241
- $P241()
- goto if_234_end
- if_234:
-.annotate 'line', 106
- find_lex $P238, "$/"
- $P239 = $P238."CURSOR"()
- $P239."panic"("Can't form :w list from non-constant strings (yet)")
- if_234_end:
- if_230_end:
-.annotate 'line', 119
- get_hll_global $P273, ["PAST"], "Node"
- find_lex $P274, "$past"
- $P275 = $P273."ACCEPTS"($P274)
- isfalse $I276, $P275
- unless $I276, if_272_end
-.annotate 'line', 120
- get_hll_global $P277, ["PAST"], "Val"
- find_lex $P278, "$past"
- set $S279, $P278
- $P280 = $P277."new"($S279 :named("value"))
- store_lex "$past", $P280
- if_272_end:
-.annotate 'line', 122
- find_lex $P281, "$/"
- find_lex $P282, "$past"
- $P283 = $P281."!make"($P282)
-.annotate 'line', 102
- .return ($P283)
+ set $N228, $P227
+ $P229 = $P226."!make"($N228)
+ .return ($P229)
control_223:
.local pmc exception
.get_results (exception)
- getattribute $P284, exception, "payload"
- .return ($P284)
+ getattribute $P230, exception, "payload"
+ .return ($P230)
.end
.namespace ["HLL";"Actions"]
-.sub "_block240" :anon :subid("28_1274564775.02458") :outer("27_1274564775.02458")
-.annotate 'line', 108
- .const 'Sub' $P260 = "29_1274564775.02458"
- capture_lex $P260
-.annotate 'line', 109
- $P242 = root_new ['parrot';'ResizablePMCArray']
- .lex "@words", $P242
- get_hll_global $P243, ["HLL";"Grammar"], "split_words"
- find_lex $P244, "$/"
- find_lex $P245, "$past"
- $P246 = $P243($P244, $P245)
- store_lex "@words", $P246
-.annotate 'line', 110
- find_lex $P249, "@words"
- set $N250, $P249
- isgt $I251, $N250, 1.0
- if $I251, if_248
-.annotate 'line', 115
- find_lex $P268, "@words"
- unless_null $P268, vivify_87
- $P268 = root_new ['parrot';'ResizablePMCArray']
- vivify_87:
- set $P269, $P268[0]
- unless_null $P269, vivify_88
- new $P269, "Undef"
- vivify_88:
- set $S270, $P269
- new $P271, 'String'
- set $P271, $S270
- store_lex "$past", $P271
-.annotate 'line', 114
- set $P247, $P271
-.annotate 'line', 110
- goto if_248_end
- if_248:
-.annotate 'line', 111
- get_hll_global $P252, ["PAST"], "Op"
- find_lex $P253, "$/"
- $P254 = $P252."new"("list" :named("pasttype"), $P253 :named("node"))
- store_lex "$past", $P254
-.annotate 'line', 112
- find_lex $P256, "@words"
- defined $I257, $P256
- unless $I257, for_undef_89
- iter $P255, $P256
- new $P266, 'ExceptionHandler'
- set_addr $P266, loop265_handler
- $P266."handle_types"(64, 66, 65)
- push_eh $P266
- loop265_test:
- unless $P255, loop265_done
- shift $P258, $P255
- loop265_redo:
- .const 'Sub' $P260 = "29_1274564775.02458"
- capture_lex $P260
- $P260($P258)
- loop265_next:
- goto loop265_test
- loop265_handler:
+.sub "decint" :subid("27_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_234
+.annotate 'line', 124
+ new $P233, 'ExceptionHandler'
+ set_addr $P233, control_232
+ $P233."handle_types"(57)
+ push_eh $P233
+ .lex "self", self
+ .lex "$/", param_234
+ find_lex $P235, "$/"
+ find_lex $P236, "$/"
+ $P237 = "string_to_int"($P236, 10)
+ $P238 = $P235."!make"($P237)
+ .return ($P238)
+ control_232:
.local pmc exception
.get_results (exception)
- getattribute $P267, exception, 'type'
- eq $P267, 64, loop265_next
- eq $P267, 66, loop265_redo
- loop265_done:
- pop_eh
- for_undef_89:
-.annotate 'line', 110
- set $P247, $P255
- if_248_end:
-.annotate 'line', 108
- .return ($P247)
-.end
-
-
-.namespace ["HLL";"Actions"]
-.sub "_block259" :anon :subid("29_1274564775.02458") :outer("28_1274564775.02458")
- .param pmc param_261
-.annotate 'line', 112
- .lex "$_", param_261
- find_lex $P262, "$past"
- find_lex $P263, "$_"
- $P264 = $P262."push"($P263)
- .return ($P264)
+ getattribute $P239, exception, "payload"
+ .return ($P239)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_delimited" :subid("30_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_288
+.sub "hexint" :subid("28_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_243
.annotate 'line', 125
- .const 'Sub' $P300 = "31_1274564775.02458"
- capture_lex $P300
- new $P287, 'ExceptionHandler'
- set_addr $P287, control_286
- $P287."handle_types"(57)
- push_eh $P287
+ new $P242, 'ExceptionHandler'
+ set_addr $P242, control_241
+ $P242."handle_types"(57)
+ push_eh $P242
.lex "self", self
- .lex "$/", param_288
-.annotate 'line', 126
- $P289 = root_new ['parrot';'ResizablePMCArray']
- .lex "@parts", $P289
-.annotate 'line', 127
- new $P290, "Undef"
- .lex "$lastlit", $P290
-.annotate 'line', 143
- new $P291, "Undef"
- .lex "$past", $P291
-.annotate 'line', 125
- find_lex $P292, "@parts"
-.annotate 'line', 127
- new $P293, "String"
- assign $P293, ""
- store_lex "$lastlit", $P293
-.annotate 'line', 128
- find_lex $P295, "$/"
- unless_null $P295, vivify_90
- $P295 = root_new ['parrot';'Hash']
- vivify_90:
- set $P296, $P295["quote_atom"]
- unless_null $P296, vivify_91
- new $P296, "Undef"
- vivify_91:
- defined $I297, $P296
- unless $I297, for_undef_92
- iter $P294, $P296
- new $P333, 'ExceptionHandler'
- set_addr $P333, loop332_handler
- $P333."handle_types"(64, 66, 65)
- push_eh $P333
- loop332_test:
- unless $P294, loop332_done
- shift $P298, $P294
- loop332_redo:
- .const 'Sub' $P300 = "31_1274564775.02458"
- capture_lex $P300
- $P300($P298)
- loop332_next:
- goto loop332_test
- loop332_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P334, exception, 'type'
- eq $P334, 64, loop332_next
- eq $P334, 66, loop332_redo
- loop332_done:
- pop_eh
- for_undef_92:
-.annotate 'line', 142
- find_lex $P336, "$lastlit"
- set $S337, $P336
- isgt $I338, $S337, ""
- unless $I338, if_335_end
- find_lex $P339, "@parts"
- find_lex $P340, "$lastlit"
- $P339."push"($P340)
- if_335_end:
-.annotate 'line', 143
- find_lex $P343, "@parts"
- if $P343, if_342
- new $P346, "String"
- assign $P346, ""
- set $P341, $P346
- goto if_342_end
- if_342:
- find_lex $P344, "@parts"
- $P345 = $P344."shift"()
- set $P341, $P345
- if_342_end:
- store_lex "$past", $P341
-.annotate 'line', 144
- new $P354, 'ExceptionHandler'
- set_addr $P354, loop353_handler
- $P354."handle_types"(64, 66, 65)
- push_eh $P354
- loop353_test:
- find_lex $P347, "@parts"
- unless $P347, loop353_done
- loop353_redo:
-.annotate 'line', 145
- get_hll_global $P348, ["PAST"], "Op"
- find_lex $P349, "$past"
- find_lex $P350, "@parts"
- $P351 = $P350."shift"()
- $P352 = $P348."new"($P349, $P351, "concat" :named("pirop"))
- store_lex "$past", $P352
- loop353_next:
-.annotate 'line', 144
- goto loop353_test
- loop353_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P355, exception, 'type'
- eq $P355, 64, loop353_next
- eq $P355, 66, loop353_redo
- loop353_done:
- pop_eh
-.annotate 'line', 147
- find_lex $P356, "$/"
- find_lex $P357, "$past"
- $P358 = $P356."!make"($P357)
-.annotate 'line', 125
- .return ($P358)
- control_286:
+ .lex "$/", param_243
+ find_lex $P244, "$/"
+ find_lex $P245, "$/"
+ $P246 = "string_to_int"($P245, 16)
+ $P247 = $P244."!make"($P246)
+ .return ($P247)
+ control_241:
.local pmc exception
.get_results (exception)
- getattribute $P359, exception, "payload"
- .return ($P359)
+ getattribute $P248, exception, "payload"
+ .return ($P248)
.end
.namespace ["HLL";"Actions"]
-.sub "_block299" :anon :subid("31_1274564775.02458") :outer("30_1274564775.02458")
- .param pmc param_302
-.annotate 'line', 129
- new $P301, "Undef"
- .lex "$ast", $P301
- .lex "$_", param_302
- find_lex $P303, "$_"
- $P304 = $P303."ast"()
- store_lex "$ast", $P304
-.annotate 'line', 130
- get_hll_global $P307, ["PAST"], "Node"
- find_lex $P308, "$ast"
- $P309 = $P307."ACCEPTS"($P308)
- isfalse $I310, $P309
- if $I310, if_306
-.annotate 'line', 133
- find_lex $P316, "$ast"
- get_hll_global $P317, ["PAST"], "Val"
- $P318 = $P316."isa"($P317)
- if $P318, if_315
-.annotate 'line', 137
- find_lex $P324, "$lastlit"
- set $S325, $P324
- isgt $I326, $S325, ""
- unless $I326, if_323_end
- find_lex $P327, "@parts"
- find_lex $P328, "$lastlit"
- $P327."push"($P328)
- if_323_end:
-.annotate 'line', 138
- find_lex $P329, "@parts"
- find_lex $P330, "$ast"
- $P329."push"($P330)
-.annotate 'line', 139
- new $P331, "String"
- assign $P331, ""
- store_lex "$lastlit", $P331
-.annotate 'line', 136
- set $P314, $P331
-.annotate 'line', 133
- goto if_315_end
- if_315:
-.annotate 'line', 134
- find_lex $P319, "$lastlit"
- find_lex $P320, "$ast"
- $S321 = $P320."value"()
- concat $P322, $P319, $S321
- store_lex "$lastlit", $P322
-.annotate 'line', 133
- set $P314, $P322
- if_315_end:
- set $P305, $P314
-.annotate 'line', 130
- goto if_306_end
- if_306:
-.annotate 'line', 131
- find_lex $P311, "$lastlit"
- find_lex $P312, "$ast"
- concat $P313, $P311, $P312
- store_lex "$lastlit", $P313
-.annotate 'line', 130
- set $P305, $P313
- if_306_end:
-.annotate 'line', 128
- .return ($P305)
+.sub "octint" :subid("29_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_252
+.annotate 'line', 126
+ new $P251, 'ExceptionHandler'
+ set_addr $P251, control_250
+ $P251."handle_types"(57)
+ push_eh $P251
+ .lex "self", self
+ .lex "$/", param_252
+ find_lex $P253, "$/"
+ find_lex $P254, "$/"
+ $P255 = "string_to_int"($P254, 8)
+ $P256 = $P253."!make"($P255)
+ .return ($P256)
+ control_250:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P257, exception, "payload"
+ .return ($P257)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_atom" :subid("32_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_363
-.annotate 'line', 150
- new $P362, 'ExceptionHandler'
- set_addr $P362, control_361
- $P362."handle_types"(57)
- push_eh $P362
+.sub "binint" :subid("30_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_261
+.annotate 'line', 127
+ new $P260, 'ExceptionHandler'
+ set_addr $P260, control_259
+ $P260."handle_types"(57)
+ push_eh $P260
.lex "self", self
- .lex "$/", param_363
-.annotate 'line', 151
- find_lex $P364, "$/"
- find_lex $P367, "$/"
- unless_null $P367, vivify_93
- $P367 = root_new ['parrot';'Hash']
- vivify_93:
- set $P368, $P367["quote_escape"]
- unless_null $P368, vivify_94
- new $P368, "Undef"
- vivify_94:
- if $P368, if_366
- find_lex $P372, "$/"
- set $S373, $P372
- new $P365, 'String'
- set $P365, $S373
- goto if_366_end
- if_366:
- find_lex $P369, "$/"
- unless_null $P369, vivify_95
- $P369 = root_new ['parrot';'Hash']
- vivify_95:
- set $P370, $P369["quote_escape"]
- unless_null $P370, vivify_96
- new $P370, "Undef"
- vivify_96:
- $P371 = $P370."ast"()
- set $P365, $P371
- if_366_end:
- $P374 = $P364."!make"($P365)
-.annotate 'line', 150
- .return ($P374)
- control_361:
+ .lex "$/", param_261
+ find_lex $P262, "$/"
+ find_lex $P263, "$/"
+ $P264 = "string_to_int"($P263, 2)
+ $P265 = $P262."!make"($P264)
+ .return ($P265)
+ control_259:
.local pmc exception
.get_results (exception)
- getattribute $P375, exception, "payload"
- .return ($P375)
+ getattribute $P266, exception, "payload"
+ .return ($P266)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<backslash>" :subid("33_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_379
-.annotate 'line', 154
- new $P378, 'ExceptionHandler'
- set_addr $P378, control_377
- $P378."handle_types"(57)
- push_eh $P378
+.sub "quote_EXPR" :subid("31_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_270
+.annotate 'line', 129
+ .const 'Sub' $P286 = "32_1275117587.37325"
+ capture_lex $P286
+ new $P269, 'ExceptionHandler'
+ set_addr $P269, control_268
+ $P269."handle_types"(57)
+ push_eh $P269
.lex "self", self
- .lex "$/", param_379
- find_lex $P380, "$/"
- $P381 = $P380."!make"("\\")
- .return ($P381)
- control_377:
+ .lex "$/", param_270
+.annotate 'line', 130
+ new $P271, "Undef"
+ .lex "$past", $P271
+ find_lex $P272, "$/"
+ unless_null $P272, vivify_94
+ $P272 = root_new ['parrot';'Hash']
+ vivify_94:
+ set $P273, $P272["quote_delimited"]
+ unless_null $P273, vivify_95
+ new $P273, "Undef"
+ vivify_95:
+ $P274 = $P273."ast"()
+ store_lex "$past", $P274
+.annotate 'line', 131
+ find_lex $P276, "$/"
+ $P277 = $P276."CURSOR"()
+ $P278 = $P277."quotemod_check"("w")
+ unless $P278, if_275_end
+.annotate 'line', 132
+ get_hll_global $P280, ["PAST"], "Node"
+ find_lex $P281, "$past"
+ $P282 = $P280."ACCEPTS"($P281)
+ if $P282, if_279
+.annotate 'line', 135
+ .const 'Sub' $P286 = "32_1275117587.37325"
+ capture_lex $P286
+ $P286()
+ goto if_279_end
+ if_279:
+.annotate 'line', 133
+ find_lex $P283, "$/"
+ $P284 = $P283."CURSOR"()
+ $P284."panic"("Can't form :w list from non-constant strings (yet)")
+ if_279_end:
+ if_275_end:
+.annotate 'line', 146
+ get_hll_global $P318, ["PAST"], "Node"
+ find_lex $P319, "$past"
+ $P320 = $P318."ACCEPTS"($P319)
+ isfalse $I321, $P320
+ unless $I321, if_317_end
+.annotate 'line', 147
+ get_hll_global $P322, ["PAST"], "Val"
+ find_lex $P323, "$past"
+ set $S324, $P323
+ $P325 = $P322."new"($S324 :named("value"))
+ store_lex "$past", $P325
+ if_317_end:
+.annotate 'line', 149
+ find_lex $P326, "$/"
+ find_lex $P327, "$past"
+ $P328 = $P326."!make"($P327)
+.annotate 'line', 129
+ .return ($P328)
+ control_268:
.local pmc exception
.get_results (exception)
- getattribute $P382, exception, "payload"
- .return ($P382)
+ getattribute $P329, exception, "payload"
+ .return ($P329)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<stopper>" :subid("34_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_386
-.annotate 'line', 155
- new $P385, 'ExceptionHandler'
- set_addr $P385, control_384
- $P385."handle_types"(57)
- push_eh $P385
- .lex "self", self
- .lex "$/", param_386
- find_lex $P387, "$/"
- find_lex $P388, "$/"
- unless_null $P388, vivify_97
- $P388 = root_new ['parrot';'Hash']
+.sub "_block285" :anon :subid("32_1275117587.37325") :outer("31_1275117587.37325")
+.annotate 'line', 135
+ .const 'Sub' $P305 = "33_1275117587.37325"
+ capture_lex $P305
+.annotate 'line', 136
+ $P287 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@words", $P287
+ get_hll_global $P288, ["HLL";"Grammar"], "split_words"
+ find_lex $P289, "$/"
+ find_lex $P290, "$past"
+ $P291 = $P288($P289, $P290)
+ store_lex "@words", $P291
+.annotate 'line', 137
+ find_lex $P294, "@words"
+ set $N295, $P294
+ isgt $I296, $N295, 1.0
+ if $I296, if_293
+.annotate 'line', 142
+ find_lex $P313, "@words"
+ unless_null $P313, vivify_96
+ $P313 = root_new ['parrot';'ResizablePMCArray']
+ vivify_96:
+ set $P314, $P313[0]
+ unless_null $P314, vivify_97
+ new $P314, "Undef"
vivify_97:
- set $P389, $P388["stopper"]
- unless_null $P389, vivify_98
- new $P389, "Undef"
- vivify_98:
- set $S390, $P389
- $P391 = $P387."!make"($S390)
- .return ($P391)
- control_384:
- .local pmc exception
- .get_results (exception)
- getattribute $P392, exception, "payload"
- .return ($P392)
+ set $S315, $P314
+ new $P316, 'String'
+ set $P316, $S315
+ store_lex "$past", $P316
+.annotate 'line', 141
+ set $P292, $P316
+.annotate 'line', 137
+ goto if_293_end
+ if_293:
+.annotate 'line', 138
+ get_hll_global $P297, ["PAST"], "Op"
+ find_lex $P298, "$/"
+ $P299 = $P297."new"("list" :named("pasttype"), $P298 :named("node"))
+ store_lex "$past", $P299
+.annotate 'line', 139
+ find_lex $P301, "@words"
+ defined $I302, $P301
+ unless $I302, for_undef_98
+ iter $P300, $P301
+ new $P311, 'ExceptionHandler'
+ set_addr $P311, loop310_handler
+ $P311."handle_types"(64, 66, 65)
+ push_eh $P311
+ loop310_test:
+ unless $P300, loop310_done
+ shift $P303, $P300
+ loop310_redo:
+ .const 'Sub' $P305 = "33_1275117587.37325"
+ capture_lex $P305
+ $P305($P303)
+ loop310_next:
+ goto loop310_test
+ loop310_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P312, exception, 'type'
+ eq $P312, 64, loop310_next
+ eq $P312, 66, loop310_redo
+ loop310_done:
+ pop_eh
+ for_undef_98:
+.annotate 'line', 137
+ set $P292, $P300
+ if_293_end:
+.annotate 'line', 135
+ .return ($P292)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<bs>" :subid("35_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_396
-.annotate 'line', 157
- new $P395, 'ExceptionHandler'
- set_addr $P395, control_394
- $P395."handle_types"(57)
- push_eh $P395
- .lex "self", self
- .lex "$/", param_396
- find_lex $P397, "$/"
- $P398 = $P397."!make"("\b")
- .return ($P398)
- control_394:
- .local pmc exception
- .get_results (exception)
- getattribute $P399, exception, "payload"
- .return ($P399)
+.sub "_block304" :anon :subid("33_1275117587.37325") :outer("32_1275117587.37325")
+ .param pmc param_306
+.annotate 'line', 139
+ .lex "$_", param_306
+ find_lex $P307, "$past"
+ find_lex $P308, "$_"
+ $P309 = $P307."push"($P308)
+ .return ($P309)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<nl>" :subid("36_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_403
-.annotate 'line', 158
- new $P402, 'ExceptionHandler'
- set_addr $P402, control_401
- $P402."handle_types"(57)
- push_eh $P402
+.sub "quote_delimited" :subid("34_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_333
+.annotate 'line', 152
+ .const 'Sub' $P345 = "35_1275117587.37325"
+ capture_lex $P345
+ new $P332, 'ExceptionHandler'
+ set_addr $P332, control_331
+ $P332."handle_types"(57)
+ push_eh $P332
.lex "self", self
- .lex "$/", param_403
- find_lex $P404, "$/"
- $P405 = $P404."!make"("\n")
- .return ($P405)
- control_401:
+ .lex "$/", param_333
+.annotate 'line', 153
+ $P334 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@parts", $P334
+.annotate 'line', 154
+ new $P335, "Undef"
+ .lex "$lastlit", $P335
+.annotate 'line', 170
+ new $P336, "Undef"
+ .lex "$past", $P336
+.annotate 'line', 152
+ find_lex $P337, "@parts"
+.annotate 'line', 154
+ new $P338, "String"
+ assign $P338, ""
+ store_lex "$lastlit", $P338
+.annotate 'line', 155
+ find_lex $P340, "$/"
+ unless_null $P340, vivify_99
+ $P340 = root_new ['parrot';'Hash']
+ vivify_99:
+ set $P341, $P340["quote_atom"]
+ unless_null $P341, vivify_100
+ new $P341, "Undef"
+ vivify_100:
+ defined $I342, $P341
+ unless $I342, for_undef_101
+ iter $P339, $P341
+ new $P378, 'ExceptionHandler'
+ set_addr $P378, loop377_handler
+ $P378."handle_types"(64, 66, 65)
+ push_eh $P378
+ loop377_test:
+ unless $P339, loop377_done
+ shift $P343, $P339
+ loop377_redo:
+ .const 'Sub' $P345 = "35_1275117587.37325"
+ capture_lex $P345
+ $P345($P343)
+ loop377_next:
+ goto loop377_test
+ loop377_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P379, exception, 'type'
+ eq $P379, 64, loop377_next
+ eq $P379, 66, loop377_redo
+ loop377_done:
+ pop_eh
+ for_undef_101:
+.annotate 'line', 169
+ find_lex $P381, "$lastlit"
+ set $S382, $P381
+ isgt $I383, $S382, ""
+ unless $I383, if_380_end
+ find_lex $P384, "@parts"
+ find_lex $P385, "$lastlit"
+ $P384."push"($P385)
+ if_380_end:
+.annotate 'line', 170
+ find_lex $P388, "@parts"
+ if $P388, if_387
+ new $P391, "String"
+ assign $P391, ""
+ set $P386, $P391
+ goto if_387_end
+ if_387:
+ find_lex $P389, "@parts"
+ $P390 = $P389."shift"()
+ set $P386, $P390
+ if_387_end:
+ store_lex "$past", $P386
+.annotate 'line', 171
+ new $P399, 'ExceptionHandler'
+ set_addr $P399, loop398_handler
+ $P399."handle_types"(64, 66, 65)
+ push_eh $P399
+ loop398_test:
+ find_lex $P392, "@parts"
+ unless $P392, loop398_done
+ loop398_redo:
+.annotate 'line', 172
+ get_hll_global $P393, ["PAST"], "Op"
+ find_lex $P394, "$past"
+ find_lex $P395, "@parts"
+ $P396 = $P395."shift"()
+ $P397 = $P393."new"($P394, $P396, "concat" :named("pirop"))
+ store_lex "$past", $P397
+ loop398_next:
+.annotate 'line', 171
+ goto loop398_test
+ loop398_handler:
.local pmc exception
.get_results (exception)
- getattribute $P406, exception, "payload"
- .return ($P406)
+ getattribute $P400, exception, 'type'
+ eq $P400, 64, loop398_next
+ eq $P400, 66, loop398_redo
+ loop398_done:
+ pop_eh
+.annotate 'line', 174
+ find_lex $P401, "$/"
+ find_lex $P402, "$past"
+ $P403 = $P401."!make"($P402)
+.annotate 'line', 152
+ .return ($P403)
+ control_331:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P404, exception, "payload"
+ .return ($P404)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<cr>" :subid("37_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_410
-.annotate 'line', 159
- new $P409, 'ExceptionHandler'
- set_addr $P409, control_408
- $P409."handle_types"(57)
- push_eh $P409
- .lex "self", self
- .lex "$/", param_410
- find_lex $P411, "$/"
- $P412 = $P411."!make"("\r")
- .return ($P412)
- control_408:
- .local pmc exception
- .get_results (exception)
- getattribute $P413, exception, "payload"
- .return ($P413)
+.sub "_block344" :anon :subid("35_1275117587.37325") :outer("34_1275117587.37325")
+ .param pmc param_347
+.annotate 'line', 156
+ new $P346, "Undef"
+ .lex "$ast", $P346
+ .lex "$_", param_347
+ find_lex $P348, "$_"
+ $P349 = $P348."ast"()
+ store_lex "$ast", $P349
+.annotate 'line', 157
+ get_hll_global $P352, ["PAST"], "Node"
+ find_lex $P353, "$ast"
+ $P354 = $P352."ACCEPTS"($P353)
+ isfalse $I355, $P354
+ if $I355, if_351
+.annotate 'line', 160
+ find_lex $P361, "$ast"
+ get_hll_global $P362, ["PAST"], "Val"
+ $P363 = $P361."isa"($P362)
+ if $P363, if_360
+.annotate 'line', 164
+ find_lex $P369, "$lastlit"
+ set $S370, $P369
+ isgt $I371, $S370, ""
+ unless $I371, if_368_end
+ find_lex $P372, "@parts"
+ find_lex $P373, "$lastlit"
+ $P372."push"($P373)
+ if_368_end:
+.annotate 'line', 165
+ find_lex $P374, "@parts"
+ find_lex $P375, "$ast"
+ $P374."push"($P375)
+.annotate 'line', 166
+ new $P376, "String"
+ assign $P376, ""
+ store_lex "$lastlit", $P376
+.annotate 'line', 163
+ set $P359, $P376
+.annotate 'line', 160
+ goto if_360_end
+ if_360:
+.annotate 'line', 161
+ find_lex $P364, "$lastlit"
+ find_lex $P365, "$ast"
+ $S366 = $P365."value"()
+ concat $P367, $P364, $S366
+ store_lex "$lastlit", $P367
+.annotate 'line', 160
+ set $P359, $P367
+ if_360_end:
+ set $P350, $P359
+.annotate 'line', 157
+ goto if_351_end
+ if_351:
+.annotate 'line', 158
+ find_lex $P356, "$lastlit"
+ find_lex $P357, "$ast"
+ concat $P358, $P356, $P357
+ store_lex "$lastlit", $P358
+.annotate 'line', 157
+ set $P350, $P358
+ if_351_end:
+.annotate 'line', 155
+ .return ($P350)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<tab>" :subid("38_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_417
-.annotate 'line', 160
- new $P416, 'ExceptionHandler'
- set_addr $P416, control_415
- $P416."handle_types"(57)
- push_eh $P416
- .lex "self", self
- .lex "$/", param_417
- find_lex $P418, "$/"
- $P419 = $P418."!make"("\t")
+.sub "quote_atom" :subid("36_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_408
+.annotate 'line', 177
+ new $P407, 'ExceptionHandler'
+ set_addr $P407, control_406
+ $P407."handle_types"(57)
+ push_eh $P407
+ .lex "self", self
+ .lex "$/", param_408
+.annotate 'line', 178
+ find_lex $P409, "$/"
+ find_lex $P412, "$/"
+ unless_null $P412, vivify_102
+ $P412 = root_new ['parrot';'Hash']
+ vivify_102:
+ set $P413, $P412["quote_escape"]
+ unless_null $P413, vivify_103
+ new $P413, "Undef"
+ vivify_103:
+ if $P413, if_411
+ find_lex $P417, "$/"
+ set $S418, $P417
+ new $P410, 'String'
+ set $P410, $S418
+ goto if_411_end
+ if_411:
+ find_lex $P414, "$/"
+ unless_null $P414, vivify_104
+ $P414 = root_new ['parrot';'Hash']
+ vivify_104:
+ set $P415, $P414["quote_escape"]
+ unless_null $P415, vivify_105
+ new $P415, "Undef"
+ vivify_105:
+ $P416 = $P415."ast"()
+ set $P410, $P416
+ if_411_end:
+ $P419 = $P409."!make"($P410)
+.annotate 'line', 177
.return ($P419)
- control_415:
+ control_406:
.local pmc exception
.get_results (exception)
getattribute $P420, exception, "payload"
@@ -6000,9 +6091,9 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<ff>" :subid("39_1274564775.02458") :method :outer("11_1274564775.02458")
+.sub "quote_escape:sym<backslash>" :subid("37_1275117587.37325") :method :outer("11_1275117587.37325")
.param pmc param_424
-.annotate 'line', 161
+.annotate 'line', 181
new $P423, 'ExceptionHandler'
set_addr $P423, control_422
$P423."handle_types"(57)
@@ -6010,7 +6101,7 @@
.lex "self", self
.lex "$/", param_424
find_lex $P425, "$/"
- $P426 = $P425."!make"("\f")
+ $P426 = $P425."!make"("\\")
.return ($P426)
control_422:
.local pmc exception
@@ -6021,537 +6112,681 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<hex>" :subid("40_1274564775.02458") :method :outer("11_1274564775.02458")
+.sub "quote_escape:sym<stopper>" :subid("38_1275117587.37325") :method :outer("11_1275117587.37325")
.param pmc param_431
-.annotate 'line', 163
+.annotate 'line', 182
new $P430, 'ExceptionHandler'
set_addr $P430, control_429
$P430."handle_types"(57)
push_eh $P430
.lex "self", self
.lex "$/", param_431
-.annotate 'line', 164
find_lex $P432, "$/"
- find_lex $P435, "$/"
- unless_null $P435, vivify_99
- $P435 = root_new ['parrot';'Hash']
- vivify_99:
- set $P436, $P435["hexint"]
- unless_null $P436, vivify_100
- new $P436, "Undef"
- vivify_100:
- if $P436, if_434
- find_lex $P439, "$/"
- unless_null $P439, vivify_101
- $P439 = root_new ['parrot';'Hash']
- vivify_101:
- set $P440, $P439["hexints"]
- unless_null $P440, vivify_102
- $P440 = root_new ['parrot';'Hash']
- vivify_102:
- set $P441, $P440["hexint"]
- unless_null $P441, vivify_103
- new $P441, "Undef"
- vivify_103:
- set $P433, $P441
- goto if_434_end
- if_434:
- find_lex $P437, "$/"
- unless_null $P437, vivify_104
- $P437 = root_new ['parrot';'Hash']
- vivify_104:
- set $P438, $P437["hexint"]
- unless_null $P438, vivify_105
- new $P438, "Undef"
- vivify_105:
- set $P433, $P438
- if_434_end:
- $P442 = "ints_to_string"($P433)
- $P443 = $P432."!make"($P442)
-.annotate 'line', 163
- .return ($P443)
+ find_lex $P433, "$/"
+ unless_null $P433, vivify_106
+ $P433 = root_new ['parrot';'Hash']
+ vivify_106:
+ set $P434, $P433["stopper"]
+ unless_null $P434, vivify_107
+ new $P434, "Undef"
+ vivify_107:
+ set $S435, $P434
+ $P436 = $P432."!make"($S435)
+ .return ($P436)
control_429:
.local pmc exception
.get_results (exception)
+ getattribute $P437, exception, "payload"
+ .return ($P437)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.sub "quote_escape:sym<bs>" :subid("39_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_441
+.annotate 'line', 184
+ new $P440, 'ExceptionHandler'
+ set_addr $P440, control_439
+ $P440."handle_types"(57)
+ push_eh $P440
+ .lex "self", self
+ .lex "$/", param_441
+ find_lex $P442, "$/"
+ $P443 = $P442."!make"("\b")
+ .return ($P443)
+ control_439:
+ .local pmc exception
+ .get_results (exception)
getattribute $P444, exception, "payload"
.return ($P444)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<oct>" :subid("41_1274564775.02458") :method :outer("11_1274564775.02458")
+.sub "quote_escape:sym<nl>" :subid("40_1275117587.37325") :method :outer("11_1275117587.37325")
.param pmc param_448
-.annotate 'line', 167
+.annotate 'line', 185
new $P447, 'ExceptionHandler'
set_addr $P447, control_446
$P447."handle_types"(57)
push_eh $P447
.lex "self", self
.lex "$/", param_448
-.annotate 'line', 168
find_lex $P449, "$/"
- find_lex $P452, "$/"
- unless_null $P452, vivify_106
- $P452 = root_new ['parrot';'Hash']
- vivify_106:
- set $P453, $P452["octint"]
- unless_null $P453, vivify_107
- new $P453, "Undef"
- vivify_107:
- if $P453, if_451
- find_lex $P456, "$/"
- unless_null $P456, vivify_108
- $P456 = root_new ['parrot';'Hash']
- vivify_108:
- set $P457, $P456["octints"]
- unless_null $P457, vivify_109
- $P457 = root_new ['parrot';'Hash']
- vivify_109:
- set $P458, $P457["octint"]
- unless_null $P458, vivify_110
- new $P458, "Undef"
- vivify_110:
- set $P450, $P458
- goto if_451_end
- if_451:
- find_lex $P454, "$/"
- unless_null $P454, vivify_111
- $P454 = root_new ['parrot';'Hash']
- vivify_111:
- set $P455, $P454["octint"]
- unless_null $P455, vivify_112
- new $P455, "Undef"
- vivify_112:
- set $P450, $P455
- if_451_end:
- $P459 = "ints_to_string"($P450)
- $P460 = $P449."!make"($P459)
-.annotate 'line', 167
- .return ($P460)
+ $P450 = $P449."!make"("\n")
+ .return ($P450)
control_446:
.local pmc exception
.get_results (exception)
- getattribute $P461, exception, "payload"
- .return ($P461)
+ getattribute $P451, exception, "payload"
+ .return ($P451)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<chr>" :subid("42_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_465
-.annotate 'line', 171
- new $P464, 'ExceptionHandler'
- set_addr $P464, control_463
- $P464."handle_types"(57)
- push_eh $P464
+.sub "quote_escape:sym<cr>" :subid("41_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_455
+.annotate 'line', 186
+ new $P454, 'ExceptionHandler'
+ set_addr $P454, control_453
+ $P454."handle_types"(57)
+ push_eh $P454
.lex "self", self
- .lex "$/", param_465
-.annotate 'line', 172
- find_lex $P466, "$/"
- find_lex $P467, "$/"
- unless_null $P467, vivify_113
- $P467 = root_new ['parrot';'Hash']
- vivify_113:
- set $P468, $P467["charspec"]
- unless_null $P468, vivify_114
- new $P468, "Undef"
- vivify_114:
- $P469 = $P468."ast"()
- $P470 = $P466."!make"($P469)
-.annotate 'line', 171
- .return ($P470)
- control_463:
+ .lex "$/", param_455
+ find_lex $P456, "$/"
+ $P457 = $P456."!make"("\r")
+ .return ($P457)
+ control_453:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P458, exception, "payload"
+ .return ($P458)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.sub "quote_escape:sym<tab>" :subid("42_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_462
+.annotate 'line', 187
+ new $P461, 'ExceptionHandler'
+ set_addr $P461, control_460
+ $P461."handle_types"(57)
+ push_eh $P461
+ .lex "self", self
+ .lex "$/", param_462
+ find_lex $P463, "$/"
+ $P464 = $P463."!make"("\t")
+ .return ($P464)
+ control_460:
.local pmc exception
.get_results (exception)
- getattribute $P471, exception, "payload"
+ getattribute $P465, exception, "payload"
+ .return ($P465)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.sub "quote_escape:sym<ff>" :subid("43_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_469
+.annotate 'line', 188
+ new $P468, 'ExceptionHandler'
+ set_addr $P468, control_467
+ $P468."handle_types"(57)
+ push_eh $P468
+ .lex "self", self
+ .lex "$/", param_469
+ find_lex $P470, "$/"
+ $P471 = $P470."!make"("\f")
.return ($P471)
+ control_467:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P472, exception, "payload"
+ .return ($P472)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<0>" :subid("43_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_475
-.annotate 'line', 175
- new $P474, 'ExceptionHandler'
- set_addr $P474, control_473
- $P474."handle_types"(57)
- push_eh $P474
- .lex "self", self
- .lex "$/", param_475
-.annotate 'line', 176
- find_lex $P476, "$/"
- $P477 = $P476."!make"(unicode:"\x{0}")
-.annotate 'line', 175
- .return ($P477)
- control_473:
- .local pmc exception
- .get_results (exception)
- getattribute $P478, exception, "payload"
- .return ($P478)
+.sub "quote_escape:sym<hex>" :subid("44_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_476
+.annotate 'line', 190
+ new $P475, 'ExceptionHandler'
+ set_addr $P475, control_474
+ $P475."handle_types"(57)
+ push_eh $P475
+ .lex "self", self
+ .lex "$/", param_476
+.annotate 'line', 191
+ find_lex $P477, "$/"
+ find_lex $P480, "$/"
+ unless_null $P480, vivify_108
+ $P480 = root_new ['parrot';'Hash']
+ vivify_108:
+ set $P481, $P480["hexint"]
+ unless_null $P481, vivify_109
+ new $P481, "Undef"
+ vivify_109:
+ if $P481, if_479
+ find_lex $P484, "$/"
+ unless_null $P484, vivify_110
+ $P484 = root_new ['parrot';'Hash']
+ vivify_110:
+ set $P485, $P484["hexints"]
+ unless_null $P485, vivify_111
+ $P485 = root_new ['parrot';'Hash']
+ vivify_111:
+ set $P486, $P485["hexint"]
+ unless_null $P486, vivify_112
+ new $P486, "Undef"
+ vivify_112:
+ set $P478, $P486
+ goto if_479_end
+ if_479:
+ find_lex $P482, "$/"
+ unless_null $P482, vivify_113
+ $P482 = root_new ['parrot';'Hash']
+ vivify_113:
+ set $P483, $P482["hexint"]
+ unless_null $P483, vivify_114
+ new $P483, "Undef"
+ vivify_114:
+ set $P478, $P483
+ if_479_end:
+ $P487 = "ints_to_string"($P478)
+ $P488 = $P477."!make"($P487)
+.annotate 'line', 190
+ .return ($P488)
+ control_474:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P489, exception, "payload"
+ .return ($P489)
.end
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<misc>" :subid("44_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_482
-.annotate 'line', 179
- new $P481, 'ExceptionHandler'
- set_addr $P481, control_480
- $P481."handle_types"(57)
- push_eh $P481
- .lex "self", self
- .lex "$/", param_482
-.annotate 'line', 180
- find_lex $P483, "$/"
- find_lex $P486, "$/"
- unless_null $P486, vivify_115
- $P486 = root_new ['parrot';'Hash']
+.sub "quote_escape:sym<oct>" :subid("45_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_493
+.annotate 'line', 194
+ new $P492, 'ExceptionHandler'
+ set_addr $P492, control_491
+ $P492."handle_types"(57)
+ push_eh $P492
+ .lex "self", self
+ .lex "$/", param_493
+.annotate 'line', 195
+ find_lex $P494, "$/"
+ find_lex $P497, "$/"
+ unless_null $P497, vivify_115
+ $P497 = root_new ['parrot';'Hash']
vivify_115:
- set $P487, $P486["textq"]
- unless_null $P487, vivify_116
- new $P487, "Undef"
+ set $P498, $P497["octint"]
+ unless_null $P498, vivify_116
+ new $P498, "Undef"
vivify_116:
- if $P487, if_485
- find_lex $P493, "$/"
- unless_null $P493, vivify_117
- $P493 = root_new ['parrot';'Hash']
+ if $P498, if_496
+ find_lex $P501, "$/"
+ unless_null $P501, vivify_117
+ $P501 = root_new ['parrot';'Hash']
vivify_117:
- set $P494, $P493["textqq"]
- unless_null $P494, vivify_118
- new $P494, "Undef"
+ set $P502, $P501["octints"]
+ unless_null $P502, vivify_118
+ $P502 = root_new ['parrot';'Hash']
vivify_118:
- $P495 = $P494."Str"()
- set $P484, $P495
- goto if_485_end
- if_485:
- new $P488, "String"
- assign $P488, "\\"
- find_lex $P489, "$/"
- unless_null $P489, vivify_119
- $P489 = root_new ['parrot';'Hash']
+ set $P503, $P502["octint"]
+ unless_null $P503, vivify_119
+ new $P503, "Undef"
vivify_119:
- set $P490, $P489["textq"]
- unless_null $P490, vivify_120
- new $P490, "Undef"
+ set $P495, $P503
+ goto if_496_end
+ if_496:
+ find_lex $P499, "$/"
+ unless_null $P499, vivify_120
+ $P499 = root_new ['parrot';'Hash']
vivify_120:
- $S491 = $P490."Str"()
- concat $P492, $P488, $S491
- set $P484, $P492
- if_485_end:
- $P496 = $P483."!make"($P484)
-.annotate 'line', 179
- .return ($P496)
- control_480:
+ set $P500, $P499["octint"]
+ unless_null $P500, vivify_121
+ new $P500, "Undef"
+ vivify_121:
+ set $P495, $P500
+ if_496_end:
+ $P504 = "ints_to_string"($P495)
+ $P505 = $P494."!make"($P504)
+.annotate 'line', 194
+ .return ($P505)
+ control_491:
.local pmc exception
.get_results (exception)
- getattribute $P497, exception, "payload"
- .return ($P497)
+ getattribute $P506, exception, "payload"
+ .return ($P506)
.end
.namespace ["HLL";"Actions"]
-.sub "charname" :subid("45_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_501
-.annotate 'line', 183
- new $P500, 'ExceptionHandler'
- set_addr $P500, control_499
- $P500."handle_types"(57)
- push_eh $P500
+.sub "quote_escape:sym<chr>" :subid("46_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_510
+.annotate 'line', 198
+ new $P509, 'ExceptionHandler'
+ set_addr $P509, control_508
+ $P509."handle_types"(57)
+ push_eh $P509
.lex "self", self
- .lex "$/", param_501
-.annotate 'line', 184
- new $P502, "Undef"
- .lex "$codepoint", $P502
-.annotate 'line', 185
- find_lex $P505, "$/"
- unless_null $P505, vivify_121
- $P505 = root_new ['parrot';'Hash']
- vivify_121:
- set $P506, $P505["integer"]
- unless_null $P506, vivify_122
- new $P506, "Undef"
+ .lex "$/", param_510
+.annotate 'line', 199
+ find_lex $P511, "$/"
+ find_lex $P512, "$/"
+ unless_null $P512, vivify_122
+ $P512 = root_new ['parrot';'Hash']
vivify_122:
- if $P506, if_504
-.annotate 'line', 186
- find_lex $P510, "$/"
- set $S511, $P510
- find_codepoint $I512, $S511
- new $P503, 'Integer'
- set $P503, $I512
-.annotate 'line', 185
- goto if_504_end
- if_504:
- find_lex $P507, "$/"
- unless_null $P507, vivify_123
- $P507 = root_new ['parrot';'Hash']
+ set $P513, $P512["charspec"]
+ unless_null $P513, vivify_123
+ new $P513, "Undef"
vivify_123:
- set $P508, $P507["integer"]
- unless_null $P508, vivify_124
- new $P508, "Undef"
- vivify_124:
- $P509 = $P508."ast"()
- set $P503, $P509
- if_504_end:
- store_lex "$codepoint", $P503
-.annotate 'line', 187
- find_lex $P514, "$codepoint"
- set $N515, $P514
- islt $I516, $N515, 0.0
- unless $I516, if_513_end
- find_lex $P517, "$/"
- $P518 = $P517."CURSOR"()
- new $P519, 'String'
- set $P519, "Unrecognized character name "
- find_lex $P520, "$/"
- concat $P521, $P519, $P520
- $P518."panic"($P521)
- if_513_end:
-.annotate 'line', 188
- find_lex $P522, "$/"
- find_lex $P523, "$codepoint"
- set $I524, $P523
- chr $S525, $I524
- $P526 = $P522."!make"($S525)
-.annotate 'line', 183
- .return ($P526)
- control_499:
+ $P514 = $P513."ast"()
+ $P515 = $P511."!make"($P514)
+.annotate 'line', 198
+ .return ($P515)
+ control_508:
.local pmc exception
.get_results (exception)
- getattribute $P527, exception, "payload"
- .return ($P527)
+ getattribute $P516, exception, "payload"
+ .return ($P516)
.end
.namespace ["HLL";"Actions"]
-.sub "charnames" :subid("46_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_531
-.annotate 'line', 191
- .const 'Sub' $P540 = "47_1274564775.02458"
- capture_lex $P540
- new $P530, 'ExceptionHandler'
- set_addr $P530, control_529
- $P530."handle_types"(57)
- push_eh $P530
+.sub "quote_escape:sym<0>" :subid("47_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_520
+.annotate 'line', 202
+ new $P519, 'ExceptionHandler'
+ set_addr $P519, control_518
+ $P519."handle_types"(57)
+ push_eh $P519
+ .lex "self", self
+ .lex "$/", param_520
+.annotate 'line', 203
+ find_lex $P521, "$/"
+ $P522 = $P521."!make"(unicode:"\x{0}")
+.annotate 'line', 202
+ .return ($P522)
+ control_518:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P523, exception, "payload"
+ .return ($P523)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.sub "quote_escape:sym<misc>" :subid("48_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_527
+.annotate 'line', 206
+ new $P526, 'ExceptionHandler'
+ set_addr $P526, control_525
+ $P526."handle_types"(57)
+ push_eh $P526
.lex "self", self
- .lex "$/", param_531
-.annotate 'line', 192
+ .lex "$/", param_527
+.annotate 'line', 207
+ find_lex $P528, "$/"
+ find_lex $P531, "$/"
+ unless_null $P531, vivify_124
+ $P531 = root_new ['parrot';'Hash']
+ vivify_124:
+ set $P532, $P531["textq"]
+ unless_null $P532, vivify_125
new $P532, "Undef"
- .lex "$str", $P532
- new $P533, "String"
- assign $P533, ""
- store_lex "$str", $P533
-.annotate 'line', 193
- find_lex $P535, "$/"
- unless_null $P535, vivify_125
- $P535 = root_new ['parrot';'Hash']
vivify_125:
- set $P536, $P535["charname"]
- unless_null $P536, vivify_126
- new $P536, "Undef"
+ if $P532, if_530
+ find_lex $P538, "$/"
+ unless_null $P538, vivify_126
+ $P538 = root_new ['parrot';'Hash']
vivify_126:
- defined $I537, $P536
- unless $I537, for_undef_127
- iter $P534, $P536
- new $P547, 'ExceptionHandler'
- set_addr $P547, loop546_handler
- $P547."handle_types"(64, 66, 65)
- push_eh $P547
- loop546_test:
- unless $P534, loop546_done
- shift $P538, $P534
- loop546_redo:
- .const 'Sub' $P540 = "47_1274564775.02458"
- capture_lex $P540
- $P540($P538)
- loop546_next:
- goto loop546_test
- loop546_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P548, exception, 'type'
- eq $P548, 64, loop546_next
- eq $P548, 66, loop546_redo
- loop546_done:
+ set $P539, $P538["textqq"]
+ unless_null $P539, vivify_127
+ new $P539, "Undef"
+ vivify_127:
+ $P540 = $P539."Str"()
+ set $P529, $P540
+ goto if_530_end
+ if_530:
+ new $P533, "String"
+ assign $P533, "\\"
+ find_lex $P534, "$/"
+ unless_null $P534, vivify_128
+ $P534 = root_new ['parrot';'Hash']
+ vivify_128:
+ set $P535, $P534["textq"]
+ unless_null $P535, vivify_129
+ new $P535, "Undef"
+ vivify_129:
+ $S536 = $P535."Str"()
+ concat $P537, $P533, $S536
+ set $P529, $P537
+ if_530_end:
+ $P541 = $P528."!make"($P529)
+.annotate 'line', 206
+ .return ($P541)
+ control_525:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P542, exception, "payload"
+ .return ($P542)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.sub "charname" :subid("49_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_546
+.annotate 'line', 210
+ new $P545, 'ExceptionHandler'
+ set_addr $P545, control_544
+ $P545."handle_types"(57)
+ push_eh $P545
+ .lex "self", self
+ .lex "$/", param_546
+.annotate 'line', 211
+ new $P547, "Undef"
+ .lex "$codepoint", $P547
+.annotate 'line', 212
+ find_lex $P550, "$/"
+ unless_null $P550, vivify_130
+ $P550 = root_new ['parrot';'Hash']
+ vivify_130:
+ set $P551, $P550["integer"]
+ unless_null $P551, vivify_131
+ new $P551, "Undef"
+ vivify_131:
+ if $P551, if_549
+.annotate 'line', 213
+ find_lex $P555, "$/"
+ set $S556, $P555
+ find_codepoint $I557, $S556
+ new $P548, 'Integer'
+ set $P548, $I557
+.annotate 'line', 212
+ goto if_549_end
+ if_549:
+ find_lex $P552, "$/"
+ unless_null $P552, vivify_132
+ $P552 = root_new ['parrot';'Hash']
+ vivify_132:
+ set $P553, $P552["integer"]
+ unless_null $P553, vivify_133
+ new $P553, "Undef"
+ vivify_133:
+ $P554 = $P553."ast"()
+ set $P548, $P554
+ if_549_end:
+ store_lex "$codepoint", $P548
+.annotate 'line', 214
+ find_lex $P559, "$codepoint"
+ set $N560, $P559
+ islt $I561, $N560, 0.0
+ unless $I561, if_558_end
+ find_lex $P562, "$/"
+ $P563 = $P562."CURSOR"()
+ new $P564, 'String'
+ set $P564, "Unrecognized character name "
+ find_lex $P565, "$/"
+ concat $P566, $P564, $P565
+ $P563."panic"($P566)
+ if_558_end:
+.annotate 'line', 215
+ find_lex $P567, "$/"
+ find_lex $P568, "$codepoint"
+ set $I569, $P568
+ chr $S570, $I569
+ $P571 = $P567."!make"($S570)
+.annotate 'line', 210
+ .return ($P571)
+ control_544:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P572, exception, "payload"
+ .return ($P572)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.sub "charnames" :subid("50_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_576
+.annotate 'line', 218
+ .const 'Sub' $P585 = "51_1275117587.37325"
+ capture_lex $P585
+ new $P575, 'ExceptionHandler'
+ set_addr $P575, control_574
+ $P575."handle_types"(57)
+ push_eh $P575
+ .lex "self", self
+ .lex "$/", param_576
+.annotate 'line', 219
+ new $P577, "Undef"
+ .lex "$str", $P577
+ new $P578, "String"
+ assign $P578, ""
+ store_lex "$str", $P578
+.annotate 'line', 220
+ find_lex $P580, "$/"
+ unless_null $P580, vivify_134
+ $P580 = root_new ['parrot';'Hash']
+ vivify_134:
+ set $P581, $P580["charname"]
+ unless_null $P581, vivify_135
+ new $P581, "Undef"
+ vivify_135:
+ defined $I582, $P581
+ unless $I582, for_undef_136
+ iter $P579, $P581
+ new $P592, 'ExceptionHandler'
+ set_addr $P592, loop591_handler
+ $P592."handle_types"(64, 66, 65)
+ push_eh $P592
+ loop591_test:
+ unless $P579, loop591_done
+ shift $P583, $P579
+ loop591_redo:
+ .const 'Sub' $P585 = "51_1275117587.37325"
+ capture_lex $P585
+ $P585($P583)
+ loop591_next:
+ goto loop591_test
+ loop591_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P593, exception, 'type'
+ eq $P593, 64, loop591_next
+ eq $P593, 66, loop591_redo
+ loop591_done:
pop_eh
- for_undef_127:
-.annotate 'line', 194
- find_lex $P549, "$/"
- find_lex $P550, "$str"
- $P551 = $P549."!make"($P550)
-.annotate 'line', 191
- .return ($P551)
- control_529:
+ for_undef_136:
+.annotate 'line', 221
+ find_lex $P594, "$/"
+ find_lex $P595, "$str"
+ $P596 = $P594."!make"($P595)
+.annotate 'line', 218
+ .return ($P596)
+ control_574:
.local pmc exception
.get_results (exception)
- getattribute $P552, exception, "payload"
- .return ($P552)
+ getattribute $P597, exception, "payload"
+ .return ($P597)
.end
.namespace ["HLL";"Actions"]
-.sub "_block539" :anon :subid("47_1274564775.02458") :outer("46_1274564775.02458")
- .param pmc param_541
-.annotate 'line', 193
- .lex "$_", param_541
- find_lex $P542, "$str"
- find_lex $P543, "$_"
- $S544 = $P543."ast"()
- concat $P545, $P542, $S544
- store_lex "$str", $P545
- .return ($P545)
+.sub "_block584" :anon :subid("51_1275117587.37325") :outer("50_1275117587.37325")
+ .param pmc param_586
+.annotate 'line', 220
+ .lex "$_", param_586
+ find_lex $P587, "$str"
+ find_lex $P588, "$_"
+ $S589 = $P588."ast"()
+ concat $P590, $P587, $S589
+ store_lex "$str", $P590
+ .return ($P590)
.end
.namespace ["HLL";"Actions"]
-.sub "charspec" :subid("48_1274564775.02458") :method :outer("11_1274564775.02458")
- .param pmc param_556
-.annotate 'line', 197
- new $P555, 'ExceptionHandler'
- set_addr $P555, control_554
- $P555."handle_types"(57)
- push_eh $P555
+.sub "charspec" :subid("52_1275117587.37325") :method :outer("11_1275117587.37325")
+ .param pmc param_601
+.annotate 'line', 224
+ new $P600, 'ExceptionHandler'
+ set_addr $P600, control_599
+ $P600."handle_types"(57)
+ push_eh $P600
.lex "self", self
- .lex "$/", param_556
-.annotate 'line', 198
- find_lex $P557, "$/"
- find_lex $P560, "$/"
- unless_null $P560, vivify_128
- $P560 = root_new ['parrot';'Hash']
- vivify_128:
- set $P561, $P560["charnames"]
- unless_null $P561, vivify_129
- new $P561, "Undef"
- vivify_129:
- if $P561, if_559
- find_lex $P565, "$/"
- $I566 = "string_to_int"($P565, 10)
- chr $S567, $I566
- new $P558, 'String'
- set $P558, $S567
- goto if_559_end
- if_559:
- find_lex $P562, "$/"
- unless_null $P562, vivify_130
- $P562 = root_new ['parrot';'Hash']
- vivify_130:
- set $P563, $P562["charnames"]
- unless_null $P563, vivify_131
- new $P563, "Undef"
- vivify_131:
- $P564 = $P563."ast"()
- set $P558, $P564
- if_559_end:
- $P568 = $P557."!make"($P558)
-.annotate 'line', 197
- .return ($P568)
- control_554:
+ .lex "$/", param_601
+.annotate 'line', 225
+ find_lex $P602, "$/"
+ find_lex $P605, "$/"
+ unless_null $P605, vivify_137
+ $P605 = root_new ['parrot';'Hash']
+ vivify_137:
+ set $P606, $P605["charnames"]
+ unless_null $P606, vivify_138
+ new $P606, "Undef"
+ vivify_138:
+ if $P606, if_604
+ find_lex $P610, "$/"
+ $I611 = "string_to_int"($P610, 10)
+ chr $S612, $I611
+ new $P603, 'String'
+ set $P603, $S612
+ goto if_604_end
+ if_604:
+ find_lex $P607, "$/"
+ unless_null $P607, vivify_139
+ $P607 = root_new ['parrot';'Hash']
+ vivify_139:
+ set $P608, $P607["charnames"]
+ unless_null $P608, vivify_140
+ new $P608, "Undef"
+ vivify_140:
+ $P609 = $P608."ast"()
+ set $P603, $P609
+ if_604_end:
+ $P613 = $P602."!make"($P603)
+.annotate 'line', 224
+ .return ($P613)
+ control_599:
.local pmc exception
.get_results (exception)
- getattribute $P569, exception, "payload"
- .return ($P569)
+ getattribute $P614, exception, "payload"
+ .return ($P614)
.end
.namespace ["HLL";"Actions"]
-.sub "_block571" :load :anon :subid("49_1274564775.02458")
+.sub "_block616" :load :anon :subid("53_1275117587.37325")
.annotate 'line', 3
- .const 'Sub' $P573 = "11_1274564775.02458"
- $P574 = $P573()
- .return ($P574)
+ .const 'Sub' $P618 = "11_1275117587.37325"
+ $P619 = $P618()
+ .return ($P619)
.end
.namespace []
-.sub "_block576" :load :anon :subid("50_1274564775.02458")
+.sub "_block621" :load :anon :subid("54_1275117587.37325")
.annotate 'line', 1
- .const 'Sub' $P578 = "10_1274564775.02458"
- $P579 = $P578()
- .return ($P579)
+ .const 'Sub' $P623 = "10_1275117587.37325"
+ $P624 = $P623()
+ .return ($P624)
.end
### .include 'gen/hllcompiler.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564776.02218")
+.sub "_block11" :anon :subid("10_1275117592.29966")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Compiler"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 6
get_hll_global $P14, ["HLL";"Compiler"], "_block13"
capture_lex $P14
- $P454 = $P14()
+ $P492 = $P14()
.annotate 'line', 1
- .return ($P454)
- .const 'Sub' $P456 = "33_1274564776.02218"
- .return ($P456)
+ .return ($P492)
+ .const 'Sub' $P494 = "35_1275117592.29966"
+ .return ($P494)
.end
.namespace []
-.sub "" :load :init :subid("post34") :outer("10_1274564776.02218")
+.sub "" :load :init :subid("post36") :outer("10_1275117592.29966")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564776.02218"
+ .const 'Sub' $P12 = "10_1275117592.29966"
.local pmc block
set block, $P12
.annotate 'line', 2
load_bytecode "PCT/HLLCompiler.pbc"
.annotate 'line', 1
- $P459 = get_root_global ["parrot"], "P6metaclass"
- new $P460, "ResizablePMCArray"
- push $P460, "$!language"
- $P459."new_class"("HLL::Compiler", "PCT::HLLCompiler" :named("parent"), $P460 :named("attr"))
+ $P497 = get_root_global ["parrot"], "P6metaclass"
+ new $P498, "ResizablePMCArray"
+ push $P498, "$!language"
+ $P497."new_class"("HLL::Compiler", "PCT::HLLCompiler" :named("parent"), $P498 :named("attr"))
.end
.namespace ["HLL";"Compiler"]
-.sub "_block13" :subid("11_1274564776.02218") :outer("10_1274564776.02218")
+.sub "_block13" :subid("11_1275117592.29966") :outer("10_1275117592.29966")
.annotate 'line', 6
- .const 'Sub' $P409 = "31_1274564776.02218"
- capture_lex $P409
- .const 'Sub' $P298 = "26_1274564776.02218"
+ .const 'Sub' $P484 = "34_1275117592.29966"
+ capture_lex $P484
+ .const 'Sub' $P442 = "32_1275117592.29966"
+ capture_lex $P442
+ .const 'Sub' $P298 = "26_1275117592.29966"
capture_lex $P298
- .const 'Sub' $P283 = "25_1274564776.02218"
+ .const 'Sub' $P283 = "25_1275117592.29966"
capture_lex $P283
- .const 'Sub' $P188 = "20_1274564776.02218"
+ .const 'Sub' $P188 = "20_1275117592.29966"
capture_lex $P188
- .const 'Sub' $P153 = "18_1274564776.02218"
+ .const 'Sub' $P153 = "18_1275117592.29966"
capture_lex $P153
- .const 'Sub' $P138 = "17_1274564776.02218"
+ .const 'Sub' $P138 = "17_1275117592.29966"
capture_lex $P138
- .const 'Sub' $P122 = "16_1274564776.02218"
+ .const 'Sub' $P122 = "16_1275117592.29966"
capture_lex $P122
- .const 'Sub' $P33 = "13_1274564776.02218"
+ .const 'Sub' $P33 = "13_1275117592.29966"
capture_lex $P33
- .const 'Sub' $P15 = "12_1274564776.02218"
+ .const 'Sub' $P15 = "12_1275117592.29966"
capture_lex $P15
.annotate 'line', 14
- .const 'Sub' $P15 = "12_1274564776.02218"
+ .const 'Sub' $P15 = "12_1275117592.29966"
newclosure $P31, $P15
.lex "value_type", $P31
.annotate 'line', 10
find_lex $P32, "value_type"
-.annotate 'line', 135
- .const 'Sub' $P409 = "31_1274564776.02218"
- newclosure $P452, $P409
+.annotate 'line', 163
+ .const 'Sub' $P484 = "34_1275117592.29966"
+ newclosure $P490, $P484
.annotate 'line', 6
- .return ($P452)
+ .return ($P490)
.end
.namespace ["HLL";"Compiler"]
-.sub "" :load :init :subid("post35") :outer("11_1274564776.02218")
+.sub "" :load :init :subid("post37") :outer("11_1275117592.29966")
.annotate 'line', 6
get_hll_global $P14, ["HLL";"Compiler"], "_block13"
.local pmc block
set block, $P14
.annotate 'line', 11
- get_hll_global $P453, ["HLL"], "Compiler"
- $P453."language"("parrot")
+ get_hll_global $P491, ["HLL"], "Compiler"
+ $P491."language"("parrot")
.end
.namespace ["HLL";"Compiler"]
-.sub "value_type" :subid("12_1274564776.02218") :outer("11_1274564776.02218")
+.sub "value_type" :subid("12_1275117592.29966") :outer("11_1275117592.29966")
.param pmc param_18
.annotate 'line', 14
new $P17, 'ExceptionHandler'
@@ -6595,15 +6830,15 @@
.namespace ["HLL";"Compiler"]
-.sub "get_exports" :subid("13_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "get_exports" :subid("13_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_36
.param pmc param_39 :slurpy
.param pmc param_37 :optional :named("tagset")
.param int has_param_37 :opt_flag
.annotate 'line', 20
- .const 'Sub' $P105 = "15_1274564776.02218"
+ .const 'Sub' $P105 = "15_1275117592.29966"
capture_lex $P105
- .const 'Sub' $P84 = "14_1274564776.02218"
+ .const 'Sub' $P84 = "14_1275117592.29966"
capture_lex $P84
new $P35, 'ExceptionHandler'
set_addr $P35, control_34
@@ -6611,10 +6846,10 @@
push_eh $P35
.lex "self", self
.lex "$module", param_36
- if has_param_37, optparam_36
+ if has_param_37, optparam_38
new $P38, "Undef"
set param_37, $P38
- optparam_36:
+ optparam_38:
.lex "$tagset", param_37
.lex "@symbols", param_39
.annotate 'line', 27
@@ -6660,17 +6895,17 @@
find_lex $P60, "$tagset"
set $S61, $P60
find_lex $P62, "$module"
- unless_null $P62, vivify_37
+ unless_null $P62, vivify_39
$P62 = root_new ['parrot';'Hash']
- vivify_37:
+ vivify_39:
set $P63, $P62["EXPORT"]
- unless_null $P63, vivify_38
+ unless_null $P63, vivify_40
$P63 = root_new ['parrot';'Hash']
- vivify_38:
+ vivify_40:
set $P64, $P63[$S61]
- unless_null $P64, vivify_39
+ unless_null $P64, vivify_41
new $P64, "Undef"
- vivify_39:
+ vivify_41:
store_lex "%source", $P64
.annotate 'line', 29
find_lex $P66, "%source"
@@ -6699,7 +6934,7 @@
.annotate 'line', 39
find_lex $P101, "%source"
defined $I102, $P101
- unless $I102, for_undef_40
+ unless $I102, for_undef_42
iter $P100, $P101
new $P118, 'ExceptionHandler'
set_addr $P118, loop117_handler
@@ -6709,7 +6944,7 @@
unless $P100, loop117_done
shift $P103, $P100
loop117_redo:
- .const 'Sub' $P105 = "15_1274564776.02218"
+ .const 'Sub' $P105 = "15_1275117592.29966"
capture_lex $P105
$P105($P103)
loop117_next:
@@ -6722,14 +6957,14 @@
eq $P119, 66, loop117_redo
loop117_done:
pop_eh
- for_undef_40:
+ for_undef_42:
.annotate 'line', 38
goto if_77_end
if_77:
.annotate 'line', 33
find_lex $P80, "@symbols"
defined $I81, $P80
- unless $I81, for_undef_43
+ unless $I81, for_undef_45
iter $P79, $P80
new $P98, 'ExceptionHandler'
set_addr $P98, loop97_handler
@@ -6739,7 +6974,7 @@
unless $P79, loop97_done
shift $P82, $P79
loop97_redo:
- .const 'Sub' $P84 = "14_1274564776.02218"
+ .const 'Sub' $P84 = "14_1275117592.29966"
capture_lex $P84
$P84($P82)
loop97_next:
@@ -6752,7 +6987,7 @@
eq $P99, 66, loop97_redo
loop97_done:
pop_eh
- for_undef_43:
+ for_undef_45:
if_77_end:
.annotate 'line', 32
find_lex $P120, "%exports"
@@ -6767,7 +7002,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block104" :anon :subid("15_1274564776.02218") :outer("13_1274564776.02218")
+.sub "_block104" :anon :subid("15_1275117592.29966") :outer("13_1275117592.29966")
.param pmc param_107
.annotate 'line', 40
new $P106, "Undef"
@@ -6783,15 +7018,15 @@
find_lex $P113, "$value"
$P114 = "value_type"($P113)
find_lex $P115, "%exports"
- unless_null $P115, vivify_41
+ unless_null $P115, vivify_43
$P115 = root_new ['parrot';'Hash']
store_lex "%exports", $P115
- vivify_41:
+ vivify_43:
set $P116, $P115[$P114]
- unless_null $P116, vivify_42
+ unless_null $P116, vivify_44
$P116 = root_new ['parrot';'Hash']
set $P115[$P114], $P116
- vivify_42:
+ vivify_44:
set $P116[$P112], $P110
.annotate 'line', 39
.return ($P110)
@@ -6799,7 +7034,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block83" :anon :subid("14_1274564776.02218") :outer("13_1274564776.02218")
+.sub "_block83" :anon :subid("14_1275117592.29966") :outer("13_1275117592.29966")
.param pmc param_86
.annotate 'line', 34
new $P85, "Undef"
@@ -6808,13 +7043,13 @@
find_lex $P87, "$_"
set $S88, $P87
find_lex $P89, "%source"
- unless_null $P89, vivify_44
+ unless_null $P89, vivify_46
$P89 = root_new ['parrot';'Hash']
- vivify_44:
+ vivify_46:
set $P90, $P89[$S88]
- unless_null $P90, vivify_45
+ unless_null $P90, vivify_47
new $P90, "Undef"
- vivify_45:
+ vivify_47:
store_lex "$value", $P90
.annotate 'line', 35
find_lex $P91, "$value"
@@ -6822,15 +7057,15 @@
find_lex $P93, "$value"
$P94 = "value_type"($P93)
find_lex $P95, "%exports"
- unless_null $P95, vivify_46
+ unless_null $P95, vivify_48
$P95 = root_new ['parrot';'Hash']
store_lex "%exports", $P95
- vivify_46:
+ vivify_48:
set $P96, $P95[$P94]
- unless_null $P96, vivify_47
+ unless_null $P96, vivify_49
$P96 = root_new ['parrot';'Hash']
set $P95[$P94], $P96
- vivify_47:
+ vivify_49:
set $P96[$P92], $P91
.annotate 'line', 33
.return ($P91)
@@ -6838,7 +7073,7 @@
.namespace ["HLL";"Compiler"]
-.sub "get_module" :subid("16_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "get_module" :subid("16_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_125
.annotate 'line', 47
new $P124, 'ExceptionHandler'
@@ -6858,9 +7093,9 @@
find_lex $P130, "@name"
find_lex $P131, "self"
getattribute $P132, $P131, "$!language"
- unless_null $P132, vivify_48
+ unless_null $P132, vivify_50
new $P132, "Undef"
- vivify_48:
+ vivify_50:
set $S133, $P132
downcase $S134, $S133
$P130."unshift"($S134)
@@ -6878,7 +7113,7 @@
.namespace ["HLL";"Compiler"]
-.sub "language" :subid("17_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "language" :subid("17_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_141 :optional
.param int has_param_141 :opt_flag
.annotate 'line', 53
@@ -6887,10 +7122,10 @@
$P140."handle_types"(57)
push_eh $P140
.lex "self", self
- if has_param_141, optparam_49
+ if has_param_141, optparam_51
new $P142, "Undef"
set param_141, $P142
- optparam_49:
+ optparam_51:
.lex "$name", param_141
.annotate 'line', 54
find_lex $P144, "$name"
@@ -6908,9 +7143,9 @@
.annotate 'line', 54
find_lex $P150, "self"
getattribute $P151, $P150, "$!language"
- unless_null $P151, vivify_50
+ unless_null $P151, vivify_52
new $P151, "Undef"
- vivify_50:
+ vivify_52:
.annotate 'line', 53
.return ($P151)
control_139:
@@ -6922,10 +7157,10 @@
.namespace ["HLL";"Compiler"]
-.sub "load_module" :subid("18_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "load_module" :subid("18_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_156
.annotate 'line', 61
- .const 'Sub' $P166 = "19_1274564776.02218"
+ .const 'Sub' $P166 = "19_1275117592.29966"
capture_lex $P166
new $P155, 'ExceptionHandler'
set_addr $P155, control_154
@@ -6952,7 +7187,7 @@
assign $P164, 0
store_lex "$loaded", $P164
.annotate 'line', 64
- .const 'Sub' $P166 = "19_1274564776.02218"
+ .const 'Sub' $P166 = "19_1275117592.29966"
capture_lex $P166
$P166()
.annotate 'line', 65
@@ -6981,7 +7216,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block165" :anon :subid("19_1274564776.02218") :outer("18_1274564776.02218")
+.sub "_block165" :anon :subid("19_1275117592.29966") :outer("18_1275117592.29966")
.annotate 'line', 64
new $P173, 'ExceptionHandler'
set_addr $P173, control_172
@@ -7014,11 +7249,11 @@
.namespace ["HLL";"Compiler"]
-.sub "import" :subid("20_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "import" :subid("20_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_191
.param pmc param_192
.annotate 'line', 69
- .const 'Sub' $P198 = "21_1274564776.02218"
+ .const 'Sub' $P198 = "21_1275117592.29966"
capture_lex $P198
new $P190, 'ExceptionHandler'
set_addr $P190, control_189
@@ -7030,7 +7265,7 @@
.annotate 'line', 70
find_lex $P194, "%exports"
defined $I195, $P194
- unless $I195, for_undef_51
+ unless $I195, for_undef_53
iter $P193, $P194
new $P280, 'ExceptionHandler'
set_addr $P280, loop279_handler
@@ -7040,7 +7275,7 @@
unless $P193, loop279_done
shift $P196, $P193
loop279_redo:
- .const 'Sub' $P198 = "21_1274564776.02218"
+ .const 'Sub' $P198 = "21_1275117592.29966"
capture_lex $P198
$P198($P196)
loop279_next:
@@ -7053,7 +7288,7 @@
eq $P281, 66, loop279_redo
loop279_done:
pop_eh
- for_undef_51:
+ for_undef_53:
.annotate 'line', 69
.return ($P193)
control_189:
@@ -7065,14 +7300,14 @@
.namespace ["HLL";"Compiler"]
-.sub "_block197" :anon :subid("21_1274564776.02218") :outer("20_1274564776.02218")
+.sub "_block197" :anon :subid("21_1275117592.29966") :outer("20_1275117592.29966")
.param pmc param_201
.annotate 'line', 70
- .const 'Sub' $P268 = "24_1274564776.02218"
+ .const 'Sub' $P268 = "24_1275117592.29966"
capture_lex $P268
- .const 'Sub' $P248 = "23_1274564776.02218"
+ .const 'Sub' $P248 = "23_1275117592.29966"
capture_lex $P248
- .const 'Sub' $P219 = "22_1274564776.02218"
+ .const 'Sub' $P219 = "22_1275117592.29966"
capture_lex $P219
.annotate 'line', 71
new $P199, "Undef"
@@ -7110,7 +7345,7 @@
.annotate 'line', 80
find_lex $P264, "%items"
defined $I265, $P264
- unless $I265, for_undef_52
+ unless $I265, for_undef_54
iter $P263, $P264
new $P277, 'ExceptionHandler'
set_addr $P277, loop276_handler
@@ -7120,7 +7355,7 @@
unless $P263, loop276_done
shift $P266, $P263
loop276_redo:
- .const 'Sub' $P268 = "24_1274564776.02218"
+ .const 'Sub' $P268 = "24_1275117592.29966"
capture_lex $P268
$P268($P266)
loop276_next:
@@ -7133,7 +7368,7 @@
eq $P278, 66, loop276_redo
loop276_done:
pop_eh
- for_undef_52:
+ for_undef_54:
.annotate 'line', 79
set $P235, $P263
.annotate 'line', 76
@@ -7142,7 +7377,7 @@
.annotate 'line', 77
find_lex $P244, "%items"
defined $I245, $P244
- unless $I245, for_undef_54
+ unless $I245, for_undef_56
iter $P243, $P244
new $P261, 'ExceptionHandler'
set_addr $P261, loop260_handler
@@ -7152,7 +7387,7 @@
unless $P243, loop260_done
shift $P246, $P243
loop260_redo:
- .const 'Sub' $P248 = "23_1274564776.02218"
+ .const 'Sub' $P248 = "23_1275117592.29966"
capture_lex $P248
$P248($P246)
loop260_next:
@@ -7165,7 +7400,7 @@
eq $P262, 66, loop260_redo
loop260_done:
pop_eh
- for_undef_54:
+ for_undef_56:
.annotate 'line', 76
set $P235, $P243
if_236_end:
@@ -7176,7 +7411,7 @@
.annotate 'line', 74
find_lex $P215, "%items"
defined $I216, $P215
- unless $I216, for_undef_55
+ unless $I216, for_undef_57
iter $P214, $P215
new $P233, 'ExceptionHandler'
set_addr $P233, loop232_handler
@@ -7186,7 +7421,7 @@
unless $P214, loop232_done
shift $P217, $P214
loop232_redo:
- .const 'Sub' $P219 = "22_1274564776.02218"
+ .const 'Sub' $P219 = "22_1275117592.29966"
capture_lex $P219
$P219($P217)
loop232_next:
@@ -7199,7 +7434,7 @@
eq $P234, 66, loop232_redo
loop232_done:
pop_eh
- for_undef_55:
+ for_undef_57:
.annotate 'line', 73
set $P206, $P214
if_207_end:
@@ -7209,7 +7444,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block267" :anon :subid("24_1274564776.02218") :outer("21_1274564776.02218")
+.sub "_block267" :anon :subid("24_1275117592.29966") :outer("21_1275117592.29966")
.param pmc param_269
.annotate 'line', 80
.lex "$_", param_269
@@ -7219,17 +7454,17 @@
$P273 = $P272."key"()
set $S274, $P273
find_lex $P275, "$target"
- unless_null $P275, vivify_53
+ unless_null $P275, vivify_55
$P275 = root_new ['parrot';'Hash']
store_lex "$target", $P275
- vivify_53:
+ vivify_55:
set $P275[$S274], $P271
.return ($P271)
.end
.namespace ["HLL";"Compiler"]
-.sub "_block247" :anon :subid("23_1274564776.02218") :outer("21_1274564776.02218")
+.sub "_block247" :anon :subid("23_1275117592.29966") :outer("21_1275117592.29966")
.param pmc param_249
.annotate 'line', 77
.lex "$_", param_249
@@ -7249,7 +7484,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block218" :anon :subid("22_1274564776.02218") :outer("21_1274564776.02218")
+.sub "_block218" :anon :subid("22_1275117592.29966") :outer("21_1275117592.29966")
.param pmc param_220
.annotate 'line', 74
.lex "$_", param_220
@@ -7270,7 +7505,7 @@
.namespace ["HLL";"Compiler"]
-.sub "autoprint" :subid("25_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "autoprint" :subid("25_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_286
.annotate 'line', 85
new $P285, 'ExceptionHandler'
@@ -7280,16 +7515,16 @@
.lex "self", self
.lex "$value", param_286
.annotate 'line', 87
- getstdout $P289
- tell $I290, $P289
- set $N291, $I290
+ getinterp $P289
+ $P290 = $P289."stdhandle"(1)
+ $N291 = $P290."tell"()
find_dynamic_lex $P292, "$*AUTOPRINTPOS"
- unless_null $P292, vivify_56
+ unless_null $P292, vivify_58
get_hll_global $P292, "$AUTOPRINTPOS"
- unless_null $P292, vivify_57
+ unless_null $P292, vivify_59
die "Contextual $*AUTOPRINTPOS not found"
- vivify_57:
- vivify_56:
+ vivify_59:
+ vivify_58:
set $N293, $P292
isgt $I294, $N291, $N293
unless $I294, unless_288
@@ -7313,11 +7548,11 @@
.namespace ["HLL";"Compiler"]
-.sub "interactive" :subid("26_1274564776.02218") :method :outer("11_1274564776.02218")
+.sub "interactive" :subid("26_1275117592.29966") :method :outer("11_1275117592.29966")
.param pmc param_301 :slurpy :named
.annotate 'line', 90
- .const 'Sub' $P328 = "27_1274564776.02218"
- capture_lex $P328
+ .const 'Sub' $P331 = "27_1275117592.29966"
+ capture_lex $P331
new $P300, 'ExceptionHandler'
set_addr $P300, control_299
$P300."handle_types"(57)
@@ -7335,422 +7570,547 @@
.lex "$encoding", $P304
.annotate 'line', 91
find_lex $P305, "%adverbs"
- unless_null $P305, vivify_58
+ unless_null $P305, vivify_60
$P305 = root_new ['parrot';'Hash']
- vivify_58:
+ vivify_60:
set $P306, $P305["target"]
- unless_null $P306, vivify_59
+ unless_null $P306, vivify_61
new $P306, "Undef"
- vivify_59:
+ vivify_61:
set $S307, $P306
downcase $S308, $S307
new $P309, 'String'
set $P309, $S308
store_lex "$target", $P309
.annotate 'line', 93
- find_lex $P310, "self"
- $S311 = $P310."commandline_banner"()
- printerr $S311
+ getinterp $P310
+ $P311 = $P310."stdhandle"(2)
+ find_lex $P312, "self"
+ $S313 = $P312."commandline_banner"()
+ print $P311, $S313
.annotate 'line', 95
- getstdin $P312
- store_lex "$stdin", $P312
+ getinterp $P314
+ $P315 = $P314."stdhandle"(0)
+ store_lex "$stdin", $P315
.annotate 'line', 96
- find_lex $P313, "%adverbs"
- unless_null $P313, vivify_60
- $P313 = root_new ['parrot';'Hash']
- vivify_60:
- set $P314, $P313["encoding"]
- unless_null $P314, vivify_61
- new $P314, "Undef"
- vivify_61:
- set $S315, $P314
- new $P316, 'String'
- set $P316, $S315
- store_lex "$encoding", $P316
+ find_lex $P316, "%adverbs"
+ unless_null $P316, vivify_62
+ $P316 = root_new ['parrot';'Hash']
+ vivify_62:
+ set $P317, $P316["encoding"]
+ unless_null $P317, vivify_63
+ new $P317, "Undef"
+ vivify_63:
+ set $S318, $P317
+ new $P319, 'String'
+ set $P319, $S318
+ store_lex "$encoding", $P319
.annotate 'line', 97
- find_lex $P320, "$encoding"
- if $P320, if_319
- set $P318, $P320
- goto if_319_end
- if_319:
- find_lex $P321, "$encoding"
- set $S322, $P321
- isne $I323, $S322, "fixed_8"
- new $P318, 'Integer'
- set $P318, $I323
- if_319_end:
- unless $P318, if_317_end
+ find_lex $P323, "$encoding"
+ if $P323, if_322
+ set $P321, $P323
+ goto if_322_end
+ if_322:
+ find_lex $P324, "$encoding"
+ set $S325, $P324
+ isne $I326, $S325, "fixed_8"
+ new $P321, 'Integer'
+ set $P321, $I326
+ if_322_end:
+ unless $P321, if_320_end
.annotate 'line', 98
- find_lex $P324, "$stdin"
- find_lex $P325, "$encoding"
- $P324."encoding"($P325)
- if_317_end:
+ find_lex $P327, "$stdin"
+ find_lex $P328, "$encoding"
+ $P327."encoding"($P328)
+ if_320_end:
.annotate 'line', 101
- new $P406, 'ExceptionHandler'
- set_addr $P406, loop405_handler
- $P406."handle_types"(64, 66, 65)
- push_eh $P406
- loop405_test:
- new $P326, "Integer"
- assign $P326, 1
- unless $P326, loop405_done
- loop405_redo:
- .const 'Sub' $P328 = "27_1274564776.02218"
- capture_lex $P328
- $P328()
- loop405_next:
- goto loop405_test
- loop405_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P407, exception, 'type'
- eq $P407, 64, loop405_next
- eq $P407, 66, loop405_redo
- loop405_done:
+ new $P439, 'ExceptionHandler'
+ set_addr $P439, loop438_handler
+ $P439."handle_types"(64, 66, 65)
+ push_eh $P439
+ loop438_test:
+ new $P329, "Integer"
+ assign $P329, 1
+ unless $P329, loop438_done
+ loop438_redo:
+ .const 'Sub' $P331 = "27_1275117592.29966"
+ capture_lex $P331
+ $P331()
+ loop438_next:
+ goto loop438_test
+ loop438_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P440, exception, 'type'
+ eq $P440, 64, loop438_next
+ eq $P440, 66, loop438_redo
+ loop438_done:
pop_eh
.annotate 'line', 90
- .return ($P326)
+ .return ($P329)
control_299:
.local pmc exception
.get_results (exception)
- getattribute $P408, exception, "payload"
- .return ($P408)
+ getattribute $P441, exception, "payload"
+ .return ($P441)
.end
.namespace ["HLL";"Compiler"]
-.sub "_block327" :anon :subid("27_1274564776.02218") :outer("26_1274564776.02218")
+.sub "_block330" :anon :subid("27_1275117592.29966") :outer("26_1275117592.29966")
.annotate 'line', 101
- .const 'Sub' $P356 = "28_1274564776.02218"
- capture_lex $P356
+ .const 'Sub' $P367 = "28_1275117592.29966"
+ capture_lex $P367
.annotate 'line', 104
- new $P329, "Undef"
- .lex "$prompt", $P329
+ new $P332, "Undef"
+ .lex "$prompt", $P332
.annotate 'line', 105
- new $P330, "Undef"
- .lex "$code", $P330
+ new $P333, "Undef"
+ .lex "$code", $P333
.annotate 'line', 110
- new $P331, "Undef"
- .lex "$*AUTOPRINTPOS", $P331
+ new $P334, "Undef"
+ .lex "$*AUTOPRINTPOS", $P334
+.annotate 'line', 111
+ get_global $P335, "$interactive_ctx"
+ unless_null $P335, vivify_64
+ new $P335, "Undef"
+ set_global "$interactive_ctx", $P335
+ vivify_64:
+.annotate 'line', 112
+ get_global $P336, "%interactive_pad"
+ unless_null $P336, vivify_65
+ $P336 = root_new ['parrot';'Hash']
+ set_global "%interactive_pad", $P336
+ vivify_65:
+.annotate 'line', 113
+ new $P337, "Undef"
+ .lex "$*CTXSAVE", $P337
+.annotate 'line', 114
+ new $P338, "Undef"
+ .lex "$*MAIN_CTX", $P338
.annotate 'line', 102
- find_lex $P333, "$stdin"
- if $P333, unless_332_end
+ find_lex $P340, "$stdin"
+ if $P340, unless_339_end
.include "except_types.pasm"
- $P334 = new "Exception"
- $P334["type"] = .CONTROL_LOOP_LAST
- throw $P334
- unless_332_end:
+ $P341 = new "Exception"
+ $P341["type"] = .CONTROL_LOOP_LAST
+ throw $P341
+ unless_339_end:
.annotate 'line', 104
- find_lex $P336, "self"
- $P337 = $P336."commandline_prompt"()
- set $P335, $P337
- defined $I339, $P335
- if $I339, default_338
- new $P340, "String"
- assign $P340, "> "
- set $P335, $P340
- default_338:
- store_lex "$prompt", $P335
+ find_lex $P343, "self"
+ $P344 = $P343."commandline_prompt"()
+ set $P342, $P344
+ defined $I346, $P342
+ if $I346, default_345
+ new $P347, "String"
+ assign $P347, "> "
+ set $P342, $P347
+ default_345:
+ store_lex "$prompt", $P342
.annotate 'line', 105
- find_lex $P341, "$stdin"
- find_lex $P342, "$prompt"
- set $S343, $P342
- $P344 = $P341."readline_interactive"($S343)
- store_lex "$code", $P344
+ find_lex $P348, "$stdin"
+ find_lex $P349, "$prompt"
+ set $S350, $P349
+ $P351 = $P348."readline_interactive"($S350)
+ store_lex "$code", $P351
.annotate 'line', 107
- find_lex $P346, "$code"
- isnull $I347, $P346
- unless $I347, if_345_end
+ find_lex $P353, "$code"
+ isnull $I354, $P353
+ unless $I354, if_352_end
.include "except_types.pasm"
- $P348 = new "Exception"
- $P348["type"] = .CONTROL_LOOP_LAST
- throw $P348
- if_345_end:
+ $P355 = new "Exception"
+ $P355["type"] = .CONTROL_LOOP_LAST
+ throw $P355
+ if_352_end:
.annotate 'line', 110
- getstdout $P349
- tell $I350, $P349
- new $P351, 'Integer'
- set $P351, $I350
- store_lex "$*AUTOPRINTPOS", $P351
-.annotate 'line', 112
- find_lex $P354, "$code"
- if $P354, if_353
- set $P352, $P354
- goto if_353_end
- if_353:
- .const 'Sub' $P356 = "28_1274564776.02218"
- capture_lex $P356
- $P404 = $P356()
- set $P352, $P404
- if_353_end:
+ getinterp $P356
+ $P357 = $P356."stdhandle"(1)
+ $P358 = $P357."tell"()
+ store_lex "$*AUTOPRINTPOS", $P358
+ get_global $P359, "$interactive_ctx"
+ get_global $P360, "%interactive_pad"
+.annotate 'line', 113
+ find_lex $P361, "self"
+ store_lex "$*CTXSAVE", $P361
+ find_lex $P362, "$*MAIN_CTX"
+ unless_null $P362, vivify_66
+ get_hll_global $P362, "$MAIN_CTX"
+ unless_null $P362, vivify_67
+ die "Contextual $*MAIN_CTX not found"
+ vivify_67:
+ vivify_66:
+.annotate 'line', 116
+ find_lex $P365, "$code"
+ if $P365, if_364
+ set $P363, $P365
+ goto if_364_end
+ if_364:
+ .const 'Sub' $P367 = "28_1275117592.29966"
+ capture_lex $P367
+ $P437 = $P367()
+ set $P363, $P437
+ if_364_end:
.annotate 'line', 101
- .return ($P352)
+ .return ($P363)
.end
.namespace ["HLL";"Compiler"]
-.sub "_block355" :anon :subid("28_1274564776.02218") :outer("27_1274564776.02218")
-.annotate 'line', 112
- .const 'Sub' $P362 = "29_1274564776.02218"
- capture_lex $P362
-.annotate 'line', 114
- new $P357, "Undef"
- .lex "$output", $P357
-.annotate 'line', 113
- find_lex $P358, "$code"
- concat $P359, $P358, "\n"
- store_lex "$code", $P359
- find_lex $P360, "$output"
-.annotate 'line', 115
- .const 'Sub' $P362 = "29_1274564776.02218"
- capture_lex $P362
- $P362()
-.annotate 'line', 122
- find_lex $P383, "$output"
- isnull $I384, $P383
- unless $I384, if_382_end
-.include "except_types.pasm"
- $P385 = new "Exception"
- $P385["type"] = .CONTROL_LOOP_NEXT
- throw $P385
- if_382_end:
-.annotate 'line', 124
- find_lex $P388, "$target"
- isfalse $I389, $P388
- if $I389, if_387
-.annotate 'line', 126
- find_lex $P395, "$target"
- set $S396, $P395
- iseq $I397, $S396, "pir"
- if $I397, if_394
-.annotate 'line', 129
- find_lex $P399, "self"
- find_lex $P400, "$output"
- find_lex $P401, "$target"
- find_lex $P402, "%adverbs"
- $P403 = $P399."dumper"($P400, $P401, $P402 :flat)
-.annotate 'line', 128
- set $P393, $P403
+.sub "_block366" :anon :subid("28_1275117592.29966") :outer("27_1275117592.29966")
+.annotate 'line', 116
+ .const 'Sub' $P405 = "31_1275117592.29966"
+ capture_lex $P405
+ .const 'Sub' $P373 = "29_1275117592.29966"
+ capture_lex $P373
+.annotate 'line', 118
+ new $P368, "Undef"
+ .lex "$output", $P368
+.annotate 'line', 117
+ find_lex $P369, "$code"
+ concat $P370, $P369, "\n"
+ store_lex "$code", $P370
+ find_lex $P371, "$output"
+.annotate 'line', 119
+ .const 'Sub' $P373 = "29_1275117592.29966"
+ capture_lex $P373
+ $P373()
.annotate 'line', 126
- goto if_394_end
- if_394:
+ find_dynamic_lex $P397, "$*MAIN_CTX"
+ unless_null $P397, vivify_68
+ get_hll_global $P397, "$MAIN_CTX"
+ unless_null $P397, vivify_69
+ die "Contextual $*MAIN_CTX not found"
+ vivify_69:
+ vivify_68:
+ defined $I398, $P397
+ unless $I398, if_396_end
.annotate 'line', 127
- find_lex $P398, "$output"
- say $P398
- if_394_end:
-.annotate 'line', 126
- set $P386, $P393
-.annotate 'line', 124
- goto if_387_end
- if_387:
-.annotate 'line', 125
- find_lex $P390, "self"
- find_lex $P391, "$output"
- $P392 = $P390."autoprint"($P391)
-.annotate 'line', 124
- set $P386, $P392
- if_387_end:
-.annotate 'line', 112
- .return ($P386)
+ find_dynamic_lex $P400, "$*MAIN_CTX"
+ unless_null $P400, vivify_70
+ get_hll_global $P400, "$MAIN_CTX"
+ unless_null $P400, vivify_71
+ die "Contextual $*MAIN_CTX not found"
+ vivify_71:
+ vivify_70:
+ $P401 = $P400."lexpad_full"()
+ defined $I402, $P401
+ unless $I402, for_undef_72
+ iter $P399, $P401
+ new $P413, 'ExceptionHandler'
+ set_addr $P413, loop412_handler
+ $P413."handle_types"(64, 66, 65)
+ push_eh $P413
+ loop412_test:
+ unless $P399, loop412_done
+ shift $P403, $P399
+ loop412_redo:
+ .const 'Sub' $P405 = "31_1275117592.29966"
+ capture_lex $P405
+ $P405($P403)
+ loop412_next:
+ goto loop412_test
+ loop412_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P414, exception, 'type'
+ eq $P414, 64, loop412_next
+ eq $P414, 66, loop412_redo
+ loop412_done:
+ pop_eh
+ for_undef_72:
+ if_396_end:
+.annotate 'line', 131
+ find_lex $P416, "$output"
+ isnull $I417, $P416
+ unless $I417, if_415_end
+.include "except_types.pasm"
+ $P418 = new "Exception"
+ $P418["type"] = .CONTROL_LOOP_NEXT
+ throw $P418
+ if_415_end:
+.annotate 'line', 133
+ find_lex $P421, "$target"
+ isfalse $I422, $P421
+ if $I422, if_420
+.annotate 'line', 135
+ find_lex $P428, "$target"
+ set $S429, $P428
+ iseq $I430, $S429, "pir"
+ if $I430, if_427
+.annotate 'line', 138
+ find_lex $P432, "self"
+ find_lex $P433, "$output"
+ find_lex $P434, "$target"
+ find_lex $P435, "%adverbs"
+ $P436 = $P432."dumper"($P433, $P434, $P435 :flat)
+.annotate 'line', 137
+ set $P426, $P436
+.annotate 'line', 135
+ goto if_427_end
+ if_427:
+.annotate 'line', 136
+ find_lex $P431, "$output"
+ say $P431
+ if_427_end:
+.annotate 'line', 135
+ set $P419, $P426
+.annotate 'line', 133
+ goto if_420_end
+ if_420:
+.annotate 'line', 134
+ find_lex $P423, "self"
+ find_lex $P424, "$output"
+ $P425 = $P423."autoprint"($P424)
+.annotate 'line', 133
+ set $P419, $P425
+ if_420_end:
+.annotate 'line', 116
+ .return ($P419)
.end
.namespace ["HLL";"Compiler"]
-.sub "_block361" :anon :subid("29_1274564776.02218") :outer("28_1274564776.02218")
-.annotate 'line', 115
- .const 'Sub' $P373 = "30_1274564776.02218"
- capture_lex $P373
- new $P369, 'ExceptionHandler'
- set_addr $P369, control_368
- $P369."handle_types_except"(57, 58, 59, 60, 62, 63, 64, 65, 66)
- push_eh $P369
-.annotate 'line', 116
- find_lex $P363, "self"
- find_lex $P364, "$code"
- find_lex $P365, "%adverbs"
- $P366 = $P363."eval"($P364, $P365 :flat)
- store_lex "$output", $P366
-.annotate 'line', 115
+.sub "_block372" :anon :subid("29_1275117592.29966") :outer("28_1275117592.29966")
+.annotate 'line', 119
+ .const 'Sub' $P385 = "30_1275117592.29966"
+ capture_lex $P385
+ new $P381, 'ExceptionHandler'
+ set_addr $P381, control_380
+ $P381."handle_types_except"(57, 58, 59, 60, 62, 63, 64, 65, 66)
+ push_eh $P381
+.annotate 'line', 120
+ find_lex $P374, "self"
+ find_lex $P375, "$code"
+ get_global $P376, "$interactive_ctx"
+ find_lex $P377, "%adverbs"
+ $P378 = $P374."eval"($P375, $P377 :flat, $P376 :named("outer_ctx"))
+ store_lex "$output", $P378
+.annotate 'line', 119
pop_eh
- goto skip_handler_367
- control_368:
-.annotate 'line', 117
+ goto skip_handler_379
+ control_380:
+.annotate 'line', 121
.local pmc exception
.get_results (exception)
- .const 'Sub' $P373 = "30_1274564776.02218"
- newclosure $P379, $P373
- $P379(exception)
- new $P380, 'Integer'
- set $P380, 1
- set exception["handled"], $P380
- set $I381, exception["handled"]
- ne $I381, 1, nothandled_371
- handled_370:
+ .const 'Sub' $P385 = "30_1275117592.29966"
+ newclosure $P393, $P385
+ $P393(exception)
+ new $P394, 'Integer'
+ set $P394, 1
+ set exception["handled"], $P394
+ set $I395, exception["handled"]
+ ne $I395, 1, nothandled_383
+ handled_382:
.return (exception)
- nothandled_371:
+ nothandled_383:
rethrow exception
- skip_handler_367:
-.annotate 'line', 115
+ skip_handler_379:
+.annotate 'line', 119
.return ()
.end
.namespace ["HLL";"Compiler"]
-.sub "_block372" :anon :subid("30_1274564776.02218") :outer("29_1274564776.02218")
- .param pmc param_374
-.annotate 'line', 117
- .lex "$_", param_374
- find_lex $P375, "$_"
- .lex "$!", $P375
-.annotate 'line', 118
- find_lex $P376, "$!"
- concat $P377, $P376, "\n"
- print $P377
-.annotate 'line', 119
+.sub "_block384" :anon :subid("30_1275117592.29966") :outer("29_1275117592.29966")
+ .param pmc param_386
+.annotate 'line', 121
+ .lex "$_", param_386
+ find_lex $P387, "$_"
+ .lex "$!", $P387
+.annotate 'line', 122
+ find_lex $P388, "$!"
+ set $S389, $P388
+ new $P390, 'String'
+ set $P390, $S389
+ concat $P391, $P390, "\n"
+ print $P391
+.annotate 'line', 123
.include "except_types.pasm"
- $P378 = new "Exception"
- $P378["type"] = .CONTROL_LOOP_NEXT
- throw $P378
-.annotate 'line', 117
- .return ($P378)
+ $P392 = new "Exception"
+ $P392["type"] = .CONTROL_LOOP_NEXT
+ throw $P392
+.annotate 'line', 121
+ .return ($P392)
.end
.namespace ["HLL";"Compiler"]
-.sub "eval" :subid("31_1274564776.02218") :method :outer("11_1274564776.02218")
- .param pmc param_412
- .param pmc param_413 :slurpy
- .param pmc param_414 :slurpy :named
-.annotate 'line', 135
- .const 'Sub' $P433 = "32_1274564776.02218"
- capture_lex $P433
- new $P411, 'ExceptionHandler'
- set_addr $P411, control_410
- $P411."handle_types"(57)
- push_eh $P411
- .lex "self", self
- .lex "$code", param_412
- .lex "@args", param_413
- .lex "%adverbs", param_414
-.annotate 'line', 136
- new $P415, "Undef"
- .lex "$output", $P415
-.annotate 'line', 135
- find_lex $P416, "$output"
-.annotate 'line', 137
- find_lex $P417, "self"
- find_lex $P418, "$code"
- find_lex $P419, "%adverbs"
- $P420 = $P417."compile"($P418, $P419 :flat)
- store_lex "$output", $P420
-.annotate 'line', 139
- find_lex $P424, "$output"
- isa $I425, $P424, "String"
- new $P426, 'Integer'
- set $P426, $I425
- isfalse $I427, $P426
- if $I427, if_423
- new $P422, 'Integer'
- set $P422, $I427
- goto if_423_end
- if_423:
-.annotate 'line', 140
- find_lex $P428, "%adverbs"
- unless_null $P428, vivify_62
- $P428 = root_new ['parrot';'Hash']
- vivify_62:
- set $P429, $P428["target"]
- unless_null $P429, vivify_63
- new $P429, "Undef"
- vivify_63:
- set $S430, $P429
- iseq $I431, $S430, ""
- new $P422, 'Integer'
- set $P422, $I431
- if_423_end:
- unless $P422, if_421_end
- .const 'Sub' $P433 = "32_1274564776.02218"
- capture_lex $P433
- $P433()
- if_421_end:
-.annotate 'line', 139
- find_lex $P450, "$output"
-.annotate 'line', 135
- .return ($P450)
- control_410:
- .local pmc exception
- .get_results (exception)
- getattribute $P451, exception, "payload"
- .return ($P451)
+.sub "_block404" :anon :subid("31_1275117592.29966") :outer("28_1275117592.29966")
+ .param pmc param_406
+.annotate 'line', 127
+ .lex "$_", param_406
+.annotate 'line', 128
+ find_lex $P407, "$_"
+ $P408 = $P407."value"()
+ find_lex $P409, "$_"
+ $P410 = $P409."key"()
+ get_global $P411, "%interactive_pad"
+ unless_null $P411, vivify_73
+ $P411 = root_new ['parrot';'Hash']
+ set_global "%interactive_pad", $P411
+ vivify_73:
+ set $P411[$P410], $P408
+.annotate 'line', 127
+ .return ($P408)
.end
.namespace ["HLL";"Compiler"]
-.sub "_block432" :anon :subid("32_1274564776.02218") :outer("31_1274564776.02218")
-.annotate 'line', 141
- new $P434, "Undef"
- .lex "$outer_ctx", $P434
- find_lex $P435, "%adverbs"
- unless_null $P435, vivify_64
- $P435 = root_new ['parrot';'Hash']
- vivify_64:
- set $P436, $P435["outer_ctx"]
- unless_null $P436, vivify_65
- new $P436, "Undef"
- vivify_65:
- store_lex "$outer_ctx", $P436
-.annotate 'line', 142
- find_lex $P438, "$outer_ctx"
- defined $I439, $P438
- unless $I439, if_437_end
-.annotate 'line', 143
- find_lex $P440, "$output"
- unless_null $P440, vivify_66
- $P440 = root_new ['parrot';'ResizablePMCArray']
- vivify_66:
- set $P441, $P440[0]
- unless_null $P441, vivify_67
- new $P441, "Undef"
- vivify_67:
- find_lex $P442, "$outer_ctx"
- unless_null $P442, vivify_68
- $P442 = root_new ['parrot';'Hash']
- vivify_68:
- set $P443, $P442["current_sub"]
- unless_null $P443, vivify_69
- new $P443, "Undef"
- vivify_69:
- $P441."set_outer"($P443)
- if_437_end:
+.sub "eval" :subid("32_1275117592.29966") :method :outer("11_1275117592.29966")
+ .param pmc param_445
+ .param pmc param_446 :slurpy
+ .param pmc param_447 :slurpy :named
+.annotate 'line', 144
+ .const 'Sub' $P466 = "33_1275117592.29966"
+ capture_lex $P466
+ new $P444, 'ExceptionHandler'
+ set_addr $P444, control_443
+ $P444."handle_types"(57)
+ push_eh $P444
+ .lex "self", self
+ .lex "$code", param_445
+ .lex "@args", param_446
+ .lex "%adverbs", param_447
+.annotate 'line', 145
+ new $P448, "Undef"
+ .lex "$output", $P448
+.annotate 'line', 144
+ find_lex $P449, "$output"
.annotate 'line', 146
- find_lex $P444, "%adverbs"
- unless_null $P444, vivify_70
- $P444 = root_new ['parrot';'Hash']
- vivify_70:
- set $P445, $P444["trace"]
- unless_null $P445, vivify_71
- new $P445, "Undef"
- vivify_71:
- set $I446, $P445
- trace $I446
-.annotate 'line', 147
- find_lex $P447, "$output"
- find_lex $P448, "@args"
- $P449 = $P447($P448 :flat)
- store_lex "$output", $P449
+ find_lex $P450, "self"
+ find_lex $P451, "$code"
+ find_lex $P452, "%adverbs"
+ $P453 = $P450."compile"($P451, $P452 :flat)
+ store_lex "$output", $P453
.annotate 'line', 148
+ find_lex $P457, "$output"
+ isa $I458, $P457, "String"
+ new $P459, 'Integer'
+ set $P459, $I458
+ isfalse $I460, $P459
+ if $I460, if_456
+ new $P455, 'Integer'
+ set $P455, $I460
+ goto if_456_end
+ if_456:
+.annotate 'line', 149
+ find_lex $P461, "%adverbs"
+ unless_null $P461, vivify_74
+ $P461 = root_new ['parrot';'Hash']
+ vivify_74:
+ set $P462, $P461["target"]
+ unless_null $P462, vivify_75
+ new $P462, "Undef"
+ vivify_75:
+ set $S463, $P462
+ iseq $I464, $S463, ""
+ new $P455, 'Integer'
+ set $P455, $I464
+ if_456_end:
+ unless $P455, if_454_end
+ .const 'Sub' $P466 = "33_1275117592.29966"
+ capture_lex $P466
+ $P466()
+ if_454_end:
+.annotate 'line', 148
+ find_lex $P482, "$output"
+.annotate 'line', 144
+ .return ($P482)
+ control_443:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P483, exception, "payload"
+ .return ($P483)
+.end
+
+
+.namespace ["HLL";"Compiler"]
+.sub "_block465" :anon :subid("33_1275117592.29966") :outer("32_1275117592.29966")
+.annotate 'line', 150
+ new $P467, "Undef"
+ .lex "$outer_ctx", $P467
+ find_lex $P468, "%adverbs"
+ unless_null $P468, vivify_76
+ $P468 = root_new ['parrot';'Hash']
+ vivify_76:
+ set $P469, $P468["outer_ctx"]
+ unless_null $P469, vivify_77
+ new $P469, "Undef"
+ vivify_77:
+ store_lex "$outer_ctx", $P469
+.annotate 'line', 151
+ find_lex $P471, "$outer_ctx"
+ defined $I472, $P471
+ unless $I472, if_470_end
+.annotate 'line', 152
+ find_lex $P473, "$output"
+ unless_null $P473, vivify_78
+ $P473 = root_new ['parrot';'ResizablePMCArray']
+ vivify_78:
+ set $P474, $P473[0]
+ unless_null $P474, vivify_79
+ new $P474, "Undef"
+ vivify_79:
+ find_lex $P475, "$outer_ctx"
+ $P474."set_outer_ctx"($P475)
+ if_470_end:
+.annotate 'line', 155
+ find_lex $P476, "%adverbs"
+ unless_null $P476, vivify_80
+ $P476 = root_new ['parrot';'Hash']
+ vivify_80:
+ set $P477, $P476["trace"]
+ unless_null $P477, vivify_81
+ new $P477, "Undef"
+ vivify_81:
+ set $I478, $P477
+ trace $I478
+.annotate 'line', 156
+ find_lex $P479, "$output"
+ find_lex $P480, "@args"
+ $P481 = $P479($P480 :flat)
+ store_lex "$output", $P481
+.annotate 'line', 157
trace 0
-.annotate 'line', 140
+.annotate 'line', 149
.return ()
.end
+.namespace ["HLL";"Compiler"]
+.sub "ctxsave" :subid("34_1275117592.29966") :method :outer("11_1275117592.29966")
+.annotate 'line', 163
+ new $P486, 'ExceptionHandler'
+ set_addr $P486, control_485
+ $P486."handle_types"(57)
+ push_eh $P486
+ .lex "self", self
+.annotate 'line', 165
+
+ $P0 = getinterp
+ $P487 = $P0['context';1]
+
+ store_dynamic_lex "$*MAIN_CTX", $P487
+.annotate 'line', 169
+ new $P488, "Integer"
+ assign $P488, 0
+ store_dynamic_lex "$*CTXSAVE", $P488
+.annotate 'line', 163
+ .return ($P488)
+ control_485:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P489, exception, "payload"
+ .return ($P489)
+.end
+
+
.namespace []
-.sub "_block455" :load :anon :subid("33_1274564776.02218")
+.sub "_block493" :load :anon :subid("35_1275117592.29966")
.annotate 'line', 1
- .const 'Sub' $P457 = "10_1274564776.02218"
- $P458 = $P457()
- .return ($P458)
+ .const 'Sub' $P495 = "10_1275117592.29966"
+ $P496 = $P495()
+ .return ($P496)
.end
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/NQP-s0.pir
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/NQP-s0.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/NQP-s0.pir Sat May 29 11:56:49 2010 (r47109)
@@ -15,403 +15,418 @@
### .include 'gen/nqp-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564776.41408")
+.sub "_block11" :anon :subid("10_1275117591.97262")
.annotate 'line', 0
get_hll_global $P14, ["NQP";"Grammar"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 4
get_hll_global $P14, ["NQP";"Grammar"], "_block13"
capture_lex $P14
- $P1394 = $P14()
+ $P1379 = $P14()
.annotate 'line', 1
- .return ($P1394)
- .const 'Sub' $P1396 = "355_1274564776.41408"
- .return ($P1396)
+ .return ($P1379)
+ .const 'Sub' $P1381 = "354_1275117591.97262"
+ .return ($P1381)
.end
.namespace []
-.sub "" :load :init :subid("post356") :outer("10_1274564776.41408")
+.sub "" :load :init :subid("post355") :outer("10_1275117591.97262")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564776.41408"
+ .const 'Sub' $P12 = "10_1275117591.97262"
.local pmc block
set block, $P12
- $P1399 = get_root_global ["parrot"], "P6metaclass"
- $P1399."new_class"("NQP::Grammar", "HLL::Grammar" :named("parent"))
+ $P1384 = get_root_global ["parrot"], "P6metaclass"
+ $P1384."new_class"("NQP::Grammar", "HLL::Grammar" :named("parent"))
.end
.namespace ["NQP";"Grammar"]
-.sub "_block13" :subid("11_1274564776.41408") :outer("10_1274564776.41408")
+.sub "_block13" :subid("11_1275117591.97262") :outer("10_1275117591.97262")
.annotate 'line', 4
- get_hll_global $P1290, ["NQP";"Regex"], "_block1289"
- capture_lex $P1290
- .const 'Sub' $P1276 = "329_1274564776.41408"
- capture_lex $P1276
- .const 'Sub' $P1270 = "327_1274564776.41408"
- capture_lex $P1270
- .const 'Sub' $P1264 = "325_1274564776.41408"
- capture_lex $P1264
- .const 'Sub' $P1258 = "323_1274564776.41408"
- capture_lex $P1258
- .const 'Sub' $P1252 = "321_1274564776.41408"
- capture_lex $P1252
- .const 'Sub' $P1246 = "319_1274564776.41408"
- capture_lex $P1246
- .const 'Sub' $P1239 = "317_1274564776.41408"
- capture_lex $P1239
- .const 'Sub' $P1232 = "315_1274564776.41408"
- capture_lex $P1232
- .const 'Sub' $P1225 = "313_1274564776.41408"
- capture_lex $P1225
- .const 'Sub' $P1218 = "311_1274564776.41408"
- capture_lex $P1218
- .const 'Sub' $P1212 = "309_1274564776.41408"
- capture_lex $P1212
- .const 'Sub' $P1205 = "307_1274564776.41408"
- capture_lex $P1205
- .const 'Sub' $P1198 = "305_1274564776.41408"
- capture_lex $P1198
- .const 'Sub' $P1191 = "303_1274564776.41408"
- capture_lex $P1191
- .const 'Sub' $P1184 = "301_1274564776.41408"
- capture_lex $P1184
- .const 'Sub' $P1177 = "299_1274564776.41408"
- capture_lex $P1177
- .const 'Sub' $P1170 = "297_1274564776.41408"
- capture_lex $P1170
- .const 'Sub' $P1163 = "295_1274564776.41408"
- capture_lex $P1163
- .const 'Sub' $P1156 = "293_1274564776.41408"
- capture_lex $P1156
- .const 'Sub' $P1149 = "291_1274564776.41408"
- capture_lex $P1149
- .const 'Sub' $P1142 = "289_1274564776.41408"
- capture_lex $P1142
- .const 'Sub' $P1135 = "287_1274564776.41408"
- capture_lex $P1135
- .const 'Sub' $P1128 = "285_1274564776.41408"
- capture_lex $P1128
- .const 'Sub' $P1121 = "283_1274564776.41408"
- capture_lex $P1121
- .const 'Sub' $P1114 = "281_1274564776.41408"
- capture_lex $P1114
- .const 'Sub' $P1107 = "279_1274564776.41408"
- capture_lex $P1107
- .const 'Sub' $P1100 = "277_1274564776.41408"
- capture_lex $P1100
- .const 'Sub' $P1093 = "275_1274564776.41408"
- capture_lex $P1093
- .const 'Sub' $P1086 = "273_1274564776.41408"
- capture_lex $P1086
- .const 'Sub' $P1079 = "271_1274564776.41408"
- capture_lex $P1079
- .const 'Sub' $P1072 = "269_1274564776.41408"
- capture_lex $P1072
- .const 'Sub' $P1065 = "267_1274564776.41408"
- capture_lex $P1065
- .const 'Sub' $P1058 = "265_1274564776.41408"
- capture_lex $P1058
- .const 'Sub' $P1051 = "263_1274564776.41408"
- capture_lex $P1051
- .const 'Sub' $P1044 = "261_1274564776.41408"
- capture_lex $P1044
- .const 'Sub' $P1037 = "259_1274564776.41408"
- capture_lex $P1037
- .const 'Sub' $P1030 = "257_1274564776.41408"
- capture_lex $P1030
- .const 'Sub' $P1024 = "255_1274564776.41408"
- capture_lex $P1024
- .const 'Sub' $P1017 = "253_1274564776.41408"
- capture_lex $P1017
- .const 'Sub' $P1010 = "251_1274564776.41408"
- capture_lex $P1010
- .const 'Sub' $P1003 = "249_1274564776.41408"
- capture_lex $P1003
- .const 'Sub' $P996 = "247_1274564776.41408"
- capture_lex $P996
- .const 'Sub' $P989 = "245_1274564776.41408"
- capture_lex $P989
- .const 'Sub' $P982 = "243_1274564776.41408"
- capture_lex $P982
- .const 'Sub' $P975 = "241_1274564776.41408"
- capture_lex $P975
- .const 'Sub' $P969 = "239_1274564776.41408"
- capture_lex $P969
- .const 'Sub' $P963 = "237_1274564776.41408"
+ get_hll_global $P1295, ["NQP";"Regex"], "_block1294"
+ capture_lex $P1295
+ .const 'Sub' $P1281 = "331_1275117591.97262"
+ capture_lex $P1281
+ .const 'Sub' $P1275 = "329_1275117591.97262"
+ capture_lex $P1275
+ .const 'Sub' $P1269 = "327_1275117591.97262"
+ capture_lex $P1269
+ .const 'Sub' $P1263 = "325_1275117591.97262"
+ capture_lex $P1263
+ .const 'Sub' $P1257 = "323_1275117591.97262"
+ capture_lex $P1257
+ .const 'Sub' $P1251 = "321_1275117591.97262"
+ capture_lex $P1251
+ .const 'Sub' $P1244 = "319_1275117591.97262"
+ capture_lex $P1244
+ .const 'Sub' $P1237 = "317_1275117591.97262"
+ capture_lex $P1237
+ .const 'Sub' $P1230 = "315_1275117591.97262"
+ capture_lex $P1230
+ .const 'Sub' $P1223 = "313_1275117591.97262"
+ capture_lex $P1223
+ .const 'Sub' $P1217 = "311_1275117591.97262"
+ capture_lex $P1217
+ .const 'Sub' $P1210 = "309_1275117591.97262"
+ capture_lex $P1210
+ .const 'Sub' $P1203 = "307_1275117591.97262"
+ capture_lex $P1203
+ .const 'Sub' $P1196 = "305_1275117591.97262"
+ capture_lex $P1196
+ .const 'Sub' $P1189 = "303_1275117591.97262"
+ capture_lex $P1189
+ .const 'Sub' $P1182 = "301_1275117591.97262"
+ capture_lex $P1182
+ .const 'Sub' $P1175 = "299_1275117591.97262"
+ capture_lex $P1175
+ .const 'Sub' $P1168 = "297_1275117591.97262"
+ capture_lex $P1168
+ .const 'Sub' $P1161 = "295_1275117591.97262"
+ capture_lex $P1161
+ .const 'Sub' $P1154 = "293_1275117591.97262"
+ capture_lex $P1154
+ .const 'Sub' $P1147 = "291_1275117591.97262"
+ capture_lex $P1147
+ .const 'Sub' $P1140 = "289_1275117591.97262"
+ capture_lex $P1140
+ .const 'Sub' $P1133 = "287_1275117591.97262"
+ capture_lex $P1133
+ .const 'Sub' $P1126 = "285_1275117591.97262"
+ capture_lex $P1126
+ .const 'Sub' $P1119 = "283_1275117591.97262"
+ capture_lex $P1119
+ .const 'Sub' $P1112 = "281_1275117591.97262"
+ capture_lex $P1112
+ .const 'Sub' $P1105 = "279_1275117591.97262"
+ capture_lex $P1105
+ .const 'Sub' $P1098 = "277_1275117591.97262"
+ capture_lex $P1098
+ .const 'Sub' $P1091 = "275_1275117591.97262"
+ capture_lex $P1091
+ .const 'Sub' $P1084 = "273_1275117591.97262"
+ capture_lex $P1084
+ .const 'Sub' $P1077 = "271_1275117591.97262"
+ capture_lex $P1077
+ .const 'Sub' $P1070 = "269_1275117591.97262"
+ capture_lex $P1070
+ .const 'Sub' $P1063 = "267_1275117591.97262"
+ capture_lex $P1063
+ .const 'Sub' $P1056 = "265_1275117591.97262"
+ capture_lex $P1056
+ .const 'Sub' $P1049 = "263_1275117591.97262"
+ capture_lex $P1049
+ .const 'Sub' $P1042 = "261_1275117591.97262"
+ capture_lex $P1042
+ .const 'Sub' $P1035 = "259_1275117591.97262"
+ capture_lex $P1035
+ .const 'Sub' $P1029 = "257_1275117591.97262"
+ capture_lex $P1029
+ .const 'Sub' $P1022 = "255_1275117591.97262"
+ capture_lex $P1022
+ .const 'Sub' $P1015 = "253_1275117591.97262"
+ capture_lex $P1015
+ .const 'Sub' $P1008 = "251_1275117591.97262"
+ capture_lex $P1008
+ .const 'Sub' $P1001 = "249_1275117591.97262"
+ capture_lex $P1001
+ .const 'Sub' $P994 = "247_1275117591.97262"
+ capture_lex $P994
+ .const 'Sub' $P987 = "245_1275117591.97262"
+ capture_lex $P987
+ .const 'Sub' $P980 = "243_1275117591.97262"
+ capture_lex $P980
+ .const 'Sub' $P974 = "241_1275117591.97262"
+ capture_lex $P974
+ .const 'Sub' $P968 = "239_1275117591.97262"
+ capture_lex $P968
+ .const 'Sub' $P963 = "237_1275117591.97262"
capture_lex $P963
- .const 'Sub' $P958 = "235_1274564776.41408"
- capture_lex $P958
- .const 'Sub' $P952 = "233_1274564776.41408"
- capture_lex $P952
- .const 'Sub' $P946 = "231_1274564776.41408"
+ .const 'Sub' $P957 = "235_1275117591.97262"
+ capture_lex $P957
+ .const 'Sub' $P951 = "233_1275117591.97262"
+ capture_lex $P951
+ .const 'Sub' $P946 = "231_1275117591.97262"
capture_lex $P946
- .const 'Sub' $P941 = "229_1274564776.41408"
+ .const 'Sub' $P941 = "229_1275117591.97262"
capture_lex $P941
- .const 'Sub' $P936 = "227_1274564776.41408"
- capture_lex $P936
- .const 'Sub' $P929 = "225_1274564776.41408"
- capture_lex $P929
- .const 'Sub' $P921 = "223_1274564776.41408"
+ .const 'Sub' $P934 = "227_1275117591.97262"
+ capture_lex $P934
+ .const 'Sub' $P926 = "225_1275117591.97262"
+ capture_lex $P926
+ .const 'Sub' $P921 = "223_1275117591.97262"
capture_lex $P921
- .const 'Sub' $P916 = "221_1274564776.41408"
+ .const 'Sub' $P916 = "221_1275117591.97262"
capture_lex $P916
- .const 'Sub' $P911 = "219_1274564776.41408"
+ .const 'Sub' $P911 = "219_1275117591.97262"
capture_lex $P911
- .const 'Sub' $P906 = "217_1274564776.41408"
- capture_lex $P906
- .const 'Sub' $P898 = "215_1274564776.41408"
- capture_lex $P898
- .const 'Sub' $P890 = "213_1274564776.41408"
+ .const 'Sub' $P903 = "217_1275117591.97262"
+ capture_lex $P903
+ .const 'Sub' $P895 = "215_1275117591.97262"
+ capture_lex $P895
+ .const 'Sub' $P890 = "213_1275117591.97262"
capture_lex $P890
- .const 'Sub' $P885 = "211_1274564776.41408"
+ .const 'Sub' $P885 = "211_1275117591.97262"
capture_lex $P885
- .const 'Sub' $P880 = "209_1274564776.41408"
+ .const 'Sub' $P880 = "209_1275117591.97262"
capture_lex $P880
- .const 'Sub' $P875 = "207_1274564776.41408"
- capture_lex $P875
- .const 'Sub' $P869 = "205_1274564776.41408"
- capture_lex $P869
- .const 'Sub' $P863 = "203_1274564776.41408"
- capture_lex $P863
- .const 'Sub' $P857 = "201_1274564776.41408"
- capture_lex $P857
- .const 'Sub' $P851 = "199_1274564776.41408"
- capture_lex $P851
- .const 'Sub' $P845 = "197_1274564776.41408"
+ .const 'Sub' $P874 = "207_1275117591.97262"
+ capture_lex $P874
+ .const 'Sub' $P868 = "205_1275117591.97262"
+ capture_lex $P868
+ .const 'Sub' $P862 = "203_1275117591.97262"
+ capture_lex $P862
+ .const 'Sub' $P856 = "201_1275117591.97262"
+ capture_lex $P856
+ .const 'Sub' $P850 = "199_1275117591.97262"
+ capture_lex $P850
+ .const 'Sub' $P845 = "197_1275117591.97262"
capture_lex $P845
- .const 'Sub' $P840 = "195_1274564776.41408"
+ .const 'Sub' $P840 = "195_1275117591.97262"
capture_lex $P840
- .const 'Sub' $P835 = "193_1274564776.41408"
- capture_lex $P835
- .const 'Sub' $P822 = "189_1274564776.41408"
- capture_lex $P822
- .const 'Sub' $P814 = "187_1274564776.41408"
- capture_lex $P814
- .const 'Sub' $P808 = "185_1274564776.41408"
- capture_lex $P808
- .const 'Sub' $P801 = "183_1274564776.41408"
- capture_lex $P801
- .const 'Sub' $P795 = "181_1274564776.41408"
- capture_lex $P795
- .const 'Sub' $P787 = "179_1274564776.41408"
- capture_lex $P787
- .const 'Sub' $P779 = "177_1274564776.41408"
- capture_lex $P779
- .const 'Sub' $P773 = "175_1274564776.41408"
- capture_lex $P773
- .const 'Sub' $P767 = "173_1274564776.41408"
- capture_lex $P767
- .const 'Sub' $P752 = "169_1274564776.41408"
- capture_lex $P752
- .const 'Sub' $P715 = "167_1274564776.41408"
- capture_lex $P715
- .const 'Sub' $P707 = "165_1274564776.41408"
- capture_lex $P707
- .const 'Sub' $P701 = "163_1274564776.41408"
- capture_lex $P701
- .const 'Sub' $P691 = "161_1274564776.41408"
- capture_lex $P691
- .const 'Sub' $P677 = "159_1274564776.41408"
- capture_lex $P677
- .const 'Sub' $P668 = "157_1274564776.41408"
- capture_lex $P668
- .const 'Sub' $P649 = "155_1274564776.41408"
- capture_lex $P649
- .const 'Sub' $P625 = "153_1274564776.41408"
- capture_lex $P625
- .const 'Sub' $P618 = "151_1274564776.41408"
- capture_lex $P618
- .const 'Sub' $P611 = "149_1274564776.41408"
- capture_lex $P611
- .const 'Sub' $P601 = "145_1274564776.41408"
- capture_lex $P601
- .const 'Sub' $P593 = "143_1274564776.41408"
- capture_lex $P593
- .const 'Sub' $P587 = "141_1274564776.41408"
- capture_lex $P587
- .const 'Sub' $P573 = "139_1274564776.41408"
- capture_lex $P573
- .const 'Sub' $P566 = "137_1274564776.41408"
- capture_lex $P566
- .const 'Sub' $P559 = "135_1274564776.41408"
- capture_lex $P559
- .const 'Sub' $P552 = "133_1274564776.41408"
- capture_lex $P552
- .const 'Sub' $P525 = "129_1274564776.41408"
- capture_lex $P525
- .const 'Sub' $P516 = "127_1274564776.41408"
- capture_lex $P516
- .const 'Sub' $P509 = "125_1274564776.41408"
- capture_lex $P509
- .const 'Sub' $P500 = "121_1274564776.41408"
+ .const 'Sub' $P827 = "191_1275117591.97262"
+ capture_lex $P827
+ .const 'Sub' $P819 = "189_1275117591.97262"
+ capture_lex $P819
+ .const 'Sub' $P813 = "187_1275117591.97262"
+ capture_lex $P813
+ .const 'Sub' $P806 = "185_1275117591.97262"
+ capture_lex $P806
+ .const 'Sub' $P800 = "183_1275117591.97262"
+ capture_lex $P800
+ .const 'Sub' $P792 = "181_1275117591.97262"
+ capture_lex $P792
+ .const 'Sub' $P784 = "179_1275117591.97262"
+ capture_lex $P784
+ .const 'Sub' $P778 = "177_1275117591.97262"
+ capture_lex $P778
+ .const 'Sub' $P772 = "175_1275117591.97262"
+ capture_lex $P772
+ .const 'Sub' $P757 = "171_1275117591.97262"
+ capture_lex $P757
+ .const 'Sub' $P720 = "169_1275117591.97262"
+ capture_lex $P720
+ .const 'Sub' $P712 = "167_1275117591.97262"
+ capture_lex $P712
+ .const 'Sub' $P706 = "165_1275117591.97262"
+ capture_lex $P706
+ .const 'Sub' $P696 = "163_1275117591.97262"
+ capture_lex $P696
+ .const 'Sub' $P682 = "161_1275117591.97262"
+ capture_lex $P682
+ .const 'Sub' $P673 = "159_1275117591.97262"
+ capture_lex $P673
+ .const 'Sub' $P654 = "157_1275117591.97262"
+ capture_lex $P654
+ .const 'Sub' $P630 = "155_1275117591.97262"
+ capture_lex $P630
+ .const 'Sub' $P623 = "153_1275117591.97262"
+ capture_lex $P623
+ .const 'Sub' $P616 = "151_1275117591.97262"
+ capture_lex $P616
+ .const 'Sub' $P606 = "147_1275117591.97262"
+ capture_lex $P606
+ .const 'Sub' $P598 = "145_1275117591.97262"
+ capture_lex $P598
+ .const 'Sub' $P592 = "143_1275117591.97262"
+ capture_lex $P592
+ .const 'Sub' $P578 = "141_1275117591.97262"
+ capture_lex $P578
+ .const 'Sub' $P571 = "139_1275117591.97262"
+ capture_lex $P571
+ .const 'Sub' $P564 = "137_1275117591.97262"
+ capture_lex $P564
+ .const 'Sub' $P557 = "135_1275117591.97262"
+ capture_lex $P557
+ .const 'Sub' $P530 = "131_1275117591.97262"
+ capture_lex $P530
+ .const 'Sub' $P521 = "129_1275117591.97262"
+ capture_lex $P521
+ .const 'Sub' $P514 = "127_1275117591.97262"
+ capture_lex $P514
+ .const 'Sub' $P505 = "123_1275117591.97262"
+ capture_lex $P505
+ .const 'Sub' $P500 = "121_1275117591.97262"
capture_lex $P500
- .const 'Sub' $P495 = "119_1274564776.41408"
- capture_lex $P495
- .const 'Sub' $P483 = "117_1274564776.41408"
- capture_lex $P483
- .const 'Sub' $P471 = "115_1274564776.41408"
- capture_lex $P471
- .const 'Sub' $P463 = "113_1274564776.41408"
+ .const 'Sub' $P488 = "119_1275117591.97262"
+ capture_lex $P488
+ .const 'Sub' $P476 = "117_1275117591.97262"
+ capture_lex $P476
+ .const 'Sub' $P468 = "115_1275117591.97262"
+ capture_lex $P468
+ .const 'Sub' $P463 = "113_1275117591.97262"
capture_lex $P463
- .const 'Sub' $P458 = "111_1274564776.41408"
- capture_lex $P458
- .const 'Sub' $P452 = "109_1274564776.41408"
- capture_lex $P452
- .const 'Sub' $P446 = "107_1274564776.41408"
- capture_lex $P446
- .const 'Sub' $P440 = "105_1274564776.41408"
- capture_lex $P440
- .const 'Sub' $P434 = "103_1274564776.41408"
- capture_lex $P434
- .const 'Sub' $P428 = "101_1274564776.41408"
- capture_lex $P428
- .const 'Sub' $P422 = "99_1274564776.41408"
- capture_lex $P422
- .const 'Sub' $P416 = "97_1274564776.41408"
- capture_lex $P416
- .const 'Sub' $P410 = "95_1274564776.41408"
- capture_lex $P410
- .const 'Sub' $P402 = "93_1274564776.41408"
- capture_lex $P402
- .const 'Sub' $P394 = "91_1274564776.41408"
- capture_lex $P394
- .const 'Sub' $P382 = "87_1274564776.41408"
- capture_lex $P382
- .const 'Sub' $P374 = "85_1274564776.41408"
- capture_lex $P374
- .const 'Sub' $P364 = "81_1274564776.41408"
- capture_lex $P364
- .const 'Sub' $P357 = "79_1274564776.41408"
- capture_lex $P357
- .const 'Sub' $P350 = "77_1274564776.41408"
- capture_lex $P350
- .const 'Sub' $P338 = "73_1274564776.41408"
- capture_lex $P338
- .const 'Sub' $P330 = "71_1274564776.41408"
- capture_lex $P330
- .const 'Sub' $P322 = "69_1274564776.41408"
- capture_lex $P322
- .const 'Sub' $P302 = "67_1274564776.41408"
- capture_lex $P302
- .const 'Sub' $P293 = "65_1274564776.41408"
- capture_lex $P293
- .const 'Sub' $P275 = "62_1274564776.41408"
- capture_lex $P275
- .const 'Sub' $P255 = "60_1274564776.41408"
- capture_lex $P255
- .const 'Sub' $P246 = "56_1274564776.41408"
+ .const 'Sub' $P457 = "111_1275117591.97262"
+ capture_lex $P457
+ .const 'Sub' $P451 = "109_1275117591.97262"
+ capture_lex $P451
+ .const 'Sub' $P445 = "107_1275117591.97262"
+ capture_lex $P445
+ .const 'Sub' $P439 = "105_1275117591.97262"
+ capture_lex $P439
+ .const 'Sub' $P433 = "103_1275117591.97262"
+ capture_lex $P433
+ .const 'Sub' $P427 = "101_1275117591.97262"
+ capture_lex $P427
+ .const 'Sub' $P421 = "99_1275117591.97262"
+ capture_lex $P421
+ .const 'Sub' $P415 = "97_1275117591.97262"
+ capture_lex $P415
+ .const 'Sub' $P407 = "95_1275117591.97262"
+ capture_lex $P407
+ .const 'Sub' $P399 = "93_1275117591.97262"
+ capture_lex $P399
+ .const 'Sub' $P387 = "89_1275117591.97262"
+ capture_lex $P387
+ .const 'Sub' $P379 = "87_1275117591.97262"
+ capture_lex $P379
+ .const 'Sub' $P369 = "83_1275117591.97262"
+ capture_lex $P369
+ .const 'Sub' $P362 = "81_1275117591.97262"
+ capture_lex $P362
+ .const 'Sub' $P355 = "79_1275117591.97262"
+ capture_lex $P355
+ .const 'Sub' $P343 = "75_1275117591.97262"
+ capture_lex $P343
+ .const 'Sub' $P335 = "73_1275117591.97262"
+ capture_lex $P335
+ .const 'Sub' $P327 = "71_1275117591.97262"
+ capture_lex $P327
+ .const 'Sub' $P307 = "69_1275117591.97262"
+ capture_lex $P307
+ .const 'Sub' $P298 = "67_1275117591.97262"
+ capture_lex $P298
+ .const 'Sub' $P280 = "64_1275117591.97262"
+ capture_lex $P280
+ .const 'Sub' $P260 = "62_1275117591.97262"
+ capture_lex $P260
+ .const 'Sub' $P251 = "58_1275117591.97262"
+ capture_lex $P251
+ .const 'Sub' $P246 = "56_1275117591.97262"
capture_lex $P246
- .const 'Sub' $P241 = "54_1274564776.41408"
- capture_lex $P241
- .const 'Sub' $P232 = "50_1274564776.41408"
+ .const 'Sub' $P237 = "52_1275117591.97262"
+ capture_lex $P237
+ .const 'Sub' $P232 = "50_1275117591.97262"
capture_lex $P232
- .const 'Sub' $P227 = "48_1274564776.41408"
+ .const 'Sub' $P227 = "48_1275117591.97262"
capture_lex $P227
- .const 'Sub' $P219 = "46_1274564776.41408"
+ .const 'Sub' $P219 = "46_1275117591.97262"
capture_lex $P219
- .const 'Sub' $P212 = "44_1274564776.41408"
+ .const 'Sub' $P212 = "44_1275117591.97262"
capture_lex $P212
- .const 'Sub' $P206 = "42_1274564776.41408"
+ .const 'Sub' $P206 = "42_1275117591.97262"
capture_lex $P206
- .const 'Sub' $P198 = "40_1274564776.41408"
+ .const 'Sub' $P198 = "40_1275117591.97262"
capture_lex $P198
- .const 'Sub' $P192 = "38_1274564776.41408"
+ .const 'Sub' $P192 = "38_1275117591.97262"
capture_lex $P192
- .const 'Sub' $P186 = "36_1274564776.41408"
+ .const 'Sub' $P186 = "36_1275117591.97262"
capture_lex $P186
- .const 'Sub' $P170 = "33_1274564776.41408"
+ .const 'Sub' $P170 = "33_1275117591.97262"
capture_lex $P170
- .const 'Sub' $P157 = "31_1274564776.41408"
+ .const 'Sub' $P157 = "31_1275117591.97262"
capture_lex $P157
- .const 'Sub' $P150 = "29_1274564776.41408"
+ .const 'Sub' $P150 = "29_1275117591.97262"
capture_lex $P150
- .const 'Sub' $P100 = "26_1274564776.41408"
+ .const 'Sub' $P100 = "26_1275117591.97262"
capture_lex $P100
- .const 'Sub' $P82 = "23_1274564776.41408"
+ .const 'Sub' $P82 = "23_1275117591.97262"
capture_lex $P82
- .const 'Sub' $P68 = "21_1274564776.41408"
+ .const 'Sub' $P68 = "21_1275117591.97262"
capture_lex $P68
- .const 'Sub' $P54 = "19_1274564776.41408"
+ .const 'Sub' $P54 = "19_1275117591.97262"
capture_lex $P54
- .const 'Sub' $P46 = "17_1274564776.41408"
+ .const 'Sub' $P46 = "17_1275117591.97262"
capture_lex $P46
- .const 'Sub' $P39 = "15_1274564776.41408"
+ .const 'Sub' $P39 = "15_1275117591.97262"
capture_lex $P39
- .const 'Sub' $P33 = "13_1274564776.41408"
+ .const 'Sub' $P33 = "13_1275117591.97262"
capture_lex $P33
- .const 'Sub' $P15 = "12_1274564776.41408"
+ .const 'Sub' $P15 = "12_1275117591.97262"
capture_lex $P15
-.annotate 'line', 548
- get_hll_global $P1290, ["NQP";"Regex"], "_block1289"
- capture_lex $P1290
- $P1373 = $P1290()
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
+.annotate 'line', 550
+ get_hll_global $P1295, ["NQP";"Regex"], "_block1294"
+ capture_lex $P1295
+ $P1358 = $P1295()
.annotate 'line', 4
- .return ($P1373)
- .const 'Sub' $P1375 = "354_1274564776.41408"
- .return ($P1375)
+ .return ($P1358)
+ .const 'Sub' $P1360 = "353_1275117591.97262"
+ .return ($P1360)
.end
.namespace ["NQP";"Grammar"]
-.sub "" :load :init :subid("post357") :outer("11_1274564776.41408")
+.sub "" :load :init :subid("post356") :outer("11_1275117591.97262")
.annotate 'line', 4
get_hll_global $P14, ["NQP";"Grammar"], "_block13"
.local pmc block
set block, $P14
-.annotate 'line', 432
- get_hll_global $P1378, ["NQP"], "Grammar"
- $P1378."O"(":prec<y=>, :assoc<unary>", "%methodop")
-.annotate 'line', 433
- get_hll_global $P1379, ["NQP"], "Grammar"
- $P1379."O"(":prec<x=>, :assoc<unary>", "%autoincrement")
.annotate 'line', 434
- get_hll_global $P1380, ["NQP"], "Grammar"
- $P1380."O"(":prec<w=>, :assoc<left>", "%exponentiation")
+ get_hll_global $P1363, ["NQP"], "Grammar"
+ $P1363."O"(":prec<y=>, :assoc<unary>", "%methodop")
.annotate 'line', 435
- get_hll_global $P1381, ["NQP"], "Grammar"
- $P1381."O"(":prec<v=>, :assoc<unary>", "%symbolic_unary")
+ get_hll_global $P1364, ["NQP"], "Grammar"
+ $P1364."O"(":prec<x=>, :assoc<unary>", "%autoincrement")
.annotate 'line', 436
- get_hll_global $P1382, ["NQP"], "Grammar"
- $P1382."O"(":prec<u=>, :assoc<left>", "%multiplicative")
+ get_hll_global $P1365, ["NQP"], "Grammar"
+ $P1365."O"(":prec<w=>, :assoc<left>", "%exponentiation")
.annotate 'line', 437
- get_hll_global $P1383, ["NQP"], "Grammar"
- $P1383."O"(":prec<t=>, :assoc<left>", "%additive")
+ get_hll_global $P1366, ["NQP"], "Grammar"
+ $P1366."O"(":prec<v=>, :assoc<unary>", "%symbolic_unary")
.annotate 'line', 438
- get_hll_global $P1384, ["NQP"], "Grammar"
- $P1384."O"(":prec<r=>, :assoc<left>", "%concatenation")
+ get_hll_global $P1367, ["NQP"], "Grammar"
+ $P1367."O"(":prec<u=>, :assoc<left>", "%multiplicative")
.annotate 'line', 439
- get_hll_global $P1385, ["NQP"], "Grammar"
- $P1385."O"(":prec<m=>, :assoc<left>", "%relational")
+ get_hll_global $P1368, ["NQP"], "Grammar"
+ $P1368."O"(":prec<t=>, :assoc<left>", "%additive")
.annotate 'line', 440
- get_hll_global $P1386, ["NQP"], "Grammar"
- $P1386."O"(":prec<l=>, :assoc<left>", "%tight_and")
+ get_hll_global $P1369, ["NQP"], "Grammar"
+ $P1369."O"(":prec<r=>, :assoc<left>", "%concatenation")
.annotate 'line', 441
- get_hll_global $P1387, ["NQP"], "Grammar"
- $P1387."O"(":prec<k=>, :assoc<left>", "%tight_or")
+ get_hll_global $P1370, ["NQP"], "Grammar"
+ $P1370."O"(":prec<m=>, :assoc<left>", "%relational")
.annotate 'line', 442
- get_hll_global $P1388, ["NQP"], "Grammar"
- $P1388."O"(":prec<j=>, :assoc<right>", "%conditional")
+ get_hll_global $P1371, ["NQP"], "Grammar"
+ $P1371."O"(":prec<l=>, :assoc<left>", "%tight_and")
.annotate 'line', 443
- get_hll_global $P1389, ["NQP"], "Grammar"
- $P1389."O"(":prec<i=>, :assoc<right>", "%assignment")
+ get_hll_global $P1372, ["NQP"], "Grammar"
+ $P1372."O"(":prec<k=>, :assoc<left>", "%tight_or")
.annotate 'line', 444
- get_hll_global $P1390, ["NQP"], "Grammar"
- $P1390."O"(":prec<g=>, :assoc<list>, :nextterm<nulltermish>", "%comma")
+ get_hll_global $P1373, ["NQP"], "Grammar"
+ $P1373."O"(":prec<j=>, :assoc<right>", "%conditional")
.annotate 'line', 445
- get_hll_global $P1391, ["NQP"], "Grammar"
- $P1391."O"(":prec<f=>, :assoc<list>", "%list_infix")
+ get_hll_global $P1374, ["NQP"], "Grammar"
+ $P1374."O"(":prec<i=>, :assoc<right>", "%assignment")
.annotate 'line', 446
- get_hll_global $P1392, ["NQP"], "Grammar"
- $P1392."O"(":prec<e=>, :assoc<unary>", "%list_prefix")
-.annotate 'line', 431
- $P1393 = get_root_global ["parrot"], "P6metaclass"
- $P1393."new_class"("NQP::Regex", "Regex::P6Regex::Grammar" :named("parent"))
+ get_hll_global $P1375, ["NQP"], "Grammar"
+ $P1375."O"(":prec<g=>, :assoc<list>, :nextterm<nulltermish>", "%comma")
+.annotate 'line', 447
+ get_hll_global $P1376, ["NQP"], "Grammar"
+ $P1376."O"(":prec<f=>, :assoc<list>", "%list_infix")
+.annotate 'line', 448
+ get_hll_global $P1377, ["NQP"], "Grammar"
+ $P1377."O"(":prec<e=>, :assoc<unary>", "%list_prefix")
+.annotate 'line', 433
+ $P1378 = get_root_global ["parrot"], "P6metaclass"
+ $P1378."new_class"("NQP::Regex", "Regex::P6Regex::Grammar" :named("parent"))
.end
.namespace ["NQP";"Grammar"]
-.sub "TOP" :subid("12_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "TOP" :subid("12_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
new $P17, 'ExceptionHandler'
set_addr $P17, control_16
@@ -426,55 +441,55 @@
.lex "$*SCOPE", $P19
.annotate 'line', 4
find_lex $P20, "%*LANG"
- unless_null $P20, vivify_358
+ unless_null $P20, vivify_357
get_hll_global $P20, "%LANG"
- unless_null $P20, vivify_359
+ unless_null $P20, vivify_358
die "Contextual %*LANG not found"
- vivify_359:
vivify_358:
+ vivify_357:
.annotate 'line', 6
get_hll_global $P21, ["NQP"], "Regex"
find_lex $P22, "%*LANG"
- unless_null $P22, vivify_360
+ unless_null $P22, vivify_359
get_hll_global $P22, "%LANG"
- unless_null $P22, vivify_361
+ unless_null $P22, vivify_360
die "Contextual %*LANG not found"
- vivify_361:
- store_lex "%*LANG", $P22
vivify_360:
+ store_lex "%*LANG", $P22
+ vivify_359:
set $P22["Regex"], $P21
.annotate 'line', 7
get_hll_global $P23, ["NQP"], "RegexActions"
find_lex $P24, "%*LANG"
- unless_null $P24, vivify_362
+ unless_null $P24, vivify_361
get_hll_global $P24, "%LANG"
- unless_null $P24, vivify_363
+ unless_null $P24, vivify_362
die "Contextual %*LANG not found"
- vivify_363:
- store_lex "%*LANG", $P24
vivify_362:
+ store_lex "%*LANG", $P24
+ vivify_361:
set $P24["Regex-actions"], $P23
.annotate 'line', 8
get_hll_global $P25, ["NQP"], "Grammar"
find_lex $P26, "%*LANG"
- unless_null $P26, vivify_364
+ unless_null $P26, vivify_363
get_hll_global $P26, "%LANG"
- unless_null $P26, vivify_365
+ unless_null $P26, vivify_364
die "Contextual %*LANG not found"
- vivify_365:
- store_lex "%*LANG", $P26
vivify_364:
+ store_lex "%*LANG", $P26
+ vivify_363:
set $P26["MAIN"], $P25
.annotate 'line', 9
get_hll_global $P27, ["NQP"], "Actions"
find_lex $P28, "%*LANG"
- unless_null $P28, vivify_366
+ unless_null $P28, vivify_365
get_hll_global $P28, "%LANG"
- unless_null $P28, vivify_367
+ unless_null $P28, vivify_366
die "Contextual %*LANG not found"
- vivify_367:
- store_lex "%*LANG", $P28
vivify_366:
+ store_lex "%*LANG", $P28
+ vivify_365:
set $P28["MAIN-actions"], $P27
.annotate 'line', 10
new $P29, "String"
@@ -494,7 +509,7 @@
.namespace ["NQP";"Grammar"]
-.sub "identifier" :subid("13_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "identifier" :subid("13_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx34_tgt
.local int rx34_pos
@@ -552,7 +567,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__identifier" :subid("14_1274564776.41408") :method
+.sub "!PREFIX__identifier" :subid("14_1275117591.97262") :method
.annotate 'line', 4
$P36 = self."!PREFIX__!subrule"("ident", "")
new $P37, "ResizablePMCArray"
@@ -562,7 +577,7 @@
.namespace ["NQP";"Grammar"]
-.sub "name" :subid("15_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "name" :subid("15_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx40_tgt
.local int rx40_pos
@@ -636,7 +651,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__name" :subid("16_1274564776.41408") :method
+.sub "!PREFIX__name" :subid("16_1275117591.97262") :method
.annotate 'line', 4
new $P42, "ResizablePMCArray"
push $P42, ""
@@ -645,7 +660,7 @@
.namespace ["NQP";"Grammar"]
-.sub "deflongname" :subid("17_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "deflongname" :subid("17_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx47_tgt
.local int rx47_pos
@@ -718,7 +733,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__deflongname" :subid("18_1274564776.41408") :method
+.sub "!PREFIX__deflongname" :subid("18_1275117591.97262") :method
.annotate 'line', 4
$P49 = self."!PREFIX__!subrule"("identifier", "")
new $P50, "ResizablePMCArray"
@@ -728,7 +743,7 @@
.namespace ["NQP";"Grammar"]
-.sub "ENDSTMT" :subid("19_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "ENDSTMT" :subid("19_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx55_tgt
.local int rx55_pos
@@ -860,7 +875,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__ENDSTMT" :subid("20_1274564776.41408") :method
+.sub "!PREFIX__ENDSTMT" :subid("20_1275117591.97262") :method
.annotate 'line', 4
new $P57, "ResizablePMCArray"
push $P57, ""
@@ -869,7 +884,7 @@
.namespace ["NQP";"Grammar"]
-.sub "ws" :subid("21_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "ws" :subid("21_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx69_tgt
.local int rx69_pos
@@ -1024,7 +1039,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__ws" :subid("22_1274564776.41408") :method
+.sub "!PREFIX__ws" :subid("22_1275117591.97262") :method
.annotate 'line', 4
new $P71, "ResizablePMCArray"
push $P71, ""
@@ -1034,9 +1049,9 @@
.namespace ["NQP";"Grammar"]
-.sub "unv" :subid("23_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "unv" :subid("23_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .const 'Sub' $P90 = "25_1274564776.41408"
+ .const 'Sub' $P90 = "25_1275117591.97262"
capture_lex $P90
.local string rx83_tgt
.local int rx83_pos
@@ -1082,7 +1097,7 @@
rxanchor88_done:
# rx subrule "before" subtype=zerowidth negate=
rx83_cur."!cursor_pos"(rx83_pos)
- .const 'Sub' $P90 = "25_1274564776.41408"
+ .const 'Sub' $P90 = "25_1275117591.97262"
capture_lex $P90
$P10 = rx83_cur."before"($P90)
unless $P10, rx83_fail
@@ -1161,7 +1176,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__unv" :subid("24_1274564776.41408") :method
+.sub "!PREFIX__unv" :subid("24_1275117591.97262") :method
.annotate 'line', 4
new $P85, "ResizablePMCArray"
push $P85, ""
@@ -1172,7 +1187,7 @@
.namespace ["NQP";"Grammar"]
-.sub "_block89" :anon :subid("25_1274564776.41408") :method :outer("23_1274564776.41408")
+.sub "_block89" :anon :subid("25_1275117591.97262") :method :outer("23_1275117591.97262")
.annotate 'line', 45
.local string rx91_tgt
.local int rx91_pos
@@ -1262,9 +1277,9 @@
.namespace ["NQP";"Grammar"]
-.sub "pod_comment" :subid("26_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "pod_comment" :subid("26_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .const 'Sub' $P141 = "28_1274564776.41408"
+ .const 'Sub' $P141 = "28_1275117591.97262"
capture_lex $P141
.local string rx101_tgt
.local int rx101_pos
@@ -1750,7 +1765,7 @@
rxanchor139_done:
# rx subrule "before" subtype=zerowidth negate=
rx101_cur."!cursor_pos"(rx101_pos)
- .const 'Sub' $P141 = "28_1274564776.41408"
+ .const 'Sub' $P141 = "28_1275117591.97262"
capture_lex $P141
$P10 = rx101_cur."before"($P141)
unless $P10, rx101_fail
@@ -1801,7 +1816,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__pod_comment" :subid("27_1274564776.41408") :method
+.sub "!PREFIX__pod_comment" :subid("27_1275117591.97262") :method
.annotate 'line', 4
new $P103, "ResizablePMCArray"
push $P103, ""
@@ -1810,7 +1825,7 @@
.namespace ["NQP";"Grammar"]
-.sub "_block140" :anon :subid("28_1274564776.41408") :method :outer("26_1274564776.41408")
+.sub "_block140" :anon :subid("28_1275117591.97262") :method :outer("26_1275117591.97262")
.annotate 'line', 68
.local string rx142_tgt
.local int rx142_pos
@@ -1929,7 +1944,7 @@
.namespace ["NQP";"Grammar"]
-.sub "comp_unit" :subid("29_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "comp_unit" :subid("29_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx151_tgt
.local int rx151_pos
@@ -1967,6 +1982,12 @@
unless $P10, rx151_fail
rx151_pos = $P10."pos"()
.annotate 'line', 84
+ # rx subrule "outerctx" subtype=method negate=
+ rx151_cur."!cursor_pos"(rx151_pos)
+ $P10 = rx151_cur."outerctx"()
+ unless $P10, rx151_fail
+ rx151_pos = $P10."pos"()
+.annotate 'line', 85
# rx subrule "statementlist" subtype=capture negate=
rx151_cur."!cursor_pos"(rx151_pos)
$P10 = rx151_cur."statementlist"()
@@ -1975,7 +1996,7 @@
$P10."!cursor_names"("statementlist")
rx151_pos = $P10."pos"()
alt156_0:
-.annotate 'line', 85
+.annotate 'line', 86
set_addr $I10, alt156_1
rx151_cur."!mark_push"(0, rx151_pos, $I10)
# rxanchor eos
@@ -2008,7 +2029,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__comp_unit" :subid("30_1274564776.41408") :method
+.sub "!PREFIX__comp_unit" :subid("30_1275117591.97262") :method
.annotate 'line', 4
$P153 = self."!PREFIX__!subrule"("", "")
new $P154, "ResizablePMCArray"
@@ -2018,7 +2039,7 @@
.namespace ["NQP";"Grammar"]
-.sub "statementlist" :subid("31_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statementlist" :subid("31_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx158_tgt
.local int rx158_pos
@@ -2051,10 +2072,10 @@
rx158_cur."!mark_push"(0, rx158_pos, $I10)
rxscan161_done:
alt162_0:
-.annotate 'line', 88
+.annotate 'line', 89
set_addr $I10, alt162_1
rx158_cur."!mark_push"(0, rx158_pos, $I10)
-.annotate 'line', 89
+.annotate 'line', 90
# rx subrule "ws" subtype=method negate=
rx158_cur."!cursor_pos"(rx158_pos)
$P10 = rx158_cur."ws"()
@@ -2069,7 +2090,7 @@
rx158_pos = $P10."pos"()
goto alt162_end
alt162_1:
-.annotate 'line', 90
+.annotate 'line', 91
# rx subrule "ws" subtype=method negate=
rx158_cur."!cursor_pos"(rx158_pos)
$P10 = rx158_cur."ws"()
@@ -2106,7 +2127,7 @@
unless $P10, rx158_fail
rx158_pos = $P10."pos"()
alt162_end:
-.annotate 'line', 88
+.annotate 'line', 89
# rx pass
rx158_cur."!cursor_pass"(rx158_pos, "statementlist")
rx158_cur."!cursor_debug"("PASS ", "statementlist", " at pos=", rx158_pos)
@@ -2126,7 +2147,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statementlist" :subid("32_1274564776.41408") :method
+.sub "!PREFIX__statementlist" :subid("32_1275117591.97262") :method
.annotate 'line', 4
new $P160, "ResizablePMCArray"
push $P160, ""
@@ -2136,9 +2157,9 @@
.namespace ["NQP";"Grammar"]
-.sub "statement" :subid("33_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement" :subid("33_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .const 'Sub' $P176 = "35_1274564776.41408"
+ .const 'Sub' $P176 = "35_1275117591.97262"
capture_lex $P176
.local string rx171_tgt
.local int rx171_pos
@@ -2170,18 +2191,18 @@
set_addr $I10, rxscan174_loop
rx171_cur."!mark_push"(0, rx171_pos, $I10)
rxscan174_done:
-.annotate 'line', 94
+.annotate 'line', 95
# rx subrule "before" subtype=zerowidth negate=1
rx171_cur."!cursor_pos"(rx171_pos)
- .const 'Sub' $P176 = "35_1274564776.41408"
+ .const 'Sub' $P176 = "35_1275117591.97262"
capture_lex $P176
$P10 = rx171_cur."before"($P176)
if $P10, rx171_fail
alt180_0:
-.annotate 'line', 95
+.annotate 'line', 96
set_addr $I10, alt180_1
rx171_cur."!mark_push"(0, rx171_pos, $I10)
-.annotate 'line', 96
+.annotate 'line', 97
# rx subrule "statement_control" subtype=capture negate=
rx171_cur."!cursor_pos"(rx171_pos)
$P10 = rx171_cur."statement_control"()
@@ -2191,7 +2212,7 @@
rx171_pos = $P10."pos"()
goto alt180_end
alt180_1:
-.annotate 'line', 97
+.annotate 'line', 98
# rx subrule "EXPR" subtype=capture negate=
rx171_cur."!cursor_pos"(rx171_pos)
$P10 = rx171_cur."EXPR"()
@@ -2204,16 +2225,16 @@
$P10 = rx171_cur."ws"()
unless $P10, rx171_fail
rx171_pos = $P10."pos"()
-.annotate 'line', 102
+.annotate 'line', 103
# rx rxquantr181 ** 0..1
set_addr $I185, rxquantr181_done
rx171_cur."!mark_push"(0, rx171_pos, $I185)
rxquantr181_loop:
alt182_0:
-.annotate 'line', 98
+.annotate 'line', 99
set_addr $I10, alt182_1
rx171_cur."!mark_push"(0, rx171_pos, $I10)
-.annotate 'line', 99
+.annotate 'line', 100
# rx subrule "MARKED" subtype=zerowidth negate=
rx171_cur."!cursor_pos"(rx171_pos)
$P10 = rx171_cur."MARKED"("endstmt")
@@ -2222,7 +2243,7 @@
alt182_1:
set_addr $I10, alt182_2
rx171_cur."!mark_push"(0, rx171_pos, $I10)
-.annotate 'line', 100
+.annotate 'line', 101
# rx subrule "statement_mod_cond" subtype=capture negate=
rx171_cur."!cursor_pos"(rx171_pos)
$P10 = rx171_cur."statement_mod_cond"()
@@ -2245,7 +2266,7 @@
rxquantr183_done:
goto alt182_end
alt182_2:
-.annotate 'line', 101
+.annotate 'line', 102
# rx subrule "statement_mod_loop" subtype=capture negate=
rx171_cur."!cursor_pos"(rx171_pos)
$P10 = rx171_cur."statement_mod_loop"()
@@ -2254,11 +2275,11 @@
$P10."!cursor_names"("statement_mod_loop")
rx171_pos = $P10."pos"()
alt182_end:
-.annotate 'line', 102
+.annotate 'line', 103
(rx171_rep) = rx171_cur."!mark_commit"($I185)
rxquantr181_done:
alt180_end:
-.annotate 'line', 93
+.annotate 'line', 94
# rx pass
rx171_cur."!cursor_pass"(rx171_pos, "statement")
rx171_cur."!cursor_debug"("PASS ", "statement", " at pos=", rx171_pos)
@@ -2278,7 +2299,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement" :subid("34_1274564776.41408") :method
+.sub "!PREFIX__statement" :subid("34_1275117591.97262") :method
.annotate 'line', 4
new $P173, "ResizablePMCArray"
push $P173, ""
@@ -2287,8 +2308,8 @@
.namespace ["NQP";"Grammar"]
-.sub "_block175" :anon :subid("35_1274564776.41408") :method :outer("33_1274564776.41408")
-.annotate 'line', 94
+.sub "_block175" :anon :subid("35_1275117591.97262") :method :outer("33_1275117591.97262")
+.annotate 'line', 95
.local string rx177_tgt
.local int rx177_pos
.local int rx177_off
@@ -2351,7 +2372,7 @@
.namespace ["NQP";"Grammar"]
-.sub "eat_terminator" :subid("36_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "eat_terminator" :subid("36_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx187_tgt
.local int rx187_pos
@@ -2383,10 +2404,10 @@
rx187_cur."!mark_push"(0, rx187_pos, $I10)
rxscan190_done:
alt191_0:
-.annotate 'line', 106
+.annotate 'line', 107
set_addr $I10, alt191_1
rx187_cur."!mark_push"(0, rx187_pos, $I10)
-.annotate 'line', 107
+.annotate 'line', 108
# rx literal ";"
add $I11, rx187_pos, 1
gt $I11, rx187_eos, rx187_fail
@@ -2398,7 +2419,7 @@
alt191_1:
set_addr $I10, alt191_2
rx187_cur."!mark_push"(0, rx187_pos, $I10)
-.annotate 'line', 108
+.annotate 'line', 109
# rx subrule "MARKED" subtype=zerowidth negate=
rx187_cur."!cursor_pos"(rx187_pos)
$P10 = rx187_cur."MARKED"("endstmt")
@@ -2407,18 +2428,18 @@
alt191_2:
set_addr $I10, alt191_3
rx187_cur."!mark_push"(0, rx187_pos, $I10)
-.annotate 'line', 109
+.annotate 'line', 110
# rx subrule "terminator" subtype=zerowidth negate=
rx187_cur."!cursor_pos"(rx187_pos)
$P10 = rx187_cur."terminator"()
unless $P10, rx187_fail
goto alt191_end
alt191_3:
-.annotate 'line', 110
+.annotate 'line', 111
# rxanchor eos
ne rx187_pos, rx187_eos, rx187_fail
alt191_end:
-.annotate 'line', 106
+.annotate 'line', 107
# rx pass
rx187_cur."!cursor_pass"(rx187_pos, "eat_terminator")
rx187_cur."!cursor_debug"("PASS ", "eat_terminator", " at pos=", rx187_pos)
@@ -2438,7 +2459,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__eat_terminator" :subid("37_1274564776.41408") :method
+.sub "!PREFIX__eat_terminator" :subid("37_1275117591.97262") :method
.annotate 'line', 4
new $P189, "ResizablePMCArray"
push $P189, ""
@@ -2450,7 +2471,7 @@
.namespace ["NQP";"Grammar"]
-.sub "xblock" :subid("38_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "xblock" :subid("38_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx193_tgt
.local int rx193_pos
@@ -2481,7 +2502,7 @@
set_addr $I10, rxscan197_loop
rx193_cur."!mark_push"(0, rx193_pos, $I10)
rxscan197_done:
-.annotate 'line', 114
+.annotate 'line', 115
# rx subrule "EXPR" subtype=capture negate=
rx193_cur."!cursor_pos"(rx193_pos)
$P10 = rx193_cur."EXPR"()
@@ -2501,7 +2522,7 @@
rx193_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pblock")
rx193_pos = $P10."pos"()
-.annotate 'line', 113
+.annotate 'line', 114
# rx pass
rx193_cur."!cursor_pass"(rx193_pos, "xblock")
rx193_cur."!cursor_debug"("PASS ", "xblock", " at pos=", rx193_pos)
@@ -2521,7 +2542,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__xblock" :subid("39_1274564776.41408") :method
+.sub "!PREFIX__xblock" :subid("39_1275117591.97262") :method
.annotate 'line', 4
$P195 = self."!PREFIX__!subrule"("EXPR", "")
new $P196, "ResizablePMCArray"
@@ -2531,7 +2552,7 @@
.namespace ["NQP";"Grammar"]
-.sub "pblock" :subid("40_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "pblock" :subid("40_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx199_tgt
.local int rx199_pos
@@ -2563,22 +2584,22 @@
rx199_cur."!mark_push"(0, rx199_pos, $I10)
rxscan204_done:
alt205_0:
-.annotate 'line', 117
+.annotate 'line', 118
set_addr $I10, alt205_1
rx199_cur."!mark_push"(0, rx199_pos, $I10)
-.annotate 'line', 118
+.annotate 'line', 119
# rx subrule "lambda" subtype=method negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."lambda"()
unless $P10, rx199_fail
rx199_pos = $P10."pos"()
-.annotate 'line', 119
+.annotate 'line', 120
# rx subrule "newpad" subtype=method negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."newpad"()
unless $P10, rx199_fail
rx199_pos = $P10."pos"()
-.annotate 'line', 120
+.annotate 'line', 121
# rx subrule "signature" subtype=capture negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."signature"()
@@ -2586,7 +2607,7 @@
rx199_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
rx199_pos = $P10."pos"()
-.annotate 'line', 121
+.annotate 'line', 122
# rx subrule "blockoid" subtype=capture negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."blockoid"()
@@ -2594,25 +2615,25 @@
rx199_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
rx199_pos = $P10."pos"()
-.annotate 'line', 118
+.annotate 'line', 119
goto alt205_end
alt205_1:
set_addr $I10, alt205_2
rx199_cur."!mark_push"(0, rx199_pos, $I10)
-.annotate 'line', 122
+.annotate 'line', 123
# rx enumcharlist negate=0 zerowidth
ge rx199_pos, rx199_eos, rx199_fail
sub $I10, rx199_pos, rx199_off
substr $S10, rx199_tgt, $I10, 1
index $I11, "{", $S10
lt $I11, 0, rx199_fail
-.annotate 'line', 123
+.annotate 'line', 124
# rx subrule "newpad" subtype=method negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."newpad"()
unless $P10, rx199_fail
rx199_pos = $P10."pos"()
-.annotate 'line', 124
+.annotate 'line', 125
# rx subrule "blockoid" subtype=capture negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."blockoid"()
@@ -2620,17 +2641,17 @@
rx199_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
rx199_pos = $P10."pos"()
-.annotate 'line', 122
+.annotate 'line', 123
goto alt205_end
alt205_2:
-.annotate 'line', 125
+.annotate 'line', 126
# rx subrule "panic" subtype=method negate=
rx199_cur."!cursor_pos"(rx199_pos)
$P10 = rx199_cur."panic"("Missing block")
unless $P10, rx199_fail
rx199_pos = $P10."pos"()
alt205_end:
-.annotate 'line', 117
+.annotate 'line', 118
# rx pass
rx199_cur."!cursor_pass"(rx199_pos, "pblock")
rx199_cur."!cursor_debug"("PASS ", "pblock", " at pos=", rx199_pos)
@@ -2650,7 +2671,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__pblock" :subid("41_1274564776.41408") :method
+.sub "!PREFIX__pblock" :subid("41_1275117591.97262") :method
.annotate 'line', 4
$P201 = self."!PREFIX__!subrule"("", "")
$P202 = self."!PREFIX__!subrule"("", "")
@@ -2663,7 +2684,7 @@
.namespace ["NQP";"Grammar"]
-.sub "lambda" :subid("42_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "lambda" :subid("42_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx207_tgt
.local int rx207_pos
@@ -2695,7 +2716,7 @@
rx207_cur."!mark_push"(0, rx207_pos, $I10)
rxscan210_done:
alt211_0:
-.annotate 'line', 128
+.annotate 'line', 129
set_addr $I10, alt211_1
rx207_cur."!mark_push"(0, rx207_pos, $I10)
# rx literal "->"
@@ -2734,7 +2755,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__lambda" :subid("43_1274564776.41408") :method
+.sub "!PREFIX__lambda" :subid("43_1275117591.97262") :method
.annotate 'line', 4
new $P209, "ResizablePMCArray"
push $P209, "<->"
@@ -2744,7 +2765,7 @@
.namespace ["NQP";"Grammar"]
-.sub "block" :subid("44_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "block" :subid("44_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx213_tgt
.local int rx213_pos
@@ -2776,7 +2797,7 @@
rx213_cur."!mark_push"(0, rx213_pos, $I10)
rxscan217_done:
alt218_0:
-.annotate 'line', 131
+.annotate 'line', 132
set_addr $I10, alt218_1
rx213_cur."!mark_push"(0, rx213_pos, $I10)
# rx enumcharlist negate=0 zerowidth
@@ -2793,13 +2814,13 @@
unless $P10, rx213_fail
rx213_pos = $P10."pos"()
alt218_end:
-.annotate 'line', 132
+.annotate 'line', 133
# rx subrule "newpad" subtype=method negate=
rx213_cur."!cursor_pos"(rx213_pos)
$P10 = rx213_cur."newpad"()
unless $P10, rx213_fail
rx213_pos = $P10."pos"()
-.annotate 'line', 133
+.annotate 'line', 134
# rx subrule "blockoid" subtype=capture negate=
rx213_cur."!cursor_pos"(rx213_pos)
$P10 = rx213_cur."blockoid"()
@@ -2807,7 +2828,7 @@
rx213_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
rx213_pos = $P10."pos"()
-.annotate 'line', 130
+.annotate 'line', 131
# rx pass
rx213_cur."!cursor_pass"(rx213_pos, "block")
rx213_cur."!cursor_debug"("PASS ", "block", " at pos=", rx213_pos)
@@ -2827,7 +2848,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__block" :subid("45_1274564776.41408") :method
+.sub "!PREFIX__block" :subid("45_1275117591.97262") :method
.annotate 'line', 4
$P215 = self."!PREFIX__!subrule"("", "")
new $P216, "ResizablePMCArray"
@@ -2838,7 +2859,7 @@
.namespace ["NQP";"Grammar"]
-.sub "blockoid" :subid("46_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "blockoid" :subid("46_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx220_tgt
.local int rx220_pos
@@ -2869,13 +2890,13 @@
set_addr $I10, rxscan224_loop
rx220_cur."!mark_push"(0, rx220_pos, $I10)
rxscan224_done:
-.annotate 'line', 137
+.annotate 'line', 138
# rx subrule "finishpad" subtype=method negate=
rx220_cur."!cursor_pos"(rx220_pos)
$P10 = rx220_cur."finishpad"()
unless $P10, rx220_fail
rx220_pos = $P10."pos"()
-.annotate 'line', 138
+.annotate 'line', 139
# rx literal "{"
add $I11, rx220_pos, 1
gt $I11, rx220_eos, rx220_fail
@@ -2908,12 +2929,12 @@
unless $P10, rx220_fail
rx220_pos = $P10."pos"()
alt225_end:
-.annotate 'line', 139
+.annotate 'line', 140
# rx subrule "ENDSTMT" subtype=zerowidth negate=
rx220_cur."!cursor_pos"(rx220_pos)
$P10 = rx220_cur."ENDSTMT"()
unless $P10, rx220_fail
-.annotate 'line', 136
+.annotate 'line', 137
# rx pass
rx220_cur."!cursor_pass"(rx220_pos, "blockoid")
rx220_cur."!cursor_debug"("PASS ", "blockoid", " at pos=", rx220_pos)
@@ -2933,7 +2954,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__blockoid" :subid("47_1274564776.41408") :method
+.sub "!PREFIX__blockoid" :subid("47_1275117591.97262") :method
.annotate 'line', 4
$P222 = self."!PREFIX__!subrule"("", "")
new $P223, "ResizablePMCArray"
@@ -2943,7 +2964,7 @@
.namespace ["NQP";"Grammar"]
-.sub "newpad" :subid("48_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "newpad" :subid("48_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx228_tgt
.local int rx228_pos
@@ -2974,7 +2995,7 @@
set_addr $I10, rxscan231_loop
rx228_cur."!mark_push"(0, rx228_pos, $I10)
rxscan231_done:
-.annotate 'line', 142
+.annotate 'line', 143
# rx pass
rx228_cur."!cursor_pass"(rx228_pos, "newpad")
rx228_cur."!cursor_debug"("PASS ", "newpad", " at pos=", rx228_pos)
@@ -2994,7 +3015,7 @@
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__newpad" :subid("49_1274564776.41408") :method
+.sub "!PREFIX__newpad" :subid("49_1275117591.97262") :method
.annotate 'line', 4
new $P230, "ResizablePMCArray"
push $P230, ""
@@ -3003,7 +3024,7 @@
.namespace ["NQP";"Grammar"]
-.sub "finishpad" :subid("50_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "outerctx" :subid("50_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx233_tgt
.local int rx233_pos
@@ -3012,7 +3033,7 @@
.local int rx233_rep
.local pmc rx233_cur
(rx233_cur, rx233_pos, rx233_tgt) = self."!cursor_start"()
- rx233_cur."!cursor_debug"("START ", "finishpad")
+ rx233_cur."!cursor_debug"("START ", "outerctx")
.lex unicode:"$\x{a2}", rx233_cur
.local pmc match
.lex "$/", match
@@ -3034,10 +3055,10 @@
set_addr $I10, rxscan236_loop
rx233_cur."!mark_push"(0, rx233_pos, $I10)
rxscan236_done:
-.annotate 'line', 143
+.annotate 'line', 144
# rx pass
- rx233_cur."!cursor_pass"(rx233_pos, "finishpad")
- rx233_cur."!cursor_debug"("PASS ", "finishpad", " at pos=", rx233_pos)
+ rx233_cur."!cursor_pass"(rx233_pos, "outerctx")
+ rx233_cur."!cursor_debug"("PASS ", "outerctx", " at pos=", rx233_pos)
.return (rx233_cur)
rx233_fail:
.annotate 'line', 4
@@ -3047,14 +3068,14 @@
jump $I10
rx233_done:
rx233_cur."!cursor_fail"()
- rx233_cur."!cursor_debug"("FAIL ", "finishpad")
+ rx233_cur."!cursor_debug"("FAIL ", "outerctx")
.return (rx233_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__finishpad" :subid("51_1274564776.41408") :method
+.sub "!PREFIX__outerctx" :subid("51_1275117591.97262") :method
.annotate 'line', 4
new $P235, "ResizablePMCArray"
push $P235, ""
@@ -3063,89 +3084,83 @@
.namespace ["NQP";"Grammar"]
-.sub "terminator" :subid("52_1274564776.41408") :method
+.sub "finishpad" :subid("52_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx238_tgt
+ .local int rx238_pos
+ .local int rx238_off
+ .local int rx238_eos
+ .local int rx238_rep
+ .local pmc rx238_cur
+ (rx238_cur, rx238_pos, rx238_tgt) = self."!cursor_start"()
+ rx238_cur."!cursor_debug"("START ", "finishpad")
+ .lex unicode:"$\x{a2}", rx238_cur
+ .local pmc match
+ .lex "$/", match
+ length rx238_eos, rx238_tgt
+ set rx238_off, 0
+ lt rx238_pos, 2, rx238_start
+ sub rx238_off, rx238_pos, 1
+ substr rx238_tgt, rx238_tgt, rx238_off
+ rx238_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan241_done
+ goto rxscan241_scan
+ rxscan241_loop:
+ ($P10) = rx238_cur."from"()
+ inc $P10
+ set rx238_pos, $P10
+ ge rx238_pos, rx238_eos, rxscan241_done
+ rxscan241_scan:
+ set_addr $I10, rxscan241_loop
+ rx238_cur."!mark_push"(0, rx238_pos, $I10)
+ rxscan241_done:
.annotate 'line', 145
- $P238 = self."!protoregex"("terminator")
- .return ($P238)
+ # rx pass
+ rx238_cur."!cursor_pass"(rx238_pos, "finishpad")
+ rx238_cur."!cursor_debug"("PASS ", "finishpad", " at pos=", rx238_pos)
+ .return (rx238_cur)
+ rx238_fail:
+.annotate 'line', 4
+ (rx238_rep, rx238_pos, $I10, $P10) = rx238_cur."!mark_fail"(0)
+ lt rx238_pos, -1, rx238_done
+ eq rx238_pos, -1, rx238_fail
+ jump $I10
+ rx238_done:
+ rx238_cur."!cursor_fail"()
+ rx238_cur."!cursor_debug"("FAIL ", "finishpad")
+ .return (rx238_cur)
+ .return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__terminator" :subid("53_1274564776.41408") :method
-.annotate 'line', 145
- $P240 = self."!PREFIX__!protoregex"("terminator")
+.sub "!PREFIX__finishpad" :subid("53_1275117591.97262") :method
+.annotate 'line', 4
+ new $P240, "ResizablePMCArray"
+ push $P240, ""
.return ($P240)
.end
.namespace ["NQP";"Grammar"]
-.sub "terminator:sym<;>" :subid("54_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx242_tgt
- .local int rx242_pos
- .local int rx242_off
- .local int rx242_eos
- .local int rx242_rep
- .local pmc rx242_cur
- (rx242_cur, rx242_pos, rx242_tgt) = self."!cursor_start"()
- rx242_cur."!cursor_debug"("START ", "terminator:sym<;>")
- .lex unicode:"$\x{a2}", rx242_cur
- .local pmc match
- .lex "$/", match
- length rx242_eos, rx242_tgt
- set rx242_off, 0
- lt rx242_pos, 2, rx242_start
- sub rx242_off, rx242_pos, 1
- substr rx242_tgt, rx242_tgt, rx242_off
- rx242_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan245_done
- goto rxscan245_scan
- rxscan245_loop:
- ($P10) = rx242_cur."from"()
- inc $P10
- set rx242_pos, $P10
- ge rx242_pos, rx242_eos, rxscan245_done
- rxscan245_scan:
- set_addr $I10, rxscan245_loop
- rx242_cur."!mark_push"(0, rx242_pos, $I10)
- rxscan245_done:
+.sub "terminator" :subid("54_1275117591.97262") :method
.annotate 'line', 147
- # rx enumcharlist negate=0 zerowidth
- ge rx242_pos, rx242_eos, rx242_fail
- sub $I10, rx242_pos, rx242_off
- substr $S10, rx242_tgt, $I10, 1
- index $I11, ";", $S10
- lt $I11, 0, rx242_fail
- # rx pass
- rx242_cur."!cursor_pass"(rx242_pos, "terminator:sym<;>")
- rx242_cur."!cursor_debug"("PASS ", "terminator:sym<;>", " at pos=", rx242_pos)
- .return (rx242_cur)
- rx242_fail:
-.annotate 'line', 4
- (rx242_rep, rx242_pos, $I10, $P10) = rx242_cur."!mark_fail"(0)
- lt rx242_pos, -1, rx242_done
- eq rx242_pos, -1, rx242_fail
- jump $I10
- rx242_done:
- rx242_cur."!cursor_fail"()
- rx242_cur."!cursor_debug"("FAIL ", "terminator:sym<;>")
- .return (rx242_cur)
- .return ()
+ $P243 = self."!protoregex"("terminator")
+ .return ($P243)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__terminator:sym<;>" :subid("55_1274564776.41408") :method
-.annotate 'line', 4
- new $P244, "ResizablePMCArray"
- push $P244, ";"
- .return ($P244)
+.sub "!PREFIX__terminator" :subid("55_1275117591.97262") :method
+.annotate 'line', 147
+ $P245 = self."!PREFIX__!protoregex"("terminator")
+ .return ($P245)
.end
.namespace ["NQP";"Grammar"]
-.sub "terminator:sym<}>" :subid("56_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "terminator:sym<;>" :subid("56_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx247_tgt
.local int rx247_pos
@@ -3154,7 +3169,7 @@
.local int rx247_rep
.local pmc rx247_cur
(rx247_cur, rx247_pos, rx247_tgt) = self."!cursor_start"()
- rx247_cur."!cursor_debug"("START ", "terminator:sym<}>")
+ rx247_cur."!cursor_debug"("START ", "terminator:sym<;>")
.lex unicode:"$\x{a2}", rx247_cur
.local pmc match
.lex "$/", match
@@ -3176,16 +3191,16 @@
set_addr $I10, rxscan250_loop
rx247_cur."!mark_push"(0, rx247_pos, $I10)
rxscan250_done:
-.annotate 'line', 148
+.annotate 'line', 149
# rx enumcharlist negate=0 zerowidth
ge rx247_pos, rx247_eos, rx247_fail
sub $I10, rx247_pos, rx247_off
substr $S10, rx247_tgt, $I10, 1
- index $I11, "}", $S10
+ index $I11, ";", $S10
lt $I11, 0, rx247_fail
# rx pass
- rx247_cur."!cursor_pass"(rx247_pos, "terminator:sym<}>")
- rx247_cur."!cursor_debug"("PASS ", "terminator:sym<}>", " at pos=", rx247_pos)
+ rx247_cur."!cursor_pass"(rx247_pos, "terminator:sym<;>")
+ rx247_cur."!cursor_debug"("PASS ", "terminator:sym<;>", " at pos=", rx247_pos)
.return (rx247_cur)
rx247_fail:
.annotate 'line', 4
@@ -3195,2464 +3210,2459 @@
jump $I10
rx247_done:
rx247_cur."!cursor_fail"()
- rx247_cur."!cursor_debug"("FAIL ", "terminator:sym<}>")
+ rx247_cur."!cursor_debug"("FAIL ", "terminator:sym<;>")
.return (rx247_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__terminator:sym<}>" :subid("57_1274564776.41408") :method
+.sub "!PREFIX__terminator:sym<;>" :subid("57_1275117591.97262") :method
.annotate 'line', 4
new $P249, "ResizablePMCArray"
- push $P249, "}"
+ push $P249, ";"
.return ($P249)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control" :subid("58_1274564776.41408") :method
-.annotate 'line', 152
- $P252 = self."!protoregex"("statement_control")
- .return ($P252)
+.sub "terminator:sym<}>" :subid("58_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx252_tgt
+ .local int rx252_pos
+ .local int rx252_off
+ .local int rx252_eos
+ .local int rx252_rep
+ .local pmc rx252_cur
+ (rx252_cur, rx252_pos, rx252_tgt) = self."!cursor_start"()
+ rx252_cur."!cursor_debug"("START ", "terminator:sym<}>")
+ .lex unicode:"$\x{a2}", rx252_cur
+ .local pmc match
+ .lex "$/", match
+ length rx252_eos, rx252_tgt
+ set rx252_off, 0
+ lt rx252_pos, 2, rx252_start
+ sub rx252_off, rx252_pos, 1
+ substr rx252_tgt, rx252_tgt, rx252_off
+ rx252_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan255_done
+ goto rxscan255_scan
+ rxscan255_loop:
+ ($P10) = rx252_cur."from"()
+ inc $P10
+ set rx252_pos, $P10
+ ge rx252_pos, rx252_eos, rxscan255_done
+ rxscan255_scan:
+ set_addr $I10, rxscan255_loop
+ rx252_cur."!mark_push"(0, rx252_pos, $I10)
+ rxscan255_done:
+.annotate 'line', 150
+ # rx enumcharlist negate=0 zerowidth
+ ge rx252_pos, rx252_eos, rx252_fail
+ sub $I10, rx252_pos, rx252_off
+ substr $S10, rx252_tgt, $I10, 1
+ index $I11, "}", $S10
+ lt $I11, 0, rx252_fail
+ # rx pass
+ rx252_cur."!cursor_pass"(rx252_pos, "terminator:sym<}>")
+ rx252_cur."!cursor_debug"("PASS ", "terminator:sym<}>", " at pos=", rx252_pos)
+ .return (rx252_cur)
+ rx252_fail:
+.annotate 'line', 4
+ (rx252_rep, rx252_pos, $I10, $P10) = rx252_cur."!mark_fail"(0)
+ lt rx252_pos, -1, rx252_done
+ eq rx252_pos, -1, rx252_fail
+ jump $I10
+ rx252_done:
+ rx252_cur."!cursor_fail"()
+ rx252_cur."!cursor_debug"("FAIL ", "terminator:sym<}>")
+ .return (rx252_cur)
+ .return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control" :subid("59_1274564776.41408") :method
-.annotate 'line', 152
- $P254 = self."!PREFIX__!protoregex"("statement_control")
+.sub "!PREFIX__terminator:sym<}>" :subid("59_1275117591.97262") :method
+.annotate 'line', 4
+ new $P254, "ResizablePMCArray"
+ push $P254, "}"
.return ($P254)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<if>" :subid("60_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_control" :subid("60_1275117591.97262") :method
+.annotate 'line', 154
+ $P257 = self."!protoregex"("statement_control")
+ .return ($P257)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__statement_control" :subid("61_1275117591.97262") :method
+.annotate 'line', 154
+ $P259 = self."!PREFIX__!protoregex"("statement_control")
+ .return ($P259)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "statement_control:sym<if>" :subid("62_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx256_tgt
- .local int rx256_pos
- .local int rx256_off
- .local int rx256_eos
- .local int rx256_rep
- .local pmc rx256_cur
- (rx256_cur, rx256_pos, rx256_tgt) = self."!cursor_start"()
- rx256_cur."!cursor_debug"("START ", "statement_control:sym<if>")
- rx256_cur."!cursor_caparray"("else", "xblock")
- .lex unicode:"$\x{a2}", rx256_cur
- .local pmc match
- .lex "$/", match
- length rx256_eos, rx256_tgt
- set rx256_off, 0
- lt rx256_pos, 2, rx256_start
- sub rx256_off, rx256_pos, 1
- substr rx256_tgt, rx256_tgt, rx256_off
- rx256_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan259_done
- goto rxscan259_scan
- rxscan259_loop:
- ($P10) = rx256_cur."from"()
- inc $P10
- set rx256_pos, $P10
- ge rx256_pos, rx256_eos, rxscan259_done
- rxscan259_scan:
- set_addr $I10, rxscan259_loop
- rx256_cur."!mark_push"(0, rx256_pos, $I10)
- rxscan259_done:
-.annotate 'line', 155
+ .local string rx261_tgt
+ .local int rx261_pos
+ .local int rx261_off
+ .local int rx261_eos
+ .local int rx261_rep
+ .local pmc rx261_cur
+ (rx261_cur, rx261_pos, rx261_tgt) = self."!cursor_start"()
+ rx261_cur."!cursor_debug"("START ", "statement_control:sym<if>")
+ rx261_cur."!cursor_caparray"("else", "xblock")
+ .lex unicode:"$\x{a2}", rx261_cur
+ .local pmc match
+ .lex "$/", match
+ length rx261_eos, rx261_tgt
+ set rx261_off, 0
+ lt rx261_pos, 2, rx261_start
+ sub rx261_off, rx261_pos, 1
+ substr rx261_tgt, rx261_tgt, rx261_off
+ rx261_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan264_done
+ goto rxscan264_scan
+ rxscan264_loop:
+ ($P10) = rx261_cur."from"()
+ inc $P10
+ set rx261_pos, $P10
+ ge rx261_pos, rx261_eos, rxscan264_done
+ rxscan264_scan:
+ set_addr $I10, rxscan264_loop
+ rx261_cur."!mark_push"(0, rx261_pos, $I10)
+ rxscan264_done:
+.annotate 'line', 157
# rx subcapture "sym"
- set_addr $I10, rxcap_260_fail
- rx256_cur."!mark_push"(0, rx256_pos, $I10)
+ set_addr $I10, rxcap_265_fail
+ rx261_cur."!mark_push"(0, rx261_pos, $I10)
# rx literal "if"
- add $I11, rx256_pos, 2
- gt $I11, rx256_eos, rx256_fail
- sub $I11, rx256_pos, rx256_off
- substr $S10, rx256_tgt, $I11, 2
- ne $S10, "if", rx256_fail
- add rx256_pos, 2
- set_addr $I10, rxcap_260_fail
- ($I12, $I11) = rx256_cur."!mark_peek"($I10)
- rx256_cur."!cursor_pos"($I11)
- ($P10) = rx256_cur."!cursor_start"()
- $P10."!cursor_pass"(rx256_pos, "")
- rx256_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx261_pos, 2
+ gt $I11, rx261_eos, rx261_fail
+ sub $I11, rx261_pos, rx261_off
+ substr $S10, rx261_tgt, $I11, 2
+ ne $S10, "if", rx261_fail
+ add rx261_pos, 2
+ set_addr $I10, rxcap_265_fail
+ ($I12, $I11) = rx261_cur."!mark_peek"($I10)
+ rx261_cur."!cursor_pos"($I11)
+ ($P10) = rx261_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx261_pos, "")
+ rx261_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_260_done
- rxcap_260_fail:
- goto rx256_fail
- rxcap_260_done:
+ goto rxcap_265_done
+ rxcap_265_fail:
+ goto rx261_fail
+ rxcap_265_done:
# rx charclass s
- ge rx256_pos, rx256_eos, rx256_fail
- sub $I10, rx256_pos, rx256_off
- is_cclass $I11, 32, rx256_tgt, $I10
- unless $I11, rx256_fail
- inc rx256_pos
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
-.annotate 'line', 156
+ ge rx261_pos, rx261_eos, rx261_fail
+ sub $I10, rx261_pos, rx261_off
+ is_cclass $I11, 32, rx261_tgt, $I10
+ unless $I11, rx261_fail
+ inc rx261_pos
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
+.annotate 'line', 158
# rx subrule "xblock" subtype=capture negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."xblock"()
- unless $P10, rx256_fail
- rx256_cur."!mark_push"(0, -1, 0, $P10)
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."xblock"()
+ unless $P10, rx261_fail
+ rx261_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx256_pos = $P10."pos"()
+ rx261_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
-.annotate 'line', 157
- # rx rxquantr263 ** 0..*
- set_addr $I267, rxquantr263_done
- rx256_cur."!mark_push"(0, rx256_pos, $I267)
- rxquantr263_loop:
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
+.annotate 'line', 159
+ # rx rxquantr268 ** 0..*
+ set_addr $I272, rxquantr268_done
+ rx261_cur."!mark_push"(0, rx261_pos, $I272)
+ rxquantr268_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
# rx literal "elsif"
- add $I11, rx256_pos, 5
- gt $I11, rx256_eos, rx256_fail
- sub $I11, rx256_pos, rx256_off
- substr $S10, rx256_tgt, $I11, 5
- ne $S10, "elsif", rx256_fail
- add rx256_pos, 5
+ add $I11, rx261_pos, 5
+ gt $I11, rx261_eos, rx261_fail
+ sub $I11, rx261_pos, rx261_off
+ substr $S10, rx261_tgt, $I11, 5
+ ne $S10, "elsif", rx261_fail
+ add rx261_pos, 5
# rx charclass s
- ge rx256_pos, rx256_eos, rx256_fail
- sub $I10, rx256_pos, rx256_off
- is_cclass $I11, 32, rx256_tgt, $I10
- unless $I11, rx256_fail
- inc rx256_pos
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
+ ge rx261_pos, rx261_eos, rx261_fail
+ sub $I10, rx261_pos, rx261_off
+ is_cclass $I11, 32, rx261_tgt, $I10
+ unless $I11, rx261_fail
+ inc rx261_pos
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
# rx subrule "xblock" subtype=capture negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."xblock"()
- unless $P10, rx256_fail
- rx256_cur."!mark_push"(0, -1, 0, $P10)
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."xblock"()
+ unless $P10, rx261_fail
+ rx261_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx256_pos = $P10."pos"()
+ rx261_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
- (rx256_rep) = rx256_cur."!mark_commit"($I267)
- rx256_cur."!mark_push"(rx256_rep, rx256_pos, $I267)
- goto rxquantr263_loop
- rxquantr263_done:
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
-.annotate 'line', 158
- # rx rxquantr269 ** 0..1
- set_addr $I273, rxquantr269_done
- rx256_cur."!mark_push"(0, rx256_pos, $I273)
- rxquantr269_loop:
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
+ (rx261_rep) = rx261_cur."!mark_commit"($I272)
+ rx261_cur."!mark_push"(rx261_rep, rx261_pos, $I272)
+ goto rxquantr268_loop
+ rxquantr268_done:
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
+.annotate 'line', 160
+ # rx rxquantr274 ** 0..1
+ set_addr $I278, rxquantr274_done
+ rx261_cur."!mark_push"(0, rx261_pos, $I278)
+ rxquantr274_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
# rx literal "else"
- add $I11, rx256_pos, 4
- gt $I11, rx256_eos, rx256_fail
- sub $I11, rx256_pos, rx256_off
- substr $S10, rx256_tgt, $I11, 4
- ne $S10, "else", rx256_fail
- add rx256_pos, 4
+ add $I11, rx261_pos, 4
+ gt $I11, rx261_eos, rx261_fail
+ sub $I11, rx261_pos, rx261_off
+ substr $S10, rx261_tgt, $I11, 4
+ ne $S10, "else", rx261_fail
+ add rx261_pos, 4
# rx charclass s
- ge rx256_pos, rx256_eos, rx256_fail
- sub $I10, rx256_pos, rx256_off
- is_cclass $I11, 32, rx256_tgt, $I10
- unless $I11, rx256_fail
- inc rx256_pos
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
+ ge rx261_pos, rx261_eos, rx261_fail
+ sub $I10, rx261_pos, rx261_off
+ is_cclass $I11, 32, rx261_tgt, $I10
+ unless $I11, rx261_fail
+ inc rx261_pos
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
# rx subrule "pblock" subtype=capture negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."pblock"()
- unless $P10, rx256_fail
- rx256_cur."!mark_push"(0, -1, 0, $P10)
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."pblock"()
+ unless $P10, rx261_fail
+ rx261_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("else")
- rx256_pos = $P10."pos"()
+ rx261_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
- (rx256_rep) = rx256_cur."!mark_commit"($I273)
- rxquantr269_done:
- # rx subrule "ws" subtype=method negate=
- rx256_cur."!cursor_pos"(rx256_pos)
- $P10 = rx256_cur."ws"()
- unless $P10, rx256_fail
- rx256_pos = $P10."pos"()
-.annotate 'line', 154
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
+ (rx261_rep) = rx261_cur."!mark_commit"($I278)
+ rxquantr274_done:
+ # rx subrule "ws" subtype=method negate=
+ rx261_cur."!cursor_pos"(rx261_pos)
+ $P10 = rx261_cur."ws"()
+ unless $P10, rx261_fail
+ rx261_pos = $P10."pos"()
+.annotate 'line', 156
# rx pass
- rx256_cur."!cursor_pass"(rx256_pos, "statement_control:sym<if>")
- rx256_cur."!cursor_debug"("PASS ", "statement_control:sym<if>", " at pos=", rx256_pos)
- .return (rx256_cur)
- rx256_fail:
+ rx261_cur."!cursor_pass"(rx261_pos, "statement_control:sym<if>")
+ rx261_cur."!cursor_debug"("PASS ", "statement_control:sym<if>", " at pos=", rx261_pos)
+ .return (rx261_cur)
+ rx261_fail:
.annotate 'line', 4
- (rx256_rep, rx256_pos, $I10, $P10) = rx256_cur."!mark_fail"(0)
- lt rx256_pos, -1, rx256_done
- eq rx256_pos, -1, rx256_fail
+ (rx261_rep, rx261_pos, $I10, $P10) = rx261_cur."!mark_fail"(0)
+ lt rx261_pos, -1, rx261_done
+ eq rx261_pos, -1, rx261_fail
jump $I10
- rx256_done:
- rx256_cur."!cursor_fail"()
- rx256_cur."!cursor_debug"("FAIL ", "statement_control:sym<if>")
- .return (rx256_cur)
+ rx261_done:
+ rx261_cur."!cursor_fail"()
+ rx261_cur."!cursor_debug"("FAIL ", "statement_control:sym<if>")
+ .return (rx261_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<if>" :subid("61_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<if>" :subid("63_1275117591.97262") :method
.annotate 'line', 4
- new $P258, "ResizablePMCArray"
- push $P258, "if"
- .return ($P258)
+ new $P263, "ResizablePMCArray"
+ push $P263, "if"
+ .return ($P263)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<unless>" :subid("62_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_control:sym<unless>" :subid("64_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .const 'Sub' $P286 = "64_1274564776.41408"
- capture_lex $P286
- .local string rx276_tgt
- .local int rx276_pos
- .local int rx276_off
- .local int rx276_eos
- .local int rx276_rep
- .local pmc rx276_cur
- (rx276_cur, rx276_pos, rx276_tgt) = self."!cursor_start"()
- rx276_cur."!cursor_debug"("START ", "statement_control:sym<unless>")
- .lex unicode:"$\x{a2}", rx276_cur
+ .const 'Sub' $P291 = "66_1275117591.97262"
+ capture_lex $P291
+ .local string rx281_tgt
+ .local int rx281_pos
+ .local int rx281_off
+ .local int rx281_eos
+ .local int rx281_rep
+ .local pmc rx281_cur
+ (rx281_cur, rx281_pos, rx281_tgt) = self."!cursor_start"()
+ rx281_cur."!cursor_debug"("START ", "statement_control:sym<unless>")
+ .lex unicode:"$\x{a2}", rx281_cur
.local pmc match
.lex "$/", match
- length rx276_eos, rx276_tgt
- set rx276_off, 0
- lt rx276_pos, 2, rx276_start
- sub rx276_off, rx276_pos, 1
- substr rx276_tgt, rx276_tgt, rx276_off
- rx276_start:
+ length rx281_eos, rx281_tgt
+ set rx281_off, 0
+ lt rx281_pos, 2, rx281_start
+ sub rx281_off, rx281_pos, 1
+ substr rx281_tgt, rx281_tgt, rx281_off
+ rx281_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan279_done
- goto rxscan279_scan
- rxscan279_loop:
- ($P10) = rx276_cur."from"()
+ ne $I10, -1, rxscan284_done
+ goto rxscan284_scan
+ rxscan284_loop:
+ ($P10) = rx281_cur."from"()
inc $P10
- set rx276_pos, $P10
- ge rx276_pos, rx276_eos, rxscan279_done
- rxscan279_scan:
- set_addr $I10, rxscan279_loop
- rx276_cur."!mark_push"(0, rx276_pos, $I10)
- rxscan279_done:
-.annotate 'line', 162
+ set rx281_pos, $P10
+ ge rx281_pos, rx281_eos, rxscan284_done
+ rxscan284_scan:
+ set_addr $I10, rxscan284_loop
+ rx281_cur."!mark_push"(0, rx281_pos, $I10)
+ rxscan284_done:
+.annotate 'line', 164
# rx subcapture "sym"
- set_addr $I10, rxcap_280_fail
- rx276_cur."!mark_push"(0, rx276_pos, $I10)
+ set_addr $I10, rxcap_285_fail
+ rx281_cur."!mark_push"(0, rx281_pos, $I10)
# rx literal "unless"
- add $I11, rx276_pos, 6
- gt $I11, rx276_eos, rx276_fail
- sub $I11, rx276_pos, rx276_off
- substr $S10, rx276_tgt, $I11, 6
- ne $S10, "unless", rx276_fail
- add rx276_pos, 6
- set_addr $I10, rxcap_280_fail
- ($I12, $I11) = rx276_cur."!mark_peek"($I10)
- rx276_cur."!cursor_pos"($I11)
- ($P10) = rx276_cur."!cursor_start"()
- $P10."!cursor_pass"(rx276_pos, "")
- rx276_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx281_pos, 6
+ gt $I11, rx281_eos, rx281_fail
+ sub $I11, rx281_pos, rx281_off
+ substr $S10, rx281_tgt, $I11, 6
+ ne $S10, "unless", rx281_fail
+ add rx281_pos, 6
+ set_addr $I10, rxcap_285_fail
+ ($I12, $I11) = rx281_cur."!mark_peek"($I10)
+ rx281_cur."!cursor_pos"($I11)
+ ($P10) = rx281_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx281_pos, "")
+ rx281_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_280_done
- rxcap_280_fail:
- goto rx276_fail
- rxcap_280_done:
+ goto rxcap_285_done
+ rxcap_285_fail:
+ goto rx281_fail
+ rxcap_285_done:
# rx charclass s
- ge rx276_pos, rx276_eos, rx276_fail
- sub $I10, rx276_pos, rx276_off
- is_cclass $I11, 32, rx276_tgt, $I10
- unless $I11, rx276_fail
- inc rx276_pos
- # rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
-.annotate 'line', 163
+ ge rx281_pos, rx281_eos, rx281_fail
+ sub $I10, rx281_pos, rx281_off
+ is_cclass $I11, 32, rx281_tgt, $I10
+ unless $I11, rx281_fail
+ inc rx281_pos
+ # rx subrule "ws" subtype=method negate=
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
+.annotate 'line', 165
# rx subrule "xblock" subtype=capture negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."xblock"()
- unless $P10, rx276_fail
- rx276_cur."!mark_push"(0, -1, 0, $P10)
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."xblock"()
+ unless $P10, rx281_fail
+ rx281_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx276_pos = $P10."pos"()
+ rx281_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
- alt283_0:
-.annotate 'line', 164
- set_addr $I10, alt283_1
- rx276_cur."!mark_push"(0, rx276_pos, $I10)
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
+ alt288_0:
+.annotate 'line', 166
+ set_addr $I10, alt288_1
+ rx281_cur."!mark_push"(0, rx281_pos, $I10)
# rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
# rx subrule "before" subtype=zerowidth negate=1
- rx276_cur."!cursor_pos"(rx276_pos)
- .const 'Sub' $P286 = "64_1274564776.41408"
- capture_lex $P286
- $P10 = rx276_cur."before"($P286)
- if $P10, rx276_fail
- # rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
- goto alt283_end
- alt283_1:
- # rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
+ rx281_cur."!cursor_pos"(rx281_pos)
+ .const 'Sub' $P291 = "66_1275117591.97262"
+ capture_lex $P291
+ $P10 = rx281_cur."before"($P291)
+ if $P10, rx281_fail
+ # rx subrule "ws" subtype=method negate=
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
+ goto alt288_end
+ alt288_1:
+ # rx subrule "ws" subtype=method negate=
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."panic"("unless does not take \"else\", please rewrite using \"if\"")
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
- alt283_end:
- # rx subrule "ws" subtype=method negate=
- rx276_cur."!cursor_pos"(rx276_pos)
- $P10 = rx276_cur."ws"()
- unless $P10, rx276_fail
- rx276_pos = $P10."pos"()
-.annotate 'line', 161
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."panic"("unless does not take \"else\", please rewrite using \"if\"")
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
+ alt288_end:
+ # rx subrule "ws" subtype=method negate=
+ rx281_cur."!cursor_pos"(rx281_pos)
+ $P10 = rx281_cur."ws"()
+ unless $P10, rx281_fail
+ rx281_pos = $P10."pos"()
+.annotate 'line', 163
# rx pass
- rx276_cur."!cursor_pass"(rx276_pos, "statement_control:sym<unless>")
- rx276_cur."!cursor_debug"("PASS ", "statement_control:sym<unless>", " at pos=", rx276_pos)
- .return (rx276_cur)
- rx276_fail:
+ rx281_cur."!cursor_pass"(rx281_pos, "statement_control:sym<unless>")
+ rx281_cur."!cursor_debug"("PASS ", "statement_control:sym<unless>", " at pos=", rx281_pos)
+ .return (rx281_cur)
+ rx281_fail:
.annotate 'line', 4
- (rx276_rep, rx276_pos, $I10, $P10) = rx276_cur."!mark_fail"(0)
- lt rx276_pos, -1, rx276_done
- eq rx276_pos, -1, rx276_fail
+ (rx281_rep, rx281_pos, $I10, $P10) = rx281_cur."!mark_fail"(0)
+ lt rx281_pos, -1, rx281_done
+ eq rx281_pos, -1, rx281_fail
jump $I10
- rx276_done:
- rx276_cur."!cursor_fail"()
- rx276_cur."!cursor_debug"("FAIL ", "statement_control:sym<unless>")
- .return (rx276_cur)
+ rx281_done:
+ rx281_cur."!cursor_fail"()
+ rx281_cur."!cursor_debug"("FAIL ", "statement_control:sym<unless>")
+ .return (rx281_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<unless>" :subid("63_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<unless>" :subid("65_1275117591.97262") :method
.annotate 'line', 4
- new $P278, "ResizablePMCArray"
- push $P278, "unless"
- .return ($P278)
+ new $P283, "ResizablePMCArray"
+ push $P283, "unless"
+ .return ($P283)
.end
.namespace ["NQP";"Grammar"]
-.sub "_block285" :anon :subid("64_1274564776.41408") :method :outer("62_1274564776.41408")
-.annotate 'line', 164
- .local string rx287_tgt
- .local int rx287_pos
- .local int rx287_off
- .local int rx287_eos
- .local int rx287_rep
- .local pmc rx287_cur
- (rx287_cur, rx287_pos, rx287_tgt) = self."!cursor_start"()
- rx287_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx287_cur
- .local pmc match
- .lex "$/", match
- length rx287_eos, rx287_tgt
- set rx287_off, 0
- lt rx287_pos, 2, rx287_start
- sub rx287_off, rx287_pos, 1
- substr rx287_tgt, rx287_tgt, rx287_off
- rx287_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan288_done
- goto rxscan288_scan
- rxscan288_loop:
- ($P10) = rx287_cur."from"()
- inc $P10
- set rx287_pos, $P10
- ge rx287_pos, rx287_eos, rxscan288_done
- rxscan288_scan:
- set_addr $I10, rxscan288_loop
- rx287_cur."!mark_push"(0, rx287_pos, $I10)
- rxscan288_done:
+.sub "_block290" :anon :subid("66_1275117591.97262") :method :outer("64_1275117591.97262")
+.annotate 'line', 166
+ .local string rx292_tgt
+ .local int rx292_pos
+ .local int rx292_off
+ .local int rx292_eos
+ .local int rx292_rep
+ .local pmc rx292_cur
+ (rx292_cur, rx292_pos, rx292_tgt) = self."!cursor_start"()
+ rx292_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx292_cur
+ .local pmc match
+ .lex "$/", match
+ length rx292_eos, rx292_tgt
+ set rx292_off, 0
+ lt rx292_pos, 2, rx292_start
+ sub rx292_off, rx292_pos, 1
+ substr rx292_tgt, rx292_tgt, rx292_off
+ rx292_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan293_done
+ goto rxscan293_scan
+ rxscan293_loop:
+ ($P10) = rx292_cur."from"()
+ inc $P10
+ set rx292_pos, $P10
+ ge rx292_pos, rx292_eos, rxscan293_done
+ rxscan293_scan:
+ set_addr $I10, rxscan293_loop
+ rx292_cur."!mark_push"(0, rx292_pos, $I10)
+ rxscan293_done:
# rx literal "else"
- add $I11, rx287_pos, 4
- gt $I11, rx287_eos, rx287_fail
- sub $I11, rx287_pos, rx287_off
- substr $S10, rx287_tgt, $I11, 4
- ne $S10, "else", rx287_fail
- add rx287_pos, 4
- # rx pass
- rx287_cur."!cursor_pass"(rx287_pos, "")
- rx287_cur."!cursor_debug"("PASS ", "", " at pos=", rx287_pos)
- .return (rx287_cur)
- rx287_fail:
- (rx287_rep, rx287_pos, $I10, $P10) = rx287_cur."!mark_fail"(0)
- lt rx287_pos, -1, rx287_done
- eq rx287_pos, -1, rx287_fail
- jump $I10
- rx287_done:
- rx287_cur."!cursor_fail"()
- rx287_cur."!cursor_debug"("FAIL ", "")
- .return (rx287_cur)
+ add $I11, rx292_pos, 4
+ gt $I11, rx292_eos, rx292_fail
+ sub $I11, rx292_pos, rx292_off
+ substr $S10, rx292_tgt, $I11, 4
+ ne $S10, "else", rx292_fail
+ add rx292_pos, 4
+ # rx pass
+ rx292_cur."!cursor_pass"(rx292_pos, "")
+ rx292_cur."!cursor_debug"("PASS ", "", " at pos=", rx292_pos)
+ .return (rx292_cur)
+ rx292_fail:
+ (rx292_rep, rx292_pos, $I10, $P10) = rx292_cur."!mark_fail"(0)
+ lt rx292_pos, -1, rx292_done
+ eq rx292_pos, -1, rx292_fail
+ jump $I10
+ rx292_done:
+ rx292_cur."!cursor_fail"()
+ rx292_cur."!cursor_debug"("FAIL ", "")
+ .return (rx292_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<while>" :subid("65_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx294_tgt
- .local int rx294_pos
- .local int rx294_off
- .local int rx294_eos
- .local int rx294_rep
- .local pmc rx294_cur
- (rx294_cur, rx294_pos, rx294_tgt) = self."!cursor_start"()
- rx294_cur."!cursor_debug"("START ", "statement_control:sym<while>")
- .lex unicode:"$\x{a2}", rx294_cur
- .local pmc match
- .lex "$/", match
- length rx294_eos, rx294_tgt
- set rx294_off, 0
- lt rx294_pos, 2, rx294_start
- sub rx294_off, rx294_pos, 1
- substr rx294_tgt, rx294_tgt, rx294_off
- rx294_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan297_done
- goto rxscan297_scan
- rxscan297_loop:
- ($P10) = rx294_cur."from"()
- inc $P10
- set rx294_pos, $P10
- ge rx294_pos, rx294_eos, rxscan297_done
- rxscan297_scan:
- set_addr $I10, rxscan297_loop
- rx294_cur."!mark_push"(0, rx294_pos, $I10)
- rxscan297_done:
-.annotate 'line', 168
+.sub "statement_control:sym<while>" :subid("67_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx299_tgt
+ .local int rx299_pos
+ .local int rx299_off
+ .local int rx299_eos
+ .local int rx299_rep
+ .local pmc rx299_cur
+ (rx299_cur, rx299_pos, rx299_tgt) = self."!cursor_start"()
+ rx299_cur."!cursor_debug"("START ", "statement_control:sym<while>")
+ .lex unicode:"$\x{a2}", rx299_cur
+ .local pmc match
+ .lex "$/", match
+ length rx299_eos, rx299_tgt
+ set rx299_off, 0
+ lt rx299_pos, 2, rx299_start
+ sub rx299_off, rx299_pos, 1
+ substr rx299_tgt, rx299_tgt, rx299_off
+ rx299_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan302_done
+ goto rxscan302_scan
+ rxscan302_loop:
+ ($P10) = rx299_cur."from"()
+ inc $P10
+ set rx299_pos, $P10
+ ge rx299_pos, rx299_eos, rxscan302_done
+ rxscan302_scan:
+ set_addr $I10, rxscan302_loop
+ rx299_cur."!mark_push"(0, rx299_pos, $I10)
+ rxscan302_done:
+.annotate 'line', 170
# rx subcapture "sym"
- set_addr $I10, rxcap_299_fail
- rx294_cur."!mark_push"(0, rx294_pos, $I10)
- alt298_0:
- set_addr $I10, alt298_1
- rx294_cur."!mark_push"(0, rx294_pos, $I10)
+ set_addr $I10, rxcap_304_fail
+ rx299_cur."!mark_push"(0, rx299_pos, $I10)
+ alt303_0:
+ set_addr $I10, alt303_1
+ rx299_cur."!mark_push"(0, rx299_pos, $I10)
# rx literal "while"
- add $I11, rx294_pos, 5
- gt $I11, rx294_eos, rx294_fail
- sub $I11, rx294_pos, rx294_off
- substr $S10, rx294_tgt, $I11, 5
- ne $S10, "while", rx294_fail
- add rx294_pos, 5
- goto alt298_end
- alt298_1:
+ add $I11, rx299_pos, 5
+ gt $I11, rx299_eos, rx299_fail
+ sub $I11, rx299_pos, rx299_off
+ substr $S10, rx299_tgt, $I11, 5
+ ne $S10, "while", rx299_fail
+ add rx299_pos, 5
+ goto alt303_end
+ alt303_1:
# rx literal "until"
- add $I11, rx294_pos, 5
- gt $I11, rx294_eos, rx294_fail
- sub $I11, rx294_pos, rx294_off
- substr $S10, rx294_tgt, $I11, 5
- ne $S10, "until", rx294_fail
- add rx294_pos, 5
- alt298_end:
- set_addr $I10, rxcap_299_fail
- ($I12, $I11) = rx294_cur."!mark_peek"($I10)
- rx294_cur."!cursor_pos"($I11)
- ($P10) = rx294_cur."!cursor_start"()
- $P10."!cursor_pass"(rx294_pos, "")
- rx294_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx299_pos, 5
+ gt $I11, rx299_eos, rx299_fail
+ sub $I11, rx299_pos, rx299_off
+ substr $S10, rx299_tgt, $I11, 5
+ ne $S10, "until", rx299_fail
+ add rx299_pos, 5
+ alt303_end:
+ set_addr $I10, rxcap_304_fail
+ ($I12, $I11) = rx299_cur."!mark_peek"($I10)
+ rx299_cur."!cursor_pos"($I11)
+ ($P10) = rx299_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx299_pos, "")
+ rx299_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_299_done
- rxcap_299_fail:
- goto rx294_fail
- rxcap_299_done:
+ goto rxcap_304_done
+ rxcap_304_fail:
+ goto rx299_fail
+ rxcap_304_done:
# rx charclass s
- ge rx294_pos, rx294_eos, rx294_fail
- sub $I10, rx294_pos, rx294_off
- is_cclass $I11, 32, rx294_tgt, $I10
- unless $I11, rx294_fail
- inc rx294_pos
- # rx subrule "ws" subtype=method negate=
- rx294_cur."!cursor_pos"(rx294_pos)
- $P10 = rx294_cur."ws"()
- unless $P10, rx294_fail
- rx294_pos = $P10."pos"()
-.annotate 'line', 169
+ ge rx299_pos, rx299_eos, rx299_fail
+ sub $I10, rx299_pos, rx299_off
+ is_cclass $I11, 32, rx299_tgt, $I10
+ unless $I11, rx299_fail
+ inc rx299_pos
+ # rx subrule "ws" subtype=method negate=
+ rx299_cur."!cursor_pos"(rx299_pos)
+ $P10 = rx299_cur."ws"()
+ unless $P10, rx299_fail
+ rx299_pos = $P10."pos"()
+.annotate 'line', 171
# rx subrule "xblock" subtype=capture negate=
- rx294_cur."!cursor_pos"(rx294_pos)
- $P10 = rx294_cur."xblock"()
- unless $P10, rx294_fail
- rx294_cur."!mark_push"(0, -1, 0, $P10)
+ rx299_cur."!cursor_pos"(rx299_pos)
+ $P10 = rx299_cur."xblock"()
+ unless $P10, rx299_fail
+ rx299_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx294_pos = $P10."pos"()
+ rx299_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx294_cur."!cursor_pos"(rx294_pos)
- $P10 = rx294_cur."ws"()
- unless $P10, rx294_fail
- rx294_pos = $P10."pos"()
-.annotate 'line', 167
+ rx299_cur."!cursor_pos"(rx299_pos)
+ $P10 = rx299_cur."ws"()
+ unless $P10, rx299_fail
+ rx299_pos = $P10."pos"()
+.annotate 'line', 169
# rx pass
- rx294_cur."!cursor_pass"(rx294_pos, "statement_control:sym<while>")
- rx294_cur."!cursor_debug"("PASS ", "statement_control:sym<while>", " at pos=", rx294_pos)
- .return (rx294_cur)
- rx294_fail:
+ rx299_cur."!cursor_pass"(rx299_pos, "statement_control:sym<while>")
+ rx299_cur."!cursor_debug"("PASS ", "statement_control:sym<while>", " at pos=", rx299_pos)
+ .return (rx299_cur)
+ rx299_fail:
.annotate 'line', 4
- (rx294_rep, rx294_pos, $I10, $P10) = rx294_cur."!mark_fail"(0)
- lt rx294_pos, -1, rx294_done
- eq rx294_pos, -1, rx294_fail
+ (rx299_rep, rx299_pos, $I10, $P10) = rx299_cur."!mark_fail"(0)
+ lt rx299_pos, -1, rx299_done
+ eq rx299_pos, -1, rx299_fail
jump $I10
- rx294_done:
- rx294_cur."!cursor_fail"()
- rx294_cur."!cursor_debug"("FAIL ", "statement_control:sym<while>")
- .return (rx294_cur)
+ rx299_done:
+ rx299_cur."!cursor_fail"()
+ rx299_cur."!cursor_debug"("FAIL ", "statement_control:sym<while>")
+ .return (rx299_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<while>" :subid("66_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<while>" :subid("68_1275117591.97262") :method
.annotate 'line', 4
- new $P296, "ResizablePMCArray"
- push $P296, "until"
- push $P296, "while"
- .return ($P296)
+ new $P301, "ResizablePMCArray"
+ push $P301, "until"
+ push $P301, "while"
+ .return ($P301)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<repeat>" :subid("67_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_control:sym<repeat>" :subid("69_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx303_tgt
- .local int rx303_pos
- .local int rx303_off
- .local int rx303_eos
- .local int rx303_rep
- .local pmc rx303_cur
- (rx303_cur, rx303_pos, rx303_tgt) = self."!cursor_start"()
- rx303_cur."!cursor_debug"("START ", "statement_control:sym<repeat>")
- .lex unicode:"$\x{a2}", rx303_cur
+ .local string rx308_tgt
+ .local int rx308_pos
+ .local int rx308_off
+ .local int rx308_eos
+ .local int rx308_rep
+ .local pmc rx308_cur
+ (rx308_cur, rx308_pos, rx308_tgt) = self."!cursor_start"()
+ rx308_cur."!cursor_debug"("START ", "statement_control:sym<repeat>")
+ .lex unicode:"$\x{a2}", rx308_cur
.local pmc match
.lex "$/", match
- length rx303_eos, rx303_tgt
- set rx303_off, 0
- lt rx303_pos, 2, rx303_start
- sub rx303_off, rx303_pos, 1
- substr rx303_tgt, rx303_tgt, rx303_off
- rx303_start:
+ length rx308_eos, rx308_tgt
+ set rx308_off, 0
+ lt rx308_pos, 2, rx308_start
+ sub rx308_off, rx308_pos, 1
+ substr rx308_tgt, rx308_tgt, rx308_off
+ rx308_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan306_done
- goto rxscan306_scan
- rxscan306_loop:
- ($P10) = rx303_cur."from"()
+ ne $I10, -1, rxscan311_done
+ goto rxscan311_scan
+ rxscan311_loop:
+ ($P10) = rx308_cur."from"()
inc $P10
- set rx303_pos, $P10
- ge rx303_pos, rx303_eos, rxscan306_done
- rxscan306_scan:
- set_addr $I10, rxscan306_loop
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
- rxscan306_done:
-.annotate 'line', 173
+ set rx308_pos, $P10
+ ge rx308_pos, rx308_eos, rxscan311_done
+ rxscan311_scan:
+ set_addr $I10, rxscan311_loop
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
+ rxscan311_done:
+.annotate 'line', 175
# rx subcapture "sym"
- set_addr $I10, rxcap_307_fail
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
+ set_addr $I10, rxcap_312_fail
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
# rx literal "repeat"
- add $I11, rx303_pos, 6
- gt $I11, rx303_eos, rx303_fail
- sub $I11, rx303_pos, rx303_off
- substr $S10, rx303_tgt, $I11, 6
- ne $S10, "repeat", rx303_fail
- add rx303_pos, 6
- set_addr $I10, rxcap_307_fail
- ($I12, $I11) = rx303_cur."!mark_peek"($I10)
- rx303_cur."!cursor_pos"($I11)
- ($P10) = rx303_cur."!cursor_start"()
- $P10."!cursor_pass"(rx303_pos, "")
- rx303_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx308_pos, 6
+ gt $I11, rx308_eos, rx308_fail
+ sub $I11, rx308_pos, rx308_off
+ substr $S10, rx308_tgt, $I11, 6
+ ne $S10, "repeat", rx308_fail
+ add rx308_pos, 6
+ set_addr $I10, rxcap_312_fail
+ ($I12, $I11) = rx308_cur."!mark_peek"($I10)
+ rx308_cur."!cursor_pos"($I11)
+ ($P10) = rx308_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx308_pos, "")
+ rx308_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_307_done
- rxcap_307_fail:
- goto rx303_fail
- rxcap_307_done:
+ goto rxcap_312_done
+ rxcap_312_fail:
+ goto rx308_fail
+ rxcap_312_done:
# rx charclass s
- ge rx303_pos, rx303_eos, rx303_fail
- sub $I10, rx303_pos, rx303_off
- is_cclass $I11, 32, rx303_tgt, $I10
- unless $I11, rx303_fail
- inc rx303_pos
- # rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
- alt309_0:
-.annotate 'line', 174
- set_addr $I10, alt309_1
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
-.annotate 'line', 175
+ ge rx308_pos, rx308_eos, rx308_fail
+ sub $I10, rx308_pos, rx308_off
+ is_cclass $I11, 32, rx308_tgt, $I10
+ unless $I11, rx308_fail
+ inc rx308_pos
+ # rx subrule "ws" subtype=method negate=
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
+ alt314_0:
+.annotate 'line', 176
+ set_addr $I10, alt314_1
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
+.annotate 'line', 177
# rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
# rx subcapture "wu"
- set_addr $I10, rxcap_312_fail
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
- alt311_0:
- set_addr $I10, alt311_1
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
+ set_addr $I10, rxcap_317_fail
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
+ alt316_0:
+ set_addr $I10, alt316_1
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
# rx literal "while"
- add $I11, rx303_pos, 5
- gt $I11, rx303_eos, rx303_fail
- sub $I11, rx303_pos, rx303_off
- substr $S10, rx303_tgt, $I11, 5
- ne $S10, "while", rx303_fail
- add rx303_pos, 5
- goto alt311_end
- alt311_1:
+ add $I11, rx308_pos, 5
+ gt $I11, rx308_eos, rx308_fail
+ sub $I11, rx308_pos, rx308_off
+ substr $S10, rx308_tgt, $I11, 5
+ ne $S10, "while", rx308_fail
+ add rx308_pos, 5
+ goto alt316_end
+ alt316_1:
# rx literal "until"
- add $I11, rx303_pos, 5
- gt $I11, rx303_eos, rx303_fail
- sub $I11, rx303_pos, rx303_off
- substr $S10, rx303_tgt, $I11, 5
- ne $S10, "until", rx303_fail
- add rx303_pos, 5
- alt311_end:
- set_addr $I10, rxcap_312_fail
- ($I12, $I11) = rx303_cur."!mark_peek"($I10)
- rx303_cur."!cursor_pos"($I11)
- ($P10) = rx303_cur."!cursor_start"()
- $P10."!cursor_pass"(rx303_pos, "")
- rx303_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx308_pos, 5
+ gt $I11, rx308_eos, rx308_fail
+ sub $I11, rx308_pos, rx308_off
+ substr $S10, rx308_tgt, $I11, 5
+ ne $S10, "until", rx308_fail
+ add rx308_pos, 5
+ alt316_end:
+ set_addr $I10, rxcap_317_fail
+ ($I12, $I11) = rx308_cur."!mark_peek"($I10)
+ rx308_cur."!cursor_pos"($I11)
+ ($P10) = rx308_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx308_pos, "")
+ rx308_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("wu")
- goto rxcap_312_done
- rxcap_312_fail:
- goto rx303_fail
- rxcap_312_done:
+ goto rxcap_317_done
+ rxcap_317_fail:
+ goto rx308_fail
+ rxcap_317_done:
# rx charclass s
- ge rx303_pos, rx303_eos, rx303_fail
- sub $I10, rx303_pos, rx303_off
- is_cclass $I11, 32, rx303_tgt, $I10
- unless $I11, rx303_fail
- inc rx303_pos
- # rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
+ ge rx308_pos, rx308_eos, rx308_fail
+ sub $I10, rx308_pos, rx308_off
+ is_cclass $I11, 32, rx308_tgt, $I10
+ unless $I11, rx308_fail
+ inc rx308_pos
+ # rx subrule "ws" subtype=method negate=
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
# rx subrule "xblock" subtype=capture negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."xblock"()
- unless $P10, rx303_fail
- rx303_cur."!mark_push"(0, -1, 0, $P10)
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."xblock"()
+ unless $P10, rx308_fail
+ rx308_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx303_pos = $P10."pos"()
+ rx308_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
- goto alt309_end
- alt309_1:
-.annotate 'line', 176
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
+ goto alt314_end
+ alt314_1:
+.annotate 'line', 178
# rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
# rx subrule "pblock" subtype=capture negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."pblock"()
- unless $P10, rx303_fail
- rx303_cur."!mark_push"(0, -1, 0, $P10)
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."pblock"()
+ unless $P10, rx308_fail
+ rx308_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pblock")
- rx303_pos = $P10."pos"()
+ rx308_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
# rx subcapture "wu"
- set_addr $I10, rxcap_318_fail
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
- alt317_0:
- set_addr $I10, alt317_1
- rx303_cur."!mark_push"(0, rx303_pos, $I10)
+ set_addr $I10, rxcap_323_fail
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
+ alt322_0:
+ set_addr $I10, alt322_1
+ rx308_cur."!mark_push"(0, rx308_pos, $I10)
# rx literal "while"
- add $I11, rx303_pos, 5
- gt $I11, rx303_eos, rx303_fail
- sub $I11, rx303_pos, rx303_off
- substr $S10, rx303_tgt, $I11, 5
- ne $S10, "while", rx303_fail
- add rx303_pos, 5
- goto alt317_end
- alt317_1:
+ add $I11, rx308_pos, 5
+ gt $I11, rx308_eos, rx308_fail
+ sub $I11, rx308_pos, rx308_off
+ substr $S10, rx308_tgt, $I11, 5
+ ne $S10, "while", rx308_fail
+ add rx308_pos, 5
+ goto alt322_end
+ alt322_1:
# rx literal "until"
- add $I11, rx303_pos, 5
- gt $I11, rx303_eos, rx303_fail
- sub $I11, rx303_pos, rx303_off
- substr $S10, rx303_tgt, $I11, 5
- ne $S10, "until", rx303_fail
- add rx303_pos, 5
- alt317_end:
- set_addr $I10, rxcap_318_fail
- ($I12, $I11) = rx303_cur."!mark_peek"($I10)
- rx303_cur."!cursor_pos"($I11)
- ($P10) = rx303_cur."!cursor_start"()
- $P10."!cursor_pass"(rx303_pos, "")
- rx303_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx308_pos, 5
+ gt $I11, rx308_eos, rx308_fail
+ sub $I11, rx308_pos, rx308_off
+ substr $S10, rx308_tgt, $I11, 5
+ ne $S10, "until", rx308_fail
+ add rx308_pos, 5
+ alt322_end:
+ set_addr $I10, rxcap_323_fail
+ ($I12, $I11) = rx308_cur."!mark_peek"($I10)
+ rx308_cur."!cursor_pos"($I11)
+ ($P10) = rx308_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx308_pos, "")
+ rx308_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("wu")
- goto rxcap_318_done
- rxcap_318_fail:
- goto rx303_fail
- rxcap_318_done:
+ goto rxcap_323_done
+ rxcap_323_fail:
+ goto rx308_fail
+ rxcap_323_done:
# rx charclass s
- ge rx303_pos, rx303_eos, rx303_fail
- sub $I10, rx303_pos, rx303_off
- is_cclass $I11, 32, rx303_tgt, $I10
- unless $I11, rx303_fail
- inc rx303_pos
- # rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
+ ge rx308_pos, rx308_eos, rx308_fail
+ sub $I10, rx308_pos, rx308_off
+ is_cclass $I11, 32, rx308_tgt, $I10
+ unless $I11, rx308_fail
+ inc rx308_pos
+ # rx subrule "ws" subtype=method negate=
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."EXPR"()
- unless $P10, rx303_fail
- rx303_cur."!mark_push"(0, -1, 0, $P10)
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."EXPR"()
+ unless $P10, rx308_fail
+ rx308_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx303_pos = $P10."pos"()
+ rx308_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
- alt309_end:
-.annotate 'line', 177
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
+ alt314_end:
+.annotate 'line', 179
# rx subrule "ws" subtype=method negate=
- rx303_cur."!cursor_pos"(rx303_pos)
- $P10 = rx303_cur."ws"()
- unless $P10, rx303_fail
- rx303_pos = $P10."pos"()
-.annotate 'line', 172
+ rx308_cur."!cursor_pos"(rx308_pos)
+ $P10 = rx308_cur."ws"()
+ unless $P10, rx308_fail
+ rx308_pos = $P10."pos"()
+.annotate 'line', 174
# rx pass
- rx303_cur."!cursor_pass"(rx303_pos, "statement_control:sym<repeat>")
- rx303_cur."!cursor_debug"("PASS ", "statement_control:sym<repeat>", " at pos=", rx303_pos)
- .return (rx303_cur)
- rx303_fail:
+ rx308_cur."!cursor_pass"(rx308_pos, "statement_control:sym<repeat>")
+ rx308_cur."!cursor_debug"("PASS ", "statement_control:sym<repeat>", " at pos=", rx308_pos)
+ .return (rx308_cur)
+ rx308_fail:
.annotate 'line', 4
- (rx303_rep, rx303_pos, $I10, $P10) = rx303_cur."!mark_fail"(0)
- lt rx303_pos, -1, rx303_done
- eq rx303_pos, -1, rx303_fail
+ (rx308_rep, rx308_pos, $I10, $P10) = rx308_cur."!mark_fail"(0)
+ lt rx308_pos, -1, rx308_done
+ eq rx308_pos, -1, rx308_fail
jump $I10
- rx303_done:
- rx303_cur."!cursor_fail"()
- rx303_cur."!cursor_debug"("FAIL ", "statement_control:sym<repeat>")
- .return (rx303_cur)
+ rx308_done:
+ rx308_cur."!cursor_fail"()
+ rx308_cur."!cursor_debug"("FAIL ", "statement_control:sym<repeat>")
+ .return (rx308_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<repeat>" :subid("68_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<repeat>" :subid("70_1275117591.97262") :method
.annotate 'line', 4
- new $P305, "ResizablePMCArray"
- push $P305, "repeat"
- .return ($P305)
+ new $P310, "ResizablePMCArray"
+ push $P310, "repeat"
+ .return ($P310)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<for>" :subid("69_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_control:sym<for>" :subid("71_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx323_tgt
- .local int rx323_pos
- .local int rx323_off
- .local int rx323_eos
- .local int rx323_rep
- .local pmc rx323_cur
- (rx323_cur, rx323_pos, rx323_tgt) = self."!cursor_start"()
- rx323_cur."!cursor_debug"("START ", "statement_control:sym<for>")
- .lex unicode:"$\x{a2}", rx323_cur
+ .local string rx328_tgt
+ .local int rx328_pos
+ .local int rx328_off
+ .local int rx328_eos
+ .local int rx328_rep
+ .local pmc rx328_cur
+ (rx328_cur, rx328_pos, rx328_tgt) = self."!cursor_start"()
+ rx328_cur."!cursor_debug"("START ", "statement_control:sym<for>")
+ .lex unicode:"$\x{a2}", rx328_cur
.local pmc match
.lex "$/", match
- length rx323_eos, rx323_tgt
- set rx323_off, 0
- lt rx323_pos, 2, rx323_start
- sub rx323_off, rx323_pos, 1
- substr rx323_tgt, rx323_tgt, rx323_off
- rx323_start:
+ length rx328_eos, rx328_tgt
+ set rx328_off, 0
+ lt rx328_pos, 2, rx328_start
+ sub rx328_off, rx328_pos, 1
+ substr rx328_tgt, rx328_tgt, rx328_off
+ rx328_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan326_done
- goto rxscan326_scan
- rxscan326_loop:
- ($P10) = rx323_cur."from"()
+ ne $I10, -1, rxscan331_done
+ goto rxscan331_scan
+ rxscan331_loop:
+ ($P10) = rx328_cur."from"()
inc $P10
- set rx323_pos, $P10
- ge rx323_pos, rx323_eos, rxscan326_done
- rxscan326_scan:
- set_addr $I10, rxscan326_loop
- rx323_cur."!mark_push"(0, rx323_pos, $I10)
- rxscan326_done:
-.annotate 'line', 181
+ set rx328_pos, $P10
+ ge rx328_pos, rx328_eos, rxscan331_done
+ rxscan331_scan:
+ set_addr $I10, rxscan331_loop
+ rx328_cur."!mark_push"(0, rx328_pos, $I10)
+ rxscan331_done:
+.annotate 'line', 183
# rx subcapture "sym"
- set_addr $I10, rxcap_327_fail
- rx323_cur."!mark_push"(0, rx323_pos, $I10)
+ set_addr $I10, rxcap_332_fail
+ rx328_cur."!mark_push"(0, rx328_pos, $I10)
# rx literal "for"
- add $I11, rx323_pos, 3
- gt $I11, rx323_eos, rx323_fail
- sub $I11, rx323_pos, rx323_off
- substr $S10, rx323_tgt, $I11, 3
- ne $S10, "for", rx323_fail
- add rx323_pos, 3
- set_addr $I10, rxcap_327_fail
- ($I12, $I11) = rx323_cur."!mark_peek"($I10)
- rx323_cur."!cursor_pos"($I11)
- ($P10) = rx323_cur."!cursor_start"()
- $P10."!cursor_pass"(rx323_pos, "")
- rx323_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx328_pos, 3
+ gt $I11, rx328_eos, rx328_fail
+ sub $I11, rx328_pos, rx328_off
+ substr $S10, rx328_tgt, $I11, 3
+ ne $S10, "for", rx328_fail
+ add rx328_pos, 3
+ set_addr $I10, rxcap_332_fail
+ ($I12, $I11) = rx328_cur."!mark_peek"($I10)
+ rx328_cur."!cursor_pos"($I11)
+ ($P10) = rx328_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx328_pos, "")
+ rx328_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_327_done
- rxcap_327_fail:
- goto rx323_fail
- rxcap_327_done:
+ goto rxcap_332_done
+ rxcap_332_fail:
+ goto rx328_fail
+ rxcap_332_done:
# rx charclass s
- ge rx323_pos, rx323_eos, rx323_fail
- sub $I10, rx323_pos, rx323_off
- is_cclass $I11, 32, rx323_tgt, $I10
- unless $I11, rx323_fail
- inc rx323_pos
- # rx subrule "ws" subtype=method negate=
- rx323_cur."!cursor_pos"(rx323_pos)
- $P10 = rx323_cur."ws"()
- unless $P10, rx323_fail
- rx323_pos = $P10."pos"()
-.annotate 'line', 182
+ ge rx328_pos, rx328_eos, rx328_fail
+ sub $I10, rx328_pos, rx328_off
+ is_cclass $I11, 32, rx328_tgt, $I10
+ unless $I11, rx328_fail
+ inc rx328_pos
+ # rx subrule "ws" subtype=method negate=
+ rx328_cur."!cursor_pos"(rx328_pos)
+ $P10 = rx328_cur."ws"()
+ unless $P10, rx328_fail
+ rx328_pos = $P10."pos"()
+.annotate 'line', 184
# rx subrule "xblock" subtype=capture negate=
- rx323_cur."!cursor_pos"(rx323_pos)
- $P10 = rx323_cur."xblock"()
- unless $P10, rx323_fail
- rx323_cur."!mark_push"(0, -1, 0, $P10)
+ rx328_cur."!cursor_pos"(rx328_pos)
+ $P10 = rx328_cur."xblock"()
+ unless $P10, rx328_fail
+ rx328_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx323_pos = $P10."pos"()
+ rx328_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx323_cur."!cursor_pos"(rx323_pos)
- $P10 = rx323_cur."ws"()
- unless $P10, rx323_fail
- rx323_pos = $P10."pos"()
-.annotate 'line', 180
+ rx328_cur."!cursor_pos"(rx328_pos)
+ $P10 = rx328_cur."ws"()
+ unless $P10, rx328_fail
+ rx328_pos = $P10."pos"()
+.annotate 'line', 182
# rx pass
- rx323_cur."!cursor_pass"(rx323_pos, "statement_control:sym<for>")
- rx323_cur."!cursor_debug"("PASS ", "statement_control:sym<for>", " at pos=", rx323_pos)
- .return (rx323_cur)
- rx323_fail:
+ rx328_cur."!cursor_pass"(rx328_pos, "statement_control:sym<for>")
+ rx328_cur."!cursor_debug"("PASS ", "statement_control:sym<for>", " at pos=", rx328_pos)
+ .return (rx328_cur)
+ rx328_fail:
.annotate 'line', 4
- (rx323_rep, rx323_pos, $I10, $P10) = rx323_cur."!mark_fail"(0)
- lt rx323_pos, -1, rx323_done
- eq rx323_pos, -1, rx323_fail
+ (rx328_rep, rx328_pos, $I10, $P10) = rx328_cur."!mark_fail"(0)
+ lt rx328_pos, -1, rx328_done
+ eq rx328_pos, -1, rx328_fail
jump $I10
- rx323_done:
- rx323_cur."!cursor_fail"()
- rx323_cur."!cursor_debug"("FAIL ", "statement_control:sym<for>")
- .return (rx323_cur)
+ rx328_done:
+ rx328_cur."!cursor_fail"()
+ rx328_cur."!cursor_debug"("FAIL ", "statement_control:sym<for>")
+ .return (rx328_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<for>" :subid("70_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<for>" :subid("72_1275117591.97262") :method
.annotate 'line', 4
- new $P325, "ResizablePMCArray"
- push $P325, "for"
- .return ($P325)
+ new $P330, "ResizablePMCArray"
+ push $P330, "for"
+ .return ($P330)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<CATCH>" :subid("71_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_control:sym<CATCH>" :subid("73_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx331_tgt
- .local int rx331_pos
- .local int rx331_off
- .local int rx331_eos
- .local int rx331_rep
- .local pmc rx331_cur
- (rx331_cur, rx331_pos, rx331_tgt) = self."!cursor_start"()
- rx331_cur."!cursor_debug"("START ", "statement_control:sym<CATCH>")
- .lex unicode:"$\x{a2}", rx331_cur
- .local pmc match
- .lex "$/", match
- length rx331_eos, rx331_tgt
- set rx331_off, 0
- lt rx331_pos, 2, rx331_start
- sub rx331_off, rx331_pos, 1
- substr rx331_tgt, rx331_tgt, rx331_off
- rx331_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan334_done
- goto rxscan334_scan
- rxscan334_loop:
- ($P10) = rx331_cur."from"()
- inc $P10
- set rx331_pos, $P10
- ge rx331_pos, rx331_eos, rxscan334_done
- rxscan334_scan:
- set_addr $I10, rxscan334_loop
- rx331_cur."!mark_push"(0, rx331_pos, $I10)
- rxscan334_done:
-.annotate 'line', 186
+ .local string rx336_tgt
+ .local int rx336_pos
+ .local int rx336_off
+ .local int rx336_eos
+ .local int rx336_rep
+ .local pmc rx336_cur
+ (rx336_cur, rx336_pos, rx336_tgt) = self."!cursor_start"()
+ rx336_cur."!cursor_debug"("START ", "statement_control:sym<CATCH>")
+ .lex unicode:"$\x{a2}", rx336_cur
+ .local pmc match
+ .lex "$/", match
+ length rx336_eos, rx336_tgt
+ set rx336_off, 0
+ lt rx336_pos, 2, rx336_start
+ sub rx336_off, rx336_pos, 1
+ substr rx336_tgt, rx336_tgt, rx336_off
+ rx336_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan339_done
+ goto rxscan339_scan
+ rxscan339_loop:
+ ($P10) = rx336_cur."from"()
+ inc $P10
+ set rx336_pos, $P10
+ ge rx336_pos, rx336_eos, rxscan339_done
+ rxscan339_scan:
+ set_addr $I10, rxscan339_loop
+ rx336_cur."!mark_push"(0, rx336_pos, $I10)
+ rxscan339_done:
+.annotate 'line', 188
# rx subcapture "sym"
- set_addr $I10, rxcap_335_fail
- rx331_cur."!mark_push"(0, rx331_pos, $I10)
+ set_addr $I10, rxcap_340_fail
+ rx336_cur."!mark_push"(0, rx336_pos, $I10)
# rx literal "CATCH"
- add $I11, rx331_pos, 5
- gt $I11, rx331_eos, rx331_fail
- sub $I11, rx331_pos, rx331_off
- substr $S10, rx331_tgt, $I11, 5
- ne $S10, "CATCH", rx331_fail
- add rx331_pos, 5
- set_addr $I10, rxcap_335_fail
- ($I12, $I11) = rx331_cur."!mark_peek"($I10)
- rx331_cur."!cursor_pos"($I11)
- ($P10) = rx331_cur."!cursor_start"()
- $P10."!cursor_pass"(rx331_pos, "")
- rx331_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx336_pos, 5
+ gt $I11, rx336_eos, rx336_fail
+ sub $I11, rx336_pos, rx336_off
+ substr $S10, rx336_tgt, $I11, 5
+ ne $S10, "CATCH", rx336_fail
+ add rx336_pos, 5
+ set_addr $I10, rxcap_340_fail
+ ($I12, $I11) = rx336_cur."!mark_peek"($I10)
+ rx336_cur."!cursor_pos"($I11)
+ ($P10) = rx336_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx336_pos, "")
+ rx336_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_335_done
- rxcap_335_fail:
- goto rx331_fail
- rxcap_335_done:
+ goto rxcap_340_done
+ rxcap_340_fail:
+ goto rx336_fail
+ rxcap_340_done:
# rx charclass s
- ge rx331_pos, rx331_eos, rx331_fail
- sub $I10, rx331_pos, rx331_off
- is_cclass $I11, 32, rx331_tgt, $I10
- unless $I11, rx331_fail
- inc rx331_pos
- # rx subrule "ws" subtype=method negate=
- rx331_cur."!cursor_pos"(rx331_pos)
- $P10 = rx331_cur."ws"()
- unless $P10, rx331_fail
- rx331_pos = $P10."pos"()
-.annotate 'line', 187
+ ge rx336_pos, rx336_eos, rx336_fail
+ sub $I10, rx336_pos, rx336_off
+ is_cclass $I11, 32, rx336_tgt, $I10
+ unless $I11, rx336_fail
+ inc rx336_pos
+ # rx subrule "ws" subtype=method negate=
+ rx336_cur."!cursor_pos"(rx336_pos)
+ $P10 = rx336_cur."ws"()
+ unless $P10, rx336_fail
+ rx336_pos = $P10."pos"()
+.annotate 'line', 189
# rx subrule "block" subtype=capture negate=
- rx331_cur."!cursor_pos"(rx331_pos)
- $P10 = rx331_cur."block"()
- unless $P10, rx331_fail
- rx331_cur."!mark_push"(0, -1, 0, $P10)
+ rx336_cur."!cursor_pos"(rx336_pos)
+ $P10 = rx336_cur."block"()
+ unless $P10, rx336_fail
+ rx336_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx331_pos = $P10."pos"()
+ rx336_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx331_cur."!cursor_pos"(rx331_pos)
- $P10 = rx331_cur."ws"()
- unless $P10, rx331_fail
- rx331_pos = $P10."pos"()
-.annotate 'line', 185
+ rx336_cur."!cursor_pos"(rx336_pos)
+ $P10 = rx336_cur."ws"()
+ unless $P10, rx336_fail
+ rx336_pos = $P10."pos"()
+.annotate 'line', 187
# rx pass
- rx331_cur."!cursor_pass"(rx331_pos, "statement_control:sym<CATCH>")
- rx331_cur."!cursor_debug"("PASS ", "statement_control:sym<CATCH>", " at pos=", rx331_pos)
- .return (rx331_cur)
- rx331_fail:
+ rx336_cur."!cursor_pass"(rx336_pos, "statement_control:sym<CATCH>")
+ rx336_cur."!cursor_debug"("PASS ", "statement_control:sym<CATCH>", " at pos=", rx336_pos)
+ .return (rx336_cur)
+ rx336_fail:
.annotate 'line', 4
- (rx331_rep, rx331_pos, $I10, $P10) = rx331_cur."!mark_fail"(0)
- lt rx331_pos, -1, rx331_done
- eq rx331_pos, -1, rx331_fail
+ (rx336_rep, rx336_pos, $I10, $P10) = rx336_cur."!mark_fail"(0)
+ lt rx336_pos, -1, rx336_done
+ eq rx336_pos, -1, rx336_fail
jump $I10
- rx331_done:
- rx331_cur."!cursor_fail"()
- rx331_cur."!cursor_debug"("FAIL ", "statement_control:sym<CATCH>")
- .return (rx331_cur)
+ rx336_done:
+ rx336_cur."!cursor_fail"()
+ rx336_cur."!cursor_debug"("FAIL ", "statement_control:sym<CATCH>")
+ .return (rx336_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<CATCH>" :subid("72_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<CATCH>" :subid("74_1275117591.97262") :method
.annotate 'line', 4
- new $P333, "ResizablePMCArray"
- push $P333, "CATCH"
- .return ($P333)
+ new $P338, "ResizablePMCArray"
+ push $P338, "CATCH"
+ .return ($P338)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<CONTROL>" :subid("73_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_control:sym<CONTROL>" :subid("75_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx339_tgt
- .local int rx339_pos
- .local int rx339_off
- .local int rx339_eos
- .local int rx339_rep
- .local pmc rx339_cur
- (rx339_cur, rx339_pos, rx339_tgt) = self."!cursor_start"()
- rx339_cur."!cursor_debug"("START ", "statement_control:sym<CONTROL>")
- .lex unicode:"$\x{a2}", rx339_cur
+ .local string rx344_tgt
+ .local int rx344_pos
+ .local int rx344_off
+ .local int rx344_eos
+ .local int rx344_rep
+ .local pmc rx344_cur
+ (rx344_cur, rx344_pos, rx344_tgt) = self."!cursor_start"()
+ rx344_cur."!cursor_debug"("START ", "statement_control:sym<CONTROL>")
+ .lex unicode:"$\x{a2}", rx344_cur
.local pmc match
.lex "$/", match
- length rx339_eos, rx339_tgt
- set rx339_off, 0
- lt rx339_pos, 2, rx339_start
- sub rx339_off, rx339_pos, 1
- substr rx339_tgt, rx339_tgt, rx339_off
- rx339_start:
+ length rx344_eos, rx344_tgt
+ set rx344_off, 0
+ lt rx344_pos, 2, rx344_start
+ sub rx344_off, rx344_pos, 1
+ substr rx344_tgt, rx344_tgt, rx344_off
+ rx344_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan342_done
- goto rxscan342_scan
- rxscan342_loop:
- ($P10) = rx339_cur."from"()
+ ne $I10, -1, rxscan347_done
+ goto rxscan347_scan
+ rxscan347_loop:
+ ($P10) = rx344_cur."from"()
inc $P10
- set rx339_pos, $P10
- ge rx339_pos, rx339_eos, rxscan342_done
- rxscan342_scan:
- set_addr $I10, rxscan342_loop
- rx339_cur."!mark_push"(0, rx339_pos, $I10)
- rxscan342_done:
-.annotate 'line', 191
+ set rx344_pos, $P10
+ ge rx344_pos, rx344_eos, rxscan347_done
+ rxscan347_scan:
+ set_addr $I10, rxscan347_loop
+ rx344_cur."!mark_push"(0, rx344_pos, $I10)
+ rxscan347_done:
+.annotate 'line', 193
# rx subcapture "sym"
- set_addr $I10, rxcap_343_fail
- rx339_cur."!mark_push"(0, rx339_pos, $I10)
+ set_addr $I10, rxcap_348_fail
+ rx344_cur."!mark_push"(0, rx344_pos, $I10)
# rx literal "CONTROL"
- add $I11, rx339_pos, 7
- gt $I11, rx339_eos, rx339_fail
- sub $I11, rx339_pos, rx339_off
- substr $S10, rx339_tgt, $I11, 7
- ne $S10, "CONTROL", rx339_fail
- add rx339_pos, 7
- set_addr $I10, rxcap_343_fail
- ($I12, $I11) = rx339_cur."!mark_peek"($I10)
- rx339_cur."!cursor_pos"($I11)
- ($P10) = rx339_cur."!cursor_start"()
- $P10."!cursor_pass"(rx339_pos, "")
- rx339_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx344_pos, 7
+ gt $I11, rx344_eos, rx344_fail
+ sub $I11, rx344_pos, rx344_off
+ substr $S10, rx344_tgt, $I11, 7
+ ne $S10, "CONTROL", rx344_fail
+ add rx344_pos, 7
+ set_addr $I10, rxcap_348_fail
+ ($I12, $I11) = rx344_cur."!mark_peek"($I10)
+ rx344_cur."!cursor_pos"($I11)
+ ($P10) = rx344_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx344_pos, "")
+ rx344_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_343_done
- rxcap_343_fail:
- goto rx339_fail
- rxcap_343_done:
+ goto rxcap_348_done
+ rxcap_348_fail:
+ goto rx344_fail
+ rxcap_348_done:
# rx charclass s
- ge rx339_pos, rx339_eos, rx339_fail
- sub $I10, rx339_pos, rx339_off
- is_cclass $I11, 32, rx339_tgt, $I10
- unless $I11, rx339_fail
- inc rx339_pos
- # rx subrule "ws" subtype=method negate=
- rx339_cur."!cursor_pos"(rx339_pos)
- $P10 = rx339_cur."ws"()
- unless $P10, rx339_fail
- rx339_pos = $P10."pos"()
-.annotate 'line', 192
+ ge rx344_pos, rx344_eos, rx344_fail
+ sub $I10, rx344_pos, rx344_off
+ is_cclass $I11, 32, rx344_tgt, $I10
+ unless $I11, rx344_fail
+ inc rx344_pos
+ # rx subrule "ws" subtype=method negate=
+ rx344_cur."!cursor_pos"(rx344_pos)
+ $P10 = rx344_cur."ws"()
+ unless $P10, rx344_fail
+ rx344_pos = $P10."pos"()
+.annotate 'line', 194
# rx subrule "block" subtype=capture negate=
- rx339_cur."!cursor_pos"(rx339_pos)
- $P10 = rx339_cur."block"()
- unless $P10, rx339_fail
- rx339_cur."!mark_push"(0, -1, 0, $P10)
+ rx344_cur."!cursor_pos"(rx344_pos)
+ $P10 = rx344_cur."block"()
+ unless $P10, rx344_fail
+ rx344_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx339_pos = $P10."pos"()
+ rx344_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx339_cur."!cursor_pos"(rx339_pos)
- $P10 = rx339_cur."ws"()
- unless $P10, rx339_fail
- rx339_pos = $P10."pos"()
-.annotate 'line', 190
+ rx344_cur."!cursor_pos"(rx344_pos)
+ $P10 = rx344_cur."ws"()
+ unless $P10, rx344_fail
+ rx344_pos = $P10."pos"()
+.annotate 'line', 192
# rx pass
- rx339_cur."!cursor_pass"(rx339_pos, "statement_control:sym<CONTROL>")
- rx339_cur."!cursor_debug"("PASS ", "statement_control:sym<CONTROL>", " at pos=", rx339_pos)
- .return (rx339_cur)
- rx339_fail:
+ rx344_cur."!cursor_pass"(rx344_pos, "statement_control:sym<CONTROL>")
+ rx344_cur."!cursor_debug"("PASS ", "statement_control:sym<CONTROL>", " at pos=", rx344_pos)
+ .return (rx344_cur)
+ rx344_fail:
.annotate 'line', 4
- (rx339_rep, rx339_pos, $I10, $P10) = rx339_cur."!mark_fail"(0)
- lt rx339_pos, -1, rx339_done
- eq rx339_pos, -1, rx339_fail
+ (rx344_rep, rx344_pos, $I10, $P10) = rx344_cur."!mark_fail"(0)
+ lt rx344_pos, -1, rx344_done
+ eq rx344_pos, -1, rx344_fail
jump $I10
- rx339_done:
- rx339_cur."!cursor_fail"()
- rx339_cur."!cursor_debug"("FAIL ", "statement_control:sym<CONTROL>")
- .return (rx339_cur)
+ rx344_done:
+ rx344_cur."!cursor_fail"()
+ rx344_cur."!cursor_debug"("FAIL ", "statement_control:sym<CONTROL>")
+ .return (rx344_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<CONTROL>" :subid("74_1274564776.41408") :method
+.sub "!PREFIX__statement_control:sym<CONTROL>" :subid("76_1275117591.97262") :method
.annotate 'line', 4
- new $P341, "ResizablePMCArray"
- push $P341, "CONTROL"
- .return ($P341)
+ new $P346, "ResizablePMCArray"
+ push $P346, "CONTROL"
+ .return ($P346)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_prefix" :subid("75_1274564776.41408") :method
-.annotate 'line', 195
- $P347 = self."!protoregex"("statement_prefix")
- .return ($P347)
+.sub "statement_prefix" :subid("77_1275117591.97262") :method
+.annotate 'line', 197
+ $P352 = self."!protoregex"("statement_prefix")
+ .return ($P352)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_prefix" :subid("76_1274564776.41408") :method
-.annotate 'line', 195
- $P349 = self."!PREFIX__!protoregex"("statement_prefix")
- .return ($P349)
+.sub "!PREFIX__statement_prefix" :subid("78_1275117591.97262") :method
+.annotate 'line', 197
+ $P354 = self."!PREFIX__!protoregex"("statement_prefix")
+ .return ($P354)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_prefix:sym<INIT>" :subid("77_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_prefix:sym<INIT>" :subid("79_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx351_tgt
- .local int rx351_pos
- .local int rx351_off
- .local int rx351_eos
- .local int rx351_rep
- .local pmc rx351_cur
- (rx351_cur, rx351_pos, rx351_tgt) = self."!cursor_start"()
- rx351_cur."!cursor_debug"("START ", "statement_prefix:sym<INIT>")
- .lex unicode:"$\x{a2}", rx351_cur
- .local pmc match
- .lex "$/", match
- length rx351_eos, rx351_tgt
- set rx351_off, 0
- lt rx351_pos, 2, rx351_start
- sub rx351_off, rx351_pos, 1
- substr rx351_tgt, rx351_tgt, rx351_off
- rx351_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan355_done
- goto rxscan355_scan
- rxscan355_loop:
- ($P10) = rx351_cur."from"()
- inc $P10
- set rx351_pos, $P10
- ge rx351_pos, rx351_eos, rxscan355_done
- rxscan355_scan:
- set_addr $I10, rxscan355_loop
- rx351_cur."!mark_push"(0, rx351_pos, $I10)
- rxscan355_done:
-.annotate 'line', 196
+ .local string rx356_tgt
+ .local int rx356_pos
+ .local int rx356_off
+ .local int rx356_eos
+ .local int rx356_rep
+ .local pmc rx356_cur
+ (rx356_cur, rx356_pos, rx356_tgt) = self."!cursor_start"()
+ rx356_cur."!cursor_debug"("START ", "statement_prefix:sym<INIT>")
+ .lex unicode:"$\x{a2}", rx356_cur
+ .local pmc match
+ .lex "$/", match
+ length rx356_eos, rx356_tgt
+ set rx356_off, 0
+ lt rx356_pos, 2, rx356_start
+ sub rx356_off, rx356_pos, 1
+ substr rx356_tgt, rx356_tgt, rx356_off
+ rx356_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan360_done
+ goto rxscan360_scan
+ rxscan360_loop:
+ ($P10) = rx356_cur."from"()
+ inc $P10
+ set rx356_pos, $P10
+ ge rx356_pos, rx356_eos, rxscan360_done
+ rxscan360_scan:
+ set_addr $I10, rxscan360_loop
+ rx356_cur."!mark_push"(0, rx356_pos, $I10)
+ rxscan360_done:
+.annotate 'line', 198
# rx subcapture "sym"
- set_addr $I10, rxcap_356_fail
- rx351_cur."!mark_push"(0, rx351_pos, $I10)
+ set_addr $I10, rxcap_361_fail
+ rx356_cur."!mark_push"(0, rx356_pos, $I10)
# rx literal "INIT"
- add $I11, rx351_pos, 4
- gt $I11, rx351_eos, rx351_fail
- sub $I11, rx351_pos, rx351_off
- substr $S10, rx351_tgt, $I11, 4
- ne $S10, "INIT", rx351_fail
- add rx351_pos, 4
- set_addr $I10, rxcap_356_fail
- ($I12, $I11) = rx351_cur."!mark_peek"($I10)
- rx351_cur."!cursor_pos"($I11)
- ($P10) = rx351_cur."!cursor_start"()
- $P10."!cursor_pass"(rx351_pos, "")
- rx351_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx356_pos, 4
+ gt $I11, rx356_eos, rx356_fail
+ sub $I11, rx356_pos, rx356_off
+ substr $S10, rx356_tgt, $I11, 4
+ ne $S10, "INIT", rx356_fail
+ add rx356_pos, 4
+ set_addr $I10, rxcap_361_fail
+ ($I12, $I11) = rx356_cur."!mark_peek"($I10)
+ rx356_cur."!cursor_pos"($I11)
+ ($P10) = rx356_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx356_pos, "")
+ rx356_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_356_done
- rxcap_356_fail:
- goto rx351_fail
- rxcap_356_done:
+ goto rxcap_361_done
+ rxcap_361_fail:
+ goto rx356_fail
+ rxcap_361_done:
# rx subrule "blorst" subtype=capture negate=
- rx351_cur."!cursor_pos"(rx351_pos)
- $P10 = rx351_cur."blorst"()
- unless $P10, rx351_fail
- rx351_cur."!mark_push"(0, -1, 0, $P10)
+ rx356_cur."!cursor_pos"(rx356_pos)
+ $P10 = rx356_cur."blorst"()
+ unless $P10, rx356_fail
+ rx356_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blorst")
- rx351_pos = $P10."pos"()
+ rx356_pos = $P10."pos"()
# rx pass
- rx351_cur."!cursor_pass"(rx351_pos, "statement_prefix:sym<INIT>")
- rx351_cur."!cursor_debug"("PASS ", "statement_prefix:sym<INIT>", " at pos=", rx351_pos)
- .return (rx351_cur)
- rx351_fail:
+ rx356_cur."!cursor_pass"(rx356_pos, "statement_prefix:sym<INIT>")
+ rx356_cur."!cursor_debug"("PASS ", "statement_prefix:sym<INIT>", " at pos=", rx356_pos)
+ .return (rx356_cur)
+ rx356_fail:
.annotate 'line', 4
- (rx351_rep, rx351_pos, $I10, $P10) = rx351_cur."!mark_fail"(0)
- lt rx351_pos, -1, rx351_done
- eq rx351_pos, -1, rx351_fail
+ (rx356_rep, rx356_pos, $I10, $P10) = rx356_cur."!mark_fail"(0)
+ lt rx356_pos, -1, rx356_done
+ eq rx356_pos, -1, rx356_fail
jump $I10
- rx351_done:
- rx351_cur."!cursor_fail"()
- rx351_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<INIT>")
- .return (rx351_cur)
+ rx356_done:
+ rx356_cur."!cursor_fail"()
+ rx356_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<INIT>")
+ .return (rx356_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_prefix:sym<INIT>" :subid("78_1274564776.41408") :method
+.sub "!PREFIX__statement_prefix:sym<INIT>" :subid("80_1275117591.97262") :method
.annotate 'line', 4
- $P353 = self."!PREFIX__!subrule"("blorst", "INIT")
- new $P354, "ResizablePMCArray"
- push $P354, $P353
- .return ($P354)
+ $P358 = self."!PREFIX__!subrule"("blorst", "INIT")
+ new $P359, "ResizablePMCArray"
+ push $P359, $P358
+ .return ($P359)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_prefix:sym<try>" :subid("79_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_prefix:sym<try>" :subid("81_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx358_tgt
- .local int rx358_pos
- .local int rx358_off
- .local int rx358_eos
- .local int rx358_rep
- .local pmc rx358_cur
- (rx358_cur, rx358_pos, rx358_tgt) = self."!cursor_start"()
- rx358_cur."!cursor_debug"("START ", "statement_prefix:sym<try>")
- .lex unicode:"$\x{a2}", rx358_cur
- .local pmc match
- .lex "$/", match
- length rx358_eos, rx358_tgt
- set rx358_off, 0
- lt rx358_pos, 2, rx358_start
- sub rx358_off, rx358_pos, 1
- substr rx358_tgt, rx358_tgt, rx358_off
- rx358_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan362_done
- goto rxscan362_scan
- rxscan362_loop:
- ($P10) = rx358_cur."from"()
- inc $P10
- set rx358_pos, $P10
- ge rx358_pos, rx358_eos, rxscan362_done
- rxscan362_scan:
- set_addr $I10, rxscan362_loop
- rx358_cur."!mark_push"(0, rx358_pos, $I10)
- rxscan362_done:
-.annotate 'line', 199
- # rx subcapture "sym"
- set_addr $I10, rxcap_363_fail
- rx358_cur."!mark_push"(0, rx358_pos, $I10)
- # rx literal "try"
- add $I11, rx358_pos, 3
- gt $I11, rx358_eos, rx358_fail
- sub $I11, rx358_pos, rx358_off
- substr $S10, rx358_tgt, $I11, 3
- ne $S10, "try", rx358_fail
- add rx358_pos, 3
- set_addr $I10, rxcap_363_fail
- ($I12, $I11) = rx358_cur."!mark_peek"($I10)
- rx358_cur."!cursor_pos"($I11)
- ($P10) = rx358_cur."!cursor_start"()
- $P10."!cursor_pass"(rx358_pos, "")
- rx358_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sym")
- goto rxcap_363_done
- rxcap_363_fail:
- goto rx358_fail
- rxcap_363_done:
-.annotate 'line', 200
+ .local string rx363_tgt
+ .local int rx363_pos
+ .local int rx363_off
+ .local int rx363_eos
+ .local int rx363_rep
+ .local pmc rx363_cur
+ (rx363_cur, rx363_pos, rx363_tgt) = self."!cursor_start"()
+ rx363_cur."!cursor_debug"("START ", "statement_prefix:sym<try>")
+ .lex unicode:"$\x{a2}", rx363_cur
+ .local pmc match
+ .lex "$/", match
+ length rx363_eos, rx363_tgt
+ set rx363_off, 0
+ lt rx363_pos, 2, rx363_start
+ sub rx363_off, rx363_pos, 1
+ substr rx363_tgt, rx363_tgt, rx363_off
+ rx363_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan367_done
+ goto rxscan367_scan
+ rxscan367_loop:
+ ($P10) = rx363_cur."from"()
+ inc $P10
+ set rx363_pos, $P10
+ ge rx363_pos, rx363_eos, rxscan367_done
+ rxscan367_scan:
+ set_addr $I10, rxscan367_loop
+ rx363_cur."!mark_push"(0, rx363_pos, $I10)
+ rxscan367_done:
+.annotate 'line', 201
+ # rx subcapture "sym"
+ set_addr $I10, rxcap_368_fail
+ rx363_cur."!mark_push"(0, rx363_pos, $I10)
+ # rx literal "try"
+ add $I11, rx363_pos, 3
+ gt $I11, rx363_eos, rx363_fail
+ sub $I11, rx363_pos, rx363_off
+ substr $S10, rx363_tgt, $I11, 3
+ ne $S10, "try", rx363_fail
+ add rx363_pos, 3
+ set_addr $I10, rxcap_368_fail
+ ($I12, $I11) = rx363_cur."!mark_peek"($I10)
+ rx363_cur."!cursor_pos"($I11)
+ ($P10) = rx363_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx363_pos, "")
+ rx363_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sym")
+ goto rxcap_368_done
+ rxcap_368_fail:
+ goto rx363_fail
+ rxcap_368_done:
+.annotate 'line', 202
# rx subrule "blorst" subtype=capture negate=
- rx358_cur."!cursor_pos"(rx358_pos)
- $P10 = rx358_cur."blorst"()
- unless $P10, rx358_fail
- rx358_cur."!mark_push"(0, -1, 0, $P10)
+ rx363_cur."!cursor_pos"(rx363_pos)
+ $P10 = rx363_cur."blorst"()
+ unless $P10, rx363_fail
+ rx363_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blorst")
- rx358_pos = $P10."pos"()
-.annotate 'line', 198
+ rx363_pos = $P10."pos"()
+.annotate 'line', 200
# rx pass
- rx358_cur."!cursor_pass"(rx358_pos, "statement_prefix:sym<try>")
- rx358_cur."!cursor_debug"("PASS ", "statement_prefix:sym<try>", " at pos=", rx358_pos)
- .return (rx358_cur)
- rx358_fail:
+ rx363_cur."!cursor_pass"(rx363_pos, "statement_prefix:sym<try>")
+ rx363_cur."!cursor_debug"("PASS ", "statement_prefix:sym<try>", " at pos=", rx363_pos)
+ .return (rx363_cur)
+ rx363_fail:
.annotate 'line', 4
- (rx358_rep, rx358_pos, $I10, $P10) = rx358_cur."!mark_fail"(0)
- lt rx358_pos, -1, rx358_done
- eq rx358_pos, -1, rx358_fail
+ (rx363_rep, rx363_pos, $I10, $P10) = rx363_cur."!mark_fail"(0)
+ lt rx363_pos, -1, rx363_done
+ eq rx363_pos, -1, rx363_fail
jump $I10
- rx358_done:
- rx358_cur."!cursor_fail"()
- rx358_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<try>")
- .return (rx358_cur)
+ rx363_done:
+ rx363_cur."!cursor_fail"()
+ rx363_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<try>")
+ .return (rx363_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_prefix:sym<try>" :subid("80_1274564776.41408") :method
+.sub "!PREFIX__statement_prefix:sym<try>" :subid("82_1275117591.97262") :method
.annotate 'line', 4
- $P360 = self."!PREFIX__!subrule"("blorst", "try")
- new $P361, "ResizablePMCArray"
- push $P361, $P360
- .return ($P361)
+ $P365 = self."!PREFIX__!subrule"("blorst", "try")
+ new $P366, "ResizablePMCArray"
+ push $P366, $P365
+ .return ($P366)
.end
.namespace ["NQP";"Grammar"]
-.sub "blorst" :subid("81_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "blorst" :subid("83_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx365_tgt
- .local int rx365_pos
- .local int rx365_off
- .local int rx365_eos
- .local int rx365_rep
- .local pmc rx365_cur
- (rx365_cur, rx365_pos, rx365_tgt) = self."!cursor_start"()
- rx365_cur."!cursor_debug"("START ", "blorst")
- .lex unicode:"$\x{a2}", rx365_cur
+ .local string rx370_tgt
+ .local int rx370_pos
+ .local int rx370_off
+ .local int rx370_eos
+ .local int rx370_rep
+ .local pmc rx370_cur
+ (rx370_cur, rx370_pos, rx370_tgt) = self."!cursor_start"()
+ rx370_cur."!cursor_debug"("START ", "blorst")
+ .lex unicode:"$\x{a2}", rx370_cur
.local pmc match
.lex "$/", match
- length rx365_eos, rx365_tgt
- set rx365_off, 0
- lt rx365_pos, 2, rx365_start
- sub rx365_off, rx365_pos, 1
- substr rx365_tgt, rx365_tgt, rx365_off
- rx365_start:
+ length rx370_eos, rx370_tgt
+ set rx370_off, 0
+ lt rx370_pos, 2, rx370_start
+ sub rx370_off, rx370_pos, 1
+ substr rx370_tgt, rx370_tgt, rx370_off
+ rx370_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan368_done
- goto rxscan368_scan
- rxscan368_loop:
- ($P10) = rx365_cur."from"()
+ ne $I10, -1, rxscan373_done
+ goto rxscan373_scan
+ rxscan373_loop:
+ ($P10) = rx370_cur."from"()
inc $P10
- set rx365_pos, $P10
- ge rx365_pos, rx365_eos, rxscan368_done
- rxscan368_scan:
- set_addr $I10, rxscan368_loop
- rx365_cur."!mark_push"(0, rx365_pos, $I10)
- rxscan368_done:
-.annotate 'line', 204
+ set rx370_pos, $P10
+ ge rx370_pos, rx370_eos, rxscan373_done
+ rxscan373_scan:
+ set_addr $I10, rxscan373_loop
+ rx370_cur."!mark_push"(0, rx370_pos, $I10)
+ rxscan373_done:
+.annotate 'line', 206
# rx charclass s
- ge rx365_pos, rx365_eos, rx365_fail
- sub $I10, rx365_pos, rx365_off
- is_cclass $I11, 32, rx365_tgt, $I10
- unless $I11, rx365_fail
- inc rx365_pos
- # rx subrule "ws" subtype=method negate=
- rx365_cur."!cursor_pos"(rx365_pos)
- $P10 = rx365_cur."ws"()
- unless $P10, rx365_fail
- rx365_pos = $P10."pos"()
- alt369_0:
- set_addr $I10, alt369_1
- rx365_cur."!mark_push"(0, rx365_pos, $I10)
+ ge rx370_pos, rx370_eos, rx370_fail
+ sub $I10, rx370_pos, rx370_off
+ is_cclass $I11, 32, rx370_tgt, $I10
+ unless $I11, rx370_fail
+ inc rx370_pos
+ # rx subrule "ws" subtype=method negate=
+ rx370_cur."!cursor_pos"(rx370_pos)
+ $P10 = rx370_cur."ws"()
+ unless $P10, rx370_fail
+ rx370_pos = $P10."pos"()
+ alt374_0:
+ set_addr $I10, alt374_1
+ rx370_cur."!mark_push"(0, rx370_pos, $I10)
# rx enumcharlist negate=0 zerowidth
- ge rx365_pos, rx365_eos, rx365_fail
- sub $I10, rx365_pos, rx365_off
- substr $S10, rx365_tgt, $I10, 1
+ ge rx370_pos, rx370_eos, rx370_fail
+ sub $I10, rx370_pos, rx370_off
+ substr $S10, rx370_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx365_fail
+ lt $I11, 0, rx370_fail
# rx subrule "block" subtype=capture negate=
- rx365_cur."!cursor_pos"(rx365_pos)
- $P10 = rx365_cur."block"()
- unless $P10, rx365_fail
- rx365_cur."!mark_push"(0, -1, 0, $P10)
+ rx370_cur."!cursor_pos"(rx370_pos)
+ $P10 = rx370_cur."block"()
+ unless $P10, rx370_fail
+ rx370_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx365_pos = $P10."pos"()
- goto alt369_end
- alt369_1:
+ rx370_pos = $P10."pos"()
+ goto alt374_end
+ alt374_1:
# rx subrule "statement" subtype=capture negate=
- rx365_cur."!cursor_pos"(rx365_pos)
- $P10 = rx365_cur."statement"()
- unless $P10, rx365_fail
- rx365_cur."!mark_push"(0, -1, 0, $P10)
+ rx370_cur."!cursor_pos"(rx370_pos)
+ $P10 = rx370_cur."statement"()
+ unless $P10, rx370_fail
+ rx370_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement")
- rx365_pos = $P10."pos"()
- alt369_end:
-.annotate 'line', 203
+ rx370_pos = $P10."pos"()
+ alt374_end:
+.annotate 'line', 205
# rx pass
- rx365_cur."!cursor_pass"(rx365_pos, "blorst")
- rx365_cur."!cursor_debug"("PASS ", "blorst", " at pos=", rx365_pos)
- .return (rx365_cur)
- rx365_fail:
+ rx370_cur."!cursor_pass"(rx370_pos, "blorst")
+ rx370_cur."!cursor_debug"("PASS ", "blorst", " at pos=", rx370_pos)
+ .return (rx370_cur)
+ rx370_fail:
.annotate 'line', 4
- (rx365_rep, rx365_pos, $I10, $P10) = rx365_cur."!mark_fail"(0)
- lt rx365_pos, -1, rx365_done
- eq rx365_pos, -1, rx365_fail
+ (rx370_rep, rx370_pos, $I10, $P10) = rx370_cur."!mark_fail"(0)
+ lt rx370_pos, -1, rx370_done
+ eq rx370_pos, -1, rx370_fail
jump $I10
- rx365_done:
- rx365_cur."!cursor_fail"()
- rx365_cur."!cursor_debug"("FAIL ", "blorst")
- .return (rx365_cur)
+ rx370_done:
+ rx370_cur."!cursor_fail"()
+ rx370_cur."!cursor_debug"("FAIL ", "blorst")
+ .return (rx370_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__blorst" :subid("82_1274564776.41408") :method
+.sub "!PREFIX__blorst" :subid("84_1275117591.97262") :method
.annotate 'line', 4
- new $P367, "ResizablePMCArray"
- push $P367, ""
- .return ($P367)
+ new $P372, "ResizablePMCArray"
+ push $P372, ""
+ .return ($P372)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_cond" :subid("83_1274564776.41408") :method
-.annotate 'line', 209
- $P371 = self."!protoregex"("statement_mod_cond")
- .return ($P371)
+.sub "statement_mod_cond" :subid("85_1275117591.97262") :method
+.annotate 'line', 211
+ $P376 = self."!protoregex"("statement_mod_cond")
+ .return ($P376)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_cond" :subid("84_1274564776.41408") :method
-.annotate 'line', 209
- $P373 = self."!PREFIX__!protoregex"("statement_mod_cond")
- .return ($P373)
+.sub "!PREFIX__statement_mod_cond" :subid("86_1275117591.97262") :method
+.annotate 'line', 211
+ $P378 = self."!PREFIX__!protoregex"("statement_mod_cond")
+ .return ($P378)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_cond:sym<if>" :subid("85_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_mod_cond:sym<if>" :subid("87_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx375_tgt
- .local int rx375_pos
- .local int rx375_off
- .local int rx375_eos
- .local int rx375_rep
- .local pmc rx375_cur
- (rx375_cur, rx375_pos, rx375_tgt) = self."!cursor_start"()
- rx375_cur."!cursor_debug"("START ", "statement_mod_cond:sym<if>")
- .lex unicode:"$\x{a2}", rx375_cur
- .local pmc match
- .lex "$/", match
- length rx375_eos, rx375_tgt
- set rx375_off, 0
- lt rx375_pos, 2, rx375_start
- sub rx375_off, rx375_pos, 1
- substr rx375_tgt, rx375_tgt, rx375_off
- rx375_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan378_done
- goto rxscan378_scan
- rxscan378_loop:
- ($P10) = rx375_cur."from"()
- inc $P10
- set rx375_pos, $P10
- ge rx375_pos, rx375_eos, rxscan378_done
- rxscan378_scan:
- set_addr $I10, rxscan378_loop
- rx375_cur."!mark_push"(0, rx375_pos, $I10)
- rxscan378_done:
-.annotate 'line', 211
+ .local string rx380_tgt
+ .local int rx380_pos
+ .local int rx380_off
+ .local int rx380_eos
+ .local int rx380_rep
+ .local pmc rx380_cur
+ (rx380_cur, rx380_pos, rx380_tgt) = self."!cursor_start"()
+ rx380_cur."!cursor_debug"("START ", "statement_mod_cond:sym<if>")
+ .lex unicode:"$\x{a2}", rx380_cur
+ .local pmc match
+ .lex "$/", match
+ length rx380_eos, rx380_tgt
+ set rx380_off, 0
+ lt rx380_pos, 2, rx380_start
+ sub rx380_off, rx380_pos, 1
+ substr rx380_tgt, rx380_tgt, rx380_off
+ rx380_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan383_done
+ goto rxscan383_scan
+ rxscan383_loop:
+ ($P10) = rx380_cur."from"()
+ inc $P10
+ set rx380_pos, $P10
+ ge rx380_pos, rx380_eos, rxscan383_done
+ rxscan383_scan:
+ set_addr $I10, rxscan383_loop
+ rx380_cur."!mark_push"(0, rx380_pos, $I10)
+ rxscan383_done:
+.annotate 'line', 213
# rx subcapture "sym"
- set_addr $I10, rxcap_379_fail
- rx375_cur."!mark_push"(0, rx375_pos, $I10)
+ set_addr $I10, rxcap_384_fail
+ rx380_cur."!mark_push"(0, rx380_pos, $I10)
# rx literal "if"
- add $I11, rx375_pos, 2
- gt $I11, rx375_eos, rx375_fail
- sub $I11, rx375_pos, rx375_off
- substr $S10, rx375_tgt, $I11, 2
- ne $S10, "if", rx375_fail
- add rx375_pos, 2
- set_addr $I10, rxcap_379_fail
- ($I12, $I11) = rx375_cur."!mark_peek"($I10)
- rx375_cur."!cursor_pos"($I11)
- ($P10) = rx375_cur."!cursor_start"()
- $P10."!cursor_pass"(rx375_pos, "")
- rx375_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx380_pos, 2
+ gt $I11, rx380_eos, rx380_fail
+ sub $I11, rx380_pos, rx380_off
+ substr $S10, rx380_tgt, $I11, 2
+ ne $S10, "if", rx380_fail
+ add rx380_pos, 2
+ set_addr $I10, rxcap_384_fail
+ ($I12, $I11) = rx380_cur."!mark_peek"($I10)
+ rx380_cur."!cursor_pos"($I11)
+ ($P10) = rx380_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx380_pos, "")
+ rx380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_379_done
- rxcap_379_fail:
- goto rx375_fail
- rxcap_379_done:
- # rx subrule "ws" subtype=method negate=
- rx375_cur."!cursor_pos"(rx375_pos)
- $P10 = rx375_cur."ws"()
- unless $P10, rx375_fail
- rx375_pos = $P10."pos"()
+ goto rxcap_384_done
+ rxcap_384_fail:
+ goto rx380_fail
+ rxcap_384_done:
+ # rx subrule "ws" subtype=method negate=
+ rx380_cur."!cursor_pos"(rx380_pos)
+ $P10 = rx380_cur."ws"()
+ unless $P10, rx380_fail
+ rx380_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx375_cur."!cursor_pos"(rx375_pos)
- $P10 = rx375_cur."EXPR"()
- unless $P10, rx375_fail
- rx375_cur."!mark_push"(0, -1, 0, $P10)
+ rx380_cur."!cursor_pos"(rx380_pos)
+ $P10 = rx380_cur."EXPR"()
+ unless $P10, rx380_fail
+ rx380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx375_pos = $P10."pos"()
+ rx380_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx375_cur."!cursor_pos"(rx375_pos)
- $P10 = rx375_cur."ws"()
- unless $P10, rx375_fail
- rx375_pos = $P10."pos"()
+ rx380_cur."!cursor_pos"(rx380_pos)
+ $P10 = rx380_cur."ws"()
+ unless $P10, rx380_fail
+ rx380_pos = $P10."pos"()
# rx pass
- rx375_cur."!cursor_pass"(rx375_pos, "statement_mod_cond:sym<if>")
- rx375_cur."!cursor_debug"("PASS ", "statement_mod_cond:sym<if>", " at pos=", rx375_pos)
- .return (rx375_cur)
- rx375_fail:
+ rx380_cur."!cursor_pass"(rx380_pos, "statement_mod_cond:sym<if>")
+ rx380_cur."!cursor_debug"("PASS ", "statement_mod_cond:sym<if>", " at pos=", rx380_pos)
+ .return (rx380_cur)
+ rx380_fail:
.annotate 'line', 4
- (rx375_rep, rx375_pos, $I10, $P10) = rx375_cur."!mark_fail"(0)
- lt rx375_pos, -1, rx375_done
- eq rx375_pos, -1, rx375_fail
+ (rx380_rep, rx380_pos, $I10, $P10) = rx380_cur."!mark_fail"(0)
+ lt rx380_pos, -1, rx380_done
+ eq rx380_pos, -1, rx380_fail
jump $I10
- rx375_done:
- rx375_cur."!cursor_fail"()
- rx375_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<if>")
- .return (rx375_cur)
+ rx380_done:
+ rx380_cur."!cursor_fail"()
+ rx380_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<if>")
+ .return (rx380_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_cond:sym<if>" :subid("86_1274564776.41408") :method
+.sub "!PREFIX__statement_mod_cond:sym<if>" :subid("88_1275117591.97262") :method
.annotate 'line', 4
- new $P377, "ResizablePMCArray"
- push $P377, "if"
- .return ($P377)
+ new $P382, "ResizablePMCArray"
+ push $P382, "if"
+ .return ($P382)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_cond:sym<unless>" :subid("87_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_mod_cond:sym<unless>" :subid("89_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx383_tgt
- .local int rx383_pos
- .local int rx383_off
- .local int rx383_eos
- .local int rx383_rep
- .local pmc rx383_cur
- (rx383_cur, rx383_pos, rx383_tgt) = self."!cursor_start"()
- rx383_cur."!cursor_debug"("START ", "statement_mod_cond:sym<unless>")
- .lex unicode:"$\x{a2}", rx383_cur
+ .local string rx388_tgt
+ .local int rx388_pos
+ .local int rx388_off
+ .local int rx388_eos
+ .local int rx388_rep
+ .local pmc rx388_cur
+ (rx388_cur, rx388_pos, rx388_tgt) = self."!cursor_start"()
+ rx388_cur."!cursor_debug"("START ", "statement_mod_cond:sym<unless>")
+ .lex unicode:"$\x{a2}", rx388_cur
.local pmc match
.lex "$/", match
- length rx383_eos, rx383_tgt
- set rx383_off, 0
- lt rx383_pos, 2, rx383_start
- sub rx383_off, rx383_pos, 1
- substr rx383_tgt, rx383_tgt, rx383_off
- rx383_start:
+ length rx388_eos, rx388_tgt
+ set rx388_off, 0
+ lt rx388_pos, 2, rx388_start
+ sub rx388_off, rx388_pos, 1
+ substr rx388_tgt, rx388_tgt, rx388_off
+ rx388_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan386_done
- goto rxscan386_scan
- rxscan386_loop:
- ($P10) = rx383_cur."from"()
+ ne $I10, -1, rxscan391_done
+ goto rxscan391_scan
+ rxscan391_loop:
+ ($P10) = rx388_cur."from"()
inc $P10
- set rx383_pos, $P10
- ge rx383_pos, rx383_eos, rxscan386_done
- rxscan386_scan:
- set_addr $I10, rxscan386_loop
- rx383_cur."!mark_push"(0, rx383_pos, $I10)
- rxscan386_done:
-.annotate 'line', 212
+ set rx388_pos, $P10
+ ge rx388_pos, rx388_eos, rxscan391_done
+ rxscan391_scan:
+ set_addr $I10, rxscan391_loop
+ rx388_cur."!mark_push"(0, rx388_pos, $I10)
+ rxscan391_done:
+.annotate 'line', 214
# rx subcapture "sym"
- set_addr $I10, rxcap_387_fail
- rx383_cur."!mark_push"(0, rx383_pos, $I10)
+ set_addr $I10, rxcap_392_fail
+ rx388_cur."!mark_push"(0, rx388_pos, $I10)
# rx literal "unless"
- add $I11, rx383_pos, 6
- gt $I11, rx383_eos, rx383_fail
- sub $I11, rx383_pos, rx383_off
- substr $S10, rx383_tgt, $I11, 6
- ne $S10, "unless", rx383_fail
- add rx383_pos, 6
- set_addr $I10, rxcap_387_fail
- ($I12, $I11) = rx383_cur."!mark_peek"($I10)
- rx383_cur."!cursor_pos"($I11)
- ($P10) = rx383_cur."!cursor_start"()
- $P10."!cursor_pass"(rx383_pos, "")
- rx383_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx388_pos, 6
+ gt $I11, rx388_eos, rx388_fail
+ sub $I11, rx388_pos, rx388_off
+ substr $S10, rx388_tgt, $I11, 6
+ ne $S10, "unless", rx388_fail
+ add rx388_pos, 6
+ set_addr $I10, rxcap_392_fail
+ ($I12, $I11) = rx388_cur."!mark_peek"($I10)
+ rx388_cur."!cursor_pos"($I11)
+ ($P10) = rx388_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx388_pos, "")
+ rx388_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_387_done
- rxcap_387_fail:
- goto rx383_fail
- rxcap_387_done:
- # rx subrule "ws" subtype=method negate=
- rx383_cur."!cursor_pos"(rx383_pos)
- $P10 = rx383_cur."ws"()
- unless $P10, rx383_fail
- rx383_pos = $P10."pos"()
+ goto rxcap_392_done
+ rxcap_392_fail:
+ goto rx388_fail
+ rxcap_392_done:
+ # rx subrule "ws" subtype=method negate=
+ rx388_cur."!cursor_pos"(rx388_pos)
+ $P10 = rx388_cur."ws"()
+ unless $P10, rx388_fail
+ rx388_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx383_cur."!cursor_pos"(rx383_pos)
- $P10 = rx383_cur."EXPR"()
- unless $P10, rx383_fail
- rx383_cur."!mark_push"(0, -1, 0, $P10)
+ rx388_cur."!cursor_pos"(rx388_pos)
+ $P10 = rx388_cur."EXPR"()
+ unless $P10, rx388_fail
+ rx388_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx383_pos = $P10."pos"()
+ rx388_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx383_cur."!cursor_pos"(rx383_pos)
- $P10 = rx383_cur."ws"()
- unless $P10, rx383_fail
- rx383_pos = $P10."pos"()
+ rx388_cur."!cursor_pos"(rx388_pos)
+ $P10 = rx388_cur."ws"()
+ unless $P10, rx388_fail
+ rx388_pos = $P10."pos"()
# rx pass
- rx383_cur."!cursor_pass"(rx383_pos, "statement_mod_cond:sym<unless>")
- rx383_cur."!cursor_debug"("PASS ", "statement_mod_cond:sym<unless>", " at pos=", rx383_pos)
- .return (rx383_cur)
- rx383_fail:
+ rx388_cur."!cursor_pass"(rx388_pos, "statement_mod_cond:sym<unless>")
+ rx388_cur."!cursor_debug"("PASS ", "statement_mod_cond:sym<unless>", " at pos=", rx388_pos)
+ .return (rx388_cur)
+ rx388_fail:
.annotate 'line', 4
- (rx383_rep, rx383_pos, $I10, $P10) = rx383_cur."!mark_fail"(0)
- lt rx383_pos, -1, rx383_done
- eq rx383_pos, -1, rx383_fail
+ (rx388_rep, rx388_pos, $I10, $P10) = rx388_cur."!mark_fail"(0)
+ lt rx388_pos, -1, rx388_done
+ eq rx388_pos, -1, rx388_fail
jump $I10
- rx383_done:
- rx383_cur."!cursor_fail"()
- rx383_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<unless>")
- .return (rx383_cur)
+ rx388_done:
+ rx388_cur."!cursor_fail"()
+ rx388_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<unless>")
+ .return (rx388_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_cond:sym<unless>" :subid("88_1274564776.41408") :method
+.sub "!PREFIX__statement_mod_cond:sym<unless>" :subid("90_1275117591.97262") :method
.annotate 'line', 4
- new $P385, "ResizablePMCArray"
- push $P385, "unless"
- .return ($P385)
+ new $P390, "ResizablePMCArray"
+ push $P390, "unless"
+ .return ($P390)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_loop" :subid("89_1274564776.41408") :method
-.annotate 'line', 214
- $P391 = self."!protoregex"("statement_mod_loop")
- .return ($P391)
+.sub "statement_mod_loop" :subid("91_1275117591.97262") :method
+.annotate 'line', 216
+ $P396 = self."!protoregex"("statement_mod_loop")
+ .return ($P396)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_loop" :subid("90_1274564776.41408") :method
-.annotate 'line', 214
- $P393 = self."!PREFIX__!protoregex"("statement_mod_loop")
- .return ($P393)
+.sub "!PREFIX__statement_mod_loop" :subid("92_1275117591.97262") :method
+.annotate 'line', 216
+ $P398 = self."!PREFIX__!protoregex"("statement_mod_loop")
+ .return ($P398)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_loop:sym<while>" :subid("91_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_mod_loop:sym<while>" :subid("93_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx395_tgt
- .local int rx395_pos
- .local int rx395_off
- .local int rx395_eos
- .local int rx395_rep
- .local pmc rx395_cur
- (rx395_cur, rx395_pos, rx395_tgt) = self."!cursor_start"()
- rx395_cur."!cursor_debug"("START ", "statement_mod_loop:sym<while>")
- .lex unicode:"$\x{a2}", rx395_cur
- .local pmc match
- .lex "$/", match
- length rx395_eos, rx395_tgt
- set rx395_off, 0
- lt rx395_pos, 2, rx395_start
- sub rx395_off, rx395_pos, 1
- substr rx395_tgt, rx395_tgt, rx395_off
- rx395_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan398_done
- goto rxscan398_scan
- rxscan398_loop:
- ($P10) = rx395_cur."from"()
- inc $P10
- set rx395_pos, $P10
- ge rx395_pos, rx395_eos, rxscan398_done
- rxscan398_scan:
- set_addr $I10, rxscan398_loop
- rx395_cur."!mark_push"(0, rx395_pos, $I10)
- rxscan398_done:
-.annotate 'line', 216
+ .local string rx400_tgt
+ .local int rx400_pos
+ .local int rx400_off
+ .local int rx400_eos
+ .local int rx400_rep
+ .local pmc rx400_cur
+ (rx400_cur, rx400_pos, rx400_tgt) = self."!cursor_start"()
+ rx400_cur."!cursor_debug"("START ", "statement_mod_loop:sym<while>")
+ .lex unicode:"$\x{a2}", rx400_cur
+ .local pmc match
+ .lex "$/", match
+ length rx400_eos, rx400_tgt
+ set rx400_off, 0
+ lt rx400_pos, 2, rx400_start
+ sub rx400_off, rx400_pos, 1
+ substr rx400_tgt, rx400_tgt, rx400_off
+ rx400_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan403_done
+ goto rxscan403_scan
+ rxscan403_loop:
+ ($P10) = rx400_cur."from"()
+ inc $P10
+ set rx400_pos, $P10
+ ge rx400_pos, rx400_eos, rxscan403_done
+ rxscan403_scan:
+ set_addr $I10, rxscan403_loop
+ rx400_cur."!mark_push"(0, rx400_pos, $I10)
+ rxscan403_done:
+.annotate 'line', 218
# rx subcapture "sym"
- set_addr $I10, rxcap_399_fail
- rx395_cur."!mark_push"(0, rx395_pos, $I10)
+ set_addr $I10, rxcap_404_fail
+ rx400_cur."!mark_push"(0, rx400_pos, $I10)
# rx literal "while"
- add $I11, rx395_pos, 5
- gt $I11, rx395_eos, rx395_fail
- sub $I11, rx395_pos, rx395_off
- substr $S10, rx395_tgt, $I11, 5
- ne $S10, "while", rx395_fail
- add rx395_pos, 5
- set_addr $I10, rxcap_399_fail
- ($I12, $I11) = rx395_cur."!mark_peek"($I10)
- rx395_cur."!cursor_pos"($I11)
- ($P10) = rx395_cur."!cursor_start"()
- $P10."!cursor_pass"(rx395_pos, "")
- rx395_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx400_pos, 5
+ gt $I11, rx400_eos, rx400_fail
+ sub $I11, rx400_pos, rx400_off
+ substr $S10, rx400_tgt, $I11, 5
+ ne $S10, "while", rx400_fail
+ add rx400_pos, 5
+ set_addr $I10, rxcap_404_fail
+ ($I12, $I11) = rx400_cur."!mark_peek"($I10)
+ rx400_cur."!cursor_pos"($I11)
+ ($P10) = rx400_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx400_pos, "")
+ rx400_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_399_done
- rxcap_399_fail:
- goto rx395_fail
- rxcap_399_done:
- # rx subrule "ws" subtype=method negate=
- rx395_cur."!cursor_pos"(rx395_pos)
- $P10 = rx395_cur."ws"()
- unless $P10, rx395_fail
- rx395_pos = $P10."pos"()
+ goto rxcap_404_done
+ rxcap_404_fail:
+ goto rx400_fail
+ rxcap_404_done:
+ # rx subrule "ws" subtype=method negate=
+ rx400_cur."!cursor_pos"(rx400_pos)
+ $P10 = rx400_cur."ws"()
+ unless $P10, rx400_fail
+ rx400_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx395_cur."!cursor_pos"(rx395_pos)
- $P10 = rx395_cur."EXPR"()
- unless $P10, rx395_fail
- rx395_cur."!mark_push"(0, -1, 0, $P10)
+ rx400_cur."!cursor_pos"(rx400_pos)
+ $P10 = rx400_cur."EXPR"()
+ unless $P10, rx400_fail
+ rx400_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx395_pos = $P10."pos"()
+ rx400_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx395_cur."!cursor_pos"(rx395_pos)
- $P10 = rx395_cur."ws"()
- unless $P10, rx395_fail
- rx395_pos = $P10."pos"()
+ rx400_cur."!cursor_pos"(rx400_pos)
+ $P10 = rx400_cur."ws"()
+ unless $P10, rx400_fail
+ rx400_pos = $P10."pos"()
# rx pass
- rx395_cur."!cursor_pass"(rx395_pos, "statement_mod_loop:sym<while>")
- rx395_cur."!cursor_debug"("PASS ", "statement_mod_loop:sym<while>", " at pos=", rx395_pos)
- .return (rx395_cur)
- rx395_fail:
+ rx400_cur."!cursor_pass"(rx400_pos, "statement_mod_loop:sym<while>")
+ rx400_cur."!cursor_debug"("PASS ", "statement_mod_loop:sym<while>", " at pos=", rx400_pos)
+ .return (rx400_cur)
+ rx400_fail:
.annotate 'line', 4
- (rx395_rep, rx395_pos, $I10, $P10) = rx395_cur."!mark_fail"(0)
- lt rx395_pos, -1, rx395_done
- eq rx395_pos, -1, rx395_fail
+ (rx400_rep, rx400_pos, $I10, $P10) = rx400_cur."!mark_fail"(0)
+ lt rx400_pos, -1, rx400_done
+ eq rx400_pos, -1, rx400_fail
jump $I10
- rx395_done:
- rx395_cur."!cursor_fail"()
- rx395_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<while>")
- .return (rx395_cur)
+ rx400_done:
+ rx400_cur."!cursor_fail"()
+ rx400_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<while>")
+ .return (rx400_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_loop:sym<while>" :subid("92_1274564776.41408") :method
+.sub "!PREFIX__statement_mod_loop:sym<while>" :subid("94_1275117591.97262") :method
.annotate 'line', 4
- new $P397, "ResizablePMCArray"
- push $P397, "while"
- .return ($P397)
+ new $P402, "ResizablePMCArray"
+ push $P402, "while"
+ .return ($P402)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_loop:sym<until>" :subid("93_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "statement_mod_loop:sym<until>" :subid("95_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx403_tgt
- .local int rx403_pos
- .local int rx403_off
- .local int rx403_eos
- .local int rx403_rep
- .local pmc rx403_cur
- (rx403_cur, rx403_pos, rx403_tgt) = self."!cursor_start"()
- rx403_cur."!cursor_debug"("START ", "statement_mod_loop:sym<until>")
- .lex unicode:"$\x{a2}", rx403_cur
+ .local string rx408_tgt
+ .local int rx408_pos
+ .local int rx408_off
+ .local int rx408_eos
+ .local int rx408_rep
+ .local pmc rx408_cur
+ (rx408_cur, rx408_pos, rx408_tgt) = self."!cursor_start"()
+ rx408_cur."!cursor_debug"("START ", "statement_mod_loop:sym<until>")
+ .lex unicode:"$\x{a2}", rx408_cur
.local pmc match
.lex "$/", match
- length rx403_eos, rx403_tgt
- set rx403_off, 0
- lt rx403_pos, 2, rx403_start
- sub rx403_off, rx403_pos, 1
- substr rx403_tgt, rx403_tgt, rx403_off
- rx403_start:
+ length rx408_eos, rx408_tgt
+ set rx408_off, 0
+ lt rx408_pos, 2, rx408_start
+ sub rx408_off, rx408_pos, 1
+ substr rx408_tgt, rx408_tgt, rx408_off
+ rx408_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan406_done
- goto rxscan406_scan
- rxscan406_loop:
- ($P10) = rx403_cur."from"()
+ ne $I10, -1, rxscan411_done
+ goto rxscan411_scan
+ rxscan411_loop:
+ ($P10) = rx408_cur."from"()
inc $P10
- set rx403_pos, $P10
- ge rx403_pos, rx403_eos, rxscan406_done
- rxscan406_scan:
- set_addr $I10, rxscan406_loop
- rx403_cur."!mark_push"(0, rx403_pos, $I10)
- rxscan406_done:
-.annotate 'line', 217
+ set rx408_pos, $P10
+ ge rx408_pos, rx408_eos, rxscan411_done
+ rxscan411_scan:
+ set_addr $I10, rxscan411_loop
+ rx408_cur."!mark_push"(0, rx408_pos, $I10)
+ rxscan411_done:
+.annotate 'line', 219
# rx subcapture "sym"
- set_addr $I10, rxcap_407_fail
- rx403_cur."!mark_push"(0, rx403_pos, $I10)
+ set_addr $I10, rxcap_412_fail
+ rx408_cur."!mark_push"(0, rx408_pos, $I10)
# rx literal "until"
- add $I11, rx403_pos, 5
- gt $I11, rx403_eos, rx403_fail
- sub $I11, rx403_pos, rx403_off
- substr $S10, rx403_tgt, $I11, 5
- ne $S10, "until", rx403_fail
- add rx403_pos, 5
- set_addr $I10, rxcap_407_fail
- ($I12, $I11) = rx403_cur."!mark_peek"($I10)
- rx403_cur."!cursor_pos"($I11)
- ($P10) = rx403_cur."!cursor_start"()
- $P10."!cursor_pass"(rx403_pos, "")
- rx403_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx408_pos, 5
+ gt $I11, rx408_eos, rx408_fail
+ sub $I11, rx408_pos, rx408_off
+ substr $S10, rx408_tgt, $I11, 5
+ ne $S10, "until", rx408_fail
+ add rx408_pos, 5
+ set_addr $I10, rxcap_412_fail
+ ($I12, $I11) = rx408_cur."!mark_peek"($I10)
+ rx408_cur."!cursor_pos"($I11)
+ ($P10) = rx408_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx408_pos, "")
+ rx408_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_407_done
- rxcap_407_fail:
- goto rx403_fail
- rxcap_407_done:
- # rx subrule "ws" subtype=method negate=
- rx403_cur."!cursor_pos"(rx403_pos)
- $P10 = rx403_cur."ws"()
- unless $P10, rx403_fail
- rx403_pos = $P10."pos"()
+ goto rxcap_412_done
+ rxcap_412_fail:
+ goto rx408_fail
+ rxcap_412_done:
+ # rx subrule "ws" subtype=method negate=
+ rx408_cur."!cursor_pos"(rx408_pos)
+ $P10 = rx408_cur."ws"()
+ unless $P10, rx408_fail
+ rx408_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx403_cur."!cursor_pos"(rx403_pos)
- $P10 = rx403_cur."EXPR"()
- unless $P10, rx403_fail
- rx403_cur."!mark_push"(0, -1, 0, $P10)
+ rx408_cur."!cursor_pos"(rx408_pos)
+ $P10 = rx408_cur."EXPR"()
+ unless $P10, rx408_fail
+ rx408_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx403_pos = $P10."pos"()
+ rx408_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx403_cur."!cursor_pos"(rx403_pos)
- $P10 = rx403_cur."ws"()
- unless $P10, rx403_fail
- rx403_pos = $P10."pos"()
+ rx408_cur."!cursor_pos"(rx408_pos)
+ $P10 = rx408_cur."ws"()
+ unless $P10, rx408_fail
+ rx408_pos = $P10."pos"()
# rx pass
- rx403_cur."!cursor_pass"(rx403_pos, "statement_mod_loop:sym<until>")
- rx403_cur."!cursor_debug"("PASS ", "statement_mod_loop:sym<until>", " at pos=", rx403_pos)
- .return (rx403_cur)
- rx403_fail:
+ rx408_cur."!cursor_pass"(rx408_pos, "statement_mod_loop:sym<until>")
+ rx408_cur."!cursor_debug"("PASS ", "statement_mod_loop:sym<until>", " at pos=", rx408_pos)
+ .return (rx408_cur)
+ rx408_fail:
.annotate 'line', 4
- (rx403_rep, rx403_pos, $I10, $P10) = rx403_cur."!mark_fail"(0)
- lt rx403_pos, -1, rx403_done
- eq rx403_pos, -1, rx403_fail
+ (rx408_rep, rx408_pos, $I10, $P10) = rx408_cur."!mark_fail"(0)
+ lt rx408_pos, -1, rx408_done
+ eq rx408_pos, -1, rx408_fail
jump $I10
- rx403_done:
- rx403_cur."!cursor_fail"()
- rx403_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<until>")
- .return (rx403_cur)
+ rx408_done:
+ rx408_cur."!cursor_fail"()
+ rx408_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<until>")
+ .return (rx408_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_loop:sym<until>" :subid("94_1274564776.41408") :method
+.sub "!PREFIX__statement_mod_loop:sym<until>" :subid("96_1275117591.97262") :method
.annotate 'line', 4
- new $P405, "ResizablePMCArray"
- push $P405, "until"
- .return ($P405)
+ new $P410, "ResizablePMCArray"
+ push $P410, "until"
+ .return ($P410)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<fatarrow>" :subid("95_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<fatarrow>" :subid("97_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx411_tgt
- .local int rx411_pos
- .local int rx411_off
- .local int rx411_eos
- .local int rx411_rep
- .local pmc rx411_cur
- (rx411_cur, rx411_pos, rx411_tgt) = self."!cursor_start"()
- rx411_cur."!cursor_debug"("START ", "term:sym<fatarrow>")
- .lex unicode:"$\x{a2}", rx411_cur
+ .local string rx416_tgt
+ .local int rx416_pos
+ .local int rx416_off
+ .local int rx416_eos
+ .local int rx416_rep
+ .local pmc rx416_cur
+ (rx416_cur, rx416_pos, rx416_tgt) = self."!cursor_start"()
+ rx416_cur."!cursor_debug"("START ", "term:sym<fatarrow>")
+ .lex unicode:"$\x{a2}", rx416_cur
.local pmc match
.lex "$/", match
- length rx411_eos, rx411_tgt
- set rx411_off, 0
- lt rx411_pos, 2, rx411_start
- sub rx411_off, rx411_pos, 1
- substr rx411_tgt, rx411_tgt, rx411_off
- rx411_start:
+ length rx416_eos, rx416_tgt
+ set rx416_off, 0
+ lt rx416_pos, 2, rx416_start
+ sub rx416_off, rx416_pos, 1
+ substr rx416_tgt, rx416_tgt, rx416_off
+ rx416_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan415_done
- goto rxscan415_scan
- rxscan415_loop:
- ($P10) = rx411_cur."from"()
+ ne $I10, -1, rxscan420_done
+ goto rxscan420_scan
+ rxscan420_loop:
+ ($P10) = rx416_cur."from"()
inc $P10
- set rx411_pos, $P10
- ge rx411_pos, rx411_eos, rxscan415_done
- rxscan415_scan:
- set_addr $I10, rxscan415_loop
- rx411_cur."!mark_push"(0, rx411_pos, $I10)
- rxscan415_done:
-.annotate 'line', 221
+ set rx416_pos, $P10
+ ge rx416_pos, rx416_eos, rxscan420_done
+ rxscan420_scan:
+ set_addr $I10, rxscan420_loop
+ rx416_cur."!mark_push"(0, rx416_pos, $I10)
+ rxscan420_done:
+.annotate 'line', 223
# rx subrule "fatarrow" subtype=capture negate=
- rx411_cur."!cursor_pos"(rx411_pos)
- $P10 = rx411_cur."fatarrow"()
- unless $P10, rx411_fail
- rx411_cur."!mark_push"(0, -1, 0, $P10)
+ rx416_cur."!cursor_pos"(rx416_pos)
+ $P10 = rx416_cur."fatarrow"()
+ unless $P10, rx416_fail
+ rx416_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("fatarrow")
- rx411_pos = $P10."pos"()
+ rx416_pos = $P10."pos"()
# rx pass
- rx411_cur."!cursor_pass"(rx411_pos, "term:sym<fatarrow>")
- rx411_cur."!cursor_debug"("PASS ", "term:sym<fatarrow>", " at pos=", rx411_pos)
- .return (rx411_cur)
- rx411_fail:
+ rx416_cur."!cursor_pass"(rx416_pos, "term:sym<fatarrow>")
+ rx416_cur."!cursor_debug"("PASS ", "term:sym<fatarrow>", " at pos=", rx416_pos)
+ .return (rx416_cur)
+ rx416_fail:
.annotate 'line', 4
- (rx411_rep, rx411_pos, $I10, $P10) = rx411_cur."!mark_fail"(0)
- lt rx411_pos, -1, rx411_done
- eq rx411_pos, -1, rx411_fail
+ (rx416_rep, rx416_pos, $I10, $P10) = rx416_cur."!mark_fail"(0)
+ lt rx416_pos, -1, rx416_done
+ eq rx416_pos, -1, rx416_fail
jump $I10
- rx411_done:
- rx411_cur."!cursor_fail"()
- rx411_cur."!cursor_debug"("FAIL ", "term:sym<fatarrow>")
- .return (rx411_cur)
+ rx416_done:
+ rx416_cur."!cursor_fail"()
+ rx416_cur."!cursor_debug"("FAIL ", "term:sym<fatarrow>")
+ .return (rx416_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<fatarrow>" :subid("96_1274564776.41408") :method
+.sub "!PREFIX__term:sym<fatarrow>" :subid("98_1275117591.97262") :method
.annotate 'line', 4
- $P413 = self."!PREFIX__!subrule"("fatarrow", "")
- new $P414, "ResizablePMCArray"
- push $P414, $P413
- .return ($P414)
+ $P418 = self."!PREFIX__!subrule"("fatarrow", "")
+ new $P419, "ResizablePMCArray"
+ push $P419, $P418
+ .return ($P419)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<colonpair>" :subid("97_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<colonpair>" :subid("99_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx417_tgt
- .local int rx417_pos
- .local int rx417_off
- .local int rx417_eos
- .local int rx417_rep
- .local pmc rx417_cur
- (rx417_cur, rx417_pos, rx417_tgt) = self."!cursor_start"()
- rx417_cur."!cursor_debug"("START ", "term:sym<colonpair>")
- .lex unicode:"$\x{a2}", rx417_cur
+ .local string rx422_tgt
+ .local int rx422_pos
+ .local int rx422_off
+ .local int rx422_eos
+ .local int rx422_rep
+ .local pmc rx422_cur
+ (rx422_cur, rx422_pos, rx422_tgt) = self."!cursor_start"()
+ rx422_cur."!cursor_debug"("START ", "term:sym<colonpair>")
+ .lex unicode:"$\x{a2}", rx422_cur
.local pmc match
.lex "$/", match
- length rx417_eos, rx417_tgt
- set rx417_off, 0
- lt rx417_pos, 2, rx417_start
- sub rx417_off, rx417_pos, 1
- substr rx417_tgt, rx417_tgt, rx417_off
- rx417_start:
+ length rx422_eos, rx422_tgt
+ set rx422_off, 0
+ lt rx422_pos, 2, rx422_start
+ sub rx422_off, rx422_pos, 1
+ substr rx422_tgt, rx422_tgt, rx422_off
+ rx422_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan421_done
- goto rxscan421_scan
- rxscan421_loop:
- ($P10) = rx417_cur."from"()
+ ne $I10, -1, rxscan426_done
+ goto rxscan426_scan
+ rxscan426_loop:
+ ($P10) = rx422_cur."from"()
inc $P10
- set rx417_pos, $P10
- ge rx417_pos, rx417_eos, rxscan421_done
- rxscan421_scan:
- set_addr $I10, rxscan421_loop
- rx417_cur."!mark_push"(0, rx417_pos, $I10)
- rxscan421_done:
-.annotate 'line', 222
+ set rx422_pos, $P10
+ ge rx422_pos, rx422_eos, rxscan426_done
+ rxscan426_scan:
+ set_addr $I10, rxscan426_loop
+ rx422_cur."!mark_push"(0, rx422_pos, $I10)
+ rxscan426_done:
+.annotate 'line', 224
# rx subrule "colonpair" subtype=capture negate=
- rx417_cur."!cursor_pos"(rx417_pos)
- $P10 = rx417_cur."colonpair"()
- unless $P10, rx417_fail
- rx417_cur."!mark_push"(0, -1, 0, $P10)
+ rx422_cur."!cursor_pos"(rx422_pos)
+ $P10 = rx422_cur."colonpair"()
+ unless $P10, rx422_fail
+ rx422_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("colonpair")
- rx417_pos = $P10."pos"()
+ rx422_pos = $P10."pos"()
# rx pass
- rx417_cur."!cursor_pass"(rx417_pos, "term:sym<colonpair>")
- rx417_cur."!cursor_debug"("PASS ", "term:sym<colonpair>", " at pos=", rx417_pos)
- .return (rx417_cur)
- rx417_fail:
+ rx422_cur."!cursor_pass"(rx422_pos, "term:sym<colonpair>")
+ rx422_cur."!cursor_debug"("PASS ", "term:sym<colonpair>", " at pos=", rx422_pos)
+ .return (rx422_cur)
+ rx422_fail:
.annotate 'line', 4
- (rx417_rep, rx417_pos, $I10, $P10) = rx417_cur."!mark_fail"(0)
- lt rx417_pos, -1, rx417_done
- eq rx417_pos, -1, rx417_fail
+ (rx422_rep, rx422_pos, $I10, $P10) = rx422_cur."!mark_fail"(0)
+ lt rx422_pos, -1, rx422_done
+ eq rx422_pos, -1, rx422_fail
jump $I10
- rx417_done:
- rx417_cur."!cursor_fail"()
- rx417_cur."!cursor_debug"("FAIL ", "term:sym<colonpair>")
- .return (rx417_cur)
+ rx422_done:
+ rx422_cur."!cursor_fail"()
+ rx422_cur."!cursor_debug"("FAIL ", "term:sym<colonpair>")
+ .return (rx422_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<colonpair>" :subid("98_1274564776.41408") :method
+.sub "!PREFIX__term:sym<colonpair>" :subid("100_1275117591.97262") :method
.annotate 'line', 4
- $P419 = self."!PREFIX__!subrule"("colonpair", "")
- new $P420, "ResizablePMCArray"
- push $P420, $P419
- .return ($P420)
+ $P424 = self."!PREFIX__!subrule"("colonpair", "")
+ new $P425, "ResizablePMCArray"
+ push $P425, $P424
+ .return ($P425)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<variable>" :subid("99_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<variable>" :subid("101_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx423_tgt
- .local int rx423_pos
- .local int rx423_off
- .local int rx423_eos
- .local int rx423_rep
- .local pmc rx423_cur
- (rx423_cur, rx423_pos, rx423_tgt) = self."!cursor_start"()
- rx423_cur."!cursor_debug"("START ", "term:sym<variable>")
- .lex unicode:"$\x{a2}", rx423_cur
+ .local string rx428_tgt
+ .local int rx428_pos
+ .local int rx428_off
+ .local int rx428_eos
+ .local int rx428_rep
+ .local pmc rx428_cur
+ (rx428_cur, rx428_pos, rx428_tgt) = self."!cursor_start"()
+ rx428_cur."!cursor_debug"("START ", "term:sym<variable>")
+ .lex unicode:"$\x{a2}", rx428_cur
.local pmc match
.lex "$/", match
- length rx423_eos, rx423_tgt
- set rx423_off, 0
- lt rx423_pos, 2, rx423_start
- sub rx423_off, rx423_pos, 1
- substr rx423_tgt, rx423_tgt, rx423_off
- rx423_start:
+ length rx428_eos, rx428_tgt
+ set rx428_off, 0
+ lt rx428_pos, 2, rx428_start
+ sub rx428_off, rx428_pos, 1
+ substr rx428_tgt, rx428_tgt, rx428_off
+ rx428_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan427_done
- goto rxscan427_scan
- rxscan427_loop:
- ($P10) = rx423_cur."from"()
+ ne $I10, -1, rxscan432_done
+ goto rxscan432_scan
+ rxscan432_loop:
+ ($P10) = rx428_cur."from"()
inc $P10
- set rx423_pos, $P10
- ge rx423_pos, rx423_eos, rxscan427_done
- rxscan427_scan:
- set_addr $I10, rxscan427_loop
- rx423_cur."!mark_push"(0, rx423_pos, $I10)
- rxscan427_done:
-.annotate 'line', 223
+ set rx428_pos, $P10
+ ge rx428_pos, rx428_eos, rxscan432_done
+ rxscan432_scan:
+ set_addr $I10, rxscan432_loop
+ rx428_cur."!mark_push"(0, rx428_pos, $I10)
+ rxscan432_done:
+.annotate 'line', 225
# rx subrule "variable" subtype=capture negate=
- rx423_cur."!cursor_pos"(rx423_pos)
- $P10 = rx423_cur."variable"()
- unless $P10, rx423_fail
- rx423_cur."!mark_push"(0, -1, 0, $P10)
+ rx428_cur."!cursor_pos"(rx428_pos)
+ $P10 = rx428_cur."variable"()
+ unless $P10, rx428_fail
+ rx428_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("variable")
- rx423_pos = $P10."pos"()
+ rx428_pos = $P10."pos"()
# rx pass
- rx423_cur."!cursor_pass"(rx423_pos, "term:sym<variable>")
- rx423_cur."!cursor_debug"("PASS ", "term:sym<variable>", " at pos=", rx423_pos)
- .return (rx423_cur)
- rx423_fail:
+ rx428_cur."!cursor_pass"(rx428_pos, "term:sym<variable>")
+ rx428_cur."!cursor_debug"("PASS ", "term:sym<variable>", " at pos=", rx428_pos)
+ .return (rx428_cur)
+ rx428_fail:
.annotate 'line', 4
- (rx423_rep, rx423_pos, $I10, $P10) = rx423_cur."!mark_fail"(0)
- lt rx423_pos, -1, rx423_done
- eq rx423_pos, -1, rx423_fail
+ (rx428_rep, rx428_pos, $I10, $P10) = rx428_cur."!mark_fail"(0)
+ lt rx428_pos, -1, rx428_done
+ eq rx428_pos, -1, rx428_fail
jump $I10
- rx423_done:
- rx423_cur."!cursor_fail"()
- rx423_cur."!cursor_debug"("FAIL ", "term:sym<variable>")
- .return (rx423_cur)
+ rx428_done:
+ rx428_cur."!cursor_fail"()
+ rx428_cur."!cursor_debug"("FAIL ", "term:sym<variable>")
+ .return (rx428_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<variable>" :subid("100_1274564776.41408") :method
+.sub "!PREFIX__term:sym<variable>" :subid("102_1275117591.97262") :method
.annotate 'line', 4
- $P425 = self."!PREFIX__!subrule"("variable", "")
- new $P426, "ResizablePMCArray"
- push $P426, $P425
- .return ($P426)
+ $P430 = self."!PREFIX__!subrule"("variable", "")
+ new $P431, "ResizablePMCArray"
+ push $P431, $P430
+ .return ($P431)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<package_declarator>" :subid("101_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<package_declarator>" :subid("103_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx429_tgt
- .local int rx429_pos
- .local int rx429_off
- .local int rx429_eos
- .local int rx429_rep
- .local pmc rx429_cur
- (rx429_cur, rx429_pos, rx429_tgt) = self."!cursor_start"()
- rx429_cur."!cursor_debug"("START ", "term:sym<package_declarator>")
- .lex unicode:"$\x{a2}", rx429_cur
+ .local string rx434_tgt
+ .local int rx434_pos
+ .local int rx434_off
+ .local int rx434_eos
+ .local int rx434_rep
+ .local pmc rx434_cur
+ (rx434_cur, rx434_pos, rx434_tgt) = self."!cursor_start"()
+ rx434_cur."!cursor_debug"("START ", "term:sym<package_declarator>")
+ .lex unicode:"$\x{a2}", rx434_cur
.local pmc match
.lex "$/", match
- length rx429_eos, rx429_tgt
- set rx429_off, 0
- lt rx429_pos, 2, rx429_start
- sub rx429_off, rx429_pos, 1
- substr rx429_tgt, rx429_tgt, rx429_off
- rx429_start:
+ length rx434_eos, rx434_tgt
+ set rx434_off, 0
+ lt rx434_pos, 2, rx434_start
+ sub rx434_off, rx434_pos, 1
+ substr rx434_tgt, rx434_tgt, rx434_off
+ rx434_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan433_done
- goto rxscan433_scan
- rxscan433_loop:
- ($P10) = rx429_cur."from"()
+ ne $I10, -1, rxscan438_done
+ goto rxscan438_scan
+ rxscan438_loop:
+ ($P10) = rx434_cur."from"()
inc $P10
- set rx429_pos, $P10
- ge rx429_pos, rx429_eos, rxscan433_done
- rxscan433_scan:
- set_addr $I10, rxscan433_loop
- rx429_cur."!mark_push"(0, rx429_pos, $I10)
- rxscan433_done:
-.annotate 'line', 224
+ set rx434_pos, $P10
+ ge rx434_pos, rx434_eos, rxscan438_done
+ rxscan438_scan:
+ set_addr $I10, rxscan438_loop
+ rx434_cur."!mark_push"(0, rx434_pos, $I10)
+ rxscan438_done:
+.annotate 'line', 226
# rx subrule "package_declarator" subtype=capture negate=
- rx429_cur."!cursor_pos"(rx429_pos)
- $P10 = rx429_cur."package_declarator"()
- unless $P10, rx429_fail
- rx429_cur."!mark_push"(0, -1, 0, $P10)
+ rx434_cur."!cursor_pos"(rx434_pos)
+ $P10 = rx434_cur."package_declarator"()
+ unless $P10, rx434_fail
+ rx434_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("package_declarator")
- rx429_pos = $P10."pos"()
+ rx434_pos = $P10."pos"()
# rx pass
- rx429_cur."!cursor_pass"(rx429_pos, "term:sym<package_declarator>")
- rx429_cur."!cursor_debug"("PASS ", "term:sym<package_declarator>", " at pos=", rx429_pos)
- .return (rx429_cur)
- rx429_fail:
+ rx434_cur."!cursor_pass"(rx434_pos, "term:sym<package_declarator>")
+ rx434_cur."!cursor_debug"("PASS ", "term:sym<package_declarator>", " at pos=", rx434_pos)
+ .return (rx434_cur)
+ rx434_fail:
.annotate 'line', 4
- (rx429_rep, rx429_pos, $I10, $P10) = rx429_cur."!mark_fail"(0)
- lt rx429_pos, -1, rx429_done
- eq rx429_pos, -1, rx429_fail
+ (rx434_rep, rx434_pos, $I10, $P10) = rx434_cur."!mark_fail"(0)
+ lt rx434_pos, -1, rx434_done
+ eq rx434_pos, -1, rx434_fail
jump $I10
- rx429_done:
- rx429_cur."!cursor_fail"()
- rx429_cur."!cursor_debug"("FAIL ", "term:sym<package_declarator>")
- .return (rx429_cur)
+ rx434_done:
+ rx434_cur."!cursor_fail"()
+ rx434_cur."!cursor_debug"("FAIL ", "term:sym<package_declarator>")
+ .return (rx434_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<package_declarator>" :subid("102_1274564776.41408") :method
+.sub "!PREFIX__term:sym<package_declarator>" :subid("104_1275117591.97262") :method
.annotate 'line', 4
- $P431 = self."!PREFIX__!subrule"("package_declarator", "")
- new $P432, "ResizablePMCArray"
- push $P432, $P431
- .return ($P432)
+ $P436 = self."!PREFIX__!subrule"("package_declarator", "")
+ new $P437, "ResizablePMCArray"
+ push $P437, $P436
+ .return ($P437)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<scope_declarator>" :subid("103_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<scope_declarator>" :subid("105_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx435_tgt
- .local int rx435_pos
- .local int rx435_off
- .local int rx435_eos
- .local int rx435_rep
- .local pmc rx435_cur
- (rx435_cur, rx435_pos, rx435_tgt) = self."!cursor_start"()
- rx435_cur."!cursor_debug"("START ", "term:sym<scope_declarator>")
- .lex unicode:"$\x{a2}", rx435_cur
+ .local string rx440_tgt
+ .local int rx440_pos
+ .local int rx440_off
+ .local int rx440_eos
+ .local int rx440_rep
+ .local pmc rx440_cur
+ (rx440_cur, rx440_pos, rx440_tgt) = self."!cursor_start"()
+ rx440_cur."!cursor_debug"("START ", "term:sym<scope_declarator>")
+ .lex unicode:"$\x{a2}", rx440_cur
.local pmc match
.lex "$/", match
- length rx435_eos, rx435_tgt
- set rx435_off, 0
- lt rx435_pos, 2, rx435_start
- sub rx435_off, rx435_pos, 1
- substr rx435_tgt, rx435_tgt, rx435_off
- rx435_start:
+ length rx440_eos, rx440_tgt
+ set rx440_off, 0
+ lt rx440_pos, 2, rx440_start
+ sub rx440_off, rx440_pos, 1
+ substr rx440_tgt, rx440_tgt, rx440_off
+ rx440_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan439_done
- goto rxscan439_scan
- rxscan439_loop:
- ($P10) = rx435_cur."from"()
+ ne $I10, -1, rxscan444_done
+ goto rxscan444_scan
+ rxscan444_loop:
+ ($P10) = rx440_cur."from"()
inc $P10
- set rx435_pos, $P10
- ge rx435_pos, rx435_eos, rxscan439_done
- rxscan439_scan:
- set_addr $I10, rxscan439_loop
- rx435_cur."!mark_push"(0, rx435_pos, $I10)
- rxscan439_done:
-.annotate 'line', 225
+ set rx440_pos, $P10
+ ge rx440_pos, rx440_eos, rxscan444_done
+ rxscan444_scan:
+ set_addr $I10, rxscan444_loop
+ rx440_cur."!mark_push"(0, rx440_pos, $I10)
+ rxscan444_done:
+.annotate 'line', 227
# rx subrule "scope_declarator" subtype=capture negate=
- rx435_cur."!cursor_pos"(rx435_pos)
- $P10 = rx435_cur."scope_declarator"()
- unless $P10, rx435_fail
- rx435_cur."!mark_push"(0, -1, 0, $P10)
+ rx440_cur."!cursor_pos"(rx440_pos)
+ $P10 = rx440_cur."scope_declarator"()
+ unless $P10, rx440_fail
+ rx440_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scope_declarator")
- rx435_pos = $P10."pos"()
+ rx440_pos = $P10."pos"()
# rx pass
- rx435_cur."!cursor_pass"(rx435_pos, "term:sym<scope_declarator>")
- rx435_cur."!cursor_debug"("PASS ", "term:sym<scope_declarator>", " at pos=", rx435_pos)
- .return (rx435_cur)
- rx435_fail:
+ rx440_cur."!cursor_pass"(rx440_pos, "term:sym<scope_declarator>")
+ rx440_cur."!cursor_debug"("PASS ", "term:sym<scope_declarator>", " at pos=", rx440_pos)
+ .return (rx440_cur)
+ rx440_fail:
.annotate 'line', 4
- (rx435_rep, rx435_pos, $I10, $P10) = rx435_cur."!mark_fail"(0)
- lt rx435_pos, -1, rx435_done
- eq rx435_pos, -1, rx435_fail
+ (rx440_rep, rx440_pos, $I10, $P10) = rx440_cur."!mark_fail"(0)
+ lt rx440_pos, -1, rx440_done
+ eq rx440_pos, -1, rx440_fail
jump $I10
- rx435_done:
- rx435_cur."!cursor_fail"()
- rx435_cur."!cursor_debug"("FAIL ", "term:sym<scope_declarator>")
- .return (rx435_cur)
+ rx440_done:
+ rx440_cur."!cursor_fail"()
+ rx440_cur."!cursor_debug"("FAIL ", "term:sym<scope_declarator>")
+ .return (rx440_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<scope_declarator>" :subid("104_1274564776.41408") :method
+.sub "!PREFIX__term:sym<scope_declarator>" :subid("106_1275117591.97262") :method
.annotate 'line', 4
- $P437 = self."!PREFIX__!subrule"("scope_declarator", "")
- new $P438, "ResizablePMCArray"
- push $P438, $P437
- .return ($P438)
+ $P442 = self."!PREFIX__!subrule"("scope_declarator", "")
+ new $P443, "ResizablePMCArray"
+ push $P443, $P442
+ .return ($P443)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<routine_declarator>" :subid("105_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<routine_declarator>" :subid("107_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx441_tgt
- .local int rx441_pos
- .local int rx441_off
- .local int rx441_eos
- .local int rx441_rep
- .local pmc rx441_cur
- (rx441_cur, rx441_pos, rx441_tgt) = self."!cursor_start"()
- rx441_cur."!cursor_debug"("START ", "term:sym<routine_declarator>")
- .lex unicode:"$\x{a2}", rx441_cur
+ .local string rx446_tgt
+ .local int rx446_pos
+ .local int rx446_off
+ .local int rx446_eos
+ .local int rx446_rep
+ .local pmc rx446_cur
+ (rx446_cur, rx446_pos, rx446_tgt) = self."!cursor_start"()
+ rx446_cur."!cursor_debug"("START ", "term:sym<routine_declarator>")
+ .lex unicode:"$\x{a2}", rx446_cur
.local pmc match
.lex "$/", match
- length rx441_eos, rx441_tgt
- set rx441_off, 0
- lt rx441_pos, 2, rx441_start
- sub rx441_off, rx441_pos, 1
- substr rx441_tgt, rx441_tgt, rx441_off
- rx441_start:
+ length rx446_eos, rx446_tgt
+ set rx446_off, 0
+ lt rx446_pos, 2, rx446_start
+ sub rx446_off, rx446_pos, 1
+ substr rx446_tgt, rx446_tgt, rx446_off
+ rx446_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan445_done
- goto rxscan445_scan
- rxscan445_loop:
- ($P10) = rx441_cur."from"()
+ ne $I10, -1, rxscan450_done
+ goto rxscan450_scan
+ rxscan450_loop:
+ ($P10) = rx446_cur."from"()
inc $P10
- set rx441_pos, $P10
- ge rx441_pos, rx441_eos, rxscan445_done
- rxscan445_scan:
- set_addr $I10, rxscan445_loop
- rx441_cur."!mark_push"(0, rx441_pos, $I10)
- rxscan445_done:
-.annotate 'line', 226
+ set rx446_pos, $P10
+ ge rx446_pos, rx446_eos, rxscan450_done
+ rxscan450_scan:
+ set_addr $I10, rxscan450_loop
+ rx446_cur."!mark_push"(0, rx446_pos, $I10)
+ rxscan450_done:
+.annotate 'line', 228
# rx subrule "routine_declarator" subtype=capture negate=
- rx441_cur."!cursor_pos"(rx441_pos)
- $P10 = rx441_cur."routine_declarator"()
- unless $P10, rx441_fail
- rx441_cur."!mark_push"(0, -1, 0, $P10)
+ rx446_cur."!cursor_pos"(rx446_pos)
+ $P10 = rx446_cur."routine_declarator"()
+ unless $P10, rx446_fail
+ rx446_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("routine_declarator")
- rx441_pos = $P10."pos"()
+ rx446_pos = $P10."pos"()
# rx pass
- rx441_cur."!cursor_pass"(rx441_pos, "term:sym<routine_declarator>")
- rx441_cur."!cursor_debug"("PASS ", "term:sym<routine_declarator>", " at pos=", rx441_pos)
- .return (rx441_cur)
- rx441_fail:
+ rx446_cur."!cursor_pass"(rx446_pos, "term:sym<routine_declarator>")
+ rx446_cur."!cursor_debug"("PASS ", "term:sym<routine_declarator>", " at pos=", rx446_pos)
+ .return (rx446_cur)
+ rx446_fail:
.annotate 'line', 4
- (rx441_rep, rx441_pos, $I10, $P10) = rx441_cur."!mark_fail"(0)
- lt rx441_pos, -1, rx441_done
- eq rx441_pos, -1, rx441_fail
+ (rx446_rep, rx446_pos, $I10, $P10) = rx446_cur."!mark_fail"(0)
+ lt rx446_pos, -1, rx446_done
+ eq rx446_pos, -1, rx446_fail
jump $I10
- rx441_done:
- rx441_cur."!cursor_fail"()
- rx441_cur."!cursor_debug"("FAIL ", "term:sym<routine_declarator>")
- .return (rx441_cur)
+ rx446_done:
+ rx446_cur."!cursor_fail"()
+ rx446_cur."!cursor_debug"("FAIL ", "term:sym<routine_declarator>")
+ .return (rx446_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<routine_declarator>" :subid("106_1274564776.41408") :method
+.sub "!PREFIX__term:sym<routine_declarator>" :subid("108_1275117591.97262") :method
.annotate 'line', 4
- $P443 = self."!PREFIX__!subrule"("routine_declarator", "")
- new $P444, "ResizablePMCArray"
- push $P444, $P443
- .return ($P444)
+ $P448 = self."!PREFIX__!subrule"("routine_declarator", "")
+ new $P449, "ResizablePMCArray"
+ push $P449, $P448
+ .return ($P449)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<regex_declarator>" :subid("107_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<regex_declarator>" :subid("109_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx447_tgt
- .local int rx447_pos
- .local int rx447_off
- .local int rx447_eos
- .local int rx447_rep
- .local pmc rx447_cur
- (rx447_cur, rx447_pos, rx447_tgt) = self."!cursor_start"()
- rx447_cur."!cursor_debug"("START ", "term:sym<regex_declarator>")
- .lex unicode:"$\x{a2}", rx447_cur
+ .local string rx452_tgt
+ .local int rx452_pos
+ .local int rx452_off
+ .local int rx452_eos
+ .local int rx452_rep
+ .local pmc rx452_cur
+ (rx452_cur, rx452_pos, rx452_tgt) = self."!cursor_start"()
+ rx452_cur."!cursor_debug"("START ", "term:sym<regex_declarator>")
+ .lex unicode:"$\x{a2}", rx452_cur
.local pmc match
.lex "$/", match
- length rx447_eos, rx447_tgt
- set rx447_off, 0
- lt rx447_pos, 2, rx447_start
- sub rx447_off, rx447_pos, 1
- substr rx447_tgt, rx447_tgt, rx447_off
- rx447_start:
+ length rx452_eos, rx452_tgt
+ set rx452_off, 0
+ lt rx452_pos, 2, rx452_start
+ sub rx452_off, rx452_pos, 1
+ substr rx452_tgt, rx452_tgt, rx452_off
+ rx452_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan451_done
- goto rxscan451_scan
- rxscan451_loop:
- ($P10) = rx447_cur."from"()
+ ne $I10, -1, rxscan456_done
+ goto rxscan456_scan
+ rxscan456_loop:
+ ($P10) = rx452_cur."from"()
inc $P10
- set rx447_pos, $P10
- ge rx447_pos, rx447_eos, rxscan451_done
- rxscan451_scan:
- set_addr $I10, rxscan451_loop
- rx447_cur."!mark_push"(0, rx447_pos, $I10)
- rxscan451_done:
-.annotate 'line', 227
+ set rx452_pos, $P10
+ ge rx452_pos, rx452_eos, rxscan456_done
+ rxscan456_scan:
+ set_addr $I10, rxscan456_loop
+ rx452_cur."!mark_push"(0, rx452_pos, $I10)
+ rxscan456_done:
+.annotate 'line', 229
# rx subrule "regex_declarator" subtype=capture negate=
- rx447_cur."!cursor_pos"(rx447_pos)
- $P10 = rx447_cur."regex_declarator"()
- unless $P10, rx447_fail
- rx447_cur."!mark_push"(0, -1, 0, $P10)
+ rx452_cur."!cursor_pos"(rx452_pos)
+ $P10 = rx452_cur."regex_declarator"()
+ unless $P10, rx452_fail
+ rx452_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("regex_declarator")
- rx447_pos = $P10."pos"()
- # rx pass
- rx447_cur."!cursor_pass"(rx447_pos, "term:sym<regex_declarator>")
- rx447_cur."!cursor_debug"("PASS ", "term:sym<regex_declarator>", " at pos=", rx447_pos)
- .return (rx447_cur)
- rx447_fail:
-.annotate 'line', 4
- (rx447_rep, rx447_pos, $I10, $P10) = rx447_cur."!mark_fail"(0)
- lt rx447_pos, -1, rx447_done
- eq rx447_pos, -1, rx447_fail
- jump $I10
- rx447_done:
- rx447_cur."!cursor_fail"()
- rx447_cur."!cursor_debug"("FAIL ", "term:sym<regex_declarator>")
- .return (rx447_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<regex_declarator>" :subid("108_1274564776.41408") :method
-.annotate 'line', 4
- $P449 = self."!PREFIX__!subrule"("regex_declarator", "")
- new $P450, "ResizablePMCArray"
- push $P450, $P449
- .return ($P450)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "term:sym<statement_prefix>" :subid("109_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx453_tgt
- .local int rx453_pos
- .local int rx453_off
- .local int rx453_eos
- .local int rx453_rep
- .local pmc rx453_cur
- (rx453_cur, rx453_pos, rx453_tgt) = self."!cursor_start"()
- rx453_cur."!cursor_debug"("START ", "term:sym<statement_prefix>")
- .lex unicode:"$\x{a2}", rx453_cur
- .local pmc match
- .lex "$/", match
- length rx453_eos, rx453_tgt
- set rx453_off, 0
- lt rx453_pos, 2, rx453_start
- sub rx453_off, rx453_pos, 1
- substr rx453_tgt, rx453_tgt, rx453_off
- rx453_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan457_done
- goto rxscan457_scan
- rxscan457_loop:
- ($P10) = rx453_cur."from"()
- inc $P10
- set rx453_pos, $P10
- ge rx453_pos, rx453_eos, rxscan457_done
- rxscan457_scan:
- set_addr $I10, rxscan457_loop
- rx453_cur."!mark_push"(0, rx453_pos, $I10)
- rxscan457_done:
-.annotate 'line', 228
- # rx subrule "statement_prefix" subtype=capture negate=
- rx453_cur."!cursor_pos"(rx453_pos)
- $P10 = rx453_cur."statement_prefix"()
- unless $P10, rx453_fail
- rx453_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("statement_prefix")
- rx453_pos = $P10."pos"()
+ rx452_pos = $P10."pos"()
# rx pass
- rx453_cur."!cursor_pass"(rx453_pos, "term:sym<statement_prefix>")
- rx453_cur."!cursor_debug"("PASS ", "term:sym<statement_prefix>", " at pos=", rx453_pos)
- .return (rx453_cur)
- rx453_fail:
+ rx452_cur."!cursor_pass"(rx452_pos, "term:sym<regex_declarator>")
+ rx452_cur."!cursor_debug"("PASS ", "term:sym<regex_declarator>", " at pos=", rx452_pos)
+ .return (rx452_cur)
+ rx452_fail:
.annotate 'line', 4
- (rx453_rep, rx453_pos, $I10, $P10) = rx453_cur."!mark_fail"(0)
- lt rx453_pos, -1, rx453_done
- eq rx453_pos, -1, rx453_fail
+ (rx452_rep, rx452_pos, $I10, $P10) = rx452_cur."!mark_fail"(0)
+ lt rx452_pos, -1, rx452_done
+ eq rx452_pos, -1, rx452_fail
jump $I10
- rx453_done:
- rx453_cur."!cursor_fail"()
- rx453_cur."!cursor_debug"("FAIL ", "term:sym<statement_prefix>")
- .return (rx453_cur)
+ rx452_done:
+ rx452_cur."!cursor_fail"()
+ rx452_cur."!cursor_debug"("FAIL ", "term:sym<regex_declarator>")
+ .return (rx452_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<statement_prefix>" :subid("110_1274564776.41408") :method
+.sub "!PREFIX__term:sym<regex_declarator>" :subid("110_1275117591.97262") :method
.annotate 'line', 4
- $P455 = self."!PREFIX__!subrule"("statement_prefix", "")
- new $P456, "ResizablePMCArray"
- push $P456, $P455
- .return ($P456)
+ $P454 = self."!PREFIX__!subrule"("regex_declarator", "")
+ new $P455, "ResizablePMCArray"
+ push $P455, $P454
+ .return ($P455)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<lambda>" :subid("111_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<statement_prefix>" :subid("111_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx459_tgt
- .local int rx459_pos
- .local int rx459_off
- .local int rx459_eos
- .local int rx459_rep
- .local pmc rx459_cur
- (rx459_cur, rx459_pos, rx459_tgt) = self."!cursor_start"()
- rx459_cur."!cursor_debug"("START ", "term:sym<lambda>")
- .lex unicode:"$\x{a2}", rx459_cur
+ .local string rx458_tgt
+ .local int rx458_pos
+ .local int rx458_off
+ .local int rx458_eos
+ .local int rx458_rep
+ .local pmc rx458_cur
+ (rx458_cur, rx458_pos, rx458_tgt) = self."!cursor_start"()
+ rx458_cur."!cursor_debug"("START ", "term:sym<statement_prefix>")
+ .lex unicode:"$\x{a2}", rx458_cur
.local pmc match
.lex "$/", match
- length rx459_eos, rx459_tgt
- set rx459_off, 0
- lt rx459_pos, 2, rx459_start
- sub rx459_off, rx459_pos, 1
- substr rx459_tgt, rx459_tgt, rx459_off
- rx459_start:
+ length rx458_eos, rx458_tgt
+ set rx458_off, 0
+ lt rx458_pos, 2, rx458_start
+ sub rx458_off, rx458_pos, 1
+ substr rx458_tgt, rx458_tgt, rx458_off
+ rx458_start:
$I10 = self.'from'()
ne $I10, -1, rxscan462_done
goto rxscan462_scan
rxscan462_loop:
- ($P10) = rx459_cur."from"()
+ ($P10) = rx458_cur."from"()
inc $P10
- set rx459_pos, $P10
- ge rx459_pos, rx459_eos, rxscan462_done
+ set rx458_pos, $P10
+ ge rx458_pos, rx458_eos, rxscan462_done
rxscan462_scan:
set_addr $I10, rxscan462_loop
- rx459_cur."!mark_push"(0, rx459_pos, $I10)
+ rx458_cur."!mark_push"(0, rx458_pos, $I10)
rxscan462_done:
-.annotate 'line', 229
- # rx subrule "lambda" subtype=zerowidth negate=
- rx459_cur."!cursor_pos"(rx459_pos)
- $P10 = rx459_cur."lambda"()
- unless $P10, rx459_fail
- # rx subrule "pblock" subtype=capture negate=
- rx459_cur."!cursor_pos"(rx459_pos)
- $P10 = rx459_cur."pblock"()
- unless $P10, rx459_fail
- rx459_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("pblock")
- rx459_pos = $P10."pos"()
+.annotate 'line', 230
+ # rx subrule "statement_prefix" subtype=capture negate=
+ rx458_cur."!cursor_pos"(rx458_pos)
+ $P10 = rx458_cur."statement_prefix"()
+ unless $P10, rx458_fail
+ rx458_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("statement_prefix")
+ rx458_pos = $P10."pos"()
# rx pass
- rx459_cur."!cursor_pass"(rx459_pos, "term:sym<lambda>")
- rx459_cur."!cursor_debug"("PASS ", "term:sym<lambda>", " at pos=", rx459_pos)
- .return (rx459_cur)
- rx459_fail:
+ rx458_cur."!cursor_pass"(rx458_pos, "term:sym<statement_prefix>")
+ rx458_cur."!cursor_debug"("PASS ", "term:sym<statement_prefix>", " at pos=", rx458_pos)
+ .return (rx458_cur)
+ rx458_fail:
.annotate 'line', 4
- (rx459_rep, rx459_pos, $I10, $P10) = rx459_cur."!mark_fail"(0)
- lt rx459_pos, -1, rx459_done
- eq rx459_pos, -1, rx459_fail
+ (rx458_rep, rx458_pos, $I10, $P10) = rx458_cur."!mark_fail"(0)
+ lt rx458_pos, -1, rx458_done
+ eq rx458_pos, -1, rx458_fail
jump $I10
- rx459_done:
- rx459_cur."!cursor_fail"()
- rx459_cur."!cursor_debug"("FAIL ", "term:sym<lambda>")
- .return (rx459_cur)
+ rx458_done:
+ rx458_cur."!cursor_fail"()
+ rx458_cur."!cursor_debug"("FAIL ", "term:sym<statement_prefix>")
+ .return (rx458_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<lambda>" :subid("112_1274564776.41408") :method
+.sub "!PREFIX__term:sym<statement_prefix>" :subid("112_1275117591.97262") :method
.annotate 'line', 4
+ $P460 = self."!PREFIX__!subrule"("statement_prefix", "")
new $P461, "ResizablePMCArray"
- push $P461, ""
+ push $P461, $P460
.return ($P461)
.end
.namespace ["NQP";"Grammar"]
-.sub "fatarrow" :subid("113_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<lambda>" :subid("113_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx464_tgt
.local int rx464_pos
@@ -5661,7 +5671,7 @@
.local int rx464_rep
.local pmc rx464_cur
(rx464_cur, rx464_pos, rx464_tgt) = self."!cursor_start"()
- rx464_cur."!cursor_debug"("START ", "fatarrow")
+ rx464_cur."!cursor_debug"("START ", "term:sym<lambda>")
.lex unicode:"$\x{a2}", rx464_cur
.local pmc match
.lex "$/", match
@@ -5672,63 +5682,32 @@
substr rx464_tgt, rx464_tgt, rx464_off
rx464_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan468_done
- goto rxscan468_scan
- rxscan468_loop:
+ ne $I10, -1, rxscan467_done
+ goto rxscan467_scan
+ rxscan467_loop:
($P10) = rx464_cur."from"()
inc $P10
set rx464_pos, $P10
- ge rx464_pos, rx464_eos, rxscan468_done
- rxscan468_scan:
- set_addr $I10, rxscan468_loop
+ ge rx464_pos, rx464_eos, rxscan467_done
+ rxscan467_scan:
+ set_addr $I10, rxscan467_loop
rx464_cur."!mark_push"(0, rx464_pos, $I10)
- rxscan468_done:
-.annotate 'line', 232
- # rx subrule "identifier" subtype=capture negate=
- rx464_cur."!cursor_pos"(rx464_pos)
- $P10 = rx464_cur."identifier"()
- unless $P10, rx464_fail
- rx464_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("key")
- rx464_pos = $P10."pos"()
- # rx rxquantr469 ** 0..*
- set_addr $I470, rxquantr469_done
- rx464_cur."!mark_push"(0, rx464_pos, $I470)
- rxquantr469_loop:
- # rx enumcharlist negate=0
- ge rx464_pos, rx464_eos, rx464_fail
- sub $I10, rx464_pos, rx464_off
- substr $S10, rx464_tgt, $I10, 1
- index $I11, unicode:"\t \x{a0}\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000", $S10
- lt $I11, 0, rx464_fail
- inc rx464_pos
- (rx464_rep) = rx464_cur."!mark_commit"($I470)
- rx464_cur."!mark_push"(rx464_rep, rx464_pos, $I470)
- goto rxquantr469_loop
- rxquantr469_done:
- # rx literal "=>"
- add $I11, rx464_pos, 2
- gt $I11, rx464_eos, rx464_fail
- sub $I11, rx464_pos, rx464_off
- substr $S10, rx464_tgt, $I11, 2
- ne $S10, "=>", rx464_fail
- add rx464_pos, 2
- # rx subrule "ws" subtype=method negate=
+ rxscan467_done:
+.annotate 'line', 231
+ # rx subrule "lambda" subtype=zerowidth negate=
rx464_cur."!cursor_pos"(rx464_pos)
- $P10 = rx464_cur."ws"()
+ $P10 = rx464_cur."lambda"()
unless $P10, rx464_fail
- rx464_pos = $P10."pos"()
- # rx subrule "EXPR" subtype=capture negate=
+ # rx subrule "pblock" subtype=capture negate=
rx464_cur."!cursor_pos"(rx464_pos)
- $P10 = rx464_cur."EXPR"("i=")
+ $P10 = rx464_cur."pblock"()
unless $P10, rx464_fail
rx464_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("val")
+ $P10."!cursor_names"("pblock")
rx464_pos = $P10."pos"()
-.annotate 'line', 231
# rx pass
- rx464_cur."!cursor_pass"(rx464_pos, "fatarrow")
- rx464_cur."!cursor_debug"("PASS ", "fatarrow", " at pos=", rx464_pos)
+ rx464_cur."!cursor_pass"(rx464_pos, "term:sym<lambda>")
+ rx464_cur."!cursor_debug"("PASS ", "term:sym<lambda>", " at pos=", rx464_pos)
.return (rx464_cur)
rx464_fail:
.annotate 'line', 4
@@ -5738,407 +5717,439 @@
jump $I10
rx464_done:
rx464_cur."!cursor_fail"()
- rx464_cur."!cursor_debug"("FAIL ", "fatarrow")
+ rx464_cur."!cursor_debug"("FAIL ", "term:sym<lambda>")
.return (rx464_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__fatarrow" :subid("114_1274564776.41408") :method
+.sub "!PREFIX__term:sym<lambda>" :subid("114_1275117591.97262") :method
.annotate 'line', 4
- $P466 = self."!PREFIX__!subrule"("key", "")
- new $P467, "ResizablePMCArray"
- push $P467, $P466
- .return ($P467)
+ new $P466, "ResizablePMCArray"
+ push $P466, ""
+ .return ($P466)
.end
.namespace ["NQP";"Grammar"]
-.sub "colonpair" :subid("115_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx472_tgt
- .local int rx472_pos
- .local int rx472_off
- .local int rx472_eos
- .local int rx472_rep
- .local pmc rx472_cur
- (rx472_cur, rx472_pos, rx472_tgt) = self."!cursor_start"()
- rx472_cur."!cursor_debug"("START ", "colonpair")
- rx472_cur."!cursor_caparray"("circumfix")
- .lex unicode:"$\x{a2}", rx472_cur
- .local pmc match
- .lex "$/", match
- length rx472_eos, rx472_tgt
- set rx472_off, 0
- lt rx472_pos, 2, rx472_start
- sub rx472_off, rx472_pos, 1
- substr rx472_tgt, rx472_tgt, rx472_off
- rx472_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan478_done
- goto rxscan478_scan
- rxscan478_loop:
- ($P10) = rx472_cur."from"()
- inc $P10
- set rx472_pos, $P10
- ge rx472_pos, rx472_eos, rxscan478_done
- rxscan478_scan:
- set_addr $I10, rxscan478_loop
- rx472_cur."!mark_push"(0, rx472_pos, $I10)
- rxscan478_done:
-.annotate 'line', 236
- # rx literal ":"
- add $I11, rx472_pos, 1
- gt $I11, rx472_eos, rx472_fail
- sub $I11, rx472_pos, rx472_off
- substr $S10, rx472_tgt, $I11, 1
- ne $S10, ":", rx472_fail
- add rx472_pos, 1
- alt479_0:
-.annotate 'line', 237
- set_addr $I10, alt479_1
- rx472_cur."!mark_push"(0, rx472_pos, $I10)
+.sub "fatarrow" :subid("115_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx469_tgt
+ .local int rx469_pos
+ .local int rx469_off
+ .local int rx469_eos
+ .local int rx469_rep
+ .local pmc rx469_cur
+ (rx469_cur, rx469_pos, rx469_tgt) = self."!cursor_start"()
+ rx469_cur."!cursor_debug"("START ", "fatarrow")
+ .lex unicode:"$\x{a2}", rx469_cur
+ .local pmc match
+ .lex "$/", match
+ length rx469_eos, rx469_tgt
+ set rx469_off, 0
+ lt rx469_pos, 2, rx469_start
+ sub rx469_off, rx469_pos, 1
+ substr rx469_tgt, rx469_tgt, rx469_off
+ rx469_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan473_done
+ goto rxscan473_scan
+ rxscan473_loop:
+ ($P10) = rx469_cur."from"()
+ inc $P10
+ set rx469_pos, $P10
+ ge rx469_pos, rx469_eos, rxscan473_done
+ rxscan473_scan:
+ set_addr $I10, rxscan473_loop
+ rx469_cur."!mark_push"(0, rx469_pos, $I10)
+ rxscan473_done:
+.annotate 'line', 234
+ # rx subrule "identifier" subtype=capture negate=
+ rx469_cur."!cursor_pos"(rx469_pos)
+ $P10 = rx469_cur."identifier"()
+ unless $P10, rx469_fail
+ rx469_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("key")
+ rx469_pos = $P10."pos"()
+ # rx rxquantr474 ** 0..*
+ set_addr $I475, rxquantr474_done
+ rx469_cur."!mark_push"(0, rx469_pos, $I475)
+ rxquantr474_loop:
+ # rx enumcharlist negate=0
+ ge rx469_pos, rx469_eos, rx469_fail
+ sub $I10, rx469_pos, rx469_off
+ substr $S10, rx469_tgt, $I10, 1
+ index $I11, unicode:"\t \x{a0}\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000", $S10
+ lt $I11, 0, rx469_fail
+ inc rx469_pos
+ (rx469_rep) = rx469_cur."!mark_commit"($I475)
+ rx469_cur."!mark_push"(rx469_rep, rx469_pos, $I475)
+ goto rxquantr474_loop
+ rxquantr474_done:
+ # rx literal "=>"
+ add $I11, rx469_pos, 2
+ gt $I11, rx469_eos, rx469_fail
+ sub $I11, rx469_pos, rx469_off
+ substr $S10, rx469_tgt, $I11, 2
+ ne $S10, "=>", rx469_fail
+ add rx469_pos, 2
+ # rx subrule "ws" subtype=method negate=
+ rx469_cur."!cursor_pos"(rx469_pos)
+ $P10 = rx469_cur."ws"()
+ unless $P10, rx469_fail
+ rx469_pos = $P10."pos"()
+ # rx subrule "EXPR" subtype=capture negate=
+ rx469_cur."!cursor_pos"(rx469_pos)
+ $P10 = rx469_cur."EXPR"("i=")
+ unless $P10, rx469_fail
+ rx469_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("val")
+ rx469_pos = $P10."pos"()
+.annotate 'line', 233
+ # rx pass
+ rx469_cur."!cursor_pass"(rx469_pos, "fatarrow")
+ rx469_cur."!cursor_debug"("PASS ", "fatarrow", " at pos=", rx469_pos)
+ .return (rx469_cur)
+ rx469_fail:
+.annotate 'line', 4
+ (rx469_rep, rx469_pos, $I10, $P10) = rx469_cur."!mark_fail"(0)
+ lt rx469_pos, -1, rx469_done
+ eq rx469_pos, -1, rx469_fail
+ jump $I10
+ rx469_done:
+ rx469_cur."!cursor_fail"()
+ rx469_cur."!cursor_debug"("FAIL ", "fatarrow")
+ .return (rx469_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__fatarrow" :subid("116_1275117591.97262") :method
+.annotate 'line', 4
+ $P471 = self."!PREFIX__!subrule"("key", "")
+ new $P472, "ResizablePMCArray"
+ push $P472, $P471
+ .return ($P472)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "colonpair" :subid("117_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx477_tgt
+ .local int rx477_pos
+ .local int rx477_off
+ .local int rx477_eos
+ .local int rx477_rep
+ .local pmc rx477_cur
+ (rx477_cur, rx477_pos, rx477_tgt) = self."!cursor_start"()
+ rx477_cur."!cursor_debug"("START ", "colonpair")
+ rx477_cur."!cursor_caparray"("circumfix")
+ .lex unicode:"$\x{a2}", rx477_cur
+ .local pmc match
+ .lex "$/", match
+ length rx477_eos, rx477_tgt
+ set rx477_off, 0
+ lt rx477_pos, 2, rx477_start
+ sub rx477_off, rx477_pos, 1
+ substr rx477_tgt, rx477_tgt, rx477_off
+ rx477_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan483_done
+ goto rxscan483_scan
+ rxscan483_loop:
+ ($P10) = rx477_cur."from"()
+ inc $P10
+ set rx477_pos, $P10
+ ge rx477_pos, rx477_eos, rxscan483_done
+ rxscan483_scan:
+ set_addr $I10, rxscan483_loop
+ rx477_cur."!mark_push"(0, rx477_pos, $I10)
+ rxscan483_done:
.annotate 'line', 238
+ # rx literal ":"
+ add $I11, rx477_pos, 1
+ gt $I11, rx477_eos, rx477_fail
+ sub $I11, rx477_pos, rx477_off
+ substr $S10, rx477_tgt, $I11, 1
+ ne $S10, ":", rx477_fail
+ add rx477_pos, 1
+ alt484_0:
+.annotate 'line', 239
+ set_addr $I10, alt484_1
+ rx477_cur."!mark_push"(0, rx477_pos, $I10)
+.annotate 'line', 240
# rx subcapture "not"
- set_addr $I10, rxcap_480_fail
- rx472_cur."!mark_push"(0, rx472_pos, $I10)
+ set_addr $I10, rxcap_485_fail
+ rx477_cur."!mark_push"(0, rx477_pos, $I10)
# rx literal "!"
- add $I11, rx472_pos, 1
- gt $I11, rx472_eos, rx472_fail
- sub $I11, rx472_pos, rx472_off
- substr $S10, rx472_tgt, $I11, 1
- ne $S10, "!", rx472_fail
- add rx472_pos, 1
- set_addr $I10, rxcap_480_fail
- ($I12, $I11) = rx472_cur."!mark_peek"($I10)
- rx472_cur."!cursor_pos"($I11)
- ($P10) = rx472_cur."!cursor_start"()
- $P10."!cursor_pass"(rx472_pos, "")
- rx472_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx477_pos, 1
+ gt $I11, rx477_eos, rx477_fail
+ sub $I11, rx477_pos, rx477_off
+ substr $S10, rx477_tgt, $I11, 1
+ ne $S10, "!", rx477_fail
+ add rx477_pos, 1
+ set_addr $I10, rxcap_485_fail
+ ($I12, $I11) = rx477_cur."!mark_peek"($I10)
+ rx477_cur."!cursor_pos"($I11)
+ ($P10) = rx477_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx477_pos, "")
+ rx477_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("not")
- goto rxcap_480_done
- rxcap_480_fail:
- goto rx472_fail
- rxcap_480_done:
+ goto rxcap_485_done
+ rxcap_485_fail:
+ goto rx477_fail
+ rxcap_485_done:
# rx subrule "identifier" subtype=capture negate=
- rx472_cur."!cursor_pos"(rx472_pos)
- $P10 = rx472_cur."identifier"()
- unless $P10, rx472_fail
- rx472_cur."!mark_push"(0, -1, 0, $P10)
+ rx477_cur."!cursor_pos"(rx477_pos)
+ $P10 = rx477_cur."identifier"()
+ unless $P10, rx477_fail
+ rx477_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx472_pos = $P10."pos"()
- goto alt479_end
- alt479_1:
- set_addr $I10, alt479_2
- rx472_cur."!mark_push"(0, rx472_pos, $I10)
-.annotate 'line', 239
+ rx477_pos = $P10."pos"()
+ goto alt484_end
+ alt484_1:
+ set_addr $I10, alt484_2
+ rx477_cur."!mark_push"(0, rx477_pos, $I10)
+.annotate 'line', 241
# rx subrule "identifier" subtype=capture negate=
- rx472_cur."!cursor_pos"(rx472_pos)
- $P10 = rx472_cur."identifier"()
- unless $P10, rx472_fail
- rx472_cur."!mark_push"(0, -1, 0, $P10)
+ rx477_cur."!cursor_pos"(rx477_pos)
+ $P10 = rx477_cur."identifier"()
+ unless $P10, rx477_fail
+ rx477_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx472_pos = $P10."pos"()
- # rx rxquantr481 ** 0..1
- set_addr $I482, rxquantr481_done
- rx472_cur."!mark_push"(0, rx472_pos, $I482)
- rxquantr481_loop:
+ rx477_pos = $P10."pos"()
+ # rx rxquantr486 ** 0..1
+ set_addr $I487, rxquantr486_done
+ rx477_cur."!mark_push"(0, rx477_pos, $I487)
+ rxquantr486_loop:
# rx subrule "circumfix" subtype=capture negate=
- rx472_cur."!cursor_pos"(rx472_pos)
- $P10 = rx472_cur."circumfix"()
- unless $P10, rx472_fail
- rx472_cur."!mark_push"(0, -1, 0, $P10)
+ rx477_cur."!cursor_pos"(rx477_pos)
+ $P10 = rx477_cur."circumfix"()
+ unless $P10, rx477_fail
+ rx477_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("circumfix")
- rx472_pos = $P10."pos"()
- (rx472_rep) = rx472_cur."!mark_commit"($I482)
- rxquantr481_done:
- goto alt479_end
- alt479_2:
-.annotate 'line', 240
+ rx477_pos = $P10."pos"()
+ (rx477_rep) = rx477_cur."!mark_commit"($I487)
+ rxquantr486_done:
+ goto alt484_end
+ alt484_2:
+.annotate 'line', 242
# rx subrule "circumfix" subtype=capture negate=
- rx472_cur."!cursor_pos"(rx472_pos)
- $P10 = rx472_cur."circumfix"()
- unless $P10, rx472_fail
- rx472_cur."!mark_push"(0, -1, 0, $P10)
+ rx477_cur."!cursor_pos"(rx477_pos)
+ $P10 = rx477_cur."circumfix"()
+ unless $P10, rx477_fail
+ rx477_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("circumfix")
- rx472_pos = $P10."pos"()
- alt479_end:
-.annotate 'line', 235
- # rx pass
- rx472_cur."!cursor_pass"(rx472_pos, "colonpair")
- rx472_cur."!cursor_debug"("PASS ", "colonpair", " at pos=", rx472_pos)
- .return (rx472_cur)
- rx472_fail:
-.annotate 'line', 4
- (rx472_rep, rx472_pos, $I10, $P10) = rx472_cur."!mark_fail"(0)
- lt rx472_pos, -1, rx472_done
- eq rx472_pos, -1, rx472_fail
- jump $I10
- rx472_done:
- rx472_cur."!cursor_fail"()
- rx472_cur."!cursor_debug"("FAIL ", "colonpair")
- .return (rx472_cur)
+ rx477_pos = $P10."pos"()
+ alt484_end:
+.annotate 'line', 237
+ # rx pass
+ rx477_cur."!cursor_pass"(rx477_pos, "colonpair")
+ rx477_cur."!cursor_debug"("PASS ", "colonpair", " at pos=", rx477_pos)
+ .return (rx477_cur)
+ rx477_fail:
+.annotate 'line', 4
+ (rx477_rep, rx477_pos, $I10, $P10) = rx477_cur."!mark_fail"(0)
+ lt rx477_pos, -1, rx477_done
+ eq rx477_pos, -1, rx477_fail
+ jump $I10
+ rx477_done:
+ rx477_cur."!cursor_fail"()
+ rx477_cur."!cursor_debug"("FAIL ", "colonpair")
+ .return (rx477_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__colonpair" :subid("116_1274564776.41408") :method
-.annotate 'line', 4
- $P474 = self."!PREFIX__!subrule"("circumfix", ":")
- $P475 = self."!PREFIX__!subrule"("identifier", ":")
- $P476 = self."!PREFIX__!subrule"("identifier", ":!")
- new $P477, "ResizablePMCArray"
- push $P477, $P474
- push $P477, $P475
- push $P477, $P476
- .return ($P477)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "variable" :subid("117_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx484_tgt
- .local int rx484_pos
- .local int rx484_off
- .local int rx484_eos
- .local int rx484_rep
- .local pmc rx484_cur
- (rx484_cur, rx484_pos, rx484_tgt) = self."!cursor_start"()
- rx484_cur."!cursor_debug"("START ", "variable")
- rx484_cur."!cursor_caparray"("twigil")
- .lex unicode:"$\x{a2}", rx484_cur
- .local pmc match
- .lex "$/", match
- length rx484_eos, rx484_tgt
- set rx484_off, 0
- lt rx484_pos, 2, rx484_start
- sub rx484_off, rx484_pos, 1
- substr rx484_tgt, rx484_tgt, rx484_off
- rx484_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan489_done
- goto rxscan489_scan
- rxscan489_loop:
- ($P10) = rx484_cur."from"()
- inc $P10
- set rx484_pos, $P10
- ge rx484_pos, rx484_eos, rxscan489_done
- rxscan489_scan:
- set_addr $I10, rxscan489_loop
- rx484_cur."!mark_push"(0, rx484_pos, $I10)
- rxscan489_done:
- alt490_0:
-.annotate 'line', 244
- set_addr $I10, alt490_1
- rx484_cur."!mark_push"(0, rx484_pos, $I10)
-.annotate 'line', 245
+.sub "!PREFIX__colonpair" :subid("118_1275117591.97262") :method
+.annotate 'line', 4
+ $P479 = self."!PREFIX__!subrule"("circumfix", ":")
+ $P480 = self."!PREFIX__!subrule"("identifier", ":")
+ $P481 = self."!PREFIX__!subrule"("identifier", ":!")
+ new $P482, "ResizablePMCArray"
+ push $P482, $P479
+ push $P482, $P480
+ push $P482, $P481
+ .return ($P482)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "variable" :subid("119_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx489_tgt
+ .local int rx489_pos
+ .local int rx489_off
+ .local int rx489_eos
+ .local int rx489_rep
+ .local pmc rx489_cur
+ (rx489_cur, rx489_pos, rx489_tgt) = self."!cursor_start"()
+ rx489_cur."!cursor_debug"("START ", "variable")
+ rx489_cur."!cursor_caparray"("twigil")
+ .lex unicode:"$\x{a2}", rx489_cur
+ .local pmc match
+ .lex "$/", match
+ length rx489_eos, rx489_tgt
+ set rx489_off, 0
+ lt rx489_pos, 2, rx489_start
+ sub rx489_off, rx489_pos, 1
+ substr rx489_tgt, rx489_tgt, rx489_off
+ rx489_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan494_done
+ goto rxscan494_scan
+ rxscan494_loop:
+ ($P10) = rx489_cur."from"()
+ inc $P10
+ set rx489_pos, $P10
+ ge rx489_pos, rx489_eos, rxscan494_done
+ rxscan494_scan:
+ set_addr $I10, rxscan494_loop
+ rx489_cur."!mark_push"(0, rx489_pos, $I10)
+ rxscan494_done:
+ alt495_0:
+.annotate 'line', 246
+ set_addr $I10, alt495_1
+ rx489_cur."!mark_push"(0, rx489_pos, $I10)
+.annotate 'line', 247
# rx subrule "sigil" subtype=capture negate=
- rx484_cur."!cursor_pos"(rx484_pos)
- $P10 = rx484_cur."sigil"()
- unless $P10, rx484_fail
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ rx489_cur."!cursor_pos"(rx489_pos)
+ $P10 = rx489_cur."sigil"()
+ unless $P10, rx489_fail
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- rx484_pos = $P10."pos"()
- # rx rxquantr491 ** 0..1
- set_addr $I492, rxquantr491_done
- rx484_cur."!mark_push"(0, rx484_pos, $I492)
- rxquantr491_loop:
+ rx489_pos = $P10."pos"()
+ # rx rxquantr496 ** 0..1
+ set_addr $I497, rxquantr496_done
+ rx489_cur."!mark_push"(0, rx489_pos, $I497)
+ rxquantr496_loop:
# rx subrule "twigil" subtype=capture negate=
- rx484_cur."!cursor_pos"(rx484_pos)
- $P10 = rx484_cur."twigil"()
- unless $P10, rx484_fail
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ rx489_cur."!cursor_pos"(rx489_pos)
+ $P10 = rx489_cur."twigil"()
+ unless $P10, rx489_fail
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("twigil")
- rx484_pos = $P10."pos"()
- (rx484_rep) = rx484_cur."!mark_commit"($I492)
- rxquantr491_done:
+ rx489_pos = $P10."pos"()
+ (rx489_rep) = rx489_cur."!mark_commit"($I497)
+ rxquantr496_done:
# rx subrule "name" subtype=capture negate=
- rx484_cur."!cursor_pos"(rx484_pos)
- $P10 = rx484_cur."name"()
- unless $P10, rx484_fail
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ rx489_cur."!cursor_pos"(rx489_pos)
+ $P10 = rx489_cur."name"()
+ unless $P10, rx489_fail
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("desigilname")
- rx484_pos = $P10."pos"()
- goto alt490_end
- alt490_1:
- set_addr $I10, alt490_2
- rx484_cur."!mark_push"(0, rx484_pos, $I10)
-.annotate 'line', 246
+ rx489_pos = $P10."pos"()
+ goto alt495_end
+ alt495_1:
+ set_addr $I10, alt495_2
+ rx489_cur."!mark_push"(0, rx489_pos, $I10)
+.annotate 'line', 248
# rx subrule "sigil" subtype=capture negate=
- rx484_cur."!cursor_pos"(rx484_pos)
- $P10 = rx484_cur."sigil"()
- unless $P10, rx484_fail
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ rx489_cur."!cursor_pos"(rx489_pos)
+ $P10 = rx489_cur."sigil"()
+ unless $P10, rx489_fail
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- rx484_pos = $P10."pos"()
+ rx489_pos = $P10."pos"()
# rx enumcharlist negate=0 zerowidth
- ge rx484_pos, rx484_eos, rx484_fail
- sub $I10, rx484_pos, rx484_off
- substr $S10, rx484_tgt, $I10, 1
+ ge rx489_pos, rx489_eos, rx489_fail
+ sub $I10, rx489_pos, rx489_off
+ substr $S10, rx489_tgt, $I10, 1
index $I11, "<[", $S10
- lt $I11, 0, rx484_fail
+ lt $I11, 0, rx489_fail
# rx subrule "postcircumfix" subtype=capture negate=
- rx484_cur."!cursor_pos"(rx484_pos)
- $P10 = rx484_cur."postcircumfix"()
- unless $P10, rx484_fail
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ rx489_cur."!cursor_pos"(rx489_pos)
+ $P10 = rx489_cur."postcircumfix"()
+ unless $P10, rx489_fail
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("postcircumfix")
- rx484_pos = $P10."pos"()
- goto alt490_end
- alt490_2:
-.annotate 'line', 247
+ rx489_pos = $P10."pos"()
+ goto alt495_end
+ alt495_2:
+.annotate 'line', 249
# rx subcapture "sigil"
- set_addr $I10, rxcap_493_fail
- rx484_cur."!mark_push"(0, rx484_pos, $I10)
+ set_addr $I10, rxcap_498_fail
+ rx489_cur."!mark_push"(0, rx489_pos, $I10)
# rx literal "$"
- add $I11, rx484_pos, 1
- gt $I11, rx484_eos, rx484_fail
- sub $I11, rx484_pos, rx484_off
- substr $S10, rx484_tgt, $I11, 1
- ne $S10, "$", rx484_fail
- add rx484_pos, 1
- set_addr $I10, rxcap_493_fail
- ($I12, $I11) = rx484_cur."!mark_peek"($I10)
- rx484_cur."!cursor_pos"($I11)
- ($P10) = rx484_cur."!cursor_start"()
- $P10."!cursor_pass"(rx484_pos, "")
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx489_pos, 1
+ gt $I11, rx489_eos, rx489_fail
+ sub $I11, rx489_pos, rx489_off
+ substr $S10, rx489_tgt, $I11, 1
+ ne $S10, "$", rx489_fail
+ add rx489_pos, 1
+ set_addr $I10, rxcap_498_fail
+ ($I12, $I11) = rx489_cur."!mark_peek"($I10)
+ rx489_cur."!cursor_pos"($I11)
+ ($P10) = rx489_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx489_pos, "")
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- goto rxcap_493_done
- rxcap_493_fail:
- goto rx484_fail
- rxcap_493_done:
+ goto rxcap_498_done
+ rxcap_498_fail:
+ goto rx489_fail
+ rxcap_498_done:
# rx subcapture "desigilname"
- set_addr $I10, rxcap_494_fail
- rx484_cur."!mark_push"(0, rx484_pos, $I10)
+ set_addr $I10, rxcap_499_fail
+ rx489_cur."!mark_push"(0, rx489_pos, $I10)
# rx enumcharlist negate=0
- ge rx484_pos, rx484_eos, rx484_fail
- sub $I10, rx484_pos, rx484_off
- substr $S10, rx484_tgt, $I10, 1
+ ge rx489_pos, rx489_eos, rx489_fail
+ sub $I10, rx489_pos, rx489_off
+ substr $S10, rx489_tgt, $I10, 1
index $I11, "/_!", $S10
- lt $I11, 0, rx484_fail
- inc rx484_pos
- set_addr $I10, rxcap_494_fail
- ($I12, $I11) = rx484_cur."!mark_peek"($I10)
- rx484_cur."!cursor_pos"($I11)
- ($P10) = rx484_cur."!cursor_start"()
- $P10."!cursor_pass"(rx484_pos, "")
- rx484_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx489_fail
+ inc rx489_pos
+ set_addr $I10, rxcap_499_fail
+ ($I12, $I11) = rx489_cur."!mark_peek"($I10)
+ rx489_cur."!cursor_pos"($I11)
+ ($P10) = rx489_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx489_pos, "")
+ rx489_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("desigilname")
- goto rxcap_494_done
- rxcap_494_fail:
- goto rx484_fail
- rxcap_494_done:
- alt490_end:
-.annotate 'line', 244
- # rx pass
- rx484_cur."!cursor_pass"(rx484_pos, "variable")
- rx484_cur."!cursor_debug"("PASS ", "variable", " at pos=", rx484_pos)
- .return (rx484_cur)
- rx484_fail:
-.annotate 'line', 4
- (rx484_rep, rx484_pos, $I10, $P10) = rx484_cur."!mark_fail"(0)
- lt rx484_pos, -1, rx484_done
- eq rx484_pos, -1, rx484_fail
- jump $I10
- rx484_done:
- rx484_cur."!cursor_fail"()
- rx484_cur."!cursor_debug"("FAIL ", "variable")
- .return (rx484_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__variable" :subid("118_1274564776.41408") :method
-.annotate 'line', 4
- $P486 = self."!PREFIX__!subrule"("sigil", "")
- $P487 = self."!PREFIX__!subrule"("sigil", "")
- new $P488, "ResizablePMCArray"
- push $P488, "$!"
- push $P488, "$_"
- push $P488, "$/"
- push $P488, $P486
- push $P488, $P487
- .return ($P488)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "sigil" :subid("119_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx496_tgt
- .local int rx496_pos
- .local int rx496_off
- .local int rx496_eos
- .local int rx496_rep
- .local pmc rx496_cur
- (rx496_cur, rx496_pos, rx496_tgt) = self."!cursor_start"()
- rx496_cur."!cursor_debug"("START ", "sigil")
- .lex unicode:"$\x{a2}", rx496_cur
- .local pmc match
- .lex "$/", match
- length rx496_eos, rx496_tgt
- set rx496_off, 0
- lt rx496_pos, 2, rx496_start
- sub rx496_off, rx496_pos, 1
- substr rx496_tgt, rx496_tgt, rx496_off
- rx496_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan499_done
- goto rxscan499_scan
- rxscan499_loop:
- ($P10) = rx496_cur."from"()
- inc $P10
- set rx496_pos, $P10
- ge rx496_pos, rx496_eos, rxscan499_done
- rxscan499_scan:
- set_addr $I10, rxscan499_loop
- rx496_cur."!mark_push"(0, rx496_pos, $I10)
- rxscan499_done:
-.annotate 'line', 250
- # rx enumcharlist negate=0
- ge rx496_pos, rx496_eos, rx496_fail
- sub $I10, rx496_pos, rx496_off
- substr $S10, rx496_tgt, $I10, 1
- index $I11, "$@%&", $S10
- lt $I11, 0, rx496_fail
- inc rx496_pos
+ goto rxcap_499_done
+ rxcap_499_fail:
+ goto rx489_fail
+ rxcap_499_done:
+ alt495_end:
+.annotate 'line', 246
# rx pass
- rx496_cur."!cursor_pass"(rx496_pos, "sigil")
- rx496_cur."!cursor_debug"("PASS ", "sigil", " at pos=", rx496_pos)
- .return (rx496_cur)
- rx496_fail:
+ rx489_cur."!cursor_pass"(rx489_pos, "variable")
+ rx489_cur."!cursor_debug"("PASS ", "variable", " at pos=", rx489_pos)
+ .return (rx489_cur)
+ rx489_fail:
.annotate 'line', 4
- (rx496_rep, rx496_pos, $I10, $P10) = rx496_cur."!mark_fail"(0)
- lt rx496_pos, -1, rx496_done
- eq rx496_pos, -1, rx496_fail
+ (rx489_rep, rx489_pos, $I10, $P10) = rx489_cur."!mark_fail"(0)
+ lt rx489_pos, -1, rx489_done
+ eq rx489_pos, -1, rx489_fail
jump $I10
- rx496_done:
- rx496_cur."!cursor_fail"()
- rx496_cur."!cursor_debug"("FAIL ", "sigil")
- .return (rx496_cur)
+ rx489_done:
+ rx489_cur."!cursor_fail"()
+ rx489_cur."!cursor_debug"("FAIL ", "variable")
+ .return (rx489_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__sigil" :subid("120_1274564776.41408") :method
+.sub "!PREFIX__variable" :subid("120_1275117591.97262") :method
.annotate 'line', 4
- new $P498, "ResizablePMCArray"
- push $P498, "&"
- push $P498, "%"
- push $P498, "@"
- push $P498, "$"
- .return ($P498)
+ $P491 = self."!PREFIX__!subrule"("sigil", "")
+ $P492 = self."!PREFIX__!subrule"("sigil", "")
+ new $P493, "ResizablePMCArray"
+ push $P493, "$!"
+ push $P493, "$_"
+ push $P493, "$/"
+ push $P493, $P491
+ push $P493, $P492
+ .return ($P493)
.end
.namespace ["NQP";"Grammar"]
-.sub "twigil" :subid("121_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "sigil" :subid("121_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx501_tgt
.local int rx501_pos
@@ -6147,7 +6158,7 @@
.local int rx501_rep
.local pmc rx501_cur
(rx501_cur, rx501_pos, rx501_tgt) = self."!cursor_start"()
- rx501_cur."!cursor_debug"("START ", "twigil")
+ rx501_cur."!cursor_debug"("START ", "sigil")
.lex unicode:"$\x{a2}", rx501_cur
.local pmc match
.lex "$/", match
@@ -6174,12 +6185,12 @@
ge rx501_pos, rx501_eos, rx501_fail
sub $I10, rx501_pos, rx501_off
substr $S10, rx501_tgt, $I10, 1
- index $I11, "*!?", $S10
+ index $I11, "$@%&", $S10
lt $I11, 0, rx501_fail
inc rx501_pos
# rx pass
- rx501_cur."!cursor_pass"(rx501_pos, "twigil")
- rx501_cur."!cursor_debug"("PASS ", "twigil", " at pos=", rx501_pos)
+ rx501_cur."!cursor_pass"(rx501_pos, "sigil")
+ rx501_cur."!cursor_debug"("PASS ", "sigil", " at pos=", rx501_pos)
.return (rx501_cur)
rx501_fail:
.annotate 'line', 4
@@ -6189,3708 +6200,3705 @@
jump $I10
rx501_done:
rx501_cur."!cursor_fail"()
- rx501_cur."!cursor_debug"("FAIL ", "twigil")
+ rx501_cur."!cursor_debug"("FAIL ", "sigil")
.return (rx501_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__twigil" :subid("122_1274564776.41408") :method
+.sub "!PREFIX__sigil" :subid("122_1275117591.97262") :method
.annotate 'line', 4
new $P503, "ResizablePMCArray"
- push $P503, "?"
- push $P503, "!"
- push $P503, "*"
+ push $P503, "&"
+ push $P503, "%"
+ push $P503, "@"
+ push $P503, "$"
.return ($P503)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_declarator" :subid("123_1274564776.41408") :method
+.sub "twigil" :subid("123_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx506_tgt
+ .local int rx506_pos
+ .local int rx506_off
+ .local int rx506_eos
+ .local int rx506_rep
+ .local pmc rx506_cur
+ (rx506_cur, rx506_pos, rx506_tgt) = self."!cursor_start"()
+ rx506_cur."!cursor_debug"("START ", "twigil")
+ .lex unicode:"$\x{a2}", rx506_cur
+ .local pmc match
+ .lex "$/", match
+ length rx506_eos, rx506_tgt
+ set rx506_off, 0
+ lt rx506_pos, 2, rx506_start
+ sub rx506_off, rx506_pos, 1
+ substr rx506_tgt, rx506_tgt, rx506_off
+ rx506_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan509_done
+ goto rxscan509_scan
+ rxscan509_loop:
+ ($P10) = rx506_cur."from"()
+ inc $P10
+ set rx506_pos, $P10
+ ge rx506_pos, rx506_eos, rxscan509_done
+ rxscan509_scan:
+ set_addr $I10, rxscan509_loop
+ rx506_cur."!mark_push"(0, rx506_pos, $I10)
+ rxscan509_done:
.annotate 'line', 254
- $P506 = self."!protoregex"("package_declarator")
- .return ($P506)
+ # rx enumcharlist negate=0
+ ge rx506_pos, rx506_eos, rx506_fail
+ sub $I10, rx506_pos, rx506_off
+ substr $S10, rx506_tgt, $I10, 1
+ index $I11, "*!?", $S10
+ lt $I11, 0, rx506_fail
+ inc rx506_pos
+ # rx pass
+ rx506_cur."!cursor_pass"(rx506_pos, "twigil")
+ rx506_cur."!cursor_debug"("PASS ", "twigil", " at pos=", rx506_pos)
+ .return (rx506_cur)
+ rx506_fail:
+.annotate 'line', 4
+ (rx506_rep, rx506_pos, $I10, $P10) = rx506_cur."!mark_fail"(0)
+ lt rx506_pos, -1, rx506_done
+ eq rx506_pos, -1, rx506_fail
+ jump $I10
+ rx506_done:
+ rx506_cur."!cursor_fail"()
+ rx506_cur."!cursor_debug"("FAIL ", "twigil")
+ .return (rx506_cur)
+ .return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_declarator" :subid("124_1274564776.41408") :method
-.annotate 'line', 254
- $P508 = self."!PREFIX__!protoregex"("package_declarator")
+.sub "!PREFIX__twigil" :subid("124_1275117591.97262") :method
+.annotate 'line', 4
+ new $P508, "ResizablePMCArray"
+ push $P508, "?"
+ push $P508, "!"
+ push $P508, "*"
.return ($P508)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_declarator:sym<module>" :subid("125_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "package_declarator" :subid("125_1275117591.97262") :method
+.annotate 'line', 256
+ $P511 = self."!protoregex"("package_declarator")
+ .return ($P511)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__package_declarator" :subid("126_1275117591.97262") :method
+.annotate 'line', 256
+ $P513 = self."!PREFIX__!protoregex"("package_declarator")
+ .return ($P513)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "package_declarator:sym<module>" :subid("127_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx510_tgt
- .local int rx510_pos
- .local int rx510_off
- .local int rx510_eos
- .local int rx510_rep
- .local pmc rx510_cur
- (rx510_cur, rx510_pos, rx510_tgt) = self."!cursor_start"()
- rx510_cur."!cursor_debug"("START ", "package_declarator:sym<module>")
- .lex unicode:"$\x{a2}", rx510_cur
- .local pmc match
- .lex "$/", match
- length rx510_eos, rx510_tgt
- set rx510_off, 0
- lt rx510_pos, 2, rx510_start
- sub rx510_off, rx510_pos, 1
- substr rx510_tgt, rx510_tgt, rx510_off
- rx510_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan514_done
- goto rxscan514_scan
- rxscan514_loop:
- ($P10) = rx510_cur."from"()
- inc $P10
- set rx510_pos, $P10
- ge rx510_pos, rx510_eos, rxscan514_done
- rxscan514_scan:
- set_addr $I10, rxscan514_loop
- rx510_cur."!mark_push"(0, rx510_pos, $I10)
- rxscan514_done:
-.annotate 'line', 255
+ .local string rx515_tgt
+ .local int rx515_pos
+ .local int rx515_off
+ .local int rx515_eos
+ .local int rx515_rep
+ .local pmc rx515_cur
+ (rx515_cur, rx515_pos, rx515_tgt) = self."!cursor_start"()
+ rx515_cur."!cursor_debug"("START ", "package_declarator:sym<module>")
+ .lex unicode:"$\x{a2}", rx515_cur
+ .local pmc match
+ .lex "$/", match
+ length rx515_eos, rx515_tgt
+ set rx515_off, 0
+ lt rx515_pos, 2, rx515_start
+ sub rx515_off, rx515_pos, 1
+ substr rx515_tgt, rx515_tgt, rx515_off
+ rx515_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan519_done
+ goto rxscan519_scan
+ rxscan519_loop:
+ ($P10) = rx515_cur."from"()
+ inc $P10
+ set rx515_pos, $P10
+ ge rx515_pos, rx515_eos, rxscan519_done
+ rxscan519_scan:
+ set_addr $I10, rxscan519_loop
+ rx515_cur."!mark_push"(0, rx515_pos, $I10)
+ rxscan519_done:
+.annotate 'line', 257
# rx subcapture "sym"
- set_addr $I10, rxcap_515_fail
- rx510_cur."!mark_push"(0, rx510_pos, $I10)
+ set_addr $I10, rxcap_520_fail
+ rx515_cur."!mark_push"(0, rx515_pos, $I10)
# rx literal "module"
- add $I11, rx510_pos, 6
- gt $I11, rx510_eos, rx510_fail
- sub $I11, rx510_pos, rx510_off
- substr $S10, rx510_tgt, $I11, 6
- ne $S10, "module", rx510_fail
- add rx510_pos, 6
- set_addr $I10, rxcap_515_fail
- ($I12, $I11) = rx510_cur."!mark_peek"($I10)
- rx510_cur."!cursor_pos"($I11)
- ($P10) = rx510_cur."!cursor_start"()
- $P10."!cursor_pass"(rx510_pos, "")
- rx510_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx515_pos, 6
+ gt $I11, rx515_eos, rx515_fail
+ sub $I11, rx515_pos, rx515_off
+ substr $S10, rx515_tgt, $I11, 6
+ ne $S10, "module", rx515_fail
+ add rx515_pos, 6
+ set_addr $I10, rxcap_520_fail
+ ($I12, $I11) = rx515_cur."!mark_peek"($I10)
+ rx515_cur."!cursor_pos"($I11)
+ ($P10) = rx515_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx515_pos, "")
+ rx515_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_515_done
- rxcap_515_fail:
- goto rx510_fail
- rxcap_515_done:
+ goto rxcap_520_done
+ rxcap_520_fail:
+ goto rx515_fail
+ rxcap_520_done:
# rx subrule "package_def" subtype=capture negate=
- rx510_cur."!cursor_pos"(rx510_pos)
- $P10 = rx510_cur."package_def"()
- unless $P10, rx510_fail
- rx510_cur."!mark_push"(0, -1, 0, $P10)
+ rx515_cur."!cursor_pos"(rx515_pos)
+ $P10 = rx515_cur."package_def"()
+ unless $P10, rx515_fail
+ rx515_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("package_def")
- rx510_pos = $P10."pos"()
+ rx515_pos = $P10."pos"()
# rx pass
- rx510_cur."!cursor_pass"(rx510_pos, "package_declarator:sym<module>")
- rx510_cur."!cursor_debug"("PASS ", "package_declarator:sym<module>", " at pos=", rx510_pos)
- .return (rx510_cur)
- rx510_fail:
+ rx515_cur."!cursor_pass"(rx515_pos, "package_declarator:sym<module>")
+ rx515_cur."!cursor_debug"("PASS ", "package_declarator:sym<module>", " at pos=", rx515_pos)
+ .return (rx515_cur)
+ rx515_fail:
.annotate 'line', 4
- (rx510_rep, rx510_pos, $I10, $P10) = rx510_cur."!mark_fail"(0)
- lt rx510_pos, -1, rx510_done
- eq rx510_pos, -1, rx510_fail
+ (rx515_rep, rx515_pos, $I10, $P10) = rx515_cur."!mark_fail"(0)
+ lt rx515_pos, -1, rx515_done
+ eq rx515_pos, -1, rx515_fail
jump $I10
- rx510_done:
- rx510_cur."!cursor_fail"()
- rx510_cur."!cursor_debug"("FAIL ", "package_declarator:sym<module>")
- .return (rx510_cur)
+ rx515_done:
+ rx515_cur."!cursor_fail"()
+ rx515_cur."!cursor_debug"("FAIL ", "package_declarator:sym<module>")
+ .return (rx515_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_declarator:sym<module>" :subid("126_1274564776.41408") :method
+.sub "!PREFIX__package_declarator:sym<module>" :subid("128_1275117591.97262") :method
.annotate 'line', 4
- $P512 = self."!PREFIX__!subrule"("package_def", "module")
- new $P513, "ResizablePMCArray"
- push $P513, $P512
- .return ($P513)
+ $P517 = self."!PREFIX__!subrule"("package_def", "module")
+ new $P518, "ResizablePMCArray"
+ push $P518, $P517
+ .return ($P518)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_declarator:sym<class>" :subid("127_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "package_declarator:sym<class>" :subid("129_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx517_tgt
- .local int rx517_pos
- .local int rx517_off
- .local int rx517_eos
- .local int rx517_rep
- .local pmc rx517_cur
- (rx517_cur, rx517_pos, rx517_tgt) = self."!cursor_start"()
- rx517_cur."!cursor_debug"("START ", "package_declarator:sym<class>")
- .lex unicode:"$\x{a2}", rx517_cur
- .local pmc match
- .lex "$/", match
- length rx517_eos, rx517_tgt
- set rx517_off, 0
- lt rx517_pos, 2, rx517_start
- sub rx517_off, rx517_pos, 1
- substr rx517_tgt, rx517_tgt, rx517_off
- rx517_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan522_done
- goto rxscan522_scan
- rxscan522_loop:
- ($P10) = rx517_cur."from"()
- inc $P10
- set rx517_pos, $P10
- ge rx517_pos, rx517_eos, rxscan522_done
- rxscan522_scan:
- set_addr $I10, rxscan522_loop
- rx517_cur."!mark_push"(0, rx517_pos, $I10)
- rxscan522_done:
-.annotate 'line', 256
+ .local string rx522_tgt
+ .local int rx522_pos
+ .local int rx522_off
+ .local int rx522_eos
+ .local int rx522_rep
+ .local pmc rx522_cur
+ (rx522_cur, rx522_pos, rx522_tgt) = self."!cursor_start"()
+ rx522_cur."!cursor_debug"("START ", "package_declarator:sym<class>")
+ .lex unicode:"$\x{a2}", rx522_cur
+ .local pmc match
+ .lex "$/", match
+ length rx522_eos, rx522_tgt
+ set rx522_off, 0
+ lt rx522_pos, 2, rx522_start
+ sub rx522_off, rx522_pos, 1
+ substr rx522_tgt, rx522_tgt, rx522_off
+ rx522_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan527_done
+ goto rxscan527_scan
+ rxscan527_loop:
+ ($P10) = rx522_cur."from"()
+ inc $P10
+ set rx522_pos, $P10
+ ge rx522_pos, rx522_eos, rxscan527_done
+ rxscan527_scan:
+ set_addr $I10, rxscan527_loop
+ rx522_cur."!mark_push"(0, rx522_pos, $I10)
+ rxscan527_done:
+.annotate 'line', 258
# rx subcapture "sym"
- set_addr $I10, rxcap_524_fail
- rx517_cur."!mark_push"(0, rx517_pos, $I10)
- alt523_0:
- set_addr $I10, alt523_1
- rx517_cur."!mark_push"(0, rx517_pos, $I10)
+ set_addr $I10, rxcap_529_fail
+ rx522_cur."!mark_push"(0, rx522_pos, $I10)
+ alt528_0:
+ set_addr $I10, alt528_1
+ rx522_cur."!mark_push"(0, rx522_pos, $I10)
# rx literal "class"
- add $I11, rx517_pos, 5
- gt $I11, rx517_eos, rx517_fail
- sub $I11, rx517_pos, rx517_off
- substr $S10, rx517_tgt, $I11, 5
- ne $S10, "class", rx517_fail
- add rx517_pos, 5
- goto alt523_end
- alt523_1:
+ add $I11, rx522_pos, 5
+ gt $I11, rx522_eos, rx522_fail
+ sub $I11, rx522_pos, rx522_off
+ substr $S10, rx522_tgt, $I11, 5
+ ne $S10, "class", rx522_fail
+ add rx522_pos, 5
+ goto alt528_end
+ alt528_1:
# rx literal "grammar"
- add $I11, rx517_pos, 7
- gt $I11, rx517_eos, rx517_fail
- sub $I11, rx517_pos, rx517_off
- substr $S10, rx517_tgt, $I11, 7
- ne $S10, "grammar", rx517_fail
- add rx517_pos, 7
- alt523_end:
- set_addr $I10, rxcap_524_fail
- ($I12, $I11) = rx517_cur."!mark_peek"($I10)
- rx517_cur."!cursor_pos"($I11)
- ($P10) = rx517_cur."!cursor_start"()
- $P10."!cursor_pass"(rx517_pos, "")
- rx517_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx522_pos, 7
+ gt $I11, rx522_eos, rx522_fail
+ sub $I11, rx522_pos, rx522_off
+ substr $S10, rx522_tgt, $I11, 7
+ ne $S10, "grammar", rx522_fail
+ add rx522_pos, 7
+ alt528_end:
+ set_addr $I10, rxcap_529_fail
+ ($I12, $I11) = rx522_cur."!mark_peek"($I10)
+ rx522_cur."!cursor_pos"($I11)
+ ($P10) = rx522_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx522_pos, "")
+ rx522_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_524_done
- rxcap_524_fail:
- goto rx517_fail
- rxcap_524_done:
+ goto rxcap_529_done
+ rxcap_529_fail:
+ goto rx522_fail
+ rxcap_529_done:
# rx subrule "package_def" subtype=capture negate=
- rx517_cur."!cursor_pos"(rx517_pos)
- $P10 = rx517_cur."package_def"()
- unless $P10, rx517_fail
- rx517_cur."!mark_push"(0, -1, 0, $P10)
+ rx522_cur."!cursor_pos"(rx522_pos)
+ $P10 = rx522_cur."package_def"()
+ unless $P10, rx522_fail
+ rx522_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("package_def")
- rx517_pos = $P10."pos"()
+ rx522_pos = $P10."pos"()
# rx pass
- rx517_cur."!cursor_pass"(rx517_pos, "package_declarator:sym<class>")
- rx517_cur."!cursor_debug"("PASS ", "package_declarator:sym<class>", " at pos=", rx517_pos)
- .return (rx517_cur)
- rx517_fail:
+ rx522_cur."!cursor_pass"(rx522_pos, "package_declarator:sym<class>")
+ rx522_cur."!cursor_debug"("PASS ", "package_declarator:sym<class>", " at pos=", rx522_pos)
+ .return (rx522_cur)
+ rx522_fail:
.annotate 'line', 4
- (rx517_rep, rx517_pos, $I10, $P10) = rx517_cur."!mark_fail"(0)
- lt rx517_pos, -1, rx517_done
- eq rx517_pos, -1, rx517_fail
+ (rx522_rep, rx522_pos, $I10, $P10) = rx522_cur."!mark_fail"(0)
+ lt rx522_pos, -1, rx522_done
+ eq rx522_pos, -1, rx522_fail
jump $I10
- rx517_done:
- rx517_cur."!cursor_fail"()
- rx517_cur."!cursor_debug"("FAIL ", "package_declarator:sym<class>")
- .return (rx517_cur)
+ rx522_done:
+ rx522_cur."!cursor_fail"()
+ rx522_cur."!cursor_debug"("FAIL ", "package_declarator:sym<class>")
+ .return (rx522_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_declarator:sym<class>" :subid("128_1274564776.41408") :method
+.sub "!PREFIX__package_declarator:sym<class>" :subid("130_1275117591.97262") :method
.annotate 'line', 4
- $P519 = self."!PREFIX__!subrule"("package_def", "grammar")
- $P520 = self."!PREFIX__!subrule"("package_def", "class")
- new $P521, "ResizablePMCArray"
- push $P521, $P519
- push $P521, $P520
- .return ($P521)
+ $P524 = self."!PREFIX__!subrule"("package_def", "grammar")
+ $P525 = self."!PREFIX__!subrule"("package_def", "class")
+ new $P526, "ResizablePMCArray"
+ push $P526, $P524
+ push $P526, $P525
+ .return ($P526)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_def" :subid("129_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "package_def" :subid("131_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx526_tgt
- .local int rx526_pos
- .local int rx526_off
- .local int rx526_eos
- .local int rx526_rep
- .local pmc rx526_cur
- (rx526_cur, rx526_pos, rx526_tgt) = self."!cursor_start"()
- rx526_cur."!cursor_debug"("START ", "package_def")
- rx526_cur."!cursor_caparray"("parent")
- .lex unicode:"$\x{a2}", rx526_cur
+ .local string rx531_tgt
+ .local int rx531_pos
+ .local int rx531_off
+ .local int rx531_eos
+ .local int rx531_rep
+ .local pmc rx531_cur
+ (rx531_cur, rx531_pos, rx531_tgt) = self."!cursor_start"()
+ rx531_cur."!cursor_debug"("START ", "package_def")
+ rx531_cur."!cursor_caparray"("parent")
+ .lex unicode:"$\x{a2}", rx531_cur
.local pmc match
.lex "$/", match
- length rx526_eos, rx526_tgt
- set rx526_off, 0
- lt rx526_pos, 2, rx526_start
- sub rx526_off, rx526_pos, 1
- substr rx526_tgt, rx526_tgt, rx526_off
- rx526_start:
+ length rx531_eos, rx531_tgt
+ set rx531_off, 0
+ lt rx531_pos, 2, rx531_start
+ sub rx531_off, rx531_pos, 1
+ substr rx531_tgt, rx531_tgt, rx531_off
+ rx531_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan529_done
- goto rxscan529_scan
- rxscan529_loop:
- ($P10) = rx526_cur."from"()
+ ne $I10, -1, rxscan534_done
+ goto rxscan534_scan
+ rxscan534_loop:
+ ($P10) = rx531_cur."from"()
inc $P10
- set rx526_pos, $P10
- ge rx526_pos, rx526_eos, rxscan529_done
- rxscan529_scan:
- set_addr $I10, rxscan529_loop
- rx526_cur."!mark_push"(0, rx526_pos, $I10)
- rxscan529_done:
-.annotate 'line', 258
+ set rx531_pos, $P10
+ ge rx531_pos, rx531_eos, rxscan534_done
+ rxscan534_scan:
+ set_addr $I10, rxscan534_loop
+ rx531_cur."!mark_push"(0, rx531_pos, $I10)
+ rxscan534_done:
+.annotate 'line', 260
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
-.annotate 'line', 259
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+.annotate 'line', 261
# rx subrule "name" subtype=capture negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."name"()
- unless $P10, rx526_fail
- rx526_cur."!mark_push"(0, -1, 0, $P10)
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."name"()
+ unless $P10, rx531_fail
+ rx531_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- rx526_pos = $P10."pos"()
+ rx531_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
-.annotate 'line', 260
- # rx rxquantr532 ** 0..1
- set_addr $I536, rxquantr532_done
- rx526_cur."!mark_push"(0, rx526_pos, $I536)
- rxquantr532_loop:
- # rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+.annotate 'line', 262
+ # rx rxquantr537 ** 0..1
+ set_addr $I541, rxquantr537_done
+ rx531_cur."!mark_push"(0, rx531_pos, $I541)
+ rxquantr537_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx literal "is"
- add $I11, rx526_pos, 2
- gt $I11, rx526_eos, rx526_fail
- sub $I11, rx526_pos, rx526_off
- substr $S10, rx526_tgt, $I11, 2
- ne $S10, "is", rx526_fail
- add rx526_pos, 2
- # rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ add $I11, rx531_pos, 2
+ gt $I11, rx531_eos, rx531_fail
+ sub $I11, rx531_pos, rx531_off
+ substr $S10, rx531_tgt, $I11, 2
+ ne $S10, "is", rx531_fail
+ add rx531_pos, 2
+ # rx subrule "ws" subtype=method negate=
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx subrule "name" subtype=capture negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."name"()
- unless $P10, rx526_fail
- rx526_cur."!mark_push"(0, -1, 0, $P10)
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."name"()
+ unless $P10, rx531_fail
+ rx531_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("parent")
- rx526_pos = $P10."pos"()
+ rx531_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
- (rx526_rep) = rx526_cur."!mark_commit"($I536)
- rxquantr532_done:
- # rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
- alt538_0:
-.annotate 'line', 261
- set_addr $I10, alt538_1
- rx526_cur."!mark_push"(0, rx526_pos, $I10)
-.annotate 'line', 262
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+ (rx531_rep) = rx531_cur."!mark_commit"($I541)
+ rxquantr537_done:
+ # rx subrule "ws" subtype=method negate=
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+ alt543_0:
+.annotate 'line', 263
+ set_addr $I10, alt543_1
+ rx531_cur."!mark_push"(0, rx531_pos, $I10)
+.annotate 'line', 264
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx literal ";"
- add $I11, rx526_pos, 1
- gt $I11, rx526_eos, rx526_fail
- sub $I11, rx526_pos, rx526_off
- substr $S10, rx526_tgt, $I11, 1
- ne $S10, ";", rx526_fail
- add rx526_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ add $I11, rx531_pos, 1
+ gt $I11, rx531_eos, rx531_fail
+ sub $I11, rx531_pos, rx531_off
+ substr $S10, rx531_tgt, $I11, 1
+ ne $S10, ";", rx531_fail
+ add rx531_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx subrule "comp_unit" subtype=capture negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."comp_unit"()
- unless $P10, rx526_fail
- rx526_cur."!mark_push"(0, -1, 0, $P10)
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."comp_unit"()
+ unless $P10, rx531_fail
+ rx531_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("comp_unit")
- rx526_pos = $P10."pos"()
+ rx531_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
- goto alt538_end
- alt538_1:
- set_addr $I10, alt538_2
- rx526_cur."!mark_push"(0, rx526_pos, $I10)
-.annotate 'line', 263
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+ goto alt543_end
+ alt543_1:
+ set_addr $I10, alt543_2
+ rx531_cur."!mark_push"(0, rx531_pos, $I10)
+.annotate 'line', 265
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx enumcharlist negate=0 zerowidth
- ge rx526_pos, rx526_eos, rx526_fail
- sub $I10, rx526_pos, rx526_off
- substr $S10, rx526_tgt, $I10, 1
+ ge rx531_pos, rx531_eos, rx531_fail
+ sub $I10, rx531_pos, rx531_off
+ substr $S10, rx531_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx526_fail
+ lt $I11, 0, rx531_fail
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx subrule "block" subtype=capture negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."block"()
- unless $P10, rx526_fail
- rx526_cur."!mark_push"(0, -1, 0, $P10)
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."block"()
+ unless $P10, rx531_fail
+ rx531_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx526_pos = $P10."pos"()
+ rx531_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
- goto alt538_end
- alt538_2:
-.annotate 'line', 264
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+ goto alt543_end
+ alt543_2:
+.annotate 'line', 266
# rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."panic"("Malformed package declaration")
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
- alt538_end:
-.annotate 'line', 265
- # rx subrule "ws" subtype=method negate=
- rx526_cur."!cursor_pos"(rx526_pos)
- $P10 = rx526_cur."ws"()
- unless $P10, rx526_fail
- rx526_pos = $P10."pos"()
-.annotate 'line', 258
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."panic"("Malformed package declaration")
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+ alt543_end:
+.annotate 'line', 267
+ # rx subrule "ws" subtype=method negate=
+ rx531_cur."!cursor_pos"(rx531_pos)
+ $P10 = rx531_cur."ws"()
+ unless $P10, rx531_fail
+ rx531_pos = $P10."pos"()
+.annotate 'line', 260
# rx pass
- rx526_cur."!cursor_pass"(rx526_pos, "package_def")
- rx526_cur."!cursor_debug"("PASS ", "package_def", " at pos=", rx526_pos)
- .return (rx526_cur)
- rx526_fail:
+ rx531_cur."!cursor_pass"(rx531_pos, "package_def")
+ rx531_cur."!cursor_debug"("PASS ", "package_def", " at pos=", rx531_pos)
+ .return (rx531_cur)
+ rx531_fail:
.annotate 'line', 4
- (rx526_rep, rx526_pos, $I10, $P10) = rx526_cur."!mark_fail"(0)
- lt rx526_pos, -1, rx526_done
- eq rx526_pos, -1, rx526_fail
+ (rx531_rep, rx531_pos, $I10, $P10) = rx531_cur."!mark_fail"(0)
+ lt rx531_pos, -1, rx531_done
+ eq rx531_pos, -1, rx531_fail
jump $I10
- rx526_done:
- rx526_cur."!cursor_fail"()
- rx526_cur."!cursor_debug"("FAIL ", "package_def")
- .return (rx526_cur)
+ rx531_done:
+ rx531_cur."!cursor_fail"()
+ rx531_cur."!cursor_debug"("FAIL ", "package_def")
+ .return (rx531_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_def" :subid("130_1274564776.41408") :method
+.sub "!PREFIX__package_def" :subid("132_1275117591.97262") :method
.annotate 'line', 4
- new $P528, "ResizablePMCArray"
- push $P528, ""
- .return ($P528)
+ new $P533, "ResizablePMCArray"
+ push $P533, ""
+ .return ($P533)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator" :subid("131_1274564776.41408") :method
-.annotate 'line', 268
- $P549 = self."!protoregex"("scope_declarator")
- .return ($P549)
+.sub "scope_declarator" :subid("133_1275117591.97262") :method
+.annotate 'line', 270
+ $P554 = self."!protoregex"("scope_declarator")
+ .return ($P554)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator" :subid("132_1274564776.41408") :method
-.annotate 'line', 268
- $P551 = self."!PREFIX__!protoregex"("scope_declarator")
- .return ($P551)
+.sub "!PREFIX__scope_declarator" :subid("134_1275117591.97262") :method
+.annotate 'line', 270
+ $P556 = self."!PREFIX__!protoregex"("scope_declarator")
+ .return ($P556)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator:sym<my>" :subid("133_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "scope_declarator:sym<my>" :subid("135_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx553_tgt
- .local int rx553_pos
- .local int rx553_off
- .local int rx553_eos
- .local int rx553_rep
- .local pmc rx553_cur
- (rx553_cur, rx553_pos, rx553_tgt) = self."!cursor_start"()
- rx553_cur."!cursor_debug"("START ", "scope_declarator:sym<my>")
- .lex unicode:"$\x{a2}", rx553_cur
- .local pmc match
- .lex "$/", match
- length rx553_eos, rx553_tgt
- set rx553_off, 0
- lt rx553_pos, 2, rx553_start
- sub rx553_off, rx553_pos, 1
- substr rx553_tgt, rx553_tgt, rx553_off
- rx553_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan557_done
- goto rxscan557_scan
- rxscan557_loop:
- ($P10) = rx553_cur."from"()
- inc $P10
- set rx553_pos, $P10
- ge rx553_pos, rx553_eos, rxscan557_done
- rxscan557_scan:
- set_addr $I10, rxscan557_loop
- rx553_cur."!mark_push"(0, rx553_pos, $I10)
- rxscan557_done:
-.annotate 'line', 269
+ .local string rx558_tgt
+ .local int rx558_pos
+ .local int rx558_off
+ .local int rx558_eos
+ .local int rx558_rep
+ .local pmc rx558_cur
+ (rx558_cur, rx558_pos, rx558_tgt) = self."!cursor_start"()
+ rx558_cur."!cursor_debug"("START ", "scope_declarator:sym<my>")
+ .lex unicode:"$\x{a2}", rx558_cur
+ .local pmc match
+ .lex "$/", match
+ length rx558_eos, rx558_tgt
+ set rx558_off, 0
+ lt rx558_pos, 2, rx558_start
+ sub rx558_off, rx558_pos, 1
+ substr rx558_tgt, rx558_tgt, rx558_off
+ rx558_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan562_done
+ goto rxscan562_scan
+ rxscan562_loop:
+ ($P10) = rx558_cur."from"()
+ inc $P10
+ set rx558_pos, $P10
+ ge rx558_pos, rx558_eos, rxscan562_done
+ rxscan562_scan:
+ set_addr $I10, rxscan562_loop
+ rx558_cur."!mark_push"(0, rx558_pos, $I10)
+ rxscan562_done:
+.annotate 'line', 271
# rx subcapture "sym"
- set_addr $I10, rxcap_558_fail
- rx553_cur."!mark_push"(0, rx553_pos, $I10)
+ set_addr $I10, rxcap_563_fail
+ rx558_cur."!mark_push"(0, rx558_pos, $I10)
# rx literal "my"
- add $I11, rx553_pos, 2
- gt $I11, rx553_eos, rx553_fail
- sub $I11, rx553_pos, rx553_off
- substr $S10, rx553_tgt, $I11, 2
- ne $S10, "my", rx553_fail
- add rx553_pos, 2
- set_addr $I10, rxcap_558_fail
- ($I12, $I11) = rx553_cur."!mark_peek"($I10)
- rx553_cur."!cursor_pos"($I11)
- ($P10) = rx553_cur."!cursor_start"()
- $P10."!cursor_pass"(rx553_pos, "")
- rx553_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx558_pos, 2
+ gt $I11, rx558_eos, rx558_fail
+ sub $I11, rx558_pos, rx558_off
+ substr $S10, rx558_tgt, $I11, 2
+ ne $S10, "my", rx558_fail
+ add rx558_pos, 2
+ set_addr $I10, rxcap_563_fail
+ ($I12, $I11) = rx558_cur."!mark_peek"($I10)
+ rx558_cur."!cursor_pos"($I11)
+ ($P10) = rx558_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx558_pos, "")
+ rx558_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_558_done
- rxcap_558_fail:
- goto rx553_fail
- rxcap_558_done:
+ goto rxcap_563_done
+ rxcap_563_fail:
+ goto rx558_fail
+ rxcap_563_done:
# rx subrule "scoped" subtype=capture negate=
- rx553_cur."!cursor_pos"(rx553_pos)
- $P10 = rx553_cur."scoped"("my")
- unless $P10, rx553_fail
- rx553_cur."!mark_push"(0, -1, 0, $P10)
+ rx558_cur."!cursor_pos"(rx558_pos)
+ $P10 = rx558_cur."scoped"("my")
+ unless $P10, rx558_fail
+ rx558_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scoped")
- rx553_pos = $P10."pos"()
+ rx558_pos = $P10."pos"()
# rx pass
- rx553_cur."!cursor_pass"(rx553_pos, "scope_declarator:sym<my>")
- rx553_cur."!cursor_debug"("PASS ", "scope_declarator:sym<my>", " at pos=", rx553_pos)
- .return (rx553_cur)
- rx553_fail:
+ rx558_cur."!cursor_pass"(rx558_pos, "scope_declarator:sym<my>")
+ rx558_cur."!cursor_debug"("PASS ", "scope_declarator:sym<my>", " at pos=", rx558_pos)
+ .return (rx558_cur)
+ rx558_fail:
.annotate 'line', 4
- (rx553_rep, rx553_pos, $I10, $P10) = rx553_cur."!mark_fail"(0)
- lt rx553_pos, -1, rx553_done
- eq rx553_pos, -1, rx553_fail
+ (rx558_rep, rx558_pos, $I10, $P10) = rx558_cur."!mark_fail"(0)
+ lt rx558_pos, -1, rx558_done
+ eq rx558_pos, -1, rx558_fail
jump $I10
- rx553_done:
- rx553_cur."!cursor_fail"()
- rx553_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<my>")
- .return (rx553_cur)
+ rx558_done:
+ rx558_cur."!cursor_fail"()
+ rx558_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<my>")
+ .return (rx558_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator:sym<my>" :subid("134_1274564776.41408") :method
+.sub "!PREFIX__scope_declarator:sym<my>" :subid("136_1275117591.97262") :method
.annotate 'line', 4
- $P555 = self."!PREFIX__!subrule"("scoped", "my")
- new $P556, "ResizablePMCArray"
- push $P556, $P555
- .return ($P556)
+ $P560 = self."!PREFIX__!subrule"("scoped", "my")
+ new $P561, "ResizablePMCArray"
+ push $P561, $P560
+ .return ($P561)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator:sym<our>" :subid("135_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "scope_declarator:sym<our>" :subid("137_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx560_tgt
- .local int rx560_pos
- .local int rx560_off
- .local int rx560_eos
- .local int rx560_rep
- .local pmc rx560_cur
- (rx560_cur, rx560_pos, rx560_tgt) = self."!cursor_start"()
- rx560_cur."!cursor_debug"("START ", "scope_declarator:sym<our>")
- .lex unicode:"$\x{a2}", rx560_cur
- .local pmc match
- .lex "$/", match
- length rx560_eos, rx560_tgt
- set rx560_off, 0
- lt rx560_pos, 2, rx560_start
- sub rx560_off, rx560_pos, 1
- substr rx560_tgt, rx560_tgt, rx560_off
- rx560_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan564_done
- goto rxscan564_scan
- rxscan564_loop:
- ($P10) = rx560_cur."from"()
- inc $P10
- set rx560_pos, $P10
- ge rx560_pos, rx560_eos, rxscan564_done
- rxscan564_scan:
- set_addr $I10, rxscan564_loop
- rx560_cur."!mark_push"(0, rx560_pos, $I10)
- rxscan564_done:
-.annotate 'line', 270
+ .local string rx565_tgt
+ .local int rx565_pos
+ .local int rx565_off
+ .local int rx565_eos
+ .local int rx565_rep
+ .local pmc rx565_cur
+ (rx565_cur, rx565_pos, rx565_tgt) = self."!cursor_start"()
+ rx565_cur."!cursor_debug"("START ", "scope_declarator:sym<our>")
+ .lex unicode:"$\x{a2}", rx565_cur
+ .local pmc match
+ .lex "$/", match
+ length rx565_eos, rx565_tgt
+ set rx565_off, 0
+ lt rx565_pos, 2, rx565_start
+ sub rx565_off, rx565_pos, 1
+ substr rx565_tgt, rx565_tgt, rx565_off
+ rx565_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan569_done
+ goto rxscan569_scan
+ rxscan569_loop:
+ ($P10) = rx565_cur."from"()
+ inc $P10
+ set rx565_pos, $P10
+ ge rx565_pos, rx565_eos, rxscan569_done
+ rxscan569_scan:
+ set_addr $I10, rxscan569_loop
+ rx565_cur."!mark_push"(0, rx565_pos, $I10)
+ rxscan569_done:
+.annotate 'line', 272
# rx subcapture "sym"
- set_addr $I10, rxcap_565_fail
- rx560_cur."!mark_push"(0, rx560_pos, $I10)
+ set_addr $I10, rxcap_570_fail
+ rx565_cur."!mark_push"(0, rx565_pos, $I10)
# rx literal "our"
- add $I11, rx560_pos, 3
- gt $I11, rx560_eos, rx560_fail
- sub $I11, rx560_pos, rx560_off
- substr $S10, rx560_tgt, $I11, 3
- ne $S10, "our", rx560_fail
- add rx560_pos, 3
- set_addr $I10, rxcap_565_fail
- ($I12, $I11) = rx560_cur."!mark_peek"($I10)
- rx560_cur."!cursor_pos"($I11)
- ($P10) = rx560_cur."!cursor_start"()
- $P10."!cursor_pass"(rx560_pos, "")
- rx560_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx565_pos, 3
+ gt $I11, rx565_eos, rx565_fail
+ sub $I11, rx565_pos, rx565_off
+ substr $S10, rx565_tgt, $I11, 3
+ ne $S10, "our", rx565_fail
+ add rx565_pos, 3
+ set_addr $I10, rxcap_570_fail
+ ($I12, $I11) = rx565_cur."!mark_peek"($I10)
+ rx565_cur."!cursor_pos"($I11)
+ ($P10) = rx565_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx565_pos, "")
+ rx565_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_565_done
- rxcap_565_fail:
- goto rx560_fail
- rxcap_565_done:
+ goto rxcap_570_done
+ rxcap_570_fail:
+ goto rx565_fail
+ rxcap_570_done:
# rx subrule "scoped" subtype=capture negate=
- rx560_cur."!cursor_pos"(rx560_pos)
- $P10 = rx560_cur."scoped"("our")
- unless $P10, rx560_fail
- rx560_cur."!mark_push"(0, -1, 0, $P10)
+ rx565_cur."!cursor_pos"(rx565_pos)
+ $P10 = rx565_cur."scoped"("our")
+ unless $P10, rx565_fail
+ rx565_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scoped")
- rx560_pos = $P10."pos"()
+ rx565_pos = $P10."pos"()
# rx pass
- rx560_cur."!cursor_pass"(rx560_pos, "scope_declarator:sym<our>")
- rx560_cur."!cursor_debug"("PASS ", "scope_declarator:sym<our>", " at pos=", rx560_pos)
- .return (rx560_cur)
- rx560_fail:
+ rx565_cur."!cursor_pass"(rx565_pos, "scope_declarator:sym<our>")
+ rx565_cur."!cursor_debug"("PASS ", "scope_declarator:sym<our>", " at pos=", rx565_pos)
+ .return (rx565_cur)
+ rx565_fail:
.annotate 'line', 4
- (rx560_rep, rx560_pos, $I10, $P10) = rx560_cur."!mark_fail"(0)
- lt rx560_pos, -1, rx560_done
- eq rx560_pos, -1, rx560_fail
+ (rx565_rep, rx565_pos, $I10, $P10) = rx565_cur."!mark_fail"(0)
+ lt rx565_pos, -1, rx565_done
+ eq rx565_pos, -1, rx565_fail
jump $I10
- rx560_done:
- rx560_cur."!cursor_fail"()
- rx560_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<our>")
- .return (rx560_cur)
+ rx565_done:
+ rx565_cur."!cursor_fail"()
+ rx565_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<our>")
+ .return (rx565_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator:sym<our>" :subid("136_1274564776.41408") :method
+.sub "!PREFIX__scope_declarator:sym<our>" :subid("138_1275117591.97262") :method
.annotate 'line', 4
- $P562 = self."!PREFIX__!subrule"("scoped", "our")
- new $P563, "ResizablePMCArray"
- push $P563, $P562
- .return ($P563)
+ $P567 = self."!PREFIX__!subrule"("scoped", "our")
+ new $P568, "ResizablePMCArray"
+ push $P568, $P567
+ .return ($P568)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator:sym<has>" :subid("137_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "scope_declarator:sym<has>" :subid("139_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx567_tgt
- .local int rx567_pos
- .local int rx567_off
- .local int rx567_eos
- .local int rx567_rep
- .local pmc rx567_cur
- (rx567_cur, rx567_pos, rx567_tgt) = self."!cursor_start"()
- rx567_cur."!cursor_debug"("START ", "scope_declarator:sym<has>")
- .lex unicode:"$\x{a2}", rx567_cur
+ .local string rx572_tgt
+ .local int rx572_pos
+ .local int rx572_off
+ .local int rx572_eos
+ .local int rx572_rep
+ .local pmc rx572_cur
+ (rx572_cur, rx572_pos, rx572_tgt) = self."!cursor_start"()
+ rx572_cur."!cursor_debug"("START ", "scope_declarator:sym<has>")
+ .lex unicode:"$\x{a2}", rx572_cur
.local pmc match
.lex "$/", match
- length rx567_eos, rx567_tgt
- set rx567_off, 0
- lt rx567_pos, 2, rx567_start
- sub rx567_off, rx567_pos, 1
- substr rx567_tgt, rx567_tgt, rx567_off
- rx567_start:
+ length rx572_eos, rx572_tgt
+ set rx572_off, 0
+ lt rx572_pos, 2, rx572_start
+ sub rx572_off, rx572_pos, 1
+ substr rx572_tgt, rx572_tgt, rx572_off
+ rx572_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan571_done
- goto rxscan571_scan
- rxscan571_loop:
- ($P10) = rx567_cur."from"()
+ ne $I10, -1, rxscan576_done
+ goto rxscan576_scan
+ rxscan576_loop:
+ ($P10) = rx572_cur."from"()
inc $P10
- set rx567_pos, $P10
- ge rx567_pos, rx567_eos, rxscan571_done
- rxscan571_scan:
- set_addr $I10, rxscan571_loop
- rx567_cur."!mark_push"(0, rx567_pos, $I10)
- rxscan571_done:
-.annotate 'line', 271
+ set rx572_pos, $P10
+ ge rx572_pos, rx572_eos, rxscan576_done
+ rxscan576_scan:
+ set_addr $I10, rxscan576_loop
+ rx572_cur."!mark_push"(0, rx572_pos, $I10)
+ rxscan576_done:
+.annotate 'line', 273
# rx subcapture "sym"
- set_addr $I10, rxcap_572_fail
- rx567_cur."!mark_push"(0, rx567_pos, $I10)
+ set_addr $I10, rxcap_577_fail
+ rx572_cur."!mark_push"(0, rx572_pos, $I10)
# rx literal "has"
- add $I11, rx567_pos, 3
- gt $I11, rx567_eos, rx567_fail
- sub $I11, rx567_pos, rx567_off
- substr $S10, rx567_tgt, $I11, 3
- ne $S10, "has", rx567_fail
- add rx567_pos, 3
- set_addr $I10, rxcap_572_fail
- ($I12, $I11) = rx567_cur."!mark_peek"($I10)
- rx567_cur."!cursor_pos"($I11)
- ($P10) = rx567_cur."!cursor_start"()
- $P10."!cursor_pass"(rx567_pos, "")
- rx567_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx572_pos, 3
+ gt $I11, rx572_eos, rx572_fail
+ sub $I11, rx572_pos, rx572_off
+ substr $S10, rx572_tgt, $I11, 3
+ ne $S10, "has", rx572_fail
+ add rx572_pos, 3
+ set_addr $I10, rxcap_577_fail
+ ($I12, $I11) = rx572_cur."!mark_peek"($I10)
+ rx572_cur."!cursor_pos"($I11)
+ ($P10) = rx572_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx572_pos, "")
+ rx572_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_572_done
- rxcap_572_fail:
- goto rx567_fail
- rxcap_572_done:
+ goto rxcap_577_done
+ rxcap_577_fail:
+ goto rx572_fail
+ rxcap_577_done:
# rx subrule "scoped" subtype=capture negate=
- rx567_cur."!cursor_pos"(rx567_pos)
- $P10 = rx567_cur."scoped"("has")
- unless $P10, rx567_fail
- rx567_cur."!mark_push"(0, -1, 0, $P10)
+ rx572_cur."!cursor_pos"(rx572_pos)
+ $P10 = rx572_cur."scoped"("has")
+ unless $P10, rx572_fail
+ rx572_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scoped")
- rx567_pos = $P10."pos"()
+ rx572_pos = $P10."pos"()
# rx pass
- rx567_cur."!cursor_pass"(rx567_pos, "scope_declarator:sym<has>")
- rx567_cur."!cursor_debug"("PASS ", "scope_declarator:sym<has>", " at pos=", rx567_pos)
- .return (rx567_cur)
- rx567_fail:
+ rx572_cur."!cursor_pass"(rx572_pos, "scope_declarator:sym<has>")
+ rx572_cur."!cursor_debug"("PASS ", "scope_declarator:sym<has>", " at pos=", rx572_pos)
+ .return (rx572_cur)
+ rx572_fail:
.annotate 'line', 4
- (rx567_rep, rx567_pos, $I10, $P10) = rx567_cur."!mark_fail"(0)
- lt rx567_pos, -1, rx567_done
- eq rx567_pos, -1, rx567_fail
+ (rx572_rep, rx572_pos, $I10, $P10) = rx572_cur."!mark_fail"(0)
+ lt rx572_pos, -1, rx572_done
+ eq rx572_pos, -1, rx572_fail
jump $I10
- rx567_done:
- rx567_cur."!cursor_fail"()
- rx567_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<has>")
- .return (rx567_cur)
+ rx572_done:
+ rx572_cur."!cursor_fail"()
+ rx572_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<has>")
+ .return (rx572_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator:sym<has>" :subid("138_1274564776.41408") :method
+.sub "!PREFIX__scope_declarator:sym<has>" :subid("140_1275117591.97262") :method
.annotate 'line', 4
- $P569 = self."!PREFIX__!subrule"("scoped", "has")
- new $P570, "ResizablePMCArray"
- push $P570, $P569
- .return ($P570)
+ $P574 = self."!PREFIX__!subrule"("scoped", "has")
+ new $P575, "ResizablePMCArray"
+ push $P575, $P574
+ .return ($P575)
.end
.namespace ["NQP";"Grammar"]
-.sub "scoped" :subid("139_1274564776.41408") :method :outer("11_1274564776.41408")
- .param pmc param_574
-.annotate 'line', 273
- .lex "$*SCOPE", param_574
+.sub "scoped" :subid("141_1275117591.97262") :method :outer("11_1275117591.97262")
+ .param pmc param_579
+.annotate 'line', 275
+ .lex "$*SCOPE", param_579
.annotate 'line', 4
- .local string rx575_tgt
- .local int rx575_pos
- .local int rx575_off
- .local int rx575_eos
- .local int rx575_rep
- .local pmc rx575_cur
- (rx575_cur, rx575_pos, rx575_tgt) = self."!cursor_start"()
- rx575_cur."!cursor_debug"("START ", "scoped")
- rx575_cur."!cursor_caparray"("typename")
- .lex unicode:"$\x{a2}", rx575_cur
- .local pmc match
- .lex "$/", match
- length rx575_eos, rx575_tgt
- set rx575_off, 0
- lt rx575_pos, 2, rx575_start
- sub rx575_off, rx575_pos, 1
- substr rx575_tgt, rx575_tgt, rx575_off
- rx575_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan578_done
- goto rxscan578_scan
- rxscan578_loop:
- ($P10) = rx575_cur."from"()
- inc $P10
- set rx575_pos, $P10
- ge rx575_pos, rx575_eos, rxscan578_done
- rxscan578_scan:
- set_addr $I10, rxscan578_loop
- rx575_cur."!mark_push"(0, rx575_pos, $I10)
- rxscan578_done:
- alt579_0:
-.annotate 'line', 273
- set_addr $I10, alt579_1
- rx575_cur."!mark_push"(0, rx575_pos, $I10)
-.annotate 'line', 274
- # rx subrule "ws" subtype=method negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."ws"()
- unless $P10, rx575_fail
- rx575_pos = $P10."pos"()
+ .local string rx580_tgt
+ .local int rx580_pos
+ .local int rx580_off
+ .local int rx580_eos
+ .local int rx580_rep
+ .local pmc rx580_cur
+ (rx580_cur, rx580_pos, rx580_tgt) = self."!cursor_start"()
+ rx580_cur."!cursor_debug"("START ", "scoped")
+ rx580_cur."!cursor_caparray"("typename")
+ .lex unicode:"$\x{a2}", rx580_cur
+ .local pmc match
+ .lex "$/", match
+ length rx580_eos, rx580_tgt
+ set rx580_off, 0
+ lt rx580_pos, 2, rx580_start
+ sub rx580_off, rx580_pos, 1
+ substr rx580_tgt, rx580_tgt, rx580_off
+ rx580_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan583_done
+ goto rxscan583_scan
+ rxscan583_loop:
+ ($P10) = rx580_cur."from"()
+ inc $P10
+ set rx580_pos, $P10
+ ge rx580_pos, rx580_eos, rxscan583_done
+ rxscan583_scan:
+ set_addr $I10, rxscan583_loop
+ rx580_cur."!mark_push"(0, rx580_pos, $I10)
+ rxscan583_done:
+ alt584_0:
+.annotate 'line', 275
+ set_addr $I10, alt584_1
+ rx580_cur."!mark_push"(0, rx580_pos, $I10)
+.annotate 'line', 276
+ # rx subrule "ws" subtype=method negate=
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."ws"()
+ unless $P10, rx580_fail
+ rx580_pos = $P10."pos"()
# rx subrule "declarator" subtype=capture negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."declarator"()
- unless $P10, rx575_fail
- rx575_cur."!mark_push"(0, -1, 0, $P10)
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."declarator"()
+ unless $P10, rx580_fail
+ rx580_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("declarator")
- rx575_pos = $P10."pos"()
+ rx580_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."ws"()
- unless $P10, rx575_fail
- rx575_pos = $P10."pos"()
- goto alt579_end
- alt579_1:
-.annotate 'line', 275
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."ws"()
+ unless $P10, rx580_fail
+ rx580_pos = $P10."pos"()
+ goto alt584_end
+ alt584_1:
+.annotate 'line', 277
# rx subrule "ws" subtype=method negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."ws"()
- unless $P10, rx575_fail
- rx575_pos = $P10."pos"()
- # rx rxquantr583 ** 1..*
- set_addr $I584, rxquantr583_done
- rx575_cur."!mark_push"(0, -1, $I584)
- rxquantr583_loop:
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."ws"()
+ unless $P10, rx580_fail
+ rx580_pos = $P10."pos"()
+ # rx rxquantr588 ** 1..*
+ set_addr $I589, rxquantr588_done
+ rx580_cur."!mark_push"(0, -1, $I589)
+ rxquantr588_loop:
# rx subrule "typename" subtype=capture negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."typename"()
- unless $P10, rx575_fail
- rx575_cur."!mark_push"(0, -1, 0, $P10)
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."typename"()
+ unless $P10, rx580_fail
+ rx580_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("typename")
- rx575_pos = $P10."pos"()
- (rx575_rep) = rx575_cur."!mark_commit"($I584)
- rx575_cur."!mark_push"(rx575_rep, rx575_pos, $I584)
- goto rxquantr583_loop
- rxquantr583_done:
- # rx subrule "ws" subtype=method negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."ws"()
- unless $P10, rx575_fail
- rx575_pos = $P10."pos"()
+ rx580_pos = $P10."pos"()
+ (rx580_rep) = rx580_cur."!mark_commit"($I589)
+ rx580_cur."!mark_push"(rx580_rep, rx580_pos, $I589)
+ goto rxquantr588_loop
+ rxquantr588_done:
+ # rx subrule "ws" subtype=method negate=
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."ws"()
+ unless $P10, rx580_fail
+ rx580_pos = $P10."pos"()
# rx subrule "declarator" subtype=capture negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."declarator"()
- unless $P10, rx575_fail
- rx575_cur."!mark_push"(0, -1, 0, $P10)
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."declarator"()
+ unless $P10, rx580_fail
+ rx580_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("declarator")
- rx575_pos = $P10."pos"()
+ rx580_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx575_cur."!cursor_pos"(rx575_pos)
- $P10 = rx575_cur."ws"()
- unless $P10, rx575_fail
- rx575_pos = $P10."pos"()
- alt579_end:
-.annotate 'line', 273
+ rx580_cur."!cursor_pos"(rx580_pos)
+ $P10 = rx580_cur."ws"()
+ unless $P10, rx580_fail
+ rx580_pos = $P10."pos"()
+ alt584_end:
+.annotate 'line', 275
# rx pass
- rx575_cur."!cursor_pass"(rx575_pos, "scoped")
- rx575_cur."!cursor_debug"("PASS ", "scoped", " at pos=", rx575_pos)
- .return (rx575_cur)
- rx575_fail:
+ rx580_cur."!cursor_pass"(rx580_pos, "scoped")
+ rx580_cur."!cursor_debug"("PASS ", "scoped", " at pos=", rx580_pos)
+ .return (rx580_cur)
+ rx580_fail:
.annotate 'line', 4
- (rx575_rep, rx575_pos, $I10, $P10) = rx575_cur."!mark_fail"(0)
- lt rx575_pos, -1, rx575_done
- eq rx575_pos, -1, rx575_fail
+ (rx580_rep, rx580_pos, $I10, $P10) = rx580_cur."!mark_fail"(0)
+ lt rx580_pos, -1, rx580_done
+ eq rx580_pos, -1, rx580_fail
jump $I10
- rx575_done:
- rx575_cur."!cursor_fail"()
- rx575_cur."!cursor_debug"("FAIL ", "scoped")
- .return (rx575_cur)
+ rx580_done:
+ rx580_cur."!cursor_fail"()
+ rx580_cur."!cursor_debug"("FAIL ", "scoped")
+ .return (rx580_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scoped" :subid("140_1274564776.41408") :method
+.sub "!PREFIX__scoped" :subid("142_1275117591.97262") :method
.annotate 'line', 4
- new $P577, "ResizablePMCArray"
- push $P577, ""
- push $P577, ""
- .return ($P577)
+ new $P582, "ResizablePMCArray"
+ push $P582, ""
+ push $P582, ""
+ .return ($P582)
.end
.namespace ["NQP";"Grammar"]
-.sub "typename" :subid("141_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "typename" :subid("143_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx588_tgt
- .local int rx588_pos
- .local int rx588_off
- .local int rx588_eos
- .local int rx588_rep
- .local pmc rx588_cur
- (rx588_cur, rx588_pos, rx588_tgt) = self."!cursor_start"()
- rx588_cur."!cursor_debug"("START ", "typename")
- .lex unicode:"$\x{a2}", rx588_cur
+ .local string rx593_tgt
+ .local int rx593_pos
+ .local int rx593_off
+ .local int rx593_eos
+ .local int rx593_rep
+ .local pmc rx593_cur
+ (rx593_cur, rx593_pos, rx593_tgt) = self."!cursor_start"()
+ rx593_cur."!cursor_debug"("START ", "typename")
+ .lex unicode:"$\x{a2}", rx593_cur
.local pmc match
.lex "$/", match
- length rx588_eos, rx588_tgt
- set rx588_off, 0
- lt rx588_pos, 2, rx588_start
- sub rx588_off, rx588_pos, 1
- substr rx588_tgt, rx588_tgt, rx588_off
- rx588_start:
+ length rx593_eos, rx593_tgt
+ set rx593_off, 0
+ lt rx593_pos, 2, rx593_start
+ sub rx593_off, rx593_pos, 1
+ substr rx593_tgt, rx593_tgt, rx593_off
+ rx593_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan592_done
- goto rxscan592_scan
- rxscan592_loop:
- ($P10) = rx588_cur."from"()
+ ne $I10, -1, rxscan597_done
+ goto rxscan597_scan
+ rxscan597_loop:
+ ($P10) = rx593_cur."from"()
inc $P10
- set rx588_pos, $P10
- ge rx588_pos, rx588_eos, rxscan592_done
- rxscan592_scan:
- set_addr $I10, rxscan592_loop
- rx588_cur."!mark_push"(0, rx588_pos, $I10)
- rxscan592_done:
-.annotate 'line', 278
+ set rx593_pos, $P10
+ ge rx593_pos, rx593_eos, rxscan597_done
+ rxscan597_scan:
+ set_addr $I10, rxscan597_loop
+ rx593_cur."!mark_push"(0, rx593_pos, $I10)
+ rxscan597_done:
+.annotate 'line', 280
# rx subrule "name" subtype=capture negate=
- rx588_cur."!cursor_pos"(rx588_pos)
- $P10 = rx588_cur."name"()
- unless $P10, rx588_fail
- rx588_cur."!mark_push"(0, -1, 0, $P10)
+ rx593_cur."!cursor_pos"(rx593_pos)
+ $P10 = rx593_cur."name"()
+ unless $P10, rx593_fail
+ rx593_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- rx588_pos = $P10."pos"()
+ rx593_pos = $P10."pos"()
# rx pass
- rx588_cur."!cursor_pass"(rx588_pos, "typename")
- rx588_cur."!cursor_debug"("PASS ", "typename", " at pos=", rx588_pos)
- .return (rx588_cur)
- rx588_fail:
+ rx593_cur."!cursor_pass"(rx593_pos, "typename")
+ rx593_cur."!cursor_debug"("PASS ", "typename", " at pos=", rx593_pos)
+ .return (rx593_cur)
+ rx593_fail:
.annotate 'line', 4
- (rx588_rep, rx588_pos, $I10, $P10) = rx588_cur."!mark_fail"(0)
- lt rx588_pos, -1, rx588_done
- eq rx588_pos, -1, rx588_fail
+ (rx593_rep, rx593_pos, $I10, $P10) = rx593_cur."!mark_fail"(0)
+ lt rx593_pos, -1, rx593_done
+ eq rx593_pos, -1, rx593_fail
jump $I10
- rx588_done:
- rx588_cur."!cursor_fail"()
- rx588_cur."!cursor_debug"("FAIL ", "typename")
- .return (rx588_cur)
+ rx593_done:
+ rx593_cur."!cursor_fail"()
+ rx593_cur."!cursor_debug"("FAIL ", "typename")
+ .return (rx593_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__typename" :subid("142_1274564776.41408") :method
+.sub "!PREFIX__typename" :subid("144_1275117591.97262") :method
.annotate 'line', 4
- $P590 = self."!PREFIX__!subrule"("name", "")
- new $P591, "ResizablePMCArray"
- push $P591, $P590
- .return ($P591)
+ $P595 = self."!PREFIX__!subrule"("name", "")
+ new $P596, "ResizablePMCArray"
+ push $P596, $P595
+ .return ($P596)
.end
.namespace ["NQP";"Grammar"]
-.sub "declarator" :subid("143_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "declarator" :subid("145_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx594_tgt
- .local int rx594_pos
- .local int rx594_off
- .local int rx594_eos
- .local int rx594_rep
- .local pmc rx594_cur
- (rx594_cur, rx594_pos, rx594_tgt) = self."!cursor_start"()
- rx594_cur."!cursor_debug"("START ", "declarator")
- .lex unicode:"$\x{a2}", rx594_cur
+ .local string rx599_tgt
+ .local int rx599_pos
+ .local int rx599_off
+ .local int rx599_eos
+ .local int rx599_rep
+ .local pmc rx599_cur
+ (rx599_cur, rx599_pos, rx599_tgt) = self."!cursor_start"()
+ rx599_cur."!cursor_debug"("START ", "declarator")
+ .lex unicode:"$\x{a2}", rx599_cur
.local pmc match
.lex "$/", match
- length rx594_eos, rx594_tgt
- set rx594_off, 0
- lt rx594_pos, 2, rx594_start
- sub rx594_off, rx594_pos, 1
- substr rx594_tgt, rx594_tgt, rx594_off
- rx594_start:
+ length rx599_eos, rx599_tgt
+ set rx599_off, 0
+ lt rx599_pos, 2, rx599_start
+ sub rx599_off, rx599_pos, 1
+ substr rx599_tgt, rx599_tgt, rx599_off
+ rx599_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan599_done
- goto rxscan599_scan
- rxscan599_loop:
- ($P10) = rx594_cur."from"()
+ ne $I10, -1, rxscan604_done
+ goto rxscan604_scan
+ rxscan604_loop:
+ ($P10) = rx599_cur."from"()
inc $P10
- set rx594_pos, $P10
- ge rx594_pos, rx594_eos, rxscan599_done
- rxscan599_scan:
- set_addr $I10, rxscan599_loop
- rx594_cur."!mark_push"(0, rx594_pos, $I10)
- rxscan599_done:
- alt600_0:
-.annotate 'line', 280
- set_addr $I10, alt600_1
- rx594_cur."!mark_push"(0, rx594_pos, $I10)
-.annotate 'line', 281
+ set rx599_pos, $P10
+ ge rx599_pos, rx599_eos, rxscan604_done
+ rxscan604_scan:
+ set_addr $I10, rxscan604_loop
+ rx599_cur."!mark_push"(0, rx599_pos, $I10)
+ rxscan604_done:
+ alt605_0:
+.annotate 'line', 282
+ set_addr $I10, alt605_1
+ rx599_cur."!mark_push"(0, rx599_pos, $I10)
+.annotate 'line', 283
# rx subrule "variable_declarator" subtype=capture negate=
- rx594_cur."!cursor_pos"(rx594_pos)
- $P10 = rx594_cur."variable_declarator"()
- unless $P10, rx594_fail
- rx594_cur."!mark_push"(0, -1, 0, $P10)
+ rx599_cur."!cursor_pos"(rx599_pos)
+ $P10 = rx599_cur."variable_declarator"()
+ unless $P10, rx599_fail
+ rx599_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("variable_declarator")
- rx594_pos = $P10."pos"()
- goto alt600_end
- alt600_1:
-.annotate 'line', 282
+ rx599_pos = $P10."pos"()
+ goto alt605_end
+ alt605_1:
+.annotate 'line', 284
# rx subrule "routine_declarator" subtype=capture negate=
- rx594_cur."!cursor_pos"(rx594_pos)
- $P10 = rx594_cur."routine_declarator"()
- unless $P10, rx594_fail
- rx594_cur."!mark_push"(0, -1, 0, $P10)
+ rx599_cur."!cursor_pos"(rx599_pos)
+ $P10 = rx599_cur."routine_declarator"()
+ unless $P10, rx599_fail
+ rx599_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("routine_declarator")
- rx594_pos = $P10."pos"()
- alt600_end:
-.annotate 'line', 280
+ rx599_pos = $P10."pos"()
+ alt605_end:
+.annotate 'line', 282
# rx pass
- rx594_cur."!cursor_pass"(rx594_pos, "declarator")
- rx594_cur."!cursor_debug"("PASS ", "declarator", " at pos=", rx594_pos)
- .return (rx594_cur)
- rx594_fail:
+ rx599_cur."!cursor_pass"(rx599_pos, "declarator")
+ rx599_cur."!cursor_debug"("PASS ", "declarator", " at pos=", rx599_pos)
+ .return (rx599_cur)
+ rx599_fail:
.annotate 'line', 4
- (rx594_rep, rx594_pos, $I10, $P10) = rx594_cur."!mark_fail"(0)
- lt rx594_pos, -1, rx594_done
- eq rx594_pos, -1, rx594_fail
+ (rx599_rep, rx599_pos, $I10, $P10) = rx599_cur."!mark_fail"(0)
+ lt rx599_pos, -1, rx599_done
+ eq rx599_pos, -1, rx599_fail
jump $I10
- rx594_done:
- rx594_cur."!cursor_fail"()
- rx594_cur."!cursor_debug"("FAIL ", "declarator")
- .return (rx594_cur)
+ rx599_done:
+ rx599_cur."!cursor_fail"()
+ rx599_cur."!cursor_debug"("FAIL ", "declarator")
+ .return (rx599_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__declarator" :subid("144_1274564776.41408") :method
+.sub "!PREFIX__declarator" :subid("146_1275117591.97262") :method
.annotate 'line', 4
- $P596 = self."!PREFIX__!subrule"("routine_declarator", "")
- $P597 = self."!PREFIX__!subrule"("variable_declarator", "")
- new $P598, "ResizablePMCArray"
- push $P598, $P596
- push $P598, $P597
- .return ($P598)
+ $P601 = self."!PREFIX__!subrule"("routine_declarator", "")
+ $P602 = self."!PREFIX__!subrule"("variable_declarator", "")
+ new $P603, "ResizablePMCArray"
+ push $P603, $P601
+ push $P603, $P602
+ .return ($P603)
.end
.namespace ["NQP";"Grammar"]
-.sub "variable_declarator" :subid("145_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "variable_declarator" :subid("147_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx602_tgt
- .local int rx602_pos
- .local int rx602_off
- .local int rx602_eos
- .local int rx602_rep
- .local pmc rx602_cur
- (rx602_cur, rx602_pos, rx602_tgt) = self."!cursor_start"()
- rx602_cur."!cursor_debug"("START ", "variable_declarator")
- .lex unicode:"$\x{a2}", rx602_cur
+ .local string rx607_tgt
+ .local int rx607_pos
+ .local int rx607_off
+ .local int rx607_eos
+ .local int rx607_rep
+ .local pmc rx607_cur
+ (rx607_cur, rx607_pos, rx607_tgt) = self."!cursor_start"()
+ rx607_cur."!cursor_debug"("START ", "variable_declarator")
+ .lex unicode:"$\x{a2}", rx607_cur
.local pmc match
.lex "$/", match
- length rx602_eos, rx602_tgt
- set rx602_off, 0
- lt rx602_pos, 2, rx602_start
- sub rx602_off, rx602_pos, 1
- substr rx602_tgt, rx602_tgt, rx602_off
- rx602_start:
+ length rx607_eos, rx607_tgt
+ set rx607_off, 0
+ lt rx607_pos, 2, rx607_start
+ sub rx607_off, rx607_pos, 1
+ substr rx607_tgt, rx607_tgt, rx607_off
+ rx607_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan606_done
- goto rxscan606_scan
- rxscan606_loop:
- ($P10) = rx602_cur."from"()
+ ne $I10, -1, rxscan611_done
+ goto rxscan611_scan
+ rxscan611_loop:
+ ($P10) = rx607_cur."from"()
inc $P10
- set rx602_pos, $P10
- ge rx602_pos, rx602_eos, rxscan606_done
- rxscan606_scan:
- set_addr $I10, rxscan606_loop
- rx602_cur."!mark_push"(0, rx602_pos, $I10)
- rxscan606_done:
-.annotate 'line', 285
+ set rx607_pos, $P10
+ ge rx607_pos, rx607_eos, rxscan611_done
+ rxscan611_scan:
+ set_addr $I10, rxscan611_loop
+ rx607_cur."!mark_push"(0, rx607_pos, $I10)
+ rxscan611_done:
+.annotate 'line', 287
# rx subrule "variable" subtype=capture negate=
- rx602_cur."!cursor_pos"(rx602_pos)
- $P10 = rx602_cur."variable"()
- unless $P10, rx602_fail
- rx602_cur."!mark_push"(0, -1, 0, $P10)
+ rx607_cur."!cursor_pos"(rx607_pos)
+ $P10 = rx607_cur."variable"()
+ unless $P10, rx607_fail
+ rx607_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("variable")
- rx602_pos = $P10."pos"()
+ rx607_pos = $P10."pos"()
# rx pass
- rx602_cur."!cursor_pass"(rx602_pos, "variable_declarator")
- rx602_cur."!cursor_debug"("PASS ", "variable_declarator", " at pos=", rx602_pos)
- .return (rx602_cur)
- rx602_fail:
+ rx607_cur."!cursor_pass"(rx607_pos, "variable_declarator")
+ rx607_cur."!cursor_debug"("PASS ", "variable_declarator", " at pos=", rx607_pos)
+ .return (rx607_cur)
+ rx607_fail:
.annotate 'line', 4
- (rx602_rep, rx602_pos, $I10, $P10) = rx602_cur."!mark_fail"(0)
- lt rx602_pos, -1, rx602_done
- eq rx602_pos, -1, rx602_fail
+ (rx607_rep, rx607_pos, $I10, $P10) = rx607_cur."!mark_fail"(0)
+ lt rx607_pos, -1, rx607_done
+ eq rx607_pos, -1, rx607_fail
jump $I10
- rx602_done:
- rx602_cur."!cursor_fail"()
- rx602_cur."!cursor_debug"("FAIL ", "variable_declarator")
- .return (rx602_cur)
+ rx607_done:
+ rx607_cur."!cursor_fail"()
+ rx607_cur."!cursor_debug"("FAIL ", "variable_declarator")
+ .return (rx607_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__variable_declarator" :subid("146_1274564776.41408") :method
+.sub "!PREFIX__variable_declarator" :subid("148_1275117591.97262") :method
.annotate 'line', 4
- $P604 = self."!PREFIX__!subrule"("variable", "")
- new $P605, "ResizablePMCArray"
- push $P605, $P604
- .return ($P605)
+ $P609 = self."!PREFIX__!subrule"("variable", "")
+ new $P610, "ResizablePMCArray"
+ push $P610, $P609
+ .return ($P610)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_declarator" :subid("147_1274564776.41408") :method
-.annotate 'line', 287
- $P608 = self."!protoregex"("routine_declarator")
- .return ($P608)
+.sub "routine_declarator" :subid("149_1275117591.97262") :method
+.annotate 'line', 289
+ $P613 = self."!protoregex"("routine_declarator")
+ .return ($P613)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_declarator" :subid("148_1274564776.41408") :method
-.annotate 'line', 287
- $P610 = self."!PREFIX__!protoregex"("routine_declarator")
- .return ($P610)
+.sub "!PREFIX__routine_declarator" :subid("150_1275117591.97262") :method
+.annotate 'line', 289
+ $P615 = self."!PREFIX__!protoregex"("routine_declarator")
+ .return ($P615)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_declarator:sym<sub>" :subid("149_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "routine_declarator:sym<sub>" :subid("151_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx612_tgt
- .local int rx612_pos
- .local int rx612_off
- .local int rx612_eos
- .local int rx612_rep
- .local pmc rx612_cur
- (rx612_cur, rx612_pos, rx612_tgt) = self."!cursor_start"()
- rx612_cur."!cursor_debug"("START ", "routine_declarator:sym<sub>")
- .lex unicode:"$\x{a2}", rx612_cur
- .local pmc match
- .lex "$/", match
- length rx612_eos, rx612_tgt
- set rx612_off, 0
- lt rx612_pos, 2, rx612_start
- sub rx612_off, rx612_pos, 1
- substr rx612_tgt, rx612_tgt, rx612_off
- rx612_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan616_done
- goto rxscan616_scan
- rxscan616_loop:
- ($P10) = rx612_cur."from"()
- inc $P10
- set rx612_pos, $P10
- ge rx612_pos, rx612_eos, rxscan616_done
- rxscan616_scan:
- set_addr $I10, rxscan616_loop
- rx612_cur."!mark_push"(0, rx612_pos, $I10)
- rxscan616_done:
-.annotate 'line', 288
+ .local string rx617_tgt
+ .local int rx617_pos
+ .local int rx617_off
+ .local int rx617_eos
+ .local int rx617_rep
+ .local pmc rx617_cur
+ (rx617_cur, rx617_pos, rx617_tgt) = self."!cursor_start"()
+ rx617_cur."!cursor_debug"("START ", "routine_declarator:sym<sub>")
+ .lex unicode:"$\x{a2}", rx617_cur
+ .local pmc match
+ .lex "$/", match
+ length rx617_eos, rx617_tgt
+ set rx617_off, 0
+ lt rx617_pos, 2, rx617_start
+ sub rx617_off, rx617_pos, 1
+ substr rx617_tgt, rx617_tgt, rx617_off
+ rx617_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan621_done
+ goto rxscan621_scan
+ rxscan621_loop:
+ ($P10) = rx617_cur."from"()
+ inc $P10
+ set rx617_pos, $P10
+ ge rx617_pos, rx617_eos, rxscan621_done
+ rxscan621_scan:
+ set_addr $I10, rxscan621_loop
+ rx617_cur."!mark_push"(0, rx617_pos, $I10)
+ rxscan621_done:
+.annotate 'line', 290
# rx subcapture "sym"
- set_addr $I10, rxcap_617_fail
- rx612_cur."!mark_push"(0, rx612_pos, $I10)
+ set_addr $I10, rxcap_622_fail
+ rx617_cur."!mark_push"(0, rx617_pos, $I10)
# rx literal "sub"
- add $I11, rx612_pos, 3
- gt $I11, rx612_eos, rx612_fail
- sub $I11, rx612_pos, rx612_off
- substr $S10, rx612_tgt, $I11, 3
- ne $S10, "sub", rx612_fail
- add rx612_pos, 3
- set_addr $I10, rxcap_617_fail
- ($I12, $I11) = rx612_cur."!mark_peek"($I10)
- rx612_cur."!cursor_pos"($I11)
- ($P10) = rx612_cur."!cursor_start"()
- $P10."!cursor_pass"(rx612_pos, "")
- rx612_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx617_pos, 3
+ gt $I11, rx617_eos, rx617_fail
+ sub $I11, rx617_pos, rx617_off
+ substr $S10, rx617_tgt, $I11, 3
+ ne $S10, "sub", rx617_fail
+ add rx617_pos, 3
+ set_addr $I10, rxcap_622_fail
+ ($I12, $I11) = rx617_cur."!mark_peek"($I10)
+ rx617_cur."!cursor_pos"($I11)
+ ($P10) = rx617_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx617_pos, "")
+ rx617_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_617_done
- rxcap_617_fail:
- goto rx612_fail
- rxcap_617_done:
+ goto rxcap_622_done
+ rxcap_622_fail:
+ goto rx617_fail
+ rxcap_622_done:
# rx subrule "routine_def" subtype=capture negate=
- rx612_cur."!cursor_pos"(rx612_pos)
- $P10 = rx612_cur."routine_def"()
- unless $P10, rx612_fail
- rx612_cur."!mark_push"(0, -1, 0, $P10)
+ rx617_cur."!cursor_pos"(rx617_pos)
+ $P10 = rx617_cur."routine_def"()
+ unless $P10, rx617_fail
+ rx617_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("routine_def")
- rx612_pos = $P10."pos"()
+ rx617_pos = $P10."pos"()
# rx pass
- rx612_cur."!cursor_pass"(rx612_pos, "routine_declarator:sym<sub>")
- rx612_cur."!cursor_debug"("PASS ", "routine_declarator:sym<sub>", " at pos=", rx612_pos)
- .return (rx612_cur)
- rx612_fail:
+ rx617_cur."!cursor_pass"(rx617_pos, "routine_declarator:sym<sub>")
+ rx617_cur."!cursor_debug"("PASS ", "routine_declarator:sym<sub>", " at pos=", rx617_pos)
+ .return (rx617_cur)
+ rx617_fail:
.annotate 'line', 4
- (rx612_rep, rx612_pos, $I10, $P10) = rx612_cur."!mark_fail"(0)
- lt rx612_pos, -1, rx612_done
- eq rx612_pos, -1, rx612_fail
+ (rx617_rep, rx617_pos, $I10, $P10) = rx617_cur."!mark_fail"(0)
+ lt rx617_pos, -1, rx617_done
+ eq rx617_pos, -1, rx617_fail
jump $I10
- rx612_done:
- rx612_cur."!cursor_fail"()
- rx612_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<sub>")
- .return (rx612_cur)
+ rx617_done:
+ rx617_cur."!cursor_fail"()
+ rx617_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<sub>")
+ .return (rx617_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_declarator:sym<sub>" :subid("150_1274564776.41408") :method
+.sub "!PREFIX__routine_declarator:sym<sub>" :subid("152_1275117591.97262") :method
.annotate 'line', 4
- $P614 = self."!PREFIX__!subrule"("routine_def", "sub")
- new $P615, "ResizablePMCArray"
- push $P615, $P614
- .return ($P615)
+ $P619 = self."!PREFIX__!subrule"("routine_def", "sub")
+ new $P620, "ResizablePMCArray"
+ push $P620, $P619
+ .return ($P620)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_declarator:sym<method>" :subid("151_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "routine_declarator:sym<method>" :subid("153_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx619_tgt
- .local int rx619_pos
- .local int rx619_off
- .local int rx619_eos
- .local int rx619_rep
- .local pmc rx619_cur
- (rx619_cur, rx619_pos, rx619_tgt) = self."!cursor_start"()
- rx619_cur."!cursor_debug"("START ", "routine_declarator:sym<method>")
- .lex unicode:"$\x{a2}", rx619_cur
- .local pmc match
- .lex "$/", match
- length rx619_eos, rx619_tgt
- set rx619_off, 0
- lt rx619_pos, 2, rx619_start
- sub rx619_off, rx619_pos, 1
- substr rx619_tgt, rx619_tgt, rx619_off
- rx619_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan623_done
- goto rxscan623_scan
- rxscan623_loop:
- ($P10) = rx619_cur."from"()
- inc $P10
- set rx619_pos, $P10
- ge rx619_pos, rx619_eos, rxscan623_done
- rxscan623_scan:
- set_addr $I10, rxscan623_loop
- rx619_cur."!mark_push"(0, rx619_pos, $I10)
- rxscan623_done:
-.annotate 'line', 289
+ .local string rx624_tgt
+ .local int rx624_pos
+ .local int rx624_off
+ .local int rx624_eos
+ .local int rx624_rep
+ .local pmc rx624_cur
+ (rx624_cur, rx624_pos, rx624_tgt) = self."!cursor_start"()
+ rx624_cur."!cursor_debug"("START ", "routine_declarator:sym<method>")
+ .lex unicode:"$\x{a2}", rx624_cur
+ .local pmc match
+ .lex "$/", match
+ length rx624_eos, rx624_tgt
+ set rx624_off, 0
+ lt rx624_pos, 2, rx624_start
+ sub rx624_off, rx624_pos, 1
+ substr rx624_tgt, rx624_tgt, rx624_off
+ rx624_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan628_done
+ goto rxscan628_scan
+ rxscan628_loop:
+ ($P10) = rx624_cur."from"()
+ inc $P10
+ set rx624_pos, $P10
+ ge rx624_pos, rx624_eos, rxscan628_done
+ rxscan628_scan:
+ set_addr $I10, rxscan628_loop
+ rx624_cur."!mark_push"(0, rx624_pos, $I10)
+ rxscan628_done:
+.annotate 'line', 291
# rx subcapture "sym"
- set_addr $I10, rxcap_624_fail
- rx619_cur."!mark_push"(0, rx619_pos, $I10)
+ set_addr $I10, rxcap_629_fail
+ rx624_cur."!mark_push"(0, rx624_pos, $I10)
# rx literal "method"
- add $I11, rx619_pos, 6
- gt $I11, rx619_eos, rx619_fail
- sub $I11, rx619_pos, rx619_off
- substr $S10, rx619_tgt, $I11, 6
- ne $S10, "method", rx619_fail
- add rx619_pos, 6
- set_addr $I10, rxcap_624_fail
- ($I12, $I11) = rx619_cur."!mark_peek"($I10)
- rx619_cur."!cursor_pos"($I11)
- ($P10) = rx619_cur."!cursor_start"()
- $P10."!cursor_pass"(rx619_pos, "")
- rx619_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx624_pos, 6
+ gt $I11, rx624_eos, rx624_fail
+ sub $I11, rx624_pos, rx624_off
+ substr $S10, rx624_tgt, $I11, 6
+ ne $S10, "method", rx624_fail
+ add rx624_pos, 6
+ set_addr $I10, rxcap_629_fail
+ ($I12, $I11) = rx624_cur."!mark_peek"($I10)
+ rx624_cur."!cursor_pos"($I11)
+ ($P10) = rx624_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx624_pos, "")
+ rx624_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_624_done
- rxcap_624_fail:
- goto rx619_fail
- rxcap_624_done:
+ goto rxcap_629_done
+ rxcap_629_fail:
+ goto rx624_fail
+ rxcap_629_done:
# rx subrule "method_def" subtype=capture negate=
- rx619_cur."!cursor_pos"(rx619_pos)
- $P10 = rx619_cur."method_def"()
- unless $P10, rx619_fail
- rx619_cur."!mark_push"(0, -1, 0, $P10)
+ rx624_cur."!cursor_pos"(rx624_pos)
+ $P10 = rx624_cur."method_def"()
+ unless $P10, rx624_fail
+ rx624_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("method_def")
- rx619_pos = $P10."pos"()
+ rx624_pos = $P10."pos"()
# rx pass
- rx619_cur."!cursor_pass"(rx619_pos, "routine_declarator:sym<method>")
- rx619_cur."!cursor_debug"("PASS ", "routine_declarator:sym<method>", " at pos=", rx619_pos)
- .return (rx619_cur)
- rx619_fail:
+ rx624_cur."!cursor_pass"(rx624_pos, "routine_declarator:sym<method>")
+ rx624_cur."!cursor_debug"("PASS ", "routine_declarator:sym<method>", " at pos=", rx624_pos)
+ .return (rx624_cur)
+ rx624_fail:
.annotate 'line', 4
- (rx619_rep, rx619_pos, $I10, $P10) = rx619_cur."!mark_fail"(0)
- lt rx619_pos, -1, rx619_done
- eq rx619_pos, -1, rx619_fail
+ (rx624_rep, rx624_pos, $I10, $P10) = rx624_cur."!mark_fail"(0)
+ lt rx624_pos, -1, rx624_done
+ eq rx624_pos, -1, rx624_fail
jump $I10
- rx619_done:
- rx619_cur."!cursor_fail"()
- rx619_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<method>")
- .return (rx619_cur)
+ rx624_done:
+ rx624_cur."!cursor_fail"()
+ rx624_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<method>")
+ .return (rx624_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_declarator:sym<method>" :subid("152_1274564776.41408") :method
+.sub "!PREFIX__routine_declarator:sym<method>" :subid("154_1275117591.97262") :method
.annotate 'line', 4
- $P621 = self."!PREFIX__!subrule"("method_def", "method")
- new $P622, "ResizablePMCArray"
- push $P622, $P621
- .return ($P622)
+ $P626 = self."!PREFIX__!subrule"("method_def", "method")
+ new $P627, "ResizablePMCArray"
+ push $P627, $P626
+ .return ($P627)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_def" :subid("153_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "routine_def" :subid("155_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx626_tgt
- .local int rx626_pos
- .local int rx626_off
- .local int rx626_eos
- .local int rx626_rep
- .local pmc rx626_cur
- (rx626_cur, rx626_pos, rx626_tgt) = self."!cursor_start"()
- rx626_cur."!cursor_debug"("START ", "routine_def")
- rx626_cur."!cursor_caparray"("deflongname", "sigil")
- .lex unicode:"$\x{a2}", rx626_cur
+ .local string rx631_tgt
+ .local int rx631_pos
+ .local int rx631_off
+ .local int rx631_eos
+ .local int rx631_rep
+ .local pmc rx631_cur
+ (rx631_cur, rx631_pos, rx631_tgt) = self."!cursor_start"()
+ rx631_cur."!cursor_debug"("START ", "routine_def")
+ rx631_cur."!cursor_caparray"("sigil", "deflongname")
+ .lex unicode:"$\x{a2}", rx631_cur
.local pmc match
.lex "$/", match
- length rx626_eos, rx626_tgt
- set rx626_off, 0
- lt rx626_pos, 2, rx626_start
- sub rx626_off, rx626_pos, 1
- substr rx626_tgt, rx626_tgt, rx626_off
- rx626_start:
+ length rx631_eos, rx631_tgt
+ set rx631_off, 0
+ lt rx631_pos, 2, rx631_start
+ sub rx631_off, rx631_pos, 1
+ substr rx631_tgt, rx631_tgt, rx631_off
+ rx631_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan629_done
- goto rxscan629_scan
- rxscan629_loop:
- ($P10) = rx626_cur."from"()
+ ne $I10, -1, rxscan634_done
+ goto rxscan634_scan
+ rxscan634_loop:
+ ($P10) = rx631_cur."from"()
inc $P10
- set rx626_pos, $P10
- ge rx626_pos, rx626_eos, rxscan629_done
- rxscan629_scan:
- set_addr $I10, rxscan629_loop
- rx626_cur."!mark_push"(0, rx626_pos, $I10)
- rxscan629_done:
-.annotate 'line', 291
+ set rx631_pos, $P10
+ ge rx631_pos, rx631_eos, rxscan634_done
+ rxscan634_scan:
+ set_addr $I10, rxscan634_loop
+ rx631_cur."!mark_push"(0, rx631_pos, $I10)
+ rxscan634_done:
+.annotate 'line', 293
# rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
-.annotate 'line', 292
- # rx rxquantr631 ** 0..1
- set_addr $I637, rxquantr631_done
- rx626_cur."!mark_push"(0, rx626_pos, $I637)
- rxquantr631_loop:
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+.annotate 'line', 294
+ # rx rxquantr636 ** 0..1
+ set_addr $I642, rxquantr636_done
+ rx631_cur."!mark_push"(0, rx631_pos, $I642)
+ rxquantr636_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
# rx subcapture "sigil"
- set_addr $I10, rxcap_635_fail
- rx626_cur."!mark_push"(0, rx626_pos, $I10)
- # rx rxquantr633 ** 0..1
- set_addr $I634, rxquantr633_done
- rx626_cur."!mark_push"(0, rx626_pos, $I634)
- rxquantr633_loop:
+ set_addr $I10, rxcap_640_fail
+ rx631_cur."!mark_push"(0, rx631_pos, $I10)
+ # rx rxquantr638 ** 0..1
+ set_addr $I639, rxquantr638_done
+ rx631_cur."!mark_push"(0, rx631_pos, $I639)
+ rxquantr638_loop:
# rx literal "&"
- add $I11, rx626_pos, 1
- gt $I11, rx626_eos, rx626_fail
- sub $I11, rx626_pos, rx626_off
- substr $S10, rx626_tgt, $I11, 1
- ne $S10, "&", rx626_fail
- add rx626_pos, 1
- (rx626_rep) = rx626_cur."!mark_commit"($I634)
- rxquantr633_done:
- set_addr $I10, rxcap_635_fail
- ($I12, $I11) = rx626_cur."!mark_peek"($I10)
- rx626_cur."!cursor_pos"($I11)
- ($P10) = rx626_cur."!cursor_start"()
- $P10."!cursor_pass"(rx626_pos, "")
- rx626_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx631_pos, 1
+ gt $I11, rx631_eos, rx631_fail
+ sub $I11, rx631_pos, rx631_off
+ substr $S10, rx631_tgt, $I11, 1
+ ne $S10, "&", rx631_fail
+ add rx631_pos, 1
+ (rx631_rep) = rx631_cur."!mark_commit"($I639)
+ rxquantr638_done:
+ set_addr $I10, rxcap_640_fail
+ ($I12, $I11) = rx631_cur."!mark_peek"($I10)
+ rx631_cur."!cursor_pos"($I11)
+ ($P10) = rx631_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx631_pos, "")
+ rx631_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- goto rxcap_635_done
- rxcap_635_fail:
- goto rx626_fail
- rxcap_635_done:
+ goto rxcap_640_done
+ rxcap_640_fail:
+ goto rx631_fail
+ rxcap_640_done:
# rx subrule "deflongname" subtype=capture negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."deflongname"()
- unless $P10, rx626_fail
- rx626_cur."!mark_push"(0, -1, 0, $P10)
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."deflongname"()
+ unless $P10, rx631_fail
+ rx631_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- rx626_pos = $P10."pos"()
+ rx631_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
- (rx626_rep) = rx626_cur."!mark_commit"($I637)
- rxquantr631_done:
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
-.annotate 'line', 293
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+ (rx631_rep) = rx631_cur."!mark_commit"($I642)
+ rxquantr636_done:
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+.annotate 'line', 295
# rx subrule "newpad" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."newpad"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
- alt640_0:
-.annotate 'line', 294
- set_addr $I10, alt640_1
- rx626_cur."!mark_push"(0, rx626_pos, $I10)
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."newpad"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+ alt645_0:
+.annotate 'line', 296
+ set_addr $I10, alt645_1
+ rx631_cur."!mark_push"(0, rx631_pos, $I10)
# rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
# rx literal "("
- add $I11, rx626_pos, 1
- gt $I11, rx626_eos, rx626_fail
- sub $I11, rx626_pos, rx626_off
- substr $S10, rx626_tgt, $I11, 1
- ne $S10, "(", rx626_fail
- add rx626_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
+ add $I11, rx631_pos, 1
+ gt $I11, rx631_eos, rx631_fail
+ sub $I11, rx631_pos, rx631_off
+ substr $S10, rx631_tgt, $I11, 1
+ ne $S10, "(", rx631_fail
+ add rx631_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
# rx subrule "signature" subtype=capture negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."signature"()
- unless $P10, rx626_fail
- rx626_cur."!mark_push"(0, -1, 0, $P10)
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."signature"()
+ unless $P10, rx631_fail
+ rx631_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
- rx626_pos = $P10."pos"()
+ rx631_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
# rx literal ")"
- add $I11, rx626_pos, 1
- gt $I11, rx626_eos, rx626_fail
- sub $I11, rx626_pos, rx626_off
- substr $S10, rx626_tgt, $I11, 1
- ne $S10, ")", rx626_fail
- add rx626_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
- goto alt640_end
- alt640_1:
-.annotate 'line', 295
+ add $I11, rx631_pos, 1
+ gt $I11, rx631_eos, rx631_fail
+ sub $I11, rx631_pos, rx631_off
+ substr $S10, rx631_tgt, $I11, 1
+ ne $S10, ")", rx631_fail
+ add rx631_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+ goto alt645_end
+ alt645_1:
+.annotate 'line', 297
# rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."panic"("Routine declaration requires a signature")
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
- alt640_end:
- # rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
-.annotate 'line', 296
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."panic"("Routine declaration requires a signature")
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+ alt645_end:
+ # rx subrule "ws" subtype=method negate=
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+.annotate 'line', 298
# rx subrule "blockoid" subtype=capture negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."blockoid"()
- unless $P10, rx626_fail
- rx626_cur."!mark_push"(0, -1, 0, $P10)
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."blockoid"()
+ unless $P10, rx631_fail
+ rx631_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
- rx626_pos = $P10."pos"()
+ rx631_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx626_cur."!cursor_pos"(rx626_pos)
- $P10 = rx626_cur."ws"()
- unless $P10, rx626_fail
- rx626_pos = $P10."pos"()
-.annotate 'line', 291
+ rx631_cur."!cursor_pos"(rx631_pos)
+ $P10 = rx631_cur."ws"()
+ unless $P10, rx631_fail
+ rx631_pos = $P10."pos"()
+.annotate 'line', 293
# rx pass
- rx626_cur."!cursor_pass"(rx626_pos, "routine_def")
- rx626_cur."!cursor_debug"("PASS ", "routine_def", " at pos=", rx626_pos)
- .return (rx626_cur)
- rx626_fail:
+ rx631_cur."!cursor_pass"(rx631_pos, "routine_def")
+ rx631_cur."!cursor_debug"("PASS ", "routine_def", " at pos=", rx631_pos)
+ .return (rx631_cur)
+ rx631_fail:
.annotate 'line', 4
- (rx626_rep, rx626_pos, $I10, $P10) = rx626_cur."!mark_fail"(0)
- lt rx626_pos, -1, rx626_done
- eq rx626_pos, -1, rx626_fail
+ (rx631_rep, rx631_pos, $I10, $P10) = rx631_cur."!mark_fail"(0)
+ lt rx631_pos, -1, rx631_done
+ eq rx631_pos, -1, rx631_fail
jump $I10
- rx626_done:
- rx626_cur."!cursor_fail"()
- rx626_cur."!cursor_debug"("FAIL ", "routine_def")
- .return (rx626_cur)
+ rx631_done:
+ rx631_cur."!cursor_fail"()
+ rx631_cur."!cursor_debug"("FAIL ", "routine_def")
+ .return (rx631_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_def" :subid("154_1274564776.41408") :method
+.sub "!PREFIX__routine_def" :subid("156_1275117591.97262") :method
.annotate 'line', 4
- new $P628, "ResizablePMCArray"
- push $P628, ""
- .return ($P628)
+ new $P633, "ResizablePMCArray"
+ push $P633, ""
+ .return ($P633)
.end
.namespace ["NQP";"Grammar"]
-.sub "method_def" :subid("155_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "method_def" :subid("157_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx650_tgt
- .local int rx650_pos
- .local int rx650_off
- .local int rx650_eos
- .local int rx650_rep
- .local pmc rx650_cur
- (rx650_cur, rx650_pos, rx650_tgt) = self."!cursor_start"()
- rx650_cur."!cursor_debug"("START ", "method_def")
- rx650_cur."!cursor_caparray"("deflongname")
- .lex unicode:"$\x{a2}", rx650_cur
+ .local string rx655_tgt
+ .local int rx655_pos
+ .local int rx655_off
+ .local int rx655_eos
+ .local int rx655_rep
+ .local pmc rx655_cur
+ (rx655_cur, rx655_pos, rx655_tgt) = self."!cursor_start"()
+ rx655_cur."!cursor_debug"("START ", "method_def")
+ rx655_cur."!cursor_caparray"("deflongname")
+ .lex unicode:"$\x{a2}", rx655_cur
.local pmc match
.lex "$/", match
- length rx650_eos, rx650_tgt
- set rx650_off, 0
- lt rx650_pos, 2, rx650_start
- sub rx650_off, rx650_pos, 1
- substr rx650_tgt, rx650_tgt, rx650_off
- rx650_start:
+ length rx655_eos, rx655_tgt
+ set rx655_off, 0
+ lt rx655_pos, 2, rx655_start
+ sub rx655_off, rx655_pos, 1
+ substr rx655_tgt, rx655_tgt, rx655_off
+ rx655_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan653_done
- goto rxscan653_scan
- rxscan653_loop:
- ($P10) = rx650_cur."from"()
+ ne $I10, -1, rxscan658_done
+ goto rxscan658_scan
+ rxscan658_loop:
+ ($P10) = rx655_cur."from"()
inc $P10
- set rx650_pos, $P10
- ge rx650_pos, rx650_eos, rxscan653_done
- rxscan653_scan:
- set_addr $I10, rxscan653_loop
- rx650_cur."!mark_push"(0, rx650_pos, $I10)
- rxscan653_done:
-.annotate 'line', 299
+ set rx655_pos, $P10
+ ge rx655_pos, rx655_eos, rxscan658_done
+ rxscan658_scan:
+ set_addr $I10, rxscan658_loop
+ rx655_cur."!mark_push"(0, rx655_pos, $I10)
+ rxscan658_done:
+.annotate 'line', 301
# rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
-.annotate 'line', 300
- # rx rxquantr655 ** 0..1
- set_addr $I656, rxquantr655_done
- rx650_cur."!mark_push"(0, rx650_pos, $I656)
- rxquantr655_loop:
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+.annotate 'line', 302
+ # rx rxquantr660 ** 0..1
+ set_addr $I661, rxquantr660_done
+ rx655_cur."!mark_push"(0, rx655_pos, $I661)
+ rxquantr660_loop:
# rx subrule "deflongname" subtype=capture negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."deflongname"()
- unless $P10, rx650_fail
- rx650_cur."!mark_push"(0, -1, 0, $P10)
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."deflongname"()
+ unless $P10, rx655_fail
+ rx655_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- rx650_pos = $P10."pos"()
- (rx650_rep) = rx650_cur."!mark_commit"($I656)
- rxquantr655_done:
- # rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
-.annotate 'line', 301
+ rx655_pos = $P10."pos"()
+ (rx655_rep) = rx655_cur."!mark_commit"($I661)
+ rxquantr660_done:
+ # rx subrule "ws" subtype=method negate=
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+.annotate 'line', 303
# rx subrule "newpad" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."newpad"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
- alt659_0:
-.annotate 'line', 302
- set_addr $I10, alt659_1
- rx650_cur."!mark_push"(0, rx650_pos, $I10)
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."newpad"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+ alt664_0:
+.annotate 'line', 304
+ set_addr $I10, alt664_1
+ rx655_cur."!mark_push"(0, rx655_pos, $I10)
# rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
# rx literal "("
- add $I11, rx650_pos, 1
- gt $I11, rx650_eos, rx650_fail
- sub $I11, rx650_pos, rx650_off
- substr $S10, rx650_tgt, $I11, 1
- ne $S10, "(", rx650_fail
- add rx650_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
+ add $I11, rx655_pos, 1
+ gt $I11, rx655_eos, rx655_fail
+ sub $I11, rx655_pos, rx655_off
+ substr $S10, rx655_tgt, $I11, 1
+ ne $S10, "(", rx655_fail
+ add rx655_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
# rx subrule "signature" subtype=capture negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."signature"()
- unless $P10, rx650_fail
- rx650_cur."!mark_push"(0, -1, 0, $P10)
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."signature"()
+ unless $P10, rx655_fail
+ rx655_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
- rx650_pos = $P10."pos"()
+ rx655_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
# rx literal ")"
- add $I11, rx650_pos, 1
- gt $I11, rx650_eos, rx650_fail
- sub $I11, rx650_pos, rx650_off
- substr $S10, rx650_tgt, $I11, 1
- ne $S10, ")", rx650_fail
- add rx650_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
- goto alt659_end
- alt659_1:
-.annotate 'line', 303
+ add $I11, rx655_pos, 1
+ gt $I11, rx655_eos, rx655_fail
+ sub $I11, rx655_pos, rx655_off
+ substr $S10, rx655_tgt, $I11, 1
+ ne $S10, ")", rx655_fail
+ add rx655_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+ goto alt664_end
+ alt664_1:
+.annotate 'line', 305
# rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."panic"("Routine declaration requires a signature")
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
- alt659_end:
- # rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
-.annotate 'line', 304
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."panic"("Routine declaration requires a signature")
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+ alt664_end:
+ # rx subrule "ws" subtype=method negate=
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+.annotate 'line', 306
# rx subrule "blockoid" subtype=capture negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."blockoid"()
- unless $P10, rx650_fail
- rx650_cur."!mark_push"(0, -1, 0, $P10)
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."blockoid"()
+ unless $P10, rx655_fail
+ rx655_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
- rx650_pos = $P10."pos"()
+ rx655_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx650_cur."!cursor_pos"(rx650_pos)
- $P10 = rx650_cur."ws"()
- unless $P10, rx650_fail
- rx650_pos = $P10."pos"()
-.annotate 'line', 299
+ rx655_cur."!cursor_pos"(rx655_pos)
+ $P10 = rx655_cur."ws"()
+ unless $P10, rx655_fail
+ rx655_pos = $P10."pos"()
+.annotate 'line', 301
# rx pass
- rx650_cur."!cursor_pass"(rx650_pos, "method_def")
- rx650_cur."!cursor_debug"("PASS ", "method_def", " at pos=", rx650_pos)
- .return (rx650_cur)
- rx650_fail:
+ rx655_cur."!cursor_pass"(rx655_pos, "method_def")
+ rx655_cur."!cursor_debug"("PASS ", "method_def", " at pos=", rx655_pos)
+ .return (rx655_cur)
+ rx655_fail:
.annotate 'line', 4
- (rx650_rep, rx650_pos, $I10, $P10) = rx650_cur."!mark_fail"(0)
- lt rx650_pos, -1, rx650_done
- eq rx650_pos, -1, rx650_fail
+ (rx655_rep, rx655_pos, $I10, $P10) = rx655_cur."!mark_fail"(0)
+ lt rx655_pos, -1, rx655_done
+ eq rx655_pos, -1, rx655_fail
jump $I10
- rx650_done:
- rx650_cur."!cursor_fail"()
- rx650_cur."!cursor_debug"("FAIL ", "method_def")
- .return (rx650_cur)
+ rx655_done:
+ rx655_cur."!cursor_fail"()
+ rx655_cur."!cursor_debug"("FAIL ", "method_def")
+ .return (rx655_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__method_def" :subid("156_1274564776.41408") :method
+.sub "!PREFIX__method_def" :subid("158_1275117591.97262") :method
.annotate 'line', 4
- new $P652, "ResizablePMCArray"
- push $P652, ""
- .return ($P652)
+ new $P657, "ResizablePMCArray"
+ push $P657, ""
+ .return ($P657)
.end
.namespace ["NQP";"Grammar"]
-.sub "signature" :subid("157_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "signature" :subid("159_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx669_tgt
- .local int rx669_pos
- .local int rx669_off
- .local int rx669_eos
- .local int rx669_rep
- .local pmc rx669_cur
- (rx669_cur, rx669_pos, rx669_tgt) = self."!cursor_start"()
- rx669_cur."!cursor_debug"("START ", "signature")
- rx669_cur."!cursor_caparray"("parameter")
- .lex unicode:"$\x{a2}", rx669_cur
+ .local string rx674_tgt
+ .local int rx674_pos
+ .local int rx674_off
+ .local int rx674_eos
+ .local int rx674_rep
+ .local pmc rx674_cur
+ (rx674_cur, rx674_pos, rx674_tgt) = self."!cursor_start"()
+ rx674_cur."!cursor_debug"("START ", "signature")
+ rx674_cur."!cursor_caparray"("parameter")
+ .lex unicode:"$\x{a2}", rx674_cur
.local pmc match
.lex "$/", match
- length rx669_eos, rx669_tgt
- set rx669_off, 0
- lt rx669_pos, 2, rx669_start
- sub rx669_off, rx669_pos, 1
- substr rx669_tgt, rx669_tgt, rx669_off
- rx669_start:
+ length rx674_eos, rx674_tgt
+ set rx674_off, 0
+ lt rx674_pos, 2, rx674_start
+ sub rx674_off, rx674_pos, 1
+ substr rx674_tgt, rx674_tgt, rx674_off
+ rx674_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan672_done
- goto rxscan672_scan
- rxscan672_loop:
- ($P10) = rx669_cur."from"()
+ ne $I10, -1, rxscan677_done
+ goto rxscan677_scan
+ rxscan677_loop:
+ ($P10) = rx674_cur."from"()
inc $P10
- set rx669_pos, $P10
- ge rx669_pos, rx669_eos, rxscan672_done
- rxscan672_scan:
- set_addr $I10, rxscan672_loop
- rx669_cur."!mark_push"(0, rx669_pos, $I10)
- rxscan672_done:
-.annotate 'line', 307
- # rx rxquantr673 ** 0..1
- set_addr $I676, rxquantr673_done
- rx669_cur."!mark_push"(0, rx669_pos, $I676)
- rxquantr673_loop:
- # rx rxquantr674 ** 1..*
- set_addr $I675, rxquantr674_done
- rx669_cur."!mark_push"(0, -1, $I675)
- rxquantr674_loop:
- # rx subrule "ws" subtype=method negate=
- rx669_cur."!cursor_pos"(rx669_pos)
- $P10 = rx669_cur."ws"()
- unless $P10, rx669_fail
- rx669_pos = $P10."pos"()
+ set rx674_pos, $P10
+ ge rx674_pos, rx674_eos, rxscan677_done
+ rxscan677_scan:
+ set_addr $I10, rxscan677_loop
+ rx674_cur."!mark_push"(0, rx674_pos, $I10)
+ rxscan677_done:
+.annotate 'line', 309
+ # rx rxquantr678 ** 0..1
+ set_addr $I681, rxquantr678_done
+ rx674_cur."!mark_push"(0, rx674_pos, $I681)
+ rxquantr678_loop:
+ # rx rxquantr679 ** 1..*
+ set_addr $I680, rxquantr679_done
+ rx674_cur."!mark_push"(0, -1, $I680)
+ rxquantr679_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
# rx subrule "parameter" subtype=capture negate=
- rx669_cur."!cursor_pos"(rx669_pos)
- $P10 = rx669_cur."parameter"()
- unless $P10, rx669_fail
- rx669_cur."!mark_push"(0, -1, 0, $P10)
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."parameter"()
+ unless $P10, rx674_fail
+ rx674_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("parameter")
- rx669_pos = $P10."pos"()
+ rx674_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx669_cur."!cursor_pos"(rx669_pos)
- $P10 = rx669_cur."ws"()
- unless $P10, rx669_fail
- rx669_pos = $P10."pos"()
- (rx669_rep) = rx669_cur."!mark_commit"($I675)
- rx669_cur."!mark_push"(rx669_rep, rx669_pos, $I675)
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+ (rx674_rep) = rx674_cur."!mark_commit"($I680)
+ rx674_cur."!mark_push"(rx674_rep, rx674_pos, $I680)
# rx literal ","
- add $I11, rx669_pos, 1
- gt $I11, rx669_eos, rx669_fail
- sub $I11, rx669_pos, rx669_off
- substr $S10, rx669_tgt, $I11, 1
- ne $S10, ",", rx669_fail
- add rx669_pos, 1
- goto rxquantr674_loop
- rxquantr674_done:
- (rx669_rep) = rx669_cur."!mark_commit"($I676)
- rxquantr673_done:
+ add $I11, rx674_pos, 1
+ gt $I11, rx674_eos, rx674_fail
+ sub $I11, rx674_pos, rx674_off
+ substr $S10, rx674_tgt, $I11, 1
+ ne $S10, ",", rx674_fail
+ add rx674_pos, 1
+ goto rxquantr679_loop
+ rxquantr679_done:
+ (rx674_rep) = rx674_cur."!mark_commit"($I681)
+ rxquantr678_done:
# rx pass
- rx669_cur."!cursor_pass"(rx669_pos, "signature")
- rx669_cur."!cursor_debug"("PASS ", "signature", " at pos=", rx669_pos)
- .return (rx669_cur)
- rx669_fail:
+ rx674_cur."!cursor_pass"(rx674_pos, "signature")
+ rx674_cur."!cursor_debug"("PASS ", "signature", " at pos=", rx674_pos)
+ .return (rx674_cur)
+ rx674_fail:
.annotate 'line', 4
- (rx669_rep, rx669_pos, $I10, $P10) = rx669_cur."!mark_fail"(0)
- lt rx669_pos, -1, rx669_done
- eq rx669_pos, -1, rx669_fail
+ (rx674_rep, rx674_pos, $I10, $P10) = rx674_cur."!mark_fail"(0)
+ lt rx674_pos, -1, rx674_done
+ eq rx674_pos, -1, rx674_fail
jump $I10
- rx669_done:
- rx669_cur."!cursor_fail"()
- rx669_cur."!cursor_debug"("FAIL ", "signature")
- .return (rx669_cur)
+ rx674_done:
+ rx674_cur."!cursor_fail"()
+ rx674_cur."!cursor_debug"("FAIL ", "signature")
+ .return (rx674_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__signature" :subid("158_1274564776.41408") :method
+.sub "!PREFIX__signature" :subid("160_1275117591.97262") :method
.annotate 'line', 4
- new $P671, "ResizablePMCArray"
- push $P671, ""
- .return ($P671)
+ new $P676, "ResizablePMCArray"
+ push $P676, ""
+ .return ($P676)
.end
.namespace ["NQP";"Grammar"]
-.sub "parameter" :subid("159_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "parameter" :subid("161_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx678_tgt
- .local int rx678_pos
- .local int rx678_off
- .local int rx678_eos
- .local int rx678_rep
- .local pmc rx678_cur
- (rx678_cur, rx678_pos, rx678_tgt) = self."!cursor_start"()
- rx678_cur."!cursor_debug"("START ", "parameter")
- rx678_cur."!cursor_caparray"("default_value", "typename")
- .lex unicode:"$\x{a2}", rx678_cur
+ .local string rx683_tgt
+ .local int rx683_pos
+ .local int rx683_off
+ .local int rx683_eos
+ .local int rx683_rep
+ .local pmc rx683_cur
+ (rx683_cur, rx683_pos, rx683_tgt) = self."!cursor_start"()
+ rx683_cur."!cursor_debug"("START ", "parameter")
+ rx683_cur."!cursor_caparray"("default_value", "typename")
+ .lex unicode:"$\x{a2}", rx683_cur
.local pmc match
.lex "$/", match
- length rx678_eos, rx678_tgt
- set rx678_off, 0
- lt rx678_pos, 2, rx678_start
- sub rx678_off, rx678_pos, 1
- substr rx678_tgt, rx678_tgt, rx678_off
- rx678_start:
+ length rx683_eos, rx683_tgt
+ set rx683_off, 0
+ lt rx683_pos, 2, rx683_start
+ sub rx683_off, rx683_pos, 1
+ substr rx683_tgt, rx683_tgt, rx683_off
+ rx683_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan681_done
- goto rxscan681_scan
- rxscan681_loop:
- ($P10) = rx678_cur."from"()
+ ne $I10, -1, rxscan686_done
+ goto rxscan686_scan
+ rxscan686_loop:
+ ($P10) = rx683_cur."from"()
inc $P10
- set rx678_pos, $P10
- ge rx678_pos, rx678_eos, rxscan681_done
- rxscan681_scan:
- set_addr $I10, rxscan681_loop
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
- rxscan681_done:
-.annotate 'line', 310
- # rx rxquantr682 ** 0..*
- set_addr $I683, rxquantr682_done
- rx678_cur."!mark_push"(0, rx678_pos, $I683)
- rxquantr682_loop:
+ set rx683_pos, $P10
+ ge rx683_pos, rx683_eos, rxscan686_done
+ rxscan686_scan:
+ set_addr $I10, rxscan686_loop
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
+ rxscan686_done:
+.annotate 'line', 312
+ # rx rxquantr687 ** 0..*
+ set_addr $I688, rxquantr687_done
+ rx683_cur."!mark_push"(0, rx683_pos, $I688)
+ rxquantr687_loop:
# rx subrule "typename" subtype=capture negate=
- rx678_cur."!cursor_pos"(rx678_pos)
- $P10 = rx678_cur."typename"()
- unless $P10, rx678_fail
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ rx683_cur."!cursor_pos"(rx683_pos)
+ $P10 = rx683_cur."typename"()
+ unless $P10, rx683_fail
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("typename")
- rx678_pos = $P10."pos"()
+ rx683_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx678_cur."!cursor_pos"(rx678_pos)
- $P10 = rx678_cur."ws"()
- unless $P10, rx678_fail
- rx678_pos = $P10."pos"()
- (rx678_rep) = rx678_cur."!mark_commit"($I683)
- rx678_cur."!mark_push"(rx678_rep, rx678_pos, $I683)
- goto rxquantr682_loop
- rxquantr682_done:
- alt684_0:
-.annotate 'line', 311
- set_addr $I10, alt684_1
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
-.annotate 'line', 312
+ rx683_cur."!cursor_pos"(rx683_pos)
+ $P10 = rx683_cur."ws"()
+ unless $P10, rx683_fail
+ rx683_pos = $P10."pos"()
+ (rx683_rep) = rx683_cur."!mark_commit"($I688)
+ rx683_cur."!mark_push"(rx683_rep, rx683_pos, $I688)
+ goto rxquantr687_loop
+ rxquantr687_done:
+ alt689_0:
+.annotate 'line', 313
+ set_addr $I10, alt689_1
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
+.annotate 'line', 314
# rx subcapture "quant"
- set_addr $I10, rxcap_685_fail
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
+ set_addr $I10, rxcap_690_fail
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
# rx literal "*"
- add $I11, rx678_pos, 1
- gt $I11, rx678_eos, rx678_fail
- sub $I11, rx678_pos, rx678_off
- substr $S10, rx678_tgt, $I11, 1
- ne $S10, "*", rx678_fail
- add rx678_pos, 1
- set_addr $I10, rxcap_685_fail
- ($I12, $I11) = rx678_cur."!mark_peek"($I10)
- rx678_cur."!cursor_pos"($I11)
- ($P10) = rx678_cur."!cursor_start"()
- $P10."!cursor_pass"(rx678_pos, "")
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx683_pos, 1
+ gt $I11, rx683_eos, rx683_fail
+ sub $I11, rx683_pos, rx683_off
+ substr $S10, rx683_tgt, $I11, 1
+ ne $S10, "*", rx683_fail
+ add rx683_pos, 1
+ set_addr $I10, rxcap_690_fail
+ ($I12, $I11) = rx683_cur."!mark_peek"($I10)
+ rx683_cur."!cursor_pos"($I11)
+ ($P10) = rx683_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx683_pos, "")
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quant")
- goto rxcap_685_done
- rxcap_685_fail:
- goto rx678_fail
- rxcap_685_done:
+ goto rxcap_690_done
+ rxcap_690_fail:
+ goto rx683_fail
+ rxcap_690_done:
# rx subrule "param_var" subtype=capture negate=
- rx678_cur."!cursor_pos"(rx678_pos)
- $P10 = rx678_cur."param_var"()
- unless $P10, rx678_fail
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ rx683_cur."!cursor_pos"(rx683_pos)
+ $P10 = rx683_cur."param_var"()
+ unless $P10, rx683_fail
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("param_var")
- rx678_pos = $P10."pos"()
- goto alt684_end
- alt684_1:
- alt686_0:
-.annotate 'line', 313
- set_addr $I10, alt686_1
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
+ rx683_pos = $P10."pos"()
+ goto alt689_end
+ alt689_1:
+ alt691_0:
+.annotate 'line', 315
+ set_addr $I10, alt691_1
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
# rx subrule "param_var" subtype=capture negate=
- rx678_cur."!cursor_pos"(rx678_pos)
- $P10 = rx678_cur."param_var"()
- unless $P10, rx678_fail
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ rx683_cur."!cursor_pos"(rx683_pos)
+ $P10 = rx683_cur."param_var"()
+ unless $P10, rx683_fail
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("param_var")
- rx678_pos = $P10."pos"()
- goto alt686_end
- alt686_1:
+ rx683_pos = $P10."pos"()
+ goto alt691_end
+ alt691_1:
# rx subrule "named_param" subtype=capture negate=
- rx678_cur."!cursor_pos"(rx678_pos)
- $P10 = rx678_cur."named_param"()
- unless $P10, rx678_fail
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ rx683_cur."!cursor_pos"(rx683_pos)
+ $P10 = rx683_cur."named_param"()
+ unless $P10, rx683_fail
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("named_param")
- rx678_pos = $P10."pos"()
- alt686_end:
+ rx683_pos = $P10."pos"()
+ alt691_end:
# rx subcapture "quant"
- set_addr $I10, rxcap_688_fail
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
- alt687_0:
- set_addr $I10, alt687_1
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
+ set_addr $I10, rxcap_693_fail
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
+ alt692_0:
+ set_addr $I10, alt692_1
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
# rx literal "?"
- add $I11, rx678_pos, 1
- gt $I11, rx678_eos, rx678_fail
- sub $I11, rx678_pos, rx678_off
- substr $S10, rx678_tgt, $I11, 1
- ne $S10, "?", rx678_fail
- add rx678_pos, 1
- goto alt687_end
- alt687_1:
- set_addr $I10, alt687_2
- rx678_cur."!mark_push"(0, rx678_pos, $I10)
+ add $I11, rx683_pos, 1
+ gt $I11, rx683_eos, rx683_fail
+ sub $I11, rx683_pos, rx683_off
+ substr $S10, rx683_tgt, $I11, 1
+ ne $S10, "?", rx683_fail
+ add rx683_pos, 1
+ goto alt692_end
+ alt692_1:
+ set_addr $I10, alt692_2
+ rx683_cur."!mark_push"(0, rx683_pos, $I10)
# rx literal "!"
- add $I11, rx678_pos, 1
- gt $I11, rx678_eos, rx678_fail
- sub $I11, rx678_pos, rx678_off
- substr $S10, rx678_tgt, $I11, 1
- ne $S10, "!", rx678_fail
- add rx678_pos, 1
- goto alt687_end
- alt687_2:
- alt687_end:
- set_addr $I10, rxcap_688_fail
- ($I12, $I11) = rx678_cur."!mark_peek"($I10)
- rx678_cur."!cursor_pos"($I11)
- ($P10) = rx678_cur."!cursor_start"()
- $P10."!cursor_pass"(rx678_pos, "")
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx683_pos, 1
+ gt $I11, rx683_eos, rx683_fail
+ sub $I11, rx683_pos, rx683_off
+ substr $S10, rx683_tgt, $I11, 1
+ ne $S10, "!", rx683_fail
+ add rx683_pos, 1
+ goto alt692_end
+ alt692_2:
+ alt692_end:
+ set_addr $I10, rxcap_693_fail
+ ($I12, $I11) = rx683_cur."!mark_peek"($I10)
+ rx683_cur."!cursor_pos"($I11)
+ ($P10) = rx683_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx683_pos, "")
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quant")
- goto rxcap_688_done
- rxcap_688_fail:
- goto rx678_fail
- rxcap_688_done:
- alt684_end:
-.annotate 'line', 315
- # rx rxquantr689 ** 0..1
- set_addr $I690, rxquantr689_done
- rx678_cur."!mark_push"(0, rx678_pos, $I690)
- rxquantr689_loop:
+ goto rxcap_693_done
+ rxcap_693_fail:
+ goto rx683_fail
+ rxcap_693_done:
+ alt689_end:
+.annotate 'line', 317
+ # rx rxquantr694 ** 0..1
+ set_addr $I695, rxquantr694_done
+ rx683_cur."!mark_push"(0, rx683_pos, $I695)
+ rxquantr694_loop:
# rx subrule "default_value" subtype=capture negate=
- rx678_cur."!cursor_pos"(rx678_pos)
- $P10 = rx678_cur."default_value"()
- unless $P10, rx678_fail
- rx678_cur."!mark_push"(0, -1, 0, $P10)
+ rx683_cur."!cursor_pos"(rx683_pos)
+ $P10 = rx683_cur."default_value"()
+ unless $P10, rx683_fail
+ rx683_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("default_value")
- rx678_pos = $P10."pos"()
- (rx678_rep) = rx678_cur."!mark_commit"($I690)
- rxquantr689_done:
-.annotate 'line', 309
+ rx683_pos = $P10."pos"()
+ (rx683_rep) = rx683_cur."!mark_commit"($I695)
+ rxquantr694_done:
+.annotate 'line', 311
# rx pass
- rx678_cur."!cursor_pass"(rx678_pos, "parameter")
- rx678_cur."!cursor_debug"("PASS ", "parameter", " at pos=", rx678_pos)
- .return (rx678_cur)
- rx678_fail:
+ rx683_cur."!cursor_pass"(rx683_pos, "parameter")
+ rx683_cur."!cursor_debug"("PASS ", "parameter", " at pos=", rx683_pos)
+ .return (rx683_cur)
+ rx683_fail:
.annotate 'line', 4
- (rx678_rep, rx678_pos, $I10, $P10) = rx678_cur."!mark_fail"(0)
- lt rx678_pos, -1, rx678_done
- eq rx678_pos, -1, rx678_fail
+ (rx683_rep, rx683_pos, $I10, $P10) = rx683_cur."!mark_fail"(0)
+ lt rx683_pos, -1, rx683_done
+ eq rx683_pos, -1, rx683_fail
jump $I10
- rx678_done:
- rx678_cur."!cursor_fail"()
- rx678_cur."!cursor_debug"("FAIL ", "parameter")
- .return (rx678_cur)
+ rx683_done:
+ rx683_cur."!cursor_fail"()
+ rx683_cur."!cursor_debug"("FAIL ", "parameter")
+ .return (rx683_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__parameter" :subid("160_1274564776.41408") :method
+.sub "!PREFIX__parameter" :subid("162_1275117591.97262") :method
.annotate 'line', 4
- new $P680, "ResizablePMCArray"
- push $P680, ""
- .return ($P680)
+ new $P685, "ResizablePMCArray"
+ push $P685, ""
+ .return ($P685)
.end
.namespace ["NQP";"Grammar"]
-.sub "param_var" :subid("161_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "param_var" :subid("163_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx692_tgt
- .local int rx692_pos
- .local int rx692_off
- .local int rx692_eos
- .local int rx692_rep
- .local pmc rx692_cur
- (rx692_cur, rx692_pos, rx692_tgt) = self."!cursor_start"()
- rx692_cur."!cursor_debug"("START ", "param_var")
- rx692_cur."!cursor_caparray"("twigil")
- .lex unicode:"$\x{a2}", rx692_cur
+ .local string rx697_tgt
+ .local int rx697_pos
+ .local int rx697_off
+ .local int rx697_eos
+ .local int rx697_rep
+ .local pmc rx697_cur
+ (rx697_cur, rx697_pos, rx697_tgt) = self."!cursor_start"()
+ rx697_cur."!cursor_debug"("START ", "param_var")
+ rx697_cur."!cursor_caparray"("twigil")
+ .lex unicode:"$\x{a2}", rx697_cur
.local pmc match
.lex "$/", match
- length rx692_eos, rx692_tgt
- set rx692_off, 0
- lt rx692_pos, 2, rx692_start
- sub rx692_off, rx692_pos, 1
- substr rx692_tgt, rx692_tgt, rx692_off
- rx692_start:
+ length rx697_eos, rx697_tgt
+ set rx697_off, 0
+ lt rx697_pos, 2, rx697_start
+ sub rx697_off, rx697_pos, 1
+ substr rx697_tgt, rx697_tgt, rx697_off
+ rx697_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan696_done
- goto rxscan696_scan
- rxscan696_loop:
- ($P10) = rx692_cur."from"()
+ ne $I10, -1, rxscan701_done
+ goto rxscan701_scan
+ rxscan701_loop:
+ ($P10) = rx697_cur."from"()
inc $P10
- set rx692_pos, $P10
- ge rx692_pos, rx692_eos, rxscan696_done
- rxscan696_scan:
- set_addr $I10, rxscan696_loop
- rx692_cur."!mark_push"(0, rx692_pos, $I10)
- rxscan696_done:
-.annotate 'line', 319
+ set rx697_pos, $P10
+ ge rx697_pos, rx697_eos, rxscan701_done
+ rxscan701_scan:
+ set_addr $I10, rxscan701_loop
+ rx697_cur."!mark_push"(0, rx697_pos, $I10)
+ rxscan701_done:
+.annotate 'line', 321
# rx subrule "sigil" subtype=capture negate=
- rx692_cur."!cursor_pos"(rx692_pos)
- $P10 = rx692_cur."sigil"()
- unless $P10, rx692_fail
- rx692_cur."!mark_push"(0, -1, 0, $P10)
+ rx697_cur."!cursor_pos"(rx697_pos)
+ $P10 = rx697_cur."sigil"()
+ unless $P10, rx697_fail
+ rx697_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- rx692_pos = $P10."pos"()
- # rx rxquantr697 ** 0..1
- set_addr $I698, rxquantr697_done
- rx692_cur."!mark_push"(0, rx692_pos, $I698)
- rxquantr697_loop:
+ rx697_pos = $P10."pos"()
+ # rx rxquantr702 ** 0..1
+ set_addr $I703, rxquantr702_done
+ rx697_cur."!mark_push"(0, rx697_pos, $I703)
+ rxquantr702_loop:
# rx subrule "twigil" subtype=capture negate=
- rx692_cur."!cursor_pos"(rx692_pos)
- $P10 = rx692_cur."twigil"()
- unless $P10, rx692_fail
- rx692_cur."!mark_push"(0, -1, 0, $P10)
+ rx697_cur."!cursor_pos"(rx697_pos)
+ $P10 = rx697_cur."twigil"()
+ unless $P10, rx697_fail
+ rx697_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("twigil")
- rx692_pos = $P10."pos"()
- (rx692_rep) = rx692_cur."!mark_commit"($I698)
- rxquantr697_done:
- alt699_0:
-.annotate 'line', 320
- set_addr $I10, alt699_1
- rx692_cur."!mark_push"(0, rx692_pos, $I10)
+ rx697_pos = $P10."pos"()
+ (rx697_rep) = rx697_cur."!mark_commit"($I703)
+ rxquantr702_done:
+ alt704_0:
+.annotate 'line', 322
+ set_addr $I10, alt704_1
+ rx697_cur."!mark_push"(0, rx697_pos, $I10)
# rx subrule "ident" subtype=capture negate=
- rx692_cur."!cursor_pos"(rx692_pos)
- $P10 = rx692_cur."ident"()
- unless $P10, rx692_fail
- rx692_cur."!mark_push"(0, -1, 0, $P10)
+ rx697_cur."!cursor_pos"(rx697_pos)
+ $P10 = rx697_cur."ident"()
+ unless $P10, rx697_fail
+ rx697_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- rx692_pos = $P10."pos"()
- goto alt699_end
- alt699_1:
+ rx697_pos = $P10."pos"()
+ goto alt704_end
+ alt704_1:
# rx subcapture "name"
- set_addr $I10, rxcap_700_fail
- rx692_cur."!mark_push"(0, rx692_pos, $I10)
+ set_addr $I10, rxcap_705_fail
+ rx697_cur."!mark_push"(0, rx697_pos, $I10)
# rx enumcharlist negate=0
- ge rx692_pos, rx692_eos, rx692_fail
- sub $I10, rx692_pos, rx692_off
- substr $S10, rx692_tgt, $I10, 1
+ ge rx697_pos, rx697_eos, rx697_fail
+ sub $I10, rx697_pos, rx697_off
+ substr $S10, rx697_tgt, $I10, 1
index $I11, "/!", $S10
- lt $I11, 0, rx692_fail
- inc rx692_pos
- set_addr $I10, rxcap_700_fail
- ($I12, $I11) = rx692_cur."!mark_peek"($I10)
- rx692_cur."!cursor_pos"($I11)
- ($P10) = rx692_cur."!cursor_start"()
- $P10."!cursor_pass"(rx692_pos, "")
- rx692_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx697_fail
+ inc rx697_pos
+ set_addr $I10, rxcap_705_fail
+ ($I12, $I11) = rx697_cur."!mark_peek"($I10)
+ rx697_cur."!cursor_pos"($I11)
+ ($P10) = rx697_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx697_pos, "")
+ rx697_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- goto rxcap_700_done
- rxcap_700_fail:
- goto rx692_fail
- rxcap_700_done:
- alt699_end:
-.annotate 'line', 318
+ goto rxcap_705_done
+ rxcap_705_fail:
+ goto rx697_fail
+ rxcap_705_done:
+ alt704_end:
+.annotate 'line', 320
# rx pass
- rx692_cur."!cursor_pass"(rx692_pos, "param_var")
- rx692_cur."!cursor_debug"("PASS ", "param_var", " at pos=", rx692_pos)
- .return (rx692_cur)
- rx692_fail:
+ rx697_cur."!cursor_pass"(rx697_pos, "param_var")
+ rx697_cur."!cursor_debug"("PASS ", "param_var", " at pos=", rx697_pos)
+ .return (rx697_cur)
+ rx697_fail:
.annotate 'line', 4
- (rx692_rep, rx692_pos, $I10, $P10) = rx692_cur."!mark_fail"(0)
- lt rx692_pos, -1, rx692_done
- eq rx692_pos, -1, rx692_fail
+ (rx697_rep, rx697_pos, $I10, $P10) = rx697_cur."!mark_fail"(0)
+ lt rx697_pos, -1, rx697_done
+ eq rx697_pos, -1, rx697_fail
jump $I10
- rx692_done:
- rx692_cur."!cursor_fail"()
- rx692_cur."!cursor_debug"("FAIL ", "param_var")
- .return (rx692_cur)
+ rx697_done:
+ rx697_cur."!cursor_fail"()
+ rx697_cur."!cursor_debug"("FAIL ", "param_var")
+ .return (rx697_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__param_var" :subid("162_1274564776.41408") :method
+.sub "!PREFIX__param_var" :subid("164_1275117591.97262") :method
.annotate 'line', 4
- $P694 = self."!PREFIX__!subrule"("sigil", "")
- new $P695, "ResizablePMCArray"
- push $P695, $P694
- .return ($P695)
+ $P699 = self."!PREFIX__!subrule"("sigil", "")
+ new $P700, "ResizablePMCArray"
+ push $P700, $P699
+ .return ($P700)
.end
.namespace ["NQP";"Grammar"]
-.sub "named_param" :subid("163_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "named_param" :subid("165_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx702_tgt
- .local int rx702_pos
- .local int rx702_off
- .local int rx702_eos
- .local int rx702_rep
- .local pmc rx702_cur
- (rx702_cur, rx702_pos, rx702_tgt) = self."!cursor_start"()
- rx702_cur."!cursor_debug"("START ", "named_param")
- .lex unicode:"$\x{a2}", rx702_cur
+ .local string rx707_tgt
+ .local int rx707_pos
+ .local int rx707_off
+ .local int rx707_eos
+ .local int rx707_rep
+ .local pmc rx707_cur
+ (rx707_cur, rx707_pos, rx707_tgt) = self."!cursor_start"()
+ rx707_cur."!cursor_debug"("START ", "named_param")
+ .lex unicode:"$\x{a2}", rx707_cur
.local pmc match
.lex "$/", match
- length rx702_eos, rx702_tgt
- set rx702_off, 0
- lt rx702_pos, 2, rx702_start
- sub rx702_off, rx702_pos, 1
- substr rx702_tgt, rx702_tgt, rx702_off
- rx702_start:
+ length rx707_eos, rx707_tgt
+ set rx707_off, 0
+ lt rx707_pos, 2, rx707_start
+ sub rx707_off, rx707_pos, 1
+ substr rx707_tgt, rx707_tgt, rx707_off
+ rx707_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan706_done
- goto rxscan706_scan
- rxscan706_loop:
- ($P10) = rx702_cur."from"()
+ ne $I10, -1, rxscan711_done
+ goto rxscan711_scan
+ rxscan711_loop:
+ ($P10) = rx707_cur."from"()
inc $P10
- set rx702_pos, $P10
- ge rx702_pos, rx702_eos, rxscan706_done
- rxscan706_scan:
- set_addr $I10, rxscan706_loop
- rx702_cur."!mark_push"(0, rx702_pos, $I10)
- rxscan706_done:
-.annotate 'line', 324
+ set rx707_pos, $P10
+ ge rx707_pos, rx707_eos, rxscan711_done
+ rxscan711_scan:
+ set_addr $I10, rxscan711_loop
+ rx707_cur."!mark_push"(0, rx707_pos, $I10)
+ rxscan711_done:
+.annotate 'line', 326
# rx literal ":"
- add $I11, rx702_pos, 1
- gt $I11, rx702_eos, rx702_fail
- sub $I11, rx702_pos, rx702_off
- substr $S10, rx702_tgt, $I11, 1
- ne $S10, ":", rx702_fail
- add rx702_pos, 1
+ add $I11, rx707_pos, 1
+ gt $I11, rx707_eos, rx707_fail
+ sub $I11, rx707_pos, rx707_off
+ substr $S10, rx707_tgt, $I11, 1
+ ne $S10, ":", rx707_fail
+ add rx707_pos, 1
# rx subrule "param_var" subtype=capture negate=
- rx702_cur."!cursor_pos"(rx702_pos)
- $P10 = rx702_cur."param_var"()
- unless $P10, rx702_fail
- rx702_cur."!mark_push"(0, -1, 0, $P10)
+ rx707_cur."!cursor_pos"(rx707_pos)
+ $P10 = rx707_cur."param_var"()
+ unless $P10, rx707_fail
+ rx707_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("param_var")
- rx702_pos = $P10."pos"()
-.annotate 'line', 323
+ rx707_pos = $P10."pos"()
+.annotate 'line', 325
# rx pass
- rx702_cur."!cursor_pass"(rx702_pos, "named_param")
- rx702_cur."!cursor_debug"("PASS ", "named_param", " at pos=", rx702_pos)
- .return (rx702_cur)
- rx702_fail:
+ rx707_cur."!cursor_pass"(rx707_pos, "named_param")
+ rx707_cur."!cursor_debug"("PASS ", "named_param", " at pos=", rx707_pos)
+ .return (rx707_cur)
+ rx707_fail:
.annotate 'line', 4
- (rx702_rep, rx702_pos, $I10, $P10) = rx702_cur."!mark_fail"(0)
- lt rx702_pos, -1, rx702_done
- eq rx702_pos, -1, rx702_fail
+ (rx707_rep, rx707_pos, $I10, $P10) = rx707_cur."!mark_fail"(0)
+ lt rx707_pos, -1, rx707_done
+ eq rx707_pos, -1, rx707_fail
jump $I10
- rx702_done:
- rx702_cur."!cursor_fail"()
- rx702_cur."!cursor_debug"("FAIL ", "named_param")
- .return (rx702_cur)
+ rx707_done:
+ rx707_cur."!cursor_fail"()
+ rx707_cur."!cursor_debug"("FAIL ", "named_param")
+ .return (rx707_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__named_param" :subid("164_1274564776.41408") :method
+.sub "!PREFIX__named_param" :subid("166_1275117591.97262") :method
.annotate 'line', 4
- $P704 = self."!PREFIX__!subrule"("param_var", ":")
- new $P705, "ResizablePMCArray"
- push $P705, $P704
- .return ($P705)
+ $P709 = self."!PREFIX__!subrule"("param_var", ":")
+ new $P710, "ResizablePMCArray"
+ push $P710, $P709
+ .return ($P710)
.end
.namespace ["NQP";"Grammar"]
-.sub "default_value" :subid("165_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "default_value" :subid("167_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx708_tgt
- .local int rx708_pos
- .local int rx708_off
- .local int rx708_eos
- .local int rx708_rep
- .local pmc rx708_cur
- (rx708_cur, rx708_pos, rx708_tgt) = self."!cursor_start"()
- rx708_cur."!cursor_debug"("START ", "default_value")
- .lex unicode:"$\x{a2}", rx708_cur
- .local pmc match
- .lex "$/", match
- length rx708_eos, rx708_tgt
- set rx708_off, 0
- lt rx708_pos, 2, rx708_start
- sub rx708_off, rx708_pos, 1
- substr rx708_tgt, rx708_tgt, rx708_off
- rx708_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan711_done
- goto rxscan711_scan
- rxscan711_loop:
- ($P10) = rx708_cur."from"()
- inc $P10
- set rx708_pos, $P10
- ge rx708_pos, rx708_eos, rxscan711_done
- rxscan711_scan:
- set_addr $I10, rxscan711_loop
- rx708_cur."!mark_push"(0, rx708_pos, $I10)
- rxscan711_done:
-.annotate 'line', 327
+ .local string rx713_tgt
+ .local int rx713_pos
+ .local int rx713_off
+ .local int rx713_eos
+ .local int rx713_rep
+ .local pmc rx713_cur
+ (rx713_cur, rx713_pos, rx713_tgt) = self."!cursor_start"()
+ rx713_cur."!cursor_debug"("START ", "default_value")
+ .lex unicode:"$\x{a2}", rx713_cur
+ .local pmc match
+ .lex "$/", match
+ length rx713_eos, rx713_tgt
+ set rx713_off, 0
+ lt rx713_pos, 2, rx713_start
+ sub rx713_off, rx713_pos, 1
+ substr rx713_tgt, rx713_tgt, rx713_off
+ rx713_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan716_done
+ goto rxscan716_scan
+ rxscan716_loop:
+ ($P10) = rx713_cur."from"()
+ inc $P10
+ set rx713_pos, $P10
+ ge rx713_pos, rx713_eos, rxscan716_done
+ rxscan716_scan:
+ set_addr $I10, rxscan716_loop
+ rx713_cur."!mark_push"(0, rx713_pos, $I10)
+ rxscan716_done:
+.annotate 'line', 329
# rx subrule "ws" subtype=method negate=
- rx708_cur."!cursor_pos"(rx708_pos)
- $P10 = rx708_cur."ws"()
- unless $P10, rx708_fail
- rx708_pos = $P10."pos"()
+ rx713_cur."!cursor_pos"(rx713_pos)
+ $P10 = rx713_cur."ws"()
+ unless $P10, rx713_fail
+ rx713_pos = $P10."pos"()
# rx literal "="
- add $I11, rx708_pos, 1
- gt $I11, rx708_eos, rx708_fail
- sub $I11, rx708_pos, rx708_off
- substr $S10, rx708_tgt, $I11, 1
- ne $S10, "=", rx708_fail
- add rx708_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx708_cur."!cursor_pos"(rx708_pos)
- $P10 = rx708_cur."ws"()
- unless $P10, rx708_fail
- rx708_pos = $P10."pos"()
+ add $I11, rx713_pos, 1
+ gt $I11, rx713_eos, rx713_fail
+ sub $I11, rx713_pos, rx713_off
+ substr $S10, rx713_tgt, $I11, 1
+ ne $S10, "=", rx713_fail
+ add rx713_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx713_cur."!cursor_pos"(rx713_pos)
+ $P10 = rx713_cur."ws"()
+ unless $P10, rx713_fail
+ rx713_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx708_cur."!cursor_pos"(rx708_pos)
- $P10 = rx708_cur."EXPR"("i=")
- unless $P10, rx708_fail
- rx708_cur."!mark_push"(0, -1, 0, $P10)
+ rx713_cur."!cursor_pos"(rx713_pos)
+ $P10 = rx713_cur."EXPR"("i=")
+ unless $P10, rx713_fail
+ rx713_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx708_pos = $P10."pos"()
+ rx713_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx708_cur."!cursor_pos"(rx708_pos)
- $P10 = rx708_cur."ws"()
- unless $P10, rx708_fail
- rx708_pos = $P10."pos"()
+ rx713_cur."!cursor_pos"(rx713_pos)
+ $P10 = rx713_cur."ws"()
+ unless $P10, rx713_fail
+ rx713_pos = $P10."pos"()
# rx pass
- rx708_cur."!cursor_pass"(rx708_pos, "default_value")
- rx708_cur."!cursor_debug"("PASS ", "default_value", " at pos=", rx708_pos)
- .return (rx708_cur)
- rx708_fail:
+ rx713_cur."!cursor_pass"(rx713_pos, "default_value")
+ rx713_cur."!cursor_debug"("PASS ", "default_value", " at pos=", rx713_pos)
+ .return (rx713_cur)
+ rx713_fail:
.annotate 'line', 4
- (rx708_rep, rx708_pos, $I10, $P10) = rx708_cur."!mark_fail"(0)
- lt rx708_pos, -1, rx708_done
- eq rx708_pos, -1, rx708_fail
+ (rx713_rep, rx713_pos, $I10, $P10) = rx713_cur."!mark_fail"(0)
+ lt rx713_pos, -1, rx713_done
+ eq rx713_pos, -1, rx713_fail
jump $I10
- rx708_done:
- rx708_cur."!cursor_fail"()
- rx708_cur."!cursor_debug"("FAIL ", "default_value")
- .return (rx708_cur)
+ rx713_done:
+ rx713_cur."!cursor_fail"()
+ rx713_cur."!cursor_debug"("FAIL ", "default_value")
+ .return (rx713_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__default_value" :subid("166_1274564776.41408") :method
+.sub "!PREFIX__default_value" :subid("168_1275117591.97262") :method
.annotate 'line', 4
- new $P710, "ResizablePMCArray"
- push $P710, ""
- .return ($P710)
+ new $P715, "ResizablePMCArray"
+ push $P715, ""
+ .return ($P715)
.end
.namespace ["NQP";"Grammar"]
-.sub "regex_declarator" :subid("167_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "regex_declarator" :subid("169_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx716_tgt
- .local int rx716_pos
- .local int rx716_off
- .local int rx716_eos
- .local int rx716_rep
- .local pmc rx716_cur
- (rx716_cur, rx716_pos, rx716_tgt) = self."!cursor_start"()
- rx716_cur."!cursor_debug"("START ", "regex_declarator")
- rx716_cur."!cursor_caparray"("signature")
- .lex unicode:"$\x{a2}", rx716_cur
- .local pmc match
- .lex "$/", match
- length rx716_eos, rx716_tgt
- set rx716_off, 0
- lt rx716_pos, 2, rx716_start
- sub rx716_off, rx716_pos, 1
- substr rx716_tgt, rx716_tgt, rx716_off
- rx716_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan719_done
- goto rxscan719_scan
- rxscan719_loop:
- ($P10) = rx716_cur."from"()
- inc $P10
- set rx716_pos, $P10
- ge rx716_pos, rx716_eos, rxscan719_done
- rxscan719_scan:
- set_addr $I10, rxscan719_loop
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
- rxscan719_done:
-.annotate 'line', 329
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- alt721_0:
-.annotate 'line', 330
- set_addr $I10, alt721_1
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
+ .local string rx721_tgt
+ .local int rx721_pos
+ .local int rx721_off
+ .local int rx721_eos
+ .local int rx721_rep
+ .local pmc rx721_cur
+ (rx721_cur, rx721_pos, rx721_tgt) = self."!cursor_start"()
+ rx721_cur."!cursor_debug"("START ", "regex_declarator")
+ rx721_cur."!cursor_caparray"("signature")
+ .lex unicode:"$\x{a2}", rx721_cur
+ .local pmc match
+ .lex "$/", match
+ length rx721_eos, rx721_tgt
+ set rx721_off, 0
+ lt rx721_pos, 2, rx721_start
+ sub rx721_off, rx721_pos, 1
+ substr rx721_tgt, rx721_tgt, rx721_off
+ rx721_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan724_done
+ goto rxscan724_scan
+ rxscan724_loop:
+ ($P10) = rx721_cur."from"()
+ inc $P10
+ set rx721_pos, $P10
+ ge rx721_pos, rx721_eos, rxscan724_done
+ rxscan724_scan:
+ set_addr $I10, rxscan724_loop
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
+ rxscan724_done:
.annotate 'line', 331
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ alt726_0:
+.annotate 'line', 332
+ set_addr $I10, alt726_1
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
+.annotate 'line', 333
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx subcapture "proto"
- set_addr $I10, rxcap_723_fail
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
+ set_addr $I10, rxcap_728_fail
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
# rx literal "proto"
- add $I11, rx716_pos, 5
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 5
- ne $S10, "proto", rx716_fail
- add rx716_pos, 5
- set_addr $I10, rxcap_723_fail
- ($I12, $I11) = rx716_cur."!mark_peek"($I10)
- rx716_cur."!cursor_pos"($I11)
- ($P10) = rx716_cur."!cursor_start"()
- $P10."!cursor_pass"(rx716_pos, "")
- rx716_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx721_pos, 5
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 5
+ ne $S10, "proto", rx721_fail
+ add rx721_pos, 5
+ set_addr $I10, rxcap_728_fail
+ ($I12, $I11) = rx721_cur."!mark_peek"($I10)
+ rx721_cur."!cursor_pos"($I11)
+ ($P10) = rx721_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx721_pos, "")
+ rx721_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("proto")
- goto rxcap_723_done
- rxcap_723_fail:
- goto rx716_fail
- rxcap_723_done:
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- alt725_0:
- set_addr $I10, alt725_1
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
+ goto rxcap_728_done
+ rxcap_728_fail:
+ goto rx721_fail
+ rxcap_728_done:
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ alt730_0:
+ set_addr $I10, alt730_1
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
# rx literal "regex"
- add $I11, rx716_pos, 5
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 5
- ne $S10, "regex", rx716_fail
- add rx716_pos, 5
- goto alt725_end
- alt725_1:
- set_addr $I10, alt725_2
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
+ add $I11, rx721_pos, 5
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 5
+ ne $S10, "regex", rx721_fail
+ add rx721_pos, 5
+ goto alt730_end
+ alt730_1:
+ set_addr $I10, alt730_2
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
# rx literal "token"
- add $I11, rx716_pos, 5
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 5
- ne $S10, "token", rx716_fail
- add rx716_pos, 5
- goto alt725_end
- alt725_2:
+ add $I11, rx721_pos, 5
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 5
+ ne $S10, "token", rx721_fail
+ add rx721_pos, 5
+ goto alt730_end
+ alt730_2:
# rx literal "rule"
- add $I11, rx716_pos, 4
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 4
- ne $S10, "rule", rx716_fail
- add rx716_pos, 4
- alt725_end:
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 332
+ add $I11, rx721_pos, 4
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 4
+ ne $S10, "rule", rx721_fail
+ add rx721_pos, 4
+ alt730_end:
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 334
# rx subrule "deflongname" subtype=capture negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."deflongname"()
- unless $P10, rx716_fail
- rx716_cur."!mark_push"(0, -1, 0, $P10)
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."deflongname"()
+ unless $P10, rx721_fail
+ rx721_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- rx716_pos = $P10."pos"()
+ rx721_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- alt728_0:
-.annotate 'line', 333
- set_addr $I10, alt728_1
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
-.annotate 'line', 334
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ alt733_0:
+.annotate 'line', 335
+ set_addr $I10, alt733_1
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
+.annotate 'line', 336
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx literal "{"
- add $I11, rx716_pos, 1
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 1
- ne $S10, "{", rx716_fail
- add rx716_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ add $I11, rx721_pos, 1
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 1
+ ne $S10, "{", rx721_fail
+ add rx721_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx literal "<...>"
- add $I11, rx716_pos, 5
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 5
- ne $S10, "<...>", rx716_fail
- add rx716_pos, 5
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ add $I11, rx721_pos, 5
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 5
+ ne $S10, "<...>", rx721_fail
+ add rx721_pos, 5
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx literal "}"
- add $I11, rx716_pos, 1
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 1
- ne $S10, "}", rx716_fail
- add rx716_pos, 1
+ add $I11, rx721_pos, 1
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 1
+ ne $S10, "}", rx721_fail
+ add rx721_pos, 1
# rx subrule "ENDSTMT" subtype=zerowidth negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ENDSTMT"()
- unless $P10, rx716_fail
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- goto alt728_end
- alt728_1:
-.annotate 'line', 335
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ENDSTMT"()
+ unless $P10, rx721_fail
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ goto alt733_end
+ alt733_1:
+.annotate 'line', 337
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."panic"("Proto regex body must be <...>")
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- alt728_end:
-.annotate 'line', 336
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."panic"("Proto regex body must be <...>")
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ alt733_end:
+.annotate 'line', 338
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 331
- goto alt721_end
- alt721_1:
-.annotate 'line', 337
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 333
+ goto alt726_end
+ alt726_1:
+.annotate 'line', 339
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx subcapture "sym"
- set_addr $I10, rxcap_738_fail
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
- alt737_0:
- set_addr $I10, alt737_1
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
+ set_addr $I10, rxcap_743_fail
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
+ alt742_0:
+ set_addr $I10, alt742_1
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
# rx literal "regex"
- add $I11, rx716_pos, 5
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 5
- ne $S10, "regex", rx716_fail
- add rx716_pos, 5
- goto alt737_end
- alt737_1:
- set_addr $I10, alt737_2
- rx716_cur."!mark_push"(0, rx716_pos, $I10)
+ add $I11, rx721_pos, 5
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 5
+ ne $S10, "regex", rx721_fail
+ add rx721_pos, 5
+ goto alt742_end
+ alt742_1:
+ set_addr $I10, alt742_2
+ rx721_cur."!mark_push"(0, rx721_pos, $I10)
# rx literal "token"
- add $I11, rx716_pos, 5
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 5
- ne $S10, "token", rx716_fail
- add rx716_pos, 5
- goto alt737_end
- alt737_2:
+ add $I11, rx721_pos, 5
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 5
+ ne $S10, "token", rx721_fail
+ add rx721_pos, 5
+ goto alt742_end
+ alt742_2:
# rx literal "rule"
- add $I11, rx716_pos, 4
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 4
- ne $S10, "rule", rx716_fail
- add rx716_pos, 4
- alt737_end:
- set_addr $I10, rxcap_738_fail
- ($I12, $I11) = rx716_cur."!mark_peek"($I10)
- rx716_cur."!cursor_pos"($I11)
- ($P10) = rx716_cur."!cursor_start"()
- $P10."!cursor_pass"(rx716_pos, "")
- rx716_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx721_pos, 4
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 4
+ ne $S10, "rule", rx721_fail
+ add rx721_pos, 4
+ alt742_end:
+ set_addr $I10, rxcap_743_fail
+ ($I12, $I11) = rx721_cur."!mark_peek"($I10)
+ rx721_cur."!cursor_pos"($I11)
+ ($P10) = rx721_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx721_pos, "")
+ rx721_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_738_done
- rxcap_738_fail:
- goto rx716_fail
- rxcap_738_done:
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 338
+ goto rxcap_743_done
+ rxcap_743_fail:
+ goto rx721_fail
+ rxcap_743_done:
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 340
# rx subrule "deflongname" subtype=capture negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."deflongname"()
- unless $P10, rx716_fail
- rx716_cur."!mark_push"(0, -1, 0, $P10)
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."deflongname"()
+ unless $P10, rx721_fail
+ rx721_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- rx716_pos = $P10."pos"()
+ rx721_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 339
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 341
# rx subrule "newpad" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."newpad"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 340
- # rx rxquantr742 ** 0..1
- set_addr $I747, rxquantr742_done
- rx716_cur."!mark_push"(0, rx716_pos, $I747)
- rxquantr742_loop:
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."newpad"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 342
+ # rx rxquantr747 ** 0..1
+ set_addr $I752, rxquantr747_done
+ rx721_cur."!mark_push"(0, rx721_pos, $I752)
+ rxquantr747_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx literal "("
- add $I11, rx716_pos, 1
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 1
- ne $S10, "(", rx716_fail
- add rx716_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ add $I11, rx721_pos, 1
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 1
+ ne $S10, "(", rx721_fail
+ add rx721_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx subrule "signature" subtype=capture negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."signature"()
- unless $P10, rx716_fail
- rx716_cur."!mark_push"(0, -1, 0, $P10)
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."signature"()
+ unless $P10, rx721_fail
+ rx721_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
- rx716_pos = $P10."pos"()
+ rx721_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
# rx literal ")"
- add $I11, rx716_pos, 1
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 1
- ne $S10, ")", rx716_fail
- add rx716_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- (rx716_rep) = rx716_cur."!mark_commit"($I747)
- rxquantr742_done:
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 341
+ add $I11, rx721_pos, 1
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 1
+ ne $S10, ")", rx721_fail
+ add rx721_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ (rx721_rep) = rx721_cur."!mark_commit"($I752)
+ rxquantr747_done:
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 343
# rx reduce name="regex_declarator" key="open"
- rx716_cur."!cursor_pos"(rx716_pos)
- rx716_cur."!reduce"("regex_declarator", "open")
+ rx721_cur."!cursor_pos"(rx721_pos)
+ rx721_cur."!reduce"("regex_declarator", "open")
# rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 342
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 344
# rx literal "{"
- add $I11, rx716_pos, 1
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 1
- ne $S10, "{", rx716_fail
- add rx716_pos, 1
+ add $I11, rx721_pos, 1
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 1
+ ne $S10, "{", rx721_fail
+ add rx721_pos, 1
# rx subrule "LANG" subtype=capture negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."LANG"("Regex", "nibbler")
- unless $P10, rx716_fail
- rx716_cur."!mark_push"(0, -1, 0, $P10)
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."LANG"("Regex", "nibbler")
+ unless $P10, rx721_fail
+ rx721_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("p6regex")
- rx716_pos = $P10."pos"()
+ rx721_pos = $P10."pos"()
# rx literal "}"
- add $I11, rx716_pos, 1
- gt $I11, rx716_eos, rx716_fail
- sub $I11, rx716_pos, rx716_off
- substr $S10, rx716_tgt, $I11, 1
- ne $S10, "}", rx716_fail
- add rx716_pos, 1
+ add $I11, rx721_pos, 1
+ gt $I11, rx721_eos, rx721_fail
+ sub $I11, rx721_pos, rx721_off
+ substr $S10, rx721_tgt, $I11, 1
+ ne $S10, "}", rx721_fail
+ add rx721_pos, 1
# rx subrule "ENDSTMT" subtype=zerowidth negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ENDSTMT"()
- unless $P10, rx716_fail
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
- alt721_end:
-.annotate 'line', 343
- # rx subrule "ws" subtype=method negate=
- rx716_cur."!cursor_pos"(rx716_pos)
- $P10 = rx716_cur."ws"()
- unless $P10, rx716_fail
- rx716_pos = $P10."pos"()
-.annotate 'line', 329
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ENDSTMT"()
+ unless $P10, rx721_fail
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+ alt726_end:
+.annotate 'line', 345
+ # rx subrule "ws" subtype=method negate=
+ rx721_cur."!cursor_pos"(rx721_pos)
+ $P10 = rx721_cur."ws"()
+ unless $P10, rx721_fail
+ rx721_pos = $P10."pos"()
+.annotate 'line', 331
# rx pass
- rx716_cur."!cursor_pass"(rx716_pos, "regex_declarator")
- rx716_cur."!cursor_debug"("PASS ", "regex_declarator", " at pos=", rx716_pos)
- .return (rx716_cur)
- rx716_fail:
+ rx721_cur."!cursor_pass"(rx721_pos, "regex_declarator")
+ rx721_cur."!cursor_debug"("PASS ", "regex_declarator", " at pos=", rx721_pos)
+ .return (rx721_cur)
+ rx721_fail:
.annotate 'line', 4
- (rx716_rep, rx716_pos, $I10, $P10) = rx716_cur."!mark_fail"(0)
- lt rx716_pos, -1, rx716_done
- eq rx716_pos, -1, rx716_fail
+ (rx721_rep, rx721_pos, $I10, $P10) = rx721_cur."!mark_fail"(0)
+ lt rx721_pos, -1, rx721_done
+ eq rx721_pos, -1, rx721_fail
jump $I10
- rx716_done:
- rx716_cur."!cursor_fail"()
- rx716_cur."!cursor_debug"("FAIL ", "regex_declarator")
- .return (rx716_cur)
+ rx721_done:
+ rx721_cur."!cursor_fail"()
+ rx721_cur."!cursor_debug"("FAIL ", "regex_declarator")
+ .return (rx721_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__regex_declarator" :subid("168_1274564776.41408") :method
+.sub "!PREFIX__regex_declarator" :subid("170_1275117591.97262") :method
.annotate 'line', 4
- new $P718, "ResizablePMCArray"
- push $P718, ""
- .return ($P718)
+ new $P723, "ResizablePMCArray"
+ push $P723, ""
+ .return ($P723)
.end
.namespace ["NQP";"Grammar"]
-.sub "dotty" :subid("169_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "dotty" :subid("171_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx753_tgt
- .local int rx753_pos
- .local int rx753_off
- .local int rx753_eos
- .local int rx753_rep
- .local pmc rx753_cur
- (rx753_cur, rx753_pos, rx753_tgt) = self."!cursor_start"()
- rx753_cur."!cursor_debug"("START ", "dotty")
- rx753_cur."!cursor_caparray"("args")
- .lex unicode:"$\x{a2}", rx753_cur
- .local pmc match
- .lex "$/", match
- length rx753_eos, rx753_tgt
- set rx753_off, 0
- lt rx753_pos, 2, rx753_start
- sub rx753_off, rx753_pos, 1
- substr rx753_tgt, rx753_tgt, rx753_off
- rx753_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan757_done
- goto rxscan757_scan
- rxscan757_loop:
- ($P10) = rx753_cur."from"()
- inc $P10
- set rx753_pos, $P10
- ge rx753_pos, rx753_eos, rxscan757_done
- rxscan757_scan:
- set_addr $I10, rxscan757_loop
- rx753_cur."!mark_push"(0, rx753_pos, $I10)
- rxscan757_done:
-.annotate 'line', 347
+ .local string rx758_tgt
+ .local int rx758_pos
+ .local int rx758_off
+ .local int rx758_eos
+ .local int rx758_rep
+ .local pmc rx758_cur
+ (rx758_cur, rx758_pos, rx758_tgt) = self."!cursor_start"()
+ rx758_cur."!cursor_debug"("START ", "dotty")
+ rx758_cur."!cursor_caparray"("args")
+ .lex unicode:"$\x{a2}", rx758_cur
+ .local pmc match
+ .lex "$/", match
+ length rx758_eos, rx758_tgt
+ set rx758_off, 0
+ lt rx758_pos, 2, rx758_start
+ sub rx758_off, rx758_pos, 1
+ substr rx758_tgt, rx758_tgt, rx758_off
+ rx758_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan762_done
+ goto rxscan762_scan
+ rxscan762_loop:
+ ($P10) = rx758_cur."from"()
+ inc $P10
+ set rx758_pos, $P10
+ ge rx758_pos, rx758_eos, rxscan762_done
+ rxscan762_scan:
+ set_addr $I10, rxscan762_loop
+ rx758_cur."!mark_push"(0, rx758_pos, $I10)
+ rxscan762_done:
+.annotate 'line', 349
# rx literal "."
- add $I11, rx753_pos, 1
- gt $I11, rx753_eos, rx753_fail
- sub $I11, rx753_pos, rx753_off
- substr $S10, rx753_tgt, $I11, 1
- ne $S10, ".", rx753_fail
- add rx753_pos, 1
- alt758_0:
-.annotate 'line', 348
- set_addr $I10, alt758_1
- rx753_cur."!mark_push"(0, rx753_pos, $I10)
+ add $I11, rx758_pos, 1
+ gt $I11, rx758_eos, rx758_fail
+ sub $I11, rx758_pos, rx758_off
+ substr $S10, rx758_tgt, $I11, 1
+ ne $S10, ".", rx758_fail
+ add rx758_pos, 1
+ alt763_0:
+.annotate 'line', 350
+ set_addr $I10, alt763_1
+ rx758_cur."!mark_push"(0, rx758_pos, $I10)
# rx subrule "identifier" subtype=capture negate=
- rx753_cur."!cursor_pos"(rx753_pos)
- $P10 = rx753_cur."identifier"()
- unless $P10, rx753_fail
- rx753_cur."!mark_push"(0, -1, 0, $P10)
+ rx758_cur."!cursor_pos"(rx758_pos)
+ $P10 = rx758_cur."identifier"()
+ unless $P10, rx758_fail
+ rx758_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("longname=identifier")
- rx753_pos = $P10."pos"()
- goto alt758_end
- alt758_1:
-.annotate 'line', 349
+ rx758_pos = $P10."pos"()
+ goto alt763_end
+ alt763_1:
+.annotate 'line', 351
# rx enumcharlist negate=0 zerowidth
- ge rx753_pos, rx753_eos, rx753_fail
- sub $I10, rx753_pos, rx753_off
- substr $S10, rx753_tgt, $I10, 1
+ ge rx758_pos, rx758_eos, rx758_fail
+ sub $I10, rx758_pos, rx758_off
+ substr $S10, rx758_tgt, $I10, 1
index $I11, "'\"", $S10
- lt $I11, 0, rx753_fail
+ lt $I11, 0, rx758_fail
# rx subrule "quote" subtype=capture negate=
- rx753_cur."!cursor_pos"(rx753_pos)
- $P10 = rx753_cur."quote"()
- unless $P10, rx753_fail
- rx753_cur."!mark_push"(0, -1, 0, $P10)
+ rx758_cur."!cursor_pos"(rx758_pos)
+ $P10 = rx758_cur."quote"()
+ unless $P10, rx758_fail
+ rx758_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote")
- rx753_pos = $P10."pos"()
- alt759_0:
-.annotate 'line', 350
- set_addr $I10, alt759_1
- rx753_cur."!mark_push"(0, rx753_pos, $I10)
+ rx758_pos = $P10."pos"()
+ alt764_0:
+.annotate 'line', 352
+ set_addr $I10, alt764_1
+ rx758_cur."!mark_push"(0, rx758_pos, $I10)
# rx enumcharlist negate=0 zerowidth
- ge rx753_pos, rx753_eos, rx753_fail
- sub $I10, rx753_pos, rx753_off
- substr $S10, rx753_tgt, $I10, 1
+ ge rx758_pos, rx758_eos, rx758_fail
+ sub $I10, rx758_pos, rx758_off
+ substr $S10, rx758_tgt, $I10, 1
index $I11, "(", $S10
- lt $I11, 0, rx753_fail
- goto alt759_end
- alt759_1:
+ lt $I11, 0, rx758_fail
+ goto alt764_end
+ alt764_1:
# rx subrule "panic" subtype=method negate=
- rx753_cur."!cursor_pos"(rx753_pos)
- $P10 = rx753_cur."panic"("Quoted method name requires parenthesized arguments")
- unless $P10, rx753_fail
- rx753_pos = $P10."pos"()
- alt759_end:
- alt758_end:
+ rx758_cur."!cursor_pos"(rx758_pos)
+ $P10 = rx758_cur."panic"("Quoted method name requires parenthesized arguments")
+ unless $P10, rx758_fail
+ rx758_pos = $P10."pos"()
+ alt764_end:
+ alt763_end:
+.annotate 'line', 358
+ # rx rxquantr765 ** 0..1
+ set_addr $I767, rxquantr765_done
+ rx758_cur."!mark_push"(0, rx758_pos, $I767)
+ rxquantr765_loop:
+ alt766_0:
+.annotate 'line', 355
+ set_addr $I10, alt766_1
+ rx758_cur."!mark_push"(0, rx758_pos, $I10)
.annotate 'line', 356
- # rx rxquantr760 ** 0..1
- set_addr $I762, rxquantr760_done
- rx753_cur."!mark_push"(0, rx753_pos, $I762)
- rxquantr760_loop:
- alt761_0:
-.annotate 'line', 353
- set_addr $I10, alt761_1
- rx753_cur."!mark_push"(0, rx753_pos, $I10)
-.annotate 'line', 354
# rx enumcharlist negate=0 zerowidth
- ge rx753_pos, rx753_eos, rx753_fail
- sub $I10, rx753_pos, rx753_off
- substr $S10, rx753_tgt, $I10, 1
+ ge rx758_pos, rx758_eos, rx758_fail
+ sub $I10, rx758_pos, rx758_off
+ substr $S10, rx758_tgt, $I10, 1
index $I11, "(", $S10
- lt $I11, 0, rx753_fail
+ lt $I11, 0, rx758_fail
# rx subrule "args" subtype=capture negate=
- rx753_cur."!cursor_pos"(rx753_pos)
- $P10 = rx753_cur."args"()
- unless $P10, rx753_fail
- rx753_cur."!mark_push"(0, -1, 0, $P10)
+ rx758_cur."!cursor_pos"(rx758_pos)
+ $P10 = rx758_cur."args"()
+ unless $P10, rx758_fail
+ rx758_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx753_pos = $P10."pos"()
- goto alt761_end
- alt761_1:
-.annotate 'line', 355
+ rx758_pos = $P10."pos"()
+ goto alt766_end
+ alt766_1:
+.annotate 'line', 357
# rx literal ":"
- add $I11, rx753_pos, 1
- gt $I11, rx753_eos, rx753_fail
- sub $I11, rx753_pos, rx753_off
- substr $S10, rx753_tgt, $I11, 1
- ne $S10, ":", rx753_fail
- add rx753_pos, 1
+ add $I11, rx758_pos, 1
+ gt $I11, rx758_eos, rx758_fail
+ sub $I11, rx758_pos, rx758_off
+ substr $S10, rx758_tgt, $I11, 1
+ ne $S10, ":", rx758_fail
+ add rx758_pos, 1
# rx charclass s
- ge rx753_pos, rx753_eos, rx753_fail
- sub $I10, rx753_pos, rx753_off
- is_cclass $I11, 32, rx753_tgt, $I10
- unless $I11, rx753_fail
- inc rx753_pos
+ ge rx758_pos, rx758_eos, rx758_fail
+ sub $I10, rx758_pos, rx758_off
+ is_cclass $I11, 32, rx758_tgt, $I10
+ unless $I11, rx758_fail
+ inc rx758_pos
# rx subrule "arglist" subtype=capture negate=
- rx753_cur."!cursor_pos"(rx753_pos)
- $P10 = rx753_cur."arglist"()
- unless $P10, rx753_fail
- rx753_cur."!mark_push"(0, -1, 0, $P10)
+ rx758_cur."!cursor_pos"(rx758_pos)
+ $P10 = rx758_cur."arglist"()
+ unless $P10, rx758_fail
+ rx758_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx753_pos = $P10."pos"()
- alt761_end:
-.annotate 'line', 356
- (rx753_rep) = rx753_cur."!mark_commit"($I762)
- rxquantr760_done:
-.annotate 'line', 346
+ rx758_pos = $P10."pos"()
+ alt766_end:
+.annotate 'line', 358
+ (rx758_rep) = rx758_cur."!mark_commit"($I767)
+ rxquantr765_done:
+.annotate 'line', 348
# rx pass
- rx753_cur."!cursor_pass"(rx753_pos, "dotty")
- rx753_cur."!cursor_debug"("PASS ", "dotty", " at pos=", rx753_pos)
- .return (rx753_cur)
- rx753_fail:
+ rx758_cur."!cursor_pass"(rx758_pos, "dotty")
+ rx758_cur."!cursor_debug"("PASS ", "dotty", " at pos=", rx758_pos)
+ .return (rx758_cur)
+ rx758_fail:
.annotate 'line', 4
- (rx753_rep, rx753_pos, $I10, $P10) = rx753_cur."!mark_fail"(0)
- lt rx753_pos, -1, rx753_done
- eq rx753_pos, -1, rx753_fail
+ (rx758_rep, rx758_pos, $I10, $P10) = rx758_cur."!mark_fail"(0)
+ lt rx758_pos, -1, rx758_done
+ eq rx758_pos, -1, rx758_fail
jump $I10
- rx753_done:
- rx753_cur."!cursor_fail"()
- rx753_cur."!cursor_debug"("FAIL ", "dotty")
- .return (rx753_cur)
+ rx758_done:
+ rx758_cur."!cursor_fail"()
+ rx758_cur."!cursor_debug"("FAIL ", "dotty")
+ .return (rx758_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__dotty" :subid("170_1274564776.41408") :method
+.sub "!PREFIX__dotty" :subid("172_1275117591.97262") :method
.annotate 'line', 4
- $P755 = self."!PREFIX__!subrule"("longname=identifier", ".")
- new $P756, "ResizablePMCArray"
- push $P756, "'"
- push $P756, "\""
- push $P756, $P755
- .return ($P756)
+ $P760 = self."!PREFIX__!subrule"("longname=identifier", ".")
+ new $P761, "ResizablePMCArray"
+ push $P761, "'"
+ push $P761, "\""
+ push $P761, $P760
+ .return ($P761)
.end
.namespace ["NQP";"Grammar"]
-.sub "term" :subid("171_1274564776.41408") :method
-.annotate 'line', 360
- $P764 = self."!protoregex"("term")
- .return ($P764)
+.sub "term" :subid("173_1275117591.97262") :method
+.annotate 'line', 362
+ $P769 = self."!protoregex"("term")
+ .return ($P769)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term" :subid("172_1274564776.41408") :method
-.annotate 'line', 360
- $P766 = self."!PREFIX__!protoregex"("term")
- .return ($P766)
+.sub "!PREFIX__term" :subid("174_1275117591.97262") :method
+.annotate 'line', 362
+ $P771 = self."!PREFIX__!protoregex"("term")
+ .return ($P771)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<self>" :subid("173_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<self>" :subid("175_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx768_tgt
- .local int rx768_pos
- .local int rx768_off
- .local int rx768_eos
- .local int rx768_rep
- .local pmc rx768_cur
- (rx768_cur, rx768_pos, rx768_tgt) = self."!cursor_start"()
- rx768_cur."!cursor_debug"("START ", "term:sym<self>")
- .lex unicode:"$\x{a2}", rx768_cur
- .local pmc match
- .lex "$/", match
- length rx768_eos, rx768_tgt
- set rx768_off, 0
- lt rx768_pos, 2, rx768_start
- sub rx768_off, rx768_pos, 1
- substr rx768_tgt, rx768_tgt, rx768_off
- rx768_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan771_done
- goto rxscan771_scan
- rxscan771_loop:
- ($P10) = rx768_cur."from"()
- inc $P10
- set rx768_pos, $P10
- ge rx768_pos, rx768_eos, rxscan771_done
- rxscan771_scan:
- set_addr $I10, rxscan771_loop
- rx768_cur."!mark_push"(0, rx768_pos, $I10)
- rxscan771_done:
-.annotate 'line', 362
+ .local string rx773_tgt
+ .local int rx773_pos
+ .local int rx773_off
+ .local int rx773_eos
+ .local int rx773_rep
+ .local pmc rx773_cur
+ (rx773_cur, rx773_pos, rx773_tgt) = self."!cursor_start"()
+ rx773_cur."!cursor_debug"("START ", "term:sym<self>")
+ .lex unicode:"$\x{a2}", rx773_cur
+ .local pmc match
+ .lex "$/", match
+ length rx773_eos, rx773_tgt
+ set rx773_off, 0
+ lt rx773_pos, 2, rx773_start
+ sub rx773_off, rx773_pos, 1
+ substr rx773_tgt, rx773_tgt, rx773_off
+ rx773_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan776_done
+ goto rxscan776_scan
+ rxscan776_loop:
+ ($P10) = rx773_cur."from"()
+ inc $P10
+ set rx773_pos, $P10
+ ge rx773_pos, rx773_eos, rxscan776_done
+ rxscan776_scan:
+ set_addr $I10, rxscan776_loop
+ rx773_cur."!mark_push"(0, rx773_pos, $I10)
+ rxscan776_done:
+.annotate 'line', 364
# rx subcapture "sym"
- set_addr $I10, rxcap_772_fail
- rx768_cur."!mark_push"(0, rx768_pos, $I10)
+ set_addr $I10, rxcap_777_fail
+ rx773_cur."!mark_push"(0, rx773_pos, $I10)
# rx literal "self"
- add $I11, rx768_pos, 4
- gt $I11, rx768_eos, rx768_fail
- sub $I11, rx768_pos, rx768_off
- substr $S10, rx768_tgt, $I11, 4
- ne $S10, "self", rx768_fail
- add rx768_pos, 4
- set_addr $I10, rxcap_772_fail
- ($I12, $I11) = rx768_cur."!mark_peek"($I10)
- rx768_cur."!cursor_pos"($I11)
- ($P10) = rx768_cur."!cursor_start"()
- $P10."!cursor_pass"(rx768_pos, "")
- rx768_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx773_pos, 4
+ gt $I11, rx773_eos, rx773_fail
+ sub $I11, rx773_pos, rx773_off
+ substr $S10, rx773_tgt, $I11, 4
+ ne $S10, "self", rx773_fail
+ add rx773_pos, 4
+ set_addr $I10, rxcap_777_fail
+ ($I12, $I11) = rx773_cur."!mark_peek"($I10)
+ rx773_cur."!cursor_pos"($I11)
+ ($P10) = rx773_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx773_pos, "")
+ rx773_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_772_done
- rxcap_772_fail:
- goto rx768_fail
- rxcap_772_done:
+ goto rxcap_777_done
+ rxcap_777_fail:
+ goto rx773_fail
+ rxcap_777_done:
# rxanchor rwb
- le rx768_pos, 0, rx768_fail
- sub $I10, rx768_pos, rx768_off
- is_cclass $I11, 8192, rx768_tgt, $I10
- if $I11, rx768_fail
+ le rx773_pos, 0, rx773_fail
+ sub $I10, rx773_pos, rx773_off
+ is_cclass $I11, 8192, rx773_tgt, $I10
+ if $I11, rx773_fail
dec $I10
- is_cclass $I11, 8192, rx768_tgt, $I10
- unless $I11, rx768_fail
+ is_cclass $I11, 8192, rx773_tgt, $I10
+ unless $I11, rx773_fail
# rx pass
- rx768_cur."!cursor_pass"(rx768_pos, "term:sym<self>")
- rx768_cur."!cursor_debug"("PASS ", "term:sym<self>", " at pos=", rx768_pos)
- .return (rx768_cur)
- rx768_fail:
+ rx773_cur."!cursor_pass"(rx773_pos, "term:sym<self>")
+ rx773_cur."!cursor_debug"("PASS ", "term:sym<self>", " at pos=", rx773_pos)
+ .return (rx773_cur)
+ rx773_fail:
.annotate 'line', 4
- (rx768_rep, rx768_pos, $I10, $P10) = rx768_cur."!mark_fail"(0)
- lt rx768_pos, -1, rx768_done
- eq rx768_pos, -1, rx768_fail
+ (rx773_rep, rx773_pos, $I10, $P10) = rx773_cur."!mark_fail"(0)
+ lt rx773_pos, -1, rx773_done
+ eq rx773_pos, -1, rx773_fail
jump $I10
- rx768_done:
- rx768_cur."!cursor_fail"()
- rx768_cur."!cursor_debug"("FAIL ", "term:sym<self>")
- .return (rx768_cur)
+ rx773_done:
+ rx773_cur."!cursor_fail"()
+ rx773_cur."!cursor_debug"("FAIL ", "term:sym<self>")
+ .return (rx773_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<self>" :subid("174_1274564776.41408") :method
+.sub "!PREFIX__term:sym<self>" :subid("176_1275117591.97262") :method
.annotate 'line', 4
- new $P770, "ResizablePMCArray"
- push $P770, "self"
- .return ($P770)
+ new $P775, "ResizablePMCArray"
+ push $P775, "self"
+ .return ($P775)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<identifier>" :subid("175_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<identifier>" :subid("177_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx774_tgt
- .local int rx774_pos
- .local int rx774_off
- .local int rx774_eos
- .local int rx774_rep
- .local pmc rx774_cur
- (rx774_cur, rx774_pos, rx774_tgt) = self."!cursor_start"()
- rx774_cur."!cursor_debug"("START ", "term:sym<identifier>")
- .lex unicode:"$\x{a2}", rx774_cur
+ .local string rx779_tgt
+ .local int rx779_pos
+ .local int rx779_off
+ .local int rx779_eos
+ .local int rx779_rep
+ .local pmc rx779_cur
+ (rx779_cur, rx779_pos, rx779_tgt) = self."!cursor_start"()
+ rx779_cur."!cursor_debug"("START ", "term:sym<identifier>")
+ .lex unicode:"$\x{a2}", rx779_cur
.local pmc match
.lex "$/", match
- length rx774_eos, rx774_tgt
- set rx774_off, 0
- lt rx774_pos, 2, rx774_start
- sub rx774_off, rx774_pos, 1
- substr rx774_tgt, rx774_tgt, rx774_off
- rx774_start:
+ length rx779_eos, rx779_tgt
+ set rx779_off, 0
+ lt rx779_pos, 2, rx779_start
+ sub rx779_off, rx779_pos, 1
+ substr rx779_tgt, rx779_tgt, rx779_off
+ rx779_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan778_done
- goto rxscan778_scan
- rxscan778_loop:
- ($P10) = rx774_cur."from"()
+ ne $I10, -1, rxscan783_done
+ goto rxscan783_scan
+ rxscan783_loop:
+ ($P10) = rx779_cur."from"()
inc $P10
- set rx774_pos, $P10
- ge rx774_pos, rx774_eos, rxscan778_done
- rxscan778_scan:
- set_addr $I10, rxscan778_loop
- rx774_cur."!mark_push"(0, rx774_pos, $I10)
- rxscan778_done:
-.annotate 'line', 365
+ set rx779_pos, $P10
+ ge rx779_pos, rx779_eos, rxscan783_done
+ rxscan783_scan:
+ set_addr $I10, rxscan783_loop
+ rx779_cur."!mark_push"(0, rx779_pos, $I10)
+ rxscan783_done:
+.annotate 'line', 367
# rx subrule "identifier" subtype=capture negate=
- rx774_cur."!cursor_pos"(rx774_pos)
- $P10 = rx774_cur."identifier"()
- unless $P10, rx774_fail
- rx774_cur."!mark_push"(0, -1, 0, $P10)
+ rx779_cur."!cursor_pos"(rx779_pos)
+ $P10 = rx779_cur."identifier"()
+ unless $P10, rx779_fail
+ rx779_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx774_pos = $P10."pos"()
+ rx779_pos = $P10."pos"()
# rx enumcharlist negate=0 zerowidth
- ge rx774_pos, rx774_eos, rx774_fail
- sub $I10, rx774_pos, rx774_off
- substr $S10, rx774_tgt, $I10, 1
+ ge rx779_pos, rx779_eos, rx779_fail
+ sub $I10, rx779_pos, rx779_off
+ substr $S10, rx779_tgt, $I10, 1
index $I11, "(", $S10
- lt $I11, 0, rx774_fail
+ lt $I11, 0, rx779_fail
# rx subrule "args" subtype=capture negate=
- rx774_cur."!cursor_pos"(rx774_pos)
- $P10 = rx774_cur."args"()
- unless $P10, rx774_fail
- rx774_cur."!mark_push"(0, -1, 0, $P10)
+ rx779_cur."!cursor_pos"(rx779_pos)
+ $P10 = rx779_cur."args"()
+ unless $P10, rx779_fail
+ rx779_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx774_pos = $P10."pos"()
-.annotate 'line', 364
+ rx779_pos = $P10."pos"()
+.annotate 'line', 366
# rx pass
- rx774_cur."!cursor_pass"(rx774_pos, "term:sym<identifier>")
- rx774_cur."!cursor_debug"("PASS ", "term:sym<identifier>", " at pos=", rx774_pos)
- .return (rx774_cur)
- rx774_fail:
+ rx779_cur."!cursor_pass"(rx779_pos, "term:sym<identifier>")
+ rx779_cur."!cursor_debug"("PASS ", "term:sym<identifier>", " at pos=", rx779_pos)
+ .return (rx779_cur)
+ rx779_fail:
.annotate 'line', 4
- (rx774_rep, rx774_pos, $I10, $P10) = rx774_cur."!mark_fail"(0)
- lt rx774_pos, -1, rx774_done
- eq rx774_pos, -1, rx774_fail
+ (rx779_rep, rx779_pos, $I10, $P10) = rx779_cur."!mark_fail"(0)
+ lt rx779_pos, -1, rx779_done
+ eq rx779_pos, -1, rx779_fail
jump $I10
- rx774_done:
- rx774_cur."!cursor_fail"()
- rx774_cur."!cursor_debug"("FAIL ", "term:sym<identifier>")
- .return (rx774_cur)
+ rx779_done:
+ rx779_cur."!cursor_fail"()
+ rx779_cur."!cursor_debug"("FAIL ", "term:sym<identifier>")
+ .return (rx779_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<identifier>" :subid("176_1274564776.41408") :method
+.sub "!PREFIX__term:sym<identifier>" :subid("178_1275117591.97262") :method
.annotate 'line', 4
- $P776 = self."!PREFIX__!subrule"("identifier", "")
- new $P777, "ResizablePMCArray"
- push $P777, $P776
- .return ($P777)
+ $P781 = self."!PREFIX__!subrule"("identifier", "")
+ new $P782, "ResizablePMCArray"
+ push $P782, $P781
+ .return ($P782)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<name>" :subid("177_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<name>" :subid("179_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx780_tgt
- .local int rx780_pos
- .local int rx780_off
- .local int rx780_eos
- .local int rx780_rep
- .local pmc rx780_cur
- (rx780_cur, rx780_pos, rx780_tgt) = self."!cursor_start"()
- rx780_cur."!cursor_debug"("START ", "term:sym<name>")
- rx780_cur."!cursor_caparray"("args")
- .lex unicode:"$\x{a2}", rx780_cur
- .local pmc match
- .lex "$/", match
- length rx780_eos, rx780_tgt
- set rx780_off, 0
- lt rx780_pos, 2, rx780_start
- sub rx780_off, rx780_pos, 1
- substr rx780_tgt, rx780_tgt, rx780_off
- rx780_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan784_done
- goto rxscan784_scan
- rxscan784_loop:
- ($P10) = rx780_cur."from"()
- inc $P10
- set rx780_pos, $P10
- ge rx780_pos, rx780_eos, rxscan784_done
- rxscan784_scan:
- set_addr $I10, rxscan784_loop
- rx780_cur."!mark_push"(0, rx780_pos, $I10)
- rxscan784_done:
-.annotate 'line', 369
+ .local string rx785_tgt
+ .local int rx785_pos
+ .local int rx785_off
+ .local int rx785_eos
+ .local int rx785_rep
+ .local pmc rx785_cur
+ (rx785_cur, rx785_pos, rx785_tgt) = self."!cursor_start"()
+ rx785_cur."!cursor_debug"("START ", "term:sym<name>")
+ rx785_cur."!cursor_caparray"("args")
+ .lex unicode:"$\x{a2}", rx785_cur
+ .local pmc match
+ .lex "$/", match
+ length rx785_eos, rx785_tgt
+ set rx785_off, 0
+ lt rx785_pos, 2, rx785_start
+ sub rx785_off, rx785_pos, 1
+ substr rx785_tgt, rx785_tgt, rx785_off
+ rx785_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan789_done
+ goto rxscan789_scan
+ rxscan789_loop:
+ ($P10) = rx785_cur."from"()
+ inc $P10
+ set rx785_pos, $P10
+ ge rx785_pos, rx785_eos, rxscan789_done
+ rxscan789_scan:
+ set_addr $I10, rxscan789_loop
+ rx785_cur."!mark_push"(0, rx785_pos, $I10)
+ rxscan789_done:
+.annotate 'line', 371
# rx subrule "name" subtype=capture negate=
- rx780_cur."!cursor_pos"(rx780_pos)
- $P10 = rx780_cur."name"()
- unless $P10, rx780_fail
- rx780_cur."!mark_push"(0, -1, 0, $P10)
+ rx785_cur."!cursor_pos"(rx785_pos)
+ $P10 = rx785_cur."name"()
+ unless $P10, rx785_fail
+ rx785_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- rx780_pos = $P10."pos"()
- # rx rxquantr785 ** 0..1
- set_addr $I786, rxquantr785_done
- rx780_cur."!mark_push"(0, rx780_pos, $I786)
- rxquantr785_loop:
+ rx785_pos = $P10."pos"()
+ # rx rxquantr790 ** 0..1
+ set_addr $I791, rxquantr790_done
+ rx785_cur."!mark_push"(0, rx785_pos, $I791)
+ rxquantr790_loop:
# rx subrule "args" subtype=capture negate=
- rx780_cur."!cursor_pos"(rx780_pos)
- $P10 = rx780_cur."args"()
- unless $P10, rx780_fail
- rx780_cur."!mark_push"(0, -1, 0, $P10)
+ rx785_cur."!cursor_pos"(rx785_pos)
+ $P10 = rx785_cur."args"()
+ unless $P10, rx785_fail
+ rx785_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx780_pos = $P10."pos"()
- (rx780_rep) = rx780_cur."!mark_commit"($I786)
- rxquantr785_done:
-.annotate 'line', 368
+ rx785_pos = $P10."pos"()
+ (rx785_rep) = rx785_cur."!mark_commit"($I791)
+ rxquantr790_done:
+.annotate 'line', 370
# rx pass
- rx780_cur."!cursor_pass"(rx780_pos, "term:sym<name>")
- rx780_cur."!cursor_debug"("PASS ", "term:sym<name>", " at pos=", rx780_pos)
- .return (rx780_cur)
- rx780_fail:
+ rx785_cur."!cursor_pass"(rx785_pos, "term:sym<name>")
+ rx785_cur."!cursor_debug"("PASS ", "term:sym<name>", " at pos=", rx785_pos)
+ .return (rx785_cur)
+ rx785_fail:
.annotate 'line', 4
- (rx780_rep, rx780_pos, $I10, $P10) = rx780_cur."!mark_fail"(0)
- lt rx780_pos, -1, rx780_done
- eq rx780_pos, -1, rx780_fail
+ (rx785_rep, rx785_pos, $I10, $P10) = rx785_cur."!mark_fail"(0)
+ lt rx785_pos, -1, rx785_done
+ eq rx785_pos, -1, rx785_fail
jump $I10
- rx780_done:
- rx780_cur."!cursor_fail"()
- rx780_cur."!cursor_debug"("FAIL ", "term:sym<name>")
- .return (rx780_cur)
+ rx785_done:
+ rx785_cur."!cursor_fail"()
+ rx785_cur."!cursor_debug"("FAIL ", "term:sym<name>")
+ .return (rx785_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<name>" :subid("178_1274564776.41408") :method
+.sub "!PREFIX__term:sym<name>" :subid("180_1275117591.97262") :method
.annotate 'line', 4
- $P782 = self."!PREFIX__!subrule"("name", "")
- new $P783, "ResizablePMCArray"
- push $P783, $P782
- .return ($P783)
+ $P787 = self."!PREFIX__!subrule"("name", "")
+ new $P788, "ResizablePMCArray"
+ push $P788, $P787
+ .return ($P788)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<pir::op>" :subid("179_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<pir::op>" :subid("181_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx788_tgt
- .local int rx788_pos
- .local int rx788_off
- .local int rx788_eos
- .local int rx788_rep
- .local pmc rx788_cur
- (rx788_cur, rx788_pos, rx788_tgt) = self."!cursor_start"()
- rx788_cur."!cursor_debug"("START ", "term:sym<pir::op>")
- rx788_cur."!cursor_caparray"("args")
- .lex unicode:"$\x{a2}", rx788_cur
+ .local string rx793_tgt
+ .local int rx793_pos
+ .local int rx793_off
+ .local int rx793_eos
+ .local int rx793_rep
+ .local pmc rx793_cur
+ (rx793_cur, rx793_pos, rx793_tgt) = self."!cursor_start"()
+ rx793_cur."!cursor_debug"("START ", "term:sym<pir::op>")
+ rx793_cur."!cursor_caparray"("args")
+ .lex unicode:"$\x{a2}", rx793_cur
.local pmc match
.lex "$/", match
- length rx788_eos, rx788_tgt
- set rx788_off, 0
- lt rx788_pos, 2, rx788_start
- sub rx788_off, rx788_pos, 1
- substr rx788_tgt, rx788_tgt, rx788_off
- rx788_start:
+ length rx793_eos, rx793_tgt
+ set rx793_off, 0
+ lt rx793_pos, 2, rx793_start
+ sub rx793_off, rx793_pos, 1
+ substr rx793_tgt, rx793_tgt, rx793_off
+ rx793_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan791_done
- goto rxscan791_scan
- rxscan791_loop:
- ($P10) = rx788_cur."from"()
+ ne $I10, -1, rxscan796_done
+ goto rxscan796_scan
+ rxscan796_loop:
+ ($P10) = rx793_cur."from"()
inc $P10
- set rx788_pos, $P10
- ge rx788_pos, rx788_eos, rxscan791_done
- rxscan791_scan:
- set_addr $I10, rxscan791_loop
- rx788_cur."!mark_push"(0, rx788_pos, $I10)
- rxscan791_done:
-.annotate 'line', 373
+ set rx793_pos, $P10
+ ge rx793_pos, rx793_eos, rxscan796_done
+ rxscan796_scan:
+ set_addr $I10, rxscan796_loop
+ rx793_cur."!mark_push"(0, rx793_pos, $I10)
+ rxscan796_done:
+.annotate 'line', 375
# rx literal "pir::"
- add $I11, rx788_pos, 5
- gt $I11, rx788_eos, rx788_fail
- sub $I11, rx788_pos, rx788_off
- substr $S10, rx788_tgt, $I11, 5
- ne $S10, "pir::", rx788_fail
- add rx788_pos, 5
+ add $I11, rx793_pos, 5
+ gt $I11, rx793_eos, rx793_fail
+ sub $I11, rx793_pos, rx793_off
+ substr $S10, rx793_tgt, $I11, 5
+ ne $S10, "pir::", rx793_fail
+ add rx793_pos, 5
# rx subcapture "op"
- set_addr $I10, rxcap_792_fail
- rx788_cur."!mark_push"(0, rx788_pos, $I10)
+ set_addr $I10, rxcap_797_fail
+ rx793_cur."!mark_push"(0, rx793_pos, $I10)
# rx charclass_q w r 1..-1
- sub $I10, rx788_pos, rx788_off
- find_not_cclass $I11, 8192, rx788_tgt, $I10, rx788_eos
+ sub $I10, rx793_pos, rx793_off
+ find_not_cclass $I11, 8192, rx793_tgt, $I10, rx793_eos
add $I12, $I10, 1
- lt $I11, $I12, rx788_fail
- add rx788_pos, rx788_off, $I11
- set_addr $I10, rxcap_792_fail
- ($I12, $I11) = rx788_cur."!mark_peek"($I10)
- rx788_cur."!cursor_pos"($I11)
- ($P10) = rx788_cur."!cursor_start"()
- $P10."!cursor_pass"(rx788_pos, "")
- rx788_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx793_fail
+ add rx793_pos, rx793_off, $I11
+ set_addr $I10, rxcap_797_fail
+ ($I12, $I11) = rx793_cur."!mark_peek"($I10)
+ rx793_cur."!cursor_pos"($I11)
+ ($P10) = rx793_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx793_pos, "")
+ rx793_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("op")
- goto rxcap_792_done
- rxcap_792_fail:
- goto rx788_fail
- rxcap_792_done:
- # rx rxquantr793 ** 0..1
- set_addr $I794, rxquantr793_done
- rx788_cur."!mark_push"(0, rx788_pos, $I794)
- rxquantr793_loop:
+ goto rxcap_797_done
+ rxcap_797_fail:
+ goto rx793_fail
+ rxcap_797_done:
+ # rx rxquantr798 ** 0..1
+ set_addr $I799, rxquantr798_done
+ rx793_cur."!mark_push"(0, rx793_pos, $I799)
+ rxquantr798_loop:
# rx subrule "args" subtype=capture negate=
- rx788_cur."!cursor_pos"(rx788_pos)
- $P10 = rx788_cur."args"()
- unless $P10, rx788_fail
- rx788_cur."!mark_push"(0, -1, 0, $P10)
+ rx793_cur."!cursor_pos"(rx793_pos)
+ $P10 = rx793_cur."args"()
+ unless $P10, rx793_fail
+ rx793_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx788_pos = $P10."pos"()
- (rx788_rep) = rx788_cur."!mark_commit"($I794)
- rxquantr793_done:
-.annotate 'line', 372
+ rx793_pos = $P10."pos"()
+ (rx793_rep) = rx793_cur."!mark_commit"($I799)
+ rxquantr798_done:
+.annotate 'line', 374
# rx pass
- rx788_cur."!cursor_pass"(rx788_pos, "term:sym<pir::op>")
- rx788_cur."!cursor_debug"("PASS ", "term:sym<pir::op>", " at pos=", rx788_pos)
- .return (rx788_cur)
- rx788_fail:
+ rx793_cur."!cursor_pass"(rx793_pos, "term:sym<pir::op>")
+ rx793_cur."!cursor_debug"("PASS ", "term:sym<pir::op>", " at pos=", rx793_pos)
+ .return (rx793_cur)
+ rx793_fail:
.annotate 'line', 4
- (rx788_rep, rx788_pos, $I10, $P10) = rx788_cur."!mark_fail"(0)
- lt rx788_pos, -1, rx788_done
- eq rx788_pos, -1, rx788_fail
+ (rx793_rep, rx793_pos, $I10, $P10) = rx793_cur."!mark_fail"(0)
+ lt rx793_pos, -1, rx793_done
+ eq rx793_pos, -1, rx793_fail
jump $I10
- rx788_done:
- rx788_cur."!cursor_fail"()
- rx788_cur."!cursor_debug"("FAIL ", "term:sym<pir::op>")
- .return (rx788_cur)
+ rx793_done:
+ rx793_cur."!cursor_fail"()
+ rx793_cur."!cursor_debug"("FAIL ", "term:sym<pir::op>")
+ .return (rx793_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<pir::op>" :subid("180_1274564776.41408") :method
+.sub "!PREFIX__term:sym<pir::op>" :subid("182_1275117591.97262") :method
.annotate 'line', 4
- new $P790, "ResizablePMCArray"
- push $P790, "pir::"
- .return ($P790)
+ new $P795, "ResizablePMCArray"
+ push $P795, "pir::"
+ .return ($P795)
.end
.namespace ["NQP";"Grammar"]
-.sub "args" :subid("181_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "args" :subid("183_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx796_tgt
- .local int rx796_pos
- .local int rx796_off
- .local int rx796_eos
- .local int rx796_rep
- .local pmc rx796_cur
- (rx796_cur, rx796_pos, rx796_tgt) = self."!cursor_start"()
- rx796_cur."!cursor_debug"("START ", "args")
- .lex unicode:"$\x{a2}", rx796_cur
+ .local string rx801_tgt
+ .local int rx801_pos
+ .local int rx801_off
+ .local int rx801_eos
+ .local int rx801_rep
+ .local pmc rx801_cur
+ (rx801_cur, rx801_pos, rx801_tgt) = self."!cursor_start"()
+ rx801_cur."!cursor_debug"("START ", "args")
+ .lex unicode:"$\x{a2}", rx801_cur
.local pmc match
.lex "$/", match
- length rx796_eos, rx796_tgt
- set rx796_off, 0
- lt rx796_pos, 2, rx796_start
- sub rx796_off, rx796_pos, 1
- substr rx796_tgt, rx796_tgt, rx796_off
- rx796_start:
+ length rx801_eos, rx801_tgt
+ set rx801_off, 0
+ lt rx801_pos, 2, rx801_start
+ sub rx801_off, rx801_pos, 1
+ substr rx801_tgt, rx801_tgt, rx801_off
+ rx801_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan800_done
- goto rxscan800_scan
- rxscan800_loop:
- ($P10) = rx796_cur."from"()
+ ne $I10, -1, rxscan805_done
+ goto rxscan805_scan
+ rxscan805_loop:
+ ($P10) = rx801_cur."from"()
inc $P10
- set rx796_pos, $P10
- ge rx796_pos, rx796_eos, rxscan800_done
- rxscan800_scan:
- set_addr $I10, rxscan800_loop
- rx796_cur."!mark_push"(0, rx796_pos, $I10)
- rxscan800_done:
-.annotate 'line', 377
+ set rx801_pos, $P10
+ ge rx801_pos, rx801_eos, rxscan805_done
+ rxscan805_scan:
+ set_addr $I10, rxscan805_loop
+ rx801_cur."!mark_push"(0, rx801_pos, $I10)
+ rxscan805_done:
+.annotate 'line', 379
# rx literal "("
- add $I11, rx796_pos, 1
- gt $I11, rx796_eos, rx796_fail
- sub $I11, rx796_pos, rx796_off
- substr $S10, rx796_tgt, $I11, 1
- ne $S10, "(", rx796_fail
- add rx796_pos, 1
+ add $I11, rx801_pos, 1
+ gt $I11, rx801_eos, rx801_fail
+ sub $I11, rx801_pos, rx801_off
+ substr $S10, rx801_tgt, $I11, 1
+ ne $S10, "(", rx801_fail
+ add rx801_pos, 1
# rx subrule "arglist" subtype=capture negate=
- rx796_cur."!cursor_pos"(rx796_pos)
- $P10 = rx796_cur."arglist"()
- unless $P10, rx796_fail
- rx796_cur."!mark_push"(0, -1, 0, $P10)
+ rx801_cur."!cursor_pos"(rx801_pos)
+ $P10 = rx801_cur."arglist"()
+ unless $P10, rx801_fail
+ rx801_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx796_pos = $P10."pos"()
+ rx801_pos = $P10."pos"()
# rx literal ")"
- add $I11, rx796_pos, 1
- gt $I11, rx796_eos, rx796_fail
- sub $I11, rx796_pos, rx796_off
- substr $S10, rx796_tgt, $I11, 1
- ne $S10, ")", rx796_fail
- add rx796_pos, 1
+ add $I11, rx801_pos, 1
+ gt $I11, rx801_eos, rx801_fail
+ sub $I11, rx801_pos, rx801_off
+ substr $S10, rx801_tgt, $I11, 1
+ ne $S10, ")", rx801_fail
+ add rx801_pos, 1
# rx pass
- rx796_cur."!cursor_pass"(rx796_pos, "args")
- rx796_cur."!cursor_debug"("PASS ", "args", " at pos=", rx796_pos)
- .return (rx796_cur)
- rx796_fail:
+ rx801_cur."!cursor_pass"(rx801_pos, "args")
+ rx801_cur."!cursor_debug"("PASS ", "args", " at pos=", rx801_pos)
+ .return (rx801_cur)
+ rx801_fail:
.annotate 'line', 4
- (rx796_rep, rx796_pos, $I10, $P10) = rx796_cur."!mark_fail"(0)
- lt rx796_pos, -1, rx796_done
- eq rx796_pos, -1, rx796_fail
+ (rx801_rep, rx801_pos, $I10, $P10) = rx801_cur."!mark_fail"(0)
+ lt rx801_pos, -1, rx801_done
+ eq rx801_pos, -1, rx801_fail
jump $I10
- rx796_done:
- rx796_cur."!cursor_fail"()
- rx796_cur."!cursor_debug"("FAIL ", "args")
- .return (rx796_cur)
+ rx801_done:
+ rx801_cur."!cursor_fail"()
+ rx801_cur."!cursor_debug"("FAIL ", "args")
+ .return (rx801_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__args" :subid("182_1274564776.41408") :method
+.sub "!PREFIX__args" :subid("184_1275117591.97262") :method
.annotate 'line', 4
- $P798 = self."!PREFIX__!subrule"("arglist", "(")
- new $P799, "ResizablePMCArray"
- push $P799, $P798
- .return ($P799)
+ $P803 = self."!PREFIX__!subrule"("arglist", "(")
+ new $P804, "ResizablePMCArray"
+ push $P804, $P803
+ .return ($P804)
.end
.namespace ["NQP";"Grammar"]
-.sub "arglist" :subid("183_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "arglist" :subid("185_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx802_tgt
- .local int rx802_pos
- .local int rx802_off
- .local int rx802_eos
- .local int rx802_rep
- .local pmc rx802_cur
- (rx802_cur, rx802_pos, rx802_tgt) = self."!cursor_start"()
- rx802_cur."!cursor_debug"("START ", "arglist")
- .lex unicode:"$\x{a2}", rx802_cur
+ .local string rx807_tgt
+ .local int rx807_pos
+ .local int rx807_off
+ .local int rx807_eos
+ .local int rx807_rep
+ .local pmc rx807_cur
+ (rx807_cur, rx807_pos, rx807_tgt) = self."!cursor_start"()
+ rx807_cur."!cursor_debug"("START ", "arglist")
+ .lex unicode:"$\x{a2}", rx807_cur
.local pmc match
.lex "$/", match
- length rx802_eos, rx802_tgt
- set rx802_off, 0
- lt rx802_pos, 2, rx802_start
- sub rx802_off, rx802_pos, 1
- substr rx802_tgt, rx802_tgt, rx802_off
- rx802_start:
+ length rx807_eos, rx807_tgt
+ set rx807_off, 0
+ lt rx807_pos, 2, rx807_start
+ sub rx807_off, rx807_pos, 1
+ substr rx807_tgt, rx807_tgt, rx807_off
+ rx807_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan806_done
- goto rxscan806_scan
- rxscan806_loop:
- ($P10) = rx802_cur."from"()
+ ne $I10, -1, rxscan811_done
+ goto rxscan811_scan
+ rxscan811_loop:
+ ($P10) = rx807_cur."from"()
inc $P10
- set rx802_pos, $P10
- ge rx802_pos, rx802_eos, rxscan806_done
- rxscan806_scan:
- set_addr $I10, rxscan806_loop
- rx802_cur."!mark_push"(0, rx802_pos, $I10)
- rxscan806_done:
-.annotate 'line', 381
- # rx subrule "ws" subtype=method negate=
- rx802_cur."!cursor_pos"(rx802_pos)
- $P10 = rx802_cur."ws"()
- unless $P10, rx802_fail
- rx802_pos = $P10."pos"()
- alt807_0:
-.annotate 'line', 382
- set_addr $I10, alt807_1
- rx802_cur."!mark_push"(0, rx802_pos, $I10)
+ set rx807_pos, $P10
+ ge rx807_pos, rx807_eos, rxscan811_done
+ rxscan811_scan:
+ set_addr $I10, rxscan811_loop
+ rx807_cur."!mark_push"(0, rx807_pos, $I10)
+ rxscan811_done:
.annotate 'line', 383
+ # rx subrule "ws" subtype=method negate=
+ rx807_cur."!cursor_pos"(rx807_pos)
+ $P10 = rx807_cur."ws"()
+ unless $P10, rx807_fail
+ rx807_pos = $P10."pos"()
+ alt812_0:
+.annotate 'line', 384
+ set_addr $I10, alt812_1
+ rx807_cur."!mark_push"(0, rx807_pos, $I10)
+.annotate 'line', 385
# rx subrule "EXPR" subtype=capture negate=
- rx802_cur."!cursor_pos"(rx802_pos)
- $P10 = rx802_cur."EXPR"("f=")
- unless $P10, rx802_fail
- rx802_cur."!mark_push"(0, -1, 0, $P10)
+ rx807_cur."!cursor_pos"(rx807_pos)
+ $P10 = rx807_cur."EXPR"("f=")
+ unless $P10, rx807_fail
+ rx807_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx802_pos = $P10."pos"()
- goto alt807_end
- alt807_1:
- alt807_end:
-.annotate 'line', 380
+ rx807_pos = $P10."pos"()
+ goto alt812_end
+ alt812_1:
+ alt812_end:
+.annotate 'line', 382
# rx pass
- rx802_cur."!cursor_pass"(rx802_pos, "arglist")
- rx802_cur."!cursor_debug"("PASS ", "arglist", " at pos=", rx802_pos)
- .return (rx802_cur)
- rx802_fail:
+ rx807_cur."!cursor_pass"(rx807_pos, "arglist")
+ rx807_cur."!cursor_debug"("PASS ", "arglist", " at pos=", rx807_pos)
+ .return (rx807_cur)
+ rx807_fail:
.annotate 'line', 4
- (rx802_rep, rx802_pos, $I10, $P10) = rx802_cur."!mark_fail"(0)
- lt rx802_pos, -1, rx802_done
- eq rx802_pos, -1, rx802_fail
+ (rx807_rep, rx807_pos, $I10, $P10) = rx807_cur."!mark_fail"(0)
+ lt rx807_pos, -1, rx807_done
+ eq rx807_pos, -1, rx807_fail
jump $I10
- rx802_done:
- rx802_cur."!cursor_fail"()
- rx802_cur."!cursor_debug"("FAIL ", "arglist")
- .return (rx802_cur)
+ rx807_done:
+ rx807_cur."!cursor_fail"()
+ rx807_cur."!cursor_debug"("FAIL ", "arglist")
+ .return (rx807_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__arglist" :subid("184_1274564776.41408") :method
+.sub "!PREFIX__arglist" :subid("186_1275117591.97262") :method
.annotate 'line', 4
- $P804 = self."!PREFIX__!subrule"("", "")
- new $P805, "ResizablePMCArray"
- push $P805, $P804
- .return ($P805)
+ $P809 = self."!PREFIX__!subrule"("", "")
+ new $P810, "ResizablePMCArray"
+ push $P810, $P809
+ .return ($P810)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<value>" :subid("185_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "term:sym<value>" :subid("187_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx809_tgt
- .local int rx809_pos
- .local int rx809_off
- .local int rx809_eos
- .local int rx809_rep
- .local pmc rx809_cur
- (rx809_cur, rx809_pos, rx809_tgt) = self."!cursor_start"()
- rx809_cur."!cursor_debug"("START ", "term:sym<value>")
- .lex unicode:"$\x{a2}", rx809_cur
+ .local string rx814_tgt
+ .local int rx814_pos
+ .local int rx814_off
+ .local int rx814_eos
+ .local int rx814_rep
+ .local pmc rx814_cur
+ (rx814_cur, rx814_pos, rx814_tgt) = self."!cursor_start"()
+ rx814_cur."!cursor_debug"("START ", "term:sym<value>")
+ .lex unicode:"$\x{a2}", rx814_cur
.local pmc match
.lex "$/", match
- length rx809_eos, rx809_tgt
- set rx809_off, 0
- lt rx809_pos, 2, rx809_start
- sub rx809_off, rx809_pos, 1
- substr rx809_tgt, rx809_tgt, rx809_off
- rx809_start:
+ length rx814_eos, rx814_tgt
+ set rx814_off, 0
+ lt rx814_pos, 2, rx814_start
+ sub rx814_off, rx814_pos, 1
+ substr rx814_tgt, rx814_tgt, rx814_off
+ rx814_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan813_done
- goto rxscan813_scan
- rxscan813_loop:
- ($P10) = rx809_cur."from"()
+ ne $I10, -1, rxscan818_done
+ goto rxscan818_scan
+ rxscan818_loop:
+ ($P10) = rx814_cur."from"()
inc $P10
- set rx809_pos, $P10
- ge rx809_pos, rx809_eos, rxscan813_done
- rxscan813_scan:
- set_addr $I10, rxscan813_loop
- rx809_cur."!mark_push"(0, rx809_pos, $I10)
- rxscan813_done:
-.annotate 'line', 389
+ set rx814_pos, $P10
+ ge rx814_pos, rx814_eos, rxscan818_done
+ rxscan818_scan:
+ set_addr $I10, rxscan818_loop
+ rx814_cur."!mark_push"(0, rx814_pos, $I10)
+ rxscan818_done:
+.annotate 'line', 391
# rx subrule "value" subtype=capture negate=
- rx809_cur."!cursor_pos"(rx809_pos)
- $P10 = rx809_cur."value"()
- unless $P10, rx809_fail
- rx809_cur."!mark_push"(0, -1, 0, $P10)
+ rx814_cur."!cursor_pos"(rx814_pos)
+ $P10 = rx814_cur."value"()
+ unless $P10, rx814_fail
+ rx814_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("value")
- rx809_pos = $P10."pos"()
+ rx814_pos = $P10."pos"()
# rx pass
- rx809_cur."!cursor_pass"(rx809_pos, "term:sym<value>")
- rx809_cur."!cursor_debug"("PASS ", "term:sym<value>", " at pos=", rx809_pos)
- .return (rx809_cur)
- rx809_fail:
+ rx814_cur."!cursor_pass"(rx814_pos, "term:sym<value>")
+ rx814_cur."!cursor_debug"("PASS ", "term:sym<value>", " at pos=", rx814_pos)
+ .return (rx814_cur)
+ rx814_fail:
.annotate 'line', 4
- (rx809_rep, rx809_pos, $I10, $P10) = rx809_cur."!mark_fail"(0)
- lt rx809_pos, -1, rx809_done
- eq rx809_pos, -1, rx809_fail
+ (rx814_rep, rx814_pos, $I10, $P10) = rx814_cur."!mark_fail"(0)
+ lt rx814_pos, -1, rx814_done
+ eq rx814_pos, -1, rx814_fail
jump $I10
- rx809_done:
- rx809_cur."!cursor_fail"()
- rx809_cur."!cursor_debug"("FAIL ", "term:sym<value>")
- .return (rx809_cur)
+ rx814_done:
+ rx814_cur."!cursor_fail"()
+ rx814_cur."!cursor_debug"("FAIL ", "term:sym<value>")
+ .return (rx814_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<value>" :subid("186_1274564776.41408") :method
+.sub "!PREFIX__term:sym<value>" :subid("188_1275117591.97262") :method
.annotate 'line', 4
- $P811 = self."!PREFIX__!subrule"("value", "")
- new $P812, "ResizablePMCArray"
- push $P812, $P811
- .return ($P812)
+ $P816 = self."!PREFIX__!subrule"("value", "")
+ new $P817, "ResizablePMCArray"
+ push $P817, $P816
+ .return ($P817)
.end
.namespace ["NQP";"Grammar"]
-.sub "value" :subid("187_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "value" :subid("189_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx815_tgt
- .local int rx815_pos
- .local int rx815_off
- .local int rx815_eos
- .local int rx815_rep
- .local pmc rx815_cur
- (rx815_cur, rx815_pos, rx815_tgt) = self."!cursor_start"()
- rx815_cur."!cursor_debug"("START ", "value")
- .lex unicode:"$\x{a2}", rx815_cur
+ .local string rx820_tgt
+ .local int rx820_pos
+ .local int rx820_off
+ .local int rx820_eos
+ .local int rx820_rep
+ .local pmc rx820_cur
+ (rx820_cur, rx820_pos, rx820_tgt) = self."!cursor_start"()
+ rx820_cur."!cursor_debug"("START ", "value")
+ .lex unicode:"$\x{a2}", rx820_cur
.local pmc match
.lex "$/", match
- length rx815_eos, rx815_tgt
- set rx815_off, 0
- lt rx815_pos, 2, rx815_start
- sub rx815_off, rx815_pos, 1
- substr rx815_tgt, rx815_tgt, rx815_off
- rx815_start:
+ length rx820_eos, rx820_tgt
+ set rx820_off, 0
+ lt rx820_pos, 2, rx820_start
+ sub rx820_off, rx820_pos, 1
+ substr rx820_tgt, rx820_tgt, rx820_off
+ rx820_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan820_done
- goto rxscan820_scan
- rxscan820_loop:
- ($P10) = rx815_cur."from"()
+ ne $I10, -1, rxscan825_done
+ goto rxscan825_scan
+ rxscan825_loop:
+ ($P10) = rx820_cur."from"()
inc $P10
- set rx815_pos, $P10
- ge rx815_pos, rx815_eos, rxscan820_done
- rxscan820_scan:
- set_addr $I10, rxscan820_loop
- rx815_cur."!mark_push"(0, rx815_pos, $I10)
- rxscan820_done:
- alt821_0:
-.annotate 'line', 391
- set_addr $I10, alt821_1
- rx815_cur."!mark_push"(0, rx815_pos, $I10)
-.annotate 'line', 392
+ set rx820_pos, $P10
+ ge rx820_pos, rx820_eos, rxscan825_done
+ rxscan825_scan:
+ set_addr $I10, rxscan825_loop
+ rx820_cur."!mark_push"(0, rx820_pos, $I10)
+ rxscan825_done:
+ alt826_0:
+.annotate 'line', 393
+ set_addr $I10, alt826_1
+ rx820_cur."!mark_push"(0, rx820_pos, $I10)
+.annotate 'line', 394
# rx subrule "quote" subtype=capture negate=
- rx815_cur."!cursor_pos"(rx815_pos)
- $P10 = rx815_cur."quote"()
- unless $P10, rx815_fail
- rx815_cur."!mark_push"(0, -1, 0, $P10)
+ rx820_cur."!cursor_pos"(rx820_pos)
+ $P10 = rx820_cur."quote"()
+ unless $P10, rx820_fail
+ rx820_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote")
- rx815_pos = $P10."pos"()
- goto alt821_end
- alt821_1:
-.annotate 'line', 393
+ rx820_pos = $P10."pos"()
+ goto alt826_end
+ alt826_1:
+.annotate 'line', 395
# rx subrule "number" subtype=capture negate=
- rx815_cur."!cursor_pos"(rx815_pos)
- $P10 = rx815_cur."number"()
- unless $P10, rx815_fail
- rx815_cur."!mark_push"(0, -1, 0, $P10)
+ rx820_cur."!cursor_pos"(rx820_pos)
+ $P10 = rx820_cur."number"()
+ unless $P10, rx820_fail
+ rx820_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("number")
- rx815_pos = $P10."pos"()
- alt821_end:
-.annotate 'line', 391
+ rx820_pos = $P10."pos"()
+ alt826_end:
+.annotate 'line', 393
# rx pass
- rx815_cur."!cursor_pass"(rx815_pos, "value")
- rx815_cur."!cursor_debug"("PASS ", "value", " at pos=", rx815_pos)
- .return (rx815_cur)
- rx815_fail:
+ rx820_cur."!cursor_pass"(rx820_pos, "value")
+ rx820_cur."!cursor_debug"("PASS ", "value", " at pos=", rx820_pos)
+ .return (rx820_cur)
+ rx820_fail:
.annotate 'line', 4
- (rx815_rep, rx815_pos, $I10, $P10) = rx815_cur."!mark_fail"(0)
- lt rx815_pos, -1, rx815_done
- eq rx815_pos, -1, rx815_fail
+ (rx820_rep, rx820_pos, $I10, $P10) = rx820_cur."!mark_fail"(0)
+ lt rx820_pos, -1, rx820_done
+ eq rx820_pos, -1, rx820_fail
jump $I10
- rx815_done:
- rx815_cur."!cursor_fail"()
- rx815_cur."!cursor_debug"("FAIL ", "value")
- .return (rx815_cur)
+ rx820_done:
+ rx820_cur."!cursor_fail"()
+ rx820_cur."!cursor_debug"("FAIL ", "value")
+ .return (rx820_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__value" :subid("188_1274564776.41408") :method
+.sub "!PREFIX__value" :subid("190_1275117591.97262") :method
.annotate 'line', 4
- $P817 = self."!PREFIX__!subrule"("number", "")
- $P818 = self."!PREFIX__!subrule"("quote", "")
- new $P819, "ResizablePMCArray"
- push $P819, $P817
- push $P819, $P818
- .return ($P819)
+ $P822 = self."!PREFIX__!subrule"("number", "")
+ $P823 = self."!PREFIX__!subrule"("quote", "")
+ new $P824, "ResizablePMCArray"
+ push $P824, $P822
+ push $P824, $P823
+ .return ($P824)
.end
.namespace ["NQP";"Grammar"]
-.sub "number" :subid("189_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "number" :subid("191_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx823_tgt
- .local int rx823_pos
- .local int rx823_off
- .local int rx823_eos
- .local int rx823_rep
- .local pmc rx823_cur
- (rx823_cur, rx823_pos, rx823_tgt) = self."!cursor_start"()
- rx823_cur."!cursor_debug"("START ", "number")
- .lex unicode:"$\x{a2}", rx823_cur
+ .local string rx828_tgt
+ .local int rx828_pos
+ .local int rx828_off
+ .local int rx828_eos
+ .local int rx828_rep
+ .local pmc rx828_cur
+ (rx828_cur, rx828_pos, rx828_tgt) = self."!cursor_start"()
+ rx828_cur."!cursor_debug"("START ", "number")
+ .lex unicode:"$\x{a2}", rx828_cur
.local pmc match
.lex "$/", match
- length rx823_eos, rx823_tgt
- set rx823_off, 0
- lt rx823_pos, 2, rx823_start
- sub rx823_off, rx823_pos, 1
- substr rx823_tgt, rx823_tgt, rx823_off
- rx823_start:
+ length rx828_eos, rx828_tgt
+ set rx828_off, 0
+ lt rx828_pos, 2, rx828_start
+ sub rx828_off, rx828_pos, 1
+ substr rx828_tgt, rx828_tgt, rx828_off
+ rx828_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan826_done
- goto rxscan826_scan
- rxscan826_loop:
- ($P10) = rx823_cur."from"()
+ ne $I10, -1, rxscan831_done
+ goto rxscan831_scan
+ rxscan831_loop:
+ ($P10) = rx828_cur."from"()
inc $P10
- set rx823_pos, $P10
- ge rx823_pos, rx823_eos, rxscan826_done
- rxscan826_scan:
- set_addr $I10, rxscan826_loop
- rx823_cur."!mark_push"(0, rx823_pos, $I10)
- rxscan826_done:
-.annotate 'line', 397
+ set rx828_pos, $P10
+ ge rx828_pos, rx828_eos, rxscan831_done
+ rxscan831_scan:
+ set_addr $I10, rxscan831_loop
+ rx828_cur."!mark_push"(0, rx828_pos, $I10)
+ rxscan831_done:
+.annotate 'line', 399
# rx subcapture "sign"
- set_addr $I10, rxcap_829_fail
- rx823_cur."!mark_push"(0, rx823_pos, $I10)
- # rx rxquantr827 ** 0..1
- set_addr $I828, rxquantr827_done
- rx823_cur."!mark_push"(0, rx823_pos, $I828)
- rxquantr827_loop:
+ set_addr $I10, rxcap_834_fail
+ rx828_cur."!mark_push"(0, rx828_pos, $I10)
+ # rx rxquantr832 ** 0..1
+ set_addr $I833, rxquantr832_done
+ rx828_cur."!mark_push"(0, rx828_pos, $I833)
+ rxquantr832_loop:
# rx enumcharlist negate=0
- ge rx823_pos, rx823_eos, rx823_fail
- sub $I10, rx823_pos, rx823_off
- substr $S10, rx823_tgt, $I10, 1
+ ge rx828_pos, rx828_eos, rx828_fail
+ sub $I10, rx828_pos, rx828_off
+ substr $S10, rx828_tgt, $I10, 1
index $I11, "+-", $S10
- lt $I11, 0, rx823_fail
- inc rx823_pos
- (rx823_rep) = rx823_cur."!mark_commit"($I828)
- rxquantr827_done:
- set_addr $I10, rxcap_829_fail
- ($I12, $I11) = rx823_cur."!mark_peek"($I10)
- rx823_cur."!cursor_pos"($I11)
- ($P10) = rx823_cur."!cursor_start"()
- $P10."!cursor_pass"(rx823_pos, "")
- rx823_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx828_fail
+ inc rx828_pos
+ (rx828_rep) = rx828_cur."!mark_commit"($I833)
+ rxquantr832_done:
+ set_addr $I10, rxcap_834_fail
+ ($I12, $I11) = rx828_cur."!mark_peek"($I10)
+ rx828_cur."!cursor_pos"($I11)
+ ($P10) = rx828_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx828_pos, "")
+ rx828_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sign")
- goto rxcap_829_done
- rxcap_829_fail:
- goto rx823_fail
- rxcap_829_done:
- alt830_0:
-.annotate 'line', 398
- set_addr $I10, alt830_1
- rx823_cur."!mark_push"(0, rx823_pos, $I10)
+ goto rxcap_834_done
+ rxcap_834_fail:
+ goto rx828_fail
+ rxcap_834_done:
+ alt835_0:
+.annotate 'line', 400
+ set_addr $I10, alt835_1
+ rx828_cur."!mark_push"(0, rx828_pos, $I10)
# rx subrule "dec_number" subtype=capture negate=
- rx823_cur."!cursor_pos"(rx823_pos)
- $P10 = rx823_cur."dec_number"()
- unless $P10, rx823_fail
- rx823_cur."!mark_push"(0, -1, 0, $P10)
+ rx828_cur."!cursor_pos"(rx828_pos)
+ $P10 = rx828_cur."dec_number"()
+ unless $P10, rx828_fail
+ rx828_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("dec_number")
- rx823_pos = $P10."pos"()
- goto alt830_end
- alt830_1:
+ rx828_pos = $P10."pos"()
+ goto alt835_end
+ alt835_1:
# rx subrule "integer" subtype=capture negate=
- rx823_cur."!cursor_pos"(rx823_pos)
- $P10 = rx823_cur."integer"()
- unless $P10, rx823_fail
- rx823_cur."!mark_push"(0, -1, 0, $P10)
+ rx828_cur."!cursor_pos"(rx828_pos)
+ $P10 = rx828_cur."integer"()
+ unless $P10, rx828_fail
+ rx828_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("integer")
- rx823_pos = $P10."pos"()
- alt830_end:
-.annotate 'line', 396
+ rx828_pos = $P10."pos"()
+ alt835_end:
+.annotate 'line', 398
# rx pass
- rx823_cur."!cursor_pass"(rx823_pos, "number")
- rx823_cur."!cursor_debug"("PASS ", "number", " at pos=", rx823_pos)
- .return (rx823_cur)
- rx823_fail:
+ rx828_cur."!cursor_pass"(rx828_pos, "number")
+ rx828_cur."!cursor_debug"("PASS ", "number", " at pos=", rx828_pos)
+ .return (rx828_cur)
+ rx828_fail:
.annotate 'line', 4
- (rx823_rep, rx823_pos, $I10, $P10) = rx823_cur."!mark_fail"(0)
- lt rx823_pos, -1, rx823_done
- eq rx823_pos, -1, rx823_fail
+ (rx828_rep, rx828_pos, $I10, $P10) = rx828_cur."!mark_fail"(0)
+ lt rx828_pos, -1, rx828_done
+ eq rx828_pos, -1, rx828_fail
jump $I10
- rx823_done:
- rx823_cur."!cursor_fail"()
- rx823_cur."!cursor_debug"("FAIL ", "number")
- .return (rx823_cur)
+ rx828_done:
+ rx828_cur."!cursor_fail"()
+ rx828_cur."!cursor_debug"("FAIL ", "number")
+ .return (rx828_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__number" :subid("190_1274564776.41408") :method
+.sub "!PREFIX__number" :subid("192_1275117591.97262") :method
.annotate 'line', 4
- new $P825, "ResizablePMCArray"
- push $P825, ""
- .return ($P825)
+ new $P830, "ResizablePMCArray"
+ push $P830, ""
+ .return ($P830)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote" :subid("191_1274564776.41408") :method
-.annotate 'line', 401
- $P832 = self."!protoregex"("quote")
- .return ($P832)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote" :subid("192_1274564776.41408") :method
-.annotate 'line', 401
- $P834 = self."!PREFIX__!protoregex"("quote")
- .return ($P834)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "quote:sym<apos>" :subid("193_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx836_tgt
- .local int rx836_pos
- .local int rx836_off
- .local int rx836_eos
- .local int rx836_rep
- .local pmc rx836_cur
- (rx836_cur, rx836_pos, rx836_tgt) = self."!cursor_start"()
- rx836_cur."!cursor_debug"("START ", "quote:sym<apos>")
- .lex unicode:"$\x{a2}", rx836_cur
- .local pmc match
- .lex "$/", match
- length rx836_eos, rx836_tgt
- set rx836_off, 0
- lt rx836_pos, 2, rx836_start
- sub rx836_off, rx836_pos, 1
- substr rx836_tgt, rx836_tgt, rx836_off
- rx836_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan839_done
- goto rxscan839_scan
- rxscan839_loop:
- ($P10) = rx836_cur."from"()
- inc $P10
- set rx836_pos, $P10
- ge rx836_pos, rx836_eos, rxscan839_done
- rxscan839_scan:
- set_addr $I10, rxscan839_loop
- rx836_cur."!mark_push"(0, rx836_pos, $I10)
- rxscan839_done:
-.annotate 'line', 402
- # rx enumcharlist negate=0 zerowidth
- ge rx836_pos, rx836_eos, rx836_fail
- sub $I10, rx836_pos, rx836_off
- substr $S10, rx836_tgt, $I10, 1
- index $I11, "'", $S10
- lt $I11, 0, rx836_fail
- # rx subrule "quote_EXPR" subtype=capture negate=
- rx836_cur."!cursor_pos"(rx836_pos)
- $P10 = rx836_cur."quote_EXPR"(":q")
- unless $P10, rx836_fail
- rx836_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("quote_EXPR")
- rx836_pos = $P10."pos"()
- # rx pass
- rx836_cur."!cursor_pass"(rx836_pos, "quote:sym<apos>")
- rx836_cur."!cursor_debug"("PASS ", "quote:sym<apos>", " at pos=", rx836_pos)
- .return (rx836_cur)
- rx836_fail:
-.annotate 'line', 4
- (rx836_rep, rx836_pos, $I10, $P10) = rx836_cur."!mark_fail"(0)
- lt rx836_pos, -1, rx836_done
- eq rx836_pos, -1, rx836_fail
- jump $I10
- rx836_done:
- rx836_cur."!cursor_fail"()
- rx836_cur."!cursor_debug"("FAIL ", "quote:sym<apos>")
- .return (rx836_cur)
- .return ()
+.sub "quote" :subid("193_1275117591.97262") :method
+.annotate 'line', 403
+ $P837 = self."!protoregex"("quote")
+ .return ($P837)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<apos>" :subid("194_1274564776.41408") :method
-.annotate 'line', 4
- new $P838, "ResizablePMCArray"
- push $P838, "'"
- .return ($P838)
+.sub "!PREFIX__quote" :subid("194_1275117591.97262") :method
+.annotate 'line', 403
+ $P839 = self."!PREFIX__!protoregex"("quote")
+ .return ($P839)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<dblq>" :subid("195_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote:sym<apos>" :subid("195_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx841_tgt
.local int rx841_pos
@@ -9899,7 +9907,7 @@
.local int rx841_rep
.local pmc rx841_cur
(rx841_cur, rx841_pos, rx841_tgt) = self."!cursor_start"()
- rx841_cur."!cursor_debug"("START ", "quote:sym<dblq>")
+ rx841_cur."!cursor_debug"("START ", "quote:sym<apos>")
.lex unicode:"$\x{a2}", rx841_cur
.local pmc match
.lex "$/", match
@@ -9921,23 +9929,23 @@
set_addr $I10, rxscan844_loop
rx841_cur."!mark_push"(0, rx841_pos, $I10)
rxscan844_done:
-.annotate 'line', 403
+.annotate 'line', 404
# rx enumcharlist negate=0 zerowidth
ge rx841_pos, rx841_eos, rx841_fail
sub $I10, rx841_pos, rx841_off
substr $S10, rx841_tgt, $I10, 1
- index $I11, "\"", $S10
+ index $I11, "'", $S10
lt $I11, 0, rx841_fail
# rx subrule "quote_EXPR" subtype=capture negate=
rx841_cur."!cursor_pos"(rx841_pos)
- $P10 = rx841_cur."quote_EXPR"(":qq")
+ $P10 = rx841_cur."quote_EXPR"(":q")
unless $P10, rx841_fail
rx841_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
rx841_pos = $P10."pos"()
# rx pass
- rx841_cur."!cursor_pass"(rx841_pos, "quote:sym<dblq>")
- rx841_cur."!cursor_debug"("PASS ", "quote:sym<dblq>", " at pos=", rx841_pos)
+ rx841_cur."!cursor_pass"(rx841_pos, "quote:sym<apos>")
+ rx841_cur."!cursor_debug"("PASS ", "quote:sym<apos>", " at pos=", rx841_pos)
.return (rx841_cur)
rx841_fail:
.annotate 'line', 4
@@ -9947,23 +9955,23 @@
jump $I10
rx841_done:
rx841_cur."!cursor_fail"()
- rx841_cur."!cursor_debug"("FAIL ", "quote:sym<dblq>")
+ rx841_cur."!cursor_debug"("FAIL ", "quote:sym<apos>")
.return (rx841_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<dblq>" :subid("196_1274564776.41408") :method
+.sub "!PREFIX__quote:sym<apos>" :subid("196_1275117591.97262") :method
.annotate 'line', 4
new $P843, "ResizablePMCArray"
- push $P843, "\""
+ push $P843, "'"
.return ($P843)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<q>" :subid("197_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote:sym<dblq>" :subid("197_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx846_tgt
.local int rx846_pos
@@ -9972,7 +9980,7 @@
.local int rx846_rep
.local pmc rx846_cur
(rx846_cur, rx846_pos, rx846_tgt) = self."!cursor_start"()
- rx846_cur."!cursor_debug"("START ", "quote:sym<q>")
+ rx846_cur."!cursor_debug"("START ", "quote:sym<dblq>")
.lex unicode:"$\x{a2}", rx846_cur
.local pmc match
.lex "$/", match
@@ -9983,54 +9991,34 @@
substr rx846_tgt, rx846_tgt, rx846_off
rx846_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan850_done
- goto rxscan850_scan
- rxscan850_loop:
+ ne $I10, -1, rxscan849_done
+ goto rxscan849_scan
+ rxscan849_loop:
($P10) = rx846_cur."from"()
inc $P10
set rx846_pos, $P10
- ge rx846_pos, rx846_eos, rxscan850_done
- rxscan850_scan:
- set_addr $I10, rxscan850_loop
+ ge rx846_pos, rx846_eos, rxscan849_done
+ rxscan849_scan:
+ set_addr $I10, rxscan849_loop
rx846_cur."!mark_push"(0, rx846_pos, $I10)
- rxscan850_done:
-.annotate 'line', 404
- # rx literal "q"
- add $I11, rx846_pos, 1
- gt $I11, rx846_eos, rx846_fail
- sub $I11, rx846_pos, rx846_off
- substr $S10, rx846_tgt, $I11, 1
- ne $S10, "q", rx846_fail
- add rx846_pos, 1
- # rxanchor rwb
- le rx846_pos, 0, rx846_fail
- sub $I10, rx846_pos, rx846_off
- is_cclass $I11, 8192, rx846_tgt, $I10
- if $I11, rx846_fail
- dec $I10
- is_cclass $I11, 8192, rx846_tgt, $I10
- unless $I11, rx846_fail
- # rx enumcharlist negate=1 zerowidth
+ rxscan849_done:
+.annotate 'line', 405
+ # rx enumcharlist negate=0 zerowidth
ge rx846_pos, rx846_eos, rx846_fail
sub $I10, rx846_pos, rx846_off
substr $S10, rx846_tgt, $I10, 1
- index $I11, "(", $S10
- ge $I11, 0, rx846_fail
- # rx subrule "ws" subtype=method negate=
- rx846_cur."!cursor_pos"(rx846_pos)
- $P10 = rx846_cur."ws"()
- unless $P10, rx846_fail
- rx846_pos = $P10."pos"()
+ index $I11, "\"", $S10
+ lt $I11, 0, rx846_fail
# rx subrule "quote_EXPR" subtype=capture negate=
rx846_cur."!cursor_pos"(rx846_pos)
- $P10 = rx846_cur."quote_EXPR"(":q")
+ $P10 = rx846_cur."quote_EXPR"(":qq")
unless $P10, rx846_fail
rx846_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
rx846_pos = $P10."pos"()
# rx pass
- rx846_cur."!cursor_pass"(rx846_pos, "quote:sym<q>")
- rx846_cur."!cursor_debug"("PASS ", "quote:sym<q>", " at pos=", rx846_pos)
+ rx846_cur."!cursor_pass"(rx846_pos, "quote:sym<dblq>")
+ rx846_cur."!cursor_debug"("PASS ", "quote:sym<dblq>", " at pos=", rx846_pos)
.return (rx846_cur)
rx846_fail:
.annotate 'line', 4
@@ -10040,464 +10028,480 @@
jump $I10
rx846_done:
rx846_cur."!cursor_fail"()
- rx846_cur."!cursor_debug"("FAIL ", "quote:sym<q>")
+ rx846_cur."!cursor_debug"("FAIL ", "quote:sym<dblq>")
.return (rx846_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<q>" :subid("198_1274564776.41408") :method
+.sub "!PREFIX__quote:sym<dblq>" :subid("198_1275117591.97262") :method
.annotate 'line', 4
- $P848 = self."!PREFIX__!subrule"("", "q")
- new $P849, "ResizablePMCArray"
- push $P849, $P848
- .return ($P849)
+ new $P848, "ResizablePMCArray"
+ push $P848, "\""
+ .return ($P848)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<qq>" :subid("199_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx852_tgt
- .local int rx852_pos
- .local int rx852_off
- .local int rx852_eos
- .local int rx852_rep
- .local pmc rx852_cur
- (rx852_cur, rx852_pos, rx852_tgt) = self."!cursor_start"()
- rx852_cur."!cursor_debug"("START ", "quote:sym<qq>")
- .lex unicode:"$\x{a2}", rx852_cur
- .local pmc match
- .lex "$/", match
- length rx852_eos, rx852_tgt
- set rx852_off, 0
- lt rx852_pos, 2, rx852_start
- sub rx852_off, rx852_pos, 1
- substr rx852_tgt, rx852_tgt, rx852_off
- rx852_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan856_done
- goto rxscan856_scan
- rxscan856_loop:
- ($P10) = rx852_cur."from"()
- inc $P10
- set rx852_pos, $P10
- ge rx852_pos, rx852_eos, rxscan856_done
- rxscan856_scan:
- set_addr $I10, rxscan856_loop
- rx852_cur."!mark_push"(0, rx852_pos, $I10)
- rxscan856_done:
-.annotate 'line', 405
- # rx literal "qq"
- add $I11, rx852_pos, 2
- gt $I11, rx852_eos, rx852_fail
- sub $I11, rx852_pos, rx852_off
- substr $S10, rx852_tgt, $I11, 2
- ne $S10, "qq", rx852_fail
- add rx852_pos, 2
+.sub "quote:sym<q>" :subid("199_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx851_tgt
+ .local int rx851_pos
+ .local int rx851_off
+ .local int rx851_eos
+ .local int rx851_rep
+ .local pmc rx851_cur
+ (rx851_cur, rx851_pos, rx851_tgt) = self."!cursor_start"()
+ rx851_cur."!cursor_debug"("START ", "quote:sym<q>")
+ .lex unicode:"$\x{a2}", rx851_cur
+ .local pmc match
+ .lex "$/", match
+ length rx851_eos, rx851_tgt
+ set rx851_off, 0
+ lt rx851_pos, 2, rx851_start
+ sub rx851_off, rx851_pos, 1
+ substr rx851_tgt, rx851_tgt, rx851_off
+ rx851_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan855_done
+ goto rxscan855_scan
+ rxscan855_loop:
+ ($P10) = rx851_cur."from"()
+ inc $P10
+ set rx851_pos, $P10
+ ge rx851_pos, rx851_eos, rxscan855_done
+ rxscan855_scan:
+ set_addr $I10, rxscan855_loop
+ rx851_cur."!mark_push"(0, rx851_pos, $I10)
+ rxscan855_done:
+.annotate 'line', 406
+ # rx literal "q"
+ add $I11, rx851_pos, 1
+ gt $I11, rx851_eos, rx851_fail
+ sub $I11, rx851_pos, rx851_off
+ substr $S10, rx851_tgt, $I11, 1
+ ne $S10, "q", rx851_fail
+ add rx851_pos, 1
# rxanchor rwb
- le rx852_pos, 0, rx852_fail
- sub $I10, rx852_pos, rx852_off
- is_cclass $I11, 8192, rx852_tgt, $I10
- if $I11, rx852_fail
+ le rx851_pos, 0, rx851_fail
+ sub $I10, rx851_pos, rx851_off
+ is_cclass $I11, 8192, rx851_tgt, $I10
+ if $I11, rx851_fail
dec $I10
- is_cclass $I11, 8192, rx852_tgt, $I10
- unless $I11, rx852_fail
+ is_cclass $I11, 8192, rx851_tgt, $I10
+ unless $I11, rx851_fail
# rx enumcharlist negate=1 zerowidth
- ge rx852_pos, rx852_eos, rx852_fail
- sub $I10, rx852_pos, rx852_off
- substr $S10, rx852_tgt, $I10, 1
+ ge rx851_pos, rx851_eos, rx851_fail
+ sub $I10, rx851_pos, rx851_off
+ substr $S10, rx851_tgt, $I10, 1
index $I11, "(", $S10
- ge $I11, 0, rx852_fail
+ ge $I11, 0, rx851_fail
# rx subrule "ws" subtype=method negate=
- rx852_cur."!cursor_pos"(rx852_pos)
- $P10 = rx852_cur."ws"()
- unless $P10, rx852_fail
- rx852_pos = $P10."pos"()
+ rx851_cur."!cursor_pos"(rx851_pos)
+ $P10 = rx851_cur."ws"()
+ unless $P10, rx851_fail
+ rx851_pos = $P10."pos"()
# rx subrule "quote_EXPR" subtype=capture negate=
- rx852_cur."!cursor_pos"(rx852_pos)
- $P10 = rx852_cur."quote_EXPR"(":qq")
- unless $P10, rx852_fail
- rx852_cur."!mark_push"(0, -1, 0, $P10)
+ rx851_cur."!cursor_pos"(rx851_pos)
+ $P10 = rx851_cur."quote_EXPR"(":q")
+ unless $P10, rx851_fail
+ rx851_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx852_pos = $P10."pos"()
+ rx851_pos = $P10."pos"()
# rx pass
- rx852_cur."!cursor_pass"(rx852_pos, "quote:sym<qq>")
- rx852_cur."!cursor_debug"("PASS ", "quote:sym<qq>", " at pos=", rx852_pos)
- .return (rx852_cur)
- rx852_fail:
+ rx851_cur."!cursor_pass"(rx851_pos, "quote:sym<q>")
+ rx851_cur."!cursor_debug"("PASS ", "quote:sym<q>", " at pos=", rx851_pos)
+ .return (rx851_cur)
+ rx851_fail:
.annotate 'line', 4
- (rx852_rep, rx852_pos, $I10, $P10) = rx852_cur."!mark_fail"(0)
- lt rx852_pos, -1, rx852_done
- eq rx852_pos, -1, rx852_fail
+ (rx851_rep, rx851_pos, $I10, $P10) = rx851_cur."!mark_fail"(0)
+ lt rx851_pos, -1, rx851_done
+ eq rx851_pos, -1, rx851_fail
jump $I10
- rx852_done:
- rx852_cur."!cursor_fail"()
- rx852_cur."!cursor_debug"("FAIL ", "quote:sym<qq>")
- .return (rx852_cur)
+ rx851_done:
+ rx851_cur."!cursor_fail"()
+ rx851_cur."!cursor_debug"("FAIL ", "quote:sym<q>")
+ .return (rx851_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<qq>" :subid("200_1274564776.41408") :method
+.sub "!PREFIX__quote:sym<q>" :subid("200_1275117591.97262") :method
.annotate 'line', 4
- $P854 = self."!PREFIX__!subrule"("", "qq")
- new $P855, "ResizablePMCArray"
- push $P855, $P854
- .return ($P855)
+ $P853 = self."!PREFIX__!subrule"("", "q")
+ new $P854, "ResizablePMCArray"
+ push $P854, $P853
+ .return ($P854)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<Q>" :subid("201_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote:sym<qq>" :subid("201_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx858_tgt
- .local int rx858_pos
- .local int rx858_off
- .local int rx858_eos
- .local int rx858_rep
- .local pmc rx858_cur
- (rx858_cur, rx858_pos, rx858_tgt) = self."!cursor_start"()
- rx858_cur."!cursor_debug"("START ", "quote:sym<Q>")
- .lex unicode:"$\x{a2}", rx858_cur
- .local pmc match
- .lex "$/", match
- length rx858_eos, rx858_tgt
- set rx858_off, 0
- lt rx858_pos, 2, rx858_start
- sub rx858_off, rx858_pos, 1
- substr rx858_tgt, rx858_tgt, rx858_off
- rx858_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan862_done
- goto rxscan862_scan
- rxscan862_loop:
- ($P10) = rx858_cur."from"()
- inc $P10
- set rx858_pos, $P10
- ge rx858_pos, rx858_eos, rxscan862_done
- rxscan862_scan:
- set_addr $I10, rxscan862_loop
- rx858_cur."!mark_push"(0, rx858_pos, $I10)
- rxscan862_done:
-.annotate 'line', 406
- # rx literal "Q"
- add $I11, rx858_pos, 1
- gt $I11, rx858_eos, rx858_fail
- sub $I11, rx858_pos, rx858_off
- substr $S10, rx858_tgt, $I11, 1
- ne $S10, "Q", rx858_fail
- add rx858_pos, 1
+ .local string rx857_tgt
+ .local int rx857_pos
+ .local int rx857_off
+ .local int rx857_eos
+ .local int rx857_rep
+ .local pmc rx857_cur
+ (rx857_cur, rx857_pos, rx857_tgt) = self."!cursor_start"()
+ rx857_cur."!cursor_debug"("START ", "quote:sym<qq>")
+ .lex unicode:"$\x{a2}", rx857_cur
+ .local pmc match
+ .lex "$/", match
+ length rx857_eos, rx857_tgt
+ set rx857_off, 0
+ lt rx857_pos, 2, rx857_start
+ sub rx857_off, rx857_pos, 1
+ substr rx857_tgt, rx857_tgt, rx857_off
+ rx857_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan861_done
+ goto rxscan861_scan
+ rxscan861_loop:
+ ($P10) = rx857_cur."from"()
+ inc $P10
+ set rx857_pos, $P10
+ ge rx857_pos, rx857_eos, rxscan861_done
+ rxscan861_scan:
+ set_addr $I10, rxscan861_loop
+ rx857_cur."!mark_push"(0, rx857_pos, $I10)
+ rxscan861_done:
+.annotate 'line', 407
+ # rx literal "qq"
+ add $I11, rx857_pos, 2
+ gt $I11, rx857_eos, rx857_fail
+ sub $I11, rx857_pos, rx857_off
+ substr $S10, rx857_tgt, $I11, 2
+ ne $S10, "qq", rx857_fail
+ add rx857_pos, 2
# rxanchor rwb
- le rx858_pos, 0, rx858_fail
- sub $I10, rx858_pos, rx858_off
- is_cclass $I11, 8192, rx858_tgt, $I10
- if $I11, rx858_fail
+ le rx857_pos, 0, rx857_fail
+ sub $I10, rx857_pos, rx857_off
+ is_cclass $I11, 8192, rx857_tgt, $I10
+ if $I11, rx857_fail
dec $I10
- is_cclass $I11, 8192, rx858_tgt, $I10
- unless $I11, rx858_fail
+ is_cclass $I11, 8192, rx857_tgt, $I10
+ unless $I11, rx857_fail
# rx enumcharlist negate=1 zerowidth
- ge rx858_pos, rx858_eos, rx858_fail
- sub $I10, rx858_pos, rx858_off
- substr $S10, rx858_tgt, $I10, 1
+ ge rx857_pos, rx857_eos, rx857_fail
+ sub $I10, rx857_pos, rx857_off
+ substr $S10, rx857_tgt, $I10, 1
index $I11, "(", $S10
- ge $I11, 0, rx858_fail
+ ge $I11, 0, rx857_fail
# rx subrule "ws" subtype=method negate=
- rx858_cur."!cursor_pos"(rx858_pos)
- $P10 = rx858_cur."ws"()
- unless $P10, rx858_fail
- rx858_pos = $P10."pos"()
+ rx857_cur."!cursor_pos"(rx857_pos)
+ $P10 = rx857_cur."ws"()
+ unless $P10, rx857_fail
+ rx857_pos = $P10."pos"()
# rx subrule "quote_EXPR" subtype=capture negate=
- rx858_cur."!cursor_pos"(rx858_pos)
- $P10 = rx858_cur."quote_EXPR"()
- unless $P10, rx858_fail
- rx858_cur."!mark_push"(0, -1, 0, $P10)
+ rx857_cur."!cursor_pos"(rx857_pos)
+ $P10 = rx857_cur."quote_EXPR"(":qq")
+ unless $P10, rx857_fail
+ rx857_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx858_pos = $P10."pos"()
+ rx857_pos = $P10."pos"()
# rx pass
- rx858_cur."!cursor_pass"(rx858_pos, "quote:sym<Q>")
- rx858_cur."!cursor_debug"("PASS ", "quote:sym<Q>", " at pos=", rx858_pos)
- .return (rx858_cur)
- rx858_fail:
+ rx857_cur."!cursor_pass"(rx857_pos, "quote:sym<qq>")
+ rx857_cur."!cursor_debug"("PASS ", "quote:sym<qq>", " at pos=", rx857_pos)
+ .return (rx857_cur)
+ rx857_fail:
.annotate 'line', 4
- (rx858_rep, rx858_pos, $I10, $P10) = rx858_cur."!mark_fail"(0)
- lt rx858_pos, -1, rx858_done
- eq rx858_pos, -1, rx858_fail
+ (rx857_rep, rx857_pos, $I10, $P10) = rx857_cur."!mark_fail"(0)
+ lt rx857_pos, -1, rx857_done
+ eq rx857_pos, -1, rx857_fail
jump $I10
- rx858_done:
- rx858_cur."!cursor_fail"()
- rx858_cur."!cursor_debug"("FAIL ", "quote:sym<Q>")
- .return (rx858_cur)
+ rx857_done:
+ rx857_cur."!cursor_fail"()
+ rx857_cur."!cursor_debug"("FAIL ", "quote:sym<qq>")
+ .return (rx857_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<Q>" :subid("202_1274564776.41408") :method
+.sub "!PREFIX__quote:sym<qq>" :subid("202_1275117591.97262") :method
.annotate 'line', 4
- $P860 = self."!PREFIX__!subrule"("", "Q")
- new $P861, "ResizablePMCArray"
- push $P861, $P860
- .return ($P861)
+ $P859 = self."!PREFIX__!subrule"("", "qq")
+ new $P860, "ResizablePMCArray"
+ push $P860, $P859
+ .return ($P860)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<Q:PIR>" :subid("203_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote:sym<Q>" :subid("203_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx864_tgt
- .local int rx864_pos
- .local int rx864_off
- .local int rx864_eos
- .local int rx864_rep
- .local pmc rx864_cur
- (rx864_cur, rx864_pos, rx864_tgt) = self."!cursor_start"()
- rx864_cur."!cursor_debug"("START ", "quote:sym<Q:PIR>")
- .lex unicode:"$\x{a2}", rx864_cur
+ .local string rx863_tgt
+ .local int rx863_pos
+ .local int rx863_off
+ .local int rx863_eos
+ .local int rx863_rep
+ .local pmc rx863_cur
+ (rx863_cur, rx863_pos, rx863_tgt) = self."!cursor_start"()
+ rx863_cur."!cursor_debug"("START ", "quote:sym<Q>")
+ .lex unicode:"$\x{a2}", rx863_cur
.local pmc match
.lex "$/", match
- length rx864_eos, rx864_tgt
- set rx864_off, 0
- lt rx864_pos, 2, rx864_start
- sub rx864_off, rx864_pos, 1
- substr rx864_tgt, rx864_tgt, rx864_off
- rx864_start:
+ length rx863_eos, rx863_tgt
+ set rx863_off, 0
+ lt rx863_pos, 2, rx863_start
+ sub rx863_off, rx863_pos, 1
+ substr rx863_tgt, rx863_tgt, rx863_off
+ rx863_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan868_done
- goto rxscan868_scan
- rxscan868_loop:
- ($P10) = rx864_cur."from"()
+ ne $I10, -1, rxscan867_done
+ goto rxscan867_scan
+ rxscan867_loop:
+ ($P10) = rx863_cur."from"()
inc $P10
- set rx864_pos, $P10
- ge rx864_pos, rx864_eos, rxscan868_done
- rxscan868_scan:
- set_addr $I10, rxscan868_loop
- rx864_cur."!mark_push"(0, rx864_pos, $I10)
- rxscan868_done:
-.annotate 'line', 407
- # rx literal "Q:PIR"
- add $I11, rx864_pos, 5
- gt $I11, rx864_eos, rx864_fail
- sub $I11, rx864_pos, rx864_off
- substr $S10, rx864_tgt, $I11, 5
- ne $S10, "Q:PIR", rx864_fail
- add rx864_pos, 5
- # rx subrule "ws" subtype=method negate=
- rx864_cur."!cursor_pos"(rx864_pos)
- $P10 = rx864_cur."ws"()
- unless $P10, rx864_fail
- rx864_pos = $P10."pos"()
+ set rx863_pos, $P10
+ ge rx863_pos, rx863_eos, rxscan867_done
+ rxscan867_scan:
+ set_addr $I10, rxscan867_loop
+ rx863_cur."!mark_push"(0, rx863_pos, $I10)
+ rxscan867_done:
+.annotate 'line', 408
+ # rx literal "Q"
+ add $I11, rx863_pos, 1
+ gt $I11, rx863_eos, rx863_fail
+ sub $I11, rx863_pos, rx863_off
+ substr $S10, rx863_tgt, $I11, 1
+ ne $S10, "Q", rx863_fail
+ add rx863_pos, 1
+ # rxanchor rwb
+ le rx863_pos, 0, rx863_fail
+ sub $I10, rx863_pos, rx863_off
+ is_cclass $I11, 8192, rx863_tgt, $I10
+ if $I11, rx863_fail
+ dec $I10
+ is_cclass $I11, 8192, rx863_tgt, $I10
+ unless $I11, rx863_fail
+ # rx enumcharlist negate=1 zerowidth
+ ge rx863_pos, rx863_eos, rx863_fail
+ sub $I10, rx863_pos, rx863_off
+ substr $S10, rx863_tgt, $I10, 1
+ index $I11, "(", $S10
+ ge $I11, 0, rx863_fail
+ # rx subrule "ws" subtype=method negate=
+ rx863_cur."!cursor_pos"(rx863_pos)
+ $P10 = rx863_cur."ws"()
+ unless $P10, rx863_fail
+ rx863_pos = $P10."pos"()
# rx subrule "quote_EXPR" subtype=capture negate=
- rx864_cur."!cursor_pos"(rx864_pos)
- $P10 = rx864_cur."quote_EXPR"()
- unless $P10, rx864_fail
- rx864_cur."!mark_push"(0, -1, 0, $P10)
+ rx863_cur."!cursor_pos"(rx863_pos)
+ $P10 = rx863_cur."quote_EXPR"()
+ unless $P10, rx863_fail
+ rx863_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx864_pos = $P10."pos"()
+ rx863_pos = $P10."pos"()
# rx pass
- rx864_cur."!cursor_pass"(rx864_pos, "quote:sym<Q:PIR>")
- rx864_cur."!cursor_debug"("PASS ", "quote:sym<Q:PIR>", " at pos=", rx864_pos)
- .return (rx864_cur)
- rx864_fail:
+ rx863_cur."!cursor_pass"(rx863_pos, "quote:sym<Q>")
+ rx863_cur."!cursor_debug"("PASS ", "quote:sym<Q>", " at pos=", rx863_pos)
+ .return (rx863_cur)
+ rx863_fail:
.annotate 'line', 4
- (rx864_rep, rx864_pos, $I10, $P10) = rx864_cur."!mark_fail"(0)
- lt rx864_pos, -1, rx864_done
- eq rx864_pos, -1, rx864_fail
+ (rx863_rep, rx863_pos, $I10, $P10) = rx863_cur."!mark_fail"(0)
+ lt rx863_pos, -1, rx863_done
+ eq rx863_pos, -1, rx863_fail
jump $I10
- rx864_done:
- rx864_cur."!cursor_fail"()
- rx864_cur."!cursor_debug"("FAIL ", "quote:sym<Q:PIR>")
- .return (rx864_cur)
+ rx863_done:
+ rx863_cur."!cursor_fail"()
+ rx863_cur."!cursor_debug"("FAIL ", "quote:sym<Q>")
+ .return (rx863_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<Q:PIR>" :subid("204_1274564776.41408") :method
+.sub "!PREFIX__quote:sym<Q>" :subid("204_1275117591.97262") :method
.annotate 'line', 4
- $P866 = self."!PREFIX__!subrule"("", "Q:PIR")
- new $P867, "ResizablePMCArray"
- push $P867, $P866
- .return ($P867)
+ $P865 = self."!PREFIX__!subrule"("", "Q")
+ new $P866, "ResizablePMCArray"
+ push $P866, $P865
+ .return ($P866)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym</ />" :subid("205_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote:sym<Q:PIR>" :subid("205_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx870_tgt
- .local int rx870_pos
- .local int rx870_off
- .local int rx870_eos
- .local int rx870_rep
- .local pmc rx870_cur
- (rx870_cur, rx870_pos, rx870_tgt) = self."!cursor_start"()
- rx870_cur."!cursor_debug"("START ", "quote:sym</ />")
- .lex unicode:"$\x{a2}", rx870_cur
+ .local string rx869_tgt
+ .local int rx869_pos
+ .local int rx869_off
+ .local int rx869_eos
+ .local int rx869_rep
+ .local pmc rx869_cur
+ (rx869_cur, rx869_pos, rx869_tgt) = self."!cursor_start"()
+ rx869_cur."!cursor_debug"("START ", "quote:sym<Q:PIR>")
+ .lex unicode:"$\x{a2}", rx869_cur
.local pmc match
.lex "$/", match
- length rx870_eos, rx870_tgt
- set rx870_off, 0
- lt rx870_pos, 2, rx870_start
- sub rx870_off, rx870_pos, 1
- substr rx870_tgt, rx870_tgt, rx870_off
- rx870_start:
+ length rx869_eos, rx869_tgt
+ set rx869_off, 0
+ lt rx869_pos, 2, rx869_start
+ sub rx869_off, rx869_pos, 1
+ substr rx869_tgt, rx869_tgt, rx869_off
+ rx869_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan874_done
- goto rxscan874_scan
- rxscan874_loop:
- ($P10) = rx870_cur."from"()
+ ne $I10, -1, rxscan873_done
+ goto rxscan873_scan
+ rxscan873_loop:
+ ($P10) = rx869_cur."from"()
inc $P10
- set rx870_pos, $P10
- ge rx870_pos, rx870_eos, rxscan874_done
- rxscan874_scan:
- set_addr $I10, rxscan874_loop
- rx870_cur."!mark_push"(0, rx870_pos, $I10)
- rxscan874_done:
+ set rx869_pos, $P10
+ ge rx869_pos, rx869_eos, rxscan873_done
+ rxscan873_scan:
+ set_addr $I10, rxscan873_loop
+ rx869_cur."!mark_push"(0, rx869_pos, $I10)
+ rxscan873_done:
.annotate 'line', 409
- # rx literal "/"
- add $I11, rx870_pos, 1
- gt $I11, rx870_eos, rx870_fail
- sub $I11, rx870_pos, rx870_off
- substr $S10, rx870_tgt, $I11, 1
- ne $S10, "/", rx870_fail
- add rx870_pos, 1
-.annotate 'line', 410
- # rx subrule "newpad" subtype=method negate=
- rx870_cur."!cursor_pos"(rx870_pos)
- $P10 = rx870_cur."newpad"()
- unless $P10, rx870_fail
- rx870_pos = $P10."pos"()
-.annotate 'line', 411
- # rx reduce name="quote:sym</ />" key="open"
- rx870_cur."!cursor_pos"(rx870_pos)
- rx870_cur."!reduce"("quote:sym</ />", "open")
-.annotate 'line', 412
- # rx subrule "LANG" subtype=capture negate=
- rx870_cur."!cursor_pos"(rx870_pos)
- $P10 = rx870_cur."LANG"("Regex", "nibbler")
- unless $P10, rx870_fail
- rx870_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("p6regex")
- rx870_pos = $P10."pos"()
-.annotate 'line', 413
- # rx literal "/"
- add $I11, rx870_pos, 1
- gt $I11, rx870_eos, rx870_fail
- sub $I11, rx870_pos, rx870_off
- substr $S10, rx870_tgt, $I11, 1
- ne $S10, "/", rx870_fail
- add rx870_pos, 1
-.annotate 'line', 408
+ # rx literal "Q:PIR"
+ add $I11, rx869_pos, 5
+ gt $I11, rx869_eos, rx869_fail
+ sub $I11, rx869_pos, rx869_off
+ substr $S10, rx869_tgt, $I11, 5
+ ne $S10, "Q:PIR", rx869_fail
+ add rx869_pos, 5
+ # rx subrule "ws" subtype=method negate=
+ rx869_cur."!cursor_pos"(rx869_pos)
+ $P10 = rx869_cur."ws"()
+ unless $P10, rx869_fail
+ rx869_pos = $P10."pos"()
+ # rx subrule "quote_EXPR" subtype=capture negate=
+ rx869_cur."!cursor_pos"(rx869_pos)
+ $P10 = rx869_cur."quote_EXPR"()
+ unless $P10, rx869_fail
+ rx869_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("quote_EXPR")
+ rx869_pos = $P10."pos"()
# rx pass
- rx870_cur."!cursor_pass"(rx870_pos, "quote:sym</ />")
- rx870_cur."!cursor_debug"("PASS ", "quote:sym</ />", " at pos=", rx870_pos)
- .return (rx870_cur)
- rx870_fail:
+ rx869_cur."!cursor_pass"(rx869_pos, "quote:sym<Q:PIR>")
+ rx869_cur."!cursor_debug"("PASS ", "quote:sym<Q:PIR>", " at pos=", rx869_pos)
+ .return (rx869_cur)
+ rx869_fail:
.annotate 'line', 4
- (rx870_rep, rx870_pos, $I10, $P10) = rx870_cur."!mark_fail"(0)
- lt rx870_pos, -1, rx870_done
- eq rx870_pos, -1, rx870_fail
+ (rx869_rep, rx869_pos, $I10, $P10) = rx869_cur."!mark_fail"(0)
+ lt rx869_pos, -1, rx869_done
+ eq rx869_pos, -1, rx869_fail
jump $I10
- rx870_done:
- rx870_cur."!cursor_fail"()
- rx870_cur."!cursor_debug"("FAIL ", "quote:sym</ />")
- .return (rx870_cur)
+ rx869_done:
+ rx869_cur."!cursor_fail"()
+ rx869_cur."!cursor_debug"("FAIL ", "quote:sym<Q:PIR>")
+ .return (rx869_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym</ />" :subid("206_1274564776.41408") :method
+.sub "!PREFIX__quote:sym<Q:PIR>" :subid("206_1275117591.97262") :method
.annotate 'line', 4
- $P872 = self."!PREFIX__!subrule"("", "/")
- new $P873, "ResizablePMCArray"
- push $P873, $P872
- .return ($P873)
+ $P871 = self."!PREFIX__!subrule"("", "Q:PIR")
+ new $P872, "ResizablePMCArray"
+ push $P872, $P871
+ .return ($P872)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote_escape:sym<$>" :subid("207_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote:sym</ />" :subid("207_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx876_tgt
- .local int rx876_pos
- .local int rx876_off
- .local int rx876_eos
- .local int rx876_rep
- .local pmc rx876_cur
- (rx876_cur, rx876_pos, rx876_tgt) = self."!cursor_start"()
- rx876_cur."!cursor_debug"("START ", "quote_escape:sym<$>")
- .lex unicode:"$\x{a2}", rx876_cur
+ .local string rx875_tgt
+ .local int rx875_pos
+ .local int rx875_off
+ .local int rx875_eos
+ .local int rx875_rep
+ .local pmc rx875_cur
+ (rx875_cur, rx875_pos, rx875_tgt) = self."!cursor_start"()
+ rx875_cur."!cursor_debug"("START ", "quote:sym</ />")
+ .lex unicode:"$\x{a2}", rx875_cur
.local pmc match
.lex "$/", match
- length rx876_eos, rx876_tgt
- set rx876_off, 0
- lt rx876_pos, 2, rx876_start
- sub rx876_off, rx876_pos, 1
- substr rx876_tgt, rx876_tgt, rx876_off
- rx876_start:
+ length rx875_eos, rx875_tgt
+ set rx875_off, 0
+ lt rx875_pos, 2, rx875_start
+ sub rx875_off, rx875_pos, 1
+ substr rx875_tgt, rx875_tgt, rx875_off
+ rx875_start:
$I10 = self.'from'()
ne $I10, -1, rxscan879_done
goto rxscan879_scan
rxscan879_loop:
- ($P10) = rx876_cur."from"()
+ ($P10) = rx875_cur."from"()
inc $P10
- set rx876_pos, $P10
- ge rx876_pos, rx876_eos, rxscan879_done
+ set rx875_pos, $P10
+ ge rx875_pos, rx875_eos, rxscan879_done
rxscan879_scan:
set_addr $I10, rxscan879_loop
- rx876_cur."!mark_push"(0, rx876_pos, $I10)
+ rx875_cur."!mark_push"(0, rx875_pos, $I10)
rxscan879_done:
-.annotate 'line', 416
- # rx enumcharlist negate=0 zerowidth
- ge rx876_pos, rx876_eos, rx876_fail
- sub $I10, rx876_pos, rx876_off
- substr $S10, rx876_tgt, $I10, 1
- index $I11, "$", $S10
- lt $I11, 0, rx876_fail
- # rx subrule "quotemod_check" subtype=zerowidth negate=
- rx876_cur."!cursor_pos"(rx876_pos)
- $P10 = rx876_cur."quotemod_check"("s")
- unless $P10, rx876_fail
- # rx subrule "variable" subtype=capture negate=
- rx876_cur."!cursor_pos"(rx876_pos)
- $P10 = rx876_cur."variable"()
- unless $P10, rx876_fail
- rx876_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("variable")
- rx876_pos = $P10."pos"()
+.annotate 'line', 411
+ # rx literal "/"
+ add $I11, rx875_pos, 1
+ gt $I11, rx875_eos, rx875_fail
+ sub $I11, rx875_pos, rx875_off
+ substr $S10, rx875_tgt, $I11, 1
+ ne $S10, "/", rx875_fail
+ add rx875_pos, 1
+.annotate 'line', 412
+ # rx subrule "newpad" subtype=method negate=
+ rx875_cur."!cursor_pos"(rx875_pos)
+ $P10 = rx875_cur."newpad"()
+ unless $P10, rx875_fail
+ rx875_pos = $P10."pos"()
+.annotate 'line', 413
+ # rx reduce name="quote:sym</ />" key="open"
+ rx875_cur."!cursor_pos"(rx875_pos)
+ rx875_cur."!reduce"("quote:sym</ />", "open")
+.annotate 'line', 414
+ # rx subrule "LANG" subtype=capture negate=
+ rx875_cur."!cursor_pos"(rx875_pos)
+ $P10 = rx875_cur."LANG"("Regex", "nibbler")
+ unless $P10, rx875_fail
+ rx875_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("p6regex")
+ rx875_pos = $P10."pos"()
+.annotate 'line', 415
+ # rx literal "/"
+ add $I11, rx875_pos, 1
+ gt $I11, rx875_eos, rx875_fail
+ sub $I11, rx875_pos, rx875_off
+ substr $S10, rx875_tgt, $I11, 1
+ ne $S10, "/", rx875_fail
+ add rx875_pos, 1
+.annotate 'line', 410
# rx pass
- rx876_cur."!cursor_pass"(rx876_pos, "quote_escape:sym<$>")
- rx876_cur."!cursor_debug"("PASS ", "quote_escape:sym<$>", " at pos=", rx876_pos)
- .return (rx876_cur)
- rx876_fail:
+ rx875_cur."!cursor_pass"(rx875_pos, "quote:sym</ />")
+ rx875_cur."!cursor_debug"("PASS ", "quote:sym</ />", " at pos=", rx875_pos)
+ .return (rx875_cur)
+ rx875_fail:
.annotate 'line', 4
- (rx876_rep, rx876_pos, $I10, $P10) = rx876_cur."!mark_fail"(0)
- lt rx876_pos, -1, rx876_done
- eq rx876_pos, -1, rx876_fail
+ (rx875_rep, rx875_pos, $I10, $P10) = rx875_cur."!mark_fail"(0)
+ lt rx875_pos, -1, rx875_done
+ eq rx875_pos, -1, rx875_fail
jump $I10
- rx876_done:
- rx876_cur."!cursor_fail"()
- rx876_cur."!cursor_debug"("FAIL ", "quote_escape:sym<$>")
- .return (rx876_cur)
+ rx875_done:
+ rx875_cur."!cursor_fail"()
+ rx875_cur."!cursor_debug"("FAIL ", "quote:sym</ />")
+ .return (rx875_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<$>" :subid("208_1274564776.41408") :method
+.sub "!PREFIX__quote:sym</ />" :subid("208_1275117591.97262") :method
.annotate 'line', 4
+ $P877 = self."!PREFIX__!subrule"("", "/")
new $P878, "ResizablePMCArray"
- push $P878, "$"
+ push $P878, $P877
.return ($P878)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote_escape:sym<{ }>" :subid("209_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote_escape:sym<$>" :subid("209_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx881_tgt
.local int rx881_pos
@@ -10506,7 +10510,7 @@
.local int rx881_rep
.local pmc rx881_cur
(rx881_cur, rx881_pos, rx881_tgt) = self."!cursor_start"()
- rx881_cur."!cursor_debug"("START ", "quote_escape:sym<{ }>")
+ rx881_cur."!cursor_debug"("START ", "quote_escape:sym<$>")
.lex unicode:"$\x{a2}", rx881_cur
.local pmc match
.lex "$/", match
@@ -10528,27 +10532,27 @@
set_addr $I10, rxscan884_loop
rx881_cur."!mark_push"(0, rx881_pos, $I10)
rxscan884_done:
-.annotate 'line', 417
+.annotate 'line', 418
# rx enumcharlist negate=0 zerowidth
ge rx881_pos, rx881_eos, rx881_fail
sub $I10, rx881_pos, rx881_off
substr $S10, rx881_tgt, $I10, 1
- index $I11, "{", $S10
+ index $I11, "$", $S10
lt $I11, 0, rx881_fail
# rx subrule "quotemod_check" subtype=zerowidth negate=
rx881_cur."!cursor_pos"(rx881_pos)
- $P10 = rx881_cur."quotemod_check"("c")
+ $P10 = rx881_cur."quotemod_check"("s")
unless $P10, rx881_fail
- # rx subrule "block" subtype=capture negate=
+ # rx subrule "variable" subtype=capture negate=
rx881_cur."!cursor_pos"(rx881_pos)
- $P10 = rx881_cur."block"()
+ $P10 = rx881_cur."variable"()
unless $P10, rx881_fail
rx881_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("block")
+ $P10."!cursor_names"("variable")
rx881_pos = $P10."pos"()
# rx pass
- rx881_cur."!cursor_pass"(rx881_pos, "quote_escape:sym<{ }>")
- rx881_cur."!cursor_debug"("PASS ", "quote_escape:sym<{ }>", " at pos=", rx881_pos)
+ rx881_cur."!cursor_pass"(rx881_pos, "quote_escape:sym<$>")
+ rx881_cur."!cursor_debug"("PASS ", "quote_escape:sym<$>", " at pos=", rx881_pos)
.return (rx881_cur)
rx881_fail:
.annotate 'line', 4
@@ -10558,23 +10562,23 @@
jump $I10
rx881_done:
rx881_cur."!cursor_fail"()
- rx881_cur."!cursor_debug"("FAIL ", "quote_escape:sym<{ }>")
+ rx881_cur."!cursor_debug"("FAIL ", "quote_escape:sym<$>")
.return (rx881_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<{ }>" :subid("210_1274564776.41408") :method
+.sub "!PREFIX__quote_escape:sym<$>" :subid("210_1275117591.97262") :method
.annotate 'line', 4
new $P883, "ResizablePMCArray"
- push $P883, "{"
+ push $P883, "$"
.return ($P883)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote_escape:sym<esc>" :subid("211_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote_escape:sym<{ }>" :subid("211_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx886_tgt
.local int rx886_pos
@@ -10583,7 +10587,7 @@
.local int rx886_rep
.local pmc rx886_cur
(rx886_cur, rx886_pos, rx886_tgt) = self."!cursor_start"()
- rx886_cur."!cursor_debug"("START ", "quote_escape:sym<esc>")
+ rx886_cur."!cursor_debug"("START ", "quote_escape:sym<{ }>")
.lex unicode:"$\x{a2}", rx886_cur
.local pmc match
.lex "$/", match
@@ -10605,21 +10609,27 @@
set_addr $I10, rxscan889_loop
rx886_cur."!mark_push"(0, rx886_pos, $I10)
rxscan889_done:
-.annotate 'line', 418
- # rx literal "\\e"
- add $I11, rx886_pos, 2
- gt $I11, rx886_eos, rx886_fail
- sub $I11, rx886_pos, rx886_off
- substr $S10, rx886_tgt, $I11, 2
- ne $S10, "\\e", rx886_fail
- add rx886_pos, 2
+.annotate 'line', 419
+ # rx enumcharlist negate=0 zerowidth
+ ge rx886_pos, rx886_eos, rx886_fail
+ sub $I10, rx886_pos, rx886_off
+ substr $S10, rx886_tgt, $I10, 1
+ index $I11, "{", $S10
+ lt $I11, 0, rx886_fail
# rx subrule "quotemod_check" subtype=zerowidth negate=
rx886_cur."!cursor_pos"(rx886_pos)
- $P10 = rx886_cur."quotemod_check"("b")
+ $P10 = rx886_cur."quotemod_check"("c")
+ unless $P10, rx886_fail
+ # rx subrule "block" subtype=capture negate=
+ rx886_cur."!cursor_pos"(rx886_pos)
+ $P10 = rx886_cur."block"()
unless $P10, rx886_fail
+ rx886_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("block")
+ rx886_pos = $P10."pos"()
# rx pass
- rx886_cur."!cursor_pass"(rx886_pos, "quote_escape:sym<esc>")
- rx886_cur."!cursor_debug"("PASS ", "quote_escape:sym<esc>", " at pos=", rx886_pos)
+ rx886_cur."!cursor_pass"(rx886_pos, "quote_escape:sym<{ }>")
+ rx886_cur."!cursor_debug"("PASS ", "quote_escape:sym<{ }>", " at pos=", rx886_pos)
.return (rx886_cur)
rx886_fail:
.annotate 'line', 4
@@ -10629,23 +10639,23 @@
jump $I10
rx886_done:
rx886_cur."!cursor_fail"()
- rx886_cur."!cursor_debug"("FAIL ", "quote_escape:sym<esc>")
+ rx886_cur."!cursor_debug"("FAIL ", "quote_escape:sym<{ }>")
.return (rx886_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<esc>" :subid("212_1274564776.41408") :method
+.sub "!PREFIX__quote_escape:sym<{ }>" :subid("212_1275117591.97262") :method
.annotate 'line', 4
new $P888, "ResizablePMCArray"
- push $P888, "\\e"
+ push $P888, "{"
.return ($P888)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<( )>" :subid("213_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "quote_escape:sym<esc>" :subid("213_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx891_tgt
.local int rx891_pos
@@ -10654,8 +10664,7 @@
.local int rx891_rep
.local pmc rx891_cur
(rx891_cur, rx891_pos, rx891_tgt) = self."!cursor_start"()
- rx891_cur."!cursor_debug"("START ", "circumfix:sym<( )>")
- rx891_cur."!cursor_caparray"("EXPR")
+ rx891_cur."!cursor_debug"("START ", "quote_escape:sym<esc>")
.lex unicode:"$\x{a2}", rx891_cur
.local pmc match
.lex "$/", match
@@ -10666,53 +10675,32 @@
substr rx891_tgt, rx891_tgt, rx891_off
rx891_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan895_done
- goto rxscan895_scan
- rxscan895_loop:
+ ne $I10, -1, rxscan894_done
+ goto rxscan894_scan
+ rxscan894_loop:
($P10) = rx891_cur."from"()
inc $P10
set rx891_pos, $P10
- ge rx891_pos, rx891_eos, rxscan895_done
- rxscan895_scan:
- set_addr $I10, rxscan895_loop
+ ge rx891_pos, rx891_eos, rxscan894_done
+ rxscan894_scan:
+ set_addr $I10, rxscan894_loop
rx891_cur."!mark_push"(0, rx891_pos, $I10)
- rxscan895_done:
+ rxscan894_done:
.annotate 'line', 420
- # rx literal "("
- add $I11, rx891_pos, 1
+ # rx literal "\\e"
+ add $I11, rx891_pos, 2
gt $I11, rx891_eos, rx891_fail
sub $I11, rx891_pos, rx891_off
- substr $S10, rx891_tgt, $I11, 1
- ne $S10, "(", rx891_fail
- add rx891_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx891_cur."!cursor_pos"(rx891_pos)
- $P10 = rx891_cur."ws"()
- unless $P10, rx891_fail
- rx891_pos = $P10."pos"()
- # rx rxquantr896 ** 0..1
- set_addr $I897, rxquantr896_done
- rx891_cur."!mark_push"(0, rx891_pos, $I897)
- rxquantr896_loop:
- # rx subrule "EXPR" subtype=capture negate=
+ substr $S10, rx891_tgt, $I11, 2
+ ne $S10, "\\e", rx891_fail
+ add rx891_pos, 2
+ # rx subrule "quotemod_check" subtype=zerowidth negate=
rx891_cur."!cursor_pos"(rx891_pos)
- $P10 = rx891_cur."EXPR"()
+ $P10 = rx891_cur."quotemod_check"("b")
unless $P10, rx891_fail
- rx891_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("EXPR")
- rx891_pos = $P10."pos"()
- (rx891_rep) = rx891_cur."!mark_commit"($I897)
- rxquantr896_done:
- # rx literal ")"
- add $I11, rx891_pos, 1
- gt $I11, rx891_eos, rx891_fail
- sub $I11, rx891_pos, rx891_off
- substr $S10, rx891_tgt, $I11, 1
- ne $S10, ")", rx891_fail
- add rx891_pos, 1
# rx pass
- rx891_cur."!cursor_pass"(rx891_pos, "circumfix:sym<( )>")
- rx891_cur."!cursor_debug"("PASS ", "circumfix:sym<( )>", " at pos=", rx891_pos)
+ rx891_cur."!cursor_pass"(rx891_pos, "quote_escape:sym<esc>")
+ rx891_cur."!cursor_debug"("PASS ", "quote_escape:sym<esc>", " at pos=", rx891_pos)
.return (rx891_cur)
rx891_fail:
.annotate 'line', 4
@@ -10722,191 +10710,211 @@
jump $I10
rx891_done:
rx891_cur."!cursor_fail"()
- rx891_cur."!cursor_debug"("FAIL ", "circumfix:sym<( )>")
+ rx891_cur."!cursor_debug"("FAIL ", "quote_escape:sym<esc>")
.return (rx891_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<( )>" :subid("214_1274564776.41408") :method
+.sub "!PREFIX__quote_escape:sym<esc>" :subid("214_1275117591.97262") :method
.annotate 'line', 4
- $P893 = self."!PREFIX__!subrule"("", "(")
- new $P894, "ResizablePMCArray"
- push $P894, $P893
- .return ($P894)
+ new $P893, "ResizablePMCArray"
+ push $P893, "\\e"
+ .return ($P893)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<[ ]>" :subid("215_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx899_tgt
- .local int rx899_pos
- .local int rx899_off
- .local int rx899_eos
- .local int rx899_rep
- .local pmc rx899_cur
- (rx899_cur, rx899_pos, rx899_tgt) = self."!cursor_start"()
- rx899_cur."!cursor_debug"("START ", "circumfix:sym<[ ]>")
- rx899_cur."!cursor_caparray"("EXPR")
- .lex unicode:"$\x{a2}", rx899_cur
- .local pmc match
- .lex "$/", match
- length rx899_eos, rx899_tgt
- set rx899_off, 0
- lt rx899_pos, 2, rx899_start
- sub rx899_off, rx899_pos, 1
- substr rx899_tgt, rx899_tgt, rx899_off
- rx899_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan903_done
- goto rxscan903_scan
- rxscan903_loop:
- ($P10) = rx899_cur."from"()
- inc $P10
- set rx899_pos, $P10
- ge rx899_pos, rx899_eos, rxscan903_done
- rxscan903_scan:
- set_addr $I10, rxscan903_loop
- rx899_cur."!mark_push"(0, rx899_pos, $I10)
- rxscan903_done:
-.annotate 'line', 421
- # rx literal "["
- add $I11, rx899_pos, 1
- gt $I11, rx899_eos, rx899_fail
- sub $I11, rx899_pos, rx899_off
- substr $S10, rx899_tgt, $I11, 1
- ne $S10, "[", rx899_fail
- add rx899_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx899_cur."!cursor_pos"(rx899_pos)
- $P10 = rx899_cur."ws"()
- unless $P10, rx899_fail
- rx899_pos = $P10."pos"()
- # rx rxquantr904 ** 0..1
- set_addr $I905, rxquantr904_done
- rx899_cur."!mark_push"(0, rx899_pos, $I905)
- rxquantr904_loop:
+.sub "circumfix:sym<( )>" :subid("215_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx896_tgt
+ .local int rx896_pos
+ .local int rx896_off
+ .local int rx896_eos
+ .local int rx896_rep
+ .local pmc rx896_cur
+ (rx896_cur, rx896_pos, rx896_tgt) = self."!cursor_start"()
+ rx896_cur."!cursor_debug"("START ", "circumfix:sym<( )>")
+ rx896_cur."!cursor_caparray"("EXPR")
+ .lex unicode:"$\x{a2}", rx896_cur
+ .local pmc match
+ .lex "$/", match
+ length rx896_eos, rx896_tgt
+ set rx896_off, 0
+ lt rx896_pos, 2, rx896_start
+ sub rx896_off, rx896_pos, 1
+ substr rx896_tgt, rx896_tgt, rx896_off
+ rx896_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan900_done
+ goto rxscan900_scan
+ rxscan900_loop:
+ ($P10) = rx896_cur."from"()
+ inc $P10
+ set rx896_pos, $P10
+ ge rx896_pos, rx896_eos, rxscan900_done
+ rxscan900_scan:
+ set_addr $I10, rxscan900_loop
+ rx896_cur."!mark_push"(0, rx896_pos, $I10)
+ rxscan900_done:
+.annotate 'line', 422
+ # rx literal "("
+ add $I11, rx896_pos, 1
+ gt $I11, rx896_eos, rx896_fail
+ sub $I11, rx896_pos, rx896_off
+ substr $S10, rx896_tgt, $I11, 1
+ ne $S10, "(", rx896_fail
+ add rx896_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx896_cur."!cursor_pos"(rx896_pos)
+ $P10 = rx896_cur."ws"()
+ unless $P10, rx896_fail
+ rx896_pos = $P10."pos"()
+ # rx rxquantr901 ** 0..1
+ set_addr $I902, rxquantr901_done
+ rx896_cur."!mark_push"(0, rx896_pos, $I902)
+ rxquantr901_loop:
# rx subrule "EXPR" subtype=capture negate=
- rx899_cur."!cursor_pos"(rx899_pos)
- $P10 = rx899_cur."EXPR"()
- unless $P10, rx899_fail
- rx899_cur."!mark_push"(0, -1, 0, $P10)
+ rx896_cur."!cursor_pos"(rx896_pos)
+ $P10 = rx896_cur."EXPR"()
+ unless $P10, rx896_fail
+ rx896_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx899_pos = $P10."pos"()
- (rx899_rep) = rx899_cur."!mark_commit"($I905)
- rxquantr904_done:
- # rx literal "]"
- add $I11, rx899_pos, 1
- gt $I11, rx899_eos, rx899_fail
- sub $I11, rx899_pos, rx899_off
- substr $S10, rx899_tgt, $I11, 1
- ne $S10, "]", rx899_fail
- add rx899_pos, 1
+ rx896_pos = $P10."pos"()
+ (rx896_rep) = rx896_cur."!mark_commit"($I902)
+ rxquantr901_done:
+ # rx literal ")"
+ add $I11, rx896_pos, 1
+ gt $I11, rx896_eos, rx896_fail
+ sub $I11, rx896_pos, rx896_off
+ substr $S10, rx896_tgt, $I11, 1
+ ne $S10, ")", rx896_fail
+ add rx896_pos, 1
# rx pass
- rx899_cur."!cursor_pass"(rx899_pos, "circumfix:sym<[ ]>")
- rx899_cur."!cursor_debug"("PASS ", "circumfix:sym<[ ]>", " at pos=", rx899_pos)
- .return (rx899_cur)
- rx899_fail:
+ rx896_cur."!cursor_pass"(rx896_pos, "circumfix:sym<( )>")
+ rx896_cur."!cursor_debug"("PASS ", "circumfix:sym<( )>", " at pos=", rx896_pos)
+ .return (rx896_cur)
+ rx896_fail:
.annotate 'line', 4
- (rx899_rep, rx899_pos, $I10, $P10) = rx899_cur."!mark_fail"(0)
- lt rx899_pos, -1, rx899_done
- eq rx899_pos, -1, rx899_fail
+ (rx896_rep, rx896_pos, $I10, $P10) = rx896_cur."!mark_fail"(0)
+ lt rx896_pos, -1, rx896_done
+ eq rx896_pos, -1, rx896_fail
jump $I10
- rx899_done:
- rx899_cur."!cursor_fail"()
- rx899_cur."!cursor_debug"("FAIL ", "circumfix:sym<[ ]>")
- .return (rx899_cur)
+ rx896_done:
+ rx896_cur."!cursor_fail"()
+ rx896_cur."!cursor_debug"("FAIL ", "circumfix:sym<( )>")
+ .return (rx896_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<[ ]>" :subid("216_1274564776.41408") :method
+.sub "!PREFIX__circumfix:sym<( )>" :subid("216_1275117591.97262") :method
.annotate 'line', 4
- $P901 = self."!PREFIX__!subrule"("", "[")
- new $P902, "ResizablePMCArray"
- push $P902, $P901
- .return ($P902)
+ $P898 = self."!PREFIX__!subrule"("", "(")
+ new $P899, "ResizablePMCArray"
+ push $P899, $P898
+ .return ($P899)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<ang>" :subid("217_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "circumfix:sym<[ ]>" :subid("217_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
- .local string rx907_tgt
- .local int rx907_pos
- .local int rx907_off
- .local int rx907_eos
- .local int rx907_rep
- .local pmc rx907_cur
- (rx907_cur, rx907_pos, rx907_tgt) = self."!cursor_start"()
- rx907_cur."!cursor_debug"("START ", "circumfix:sym<ang>")
- .lex unicode:"$\x{a2}", rx907_cur
- .local pmc match
- .lex "$/", match
- length rx907_eos, rx907_tgt
- set rx907_off, 0
- lt rx907_pos, 2, rx907_start
- sub rx907_off, rx907_pos, 1
- substr rx907_tgt, rx907_tgt, rx907_off
- rx907_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan910_done
- goto rxscan910_scan
- rxscan910_loop:
- ($P10) = rx907_cur."from"()
- inc $P10
- set rx907_pos, $P10
- ge rx907_pos, rx907_eos, rxscan910_done
- rxscan910_scan:
- set_addr $I10, rxscan910_loop
- rx907_cur."!mark_push"(0, rx907_pos, $I10)
- rxscan910_done:
-.annotate 'line', 422
- # rx enumcharlist negate=0 zerowidth
- ge rx907_pos, rx907_eos, rx907_fail
- sub $I10, rx907_pos, rx907_off
- substr $S10, rx907_tgt, $I10, 1
- index $I11, "<", $S10
- lt $I11, 0, rx907_fail
- # rx subrule "quote_EXPR" subtype=capture negate=
- rx907_cur."!cursor_pos"(rx907_pos)
- $P10 = rx907_cur."quote_EXPR"(":q", ":w")
- unless $P10, rx907_fail
- rx907_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("quote_EXPR")
- rx907_pos = $P10."pos"()
+ .local string rx904_tgt
+ .local int rx904_pos
+ .local int rx904_off
+ .local int rx904_eos
+ .local int rx904_rep
+ .local pmc rx904_cur
+ (rx904_cur, rx904_pos, rx904_tgt) = self."!cursor_start"()
+ rx904_cur."!cursor_debug"("START ", "circumfix:sym<[ ]>")
+ rx904_cur."!cursor_caparray"("EXPR")
+ .lex unicode:"$\x{a2}", rx904_cur
+ .local pmc match
+ .lex "$/", match
+ length rx904_eos, rx904_tgt
+ set rx904_off, 0
+ lt rx904_pos, 2, rx904_start
+ sub rx904_off, rx904_pos, 1
+ substr rx904_tgt, rx904_tgt, rx904_off
+ rx904_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan908_done
+ goto rxscan908_scan
+ rxscan908_loop:
+ ($P10) = rx904_cur."from"()
+ inc $P10
+ set rx904_pos, $P10
+ ge rx904_pos, rx904_eos, rxscan908_done
+ rxscan908_scan:
+ set_addr $I10, rxscan908_loop
+ rx904_cur."!mark_push"(0, rx904_pos, $I10)
+ rxscan908_done:
+.annotate 'line', 423
+ # rx literal "["
+ add $I11, rx904_pos, 1
+ gt $I11, rx904_eos, rx904_fail
+ sub $I11, rx904_pos, rx904_off
+ substr $S10, rx904_tgt, $I11, 1
+ ne $S10, "[", rx904_fail
+ add rx904_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx904_cur."!cursor_pos"(rx904_pos)
+ $P10 = rx904_cur."ws"()
+ unless $P10, rx904_fail
+ rx904_pos = $P10."pos"()
+ # rx rxquantr909 ** 0..1
+ set_addr $I910, rxquantr909_done
+ rx904_cur."!mark_push"(0, rx904_pos, $I910)
+ rxquantr909_loop:
+ # rx subrule "EXPR" subtype=capture negate=
+ rx904_cur."!cursor_pos"(rx904_pos)
+ $P10 = rx904_cur."EXPR"()
+ unless $P10, rx904_fail
+ rx904_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("EXPR")
+ rx904_pos = $P10."pos"()
+ (rx904_rep) = rx904_cur."!mark_commit"($I910)
+ rxquantr909_done:
+ # rx literal "]"
+ add $I11, rx904_pos, 1
+ gt $I11, rx904_eos, rx904_fail
+ sub $I11, rx904_pos, rx904_off
+ substr $S10, rx904_tgt, $I11, 1
+ ne $S10, "]", rx904_fail
+ add rx904_pos, 1
# rx pass
- rx907_cur."!cursor_pass"(rx907_pos, "circumfix:sym<ang>")
- rx907_cur."!cursor_debug"("PASS ", "circumfix:sym<ang>", " at pos=", rx907_pos)
- .return (rx907_cur)
- rx907_fail:
+ rx904_cur."!cursor_pass"(rx904_pos, "circumfix:sym<[ ]>")
+ rx904_cur."!cursor_debug"("PASS ", "circumfix:sym<[ ]>", " at pos=", rx904_pos)
+ .return (rx904_cur)
+ rx904_fail:
.annotate 'line', 4
- (rx907_rep, rx907_pos, $I10, $P10) = rx907_cur."!mark_fail"(0)
- lt rx907_pos, -1, rx907_done
- eq rx907_pos, -1, rx907_fail
+ (rx904_rep, rx904_pos, $I10, $P10) = rx904_cur."!mark_fail"(0)
+ lt rx904_pos, -1, rx904_done
+ eq rx904_pos, -1, rx904_fail
jump $I10
- rx907_done:
- rx907_cur."!cursor_fail"()
- rx907_cur."!cursor_debug"("FAIL ", "circumfix:sym<ang>")
- .return (rx907_cur)
+ rx904_done:
+ rx904_cur."!cursor_fail"()
+ rx904_cur."!cursor_debug"("FAIL ", "circumfix:sym<[ ]>")
+ .return (rx904_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<ang>" :subid("218_1274564776.41408") :method
+.sub "!PREFIX__circumfix:sym<[ ]>" :subid("218_1275117591.97262") :method
.annotate 'line', 4
- new $P909, "ResizablePMCArray"
- push $P909, "<"
- .return ($P909)
+ $P906 = self."!PREFIX__!subrule"("", "[")
+ new $P907, "ResizablePMCArray"
+ push $P907, $P906
+ .return ($P907)
.end
.namespace ["NQP";"Grammar"]
-.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("219_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "circumfix:sym<ang>" :subid("219_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx912_tgt
.local int rx912_pos
@@ -10915,7 +10923,7 @@
.local int rx912_rep
.local pmc rx912_cur
(rx912_cur, rx912_pos, rx912_tgt) = self."!cursor_start"()
- rx912_cur."!cursor_debug"("START ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
+ rx912_cur."!cursor_debug"("START ", "circumfix:sym<ang>")
.lex unicode:"$\x{a2}", rx912_cur
.local pmc match
.lex "$/", match
@@ -10937,23 +10945,23 @@
set_addr $I10, rxscan915_loop
rx912_cur."!mark_push"(0, rx912_pos, $I10)
rxscan915_done:
-.annotate 'line', 423
+.annotate 'line', 424
# rx enumcharlist negate=0 zerowidth
ge rx912_pos, rx912_eos, rx912_fail
sub $I10, rx912_pos, rx912_off
substr $S10, rx912_tgt, $I10, 1
- index $I11, unicode:"\x{ab}", $S10
+ index $I11, "<", $S10
lt $I11, 0, rx912_fail
# rx subrule "quote_EXPR" subtype=capture negate=
rx912_cur."!cursor_pos"(rx912_pos)
- $P10 = rx912_cur."quote_EXPR"(":qq", ":w")
+ $P10 = rx912_cur."quote_EXPR"(":q", ":w")
unless $P10, rx912_fail
rx912_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
rx912_pos = $P10."pos"()
# rx pass
- rx912_cur."!cursor_pass"(rx912_pos, unicode:"circumfix:sym<\x{ab} \x{bb}>")
- rx912_cur."!cursor_debug"("PASS ", unicode:"circumfix:sym<\x{ab} \x{bb}>", " at pos=", rx912_pos)
+ rx912_cur."!cursor_pass"(rx912_pos, "circumfix:sym<ang>")
+ rx912_cur."!cursor_debug"("PASS ", "circumfix:sym<ang>", " at pos=", rx912_pos)
.return (rx912_cur)
rx912_fail:
.annotate 'line', 4
@@ -10963,23 +10971,23 @@
jump $I10
rx912_done:
rx912_cur."!cursor_fail"()
- rx912_cur."!cursor_debug"("FAIL ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
+ rx912_cur."!cursor_debug"("FAIL ", "circumfix:sym<ang>")
.return (rx912_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub unicode:"!PREFIX__circumfix:sym<\x{ab} \x{bb}>" :subid("220_1274564776.41408") :method
+.sub "!PREFIX__circumfix:sym<ang>" :subid("220_1275117591.97262") :method
.annotate 'line', 4
new $P914, "ResizablePMCArray"
- push $P914, unicode:"\x{ab}"
+ push $P914, "<"
.return ($P914)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<{ }>" :subid("221_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("221_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx917_tgt
.local int rx917_pos
@@ -10988,7 +10996,7 @@
.local int rx917_rep
.local pmc rx917_cur
(rx917_cur, rx917_pos, rx917_tgt) = self."!cursor_start"()
- rx917_cur."!cursor_debug"("START ", "circumfix:sym<{ }>")
+ rx917_cur."!cursor_debug"("START ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
.lex unicode:"$\x{a2}", rx917_cur
.local pmc match
.lex "$/", match
@@ -11010,23 +11018,23 @@
set_addr $I10, rxscan920_loop
rx917_cur."!mark_push"(0, rx917_pos, $I10)
rxscan920_done:
-.annotate 'line', 424
+.annotate 'line', 425
# rx enumcharlist negate=0 zerowidth
ge rx917_pos, rx917_eos, rx917_fail
sub $I10, rx917_pos, rx917_off
substr $S10, rx917_tgt, $I10, 1
- index $I11, "{", $S10
+ index $I11, unicode:"\x{ab}", $S10
lt $I11, 0, rx917_fail
- # rx subrule "pblock" subtype=capture negate=
+ # rx subrule "quote_EXPR" subtype=capture negate=
rx917_cur."!cursor_pos"(rx917_pos)
- $P10 = rx917_cur."pblock"()
+ $P10 = rx917_cur."quote_EXPR"(":qq", ":w")
unless $P10, rx917_fail
rx917_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("pblock")
+ $P10."!cursor_names"("quote_EXPR")
rx917_pos = $P10."pos"()
# rx pass
- rx917_cur."!cursor_pass"(rx917_pos, "circumfix:sym<{ }>")
- rx917_cur."!cursor_debug"("PASS ", "circumfix:sym<{ }>", " at pos=", rx917_pos)
+ rx917_cur."!cursor_pass"(rx917_pos, unicode:"circumfix:sym<\x{ab} \x{bb}>")
+ rx917_cur."!cursor_debug"("PASS ", unicode:"circumfix:sym<\x{ab} \x{bb}>", " at pos=", rx917_pos)
.return (rx917_cur)
rx917_fail:
.annotate 'line', 4
@@ -11036,23 +11044,23 @@
jump $I10
rx917_done:
rx917_cur."!cursor_fail"()
- rx917_cur."!cursor_debug"("FAIL ", "circumfix:sym<{ }>")
+ rx917_cur."!cursor_debug"("FAIL ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
.return (rx917_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<{ }>" :subid("222_1274564776.41408") :method
+.sub unicode:"!PREFIX__circumfix:sym<\x{ab} \x{bb}>" :subid("222_1275117591.97262") :method
.annotate 'line', 4
new $P919, "ResizablePMCArray"
- push $P919, "{"
+ push $P919, unicode:"\x{ab}"
.return ($P919)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<sigil>" :subid("223_1274564776.41408") :method :outer("11_1274564776.41408")
+.sub "circumfix:sym<{ }>" :subid("223_1275117591.97262") :method :outer("11_1275117591.97262")
.annotate 'line', 4
.local string rx922_tgt
.local int rx922_pos
@@ -11061,7 +11069,7 @@
.local int rx922_rep
.local pmc rx922_cur
(rx922_cur, rx922_pos, rx922_tgt) = self."!cursor_start"()
- rx922_cur."!cursor_debug"("START ", "circumfix:sym<sigil>")
+ rx922_cur."!cursor_debug"("START ", "circumfix:sym<{ }>")
.lex unicode:"$\x{a2}", rx922_cur
.local pmc match
.lex "$/", match
@@ -11072,60 +11080,34 @@
substr rx922_tgt, rx922_tgt, rx922_off
rx922_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan926_done
- goto rxscan926_scan
- rxscan926_loop:
+ ne $I10, -1, rxscan925_done
+ goto rxscan925_scan
+ rxscan925_loop:
($P10) = rx922_cur."from"()
inc $P10
set rx922_pos, $P10
- ge rx922_pos, rx922_eos, rxscan926_done
- rxscan926_scan:
- set_addr $I10, rxscan926_loop
+ ge rx922_pos, rx922_eos, rxscan925_done
+ rxscan925_scan:
+ set_addr $I10, rxscan925_loop
rx922_cur."!mark_push"(0, rx922_pos, $I10)
- rxscan926_done:
-.annotate 'line', 425
- # rx subrule "sigil" subtype=capture negate=
- rx922_cur."!cursor_pos"(rx922_pos)
- $P10 = rx922_cur."sigil"()
- unless $P10, rx922_fail
- rx922_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sigil")
- rx922_pos = $P10."pos"()
- # rx literal "("
- add $I11, rx922_pos, 1
- gt $I11, rx922_eos, rx922_fail
- sub $I11, rx922_pos, rx922_off
- substr $S10, rx922_tgt, $I11, 1
- ne $S10, "(", rx922_fail
- add rx922_pos, 1
- # rx subrule "semilist" subtype=capture negate=
+ rxscan925_done:
+.annotate 'line', 426
+ # rx enumcharlist negate=0 zerowidth
+ ge rx922_pos, rx922_eos, rx922_fail
+ sub $I10, rx922_pos, rx922_off
+ substr $S10, rx922_tgt, $I10, 1
+ index $I11, "{", $S10
+ lt $I11, 0, rx922_fail
+ # rx subrule "pblock" subtype=capture negate=
rx922_cur."!cursor_pos"(rx922_pos)
- $P10 = rx922_cur."semilist"()
+ $P10 = rx922_cur."pblock"()
unless $P10, rx922_fail
rx922_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("semilist")
- rx922_pos = $P10."pos"()
- alt927_0:
- set_addr $I10, alt927_1
- rx922_cur."!mark_push"(0, rx922_pos, $I10)
- # rx literal ")"
- add $I11, rx922_pos, 1
- gt $I11, rx922_eos, rx922_fail
- sub $I11, rx922_pos, rx922_off
- substr $S10, rx922_tgt, $I11, 1
- ne $S10, ")", rx922_fail
- add rx922_pos, 1
- goto alt927_end
- alt927_1:
- # rx subrule "FAILGOAL" subtype=method negate=
- rx922_cur."!cursor_pos"(rx922_pos)
- $P10 = rx922_cur."FAILGOAL"("')'")
- unless $P10, rx922_fail
+ $P10."!cursor_names"("pblock")
rx922_pos = $P10."pos"()
- alt927_end:
# rx pass
- rx922_cur."!cursor_pass"(rx922_pos, "circumfix:sym<sigil>")
- rx922_cur."!cursor_debug"("PASS ", "circumfix:sym<sigil>", " at pos=", rx922_pos)
+ rx922_cur."!cursor_pass"(rx922_pos, "circumfix:sym<{ }>")
+ rx922_cur."!cursor_debug"("PASS ", "circumfix:sym<{ }>", " at pos=", rx922_pos)
.return (rx922_cur)
rx922_fail:
.annotate 'line', 4
@@ -11135,173 +11117,201 @@
jump $I10
rx922_done:
rx922_cur."!cursor_fail"()
- rx922_cur."!cursor_debug"("FAIL ", "circumfix:sym<sigil>")
+ rx922_cur."!cursor_debug"("FAIL ", "circumfix:sym<{ }>")
.return (rx922_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<sigil>" :subid("224_1274564776.41408") :method
+.sub "!PREFIX__circumfix:sym<{ }>" :subid("224_1275117591.97262") :method
.annotate 'line', 4
- $P924 = self."!PREFIX__!subrule"("sigil", "")
- new $P925, "ResizablePMCArray"
- push $P925, $P924
- .return ($P925)
+ new $P924, "ResizablePMCArray"
+ push $P924, "{"
+ .return ($P924)
.end
.namespace ["NQP";"Grammar"]
-.sub "semilist" :subid("225_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 4
- .local string rx930_tgt
- .local int rx930_pos
- .local int rx930_off
- .local int rx930_eos
- .local int rx930_rep
- .local pmc rx930_cur
- (rx930_cur, rx930_pos, rx930_tgt) = self."!cursor_start"()
- rx930_cur."!cursor_debug"("START ", "semilist")
- .lex unicode:"$\x{a2}", rx930_cur
- .local pmc match
- .lex "$/", match
- length rx930_eos, rx930_tgt
- set rx930_off, 0
- lt rx930_pos, 2, rx930_start
- sub rx930_off, rx930_pos, 1
- substr rx930_tgt, rx930_tgt, rx930_off
- rx930_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan933_done
- goto rxscan933_scan
- rxscan933_loop:
- ($P10) = rx930_cur."from"()
- inc $P10
- set rx930_pos, $P10
- ge rx930_pos, rx930_eos, rxscan933_done
- rxscan933_scan:
- set_addr $I10, rxscan933_loop
- rx930_cur."!mark_push"(0, rx930_pos, $I10)
- rxscan933_done:
+.sub "circumfix:sym<sigil>" :subid("225_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx927_tgt
+ .local int rx927_pos
+ .local int rx927_off
+ .local int rx927_eos
+ .local int rx927_rep
+ .local pmc rx927_cur
+ (rx927_cur, rx927_pos, rx927_tgt) = self."!cursor_start"()
+ rx927_cur."!cursor_debug"("START ", "circumfix:sym<sigil>")
+ .lex unicode:"$\x{a2}", rx927_cur
+ .local pmc match
+ .lex "$/", match
+ length rx927_eos, rx927_tgt
+ set rx927_off, 0
+ lt rx927_pos, 2, rx927_start
+ sub rx927_off, rx927_pos, 1
+ substr rx927_tgt, rx927_tgt, rx927_off
+ rx927_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan931_done
+ goto rxscan931_scan
+ rxscan931_loop:
+ ($P10) = rx927_cur."from"()
+ inc $P10
+ set rx927_pos, $P10
+ ge rx927_pos, rx927_eos, rxscan931_done
+ rxscan931_scan:
+ set_addr $I10, rxscan931_loop
+ rx927_cur."!mark_push"(0, rx927_pos, $I10)
+ rxscan931_done:
.annotate 'line', 427
- # rx subrule "ws" subtype=method negate=
- rx930_cur."!cursor_pos"(rx930_pos)
- $P10 = rx930_cur."ws"()
- unless $P10, rx930_fail
- rx930_pos = $P10."pos"()
- # rx subrule "statement" subtype=capture negate=
- rx930_cur."!cursor_pos"(rx930_pos)
- $P10 = rx930_cur."statement"()
- unless $P10, rx930_fail
- rx930_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("statement")
- rx930_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx930_cur."!cursor_pos"(rx930_pos)
- $P10 = rx930_cur."ws"()
- unless $P10, rx930_fail
- rx930_pos = $P10."pos"()
+ # rx subrule "sigil" subtype=capture negate=
+ rx927_cur."!cursor_pos"(rx927_pos)
+ $P10 = rx927_cur."sigil"()
+ unless $P10, rx927_fail
+ rx927_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sigil")
+ rx927_pos = $P10."pos"()
+ # rx literal "("
+ add $I11, rx927_pos, 1
+ gt $I11, rx927_eos, rx927_fail
+ sub $I11, rx927_pos, rx927_off
+ substr $S10, rx927_tgt, $I11, 1
+ ne $S10, "(", rx927_fail
+ add rx927_pos, 1
+ # rx subrule "semilist" subtype=capture negate=
+ rx927_cur."!cursor_pos"(rx927_pos)
+ $P10 = rx927_cur."semilist"()
+ unless $P10, rx927_fail
+ rx927_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("semilist")
+ rx927_pos = $P10."pos"()
+ alt932_0:
+ set_addr $I10, alt932_1
+ rx927_cur."!mark_push"(0, rx927_pos, $I10)
+ # rx literal ")"
+ add $I11, rx927_pos, 1
+ gt $I11, rx927_eos, rx927_fail
+ sub $I11, rx927_pos, rx927_off
+ substr $S10, rx927_tgt, $I11, 1
+ ne $S10, ")", rx927_fail
+ add rx927_pos, 1
+ goto alt932_end
+ alt932_1:
+ # rx subrule "FAILGOAL" subtype=method negate=
+ rx927_cur."!cursor_pos"(rx927_pos)
+ $P10 = rx927_cur."FAILGOAL"("')'")
+ unless $P10, rx927_fail
+ rx927_pos = $P10."pos"()
+ alt932_end:
# rx pass
- rx930_cur."!cursor_pass"(rx930_pos, "semilist")
- rx930_cur."!cursor_debug"("PASS ", "semilist", " at pos=", rx930_pos)
- .return (rx930_cur)
- rx930_fail:
+ rx927_cur."!cursor_pass"(rx927_pos, "circumfix:sym<sigil>")
+ rx927_cur."!cursor_debug"("PASS ", "circumfix:sym<sigil>", " at pos=", rx927_pos)
+ .return (rx927_cur)
+ rx927_fail:
.annotate 'line', 4
- (rx930_rep, rx930_pos, $I10, $P10) = rx930_cur."!mark_fail"(0)
- lt rx930_pos, -1, rx930_done
- eq rx930_pos, -1, rx930_fail
+ (rx927_rep, rx927_pos, $I10, $P10) = rx927_cur."!mark_fail"(0)
+ lt rx927_pos, -1, rx927_done
+ eq rx927_pos, -1, rx927_fail
jump $I10
- rx930_done:
- rx930_cur."!cursor_fail"()
- rx930_cur."!cursor_debug"("FAIL ", "semilist")
- .return (rx930_cur)
+ rx927_done:
+ rx927_cur."!cursor_fail"()
+ rx927_cur."!cursor_debug"("FAIL ", "circumfix:sym<sigil>")
+ .return (rx927_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__semilist" :subid("226_1274564776.41408") :method
+.sub "!PREFIX__circumfix:sym<sigil>" :subid("226_1275117591.97262") :method
.annotate 'line', 4
- new $P932, "ResizablePMCArray"
- push $P932, ""
- .return ($P932)
+ $P929 = self."!PREFIX__!subrule"("sigil", "")
+ new $P930, "ResizablePMCArray"
+ push $P930, $P929
+ .return ($P930)
.end
.namespace ["NQP";"Grammar"]
-.sub "infixish" :subid("227_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx937_tgt
- .local int rx937_pos
- .local int rx937_off
- .local int rx937_eos
- .local int rx937_rep
- .local pmc rx937_cur
- (rx937_cur, rx937_pos, rx937_tgt) = self."!cursor_start"()
- rx937_cur."!cursor_debug"("START ", "infixish")
- .lex unicode:"$\x{a2}", rx937_cur
+.sub "semilist" :subid("227_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 4
+ .local string rx935_tgt
+ .local int rx935_pos
+ .local int rx935_off
+ .local int rx935_eos
+ .local int rx935_rep
+ .local pmc rx935_cur
+ (rx935_cur, rx935_pos, rx935_tgt) = self."!cursor_start"()
+ rx935_cur."!cursor_debug"("START ", "semilist")
+ .lex unicode:"$\x{a2}", rx935_cur
.local pmc match
.lex "$/", match
- length rx937_eos, rx937_tgt
- set rx937_off, 0
- lt rx937_pos, 2, rx937_start
- sub rx937_off, rx937_pos, 1
- substr rx937_tgt, rx937_tgt, rx937_off
- rx937_start:
+ length rx935_eos, rx935_tgt
+ set rx935_off, 0
+ lt rx935_pos, 2, rx935_start
+ sub rx935_off, rx935_pos, 1
+ substr rx935_tgt, rx935_tgt, rx935_off
+ rx935_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan940_done
- goto rxscan940_scan
- rxscan940_loop:
- ($P10) = rx937_cur."from"()
+ ne $I10, -1, rxscan938_done
+ goto rxscan938_scan
+ rxscan938_loop:
+ ($P10) = rx935_cur."from"()
inc $P10
- set rx937_pos, $P10
- ge rx937_pos, rx937_eos, rxscan940_done
- rxscan940_scan:
- set_addr $I10, rxscan940_loop
- rx937_cur."!mark_push"(0, rx937_pos, $I10)
- rxscan940_done:
-.annotate 'line', 450
- # rx subrule "infixstopper" subtype=zerowidth negate=1
- rx937_cur."!cursor_pos"(rx937_pos)
- $P10 = rx937_cur."infixstopper"()
- if $P10, rx937_fail
- # rx subrule "infix" subtype=capture negate=
- rx937_cur."!cursor_pos"(rx937_pos)
- $P10 = rx937_cur."infix"()
- unless $P10, rx937_fail
- rx937_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("OPER=infix")
- rx937_pos = $P10."pos"()
+ set rx935_pos, $P10
+ ge rx935_pos, rx935_eos, rxscan938_done
+ rxscan938_scan:
+ set_addr $I10, rxscan938_loop
+ rx935_cur."!mark_push"(0, rx935_pos, $I10)
+ rxscan938_done:
+.annotate 'line', 429
+ # rx subrule "ws" subtype=method negate=
+ rx935_cur."!cursor_pos"(rx935_pos)
+ $P10 = rx935_cur."ws"()
+ unless $P10, rx935_fail
+ rx935_pos = $P10."pos"()
+ # rx subrule "statement" subtype=capture negate=
+ rx935_cur."!cursor_pos"(rx935_pos)
+ $P10 = rx935_cur."statement"()
+ unless $P10, rx935_fail
+ rx935_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("statement")
+ rx935_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx935_cur."!cursor_pos"(rx935_pos)
+ $P10 = rx935_cur."ws"()
+ unless $P10, rx935_fail
+ rx935_pos = $P10."pos"()
# rx pass
- rx937_cur."!cursor_pass"(rx937_pos, "infixish")
- rx937_cur."!cursor_debug"("PASS ", "infixish", " at pos=", rx937_pos)
- .return (rx937_cur)
- rx937_fail:
-.annotate 'line', 431
- (rx937_rep, rx937_pos, $I10, $P10) = rx937_cur."!mark_fail"(0)
- lt rx937_pos, -1, rx937_done
- eq rx937_pos, -1, rx937_fail
+ rx935_cur."!cursor_pass"(rx935_pos, "semilist")
+ rx935_cur."!cursor_debug"("PASS ", "semilist", " at pos=", rx935_pos)
+ .return (rx935_cur)
+ rx935_fail:
+.annotate 'line', 4
+ (rx935_rep, rx935_pos, $I10, $P10) = rx935_cur."!mark_fail"(0)
+ lt rx935_pos, -1, rx935_done
+ eq rx935_pos, -1, rx935_fail
jump $I10
- rx937_done:
- rx937_cur."!cursor_fail"()
- rx937_cur."!cursor_debug"("FAIL ", "infixish")
- .return (rx937_cur)
+ rx935_done:
+ rx935_cur."!cursor_fail"()
+ rx935_cur."!cursor_debug"("FAIL ", "semilist")
+ .return (rx935_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infixish" :subid("228_1274564776.41408") :method
-.annotate 'line', 431
- new $P939, "ResizablePMCArray"
- push $P939, ""
- .return ($P939)
+.sub "!PREFIX__semilist" :subid("228_1275117591.97262") :method
+.annotate 'line', 4
+ new $P937, "ResizablePMCArray"
+ push $P937, ""
+ .return ($P937)
.end
.namespace ["NQP";"Grammar"]
-.sub "infixstopper" :subid("229_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
+.sub "infixish" :subid("229_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
.local string rx942_tgt
.local int rx942_pos
.local int rx942_off
@@ -11309,7 +11319,7 @@
.local int rx942_rep
.local pmc rx942_cur
(rx942_cur, rx942_pos, rx942_tgt) = self."!cursor_start"()
- rx942_cur."!cursor_debug"("START ", "infixstopper")
+ rx942_cur."!cursor_debug"("START ", "infixish")
.lex unicode:"$\x{a2}", rx942_cur
.local pmc match
.lex "$/", match
@@ -11331,32 +11341,39 @@
set_addr $I10, rxscan945_loop
rx942_cur."!mark_push"(0, rx942_pos, $I10)
rxscan945_done:
-.annotate 'line', 451
- # rx subrule "lambda" subtype=zerowidth negate=
+.annotate 'line', 452
+ # rx subrule "infixstopper" subtype=zerowidth negate=1
+ rx942_cur."!cursor_pos"(rx942_pos)
+ $P10 = rx942_cur."infixstopper"()
+ if $P10, rx942_fail
+ # rx subrule "infix" subtype=capture negate=
rx942_cur."!cursor_pos"(rx942_pos)
- $P10 = rx942_cur."lambda"()
+ $P10 = rx942_cur."infix"()
unless $P10, rx942_fail
+ rx942_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("OPER=infix")
+ rx942_pos = $P10."pos"()
# rx pass
- rx942_cur."!cursor_pass"(rx942_pos, "infixstopper")
- rx942_cur."!cursor_debug"("PASS ", "infixstopper", " at pos=", rx942_pos)
+ rx942_cur."!cursor_pass"(rx942_pos, "infixish")
+ rx942_cur."!cursor_debug"("PASS ", "infixish", " at pos=", rx942_pos)
.return (rx942_cur)
rx942_fail:
-.annotate 'line', 431
+.annotate 'line', 433
(rx942_rep, rx942_pos, $I10, $P10) = rx942_cur."!mark_fail"(0)
lt rx942_pos, -1, rx942_done
eq rx942_pos, -1, rx942_fail
jump $I10
rx942_done:
rx942_cur."!cursor_fail"()
- rx942_cur."!cursor_debug"("FAIL ", "infixstopper")
+ rx942_cur."!cursor_debug"("FAIL ", "infixish")
.return (rx942_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infixstopper" :subid("230_1274564776.41408") :method
-.annotate 'line', 431
+.sub "!PREFIX__infixish" :subid("230_1275117591.97262") :method
+.annotate 'line', 433
new $P944, "ResizablePMCArray"
push $P944, ""
.return ($P944)
@@ -11364,8 +11381,8 @@
.namespace ["NQP";"Grammar"]
-.sub "postcircumfix:sym<[ ]>" :subid("231_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
+.sub "infixstopper" :subid("231_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
.local string rx947_tgt
.local int rx947_pos
.local int rx947_off
@@ -11373,7 +11390,7 @@
.local int rx947_rep
.local pmc rx947_cur
(rx947_cur, rx947_pos, rx947_tgt) = self."!cursor_start"()
- rx947_cur."!cursor_debug"("START ", "postcircumfix:sym<[ ]>")
+ rx947_cur."!cursor_debug"("START ", "infixstopper")
.lex unicode:"$\x{a2}", rx947_cur
.local pmc match
.lex "$/", match
@@ -11384,262 +11401,244 @@
substr rx947_tgt, rx947_tgt, rx947_off
rx947_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan951_done
- goto rxscan951_scan
- rxscan951_loop:
+ ne $I10, -1, rxscan950_done
+ goto rxscan950_scan
+ rxscan950_loop:
($P10) = rx947_cur."from"()
inc $P10
set rx947_pos, $P10
- ge rx947_pos, rx947_eos, rxscan951_done
- rxscan951_scan:
- set_addr $I10, rxscan951_loop
+ ge rx947_pos, rx947_eos, rxscan950_done
+ rxscan950_scan:
+ set_addr $I10, rxscan950_loop
rx947_cur."!mark_push"(0, rx947_pos, $I10)
- rxscan951_done:
-.annotate 'line', 454
- # rx literal "["
- add $I11, rx947_pos, 1
- gt $I11, rx947_eos, rx947_fail
- sub $I11, rx947_pos, rx947_off
- substr $S10, rx947_tgt, $I11, 1
- ne $S10, "[", rx947_fail
- add rx947_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx947_cur."!cursor_pos"(rx947_pos)
- $P10 = rx947_cur."ws"()
- unless $P10, rx947_fail
- rx947_pos = $P10."pos"()
- # rx subrule "EXPR" subtype=capture negate=
- rx947_cur."!cursor_pos"(rx947_pos)
- $P10 = rx947_cur."EXPR"()
- unless $P10, rx947_fail
- rx947_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("EXPR")
- rx947_pos = $P10."pos"()
- # rx literal "]"
- add $I11, rx947_pos, 1
- gt $I11, rx947_eos, rx947_fail
- sub $I11, rx947_pos, rx947_off
- substr $S10, rx947_tgt, $I11, 1
- ne $S10, "]", rx947_fail
- add rx947_pos, 1
-.annotate 'line', 455
- # rx subrule "O" subtype=capture negate=
+ rxscan950_done:
+.annotate 'line', 453
+ # rx subrule "lambda" subtype=zerowidth negate=
rx947_cur."!cursor_pos"(rx947_pos)
- $P10 = rx947_cur."O"("%methodop")
+ $P10 = rx947_cur."lambda"()
unless $P10, rx947_fail
- rx947_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("O")
- rx947_pos = $P10."pos"()
-.annotate 'line', 453
# rx pass
- rx947_cur."!cursor_pass"(rx947_pos, "postcircumfix:sym<[ ]>")
- rx947_cur."!cursor_debug"("PASS ", "postcircumfix:sym<[ ]>", " at pos=", rx947_pos)
+ rx947_cur."!cursor_pass"(rx947_pos, "infixstopper")
+ rx947_cur."!cursor_debug"("PASS ", "infixstopper", " at pos=", rx947_pos)
.return (rx947_cur)
rx947_fail:
-.annotate 'line', 431
+.annotate 'line', 433
(rx947_rep, rx947_pos, $I10, $P10) = rx947_cur."!mark_fail"(0)
lt rx947_pos, -1, rx947_done
eq rx947_pos, -1, rx947_fail
jump $I10
rx947_done:
rx947_cur."!cursor_fail"()
- rx947_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<[ ]>")
+ rx947_cur."!cursor_debug"("FAIL ", "infixstopper")
.return (rx947_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<[ ]>" :subid("232_1274564776.41408") :method
-.annotate 'line', 431
- $P949 = self."!PREFIX__!subrule"("", "[")
- new $P950, "ResizablePMCArray"
- push $P950, $P949
- .return ($P950)
+.sub "!PREFIX__infixstopper" :subid("232_1275117591.97262") :method
+.annotate 'line', 433
+ new $P949, "ResizablePMCArray"
+ push $P949, ""
+ .return ($P949)
.end
.namespace ["NQP";"Grammar"]
-.sub "postcircumfix:sym<{ }>" :subid("233_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx953_tgt
- .local int rx953_pos
- .local int rx953_off
- .local int rx953_eos
- .local int rx953_rep
- .local pmc rx953_cur
- (rx953_cur, rx953_pos, rx953_tgt) = self."!cursor_start"()
- rx953_cur."!cursor_debug"("START ", "postcircumfix:sym<{ }>")
- .lex unicode:"$\x{a2}", rx953_cur
- .local pmc match
- .lex "$/", match
- length rx953_eos, rx953_tgt
- set rx953_off, 0
- lt rx953_pos, 2, rx953_start
- sub rx953_off, rx953_pos, 1
- substr rx953_tgt, rx953_tgt, rx953_off
- rx953_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan957_done
- goto rxscan957_scan
- rxscan957_loop:
- ($P10) = rx953_cur."from"()
- inc $P10
- set rx953_pos, $P10
- ge rx953_pos, rx953_eos, rxscan957_done
- rxscan957_scan:
- set_addr $I10, rxscan957_loop
- rx953_cur."!mark_push"(0, rx953_pos, $I10)
- rxscan957_done:
-.annotate 'line', 459
- # rx literal "{"
- add $I11, rx953_pos, 1
- gt $I11, rx953_eos, rx953_fail
- sub $I11, rx953_pos, rx953_off
- substr $S10, rx953_tgt, $I11, 1
- ne $S10, "{", rx953_fail
- add rx953_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx953_cur."!cursor_pos"(rx953_pos)
- $P10 = rx953_cur."ws"()
- unless $P10, rx953_fail
- rx953_pos = $P10."pos"()
+.sub "postcircumfix:sym<[ ]>" :subid("233_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx952_tgt
+ .local int rx952_pos
+ .local int rx952_off
+ .local int rx952_eos
+ .local int rx952_rep
+ .local pmc rx952_cur
+ (rx952_cur, rx952_pos, rx952_tgt) = self."!cursor_start"()
+ rx952_cur."!cursor_debug"("START ", "postcircumfix:sym<[ ]>")
+ .lex unicode:"$\x{a2}", rx952_cur
+ .local pmc match
+ .lex "$/", match
+ length rx952_eos, rx952_tgt
+ set rx952_off, 0
+ lt rx952_pos, 2, rx952_start
+ sub rx952_off, rx952_pos, 1
+ substr rx952_tgt, rx952_tgt, rx952_off
+ rx952_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan956_done
+ goto rxscan956_scan
+ rxscan956_loop:
+ ($P10) = rx952_cur."from"()
+ inc $P10
+ set rx952_pos, $P10
+ ge rx952_pos, rx952_eos, rxscan956_done
+ rxscan956_scan:
+ set_addr $I10, rxscan956_loop
+ rx952_cur."!mark_push"(0, rx952_pos, $I10)
+ rxscan956_done:
+.annotate 'line', 456
+ # rx literal "["
+ add $I11, rx952_pos, 1
+ gt $I11, rx952_eos, rx952_fail
+ sub $I11, rx952_pos, rx952_off
+ substr $S10, rx952_tgt, $I11, 1
+ ne $S10, "[", rx952_fail
+ add rx952_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx952_cur."!cursor_pos"(rx952_pos)
+ $P10 = rx952_cur."ws"()
+ unless $P10, rx952_fail
+ rx952_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx953_cur."!cursor_pos"(rx953_pos)
- $P10 = rx953_cur."EXPR"()
- unless $P10, rx953_fail
- rx953_cur."!mark_push"(0, -1, 0, $P10)
+ rx952_cur."!cursor_pos"(rx952_pos)
+ $P10 = rx952_cur."EXPR"()
+ unless $P10, rx952_fail
+ rx952_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx953_pos = $P10."pos"()
- # rx literal "}"
- add $I11, rx953_pos, 1
- gt $I11, rx953_eos, rx953_fail
- sub $I11, rx953_pos, rx953_off
- substr $S10, rx953_tgt, $I11, 1
- ne $S10, "}", rx953_fail
- add rx953_pos, 1
-.annotate 'line', 460
+ rx952_pos = $P10."pos"()
+ # rx literal "]"
+ add $I11, rx952_pos, 1
+ gt $I11, rx952_eos, rx952_fail
+ sub $I11, rx952_pos, rx952_off
+ substr $S10, rx952_tgt, $I11, 1
+ ne $S10, "]", rx952_fail
+ add rx952_pos, 1
+.annotate 'line', 457
# rx subrule "O" subtype=capture negate=
- rx953_cur."!cursor_pos"(rx953_pos)
- $P10 = rx953_cur."O"("%methodop")
- unless $P10, rx953_fail
- rx953_cur."!mark_push"(0, -1, 0, $P10)
+ rx952_cur."!cursor_pos"(rx952_pos)
+ $P10 = rx952_cur."O"("%methodop")
+ unless $P10, rx952_fail
+ rx952_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx953_pos = $P10."pos"()
-.annotate 'line', 458
+ rx952_pos = $P10."pos"()
+.annotate 'line', 455
# rx pass
- rx953_cur."!cursor_pass"(rx953_pos, "postcircumfix:sym<{ }>")
- rx953_cur."!cursor_debug"("PASS ", "postcircumfix:sym<{ }>", " at pos=", rx953_pos)
- .return (rx953_cur)
- rx953_fail:
-.annotate 'line', 431
- (rx953_rep, rx953_pos, $I10, $P10) = rx953_cur."!mark_fail"(0)
- lt rx953_pos, -1, rx953_done
- eq rx953_pos, -1, rx953_fail
+ rx952_cur."!cursor_pass"(rx952_pos, "postcircumfix:sym<[ ]>")
+ rx952_cur."!cursor_debug"("PASS ", "postcircumfix:sym<[ ]>", " at pos=", rx952_pos)
+ .return (rx952_cur)
+ rx952_fail:
+.annotate 'line', 433
+ (rx952_rep, rx952_pos, $I10, $P10) = rx952_cur."!mark_fail"(0)
+ lt rx952_pos, -1, rx952_done
+ eq rx952_pos, -1, rx952_fail
jump $I10
- rx953_done:
- rx953_cur."!cursor_fail"()
- rx953_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<{ }>")
- .return (rx953_cur)
+ rx952_done:
+ rx952_cur."!cursor_fail"()
+ rx952_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<[ ]>")
+ .return (rx952_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<{ }>" :subid("234_1274564776.41408") :method
-.annotate 'line', 431
- $P955 = self."!PREFIX__!subrule"("", "{")
- new $P956, "ResizablePMCArray"
- push $P956, $P955
- .return ($P956)
+.sub "!PREFIX__postcircumfix:sym<[ ]>" :subid("234_1275117591.97262") :method
+.annotate 'line', 433
+ $P954 = self."!PREFIX__!subrule"("", "[")
+ new $P955, "ResizablePMCArray"
+ push $P955, $P954
+ .return ($P955)
.end
.namespace ["NQP";"Grammar"]
-.sub "postcircumfix:sym<ang>" :subid("235_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx959_tgt
- .local int rx959_pos
- .local int rx959_off
- .local int rx959_eos
- .local int rx959_rep
- .local pmc rx959_cur
- (rx959_cur, rx959_pos, rx959_tgt) = self."!cursor_start"()
- rx959_cur."!cursor_debug"("START ", "postcircumfix:sym<ang>")
- .lex unicode:"$\x{a2}", rx959_cur
- .local pmc match
- .lex "$/", match
- length rx959_eos, rx959_tgt
- set rx959_off, 0
- lt rx959_pos, 2, rx959_start
- sub rx959_off, rx959_pos, 1
- substr rx959_tgt, rx959_tgt, rx959_off
- rx959_start:
+.sub "postcircumfix:sym<{ }>" :subid("235_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx958_tgt
+ .local int rx958_pos
+ .local int rx958_off
+ .local int rx958_eos
+ .local int rx958_rep
+ .local pmc rx958_cur
+ (rx958_cur, rx958_pos, rx958_tgt) = self."!cursor_start"()
+ rx958_cur."!cursor_debug"("START ", "postcircumfix:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx958_cur
+ .local pmc match
+ .lex "$/", match
+ length rx958_eos, rx958_tgt
+ set rx958_off, 0
+ lt rx958_pos, 2, rx958_start
+ sub rx958_off, rx958_pos, 1
+ substr rx958_tgt, rx958_tgt, rx958_off
+ rx958_start:
$I10 = self.'from'()
ne $I10, -1, rxscan962_done
goto rxscan962_scan
rxscan962_loop:
- ($P10) = rx959_cur."from"()
+ ($P10) = rx958_cur."from"()
inc $P10
- set rx959_pos, $P10
- ge rx959_pos, rx959_eos, rxscan962_done
+ set rx958_pos, $P10
+ ge rx958_pos, rx958_eos, rxscan962_done
rxscan962_scan:
set_addr $I10, rxscan962_loop
- rx959_cur."!mark_push"(0, rx959_pos, $I10)
+ rx958_cur."!mark_push"(0, rx958_pos, $I10)
rxscan962_done:
-.annotate 'line', 464
- # rx enumcharlist negate=0 zerowidth
- ge rx959_pos, rx959_eos, rx959_fail
- sub $I10, rx959_pos, rx959_off
- substr $S10, rx959_tgt, $I10, 1
- index $I11, "<", $S10
- lt $I11, 0, rx959_fail
- # rx subrule "quote_EXPR" subtype=capture negate=
- rx959_cur."!cursor_pos"(rx959_pos)
- $P10 = rx959_cur."quote_EXPR"(":q")
- unless $P10, rx959_fail
- rx959_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("quote_EXPR")
- rx959_pos = $P10."pos"()
-.annotate 'line', 465
+.annotate 'line', 461
+ # rx literal "{"
+ add $I11, rx958_pos, 1
+ gt $I11, rx958_eos, rx958_fail
+ sub $I11, rx958_pos, rx958_off
+ substr $S10, rx958_tgt, $I11, 1
+ ne $S10, "{", rx958_fail
+ add rx958_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx958_cur."!cursor_pos"(rx958_pos)
+ $P10 = rx958_cur."ws"()
+ unless $P10, rx958_fail
+ rx958_pos = $P10."pos"()
+ # rx subrule "EXPR" subtype=capture negate=
+ rx958_cur."!cursor_pos"(rx958_pos)
+ $P10 = rx958_cur."EXPR"()
+ unless $P10, rx958_fail
+ rx958_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("EXPR")
+ rx958_pos = $P10."pos"()
+ # rx literal "}"
+ add $I11, rx958_pos, 1
+ gt $I11, rx958_eos, rx958_fail
+ sub $I11, rx958_pos, rx958_off
+ substr $S10, rx958_tgt, $I11, 1
+ ne $S10, "}", rx958_fail
+ add rx958_pos, 1
+.annotate 'line', 462
# rx subrule "O" subtype=capture negate=
- rx959_cur."!cursor_pos"(rx959_pos)
- $P10 = rx959_cur."O"("%methodop")
- unless $P10, rx959_fail
- rx959_cur."!mark_push"(0, -1, 0, $P10)
+ rx958_cur."!cursor_pos"(rx958_pos)
+ $P10 = rx958_cur."O"("%methodop")
+ unless $P10, rx958_fail
+ rx958_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx959_pos = $P10."pos"()
-.annotate 'line', 463
+ rx958_pos = $P10."pos"()
+.annotate 'line', 460
# rx pass
- rx959_cur."!cursor_pass"(rx959_pos, "postcircumfix:sym<ang>")
- rx959_cur."!cursor_debug"("PASS ", "postcircumfix:sym<ang>", " at pos=", rx959_pos)
- .return (rx959_cur)
- rx959_fail:
-.annotate 'line', 431
- (rx959_rep, rx959_pos, $I10, $P10) = rx959_cur."!mark_fail"(0)
- lt rx959_pos, -1, rx959_done
- eq rx959_pos, -1, rx959_fail
+ rx958_cur."!cursor_pass"(rx958_pos, "postcircumfix:sym<{ }>")
+ rx958_cur."!cursor_debug"("PASS ", "postcircumfix:sym<{ }>", " at pos=", rx958_pos)
+ .return (rx958_cur)
+ rx958_fail:
+.annotate 'line', 433
+ (rx958_rep, rx958_pos, $I10, $P10) = rx958_cur."!mark_fail"(0)
+ lt rx958_pos, -1, rx958_done
+ eq rx958_pos, -1, rx958_fail
jump $I10
- rx959_done:
- rx959_cur."!cursor_fail"()
- rx959_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<ang>")
- .return (rx959_cur)
+ rx958_done:
+ rx958_cur."!cursor_fail"()
+ rx958_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<{ }>")
+ .return (rx958_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<ang>" :subid("236_1274564776.41408") :method
-.annotate 'line', 431
+.sub "!PREFIX__postcircumfix:sym<{ }>" :subid("236_1275117591.97262") :method
+.annotate 'line', 433
+ $P960 = self."!PREFIX__!subrule"("", "{")
new $P961, "ResizablePMCArray"
- push $P961, "<"
+ push $P961, $P960
.return ($P961)
.end
.namespace ["NQP";"Grammar"]
-.sub "postcircumfix:sym<( )>" :subid("237_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
+.sub "postcircumfix:sym<ang>" :subid("237_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
.local string rx964_tgt
.local int rx964_pos
.local int rx964_off
@@ -11647,7 +11646,7 @@
.local int rx964_rep
.local pmc rx964_cur
(rx964_cur, rx964_pos, rx964_tgt) = self."!cursor_start"()
- rx964_cur."!cursor_debug"("START ", "postcircumfix:sym<( )>")
+ rx964_cur."!cursor_debug"("START ", "postcircumfix:sym<ang>")
.lex unicode:"$\x{a2}", rx964_cur
.local pmc match
.lex "$/", match
@@ -11658,45 +11657,32 @@
substr rx964_tgt, rx964_tgt, rx964_off
rx964_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan968_done
- goto rxscan968_scan
- rxscan968_loop:
+ ne $I10, -1, rxscan967_done
+ goto rxscan967_scan
+ rxscan967_loop:
($P10) = rx964_cur."from"()
inc $P10
set rx964_pos, $P10
- ge rx964_pos, rx964_eos, rxscan968_done
- rxscan968_scan:
- set_addr $I10, rxscan968_loop
+ ge rx964_pos, rx964_eos, rxscan967_done
+ rxscan967_scan:
+ set_addr $I10, rxscan967_loop
rx964_cur."!mark_push"(0, rx964_pos, $I10)
- rxscan968_done:
-.annotate 'line', 469
- # rx literal "("
- add $I11, rx964_pos, 1
- gt $I11, rx964_eos, rx964_fail
- sub $I11, rx964_pos, rx964_off
- substr $S10, rx964_tgt, $I11, 1
- ne $S10, "(", rx964_fail
- add rx964_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx964_cur."!cursor_pos"(rx964_pos)
- $P10 = rx964_cur."ws"()
- unless $P10, rx964_fail
- rx964_pos = $P10."pos"()
- # rx subrule "arglist" subtype=capture negate=
+ rxscan967_done:
+.annotate 'line', 466
+ # rx enumcharlist negate=0 zerowidth
+ ge rx964_pos, rx964_eos, rx964_fail
+ sub $I10, rx964_pos, rx964_off
+ substr $S10, rx964_tgt, $I10, 1
+ index $I11, "<", $S10
+ lt $I11, 0, rx964_fail
+ # rx subrule "quote_EXPR" subtype=capture negate=
rx964_cur."!cursor_pos"(rx964_pos)
- $P10 = rx964_cur."arglist"()
+ $P10 = rx964_cur."quote_EXPR"(":q")
unless $P10, rx964_fail
rx964_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("arglist")
+ $P10."!cursor_names"("quote_EXPR")
rx964_pos = $P10."pos"()
- # rx literal ")"
- add $I11, rx964_pos, 1
- gt $I11, rx964_eos, rx964_fail
- sub $I11, rx964_pos, rx964_off
- substr $S10, rx964_tgt, $I11, 1
- ne $S10, ")", rx964_fail
- add rx964_pos, 1
-.annotate 'line', 470
+.annotate 'line', 467
# rx subrule "O" subtype=capture negate=
rx964_cur."!cursor_pos"(rx964_pos)
$P10 = rx964_cur."O"("%methodop")
@@ -11704,4411 +11690,4433 @@
rx964_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
rx964_pos = $P10."pos"()
-.annotate 'line', 468
+.annotate 'line', 465
# rx pass
- rx964_cur."!cursor_pass"(rx964_pos, "postcircumfix:sym<( )>")
- rx964_cur."!cursor_debug"("PASS ", "postcircumfix:sym<( )>", " at pos=", rx964_pos)
+ rx964_cur."!cursor_pass"(rx964_pos, "postcircumfix:sym<ang>")
+ rx964_cur."!cursor_debug"("PASS ", "postcircumfix:sym<ang>", " at pos=", rx964_pos)
.return (rx964_cur)
rx964_fail:
-.annotate 'line', 431
+.annotate 'line', 433
(rx964_rep, rx964_pos, $I10, $P10) = rx964_cur."!mark_fail"(0)
lt rx964_pos, -1, rx964_done
eq rx964_pos, -1, rx964_fail
jump $I10
rx964_done:
rx964_cur."!cursor_fail"()
- rx964_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<( )>")
+ rx964_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<ang>")
.return (rx964_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<( )>" :subid("238_1274564776.41408") :method
-.annotate 'line', 431
- $P966 = self."!PREFIX__!subrule"("", "(")
- new $P967, "ResizablePMCArray"
- push $P967, $P966
- .return ($P967)
+.sub "!PREFIX__postcircumfix:sym<ang>" :subid("238_1275117591.97262") :method
+.annotate 'line', 433
+ new $P966, "ResizablePMCArray"
+ push $P966, "<"
+ .return ($P966)
.end
.namespace ["NQP";"Grammar"]
-.sub "postfix:sym<.>" :subid("239_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx970_tgt
- .local int rx970_pos
- .local int rx970_off
- .local int rx970_eos
- .local int rx970_rep
- .local pmc rx970_cur
- (rx970_cur, rx970_pos, rx970_tgt) = self."!cursor_start"()
- rx970_cur."!cursor_debug"("START ", "postfix:sym<.>")
- .lex unicode:"$\x{a2}", rx970_cur
- .local pmc match
- .lex "$/", match
- length rx970_eos, rx970_tgt
- set rx970_off, 0
- lt rx970_pos, 2, rx970_start
- sub rx970_off, rx970_pos, 1
- substr rx970_tgt, rx970_tgt, rx970_off
- rx970_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan974_done
- goto rxscan974_scan
- rxscan974_loop:
- ($P10) = rx970_cur."from"()
- inc $P10
- set rx970_pos, $P10
- ge rx970_pos, rx970_eos, rxscan974_done
- rxscan974_scan:
- set_addr $I10, rxscan974_loop
- rx970_cur."!mark_push"(0, rx970_pos, $I10)
- rxscan974_done:
-.annotate 'line', 473
- # rx subrule "dotty" subtype=capture negate=
- rx970_cur."!cursor_pos"(rx970_pos)
- $P10 = rx970_cur."dotty"()
- unless $P10, rx970_fail
- rx970_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("dotty")
- rx970_pos = $P10."pos"()
+.sub "postcircumfix:sym<( )>" :subid("239_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx969_tgt
+ .local int rx969_pos
+ .local int rx969_off
+ .local int rx969_eos
+ .local int rx969_rep
+ .local pmc rx969_cur
+ (rx969_cur, rx969_pos, rx969_tgt) = self."!cursor_start"()
+ rx969_cur."!cursor_debug"("START ", "postcircumfix:sym<( )>")
+ .lex unicode:"$\x{a2}", rx969_cur
+ .local pmc match
+ .lex "$/", match
+ length rx969_eos, rx969_tgt
+ set rx969_off, 0
+ lt rx969_pos, 2, rx969_start
+ sub rx969_off, rx969_pos, 1
+ substr rx969_tgt, rx969_tgt, rx969_off
+ rx969_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan973_done
+ goto rxscan973_scan
+ rxscan973_loop:
+ ($P10) = rx969_cur."from"()
+ inc $P10
+ set rx969_pos, $P10
+ ge rx969_pos, rx969_eos, rxscan973_done
+ rxscan973_scan:
+ set_addr $I10, rxscan973_loop
+ rx969_cur."!mark_push"(0, rx969_pos, $I10)
+ rxscan973_done:
+.annotate 'line', 471
+ # rx literal "("
+ add $I11, rx969_pos, 1
+ gt $I11, rx969_eos, rx969_fail
+ sub $I11, rx969_pos, rx969_off
+ substr $S10, rx969_tgt, $I11, 1
+ ne $S10, "(", rx969_fail
+ add rx969_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx969_cur."!cursor_pos"(rx969_pos)
+ $P10 = rx969_cur."ws"()
+ unless $P10, rx969_fail
+ rx969_pos = $P10."pos"()
+ # rx subrule "arglist" subtype=capture negate=
+ rx969_cur."!cursor_pos"(rx969_pos)
+ $P10 = rx969_cur."arglist"()
+ unless $P10, rx969_fail
+ rx969_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("arglist")
+ rx969_pos = $P10."pos"()
+ # rx literal ")"
+ add $I11, rx969_pos, 1
+ gt $I11, rx969_eos, rx969_fail
+ sub $I11, rx969_pos, rx969_off
+ substr $S10, rx969_tgt, $I11, 1
+ ne $S10, ")", rx969_fail
+ add rx969_pos, 1
+.annotate 'line', 472
# rx subrule "O" subtype=capture negate=
- rx970_cur."!cursor_pos"(rx970_pos)
- $P10 = rx970_cur."O"("%methodop")
- unless $P10, rx970_fail
- rx970_cur."!mark_push"(0, -1, 0, $P10)
+ rx969_cur."!cursor_pos"(rx969_pos)
+ $P10 = rx969_cur."O"("%methodop")
+ unless $P10, rx969_fail
+ rx969_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx970_pos = $P10."pos"()
+ rx969_pos = $P10."pos"()
+.annotate 'line', 470
# rx pass
- rx970_cur."!cursor_pass"(rx970_pos, "postfix:sym<.>")
- rx970_cur."!cursor_debug"("PASS ", "postfix:sym<.>", " at pos=", rx970_pos)
- .return (rx970_cur)
- rx970_fail:
-.annotate 'line', 431
- (rx970_rep, rx970_pos, $I10, $P10) = rx970_cur."!mark_fail"(0)
- lt rx970_pos, -1, rx970_done
- eq rx970_pos, -1, rx970_fail
- jump $I10
- rx970_done:
- rx970_cur."!cursor_fail"()
- rx970_cur."!cursor_debug"("FAIL ", "postfix:sym<.>")
- .return (rx970_cur)
+ rx969_cur."!cursor_pass"(rx969_pos, "postcircumfix:sym<( )>")
+ rx969_cur."!cursor_debug"("PASS ", "postcircumfix:sym<( )>", " at pos=", rx969_pos)
+ .return (rx969_cur)
+ rx969_fail:
+.annotate 'line', 433
+ (rx969_rep, rx969_pos, $I10, $P10) = rx969_cur."!mark_fail"(0)
+ lt rx969_pos, -1, rx969_done
+ eq rx969_pos, -1, rx969_fail
+ jump $I10
+ rx969_done:
+ rx969_cur."!cursor_fail"()
+ rx969_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<( )>")
+ .return (rx969_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postfix:sym<.>" :subid("240_1274564776.41408") :method
-.annotate 'line', 431
- $P972 = self."!PREFIX__!subrule"("dotty", "")
- new $P973, "ResizablePMCArray"
- push $P973, $P972
- .return ($P973)
+.sub "!PREFIX__postcircumfix:sym<( )>" :subid("240_1275117591.97262") :method
+.annotate 'line', 433
+ $P971 = self."!PREFIX__!subrule"("", "(")
+ new $P972, "ResizablePMCArray"
+ push $P972, $P971
+ .return ($P972)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<++>" :subid("241_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx976_tgt
- .local int rx976_pos
- .local int rx976_off
- .local int rx976_eos
- .local int rx976_rep
- .local pmc rx976_cur
- (rx976_cur, rx976_pos, rx976_tgt) = self."!cursor_start"()
- rx976_cur."!cursor_debug"("START ", "prefix:sym<++>")
- .lex unicode:"$\x{a2}", rx976_cur
- .local pmc match
- .lex "$/", match
- length rx976_eos, rx976_tgt
- set rx976_off, 0
- lt rx976_pos, 2, rx976_start
- sub rx976_off, rx976_pos, 1
- substr rx976_tgt, rx976_tgt, rx976_off
- rx976_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan980_done
- goto rxscan980_scan
- rxscan980_loop:
- ($P10) = rx976_cur."from"()
- inc $P10
- set rx976_pos, $P10
- ge rx976_pos, rx976_eos, rxscan980_done
- rxscan980_scan:
- set_addr $I10, rxscan980_loop
- rx976_cur."!mark_push"(0, rx976_pos, $I10)
- rxscan980_done:
+.sub "postfix:sym<.>" :subid("241_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx975_tgt
+ .local int rx975_pos
+ .local int rx975_off
+ .local int rx975_eos
+ .local int rx975_rep
+ .local pmc rx975_cur
+ (rx975_cur, rx975_pos, rx975_tgt) = self."!cursor_start"()
+ rx975_cur."!cursor_debug"("START ", "postfix:sym<.>")
+ .lex unicode:"$\x{a2}", rx975_cur
+ .local pmc match
+ .lex "$/", match
+ length rx975_eos, rx975_tgt
+ set rx975_off, 0
+ lt rx975_pos, 2, rx975_start
+ sub rx975_off, rx975_pos, 1
+ substr rx975_tgt, rx975_tgt, rx975_off
+ rx975_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan979_done
+ goto rxscan979_scan
+ rxscan979_loop:
+ ($P10) = rx975_cur."from"()
+ inc $P10
+ set rx975_pos, $P10
+ ge rx975_pos, rx975_eos, rxscan979_done
+ rxscan979_scan:
+ set_addr $I10, rxscan979_loop
+ rx975_cur."!mark_push"(0, rx975_pos, $I10)
+ rxscan979_done:
.annotate 'line', 475
- # rx subcapture "sym"
- set_addr $I10, rxcap_981_fail
- rx976_cur."!mark_push"(0, rx976_pos, $I10)
- # rx literal "++"
- add $I11, rx976_pos, 2
- gt $I11, rx976_eos, rx976_fail
- sub $I11, rx976_pos, rx976_off
- substr $S10, rx976_tgt, $I11, 2
- ne $S10, "++", rx976_fail
- add rx976_pos, 2
- set_addr $I10, rxcap_981_fail
- ($I12, $I11) = rx976_cur."!mark_peek"($I10)
- rx976_cur."!cursor_pos"($I11)
- ($P10) = rx976_cur."!cursor_start"()
- $P10."!cursor_pass"(rx976_pos, "")
- rx976_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sym")
- goto rxcap_981_done
- rxcap_981_fail:
- goto rx976_fail
- rxcap_981_done:
+ # rx subrule "dotty" subtype=capture negate=
+ rx975_cur."!cursor_pos"(rx975_pos)
+ $P10 = rx975_cur."dotty"()
+ unless $P10, rx975_fail
+ rx975_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("dotty")
+ rx975_pos = $P10."pos"()
# rx subrule "O" subtype=capture negate=
- rx976_cur."!cursor_pos"(rx976_pos)
- $P10 = rx976_cur."O"("%autoincrement, :pirop<inc>")
- unless $P10, rx976_fail
- rx976_cur."!mark_push"(0, -1, 0, $P10)
+ rx975_cur."!cursor_pos"(rx975_pos)
+ $P10 = rx975_cur."O"("%methodop")
+ unless $P10, rx975_fail
+ rx975_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx976_pos = $P10."pos"()
+ rx975_pos = $P10."pos"()
# rx pass
- rx976_cur."!cursor_pass"(rx976_pos, "prefix:sym<++>")
- rx976_cur."!cursor_debug"("PASS ", "prefix:sym<++>", " at pos=", rx976_pos)
- .return (rx976_cur)
- rx976_fail:
-.annotate 'line', 431
- (rx976_rep, rx976_pos, $I10, $P10) = rx976_cur."!mark_fail"(0)
- lt rx976_pos, -1, rx976_done
- eq rx976_pos, -1, rx976_fail
- jump $I10
- rx976_done:
- rx976_cur."!cursor_fail"()
- rx976_cur."!cursor_debug"("FAIL ", "prefix:sym<++>")
- .return (rx976_cur)
+ rx975_cur."!cursor_pass"(rx975_pos, "postfix:sym<.>")
+ rx975_cur."!cursor_debug"("PASS ", "postfix:sym<.>", " at pos=", rx975_pos)
+ .return (rx975_cur)
+ rx975_fail:
+.annotate 'line', 433
+ (rx975_rep, rx975_pos, $I10, $P10) = rx975_cur."!mark_fail"(0)
+ lt rx975_pos, -1, rx975_done
+ eq rx975_pos, -1, rx975_fail
+ jump $I10
+ rx975_done:
+ rx975_cur."!cursor_fail"()
+ rx975_cur."!cursor_debug"("FAIL ", "postfix:sym<.>")
+ .return (rx975_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<++>" :subid("242_1274564776.41408") :method
-.annotate 'line', 431
- $P978 = self."!PREFIX__!subrule"("O", "++")
- new $P979, "ResizablePMCArray"
- push $P979, $P978
- .return ($P979)
+.sub "!PREFIX__postfix:sym<.>" :subid("242_1275117591.97262") :method
+.annotate 'line', 433
+ $P977 = self."!PREFIX__!subrule"("dotty", "")
+ new $P978, "ResizablePMCArray"
+ push $P978, $P977
+ .return ($P978)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<-->" :subid("243_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx983_tgt
- .local int rx983_pos
- .local int rx983_off
- .local int rx983_eos
- .local int rx983_rep
- .local pmc rx983_cur
- (rx983_cur, rx983_pos, rx983_tgt) = self."!cursor_start"()
- rx983_cur."!cursor_debug"("START ", "prefix:sym<-->")
- .lex unicode:"$\x{a2}", rx983_cur
- .local pmc match
- .lex "$/", match
- length rx983_eos, rx983_tgt
- set rx983_off, 0
- lt rx983_pos, 2, rx983_start
- sub rx983_off, rx983_pos, 1
- substr rx983_tgt, rx983_tgt, rx983_off
- rx983_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan987_done
- goto rxscan987_scan
- rxscan987_loop:
- ($P10) = rx983_cur."from"()
- inc $P10
- set rx983_pos, $P10
- ge rx983_pos, rx983_eos, rxscan987_done
- rxscan987_scan:
- set_addr $I10, rxscan987_loop
- rx983_cur."!mark_push"(0, rx983_pos, $I10)
- rxscan987_done:
-.annotate 'line', 476
+.sub "prefix:sym<++>" :subid("243_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx981_tgt
+ .local int rx981_pos
+ .local int rx981_off
+ .local int rx981_eos
+ .local int rx981_rep
+ .local pmc rx981_cur
+ (rx981_cur, rx981_pos, rx981_tgt) = self."!cursor_start"()
+ rx981_cur."!cursor_debug"("START ", "prefix:sym<++>")
+ .lex unicode:"$\x{a2}", rx981_cur
+ .local pmc match
+ .lex "$/", match
+ length rx981_eos, rx981_tgt
+ set rx981_off, 0
+ lt rx981_pos, 2, rx981_start
+ sub rx981_off, rx981_pos, 1
+ substr rx981_tgt, rx981_tgt, rx981_off
+ rx981_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan985_done
+ goto rxscan985_scan
+ rxscan985_loop:
+ ($P10) = rx981_cur."from"()
+ inc $P10
+ set rx981_pos, $P10
+ ge rx981_pos, rx981_eos, rxscan985_done
+ rxscan985_scan:
+ set_addr $I10, rxscan985_loop
+ rx981_cur."!mark_push"(0, rx981_pos, $I10)
+ rxscan985_done:
+.annotate 'line', 477
# rx subcapture "sym"
- set_addr $I10, rxcap_988_fail
- rx983_cur."!mark_push"(0, rx983_pos, $I10)
- # rx literal "--"
- add $I11, rx983_pos, 2
- gt $I11, rx983_eos, rx983_fail
- sub $I11, rx983_pos, rx983_off
- substr $S10, rx983_tgt, $I11, 2
- ne $S10, "--", rx983_fail
- add rx983_pos, 2
- set_addr $I10, rxcap_988_fail
- ($I12, $I11) = rx983_cur."!mark_peek"($I10)
- rx983_cur."!cursor_pos"($I11)
- ($P10) = rx983_cur."!cursor_start"()
- $P10."!cursor_pass"(rx983_pos, "")
- rx983_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_986_fail
+ rx981_cur."!mark_push"(0, rx981_pos, $I10)
+ # rx literal "++"
+ add $I11, rx981_pos, 2
+ gt $I11, rx981_eos, rx981_fail
+ sub $I11, rx981_pos, rx981_off
+ substr $S10, rx981_tgt, $I11, 2
+ ne $S10, "++", rx981_fail
+ add rx981_pos, 2
+ set_addr $I10, rxcap_986_fail
+ ($I12, $I11) = rx981_cur."!mark_peek"($I10)
+ rx981_cur."!cursor_pos"($I11)
+ ($P10) = rx981_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx981_pos, "")
+ rx981_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_988_done
- rxcap_988_fail:
- goto rx983_fail
- rxcap_988_done:
+ goto rxcap_986_done
+ rxcap_986_fail:
+ goto rx981_fail
+ rxcap_986_done:
# rx subrule "O" subtype=capture negate=
- rx983_cur."!cursor_pos"(rx983_pos)
- $P10 = rx983_cur."O"("%autoincrement, :pirop<dec>")
- unless $P10, rx983_fail
- rx983_cur."!mark_push"(0, -1, 0, $P10)
+ rx981_cur."!cursor_pos"(rx981_pos)
+ $P10 = rx981_cur."O"("%autoincrement, :pirop<inc>")
+ unless $P10, rx981_fail
+ rx981_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx983_pos = $P10."pos"()
+ rx981_pos = $P10."pos"()
# rx pass
- rx983_cur."!cursor_pass"(rx983_pos, "prefix:sym<-->")
- rx983_cur."!cursor_debug"("PASS ", "prefix:sym<-->", " at pos=", rx983_pos)
- .return (rx983_cur)
- rx983_fail:
-.annotate 'line', 431
- (rx983_rep, rx983_pos, $I10, $P10) = rx983_cur."!mark_fail"(0)
- lt rx983_pos, -1, rx983_done
- eq rx983_pos, -1, rx983_fail
- jump $I10
- rx983_done:
- rx983_cur."!cursor_fail"()
- rx983_cur."!cursor_debug"("FAIL ", "prefix:sym<-->")
- .return (rx983_cur)
+ rx981_cur."!cursor_pass"(rx981_pos, "prefix:sym<++>")
+ rx981_cur."!cursor_debug"("PASS ", "prefix:sym<++>", " at pos=", rx981_pos)
+ .return (rx981_cur)
+ rx981_fail:
+.annotate 'line', 433
+ (rx981_rep, rx981_pos, $I10, $P10) = rx981_cur."!mark_fail"(0)
+ lt rx981_pos, -1, rx981_done
+ eq rx981_pos, -1, rx981_fail
+ jump $I10
+ rx981_done:
+ rx981_cur."!cursor_fail"()
+ rx981_cur."!cursor_debug"("FAIL ", "prefix:sym<++>")
+ .return (rx981_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<-->" :subid("244_1274564776.41408") :method
-.annotate 'line', 431
- $P985 = self."!PREFIX__!subrule"("O", "--")
- new $P986, "ResizablePMCArray"
- push $P986, $P985
- .return ($P986)
+.sub "!PREFIX__prefix:sym<++>" :subid("244_1275117591.97262") :method
+.annotate 'line', 433
+ $P983 = self."!PREFIX__!subrule"("O", "++")
+ new $P984, "ResizablePMCArray"
+ push $P984, $P983
+ .return ($P984)
.end
.namespace ["NQP";"Grammar"]
-.sub "postfix:sym<++>" :subid("245_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx990_tgt
- .local int rx990_pos
- .local int rx990_off
- .local int rx990_eos
- .local int rx990_rep
- .local pmc rx990_cur
- (rx990_cur, rx990_pos, rx990_tgt) = self."!cursor_start"()
- rx990_cur."!cursor_debug"("START ", "postfix:sym<++>")
- .lex unicode:"$\x{a2}", rx990_cur
- .local pmc match
- .lex "$/", match
- length rx990_eos, rx990_tgt
- set rx990_off, 0
- lt rx990_pos, 2, rx990_start
- sub rx990_off, rx990_pos, 1
- substr rx990_tgt, rx990_tgt, rx990_off
- rx990_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan994_done
- goto rxscan994_scan
- rxscan994_loop:
- ($P10) = rx990_cur."from"()
- inc $P10
- set rx990_pos, $P10
- ge rx990_pos, rx990_eos, rxscan994_done
- rxscan994_scan:
- set_addr $I10, rxscan994_loop
- rx990_cur."!mark_push"(0, rx990_pos, $I10)
- rxscan994_done:
-.annotate 'line', 479
+.sub "prefix:sym<-->" :subid("245_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx988_tgt
+ .local int rx988_pos
+ .local int rx988_off
+ .local int rx988_eos
+ .local int rx988_rep
+ .local pmc rx988_cur
+ (rx988_cur, rx988_pos, rx988_tgt) = self."!cursor_start"()
+ rx988_cur."!cursor_debug"("START ", "prefix:sym<-->")
+ .lex unicode:"$\x{a2}", rx988_cur
+ .local pmc match
+ .lex "$/", match
+ length rx988_eos, rx988_tgt
+ set rx988_off, 0
+ lt rx988_pos, 2, rx988_start
+ sub rx988_off, rx988_pos, 1
+ substr rx988_tgt, rx988_tgt, rx988_off
+ rx988_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan992_done
+ goto rxscan992_scan
+ rxscan992_loop:
+ ($P10) = rx988_cur."from"()
+ inc $P10
+ set rx988_pos, $P10
+ ge rx988_pos, rx988_eos, rxscan992_done
+ rxscan992_scan:
+ set_addr $I10, rxscan992_loop
+ rx988_cur."!mark_push"(0, rx988_pos, $I10)
+ rxscan992_done:
+.annotate 'line', 478
# rx subcapture "sym"
- set_addr $I10, rxcap_995_fail
- rx990_cur."!mark_push"(0, rx990_pos, $I10)
- # rx literal "++"
- add $I11, rx990_pos, 2
- gt $I11, rx990_eos, rx990_fail
- sub $I11, rx990_pos, rx990_off
- substr $S10, rx990_tgt, $I11, 2
- ne $S10, "++", rx990_fail
- add rx990_pos, 2
- set_addr $I10, rxcap_995_fail
- ($I12, $I11) = rx990_cur."!mark_peek"($I10)
- rx990_cur."!cursor_pos"($I11)
- ($P10) = rx990_cur."!cursor_start"()
- $P10."!cursor_pass"(rx990_pos, "")
- rx990_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_993_fail
+ rx988_cur."!mark_push"(0, rx988_pos, $I10)
+ # rx literal "--"
+ add $I11, rx988_pos, 2
+ gt $I11, rx988_eos, rx988_fail
+ sub $I11, rx988_pos, rx988_off
+ substr $S10, rx988_tgt, $I11, 2
+ ne $S10, "--", rx988_fail
+ add rx988_pos, 2
+ set_addr $I10, rxcap_993_fail
+ ($I12, $I11) = rx988_cur."!mark_peek"($I10)
+ rx988_cur."!cursor_pos"($I11)
+ ($P10) = rx988_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx988_pos, "")
+ rx988_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_995_done
- rxcap_995_fail:
- goto rx990_fail
- rxcap_995_done:
+ goto rxcap_993_done
+ rxcap_993_fail:
+ goto rx988_fail
+ rxcap_993_done:
# rx subrule "O" subtype=capture negate=
- rx990_cur."!cursor_pos"(rx990_pos)
- $P10 = rx990_cur."O"("%autoincrement")
- unless $P10, rx990_fail
- rx990_cur."!mark_push"(0, -1, 0, $P10)
+ rx988_cur."!cursor_pos"(rx988_pos)
+ $P10 = rx988_cur."O"("%autoincrement, :pirop<dec>")
+ unless $P10, rx988_fail
+ rx988_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx990_pos = $P10."pos"()
+ rx988_pos = $P10."pos"()
# rx pass
- rx990_cur."!cursor_pass"(rx990_pos, "postfix:sym<++>")
- rx990_cur."!cursor_debug"("PASS ", "postfix:sym<++>", " at pos=", rx990_pos)
- .return (rx990_cur)
- rx990_fail:
-.annotate 'line', 431
- (rx990_rep, rx990_pos, $I10, $P10) = rx990_cur."!mark_fail"(0)
- lt rx990_pos, -1, rx990_done
- eq rx990_pos, -1, rx990_fail
- jump $I10
- rx990_done:
- rx990_cur."!cursor_fail"()
- rx990_cur."!cursor_debug"("FAIL ", "postfix:sym<++>")
- .return (rx990_cur)
+ rx988_cur."!cursor_pass"(rx988_pos, "prefix:sym<-->")
+ rx988_cur."!cursor_debug"("PASS ", "prefix:sym<-->", " at pos=", rx988_pos)
+ .return (rx988_cur)
+ rx988_fail:
+.annotate 'line', 433
+ (rx988_rep, rx988_pos, $I10, $P10) = rx988_cur."!mark_fail"(0)
+ lt rx988_pos, -1, rx988_done
+ eq rx988_pos, -1, rx988_fail
+ jump $I10
+ rx988_done:
+ rx988_cur."!cursor_fail"()
+ rx988_cur."!cursor_debug"("FAIL ", "prefix:sym<-->")
+ .return (rx988_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postfix:sym<++>" :subid("246_1274564776.41408") :method
-.annotate 'line', 431
- $P992 = self."!PREFIX__!subrule"("O", "++")
- new $P993, "ResizablePMCArray"
- push $P993, $P992
- .return ($P993)
+.sub "!PREFIX__prefix:sym<-->" :subid("246_1275117591.97262") :method
+.annotate 'line', 433
+ $P990 = self."!PREFIX__!subrule"("O", "--")
+ new $P991, "ResizablePMCArray"
+ push $P991, $P990
+ .return ($P991)
.end
.namespace ["NQP";"Grammar"]
-.sub "postfix:sym<-->" :subid("247_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx997_tgt
- .local int rx997_pos
- .local int rx997_off
- .local int rx997_eos
- .local int rx997_rep
- .local pmc rx997_cur
- (rx997_cur, rx997_pos, rx997_tgt) = self."!cursor_start"()
- rx997_cur."!cursor_debug"("START ", "postfix:sym<-->")
- .lex unicode:"$\x{a2}", rx997_cur
- .local pmc match
- .lex "$/", match
- length rx997_eos, rx997_tgt
- set rx997_off, 0
- lt rx997_pos, 2, rx997_start
- sub rx997_off, rx997_pos, 1
- substr rx997_tgt, rx997_tgt, rx997_off
- rx997_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1001_done
- goto rxscan1001_scan
- rxscan1001_loop:
- ($P10) = rx997_cur."from"()
- inc $P10
- set rx997_pos, $P10
- ge rx997_pos, rx997_eos, rxscan1001_done
- rxscan1001_scan:
- set_addr $I10, rxscan1001_loop
- rx997_cur."!mark_push"(0, rx997_pos, $I10)
- rxscan1001_done:
-.annotate 'line', 480
+.sub "postfix:sym<++>" :subid("247_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx995_tgt
+ .local int rx995_pos
+ .local int rx995_off
+ .local int rx995_eos
+ .local int rx995_rep
+ .local pmc rx995_cur
+ (rx995_cur, rx995_pos, rx995_tgt) = self."!cursor_start"()
+ rx995_cur."!cursor_debug"("START ", "postfix:sym<++>")
+ .lex unicode:"$\x{a2}", rx995_cur
+ .local pmc match
+ .lex "$/", match
+ length rx995_eos, rx995_tgt
+ set rx995_off, 0
+ lt rx995_pos, 2, rx995_start
+ sub rx995_off, rx995_pos, 1
+ substr rx995_tgt, rx995_tgt, rx995_off
+ rx995_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan999_done
+ goto rxscan999_scan
+ rxscan999_loop:
+ ($P10) = rx995_cur."from"()
+ inc $P10
+ set rx995_pos, $P10
+ ge rx995_pos, rx995_eos, rxscan999_done
+ rxscan999_scan:
+ set_addr $I10, rxscan999_loop
+ rx995_cur."!mark_push"(0, rx995_pos, $I10)
+ rxscan999_done:
+.annotate 'line', 481
# rx subcapture "sym"
- set_addr $I10, rxcap_1002_fail
- rx997_cur."!mark_push"(0, rx997_pos, $I10)
- # rx literal "--"
- add $I11, rx997_pos, 2
- gt $I11, rx997_eos, rx997_fail
- sub $I11, rx997_pos, rx997_off
- substr $S10, rx997_tgt, $I11, 2
- ne $S10, "--", rx997_fail
- add rx997_pos, 2
- set_addr $I10, rxcap_1002_fail
- ($I12, $I11) = rx997_cur."!mark_peek"($I10)
- rx997_cur."!cursor_pos"($I11)
- ($P10) = rx997_cur."!cursor_start"()
- $P10."!cursor_pass"(rx997_pos, "")
- rx997_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_1000_fail
+ rx995_cur."!mark_push"(0, rx995_pos, $I10)
+ # rx literal "++"
+ add $I11, rx995_pos, 2
+ gt $I11, rx995_eos, rx995_fail
+ sub $I11, rx995_pos, rx995_off
+ substr $S10, rx995_tgt, $I11, 2
+ ne $S10, "++", rx995_fail
+ add rx995_pos, 2
+ set_addr $I10, rxcap_1000_fail
+ ($I12, $I11) = rx995_cur."!mark_peek"($I10)
+ rx995_cur."!cursor_pos"($I11)
+ ($P10) = rx995_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx995_pos, "")
+ rx995_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1002_done
- rxcap_1002_fail:
- goto rx997_fail
- rxcap_1002_done:
+ goto rxcap_1000_done
+ rxcap_1000_fail:
+ goto rx995_fail
+ rxcap_1000_done:
# rx subrule "O" subtype=capture negate=
- rx997_cur."!cursor_pos"(rx997_pos)
- $P10 = rx997_cur."O"("%autoincrement")
- unless $P10, rx997_fail
- rx997_cur."!mark_push"(0, -1, 0, $P10)
+ rx995_cur."!cursor_pos"(rx995_pos)
+ $P10 = rx995_cur."O"("%autoincrement")
+ unless $P10, rx995_fail
+ rx995_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx997_pos = $P10."pos"()
+ rx995_pos = $P10."pos"()
# rx pass
- rx997_cur."!cursor_pass"(rx997_pos, "postfix:sym<-->")
- rx997_cur."!cursor_debug"("PASS ", "postfix:sym<-->", " at pos=", rx997_pos)
- .return (rx997_cur)
- rx997_fail:
-.annotate 'line', 431
- (rx997_rep, rx997_pos, $I10, $P10) = rx997_cur."!mark_fail"(0)
- lt rx997_pos, -1, rx997_done
- eq rx997_pos, -1, rx997_fail
- jump $I10
- rx997_done:
- rx997_cur."!cursor_fail"()
- rx997_cur."!cursor_debug"("FAIL ", "postfix:sym<-->")
- .return (rx997_cur)
+ rx995_cur."!cursor_pass"(rx995_pos, "postfix:sym<++>")
+ rx995_cur."!cursor_debug"("PASS ", "postfix:sym<++>", " at pos=", rx995_pos)
+ .return (rx995_cur)
+ rx995_fail:
+.annotate 'line', 433
+ (rx995_rep, rx995_pos, $I10, $P10) = rx995_cur."!mark_fail"(0)
+ lt rx995_pos, -1, rx995_done
+ eq rx995_pos, -1, rx995_fail
+ jump $I10
+ rx995_done:
+ rx995_cur."!cursor_fail"()
+ rx995_cur."!cursor_debug"("FAIL ", "postfix:sym<++>")
+ .return (rx995_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postfix:sym<-->" :subid("248_1274564776.41408") :method
-.annotate 'line', 431
- $P999 = self."!PREFIX__!subrule"("O", "--")
- new $P1000, "ResizablePMCArray"
- push $P1000, $P999
- .return ($P1000)
+.sub "!PREFIX__postfix:sym<++>" :subid("248_1275117591.97262") :method
+.annotate 'line', 433
+ $P997 = self."!PREFIX__!subrule"("O", "++")
+ new $P998, "ResizablePMCArray"
+ push $P998, $P997
+ .return ($P998)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<**>" :subid("249_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1004_tgt
- .local int rx1004_pos
- .local int rx1004_off
- .local int rx1004_eos
- .local int rx1004_rep
- .local pmc rx1004_cur
- (rx1004_cur, rx1004_pos, rx1004_tgt) = self."!cursor_start"()
- rx1004_cur."!cursor_debug"("START ", "infix:sym<**>")
- .lex unicode:"$\x{a2}", rx1004_cur
- .local pmc match
- .lex "$/", match
- length rx1004_eos, rx1004_tgt
- set rx1004_off, 0
- lt rx1004_pos, 2, rx1004_start
- sub rx1004_off, rx1004_pos, 1
- substr rx1004_tgt, rx1004_tgt, rx1004_off
- rx1004_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1008_done
- goto rxscan1008_scan
- rxscan1008_loop:
- ($P10) = rx1004_cur."from"()
- inc $P10
- set rx1004_pos, $P10
- ge rx1004_pos, rx1004_eos, rxscan1008_done
- rxscan1008_scan:
- set_addr $I10, rxscan1008_loop
- rx1004_cur."!mark_push"(0, rx1004_pos, $I10)
- rxscan1008_done:
+.sub "postfix:sym<-->" :subid("249_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1002_tgt
+ .local int rx1002_pos
+ .local int rx1002_off
+ .local int rx1002_eos
+ .local int rx1002_rep
+ .local pmc rx1002_cur
+ (rx1002_cur, rx1002_pos, rx1002_tgt) = self."!cursor_start"()
+ rx1002_cur."!cursor_debug"("START ", "postfix:sym<-->")
+ .lex unicode:"$\x{a2}", rx1002_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1002_eos, rx1002_tgt
+ set rx1002_off, 0
+ lt rx1002_pos, 2, rx1002_start
+ sub rx1002_off, rx1002_pos, 1
+ substr rx1002_tgt, rx1002_tgt, rx1002_off
+ rx1002_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1006_done
+ goto rxscan1006_scan
+ rxscan1006_loop:
+ ($P10) = rx1002_cur."from"()
+ inc $P10
+ set rx1002_pos, $P10
+ ge rx1002_pos, rx1002_eos, rxscan1006_done
+ rxscan1006_scan:
+ set_addr $I10, rxscan1006_loop
+ rx1002_cur."!mark_push"(0, rx1002_pos, $I10)
+ rxscan1006_done:
.annotate 'line', 482
# rx subcapture "sym"
- set_addr $I10, rxcap_1009_fail
- rx1004_cur."!mark_push"(0, rx1004_pos, $I10)
- # rx literal "**"
- add $I11, rx1004_pos, 2
- gt $I11, rx1004_eos, rx1004_fail
- sub $I11, rx1004_pos, rx1004_off
- substr $S10, rx1004_tgt, $I11, 2
- ne $S10, "**", rx1004_fail
- add rx1004_pos, 2
- set_addr $I10, rxcap_1009_fail
- ($I12, $I11) = rx1004_cur."!mark_peek"($I10)
- rx1004_cur."!cursor_pos"($I11)
- ($P10) = rx1004_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1004_pos, "")
- rx1004_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_1007_fail
+ rx1002_cur."!mark_push"(0, rx1002_pos, $I10)
+ # rx literal "--"
+ add $I11, rx1002_pos, 2
+ gt $I11, rx1002_eos, rx1002_fail
+ sub $I11, rx1002_pos, rx1002_off
+ substr $S10, rx1002_tgt, $I11, 2
+ ne $S10, "--", rx1002_fail
+ add rx1002_pos, 2
+ set_addr $I10, rxcap_1007_fail
+ ($I12, $I11) = rx1002_cur."!mark_peek"($I10)
+ rx1002_cur."!cursor_pos"($I11)
+ ($P10) = rx1002_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1002_pos, "")
+ rx1002_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1009_done
- rxcap_1009_fail:
- goto rx1004_fail
- rxcap_1009_done:
+ goto rxcap_1007_done
+ rxcap_1007_fail:
+ goto rx1002_fail
+ rxcap_1007_done:
# rx subrule "O" subtype=capture negate=
- rx1004_cur."!cursor_pos"(rx1004_pos)
- $P10 = rx1004_cur."O"("%exponentiation, :pirop<pow>")
- unless $P10, rx1004_fail
- rx1004_cur."!mark_push"(0, -1, 0, $P10)
+ rx1002_cur."!cursor_pos"(rx1002_pos)
+ $P10 = rx1002_cur."O"("%autoincrement")
+ unless $P10, rx1002_fail
+ rx1002_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1004_pos = $P10."pos"()
+ rx1002_pos = $P10."pos"()
# rx pass
- rx1004_cur."!cursor_pass"(rx1004_pos, "infix:sym<**>")
- rx1004_cur."!cursor_debug"("PASS ", "infix:sym<**>", " at pos=", rx1004_pos)
- .return (rx1004_cur)
- rx1004_fail:
-.annotate 'line', 431
- (rx1004_rep, rx1004_pos, $I10, $P10) = rx1004_cur."!mark_fail"(0)
- lt rx1004_pos, -1, rx1004_done
- eq rx1004_pos, -1, rx1004_fail
- jump $I10
- rx1004_done:
- rx1004_cur."!cursor_fail"()
- rx1004_cur."!cursor_debug"("FAIL ", "infix:sym<**>")
- .return (rx1004_cur)
+ rx1002_cur."!cursor_pass"(rx1002_pos, "postfix:sym<-->")
+ rx1002_cur."!cursor_debug"("PASS ", "postfix:sym<-->", " at pos=", rx1002_pos)
+ .return (rx1002_cur)
+ rx1002_fail:
+.annotate 'line', 433
+ (rx1002_rep, rx1002_pos, $I10, $P10) = rx1002_cur."!mark_fail"(0)
+ lt rx1002_pos, -1, rx1002_done
+ eq rx1002_pos, -1, rx1002_fail
+ jump $I10
+ rx1002_done:
+ rx1002_cur."!cursor_fail"()
+ rx1002_cur."!cursor_debug"("FAIL ", "postfix:sym<-->")
+ .return (rx1002_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<**>" :subid("250_1274564776.41408") :method
-.annotate 'line', 431
- $P1006 = self."!PREFIX__!subrule"("O", "**")
- new $P1007, "ResizablePMCArray"
- push $P1007, $P1006
- .return ($P1007)
+.sub "!PREFIX__postfix:sym<-->" :subid("250_1275117591.97262") :method
+.annotate 'line', 433
+ $P1004 = self."!PREFIX__!subrule"("O", "--")
+ new $P1005, "ResizablePMCArray"
+ push $P1005, $P1004
+ .return ($P1005)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<+>" :subid("251_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1011_tgt
- .local int rx1011_pos
- .local int rx1011_off
- .local int rx1011_eos
- .local int rx1011_rep
- .local pmc rx1011_cur
- (rx1011_cur, rx1011_pos, rx1011_tgt) = self."!cursor_start"()
- rx1011_cur."!cursor_debug"("START ", "prefix:sym<+>")
- .lex unicode:"$\x{a2}", rx1011_cur
- .local pmc match
- .lex "$/", match
- length rx1011_eos, rx1011_tgt
- set rx1011_off, 0
- lt rx1011_pos, 2, rx1011_start
- sub rx1011_off, rx1011_pos, 1
- substr rx1011_tgt, rx1011_tgt, rx1011_off
- rx1011_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1015_done
- goto rxscan1015_scan
- rxscan1015_loop:
- ($P10) = rx1011_cur."from"()
- inc $P10
- set rx1011_pos, $P10
- ge rx1011_pos, rx1011_eos, rxscan1015_done
- rxscan1015_scan:
- set_addr $I10, rxscan1015_loop
- rx1011_cur."!mark_push"(0, rx1011_pos, $I10)
- rxscan1015_done:
+.sub "infix:sym<**>" :subid("251_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1009_tgt
+ .local int rx1009_pos
+ .local int rx1009_off
+ .local int rx1009_eos
+ .local int rx1009_rep
+ .local pmc rx1009_cur
+ (rx1009_cur, rx1009_pos, rx1009_tgt) = self."!cursor_start"()
+ rx1009_cur."!cursor_debug"("START ", "infix:sym<**>")
+ .lex unicode:"$\x{a2}", rx1009_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1009_eos, rx1009_tgt
+ set rx1009_off, 0
+ lt rx1009_pos, 2, rx1009_start
+ sub rx1009_off, rx1009_pos, 1
+ substr rx1009_tgt, rx1009_tgt, rx1009_off
+ rx1009_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1013_done
+ goto rxscan1013_scan
+ rxscan1013_loop:
+ ($P10) = rx1009_cur."from"()
+ inc $P10
+ set rx1009_pos, $P10
+ ge rx1009_pos, rx1009_eos, rxscan1013_done
+ rxscan1013_scan:
+ set_addr $I10, rxscan1013_loop
+ rx1009_cur."!mark_push"(0, rx1009_pos, $I10)
+ rxscan1013_done:
.annotate 'line', 484
# rx subcapture "sym"
- set_addr $I10, rxcap_1016_fail
- rx1011_cur."!mark_push"(0, rx1011_pos, $I10)
- # rx literal "+"
- add $I11, rx1011_pos, 1
- gt $I11, rx1011_eos, rx1011_fail
- sub $I11, rx1011_pos, rx1011_off
- substr $S10, rx1011_tgt, $I11, 1
- ne $S10, "+", rx1011_fail
- add rx1011_pos, 1
- set_addr $I10, rxcap_1016_fail
- ($I12, $I11) = rx1011_cur."!mark_peek"($I10)
- rx1011_cur."!cursor_pos"($I11)
- ($P10) = rx1011_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1011_pos, "")
- rx1011_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_1014_fail
+ rx1009_cur."!mark_push"(0, rx1009_pos, $I10)
+ # rx literal "**"
+ add $I11, rx1009_pos, 2
+ gt $I11, rx1009_eos, rx1009_fail
+ sub $I11, rx1009_pos, rx1009_off
+ substr $S10, rx1009_tgt, $I11, 2
+ ne $S10, "**", rx1009_fail
+ add rx1009_pos, 2
+ set_addr $I10, rxcap_1014_fail
+ ($I12, $I11) = rx1009_cur."!mark_peek"($I10)
+ rx1009_cur."!cursor_pos"($I11)
+ ($P10) = rx1009_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1009_pos, "")
+ rx1009_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1016_done
- rxcap_1016_fail:
- goto rx1011_fail
- rxcap_1016_done:
+ goto rxcap_1014_done
+ rxcap_1014_fail:
+ goto rx1009_fail
+ rxcap_1014_done:
# rx subrule "O" subtype=capture negate=
- rx1011_cur."!cursor_pos"(rx1011_pos)
- $P10 = rx1011_cur."O"("%symbolic_unary, :pirop<set N*>")
- unless $P10, rx1011_fail
- rx1011_cur."!mark_push"(0, -1, 0, $P10)
+ rx1009_cur."!cursor_pos"(rx1009_pos)
+ $P10 = rx1009_cur."O"("%exponentiation, :pirop<pow>")
+ unless $P10, rx1009_fail
+ rx1009_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1011_pos = $P10."pos"()
+ rx1009_pos = $P10."pos"()
# rx pass
- rx1011_cur."!cursor_pass"(rx1011_pos, "prefix:sym<+>")
- rx1011_cur."!cursor_debug"("PASS ", "prefix:sym<+>", " at pos=", rx1011_pos)
- .return (rx1011_cur)
- rx1011_fail:
-.annotate 'line', 431
- (rx1011_rep, rx1011_pos, $I10, $P10) = rx1011_cur."!mark_fail"(0)
- lt rx1011_pos, -1, rx1011_done
- eq rx1011_pos, -1, rx1011_fail
- jump $I10
- rx1011_done:
- rx1011_cur."!cursor_fail"()
- rx1011_cur."!cursor_debug"("FAIL ", "prefix:sym<+>")
- .return (rx1011_cur)
+ rx1009_cur."!cursor_pass"(rx1009_pos, "infix:sym<**>")
+ rx1009_cur."!cursor_debug"("PASS ", "infix:sym<**>", " at pos=", rx1009_pos)
+ .return (rx1009_cur)
+ rx1009_fail:
+.annotate 'line', 433
+ (rx1009_rep, rx1009_pos, $I10, $P10) = rx1009_cur."!mark_fail"(0)
+ lt rx1009_pos, -1, rx1009_done
+ eq rx1009_pos, -1, rx1009_fail
+ jump $I10
+ rx1009_done:
+ rx1009_cur."!cursor_fail"()
+ rx1009_cur."!cursor_debug"("FAIL ", "infix:sym<**>")
+ .return (rx1009_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<+>" :subid("252_1274564776.41408") :method
-.annotate 'line', 431
- $P1013 = self."!PREFIX__!subrule"("O", "+")
- new $P1014, "ResizablePMCArray"
- push $P1014, $P1013
- .return ($P1014)
+.sub "!PREFIX__infix:sym<**>" :subid("252_1275117591.97262") :method
+.annotate 'line', 433
+ $P1011 = self."!PREFIX__!subrule"("O", "**")
+ new $P1012, "ResizablePMCArray"
+ push $P1012, $P1011
+ .return ($P1012)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<~>" :subid("253_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1018_tgt
- .local int rx1018_pos
- .local int rx1018_off
- .local int rx1018_eos
- .local int rx1018_rep
- .local pmc rx1018_cur
- (rx1018_cur, rx1018_pos, rx1018_tgt) = self."!cursor_start"()
- rx1018_cur."!cursor_debug"("START ", "prefix:sym<~>")
- .lex unicode:"$\x{a2}", rx1018_cur
- .local pmc match
- .lex "$/", match
- length rx1018_eos, rx1018_tgt
- set rx1018_off, 0
- lt rx1018_pos, 2, rx1018_start
- sub rx1018_off, rx1018_pos, 1
- substr rx1018_tgt, rx1018_tgt, rx1018_off
- rx1018_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1022_done
- goto rxscan1022_scan
- rxscan1022_loop:
- ($P10) = rx1018_cur."from"()
- inc $P10
- set rx1018_pos, $P10
- ge rx1018_pos, rx1018_eos, rxscan1022_done
- rxscan1022_scan:
- set_addr $I10, rxscan1022_loop
- rx1018_cur."!mark_push"(0, rx1018_pos, $I10)
- rxscan1022_done:
-.annotate 'line', 485
+.sub "prefix:sym<+>" :subid("253_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1016_tgt
+ .local int rx1016_pos
+ .local int rx1016_off
+ .local int rx1016_eos
+ .local int rx1016_rep
+ .local pmc rx1016_cur
+ (rx1016_cur, rx1016_pos, rx1016_tgt) = self."!cursor_start"()
+ rx1016_cur."!cursor_debug"("START ", "prefix:sym<+>")
+ .lex unicode:"$\x{a2}", rx1016_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1016_eos, rx1016_tgt
+ set rx1016_off, 0
+ lt rx1016_pos, 2, rx1016_start
+ sub rx1016_off, rx1016_pos, 1
+ substr rx1016_tgt, rx1016_tgt, rx1016_off
+ rx1016_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1020_done
+ goto rxscan1020_scan
+ rxscan1020_loop:
+ ($P10) = rx1016_cur."from"()
+ inc $P10
+ set rx1016_pos, $P10
+ ge rx1016_pos, rx1016_eos, rxscan1020_done
+ rxscan1020_scan:
+ set_addr $I10, rxscan1020_loop
+ rx1016_cur."!mark_push"(0, rx1016_pos, $I10)
+ rxscan1020_done:
+.annotate 'line', 486
# rx subcapture "sym"
- set_addr $I10, rxcap_1023_fail
- rx1018_cur."!mark_push"(0, rx1018_pos, $I10)
- # rx literal "~"
- add $I11, rx1018_pos, 1
- gt $I11, rx1018_eos, rx1018_fail
- sub $I11, rx1018_pos, rx1018_off
- substr $S10, rx1018_tgt, $I11, 1
- ne $S10, "~", rx1018_fail
- add rx1018_pos, 1
- set_addr $I10, rxcap_1023_fail
- ($I12, $I11) = rx1018_cur."!mark_peek"($I10)
- rx1018_cur."!cursor_pos"($I11)
- ($P10) = rx1018_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1018_pos, "")
- rx1018_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_1021_fail
+ rx1016_cur."!mark_push"(0, rx1016_pos, $I10)
+ # rx literal "+"
+ add $I11, rx1016_pos, 1
+ gt $I11, rx1016_eos, rx1016_fail
+ sub $I11, rx1016_pos, rx1016_off
+ substr $S10, rx1016_tgt, $I11, 1
+ ne $S10, "+", rx1016_fail
+ add rx1016_pos, 1
+ set_addr $I10, rxcap_1021_fail
+ ($I12, $I11) = rx1016_cur."!mark_peek"($I10)
+ rx1016_cur."!cursor_pos"($I11)
+ ($P10) = rx1016_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1016_pos, "")
+ rx1016_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1023_done
- rxcap_1023_fail:
- goto rx1018_fail
- rxcap_1023_done:
+ goto rxcap_1021_done
+ rxcap_1021_fail:
+ goto rx1016_fail
+ rxcap_1021_done:
# rx subrule "O" subtype=capture negate=
- rx1018_cur."!cursor_pos"(rx1018_pos)
- $P10 = rx1018_cur."O"("%symbolic_unary, :pirop<set S*>")
- unless $P10, rx1018_fail
- rx1018_cur."!mark_push"(0, -1, 0, $P10)
+ rx1016_cur."!cursor_pos"(rx1016_pos)
+ $P10 = rx1016_cur."O"("%symbolic_unary, :pirop<set N*>")
+ unless $P10, rx1016_fail
+ rx1016_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1018_pos = $P10."pos"()
+ rx1016_pos = $P10."pos"()
# rx pass
- rx1018_cur."!cursor_pass"(rx1018_pos, "prefix:sym<~>")
- rx1018_cur."!cursor_debug"("PASS ", "prefix:sym<~>", " at pos=", rx1018_pos)
- .return (rx1018_cur)
- rx1018_fail:
-.annotate 'line', 431
- (rx1018_rep, rx1018_pos, $I10, $P10) = rx1018_cur."!mark_fail"(0)
- lt rx1018_pos, -1, rx1018_done
- eq rx1018_pos, -1, rx1018_fail
+ rx1016_cur."!cursor_pass"(rx1016_pos, "prefix:sym<+>")
+ rx1016_cur."!cursor_debug"("PASS ", "prefix:sym<+>", " at pos=", rx1016_pos)
+ .return (rx1016_cur)
+ rx1016_fail:
+.annotate 'line', 433
+ (rx1016_rep, rx1016_pos, $I10, $P10) = rx1016_cur."!mark_fail"(0)
+ lt rx1016_pos, -1, rx1016_done
+ eq rx1016_pos, -1, rx1016_fail
jump $I10
- rx1018_done:
- rx1018_cur."!cursor_fail"()
- rx1018_cur."!cursor_debug"("FAIL ", "prefix:sym<~>")
- .return (rx1018_cur)
+ rx1016_done:
+ rx1016_cur."!cursor_fail"()
+ rx1016_cur."!cursor_debug"("FAIL ", "prefix:sym<+>")
+ .return (rx1016_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<~>" :subid("254_1274564776.41408") :method
-.annotate 'line', 431
- $P1020 = self."!PREFIX__!subrule"("O", "~")
- new $P1021, "ResizablePMCArray"
- push $P1021, $P1020
- .return ($P1021)
+.sub "!PREFIX__prefix:sym<+>" :subid("254_1275117591.97262") :method
+.annotate 'line', 433
+ $P1018 = self."!PREFIX__!subrule"("O", "+")
+ new $P1019, "ResizablePMCArray"
+ push $P1019, $P1018
+ .return ($P1019)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<->" :subid("255_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1025_tgt
- .local int rx1025_pos
- .local int rx1025_off
- .local int rx1025_eos
- .local int rx1025_rep
- .local pmc rx1025_cur
- (rx1025_cur, rx1025_pos, rx1025_tgt) = self."!cursor_start"()
- rx1025_cur."!cursor_debug"("START ", "prefix:sym<->")
- .lex unicode:"$\x{a2}", rx1025_cur
- .local pmc match
- .lex "$/", match
- length rx1025_eos, rx1025_tgt
- set rx1025_off, 0
- lt rx1025_pos, 2, rx1025_start
- sub rx1025_off, rx1025_pos, 1
- substr rx1025_tgt, rx1025_tgt, rx1025_off
- rx1025_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1028_done
- goto rxscan1028_scan
- rxscan1028_loop:
- ($P10) = rx1025_cur."from"()
- inc $P10
- set rx1025_pos, $P10
- ge rx1025_pos, rx1025_eos, rxscan1028_done
- rxscan1028_scan:
- set_addr $I10, rxscan1028_loop
- rx1025_cur."!mark_push"(0, rx1025_pos, $I10)
- rxscan1028_done:
-.annotate 'line', 486
+.sub "prefix:sym<~>" :subid("255_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1023_tgt
+ .local int rx1023_pos
+ .local int rx1023_off
+ .local int rx1023_eos
+ .local int rx1023_rep
+ .local pmc rx1023_cur
+ (rx1023_cur, rx1023_pos, rx1023_tgt) = self."!cursor_start"()
+ rx1023_cur."!cursor_debug"("START ", "prefix:sym<~>")
+ .lex unicode:"$\x{a2}", rx1023_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1023_eos, rx1023_tgt
+ set rx1023_off, 0
+ lt rx1023_pos, 2, rx1023_start
+ sub rx1023_off, rx1023_pos, 1
+ substr rx1023_tgt, rx1023_tgt, rx1023_off
+ rx1023_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1027_done
+ goto rxscan1027_scan
+ rxscan1027_loop:
+ ($P10) = rx1023_cur."from"()
+ inc $P10
+ set rx1023_pos, $P10
+ ge rx1023_pos, rx1023_eos, rxscan1027_done
+ rxscan1027_scan:
+ set_addr $I10, rxscan1027_loop
+ rx1023_cur."!mark_push"(0, rx1023_pos, $I10)
+ rxscan1027_done:
+.annotate 'line', 487
+ # rx subcapture "sym"
+ set_addr $I10, rxcap_1028_fail
+ rx1023_cur."!mark_push"(0, rx1023_pos, $I10)
+ # rx literal "~"
+ add $I11, rx1023_pos, 1
+ gt $I11, rx1023_eos, rx1023_fail
+ sub $I11, rx1023_pos, rx1023_off
+ substr $S10, rx1023_tgt, $I11, 1
+ ne $S10, "~", rx1023_fail
+ add rx1023_pos, 1
+ set_addr $I10, rxcap_1028_fail
+ ($I12, $I11) = rx1023_cur."!mark_peek"($I10)
+ rx1023_cur."!cursor_pos"($I11)
+ ($P10) = rx1023_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1023_pos, "")
+ rx1023_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sym")
+ goto rxcap_1028_done
+ rxcap_1028_fail:
+ goto rx1023_fail
+ rxcap_1028_done:
+ # rx subrule "O" subtype=capture negate=
+ rx1023_cur."!cursor_pos"(rx1023_pos)
+ $P10 = rx1023_cur."O"("%symbolic_unary, :pirop<set S*>")
+ unless $P10, rx1023_fail
+ rx1023_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("O")
+ rx1023_pos = $P10."pos"()
+ # rx pass
+ rx1023_cur."!cursor_pass"(rx1023_pos, "prefix:sym<~>")
+ rx1023_cur."!cursor_debug"("PASS ", "prefix:sym<~>", " at pos=", rx1023_pos)
+ .return (rx1023_cur)
+ rx1023_fail:
+.annotate 'line', 433
+ (rx1023_rep, rx1023_pos, $I10, $P10) = rx1023_cur."!mark_fail"(0)
+ lt rx1023_pos, -1, rx1023_done
+ eq rx1023_pos, -1, rx1023_fail
+ jump $I10
+ rx1023_done:
+ rx1023_cur."!cursor_fail"()
+ rx1023_cur."!cursor_debug"("FAIL ", "prefix:sym<~>")
+ .return (rx1023_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__prefix:sym<~>" :subid("256_1275117591.97262") :method
+.annotate 'line', 433
+ $P1025 = self."!PREFIX__!subrule"("O", "~")
+ new $P1026, "ResizablePMCArray"
+ push $P1026, $P1025
+ .return ($P1026)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "prefix:sym<->" :subid("257_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1030_tgt
+ .local int rx1030_pos
+ .local int rx1030_off
+ .local int rx1030_eos
+ .local int rx1030_rep
+ .local pmc rx1030_cur
+ (rx1030_cur, rx1030_pos, rx1030_tgt) = self."!cursor_start"()
+ rx1030_cur."!cursor_debug"("START ", "prefix:sym<->")
+ .lex unicode:"$\x{a2}", rx1030_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1030_eos, rx1030_tgt
+ set rx1030_off, 0
+ lt rx1030_pos, 2, rx1030_start
+ sub rx1030_off, rx1030_pos, 1
+ substr rx1030_tgt, rx1030_tgt, rx1030_off
+ rx1030_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1033_done
+ goto rxscan1033_scan
+ rxscan1033_loop:
+ ($P10) = rx1030_cur."from"()
+ inc $P10
+ set rx1030_pos, $P10
+ ge rx1030_pos, rx1030_eos, rxscan1033_done
+ rxscan1033_scan:
+ set_addr $I10, rxscan1033_loop
+ rx1030_cur."!mark_push"(0, rx1030_pos, $I10)
+ rxscan1033_done:
+.annotate 'line', 488
# rx subcapture "sym"
- set_addr $I10, rxcap_1029_fail
- rx1025_cur."!mark_push"(0, rx1025_pos, $I10)
+ set_addr $I10, rxcap_1034_fail
+ rx1030_cur."!mark_push"(0, rx1030_pos, $I10)
# rx literal "-"
- add $I11, rx1025_pos, 1
- gt $I11, rx1025_eos, rx1025_fail
- sub $I11, rx1025_pos, rx1025_off
- substr $S10, rx1025_tgt, $I11, 1
- ne $S10, "-", rx1025_fail
- add rx1025_pos, 1
- set_addr $I10, rxcap_1029_fail
- ($I12, $I11) = rx1025_cur."!mark_peek"($I10)
- rx1025_cur."!cursor_pos"($I11)
- ($P10) = rx1025_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1025_pos, "")
- rx1025_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1030_pos, 1
+ gt $I11, rx1030_eos, rx1030_fail
+ sub $I11, rx1030_pos, rx1030_off
+ substr $S10, rx1030_tgt, $I11, 1
+ ne $S10, "-", rx1030_fail
+ add rx1030_pos, 1
+ set_addr $I10, rxcap_1034_fail
+ ($I12, $I11) = rx1030_cur."!mark_peek"($I10)
+ rx1030_cur."!cursor_pos"($I11)
+ ($P10) = rx1030_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1030_pos, "")
+ rx1030_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1029_done
- rxcap_1029_fail:
- goto rx1025_fail
- rxcap_1029_done:
+ goto rxcap_1034_done
+ rxcap_1034_fail:
+ goto rx1030_fail
+ rxcap_1034_done:
# rx enumcharlist negate=1 zerowidth
- ge rx1025_pos, rx1025_eos, rx1025_fail
- sub $I10, rx1025_pos, rx1025_off
- substr $S10, rx1025_tgt, $I10, 1
+ ge rx1030_pos, rx1030_eos, rx1030_fail
+ sub $I10, rx1030_pos, rx1030_off
+ substr $S10, rx1030_tgt, $I10, 1
index $I11, ">", $S10
- ge $I11, 0, rx1025_fail
+ ge $I11, 0, rx1030_fail
# rx subrule "number" subtype=zerowidth negate=1
- rx1025_cur."!cursor_pos"(rx1025_pos)
- $P10 = rx1025_cur."number"()
- if $P10, rx1025_fail
+ rx1030_cur."!cursor_pos"(rx1030_pos)
+ $P10 = rx1030_cur."number"()
+ if $P10, rx1030_fail
# rx subrule "O" subtype=capture negate=
- rx1025_cur."!cursor_pos"(rx1025_pos)
- $P10 = rx1025_cur."O"("%symbolic_unary, :pirop<neg>")
- unless $P10, rx1025_fail
- rx1025_cur."!mark_push"(0, -1, 0, $P10)
+ rx1030_cur."!cursor_pos"(rx1030_pos)
+ $P10 = rx1030_cur."O"("%symbolic_unary, :pirop<neg>")
+ unless $P10, rx1030_fail
+ rx1030_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1025_pos = $P10."pos"()
+ rx1030_pos = $P10."pos"()
# rx pass
- rx1025_cur."!cursor_pass"(rx1025_pos, "prefix:sym<->")
- rx1025_cur."!cursor_debug"("PASS ", "prefix:sym<->", " at pos=", rx1025_pos)
- .return (rx1025_cur)
- rx1025_fail:
-.annotate 'line', 431
- (rx1025_rep, rx1025_pos, $I10, $P10) = rx1025_cur."!mark_fail"(0)
- lt rx1025_pos, -1, rx1025_done
- eq rx1025_pos, -1, rx1025_fail
- jump $I10
- rx1025_done:
- rx1025_cur."!cursor_fail"()
- rx1025_cur."!cursor_debug"("FAIL ", "prefix:sym<->")
- .return (rx1025_cur)
+ rx1030_cur."!cursor_pass"(rx1030_pos, "prefix:sym<->")
+ rx1030_cur."!cursor_debug"("PASS ", "prefix:sym<->", " at pos=", rx1030_pos)
+ .return (rx1030_cur)
+ rx1030_fail:
+.annotate 'line', 433
+ (rx1030_rep, rx1030_pos, $I10, $P10) = rx1030_cur."!mark_fail"(0)
+ lt rx1030_pos, -1, rx1030_done
+ eq rx1030_pos, -1, rx1030_fail
+ jump $I10
+ rx1030_done:
+ rx1030_cur."!cursor_fail"()
+ rx1030_cur."!cursor_debug"("FAIL ", "prefix:sym<->")
+ .return (rx1030_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<->" :subid("256_1274564776.41408") :method
-.annotate 'line', 431
- new $P1027, "ResizablePMCArray"
- push $P1027, "-"
- .return ($P1027)
+.sub "!PREFIX__prefix:sym<->" :subid("258_1275117591.97262") :method
+.annotate 'line', 433
+ new $P1032, "ResizablePMCArray"
+ push $P1032, "-"
+ .return ($P1032)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<?>" :subid("257_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1031_tgt
- .local int rx1031_pos
- .local int rx1031_off
- .local int rx1031_eos
- .local int rx1031_rep
- .local pmc rx1031_cur
- (rx1031_cur, rx1031_pos, rx1031_tgt) = self."!cursor_start"()
- rx1031_cur."!cursor_debug"("START ", "prefix:sym<?>")
- .lex unicode:"$\x{a2}", rx1031_cur
- .local pmc match
- .lex "$/", match
- length rx1031_eos, rx1031_tgt
- set rx1031_off, 0
- lt rx1031_pos, 2, rx1031_start
- sub rx1031_off, rx1031_pos, 1
- substr rx1031_tgt, rx1031_tgt, rx1031_off
- rx1031_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1035_done
- goto rxscan1035_scan
- rxscan1035_loop:
- ($P10) = rx1031_cur."from"()
- inc $P10
- set rx1031_pos, $P10
- ge rx1031_pos, rx1031_eos, rxscan1035_done
- rxscan1035_scan:
- set_addr $I10, rxscan1035_loop
- rx1031_cur."!mark_push"(0, rx1031_pos, $I10)
- rxscan1035_done:
-.annotate 'line', 487
+.sub "prefix:sym<?>" :subid("259_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1036_tgt
+ .local int rx1036_pos
+ .local int rx1036_off
+ .local int rx1036_eos
+ .local int rx1036_rep
+ .local pmc rx1036_cur
+ (rx1036_cur, rx1036_pos, rx1036_tgt) = self."!cursor_start"()
+ rx1036_cur."!cursor_debug"("START ", "prefix:sym<?>")
+ .lex unicode:"$\x{a2}", rx1036_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1036_eos, rx1036_tgt
+ set rx1036_off, 0
+ lt rx1036_pos, 2, rx1036_start
+ sub rx1036_off, rx1036_pos, 1
+ substr rx1036_tgt, rx1036_tgt, rx1036_off
+ rx1036_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1040_done
+ goto rxscan1040_scan
+ rxscan1040_loop:
+ ($P10) = rx1036_cur."from"()
+ inc $P10
+ set rx1036_pos, $P10
+ ge rx1036_pos, rx1036_eos, rxscan1040_done
+ rxscan1040_scan:
+ set_addr $I10, rxscan1040_loop
+ rx1036_cur."!mark_push"(0, rx1036_pos, $I10)
+ rxscan1040_done:
+.annotate 'line', 489
# rx subcapture "sym"
- set_addr $I10, rxcap_1036_fail
- rx1031_cur."!mark_push"(0, rx1031_pos, $I10)
+ set_addr $I10, rxcap_1041_fail
+ rx1036_cur."!mark_push"(0, rx1036_pos, $I10)
# rx literal "?"
- add $I11, rx1031_pos, 1
- gt $I11, rx1031_eos, rx1031_fail
- sub $I11, rx1031_pos, rx1031_off
- substr $S10, rx1031_tgt, $I11, 1
- ne $S10, "?", rx1031_fail
- add rx1031_pos, 1
- set_addr $I10, rxcap_1036_fail
- ($I12, $I11) = rx1031_cur."!mark_peek"($I10)
- rx1031_cur."!cursor_pos"($I11)
- ($P10) = rx1031_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1031_pos, "")
- rx1031_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1036_pos, 1
+ gt $I11, rx1036_eos, rx1036_fail
+ sub $I11, rx1036_pos, rx1036_off
+ substr $S10, rx1036_tgt, $I11, 1
+ ne $S10, "?", rx1036_fail
+ add rx1036_pos, 1
+ set_addr $I10, rxcap_1041_fail
+ ($I12, $I11) = rx1036_cur."!mark_peek"($I10)
+ rx1036_cur."!cursor_pos"($I11)
+ ($P10) = rx1036_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1036_pos, "")
+ rx1036_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1036_done
- rxcap_1036_fail:
- goto rx1031_fail
- rxcap_1036_done:
+ goto rxcap_1041_done
+ rxcap_1041_fail:
+ goto rx1036_fail
+ rxcap_1041_done:
# rx subrule "O" subtype=capture negate=
- rx1031_cur."!cursor_pos"(rx1031_pos)
- $P10 = rx1031_cur."O"("%symbolic_unary, :pirop<istrue>")
- unless $P10, rx1031_fail
- rx1031_cur."!mark_push"(0, -1, 0, $P10)
+ rx1036_cur."!cursor_pos"(rx1036_pos)
+ $P10 = rx1036_cur."O"("%symbolic_unary, :pirop<istrue>")
+ unless $P10, rx1036_fail
+ rx1036_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1031_pos = $P10."pos"()
+ rx1036_pos = $P10."pos"()
# rx pass
- rx1031_cur."!cursor_pass"(rx1031_pos, "prefix:sym<?>")
- rx1031_cur."!cursor_debug"("PASS ", "prefix:sym<?>", " at pos=", rx1031_pos)
- .return (rx1031_cur)
- rx1031_fail:
-.annotate 'line', 431
- (rx1031_rep, rx1031_pos, $I10, $P10) = rx1031_cur."!mark_fail"(0)
- lt rx1031_pos, -1, rx1031_done
- eq rx1031_pos, -1, rx1031_fail
- jump $I10
- rx1031_done:
- rx1031_cur."!cursor_fail"()
- rx1031_cur."!cursor_debug"("FAIL ", "prefix:sym<?>")
- .return (rx1031_cur)
+ rx1036_cur."!cursor_pass"(rx1036_pos, "prefix:sym<?>")
+ rx1036_cur."!cursor_debug"("PASS ", "prefix:sym<?>", " at pos=", rx1036_pos)
+ .return (rx1036_cur)
+ rx1036_fail:
+.annotate 'line', 433
+ (rx1036_rep, rx1036_pos, $I10, $P10) = rx1036_cur."!mark_fail"(0)
+ lt rx1036_pos, -1, rx1036_done
+ eq rx1036_pos, -1, rx1036_fail
+ jump $I10
+ rx1036_done:
+ rx1036_cur."!cursor_fail"()
+ rx1036_cur."!cursor_debug"("FAIL ", "prefix:sym<?>")
+ .return (rx1036_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<?>" :subid("258_1274564776.41408") :method
-.annotate 'line', 431
- $P1033 = self."!PREFIX__!subrule"("O", "?")
- new $P1034, "ResizablePMCArray"
- push $P1034, $P1033
- .return ($P1034)
+.sub "!PREFIX__prefix:sym<?>" :subid("260_1275117591.97262") :method
+.annotate 'line', 433
+ $P1038 = self."!PREFIX__!subrule"("O", "?")
+ new $P1039, "ResizablePMCArray"
+ push $P1039, $P1038
+ .return ($P1039)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<!>" :subid("259_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1038_tgt
- .local int rx1038_pos
- .local int rx1038_off
- .local int rx1038_eos
- .local int rx1038_rep
- .local pmc rx1038_cur
- (rx1038_cur, rx1038_pos, rx1038_tgt) = self."!cursor_start"()
- rx1038_cur."!cursor_debug"("START ", "prefix:sym<!>")
- .lex unicode:"$\x{a2}", rx1038_cur
- .local pmc match
- .lex "$/", match
- length rx1038_eos, rx1038_tgt
- set rx1038_off, 0
- lt rx1038_pos, 2, rx1038_start
- sub rx1038_off, rx1038_pos, 1
- substr rx1038_tgt, rx1038_tgt, rx1038_off
- rx1038_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1042_done
- goto rxscan1042_scan
- rxscan1042_loop:
- ($P10) = rx1038_cur."from"()
- inc $P10
- set rx1038_pos, $P10
- ge rx1038_pos, rx1038_eos, rxscan1042_done
- rxscan1042_scan:
- set_addr $I10, rxscan1042_loop
- rx1038_cur."!mark_push"(0, rx1038_pos, $I10)
- rxscan1042_done:
-.annotate 'line', 488
+.sub "prefix:sym<!>" :subid("261_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1043_tgt
+ .local int rx1043_pos
+ .local int rx1043_off
+ .local int rx1043_eos
+ .local int rx1043_rep
+ .local pmc rx1043_cur
+ (rx1043_cur, rx1043_pos, rx1043_tgt) = self."!cursor_start"()
+ rx1043_cur."!cursor_debug"("START ", "prefix:sym<!>")
+ .lex unicode:"$\x{a2}", rx1043_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1043_eos, rx1043_tgt
+ set rx1043_off, 0
+ lt rx1043_pos, 2, rx1043_start
+ sub rx1043_off, rx1043_pos, 1
+ substr rx1043_tgt, rx1043_tgt, rx1043_off
+ rx1043_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1047_done
+ goto rxscan1047_scan
+ rxscan1047_loop:
+ ($P10) = rx1043_cur."from"()
+ inc $P10
+ set rx1043_pos, $P10
+ ge rx1043_pos, rx1043_eos, rxscan1047_done
+ rxscan1047_scan:
+ set_addr $I10, rxscan1047_loop
+ rx1043_cur."!mark_push"(0, rx1043_pos, $I10)
+ rxscan1047_done:
+.annotate 'line', 490
# rx subcapture "sym"
- set_addr $I10, rxcap_1043_fail
- rx1038_cur."!mark_push"(0, rx1038_pos, $I10)
+ set_addr $I10, rxcap_1048_fail
+ rx1043_cur."!mark_push"(0, rx1043_pos, $I10)
# rx literal "!"
- add $I11, rx1038_pos, 1
- gt $I11, rx1038_eos, rx1038_fail
- sub $I11, rx1038_pos, rx1038_off
- substr $S10, rx1038_tgt, $I11, 1
- ne $S10, "!", rx1038_fail
- add rx1038_pos, 1
- set_addr $I10, rxcap_1043_fail
- ($I12, $I11) = rx1038_cur."!mark_peek"($I10)
- rx1038_cur."!cursor_pos"($I11)
- ($P10) = rx1038_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1038_pos, "")
- rx1038_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1043_pos, 1
+ gt $I11, rx1043_eos, rx1043_fail
+ sub $I11, rx1043_pos, rx1043_off
+ substr $S10, rx1043_tgt, $I11, 1
+ ne $S10, "!", rx1043_fail
+ add rx1043_pos, 1
+ set_addr $I10, rxcap_1048_fail
+ ($I12, $I11) = rx1043_cur."!mark_peek"($I10)
+ rx1043_cur."!cursor_pos"($I11)
+ ($P10) = rx1043_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1043_pos, "")
+ rx1043_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1043_done
- rxcap_1043_fail:
- goto rx1038_fail
- rxcap_1043_done:
+ goto rxcap_1048_done
+ rxcap_1048_fail:
+ goto rx1043_fail
+ rxcap_1048_done:
# rx subrule "O" subtype=capture negate=
- rx1038_cur."!cursor_pos"(rx1038_pos)
- $P10 = rx1038_cur."O"("%symbolic_unary, :pirop<isfalse>")
- unless $P10, rx1038_fail
- rx1038_cur."!mark_push"(0, -1, 0, $P10)
+ rx1043_cur."!cursor_pos"(rx1043_pos)
+ $P10 = rx1043_cur."O"("%symbolic_unary, :pirop<isfalse>")
+ unless $P10, rx1043_fail
+ rx1043_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1038_pos = $P10."pos"()
+ rx1043_pos = $P10."pos"()
# rx pass
- rx1038_cur."!cursor_pass"(rx1038_pos, "prefix:sym<!>")
- rx1038_cur."!cursor_debug"("PASS ", "prefix:sym<!>", " at pos=", rx1038_pos)
- .return (rx1038_cur)
- rx1038_fail:
-.annotate 'line', 431
- (rx1038_rep, rx1038_pos, $I10, $P10) = rx1038_cur."!mark_fail"(0)
- lt rx1038_pos, -1, rx1038_done
- eq rx1038_pos, -1, rx1038_fail
- jump $I10
- rx1038_done:
- rx1038_cur."!cursor_fail"()
- rx1038_cur."!cursor_debug"("FAIL ", "prefix:sym<!>")
- .return (rx1038_cur)
+ rx1043_cur."!cursor_pass"(rx1043_pos, "prefix:sym<!>")
+ rx1043_cur."!cursor_debug"("PASS ", "prefix:sym<!>", " at pos=", rx1043_pos)
+ .return (rx1043_cur)
+ rx1043_fail:
+.annotate 'line', 433
+ (rx1043_rep, rx1043_pos, $I10, $P10) = rx1043_cur."!mark_fail"(0)
+ lt rx1043_pos, -1, rx1043_done
+ eq rx1043_pos, -1, rx1043_fail
+ jump $I10
+ rx1043_done:
+ rx1043_cur."!cursor_fail"()
+ rx1043_cur."!cursor_debug"("FAIL ", "prefix:sym<!>")
+ .return (rx1043_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<!>" :subid("260_1274564776.41408") :method
-.annotate 'line', 431
- $P1040 = self."!PREFIX__!subrule"("O", "!")
- new $P1041, "ResizablePMCArray"
- push $P1041, $P1040
- .return ($P1041)
+.sub "!PREFIX__prefix:sym<!>" :subid("262_1275117591.97262") :method
+.annotate 'line', 433
+ $P1045 = self."!PREFIX__!subrule"("O", "!")
+ new $P1046, "ResizablePMCArray"
+ push $P1046, $P1045
+ .return ($P1046)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<|>" :subid("261_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1045_tgt
- .local int rx1045_pos
- .local int rx1045_off
- .local int rx1045_eos
- .local int rx1045_rep
- .local pmc rx1045_cur
- (rx1045_cur, rx1045_pos, rx1045_tgt) = self."!cursor_start"()
- rx1045_cur."!cursor_debug"("START ", "prefix:sym<|>")
- .lex unicode:"$\x{a2}", rx1045_cur
- .local pmc match
- .lex "$/", match
- length rx1045_eos, rx1045_tgt
- set rx1045_off, 0
- lt rx1045_pos, 2, rx1045_start
- sub rx1045_off, rx1045_pos, 1
- substr rx1045_tgt, rx1045_tgt, rx1045_off
- rx1045_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1049_done
- goto rxscan1049_scan
- rxscan1049_loop:
- ($P10) = rx1045_cur."from"()
- inc $P10
- set rx1045_pos, $P10
- ge rx1045_pos, rx1045_eos, rxscan1049_done
- rxscan1049_scan:
- set_addr $I10, rxscan1049_loop
- rx1045_cur."!mark_push"(0, rx1045_pos, $I10)
- rxscan1049_done:
-.annotate 'line', 489
+.sub "prefix:sym<|>" :subid("263_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1050_tgt
+ .local int rx1050_pos
+ .local int rx1050_off
+ .local int rx1050_eos
+ .local int rx1050_rep
+ .local pmc rx1050_cur
+ (rx1050_cur, rx1050_pos, rx1050_tgt) = self."!cursor_start"()
+ rx1050_cur."!cursor_debug"("START ", "prefix:sym<|>")
+ .lex unicode:"$\x{a2}", rx1050_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1050_eos, rx1050_tgt
+ set rx1050_off, 0
+ lt rx1050_pos, 2, rx1050_start
+ sub rx1050_off, rx1050_pos, 1
+ substr rx1050_tgt, rx1050_tgt, rx1050_off
+ rx1050_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1054_done
+ goto rxscan1054_scan
+ rxscan1054_loop:
+ ($P10) = rx1050_cur."from"()
+ inc $P10
+ set rx1050_pos, $P10
+ ge rx1050_pos, rx1050_eos, rxscan1054_done
+ rxscan1054_scan:
+ set_addr $I10, rxscan1054_loop
+ rx1050_cur."!mark_push"(0, rx1050_pos, $I10)
+ rxscan1054_done:
+.annotate 'line', 491
# rx subcapture "sym"
- set_addr $I10, rxcap_1050_fail
- rx1045_cur."!mark_push"(0, rx1045_pos, $I10)
+ set_addr $I10, rxcap_1055_fail
+ rx1050_cur."!mark_push"(0, rx1050_pos, $I10)
# rx literal "|"
- add $I11, rx1045_pos, 1
- gt $I11, rx1045_eos, rx1045_fail
- sub $I11, rx1045_pos, rx1045_off
- substr $S10, rx1045_tgt, $I11, 1
- ne $S10, "|", rx1045_fail
- add rx1045_pos, 1
- set_addr $I10, rxcap_1050_fail
- ($I12, $I11) = rx1045_cur."!mark_peek"($I10)
- rx1045_cur."!cursor_pos"($I11)
- ($P10) = rx1045_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1045_pos, "")
- rx1045_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1050_pos, 1
+ gt $I11, rx1050_eos, rx1050_fail
+ sub $I11, rx1050_pos, rx1050_off
+ substr $S10, rx1050_tgt, $I11, 1
+ ne $S10, "|", rx1050_fail
+ add rx1050_pos, 1
+ set_addr $I10, rxcap_1055_fail
+ ($I12, $I11) = rx1050_cur."!mark_peek"($I10)
+ rx1050_cur."!cursor_pos"($I11)
+ ($P10) = rx1050_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1050_pos, "")
+ rx1050_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1050_done
- rxcap_1050_fail:
- goto rx1045_fail
- rxcap_1050_done:
+ goto rxcap_1055_done
+ rxcap_1055_fail:
+ goto rx1050_fail
+ rxcap_1055_done:
# rx subrule "O" subtype=capture negate=
- rx1045_cur."!cursor_pos"(rx1045_pos)
- $P10 = rx1045_cur."O"("%symbolic_unary")
- unless $P10, rx1045_fail
- rx1045_cur."!mark_push"(0, -1, 0, $P10)
+ rx1050_cur."!cursor_pos"(rx1050_pos)
+ $P10 = rx1050_cur."O"("%symbolic_unary")
+ unless $P10, rx1050_fail
+ rx1050_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1045_pos = $P10."pos"()
+ rx1050_pos = $P10."pos"()
# rx pass
- rx1045_cur."!cursor_pass"(rx1045_pos, "prefix:sym<|>")
- rx1045_cur."!cursor_debug"("PASS ", "prefix:sym<|>", " at pos=", rx1045_pos)
- .return (rx1045_cur)
- rx1045_fail:
-.annotate 'line', 431
- (rx1045_rep, rx1045_pos, $I10, $P10) = rx1045_cur."!mark_fail"(0)
- lt rx1045_pos, -1, rx1045_done
- eq rx1045_pos, -1, rx1045_fail
- jump $I10
- rx1045_done:
- rx1045_cur."!cursor_fail"()
- rx1045_cur."!cursor_debug"("FAIL ", "prefix:sym<|>")
- .return (rx1045_cur)
+ rx1050_cur."!cursor_pass"(rx1050_pos, "prefix:sym<|>")
+ rx1050_cur."!cursor_debug"("PASS ", "prefix:sym<|>", " at pos=", rx1050_pos)
+ .return (rx1050_cur)
+ rx1050_fail:
+.annotate 'line', 433
+ (rx1050_rep, rx1050_pos, $I10, $P10) = rx1050_cur."!mark_fail"(0)
+ lt rx1050_pos, -1, rx1050_done
+ eq rx1050_pos, -1, rx1050_fail
+ jump $I10
+ rx1050_done:
+ rx1050_cur."!cursor_fail"()
+ rx1050_cur."!cursor_debug"("FAIL ", "prefix:sym<|>")
+ .return (rx1050_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<|>" :subid("262_1274564776.41408") :method
-.annotate 'line', 431
- $P1047 = self."!PREFIX__!subrule"("O", "|")
- new $P1048, "ResizablePMCArray"
- push $P1048, $P1047
- .return ($P1048)
+.sub "!PREFIX__prefix:sym<|>" :subid("264_1275117591.97262") :method
+.annotate 'line', 433
+ $P1052 = self."!PREFIX__!subrule"("O", "|")
+ new $P1053, "ResizablePMCArray"
+ push $P1053, $P1052
+ .return ($P1053)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<*>" :subid("263_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1052_tgt
- .local int rx1052_pos
- .local int rx1052_off
- .local int rx1052_eos
- .local int rx1052_rep
- .local pmc rx1052_cur
- (rx1052_cur, rx1052_pos, rx1052_tgt) = self."!cursor_start"()
- rx1052_cur."!cursor_debug"("START ", "infix:sym<*>")
- .lex unicode:"$\x{a2}", rx1052_cur
- .local pmc match
- .lex "$/", match
- length rx1052_eos, rx1052_tgt
- set rx1052_off, 0
- lt rx1052_pos, 2, rx1052_start
- sub rx1052_off, rx1052_pos, 1
- substr rx1052_tgt, rx1052_tgt, rx1052_off
- rx1052_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1056_done
- goto rxscan1056_scan
- rxscan1056_loop:
- ($P10) = rx1052_cur."from"()
- inc $P10
- set rx1052_pos, $P10
- ge rx1052_pos, rx1052_eos, rxscan1056_done
- rxscan1056_scan:
- set_addr $I10, rxscan1056_loop
- rx1052_cur."!mark_push"(0, rx1052_pos, $I10)
- rxscan1056_done:
-.annotate 'line', 491
+.sub "infix:sym<*>" :subid("265_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1057_tgt
+ .local int rx1057_pos
+ .local int rx1057_off
+ .local int rx1057_eos
+ .local int rx1057_rep
+ .local pmc rx1057_cur
+ (rx1057_cur, rx1057_pos, rx1057_tgt) = self."!cursor_start"()
+ rx1057_cur."!cursor_debug"("START ", "infix:sym<*>")
+ .lex unicode:"$\x{a2}", rx1057_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1057_eos, rx1057_tgt
+ set rx1057_off, 0
+ lt rx1057_pos, 2, rx1057_start
+ sub rx1057_off, rx1057_pos, 1
+ substr rx1057_tgt, rx1057_tgt, rx1057_off
+ rx1057_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1061_done
+ goto rxscan1061_scan
+ rxscan1061_loop:
+ ($P10) = rx1057_cur."from"()
+ inc $P10
+ set rx1057_pos, $P10
+ ge rx1057_pos, rx1057_eos, rxscan1061_done
+ rxscan1061_scan:
+ set_addr $I10, rxscan1061_loop
+ rx1057_cur."!mark_push"(0, rx1057_pos, $I10)
+ rxscan1061_done:
+.annotate 'line', 493
# rx subcapture "sym"
- set_addr $I10, rxcap_1057_fail
- rx1052_cur."!mark_push"(0, rx1052_pos, $I10)
+ set_addr $I10, rxcap_1062_fail
+ rx1057_cur."!mark_push"(0, rx1057_pos, $I10)
# rx literal "*"
- add $I11, rx1052_pos, 1
- gt $I11, rx1052_eos, rx1052_fail
- sub $I11, rx1052_pos, rx1052_off
- substr $S10, rx1052_tgt, $I11, 1
- ne $S10, "*", rx1052_fail
- add rx1052_pos, 1
- set_addr $I10, rxcap_1057_fail
- ($I12, $I11) = rx1052_cur."!mark_peek"($I10)
- rx1052_cur."!cursor_pos"($I11)
- ($P10) = rx1052_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1052_pos, "")
- rx1052_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1057_pos, 1
+ gt $I11, rx1057_eos, rx1057_fail
+ sub $I11, rx1057_pos, rx1057_off
+ substr $S10, rx1057_tgt, $I11, 1
+ ne $S10, "*", rx1057_fail
+ add rx1057_pos, 1
+ set_addr $I10, rxcap_1062_fail
+ ($I12, $I11) = rx1057_cur."!mark_peek"($I10)
+ rx1057_cur."!cursor_pos"($I11)
+ ($P10) = rx1057_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1057_pos, "")
+ rx1057_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1057_done
- rxcap_1057_fail:
- goto rx1052_fail
- rxcap_1057_done:
+ goto rxcap_1062_done
+ rxcap_1062_fail:
+ goto rx1057_fail
+ rxcap_1062_done:
# rx subrule "O" subtype=capture negate=
- rx1052_cur."!cursor_pos"(rx1052_pos)
- $P10 = rx1052_cur."O"("%multiplicative, :pirop<mul>")
- unless $P10, rx1052_fail
- rx1052_cur."!mark_push"(0, -1, 0, $P10)
+ rx1057_cur."!cursor_pos"(rx1057_pos)
+ $P10 = rx1057_cur."O"("%multiplicative, :pirop<mul>")
+ unless $P10, rx1057_fail
+ rx1057_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1052_pos = $P10."pos"()
+ rx1057_pos = $P10."pos"()
# rx pass
- rx1052_cur."!cursor_pass"(rx1052_pos, "infix:sym<*>")
- rx1052_cur."!cursor_debug"("PASS ", "infix:sym<*>", " at pos=", rx1052_pos)
- .return (rx1052_cur)
- rx1052_fail:
-.annotate 'line', 431
- (rx1052_rep, rx1052_pos, $I10, $P10) = rx1052_cur."!mark_fail"(0)
- lt rx1052_pos, -1, rx1052_done
- eq rx1052_pos, -1, rx1052_fail
+ rx1057_cur."!cursor_pass"(rx1057_pos, "infix:sym<*>")
+ rx1057_cur."!cursor_debug"("PASS ", "infix:sym<*>", " at pos=", rx1057_pos)
+ .return (rx1057_cur)
+ rx1057_fail:
+.annotate 'line', 433
+ (rx1057_rep, rx1057_pos, $I10, $P10) = rx1057_cur."!mark_fail"(0)
+ lt rx1057_pos, -1, rx1057_done
+ eq rx1057_pos, -1, rx1057_fail
jump $I10
- rx1052_done:
- rx1052_cur."!cursor_fail"()
- rx1052_cur."!cursor_debug"("FAIL ", "infix:sym<*>")
- .return (rx1052_cur)
+ rx1057_done:
+ rx1057_cur."!cursor_fail"()
+ rx1057_cur."!cursor_debug"("FAIL ", "infix:sym<*>")
+ .return (rx1057_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<*>" :subid("264_1274564776.41408") :method
-.annotate 'line', 431
- $P1054 = self."!PREFIX__!subrule"("O", "*")
- new $P1055, "ResizablePMCArray"
- push $P1055, $P1054
- .return ($P1055)
+.sub "!PREFIX__infix:sym<*>" :subid("266_1275117591.97262") :method
+.annotate 'line', 433
+ $P1059 = self."!PREFIX__!subrule"("O", "*")
+ new $P1060, "ResizablePMCArray"
+ push $P1060, $P1059
+ .return ($P1060)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym</>" :subid("265_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1059_tgt
- .local int rx1059_pos
- .local int rx1059_off
- .local int rx1059_eos
- .local int rx1059_rep
- .local pmc rx1059_cur
- (rx1059_cur, rx1059_pos, rx1059_tgt) = self."!cursor_start"()
- rx1059_cur."!cursor_debug"("START ", "infix:sym</>")
- .lex unicode:"$\x{a2}", rx1059_cur
- .local pmc match
- .lex "$/", match
- length rx1059_eos, rx1059_tgt
- set rx1059_off, 0
- lt rx1059_pos, 2, rx1059_start
- sub rx1059_off, rx1059_pos, 1
- substr rx1059_tgt, rx1059_tgt, rx1059_off
- rx1059_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1063_done
- goto rxscan1063_scan
- rxscan1063_loop:
- ($P10) = rx1059_cur."from"()
- inc $P10
- set rx1059_pos, $P10
- ge rx1059_pos, rx1059_eos, rxscan1063_done
- rxscan1063_scan:
- set_addr $I10, rxscan1063_loop
- rx1059_cur."!mark_push"(0, rx1059_pos, $I10)
- rxscan1063_done:
-.annotate 'line', 492
+.sub "infix:sym</>" :subid("267_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1064_tgt
+ .local int rx1064_pos
+ .local int rx1064_off
+ .local int rx1064_eos
+ .local int rx1064_rep
+ .local pmc rx1064_cur
+ (rx1064_cur, rx1064_pos, rx1064_tgt) = self."!cursor_start"()
+ rx1064_cur."!cursor_debug"("START ", "infix:sym</>")
+ .lex unicode:"$\x{a2}", rx1064_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1064_eos, rx1064_tgt
+ set rx1064_off, 0
+ lt rx1064_pos, 2, rx1064_start
+ sub rx1064_off, rx1064_pos, 1
+ substr rx1064_tgt, rx1064_tgt, rx1064_off
+ rx1064_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1068_done
+ goto rxscan1068_scan
+ rxscan1068_loop:
+ ($P10) = rx1064_cur."from"()
+ inc $P10
+ set rx1064_pos, $P10
+ ge rx1064_pos, rx1064_eos, rxscan1068_done
+ rxscan1068_scan:
+ set_addr $I10, rxscan1068_loop
+ rx1064_cur."!mark_push"(0, rx1064_pos, $I10)
+ rxscan1068_done:
+.annotate 'line', 494
# rx subcapture "sym"
- set_addr $I10, rxcap_1064_fail
- rx1059_cur."!mark_push"(0, rx1059_pos, $I10)
+ set_addr $I10, rxcap_1069_fail
+ rx1064_cur."!mark_push"(0, rx1064_pos, $I10)
# rx literal "/"
- add $I11, rx1059_pos, 1
- gt $I11, rx1059_eos, rx1059_fail
- sub $I11, rx1059_pos, rx1059_off
- substr $S10, rx1059_tgt, $I11, 1
- ne $S10, "/", rx1059_fail
- add rx1059_pos, 1
- set_addr $I10, rxcap_1064_fail
- ($I12, $I11) = rx1059_cur."!mark_peek"($I10)
- rx1059_cur."!cursor_pos"($I11)
- ($P10) = rx1059_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1059_pos, "")
- rx1059_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1064_pos, 1
+ gt $I11, rx1064_eos, rx1064_fail
+ sub $I11, rx1064_pos, rx1064_off
+ substr $S10, rx1064_tgt, $I11, 1
+ ne $S10, "/", rx1064_fail
+ add rx1064_pos, 1
+ set_addr $I10, rxcap_1069_fail
+ ($I12, $I11) = rx1064_cur."!mark_peek"($I10)
+ rx1064_cur."!cursor_pos"($I11)
+ ($P10) = rx1064_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1064_pos, "")
+ rx1064_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1064_done
- rxcap_1064_fail:
- goto rx1059_fail
- rxcap_1064_done:
+ goto rxcap_1069_done
+ rxcap_1069_fail:
+ goto rx1064_fail
+ rxcap_1069_done:
# rx subrule "O" subtype=capture negate=
- rx1059_cur."!cursor_pos"(rx1059_pos)
- $P10 = rx1059_cur."O"("%multiplicative, :pirop<div>")
- unless $P10, rx1059_fail
- rx1059_cur."!mark_push"(0, -1, 0, $P10)
+ rx1064_cur."!cursor_pos"(rx1064_pos)
+ $P10 = rx1064_cur."O"("%multiplicative, :pirop<div>")
+ unless $P10, rx1064_fail
+ rx1064_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1059_pos = $P10."pos"()
+ rx1064_pos = $P10."pos"()
# rx pass
- rx1059_cur."!cursor_pass"(rx1059_pos, "infix:sym</>")
- rx1059_cur."!cursor_debug"("PASS ", "infix:sym</>", " at pos=", rx1059_pos)
- .return (rx1059_cur)
- rx1059_fail:
-.annotate 'line', 431
- (rx1059_rep, rx1059_pos, $I10, $P10) = rx1059_cur."!mark_fail"(0)
- lt rx1059_pos, -1, rx1059_done
- eq rx1059_pos, -1, rx1059_fail
- jump $I10
- rx1059_done:
- rx1059_cur."!cursor_fail"()
- rx1059_cur."!cursor_debug"("FAIL ", "infix:sym</>")
- .return (rx1059_cur)
+ rx1064_cur."!cursor_pass"(rx1064_pos, "infix:sym</>")
+ rx1064_cur."!cursor_debug"("PASS ", "infix:sym</>", " at pos=", rx1064_pos)
+ .return (rx1064_cur)
+ rx1064_fail:
+.annotate 'line', 433
+ (rx1064_rep, rx1064_pos, $I10, $P10) = rx1064_cur."!mark_fail"(0)
+ lt rx1064_pos, -1, rx1064_done
+ eq rx1064_pos, -1, rx1064_fail
+ jump $I10
+ rx1064_done:
+ rx1064_cur."!cursor_fail"()
+ rx1064_cur."!cursor_debug"("FAIL ", "infix:sym</>")
+ .return (rx1064_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym</>" :subid("266_1274564776.41408") :method
-.annotate 'line', 431
- $P1061 = self."!PREFIX__!subrule"("O", "/")
- new $P1062, "ResizablePMCArray"
- push $P1062, $P1061
- .return ($P1062)
+.sub "!PREFIX__infix:sym</>" :subid("268_1275117591.97262") :method
+.annotate 'line', 433
+ $P1066 = self."!PREFIX__!subrule"("O", "/")
+ new $P1067, "ResizablePMCArray"
+ push $P1067, $P1066
+ .return ($P1067)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<%>" :subid("267_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1066_tgt
- .local int rx1066_pos
- .local int rx1066_off
- .local int rx1066_eos
- .local int rx1066_rep
- .local pmc rx1066_cur
- (rx1066_cur, rx1066_pos, rx1066_tgt) = self."!cursor_start"()
- rx1066_cur."!cursor_debug"("START ", "infix:sym<%>")
- .lex unicode:"$\x{a2}", rx1066_cur
- .local pmc match
- .lex "$/", match
- length rx1066_eos, rx1066_tgt
- set rx1066_off, 0
- lt rx1066_pos, 2, rx1066_start
- sub rx1066_off, rx1066_pos, 1
- substr rx1066_tgt, rx1066_tgt, rx1066_off
- rx1066_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1070_done
- goto rxscan1070_scan
- rxscan1070_loop:
- ($P10) = rx1066_cur."from"()
- inc $P10
- set rx1066_pos, $P10
- ge rx1066_pos, rx1066_eos, rxscan1070_done
- rxscan1070_scan:
- set_addr $I10, rxscan1070_loop
- rx1066_cur."!mark_push"(0, rx1066_pos, $I10)
- rxscan1070_done:
-.annotate 'line', 493
+.sub "infix:sym<%>" :subid("269_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1071_tgt
+ .local int rx1071_pos
+ .local int rx1071_off
+ .local int rx1071_eos
+ .local int rx1071_rep
+ .local pmc rx1071_cur
+ (rx1071_cur, rx1071_pos, rx1071_tgt) = self."!cursor_start"()
+ rx1071_cur."!cursor_debug"("START ", "infix:sym<%>")
+ .lex unicode:"$\x{a2}", rx1071_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1071_eos, rx1071_tgt
+ set rx1071_off, 0
+ lt rx1071_pos, 2, rx1071_start
+ sub rx1071_off, rx1071_pos, 1
+ substr rx1071_tgt, rx1071_tgt, rx1071_off
+ rx1071_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1075_done
+ goto rxscan1075_scan
+ rxscan1075_loop:
+ ($P10) = rx1071_cur."from"()
+ inc $P10
+ set rx1071_pos, $P10
+ ge rx1071_pos, rx1071_eos, rxscan1075_done
+ rxscan1075_scan:
+ set_addr $I10, rxscan1075_loop
+ rx1071_cur."!mark_push"(0, rx1071_pos, $I10)
+ rxscan1075_done:
+.annotate 'line', 495
# rx subcapture "sym"
- set_addr $I10, rxcap_1071_fail
- rx1066_cur."!mark_push"(0, rx1066_pos, $I10)
+ set_addr $I10, rxcap_1076_fail
+ rx1071_cur."!mark_push"(0, rx1071_pos, $I10)
# rx literal "%"
- add $I11, rx1066_pos, 1
- gt $I11, rx1066_eos, rx1066_fail
- sub $I11, rx1066_pos, rx1066_off
- substr $S10, rx1066_tgt, $I11, 1
- ne $S10, "%", rx1066_fail
- add rx1066_pos, 1
- set_addr $I10, rxcap_1071_fail
- ($I12, $I11) = rx1066_cur."!mark_peek"($I10)
- rx1066_cur."!cursor_pos"($I11)
- ($P10) = rx1066_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1066_pos, "")
- rx1066_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1071_pos, 1
+ gt $I11, rx1071_eos, rx1071_fail
+ sub $I11, rx1071_pos, rx1071_off
+ substr $S10, rx1071_tgt, $I11, 1
+ ne $S10, "%", rx1071_fail
+ add rx1071_pos, 1
+ set_addr $I10, rxcap_1076_fail
+ ($I12, $I11) = rx1071_cur."!mark_peek"($I10)
+ rx1071_cur."!cursor_pos"($I11)
+ ($P10) = rx1071_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1071_pos, "")
+ rx1071_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1071_done
- rxcap_1071_fail:
- goto rx1066_fail
- rxcap_1071_done:
+ goto rxcap_1076_done
+ rxcap_1076_fail:
+ goto rx1071_fail
+ rxcap_1076_done:
# rx subrule "O" subtype=capture negate=
- rx1066_cur."!cursor_pos"(rx1066_pos)
- $P10 = rx1066_cur."O"("%multiplicative, :pirop<mod>")
- unless $P10, rx1066_fail
- rx1066_cur."!mark_push"(0, -1, 0, $P10)
+ rx1071_cur."!cursor_pos"(rx1071_pos)
+ $P10 = rx1071_cur."O"("%multiplicative, :pirop<mod>")
+ unless $P10, rx1071_fail
+ rx1071_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1066_pos = $P10."pos"()
+ rx1071_pos = $P10."pos"()
# rx pass
- rx1066_cur."!cursor_pass"(rx1066_pos, "infix:sym<%>")
- rx1066_cur."!cursor_debug"("PASS ", "infix:sym<%>", " at pos=", rx1066_pos)
- .return (rx1066_cur)
- rx1066_fail:
-.annotate 'line', 431
- (rx1066_rep, rx1066_pos, $I10, $P10) = rx1066_cur."!mark_fail"(0)
- lt rx1066_pos, -1, rx1066_done
- eq rx1066_pos, -1, rx1066_fail
- jump $I10
- rx1066_done:
- rx1066_cur."!cursor_fail"()
- rx1066_cur."!cursor_debug"("FAIL ", "infix:sym<%>")
- .return (rx1066_cur)
+ rx1071_cur."!cursor_pass"(rx1071_pos, "infix:sym<%>")
+ rx1071_cur."!cursor_debug"("PASS ", "infix:sym<%>", " at pos=", rx1071_pos)
+ .return (rx1071_cur)
+ rx1071_fail:
+.annotate 'line', 433
+ (rx1071_rep, rx1071_pos, $I10, $P10) = rx1071_cur."!mark_fail"(0)
+ lt rx1071_pos, -1, rx1071_done
+ eq rx1071_pos, -1, rx1071_fail
+ jump $I10
+ rx1071_done:
+ rx1071_cur."!cursor_fail"()
+ rx1071_cur."!cursor_debug"("FAIL ", "infix:sym<%>")
+ .return (rx1071_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<%>" :subid("268_1274564776.41408") :method
-.annotate 'line', 431
- $P1068 = self."!PREFIX__!subrule"("O", "%")
- new $P1069, "ResizablePMCArray"
- push $P1069, $P1068
- .return ($P1069)
+.sub "!PREFIX__infix:sym<%>" :subid("270_1275117591.97262") :method
+.annotate 'line', 433
+ $P1073 = self."!PREFIX__!subrule"("O", "%")
+ new $P1074, "ResizablePMCArray"
+ push $P1074, $P1073
+ .return ($P1074)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<+>" :subid("269_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1073_tgt
- .local int rx1073_pos
- .local int rx1073_off
- .local int rx1073_eos
- .local int rx1073_rep
- .local pmc rx1073_cur
- (rx1073_cur, rx1073_pos, rx1073_tgt) = self."!cursor_start"()
- rx1073_cur."!cursor_debug"("START ", "infix:sym<+>")
- .lex unicode:"$\x{a2}", rx1073_cur
- .local pmc match
- .lex "$/", match
- length rx1073_eos, rx1073_tgt
- set rx1073_off, 0
- lt rx1073_pos, 2, rx1073_start
- sub rx1073_off, rx1073_pos, 1
- substr rx1073_tgt, rx1073_tgt, rx1073_off
- rx1073_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1077_done
- goto rxscan1077_scan
- rxscan1077_loop:
- ($P10) = rx1073_cur."from"()
- inc $P10
- set rx1073_pos, $P10
- ge rx1073_pos, rx1073_eos, rxscan1077_done
- rxscan1077_scan:
- set_addr $I10, rxscan1077_loop
- rx1073_cur."!mark_push"(0, rx1073_pos, $I10)
- rxscan1077_done:
-.annotate 'line', 495
+.sub "infix:sym<+>" :subid("271_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1078_tgt
+ .local int rx1078_pos
+ .local int rx1078_off
+ .local int rx1078_eos
+ .local int rx1078_rep
+ .local pmc rx1078_cur
+ (rx1078_cur, rx1078_pos, rx1078_tgt) = self."!cursor_start"()
+ rx1078_cur."!cursor_debug"("START ", "infix:sym<+>")
+ .lex unicode:"$\x{a2}", rx1078_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1078_eos, rx1078_tgt
+ set rx1078_off, 0
+ lt rx1078_pos, 2, rx1078_start
+ sub rx1078_off, rx1078_pos, 1
+ substr rx1078_tgt, rx1078_tgt, rx1078_off
+ rx1078_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1082_done
+ goto rxscan1082_scan
+ rxscan1082_loop:
+ ($P10) = rx1078_cur."from"()
+ inc $P10
+ set rx1078_pos, $P10
+ ge rx1078_pos, rx1078_eos, rxscan1082_done
+ rxscan1082_scan:
+ set_addr $I10, rxscan1082_loop
+ rx1078_cur."!mark_push"(0, rx1078_pos, $I10)
+ rxscan1082_done:
+.annotate 'line', 497
# rx subcapture "sym"
- set_addr $I10, rxcap_1078_fail
- rx1073_cur."!mark_push"(0, rx1073_pos, $I10)
+ set_addr $I10, rxcap_1083_fail
+ rx1078_cur."!mark_push"(0, rx1078_pos, $I10)
# rx literal "+"
- add $I11, rx1073_pos, 1
- gt $I11, rx1073_eos, rx1073_fail
- sub $I11, rx1073_pos, rx1073_off
- substr $S10, rx1073_tgt, $I11, 1
- ne $S10, "+", rx1073_fail
- add rx1073_pos, 1
- set_addr $I10, rxcap_1078_fail
- ($I12, $I11) = rx1073_cur."!mark_peek"($I10)
- rx1073_cur."!cursor_pos"($I11)
- ($P10) = rx1073_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1073_pos, "")
- rx1073_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1078_pos, 1
+ gt $I11, rx1078_eos, rx1078_fail
+ sub $I11, rx1078_pos, rx1078_off
+ substr $S10, rx1078_tgt, $I11, 1
+ ne $S10, "+", rx1078_fail
+ add rx1078_pos, 1
+ set_addr $I10, rxcap_1083_fail
+ ($I12, $I11) = rx1078_cur."!mark_peek"($I10)
+ rx1078_cur."!cursor_pos"($I11)
+ ($P10) = rx1078_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1078_pos, "")
+ rx1078_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1078_done
- rxcap_1078_fail:
- goto rx1073_fail
- rxcap_1078_done:
+ goto rxcap_1083_done
+ rxcap_1083_fail:
+ goto rx1078_fail
+ rxcap_1083_done:
# rx subrule "O" subtype=capture negate=
- rx1073_cur."!cursor_pos"(rx1073_pos)
- $P10 = rx1073_cur."O"("%additive, :pirop<add>")
- unless $P10, rx1073_fail
- rx1073_cur."!mark_push"(0, -1, 0, $P10)
+ rx1078_cur."!cursor_pos"(rx1078_pos)
+ $P10 = rx1078_cur."O"("%additive, :pirop<add>")
+ unless $P10, rx1078_fail
+ rx1078_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1073_pos = $P10."pos"()
+ rx1078_pos = $P10."pos"()
# rx pass
- rx1073_cur."!cursor_pass"(rx1073_pos, "infix:sym<+>")
- rx1073_cur."!cursor_debug"("PASS ", "infix:sym<+>", " at pos=", rx1073_pos)
- .return (rx1073_cur)
- rx1073_fail:
-.annotate 'line', 431
- (rx1073_rep, rx1073_pos, $I10, $P10) = rx1073_cur."!mark_fail"(0)
- lt rx1073_pos, -1, rx1073_done
- eq rx1073_pos, -1, rx1073_fail
- jump $I10
- rx1073_done:
- rx1073_cur."!cursor_fail"()
- rx1073_cur."!cursor_debug"("FAIL ", "infix:sym<+>")
- .return (rx1073_cur)
+ rx1078_cur."!cursor_pass"(rx1078_pos, "infix:sym<+>")
+ rx1078_cur."!cursor_debug"("PASS ", "infix:sym<+>", " at pos=", rx1078_pos)
+ .return (rx1078_cur)
+ rx1078_fail:
+.annotate 'line', 433
+ (rx1078_rep, rx1078_pos, $I10, $P10) = rx1078_cur."!mark_fail"(0)
+ lt rx1078_pos, -1, rx1078_done
+ eq rx1078_pos, -1, rx1078_fail
+ jump $I10
+ rx1078_done:
+ rx1078_cur."!cursor_fail"()
+ rx1078_cur."!cursor_debug"("FAIL ", "infix:sym<+>")
+ .return (rx1078_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<+>" :subid("270_1274564776.41408") :method
-.annotate 'line', 431
- $P1075 = self."!PREFIX__!subrule"("O", "+")
- new $P1076, "ResizablePMCArray"
- push $P1076, $P1075
- .return ($P1076)
+.sub "!PREFIX__infix:sym<+>" :subid("272_1275117591.97262") :method
+.annotate 'line', 433
+ $P1080 = self."!PREFIX__!subrule"("O", "+")
+ new $P1081, "ResizablePMCArray"
+ push $P1081, $P1080
+ .return ($P1081)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<->" :subid("271_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1080_tgt
- .local int rx1080_pos
- .local int rx1080_off
- .local int rx1080_eos
- .local int rx1080_rep
- .local pmc rx1080_cur
- (rx1080_cur, rx1080_pos, rx1080_tgt) = self."!cursor_start"()
- rx1080_cur."!cursor_debug"("START ", "infix:sym<->")
- .lex unicode:"$\x{a2}", rx1080_cur
- .local pmc match
- .lex "$/", match
- length rx1080_eos, rx1080_tgt
- set rx1080_off, 0
- lt rx1080_pos, 2, rx1080_start
- sub rx1080_off, rx1080_pos, 1
- substr rx1080_tgt, rx1080_tgt, rx1080_off
- rx1080_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1084_done
- goto rxscan1084_scan
- rxscan1084_loop:
- ($P10) = rx1080_cur."from"()
- inc $P10
- set rx1080_pos, $P10
- ge rx1080_pos, rx1080_eos, rxscan1084_done
- rxscan1084_scan:
- set_addr $I10, rxscan1084_loop
- rx1080_cur."!mark_push"(0, rx1080_pos, $I10)
- rxscan1084_done:
-.annotate 'line', 496
+.sub "infix:sym<->" :subid("273_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1085_tgt
+ .local int rx1085_pos
+ .local int rx1085_off
+ .local int rx1085_eos
+ .local int rx1085_rep
+ .local pmc rx1085_cur
+ (rx1085_cur, rx1085_pos, rx1085_tgt) = self."!cursor_start"()
+ rx1085_cur."!cursor_debug"("START ", "infix:sym<->")
+ .lex unicode:"$\x{a2}", rx1085_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1085_eos, rx1085_tgt
+ set rx1085_off, 0
+ lt rx1085_pos, 2, rx1085_start
+ sub rx1085_off, rx1085_pos, 1
+ substr rx1085_tgt, rx1085_tgt, rx1085_off
+ rx1085_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1089_done
+ goto rxscan1089_scan
+ rxscan1089_loop:
+ ($P10) = rx1085_cur."from"()
+ inc $P10
+ set rx1085_pos, $P10
+ ge rx1085_pos, rx1085_eos, rxscan1089_done
+ rxscan1089_scan:
+ set_addr $I10, rxscan1089_loop
+ rx1085_cur."!mark_push"(0, rx1085_pos, $I10)
+ rxscan1089_done:
+.annotate 'line', 498
# rx subcapture "sym"
- set_addr $I10, rxcap_1085_fail
- rx1080_cur."!mark_push"(0, rx1080_pos, $I10)
+ set_addr $I10, rxcap_1090_fail
+ rx1085_cur."!mark_push"(0, rx1085_pos, $I10)
# rx literal "-"
- add $I11, rx1080_pos, 1
- gt $I11, rx1080_eos, rx1080_fail
- sub $I11, rx1080_pos, rx1080_off
- substr $S10, rx1080_tgt, $I11, 1
- ne $S10, "-", rx1080_fail
- add rx1080_pos, 1
- set_addr $I10, rxcap_1085_fail
- ($I12, $I11) = rx1080_cur."!mark_peek"($I10)
- rx1080_cur."!cursor_pos"($I11)
- ($P10) = rx1080_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1080_pos, "")
- rx1080_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1085_pos, 1
+ gt $I11, rx1085_eos, rx1085_fail
+ sub $I11, rx1085_pos, rx1085_off
+ substr $S10, rx1085_tgt, $I11, 1
+ ne $S10, "-", rx1085_fail
+ add rx1085_pos, 1
+ set_addr $I10, rxcap_1090_fail
+ ($I12, $I11) = rx1085_cur."!mark_peek"($I10)
+ rx1085_cur."!cursor_pos"($I11)
+ ($P10) = rx1085_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1085_pos, "")
+ rx1085_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1085_done
- rxcap_1085_fail:
- goto rx1080_fail
- rxcap_1085_done:
+ goto rxcap_1090_done
+ rxcap_1090_fail:
+ goto rx1085_fail
+ rxcap_1090_done:
# rx subrule "O" subtype=capture negate=
- rx1080_cur."!cursor_pos"(rx1080_pos)
- $P10 = rx1080_cur."O"("%additive, :pirop<sub>")
- unless $P10, rx1080_fail
- rx1080_cur."!mark_push"(0, -1, 0, $P10)
+ rx1085_cur."!cursor_pos"(rx1085_pos)
+ $P10 = rx1085_cur."O"("%additive, :pirop<sub>")
+ unless $P10, rx1085_fail
+ rx1085_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1080_pos = $P10."pos"()
+ rx1085_pos = $P10."pos"()
# rx pass
- rx1080_cur."!cursor_pass"(rx1080_pos, "infix:sym<->")
- rx1080_cur."!cursor_debug"("PASS ", "infix:sym<->", " at pos=", rx1080_pos)
- .return (rx1080_cur)
- rx1080_fail:
-.annotate 'line', 431
- (rx1080_rep, rx1080_pos, $I10, $P10) = rx1080_cur."!mark_fail"(0)
- lt rx1080_pos, -1, rx1080_done
- eq rx1080_pos, -1, rx1080_fail
- jump $I10
- rx1080_done:
- rx1080_cur."!cursor_fail"()
- rx1080_cur."!cursor_debug"("FAIL ", "infix:sym<->")
- .return (rx1080_cur)
+ rx1085_cur."!cursor_pass"(rx1085_pos, "infix:sym<->")
+ rx1085_cur."!cursor_debug"("PASS ", "infix:sym<->", " at pos=", rx1085_pos)
+ .return (rx1085_cur)
+ rx1085_fail:
+.annotate 'line', 433
+ (rx1085_rep, rx1085_pos, $I10, $P10) = rx1085_cur."!mark_fail"(0)
+ lt rx1085_pos, -1, rx1085_done
+ eq rx1085_pos, -1, rx1085_fail
+ jump $I10
+ rx1085_done:
+ rx1085_cur."!cursor_fail"()
+ rx1085_cur."!cursor_debug"("FAIL ", "infix:sym<->")
+ .return (rx1085_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<->" :subid("272_1274564776.41408") :method
-.annotate 'line', 431
- $P1082 = self."!PREFIX__!subrule"("O", "-")
- new $P1083, "ResizablePMCArray"
- push $P1083, $P1082
- .return ($P1083)
+.sub "!PREFIX__infix:sym<->" :subid("274_1275117591.97262") :method
+.annotate 'line', 433
+ $P1087 = self."!PREFIX__!subrule"("O", "-")
+ new $P1088, "ResizablePMCArray"
+ push $P1088, $P1087
+ .return ($P1088)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<~>" :subid("273_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1087_tgt
- .local int rx1087_pos
- .local int rx1087_off
- .local int rx1087_eos
- .local int rx1087_rep
- .local pmc rx1087_cur
- (rx1087_cur, rx1087_pos, rx1087_tgt) = self."!cursor_start"()
- rx1087_cur."!cursor_debug"("START ", "infix:sym<~>")
- .lex unicode:"$\x{a2}", rx1087_cur
- .local pmc match
- .lex "$/", match
- length rx1087_eos, rx1087_tgt
- set rx1087_off, 0
- lt rx1087_pos, 2, rx1087_start
- sub rx1087_off, rx1087_pos, 1
- substr rx1087_tgt, rx1087_tgt, rx1087_off
- rx1087_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1091_done
- goto rxscan1091_scan
- rxscan1091_loop:
- ($P10) = rx1087_cur."from"()
- inc $P10
- set rx1087_pos, $P10
- ge rx1087_pos, rx1087_eos, rxscan1091_done
- rxscan1091_scan:
- set_addr $I10, rxscan1091_loop
- rx1087_cur."!mark_push"(0, rx1087_pos, $I10)
- rxscan1091_done:
-.annotate 'line', 498
+.sub "infix:sym<~>" :subid("275_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1092_tgt
+ .local int rx1092_pos
+ .local int rx1092_off
+ .local int rx1092_eos
+ .local int rx1092_rep
+ .local pmc rx1092_cur
+ (rx1092_cur, rx1092_pos, rx1092_tgt) = self."!cursor_start"()
+ rx1092_cur."!cursor_debug"("START ", "infix:sym<~>")
+ .lex unicode:"$\x{a2}", rx1092_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1092_eos, rx1092_tgt
+ set rx1092_off, 0
+ lt rx1092_pos, 2, rx1092_start
+ sub rx1092_off, rx1092_pos, 1
+ substr rx1092_tgt, rx1092_tgt, rx1092_off
+ rx1092_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1096_done
+ goto rxscan1096_scan
+ rxscan1096_loop:
+ ($P10) = rx1092_cur."from"()
+ inc $P10
+ set rx1092_pos, $P10
+ ge rx1092_pos, rx1092_eos, rxscan1096_done
+ rxscan1096_scan:
+ set_addr $I10, rxscan1096_loop
+ rx1092_cur."!mark_push"(0, rx1092_pos, $I10)
+ rxscan1096_done:
+.annotate 'line', 500
# rx subcapture "sym"
- set_addr $I10, rxcap_1092_fail
- rx1087_cur."!mark_push"(0, rx1087_pos, $I10)
+ set_addr $I10, rxcap_1097_fail
+ rx1092_cur."!mark_push"(0, rx1092_pos, $I10)
# rx literal "~"
- add $I11, rx1087_pos, 1
- gt $I11, rx1087_eos, rx1087_fail
- sub $I11, rx1087_pos, rx1087_off
- substr $S10, rx1087_tgt, $I11, 1
- ne $S10, "~", rx1087_fail
- add rx1087_pos, 1
- set_addr $I10, rxcap_1092_fail
- ($I12, $I11) = rx1087_cur."!mark_peek"($I10)
- rx1087_cur."!cursor_pos"($I11)
- ($P10) = rx1087_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1087_pos, "")
- rx1087_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1092_pos, 1
+ gt $I11, rx1092_eos, rx1092_fail
+ sub $I11, rx1092_pos, rx1092_off
+ substr $S10, rx1092_tgt, $I11, 1
+ ne $S10, "~", rx1092_fail
+ add rx1092_pos, 1
+ set_addr $I10, rxcap_1097_fail
+ ($I12, $I11) = rx1092_cur."!mark_peek"($I10)
+ rx1092_cur."!cursor_pos"($I11)
+ ($P10) = rx1092_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1092_pos, "")
+ rx1092_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1092_done
- rxcap_1092_fail:
- goto rx1087_fail
- rxcap_1092_done:
+ goto rxcap_1097_done
+ rxcap_1097_fail:
+ goto rx1092_fail
+ rxcap_1097_done:
# rx subrule "O" subtype=capture negate=
- rx1087_cur."!cursor_pos"(rx1087_pos)
- $P10 = rx1087_cur."O"("%concatenation , :pirop<concat>")
- unless $P10, rx1087_fail
- rx1087_cur."!mark_push"(0, -1, 0, $P10)
+ rx1092_cur."!cursor_pos"(rx1092_pos)
+ $P10 = rx1092_cur."O"("%concatenation , :pirop<concat>")
+ unless $P10, rx1092_fail
+ rx1092_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1087_pos = $P10."pos"()
+ rx1092_pos = $P10."pos"()
# rx pass
- rx1087_cur."!cursor_pass"(rx1087_pos, "infix:sym<~>")
- rx1087_cur."!cursor_debug"("PASS ", "infix:sym<~>", " at pos=", rx1087_pos)
- .return (rx1087_cur)
- rx1087_fail:
-.annotate 'line', 431
- (rx1087_rep, rx1087_pos, $I10, $P10) = rx1087_cur."!mark_fail"(0)
- lt rx1087_pos, -1, rx1087_done
- eq rx1087_pos, -1, rx1087_fail
- jump $I10
- rx1087_done:
- rx1087_cur."!cursor_fail"()
- rx1087_cur."!cursor_debug"("FAIL ", "infix:sym<~>")
- .return (rx1087_cur)
+ rx1092_cur."!cursor_pass"(rx1092_pos, "infix:sym<~>")
+ rx1092_cur."!cursor_debug"("PASS ", "infix:sym<~>", " at pos=", rx1092_pos)
+ .return (rx1092_cur)
+ rx1092_fail:
+.annotate 'line', 433
+ (rx1092_rep, rx1092_pos, $I10, $P10) = rx1092_cur."!mark_fail"(0)
+ lt rx1092_pos, -1, rx1092_done
+ eq rx1092_pos, -1, rx1092_fail
+ jump $I10
+ rx1092_done:
+ rx1092_cur."!cursor_fail"()
+ rx1092_cur."!cursor_debug"("FAIL ", "infix:sym<~>")
+ .return (rx1092_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<~>" :subid("274_1274564776.41408") :method
-.annotate 'line', 431
- $P1089 = self."!PREFIX__!subrule"("O", "~")
- new $P1090, "ResizablePMCArray"
- push $P1090, $P1089
- .return ($P1090)
+.sub "!PREFIX__infix:sym<~>" :subid("276_1275117591.97262") :method
+.annotate 'line', 433
+ $P1094 = self."!PREFIX__!subrule"("O", "~")
+ new $P1095, "ResizablePMCArray"
+ push $P1095, $P1094
+ .return ($P1095)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<==>" :subid("275_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1094_tgt
- .local int rx1094_pos
- .local int rx1094_off
- .local int rx1094_eos
- .local int rx1094_rep
- .local pmc rx1094_cur
- (rx1094_cur, rx1094_pos, rx1094_tgt) = self."!cursor_start"()
- rx1094_cur."!cursor_debug"("START ", "infix:sym<==>")
- .lex unicode:"$\x{a2}", rx1094_cur
- .local pmc match
- .lex "$/", match
- length rx1094_eos, rx1094_tgt
- set rx1094_off, 0
- lt rx1094_pos, 2, rx1094_start
- sub rx1094_off, rx1094_pos, 1
- substr rx1094_tgt, rx1094_tgt, rx1094_off
- rx1094_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1098_done
- goto rxscan1098_scan
- rxscan1098_loop:
- ($P10) = rx1094_cur."from"()
- inc $P10
- set rx1094_pos, $P10
- ge rx1094_pos, rx1094_eos, rxscan1098_done
- rxscan1098_scan:
- set_addr $I10, rxscan1098_loop
- rx1094_cur."!mark_push"(0, rx1094_pos, $I10)
- rxscan1098_done:
-.annotate 'line', 500
+.sub "infix:sym<==>" :subid("277_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1099_tgt
+ .local int rx1099_pos
+ .local int rx1099_off
+ .local int rx1099_eos
+ .local int rx1099_rep
+ .local pmc rx1099_cur
+ (rx1099_cur, rx1099_pos, rx1099_tgt) = self."!cursor_start"()
+ rx1099_cur."!cursor_debug"("START ", "infix:sym<==>")
+ .lex unicode:"$\x{a2}", rx1099_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1099_eos, rx1099_tgt
+ set rx1099_off, 0
+ lt rx1099_pos, 2, rx1099_start
+ sub rx1099_off, rx1099_pos, 1
+ substr rx1099_tgt, rx1099_tgt, rx1099_off
+ rx1099_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1103_done
+ goto rxscan1103_scan
+ rxscan1103_loop:
+ ($P10) = rx1099_cur."from"()
+ inc $P10
+ set rx1099_pos, $P10
+ ge rx1099_pos, rx1099_eos, rxscan1103_done
+ rxscan1103_scan:
+ set_addr $I10, rxscan1103_loop
+ rx1099_cur."!mark_push"(0, rx1099_pos, $I10)
+ rxscan1103_done:
+.annotate 'line', 502
# rx subcapture "sym"
- set_addr $I10, rxcap_1099_fail
- rx1094_cur."!mark_push"(0, rx1094_pos, $I10)
+ set_addr $I10, rxcap_1104_fail
+ rx1099_cur."!mark_push"(0, rx1099_pos, $I10)
# rx literal "=="
- add $I11, rx1094_pos, 2
- gt $I11, rx1094_eos, rx1094_fail
- sub $I11, rx1094_pos, rx1094_off
- substr $S10, rx1094_tgt, $I11, 2
- ne $S10, "==", rx1094_fail
- add rx1094_pos, 2
- set_addr $I10, rxcap_1099_fail
- ($I12, $I11) = rx1094_cur."!mark_peek"($I10)
- rx1094_cur."!cursor_pos"($I11)
- ($P10) = rx1094_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1094_pos, "")
- rx1094_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1099_pos, 2
+ gt $I11, rx1099_eos, rx1099_fail
+ sub $I11, rx1099_pos, rx1099_off
+ substr $S10, rx1099_tgt, $I11, 2
+ ne $S10, "==", rx1099_fail
+ add rx1099_pos, 2
+ set_addr $I10, rxcap_1104_fail
+ ($I12, $I11) = rx1099_cur."!mark_peek"($I10)
+ rx1099_cur."!cursor_pos"($I11)
+ ($P10) = rx1099_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1099_pos, "")
+ rx1099_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1099_done
- rxcap_1099_fail:
- goto rx1094_fail
- rxcap_1099_done:
+ goto rxcap_1104_done
+ rxcap_1104_fail:
+ goto rx1099_fail
+ rxcap_1104_done:
# rx subrule "O" subtype=capture negate=
- rx1094_cur."!cursor_pos"(rx1094_pos)
- $P10 = rx1094_cur."O"("%relational, :pirop<iseq INn>")
- unless $P10, rx1094_fail
- rx1094_cur."!mark_push"(0, -1, 0, $P10)
+ rx1099_cur."!cursor_pos"(rx1099_pos)
+ $P10 = rx1099_cur."O"("%relational, :pirop<iseq INn>")
+ unless $P10, rx1099_fail
+ rx1099_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1094_pos = $P10."pos"()
+ rx1099_pos = $P10."pos"()
# rx pass
- rx1094_cur."!cursor_pass"(rx1094_pos, "infix:sym<==>")
- rx1094_cur."!cursor_debug"("PASS ", "infix:sym<==>", " at pos=", rx1094_pos)
- .return (rx1094_cur)
- rx1094_fail:
-.annotate 'line', 431
- (rx1094_rep, rx1094_pos, $I10, $P10) = rx1094_cur."!mark_fail"(0)
- lt rx1094_pos, -1, rx1094_done
- eq rx1094_pos, -1, rx1094_fail
- jump $I10
- rx1094_done:
- rx1094_cur."!cursor_fail"()
- rx1094_cur."!cursor_debug"("FAIL ", "infix:sym<==>")
- .return (rx1094_cur)
+ rx1099_cur."!cursor_pass"(rx1099_pos, "infix:sym<==>")
+ rx1099_cur."!cursor_debug"("PASS ", "infix:sym<==>", " at pos=", rx1099_pos)
+ .return (rx1099_cur)
+ rx1099_fail:
+.annotate 'line', 433
+ (rx1099_rep, rx1099_pos, $I10, $P10) = rx1099_cur."!mark_fail"(0)
+ lt rx1099_pos, -1, rx1099_done
+ eq rx1099_pos, -1, rx1099_fail
+ jump $I10
+ rx1099_done:
+ rx1099_cur."!cursor_fail"()
+ rx1099_cur."!cursor_debug"("FAIL ", "infix:sym<==>")
+ .return (rx1099_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<==>" :subid("276_1274564776.41408") :method
-.annotate 'line', 431
- $P1096 = self."!PREFIX__!subrule"("O", "==")
- new $P1097, "ResizablePMCArray"
- push $P1097, $P1096
- .return ($P1097)
+.sub "!PREFIX__infix:sym<==>" :subid("278_1275117591.97262") :method
+.annotate 'line', 433
+ $P1101 = self."!PREFIX__!subrule"("O", "==")
+ new $P1102, "ResizablePMCArray"
+ push $P1102, $P1101
+ .return ($P1102)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<!=>" :subid("277_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1101_tgt
- .local int rx1101_pos
- .local int rx1101_off
- .local int rx1101_eos
- .local int rx1101_rep
- .local pmc rx1101_cur
- (rx1101_cur, rx1101_pos, rx1101_tgt) = self."!cursor_start"()
- rx1101_cur."!cursor_debug"("START ", "infix:sym<!=>")
- .lex unicode:"$\x{a2}", rx1101_cur
- .local pmc match
- .lex "$/", match
- length rx1101_eos, rx1101_tgt
- set rx1101_off, 0
- lt rx1101_pos, 2, rx1101_start
- sub rx1101_off, rx1101_pos, 1
- substr rx1101_tgt, rx1101_tgt, rx1101_off
- rx1101_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1105_done
- goto rxscan1105_scan
- rxscan1105_loop:
- ($P10) = rx1101_cur."from"()
- inc $P10
- set rx1101_pos, $P10
- ge rx1101_pos, rx1101_eos, rxscan1105_done
- rxscan1105_scan:
- set_addr $I10, rxscan1105_loop
- rx1101_cur."!mark_push"(0, rx1101_pos, $I10)
- rxscan1105_done:
-.annotate 'line', 501
+.sub "infix:sym<!=>" :subid("279_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1106_tgt
+ .local int rx1106_pos
+ .local int rx1106_off
+ .local int rx1106_eos
+ .local int rx1106_rep
+ .local pmc rx1106_cur
+ (rx1106_cur, rx1106_pos, rx1106_tgt) = self."!cursor_start"()
+ rx1106_cur."!cursor_debug"("START ", "infix:sym<!=>")
+ .lex unicode:"$\x{a2}", rx1106_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1106_eos, rx1106_tgt
+ set rx1106_off, 0
+ lt rx1106_pos, 2, rx1106_start
+ sub rx1106_off, rx1106_pos, 1
+ substr rx1106_tgt, rx1106_tgt, rx1106_off
+ rx1106_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1110_done
+ goto rxscan1110_scan
+ rxscan1110_loop:
+ ($P10) = rx1106_cur."from"()
+ inc $P10
+ set rx1106_pos, $P10
+ ge rx1106_pos, rx1106_eos, rxscan1110_done
+ rxscan1110_scan:
+ set_addr $I10, rxscan1110_loop
+ rx1106_cur."!mark_push"(0, rx1106_pos, $I10)
+ rxscan1110_done:
+.annotate 'line', 503
# rx subcapture "sym"
- set_addr $I10, rxcap_1106_fail
- rx1101_cur."!mark_push"(0, rx1101_pos, $I10)
+ set_addr $I10, rxcap_1111_fail
+ rx1106_cur."!mark_push"(0, rx1106_pos, $I10)
# rx literal "!="
- add $I11, rx1101_pos, 2
- gt $I11, rx1101_eos, rx1101_fail
- sub $I11, rx1101_pos, rx1101_off
- substr $S10, rx1101_tgt, $I11, 2
- ne $S10, "!=", rx1101_fail
- add rx1101_pos, 2
- set_addr $I10, rxcap_1106_fail
- ($I12, $I11) = rx1101_cur."!mark_peek"($I10)
- rx1101_cur."!cursor_pos"($I11)
- ($P10) = rx1101_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1101_pos, "")
- rx1101_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1106_pos, 2
+ gt $I11, rx1106_eos, rx1106_fail
+ sub $I11, rx1106_pos, rx1106_off
+ substr $S10, rx1106_tgt, $I11, 2
+ ne $S10, "!=", rx1106_fail
+ add rx1106_pos, 2
+ set_addr $I10, rxcap_1111_fail
+ ($I12, $I11) = rx1106_cur."!mark_peek"($I10)
+ rx1106_cur."!cursor_pos"($I11)
+ ($P10) = rx1106_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1106_pos, "")
+ rx1106_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1106_done
- rxcap_1106_fail:
- goto rx1101_fail
- rxcap_1106_done:
+ goto rxcap_1111_done
+ rxcap_1111_fail:
+ goto rx1106_fail
+ rxcap_1111_done:
# rx subrule "O" subtype=capture negate=
- rx1101_cur."!cursor_pos"(rx1101_pos)
- $P10 = rx1101_cur."O"("%relational, :pirop<isne INn>")
- unless $P10, rx1101_fail
- rx1101_cur."!mark_push"(0, -1, 0, $P10)
+ rx1106_cur."!cursor_pos"(rx1106_pos)
+ $P10 = rx1106_cur."O"("%relational, :pirop<isne INn>")
+ unless $P10, rx1106_fail
+ rx1106_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1101_pos = $P10."pos"()
+ rx1106_pos = $P10."pos"()
# rx pass
- rx1101_cur."!cursor_pass"(rx1101_pos, "infix:sym<!=>")
- rx1101_cur."!cursor_debug"("PASS ", "infix:sym<!=>", " at pos=", rx1101_pos)
- .return (rx1101_cur)
- rx1101_fail:
-.annotate 'line', 431
- (rx1101_rep, rx1101_pos, $I10, $P10) = rx1101_cur."!mark_fail"(0)
- lt rx1101_pos, -1, rx1101_done
- eq rx1101_pos, -1, rx1101_fail
- jump $I10
- rx1101_done:
- rx1101_cur."!cursor_fail"()
- rx1101_cur."!cursor_debug"("FAIL ", "infix:sym<!=>")
- .return (rx1101_cur)
+ rx1106_cur."!cursor_pass"(rx1106_pos, "infix:sym<!=>")
+ rx1106_cur."!cursor_debug"("PASS ", "infix:sym<!=>", " at pos=", rx1106_pos)
+ .return (rx1106_cur)
+ rx1106_fail:
+.annotate 'line', 433
+ (rx1106_rep, rx1106_pos, $I10, $P10) = rx1106_cur."!mark_fail"(0)
+ lt rx1106_pos, -1, rx1106_done
+ eq rx1106_pos, -1, rx1106_fail
+ jump $I10
+ rx1106_done:
+ rx1106_cur."!cursor_fail"()
+ rx1106_cur."!cursor_debug"("FAIL ", "infix:sym<!=>")
+ .return (rx1106_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<!=>" :subid("278_1274564776.41408") :method
-.annotate 'line', 431
- $P1103 = self."!PREFIX__!subrule"("O", "!=")
- new $P1104, "ResizablePMCArray"
- push $P1104, $P1103
- .return ($P1104)
+.sub "!PREFIX__infix:sym<!=>" :subid("280_1275117591.97262") :method
+.annotate 'line', 433
+ $P1108 = self."!PREFIX__!subrule"("O", "!=")
+ new $P1109, "ResizablePMCArray"
+ push $P1109, $P1108
+ .return ($P1109)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<<=>" :subid("279_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1108_tgt
- .local int rx1108_pos
- .local int rx1108_off
- .local int rx1108_eos
- .local int rx1108_rep
- .local pmc rx1108_cur
- (rx1108_cur, rx1108_pos, rx1108_tgt) = self."!cursor_start"()
- rx1108_cur."!cursor_debug"("START ", "infix:sym<<=>")
- .lex unicode:"$\x{a2}", rx1108_cur
- .local pmc match
- .lex "$/", match
- length rx1108_eos, rx1108_tgt
- set rx1108_off, 0
- lt rx1108_pos, 2, rx1108_start
- sub rx1108_off, rx1108_pos, 1
- substr rx1108_tgt, rx1108_tgt, rx1108_off
- rx1108_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1112_done
- goto rxscan1112_scan
- rxscan1112_loop:
- ($P10) = rx1108_cur."from"()
- inc $P10
- set rx1108_pos, $P10
- ge rx1108_pos, rx1108_eos, rxscan1112_done
- rxscan1112_scan:
- set_addr $I10, rxscan1112_loop
- rx1108_cur."!mark_push"(0, rx1108_pos, $I10)
- rxscan1112_done:
-.annotate 'line', 502
+.sub "infix:sym<<=>" :subid("281_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1113_tgt
+ .local int rx1113_pos
+ .local int rx1113_off
+ .local int rx1113_eos
+ .local int rx1113_rep
+ .local pmc rx1113_cur
+ (rx1113_cur, rx1113_pos, rx1113_tgt) = self."!cursor_start"()
+ rx1113_cur."!cursor_debug"("START ", "infix:sym<<=>")
+ .lex unicode:"$\x{a2}", rx1113_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1113_eos, rx1113_tgt
+ set rx1113_off, 0
+ lt rx1113_pos, 2, rx1113_start
+ sub rx1113_off, rx1113_pos, 1
+ substr rx1113_tgt, rx1113_tgt, rx1113_off
+ rx1113_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1117_done
+ goto rxscan1117_scan
+ rxscan1117_loop:
+ ($P10) = rx1113_cur."from"()
+ inc $P10
+ set rx1113_pos, $P10
+ ge rx1113_pos, rx1113_eos, rxscan1117_done
+ rxscan1117_scan:
+ set_addr $I10, rxscan1117_loop
+ rx1113_cur."!mark_push"(0, rx1113_pos, $I10)
+ rxscan1117_done:
+.annotate 'line', 504
# rx subcapture "sym"
- set_addr $I10, rxcap_1113_fail
- rx1108_cur."!mark_push"(0, rx1108_pos, $I10)
+ set_addr $I10, rxcap_1118_fail
+ rx1113_cur."!mark_push"(0, rx1113_pos, $I10)
# rx literal "<="
- add $I11, rx1108_pos, 2
- gt $I11, rx1108_eos, rx1108_fail
- sub $I11, rx1108_pos, rx1108_off
- substr $S10, rx1108_tgt, $I11, 2
- ne $S10, "<=", rx1108_fail
- add rx1108_pos, 2
- set_addr $I10, rxcap_1113_fail
- ($I12, $I11) = rx1108_cur."!mark_peek"($I10)
- rx1108_cur."!cursor_pos"($I11)
- ($P10) = rx1108_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1108_pos, "")
- rx1108_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1113_pos, 2
+ gt $I11, rx1113_eos, rx1113_fail
+ sub $I11, rx1113_pos, rx1113_off
+ substr $S10, rx1113_tgt, $I11, 2
+ ne $S10, "<=", rx1113_fail
+ add rx1113_pos, 2
+ set_addr $I10, rxcap_1118_fail
+ ($I12, $I11) = rx1113_cur."!mark_peek"($I10)
+ rx1113_cur."!cursor_pos"($I11)
+ ($P10) = rx1113_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1113_pos, "")
+ rx1113_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1113_done
- rxcap_1113_fail:
- goto rx1108_fail
- rxcap_1113_done:
+ goto rxcap_1118_done
+ rxcap_1118_fail:
+ goto rx1113_fail
+ rxcap_1118_done:
# rx subrule "O" subtype=capture negate=
- rx1108_cur."!cursor_pos"(rx1108_pos)
- $P10 = rx1108_cur."O"("%relational, :pirop<isle INn>")
- unless $P10, rx1108_fail
- rx1108_cur."!mark_push"(0, -1, 0, $P10)
+ rx1113_cur."!cursor_pos"(rx1113_pos)
+ $P10 = rx1113_cur."O"("%relational, :pirop<isle INn>")
+ unless $P10, rx1113_fail
+ rx1113_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1108_pos = $P10."pos"()
+ rx1113_pos = $P10."pos"()
# rx pass
- rx1108_cur."!cursor_pass"(rx1108_pos, "infix:sym<<=>")
- rx1108_cur."!cursor_debug"("PASS ", "infix:sym<<=>", " at pos=", rx1108_pos)
- .return (rx1108_cur)
- rx1108_fail:
-.annotate 'line', 431
- (rx1108_rep, rx1108_pos, $I10, $P10) = rx1108_cur."!mark_fail"(0)
- lt rx1108_pos, -1, rx1108_done
- eq rx1108_pos, -1, rx1108_fail
- jump $I10
- rx1108_done:
- rx1108_cur."!cursor_fail"()
- rx1108_cur."!cursor_debug"("FAIL ", "infix:sym<<=>")
- .return (rx1108_cur)
+ rx1113_cur."!cursor_pass"(rx1113_pos, "infix:sym<<=>")
+ rx1113_cur."!cursor_debug"("PASS ", "infix:sym<<=>", " at pos=", rx1113_pos)
+ .return (rx1113_cur)
+ rx1113_fail:
+.annotate 'line', 433
+ (rx1113_rep, rx1113_pos, $I10, $P10) = rx1113_cur."!mark_fail"(0)
+ lt rx1113_pos, -1, rx1113_done
+ eq rx1113_pos, -1, rx1113_fail
+ jump $I10
+ rx1113_done:
+ rx1113_cur."!cursor_fail"()
+ rx1113_cur."!cursor_debug"("FAIL ", "infix:sym<<=>")
+ .return (rx1113_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<<=>" :subid("280_1274564776.41408") :method
-.annotate 'line', 431
- $P1110 = self."!PREFIX__!subrule"("O", "<=")
- new $P1111, "ResizablePMCArray"
- push $P1111, $P1110
- .return ($P1111)
+.sub "!PREFIX__infix:sym<<=>" :subid("282_1275117591.97262") :method
+.annotate 'line', 433
+ $P1115 = self."!PREFIX__!subrule"("O", "<=")
+ new $P1116, "ResizablePMCArray"
+ push $P1116, $P1115
+ .return ($P1116)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<>=>" :subid("281_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1115_tgt
- .local int rx1115_pos
- .local int rx1115_off
- .local int rx1115_eos
- .local int rx1115_rep
- .local pmc rx1115_cur
- (rx1115_cur, rx1115_pos, rx1115_tgt) = self."!cursor_start"()
- rx1115_cur."!cursor_debug"("START ", "infix:sym<>=>")
- .lex unicode:"$\x{a2}", rx1115_cur
- .local pmc match
- .lex "$/", match
- length rx1115_eos, rx1115_tgt
- set rx1115_off, 0
- lt rx1115_pos, 2, rx1115_start
- sub rx1115_off, rx1115_pos, 1
- substr rx1115_tgt, rx1115_tgt, rx1115_off
- rx1115_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1119_done
- goto rxscan1119_scan
- rxscan1119_loop:
- ($P10) = rx1115_cur."from"()
- inc $P10
- set rx1115_pos, $P10
- ge rx1115_pos, rx1115_eos, rxscan1119_done
- rxscan1119_scan:
- set_addr $I10, rxscan1119_loop
- rx1115_cur."!mark_push"(0, rx1115_pos, $I10)
- rxscan1119_done:
-.annotate 'line', 503
+.sub "infix:sym<>=>" :subid("283_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1120_tgt
+ .local int rx1120_pos
+ .local int rx1120_off
+ .local int rx1120_eos
+ .local int rx1120_rep
+ .local pmc rx1120_cur
+ (rx1120_cur, rx1120_pos, rx1120_tgt) = self."!cursor_start"()
+ rx1120_cur."!cursor_debug"("START ", "infix:sym<>=>")
+ .lex unicode:"$\x{a2}", rx1120_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1120_eos, rx1120_tgt
+ set rx1120_off, 0
+ lt rx1120_pos, 2, rx1120_start
+ sub rx1120_off, rx1120_pos, 1
+ substr rx1120_tgt, rx1120_tgt, rx1120_off
+ rx1120_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1124_done
+ goto rxscan1124_scan
+ rxscan1124_loop:
+ ($P10) = rx1120_cur."from"()
+ inc $P10
+ set rx1120_pos, $P10
+ ge rx1120_pos, rx1120_eos, rxscan1124_done
+ rxscan1124_scan:
+ set_addr $I10, rxscan1124_loop
+ rx1120_cur."!mark_push"(0, rx1120_pos, $I10)
+ rxscan1124_done:
+.annotate 'line', 505
# rx subcapture "sym"
- set_addr $I10, rxcap_1120_fail
- rx1115_cur."!mark_push"(0, rx1115_pos, $I10)
+ set_addr $I10, rxcap_1125_fail
+ rx1120_cur."!mark_push"(0, rx1120_pos, $I10)
# rx literal ">="
- add $I11, rx1115_pos, 2
- gt $I11, rx1115_eos, rx1115_fail
- sub $I11, rx1115_pos, rx1115_off
- substr $S10, rx1115_tgt, $I11, 2
- ne $S10, ">=", rx1115_fail
- add rx1115_pos, 2
- set_addr $I10, rxcap_1120_fail
- ($I12, $I11) = rx1115_cur."!mark_peek"($I10)
- rx1115_cur."!cursor_pos"($I11)
- ($P10) = rx1115_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1115_pos, "")
- rx1115_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1120_pos, 2
+ gt $I11, rx1120_eos, rx1120_fail
+ sub $I11, rx1120_pos, rx1120_off
+ substr $S10, rx1120_tgt, $I11, 2
+ ne $S10, ">=", rx1120_fail
+ add rx1120_pos, 2
+ set_addr $I10, rxcap_1125_fail
+ ($I12, $I11) = rx1120_cur."!mark_peek"($I10)
+ rx1120_cur."!cursor_pos"($I11)
+ ($P10) = rx1120_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1120_pos, "")
+ rx1120_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1120_done
- rxcap_1120_fail:
- goto rx1115_fail
- rxcap_1120_done:
+ goto rxcap_1125_done
+ rxcap_1125_fail:
+ goto rx1120_fail
+ rxcap_1125_done:
# rx subrule "O" subtype=capture negate=
- rx1115_cur."!cursor_pos"(rx1115_pos)
- $P10 = rx1115_cur."O"("%relational, :pirop<isge INn>")
- unless $P10, rx1115_fail
- rx1115_cur."!mark_push"(0, -1, 0, $P10)
+ rx1120_cur."!cursor_pos"(rx1120_pos)
+ $P10 = rx1120_cur."O"("%relational, :pirop<isge INn>")
+ unless $P10, rx1120_fail
+ rx1120_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1115_pos = $P10."pos"()
+ rx1120_pos = $P10."pos"()
# rx pass
- rx1115_cur."!cursor_pass"(rx1115_pos, "infix:sym<>=>")
- rx1115_cur."!cursor_debug"("PASS ", "infix:sym<>=>", " at pos=", rx1115_pos)
- .return (rx1115_cur)
- rx1115_fail:
-.annotate 'line', 431
- (rx1115_rep, rx1115_pos, $I10, $P10) = rx1115_cur."!mark_fail"(0)
- lt rx1115_pos, -1, rx1115_done
- eq rx1115_pos, -1, rx1115_fail
- jump $I10
- rx1115_done:
- rx1115_cur."!cursor_fail"()
- rx1115_cur."!cursor_debug"("FAIL ", "infix:sym<>=>")
- .return (rx1115_cur)
+ rx1120_cur."!cursor_pass"(rx1120_pos, "infix:sym<>=>")
+ rx1120_cur."!cursor_debug"("PASS ", "infix:sym<>=>", " at pos=", rx1120_pos)
+ .return (rx1120_cur)
+ rx1120_fail:
+.annotate 'line', 433
+ (rx1120_rep, rx1120_pos, $I10, $P10) = rx1120_cur."!mark_fail"(0)
+ lt rx1120_pos, -1, rx1120_done
+ eq rx1120_pos, -1, rx1120_fail
+ jump $I10
+ rx1120_done:
+ rx1120_cur."!cursor_fail"()
+ rx1120_cur."!cursor_debug"("FAIL ", "infix:sym<>=>")
+ .return (rx1120_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<>=>" :subid("282_1274564776.41408") :method
-.annotate 'line', 431
- $P1117 = self."!PREFIX__!subrule"("O", ">=")
- new $P1118, "ResizablePMCArray"
- push $P1118, $P1117
- .return ($P1118)
+.sub "!PREFIX__infix:sym<>=>" :subid("284_1275117591.97262") :method
+.annotate 'line', 433
+ $P1122 = self."!PREFIX__!subrule"("O", ">=")
+ new $P1123, "ResizablePMCArray"
+ push $P1123, $P1122
+ .return ($P1123)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<<>" :subid("283_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1122_tgt
- .local int rx1122_pos
- .local int rx1122_off
- .local int rx1122_eos
- .local int rx1122_rep
- .local pmc rx1122_cur
- (rx1122_cur, rx1122_pos, rx1122_tgt) = self."!cursor_start"()
- rx1122_cur."!cursor_debug"("START ", "infix:sym<<>")
- .lex unicode:"$\x{a2}", rx1122_cur
- .local pmc match
- .lex "$/", match
- length rx1122_eos, rx1122_tgt
- set rx1122_off, 0
- lt rx1122_pos, 2, rx1122_start
- sub rx1122_off, rx1122_pos, 1
- substr rx1122_tgt, rx1122_tgt, rx1122_off
- rx1122_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1126_done
- goto rxscan1126_scan
- rxscan1126_loop:
- ($P10) = rx1122_cur."from"()
- inc $P10
- set rx1122_pos, $P10
- ge rx1122_pos, rx1122_eos, rxscan1126_done
- rxscan1126_scan:
- set_addr $I10, rxscan1126_loop
- rx1122_cur."!mark_push"(0, rx1122_pos, $I10)
- rxscan1126_done:
-.annotate 'line', 504
+.sub "infix:sym<<>" :subid("285_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1127_tgt
+ .local int rx1127_pos
+ .local int rx1127_off
+ .local int rx1127_eos
+ .local int rx1127_rep
+ .local pmc rx1127_cur
+ (rx1127_cur, rx1127_pos, rx1127_tgt) = self."!cursor_start"()
+ rx1127_cur."!cursor_debug"("START ", "infix:sym<<>")
+ .lex unicode:"$\x{a2}", rx1127_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1127_eos, rx1127_tgt
+ set rx1127_off, 0
+ lt rx1127_pos, 2, rx1127_start
+ sub rx1127_off, rx1127_pos, 1
+ substr rx1127_tgt, rx1127_tgt, rx1127_off
+ rx1127_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1131_done
+ goto rxscan1131_scan
+ rxscan1131_loop:
+ ($P10) = rx1127_cur."from"()
+ inc $P10
+ set rx1127_pos, $P10
+ ge rx1127_pos, rx1127_eos, rxscan1131_done
+ rxscan1131_scan:
+ set_addr $I10, rxscan1131_loop
+ rx1127_cur."!mark_push"(0, rx1127_pos, $I10)
+ rxscan1131_done:
+.annotate 'line', 506
# rx subcapture "sym"
- set_addr $I10, rxcap_1127_fail
- rx1122_cur."!mark_push"(0, rx1122_pos, $I10)
+ set_addr $I10, rxcap_1132_fail
+ rx1127_cur."!mark_push"(0, rx1127_pos, $I10)
# rx literal "<"
- add $I11, rx1122_pos, 1
- gt $I11, rx1122_eos, rx1122_fail
- sub $I11, rx1122_pos, rx1122_off
- substr $S10, rx1122_tgt, $I11, 1
- ne $S10, "<", rx1122_fail
- add rx1122_pos, 1
- set_addr $I10, rxcap_1127_fail
- ($I12, $I11) = rx1122_cur."!mark_peek"($I10)
- rx1122_cur."!cursor_pos"($I11)
- ($P10) = rx1122_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1122_pos, "")
- rx1122_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1127_pos, 1
+ gt $I11, rx1127_eos, rx1127_fail
+ sub $I11, rx1127_pos, rx1127_off
+ substr $S10, rx1127_tgt, $I11, 1
+ ne $S10, "<", rx1127_fail
+ add rx1127_pos, 1
+ set_addr $I10, rxcap_1132_fail
+ ($I12, $I11) = rx1127_cur."!mark_peek"($I10)
+ rx1127_cur."!cursor_pos"($I11)
+ ($P10) = rx1127_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1127_pos, "")
+ rx1127_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1127_done
- rxcap_1127_fail:
- goto rx1122_fail
- rxcap_1127_done:
+ goto rxcap_1132_done
+ rxcap_1132_fail:
+ goto rx1127_fail
+ rxcap_1132_done:
# rx subrule "O" subtype=capture negate=
- rx1122_cur."!cursor_pos"(rx1122_pos)
- $P10 = rx1122_cur."O"("%relational, :pirop<islt INn>")
- unless $P10, rx1122_fail
- rx1122_cur."!mark_push"(0, -1, 0, $P10)
+ rx1127_cur."!cursor_pos"(rx1127_pos)
+ $P10 = rx1127_cur."O"("%relational, :pirop<islt INn>")
+ unless $P10, rx1127_fail
+ rx1127_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1122_pos = $P10."pos"()
+ rx1127_pos = $P10."pos"()
# rx pass
- rx1122_cur."!cursor_pass"(rx1122_pos, "infix:sym<<>")
- rx1122_cur."!cursor_debug"("PASS ", "infix:sym<<>", " at pos=", rx1122_pos)
- .return (rx1122_cur)
- rx1122_fail:
-.annotate 'line', 431
- (rx1122_rep, rx1122_pos, $I10, $P10) = rx1122_cur."!mark_fail"(0)
- lt rx1122_pos, -1, rx1122_done
- eq rx1122_pos, -1, rx1122_fail
- jump $I10
- rx1122_done:
- rx1122_cur."!cursor_fail"()
- rx1122_cur."!cursor_debug"("FAIL ", "infix:sym<<>")
- .return (rx1122_cur)
+ rx1127_cur."!cursor_pass"(rx1127_pos, "infix:sym<<>")
+ rx1127_cur."!cursor_debug"("PASS ", "infix:sym<<>", " at pos=", rx1127_pos)
+ .return (rx1127_cur)
+ rx1127_fail:
+.annotate 'line', 433
+ (rx1127_rep, rx1127_pos, $I10, $P10) = rx1127_cur."!mark_fail"(0)
+ lt rx1127_pos, -1, rx1127_done
+ eq rx1127_pos, -1, rx1127_fail
+ jump $I10
+ rx1127_done:
+ rx1127_cur."!cursor_fail"()
+ rx1127_cur."!cursor_debug"("FAIL ", "infix:sym<<>")
+ .return (rx1127_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<<>" :subid("284_1274564776.41408") :method
-.annotate 'line', 431
- $P1124 = self."!PREFIX__!subrule"("O", "<")
- new $P1125, "ResizablePMCArray"
- push $P1125, $P1124
- .return ($P1125)
+.sub "!PREFIX__infix:sym<<>" :subid("286_1275117591.97262") :method
+.annotate 'line', 433
+ $P1129 = self."!PREFIX__!subrule"("O", "<")
+ new $P1130, "ResizablePMCArray"
+ push $P1130, $P1129
+ .return ($P1130)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<>>" :subid("285_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1129_tgt
- .local int rx1129_pos
- .local int rx1129_off
- .local int rx1129_eos
- .local int rx1129_rep
- .local pmc rx1129_cur
- (rx1129_cur, rx1129_pos, rx1129_tgt) = self."!cursor_start"()
- rx1129_cur."!cursor_debug"("START ", "infix:sym<>>")
- .lex unicode:"$\x{a2}", rx1129_cur
- .local pmc match
- .lex "$/", match
- length rx1129_eos, rx1129_tgt
- set rx1129_off, 0
- lt rx1129_pos, 2, rx1129_start
- sub rx1129_off, rx1129_pos, 1
- substr rx1129_tgt, rx1129_tgt, rx1129_off
- rx1129_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1133_done
- goto rxscan1133_scan
- rxscan1133_loop:
- ($P10) = rx1129_cur."from"()
- inc $P10
- set rx1129_pos, $P10
- ge rx1129_pos, rx1129_eos, rxscan1133_done
- rxscan1133_scan:
- set_addr $I10, rxscan1133_loop
- rx1129_cur."!mark_push"(0, rx1129_pos, $I10)
- rxscan1133_done:
-.annotate 'line', 505
+.sub "infix:sym<>>" :subid("287_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1134_tgt
+ .local int rx1134_pos
+ .local int rx1134_off
+ .local int rx1134_eos
+ .local int rx1134_rep
+ .local pmc rx1134_cur
+ (rx1134_cur, rx1134_pos, rx1134_tgt) = self."!cursor_start"()
+ rx1134_cur."!cursor_debug"("START ", "infix:sym<>>")
+ .lex unicode:"$\x{a2}", rx1134_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1134_eos, rx1134_tgt
+ set rx1134_off, 0
+ lt rx1134_pos, 2, rx1134_start
+ sub rx1134_off, rx1134_pos, 1
+ substr rx1134_tgt, rx1134_tgt, rx1134_off
+ rx1134_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1138_done
+ goto rxscan1138_scan
+ rxscan1138_loop:
+ ($P10) = rx1134_cur."from"()
+ inc $P10
+ set rx1134_pos, $P10
+ ge rx1134_pos, rx1134_eos, rxscan1138_done
+ rxscan1138_scan:
+ set_addr $I10, rxscan1138_loop
+ rx1134_cur."!mark_push"(0, rx1134_pos, $I10)
+ rxscan1138_done:
+.annotate 'line', 507
# rx subcapture "sym"
- set_addr $I10, rxcap_1134_fail
- rx1129_cur."!mark_push"(0, rx1129_pos, $I10)
+ set_addr $I10, rxcap_1139_fail
+ rx1134_cur."!mark_push"(0, rx1134_pos, $I10)
# rx literal ">"
- add $I11, rx1129_pos, 1
- gt $I11, rx1129_eos, rx1129_fail
- sub $I11, rx1129_pos, rx1129_off
- substr $S10, rx1129_tgt, $I11, 1
- ne $S10, ">", rx1129_fail
- add rx1129_pos, 1
- set_addr $I10, rxcap_1134_fail
- ($I12, $I11) = rx1129_cur."!mark_peek"($I10)
- rx1129_cur."!cursor_pos"($I11)
- ($P10) = rx1129_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1129_pos, "")
- rx1129_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1134_pos, 1
+ gt $I11, rx1134_eos, rx1134_fail
+ sub $I11, rx1134_pos, rx1134_off
+ substr $S10, rx1134_tgt, $I11, 1
+ ne $S10, ">", rx1134_fail
+ add rx1134_pos, 1
+ set_addr $I10, rxcap_1139_fail
+ ($I12, $I11) = rx1134_cur."!mark_peek"($I10)
+ rx1134_cur."!cursor_pos"($I11)
+ ($P10) = rx1134_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1134_pos, "")
+ rx1134_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1134_done
- rxcap_1134_fail:
- goto rx1129_fail
- rxcap_1134_done:
+ goto rxcap_1139_done
+ rxcap_1139_fail:
+ goto rx1134_fail
+ rxcap_1139_done:
# rx subrule "O" subtype=capture negate=
- rx1129_cur."!cursor_pos"(rx1129_pos)
- $P10 = rx1129_cur."O"("%relational, :pirop<isgt INn>")
- unless $P10, rx1129_fail
- rx1129_cur."!mark_push"(0, -1, 0, $P10)
+ rx1134_cur."!cursor_pos"(rx1134_pos)
+ $P10 = rx1134_cur."O"("%relational, :pirop<isgt INn>")
+ unless $P10, rx1134_fail
+ rx1134_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1129_pos = $P10."pos"()
+ rx1134_pos = $P10."pos"()
# rx pass
- rx1129_cur."!cursor_pass"(rx1129_pos, "infix:sym<>>")
- rx1129_cur."!cursor_debug"("PASS ", "infix:sym<>>", " at pos=", rx1129_pos)
- .return (rx1129_cur)
- rx1129_fail:
-.annotate 'line', 431
- (rx1129_rep, rx1129_pos, $I10, $P10) = rx1129_cur."!mark_fail"(0)
- lt rx1129_pos, -1, rx1129_done
- eq rx1129_pos, -1, rx1129_fail
- jump $I10
- rx1129_done:
- rx1129_cur."!cursor_fail"()
- rx1129_cur."!cursor_debug"("FAIL ", "infix:sym<>>")
- .return (rx1129_cur)
+ rx1134_cur."!cursor_pass"(rx1134_pos, "infix:sym<>>")
+ rx1134_cur."!cursor_debug"("PASS ", "infix:sym<>>", " at pos=", rx1134_pos)
+ .return (rx1134_cur)
+ rx1134_fail:
+.annotate 'line', 433
+ (rx1134_rep, rx1134_pos, $I10, $P10) = rx1134_cur."!mark_fail"(0)
+ lt rx1134_pos, -1, rx1134_done
+ eq rx1134_pos, -1, rx1134_fail
+ jump $I10
+ rx1134_done:
+ rx1134_cur."!cursor_fail"()
+ rx1134_cur."!cursor_debug"("FAIL ", "infix:sym<>>")
+ .return (rx1134_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<>>" :subid("286_1274564776.41408") :method
-.annotate 'line', 431
- $P1131 = self."!PREFIX__!subrule"("O", ">")
- new $P1132, "ResizablePMCArray"
- push $P1132, $P1131
- .return ($P1132)
+.sub "!PREFIX__infix:sym<>>" :subid("288_1275117591.97262") :method
+.annotate 'line', 433
+ $P1136 = self."!PREFIX__!subrule"("O", ">")
+ new $P1137, "ResizablePMCArray"
+ push $P1137, $P1136
+ .return ($P1137)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<eq>" :subid("287_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1136_tgt
- .local int rx1136_pos
- .local int rx1136_off
- .local int rx1136_eos
- .local int rx1136_rep
- .local pmc rx1136_cur
- (rx1136_cur, rx1136_pos, rx1136_tgt) = self."!cursor_start"()
- rx1136_cur."!cursor_debug"("START ", "infix:sym<eq>")
- .lex unicode:"$\x{a2}", rx1136_cur
- .local pmc match
- .lex "$/", match
- length rx1136_eos, rx1136_tgt
- set rx1136_off, 0
- lt rx1136_pos, 2, rx1136_start
- sub rx1136_off, rx1136_pos, 1
- substr rx1136_tgt, rx1136_tgt, rx1136_off
- rx1136_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1140_done
- goto rxscan1140_scan
- rxscan1140_loop:
- ($P10) = rx1136_cur."from"()
- inc $P10
- set rx1136_pos, $P10
- ge rx1136_pos, rx1136_eos, rxscan1140_done
- rxscan1140_scan:
- set_addr $I10, rxscan1140_loop
- rx1136_cur."!mark_push"(0, rx1136_pos, $I10)
- rxscan1140_done:
-.annotate 'line', 506
+.sub "infix:sym<eq>" :subid("289_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1141_tgt
+ .local int rx1141_pos
+ .local int rx1141_off
+ .local int rx1141_eos
+ .local int rx1141_rep
+ .local pmc rx1141_cur
+ (rx1141_cur, rx1141_pos, rx1141_tgt) = self."!cursor_start"()
+ rx1141_cur."!cursor_debug"("START ", "infix:sym<eq>")
+ .lex unicode:"$\x{a2}", rx1141_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1141_eos, rx1141_tgt
+ set rx1141_off, 0
+ lt rx1141_pos, 2, rx1141_start
+ sub rx1141_off, rx1141_pos, 1
+ substr rx1141_tgt, rx1141_tgt, rx1141_off
+ rx1141_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1145_done
+ goto rxscan1145_scan
+ rxscan1145_loop:
+ ($P10) = rx1141_cur."from"()
+ inc $P10
+ set rx1141_pos, $P10
+ ge rx1141_pos, rx1141_eos, rxscan1145_done
+ rxscan1145_scan:
+ set_addr $I10, rxscan1145_loop
+ rx1141_cur."!mark_push"(0, rx1141_pos, $I10)
+ rxscan1145_done:
+.annotate 'line', 508
# rx subcapture "sym"
- set_addr $I10, rxcap_1141_fail
- rx1136_cur."!mark_push"(0, rx1136_pos, $I10)
+ set_addr $I10, rxcap_1146_fail
+ rx1141_cur."!mark_push"(0, rx1141_pos, $I10)
# rx literal "eq"
- add $I11, rx1136_pos, 2
- gt $I11, rx1136_eos, rx1136_fail
- sub $I11, rx1136_pos, rx1136_off
- substr $S10, rx1136_tgt, $I11, 2
- ne $S10, "eq", rx1136_fail
- add rx1136_pos, 2
- set_addr $I10, rxcap_1141_fail
- ($I12, $I11) = rx1136_cur."!mark_peek"($I10)
- rx1136_cur."!cursor_pos"($I11)
- ($P10) = rx1136_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1136_pos, "")
- rx1136_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1141_pos, 2
+ gt $I11, rx1141_eos, rx1141_fail
+ sub $I11, rx1141_pos, rx1141_off
+ substr $S10, rx1141_tgt, $I11, 2
+ ne $S10, "eq", rx1141_fail
+ add rx1141_pos, 2
+ set_addr $I10, rxcap_1146_fail
+ ($I12, $I11) = rx1141_cur."!mark_peek"($I10)
+ rx1141_cur."!cursor_pos"($I11)
+ ($P10) = rx1141_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1141_pos, "")
+ rx1141_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1141_done
- rxcap_1141_fail:
- goto rx1136_fail
- rxcap_1141_done:
+ goto rxcap_1146_done
+ rxcap_1146_fail:
+ goto rx1141_fail
+ rxcap_1146_done:
# rx subrule "O" subtype=capture negate=
- rx1136_cur."!cursor_pos"(rx1136_pos)
- $P10 = rx1136_cur."O"("%relational, :pirop<iseq ISs>")
- unless $P10, rx1136_fail
- rx1136_cur."!mark_push"(0, -1, 0, $P10)
+ rx1141_cur."!cursor_pos"(rx1141_pos)
+ $P10 = rx1141_cur."O"("%relational, :pirop<iseq ISs>")
+ unless $P10, rx1141_fail
+ rx1141_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1136_pos = $P10."pos"()
+ rx1141_pos = $P10."pos"()
# rx pass
- rx1136_cur."!cursor_pass"(rx1136_pos, "infix:sym<eq>")
- rx1136_cur."!cursor_debug"("PASS ", "infix:sym<eq>", " at pos=", rx1136_pos)
- .return (rx1136_cur)
- rx1136_fail:
-.annotate 'line', 431
- (rx1136_rep, rx1136_pos, $I10, $P10) = rx1136_cur."!mark_fail"(0)
- lt rx1136_pos, -1, rx1136_done
- eq rx1136_pos, -1, rx1136_fail
- jump $I10
- rx1136_done:
- rx1136_cur."!cursor_fail"()
- rx1136_cur."!cursor_debug"("FAIL ", "infix:sym<eq>")
- .return (rx1136_cur)
+ rx1141_cur."!cursor_pass"(rx1141_pos, "infix:sym<eq>")
+ rx1141_cur."!cursor_debug"("PASS ", "infix:sym<eq>", " at pos=", rx1141_pos)
+ .return (rx1141_cur)
+ rx1141_fail:
+.annotate 'line', 433
+ (rx1141_rep, rx1141_pos, $I10, $P10) = rx1141_cur."!mark_fail"(0)
+ lt rx1141_pos, -1, rx1141_done
+ eq rx1141_pos, -1, rx1141_fail
+ jump $I10
+ rx1141_done:
+ rx1141_cur."!cursor_fail"()
+ rx1141_cur."!cursor_debug"("FAIL ", "infix:sym<eq>")
+ .return (rx1141_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<eq>" :subid("288_1274564776.41408") :method
-.annotate 'line', 431
- $P1138 = self."!PREFIX__!subrule"("O", "eq")
- new $P1139, "ResizablePMCArray"
- push $P1139, $P1138
- .return ($P1139)
+.sub "!PREFIX__infix:sym<eq>" :subid("290_1275117591.97262") :method
+.annotate 'line', 433
+ $P1143 = self."!PREFIX__!subrule"("O", "eq")
+ new $P1144, "ResizablePMCArray"
+ push $P1144, $P1143
+ .return ($P1144)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<ne>" :subid("289_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1143_tgt
- .local int rx1143_pos
- .local int rx1143_off
- .local int rx1143_eos
- .local int rx1143_rep
- .local pmc rx1143_cur
- (rx1143_cur, rx1143_pos, rx1143_tgt) = self."!cursor_start"()
- rx1143_cur."!cursor_debug"("START ", "infix:sym<ne>")
- .lex unicode:"$\x{a2}", rx1143_cur
- .local pmc match
- .lex "$/", match
- length rx1143_eos, rx1143_tgt
- set rx1143_off, 0
- lt rx1143_pos, 2, rx1143_start
- sub rx1143_off, rx1143_pos, 1
- substr rx1143_tgt, rx1143_tgt, rx1143_off
- rx1143_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1147_done
- goto rxscan1147_scan
- rxscan1147_loop:
- ($P10) = rx1143_cur."from"()
- inc $P10
- set rx1143_pos, $P10
- ge rx1143_pos, rx1143_eos, rxscan1147_done
- rxscan1147_scan:
- set_addr $I10, rxscan1147_loop
- rx1143_cur."!mark_push"(0, rx1143_pos, $I10)
- rxscan1147_done:
-.annotate 'line', 507
+.sub "infix:sym<ne>" :subid("291_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1148_tgt
+ .local int rx1148_pos
+ .local int rx1148_off
+ .local int rx1148_eos
+ .local int rx1148_rep
+ .local pmc rx1148_cur
+ (rx1148_cur, rx1148_pos, rx1148_tgt) = self."!cursor_start"()
+ rx1148_cur."!cursor_debug"("START ", "infix:sym<ne>")
+ .lex unicode:"$\x{a2}", rx1148_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1148_eos, rx1148_tgt
+ set rx1148_off, 0
+ lt rx1148_pos, 2, rx1148_start
+ sub rx1148_off, rx1148_pos, 1
+ substr rx1148_tgt, rx1148_tgt, rx1148_off
+ rx1148_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1152_done
+ goto rxscan1152_scan
+ rxscan1152_loop:
+ ($P10) = rx1148_cur."from"()
+ inc $P10
+ set rx1148_pos, $P10
+ ge rx1148_pos, rx1148_eos, rxscan1152_done
+ rxscan1152_scan:
+ set_addr $I10, rxscan1152_loop
+ rx1148_cur."!mark_push"(0, rx1148_pos, $I10)
+ rxscan1152_done:
+.annotate 'line', 509
# rx subcapture "sym"
- set_addr $I10, rxcap_1148_fail
- rx1143_cur."!mark_push"(0, rx1143_pos, $I10)
+ set_addr $I10, rxcap_1153_fail
+ rx1148_cur."!mark_push"(0, rx1148_pos, $I10)
# rx literal "ne"
- add $I11, rx1143_pos, 2
- gt $I11, rx1143_eos, rx1143_fail
- sub $I11, rx1143_pos, rx1143_off
- substr $S10, rx1143_tgt, $I11, 2
- ne $S10, "ne", rx1143_fail
- add rx1143_pos, 2
- set_addr $I10, rxcap_1148_fail
- ($I12, $I11) = rx1143_cur."!mark_peek"($I10)
- rx1143_cur."!cursor_pos"($I11)
- ($P10) = rx1143_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1143_pos, "")
- rx1143_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1148_pos, 2
+ gt $I11, rx1148_eos, rx1148_fail
+ sub $I11, rx1148_pos, rx1148_off
+ substr $S10, rx1148_tgt, $I11, 2
+ ne $S10, "ne", rx1148_fail
+ add rx1148_pos, 2
+ set_addr $I10, rxcap_1153_fail
+ ($I12, $I11) = rx1148_cur."!mark_peek"($I10)
+ rx1148_cur."!cursor_pos"($I11)
+ ($P10) = rx1148_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1148_pos, "")
+ rx1148_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1148_done
- rxcap_1148_fail:
- goto rx1143_fail
- rxcap_1148_done:
+ goto rxcap_1153_done
+ rxcap_1153_fail:
+ goto rx1148_fail
+ rxcap_1153_done:
# rx subrule "O" subtype=capture negate=
- rx1143_cur."!cursor_pos"(rx1143_pos)
- $P10 = rx1143_cur."O"("%relational, :pirop<isne ISs>")
- unless $P10, rx1143_fail
- rx1143_cur."!mark_push"(0, -1, 0, $P10)
+ rx1148_cur."!cursor_pos"(rx1148_pos)
+ $P10 = rx1148_cur."O"("%relational, :pirop<isne ISs>")
+ unless $P10, rx1148_fail
+ rx1148_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1143_pos = $P10."pos"()
+ rx1148_pos = $P10."pos"()
# rx pass
- rx1143_cur."!cursor_pass"(rx1143_pos, "infix:sym<ne>")
- rx1143_cur."!cursor_debug"("PASS ", "infix:sym<ne>", " at pos=", rx1143_pos)
- .return (rx1143_cur)
- rx1143_fail:
-.annotate 'line', 431
- (rx1143_rep, rx1143_pos, $I10, $P10) = rx1143_cur."!mark_fail"(0)
- lt rx1143_pos, -1, rx1143_done
- eq rx1143_pos, -1, rx1143_fail
- jump $I10
- rx1143_done:
- rx1143_cur."!cursor_fail"()
- rx1143_cur."!cursor_debug"("FAIL ", "infix:sym<ne>")
- .return (rx1143_cur)
+ rx1148_cur."!cursor_pass"(rx1148_pos, "infix:sym<ne>")
+ rx1148_cur."!cursor_debug"("PASS ", "infix:sym<ne>", " at pos=", rx1148_pos)
+ .return (rx1148_cur)
+ rx1148_fail:
+.annotate 'line', 433
+ (rx1148_rep, rx1148_pos, $I10, $P10) = rx1148_cur."!mark_fail"(0)
+ lt rx1148_pos, -1, rx1148_done
+ eq rx1148_pos, -1, rx1148_fail
+ jump $I10
+ rx1148_done:
+ rx1148_cur."!cursor_fail"()
+ rx1148_cur."!cursor_debug"("FAIL ", "infix:sym<ne>")
+ .return (rx1148_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<ne>" :subid("290_1274564776.41408") :method
-.annotate 'line', 431
- $P1145 = self."!PREFIX__!subrule"("O", "ne")
- new $P1146, "ResizablePMCArray"
- push $P1146, $P1145
- .return ($P1146)
+.sub "!PREFIX__infix:sym<ne>" :subid("292_1275117591.97262") :method
+.annotate 'line', 433
+ $P1150 = self."!PREFIX__!subrule"("O", "ne")
+ new $P1151, "ResizablePMCArray"
+ push $P1151, $P1150
+ .return ($P1151)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<le>" :subid("291_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1150_tgt
- .local int rx1150_pos
- .local int rx1150_off
- .local int rx1150_eos
- .local int rx1150_rep
- .local pmc rx1150_cur
- (rx1150_cur, rx1150_pos, rx1150_tgt) = self."!cursor_start"()
- rx1150_cur."!cursor_debug"("START ", "infix:sym<le>")
- .lex unicode:"$\x{a2}", rx1150_cur
- .local pmc match
- .lex "$/", match
- length rx1150_eos, rx1150_tgt
- set rx1150_off, 0
- lt rx1150_pos, 2, rx1150_start
- sub rx1150_off, rx1150_pos, 1
- substr rx1150_tgt, rx1150_tgt, rx1150_off
- rx1150_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1154_done
- goto rxscan1154_scan
- rxscan1154_loop:
- ($P10) = rx1150_cur."from"()
- inc $P10
- set rx1150_pos, $P10
- ge rx1150_pos, rx1150_eos, rxscan1154_done
- rxscan1154_scan:
- set_addr $I10, rxscan1154_loop
- rx1150_cur."!mark_push"(0, rx1150_pos, $I10)
- rxscan1154_done:
-.annotate 'line', 508
+.sub "infix:sym<le>" :subid("293_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1155_tgt
+ .local int rx1155_pos
+ .local int rx1155_off
+ .local int rx1155_eos
+ .local int rx1155_rep
+ .local pmc rx1155_cur
+ (rx1155_cur, rx1155_pos, rx1155_tgt) = self."!cursor_start"()
+ rx1155_cur."!cursor_debug"("START ", "infix:sym<le>")
+ .lex unicode:"$\x{a2}", rx1155_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1155_eos, rx1155_tgt
+ set rx1155_off, 0
+ lt rx1155_pos, 2, rx1155_start
+ sub rx1155_off, rx1155_pos, 1
+ substr rx1155_tgt, rx1155_tgt, rx1155_off
+ rx1155_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1159_done
+ goto rxscan1159_scan
+ rxscan1159_loop:
+ ($P10) = rx1155_cur."from"()
+ inc $P10
+ set rx1155_pos, $P10
+ ge rx1155_pos, rx1155_eos, rxscan1159_done
+ rxscan1159_scan:
+ set_addr $I10, rxscan1159_loop
+ rx1155_cur."!mark_push"(0, rx1155_pos, $I10)
+ rxscan1159_done:
+.annotate 'line', 510
# rx subcapture "sym"
- set_addr $I10, rxcap_1155_fail
- rx1150_cur."!mark_push"(0, rx1150_pos, $I10)
+ set_addr $I10, rxcap_1160_fail
+ rx1155_cur."!mark_push"(0, rx1155_pos, $I10)
# rx literal "le"
- add $I11, rx1150_pos, 2
- gt $I11, rx1150_eos, rx1150_fail
- sub $I11, rx1150_pos, rx1150_off
- substr $S10, rx1150_tgt, $I11, 2
- ne $S10, "le", rx1150_fail
- add rx1150_pos, 2
- set_addr $I10, rxcap_1155_fail
- ($I12, $I11) = rx1150_cur."!mark_peek"($I10)
- rx1150_cur."!cursor_pos"($I11)
- ($P10) = rx1150_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1150_pos, "")
- rx1150_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1155_pos, 2
+ gt $I11, rx1155_eos, rx1155_fail
+ sub $I11, rx1155_pos, rx1155_off
+ substr $S10, rx1155_tgt, $I11, 2
+ ne $S10, "le", rx1155_fail
+ add rx1155_pos, 2
+ set_addr $I10, rxcap_1160_fail
+ ($I12, $I11) = rx1155_cur."!mark_peek"($I10)
+ rx1155_cur."!cursor_pos"($I11)
+ ($P10) = rx1155_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1155_pos, "")
+ rx1155_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1155_done
- rxcap_1155_fail:
- goto rx1150_fail
- rxcap_1155_done:
+ goto rxcap_1160_done
+ rxcap_1160_fail:
+ goto rx1155_fail
+ rxcap_1160_done:
# rx subrule "O" subtype=capture negate=
- rx1150_cur."!cursor_pos"(rx1150_pos)
- $P10 = rx1150_cur."O"("%relational, :pirop<isle ISs>")
- unless $P10, rx1150_fail
- rx1150_cur."!mark_push"(0, -1, 0, $P10)
+ rx1155_cur."!cursor_pos"(rx1155_pos)
+ $P10 = rx1155_cur."O"("%relational, :pirop<isle ISs>")
+ unless $P10, rx1155_fail
+ rx1155_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1150_pos = $P10."pos"()
+ rx1155_pos = $P10."pos"()
# rx pass
- rx1150_cur."!cursor_pass"(rx1150_pos, "infix:sym<le>")
- rx1150_cur."!cursor_debug"("PASS ", "infix:sym<le>", " at pos=", rx1150_pos)
- .return (rx1150_cur)
- rx1150_fail:
-.annotate 'line', 431
- (rx1150_rep, rx1150_pos, $I10, $P10) = rx1150_cur."!mark_fail"(0)
- lt rx1150_pos, -1, rx1150_done
- eq rx1150_pos, -1, rx1150_fail
- jump $I10
- rx1150_done:
- rx1150_cur."!cursor_fail"()
- rx1150_cur."!cursor_debug"("FAIL ", "infix:sym<le>")
- .return (rx1150_cur)
+ rx1155_cur."!cursor_pass"(rx1155_pos, "infix:sym<le>")
+ rx1155_cur."!cursor_debug"("PASS ", "infix:sym<le>", " at pos=", rx1155_pos)
+ .return (rx1155_cur)
+ rx1155_fail:
+.annotate 'line', 433
+ (rx1155_rep, rx1155_pos, $I10, $P10) = rx1155_cur."!mark_fail"(0)
+ lt rx1155_pos, -1, rx1155_done
+ eq rx1155_pos, -1, rx1155_fail
+ jump $I10
+ rx1155_done:
+ rx1155_cur."!cursor_fail"()
+ rx1155_cur."!cursor_debug"("FAIL ", "infix:sym<le>")
+ .return (rx1155_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<le>" :subid("292_1274564776.41408") :method
-.annotate 'line', 431
- $P1152 = self."!PREFIX__!subrule"("O", "le")
- new $P1153, "ResizablePMCArray"
- push $P1153, $P1152
- .return ($P1153)
+.sub "!PREFIX__infix:sym<le>" :subid("294_1275117591.97262") :method
+.annotate 'line', 433
+ $P1157 = self."!PREFIX__!subrule"("O", "le")
+ new $P1158, "ResizablePMCArray"
+ push $P1158, $P1157
+ .return ($P1158)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<ge>" :subid("293_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1157_tgt
- .local int rx1157_pos
- .local int rx1157_off
- .local int rx1157_eos
- .local int rx1157_rep
- .local pmc rx1157_cur
- (rx1157_cur, rx1157_pos, rx1157_tgt) = self."!cursor_start"()
- rx1157_cur."!cursor_debug"("START ", "infix:sym<ge>")
- .lex unicode:"$\x{a2}", rx1157_cur
- .local pmc match
- .lex "$/", match
- length rx1157_eos, rx1157_tgt
- set rx1157_off, 0
- lt rx1157_pos, 2, rx1157_start
- sub rx1157_off, rx1157_pos, 1
- substr rx1157_tgt, rx1157_tgt, rx1157_off
- rx1157_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1161_done
- goto rxscan1161_scan
- rxscan1161_loop:
- ($P10) = rx1157_cur."from"()
- inc $P10
- set rx1157_pos, $P10
- ge rx1157_pos, rx1157_eos, rxscan1161_done
- rxscan1161_scan:
- set_addr $I10, rxscan1161_loop
- rx1157_cur."!mark_push"(0, rx1157_pos, $I10)
- rxscan1161_done:
-.annotate 'line', 509
+.sub "infix:sym<ge>" :subid("295_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1162_tgt
+ .local int rx1162_pos
+ .local int rx1162_off
+ .local int rx1162_eos
+ .local int rx1162_rep
+ .local pmc rx1162_cur
+ (rx1162_cur, rx1162_pos, rx1162_tgt) = self."!cursor_start"()
+ rx1162_cur."!cursor_debug"("START ", "infix:sym<ge>")
+ .lex unicode:"$\x{a2}", rx1162_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1162_eos, rx1162_tgt
+ set rx1162_off, 0
+ lt rx1162_pos, 2, rx1162_start
+ sub rx1162_off, rx1162_pos, 1
+ substr rx1162_tgt, rx1162_tgt, rx1162_off
+ rx1162_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1166_done
+ goto rxscan1166_scan
+ rxscan1166_loop:
+ ($P10) = rx1162_cur."from"()
+ inc $P10
+ set rx1162_pos, $P10
+ ge rx1162_pos, rx1162_eos, rxscan1166_done
+ rxscan1166_scan:
+ set_addr $I10, rxscan1166_loop
+ rx1162_cur."!mark_push"(0, rx1162_pos, $I10)
+ rxscan1166_done:
+.annotate 'line', 511
# rx subcapture "sym"
- set_addr $I10, rxcap_1162_fail
- rx1157_cur."!mark_push"(0, rx1157_pos, $I10)
+ set_addr $I10, rxcap_1167_fail
+ rx1162_cur."!mark_push"(0, rx1162_pos, $I10)
# rx literal "ge"
- add $I11, rx1157_pos, 2
- gt $I11, rx1157_eos, rx1157_fail
- sub $I11, rx1157_pos, rx1157_off
- substr $S10, rx1157_tgt, $I11, 2
- ne $S10, "ge", rx1157_fail
- add rx1157_pos, 2
- set_addr $I10, rxcap_1162_fail
- ($I12, $I11) = rx1157_cur."!mark_peek"($I10)
- rx1157_cur."!cursor_pos"($I11)
- ($P10) = rx1157_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1157_pos, "")
- rx1157_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1162_pos, 2
+ gt $I11, rx1162_eos, rx1162_fail
+ sub $I11, rx1162_pos, rx1162_off
+ substr $S10, rx1162_tgt, $I11, 2
+ ne $S10, "ge", rx1162_fail
+ add rx1162_pos, 2
+ set_addr $I10, rxcap_1167_fail
+ ($I12, $I11) = rx1162_cur."!mark_peek"($I10)
+ rx1162_cur."!cursor_pos"($I11)
+ ($P10) = rx1162_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1162_pos, "")
+ rx1162_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1162_done
- rxcap_1162_fail:
- goto rx1157_fail
- rxcap_1162_done:
+ goto rxcap_1167_done
+ rxcap_1167_fail:
+ goto rx1162_fail
+ rxcap_1167_done:
# rx subrule "O" subtype=capture negate=
- rx1157_cur."!cursor_pos"(rx1157_pos)
- $P10 = rx1157_cur."O"("%relational, :pirop<isge ISs>")
- unless $P10, rx1157_fail
- rx1157_cur."!mark_push"(0, -1, 0, $P10)
+ rx1162_cur."!cursor_pos"(rx1162_pos)
+ $P10 = rx1162_cur."O"("%relational, :pirop<isge ISs>")
+ unless $P10, rx1162_fail
+ rx1162_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1157_pos = $P10."pos"()
+ rx1162_pos = $P10."pos"()
# rx pass
- rx1157_cur."!cursor_pass"(rx1157_pos, "infix:sym<ge>")
- rx1157_cur."!cursor_debug"("PASS ", "infix:sym<ge>", " at pos=", rx1157_pos)
- .return (rx1157_cur)
- rx1157_fail:
-.annotate 'line', 431
- (rx1157_rep, rx1157_pos, $I10, $P10) = rx1157_cur."!mark_fail"(0)
- lt rx1157_pos, -1, rx1157_done
- eq rx1157_pos, -1, rx1157_fail
- jump $I10
- rx1157_done:
- rx1157_cur."!cursor_fail"()
- rx1157_cur."!cursor_debug"("FAIL ", "infix:sym<ge>")
- .return (rx1157_cur)
+ rx1162_cur."!cursor_pass"(rx1162_pos, "infix:sym<ge>")
+ rx1162_cur."!cursor_debug"("PASS ", "infix:sym<ge>", " at pos=", rx1162_pos)
+ .return (rx1162_cur)
+ rx1162_fail:
+.annotate 'line', 433
+ (rx1162_rep, rx1162_pos, $I10, $P10) = rx1162_cur."!mark_fail"(0)
+ lt rx1162_pos, -1, rx1162_done
+ eq rx1162_pos, -1, rx1162_fail
+ jump $I10
+ rx1162_done:
+ rx1162_cur."!cursor_fail"()
+ rx1162_cur."!cursor_debug"("FAIL ", "infix:sym<ge>")
+ .return (rx1162_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<ge>" :subid("294_1274564776.41408") :method
-.annotate 'line', 431
- $P1159 = self."!PREFIX__!subrule"("O", "ge")
- new $P1160, "ResizablePMCArray"
- push $P1160, $P1159
- .return ($P1160)
+.sub "!PREFIX__infix:sym<ge>" :subid("296_1275117591.97262") :method
+.annotate 'line', 433
+ $P1164 = self."!PREFIX__!subrule"("O", "ge")
+ new $P1165, "ResizablePMCArray"
+ push $P1165, $P1164
+ .return ($P1165)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<lt>" :subid("295_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1164_tgt
- .local int rx1164_pos
- .local int rx1164_off
- .local int rx1164_eos
- .local int rx1164_rep
- .local pmc rx1164_cur
- (rx1164_cur, rx1164_pos, rx1164_tgt) = self."!cursor_start"()
- rx1164_cur."!cursor_debug"("START ", "infix:sym<lt>")
- .lex unicode:"$\x{a2}", rx1164_cur
- .local pmc match
- .lex "$/", match
- length rx1164_eos, rx1164_tgt
- set rx1164_off, 0
- lt rx1164_pos, 2, rx1164_start
- sub rx1164_off, rx1164_pos, 1
- substr rx1164_tgt, rx1164_tgt, rx1164_off
- rx1164_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1168_done
- goto rxscan1168_scan
- rxscan1168_loop:
- ($P10) = rx1164_cur."from"()
- inc $P10
- set rx1164_pos, $P10
- ge rx1164_pos, rx1164_eos, rxscan1168_done
- rxscan1168_scan:
- set_addr $I10, rxscan1168_loop
- rx1164_cur."!mark_push"(0, rx1164_pos, $I10)
- rxscan1168_done:
-.annotate 'line', 510
+.sub "infix:sym<lt>" :subid("297_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1169_tgt
+ .local int rx1169_pos
+ .local int rx1169_off
+ .local int rx1169_eos
+ .local int rx1169_rep
+ .local pmc rx1169_cur
+ (rx1169_cur, rx1169_pos, rx1169_tgt) = self."!cursor_start"()
+ rx1169_cur."!cursor_debug"("START ", "infix:sym<lt>")
+ .lex unicode:"$\x{a2}", rx1169_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1169_eos, rx1169_tgt
+ set rx1169_off, 0
+ lt rx1169_pos, 2, rx1169_start
+ sub rx1169_off, rx1169_pos, 1
+ substr rx1169_tgt, rx1169_tgt, rx1169_off
+ rx1169_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1173_done
+ goto rxscan1173_scan
+ rxscan1173_loop:
+ ($P10) = rx1169_cur."from"()
+ inc $P10
+ set rx1169_pos, $P10
+ ge rx1169_pos, rx1169_eos, rxscan1173_done
+ rxscan1173_scan:
+ set_addr $I10, rxscan1173_loop
+ rx1169_cur."!mark_push"(0, rx1169_pos, $I10)
+ rxscan1173_done:
+.annotate 'line', 512
# rx subcapture "sym"
- set_addr $I10, rxcap_1169_fail
- rx1164_cur."!mark_push"(0, rx1164_pos, $I10)
+ set_addr $I10, rxcap_1174_fail
+ rx1169_cur."!mark_push"(0, rx1169_pos, $I10)
# rx literal "lt"
- add $I11, rx1164_pos, 2
- gt $I11, rx1164_eos, rx1164_fail
- sub $I11, rx1164_pos, rx1164_off
- substr $S10, rx1164_tgt, $I11, 2
- ne $S10, "lt", rx1164_fail
- add rx1164_pos, 2
- set_addr $I10, rxcap_1169_fail
- ($I12, $I11) = rx1164_cur."!mark_peek"($I10)
- rx1164_cur."!cursor_pos"($I11)
- ($P10) = rx1164_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1164_pos, "")
- rx1164_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1169_pos, 2
+ gt $I11, rx1169_eos, rx1169_fail
+ sub $I11, rx1169_pos, rx1169_off
+ substr $S10, rx1169_tgt, $I11, 2
+ ne $S10, "lt", rx1169_fail
+ add rx1169_pos, 2
+ set_addr $I10, rxcap_1174_fail
+ ($I12, $I11) = rx1169_cur."!mark_peek"($I10)
+ rx1169_cur."!cursor_pos"($I11)
+ ($P10) = rx1169_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1169_pos, "")
+ rx1169_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1169_done
- rxcap_1169_fail:
- goto rx1164_fail
- rxcap_1169_done:
+ goto rxcap_1174_done
+ rxcap_1174_fail:
+ goto rx1169_fail
+ rxcap_1174_done:
# rx subrule "O" subtype=capture negate=
- rx1164_cur."!cursor_pos"(rx1164_pos)
- $P10 = rx1164_cur."O"("%relational, :pirop<islt ISs>")
- unless $P10, rx1164_fail
- rx1164_cur."!mark_push"(0, -1, 0, $P10)
+ rx1169_cur."!cursor_pos"(rx1169_pos)
+ $P10 = rx1169_cur."O"("%relational, :pirop<islt ISs>")
+ unless $P10, rx1169_fail
+ rx1169_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1164_pos = $P10."pos"()
+ rx1169_pos = $P10."pos"()
# rx pass
- rx1164_cur."!cursor_pass"(rx1164_pos, "infix:sym<lt>")
- rx1164_cur."!cursor_debug"("PASS ", "infix:sym<lt>", " at pos=", rx1164_pos)
- .return (rx1164_cur)
- rx1164_fail:
-.annotate 'line', 431
- (rx1164_rep, rx1164_pos, $I10, $P10) = rx1164_cur."!mark_fail"(0)
- lt rx1164_pos, -1, rx1164_done
- eq rx1164_pos, -1, rx1164_fail
- jump $I10
- rx1164_done:
- rx1164_cur."!cursor_fail"()
- rx1164_cur."!cursor_debug"("FAIL ", "infix:sym<lt>")
- .return (rx1164_cur)
+ rx1169_cur."!cursor_pass"(rx1169_pos, "infix:sym<lt>")
+ rx1169_cur."!cursor_debug"("PASS ", "infix:sym<lt>", " at pos=", rx1169_pos)
+ .return (rx1169_cur)
+ rx1169_fail:
+.annotate 'line', 433
+ (rx1169_rep, rx1169_pos, $I10, $P10) = rx1169_cur."!mark_fail"(0)
+ lt rx1169_pos, -1, rx1169_done
+ eq rx1169_pos, -1, rx1169_fail
+ jump $I10
+ rx1169_done:
+ rx1169_cur."!cursor_fail"()
+ rx1169_cur."!cursor_debug"("FAIL ", "infix:sym<lt>")
+ .return (rx1169_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<lt>" :subid("296_1274564776.41408") :method
-.annotate 'line', 431
- $P1166 = self."!PREFIX__!subrule"("O", "lt")
- new $P1167, "ResizablePMCArray"
- push $P1167, $P1166
- .return ($P1167)
+.sub "!PREFIX__infix:sym<lt>" :subid("298_1275117591.97262") :method
+.annotate 'line', 433
+ $P1171 = self."!PREFIX__!subrule"("O", "lt")
+ new $P1172, "ResizablePMCArray"
+ push $P1172, $P1171
+ .return ($P1172)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<gt>" :subid("297_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1171_tgt
- .local int rx1171_pos
- .local int rx1171_off
- .local int rx1171_eos
- .local int rx1171_rep
- .local pmc rx1171_cur
- (rx1171_cur, rx1171_pos, rx1171_tgt) = self."!cursor_start"()
- rx1171_cur."!cursor_debug"("START ", "infix:sym<gt>")
- .lex unicode:"$\x{a2}", rx1171_cur
- .local pmc match
- .lex "$/", match
- length rx1171_eos, rx1171_tgt
- set rx1171_off, 0
- lt rx1171_pos, 2, rx1171_start
- sub rx1171_off, rx1171_pos, 1
- substr rx1171_tgt, rx1171_tgt, rx1171_off
- rx1171_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1175_done
- goto rxscan1175_scan
- rxscan1175_loop:
- ($P10) = rx1171_cur."from"()
- inc $P10
- set rx1171_pos, $P10
- ge rx1171_pos, rx1171_eos, rxscan1175_done
- rxscan1175_scan:
- set_addr $I10, rxscan1175_loop
- rx1171_cur."!mark_push"(0, rx1171_pos, $I10)
- rxscan1175_done:
-.annotate 'line', 511
+.sub "infix:sym<gt>" :subid("299_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1176_tgt
+ .local int rx1176_pos
+ .local int rx1176_off
+ .local int rx1176_eos
+ .local int rx1176_rep
+ .local pmc rx1176_cur
+ (rx1176_cur, rx1176_pos, rx1176_tgt) = self."!cursor_start"()
+ rx1176_cur."!cursor_debug"("START ", "infix:sym<gt>")
+ .lex unicode:"$\x{a2}", rx1176_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1176_eos, rx1176_tgt
+ set rx1176_off, 0
+ lt rx1176_pos, 2, rx1176_start
+ sub rx1176_off, rx1176_pos, 1
+ substr rx1176_tgt, rx1176_tgt, rx1176_off
+ rx1176_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1180_done
+ goto rxscan1180_scan
+ rxscan1180_loop:
+ ($P10) = rx1176_cur."from"()
+ inc $P10
+ set rx1176_pos, $P10
+ ge rx1176_pos, rx1176_eos, rxscan1180_done
+ rxscan1180_scan:
+ set_addr $I10, rxscan1180_loop
+ rx1176_cur."!mark_push"(0, rx1176_pos, $I10)
+ rxscan1180_done:
+.annotate 'line', 513
# rx subcapture "sym"
- set_addr $I10, rxcap_1176_fail
- rx1171_cur."!mark_push"(0, rx1171_pos, $I10)
+ set_addr $I10, rxcap_1181_fail
+ rx1176_cur."!mark_push"(0, rx1176_pos, $I10)
# rx literal "gt"
- add $I11, rx1171_pos, 2
- gt $I11, rx1171_eos, rx1171_fail
- sub $I11, rx1171_pos, rx1171_off
- substr $S10, rx1171_tgt, $I11, 2
- ne $S10, "gt", rx1171_fail
- add rx1171_pos, 2
- set_addr $I10, rxcap_1176_fail
- ($I12, $I11) = rx1171_cur."!mark_peek"($I10)
- rx1171_cur."!cursor_pos"($I11)
- ($P10) = rx1171_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1171_pos, "")
- rx1171_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1176_pos, 2
+ gt $I11, rx1176_eos, rx1176_fail
+ sub $I11, rx1176_pos, rx1176_off
+ substr $S10, rx1176_tgt, $I11, 2
+ ne $S10, "gt", rx1176_fail
+ add rx1176_pos, 2
+ set_addr $I10, rxcap_1181_fail
+ ($I12, $I11) = rx1176_cur."!mark_peek"($I10)
+ rx1176_cur."!cursor_pos"($I11)
+ ($P10) = rx1176_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1176_pos, "")
+ rx1176_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1176_done
- rxcap_1176_fail:
- goto rx1171_fail
- rxcap_1176_done:
+ goto rxcap_1181_done
+ rxcap_1181_fail:
+ goto rx1176_fail
+ rxcap_1181_done:
# rx subrule "O" subtype=capture negate=
- rx1171_cur."!cursor_pos"(rx1171_pos)
- $P10 = rx1171_cur."O"("%relational, :pirop<isgt ISs>")
- unless $P10, rx1171_fail
- rx1171_cur."!mark_push"(0, -1, 0, $P10)
+ rx1176_cur."!cursor_pos"(rx1176_pos)
+ $P10 = rx1176_cur."O"("%relational, :pirop<isgt ISs>")
+ unless $P10, rx1176_fail
+ rx1176_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1171_pos = $P10."pos"()
+ rx1176_pos = $P10."pos"()
# rx pass
- rx1171_cur."!cursor_pass"(rx1171_pos, "infix:sym<gt>")
- rx1171_cur."!cursor_debug"("PASS ", "infix:sym<gt>", " at pos=", rx1171_pos)
- .return (rx1171_cur)
- rx1171_fail:
-.annotate 'line', 431
- (rx1171_rep, rx1171_pos, $I10, $P10) = rx1171_cur."!mark_fail"(0)
- lt rx1171_pos, -1, rx1171_done
- eq rx1171_pos, -1, rx1171_fail
- jump $I10
- rx1171_done:
- rx1171_cur."!cursor_fail"()
- rx1171_cur."!cursor_debug"("FAIL ", "infix:sym<gt>")
- .return (rx1171_cur)
+ rx1176_cur."!cursor_pass"(rx1176_pos, "infix:sym<gt>")
+ rx1176_cur."!cursor_debug"("PASS ", "infix:sym<gt>", " at pos=", rx1176_pos)
+ .return (rx1176_cur)
+ rx1176_fail:
+.annotate 'line', 433
+ (rx1176_rep, rx1176_pos, $I10, $P10) = rx1176_cur."!mark_fail"(0)
+ lt rx1176_pos, -1, rx1176_done
+ eq rx1176_pos, -1, rx1176_fail
+ jump $I10
+ rx1176_done:
+ rx1176_cur."!cursor_fail"()
+ rx1176_cur."!cursor_debug"("FAIL ", "infix:sym<gt>")
+ .return (rx1176_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<gt>" :subid("298_1274564776.41408") :method
-.annotate 'line', 431
- $P1173 = self."!PREFIX__!subrule"("O", "gt")
- new $P1174, "ResizablePMCArray"
- push $P1174, $P1173
- .return ($P1174)
+.sub "!PREFIX__infix:sym<gt>" :subid("300_1275117591.97262") :method
+.annotate 'line', 433
+ $P1178 = self."!PREFIX__!subrule"("O", "gt")
+ new $P1179, "ResizablePMCArray"
+ push $P1179, $P1178
+ .return ($P1179)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<=:=>" :subid("299_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1178_tgt
- .local int rx1178_pos
- .local int rx1178_off
- .local int rx1178_eos
- .local int rx1178_rep
- .local pmc rx1178_cur
- (rx1178_cur, rx1178_pos, rx1178_tgt) = self."!cursor_start"()
- rx1178_cur."!cursor_debug"("START ", "infix:sym<=:=>")
- .lex unicode:"$\x{a2}", rx1178_cur
- .local pmc match
- .lex "$/", match
- length rx1178_eos, rx1178_tgt
- set rx1178_off, 0
- lt rx1178_pos, 2, rx1178_start
- sub rx1178_off, rx1178_pos, 1
- substr rx1178_tgt, rx1178_tgt, rx1178_off
- rx1178_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1182_done
- goto rxscan1182_scan
- rxscan1182_loop:
- ($P10) = rx1178_cur."from"()
- inc $P10
- set rx1178_pos, $P10
- ge rx1178_pos, rx1178_eos, rxscan1182_done
- rxscan1182_scan:
- set_addr $I10, rxscan1182_loop
- rx1178_cur."!mark_push"(0, rx1178_pos, $I10)
- rxscan1182_done:
-.annotate 'line', 512
+.sub "infix:sym<=:=>" :subid("301_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1183_tgt
+ .local int rx1183_pos
+ .local int rx1183_off
+ .local int rx1183_eos
+ .local int rx1183_rep
+ .local pmc rx1183_cur
+ (rx1183_cur, rx1183_pos, rx1183_tgt) = self."!cursor_start"()
+ rx1183_cur."!cursor_debug"("START ", "infix:sym<=:=>")
+ .lex unicode:"$\x{a2}", rx1183_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1183_eos, rx1183_tgt
+ set rx1183_off, 0
+ lt rx1183_pos, 2, rx1183_start
+ sub rx1183_off, rx1183_pos, 1
+ substr rx1183_tgt, rx1183_tgt, rx1183_off
+ rx1183_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1187_done
+ goto rxscan1187_scan
+ rxscan1187_loop:
+ ($P10) = rx1183_cur."from"()
+ inc $P10
+ set rx1183_pos, $P10
+ ge rx1183_pos, rx1183_eos, rxscan1187_done
+ rxscan1187_scan:
+ set_addr $I10, rxscan1187_loop
+ rx1183_cur."!mark_push"(0, rx1183_pos, $I10)
+ rxscan1187_done:
+.annotate 'line', 514
# rx subcapture "sym"
- set_addr $I10, rxcap_1183_fail
- rx1178_cur."!mark_push"(0, rx1178_pos, $I10)
+ set_addr $I10, rxcap_1188_fail
+ rx1183_cur."!mark_push"(0, rx1183_pos, $I10)
# rx literal "=:="
- add $I11, rx1178_pos, 3
- gt $I11, rx1178_eos, rx1178_fail
- sub $I11, rx1178_pos, rx1178_off
- substr $S10, rx1178_tgt, $I11, 3
- ne $S10, "=:=", rx1178_fail
- add rx1178_pos, 3
- set_addr $I10, rxcap_1183_fail
- ($I12, $I11) = rx1178_cur."!mark_peek"($I10)
- rx1178_cur."!cursor_pos"($I11)
- ($P10) = rx1178_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1178_pos, "")
- rx1178_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1183_pos, 3
+ gt $I11, rx1183_eos, rx1183_fail
+ sub $I11, rx1183_pos, rx1183_off
+ substr $S10, rx1183_tgt, $I11, 3
+ ne $S10, "=:=", rx1183_fail
+ add rx1183_pos, 3
+ set_addr $I10, rxcap_1188_fail
+ ($I12, $I11) = rx1183_cur."!mark_peek"($I10)
+ rx1183_cur."!cursor_pos"($I11)
+ ($P10) = rx1183_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1183_pos, "")
+ rx1183_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1183_done
- rxcap_1183_fail:
- goto rx1178_fail
- rxcap_1183_done:
+ goto rxcap_1188_done
+ rxcap_1188_fail:
+ goto rx1183_fail
+ rxcap_1188_done:
# rx subrule "O" subtype=capture negate=
- rx1178_cur."!cursor_pos"(rx1178_pos)
- $P10 = rx1178_cur."O"("%relational, :pirop<issame>")
- unless $P10, rx1178_fail
- rx1178_cur."!mark_push"(0, -1, 0, $P10)
+ rx1183_cur."!cursor_pos"(rx1183_pos)
+ $P10 = rx1183_cur."O"("%relational, :pirop<issame>")
+ unless $P10, rx1183_fail
+ rx1183_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1178_pos = $P10."pos"()
+ rx1183_pos = $P10."pos"()
# rx pass
- rx1178_cur."!cursor_pass"(rx1178_pos, "infix:sym<=:=>")
- rx1178_cur."!cursor_debug"("PASS ", "infix:sym<=:=>", " at pos=", rx1178_pos)
- .return (rx1178_cur)
- rx1178_fail:
-.annotate 'line', 431
- (rx1178_rep, rx1178_pos, $I10, $P10) = rx1178_cur."!mark_fail"(0)
- lt rx1178_pos, -1, rx1178_done
- eq rx1178_pos, -1, rx1178_fail
- jump $I10
- rx1178_done:
- rx1178_cur."!cursor_fail"()
- rx1178_cur."!cursor_debug"("FAIL ", "infix:sym<=:=>")
- .return (rx1178_cur)
+ rx1183_cur."!cursor_pass"(rx1183_pos, "infix:sym<=:=>")
+ rx1183_cur."!cursor_debug"("PASS ", "infix:sym<=:=>", " at pos=", rx1183_pos)
+ .return (rx1183_cur)
+ rx1183_fail:
+.annotate 'line', 433
+ (rx1183_rep, rx1183_pos, $I10, $P10) = rx1183_cur."!mark_fail"(0)
+ lt rx1183_pos, -1, rx1183_done
+ eq rx1183_pos, -1, rx1183_fail
+ jump $I10
+ rx1183_done:
+ rx1183_cur."!cursor_fail"()
+ rx1183_cur."!cursor_debug"("FAIL ", "infix:sym<=:=>")
+ .return (rx1183_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<=:=>" :subid("300_1274564776.41408") :method
-.annotate 'line', 431
- $P1180 = self."!PREFIX__!subrule"("O", "=:=")
- new $P1181, "ResizablePMCArray"
- push $P1181, $P1180
- .return ($P1181)
+.sub "!PREFIX__infix:sym<=:=>" :subid("302_1275117591.97262") :method
+.annotate 'line', 433
+ $P1185 = self."!PREFIX__!subrule"("O", "=:=")
+ new $P1186, "ResizablePMCArray"
+ push $P1186, $P1185
+ .return ($P1186)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<~~>" :subid("301_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1185_tgt
- .local int rx1185_pos
- .local int rx1185_off
- .local int rx1185_eos
- .local int rx1185_rep
- .local pmc rx1185_cur
- (rx1185_cur, rx1185_pos, rx1185_tgt) = self."!cursor_start"()
- rx1185_cur."!cursor_debug"("START ", "infix:sym<~~>")
- .lex unicode:"$\x{a2}", rx1185_cur
- .local pmc match
- .lex "$/", match
- length rx1185_eos, rx1185_tgt
- set rx1185_off, 0
- lt rx1185_pos, 2, rx1185_start
- sub rx1185_off, rx1185_pos, 1
- substr rx1185_tgt, rx1185_tgt, rx1185_off
- rx1185_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1189_done
- goto rxscan1189_scan
- rxscan1189_loop:
- ($P10) = rx1185_cur."from"()
- inc $P10
- set rx1185_pos, $P10
- ge rx1185_pos, rx1185_eos, rxscan1189_done
- rxscan1189_scan:
- set_addr $I10, rxscan1189_loop
- rx1185_cur."!mark_push"(0, rx1185_pos, $I10)
- rxscan1189_done:
-.annotate 'line', 513
+.sub "infix:sym<~~>" :subid("303_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1190_tgt
+ .local int rx1190_pos
+ .local int rx1190_off
+ .local int rx1190_eos
+ .local int rx1190_rep
+ .local pmc rx1190_cur
+ (rx1190_cur, rx1190_pos, rx1190_tgt) = self."!cursor_start"()
+ rx1190_cur."!cursor_debug"("START ", "infix:sym<~~>")
+ .lex unicode:"$\x{a2}", rx1190_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1190_eos, rx1190_tgt
+ set rx1190_off, 0
+ lt rx1190_pos, 2, rx1190_start
+ sub rx1190_off, rx1190_pos, 1
+ substr rx1190_tgt, rx1190_tgt, rx1190_off
+ rx1190_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1194_done
+ goto rxscan1194_scan
+ rxscan1194_loop:
+ ($P10) = rx1190_cur."from"()
+ inc $P10
+ set rx1190_pos, $P10
+ ge rx1190_pos, rx1190_eos, rxscan1194_done
+ rxscan1194_scan:
+ set_addr $I10, rxscan1194_loop
+ rx1190_cur."!mark_push"(0, rx1190_pos, $I10)
+ rxscan1194_done:
+.annotate 'line', 515
# rx subcapture "sym"
- set_addr $I10, rxcap_1190_fail
- rx1185_cur."!mark_push"(0, rx1185_pos, $I10)
+ set_addr $I10, rxcap_1195_fail
+ rx1190_cur."!mark_push"(0, rx1190_pos, $I10)
# rx literal "~~"
- add $I11, rx1185_pos, 2
- gt $I11, rx1185_eos, rx1185_fail
- sub $I11, rx1185_pos, rx1185_off
- substr $S10, rx1185_tgt, $I11, 2
- ne $S10, "~~", rx1185_fail
- add rx1185_pos, 2
- set_addr $I10, rxcap_1190_fail
- ($I12, $I11) = rx1185_cur."!mark_peek"($I10)
- rx1185_cur."!cursor_pos"($I11)
- ($P10) = rx1185_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1185_pos, "")
- rx1185_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1190_pos, 2
+ gt $I11, rx1190_eos, rx1190_fail
+ sub $I11, rx1190_pos, rx1190_off
+ substr $S10, rx1190_tgt, $I11, 2
+ ne $S10, "~~", rx1190_fail
+ add rx1190_pos, 2
+ set_addr $I10, rxcap_1195_fail
+ ($I12, $I11) = rx1190_cur."!mark_peek"($I10)
+ rx1190_cur."!cursor_pos"($I11)
+ ($P10) = rx1190_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1190_pos, "")
+ rx1190_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1190_done
- rxcap_1190_fail:
- goto rx1185_fail
- rxcap_1190_done:
+ goto rxcap_1195_done
+ rxcap_1195_fail:
+ goto rx1190_fail
+ rxcap_1195_done:
# rx subrule "O" subtype=capture negate=
- rx1185_cur."!cursor_pos"(rx1185_pos)
- $P10 = rx1185_cur."O"("%relational, :reducecheck<smartmatch>")
- unless $P10, rx1185_fail
- rx1185_cur."!mark_push"(0, -1, 0, $P10)
+ rx1190_cur."!cursor_pos"(rx1190_pos)
+ $P10 = rx1190_cur."O"("%relational, :reducecheck<smartmatch>")
+ unless $P10, rx1190_fail
+ rx1190_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1185_pos = $P10."pos"()
+ rx1190_pos = $P10."pos"()
# rx pass
- rx1185_cur."!cursor_pass"(rx1185_pos, "infix:sym<~~>")
- rx1185_cur."!cursor_debug"("PASS ", "infix:sym<~~>", " at pos=", rx1185_pos)
- .return (rx1185_cur)
- rx1185_fail:
-.annotate 'line', 431
- (rx1185_rep, rx1185_pos, $I10, $P10) = rx1185_cur."!mark_fail"(0)
- lt rx1185_pos, -1, rx1185_done
- eq rx1185_pos, -1, rx1185_fail
- jump $I10
- rx1185_done:
- rx1185_cur."!cursor_fail"()
- rx1185_cur."!cursor_debug"("FAIL ", "infix:sym<~~>")
- .return (rx1185_cur)
+ rx1190_cur."!cursor_pass"(rx1190_pos, "infix:sym<~~>")
+ rx1190_cur."!cursor_debug"("PASS ", "infix:sym<~~>", " at pos=", rx1190_pos)
+ .return (rx1190_cur)
+ rx1190_fail:
+.annotate 'line', 433
+ (rx1190_rep, rx1190_pos, $I10, $P10) = rx1190_cur."!mark_fail"(0)
+ lt rx1190_pos, -1, rx1190_done
+ eq rx1190_pos, -1, rx1190_fail
+ jump $I10
+ rx1190_done:
+ rx1190_cur."!cursor_fail"()
+ rx1190_cur."!cursor_debug"("FAIL ", "infix:sym<~~>")
+ .return (rx1190_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<~~>" :subid("302_1274564776.41408") :method
-.annotate 'line', 431
- $P1187 = self."!PREFIX__!subrule"("O", "~~")
- new $P1188, "ResizablePMCArray"
- push $P1188, $P1187
- .return ($P1188)
+.sub "!PREFIX__infix:sym<~~>" :subid("304_1275117591.97262") :method
+.annotate 'line', 433
+ $P1192 = self."!PREFIX__!subrule"("O", "~~")
+ new $P1193, "ResizablePMCArray"
+ push $P1193, $P1192
+ .return ($P1193)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<&&>" :subid("303_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1192_tgt
- .local int rx1192_pos
- .local int rx1192_off
- .local int rx1192_eos
- .local int rx1192_rep
- .local pmc rx1192_cur
- (rx1192_cur, rx1192_pos, rx1192_tgt) = self."!cursor_start"()
- rx1192_cur."!cursor_debug"("START ", "infix:sym<&&>")
- .lex unicode:"$\x{a2}", rx1192_cur
- .local pmc match
- .lex "$/", match
- length rx1192_eos, rx1192_tgt
- set rx1192_off, 0
- lt rx1192_pos, 2, rx1192_start
- sub rx1192_off, rx1192_pos, 1
- substr rx1192_tgt, rx1192_tgt, rx1192_off
- rx1192_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1196_done
- goto rxscan1196_scan
- rxscan1196_loop:
- ($P10) = rx1192_cur."from"()
- inc $P10
- set rx1192_pos, $P10
- ge rx1192_pos, rx1192_eos, rxscan1196_done
- rxscan1196_scan:
- set_addr $I10, rxscan1196_loop
- rx1192_cur."!mark_push"(0, rx1192_pos, $I10)
- rxscan1196_done:
-.annotate 'line', 515
+.sub "infix:sym<&&>" :subid("305_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1197_tgt
+ .local int rx1197_pos
+ .local int rx1197_off
+ .local int rx1197_eos
+ .local int rx1197_rep
+ .local pmc rx1197_cur
+ (rx1197_cur, rx1197_pos, rx1197_tgt) = self."!cursor_start"()
+ rx1197_cur."!cursor_debug"("START ", "infix:sym<&&>")
+ .lex unicode:"$\x{a2}", rx1197_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1197_eos, rx1197_tgt
+ set rx1197_off, 0
+ lt rx1197_pos, 2, rx1197_start
+ sub rx1197_off, rx1197_pos, 1
+ substr rx1197_tgt, rx1197_tgt, rx1197_off
+ rx1197_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1201_done
+ goto rxscan1201_scan
+ rxscan1201_loop:
+ ($P10) = rx1197_cur."from"()
+ inc $P10
+ set rx1197_pos, $P10
+ ge rx1197_pos, rx1197_eos, rxscan1201_done
+ rxscan1201_scan:
+ set_addr $I10, rxscan1201_loop
+ rx1197_cur."!mark_push"(0, rx1197_pos, $I10)
+ rxscan1201_done:
+.annotate 'line', 517
# rx subcapture "sym"
- set_addr $I10, rxcap_1197_fail
- rx1192_cur."!mark_push"(0, rx1192_pos, $I10)
+ set_addr $I10, rxcap_1202_fail
+ rx1197_cur."!mark_push"(0, rx1197_pos, $I10)
# rx literal "&&"
- add $I11, rx1192_pos, 2
- gt $I11, rx1192_eos, rx1192_fail
- sub $I11, rx1192_pos, rx1192_off
- substr $S10, rx1192_tgt, $I11, 2
- ne $S10, "&&", rx1192_fail
- add rx1192_pos, 2
- set_addr $I10, rxcap_1197_fail
- ($I12, $I11) = rx1192_cur."!mark_peek"($I10)
- rx1192_cur."!cursor_pos"($I11)
- ($P10) = rx1192_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1192_pos, "")
- rx1192_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1197_pos, 2
+ gt $I11, rx1197_eos, rx1197_fail
+ sub $I11, rx1197_pos, rx1197_off
+ substr $S10, rx1197_tgt, $I11, 2
+ ne $S10, "&&", rx1197_fail
+ add rx1197_pos, 2
+ set_addr $I10, rxcap_1202_fail
+ ($I12, $I11) = rx1197_cur."!mark_peek"($I10)
+ rx1197_cur."!cursor_pos"($I11)
+ ($P10) = rx1197_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1197_pos, "")
+ rx1197_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1197_done
- rxcap_1197_fail:
- goto rx1192_fail
- rxcap_1197_done:
+ goto rxcap_1202_done
+ rxcap_1202_fail:
+ goto rx1197_fail
+ rxcap_1202_done:
# rx subrule "O" subtype=capture negate=
- rx1192_cur."!cursor_pos"(rx1192_pos)
- $P10 = rx1192_cur."O"("%tight_and, :pasttype<if>")
- unless $P10, rx1192_fail
- rx1192_cur."!mark_push"(0, -1, 0, $P10)
+ rx1197_cur."!cursor_pos"(rx1197_pos)
+ $P10 = rx1197_cur."O"("%tight_and, :pasttype<if>")
+ unless $P10, rx1197_fail
+ rx1197_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1192_pos = $P10."pos"()
+ rx1197_pos = $P10."pos"()
# rx pass
- rx1192_cur."!cursor_pass"(rx1192_pos, "infix:sym<&&>")
- rx1192_cur."!cursor_debug"("PASS ", "infix:sym<&&>", " at pos=", rx1192_pos)
- .return (rx1192_cur)
- rx1192_fail:
-.annotate 'line', 431
- (rx1192_rep, rx1192_pos, $I10, $P10) = rx1192_cur."!mark_fail"(0)
- lt rx1192_pos, -1, rx1192_done
- eq rx1192_pos, -1, rx1192_fail
- jump $I10
- rx1192_done:
- rx1192_cur."!cursor_fail"()
- rx1192_cur."!cursor_debug"("FAIL ", "infix:sym<&&>")
- .return (rx1192_cur)
+ rx1197_cur."!cursor_pass"(rx1197_pos, "infix:sym<&&>")
+ rx1197_cur."!cursor_debug"("PASS ", "infix:sym<&&>", " at pos=", rx1197_pos)
+ .return (rx1197_cur)
+ rx1197_fail:
+.annotate 'line', 433
+ (rx1197_rep, rx1197_pos, $I10, $P10) = rx1197_cur."!mark_fail"(0)
+ lt rx1197_pos, -1, rx1197_done
+ eq rx1197_pos, -1, rx1197_fail
+ jump $I10
+ rx1197_done:
+ rx1197_cur."!cursor_fail"()
+ rx1197_cur."!cursor_debug"("FAIL ", "infix:sym<&&>")
+ .return (rx1197_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<&&>" :subid("304_1274564776.41408") :method
-.annotate 'line', 431
- $P1194 = self."!PREFIX__!subrule"("O", "&&")
- new $P1195, "ResizablePMCArray"
- push $P1195, $P1194
- .return ($P1195)
+.sub "!PREFIX__infix:sym<&&>" :subid("306_1275117591.97262") :method
+.annotate 'line', 433
+ $P1199 = self."!PREFIX__!subrule"("O", "&&")
+ new $P1200, "ResizablePMCArray"
+ push $P1200, $P1199
+ .return ($P1200)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<||>" :subid("305_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1199_tgt
- .local int rx1199_pos
- .local int rx1199_off
- .local int rx1199_eos
- .local int rx1199_rep
- .local pmc rx1199_cur
- (rx1199_cur, rx1199_pos, rx1199_tgt) = self."!cursor_start"()
- rx1199_cur."!cursor_debug"("START ", "infix:sym<||>")
- .lex unicode:"$\x{a2}", rx1199_cur
- .local pmc match
- .lex "$/", match
- length rx1199_eos, rx1199_tgt
- set rx1199_off, 0
- lt rx1199_pos, 2, rx1199_start
- sub rx1199_off, rx1199_pos, 1
- substr rx1199_tgt, rx1199_tgt, rx1199_off
- rx1199_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1203_done
- goto rxscan1203_scan
- rxscan1203_loop:
- ($P10) = rx1199_cur."from"()
- inc $P10
- set rx1199_pos, $P10
- ge rx1199_pos, rx1199_eos, rxscan1203_done
- rxscan1203_scan:
- set_addr $I10, rxscan1203_loop
- rx1199_cur."!mark_push"(0, rx1199_pos, $I10)
- rxscan1203_done:
-.annotate 'line', 517
+.sub "infix:sym<||>" :subid("307_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1204_tgt
+ .local int rx1204_pos
+ .local int rx1204_off
+ .local int rx1204_eos
+ .local int rx1204_rep
+ .local pmc rx1204_cur
+ (rx1204_cur, rx1204_pos, rx1204_tgt) = self."!cursor_start"()
+ rx1204_cur."!cursor_debug"("START ", "infix:sym<||>")
+ .lex unicode:"$\x{a2}", rx1204_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1204_eos, rx1204_tgt
+ set rx1204_off, 0
+ lt rx1204_pos, 2, rx1204_start
+ sub rx1204_off, rx1204_pos, 1
+ substr rx1204_tgt, rx1204_tgt, rx1204_off
+ rx1204_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1208_done
+ goto rxscan1208_scan
+ rxscan1208_loop:
+ ($P10) = rx1204_cur."from"()
+ inc $P10
+ set rx1204_pos, $P10
+ ge rx1204_pos, rx1204_eos, rxscan1208_done
+ rxscan1208_scan:
+ set_addr $I10, rxscan1208_loop
+ rx1204_cur."!mark_push"(0, rx1204_pos, $I10)
+ rxscan1208_done:
+.annotate 'line', 519
# rx subcapture "sym"
- set_addr $I10, rxcap_1204_fail
- rx1199_cur."!mark_push"(0, rx1199_pos, $I10)
+ set_addr $I10, rxcap_1209_fail
+ rx1204_cur."!mark_push"(0, rx1204_pos, $I10)
# rx literal "||"
- add $I11, rx1199_pos, 2
- gt $I11, rx1199_eos, rx1199_fail
- sub $I11, rx1199_pos, rx1199_off
- substr $S10, rx1199_tgt, $I11, 2
- ne $S10, "||", rx1199_fail
- add rx1199_pos, 2
- set_addr $I10, rxcap_1204_fail
- ($I12, $I11) = rx1199_cur."!mark_peek"($I10)
- rx1199_cur."!cursor_pos"($I11)
- ($P10) = rx1199_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1199_pos, "")
- rx1199_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1204_pos, 2
+ gt $I11, rx1204_eos, rx1204_fail
+ sub $I11, rx1204_pos, rx1204_off
+ substr $S10, rx1204_tgt, $I11, 2
+ ne $S10, "||", rx1204_fail
+ add rx1204_pos, 2
+ set_addr $I10, rxcap_1209_fail
+ ($I12, $I11) = rx1204_cur."!mark_peek"($I10)
+ rx1204_cur."!cursor_pos"($I11)
+ ($P10) = rx1204_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1204_pos, "")
+ rx1204_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1204_done
- rxcap_1204_fail:
- goto rx1199_fail
- rxcap_1204_done:
+ goto rxcap_1209_done
+ rxcap_1209_fail:
+ goto rx1204_fail
+ rxcap_1209_done:
# rx subrule "O" subtype=capture negate=
- rx1199_cur."!cursor_pos"(rx1199_pos)
- $P10 = rx1199_cur."O"("%tight_or, :pasttype<unless>")
- unless $P10, rx1199_fail
- rx1199_cur."!mark_push"(0, -1, 0, $P10)
+ rx1204_cur."!cursor_pos"(rx1204_pos)
+ $P10 = rx1204_cur."O"("%tight_or, :pasttype<unless>")
+ unless $P10, rx1204_fail
+ rx1204_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1199_pos = $P10."pos"()
+ rx1204_pos = $P10."pos"()
# rx pass
- rx1199_cur."!cursor_pass"(rx1199_pos, "infix:sym<||>")
- rx1199_cur."!cursor_debug"("PASS ", "infix:sym<||>", " at pos=", rx1199_pos)
- .return (rx1199_cur)
- rx1199_fail:
-.annotate 'line', 431
- (rx1199_rep, rx1199_pos, $I10, $P10) = rx1199_cur."!mark_fail"(0)
- lt rx1199_pos, -1, rx1199_done
- eq rx1199_pos, -1, rx1199_fail
- jump $I10
- rx1199_done:
- rx1199_cur."!cursor_fail"()
- rx1199_cur."!cursor_debug"("FAIL ", "infix:sym<||>")
- .return (rx1199_cur)
+ rx1204_cur."!cursor_pass"(rx1204_pos, "infix:sym<||>")
+ rx1204_cur."!cursor_debug"("PASS ", "infix:sym<||>", " at pos=", rx1204_pos)
+ .return (rx1204_cur)
+ rx1204_fail:
+.annotate 'line', 433
+ (rx1204_rep, rx1204_pos, $I10, $P10) = rx1204_cur."!mark_fail"(0)
+ lt rx1204_pos, -1, rx1204_done
+ eq rx1204_pos, -1, rx1204_fail
+ jump $I10
+ rx1204_done:
+ rx1204_cur."!cursor_fail"()
+ rx1204_cur."!cursor_debug"("FAIL ", "infix:sym<||>")
+ .return (rx1204_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<||>" :subid("306_1274564776.41408") :method
-.annotate 'line', 431
- $P1201 = self."!PREFIX__!subrule"("O", "||")
- new $P1202, "ResizablePMCArray"
- push $P1202, $P1201
- .return ($P1202)
+.sub "!PREFIX__infix:sym<||>" :subid("308_1275117591.97262") :method
+.annotate 'line', 433
+ $P1206 = self."!PREFIX__!subrule"("O", "||")
+ new $P1207, "ResizablePMCArray"
+ push $P1207, $P1206
+ .return ($P1207)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<//>" :subid("307_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1206_tgt
- .local int rx1206_pos
- .local int rx1206_off
- .local int rx1206_eos
- .local int rx1206_rep
- .local pmc rx1206_cur
- (rx1206_cur, rx1206_pos, rx1206_tgt) = self."!cursor_start"()
- rx1206_cur."!cursor_debug"("START ", "infix:sym<//>")
- .lex unicode:"$\x{a2}", rx1206_cur
- .local pmc match
- .lex "$/", match
- length rx1206_eos, rx1206_tgt
- set rx1206_off, 0
- lt rx1206_pos, 2, rx1206_start
- sub rx1206_off, rx1206_pos, 1
- substr rx1206_tgt, rx1206_tgt, rx1206_off
- rx1206_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1210_done
- goto rxscan1210_scan
- rxscan1210_loop:
- ($P10) = rx1206_cur."from"()
- inc $P10
- set rx1206_pos, $P10
- ge rx1206_pos, rx1206_eos, rxscan1210_done
- rxscan1210_scan:
- set_addr $I10, rxscan1210_loop
- rx1206_cur."!mark_push"(0, rx1206_pos, $I10)
- rxscan1210_done:
-.annotate 'line', 518
+.sub "infix:sym<//>" :subid("309_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1211_tgt
+ .local int rx1211_pos
+ .local int rx1211_off
+ .local int rx1211_eos
+ .local int rx1211_rep
+ .local pmc rx1211_cur
+ (rx1211_cur, rx1211_pos, rx1211_tgt) = self."!cursor_start"()
+ rx1211_cur."!cursor_debug"("START ", "infix:sym<//>")
+ .lex unicode:"$\x{a2}", rx1211_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1211_eos, rx1211_tgt
+ set rx1211_off, 0
+ lt rx1211_pos, 2, rx1211_start
+ sub rx1211_off, rx1211_pos, 1
+ substr rx1211_tgt, rx1211_tgt, rx1211_off
+ rx1211_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1215_done
+ goto rxscan1215_scan
+ rxscan1215_loop:
+ ($P10) = rx1211_cur."from"()
+ inc $P10
+ set rx1211_pos, $P10
+ ge rx1211_pos, rx1211_eos, rxscan1215_done
+ rxscan1215_scan:
+ set_addr $I10, rxscan1215_loop
+ rx1211_cur."!mark_push"(0, rx1211_pos, $I10)
+ rxscan1215_done:
+.annotate 'line', 520
# rx subcapture "sym"
- set_addr $I10, rxcap_1211_fail
- rx1206_cur."!mark_push"(0, rx1206_pos, $I10)
+ set_addr $I10, rxcap_1216_fail
+ rx1211_cur."!mark_push"(0, rx1211_pos, $I10)
# rx literal "//"
- add $I11, rx1206_pos, 2
- gt $I11, rx1206_eos, rx1206_fail
- sub $I11, rx1206_pos, rx1206_off
- substr $S10, rx1206_tgt, $I11, 2
- ne $S10, "//", rx1206_fail
- add rx1206_pos, 2
- set_addr $I10, rxcap_1211_fail
- ($I12, $I11) = rx1206_cur."!mark_peek"($I10)
- rx1206_cur."!cursor_pos"($I11)
- ($P10) = rx1206_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1206_pos, "")
- rx1206_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1211_pos, 2
+ gt $I11, rx1211_eos, rx1211_fail
+ sub $I11, rx1211_pos, rx1211_off
+ substr $S10, rx1211_tgt, $I11, 2
+ ne $S10, "//", rx1211_fail
+ add rx1211_pos, 2
+ set_addr $I10, rxcap_1216_fail
+ ($I12, $I11) = rx1211_cur."!mark_peek"($I10)
+ rx1211_cur."!cursor_pos"($I11)
+ ($P10) = rx1211_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1211_pos, "")
+ rx1211_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1211_done
- rxcap_1211_fail:
- goto rx1206_fail
- rxcap_1211_done:
+ goto rxcap_1216_done
+ rxcap_1216_fail:
+ goto rx1211_fail
+ rxcap_1216_done:
# rx subrule "O" subtype=capture negate=
- rx1206_cur."!cursor_pos"(rx1206_pos)
- $P10 = rx1206_cur."O"("%tight_or, :pasttype<def_or>")
- unless $P10, rx1206_fail
- rx1206_cur."!mark_push"(0, -1, 0, $P10)
+ rx1211_cur."!cursor_pos"(rx1211_pos)
+ $P10 = rx1211_cur."O"("%tight_or, :pasttype<def_or>")
+ unless $P10, rx1211_fail
+ rx1211_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1206_pos = $P10."pos"()
+ rx1211_pos = $P10."pos"()
# rx pass
- rx1206_cur."!cursor_pass"(rx1206_pos, "infix:sym<//>")
- rx1206_cur."!cursor_debug"("PASS ", "infix:sym<//>", " at pos=", rx1206_pos)
- .return (rx1206_cur)
- rx1206_fail:
-.annotate 'line', 431
- (rx1206_rep, rx1206_pos, $I10, $P10) = rx1206_cur."!mark_fail"(0)
- lt rx1206_pos, -1, rx1206_done
- eq rx1206_pos, -1, rx1206_fail
- jump $I10
- rx1206_done:
- rx1206_cur."!cursor_fail"()
- rx1206_cur."!cursor_debug"("FAIL ", "infix:sym<//>")
- .return (rx1206_cur)
+ rx1211_cur."!cursor_pass"(rx1211_pos, "infix:sym<//>")
+ rx1211_cur."!cursor_debug"("PASS ", "infix:sym<//>", " at pos=", rx1211_pos)
+ .return (rx1211_cur)
+ rx1211_fail:
+.annotate 'line', 433
+ (rx1211_rep, rx1211_pos, $I10, $P10) = rx1211_cur."!mark_fail"(0)
+ lt rx1211_pos, -1, rx1211_done
+ eq rx1211_pos, -1, rx1211_fail
+ jump $I10
+ rx1211_done:
+ rx1211_cur."!cursor_fail"()
+ rx1211_cur."!cursor_debug"("FAIL ", "infix:sym<//>")
+ .return (rx1211_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<//>" :subid("308_1274564776.41408") :method
-.annotate 'line', 431
- $P1208 = self."!PREFIX__!subrule"("O", "//")
- new $P1209, "ResizablePMCArray"
- push $P1209, $P1208
- .return ($P1209)
+.sub "!PREFIX__infix:sym<//>" :subid("310_1275117591.97262") :method
+.annotate 'line', 433
+ $P1213 = self."!PREFIX__!subrule"("O", "//")
+ new $P1214, "ResizablePMCArray"
+ push $P1214, $P1213
+ .return ($P1214)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<?? !!>" :subid("309_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1213_tgt
- .local int rx1213_pos
- .local int rx1213_off
- .local int rx1213_eos
- .local int rx1213_rep
- .local pmc rx1213_cur
- (rx1213_cur, rx1213_pos, rx1213_tgt) = self."!cursor_start"()
- rx1213_cur."!cursor_debug"("START ", "infix:sym<?? !!>")
- .lex unicode:"$\x{a2}", rx1213_cur
- .local pmc match
- .lex "$/", match
- length rx1213_eos, rx1213_tgt
- set rx1213_off, 0
- lt rx1213_pos, 2, rx1213_start
- sub rx1213_off, rx1213_pos, 1
- substr rx1213_tgt, rx1213_tgt, rx1213_off
- rx1213_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1217_done
- goto rxscan1217_scan
- rxscan1217_loop:
- ($P10) = rx1213_cur."from"()
- inc $P10
- set rx1213_pos, $P10
- ge rx1213_pos, rx1213_eos, rxscan1217_done
- rxscan1217_scan:
- set_addr $I10, rxscan1217_loop
- rx1213_cur."!mark_push"(0, rx1213_pos, $I10)
- rxscan1217_done:
-.annotate 'line', 521
+.sub "infix:sym<?? !!>" :subid("311_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1218_tgt
+ .local int rx1218_pos
+ .local int rx1218_off
+ .local int rx1218_eos
+ .local int rx1218_rep
+ .local pmc rx1218_cur
+ (rx1218_cur, rx1218_pos, rx1218_tgt) = self."!cursor_start"()
+ rx1218_cur."!cursor_debug"("START ", "infix:sym<?? !!>")
+ .lex unicode:"$\x{a2}", rx1218_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1218_eos, rx1218_tgt
+ set rx1218_off, 0
+ lt rx1218_pos, 2, rx1218_start
+ sub rx1218_off, rx1218_pos, 1
+ substr rx1218_tgt, rx1218_tgt, rx1218_off
+ rx1218_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1222_done
+ goto rxscan1222_scan
+ rxscan1222_loop:
+ ($P10) = rx1218_cur."from"()
+ inc $P10
+ set rx1218_pos, $P10
+ ge rx1218_pos, rx1218_eos, rxscan1222_done
+ rxscan1222_scan:
+ set_addr $I10, rxscan1222_loop
+ rx1218_cur."!mark_push"(0, rx1218_pos, $I10)
+ rxscan1222_done:
+.annotate 'line', 523
# rx literal "??"
- add $I11, rx1213_pos, 2
- gt $I11, rx1213_eos, rx1213_fail
- sub $I11, rx1213_pos, rx1213_off
- substr $S10, rx1213_tgt, $I11, 2
- ne $S10, "??", rx1213_fail
- add rx1213_pos, 2
-.annotate 'line', 522
+ add $I11, rx1218_pos, 2
+ gt $I11, rx1218_eos, rx1218_fail
+ sub $I11, rx1218_pos, rx1218_off
+ substr $S10, rx1218_tgt, $I11, 2
+ ne $S10, "??", rx1218_fail
+ add rx1218_pos, 2
+.annotate 'line', 524
# rx subrule "ws" subtype=method negate=
- rx1213_cur."!cursor_pos"(rx1213_pos)
- $P10 = rx1213_cur."ws"()
- unless $P10, rx1213_fail
- rx1213_pos = $P10."pos"()
-.annotate 'line', 523
+ rx1218_cur."!cursor_pos"(rx1218_pos)
+ $P10 = rx1218_cur."ws"()
+ unless $P10, rx1218_fail
+ rx1218_pos = $P10."pos"()
+.annotate 'line', 525
# rx subrule "EXPR" subtype=capture negate=
- rx1213_cur."!cursor_pos"(rx1213_pos)
- $P10 = rx1213_cur."EXPR"("i=")
- unless $P10, rx1213_fail
- rx1213_cur."!mark_push"(0, -1, 0, $P10)
+ rx1218_cur."!cursor_pos"(rx1218_pos)
+ $P10 = rx1218_cur."EXPR"("i=")
+ unless $P10, rx1218_fail
+ rx1218_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx1213_pos = $P10."pos"()
-.annotate 'line', 524
+ rx1218_pos = $P10."pos"()
+.annotate 'line', 526
# rx literal "!!"
- add $I11, rx1213_pos, 2
- gt $I11, rx1213_eos, rx1213_fail
- sub $I11, rx1213_pos, rx1213_off
- substr $S10, rx1213_tgt, $I11, 2
- ne $S10, "!!", rx1213_fail
- add rx1213_pos, 2
-.annotate 'line', 525
+ add $I11, rx1218_pos, 2
+ gt $I11, rx1218_eos, rx1218_fail
+ sub $I11, rx1218_pos, rx1218_off
+ substr $S10, rx1218_tgt, $I11, 2
+ ne $S10, "!!", rx1218_fail
+ add rx1218_pos, 2
+.annotate 'line', 527
# rx subrule "O" subtype=capture negate=
- rx1213_cur."!cursor_pos"(rx1213_pos)
- $P10 = rx1213_cur."O"("%conditional, :reducecheck<ternary>, :pasttype<if>")
- unless $P10, rx1213_fail
- rx1213_cur."!mark_push"(0, -1, 0, $P10)
+ rx1218_cur."!cursor_pos"(rx1218_pos)
+ $P10 = rx1218_cur."O"("%conditional, :reducecheck<ternary>, :pasttype<if>")
+ unless $P10, rx1218_fail
+ rx1218_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1213_pos = $P10."pos"()
-.annotate 'line', 520
+ rx1218_pos = $P10."pos"()
+.annotate 'line', 522
# rx pass
- rx1213_cur."!cursor_pass"(rx1213_pos, "infix:sym<?? !!>")
- rx1213_cur."!cursor_debug"("PASS ", "infix:sym<?? !!>", " at pos=", rx1213_pos)
- .return (rx1213_cur)
- rx1213_fail:
-.annotate 'line', 431
- (rx1213_rep, rx1213_pos, $I10, $P10) = rx1213_cur."!mark_fail"(0)
- lt rx1213_pos, -1, rx1213_done
- eq rx1213_pos, -1, rx1213_fail
- jump $I10
- rx1213_done:
- rx1213_cur."!cursor_fail"()
- rx1213_cur."!cursor_debug"("FAIL ", "infix:sym<?? !!>")
- .return (rx1213_cur)
+ rx1218_cur."!cursor_pass"(rx1218_pos, "infix:sym<?? !!>")
+ rx1218_cur."!cursor_debug"("PASS ", "infix:sym<?? !!>", " at pos=", rx1218_pos)
+ .return (rx1218_cur)
+ rx1218_fail:
+.annotate 'line', 433
+ (rx1218_rep, rx1218_pos, $I10, $P10) = rx1218_cur."!mark_fail"(0)
+ lt rx1218_pos, -1, rx1218_done
+ eq rx1218_pos, -1, rx1218_fail
+ jump $I10
+ rx1218_done:
+ rx1218_cur."!cursor_fail"()
+ rx1218_cur."!cursor_debug"("FAIL ", "infix:sym<?? !!>")
+ .return (rx1218_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<?? !!>" :subid("310_1274564776.41408") :method
-.annotate 'line', 431
- $P1215 = self."!PREFIX__!subrule"("", "??")
- new $P1216, "ResizablePMCArray"
- push $P1216, $P1215
- .return ($P1216)
+.sub "!PREFIX__infix:sym<?? !!>" :subid("312_1275117591.97262") :method
+.annotate 'line', 433
+ $P1220 = self."!PREFIX__!subrule"("", "??")
+ new $P1221, "ResizablePMCArray"
+ push $P1221, $P1220
+ .return ($P1221)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<=>" :subid("311_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1219_tgt
- .local int rx1219_pos
- .local int rx1219_off
- .local int rx1219_eos
- .local int rx1219_rep
- .local pmc rx1219_cur
- (rx1219_cur, rx1219_pos, rx1219_tgt) = self."!cursor_start"()
- rx1219_cur."!cursor_debug"("START ", "infix:sym<=>")
- .lex unicode:"$\x{a2}", rx1219_cur
- .local pmc match
- .lex "$/", match
- length rx1219_eos, rx1219_tgt
- set rx1219_off, 0
- lt rx1219_pos, 2, rx1219_start
- sub rx1219_off, rx1219_pos, 1
- substr rx1219_tgt, rx1219_tgt, rx1219_off
- rx1219_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1223_done
- goto rxscan1223_scan
- rxscan1223_loop:
- ($P10) = rx1219_cur."from"()
- inc $P10
- set rx1219_pos, $P10
- ge rx1219_pos, rx1219_eos, rxscan1223_done
- rxscan1223_scan:
- set_addr $I10, rxscan1223_loop
- rx1219_cur."!mark_push"(0, rx1219_pos, $I10)
- rxscan1223_done:
-.annotate 'line', 529
+.sub "infix:sym<=>" :subid("313_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1224_tgt
+ .local int rx1224_pos
+ .local int rx1224_off
+ .local int rx1224_eos
+ .local int rx1224_rep
+ .local pmc rx1224_cur
+ (rx1224_cur, rx1224_pos, rx1224_tgt) = self."!cursor_start"()
+ rx1224_cur."!cursor_debug"("START ", "infix:sym<=>")
+ .lex unicode:"$\x{a2}", rx1224_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1224_eos, rx1224_tgt
+ set rx1224_off, 0
+ lt rx1224_pos, 2, rx1224_start
+ sub rx1224_off, rx1224_pos, 1
+ substr rx1224_tgt, rx1224_tgt, rx1224_off
+ rx1224_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1228_done
+ goto rxscan1228_scan
+ rxscan1228_loop:
+ ($P10) = rx1224_cur."from"()
+ inc $P10
+ set rx1224_pos, $P10
+ ge rx1224_pos, rx1224_eos, rxscan1228_done
+ rxscan1228_scan:
+ set_addr $I10, rxscan1228_loop
+ rx1224_cur."!mark_push"(0, rx1224_pos, $I10)
+ rxscan1228_done:
+.annotate 'line', 531
# rx subcapture "sym"
- set_addr $I10, rxcap_1224_fail
- rx1219_cur."!mark_push"(0, rx1219_pos, $I10)
+ set_addr $I10, rxcap_1229_fail
+ rx1224_cur."!mark_push"(0, rx1224_pos, $I10)
# rx literal "="
- add $I11, rx1219_pos, 1
- gt $I11, rx1219_eos, rx1219_fail
- sub $I11, rx1219_pos, rx1219_off
- substr $S10, rx1219_tgt, $I11, 1
- ne $S10, "=", rx1219_fail
- add rx1219_pos, 1
- set_addr $I10, rxcap_1224_fail
- ($I12, $I11) = rx1219_cur."!mark_peek"($I10)
- rx1219_cur."!cursor_pos"($I11)
- ($P10) = rx1219_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1219_pos, "")
- rx1219_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1224_pos, 1
+ gt $I11, rx1224_eos, rx1224_fail
+ sub $I11, rx1224_pos, rx1224_off
+ substr $S10, rx1224_tgt, $I11, 1
+ ne $S10, "=", rx1224_fail
+ add rx1224_pos, 1
+ set_addr $I10, rxcap_1229_fail
+ ($I12, $I11) = rx1224_cur."!mark_peek"($I10)
+ rx1224_cur."!cursor_pos"($I11)
+ ($P10) = rx1224_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1224_pos, "")
+ rx1224_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1224_done
- rxcap_1224_fail:
- goto rx1219_fail
- rxcap_1224_done:
+ goto rxcap_1229_done
+ rxcap_1229_fail:
+ goto rx1224_fail
+ rxcap_1229_done:
# rx subrule "panic" subtype=method negate=
- rx1219_cur."!cursor_pos"(rx1219_pos)
- $P10 = rx1219_cur."panic"("Assignment (\"=\") not supported in NQP, use \":=\" instead")
- unless $P10, rx1219_fail
- rx1219_pos = $P10."pos"()
-.annotate 'line', 528
- # rx pass
- rx1219_cur."!cursor_pass"(rx1219_pos, "infix:sym<=>")
- rx1219_cur."!cursor_debug"("PASS ", "infix:sym<=>", " at pos=", rx1219_pos)
- .return (rx1219_cur)
- rx1219_fail:
-.annotate 'line', 431
- (rx1219_rep, rx1219_pos, $I10, $P10) = rx1219_cur."!mark_fail"(0)
- lt rx1219_pos, -1, rx1219_done
- eq rx1219_pos, -1, rx1219_fail
- jump $I10
- rx1219_done:
- rx1219_cur."!cursor_fail"()
- rx1219_cur."!cursor_debug"("FAIL ", "infix:sym<=>")
- .return (rx1219_cur)
+ rx1224_cur."!cursor_pos"(rx1224_pos)
+ $P10 = rx1224_cur."panic"("Assignment (\"=\") not supported in NQP, use \":=\" instead")
+ unless $P10, rx1224_fail
+ rx1224_pos = $P10."pos"()
+.annotate 'line', 530
+ # rx pass
+ rx1224_cur."!cursor_pass"(rx1224_pos, "infix:sym<=>")
+ rx1224_cur."!cursor_debug"("PASS ", "infix:sym<=>", " at pos=", rx1224_pos)
+ .return (rx1224_cur)
+ rx1224_fail:
+.annotate 'line', 433
+ (rx1224_rep, rx1224_pos, $I10, $P10) = rx1224_cur."!mark_fail"(0)
+ lt rx1224_pos, -1, rx1224_done
+ eq rx1224_pos, -1, rx1224_fail
+ jump $I10
+ rx1224_done:
+ rx1224_cur."!cursor_fail"()
+ rx1224_cur."!cursor_debug"("FAIL ", "infix:sym<=>")
+ .return (rx1224_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<=>" :subid("312_1274564776.41408") :method
-.annotate 'line', 431
- $P1221 = self."!PREFIX__!subrule"("", "=")
- new $P1222, "ResizablePMCArray"
- push $P1222, $P1221
- .return ($P1222)
+.sub "!PREFIX__infix:sym<=>" :subid("314_1275117591.97262") :method
+.annotate 'line', 433
+ $P1226 = self."!PREFIX__!subrule"("", "=")
+ new $P1227, "ResizablePMCArray"
+ push $P1227, $P1226
+ .return ($P1227)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<:=>" :subid("313_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1226_tgt
- .local int rx1226_pos
- .local int rx1226_off
- .local int rx1226_eos
- .local int rx1226_rep
- .local pmc rx1226_cur
- (rx1226_cur, rx1226_pos, rx1226_tgt) = self."!cursor_start"()
- rx1226_cur."!cursor_debug"("START ", "infix:sym<:=>")
- .lex unicode:"$\x{a2}", rx1226_cur
- .local pmc match
- .lex "$/", match
- length rx1226_eos, rx1226_tgt
- set rx1226_off, 0
- lt rx1226_pos, 2, rx1226_start
- sub rx1226_off, rx1226_pos, 1
- substr rx1226_tgt, rx1226_tgt, rx1226_off
- rx1226_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1230_done
- goto rxscan1230_scan
- rxscan1230_loop:
- ($P10) = rx1226_cur."from"()
- inc $P10
- set rx1226_pos, $P10
- ge rx1226_pos, rx1226_eos, rxscan1230_done
- rxscan1230_scan:
- set_addr $I10, rxscan1230_loop
- rx1226_cur."!mark_push"(0, rx1226_pos, $I10)
- rxscan1230_done:
-.annotate 'line', 531
+.sub "infix:sym<:=>" :subid("315_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1231_tgt
+ .local int rx1231_pos
+ .local int rx1231_off
+ .local int rx1231_eos
+ .local int rx1231_rep
+ .local pmc rx1231_cur
+ (rx1231_cur, rx1231_pos, rx1231_tgt) = self."!cursor_start"()
+ rx1231_cur."!cursor_debug"("START ", "infix:sym<:=>")
+ .lex unicode:"$\x{a2}", rx1231_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1231_eos, rx1231_tgt
+ set rx1231_off, 0
+ lt rx1231_pos, 2, rx1231_start
+ sub rx1231_off, rx1231_pos, 1
+ substr rx1231_tgt, rx1231_tgt, rx1231_off
+ rx1231_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1235_done
+ goto rxscan1235_scan
+ rxscan1235_loop:
+ ($P10) = rx1231_cur."from"()
+ inc $P10
+ set rx1231_pos, $P10
+ ge rx1231_pos, rx1231_eos, rxscan1235_done
+ rxscan1235_scan:
+ set_addr $I10, rxscan1235_loop
+ rx1231_cur."!mark_push"(0, rx1231_pos, $I10)
+ rxscan1235_done:
+.annotate 'line', 533
# rx subcapture "sym"
- set_addr $I10, rxcap_1231_fail
- rx1226_cur."!mark_push"(0, rx1226_pos, $I10)
+ set_addr $I10, rxcap_1236_fail
+ rx1231_cur."!mark_push"(0, rx1231_pos, $I10)
# rx literal ":="
- add $I11, rx1226_pos, 2
- gt $I11, rx1226_eos, rx1226_fail
- sub $I11, rx1226_pos, rx1226_off
- substr $S10, rx1226_tgt, $I11, 2
- ne $S10, ":=", rx1226_fail
- add rx1226_pos, 2
- set_addr $I10, rxcap_1231_fail
- ($I12, $I11) = rx1226_cur."!mark_peek"($I10)
- rx1226_cur."!cursor_pos"($I11)
- ($P10) = rx1226_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1226_pos, "")
- rx1226_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1231_pos, 2
+ gt $I11, rx1231_eos, rx1231_fail
+ sub $I11, rx1231_pos, rx1231_off
+ substr $S10, rx1231_tgt, $I11, 2
+ ne $S10, ":=", rx1231_fail
+ add rx1231_pos, 2
+ set_addr $I10, rxcap_1236_fail
+ ($I12, $I11) = rx1231_cur."!mark_peek"($I10)
+ rx1231_cur."!cursor_pos"($I11)
+ ($P10) = rx1231_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1231_pos, "")
+ rx1231_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1231_done
- rxcap_1231_fail:
- goto rx1226_fail
- rxcap_1231_done:
+ goto rxcap_1236_done
+ rxcap_1236_fail:
+ goto rx1231_fail
+ rxcap_1236_done:
# rx subrule "O" subtype=capture negate=
- rx1226_cur."!cursor_pos"(rx1226_pos)
- $P10 = rx1226_cur."O"("%assignment, :pasttype<bind>")
- unless $P10, rx1226_fail
- rx1226_cur."!mark_push"(0, -1, 0, $P10)
+ rx1231_cur."!cursor_pos"(rx1231_pos)
+ $P10 = rx1231_cur."O"("%assignment, :pasttype<bind>")
+ unless $P10, rx1231_fail
+ rx1231_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1226_pos = $P10."pos"()
+ rx1231_pos = $P10."pos"()
# rx pass
- rx1226_cur."!cursor_pass"(rx1226_pos, "infix:sym<:=>")
- rx1226_cur."!cursor_debug"("PASS ", "infix:sym<:=>", " at pos=", rx1226_pos)
- .return (rx1226_cur)
- rx1226_fail:
-.annotate 'line', 431
- (rx1226_rep, rx1226_pos, $I10, $P10) = rx1226_cur."!mark_fail"(0)
- lt rx1226_pos, -1, rx1226_done
- eq rx1226_pos, -1, rx1226_fail
- jump $I10
- rx1226_done:
- rx1226_cur."!cursor_fail"()
- rx1226_cur."!cursor_debug"("FAIL ", "infix:sym<:=>")
- .return (rx1226_cur)
+ rx1231_cur."!cursor_pass"(rx1231_pos, "infix:sym<:=>")
+ rx1231_cur."!cursor_debug"("PASS ", "infix:sym<:=>", " at pos=", rx1231_pos)
+ .return (rx1231_cur)
+ rx1231_fail:
+.annotate 'line', 433
+ (rx1231_rep, rx1231_pos, $I10, $P10) = rx1231_cur."!mark_fail"(0)
+ lt rx1231_pos, -1, rx1231_done
+ eq rx1231_pos, -1, rx1231_fail
+ jump $I10
+ rx1231_done:
+ rx1231_cur."!cursor_fail"()
+ rx1231_cur."!cursor_debug"("FAIL ", "infix:sym<:=>")
+ .return (rx1231_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<:=>" :subid("314_1274564776.41408") :method
-.annotate 'line', 431
- $P1228 = self."!PREFIX__!subrule"("O", ":=")
- new $P1229, "ResizablePMCArray"
- push $P1229, $P1228
- .return ($P1229)
+.sub "!PREFIX__infix:sym<:=>" :subid("316_1275117591.97262") :method
+.annotate 'line', 433
+ $P1233 = self."!PREFIX__!subrule"("O", ":=")
+ new $P1234, "ResizablePMCArray"
+ push $P1234, $P1233
+ .return ($P1234)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<::=>" :subid("315_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1233_tgt
- .local int rx1233_pos
- .local int rx1233_off
- .local int rx1233_eos
- .local int rx1233_rep
- .local pmc rx1233_cur
- (rx1233_cur, rx1233_pos, rx1233_tgt) = self."!cursor_start"()
- rx1233_cur."!cursor_debug"("START ", "infix:sym<::=>")
- .lex unicode:"$\x{a2}", rx1233_cur
- .local pmc match
- .lex "$/", match
- length rx1233_eos, rx1233_tgt
- set rx1233_off, 0
- lt rx1233_pos, 2, rx1233_start
- sub rx1233_off, rx1233_pos, 1
- substr rx1233_tgt, rx1233_tgt, rx1233_off
- rx1233_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1237_done
- goto rxscan1237_scan
- rxscan1237_loop:
- ($P10) = rx1233_cur."from"()
- inc $P10
- set rx1233_pos, $P10
- ge rx1233_pos, rx1233_eos, rxscan1237_done
- rxscan1237_scan:
- set_addr $I10, rxscan1237_loop
- rx1233_cur."!mark_push"(0, rx1233_pos, $I10)
- rxscan1237_done:
-.annotate 'line', 532
+.sub "infix:sym<::=>" :subid("317_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1238_tgt
+ .local int rx1238_pos
+ .local int rx1238_off
+ .local int rx1238_eos
+ .local int rx1238_rep
+ .local pmc rx1238_cur
+ (rx1238_cur, rx1238_pos, rx1238_tgt) = self."!cursor_start"()
+ rx1238_cur."!cursor_debug"("START ", "infix:sym<::=>")
+ .lex unicode:"$\x{a2}", rx1238_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1238_eos, rx1238_tgt
+ set rx1238_off, 0
+ lt rx1238_pos, 2, rx1238_start
+ sub rx1238_off, rx1238_pos, 1
+ substr rx1238_tgt, rx1238_tgt, rx1238_off
+ rx1238_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1242_done
+ goto rxscan1242_scan
+ rxscan1242_loop:
+ ($P10) = rx1238_cur."from"()
+ inc $P10
+ set rx1238_pos, $P10
+ ge rx1238_pos, rx1238_eos, rxscan1242_done
+ rxscan1242_scan:
+ set_addr $I10, rxscan1242_loop
+ rx1238_cur."!mark_push"(0, rx1238_pos, $I10)
+ rxscan1242_done:
+.annotate 'line', 534
# rx subcapture "sym"
- set_addr $I10, rxcap_1238_fail
- rx1233_cur."!mark_push"(0, rx1233_pos, $I10)
+ set_addr $I10, rxcap_1243_fail
+ rx1238_cur."!mark_push"(0, rx1238_pos, $I10)
# rx literal "::="
- add $I11, rx1233_pos, 3
- gt $I11, rx1233_eos, rx1233_fail
- sub $I11, rx1233_pos, rx1233_off
- substr $S10, rx1233_tgt, $I11, 3
- ne $S10, "::=", rx1233_fail
- add rx1233_pos, 3
- set_addr $I10, rxcap_1238_fail
- ($I12, $I11) = rx1233_cur."!mark_peek"($I10)
- rx1233_cur."!cursor_pos"($I11)
- ($P10) = rx1233_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1233_pos, "")
- rx1233_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1238_pos, 3
+ gt $I11, rx1238_eos, rx1238_fail
+ sub $I11, rx1238_pos, rx1238_off
+ substr $S10, rx1238_tgt, $I11, 3
+ ne $S10, "::=", rx1238_fail
+ add rx1238_pos, 3
+ set_addr $I10, rxcap_1243_fail
+ ($I12, $I11) = rx1238_cur."!mark_peek"($I10)
+ rx1238_cur."!cursor_pos"($I11)
+ ($P10) = rx1238_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1238_pos, "")
+ rx1238_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1238_done
- rxcap_1238_fail:
- goto rx1233_fail
- rxcap_1238_done:
+ goto rxcap_1243_done
+ rxcap_1243_fail:
+ goto rx1238_fail
+ rxcap_1243_done:
# rx subrule "O" subtype=capture negate=
- rx1233_cur."!cursor_pos"(rx1233_pos)
- $P10 = rx1233_cur."O"("%assignment, :pasttype<bind>")
- unless $P10, rx1233_fail
- rx1233_cur."!mark_push"(0, -1, 0, $P10)
+ rx1238_cur."!cursor_pos"(rx1238_pos)
+ $P10 = rx1238_cur."O"("%assignment, :pasttype<bind>")
+ unless $P10, rx1238_fail
+ rx1238_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1233_pos = $P10."pos"()
+ rx1238_pos = $P10."pos"()
# rx pass
- rx1233_cur."!cursor_pass"(rx1233_pos, "infix:sym<::=>")
- rx1233_cur."!cursor_debug"("PASS ", "infix:sym<::=>", " at pos=", rx1233_pos)
- .return (rx1233_cur)
- rx1233_fail:
-.annotate 'line', 431
- (rx1233_rep, rx1233_pos, $I10, $P10) = rx1233_cur."!mark_fail"(0)
- lt rx1233_pos, -1, rx1233_done
- eq rx1233_pos, -1, rx1233_fail
- jump $I10
- rx1233_done:
- rx1233_cur."!cursor_fail"()
- rx1233_cur."!cursor_debug"("FAIL ", "infix:sym<::=>")
- .return (rx1233_cur)
+ rx1238_cur."!cursor_pass"(rx1238_pos, "infix:sym<::=>")
+ rx1238_cur."!cursor_debug"("PASS ", "infix:sym<::=>", " at pos=", rx1238_pos)
+ .return (rx1238_cur)
+ rx1238_fail:
+.annotate 'line', 433
+ (rx1238_rep, rx1238_pos, $I10, $P10) = rx1238_cur."!mark_fail"(0)
+ lt rx1238_pos, -1, rx1238_done
+ eq rx1238_pos, -1, rx1238_fail
+ jump $I10
+ rx1238_done:
+ rx1238_cur."!cursor_fail"()
+ rx1238_cur."!cursor_debug"("FAIL ", "infix:sym<::=>")
+ .return (rx1238_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<::=>" :subid("316_1274564776.41408") :method
-.annotate 'line', 431
- $P1235 = self."!PREFIX__!subrule"("O", "::=")
- new $P1236, "ResizablePMCArray"
- push $P1236, $P1235
- .return ($P1236)
+.sub "!PREFIX__infix:sym<::=>" :subid("318_1275117591.97262") :method
+.annotate 'line', 433
+ $P1240 = self."!PREFIX__!subrule"("O", "::=")
+ new $P1241, "ResizablePMCArray"
+ push $P1241, $P1240
+ .return ($P1241)
.end
.namespace ["NQP";"Grammar"]
-.sub "infix:sym<,>" :subid("317_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1240_tgt
- .local int rx1240_pos
- .local int rx1240_off
- .local int rx1240_eos
- .local int rx1240_rep
- .local pmc rx1240_cur
- (rx1240_cur, rx1240_pos, rx1240_tgt) = self."!cursor_start"()
- rx1240_cur."!cursor_debug"("START ", "infix:sym<,>")
- .lex unicode:"$\x{a2}", rx1240_cur
- .local pmc match
- .lex "$/", match
- length rx1240_eos, rx1240_tgt
- set rx1240_off, 0
- lt rx1240_pos, 2, rx1240_start
- sub rx1240_off, rx1240_pos, 1
- substr rx1240_tgt, rx1240_tgt, rx1240_off
- rx1240_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1244_done
- goto rxscan1244_scan
- rxscan1244_loop:
- ($P10) = rx1240_cur."from"()
- inc $P10
- set rx1240_pos, $P10
- ge rx1240_pos, rx1240_eos, rxscan1244_done
- rxscan1244_scan:
- set_addr $I10, rxscan1244_loop
- rx1240_cur."!mark_push"(0, rx1240_pos, $I10)
- rxscan1244_done:
-.annotate 'line', 534
+.sub "infix:sym<,>" :subid("319_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1245_tgt
+ .local int rx1245_pos
+ .local int rx1245_off
+ .local int rx1245_eos
+ .local int rx1245_rep
+ .local pmc rx1245_cur
+ (rx1245_cur, rx1245_pos, rx1245_tgt) = self."!cursor_start"()
+ rx1245_cur."!cursor_debug"("START ", "infix:sym<,>")
+ .lex unicode:"$\x{a2}", rx1245_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1245_eos, rx1245_tgt
+ set rx1245_off, 0
+ lt rx1245_pos, 2, rx1245_start
+ sub rx1245_off, rx1245_pos, 1
+ substr rx1245_tgt, rx1245_tgt, rx1245_off
+ rx1245_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1249_done
+ goto rxscan1249_scan
+ rxscan1249_loop:
+ ($P10) = rx1245_cur."from"()
+ inc $P10
+ set rx1245_pos, $P10
+ ge rx1245_pos, rx1245_eos, rxscan1249_done
+ rxscan1249_scan:
+ set_addr $I10, rxscan1249_loop
+ rx1245_cur."!mark_push"(0, rx1245_pos, $I10)
+ rxscan1249_done:
+.annotate 'line', 536
# rx subcapture "sym"
- set_addr $I10, rxcap_1245_fail
- rx1240_cur."!mark_push"(0, rx1240_pos, $I10)
+ set_addr $I10, rxcap_1250_fail
+ rx1245_cur."!mark_push"(0, rx1245_pos, $I10)
# rx literal ","
- add $I11, rx1240_pos, 1
- gt $I11, rx1240_eos, rx1240_fail
- sub $I11, rx1240_pos, rx1240_off
- substr $S10, rx1240_tgt, $I11, 1
- ne $S10, ",", rx1240_fail
- add rx1240_pos, 1
- set_addr $I10, rxcap_1245_fail
- ($I12, $I11) = rx1240_cur."!mark_peek"($I10)
- rx1240_cur."!cursor_pos"($I11)
- ($P10) = rx1240_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1240_pos, "")
- rx1240_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1245_pos, 1
+ gt $I11, rx1245_eos, rx1245_fail
+ sub $I11, rx1245_pos, rx1245_off
+ substr $S10, rx1245_tgt, $I11, 1
+ ne $S10, ",", rx1245_fail
+ add rx1245_pos, 1
+ set_addr $I10, rxcap_1250_fail
+ ($I12, $I11) = rx1245_cur."!mark_peek"($I10)
+ rx1245_cur."!cursor_pos"($I11)
+ ($P10) = rx1245_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1245_pos, "")
+ rx1245_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1245_done
- rxcap_1245_fail:
- goto rx1240_fail
- rxcap_1245_done:
+ goto rxcap_1250_done
+ rxcap_1250_fail:
+ goto rx1245_fail
+ rxcap_1250_done:
# rx subrule "O" subtype=capture negate=
- rx1240_cur."!cursor_pos"(rx1240_pos)
- $P10 = rx1240_cur."O"("%comma, :pasttype<list>")
- unless $P10, rx1240_fail
- rx1240_cur."!mark_push"(0, -1, 0, $P10)
+ rx1245_cur."!cursor_pos"(rx1245_pos)
+ $P10 = rx1245_cur."O"("%comma, :pasttype<list>")
+ unless $P10, rx1245_fail
+ rx1245_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1240_pos = $P10."pos"()
+ rx1245_pos = $P10."pos"()
# rx pass
- rx1240_cur."!cursor_pass"(rx1240_pos, "infix:sym<,>")
- rx1240_cur."!cursor_debug"("PASS ", "infix:sym<,>", " at pos=", rx1240_pos)
- .return (rx1240_cur)
- rx1240_fail:
-.annotate 'line', 431
- (rx1240_rep, rx1240_pos, $I10, $P10) = rx1240_cur."!mark_fail"(0)
- lt rx1240_pos, -1, rx1240_done
- eq rx1240_pos, -1, rx1240_fail
+ rx1245_cur."!cursor_pass"(rx1245_pos, "infix:sym<,>")
+ rx1245_cur."!cursor_debug"("PASS ", "infix:sym<,>", " at pos=", rx1245_pos)
+ .return (rx1245_cur)
+ rx1245_fail:
+.annotate 'line', 433
+ (rx1245_rep, rx1245_pos, $I10, $P10) = rx1245_cur."!mark_fail"(0)
+ lt rx1245_pos, -1, rx1245_done
+ eq rx1245_pos, -1, rx1245_fail
jump $I10
- rx1240_done:
- rx1240_cur."!cursor_fail"()
- rx1240_cur."!cursor_debug"("FAIL ", "infix:sym<,>")
- .return (rx1240_cur)
+ rx1245_done:
+ rx1245_cur."!cursor_fail"()
+ rx1245_cur."!cursor_debug"("FAIL ", "infix:sym<,>")
+ .return (rx1245_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<,>" :subid("318_1274564776.41408") :method
-.annotate 'line', 431
- $P1242 = self."!PREFIX__!subrule"("O", ",")
- new $P1243, "ResizablePMCArray"
- push $P1243, $P1242
- .return ($P1243)
+.sub "!PREFIX__infix:sym<,>" :subid("320_1275117591.97262") :method
+.annotate 'line', 433
+ $P1247 = self."!PREFIX__!subrule"("O", ",")
+ new $P1248, "ResizablePMCArray"
+ push $P1248, $P1247
+ .return ($P1248)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<return>" :subid("319_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1247_tgt
- .local int rx1247_pos
- .local int rx1247_off
- .local int rx1247_eos
- .local int rx1247_rep
- .local pmc rx1247_cur
- (rx1247_cur, rx1247_pos, rx1247_tgt) = self."!cursor_start"()
- rx1247_cur."!cursor_debug"("START ", "prefix:sym<return>")
- .lex unicode:"$\x{a2}", rx1247_cur
- .local pmc match
- .lex "$/", match
- length rx1247_eos, rx1247_tgt
- set rx1247_off, 0
- lt rx1247_pos, 2, rx1247_start
- sub rx1247_off, rx1247_pos, 1
- substr rx1247_tgt, rx1247_tgt, rx1247_off
- rx1247_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1250_done
- goto rxscan1250_scan
- rxscan1250_loop:
- ($P10) = rx1247_cur."from"()
- inc $P10
- set rx1247_pos, $P10
- ge rx1247_pos, rx1247_eos, rxscan1250_done
- rxscan1250_scan:
- set_addr $I10, rxscan1250_loop
- rx1247_cur."!mark_push"(0, rx1247_pos, $I10)
- rxscan1250_done:
-.annotate 'line', 536
+.sub "prefix:sym<return>" :subid("321_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1252_tgt
+ .local int rx1252_pos
+ .local int rx1252_off
+ .local int rx1252_eos
+ .local int rx1252_rep
+ .local pmc rx1252_cur
+ (rx1252_cur, rx1252_pos, rx1252_tgt) = self."!cursor_start"()
+ rx1252_cur."!cursor_debug"("START ", "prefix:sym<return>")
+ .lex unicode:"$\x{a2}", rx1252_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1252_eos, rx1252_tgt
+ set rx1252_off, 0
+ lt rx1252_pos, 2, rx1252_start
+ sub rx1252_off, rx1252_pos, 1
+ substr rx1252_tgt, rx1252_tgt, rx1252_off
+ rx1252_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1255_done
+ goto rxscan1255_scan
+ rxscan1255_loop:
+ ($P10) = rx1252_cur."from"()
+ inc $P10
+ set rx1252_pos, $P10
+ ge rx1252_pos, rx1252_eos, rxscan1255_done
+ rxscan1255_scan:
+ set_addr $I10, rxscan1255_loop
+ rx1252_cur."!mark_push"(0, rx1252_pos, $I10)
+ rxscan1255_done:
+.annotate 'line', 538
# rx subcapture "sym"
- set_addr $I10, rxcap_1251_fail
- rx1247_cur."!mark_push"(0, rx1247_pos, $I10)
+ set_addr $I10, rxcap_1256_fail
+ rx1252_cur."!mark_push"(0, rx1252_pos, $I10)
# rx literal "return"
- add $I11, rx1247_pos, 6
- gt $I11, rx1247_eos, rx1247_fail
- sub $I11, rx1247_pos, rx1247_off
- substr $S10, rx1247_tgt, $I11, 6
- ne $S10, "return", rx1247_fail
- add rx1247_pos, 6
- set_addr $I10, rxcap_1251_fail
- ($I12, $I11) = rx1247_cur."!mark_peek"($I10)
- rx1247_cur."!cursor_pos"($I11)
- ($P10) = rx1247_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1247_pos, "")
- rx1247_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1252_pos, 6
+ gt $I11, rx1252_eos, rx1252_fail
+ sub $I11, rx1252_pos, rx1252_off
+ substr $S10, rx1252_tgt, $I11, 6
+ ne $S10, "return", rx1252_fail
+ add rx1252_pos, 6
+ set_addr $I10, rxcap_1256_fail
+ ($I12, $I11) = rx1252_cur."!mark_peek"($I10)
+ rx1252_cur."!cursor_pos"($I11)
+ ($P10) = rx1252_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1252_pos, "")
+ rx1252_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1251_done
- rxcap_1251_fail:
- goto rx1247_fail
- rxcap_1251_done:
+ goto rxcap_1256_done
+ rxcap_1256_fail:
+ goto rx1252_fail
+ rxcap_1256_done:
# rx charclass s
- ge rx1247_pos, rx1247_eos, rx1247_fail
- sub $I10, rx1247_pos, rx1247_off
- is_cclass $I11, 32, rx1247_tgt, $I10
- unless $I11, rx1247_fail
- inc rx1247_pos
+ ge rx1252_pos, rx1252_eos, rx1252_fail
+ sub $I10, rx1252_pos, rx1252_off
+ is_cclass $I11, 32, rx1252_tgt, $I10
+ unless $I11, rx1252_fail
+ inc rx1252_pos
# rx subrule "O" subtype=capture negate=
- rx1247_cur."!cursor_pos"(rx1247_pos)
- $P10 = rx1247_cur."O"("%list_prefix, :pasttype<return>")
- unless $P10, rx1247_fail
- rx1247_cur."!mark_push"(0, -1, 0, $P10)
+ rx1252_cur."!cursor_pos"(rx1252_pos)
+ $P10 = rx1252_cur."O"("%list_prefix, :pasttype<return>")
+ unless $P10, rx1252_fail
+ rx1252_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1247_pos = $P10."pos"()
+ rx1252_pos = $P10."pos"()
# rx pass
- rx1247_cur."!cursor_pass"(rx1247_pos, "prefix:sym<return>")
- rx1247_cur."!cursor_debug"("PASS ", "prefix:sym<return>", " at pos=", rx1247_pos)
- .return (rx1247_cur)
- rx1247_fail:
-.annotate 'line', 431
- (rx1247_rep, rx1247_pos, $I10, $P10) = rx1247_cur."!mark_fail"(0)
- lt rx1247_pos, -1, rx1247_done
- eq rx1247_pos, -1, rx1247_fail
- jump $I10
- rx1247_done:
- rx1247_cur."!cursor_fail"()
- rx1247_cur."!cursor_debug"("FAIL ", "prefix:sym<return>")
- .return (rx1247_cur)
+ rx1252_cur."!cursor_pass"(rx1252_pos, "prefix:sym<return>")
+ rx1252_cur."!cursor_debug"("PASS ", "prefix:sym<return>", " at pos=", rx1252_pos)
+ .return (rx1252_cur)
+ rx1252_fail:
+.annotate 'line', 433
+ (rx1252_rep, rx1252_pos, $I10, $P10) = rx1252_cur."!mark_fail"(0)
+ lt rx1252_pos, -1, rx1252_done
+ eq rx1252_pos, -1, rx1252_fail
+ jump $I10
+ rx1252_done:
+ rx1252_cur."!cursor_fail"()
+ rx1252_cur."!cursor_debug"("FAIL ", "prefix:sym<return>")
+ .return (rx1252_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<return>" :subid("320_1274564776.41408") :method
-.annotate 'line', 431
- new $P1249, "ResizablePMCArray"
- push $P1249, "return"
- .return ($P1249)
+.sub "!PREFIX__prefix:sym<return>" :subid("322_1275117591.97262") :method
+.annotate 'line', 433
+ new $P1254, "ResizablePMCArray"
+ push $P1254, "return"
+ .return ($P1254)
.end
.namespace ["NQP";"Grammar"]
-.sub "prefix:sym<make>" :subid("321_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1253_tgt
- .local int rx1253_pos
- .local int rx1253_off
- .local int rx1253_eos
- .local int rx1253_rep
- .local pmc rx1253_cur
- (rx1253_cur, rx1253_pos, rx1253_tgt) = self."!cursor_start"()
- rx1253_cur."!cursor_debug"("START ", "prefix:sym<make>")
- .lex unicode:"$\x{a2}", rx1253_cur
- .local pmc match
- .lex "$/", match
- length rx1253_eos, rx1253_tgt
- set rx1253_off, 0
- lt rx1253_pos, 2, rx1253_start
- sub rx1253_off, rx1253_pos, 1
- substr rx1253_tgt, rx1253_tgt, rx1253_off
- rx1253_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1256_done
- goto rxscan1256_scan
- rxscan1256_loop:
- ($P10) = rx1253_cur."from"()
- inc $P10
- set rx1253_pos, $P10
- ge rx1253_pos, rx1253_eos, rxscan1256_done
- rxscan1256_scan:
- set_addr $I10, rxscan1256_loop
- rx1253_cur."!mark_push"(0, rx1253_pos, $I10)
- rxscan1256_done:
-.annotate 'line', 537
+.sub "prefix:sym<make>" :subid("323_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1258_tgt
+ .local int rx1258_pos
+ .local int rx1258_off
+ .local int rx1258_eos
+ .local int rx1258_rep
+ .local pmc rx1258_cur
+ (rx1258_cur, rx1258_pos, rx1258_tgt) = self."!cursor_start"()
+ rx1258_cur."!cursor_debug"("START ", "prefix:sym<make>")
+ .lex unicode:"$\x{a2}", rx1258_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1258_eos, rx1258_tgt
+ set rx1258_off, 0
+ lt rx1258_pos, 2, rx1258_start
+ sub rx1258_off, rx1258_pos, 1
+ substr rx1258_tgt, rx1258_tgt, rx1258_off
+ rx1258_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1261_done
+ goto rxscan1261_scan
+ rxscan1261_loop:
+ ($P10) = rx1258_cur."from"()
+ inc $P10
+ set rx1258_pos, $P10
+ ge rx1258_pos, rx1258_eos, rxscan1261_done
+ rxscan1261_scan:
+ set_addr $I10, rxscan1261_loop
+ rx1258_cur."!mark_push"(0, rx1258_pos, $I10)
+ rxscan1261_done:
+.annotate 'line', 539
# rx subcapture "sym"
- set_addr $I10, rxcap_1257_fail
- rx1253_cur."!mark_push"(0, rx1253_pos, $I10)
+ set_addr $I10, rxcap_1262_fail
+ rx1258_cur."!mark_push"(0, rx1258_pos, $I10)
# rx literal "make"
- add $I11, rx1253_pos, 4
- gt $I11, rx1253_eos, rx1253_fail
- sub $I11, rx1253_pos, rx1253_off
- substr $S10, rx1253_tgt, $I11, 4
- ne $S10, "make", rx1253_fail
- add rx1253_pos, 4
- set_addr $I10, rxcap_1257_fail
- ($I12, $I11) = rx1253_cur."!mark_peek"($I10)
- rx1253_cur."!cursor_pos"($I11)
- ($P10) = rx1253_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1253_pos, "")
- rx1253_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1258_pos, 4
+ gt $I11, rx1258_eos, rx1258_fail
+ sub $I11, rx1258_pos, rx1258_off
+ substr $S10, rx1258_tgt, $I11, 4
+ ne $S10, "make", rx1258_fail
+ add rx1258_pos, 4
+ set_addr $I10, rxcap_1262_fail
+ ($I12, $I11) = rx1258_cur."!mark_peek"($I10)
+ rx1258_cur."!cursor_pos"($I11)
+ ($P10) = rx1258_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1258_pos, "")
+ rx1258_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1257_done
- rxcap_1257_fail:
- goto rx1253_fail
- rxcap_1257_done:
+ goto rxcap_1262_done
+ rxcap_1262_fail:
+ goto rx1258_fail
+ rxcap_1262_done:
# rx charclass s
- ge rx1253_pos, rx1253_eos, rx1253_fail
- sub $I10, rx1253_pos, rx1253_off
- is_cclass $I11, 32, rx1253_tgt, $I10
- unless $I11, rx1253_fail
- inc rx1253_pos
+ ge rx1258_pos, rx1258_eos, rx1258_fail
+ sub $I10, rx1258_pos, rx1258_off
+ is_cclass $I11, 32, rx1258_tgt, $I10
+ unless $I11, rx1258_fail
+ inc rx1258_pos
# rx subrule "O" subtype=capture negate=
- rx1253_cur."!cursor_pos"(rx1253_pos)
- $P10 = rx1253_cur."O"("%list_prefix")
- unless $P10, rx1253_fail
- rx1253_cur."!mark_push"(0, -1, 0, $P10)
+ rx1258_cur."!cursor_pos"(rx1258_pos)
+ $P10 = rx1258_cur."O"("%list_prefix")
+ unless $P10, rx1258_fail
+ rx1258_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1253_pos = $P10."pos"()
+ rx1258_pos = $P10."pos"()
# rx pass
- rx1253_cur."!cursor_pass"(rx1253_pos, "prefix:sym<make>")
- rx1253_cur."!cursor_debug"("PASS ", "prefix:sym<make>", " at pos=", rx1253_pos)
- .return (rx1253_cur)
- rx1253_fail:
-.annotate 'line', 431
- (rx1253_rep, rx1253_pos, $I10, $P10) = rx1253_cur."!mark_fail"(0)
- lt rx1253_pos, -1, rx1253_done
- eq rx1253_pos, -1, rx1253_fail
- jump $I10
- rx1253_done:
- rx1253_cur."!cursor_fail"()
- rx1253_cur."!cursor_debug"("FAIL ", "prefix:sym<make>")
- .return (rx1253_cur)
+ rx1258_cur."!cursor_pass"(rx1258_pos, "prefix:sym<make>")
+ rx1258_cur."!cursor_debug"("PASS ", "prefix:sym<make>", " at pos=", rx1258_pos)
+ .return (rx1258_cur)
+ rx1258_fail:
+.annotate 'line', 433
+ (rx1258_rep, rx1258_pos, $I10, $P10) = rx1258_cur."!mark_fail"(0)
+ lt rx1258_pos, -1, rx1258_done
+ eq rx1258_pos, -1, rx1258_fail
+ jump $I10
+ rx1258_done:
+ rx1258_cur."!cursor_fail"()
+ rx1258_cur."!cursor_debug"("FAIL ", "prefix:sym<make>")
+ .return (rx1258_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<make>" :subid("322_1274564776.41408") :method
-.annotate 'line', 431
- new $P1255, "ResizablePMCArray"
- push $P1255, "make"
- .return ($P1255)
+.sub "!PREFIX__prefix:sym<make>" :subid("324_1275117591.97262") :method
+.annotate 'line', 433
+ new $P1260, "ResizablePMCArray"
+ push $P1260, "make"
+ .return ($P1260)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<last>" :subid("323_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1259_tgt
- .local int rx1259_pos
- .local int rx1259_off
- .local int rx1259_eos
- .local int rx1259_rep
- .local pmc rx1259_cur
- (rx1259_cur, rx1259_pos, rx1259_tgt) = self."!cursor_start"()
- rx1259_cur."!cursor_debug"("START ", "term:sym<last>")
- .lex unicode:"$\x{a2}", rx1259_cur
- .local pmc match
- .lex "$/", match
- length rx1259_eos, rx1259_tgt
- set rx1259_off, 0
- lt rx1259_pos, 2, rx1259_start
- sub rx1259_off, rx1259_pos, 1
- substr rx1259_tgt, rx1259_tgt, rx1259_off
- rx1259_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1262_done
- goto rxscan1262_scan
- rxscan1262_loop:
- ($P10) = rx1259_cur."from"()
- inc $P10
- set rx1259_pos, $P10
- ge rx1259_pos, rx1259_eos, rxscan1262_done
- rxscan1262_scan:
- set_addr $I10, rxscan1262_loop
- rx1259_cur."!mark_push"(0, rx1259_pos, $I10)
- rxscan1262_done:
-.annotate 'line', 538
+.sub "term:sym<last>" :subid("325_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1264_tgt
+ .local int rx1264_pos
+ .local int rx1264_off
+ .local int rx1264_eos
+ .local int rx1264_rep
+ .local pmc rx1264_cur
+ (rx1264_cur, rx1264_pos, rx1264_tgt) = self."!cursor_start"()
+ rx1264_cur."!cursor_debug"("START ", "term:sym<last>")
+ .lex unicode:"$\x{a2}", rx1264_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1264_eos, rx1264_tgt
+ set rx1264_off, 0
+ lt rx1264_pos, 2, rx1264_start
+ sub rx1264_off, rx1264_pos, 1
+ substr rx1264_tgt, rx1264_tgt, rx1264_off
+ rx1264_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1267_done
+ goto rxscan1267_scan
+ rxscan1267_loop:
+ ($P10) = rx1264_cur."from"()
+ inc $P10
+ set rx1264_pos, $P10
+ ge rx1264_pos, rx1264_eos, rxscan1267_done
+ rxscan1267_scan:
+ set_addr $I10, rxscan1267_loop
+ rx1264_cur."!mark_push"(0, rx1264_pos, $I10)
+ rxscan1267_done:
+.annotate 'line', 540
# rx subcapture "sym"
- set_addr $I10, rxcap_1263_fail
- rx1259_cur."!mark_push"(0, rx1259_pos, $I10)
+ set_addr $I10, rxcap_1268_fail
+ rx1264_cur."!mark_push"(0, rx1264_pos, $I10)
# rx literal "last"
- add $I11, rx1259_pos, 4
- gt $I11, rx1259_eos, rx1259_fail
- sub $I11, rx1259_pos, rx1259_off
- substr $S10, rx1259_tgt, $I11, 4
- ne $S10, "last", rx1259_fail
- add rx1259_pos, 4
- set_addr $I10, rxcap_1263_fail
- ($I12, $I11) = rx1259_cur."!mark_peek"($I10)
- rx1259_cur."!cursor_pos"($I11)
- ($P10) = rx1259_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1259_pos, "")
- rx1259_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1264_pos, 4
+ gt $I11, rx1264_eos, rx1264_fail
+ sub $I11, rx1264_pos, rx1264_off
+ substr $S10, rx1264_tgt, $I11, 4
+ ne $S10, "last", rx1264_fail
+ add rx1264_pos, 4
+ set_addr $I10, rxcap_1268_fail
+ ($I12, $I11) = rx1264_cur."!mark_peek"($I10)
+ rx1264_cur."!cursor_pos"($I11)
+ ($P10) = rx1264_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1264_pos, "")
+ rx1264_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1263_done
- rxcap_1263_fail:
- goto rx1259_fail
- rxcap_1263_done:
- # rx pass
- rx1259_cur."!cursor_pass"(rx1259_pos, "term:sym<last>")
- rx1259_cur."!cursor_debug"("PASS ", "term:sym<last>", " at pos=", rx1259_pos)
- .return (rx1259_cur)
- rx1259_fail:
-.annotate 'line', 431
- (rx1259_rep, rx1259_pos, $I10, $P10) = rx1259_cur."!mark_fail"(0)
- lt rx1259_pos, -1, rx1259_done
- eq rx1259_pos, -1, rx1259_fail
- jump $I10
- rx1259_done:
- rx1259_cur."!cursor_fail"()
- rx1259_cur."!cursor_debug"("FAIL ", "term:sym<last>")
- .return (rx1259_cur)
+ goto rxcap_1268_done
+ rxcap_1268_fail:
+ goto rx1264_fail
+ rxcap_1268_done:
+ # rx pass
+ rx1264_cur."!cursor_pass"(rx1264_pos, "term:sym<last>")
+ rx1264_cur."!cursor_debug"("PASS ", "term:sym<last>", " at pos=", rx1264_pos)
+ .return (rx1264_cur)
+ rx1264_fail:
+.annotate 'line', 433
+ (rx1264_rep, rx1264_pos, $I10, $P10) = rx1264_cur."!mark_fail"(0)
+ lt rx1264_pos, -1, rx1264_done
+ eq rx1264_pos, -1, rx1264_fail
+ jump $I10
+ rx1264_done:
+ rx1264_cur."!cursor_fail"()
+ rx1264_cur."!cursor_debug"("FAIL ", "term:sym<last>")
+ .return (rx1264_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<last>" :subid("324_1274564776.41408") :method
-.annotate 'line', 431
- new $P1261, "ResizablePMCArray"
- push $P1261, "last"
- .return ($P1261)
+.sub "!PREFIX__term:sym<last>" :subid("326_1275117591.97262") :method
+.annotate 'line', 433
+ new $P1266, "ResizablePMCArray"
+ push $P1266, "last"
+ .return ($P1266)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<next>" :subid("325_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1265_tgt
- .local int rx1265_pos
- .local int rx1265_off
- .local int rx1265_eos
- .local int rx1265_rep
- .local pmc rx1265_cur
- (rx1265_cur, rx1265_pos, rx1265_tgt) = self."!cursor_start"()
- rx1265_cur."!cursor_debug"("START ", "term:sym<next>")
- .lex unicode:"$\x{a2}", rx1265_cur
- .local pmc match
- .lex "$/", match
- length rx1265_eos, rx1265_tgt
- set rx1265_off, 0
- lt rx1265_pos, 2, rx1265_start
- sub rx1265_off, rx1265_pos, 1
- substr rx1265_tgt, rx1265_tgt, rx1265_off
- rx1265_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1268_done
- goto rxscan1268_scan
- rxscan1268_loop:
- ($P10) = rx1265_cur."from"()
- inc $P10
- set rx1265_pos, $P10
- ge rx1265_pos, rx1265_eos, rxscan1268_done
- rxscan1268_scan:
- set_addr $I10, rxscan1268_loop
- rx1265_cur."!mark_push"(0, rx1265_pos, $I10)
- rxscan1268_done:
-.annotate 'line', 539
+.sub "term:sym<next>" :subid("327_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1270_tgt
+ .local int rx1270_pos
+ .local int rx1270_off
+ .local int rx1270_eos
+ .local int rx1270_rep
+ .local pmc rx1270_cur
+ (rx1270_cur, rx1270_pos, rx1270_tgt) = self."!cursor_start"()
+ rx1270_cur."!cursor_debug"("START ", "term:sym<next>")
+ .lex unicode:"$\x{a2}", rx1270_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1270_eos, rx1270_tgt
+ set rx1270_off, 0
+ lt rx1270_pos, 2, rx1270_start
+ sub rx1270_off, rx1270_pos, 1
+ substr rx1270_tgt, rx1270_tgt, rx1270_off
+ rx1270_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1273_done
+ goto rxscan1273_scan
+ rxscan1273_loop:
+ ($P10) = rx1270_cur."from"()
+ inc $P10
+ set rx1270_pos, $P10
+ ge rx1270_pos, rx1270_eos, rxscan1273_done
+ rxscan1273_scan:
+ set_addr $I10, rxscan1273_loop
+ rx1270_cur."!mark_push"(0, rx1270_pos, $I10)
+ rxscan1273_done:
+.annotate 'line', 541
# rx subcapture "sym"
- set_addr $I10, rxcap_1269_fail
- rx1265_cur."!mark_push"(0, rx1265_pos, $I10)
+ set_addr $I10, rxcap_1274_fail
+ rx1270_cur."!mark_push"(0, rx1270_pos, $I10)
# rx literal "next"
- add $I11, rx1265_pos, 4
- gt $I11, rx1265_eos, rx1265_fail
- sub $I11, rx1265_pos, rx1265_off
- substr $S10, rx1265_tgt, $I11, 4
- ne $S10, "next", rx1265_fail
- add rx1265_pos, 4
- set_addr $I10, rxcap_1269_fail
- ($I12, $I11) = rx1265_cur."!mark_peek"($I10)
- rx1265_cur."!cursor_pos"($I11)
- ($P10) = rx1265_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1265_pos, "")
- rx1265_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1270_pos, 4
+ gt $I11, rx1270_eos, rx1270_fail
+ sub $I11, rx1270_pos, rx1270_off
+ substr $S10, rx1270_tgt, $I11, 4
+ ne $S10, "next", rx1270_fail
+ add rx1270_pos, 4
+ set_addr $I10, rxcap_1274_fail
+ ($I12, $I11) = rx1270_cur."!mark_peek"($I10)
+ rx1270_cur."!cursor_pos"($I11)
+ ($P10) = rx1270_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1270_pos, "")
+ rx1270_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1269_done
- rxcap_1269_fail:
- goto rx1265_fail
- rxcap_1269_done:
- # rx pass
- rx1265_cur."!cursor_pass"(rx1265_pos, "term:sym<next>")
- rx1265_cur."!cursor_debug"("PASS ", "term:sym<next>", " at pos=", rx1265_pos)
- .return (rx1265_cur)
- rx1265_fail:
-.annotate 'line', 431
- (rx1265_rep, rx1265_pos, $I10, $P10) = rx1265_cur."!mark_fail"(0)
- lt rx1265_pos, -1, rx1265_done
- eq rx1265_pos, -1, rx1265_fail
- jump $I10
- rx1265_done:
- rx1265_cur."!cursor_fail"()
- rx1265_cur."!cursor_debug"("FAIL ", "term:sym<next>")
- .return (rx1265_cur)
+ goto rxcap_1274_done
+ rxcap_1274_fail:
+ goto rx1270_fail
+ rxcap_1274_done:
+ # rx pass
+ rx1270_cur."!cursor_pass"(rx1270_pos, "term:sym<next>")
+ rx1270_cur."!cursor_debug"("PASS ", "term:sym<next>", " at pos=", rx1270_pos)
+ .return (rx1270_cur)
+ rx1270_fail:
+.annotate 'line', 433
+ (rx1270_rep, rx1270_pos, $I10, $P10) = rx1270_cur."!mark_fail"(0)
+ lt rx1270_pos, -1, rx1270_done
+ eq rx1270_pos, -1, rx1270_fail
+ jump $I10
+ rx1270_done:
+ rx1270_cur."!cursor_fail"()
+ rx1270_cur."!cursor_debug"("FAIL ", "term:sym<next>")
+ .return (rx1270_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<next>" :subid("326_1274564776.41408") :method
-.annotate 'line', 431
- new $P1267, "ResizablePMCArray"
- push $P1267, "next"
- .return ($P1267)
+.sub "!PREFIX__term:sym<next>" :subid("328_1275117591.97262") :method
+.annotate 'line', 433
+ new $P1272, "ResizablePMCArray"
+ push $P1272, "next"
+ .return ($P1272)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<redo>" :subid("327_1274564776.41408") :method :outer("11_1274564776.41408")
-.annotate 'line', 431
- .local string rx1271_tgt
- .local int rx1271_pos
- .local int rx1271_off
- .local int rx1271_eos
- .local int rx1271_rep
- .local pmc rx1271_cur
- (rx1271_cur, rx1271_pos, rx1271_tgt) = self."!cursor_start"()
- rx1271_cur."!cursor_debug"("START ", "term:sym<redo>")
- .lex unicode:"$\x{a2}", rx1271_cur
- .local pmc match
- .lex "$/", match
- length rx1271_eos, rx1271_tgt
- set rx1271_off, 0
- lt rx1271_pos, 2, rx1271_start
- sub rx1271_off, rx1271_pos, 1
- substr rx1271_tgt, rx1271_tgt, rx1271_off
- rx1271_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1274_done
- goto rxscan1274_scan
- rxscan1274_loop:
- ($P10) = rx1271_cur."from"()
- inc $P10
- set rx1271_pos, $P10
- ge rx1271_pos, rx1271_eos, rxscan1274_done
- rxscan1274_scan:
- set_addr $I10, rxscan1274_loop
- rx1271_cur."!mark_push"(0, rx1271_pos, $I10)
- rxscan1274_done:
-.annotate 'line', 540
+.sub "term:sym<redo>" :subid("329_1275117591.97262") :method :outer("11_1275117591.97262")
+.annotate 'line', 433
+ .local string rx1276_tgt
+ .local int rx1276_pos
+ .local int rx1276_off
+ .local int rx1276_eos
+ .local int rx1276_rep
+ .local pmc rx1276_cur
+ (rx1276_cur, rx1276_pos, rx1276_tgt) = self."!cursor_start"()
+ rx1276_cur."!cursor_debug"("START ", "term:sym<redo>")
+ .lex unicode:"$\x{a2}", rx1276_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1276_eos, rx1276_tgt
+ set rx1276_off, 0
+ lt rx1276_pos, 2, rx1276_start
+ sub rx1276_off, rx1276_pos, 1
+ substr rx1276_tgt, rx1276_tgt, rx1276_off
+ rx1276_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1279_done
+ goto rxscan1279_scan
+ rxscan1279_loop:
+ ($P10) = rx1276_cur."from"()
+ inc $P10
+ set rx1276_pos, $P10
+ ge rx1276_pos, rx1276_eos, rxscan1279_done
+ rxscan1279_scan:
+ set_addr $I10, rxscan1279_loop
+ rx1276_cur."!mark_push"(0, rx1276_pos, $I10)
+ rxscan1279_done:
+.annotate 'line', 542
# rx subcapture "sym"
- set_addr $I10, rxcap_1275_fail
- rx1271_cur."!mark_push"(0, rx1271_pos, $I10)
+ set_addr $I10, rxcap_1280_fail
+ rx1276_cur."!mark_push"(0, rx1276_pos, $I10)
# rx literal "redo"
- add $I11, rx1271_pos, 4
- gt $I11, rx1271_eos, rx1271_fail
- sub $I11, rx1271_pos, rx1271_off
- substr $S10, rx1271_tgt, $I11, 4
- ne $S10, "redo", rx1271_fail
- add rx1271_pos, 4
- set_addr $I10, rxcap_1275_fail
- ($I12, $I11) = rx1271_cur."!mark_peek"($I10)
- rx1271_cur."!cursor_pos"($I11)
- ($P10) = rx1271_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1271_pos, "")
- rx1271_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx1276_pos, 4
+ gt $I11, rx1276_eos, rx1276_fail
+ sub $I11, rx1276_pos, rx1276_off
+ substr $S10, rx1276_tgt, $I11, 4
+ ne $S10, "redo", rx1276_fail
+ add rx1276_pos, 4
+ set_addr $I10, rxcap_1280_fail
+ ($I12, $I11) = rx1276_cur."!mark_peek"($I10)
+ rx1276_cur."!cursor_pos"($I11)
+ ($P10) = rx1276_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1276_pos, "")
+ rx1276_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1275_done
- rxcap_1275_fail:
- goto rx1271_fail
- rxcap_1275_done:
- # rx pass
- rx1271_cur."!cursor_pass"(rx1271_pos, "term:sym<redo>")
- rx1271_cur."!cursor_debug"("PASS ", "term:sym<redo>", " at pos=", rx1271_pos)
- .return (rx1271_cur)
- rx1271_fail:
-.annotate 'line', 431
- (rx1271_rep, rx1271_pos, $I10, $P10) = rx1271_cur."!mark_fail"(0)
- lt rx1271_pos, -1, rx1271_done
- eq rx1271_pos, -1, rx1271_fail
+ goto rxcap_1280_done
+ rxcap_1280_fail:
+ goto rx1276_fail
+ rxcap_1280_done:
+ # rx pass
+ rx1276_cur."!cursor_pass"(rx1276_pos, "term:sym<redo>")
+ rx1276_cur."!cursor_debug"("PASS ", "term:sym<redo>", " at pos=", rx1276_pos)
+ .return (rx1276_cur)
+ rx1276_fail:
+.annotate 'line', 433
+ (rx1276_rep, rx1276_pos, $I10, $P10) = rx1276_cur."!mark_fail"(0)
+ lt rx1276_pos, -1, rx1276_done
+ eq rx1276_pos, -1, rx1276_fail
jump $I10
- rx1271_done:
- rx1271_cur."!cursor_fail"()
- rx1271_cur."!cursor_debug"("FAIL ", "term:sym<redo>")
- .return (rx1271_cur)
+ rx1276_done:
+ rx1276_cur."!cursor_fail"()
+ rx1276_cur."!cursor_debug"("FAIL ", "term:sym<redo>")
+ .return (rx1276_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<redo>" :subid("328_1274564776.41408") :method
-.annotate 'line', 431
- new $P1273, "ResizablePMCArray"
- push $P1273, "redo"
- .return ($P1273)
+.sub "!PREFIX__term:sym<redo>" :subid("330_1275117591.97262") :method
+.annotate 'line', 433
+ new $P1278, "ResizablePMCArray"
+ push $P1278, "redo"
+ .return ($P1278)
.end
.namespace ["NQP";"Grammar"]
-.sub "smartmatch" :subid("329_1274564776.41408") :method :outer("11_1274564776.41408")
- .param pmc param_1279
-.annotate 'line', 542
- new $P1278, 'ExceptionHandler'
- set_addr $P1278, control_1277
- $P1278."handle_types"(57)
- push_eh $P1278
- .lex "self", self
- .lex "$/", param_1279
+.sub "smartmatch" :subid("331_1275117591.97262") :method :outer("11_1275117591.97262")
+ .param pmc param_1284
.annotate 'line', 544
- new $P1280, "Undef"
- .lex "$t", $P1280
- find_lex $P1281, "$/"
- unless_null $P1281, vivify_368
- $P1281 = root_new ['parrot';'ResizablePMCArray']
+ new $P1283, 'ExceptionHandler'
+ set_addr $P1283, control_1282
+ $P1283."handle_types"(57)
+ push_eh $P1283
+ .lex "self", self
+ .lex "$/", param_1284
+.annotate 'line', 546
+ new $P1285, "Undef"
+ .lex "$t", $P1285
+ find_lex $P1286, "$/"
+ unless_null $P1286, vivify_367
+ $P1286 = root_new ['parrot';'ResizablePMCArray']
+ vivify_367:
+ set $P1287, $P1286[0]
+ unless_null $P1287, vivify_368
+ new $P1287, "Undef"
vivify_368:
- set $P1282, $P1281[0]
- unless_null $P1282, vivify_369
- new $P1282, "Undef"
+ store_lex "$t", $P1287
+ find_lex $P1288, "$/"
+ unless_null $P1288, vivify_369
+ $P1288 = root_new ['parrot';'ResizablePMCArray']
vivify_369:
- store_lex "$t", $P1282
- find_lex $P1283, "$/"
- unless_null $P1283, vivify_370
- $P1283 = root_new ['parrot';'ResizablePMCArray']
+ set $P1289, $P1288[1]
+ unless_null $P1289, vivify_370
+ new $P1289, "Undef"
vivify_370:
- set $P1284, $P1283[1]
- unless_null $P1284, vivify_371
- new $P1284, "Undef"
+ find_lex $P1290, "$/"
+ unless_null $P1290, vivify_371
+ $P1290 = root_new ['parrot';'ResizablePMCArray']
+ store_lex "$/", $P1290
vivify_371:
- find_lex $P1285, "$/"
- unless_null $P1285, vivify_372
- $P1285 = root_new ['parrot';'ResizablePMCArray']
- store_lex "$/", $P1285
+ set $P1290[0], $P1289
+ find_lex $P1291, "$t"
+ find_lex $P1292, "$/"
+ unless_null $P1292, vivify_372
+ $P1292 = root_new ['parrot';'ResizablePMCArray']
+ store_lex "$/", $P1292
vivify_372:
- set $P1285[0], $P1284
- find_lex $P1286, "$t"
- find_lex $P1287, "$/"
- unless_null $P1287, vivify_373
- $P1287 = root_new ['parrot';'ResizablePMCArray']
- store_lex "$/", $P1287
- vivify_373:
- set $P1287[1], $P1286
-.annotate 'line', 542
- .return ($P1286)
- control_1277:
+ set $P1292[1], $P1291
+.annotate 'line', 544
+ .return ($P1291)
+ control_1282:
.local pmc exception
.get_results (exception)
- getattribute $P1288, exception, "payload"
- .return ($P1288)
+ getattribute $P1293, exception, "payload"
+ .return ($P1293)
.end
.namespace ["NQP";"Regex"]
-.sub "_block1289" :subid("330_1274564776.41408") :outer("11_1274564776.41408")
-.annotate 'line', 548
- .const 'Sub' $P1367 = "352_1274564776.41408"
- capture_lex $P1367
- .const 'Sub' $P1354 = "349_1274564776.41408"
- capture_lex $P1354
- .const 'Sub' $P1349 = "347_1274564776.41408"
- capture_lex $P1349
- .const 'Sub' $P1344 = "345_1274564776.41408"
- capture_lex $P1344
- .const 'Sub' $P1330 = "341_1274564776.41408"
- capture_lex $P1330
- .const 'Sub' $P1310 = "337_1274564776.41408"
+.sub "_block1294" :subid("332_1275117591.97262") :outer("11_1275117591.97262")
+.annotate 'line', 550
+ .const 'Sub' $P1352 = "351_1275117591.97262"
+ capture_lex $P1352
+ .const 'Sub' $P1347 = "349_1275117591.97262"
+ capture_lex $P1347
+ .const 'Sub' $P1334 = "346_1275117591.97262"
+ capture_lex $P1334
+ .const 'Sub' $P1324 = "343_1275117591.97262"
+ capture_lex $P1324
+ .const 'Sub' $P1319 = "341_1275117591.97262"
+ capture_lex $P1319
+ .const 'Sub' $P1310 = "338_1275117591.97262"
capture_lex $P1310
- .const 'Sub' $P1300 = "334_1274564776.41408"
- capture_lex $P1300
- .const 'Sub' $P1291 = "331_1274564776.41408"
- capture_lex $P1291
- .const 'Sub' $P1367 = "352_1274564776.41408"
- capture_lex $P1367
- .return ($P1367)
+ .const 'Sub' $P1305 = "336_1275117591.97262"
+ capture_lex $P1305
+ .const 'Sub' $P1296 = "333_1275117591.97262"
+ capture_lex $P1296
+ .const 'Sub' $P1352 = "351_1275117591.97262"
+ capture_lex $P1352
+ .return ($P1352)
.end
.namespace ["NQP";"Regex"]
-.sub "metachar:sym<:my>" :subid("331_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .const 'Sub' $P1297 = "333_1274564776.41408"
- capture_lex $P1297
- .local string rx1292_tgt
- .local int rx1292_pos
- .local int rx1292_off
- .local int rx1292_eos
- .local int rx1292_rep
- .local pmc rx1292_cur
- (rx1292_cur, rx1292_pos, rx1292_tgt) = self."!cursor_start"()
- rx1292_cur."!cursor_debug"("START ", "metachar:sym<:my>")
- .lex unicode:"$\x{a2}", rx1292_cur
- .local pmc match
- .lex "$/", match
- length rx1292_eos, rx1292_tgt
- set rx1292_off, 0
- lt rx1292_pos, 2, rx1292_start
- sub rx1292_off, rx1292_pos, 1
- substr rx1292_tgt, rx1292_tgt, rx1292_off
- rx1292_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1295_done
- goto rxscan1295_scan
- rxscan1295_loop:
- ($P10) = rx1292_cur."from"()
- inc $P10
- set rx1292_pos, $P10
- ge rx1292_pos, rx1292_eos, rxscan1295_done
- rxscan1295_scan:
- set_addr $I10, rxscan1295_loop
- rx1292_cur."!mark_push"(0, rx1292_pos, $I10)
- rxscan1295_done:
+.sub "metachar:sym<:my>" :subid("333_1275117591.97262") :method :outer("332_1275117591.97262")
.annotate 'line', 550
+ .const 'Sub' $P1302 = "335_1275117591.97262"
+ capture_lex $P1302
+ .local string rx1297_tgt
+ .local int rx1297_pos
+ .local int rx1297_off
+ .local int rx1297_eos
+ .local int rx1297_rep
+ .local pmc rx1297_cur
+ (rx1297_cur, rx1297_pos, rx1297_tgt) = self."!cursor_start"()
+ rx1297_cur."!cursor_debug"("START ", "metachar:sym<:my>")
+ .lex unicode:"$\x{a2}", rx1297_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1297_eos, rx1297_tgt
+ set rx1297_off, 0
+ lt rx1297_pos, 2, rx1297_start
+ sub rx1297_off, rx1297_pos, 1
+ substr rx1297_tgt, rx1297_tgt, rx1297_off
+ rx1297_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1300_done
+ goto rxscan1300_scan
+ rxscan1300_loop:
+ ($P10) = rx1297_cur."from"()
+ inc $P10
+ set rx1297_pos, $P10
+ ge rx1297_pos, rx1297_eos, rxscan1300_done
+ rxscan1300_scan:
+ set_addr $I10, rxscan1300_loop
+ rx1297_cur."!mark_push"(0, rx1297_pos, $I10)
+ rxscan1300_done:
+.annotate 'line', 552
# rx literal ":"
- add $I11, rx1292_pos, 1
- gt $I11, rx1292_eos, rx1292_fail
- sub $I11, rx1292_pos, rx1292_off
- substr $S10, rx1292_tgt, $I11, 1
- ne $S10, ":", rx1292_fail
- add rx1292_pos, 1
+ add $I11, rx1297_pos, 1
+ gt $I11, rx1297_eos, rx1297_fail
+ sub $I11, rx1297_pos, rx1297_off
+ substr $S10, rx1297_tgt, $I11, 1
+ ne $S10, ":", rx1297_fail
+ add rx1297_pos, 1
# rx subrule "before" subtype=zerowidth negate=
- rx1292_cur."!cursor_pos"(rx1292_pos)
- .const 'Sub' $P1297 = "333_1274564776.41408"
- capture_lex $P1297
- $P10 = rx1292_cur."before"($P1297)
- unless $P10, rx1292_fail
+ rx1297_cur."!cursor_pos"(rx1297_pos)
+ .const 'Sub' $P1302 = "335_1275117591.97262"
+ capture_lex $P1302
+ $P10 = rx1297_cur."before"($P1302)
+ unless $P10, rx1297_fail
# rx subrule "LANG" subtype=capture negate=
- rx1292_cur."!cursor_pos"(rx1292_pos)
- $P10 = rx1292_cur."LANG"("MAIN", "statement")
- unless $P10, rx1292_fail
- rx1292_cur."!mark_push"(0, -1, 0, $P10)
+ rx1297_cur."!cursor_pos"(rx1297_pos)
+ $P10 = rx1297_cur."LANG"("MAIN", "statement")
+ unless $P10, rx1297_fail
+ rx1297_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement")
- rx1292_pos = $P10."pos"()
+ rx1297_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx1292_cur."!cursor_pos"(rx1292_pos)
- $P10 = rx1292_cur."ws"()
- unless $P10, rx1292_fail
- rx1292_pos = $P10."pos"()
+ rx1297_cur."!cursor_pos"(rx1297_pos)
+ $P10 = rx1297_cur."ws"()
+ unless $P10, rx1297_fail
+ rx1297_pos = $P10."pos"()
# rx literal ";"
- add $I11, rx1292_pos, 1
- gt $I11, rx1292_eos, rx1292_fail
- sub $I11, rx1292_pos, rx1292_off
- substr $S10, rx1292_tgt, $I11, 1
- ne $S10, ";", rx1292_fail
- add rx1292_pos, 1
-.annotate 'line', 549
- # rx pass
- rx1292_cur."!cursor_pass"(rx1292_pos, "metachar:sym<:my>")
- rx1292_cur."!cursor_debug"("PASS ", "metachar:sym<:my>", " at pos=", rx1292_pos)
- .return (rx1292_cur)
- rx1292_fail:
-.annotate 'line', 548
- (rx1292_rep, rx1292_pos, $I10, $P10) = rx1292_cur."!mark_fail"(0)
- lt rx1292_pos, -1, rx1292_done
- eq rx1292_pos, -1, rx1292_fail
- jump $I10
- rx1292_done:
- rx1292_cur."!cursor_fail"()
- rx1292_cur."!cursor_debug"("FAIL ", "metachar:sym<:my>")
- .return (rx1292_cur)
+ add $I11, rx1297_pos, 1
+ gt $I11, rx1297_eos, rx1297_fail
+ sub $I11, rx1297_pos, rx1297_off
+ substr $S10, rx1297_tgt, $I11, 1
+ ne $S10, ";", rx1297_fail
+ add rx1297_pos, 1
+.annotate 'line', 551
+ # rx pass
+ rx1297_cur."!cursor_pass"(rx1297_pos, "metachar:sym<:my>")
+ rx1297_cur."!cursor_debug"("PASS ", "metachar:sym<:my>", " at pos=", rx1297_pos)
+ .return (rx1297_cur)
+ rx1297_fail:
+.annotate 'line', 550
+ (rx1297_rep, rx1297_pos, $I10, $P10) = rx1297_cur."!mark_fail"(0)
+ lt rx1297_pos, -1, rx1297_done
+ eq rx1297_pos, -1, rx1297_fail
+ jump $I10
+ rx1297_done:
+ rx1297_cur."!cursor_fail"()
+ rx1297_cur."!cursor_debug"("FAIL ", "metachar:sym<:my>")
+ .return (rx1297_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<:my>" :subid("332_1274564776.41408") :method
-.annotate 'line', 548
- new $P1294, "ResizablePMCArray"
- push $P1294, ":"
- .return ($P1294)
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "_block1296" :anon :subid("333_1274564776.41408") :method :outer("331_1274564776.41408")
+.sub "!PREFIX__metachar:sym<:my>" :subid("334_1275117591.97262") :method
.annotate 'line', 550
- .local string rx1298_tgt
- .local int rx1298_pos
- .local int rx1298_off
- .local int rx1298_eos
- .local int rx1298_rep
- .local pmc rx1298_cur
- (rx1298_cur, rx1298_pos, rx1298_tgt) = self."!cursor_start"()
- rx1298_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1298_cur
- .local pmc match
- .lex "$/", match
- length rx1298_eos, rx1298_tgt
- set rx1298_off, 0
- lt rx1298_pos, 2, rx1298_start
- sub rx1298_off, rx1298_pos, 1
- substr rx1298_tgt, rx1298_tgt, rx1298_off
- rx1298_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1299_done
- goto rxscan1299_scan
- rxscan1299_loop:
- ($P10) = rx1298_cur."from"()
- inc $P10
- set rx1298_pos, $P10
- ge rx1298_pos, rx1298_eos, rxscan1299_done
- rxscan1299_scan:
- set_addr $I10, rxscan1299_loop
- rx1298_cur."!mark_push"(0, rx1298_pos, $I10)
- rxscan1299_done:
- # rx literal "my"
- add $I11, rx1298_pos, 2
- gt $I11, rx1298_eos, rx1298_fail
- sub $I11, rx1298_pos, rx1298_off
- substr $S10, rx1298_tgt, $I11, 2
- ne $S10, "my", rx1298_fail
- add rx1298_pos, 2
- # rx pass
- rx1298_cur."!cursor_pass"(rx1298_pos, "")
- rx1298_cur."!cursor_debug"("PASS ", "", " at pos=", rx1298_pos)
- .return (rx1298_cur)
- rx1298_fail:
- (rx1298_rep, rx1298_pos, $I10, $P10) = rx1298_cur."!mark_fail"(0)
- lt rx1298_pos, -1, rx1298_done
- eq rx1298_pos, -1, rx1298_fail
- jump $I10
- rx1298_done:
- rx1298_cur."!cursor_fail"()
- rx1298_cur."!cursor_debug"("FAIL ", "")
- .return (rx1298_cur)
- .return ()
+ new $P1299, "ResizablePMCArray"
+ push $P1299, ":"
+ .return ($P1299)
.end
.namespace ["NQP";"Regex"]
-.sub "metachar:sym<$>" :subid("334_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .const 'Sub' $P1307 = "336_1274564776.41408"
- capture_lex $P1307
- .local string rx1301_tgt
- .local int rx1301_pos
- .local int rx1301_off
- .local int rx1301_eos
- .local int rx1301_rep
- .local pmc rx1301_cur
- (rx1301_cur, rx1301_pos, rx1301_tgt) = self."!cursor_start"()
- rx1301_cur."!cursor_debug"("START ", "metachar:sym<$>")
- .lex unicode:"$\x{a2}", rx1301_cur
- .local pmc match
- .lex "$/", match
- length rx1301_eos, rx1301_tgt
- set rx1301_off, 0
- lt rx1301_pos, 2, rx1301_start
- sub rx1301_off, rx1301_pos, 1
- substr rx1301_tgt, rx1301_tgt, rx1301_off
- rx1301_start:
+.sub "_block1301" :anon :subid("335_1275117591.97262") :method :outer("333_1275117591.97262")
+.annotate 'line', 552
+ .local string rx1303_tgt
+ .local int rx1303_pos
+ .local int rx1303_off
+ .local int rx1303_eos
+ .local int rx1303_rep
+ .local pmc rx1303_cur
+ (rx1303_cur, rx1303_pos, rx1303_tgt) = self."!cursor_start"()
+ rx1303_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx1303_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1303_eos, rx1303_tgt
+ set rx1303_off, 0
+ lt rx1303_pos, 2, rx1303_start
+ sub rx1303_off, rx1303_pos, 1
+ substr rx1303_tgt, rx1303_tgt, rx1303_off
+ rx1303_start:
$I10 = self.'from'()
ne $I10, -1, rxscan1304_done
goto rxscan1304_scan
rxscan1304_loop:
- ($P10) = rx1301_cur."from"()
+ ($P10) = rx1303_cur."from"()
inc $P10
- set rx1301_pos, $P10
- ge rx1301_pos, rx1301_eos, rxscan1304_done
+ set rx1303_pos, $P10
+ ge rx1303_pos, rx1303_eos, rxscan1304_done
rxscan1304_scan:
set_addr $I10, rxscan1304_loop
- rx1301_cur."!mark_push"(0, rx1301_pos, $I10)
+ rx1303_cur."!mark_push"(0, rx1303_pos, $I10)
rxscan1304_done:
-.annotate 'line', 554
- # rx subcapture "sym"
- set_addr $I10, rxcap_1305_fail
- rx1301_cur."!mark_push"(0, rx1301_pos, $I10)
- # rx literal "$"
- add $I11, rx1301_pos, 1
- gt $I11, rx1301_eos, rx1301_fail
- sub $I11, rx1301_pos, rx1301_off
- substr $S10, rx1301_tgt, $I11, 1
- ne $S10, "$", rx1301_fail
- add rx1301_pos, 1
- set_addr $I10, rxcap_1305_fail
- ($I12, $I11) = rx1301_cur."!mark_peek"($I10)
- rx1301_cur."!cursor_pos"($I11)
- ($P10) = rx1301_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1301_pos, "")
- rx1301_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sym")
- goto rxcap_1305_done
- rxcap_1305_fail:
- goto rx1301_fail
- rxcap_1305_done:
- # rx subrule "before" subtype=zerowidth negate=1
- rx1301_cur."!cursor_pos"(rx1301_pos)
- .const 'Sub' $P1307 = "336_1274564776.41408"
- capture_lex $P1307
- $P10 = rx1301_cur."before"($P1307)
- if $P10, rx1301_fail
-.annotate 'line', 553
- # rx pass
- rx1301_cur."!cursor_pass"(rx1301_pos, "metachar:sym<$>")
- rx1301_cur."!cursor_debug"("PASS ", "metachar:sym<$>", " at pos=", rx1301_pos)
- .return (rx1301_cur)
- rx1301_fail:
-.annotate 'line', 548
- (rx1301_rep, rx1301_pos, $I10, $P10) = rx1301_cur."!mark_fail"(0)
- lt rx1301_pos, -1, rx1301_done
- eq rx1301_pos, -1, rx1301_fail
- jump $I10
- rx1301_done:
- rx1301_cur."!cursor_fail"()
- rx1301_cur."!cursor_debug"("FAIL ", "metachar:sym<$>")
- .return (rx1301_cur)
+ # rx literal "my"
+ add $I11, rx1303_pos, 2
+ gt $I11, rx1303_eos, rx1303_fail
+ sub $I11, rx1303_pos, rx1303_off
+ substr $S10, rx1303_tgt, $I11, 2
+ ne $S10, "my", rx1303_fail
+ add rx1303_pos, 2
+ # rx pass
+ rx1303_cur."!cursor_pass"(rx1303_pos, "")
+ rx1303_cur."!cursor_debug"("PASS ", "", " at pos=", rx1303_pos)
+ .return (rx1303_cur)
+ rx1303_fail:
+ (rx1303_rep, rx1303_pos, $I10, $P10) = rx1303_cur."!mark_fail"(0)
+ lt rx1303_pos, -1, rx1303_done
+ eq rx1303_pos, -1, rx1303_fail
+ jump $I10
+ rx1303_done:
+ rx1303_cur."!cursor_fail"()
+ rx1303_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1303_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<$>" :subid("335_1274564776.41408") :method
-.annotate 'line', 548
- new $P1303, "ResizablePMCArray"
- push $P1303, "$"
- .return ($P1303)
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "_block1306" :anon :subid("336_1274564776.41408") :method :outer("334_1274564776.41408")
-.annotate 'line', 554
- .local string rx1308_tgt
- .local int rx1308_pos
- .local int rx1308_off
- .local int rx1308_eos
- .local int rx1308_rep
- .local pmc rx1308_cur
- (rx1308_cur, rx1308_pos, rx1308_tgt) = self."!cursor_start"()
- rx1308_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1308_cur
- .local pmc match
- .lex "$/", match
- length rx1308_eos, rx1308_tgt
- set rx1308_off, 0
- lt rx1308_pos, 2, rx1308_start
- sub rx1308_off, rx1308_pos, 1
- substr rx1308_tgt, rx1308_tgt, rx1308_off
- rx1308_start:
+.sub "metachar:sym<{ }>" :subid("336_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .local string rx1306_tgt
+ .local int rx1306_pos
+ .local int rx1306_off
+ .local int rx1306_eos
+ .local int rx1306_rep
+ .local pmc rx1306_cur
+ (rx1306_cur, rx1306_pos, rx1306_tgt) = self."!cursor_start"()
+ rx1306_cur."!cursor_debug"("START ", "metachar:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx1306_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1306_eos, rx1306_tgt
+ set rx1306_off, 0
+ lt rx1306_pos, 2, rx1306_start
+ sub rx1306_off, rx1306_pos, 1
+ substr rx1306_tgt, rx1306_tgt, rx1306_off
+ rx1306_start:
$I10 = self.'from'()
ne $I10, -1, rxscan1309_done
goto rxscan1309_scan
rxscan1309_loop:
- ($P10) = rx1308_cur."from"()
+ ($P10) = rx1306_cur."from"()
inc $P10
- set rx1308_pos, $P10
- ge rx1308_pos, rx1308_eos, rxscan1309_done
+ set rx1306_pos, $P10
+ ge rx1306_pos, rx1306_eos, rxscan1309_done
rxscan1309_scan:
set_addr $I10, rxscan1309_loop
- rx1308_cur."!mark_push"(0, rx1308_pos, $I10)
+ rx1306_cur."!mark_push"(0, rx1306_pos, $I10)
rxscan1309_done:
- # rx charclass w
- ge rx1308_pos, rx1308_eos, rx1308_fail
- sub $I10, rx1308_pos, rx1308_off
- is_cclass $I11, 8192, rx1308_tgt, $I10
- unless $I11, rx1308_fail
- inc rx1308_pos
- # rx pass
- rx1308_cur."!cursor_pass"(rx1308_pos, "")
- rx1308_cur."!cursor_debug"("PASS ", "", " at pos=", rx1308_pos)
- .return (rx1308_cur)
- rx1308_fail:
- (rx1308_rep, rx1308_pos, $I10, $P10) = rx1308_cur."!mark_fail"(0)
- lt rx1308_pos, -1, rx1308_done
- eq rx1308_pos, -1, rx1308_fail
- jump $I10
- rx1308_done:
- rx1308_cur."!cursor_fail"()
- rx1308_cur."!cursor_debug"("FAIL ", "")
- .return (rx1308_cur)
+.annotate 'line', 556
+ # rx enumcharlist negate=0 zerowidth
+ ge rx1306_pos, rx1306_eos, rx1306_fail
+ sub $I10, rx1306_pos, rx1306_off
+ substr $S10, rx1306_tgt, $I10, 1
+ index $I11, "{", $S10
+ lt $I11, 0, rx1306_fail
+ # rx subrule "codeblock" subtype=capture negate=
+ rx1306_cur."!cursor_pos"(rx1306_pos)
+ $P10 = rx1306_cur."codeblock"()
+ unless $P10, rx1306_fail
+ rx1306_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("codeblock")
+ rx1306_pos = $P10."pos"()
+.annotate 'line', 555
+ # rx pass
+ rx1306_cur."!cursor_pass"(rx1306_pos, "metachar:sym<{ }>")
+ rx1306_cur."!cursor_debug"("PASS ", "metachar:sym<{ }>", " at pos=", rx1306_pos)
+ .return (rx1306_cur)
+ rx1306_fail:
+.annotate 'line', 550
+ (rx1306_rep, rx1306_pos, $I10, $P10) = rx1306_cur."!mark_fail"(0)
+ lt rx1306_pos, -1, rx1306_done
+ eq rx1306_pos, -1, rx1306_fail
+ jump $I10
+ rx1306_done:
+ rx1306_cur."!cursor_fail"()
+ rx1306_cur."!cursor_debug"("FAIL ", "metachar:sym<{ }>")
+ .return (rx1306_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "metachar:sym<var>" :subid("337_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .const 'Sub' $P1325 = "340_1274564776.41408"
- capture_lex $P1325
- .const 'Sub' $P1321 = "339_1274564776.41408"
- capture_lex $P1321
+.sub "!PREFIX__metachar:sym<{ }>" :subid("337_1275117591.97262") :method
+.annotate 'line', 550
+ new $P1308, "ResizablePMCArray"
+ push $P1308, "{"
+ .return ($P1308)
+.end
+
+
+.namespace ["NQP";"Regex"]
+.sub "metachar:sym<nqpvar>" :subid("338_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .const 'Sub' $P1316 = "340_1275117591.97262"
+ capture_lex $P1316
.local string rx1311_tgt
.local int rx1311_pos
.local int rx1311_off
@@ -16116,8 +16124,7 @@
.local int rx1311_rep
.local pmc rx1311_cur
(rx1311_cur, rx1311_pos, rx1311_tgt) = self."!cursor_start"()
- rx1311_cur."!cursor_debug"("START ", "metachar:sym<var>")
- rx1311_cur."!cursor_caparray"("quantified_atom")
+ rx1311_cur."!cursor_debug"("START ", "metachar:sym<nqpvar>")
.lex unicode:"$\x{a2}", rx1311_cur
.local pmc match
.lex "$/", match
@@ -16139,96 +16146,18 @@
set_addr $I10, rxscan1314_loop
rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
rxscan1314_done:
- alt1315_0:
-.annotate 'line', 558
- set_addr $I10, alt1315_1
- rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
-.annotate 'line', 559
- # rx literal "$<"
- add $I11, rx1311_pos, 2
- gt $I11, rx1311_eos, rx1311_fail
- sub $I11, rx1311_pos, rx1311_off
- substr $S10, rx1311_tgt, $I11, 2
- ne $S10, "$<", rx1311_fail
- add rx1311_pos, 2
- # rx subcapture "name"
- set_addr $I10, rxcap_1318_fail
- rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
- # rx rxquantr1316 ** 1..*
- set_addr $I1317, rxquantr1316_done
- rx1311_cur."!mark_push"(0, -1, $I1317)
- rxquantr1316_loop:
- # rx enumcharlist negate=1
+.annotate 'line', 560
+ # rx enumcharlist negate=0 zerowidth
ge rx1311_pos, rx1311_eos, rx1311_fail
sub $I10, rx1311_pos, rx1311_off
substr $S10, rx1311_tgt, $I10, 1
- index $I11, ">", $S10
- ge $I11, 0, rx1311_fail
- inc rx1311_pos
- (rx1311_rep) = rx1311_cur."!mark_commit"($I1317)
- rx1311_cur."!mark_push"(rx1311_rep, rx1311_pos, $I1317)
- goto rxquantr1316_loop
- rxquantr1316_done:
- set_addr $I10, rxcap_1318_fail
- ($I12, $I11) = rx1311_cur."!mark_peek"($I10)
- rx1311_cur."!cursor_pos"($I11)
- ($P10) = rx1311_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1311_pos, "")
- rx1311_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("name")
- goto rxcap_1318_done
- rxcap_1318_fail:
- goto rx1311_fail
- rxcap_1318_done:
- # rx literal ">"
- add $I11, rx1311_pos, 1
- gt $I11, rx1311_eos, rx1311_fail
- sub $I11, rx1311_pos, rx1311_off
- substr $S10, rx1311_tgt, $I11, 1
- ne $S10, ">", rx1311_fail
- add rx1311_pos, 1
- goto alt1315_end
- alt1315_1:
- set_addr $I10, alt1315_2
- rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
-.annotate 'line', 560
- # rx literal "$"
- add $I11, rx1311_pos, 1
- gt $I11, rx1311_eos, rx1311_fail
- sub $I11, rx1311_pos, rx1311_off
- substr $S10, rx1311_tgt, $I11, 1
- ne $S10, "$", rx1311_fail
- add rx1311_pos, 1
- # rx subcapture "pos"
- set_addr $I10, rxcap_1319_fail
- rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
- # rx charclass_q d r 1..-1
- sub $I10, rx1311_pos, rx1311_off
- find_not_cclass $I11, 8, rx1311_tgt, $I10, rx1311_eos
- add $I12, $I10, 1
- lt $I11, $I12, rx1311_fail
- add rx1311_pos, rx1311_off, $I11
- set_addr $I10, rxcap_1319_fail
- ($I12, $I11) = rx1311_cur."!mark_peek"($I10)
- rx1311_cur."!cursor_pos"($I11)
- ($P10) = rx1311_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1311_pos, "")
- rx1311_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("pos")
- goto rxcap_1319_done
- rxcap_1319_fail:
- goto rx1311_fail
- rxcap_1319_done:
- goto alt1315_end
- alt1315_2:
- set_addr $I10, alt1315_3
- rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
-.annotate 'line', 561
+ index $I11, "$@", $S10
+ lt $I11, 0, rx1311_fail
# rx subrule "before" subtype=zerowidth negate=
rx1311_cur."!cursor_pos"(rx1311_pos)
- .const 'Sub' $P1321 = "339_1274564776.41408"
- capture_lex $P1321
- $P10 = rx1311_cur."before"($P1321)
+ .const 'Sub' $P1316 = "340_1275117591.97262"
+ capture_lex $P1316
+ $P10 = rx1311_cur."before"($P1316)
unless $P10, rx1311_fail
# rx subrule "LANG" subtype=capture negate=
rx1311_cur."!cursor_pos"(rx1311_pos)
@@ -16237,214 +16166,268 @@
rx1311_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("var")
rx1311_pos = $P10."pos"()
- goto alt1315_end
- alt1315_3:
-.annotate 'line', 562
- # rx subrule "before" subtype=zerowidth negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- .const 'Sub' $P1325 = "340_1274564776.41408"
- capture_lex $P1325
- $P10 = rx1311_cur."before"($P1325)
- unless $P10, rx1311_fail
- # rx subrule "panic" subtype=method negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- $P10 = rx1311_cur."panic"("Use of hash variable in patterns is reserved")
- unless $P10, rx1311_fail
- rx1311_pos = $P10."pos"()
- alt1315_end:
-.annotate 'line', 565
- # rx rxquantr1328 ** 0..1
- set_addr $I1329, rxquantr1328_done
- rx1311_cur."!mark_push"(0, rx1311_pos, $I1329)
- rxquantr1328_loop:
- # rx subrule "ws" subtype=method negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- $P10 = rx1311_cur."ws"()
- unless $P10, rx1311_fail
- rx1311_pos = $P10."pos"()
- # rx literal "="
- add $I11, rx1311_pos, 1
- gt $I11, rx1311_eos, rx1311_fail
- sub $I11, rx1311_pos, rx1311_off
- substr $S10, rx1311_tgt, $I11, 1
- ne $S10, "=", rx1311_fail
- add rx1311_pos, 1
- # rx subrule "ws" subtype=method negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- $P10 = rx1311_cur."ws"()
- unless $P10, rx1311_fail
- rx1311_pos = $P10."pos"()
- # rx subrule "quantified_atom" subtype=capture negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- $P10 = rx1311_cur."quantified_atom"()
- unless $P10, rx1311_fail
- rx1311_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("quantified_atom")
- rx1311_pos = $P10."pos"()
- (rx1311_rep) = rx1311_cur."!mark_commit"($I1329)
- rxquantr1328_done:
-.annotate 'line', 557
+.annotate 'line', 559
# rx pass
- rx1311_cur."!cursor_pass"(rx1311_pos, "metachar:sym<var>")
- rx1311_cur."!cursor_debug"("PASS ", "metachar:sym<var>", " at pos=", rx1311_pos)
+ rx1311_cur."!cursor_pass"(rx1311_pos, "metachar:sym<nqpvar>")
+ rx1311_cur."!cursor_debug"("PASS ", "metachar:sym<nqpvar>", " at pos=", rx1311_pos)
.return (rx1311_cur)
rx1311_fail:
-.annotate 'line', 548
+.annotate 'line', 550
(rx1311_rep, rx1311_pos, $I10, $P10) = rx1311_cur."!mark_fail"(0)
lt rx1311_pos, -1, rx1311_done
eq rx1311_pos, -1, rx1311_fail
jump $I10
rx1311_done:
rx1311_cur."!cursor_fail"()
- rx1311_cur."!cursor_debug"("FAIL ", "metachar:sym<var>")
+ rx1311_cur."!cursor_debug"("FAIL ", "metachar:sym<nqpvar>")
.return (rx1311_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<var>" :subid("338_1274564776.41408") :method
-.annotate 'line', 548
+.sub "!PREFIX__metachar:sym<nqpvar>" :subid("339_1275117591.97262") :method
+.annotate 'line', 550
new $P1313, "ResizablePMCArray"
- push $P1313, ""
- push $P1313, ""
push $P1313, "$"
- push $P1313, "$<"
+ push $P1313, "@"
.return ($P1313)
.end
.namespace ["NQP";"Regex"]
-.sub "_block1320" :anon :subid("339_1274564776.41408") :method :outer("337_1274564776.41408")
-.annotate 'line', 561
- .local string rx1322_tgt
- .local int rx1322_pos
- .local int rx1322_off
- .local int rx1322_eos
- .local int rx1322_rep
- .local pmc rx1322_cur
- (rx1322_cur, rx1322_pos, rx1322_tgt) = self."!cursor_start"()
- rx1322_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1322_cur
- .local pmc match
- .lex "$/", match
- length rx1322_eos, rx1322_tgt
- set rx1322_off, 0
- lt rx1322_pos, 2, rx1322_start
- sub rx1322_off, rx1322_pos, 1
- substr rx1322_tgt, rx1322_tgt, rx1322_off
- rx1322_start:
+.sub "_block1315" :anon :subid("340_1275117591.97262") :method :outer("338_1275117591.97262")
+.annotate 'line', 560
+ .local string rx1317_tgt
+ .local int rx1317_pos
+ .local int rx1317_off
+ .local int rx1317_eos
+ .local int rx1317_rep
+ .local pmc rx1317_cur
+ (rx1317_cur, rx1317_pos, rx1317_tgt) = self."!cursor_start"()
+ rx1317_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx1317_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1317_eos, rx1317_tgt
+ set rx1317_off, 0
+ lt rx1317_pos, 2, rx1317_start
+ sub rx1317_off, rx1317_pos, 1
+ substr rx1317_tgt, rx1317_tgt, rx1317_off
+ rx1317_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1318_done
+ goto rxscan1318_scan
+ rxscan1318_loop:
+ ($P10) = rx1317_cur."from"()
+ inc $P10
+ set rx1317_pos, $P10
+ ge rx1317_pos, rx1317_eos, rxscan1318_done
+ rxscan1318_scan:
+ set_addr $I10, rxscan1318_loop
+ rx1317_cur."!mark_push"(0, rx1317_pos, $I10)
+ rxscan1318_done:
+ # rx charclass .
+ ge rx1317_pos, rx1317_eos, rx1317_fail
+ inc rx1317_pos
+ # rx charclass w
+ ge rx1317_pos, rx1317_eos, rx1317_fail
+ sub $I10, rx1317_pos, rx1317_off
+ is_cclass $I11, 8192, rx1317_tgt, $I10
+ unless $I11, rx1317_fail
+ inc rx1317_pos
+ # rx pass
+ rx1317_cur."!cursor_pass"(rx1317_pos, "")
+ rx1317_cur."!cursor_debug"("PASS ", "", " at pos=", rx1317_pos)
+ .return (rx1317_cur)
+ rx1317_fail:
+ (rx1317_rep, rx1317_pos, $I10, $P10) = rx1317_cur."!mark_fail"(0)
+ lt rx1317_pos, -1, rx1317_done
+ eq rx1317_pos, -1, rx1317_fail
+ jump $I10
+ rx1317_done:
+ rx1317_cur."!cursor_fail"()
+ rx1317_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1317_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Regex"]
+.sub "assertion:sym<{ }>" :subid("341_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .local string rx1320_tgt
+ .local int rx1320_pos
+ .local int rx1320_off
+ .local int rx1320_eos
+ .local int rx1320_rep
+ .local pmc rx1320_cur
+ (rx1320_cur, rx1320_pos, rx1320_tgt) = self."!cursor_start"()
+ rx1320_cur."!cursor_debug"("START ", "assertion:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx1320_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1320_eos, rx1320_tgt
+ set rx1320_off, 0
+ lt rx1320_pos, 2, rx1320_start
+ sub rx1320_off, rx1320_pos, 1
+ substr rx1320_tgt, rx1320_tgt, rx1320_off
+ rx1320_start:
$I10 = self.'from'()
ne $I10, -1, rxscan1323_done
goto rxscan1323_scan
rxscan1323_loop:
- ($P10) = rx1322_cur."from"()
+ ($P10) = rx1320_cur."from"()
inc $P10
- set rx1322_pos, $P10
- ge rx1322_pos, rx1322_eos, rxscan1323_done
+ set rx1320_pos, $P10
+ ge rx1320_pos, rx1320_eos, rxscan1323_done
rxscan1323_scan:
set_addr $I10, rxscan1323_loop
- rx1322_cur."!mark_push"(0, rx1322_pos, $I10)
+ rx1320_cur."!mark_push"(0, rx1320_pos, $I10)
rxscan1323_done:
- # rx enumcharlist negate=0
- ge rx1322_pos, rx1322_eos, rx1322_fail
- sub $I10, rx1322_pos, rx1322_off
- substr $S10, rx1322_tgt, $I10, 1
- index $I11, "$@", $S10
- lt $I11, 0, rx1322_fail
- inc rx1322_pos
- # rx charclass w
- ge rx1322_pos, rx1322_eos, rx1322_fail
- sub $I10, rx1322_pos, rx1322_off
- is_cclass $I11, 8192, rx1322_tgt, $I10
- unless $I11, rx1322_fail
- inc rx1322_pos
- # rx pass
- rx1322_cur."!cursor_pass"(rx1322_pos, "")
- rx1322_cur."!cursor_debug"("PASS ", "", " at pos=", rx1322_pos)
- .return (rx1322_cur)
- rx1322_fail:
- (rx1322_rep, rx1322_pos, $I10, $P10) = rx1322_cur."!mark_fail"(0)
- lt rx1322_pos, -1, rx1322_done
- eq rx1322_pos, -1, rx1322_fail
- jump $I10
- rx1322_done:
- rx1322_cur."!cursor_fail"()
- rx1322_cur."!cursor_debug"("FAIL ", "")
- .return (rx1322_cur)
+.annotate 'line', 564
+ # rx enumcharlist negate=0 zerowidth
+ ge rx1320_pos, rx1320_eos, rx1320_fail
+ sub $I10, rx1320_pos, rx1320_off
+ substr $S10, rx1320_tgt, $I10, 1
+ index $I11, "{", $S10
+ lt $I11, 0, rx1320_fail
+ # rx subrule "codeblock" subtype=capture negate=
+ rx1320_cur."!cursor_pos"(rx1320_pos)
+ $P10 = rx1320_cur."codeblock"()
+ unless $P10, rx1320_fail
+ rx1320_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("codeblock")
+ rx1320_pos = $P10."pos"()
+.annotate 'line', 563
+ # rx pass
+ rx1320_cur."!cursor_pass"(rx1320_pos, "assertion:sym<{ }>")
+ rx1320_cur."!cursor_debug"("PASS ", "assertion:sym<{ }>", " at pos=", rx1320_pos)
+ .return (rx1320_cur)
+ rx1320_fail:
+.annotate 'line', 550
+ (rx1320_rep, rx1320_pos, $I10, $P10) = rx1320_cur."!mark_fail"(0)
+ lt rx1320_pos, -1, rx1320_done
+ eq rx1320_pos, -1, rx1320_fail
+ jump $I10
+ rx1320_done:
+ rx1320_cur."!cursor_fail"()
+ rx1320_cur."!cursor_debug"("FAIL ", "assertion:sym<{ }>")
+ .return (rx1320_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "_block1324" :anon :subid("340_1274564776.41408") :method :outer("337_1274564776.41408")
-.annotate 'line', 562
- .local string rx1326_tgt
- .local int rx1326_pos
- .local int rx1326_off
- .local int rx1326_eos
- .local int rx1326_rep
- .local pmc rx1326_cur
- (rx1326_cur, rx1326_pos, rx1326_tgt) = self."!cursor_start"()
- rx1326_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1326_cur
- .local pmc match
- .lex "$/", match
- length rx1326_eos, rx1326_tgt
- set rx1326_off, 0
- lt rx1326_pos, 2, rx1326_start
- sub rx1326_off, rx1326_pos, 1
- substr rx1326_tgt, rx1326_tgt, rx1326_off
- rx1326_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1327_done
- goto rxscan1327_scan
- rxscan1327_loop:
- ($P10) = rx1326_cur."from"()
- inc $P10
- set rx1326_pos, $P10
- ge rx1326_pos, rx1326_eos, rxscan1327_done
- rxscan1327_scan:
- set_addr $I10, rxscan1327_loop
- rx1326_cur."!mark_push"(0, rx1326_pos, $I10)
- rxscan1327_done:
- # rx literal "%"
- add $I11, rx1326_pos, 1
- gt $I11, rx1326_eos, rx1326_fail
- sub $I11, rx1326_pos, rx1326_off
- substr $S10, rx1326_tgt, $I11, 1
- ne $S10, "%", rx1326_fail
- add rx1326_pos, 1
- # rx charclass w
- ge rx1326_pos, rx1326_eos, rx1326_fail
- sub $I10, rx1326_pos, rx1326_off
- is_cclass $I11, 8192, rx1326_tgt, $I10
- unless $I11, rx1326_fail
- inc rx1326_pos
- # rx pass
- rx1326_cur."!cursor_pass"(rx1326_pos, "")
- rx1326_cur."!cursor_debug"("PASS ", "", " at pos=", rx1326_pos)
- .return (rx1326_cur)
- rx1326_fail:
- (rx1326_rep, rx1326_pos, $I10, $P10) = rx1326_cur."!mark_fail"(0)
- lt rx1326_pos, -1, rx1326_done
- eq rx1326_pos, -1, rx1326_fail
- jump $I10
- rx1326_done:
- rx1326_cur."!cursor_fail"()
- rx1326_cur."!cursor_debug"("FAIL ", "")
- .return (rx1326_cur)
+.sub "!PREFIX__assertion:sym<{ }>" :subid("342_1275117591.97262") :method
+.annotate 'line', 550
+ new $P1322, "ResizablePMCArray"
+ push $P1322, "{"
+ .return ($P1322)
+.end
+
+
+.namespace ["NQP";"Regex"]
+.sub "assertion:sym<?{ }>" :subid("343_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .const 'Sub' $P1330 = "345_1275117591.97262"
+ capture_lex $P1330
+ .local string rx1325_tgt
+ .local int rx1325_pos
+ .local int rx1325_off
+ .local int rx1325_eos
+ .local int rx1325_rep
+ .local pmc rx1325_cur
+ (rx1325_cur, rx1325_pos, rx1325_tgt) = self."!cursor_start"()
+ rx1325_cur."!cursor_debug"("START ", "assertion:sym<?{ }>")
+ .lex unicode:"$\x{a2}", rx1325_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1325_eos, rx1325_tgt
+ set rx1325_off, 0
+ lt rx1325_pos, 2, rx1325_start
+ sub rx1325_off, rx1325_pos, 1
+ substr rx1325_tgt, rx1325_tgt, rx1325_off
+ rx1325_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1328_done
+ goto rxscan1328_scan
+ rxscan1328_loop:
+ ($P10) = rx1325_cur."from"()
+ inc $P10
+ set rx1325_pos, $P10
+ ge rx1325_pos, rx1325_eos, rxscan1328_done
+ rxscan1328_scan:
+ set_addr $I10, rxscan1328_loop
+ rx1325_cur."!mark_push"(0, rx1325_pos, $I10)
+ rxscan1328_done:
+.annotate 'line', 568
+ # rx subcapture "zw"
+ set_addr $I10, rxcap_1333_fail
+ rx1325_cur."!mark_push"(0, rx1325_pos, $I10)
+ # rx enumcharlist negate=0
+ ge rx1325_pos, rx1325_eos, rx1325_fail
+ sub $I10, rx1325_pos, rx1325_off
+ substr $S10, rx1325_tgt, $I10, 1
+ index $I11, "?!", $S10
+ lt $I11, 0, rx1325_fail
+ inc rx1325_pos
+ # rx subrule "before" subtype=zerowidth negate=
+ rx1325_cur."!cursor_pos"(rx1325_pos)
+ .const 'Sub' $P1330 = "345_1275117591.97262"
+ capture_lex $P1330
+ $P10 = rx1325_cur."before"($P1330)
+ unless $P10, rx1325_fail
+ set_addr $I10, rxcap_1333_fail
+ ($I12, $I11) = rx1325_cur."!mark_peek"($I10)
+ rx1325_cur."!cursor_pos"($I11)
+ ($P10) = rx1325_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1325_pos, "")
+ rx1325_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("zw")
+ goto rxcap_1333_done
+ rxcap_1333_fail:
+ goto rx1325_fail
+ rxcap_1333_done:
+ # rx subrule "codeblock" subtype=capture negate=
+ rx1325_cur."!cursor_pos"(rx1325_pos)
+ $P10 = rx1325_cur."codeblock"()
+ unless $P10, rx1325_fail
+ rx1325_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("codeblock")
+ rx1325_pos = $P10."pos"()
+.annotate 'line', 567
+ # rx pass
+ rx1325_cur."!cursor_pass"(rx1325_pos, "assertion:sym<?{ }>")
+ rx1325_cur."!cursor_debug"("PASS ", "assertion:sym<?{ }>", " at pos=", rx1325_pos)
+ .return (rx1325_cur)
+ rx1325_fail:
+.annotate 'line', 550
+ (rx1325_rep, rx1325_pos, $I10, $P10) = rx1325_cur."!mark_fail"(0)
+ lt rx1325_pos, -1, rx1325_done
+ eq rx1325_pos, -1, rx1325_fail
+ jump $I10
+ rx1325_done:
+ rx1325_cur."!cursor_fail"()
+ rx1325_cur."!cursor_debug"("FAIL ", "assertion:sym<?{ }>")
+ .return (rx1325_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "assertion:sym<var>" :subid("341_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .const 'Sub' $P1341 = "344_1274564776.41408"
- capture_lex $P1341
- .const 'Sub' $P1337 = "343_1274564776.41408"
- capture_lex $P1337
+.sub "!PREFIX__assertion:sym<?{ }>" :subid("344_1275117591.97262") :method
+.annotate 'line', 550
+ new $P1327, "ResizablePMCArray"
+ push $P1327, "!"
+ push $P1327, "?"
+ .return ($P1327)
+.end
+
+
+.namespace ["NQP";"Regex"]
+.sub "_block1329" :anon :subid("345_1275117591.97262") :method :outer("343_1275117591.97262")
+.annotate 'line', 568
.local string rx1331_tgt
.local int rx1331_pos
.local int rx1331_off
@@ -16452,7 +16435,7 @@
.local int rx1331_rep
.local pmc rx1331_cur
(rx1331_cur, rx1331_pos, rx1331_tgt) = self."!cursor_start"()
- rx1331_cur."!cursor_debug"("START ", "assertion:sym<var>")
+ rx1331_cur."!cursor_debug"("START ", "")
.lex unicode:"$\x{a2}", rx1331_cur
.local pmc match
.lex "$/", match
@@ -16463,911 +16446,685 @@
substr rx1331_tgt, rx1331_tgt, rx1331_off
rx1331_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan1334_done
- goto rxscan1334_scan
- rxscan1334_loop:
+ ne $I10, -1, rxscan1332_done
+ goto rxscan1332_scan
+ rxscan1332_loop:
($P10) = rx1331_cur."from"()
inc $P10
set rx1331_pos, $P10
- ge rx1331_pos, rx1331_eos, rxscan1334_done
- rxscan1334_scan:
- set_addr $I10, rxscan1334_loop
+ ge rx1331_pos, rx1331_eos, rxscan1332_done
+ rxscan1332_scan:
+ set_addr $I10, rxscan1332_loop
rx1331_cur."!mark_push"(0, rx1331_pos, $I10)
- rxscan1334_done:
- alt1335_0:
-.annotate 'line', 568
- set_addr $I10, alt1335_1
- rx1331_cur."!mark_push"(0, rx1331_pos, $I10)
-.annotate 'line', 569
- # rx subrule "before" subtype=zerowidth negate=
- rx1331_cur."!cursor_pos"(rx1331_pos)
- .const 'Sub' $P1337 = "343_1274564776.41408"
- capture_lex $P1337
- $P10 = rx1331_cur."before"($P1337)
- unless $P10, rx1331_fail
- # rx subrule "LANG" subtype=capture negate=
- rx1331_cur."!cursor_pos"(rx1331_pos)
- $P10 = rx1331_cur."LANG"("MAIN", "variable")
- unless $P10, rx1331_fail
- rx1331_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("var")
- rx1331_pos = $P10."pos"()
- goto alt1335_end
- alt1335_1:
-.annotate 'line', 570
- # rx subrule "before" subtype=zerowidth negate=
- rx1331_cur."!cursor_pos"(rx1331_pos)
- .const 'Sub' $P1341 = "344_1274564776.41408"
- capture_lex $P1341
- $P10 = rx1331_cur."before"($P1341)
- unless $P10, rx1331_fail
- # rx subrule "panic" subtype=method negate=
- rx1331_cur."!cursor_pos"(rx1331_pos)
- $P10 = rx1331_cur."panic"("Use of hash variable in patterns is reserved")
- unless $P10, rx1331_fail
- rx1331_pos = $P10."pos"()
- alt1335_end:
-.annotate 'line', 568
+ rxscan1332_done:
+ # rx literal "{"
+ add $I11, rx1331_pos, 1
+ gt $I11, rx1331_eos, rx1331_fail
+ sub $I11, rx1331_pos, rx1331_off
+ substr $S10, rx1331_tgt, $I11, 1
+ ne $S10, "{", rx1331_fail
+ add rx1331_pos, 1
# rx pass
- rx1331_cur."!cursor_pass"(rx1331_pos, "assertion:sym<var>")
- rx1331_cur."!cursor_debug"("PASS ", "assertion:sym<var>", " at pos=", rx1331_pos)
+ rx1331_cur."!cursor_pass"(rx1331_pos, "")
+ rx1331_cur."!cursor_debug"("PASS ", "", " at pos=", rx1331_pos)
.return (rx1331_cur)
rx1331_fail:
-.annotate 'line', 548
(rx1331_rep, rx1331_pos, $I10, $P10) = rx1331_cur."!mark_fail"(0)
lt rx1331_pos, -1, rx1331_done
eq rx1331_pos, -1, rx1331_fail
jump $I10
rx1331_done:
rx1331_cur."!cursor_fail"()
- rx1331_cur."!cursor_debug"("FAIL ", "assertion:sym<var>")
+ rx1331_cur."!cursor_debug"("FAIL ", "")
.return (rx1331_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<var>" :subid("342_1274564776.41408") :method
-.annotate 'line', 548
- new $P1333, "ResizablePMCArray"
- push $P1333, ""
- push $P1333, ""
- .return ($P1333)
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "_block1336" :anon :subid("343_1274564776.41408") :method :outer("341_1274564776.41408")
-.annotate 'line', 569
- .local string rx1338_tgt
- .local int rx1338_pos
- .local int rx1338_off
- .local int rx1338_eos
- .local int rx1338_rep
- .local pmc rx1338_cur
- (rx1338_cur, rx1338_pos, rx1338_tgt) = self."!cursor_start"()
- rx1338_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1338_cur
- .local pmc match
- .lex "$/", match
- length rx1338_eos, rx1338_tgt
- set rx1338_off, 0
- lt rx1338_pos, 2, rx1338_start
- sub rx1338_off, rx1338_pos, 1
- substr rx1338_tgt, rx1338_tgt, rx1338_off
- rx1338_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1339_done
- goto rxscan1339_scan
- rxscan1339_loop:
- ($P10) = rx1338_cur."from"()
- inc $P10
- set rx1338_pos, $P10
- ge rx1338_pos, rx1338_eos, rxscan1339_done
- rxscan1339_scan:
- set_addr $I10, rxscan1339_loop
- rx1338_cur."!mark_push"(0, rx1338_pos, $I10)
- rxscan1339_done:
- # rx enumcharlist negate=0
- ge rx1338_pos, rx1338_eos, rx1338_fail
- sub $I10, rx1338_pos, rx1338_off
- substr $S10, rx1338_tgt, $I10, 1
- index $I11, "$@", $S10
- lt $I11, 0, rx1338_fail
- inc rx1338_pos
- # rx charclass w
- ge rx1338_pos, rx1338_eos, rx1338_fail
- sub $I10, rx1338_pos, rx1338_off
- is_cclass $I11, 8192, rx1338_tgt, $I10
- unless $I11, rx1338_fail
- inc rx1338_pos
- # rx pass
- rx1338_cur."!cursor_pass"(rx1338_pos, "")
- rx1338_cur."!cursor_debug"("PASS ", "", " at pos=", rx1338_pos)
- .return (rx1338_cur)
- rx1338_fail:
- (rx1338_rep, rx1338_pos, $I10, $P10) = rx1338_cur."!mark_fail"(0)
- lt rx1338_pos, -1, rx1338_done
- eq rx1338_pos, -1, rx1338_fail
- jump $I10
- rx1338_done:
- rx1338_cur."!cursor_fail"()
- rx1338_cur."!cursor_debug"("FAIL ", "")
- .return (rx1338_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "_block1340" :anon :subid("344_1274564776.41408") :method :outer("341_1274564776.41408")
-.annotate 'line', 570
- .local string rx1342_tgt
- .local int rx1342_pos
- .local int rx1342_off
- .local int rx1342_eos
- .local int rx1342_rep
- .local pmc rx1342_cur
- (rx1342_cur, rx1342_pos, rx1342_tgt) = self."!cursor_start"()
- rx1342_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1342_cur
- .local pmc match
- .lex "$/", match
- length rx1342_eos, rx1342_tgt
- set rx1342_off, 0
- lt rx1342_pos, 2, rx1342_start
- sub rx1342_off, rx1342_pos, 1
- substr rx1342_tgt, rx1342_tgt, rx1342_off
- rx1342_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1343_done
- goto rxscan1343_scan
- rxscan1343_loop:
- ($P10) = rx1342_cur."from"()
- inc $P10
- set rx1342_pos, $P10
- ge rx1342_pos, rx1342_eos, rxscan1343_done
- rxscan1343_scan:
- set_addr $I10, rxscan1343_loop
- rx1342_cur."!mark_push"(0, rx1342_pos, $I10)
- rxscan1343_done:
- # rx literal "%"
- add $I11, rx1342_pos, 1
- gt $I11, rx1342_eos, rx1342_fail
- sub $I11, rx1342_pos, rx1342_off
- substr $S10, rx1342_tgt, $I11, 1
- ne $S10, "%", rx1342_fail
- add rx1342_pos, 1
- # rx charclass w
- ge rx1342_pos, rx1342_eos, rx1342_fail
- sub $I10, rx1342_pos, rx1342_off
- is_cclass $I11, 8192, rx1342_tgt, $I10
- unless $I11, rx1342_fail
- inc rx1342_pos
- # rx pass
- rx1342_cur."!cursor_pass"(rx1342_pos, "")
- rx1342_cur."!cursor_debug"("PASS ", "", " at pos=", rx1342_pos)
- .return (rx1342_cur)
- rx1342_fail:
- (rx1342_rep, rx1342_pos, $I10, $P10) = rx1342_cur."!mark_fail"(0)
- lt rx1342_pos, -1, rx1342_done
- eq rx1342_pos, -1, rx1342_fail
- jump $I10
- rx1342_done:
- rx1342_cur."!cursor_fail"()
- rx1342_cur."!cursor_debug"("FAIL ", "")
- .return (rx1342_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "metachar:sym<{ }>" :subid("345_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .local string rx1345_tgt
- .local int rx1345_pos
- .local int rx1345_off
- .local int rx1345_eos
- .local int rx1345_rep
- .local pmc rx1345_cur
- (rx1345_cur, rx1345_pos, rx1345_tgt) = self."!cursor_start"()
- rx1345_cur."!cursor_debug"("START ", "metachar:sym<{ }>")
- .lex unicode:"$\x{a2}", rx1345_cur
- .local pmc match
- .lex "$/", match
- length rx1345_eos, rx1345_tgt
- set rx1345_off, 0
- lt rx1345_pos, 2, rx1345_start
- sub rx1345_off, rx1345_pos, 1
- substr rx1345_tgt, rx1345_tgt, rx1345_off
- rx1345_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1348_done
- goto rxscan1348_scan
- rxscan1348_loop:
- ($P10) = rx1345_cur."from"()
- inc $P10
- set rx1345_pos, $P10
- ge rx1345_pos, rx1345_eos, rxscan1348_done
- rxscan1348_scan:
- set_addr $I10, rxscan1348_loop
- rx1345_cur."!mark_push"(0, rx1345_pos, $I10)
- rxscan1348_done:
-.annotate 'line', 574
- # rx enumcharlist negate=0 zerowidth
- ge rx1345_pos, rx1345_eos, rx1345_fail
- sub $I10, rx1345_pos, rx1345_off
- substr $S10, rx1345_tgt, $I10, 1
- index $I11, "{", $S10
- lt $I11, 0, rx1345_fail
- # rx subrule "codeblock" subtype=capture negate=
- rx1345_cur."!cursor_pos"(rx1345_pos)
- $P10 = rx1345_cur."codeblock"()
- unless $P10, rx1345_fail
- rx1345_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("codeblock")
- rx1345_pos = $P10."pos"()
-.annotate 'line', 573
- # rx pass
- rx1345_cur."!cursor_pass"(rx1345_pos, "metachar:sym<{ }>")
- rx1345_cur."!cursor_debug"("PASS ", "metachar:sym<{ }>", " at pos=", rx1345_pos)
- .return (rx1345_cur)
- rx1345_fail:
-.annotate 'line', 548
- (rx1345_rep, rx1345_pos, $I10, $P10) = rx1345_cur."!mark_fail"(0)
- lt rx1345_pos, -1, rx1345_done
- eq rx1345_pos, -1, rx1345_fail
- jump $I10
- rx1345_done:
- rx1345_cur."!cursor_fail"()
- rx1345_cur."!cursor_debug"("FAIL ", "metachar:sym<{ }>")
- .return (rx1345_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<{ }>" :subid("346_1274564776.41408") :method
-.annotate 'line', 548
- new $P1347, "ResizablePMCArray"
- push $P1347, "{"
- .return ($P1347)
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "assertion:sym<{ }>" :subid("347_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .local string rx1350_tgt
- .local int rx1350_pos
- .local int rx1350_off
- .local int rx1350_eos
- .local int rx1350_rep
- .local pmc rx1350_cur
- (rx1350_cur, rx1350_pos, rx1350_tgt) = self."!cursor_start"()
- rx1350_cur."!cursor_debug"("START ", "assertion:sym<{ }>")
- .lex unicode:"$\x{a2}", rx1350_cur
- .local pmc match
- .lex "$/", match
- length rx1350_eos, rx1350_tgt
- set rx1350_off, 0
- lt rx1350_pos, 2, rx1350_start
- sub rx1350_off, rx1350_pos, 1
- substr rx1350_tgt, rx1350_tgt, rx1350_off
- rx1350_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1353_done
- goto rxscan1353_scan
- rxscan1353_loop:
- ($P10) = rx1350_cur."from"()
- inc $P10
- set rx1350_pos, $P10
- ge rx1350_pos, rx1350_eos, rxscan1353_done
- rxscan1353_scan:
- set_addr $I10, rxscan1353_loop
- rx1350_cur."!mark_push"(0, rx1350_pos, $I10)
- rxscan1353_done:
-.annotate 'line', 578
- # rx enumcharlist negate=0 zerowidth
- ge rx1350_pos, rx1350_eos, rx1350_fail
- sub $I10, rx1350_pos, rx1350_off
- substr $S10, rx1350_tgt, $I10, 1
- index $I11, "{", $S10
- lt $I11, 0, rx1350_fail
- # rx subrule "codeblock" subtype=capture negate=
- rx1350_cur."!cursor_pos"(rx1350_pos)
- $P10 = rx1350_cur."codeblock"()
- unless $P10, rx1350_fail
- rx1350_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("codeblock")
- rx1350_pos = $P10."pos"()
-.annotate 'line', 577
- # rx pass
- rx1350_cur."!cursor_pass"(rx1350_pos, "assertion:sym<{ }>")
- rx1350_cur."!cursor_debug"("PASS ", "assertion:sym<{ }>", " at pos=", rx1350_pos)
- .return (rx1350_cur)
- rx1350_fail:
-.annotate 'line', 548
- (rx1350_rep, rx1350_pos, $I10, $P10) = rx1350_cur."!mark_fail"(0)
- lt rx1350_pos, -1, rx1350_done
- eq rx1350_pos, -1, rx1350_fail
- jump $I10
- rx1350_done:
- rx1350_cur."!cursor_fail"()
- rx1350_cur."!cursor_debug"("FAIL ", "assertion:sym<{ }>")
- .return (rx1350_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<{ }>" :subid("348_1274564776.41408") :method
-.annotate 'line', 548
- new $P1352, "ResizablePMCArray"
- push $P1352, "{"
- .return ($P1352)
-.end
-
-
-.namespace ["NQP";"Regex"]
-.sub "assertion:sym<name>" :subid("349_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .const 'Sub' $P1363 = "351_1274564776.41408"
- capture_lex $P1363
- .local string rx1355_tgt
- .local int rx1355_pos
- .local int rx1355_off
- .local int rx1355_eos
- .local int rx1355_rep
- .local pmc rx1355_cur
- (rx1355_cur, rx1355_pos, rx1355_tgt) = self."!cursor_start"()
- rx1355_cur."!cursor_debug"("START ", "assertion:sym<name>")
- rx1355_cur."!cursor_caparray"("assertion", "nibbler", "arglist")
- .lex unicode:"$\x{a2}", rx1355_cur
- .local pmc match
- .lex "$/", match
- length rx1355_eos, rx1355_tgt
- set rx1355_off, 0
- lt rx1355_pos, 2, rx1355_start
- sub rx1355_off, rx1355_pos, 1
- substr rx1355_tgt, rx1355_tgt, rx1355_off
- rx1355_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1358_done
- goto rxscan1358_scan
- rxscan1358_loop:
- ($P10) = rx1355_cur."from"()
- inc $P10
- set rx1355_pos, $P10
- ge rx1355_pos, rx1355_eos, rxscan1358_done
- rxscan1358_scan:
- set_addr $I10, rxscan1358_loop
- rx1355_cur."!mark_push"(0, rx1355_pos, $I10)
- rxscan1358_done:
-.annotate 'line', 582
+.sub "assertion:sym<name>" :subid("346_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .const 'Sub' $P1343 = "348_1275117591.97262"
+ capture_lex $P1343
+ .local string rx1335_tgt
+ .local int rx1335_pos
+ .local int rx1335_off
+ .local int rx1335_eos
+ .local int rx1335_rep
+ .local pmc rx1335_cur
+ (rx1335_cur, rx1335_pos, rx1335_tgt) = self."!cursor_start"()
+ rx1335_cur."!cursor_debug"("START ", "assertion:sym<name>")
+ rx1335_cur."!cursor_caparray"("nibbler", "arglist", "assertion")
+ .lex unicode:"$\x{a2}", rx1335_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1335_eos, rx1335_tgt
+ set rx1335_off, 0
+ lt rx1335_pos, 2, rx1335_start
+ sub rx1335_off, rx1335_pos, 1
+ substr rx1335_tgt, rx1335_tgt, rx1335_off
+ rx1335_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1338_done
+ goto rxscan1338_scan
+ rxscan1338_loop:
+ ($P10) = rx1335_cur."from"()
+ inc $P10
+ set rx1335_pos, $P10
+ ge rx1335_pos, rx1335_eos, rxscan1338_done
+ rxscan1338_scan:
+ set_addr $I10, rxscan1338_loop
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
+ rxscan1338_done:
+.annotate 'line', 572
# rx subcapture "longname"
- set_addr $I10, rxcap_1359_fail
- rx1355_cur."!mark_push"(0, rx1355_pos, $I10)
+ set_addr $I10, rxcap_1339_fail
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
# rx charclass_q w r 1..-1
- sub $I10, rx1355_pos, rx1355_off
- find_not_cclass $I11, 8192, rx1355_tgt, $I10, rx1355_eos
+ sub $I10, rx1335_pos, rx1335_off
+ find_not_cclass $I11, 8192, rx1335_tgt, $I10, rx1335_eos
add $I12, $I10, 1
- lt $I11, $I12, rx1355_fail
- add rx1355_pos, rx1355_off, $I11
- set_addr $I10, rxcap_1359_fail
- ($I12, $I11) = rx1355_cur."!mark_peek"($I10)
- rx1355_cur."!cursor_pos"($I11)
- ($P10) = rx1355_cur."!cursor_start"()
- $P10."!cursor_pass"(rx1355_pos, "")
- rx1355_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx1335_fail
+ add rx1335_pos, rx1335_off, $I11
+ set_addr $I10, rxcap_1339_fail
+ ($I12, $I11) = rx1335_cur."!mark_peek"($I10)
+ rx1335_cur."!cursor_pos"($I11)
+ ($P10) = rx1335_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1335_pos, "")
+ rx1335_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("longname")
- goto rxcap_1359_done
- rxcap_1359_fail:
- goto rx1355_fail
- rxcap_1359_done:
-.annotate 'line', 589
- # rx rxquantr1360 ** 0..1
- set_addr $I1366, rxquantr1360_done
- rx1355_cur."!mark_push"(0, rx1355_pos, $I1366)
- rxquantr1360_loop:
- alt1361_0:
-.annotate 'line', 583
- set_addr $I10, alt1361_1
- rx1355_cur."!mark_push"(0, rx1355_pos, $I10)
-.annotate 'line', 584
+ goto rxcap_1339_done
+ rxcap_1339_fail:
+ goto rx1335_fail
+ rxcap_1339_done:
+.annotate 'line', 579
+ # rx rxquantr1340 ** 0..1
+ set_addr $I1346, rxquantr1340_done
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I1346)
+ rxquantr1340_loop:
+ alt1341_0:
+.annotate 'line', 573
+ set_addr $I10, alt1341_1
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
+.annotate 'line', 574
# rx subrule "before" subtype=zerowidth negate=
- rx1355_cur."!cursor_pos"(rx1355_pos)
- .const 'Sub' $P1363 = "351_1274564776.41408"
- capture_lex $P1363
- $P10 = rx1355_cur."before"($P1363)
- unless $P10, rx1355_fail
- goto alt1361_end
- alt1361_1:
- set_addr $I10, alt1361_2
- rx1355_cur."!mark_push"(0, rx1355_pos, $I10)
-.annotate 'line', 585
+ rx1335_cur."!cursor_pos"(rx1335_pos)
+ .const 'Sub' $P1343 = "348_1275117591.97262"
+ capture_lex $P1343
+ $P10 = rx1335_cur."before"($P1343)
+ unless $P10, rx1335_fail
+ goto alt1341_end
+ alt1341_1:
+ set_addr $I10, alt1341_2
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
+.annotate 'line', 575
# rx literal "="
- add $I11, rx1355_pos, 1
- gt $I11, rx1355_eos, rx1355_fail
- sub $I11, rx1355_pos, rx1355_off
- substr $S10, rx1355_tgt, $I11, 1
- ne $S10, "=", rx1355_fail
- add rx1355_pos, 1
+ add $I11, rx1335_pos, 1
+ gt $I11, rx1335_eos, rx1335_fail
+ sub $I11, rx1335_pos, rx1335_off
+ substr $S10, rx1335_tgt, $I11, 1
+ ne $S10, "=", rx1335_fail
+ add rx1335_pos, 1
# rx subrule "assertion" subtype=capture negate=
- rx1355_cur."!cursor_pos"(rx1355_pos)
- $P10 = rx1355_cur."assertion"()
- unless $P10, rx1355_fail
- rx1355_cur."!mark_push"(0, -1, 0, $P10)
+ rx1335_cur."!cursor_pos"(rx1335_pos)
+ $P10 = rx1335_cur."assertion"()
+ unless $P10, rx1335_fail
+ rx1335_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- rx1355_pos = $P10."pos"()
- goto alt1361_end
- alt1361_2:
- set_addr $I10, alt1361_3
- rx1355_cur."!mark_push"(0, rx1355_pos, $I10)
-.annotate 'line', 586
+ rx1335_pos = $P10."pos"()
+ goto alt1341_end
+ alt1341_2:
+ set_addr $I10, alt1341_3
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
+.annotate 'line', 576
# rx literal ":"
- add $I11, rx1355_pos, 1
- gt $I11, rx1355_eos, rx1355_fail
- sub $I11, rx1355_pos, rx1355_off
- substr $S10, rx1355_tgt, $I11, 1
- ne $S10, ":", rx1355_fail
- add rx1355_pos, 1
+ add $I11, rx1335_pos, 1
+ gt $I11, rx1335_eos, rx1335_fail
+ sub $I11, rx1335_pos, rx1335_off
+ substr $S10, rx1335_tgt, $I11, 1
+ ne $S10, ":", rx1335_fail
+ add rx1335_pos, 1
# rx subrule "arglist" subtype=capture negate=
- rx1355_cur."!cursor_pos"(rx1355_pos)
- $P10 = rx1355_cur."arglist"()
- unless $P10, rx1355_fail
- rx1355_cur."!mark_push"(0, -1, 0, $P10)
+ rx1335_cur."!cursor_pos"(rx1335_pos)
+ $P10 = rx1335_cur."arglist"()
+ unless $P10, rx1335_fail
+ rx1335_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx1355_pos = $P10."pos"()
- goto alt1361_end
- alt1361_3:
- set_addr $I10, alt1361_4
- rx1355_cur."!mark_push"(0, rx1355_pos, $I10)
-.annotate 'line', 587
+ rx1335_pos = $P10."pos"()
+ goto alt1341_end
+ alt1341_3:
+ set_addr $I10, alt1341_4
+ rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
+.annotate 'line', 577
# rx literal "("
- add $I11, rx1355_pos, 1
- gt $I11, rx1355_eos, rx1355_fail
- sub $I11, rx1355_pos, rx1355_off
- substr $S10, rx1355_tgt, $I11, 1
- ne $S10, "(", rx1355_fail
- add rx1355_pos, 1
+ add $I11, rx1335_pos, 1
+ gt $I11, rx1335_eos, rx1335_fail
+ sub $I11, rx1335_pos, rx1335_off
+ substr $S10, rx1335_tgt, $I11, 1
+ ne $S10, "(", rx1335_fail
+ add rx1335_pos, 1
# rx subrule "LANG" subtype=capture negate=
- rx1355_cur."!cursor_pos"(rx1355_pos)
- $P10 = rx1355_cur."LANG"("MAIN", "arglist")
- unless $P10, rx1355_fail
- rx1355_cur."!mark_push"(0, -1, 0, $P10)
+ rx1335_cur."!cursor_pos"(rx1335_pos)
+ $P10 = rx1335_cur."LANG"("MAIN", "arglist")
+ unless $P10, rx1335_fail
+ rx1335_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx1355_pos = $P10."pos"()
+ rx1335_pos = $P10."pos"()
# rx literal ")"
- add $I11, rx1355_pos, 1
- gt $I11, rx1355_eos, rx1355_fail
- sub $I11, rx1355_pos, rx1355_off
- substr $S10, rx1355_tgt, $I11, 1
- ne $S10, ")", rx1355_fail
- add rx1355_pos, 1
- goto alt1361_end
- alt1361_4:
-.annotate 'line', 588
+ add $I11, rx1335_pos, 1
+ gt $I11, rx1335_eos, rx1335_fail
+ sub $I11, rx1335_pos, rx1335_off
+ substr $S10, rx1335_tgt, $I11, 1
+ ne $S10, ")", rx1335_fail
+ add rx1335_pos, 1
+ goto alt1341_end
+ alt1341_4:
+.annotate 'line', 578
# rx subrule "normspace" subtype=method negate=
- rx1355_cur."!cursor_pos"(rx1355_pos)
- $P10 = rx1355_cur."normspace"()
- unless $P10, rx1355_fail
- rx1355_pos = $P10."pos"()
+ rx1335_cur."!cursor_pos"(rx1335_pos)
+ $P10 = rx1335_cur."normspace"()
+ unless $P10, rx1335_fail
+ rx1335_pos = $P10."pos"()
# rx subrule "nibbler" subtype=capture negate=
- rx1355_cur."!cursor_pos"(rx1355_pos)
- $P10 = rx1355_cur."nibbler"()
- unless $P10, rx1355_fail
- rx1355_cur."!mark_push"(0, -1, 0, $P10)
+ rx1335_cur."!cursor_pos"(rx1335_pos)
+ $P10 = rx1335_cur."nibbler"()
+ unless $P10, rx1335_fail
+ rx1335_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("nibbler")
- rx1355_pos = $P10."pos"()
- alt1361_end:
-.annotate 'line', 589
- (rx1355_rep) = rx1355_cur."!mark_commit"($I1366)
- rxquantr1360_done:
-.annotate 'line', 581
+ rx1335_pos = $P10."pos"()
+ alt1341_end:
+.annotate 'line', 579
+ (rx1335_rep) = rx1335_cur."!mark_commit"($I1346)
+ rxquantr1340_done:
+.annotate 'line', 571
# rx pass
- rx1355_cur."!cursor_pass"(rx1355_pos, "assertion:sym<name>")
- rx1355_cur."!cursor_debug"("PASS ", "assertion:sym<name>", " at pos=", rx1355_pos)
- .return (rx1355_cur)
- rx1355_fail:
-.annotate 'line', 548
- (rx1355_rep, rx1355_pos, $I10, $P10) = rx1355_cur."!mark_fail"(0)
- lt rx1355_pos, -1, rx1355_done
- eq rx1355_pos, -1, rx1355_fail
- jump $I10
- rx1355_done:
- rx1355_cur."!cursor_fail"()
- rx1355_cur."!cursor_debug"("FAIL ", "assertion:sym<name>")
- .return (rx1355_cur)
+ rx1335_cur."!cursor_pass"(rx1335_pos, "assertion:sym<name>")
+ rx1335_cur."!cursor_debug"("PASS ", "assertion:sym<name>", " at pos=", rx1335_pos)
+ .return (rx1335_cur)
+ rx1335_fail:
+.annotate 'line', 550
+ (rx1335_rep, rx1335_pos, $I10, $P10) = rx1335_cur."!mark_fail"(0)
+ lt rx1335_pos, -1, rx1335_done
+ eq rx1335_pos, -1, rx1335_fail
+ jump $I10
+ rx1335_done:
+ rx1335_cur."!cursor_fail"()
+ rx1335_cur."!cursor_debug"("FAIL ", "assertion:sym<name>")
+ .return (rx1335_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<name>" :subid("350_1274564776.41408") :method
-.annotate 'line', 548
- new $P1357, "ResizablePMCArray"
- push $P1357, ""
- .return ($P1357)
+.sub "!PREFIX__assertion:sym<name>" :subid("347_1275117591.97262") :method
+.annotate 'line', 550
+ new $P1337, "ResizablePMCArray"
+ push $P1337, ""
+ .return ($P1337)
.end
.namespace ["NQP";"Regex"]
-.sub "_block1362" :anon :subid("351_1274564776.41408") :method :outer("349_1274564776.41408")
-.annotate 'line', 584
- .local string rx1364_tgt
- .local int rx1364_pos
- .local int rx1364_off
- .local int rx1364_eos
- .local int rx1364_rep
- .local pmc rx1364_cur
- (rx1364_cur, rx1364_pos, rx1364_tgt) = self."!cursor_start"()
- rx1364_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1364_cur
- .local pmc match
- .lex "$/", match
- length rx1364_eos, rx1364_tgt
- set rx1364_off, 0
- lt rx1364_pos, 2, rx1364_start
- sub rx1364_off, rx1364_pos, 1
- substr rx1364_tgt, rx1364_tgt, rx1364_off
- rx1364_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1365_done
- goto rxscan1365_scan
- rxscan1365_loop:
- ($P10) = rx1364_cur."from"()
- inc $P10
- set rx1364_pos, $P10
- ge rx1364_pos, rx1364_eos, rxscan1365_done
- rxscan1365_scan:
- set_addr $I10, rxscan1365_loop
- rx1364_cur."!mark_push"(0, rx1364_pos, $I10)
- rxscan1365_done:
+.sub "_block1342" :anon :subid("348_1275117591.97262") :method :outer("346_1275117591.97262")
+.annotate 'line', 574
+ .local string rx1344_tgt
+ .local int rx1344_pos
+ .local int rx1344_off
+ .local int rx1344_eos
+ .local int rx1344_rep
+ .local pmc rx1344_cur
+ (rx1344_cur, rx1344_pos, rx1344_tgt) = self."!cursor_start"()
+ rx1344_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx1344_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1344_eos, rx1344_tgt
+ set rx1344_off, 0
+ lt rx1344_pos, 2, rx1344_start
+ sub rx1344_off, rx1344_pos, 1
+ substr rx1344_tgt, rx1344_tgt, rx1344_off
+ rx1344_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1345_done
+ goto rxscan1345_scan
+ rxscan1345_loop:
+ ($P10) = rx1344_cur."from"()
+ inc $P10
+ set rx1344_pos, $P10
+ ge rx1344_pos, rx1344_eos, rxscan1345_done
+ rxscan1345_scan:
+ set_addr $I10, rxscan1345_loop
+ rx1344_cur."!mark_push"(0, rx1344_pos, $I10)
+ rxscan1345_done:
# rx literal ">"
- add $I11, rx1364_pos, 1
- gt $I11, rx1364_eos, rx1364_fail
- sub $I11, rx1364_pos, rx1364_off
- substr $S10, rx1364_tgt, $I11, 1
- ne $S10, ">", rx1364_fail
- add rx1364_pos, 1
- # rx pass
- rx1364_cur."!cursor_pass"(rx1364_pos, "")
- rx1364_cur."!cursor_debug"("PASS ", "", " at pos=", rx1364_pos)
- .return (rx1364_cur)
- rx1364_fail:
- (rx1364_rep, rx1364_pos, $I10, $P10) = rx1364_cur."!mark_fail"(0)
- lt rx1364_pos, -1, rx1364_done
- eq rx1364_pos, -1, rx1364_fail
- jump $I10
- rx1364_done:
- rx1364_cur."!cursor_fail"()
- rx1364_cur."!cursor_debug"("FAIL ", "")
- .return (rx1364_cur)
+ add $I11, rx1344_pos, 1
+ gt $I11, rx1344_eos, rx1344_fail
+ sub $I11, rx1344_pos, rx1344_off
+ substr $S10, rx1344_tgt, $I11, 1
+ ne $S10, ">", rx1344_fail
+ add rx1344_pos, 1
+ # rx pass
+ rx1344_cur."!cursor_pass"(rx1344_pos, "")
+ rx1344_cur."!cursor_debug"("PASS ", "", " at pos=", rx1344_pos)
+ .return (rx1344_cur)
+ rx1344_fail:
+ (rx1344_rep, rx1344_pos, $I10, $P10) = rx1344_cur."!mark_fail"(0)
+ lt rx1344_pos, -1, rx1344_done
+ eq rx1344_pos, -1, rx1344_fail
+ jump $I10
+ rx1344_done:
+ rx1344_cur."!cursor_fail"()
+ rx1344_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1344_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "codeblock" :subid("352_1274564776.41408") :method :outer("330_1274564776.41408")
-.annotate 'line', 548
- .local string rx1368_tgt
- .local int rx1368_pos
- .local int rx1368_off
- .local int rx1368_eos
- .local int rx1368_rep
- .local pmc rx1368_cur
- (rx1368_cur, rx1368_pos, rx1368_tgt) = self."!cursor_start"()
- rx1368_cur."!cursor_debug"("START ", "codeblock")
- .lex unicode:"$\x{a2}", rx1368_cur
- .local pmc match
- .lex "$/", match
- length rx1368_eos, rx1368_tgt
- set rx1368_off, 0
- lt rx1368_pos, 2, rx1368_start
- sub rx1368_off, rx1368_pos, 1
- substr rx1368_tgt, rx1368_tgt, rx1368_off
- rx1368_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1372_done
- goto rxscan1372_scan
- rxscan1372_loop:
- ($P10) = rx1368_cur."from"()
- inc $P10
- set rx1368_pos, $P10
- ge rx1368_pos, rx1368_eos, rxscan1372_done
- rxscan1372_scan:
- set_addr $I10, rxscan1372_loop
- rx1368_cur."!mark_push"(0, rx1368_pos, $I10)
- rxscan1372_done:
-.annotate 'line', 594
+.sub "assertion:sym<var>" :subid("349_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .local string rx1348_tgt
+ .local int rx1348_pos
+ .local int rx1348_off
+ .local int rx1348_eos
+ .local int rx1348_rep
+ .local pmc rx1348_cur
+ (rx1348_cur, rx1348_pos, rx1348_tgt) = self."!cursor_start"()
+ rx1348_cur."!cursor_debug"("START ", "assertion:sym<var>")
+ .lex unicode:"$\x{a2}", rx1348_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1348_eos, rx1348_tgt
+ set rx1348_off, 0
+ lt rx1348_pos, 2, rx1348_start
+ sub rx1348_off, rx1348_pos, 1
+ substr rx1348_tgt, rx1348_tgt, rx1348_off
+ rx1348_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1351_done
+ goto rxscan1351_scan
+ rxscan1351_loop:
+ ($P10) = rx1348_cur."from"()
+ inc $P10
+ set rx1348_pos, $P10
+ ge rx1348_pos, rx1348_eos, rxscan1351_done
+ rxscan1351_scan:
+ set_addr $I10, rxscan1351_loop
+ rx1348_cur."!mark_push"(0, rx1348_pos, $I10)
+ rxscan1351_done:
+.annotate 'line', 583
+ # rx enumcharlist negate=0 zerowidth
+ ge rx1348_pos, rx1348_eos, rx1348_fail
+ sub $I10, rx1348_pos, rx1348_off
+ substr $S10, rx1348_tgt, $I10, 1
+ index $I11, "$@", $S10
+ lt $I11, 0, rx1348_fail
# rx subrule "LANG" subtype=capture negate=
- rx1368_cur."!cursor_pos"(rx1368_pos)
- $P10 = rx1368_cur."LANG"("MAIN", "pblock")
- unless $P10, rx1368_fail
- rx1368_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("block")
- rx1368_pos = $P10."pos"()
-.annotate 'line', 593
+ rx1348_cur."!cursor_pos"(rx1348_pos)
+ $P10 = rx1348_cur."LANG"("MAIN", "variable")
+ unless $P10, rx1348_fail
+ rx1348_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("var")
+ rx1348_pos = $P10."pos"()
+.annotate 'line', 582
# rx pass
- rx1368_cur."!cursor_pass"(rx1368_pos, "codeblock")
- rx1368_cur."!cursor_debug"("PASS ", "codeblock", " at pos=", rx1368_pos)
- .return (rx1368_cur)
- rx1368_fail:
-.annotate 'line', 548
- (rx1368_rep, rx1368_pos, $I10, $P10) = rx1368_cur."!mark_fail"(0)
- lt rx1368_pos, -1, rx1368_done
- eq rx1368_pos, -1, rx1368_fail
- jump $I10
- rx1368_done:
- rx1368_cur."!cursor_fail"()
- rx1368_cur."!cursor_debug"("FAIL ", "codeblock")
- .return (rx1368_cur)
+ rx1348_cur."!cursor_pass"(rx1348_pos, "assertion:sym<var>")
+ rx1348_cur."!cursor_debug"("PASS ", "assertion:sym<var>", " at pos=", rx1348_pos)
+ .return (rx1348_cur)
+ rx1348_fail:
+.annotate 'line', 550
+ (rx1348_rep, rx1348_pos, $I10, $P10) = rx1348_cur."!mark_fail"(0)
+ lt rx1348_pos, -1, rx1348_done
+ eq rx1348_pos, -1, rx1348_fail
+ jump $I10
+ rx1348_done:
+ rx1348_cur."!cursor_fail"()
+ rx1348_cur."!cursor_debug"("FAIL ", "assertion:sym<var>")
+ .return (rx1348_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__codeblock" :subid("353_1274564776.41408") :method
-.annotate 'line', 548
- $P1370 = self."!PREFIX__!subrule"("block", "")
- new $P1371, "ResizablePMCArray"
- push $P1371, $P1370
- .return ($P1371)
+.sub "!PREFIX__assertion:sym<var>" :subid("350_1275117591.97262") :method
+.annotate 'line', 550
+ new $P1350, "ResizablePMCArray"
+ push $P1350, "$"
+ push $P1350, "@"
+ .return ($P1350)
+.end
+
+
+.namespace ["NQP";"Regex"]
+.sub "codeblock" :subid("351_1275117591.97262") :method :outer("332_1275117591.97262")
+.annotate 'line', 550
+ .local string rx1353_tgt
+ .local int rx1353_pos
+ .local int rx1353_off
+ .local int rx1353_eos
+ .local int rx1353_rep
+ .local pmc rx1353_cur
+ (rx1353_cur, rx1353_pos, rx1353_tgt) = self."!cursor_start"()
+ rx1353_cur."!cursor_debug"("START ", "codeblock")
+ .lex unicode:"$\x{a2}", rx1353_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1353_eos, rx1353_tgt
+ set rx1353_off, 0
+ lt rx1353_pos, 2, rx1353_start
+ sub rx1353_off, rx1353_pos, 1
+ substr rx1353_tgt, rx1353_tgt, rx1353_off
+ rx1353_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1357_done
+ goto rxscan1357_scan
+ rxscan1357_loop:
+ ($P10) = rx1353_cur."from"()
+ inc $P10
+ set rx1353_pos, $P10
+ ge rx1353_pos, rx1353_eos, rxscan1357_done
+ rxscan1357_scan:
+ set_addr $I10, rxscan1357_loop
+ rx1353_cur."!mark_push"(0, rx1353_pos, $I10)
+ rxscan1357_done:
+.annotate 'line', 587
+ # rx subrule "LANG" subtype=capture negate=
+ rx1353_cur."!cursor_pos"(rx1353_pos)
+ $P10 = rx1353_cur."LANG"("MAIN", "pblock")
+ unless $P10, rx1353_fail
+ rx1353_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("block")
+ rx1353_pos = $P10."pos"()
+.annotate 'line', 586
+ # rx pass
+ rx1353_cur."!cursor_pass"(rx1353_pos, "codeblock")
+ rx1353_cur."!cursor_debug"("PASS ", "codeblock", " at pos=", rx1353_pos)
+ .return (rx1353_cur)
+ rx1353_fail:
+.annotate 'line', 550
+ (rx1353_rep, rx1353_pos, $I10, $P10) = rx1353_cur."!mark_fail"(0)
+ lt rx1353_pos, -1, rx1353_done
+ eq rx1353_pos, -1, rx1353_fail
+ jump $I10
+ rx1353_done:
+ rx1353_cur."!cursor_fail"()
+ rx1353_cur."!cursor_debug"("FAIL ", "codeblock")
+ .return (rx1353_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Regex"]
+.sub "!PREFIX__codeblock" :subid("352_1275117591.97262") :method
+.annotate 'line', 550
+ $P1355 = self."!PREFIX__!subrule"("block", "")
+ new $P1356, "ResizablePMCArray"
+ push $P1356, $P1355
+ .return ($P1356)
.end
.namespace ["NQP";"Grammar"]
-.sub "_block1374" :load :anon :subid("354_1274564776.41408")
+.sub "_block1359" :load :anon :subid("353_1275117591.97262")
.annotate 'line', 4
- .const 'Sub' $P1376 = "11_1274564776.41408"
- $P1377 = $P1376()
- .return ($P1377)
+ .const 'Sub' $P1361 = "11_1275117591.97262"
+ $P1362 = $P1361()
+ .return ($P1362)
.end
.namespace []
-.sub "_block1395" :load :anon :subid("355_1274564776.41408")
+.sub "_block1380" :load :anon :subid("354_1275117591.97262")
.annotate 'line', 1
- .const 'Sub' $P1397 = "10_1274564776.41408"
- $P1398 = $P1397()
- .return ($P1398)
+ .const 'Sub' $P1382 = "10_1275117591.97262"
+ $P1383 = $P1382()
+ .return ($P1383)
.end
### .include 'gen/nqp-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564782.90592")
+.sub "_block11" :anon :subid("10_1275117616.72633")
.annotate 'line', 0
get_hll_global $P14, ["NQP";"Actions"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 3
get_hll_global $P14, ["NQP";"Actions"], "_block13"
capture_lex $P14
- $P2370 = $P14()
+ $P2323 = $P14()
.annotate 'line', 1
- .return ($P2370)
- .const 'Sub' $P2372 = "137_1274564782.90592"
- .return ($P2372)
+ .return ($P2323)
+ .const 'Sub' $P2325 = "137_1275117616.72633"
+ .return ($P2325)
.end
.namespace []
-.sub "" :load :init :subid("post138") :outer("10_1274564782.90592")
+.sub "" :load :init :subid("post138") :outer("10_1275117616.72633")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564782.90592"
+ .const 'Sub' $P12 = "10_1275117616.72633"
.local pmc block
set block, $P12
- $P2375 = get_root_global ["parrot"], "P6metaclass"
- $P2375."new_class"("NQP::Actions", "HLL::Actions" :named("parent"))
+ $P2328 = get_root_global ["parrot"], "P6metaclass"
+ $P2328."new_class"("NQP::Actions", "HLL::Actions" :named("parent"))
.end
.namespace ["NQP";"Actions"]
-.sub "_block13" :subid("11_1274564782.90592") :outer("10_1274564782.90592")
+.sub "_block13" :subid("11_1275117616.72633") :outer("10_1275117616.72633")
.annotate 'line', 3
- .const 'Sub' $P2366 = "136_1274564782.90592"
- capture_lex $P2366
- get_hll_global $P2189, ["NQP";"RegexActions"], "_block2188"
- capture_lex $P2189
- .const 'Sub' $P2178 = "125_1274564782.90592"
+ .const 'Sub' $P2319 = "136_1275117616.72633"
+ capture_lex $P2319
+ get_hll_global $P2203, ["NQP";"RegexActions"], "_block2202"
+ capture_lex $P2203
+ .const 'Sub' $P2192 = "126_1275117616.72633"
+ capture_lex $P2192
+ .const 'Sub' $P2185 = "125_1275117616.72633"
+ capture_lex $P2185
+ .const 'Sub' $P2178 = "124_1275117616.72633"
capture_lex $P2178
- .const 'Sub' $P2171 = "124_1274564782.90592"
+ .const 'Sub' $P2171 = "123_1275117616.72633"
capture_lex $P2171
- .const 'Sub' $P2164 = "123_1274564782.90592"
- capture_lex $P2164
- .const 'Sub' $P2157 = "122_1274564782.90592"
- capture_lex $P2157
- .const 'Sub' $P2144 = "121_1274564782.90592"
- capture_lex $P2144
- .const 'Sub' $P2134 = "120_1274564782.90592"
- capture_lex $P2134
- .const 'Sub' $P2124 = "119_1274564782.90592"
- capture_lex $P2124
- .const 'Sub' $P2114 = "118_1274564782.90592"
- capture_lex $P2114
- .const 'Sub' $P2107 = "117_1274564782.90592"
+ .const 'Sub' $P2158 = "122_1275117616.72633"
+ capture_lex $P2158
+ .const 'Sub' $P2148 = "121_1275117616.72633"
+ capture_lex $P2148
+ .const 'Sub' $P2138 = "120_1275117616.72633"
+ capture_lex $P2138
+ .const 'Sub' $P2128 = "119_1275117616.72633"
+ capture_lex $P2128
+ .const 'Sub' $P2121 = "118_1275117616.72633"
+ capture_lex $P2121
+ .const 'Sub' $P2107 = "117_1275117616.72633"
capture_lex $P2107
- .const 'Sub' $P2093 = "116_1274564782.90592"
- capture_lex $P2093
- .const 'Sub' $P2083 = "115_1274564782.90592"
- capture_lex $P2083
- .const 'Sub' $P2046 = "114_1274564782.90592"
+ .const 'Sub' $P2097 = "116_1275117616.72633"
+ capture_lex $P2097
+ .const 'Sub' $P2060 = "115_1275117616.72633"
+ capture_lex $P2060
+ .const 'Sub' $P2046 = "114_1275117616.72633"
capture_lex $P2046
- .const 'Sub' $P2032 = "113_1274564782.90592"
- capture_lex $P2032
- .const 'Sub' $P2022 = "112_1274564782.90592"
- capture_lex $P2022
- .const 'Sub' $P2012 = "111_1274564782.90592"
- capture_lex $P2012
- .const 'Sub' $P2002 = "110_1274564782.90592"
- capture_lex $P2002
- .const 'Sub' $P1992 = "109_1274564782.90592"
- capture_lex $P1992
- .const 'Sub' $P1982 = "108_1274564782.90592"
- capture_lex $P1982
- .const 'Sub' $P1954 = "107_1274564782.90592"
- capture_lex $P1954
- .const 'Sub' $P1937 = "106_1274564782.90592"
- capture_lex $P1937
- .const 'Sub' $P1927 = "105_1274564782.90592"
- capture_lex $P1927
- .const 'Sub' $P1914 = "104_1274564782.90592"
- capture_lex $P1914
- .const 'Sub' $P1901 = "103_1274564782.90592"
- capture_lex $P1901
- .const 'Sub' $P1888 = "102_1274564782.90592"
- capture_lex $P1888
- .const 'Sub' $P1878 = "101_1274564782.90592"
- capture_lex $P1878
- .const 'Sub' $P1849 = "100_1274564782.90592"
- capture_lex $P1849
- .const 'Sub' $P1825 = "99_1274564782.90592"
- capture_lex $P1825
- .const 'Sub' $P1815 = "98_1274564782.90592"
- capture_lex $P1815
- .const 'Sub' $P1805 = "97_1274564782.90592"
- capture_lex $P1805
- .const 'Sub' $P1778 = "96_1274564782.90592"
- capture_lex $P1778
- .const 'Sub' $P1760 = "95_1274564782.90592"
- capture_lex $P1760
- .const 'Sub' $P1750 = "94_1274564782.90592"
- capture_lex $P1750
- .const 'Sub' $P1646 = "91_1274564782.90592"
- capture_lex $P1646
- .const 'Sub' $P1636 = "90_1274564782.90592"
- capture_lex $P1636
- .const 'Sub' $P1607 = "89_1274564782.90592"
- capture_lex $P1607
- .const 'Sub' $P1565 = "88_1274564782.90592"
- capture_lex $P1565
- .const 'Sub' $P1549 = "87_1274564782.90592"
- capture_lex $P1549
- .const 'Sub' $P1540 = "86_1274564782.90592"
- capture_lex $P1540
- .const 'Sub' $P1508 = "85_1274564782.90592"
- capture_lex $P1508
- .const 'Sub' $P1409 = "82_1274564782.90592"
- capture_lex $P1409
- .const 'Sub' $P1392 = "81_1274564782.90592"
- capture_lex $P1392
- .const 'Sub' $P1372 = "80_1274564782.90592"
- capture_lex $P1372
- .const 'Sub' $P1288 = "79_1274564782.90592"
- capture_lex $P1288
- .const 'Sub' $P1264 = "77_1274564782.90592"
- capture_lex $P1264
- .const 'Sub' $P1230 = "75_1274564782.90592"
- capture_lex $P1230
- .const 'Sub' $P1180 = "73_1274564782.90592"
- capture_lex $P1180
- .const 'Sub' $P1170 = "72_1274564782.90592"
- capture_lex $P1170
- .const 'Sub' $P1160 = "71_1274564782.90592"
- capture_lex $P1160
- .const 'Sub' $P1089 = "69_1274564782.90592"
- capture_lex $P1089
- .const 'Sub' $P1072 = "68_1274564782.90592"
- capture_lex $P1072
- .const 'Sub' $P1062 = "67_1274564782.90592"
- capture_lex $P1062
- .const 'Sub' $P1052 = "66_1274564782.90592"
- capture_lex $P1052
- .const 'Sub' $P1042 = "65_1274564782.90592"
- capture_lex $P1042
- .const 'Sub' $P1032 = "64_1274564782.90592"
- capture_lex $P1032
- .const 'Sub' $P1008 = "63_1274564782.90592"
- capture_lex $P1008
- .const 'Sub' $P955 = "62_1274564782.90592"
- capture_lex $P955
- .const 'Sub' $P945 = "61_1274564782.90592"
- capture_lex $P945
- .const 'Sub' $P856 = "59_1274564782.90592"
- capture_lex $P856
- .const 'Sub' $P830 = "58_1274564782.90592"
- capture_lex $P830
- .const 'Sub' $P814 = "57_1274564782.90592"
- capture_lex $P814
- .const 'Sub' $P804 = "56_1274564782.90592"
- capture_lex $P804
- .const 'Sub' $P794 = "55_1274564782.90592"
- capture_lex $P794
- .const 'Sub' $P784 = "54_1274564782.90592"
- capture_lex $P784
- .const 'Sub' $P774 = "53_1274564782.90592"
- capture_lex $P774
- .const 'Sub' $P764 = "52_1274564782.90592"
- capture_lex $P764
- .const 'Sub' $P754 = "51_1274564782.90592"
- capture_lex $P754
- .const 'Sub' $P744 = "50_1274564782.90592"
- capture_lex $P744
- .const 'Sub' $P734 = "49_1274564782.90592"
- capture_lex $P734
- .const 'Sub' $P724 = "48_1274564782.90592"
- capture_lex $P724
- .const 'Sub' $P714 = "47_1274564782.90592"
- capture_lex $P714
- .const 'Sub' $P704 = "46_1274564782.90592"
- capture_lex $P704
- .const 'Sub' $P694 = "45_1274564782.90592"
- capture_lex $P694
- .const 'Sub' $P684 = "44_1274564782.90592"
- capture_lex $P684
- .const 'Sub' $P666 = "43_1274564782.90592"
- capture_lex $P666
- .const 'Sub' $P631 = "42_1274564782.90592"
- capture_lex $P631
- .const 'Sub' $P615 = "41_1274564782.90592"
- capture_lex $P615
- .const 'Sub' $P594 = "40_1274564782.90592"
- capture_lex $P594
- .const 'Sub' $P574 = "39_1274564782.90592"
- capture_lex $P574
- .const 'Sub' $P561 = "38_1274564782.90592"
- capture_lex $P561
- .const 'Sub' $P535 = "37_1274564782.90592"
- capture_lex $P535
- .const 'Sub' $P499 = "36_1274564782.90592"
- capture_lex $P499
- .const 'Sub' $P482 = "35_1274564782.90592"
+ .const 'Sub' $P2036 = "113_1275117616.72633"
+ capture_lex $P2036
+ .const 'Sub' $P2026 = "112_1275117616.72633"
+ capture_lex $P2026
+ .const 'Sub' $P2016 = "111_1275117616.72633"
+ capture_lex $P2016
+ .const 'Sub' $P2006 = "110_1275117616.72633"
+ capture_lex $P2006
+ .const 'Sub' $P1996 = "109_1275117616.72633"
+ capture_lex $P1996
+ .const 'Sub' $P1968 = "108_1275117616.72633"
+ capture_lex $P1968
+ .const 'Sub' $P1951 = "107_1275117616.72633"
+ capture_lex $P1951
+ .const 'Sub' $P1941 = "106_1275117616.72633"
+ capture_lex $P1941
+ .const 'Sub' $P1928 = "105_1275117616.72633"
+ capture_lex $P1928
+ .const 'Sub' $P1915 = "104_1275117616.72633"
+ capture_lex $P1915
+ .const 'Sub' $P1902 = "103_1275117616.72633"
+ capture_lex $P1902
+ .const 'Sub' $P1892 = "102_1275117616.72633"
+ capture_lex $P1892
+ .const 'Sub' $P1863 = "101_1275117616.72633"
+ capture_lex $P1863
+ .const 'Sub' $P1839 = "100_1275117616.72633"
+ capture_lex $P1839
+ .const 'Sub' $P1829 = "99_1275117616.72633"
+ capture_lex $P1829
+ .const 'Sub' $P1819 = "98_1275117616.72633"
+ capture_lex $P1819
+ .const 'Sub' $P1792 = "97_1275117616.72633"
+ capture_lex $P1792
+ .const 'Sub' $P1774 = "96_1275117616.72633"
+ capture_lex $P1774
+ .const 'Sub' $P1764 = "95_1275117616.72633"
+ capture_lex $P1764
+ .const 'Sub' $P1660 = "92_1275117616.72633"
+ capture_lex $P1660
+ .const 'Sub' $P1650 = "91_1275117616.72633"
+ capture_lex $P1650
+ .const 'Sub' $P1621 = "90_1275117616.72633"
+ capture_lex $P1621
+ .const 'Sub' $P1579 = "89_1275117616.72633"
+ capture_lex $P1579
+ .const 'Sub' $P1563 = "88_1275117616.72633"
+ capture_lex $P1563
+ .const 'Sub' $P1554 = "87_1275117616.72633"
+ capture_lex $P1554
+ .const 'Sub' $P1522 = "86_1275117616.72633"
+ capture_lex $P1522
+ .const 'Sub' $P1423 = "83_1275117616.72633"
+ capture_lex $P1423
+ .const 'Sub' $P1406 = "82_1275117616.72633"
+ capture_lex $P1406
+ .const 'Sub' $P1386 = "81_1275117616.72633"
+ capture_lex $P1386
+ .const 'Sub' $P1302 = "80_1275117616.72633"
+ capture_lex $P1302
+ .const 'Sub' $P1278 = "78_1275117616.72633"
+ capture_lex $P1278
+ .const 'Sub' $P1244 = "76_1275117616.72633"
+ capture_lex $P1244
+ .const 'Sub' $P1194 = "74_1275117616.72633"
+ capture_lex $P1194
+ .const 'Sub' $P1184 = "73_1275117616.72633"
+ capture_lex $P1184
+ .const 'Sub' $P1174 = "72_1275117616.72633"
+ capture_lex $P1174
+ .const 'Sub' $P1103 = "70_1275117616.72633"
+ capture_lex $P1103
+ .const 'Sub' $P1086 = "69_1275117616.72633"
+ capture_lex $P1086
+ .const 'Sub' $P1076 = "68_1275117616.72633"
+ capture_lex $P1076
+ .const 'Sub' $P1066 = "67_1275117616.72633"
+ capture_lex $P1066
+ .const 'Sub' $P1056 = "66_1275117616.72633"
+ capture_lex $P1056
+ .const 'Sub' $P1046 = "65_1275117616.72633"
+ capture_lex $P1046
+ .const 'Sub' $P1022 = "64_1275117616.72633"
+ capture_lex $P1022
+ .const 'Sub' $P969 = "63_1275117616.72633"
+ capture_lex $P969
+ .const 'Sub' $P959 = "62_1275117616.72633"
+ capture_lex $P959
+ .const 'Sub' $P870 = "60_1275117616.72633"
+ capture_lex $P870
+ .const 'Sub' $P844 = "59_1275117616.72633"
+ capture_lex $P844
+ .const 'Sub' $P828 = "58_1275117616.72633"
+ capture_lex $P828
+ .const 'Sub' $P818 = "57_1275117616.72633"
+ capture_lex $P818
+ .const 'Sub' $P808 = "56_1275117616.72633"
+ capture_lex $P808
+ .const 'Sub' $P798 = "55_1275117616.72633"
+ capture_lex $P798
+ .const 'Sub' $P788 = "54_1275117616.72633"
+ capture_lex $P788
+ .const 'Sub' $P778 = "53_1275117616.72633"
+ capture_lex $P778
+ .const 'Sub' $P768 = "52_1275117616.72633"
+ capture_lex $P768
+ .const 'Sub' $P758 = "51_1275117616.72633"
+ capture_lex $P758
+ .const 'Sub' $P748 = "50_1275117616.72633"
+ capture_lex $P748
+ .const 'Sub' $P738 = "49_1275117616.72633"
+ capture_lex $P738
+ .const 'Sub' $P728 = "48_1275117616.72633"
+ capture_lex $P728
+ .const 'Sub' $P718 = "47_1275117616.72633"
+ capture_lex $P718
+ .const 'Sub' $P708 = "46_1275117616.72633"
+ capture_lex $P708
+ .const 'Sub' $P698 = "45_1275117616.72633"
+ capture_lex $P698
+ .const 'Sub' $P680 = "44_1275117616.72633"
+ capture_lex $P680
+ .const 'Sub' $P645 = "43_1275117616.72633"
+ capture_lex $P645
+ .const 'Sub' $P629 = "42_1275117616.72633"
+ capture_lex $P629
+ .const 'Sub' $P608 = "41_1275117616.72633"
+ capture_lex $P608
+ .const 'Sub' $P588 = "40_1275117616.72633"
+ capture_lex $P588
+ .const 'Sub' $P575 = "39_1275117616.72633"
+ capture_lex $P575
+ .const 'Sub' $P549 = "38_1275117616.72633"
+ capture_lex $P549
+ .const 'Sub' $P513 = "37_1275117616.72633"
+ capture_lex $P513
+ .const 'Sub' $P496 = "36_1275117616.72633"
+ capture_lex $P496
+ .const 'Sub' $P482 = "35_1275117616.72633"
capture_lex $P482
- .const 'Sub' $P468 = "34_1274564782.90592"
- capture_lex $P468
- .const 'Sub' $P415 = "32_1274564782.90592"
- capture_lex $P415
- .const 'Sub' $P402 = "31_1274564782.90592"
- capture_lex $P402
- .const 'Sub' $P382 = "30_1274564782.90592"
- capture_lex $P382
- .const 'Sub' $P372 = "29_1274564782.90592"
- capture_lex $P372
- .const 'Sub' $P362 = "28_1274564782.90592"
- capture_lex $P362
- .const 'Sub' $P346 = "27_1274564782.90592"
- capture_lex $P346
- .const 'Sub' $P286 = "25_1274564782.90592"
- capture_lex $P286
- .const 'Sub' $P243 = "23_1274564782.90592"
- capture_lex $P243
- .const 'Sub' $P214 = "22_1274564782.90592"
+ .const 'Sub' $P429 = "33_1275117616.72633"
+ capture_lex $P429
+ .const 'Sub' $P418 = "32_1275117616.72633"
+ capture_lex $P418
+ .const 'Sub' $P405 = "31_1275117616.72633"
+ capture_lex $P405
+ .const 'Sub' $P385 = "30_1275117616.72633"
+ capture_lex $P385
+ .const 'Sub' $P375 = "29_1275117616.72633"
+ capture_lex $P375
+ .const 'Sub' $P365 = "28_1275117616.72633"
+ capture_lex $P365
+ .const 'Sub' $P349 = "27_1275117616.72633"
+ capture_lex $P349
+ .const 'Sub' $P289 = "25_1275117616.72633"
+ capture_lex $P289
+ .const 'Sub' $P246 = "23_1275117616.72633"
+ capture_lex $P246
+ .const 'Sub' $P214 = "22_1275117616.72633"
capture_lex $P214
- .const 'Sub' $P181 = "21_1274564782.90592"
+ .const 'Sub' $P181 = "21_1275117616.72633"
capture_lex $P181
- .const 'Sub' $P171 = "20_1274564782.90592"
+ .const 'Sub' $P171 = "20_1275117616.72633"
capture_lex $P171
- .const 'Sub' $P151 = "19_1274564782.90592"
+ .const 'Sub' $P151 = "19_1275117616.72633"
capture_lex $P151
- .const 'Sub' $P100 = "18_1274564782.90592"
+ .const 'Sub' $P100 = "18_1275117616.72633"
capture_lex $P100
- .const 'Sub' $P84 = "17_1274564782.90592"
+ .const 'Sub' $P84 = "17_1275117616.72633"
capture_lex $P84
- .const 'Sub' $P63 = "16_1274564782.90592"
+ .const 'Sub' $P63 = "16_1275117616.72633"
capture_lex $P63
- .const 'Sub' $P27 = "13_1274564782.90592"
+ .const 'Sub' $P27 = "13_1275117616.72633"
capture_lex $P27
- .const 'Sub' $P16 = "12_1274564782.90592"
+ .const 'Sub' $P16 = "12_1275117616.72633"
capture_lex $P16
get_global $P15, "@BLOCK"
unless_null $P15, vivify_141
@@ -17375,30 +17132,36 @@
set_global "@BLOCK", $P15
vivify_141:
.annotate 'line', 9
- .const 'Sub' $P16 = "12_1274564782.90592"
+ .const 'Sub' $P16 = "12_1275117616.72633"
newclosure $P26, $P16
.lex "xblock_immediate", $P26
.annotate 'line', 14
- .const 'Sub' $P27 = "13_1274564782.90592"
+ .const 'Sub' $P27 = "13_1275117616.72633"
newclosure $P62, $P27
.lex "block_immediate", $P62
.annotate 'line', 24
- .const 'Sub' $P63 = "16_1274564782.90592"
+ .const 'Sub' $P63 = "16_1275117616.72633"
newclosure $P83, $P63
.lex "vivitype", $P83
.annotate 'line', 43
- .const 'Sub' $P84 = "17_1274564782.90592"
+ .const 'Sub' $P84 = "17_1275117616.72633"
newclosure $P99, $P84
.lex "colonpair_str", $P99
-.annotate 'line', 204
- .const 'Sub' $P100 = "18_1274564782.90592"
+.annotate 'line', 213
+ .const 'Sub' $P100 = "18_1275117616.72633"
newclosure $P150, $P100
.lex "push_block_handler", $P150
-.annotate 'line', 788
- .const 'Sub' $P151 = "19_1274564782.90592"
+.annotate 'line', 797
+ .const 'Sub' $P151 = "19_1275117616.72633"
newclosure $P166, $P151
.lex "control", $P166
.annotate 'line', 3
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
get_global $P167, "@BLOCK"
.annotate 'line', 5
find_lex $P168, "xblock_immediate"
@@ -17406,53 +17169,53 @@
find_lex $P170, "vivitype"
.annotate 'line', 35
find_lex $P213, "colonpair_str"
-.annotate 'line', 197
- find_lex $P614, "push_block_handler"
-.annotate 'line', 779
- find_lex $P2156, "control"
-.annotate 'line', 810
- get_hll_global $P2189, ["NQP";"RegexActions"], "_block2188"
- capture_lex $P2189
- $P2360 = $P2189()
+.annotate 'line', 206
+ find_lex $P628, "push_block_handler"
+.annotate 'line', 788
+ find_lex $P2170, "control"
+.annotate 'line', 819
+ get_hll_global $P2203, ["NQP";"RegexActions"], "_block2202"
+ capture_lex $P2203
+ $P2313 = $P2203()
.annotate 'line', 3
- .return ($P2360)
- .const 'Sub' $P2362 = "135_1274564782.90592"
- .return ($P2362)
+ .return ($P2313)
+ .const 'Sub' $P2315 = "135_1275117616.72633"
+ .return ($P2315)
.end
.namespace ["NQP";"Actions"]
-.sub "" :load :init :subid("post139") :outer("11_1274564782.90592")
+.sub "" :load :init :subid("post139") :outer("11_1275117616.72633")
.annotate 'line', 3
get_hll_global $P14, ["NQP";"Actions"], "_block13"
.local pmc block
set block, $P14
.annotate 'line', 5
- .const 'Sub' $P2366 = "136_1274564782.90592"
- capture_lex $P2366
- $P2366()
- $P2369 = get_root_global ["parrot"], "P6metaclass"
- $P2369."new_class"("NQP::RegexActions", "Regex::P6Regex::Actions" :named("parent"))
+ .const 'Sub' $P2319 = "136_1275117616.72633"
+ capture_lex $P2319
+ $P2319()
+ $P2322 = get_root_global ["parrot"], "P6metaclass"
+ $P2322."new_class"("NQP::RegexActions", "Regex::P6Regex::Actions" :named("parent"))
.end
.namespace ["NQP";"Actions"]
-.sub "_block2365" :anon :subid("136_1274564782.90592") :outer("11_1274564782.90592")
+.sub "_block2318" :anon :subid("136_1275117616.72633") :outer("11_1275117616.72633")
.annotate 'line', 6
- get_global $P2367, "@BLOCK"
- unless_null $P2367, vivify_140
- $P2367 = root_new ['parrot';'ResizablePMCArray']
- set_global "@BLOCK", $P2367
+ get_global $P2320, "@BLOCK"
+ unless_null $P2320, vivify_140
+ $P2320 = root_new ['parrot';'ResizablePMCArray']
+ set_global "@BLOCK", $P2320
vivify_140:
- $P2368 = new ['ResizablePMCArray']
- set_global "@BLOCK", $P2368
+ $P2321 = new ['ResizablePMCArray']
+ set_global "@BLOCK", $P2321
.annotate 'line', 5
- .return ($P2368)
+ .return ($P2321)
.end
.namespace ["NQP";"Actions"]
-.sub "xblock_immediate" :subid("12_1274564782.90592") :outer("11_1274564782.90592")
+.sub "xblock_immediate" :subid("12_1275117616.72633") :outer("11_1275117616.72633")
.param pmc param_19
.annotate 'line', 9
new $P18, 'ExceptionHandler'
@@ -17488,10 +17251,10 @@
.namespace ["NQP";"Actions"]
-.sub "block_immediate" :subid("13_1274564782.90592") :outer("11_1274564782.90592")
+.sub "block_immediate" :subid("13_1275117616.72633") :outer("11_1275117616.72633")
.param pmc param_30
.annotate 'line', 14
- .const 'Sub' $P40 = "14_1274564782.90592"
+ .const 'Sub' $P40 = "14_1275117616.72633"
capture_lex $P40
new $P29, 'ExceptionHandler'
set_addr $P29, control_28
@@ -17513,7 +17276,7 @@
set $P33, $P38
unless_34_end:
if $P33, unless_32_end
- .const 'Sub' $P40 = "14_1274564782.90592"
+ .const 'Sub' $P40 = "14_1275117616.72633"
capture_lex $P40
$P40()
unless_32_end:
@@ -17529,9 +17292,9 @@
.namespace ["NQP";"Actions"]
-.sub "_block39" :anon :subid("14_1274564782.90592") :outer("13_1274564782.90592")
+.sub "_block39" :anon :subid("14_1275117616.72633") :outer("13_1275117616.72633")
.annotate 'line', 16
- .const 'Sub' $P51 = "15_1274564782.90592"
+ .const 'Sub' $P51 = "15_1275117616.72633"
capture_lex $P51
.annotate 'line', 17
new $P41, "Undef"
@@ -17554,7 +17317,7 @@
unless $P45, loop56_done
shift $P49, $P45
loop56_redo:
- .const 'Sub' $P51 = "15_1274564782.90592"
+ .const 'Sub' $P51 = "15_1275117616.72633"
capture_lex $P51
$P51($P49)
loop56_next:
@@ -17577,7 +17340,7 @@
.namespace ["NQP";"Actions"]
-.sub "_block50" :anon :subid("15_1274564782.90592") :outer("14_1274564782.90592")
+.sub "_block50" :anon :subid("15_1275117616.72633") :outer("14_1275117616.72633")
.param pmc param_52
.annotate 'line', 18
.lex "$_", param_52
@@ -17589,7 +17352,7 @@
.namespace ["NQP";"Actions"]
-.sub "vivitype" :subid("16_1274564782.90592") :outer("11_1274564782.90592")
+.sub "vivitype" :subid("16_1275117616.72633") :outer("11_1275117616.72633")
.param pmc param_66
.annotate 'line', 24
new $P65, 'ExceptionHandler'
@@ -17637,7 +17400,7 @@
.namespace ["NQP";"Actions"]
-.sub "colonpair_str" :subid("17_1274564782.90592") :outer("11_1274564782.90592")
+.sub "colonpair_str" :subid("17_1275117616.72633") :outer("11_1275117616.72633")
.param pmc param_87
.annotate 'line', 43
new $P86, 'ExceptionHandler'
@@ -17675,17 +17438,17 @@
.namespace ["NQP";"Actions"]
-.sub "push_block_handler" :subid("18_1274564782.90592") :outer("11_1274564782.90592")
+.sub "push_block_handler" :subid("18_1275117616.72633") :outer("11_1275117616.72633")
.param pmc param_103
.param pmc param_104
-.annotate 'line', 204
+.annotate 'line', 213
new $P102, 'ExceptionHandler'
set_addr $P102, control_101
$P102."handle_types"(57)
push_eh $P102
.lex "$/", param_103
.lex "$block", param_104
-.annotate 'line', 205
+.annotate 'line', 214
get_global $P106, "@BLOCK"
unless_null $P106, vivify_146
$P106 = root_new ['parrot';'ResizablePMCArray']
@@ -17696,7 +17459,7 @@
vivify_147:
$P108 = $P107."handlers"()
if $P108, unless_105_end
-.annotate 'line', 206
+.annotate 'line', 215
get_global $P109, "@BLOCK"
unless_null $P109, vivify_148
$P109 = root_new ['parrot';'ResizablePMCArray']
@@ -17708,42 +17471,42 @@
new $P111, "ResizablePMCArray"
$P110."handlers"($P111)
unless_105_end:
-.annotate 'line', 208
+.annotate 'line', 217
find_lex $P113, "$block"
$P114 = $P113."arity"()
if $P114, unless_112_end
-.annotate 'line', 209
+.annotate 'line', 218
find_lex $P115, "$block"
-.annotate 'line', 210
+.annotate 'line', 219
get_hll_global $P116, ["PAST"], "Op"
-.annotate 'line', 211
+.annotate 'line', 220
get_hll_global $P117, ["PAST"], "Var"
$P118 = $P117."new"("lexical" :named("scope"), "$!" :named("name"), 1 :named("isdecl"))
-.annotate 'line', 212
+.annotate 'line', 221
get_hll_global $P119, ["PAST"], "Var"
$P120 = $P119."new"("lexical" :named("scope"), "$_" :named("name"))
$P121 = $P116."new"($P118, $P120, "bind" :named("pasttype"))
-.annotate 'line', 210
+.annotate 'line', 219
$P115."unshift"($P121)
-.annotate 'line', 215
+.annotate 'line', 224
find_lex $P122, "$block"
get_hll_global $P123, ["PAST"], "Var"
$P124 = $P123."new"("$_" :named("name"), "parameter" :named("scope"))
$P122."unshift"($P124)
-.annotate 'line', 216
+.annotate 'line', 225
find_lex $P125, "$block"
$P125."symbol"("$_", "lexical" :named("scope"))
-.annotate 'line', 217
+.annotate 'line', 226
find_lex $P126, "$block"
$P126."symbol"("$!", "lexical" :named("scope"))
-.annotate 'line', 218
+.annotate 'line', 227
find_lex $P127, "$block"
$P127."arity"(1)
unless_112_end:
-.annotate 'line', 220
+.annotate 'line', 229
find_lex $P128, "$block"
$P128."blocktype"("declaration")
-.annotate 'line', 221
+.annotate 'line', 230
get_global $P129, "@BLOCK"
unless_null $P129, vivify_150
$P129 = root_new ['parrot';'ResizablePMCArray']
@@ -17753,35 +17516,35 @@
new $P130, "Undef"
vivify_151:
$P131 = $P130."handlers"()
-.annotate 'line', 222
+.annotate 'line', 231
get_hll_global $P132, ["PAST"], "Control"
find_lex $P133, "$/"
-.annotate 'line', 224
+.annotate 'line', 233
get_hll_global $P134, ["PAST"], "Stmts"
-.annotate 'line', 225
+.annotate 'line', 234
get_hll_global $P135, ["PAST"], "Op"
find_lex $P136, "$block"
-.annotate 'line', 227
+.annotate 'line', 236
get_hll_global $P137, ["PAST"], "Var"
$P138 = $P137."new"("register" :named("scope"), "exception" :named("name"))
$P139 = $P135."new"($P136, $P138, "call" :named("pasttype"))
-.annotate 'line', 229
+.annotate 'line', 238
get_hll_global $P140, ["PAST"], "Op"
-.annotate 'line', 230
+.annotate 'line', 239
get_hll_global $P141, ["PAST"], "Var"
-.annotate 'line', 231
+.annotate 'line', 240
get_hll_global $P142, ["PAST"], "Var"
$P143 = $P142."new"("register" :named("scope"), "exception" :named("name"))
$P144 = $P141."new"($P143, "handled", "keyed" :named("scope"))
-.annotate 'line', 230
+.annotate 'line', 239
$P145 = $P140."new"($P144, 1, "bind" :named("pasttype"))
-.annotate 'line', 229
+.annotate 'line', 238
$P146 = $P134."new"($P139, $P145)
-.annotate 'line', 224
+.annotate 'line', 233
$P147 = $P132."new"($P146, $P133 :named("node"))
-.annotate 'line', 222
+.annotate 'line', 231
$P148 = $P131."unshift"($P147)
-.annotate 'line', 204
+.annotate 'line', 213
.return ($P148)
control_101:
.local pmc exception
@@ -17792,21 +17555,21 @@
.namespace ["NQP";"Actions"]
-.sub "control" :subid("19_1274564782.90592") :outer("11_1274564782.90592")
+.sub "control" :subid("19_1275117616.72633") :outer("11_1275117616.72633")
.param pmc param_154
.param pmc param_155
-.annotate 'line', 788
+.annotate 'line', 797
new $P153, 'ExceptionHandler'
set_addr $P153, control_152
$P153."handle_types"(57)
push_eh $P153
.lex "$/", param_154
.lex "$id", param_155
-.annotate 'line', 789
+.annotate 'line', 798
find_lex $P156, "$/"
get_hll_global $P157, ["PAST"], "Op"
find_lex $P158, "$/"
-.annotate 'line', 795
+.annotate 'line', 804
new $P159, "String"
assign $P159, " %r[\"type\"] = "
find_lex $P160, "$id"
@@ -17817,9 +17580,9 @@
push $P162, $P161
push $P162, " throw %r"
$P163 = $P157."new"($P158 :named("node"), "inline" :named("pasttype"), $P162 :named("inline"))
-.annotate 'line', 789
+.annotate 'line', 798
$P164 = $P156."!make"($P163)
-.annotate 'line', 788
+.annotate 'line', 797
.return ($P164)
control_152:
.local pmc exception
@@ -17830,7 +17593,7 @@
.namespace ["NQP";"Actions"]
-.sub "TOP" :subid("20_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "TOP" :subid("20_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_174
.annotate 'line', 33
new $P173, 'ExceptionHandler'
@@ -17860,7 +17623,7 @@
.namespace ["NQP";"Actions"]
-.sub "deflongname" :subid("21_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "deflongname" :subid("21_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_184
.annotate 'line', 35
new $P183, 'ExceptionHandler'
@@ -17949,7 +17712,7 @@
.namespace ["NQP";"Actions"]
-.sub "comp_unit" :subid("22_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "comp_unit" :subid("22_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_217
.annotate 'line', 49
new $P216, 'ExceptionHandler'
@@ -17979,760 +17742,724 @@
get_global $P223, "@BLOCK"
$P224 = $P223."shift"()
store_lex "$unit", $P224
-.annotate 'line', 56
+.annotate 'line', 55
find_lex $P225, "$unit"
-.annotate 'line', 57
- get_hll_global $P226, ["PAST"], "Op"
- find_lex $P227, "$mainline"
- $P228 = $P226."new"($P227, "return" :named("pirop"))
- $P225."push"($P228)
-.annotate 'line', 62
- find_lex $P229, "$unit"
-.annotate 'line', 63
- get_hll_global $P230, ["PAST"], "Block"
-.annotate 'line', 65
- get_hll_global $P231, ["PAST"], "Op"
- get_hll_global $P232, ["PAST"], "Val"
- find_lex $P233, "$unit"
- $P234 = $P232."new"($P233 :named("value"))
- $P235 = $P231."new"($P234, "call" :named("pasttype"))
- $P236 = $P230."new"($P235, ":load" :named("pirflags"), 0 :named("lexical"), "" :named("namespace"))
-.annotate 'line', 63
- $P229."push"($P236)
-.annotate 'line', 68
- find_lex $P237, "$unit"
- find_lex $P238, "$/"
- $P237."node"($P238)
+ find_lex $P226, "self"
+ $P227 = $P226."CTXSAVE"()
+ $P225."push"($P227)
+.annotate 'line', 60
+ find_lex $P228, "$unit"
+.annotate 'line', 61
+ get_hll_global $P229, ["PAST"], "Op"
+ find_lex $P230, "$mainline"
+ $P231 = $P229."new"($P230, "return" :named("pirop"))
+ $P228."push"($P231)
+.annotate 'line', 66
+ find_lex $P232, "$unit"
+.annotate 'line', 67
+ get_hll_global $P233, ["PAST"], "Block"
.annotate 'line', 69
- find_lex $P239, "$/"
+ get_hll_global $P234, ["PAST"], "Op"
+ get_hll_global $P235, ["PAST"], "Val"
+ find_lex $P236, "$unit"
+ $P237 = $P235."new"($P236 :named("value"))
+ $P238 = $P234."new"($P237, "call" :named("pasttype"))
+ $P239 = $P233."new"($P238, ":load" :named("pirflags"), 0 :named("lexical"), "" :named("namespace"))
+.annotate 'line', 67
+ $P232."push"($P239)
+.annotate 'line', 72
find_lex $P240, "$unit"
- $P241 = $P239."!make"($P240)
+ find_lex $P241, "$/"
+ $P240."node"($P241)
+.annotate 'line', 73
+ find_lex $P242, "$/"
+ find_lex $P243, "$unit"
+ $P244 = $P242."!make"($P243)
.annotate 'line', 49
- .return ($P241)
+ .return ($P244)
control_215:
.local pmc exception
.get_results (exception)
- getattribute $P242, exception, "payload"
- .return ($P242)
+ getattribute $P245, exception, "payload"
+ .return ($P245)
.end
.namespace ["NQP";"Actions"]
-.sub "statementlist" :subid("23_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_246
-.annotate 'line', 72
- .const 'Sub' $P260 = "24_1274564782.90592"
- capture_lex $P260
- new $P245, 'ExceptionHandler'
- set_addr $P245, control_244
- $P245."handle_types"(57)
- push_eh $P245
+.sub "statementlist" :subid("23_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_249
+.annotate 'line', 76
+ .const 'Sub' $P263 = "24_1275117616.72633"
+ capture_lex $P263
+ new $P248, 'ExceptionHandler'
+ set_addr $P248, control_247
+ $P248."handle_types"(57)
+ push_eh $P248
.lex "self", self
- .lex "$/", param_246
-.annotate 'line', 73
- new $P247, "Undef"
- .lex "$past", $P247
- get_hll_global $P248, ["PAST"], "Stmts"
- find_lex $P249, "$/"
- $P250 = $P248."new"($P249 :named("node"))
- store_lex "$past", $P250
-.annotate 'line', 74
+ .lex "$/", param_249
+.annotate 'line', 77
+ new $P250, "Undef"
+ .lex "$past", $P250
+ get_hll_global $P251, ["PAST"], "Stmts"
find_lex $P252, "$/"
- unless_null $P252, vivify_166
- $P252 = root_new ['parrot';'Hash']
- vivify_166:
- set $P253, $P252["statement"]
- unless_null $P253, vivify_167
- new $P253, "Undef"
- vivify_167:
- unless $P253, if_251_end
-.annotate 'line', 75
+ $P253 = $P251."new"($P252 :named("node"))
+ store_lex "$past", $P253
+.annotate 'line', 78
find_lex $P255, "$/"
- unless_null $P255, vivify_168
+ unless_null $P255, vivify_166
$P255 = root_new ['parrot';'Hash']
- vivify_168:
+ vivify_166:
set $P256, $P255["statement"]
- unless_null $P256, vivify_169
+ unless_null $P256, vivify_167
new $P256, "Undef"
+ vivify_167:
+ unless $P256, if_254_end
+.annotate 'line', 79
+ find_lex $P258, "$/"
+ unless_null $P258, vivify_168
+ $P258 = root_new ['parrot';'Hash']
+ vivify_168:
+ set $P259, $P258["statement"]
+ unless_null $P259, vivify_169
+ new $P259, "Undef"
vivify_169:
- defined $I257, $P256
- unless $I257, for_undef_170
- iter $P254, $P256
- new $P280, 'ExceptionHandler'
- set_addr $P280, loop279_handler
- $P280."handle_types"(64, 66, 65)
- push_eh $P280
- loop279_test:
- unless $P254, loop279_done
- shift $P258, $P254
- loop279_redo:
- .const 'Sub' $P260 = "24_1274564782.90592"
- capture_lex $P260
- $P260($P258)
- loop279_next:
- goto loop279_test
- loop279_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P281, exception, 'type'
- eq $P281, 64, loop279_next
- eq $P281, 66, loop279_redo
- loop279_done:
+ defined $I260, $P259
+ unless $I260, for_undef_170
+ iter $P257, $P259
+ new $P283, 'ExceptionHandler'
+ set_addr $P283, loop282_handler
+ $P283."handle_types"(64, 66, 65)
+ push_eh $P283
+ loop282_test:
+ unless $P257, loop282_done
+ shift $P261, $P257
+ loop282_redo:
+ .const 'Sub' $P263 = "24_1275117616.72633"
+ capture_lex $P263
+ $P263($P261)
+ loop282_next:
+ goto loop282_test
+ loop282_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P284, exception, 'type'
+ eq $P284, 64, loop282_next
+ eq $P284, 66, loop282_redo
+ loop282_done:
pop_eh
for_undef_170:
- if_251_end:
-.annotate 'line', 82
- find_lex $P282, "$/"
- find_lex $P283, "$past"
- $P284 = $P282."!make"($P283)
-.annotate 'line', 72
- .return ($P284)
- control_244:
+ if_254_end:
+.annotate 'line', 86
+ find_lex $P285, "$/"
+ find_lex $P286, "$past"
+ $P287 = $P285."!make"($P286)
+.annotate 'line', 76
+ .return ($P287)
+ control_247:
.local pmc exception
.get_results (exception)
- getattribute $P285, exception, "payload"
- .return ($P285)
+ getattribute $P288, exception, "payload"
+ .return ($P288)
.end
.namespace ["NQP";"Actions"]
-.sub "_block259" :anon :subid("24_1274564782.90592") :outer("23_1274564782.90592")
- .param pmc param_262
-.annotate 'line', 76
- new $P261, "Undef"
- .lex "$ast", $P261
- .lex "$_", param_262
- find_lex $P263, "$_"
- $P264 = $P263."ast"()
- store_lex "$ast", $P264
-.annotate 'line', 77
- find_lex $P266, "$ast"
- unless_null $P266, vivify_171
- $P266 = root_new ['parrot';'Hash']
- vivify_171:
- set $P267, $P266["sink"]
- unless_null $P267, vivify_172
- new $P267, "Undef"
- vivify_172:
- defined $I268, $P267
- unless $I268, if_265_end
+.sub "_block262" :anon :subid("24_1275117616.72633") :outer("23_1275117616.72633")
+ .param pmc param_265
+.annotate 'line', 80
+ new $P264, "Undef"
+ .lex "$ast", $P264
+ .lex "$_", param_265
+ find_lex $P266, "$_"
+ $P267 = $P266."ast"()
+ store_lex "$ast", $P267
+.annotate 'line', 81
find_lex $P269, "$ast"
- unless_null $P269, vivify_173
+ unless_null $P269, vivify_171
$P269 = root_new ['parrot';'Hash']
- vivify_173:
+ vivify_171:
set $P270, $P269["sink"]
- unless_null $P270, vivify_174
+ unless_null $P270, vivify_172
new $P270, "Undef"
- vivify_174:
- store_lex "$ast", $P270
- if_265_end:
-.annotate 'line', 78
+ vivify_172:
+ defined $I271, $P270
+ unless $I271, if_268_end
find_lex $P272, "$ast"
- unless_null $P272, vivify_175
+ unless_null $P272, vivify_173
$P272 = root_new ['parrot';'Hash']
- vivify_175:
- set $P273, $P272["bareblock"]
- unless_null $P273, vivify_176
+ vivify_173:
+ set $P273, $P272["sink"]
+ unless_null $P273, vivify_174
new $P273, "Undef"
+ vivify_174:
+ store_lex "$ast", $P273
+ if_268_end:
+.annotate 'line', 82
+ find_lex $P275, "$ast"
+ unless_null $P275, vivify_175
+ $P275 = root_new ['parrot';'Hash']
+ vivify_175:
+ set $P276, $P275["bareblock"]
+ unless_null $P276, vivify_176
+ new $P276, "Undef"
vivify_176:
- unless $P273, if_271_end
- find_lex $P274, "$ast"
- $P275 = "block_immediate"($P274)
- store_lex "$ast", $P275
- if_271_end:
-.annotate 'line', 79
- find_lex $P276, "$past"
+ unless $P276, if_274_end
find_lex $P277, "$ast"
- $P278 = $P276."push"($P277)
-.annotate 'line', 75
- .return ($P278)
+ $P278 = "block_immediate"($P277)
+ store_lex "$ast", $P278
+ if_274_end:
+.annotate 'line', 83
+ find_lex $P279, "$past"
+ find_lex $P280, "$ast"
+ $P281 = $P279."push"($P280)
+.annotate 'line', 79
+ .return ($P281)
.end
.namespace ["NQP";"Actions"]
-.sub "statement" :subid("25_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_289
- .param pmc param_290 :optional
- .param int has_param_290 :opt_flag
-.annotate 'line', 85
- .const 'Sub' $P298 = "26_1274564782.90592"
- capture_lex $P298
- new $P288, 'ExceptionHandler'
- set_addr $P288, control_287
- $P288."handle_types"(57)
- push_eh $P288
- .lex "self", self
- .lex "$/", param_289
- if has_param_290, optparam_177
- new $P291, "Undef"
- set param_290, $P291
+.sub "statement" :subid("25_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_292
+ .param pmc param_293 :optional
+ .param int has_param_293 :opt_flag
+.annotate 'line', 89
+ .const 'Sub' $P301 = "26_1275117616.72633"
+ capture_lex $P301
+ new $P291, 'ExceptionHandler'
+ set_addr $P291, control_290
+ $P291."handle_types"(57)
+ push_eh $P291
+ .lex "self", self
+ .lex "$/", param_292
+ if has_param_293, optparam_177
+ new $P294, "Undef"
+ set param_293, $P294
optparam_177:
- .lex "$key", param_290
-.annotate 'line', 86
- new $P292, "Undef"
- .lex "$past", $P292
-.annotate 'line', 85
- find_lex $P293, "$past"
-.annotate 'line', 87
- find_lex $P295, "$/"
- unless_null $P295, vivify_178
- $P295 = root_new ['parrot';'Hash']
+ .lex "$key", param_293
+.annotate 'line', 90
+ new $P295, "Undef"
+ .lex "$past", $P295
+.annotate 'line', 89
+ find_lex $P296, "$past"
+.annotate 'line', 91
+ find_lex $P298, "$/"
+ unless_null $P298, vivify_178
+ $P298 = root_new ['parrot';'Hash']
vivify_178:
- set $P296, $P295["EXPR"]
- unless_null $P296, vivify_179
- new $P296, "Undef"
+ set $P299, $P298["EXPR"]
+ unless_null $P299, vivify_179
+ new $P299, "Undef"
vivify_179:
- if $P296, if_294
-.annotate 'line', 98
- find_lex $P336, "$/"
- unless_null $P336, vivify_180
- $P336 = root_new ['parrot';'Hash']
+ if $P299, if_297
+.annotate 'line', 102
+ find_lex $P339, "$/"
+ unless_null $P339, vivify_180
+ $P339 = root_new ['parrot';'Hash']
vivify_180:
- set $P337, $P336["statement_control"]
- unless_null $P337, vivify_181
- new $P337, "Undef"
+ set $P340, $P339["statement_control"]
+ unless_null $P340, vivify_181
+ new $P340, "Undef"
vivify_181:
- if $P337, if_335
-.annotate 'line', 99
- new $P341, "Integer"
- assign $P341, 0
- store_lex "$past", $P341
- goto if_335_end
- if_335:
-.annotate 'line', 98
- find_lex $P338, "$/"
- unless_null $P338, vivify_182
- $P338 = root_new ['parrot';'Hash']
+ if $P340, if_338
+.annotate 'line', 103
+ new $P344, "Integer"
+ assign $P344, 0
+ store_lex "$past", $P344
+ goto if_338_end
+ if_338:
+.annotate 'line', 102
+ find_lex $P341, "$/"
+ unless_null $P341, vivify_182
+ $P341 = root_new ['parrot';'Hash']
vivify_182:
- set $P339, $P338["statement_control"]
- unless_null $P339, vivify_183
- new $P339, "Undef"
+ set $P342, $P341["statement_control"]
+ unless_null $P342, vivify_183
+ new $P342, "Undef"
vivify_183:
- $P340 = $P339."ast"()
- store_lex "$past", $P340
- if_335_end:
- goto if_294_end
- if_294:
-.annotate 'line', 87
- .const 'Sub' $P298 = "26_1274564782.90592"
- capture_lex $P298
- $P298()
- if_294_end:
-.annotate 'line', 100
- find_lex $P342, "$/"
- find_lex $P343, "$past"
- $P344 = $P342."!make"($P343)
-.annotate 'line', 85
- .return ($P344)
- control_287:
+ $P343 = $P342."ast"()
+ store_lex "$past", $P343
+ if_338_end:
+ goto if_297_end
+ if_297:
+.annotate 'line', 91
+ .const 'Sub' $P301 = "26_1275117616.72633"
+ capture_lex $P301
+ $P301()
+ if_297_end:
+.annotate 'line', 104
+ find_lex $P345, "$/"
+ find_lex $P346, "$past"
+ $P347 = $P345."!make"($P346)
+.annotate 'line', 89
+ .return ($P347)
+ control_290:
.local pmc exception
.get_results (exception)
- getattribute $P345, exception, "payload"
- .return ($P345)
+ getattribute $P348, exception, "payload"
+ .return ($P348)
.end
.namespace ["NQP";"Actions"]
-.sub "_block297" :anon :subid("26_1274564782.90592") :outer("25_1274564782.90592")
-.annotate 'line', 88
- new $P299, "Undef"
- .lex "$mc", $P299
-.annotate 'line', 89
- new $P300, "Undef"
- .lex "$ml", $P300
-.annotate 'line', 88
- find_lex $P301, "$/"
- unless_null $P301, vivify_184
- $P301 = root_new ['parrot';'Hash']
- vivify_184:
- set $P302, $P301["statement_mod_cond"]
- unless_null $P302, vivify_185
- $P302 = root_new ['parrot';'ResizablePMCArray']
- vivify_185:
- set $P303, $P302[0]
- unless_null $P303, vivify_186
+.sub "_block300" :anon :subid("26_1275117616.72633") :outer("25_1275117616.72633")
+.annotate 'line', 92
+ new $P302, "Undef"
+ .lex "$mc", $P302
+.annotate 'line', 93
new $P303, "Undef"
- vivify_186:
- store_lex "$mc", $P303
-.annotate 'line', 89
+ .lex "$ml", $P303
+.annotate 'line', 92
find_lex $P304, "$/"
- unless_null $P304, vivify_187
+ unless_null $P304, vivify_184
$P304 = root_new ['parrot';'Hash']
- vivify_187:
- set $P305, $P304["statement_mod_loop"]
- unless_null $P305, vivify_188
+ vivify_184:
+ set $P305, $P304["statement_mod_cond"]
+ unless_null $P305, vivify_185
$P305 = root_new ['parrot';'ResizablePMCArray']
- vivify_188:
+ vivify_185:
set $P306, $P305[0]
- unless_null $P306, vivify_189
+ unless_null $P306, vivify_186
new $P306, "Undef"
- vivify_189:
- store_lex "$ml", $P306
-.annotate 'line', 90
+ vivify_186:
+ store_lex "$mc", $P306
+.annotate 'line', 93
find_lex $P307, "$/"
- unless_null $P307, vivify_190
+ unless_null $P307, vivify_187
$P307 = root_new ['parrot';'Hash']
+ vivify_187:
+ set $P308, $P307["statement_mod_loop"]
+ unless_null $P308, vivify_188
+ $P308 = root_new ['parrot';'ResizablePMCArray']
+ vivify_188:
+ set $P309, $P308[0]
+ unless_null $P309, vivify_189
+ new $P309, "Undef"
+ vivify_189:
+ store_lex "$ml", $P309
+.annotate 'line', 94
+ find_lex $P310, "$/"
+ unless_null $P310, vivify_190
+ $P310 = root_new ['parrot';'Hash']
vivify_190:
- set $P308, $P307["EXPR"]
- unless_null $P308, vivify_191
- new $P308, "Undef"
+ set $P311, $P310["EXPR"]
+ unless_null $P311, vivify_191
+ new $P311, "Undef"
vivify_191:
- $P309 = $P308."ast"()
- store_lex "$past", $P309
-.annotate 'line', 91
- find_lex $P311, "$mc"
- unless $P311, if_310_end
-.annotate 'line', 92
- get_hll_global $P312, ["PAST"], "Op"
- find_lex $P313, "$mc"
- unless_null $P313, vivify_192
- $P313 = root_new ['parrot';'Hash']
+ $P312 = $P311."ast"()
+ store_lex "$past", $P312
+.annotate 'line', 95
+ find_lex $P314, "$mc"
+ unless $P314, if_313_end
+.annotate 'line', 96
+ get_hll_global $P315, ["PAST"], "Op"
+ find_lex $P316, "$mc"
+ unless_null $P316, vivify_192
+ $P316 = root_new ['parrot';'Hash']
vivify_192:
- set $P314, $P313["cond"]
- unless_null $P314, vivify_193
- new $P314, "Undef"
+ set $P317, $P316["cond"]
+ unless_null $P317, vivify_193
+ new $P317, "Undef"
vivify_193:
- $P315 = $P314."ast"()
- find_lex $P316, "$past"
- find_lex $P317, "$mc"
- unless_null $P317, vivify_194
- $P317 = root_new ['parrot';'Hash']
+ $P318 = $P317."ast"()
+ find_lex $P319, "$past"
+ find_lex $P320, "$mc"
+ unless_null $P320, vivify_194
+ $P320 = root_new ['parrot';'Hash']
vivify_194:
- set $P318, $P317["sym"]
- unless_null $P318, vivify_195
- new $P318, "Undef"
+ set $P321, $P320["sym"]
+ unless_null $P321, vivify_195
+ new $P321, "Undef"
vivify_195:
- set $S319, $P318
- find_lex $P320, "$/"
- $P321 = $P312."new"($P315, $P316, $S319 :named("pasttype"), $P320 :named("node"))
- store_lex "$past", $P321
- if_310_end:
-.annotate 'line', 94
- find_lex $P324, "$ml"
- if $P324, if_323
- set $P322, $P324
- goto if_323_end
- if_323:
-.annotate 'line', 95
- get_hll_global $P325, ["PAST"], "Op"
- find_lex $P326, "$ml"
- unless_null $P326, vivify_196
- $P326 = root_new ['parrot';'Hash']
+ set $S322, $P321
+ find_lex $P323, "$/"
+ $P324 = $P315."new"($P318, $P319, $S322 :named("pasttype"), $P323 :named("node"))
+ store_lex "$past", $P324
+ if_313_end:
+.annotate 'line', 98
+ find_lex $P327, "$ml"
+ if $P327, if_326
+ set $P325, $P327
+ goto if_326_end
+ if_326:
+.annotate 'line', 99
+ get_hll_global $P328, ["PAST"], "Op"
+ find_lex $P329, "$ml"
+ unless_null $P329, vivify_196
+ $P329 = root_new ['parrot';'Hash']
vivify_196:
- set $P327, $P326["cond"]
- unless_null $P327, vivify_197
- new $P327, "Undef"
+ set $P330, $P329["cond"]
+ unless_null $P330, vivify_197
+ new $P330, "Undef"
vivify_197:
- $P328 = $P327."ast"()
- find_lex $P329, "$past"
- find_lex $P330, "$ml"
- unless_null $P330, vivify_198
- $P330 = root_new ['parrot';'Hash']
+ $P331 = $P330."ast"()
+ find_lex $P332, "$past"
+ find_lex $P333, "$ml"
+ unless_null $P333, vivify_198
+ $P333 = root_new ['parrot';'Hash']
vivify_198:
- set $P331, $P330["sym"]
- unless_null $P331, vivify_199
- new $P331, "Undef"
+ set $P334, $P333["sym"]
+ unless_null $P334, vivify_199
+ new $P334, "Undef"
vivify_199:
- set $S332, $P331
- find_lex $P333, "$/"
- $P334 = $P325."new"($P328, $P329, $S332 :named("pasttype"), $P333 :named("node"))
- store_lex "$past", $P334
-.annotate 'line', 94
- set $P322, $P334
- if_323_end:
-.annotate 'line', 87
- .return ($P322)
+ set $S335, $P334
+ find_lex $P336, "$/"
+ $P337 = $P328."new"($P331, $P332, $S335 :named("pasttype"), $P336 :named("node"))
+ store_lex "$past", $P337
+.annotate 'line', 98
+ set $P325, $P337
+ if_326_end:
+.annotate 'line', 91
+ .return ($P325)
.end
.namespace ["NQP";"Actions"]
-.sub "xblock" :subid("27_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_349
-.annotate 'line', 103
- new $P348, 'ExceptionHandler'
- set_addr $P348, control_347
- $P348."handle_types"(57)
- push_eh $P348
+.sub "xblock" :subid("27_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_352
+.annotate 'line', 107
+ new $P351, 'ExceptionHandler'
+ set_addr $P351, control_350
+ $P351."handle_types"(57)
+ push_eh $P351
.lex "self", self
- .lex "$/", param_349
-.annotate 'line', 104
- find_lex $P350, "$/"
- get_hll_global $P351, ["PAST"], "Op"
- find_lex $P352, "$/"
- unless_null $P352, vivify_200
- $P352 = root_new ['parrot';'Hash']
- vivify_200:
- set $P353, $P352["EXPR"]
- unless_null $P353, vivify_201
- new $P353, "Undef"
- vivify_201:
- $P354 = $P353."ast"()
+ .lex "$/", param_352
+.annotate 'line', 108
+ find_lex $P353, "$/"
+ get_hll_global $P354, ["PAST"], "Op"
find_lex $P355, "$/"
- unless_null $P355, vivify_202
+ unless_null $P355, vivify_200
$P355 = root_new ['parrot';'Hash']
- vivify_202:
- set $P356, $P355["pblock"]
- unless_null $P356, vivify_203
+ vivify_200:
+ set $P356, $P355["EXPR"]
+ unless_null $P356, vivify_201
new $P356, "Undef"
- vivify_203:
+ vivify_201:
$P357 = $P356."ast"()
find_lex $P358, "$/"
- $P359 = $P351."new"($P354, $P357, "if" :named("pasttype"), $P358 :named("node"))
- $P360 = $P350."!make"($P359)
-.annotate 'line', 103
- .return ($P360)
- control_347:
+ unless_null $P358, vivify_202
+ $P358 = root_new ['parrot';'Hash']
+ vivify_202:
+ set $P359, $P358["pblock"]
+ unless_null $P359, vivify_203
+ new $P359, "Undef"
+ vivify_203:
+ $P360 = $P359."ast"()
+ find_lex $P361, "$/"
+ $P362 = $P354."new"($P357, $P360, "if" :named("pasttype"), $P361 :named("node"))
+ $P363 = $P353."!make"($P362)
+.annotate 'line', 107
+ .return ($P363)
+ control_350:
.local pmc exception
.get_results (exception)
- getattribute $P361, exception, "payload"
- .return ($P361)
+ getattribute $P364, exception, "payload"
+ .return ($P364)
.end
.namespace ["NQP";"Actions"]
-.sub "pblock" :subid("28_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_365
-.annotate 'line', 107
- new $P364, 'ExceptionHandler'
- set_addr $P364, control_363
- $P364."handle_types"(57)
- push_eh $P364
+.sub "pblock" :subid("28_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_368
+.annotate 'line', 111
+ new $P367, 'ExceptionHandler'
+ set_addr $P367, control_366
+ $P367."handle_types"(57)
+ push_eh $P367
.lex "self", self
- .lex "$/", param_365
-.annotate 'line', 108
- find_lex $P366, "$/"
- find_lex $P367, "$/"
- unless_null $P367, vivify_204
- $P367 = root_new ['parrot';'Hash']
+ .lex "$/", param_368
+.annotate 'line', 112
+ find_lex $P369, "$/"
+ find_lex $P370, "$/"
+ unless_null $P370, vivify_204
+ $P370 = root_new ['parrot';'Hash']
vivify_204:
- set $P368, $P367["blockoid"]
- unless_null $P368, vivify_205
- new $P368, "Undef"
+ set $P371, $P370["blockoid"]
+ unless_null $P371, vivify_205
+ new $P371, "Undef"
vivify_205:
- $P369 = $P368."ast"()
- $P370 = $P366."!make"($P369)
-.annotate 'line', 107
- .return ($P370)
- control_363:
+ $P372 = $P371."ast"()
+ $P373 = $P369."!make"($P372)
+.annotate 'line', 111
+ .return ($P373)
+ control_366:
.local pmc exception
.get_results (exception)
- getattribute $P371, exception, "payload"
- .return ($P371)
+ getattribute $P374, exception, "payload"
+ .return ($P374)
.end
.namespace ["NQP";"Actions"]
-.sub "block" :subid("29_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_375
-.annotate 'line', 111
- new $P374, 'ExceptionHandler'
- set_addr $P374, control_373
- $P374."handle_types"(57)
- push_eh $P374
+.sub "block" :subid("29_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_378
+.annotate 'line', 115
+ new $P377, 'ExceptionHandler'
+ set_addr $P377, control_376
+ $P377."handle_types"(57)
+ push_eh $P377
.lex "self", self
- .lex "$/", param_375
-.annotate 'line', 112
- find_lex $P376, "$/"
- find_lex $P377, "$/"
- unless_null $P377, vivify_206
- $P377 = root_new ['parrot';'Hash']
+ .lex "$/", param_378
+.annotate 'line', 116
+ find_lex $P379, "$/"
+ find_lex $P380, "$/"
+ unless_null $P380, vivify_206
+ $P380 = root_new ['parrot';'Hash']
vivify_206:
- set $P378, $P377["blockoid"]
- unless_null $P378, vivify_207
- new $P378, "Undef"
+ set $P381, $P380["blockoid"]
+ unless_null $P381, vivify_207
+ new $P381, "Undef"
vivify_207:
- $P379 = $P378."ast"()
- $P380 = $P376."!make"($P379)
-.annotate 'line', 111
- .return ($P380)
- control_373:
+ $P382 = $P381."ast"()
+ $P383 = $P379."!make"($P382)
+.annotate 'line', 115
+ .return ($P383)
+ control_376:
.local pmc exception
.get_results (exception)
- getattribute $P381, exception, "payload"
- .return ($P381)
+ getattribute $P384, exception, "payload"
+ .return ($P384)
.end
.namespace ["NQP";"Actions"]
-.sub "blockoid" :subid("30_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_385
-.annotate 'line', 115
- new $P384, 'ExceptionHandler'
- set_addr $P384, control_383
- $P384."handle_types"(57)
- push_eh $P384
+.sub "blockoid" :subid("30_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_388
+.annotate 'line', 119
+ new $P387, 'ExceptionHandler'
+ set_addr $P387, control_386
+ $P387."handle_types"(57)
+ push_eh $P387
.lex "self", self
- .lex "$/", param_385
-.annotate 'line', 116
- new $P386, "Undef"
- .lex "$past", $P386
-.annotate 'line', 117
- new $P387, "Undef"
- .lex "$BLOCK", $P387
-.annotate 'line', 116
- find_lex $P388, "$/"
- unless_null $P388, vivify_208
- $P388 = root_new ['parrot';'Hash']
- vivify_208:
- set $P389, $P388["statementlist"]
- unless_null $P389, vivify_209
+ .lex "$/", param_388
+.annotate 'line', 120
new $P389, "Undef"
- vivify_209:
- $P390 = $P389."ast"()
- store_lex "$past", $P390
-.annotate 'line', 117
- get_global $P391, "@BLOCK"
- $P392 = $P391."shift"()
- store_lex "$BLOCK", $P392
-.annotate 'line', 118
- find_lex $P393, "$BLOCK"
- find_lex $P394, "$past"
- $P393."push"($P394)
-.annotate 'line', 119
- find_lex $P395, "$BLOCK"
- find_lex $P396, "$/"
- $P395."node"($P396)
+ .lex "$past", $P389
+.annotate 'line', 121
+ new $P390, "Undef"
+ .lex "$BLOCK", $P390
.annotate 'line', 120
- find_lex $P397, "$BLOCK"
- $P397."closure"(1)
+ find_lex $P391, "$/"
+ unless_null $P391, vivify_208
+ $P391 = root_new ['parrot';'Hash']
+ vivify_208:
+ set $P392, $P391["statementlist"]
+ unless_null $P392, vivify_209
+ new $P392, "Undef"
+ vivify_209:
+ $P393 = $P392."ast"()
+ store_lex "$past", $P393
.annotate 'line', 121
- find_lex $P398, "$/"
- find_lex $P399, "$BLOCK"
- $P400 = $P398."!make"($P399)
-.annotate 'line', 115
- .return ($P400)
- control_383:
+ get_global $P394, "@BLOCK"
+ $P395 = $P394."shift"()
+ store_lex "$BLOCK", $P395
+.annotate 'line', 122
+ find_lex $P396, "$BLOCK"
+ find_lex $P397, "$past"
+ $P396."push"($P397)
+.annotate 'line', 123
+ find_lex $P398, "$BLOCK"
+ find_lex $P399, "$/"
+ $P398."node"($P399)
+.annotate 'line', 124
+ find_lex $P400, "$BLOCK"
+ $P400."closure"(1)
+.annotate 'line', 125
+ find_lex $P401, "$/"
+ find_lex $P402, "$BLOCK"
+ $P403 = $P401."!make"($P402)
+.annotate 'line', 119
+ .return ($P403)
+ control_386:
.local pmc exception
.get_results (exception)
- getattribute $P401, exception, "payload"
- .return ($P401)
+ getattribute $P404, exception, "payload"
+ .return ($P404)
.end
.namespace ["NQP";"Actions"]
-.sub "newpad" :subid("31_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_405
-.annotate 'line', 124
- new $P404, 'ExceptionHandler'
- set_addr $P404, control_403
- $P404."handle_types"(57)
- push_eh $P404
- .lex "self", self
- .lex "$/", param_405
-.annotate 'line', 125
- get_global $P406, "@BLOCK"
- unless_null $P406, vivify_210
- $P406 = root_new ['parrot';'ResizablePMCArray']
- set_global "@BLOCK", $P406
+.sub "newpad" :subid("31_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_408
+.annotate 'line', 128
+ new $P407, 'ExceptionHandler'
+ set_addr $P407, control_406
+ $P407."handle_types"(57)
+ push_eh $P407
+ .lex "self", self
+ .lex "$/", param_408
+.annotate 'line', 129
+ get_global $P409, "@BLOCK"
+ unless_null $P409, vivify_210
+ $P409 = root_new ['parrot';'ResizablePMCArray']
+ set_global "@BLOCK", $P409
vivify_210:
-.annotate 'line', 124
- get_global $P407, "@BLOCK"
-.annotate 'line', 126
- get_global $P408, "@BLOCK"
- get_hll_global $P409, ["PAST"], "Block"
- get_hll_global $P410, ["PAST"], "Stmts"
- $P411 = $P410."new"()
- $P412 = $P409."new"($P411)
- $P413 = $P408."unshift"($P412)
-.annotate 'line', 124
- .return ($P413)
- control_403:
+.annotate 'line', 128
+ get_global $P410, "@BLOCK"
+.annotate 'line', 130
+ get_global $P411, "@BLOCK"
+ get_hll_global $P412, ["PAST"], "Block"
+ get_hll_global $P413, ["PAST"], "Stmts"
+ $P414 = $P413."new"()
+ $P415 = $P412."new"($P414)
+ $P416 = $P411."unshift"($P415)
+.annotate 'line', 128
+ .return ($P416)
+ control_406:
.local pmc exception
.get_results (exception)
- getattribute $P414, exception, "payload"
- .return ($P414)
+ getattribute $P417, exception, "payload"
+ .return ($P417)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<if>" :subid("32_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_418
-.annotate 'line', 131
- .const 'Sub' $P446 = "33_1274564782.90592"
- capture_lex $P446
- new $P417, 'ExceptionHandler'
- set_addr $P417, control_416
- $P417."handle_types"(57)
- push_eh $P417
- .lex "self", self
- .lex "$/", param_418
-.annotate 'line', 132
- new $P419, "Undef"
- .lex "$count", $P419
+.sub "outerctx" :subid("32_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_421
.annotate 'line', 133
- new $P420, "Undef"
- .lex "$past", $P420
-.annotate 'line', 132
- find_lex $P421, "$/"
- unless_null $P421, vivify_211
- $P421 = root_new ['parrot';'Hash']
+ new $P420, 'ExceptionHandler'
+ set_addr $P420, control_419
+ $P420."handle_types"(57)
+ push_eh $P420
+ .lex "self", self
+ .lex "$/", param_421
+.annotate 'line', 134
+ get_global $P422, "@BLOCK"
+ unless_null $P422, vivify_211
+ $P422 = root_new ['parrot';'ResizablePMCArray']
+ set_global "@BLOCK", $P422
vivify_211:
- set $P422, $P421["xblock"]
- unless_null $P422, vivify_212
- new $P422, "Undef"
- vivify_212:
- set $N423, $P422
- new $P424, 'Float'
- set $P424, $N423
- sub $P425, $P424, 1
- store_lex "$count", $P425
.annotate 'line', 133
- find_lex $P426, "$count"
- set $I427, $P426
- find_lex $P428, "$/"
- unless_null $P428, vivify_213
- $P428 = root_new ['parrot';'Hash']
+ get_global $P423, "@BLOCK"
+.annotate 'line', 135
+ find_lex $P424, "self"
+ get_global $P425, "@BLOCK"
+ unless_null $P425, vivify_212
+ $P425 = root_new ['parrot';'ResizablePMCArray']
+ vivify_212:
+ set $P426, $P425[0]
+ unless_null $P426, vivify_213
+ new $P426, "Undef"
vivify_213:
- set $P429, $P428["xblock"]
- unless_null $P429, vivify_214
- $P429 = root_new ['parrot';'ResizablePMCArray']
+ $P427 = $P424."SET_BLOCK_OUTER_CTX"($P426)
+.annotate 'line', 133
+ .return ($P427)
+ control_419:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P428, exception, "payload"
+ .return ($P428)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "statement_control:sym<if>" :subid("33_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_432
+.annotate 'line', 140
+ .const 'Sub' $P460 = "34_1275117616.72633"
+ capture_lex $P460
+ new $P431, 'ExceptionHandler'
+ set_addr $P431, control_430
+ $P431."handle_types"(57)
+ push_eh $P431
+ .lex "self", self
+ .lex "$/", param_432
+.annotate 'line', 141
+ new $P433, "Undef"
+ .lex "$count", $P433
+.annotate 'line', 142
+ new $P434, "Undef"
+ .lex "$past", $P434
+.annotate 'line', 141
+ find_lex $P435, "$/"
+ unless_null $P435, vivify_214
+ $P435 = root_new ['parrot';'Hash']
vivify_214:
- set $P430, $P429[$I427]
- unless_null $P430, vivify_215
- new $P430, "Undef"
+ set $P436, $P435["xblock"]
+ unless_null $P436, vivify_215
+ new $P436, "Undef"
vivify_215:
- $P431 = $P430."ast"()
- $P432 = "xblock_immediate"($P431)
- store_lex "$past", $P432
-.annotate 'line', 134
- find_lex $P434, "$/"
- unless_null $P434, vivify_216
- $P434 = root_new ['parrot';'Hash']
+ set $N437, $P436
+ new $P438, 'Float'
+ set $P438, $N437
+ sub $P439, $P438, 1
+ store_lex "$count", $P439
+.annotate 'line', 142
+ find_lex $P440, "$count"
+ set $I441, $P440
+ find_lex $P442, "$/"
+ unless_null $P442, vivify_216
+ $P442 = root_new ['parrot';'Hash']
vivify_216:
- set $P435, $P434["else"]
- unless_null $P435, vivify_217
- new $P435, "Undef"
+ set $P443, $P442["xblock"]
+ unless_null $P443, vivify_217
+ $P443 = root_new ['parrot';'ResizablePMCArray']
vivify_217:
- unless $P435, if_433_end
-.annotate 'line', 135
- find_lex $P436, "$past"
- find_lex $P437, "$/"
- unless_null $P437, vivify_218
- $P437 = root_new ['parrot';'Hash']
+ set $P444, $P443[$I441]
+ unless_null $P444, vivify_218
+ new $P444, "Undef"
vivify_218:
- set $P438, $P437["else"]
- unless_null $P438, vivify_219
- $P438 = root_new ['parrot';'ResizablePMCArray']
+ $P445 = $P444."ast"()
+ $P446 = "xblock_immediate"($P445)
+ store_lex "$past", $P446
+.annotate 'line', 143
+ find_lex $P448, "$/"
+ unless_null $P448, vivify_219
+ $P448 = root_new ['parrot';'Hash']
vivify_219:
- set $P439, $P438[0]
- unless_null $P439, vivify_220
- new $P439, "Undef"
+ set $P449, $P448["else"]
+ unless_null $P449, vivify_220
+ new $P449, "Undef"
vivify_220:
- $P440 = $P439."ast"()
- $P441 = "block_immediate"($P440)
- $P436."push"($P441)
- if_433_end:
-.annotate 'line', 138
- new $P462, 'ExceptionHandler'
- set_addr $P462, loop461_handler
- $P462."handle_types"(64, 66, 65)
- push_eh $P462
- loop461_test:
- find_lex $P442, "$count"
- set $N443, $P442
- isgt $I444, $N443, 0.0
- unless $I444, loop461_done
- loop461_redo:
- .const 'Sub' $P446 = "33_1274564782.90592"
- capture_lex $P446
- $P446()
- loop461_next:
- goto loop461_test
- loop461_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P463, exception, 'type'
- eq $P463, 64, loop461_next
- eq $P463, 66, loop461_redo
- loop461_done:
- pop_eh
+ unless $P449, if_447_end
.annotate 'line', 144
- find_lex $P464, "$/"
- find_lex $P465, "$past"
- $P466 = $P464."!make"($P465)
-.annotate 'line', 131
- .return ($P466)
- control_416:
- .local pmc exception
- .get_results (exception)
- getattribute $P467, exception, "payload"
- .return ($P467)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "_block445" :anon :subid("33_1274564782.90592") :outer("32_1274564782.90592")
-.annotate 'line', 140
- new $P447, "Undef"
- .lex "$else", $P447
-.annotate 'line', 138
- find_lex $P448, "$count"
- clone $P449, $P448
- dec $P448
-.annotate 'line', 140
find_lex $P450, "$past"
- store_lex "$else", $P450
-.annotate 'line', 141
- find_lex $P451, "$count"
- set $I452, $P451
- find_lex $P453, "$/"
- unless_null $P453, vivify_221
- $P453 = root_new ['parrot';'Hash']
+ find_lex $P451, "$/"
+ unless_null $P451, vivify_221
+ $P451 = root_new ['parrot';'Hash']
vivify_221:
- set $P454, $P453["xblock"]
- unless_null $P454, vivify_222
- $P454 = root_new ['parrot';'ResizablePMCArray']
+ set $P452, $P451["else"]
+ unless_null $P452, vivify_222
+ $P452 = root_new ['parrot';'ResizablePMCArray']
vivify_222:
- set $P455, $P454[$I452]
- unless_null $P455, vivify_223
- new $P455, "Undef"
+ set $P453, $P452[0]
+ unless_null $P453, vivify_223
+ new $P453, "Undef"
vivify_223:
- $P456 = $P455."ast"()
- $P457 = "xblock_immediate"($P456)
- store_lex "$past", $P457
-.annotate 'line', 142
- find_lex $P458, "$past"
- find_lex $P459, "$else"
- $P460 = $P458."push"($P459)
-.annotate 'line', 138
- .return ($P460)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<unless>" :subid("34_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_471
+ $P454 = $P453."ast"()
+ $P455 = "block_immediate"($P454)
+ $P450."push"($P455)
+ if_447_end:
.annotate 'line', 147
- new $P470, 'ExceptionHandler'
- set_addr $P470, control_469
- $P470."handle_types"(57)
- push_eh $P470
- .lex "self", self
- .lex "$/", param_471
-.annotate 'line', 148
- new $P472, "Undef"
- .lex "$past", $P472
- find_lex $P473, "$/"
- unless_null $P473, vivify_224
- $P473 = root_new ['parrot';'Hash']
- vivify_224:
- set $P474, $P473["xblock"]
- unless_null $P474, vivify_225
- new $P474, "Undef"
- vivify_225:
- $P475 = $P474."ast"()
- $P476 = "xblock_immediate"($P475)
- store_lex "$past", $P476
-.annotate 'line', 149
- find_lex $P477, "$past"
- $P477."pasttype"("unless")
-.annotate 'line', 150
+ new $P476, 'ExceptionHandler'
+ set_addr $P476, loop475_handler
+ $P476."handle_types"(64, 66, 65)
+ push_eh $P476
+ loop475_test:
+ find_lex $P456, "$count"
+ set $N457, $P456
+ isgt $I458, $N457, 0.0
+ unless $I458, loop475_done
+ loop475_redo:
+ .const 'Sub' $P460 = "34_1275117616.72633"
+ capture_lex $P460
+ $P460()
+ loop475_next:
+ goto loop475_test
+ loop475_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P477, exception, 'type'
+ eq $P477, 64, loop475_next
+ eq $P477, 66, loop475_redo
+ loop475_done:
+ pop_eh
+.annotate 'line', 153
find_lex $P478, "$/"
find_lex $P479, "$past"
$P480 = $P478."!make"($P479)
-.annotate 'line', 147
+.annotate 'line', 140
.return ($P480)
- control_469:
+ control_430:
.local pmc exception
.get_results (exception)
getattribute $P481, exception, "payload"
@@ -18741,4547 +18468,4591 @@
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<while>" :subid("35_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "_block459" :anon :subid("34_1275117616.72633") :outer("33_1275117616.72633")
+.annotate 'line', 149
+ new $P461, "Undef"
+ .lex "$else", $P461
+.annotate 'line', 147
+ find_lex $P462, "$count"
+ clone $P463, $P462
+ dec $P462
+.annotate 'line', 149
+ find_lex $P464, "$past"
+ store_lex "$else", $P464
+.annotate 'line', 150
+ find_lex $P465, "$count"
+ set $I466, $P465
+ find_lex $P467, "$/"
+ unless_null $P467, vivify_224
+ $P467 = root_new ['parrot';'Hash']
+ vivify_224:
+ set $P468, $P467["xblock"]
+ unless_null $P468, vivify_225
+ $P468 = root_new ['parrot';'ResizablePMCArray']
+ vivify_225:
+ set $P469, $P468[$I466]
+ unless_null $P469, vivify_226
+ new $P469, "Undef"
+ vivify_226:
+ $P470 = $P469."ast"()
+ $P471 = "xblock_immediate"($P470)
+ store_lex "$past", $P471
+.annotate 'line', 151
+ find_lex $P472, "$past"
+ find_lex $P473, "$else"
+ $P474 = $P472."push"($P473)
+.annotate 'line', 147
+ .return ($P474)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "statement_control:sym<unless>" :subid("35_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_485
-.annotate 'line', 153
+.annotate 'line', 156
new $P484, 'ExceptionHandler'
set_addr $P484, control_483
$P484."handle_types"(57)
push_eh $P484
.lex "self", self
.lex "$/", param_485
-.annotate 'line', 154
+.annotate 'line', 157
new $P486, "Undef"
.lex "$past", $P486
find_lex $P487, "$/"
- unless_null $P487, vivify_226
+ unless_null $P487, vivify_227
$P487 = root_new ['parrot';'Hash']
- vivify_226:
+ vivify_227:
set $P488, $P487["xblock"]
- unless_null $P488, vivify_227
+ unless_null $P488, vivify_228
new $P488, "Undef"
- vivify_227:
+ vivify_228:
$P489 = $P488."ast"()
$P490 = "xblock_immediate"($P489)
store_lex "$past", $P490
-.annotate 'line', 155
+.annotate 'line', 158
find_lex $P491, "$past"
+ $P491."pasttype"("unless")
+.annotate 'line', 159
find_lex $P492, "$/"
- unless_null $P492, vivify_228
- $P492 = root_new ['parrot';'Hash']
- vivify_228:
- set $P493, $P492["sym"]
- unless_null $P493, vivify_229
- new $P493, "Undef"
- vivify_229:
- set $S494, $P493
- $P491."pasttype"($S494)
+ find_lex $P493, "$past"
+ $P494 = $P492."!make"($P493)
.annotate 'line', 156
- find_lex $P495, "$/"
- find_lex $P496, "$past"
- $P497 = $P495."!make"($P496)
-.annotate 'line', 153
- .return ($P497)
+ .return ($P494)
control_483:
.local pmc exception
.get_results (exception)
- getattribute $P498, exception, "payload"
- .return ($P498)
+ getattribute $P495, exception, "payload"
+ .return ($P495)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<repeat>" :subid("36_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_502
-.annotate 'line', 159
- new $P501, 'ExceptionHandler'
- set_addr $P501, control_500
- $P501."handle_types"(57)
- push_eh $P501
+.sub "statement_control:sym<while>" :subid("36_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_499
+.annotate 'line', 162
+ new $P498, 'ExceptionHandler'
+ set_addr $P498, control_497
+ $P498."handle_types"(57)
+ push_eh $P498
.lex "self", self
- .lex "$/", param_502
-.annotate 'line', 160
- new $P503, "Undef"
- .lex "$pasttype", $P503
-.annotate 'line', 161
- new $P504, "Undef"
- .lex "$past", $P504
-.annotate 'line', 160
- new $P505, "String"
- assign $P505, "repeat_"
+ .lex "$/", param_499
+.annotate 'line', 163
+ new $P500, "Undef"
+ .lex "$past", $P500
+ find_lex $P501, "$/"
+ unless_null $P501, vivify_229
+ $P501 = root_new ['parrot';'Hash']
+ vivify_229:
+ set $P502, $P501["xblock"]
+ unless_null $P502, vivify_230
+ new $P502, "Undef"
+ vivify_230:
+ $P503 = $P502."ast"()
+ $P504 = "xblock_immediate"($P503)
+ store_lex "$past", $P504
+.annotate 'line', 164
+ find_lex $P505, "$past"
find_lex $P506, "$/"
- unless_null $P506, vivify_230
+ unless_null $P506, vivify_231
$P506 = root_new ['parrot';'Hash']
- vivify_230:
- set $P507, $P506["wu"]
- unless_null $P507, vivify_231
- new $P507, "Undef"
vivify_231:
+ set $P507, $P506["sym"]
+ unless_null $P507, vivify_232
+ new $P507, "Undef"
+ vivify_232:
set $S508, $P507
- concat $P509, $P505, $S508
- store_lex "$pasttype", $P509
+ $P505."pasttype"($S508)
+.annotate 'line', 165
+ find_lex $P509, "$/"
find_lex $P510, "$past"
+ $P511 = $P509."!make"($P510)
.annotate 'line', 162
- find_lex $P512, "$/"
- unless_null $P512, vivify_232
- $P512 = root_new ['parrot';'Hash']
- vivify_232:
- set $P513, $P512["xblock"]
- unless_null $P513, vivify_233
- new $P513, "Undef"
+ .return ($P511)
+ control_497:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P512, exception, "payload"
+ .return ($P512)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "statement_control:sym<repeat>" :subid("37_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_516
+.annotate 'line', 168
+ new $P515, 'ExceptionHandler'
+ set_addr $P515, control_514
+ $P515."handle_types"(57)
+ push_eh $P515
+ .lex "self", self
+ .lex "$/", param_516
+.annotate 'line', 169
+ new $P517, "Undef"
+ .lex "$pasttype", $P517
+.annotate 'line', 170
+ new $P518, "Undef"
+ .lex "$past", $P518
+.annotate 'line', 169
+ new $P519, "String"
+ assign $P519, "repeat_"
+ find_lex $P520, "$/"
+ unless_null $P520, vivify_233
+ $P520 = root_new ['parrot';'Hash']
vivify_233:
- if $P513, if_511
-.annotate 'line', 167
- get_hll_global $P520, ["PAST"], "Op"
- find_lex $P521, "$/"
+ set $P521, $P520["wu"]
unless_null $P521, vivify_234
- $P521 = root_new ['parrot';'Hash']
+ new $P521, "Undef"
vivify_234:
- set $P522, $P521["EXPR"]
- unless_null $P522, vivify_235
- new $P522, "Undef"
+ set $S522, $P521
+ concat $P523, $P519, $S522
+ store_lex "$pasttype", $P523
+ find_lex $P524, "$past"
+.annotate 'line', 171
+ find_lex $P526, "$/"
+ unless_null $P526, vivify_235
+ $P526 = root_new ['parrot';'Hash']
vivify_235:
- $P523 = $P522."ast"()
- find_lex $P524, "$/"
- unless_null $P524, vivify_236
- $P524 = root_new ['parrot';'Hash']
+ set $P527, $P526["xblock"]
+ unless_null $P527, vivify_236
+ new $P527, "Undef"
vivify_236:
- set $P525, $P524["pblock"]
- unless_null $P525, vivify_237
- new $P525, "Undef"
+ if $P527, if_525
+.annotate 'line', 176
+ get_hll_global $P534, ["PAST"], "Op"
+ find_lex $P535, "$/"
+ unless_null $P535, vivify_237
+ $P535 = root_new ['parrot';'Hash']
vivify_237:
- $P526 = $P525."ast"()
- $P527 = "block_immediate"($P526)
- find_lex $P528, "$pasttype"
- find_lex $P529, "$/"
- $P530 = $P520."new"($P523, $P527, $P528 :named("pasttype"), $P529 :named("node"))
- store_lex "$past", $P530
-.annotate 'line', 166
- goto if_511_end
- if_511:
-.annotate 'line', 163
- find_lex $P514, "$/"
- unless_null $P514, vivify_238
- $P514 = root_new ['parrot';'Hash']
+ set $P536, $P535["EXPR"]
+ unless_null $P536, vivify_238
+ new $P536, "Undef"
vivify_238:
- set $P515, $P514["xblock"]
- unless_null $P515, vivify_239
- new $P515, "Undef"
+ $P537 = $P536."ast"()
+ find_lex $P538, "$/"
+ unless_null $P538, vivify_239
+ $P538 = root_new ['parrot';'Hash']
vivify_239:
- $P516 = $P515."ast"()
- $P517 = "xblock_immediate"($P516)
- store_lex "$past", $P517
-.annotate 'line', 164
- find_lex $P518, "$past"
- find_lex $P519, "$pasttype"
- $P518."pasttype"($P519)
- if_511_end:
-.annotate 'line', 170
- find_lex $P531, "$/"
- find_lex $P532, "$past"
- $P533 = $P531."!make"($P532)
-.annotate 'line', 159
- .return ($P533)
- control_500:
- .local pmc exception
- .get_results (exception)
- getattribute $P534, exception, "payload"
- .return ($P534)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<for>" :subid("37_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_538
-.annotate 'line', 173
- new $P537, 'ExceptionHandler'
- set_addr $P537, control_536
- $P537."handle_types"(57)
- push_eh $P537
- .lex "self", self
- .lex "$/", param_538
-.annotate 'line', 174
+ set $P539, $P538["pblock"]
+ unless_null $P539, vivify_240
new $P539, "Undef"
- .lex "$past", $P539
-.annotate 'line', 176
- new $P540, "Undef"
- .lex "$block", $P540
-.annotate 'line', 174
- find_lex $P541, "$/"
- unless_null $P541, vivify_240
- $P541 = root_new ['parrot';'Hash']
vivify_240:
- set $P542, $P541["xblock"]
- unless_null $P542, vivify_241
- new $P542, "Undef"
- vivify_241:
- $P543 = $P542."ast"()
- store_lex "$past", $P543
+ $P540 = $P539."ast"()
+ $P541 = "block_immediate"($P540)
+ find_lex $P542, "$pasttype"
+ find_lex $P543, "$/"
+ $P544 = $P534."new"($P537, $P541, $P542 :named("pasttype"), $P543 :named("node"))
+ store_lex "$past", $P544
.annotate 'line', 175
- find_lex $P544, "$past"
- $P544."pasttype"("for")
-.annotate 'line', 176
- find_lex $P545, "$past"
- unless_null $P545, vivify_242
- $P545 = root_new ['parrot';'ResizablePMCArray']
+ goto if_525_end
+ if_525:
+.annotate 'line', 172
+ find_lex $P528, "$/"
+ unless_null $P528, vivify_241
+ $P528 = root_new ['parrot';'Hash']
+ vivify_241:
+ set $P529, $P528["xblock"]
+ unless_null $P529, vivify_242
+ new $P529, "Undef"
vivify_242:
- set $P546, $P545[1]
- unless_null $P546, vivify_243
- new $P546, "Undef"
- vivify_243:
- store_lex "$block", $P546
-.annotate 'line', 177
- find_lex $P548, "$block"
- $P549 = $P548."arity"()
- if $P549, unless_547_end
-.annotate 'line', 178
- find_lex $P550, "$block"
- unless_null $P550, vivify_244
- $P550 = root_new ['parrot';'ResizablePMCArray']
- vivify_244:
- set $P551, $P550[0]
- unless_null $P551, vivify_245
- new $P551, "Undef"
- vivify_245:
- get_hll_global $P552, ["PAST"], "Var"
- $P553 = $P552."new"("$_" :named("name"), "parameter" :named("scope"))
- $P551."push"($P553)
-.annotate 'line', 179
- find_lex $P554, "$block"
- $P554."symbol"("$_", "lexical" :named("scope"))
-.annotate 'line', 180
- find_lex $P555, "$block"
- $P555."arity"(1)
- unless_547_end:
-.annotate 'line', 182
- find_lex $P556, "$block"
- $P556."blocktype"("immediate")
-.annotate 'line', 183
- find_lex $P557, "$/"
- find_lex $P558, "$past"
- $P559 = $P557."!make"($P558)
+ $P530 = $P529."ast"()
+ $P531 = "xblock_immediate"($P530)
+ store_lex "$past", $P531
.annotate 'line', 173
- .return ($P559)
- control_536:
+ find_lex $P532, "$past"
+ find_lex $P533, "$pasttype"
+ $P532."pasttype"($P533)
+ if_525_end:
+.annotate 'line', 179
+ find_lex $P545, "$/"
+ find_lex $P546, "$past"
+ $P547 = $P545."!make"($P546)
+.annotate 'line', 168
+ .return ($P547)
+ control_514:
.local pmc exception
.get_results (exception)
- getattribute $P560, exception, "payload"
- .return ($P560)
+ getattribute $P548, exception, "payload"
+ .return ($P548)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<return>" :subid("38_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_564
-.annotate 'line', 186
- new $P563, 'ExceptionHandler'
- set_addr $P563, control_562
- $P563."handle_types"(57)
- push_eh $P563
+.sub "statement_control:sym<for>" :subid("38_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_552
+.annotate 'line', 182
+ new $P551, 'ExceptionHandler'
+ set_addr $P551, control_550
+ $P551."handle_types"(57)
+ push_eh $P551
.lex "self", self
- .lex "$/", param_564
-.annotate 'line', 187
- find_lex $P565, "$/"
- get_hll_global $P566, ["PAST"], "Op"
- find_lex $P567, "$/"
- unless_null $P567, vivify_246
- $P567 = root_new ['parrot';'Hash']
+ .lex "$/", param_552
+.annotate 'line', 183
+ new $P553, "Undef"
+ .lex "$past", $P553
+.annotate 'line', 185
+ new $P554, "Undef"
+ .lex "$block", $P554
+.annotate 'line', 183
+ find_lex $P555, "$/"
+ unless_null $P555, vivify_243
+ $P555 = root_new ['parrot';'Hash']
+ vivify_243:
+ set $P556, $P555["xblock"]
+ unless_null $P556, vivify_244
+ new $P556, "Undef"
+ vivify_244:
+ $P557 = $P556."ast"()
+ store_lex "$past", $P557
+.annotate 'line', 184
+ find_lex $P558, "$past"
+ $P558."pasttype"("for")
+.annotate 'line', 185
+ find_lex $P559, "$past"
+ unless_null $P559, vivify_245
+ $P559 = root_new ['parrot';'ResizablePMCArray']
+ vivify_245:
+ set $P560, $P559[1]
+ unless_null $P560, vivify_246
+ new $P560, "Undef"
vivify_246:
- set $P568, $P567["EXPR"]
- unless_null $P568, vivify_247
- new $P568, "Undef"
- vivify_247:
- $P569 = $P568."ast"()
- find_lex $P570, "$/"
- $P571 = $P566."new"($P569, "return" :named("pasttype"), $P570 :named("node"))
- $P572 = $P565."!make"($P571)
+ store_lex "$block", $P560
.annotate 'line', 186
- .return ($P572)
- control_562:
+ find_lex $P562, "$block"
+ $P563 = $P562."arity"()
+ if $P563, unless_561_end
+.annotate 'line', 187
+ find_lex $P564, "$block"
+ unless_null $P564, vivify_247
+ $P564 = root_new ['parrot';'ResizablePMCArray']
+ vivify_247:
+ set $P565, $P564[0]
+ unless_null $P565, vivify_248
+ new $P565, "Undef"
+ vivify_248:
+ get_hll_global $P566, ["PAST"], "Var"
+ $P567 = $P566."new"("$_" :named("name"), "parameter" :named("scope"))
+ $P565."push"($P567)
+.annotate 'line', 188
+ find_lex $P568, "$block"
+ $P568."symbol"("$_", "lexical" :named("scope"))
+.annotate 'line', 189
+ find_lex $P569, "$block"
+ $P569."arity"(1)
+ unless_561_end:
+.annotate 'line', 191
+ find_lex $P570, "$block"
+ $P570."blocktype"("immediate")
+.annotate 'line', 192
+ find_lex $P571, "$/"
+ find_lex $P572, "$past"
+ $P573 = $P571."!make"($P572)
+.annotate 'line', 182
+ .return ($P573)
+ control_550:
.local pmc exception
.get_results (exception)
- getattribute $P573, exception, "payload"
- .return ($P573)
+ getattribute $P574, exception, "payload"
+ .return ($P574)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<CATCH>" :subid("39_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_577
-.annotate 'line', 190
- new $P576, 'ExceptionHandler'
- set_addr $P576, control_575
- $P576."handle_types"(57)
- push_eh $P576
+.sub "statement_control:sym<return>" :subid("39_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_578
+.annotate 'line', 195
+ new $P577, 'ExceptionHandler'
+ set_addr $P577, control_576
+ $P577."handle_types"(57)
+ push_eh $P577
.lex "self", self
- .lex "$/", param_577
-.annotate 'line', 191
- new $P578, "Undef"
- .lex "$block", $P578
+ .lex "$/", param_578
+.annotate 'line', 196
find_lex $P579, "$/"
- unless_null $P579, vivify_248
- $P579 = root_new ['parrot';'Hash']
- vivify_248:
- set $P580, $P579["block"]
- unless_null $P580, vivify_249
- new $P580, "Undef"
+ get_hll_global $P580, ["PAST"], "Op"
+ find_lex $P581, "$/"
+ unless_null $P581, vivify_249
+ $P581 = root_new ['parrot';'Hash']
vivify_249:
- $P581 = $P580."ast"()
- store_lex "$block", $P581
-.annotate 'line', 192
- find_lex $P582, "$/"
- find_lex $P583, "$block"
- "push_block_handler"($P582, $P583)
-.annotate 'line', 193
- get_global $P584, "@BLOCK"
- unless_null $P584, vivify_250
- $P584 = root_new ['parrot';'ResizablePMCArray']
+ set $P582, $P581["EXPR"]
+ unless_null $P582, vivify_250
+ new $P582, "Undef"
vivify_250:
- set $P585, $P584[0]
- unless_null $P585, vivify_251
- new $P585, "Undef"
- vivify_251:
- $P586 = $P585."handlers"()
- set $P587, $P586[0]
- unless_null $P587, vivify_252
- new $P587, "Undef"
- vivify_252:
- $P587."handle_types_except"("CONTROL")
-.annotate 'line', 194
- find_lex $P588, "$/"
- get_hll_global $P589, ["PAST"], "Stmts"
- find_lex $P590, "$/"
- $P591 = $P589."new"($P590 :named("node"))
- $P592 = $P588."!make"($P591)
-.annotate 'line', 190
- .return ($P592)
- control_575:
+ $P583 = $P582."ast"()
+ find_lex $P584, "$/"
+ $P585 = $P580."new"($P583, "return" :named("pasttype"), $P584 :named("node"))
+ $P586 = $P579."!make"($P585)
+.annotate 'line', 195
+ .return ($P586)
+ control_576:
.local pmc exception
.get_results (exception)
- getattribute $P593, exception, "payload"
- .return ($P593)
+ getattribute $P587, exception, "payload"
+ .return ($P587)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<CONTROL>" :subid("40_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_597
-.annotate 'line', 197
- new $P596, 'ExceptionHandler'
- set_addr $P596, control_595
- $P596."handle_types"(57)
- push_eh $P596
+.sub "statement_control:sym<CATCH>" :subid("40_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_591
+.annotate 'line', 199
+ new $P590, 'ExceptionHandler'
+ set_addr $P590, control_589
+ $P590."handle_types"(57)
+ push_eh $P590
.lex "self", self
- .lex "$/", param_597
-.annotate 'line', 198
- new $P598, "Undef"
- .lex "$block", $P598
- find_lex $P599, "$/"
- unless_null $P599, vivify_253
- $P599 = root_new ['parrot';'Hash']
+ .lex "$/", param_591
+.annotate 'line', 200
+ new $P592, "Undef"
+ .lex "$block", $P592
+ find_lex $P593, "$/"
+ unless_null $P593, vivify_251
+ $P593 = root_new ['parrot';'Hash']
+ vivify_251:
+ set $P594, $P593["block"]
+ unless_null $P594, vivify_252
+ new $P594, "Undef"
+ vivify_252:
+ $P595 = $P594."ast"()
+ store_lex "$block", $P595
+.annotate 'line', 201
+ find_lex $P596, "$/"
+ find_lex $P597, "$block"
+ "push_block_handler"($P596, $P597)
+.annotate 'line', 202
+ get_global $P598, "@BLOCK"
+ unless_null $P598, vivify_253
+ $P598 = root_new ['parrot';'ResizablePMCArray']
vivify_253:
- set $P600, $P599["block"]
- unless_null $P600, vivify_254
- new $P600, "Undef"
+ set $P599, $P598[0]
+ unless_null $P599, vivify_254
+ new $P599, "Undef"
vivify_254:
- $P601 = $P600."ast"()
- store_lex "$block", $P601
-.annotate 'line', 199
- find_lex $P602, "$/"
- find_lex $P603, "$block"
- "push_block_handler"($P602, $P603)
-.annotate 'line', 200
- get_global $P604, "@BLOCK"
- unless_null $P604, vivify_255
- $P604 = root_new ['parrot';'ResizablePMCArray']
+ $P600 = $P599."handlers"()
+ set $P601, $P600[0]
+ unless_null $P601, vivify_255
+ new $P601, "Undef"
vivify_255:
- set $P605, $P604[0]
- unless_null $P605, vivify_256
- new $P605, "Undef"
- vivify_256:
- $P606 = $P605."handlers"()
- set $P607, $P606[0]
- unless_null $P607, vivify_257
- new $P607, "Undef"
- vivify_257:
- $P607."handle_types"("CONTROL")
-.annotate 'line', 201
- find_lex $P608, "$/"
- get_hll_global $P609, ["PAST"], "Stmts"
- find_lex $P610, "$/"
- $P611 = $P609."new"($P610 :named("node"))
- $P612 = $P608."!make"($P611)
-.annotate 'line', 197
- .return ($P612)
- control_595:
+ $P601."handle_types_except"("CONTROL")
+.annotate 'line', 203
+ find_lex $P602, "$/"
+ get_hll_global $P603, ["PAST"], "Stmts"
+ find_lex $P604, "$/"
+ $P605 = $P603."new"($P604 :named("node"))
+ $P606 = $P602."!make"($P605)
+.annotate 'line', 199
+ .return ($P606)
+ control_589:
.local pmc exception
.get_results (exception)
- getattribute $P613, exception, "payload"
- .return ($P613)
+ getattribute $P607, exception, "payload"
+ .return ($P607)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_prefix:sym<INIT>" :subid("41_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_618
-.annotate 'line', 241
- new $P617, 'ExceptionHandler'
- set_addr $P617, control_616
- $P617."handle_types"(57)
- push_eh $P617
- .lex "self", self
- .lex "$/", param_618
-.annotate 'line', 242
- get_global $P619, "@BLOCK"
- unless_null $P619, vivify_258
- $P619 = root_new ['parrot';'ResizablePMCArray']
+.sub "statement_control:sym<CONTROL>" :subid("41_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_611
+.annotate 'line', 206
+ new $P610, 'ExceptionHandler'
+ set_addr $P610, control_609
+ $P610."handle_types"(57)
+ push_eh $P610
+ .lex "self", self
+ .lex "$/", param_611
+.annotate 'line', 207
+ new $P612, "Undef"
+ .lex "$block", $P612
+ find_lex $P613, "$/"
+ unless_null $P613, vivify_256
+ $P613 = root_new ['parrot';'Hash']
+ vivify_256:
+ set $P614, $P613["block"]
+ unless_null $P614, vivify_257
+ new $P614, "Undef"
+ vivify_257:
+ $P615 = $P614."ast"()
+ store_lex "$block", $P615
+.annotate 'line', 208
+ find_lex $P616, "$/"
+ find_lex $P617, "$block"
+ "push_block_handler"($P616, $P617)
+.annotate 'line', 209
+ get_global $P618, "@BLOCK"
+ unless_null $P618, vivify_258
+ $P618 = root_new ['parrot';'ResizablePMCArray']
vivify_258:
- set $P620, $P619[0]
- unless_null $P620, vivify_259
- new $P620, "Undef"
+ set $P619, $P618[0]
+ unless_null $P619, vivify_259
+ new $P619, "Undef"
vivify_259:
- $P621 = $P620."loadinit"()
- find_lex $P622, "$/"
- unless_null $P622, vivify_260
- $P622 = root_new ['parrot';'Hash']
+ $P620 = $P619."handlers"()
+ set $P621, $P620[0]
+ unless_null $P621, vivify_260
+ new $P621, "Undef"
vivify_260:
- set $P623, $P622["blorst"]
- unless_null $P623, vivify_261
- new $P623, "Undef"
- vivify_261:
- $P624 = $P623."ast"()
- $P621."push"($P624)
-.annotate 'line', 243
- find_lex $P625, "$/"
- get_hll_global $P626, ["PAST"], "Stmts"
- find_lex $P627, "$/"
- $P628 = $P626."new"($P627 :named("node"))
- $P629 = $P625."!make"($P628)
-.annotate 'line', 241
- .return ($P629)
- control_616:
+ $P621."handle_types"("CONTROL")
+.annotate 'line', 210
+ find_lex $P622, "$/"
+ get_hll_global $P623, ["PAST"], "Stmts"
+ find_lex $P624, "$/"
+ $P625 = $P623."new"($P624 :named("node"))
+ $P626 = $P622."!make"($P625)
+.annotate 'line', 206
+ .return ($P626)
+ control_609:
.local pmc exception
.get_results (exception)
- getattribute $P630, exception, "payload"
- .return ($P630)
+ getattribute $P627, exception, "payload"
+ .return ($P627)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_prefix:sym<try>" :subid("42_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_634
-.annotate 'line', 246
- new $P633, 'ExceptionHandler'
- set_addr $P633, control_632
- $P633."handle_types"(57)
- push_eh $P633
+.sub "statement_prefix:sym<INIT>" :subid("42_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_632
+.annotate 'line', 250
+ new $P631, 'ExceptionHandler'
+ set_addr $P631, control_630
+ $P631."handle_types"(57)
+ push_eh $P631
.lex "self", self
- .lex "$/", param_634
-.annotate 'line', 247
- new $P635, "Undef"
- .lex "$past", $P635
+ .lex "$/", param_632
+.annotate 'line', 251
+ get_global $P633, "@BLOCK"
+ unless_null $P633, vivify_261
+ $P633 = root_new ['parrot';'ResizablePMCArray']
+ vivify_261:
+ set $P634, $P633[0]
+ unless_null $P634, vivify_262
+ new $P634, "Undef"
+ vivify_262:
+ $P635 = $P634."loadinit"()
find_lex $P636, "$/"
- unless_null $P636, vivify_262
+ unless_null $P636, vivify_263
$P636 = root_new ['parrot';'Hash']
- vivify_262:
+ vivify_263:
set $P637, $P636["blorst"]
- unless_null $P637, vivify_263
+ unless_null $P637, vivify_264
new $P637, "Undef"
- vivify_263:
+ vivify_264:
$P638 = $P637."ast"()
- store_lex "$past", $P638
-.annotate 'line', 248
- find_lex $P640, "$past"
- $S641 = $P640."WHAT"()
- isne $I642, $S641, "PAST::Block()"
- unless $I642, if_639_end
-.annotate 'line', 249
- get_hll_global $P643, ["PAST"], "Block"
- find_lex $P644, "$past"
- find_lex $P645, "$/"
- $P646 = $P643."new"($P644, "immediate" :named("blocktype"), $P645 :named("node"))
- store_lex "$past", $P646
- if_639_end:
-.annotate 'line', 251
- find_lex $P648, "$past"
- $P649 = $P648."handlers"()
- if $P649, unless_647_end
-.annotate 'line', 252
- find_lex $P650, "$past"
- get_hll_global $P651, ["PAST"], "Control"
-.annotate 'line', 254
- get_hll_global $P652, ["PAST"], "Stmts"
-.annotate 'line', 255
- get_hll_global $P653, ["PAST"], "Op"
-.annotate 'line', 256
- get_hll_global $P654, ["PAST"], "Var"
-.annotate 'line', 257
- get_hll_global $P655, ["PAST"], "Var"
- $P656 = $P655."new"("register" :named("scope"), "exception" :named("name"))
- $P657 = $P654."new"($P656, "handled", "keyed" :named("scope"))
-.annotate 'line', 256
- $P658 = $P653."new"($P657, 1, "bind" :named("pasttype"))
-.annotate 'line', 255
- $P659 = $P652."new"($P658)
-.annotate 'line', 254
- $P660 = $P651."new"($P659, "CONTROL" :named("handle_types_except"))
+ $P635."push"($P638)
.annotate 'line', 252
- new $P661, "ResizablePMCArray"
- push $P661, $P660
- $P650."handlers"($P661)
- unless_647_end:
-.annotate 'line', 266
- find_lex $P662, "$/"
- find_lex $P663, "$past"
- $P664 = $P662."!make"($P663)
-.annotate 'line', 246
- .return ($P664)
- control_632:
+ find_lex $P639, "$/"
+ get_hll_global $P640, ["PAST"], "Stmts"
+ find_lex $P641, "$/"
+ $P642 = $P640."new"($P641 :named("node"))
+ $P643 = $P639."!make"($P642)
+.annotate 'line', 250
+ .return ($P643)
+ control_630:
.local pmc exception
.get_results (exception)
- getattribute $P665, exception, "payload"
- .return ($P665)
+ getattribute $P644, exception, "payload"
+ .return ($P644)
.end
.namespace ["NQP";"Actions"]
-.sub "blorst" :subid("43_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_669
-.annotate 'line', 269
- new $P668, 'ExceptionHandler'
- set_addr $P668, control_667
- $P668."handle_types"(57)
- push_eh $P668
+.sub "statement_prefix:sym<try>" :subid("43_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_648
+.annotate 'line', 255
+ new $P647, 'ExceptionHandler'
+ set_addr $P647, control_646
+ $P647."handle_types"(57)
+ push_eh $P647
.lex "self", self
- .lex "$/", param_669
-.annotate 'line', 270
- find_lex $P670, "$/"
-.annotate 'line', 271
- find_lex $P673, "$/"
- unless_null $P673, vivify_264
- $P673 = root_new ['parrot';'Hash']
- vivify_264:
- set $P674, $P673["block"]
- unless_null $P674, vivify_265
- new $P674, "Undef"
+ .lex "$/", param_648
+.annotate 'line', 256
+ new $P649, "Undef"
+ .lex "$past", $P649
+ find_lex $P650, "$/"
+ unless_null $P650, vivify_265
+ $P650 = root_new ['parrot';'Hash']
vivify_265:
- if $P674, if_672
-.annotate 'line', 272
- find_lex $P679, "$/"
- unless_null $P679, vivify_266
- $P679 = root_new ['parrot';'Hash']
+ set $P651, $P650["blorst"]
+ unless_null $P651, vivify_266
+ new $P651, "Undef"
vivify_266:
- set $P680, $P679["statement"]
- unless_null $P680, vivify_267
- new $P680, "Undef"
- vivify_267:
- $P681 = $P680."ast"()
- set $P671, $P681
-.annotate 'line', 271
- goto if_672_end
- if_672:
- find_lex $P675, "$/"
- unless_null $P675, vivify_268
- $P675 = root_new ['parrot';'Hash']
- vivify_268:
- set $P676, $P675["block"]
- unless_null $P676, vivify_269
- new $P676, "Undef"
- vivify_269:
- $P677 = $P676."ast"()
- $P678 = "block_immediate"($P677)
- set $P671, $P678
- if_672_end:
- $P682 = $P670."!make"($P671)
-.annotate 'line', 269
- .return ($P682)
- control_667:
+ $P652 = $P651."ast"()
+ store_lex "$past", $P652
+.annotate 'line', 257
+ find_lex $P654, "$past"
+ $S655 = $P654."WHAT"()
+ isne $I656, $S655, "PAST::Block()"
+ unless $I656, if_653_end
+.annotate 'line', 258
+ get_hll_global $P657, ["PAST"], "Block"
+ find_lex $P658, "$past"
+ find_lex $P659, "$/"
+ $P660 = $P657."new"($P658, "immediate" :named("blocktype"), $P659 :named("node"))
+ store_lex "$past", $P660
+ if_653_end:
+.annotate 'line', 260
+ find_lex $P662, "$past"
+ $P663 = $P662."handlers"()
+ if $P663, unless_661_end
+.annotate 'line', 261
+ find_lex $P664, "$past"
+ get_hll_global $P665, ["PAST"], "Control"
+.annotate 'line', 263
+ get_hll_global $P666, ["PAST"], "Stmts"
+.annotate 'line', 264
+ get_hll_global $P667, ["PAST"], "Op"
+.annotate 'line', 265
+ get_hll_global $P668, ["PAST"], "Var"
+.annotate 'line', 266
+ get_hll_global $P669, ["PAST"], "Var"
+ $P670 = $P669."new"("register" :named("scope"), "exception" :named("name"))
+ $P671 = $P668."new"($P670, "handled", "keyed" :named("scope"))
+.annotate 'line', 265
+ $P672 = $P667."new"($P671, 1, "bind" :named("pasttype"))
+.annotate 'line', 264
+ $P673 = $P666."new"($P672)
+.annotate 'line', 263
+ $P674 = $P665."new"($P673, "CONTROL" :named("handle_types_except"))
+.annotate 'line', 261
+ new $P675, "ResizablePMCArray"
+ push $P675, $P674
+ $P664."handlers"($P675)
+ unless_661_end:
+.annotate 'line', 275
+ find_lex $P676, "$/"
+ find_lex $P677, "$past"
+ $P678 = $P676."!make"($P677)
+.annotate 'line', 255
+ .return ($P678)
+ control_646:
.local pmc exception
.get_results (exception)
- getattribute $P683, exception, "payload"
- .return ($P683)
+ getattribute $P679, exception, "payload"
+ .return ($P679)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_cond:sym<if>" :subid("44_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_687
-.annotate 'line', 277
- new $P686, 'ExceptionHandler'
- set_addr $P686, control_685
- $P686."handle_types"(57)
- push_eh $P686
- .lex "self", self
- .lex "$/", param_687
- find_lex $P688, "$/"
- find_lex $P689, "$/"
- unless_null $P689, vivify_270
- $P689 = root_new ['parrot';'Hash']
- vivify_270:
- set $P690, $P689["cond"]
- unless_null $P690, vivify_271
- new $P690, "Undef"
- vivify_271:
- $P691 = $P690."ast"()
- $P692 = $P688."!make"($P691)
- .return ($P692)
- control_685:
- .local pmc exception
+.sub "blorst" :subid("44_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_683
+.annotate 'line', 278
+ new $P682, 'ExceptionHandler'
+ set_addr $P682, control_681
+ $P682."handle_types"(57)
+ push_eh $P682
+ .lex "self", self
+ .lex "$/", param_683
+.annotate 'line', 279
+ find_lex $P684, "$/"
+.annotate 'line', 280
+ find_lex $P687, "$/"
+ unless_null $P687, vivify_267
+ $P687 = root_new ['parrot';'Hash']
+ vivify_267:
+ set $P688, $P687["block"]
+ unless_null $P688, vivify_268
+ new $P688, "Undef"
+ vivify_268:
+ if $P688, if_686
+.annotate 'line', 281
+ find_lex $P693, "$/"
+ unless_null $P693, vivify_269
+ $P693 = root_new ['parrot';'Hash']
+ vivify_269:
+ set $P694, $P693["statement"]
+ unless_null $P694, vivify_270
+ new $P694, "Undef"
+ vivify_270:
+ $P695 = $P694."ast"()
+ set $P685, $P695
+.annotate 'line', 280
+ goto if_686_end
+ if_686:
+ find_lex $P689, "$/"
+ unless_null $P689, vivify_271
+ $P689 = root_new ['parrot';'Hash']
+ vivify_271:
+ set $P690, $P689["block"]
+ unless_null $P690, vivify_272
+ new $P690, "Undef"
+ vivify_272:
+ $P691 = $P690."ast"()
+ $P692 = "block_immediate"($P691)
+ set $P685, $P692
+ if_686_end:
+ $P696 = $P684."!make"($P685)
+.annotate 'line', 278
+ .return ($P696)
+ control_681:
+ .local pmc exception
.get_results (exception)
- getattribute $P693, exception, "payload"
- .return ($P693)
+ getattribute $P697, exception, "payload"
+ .return ($P697)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_cond:sym<unless>" :subid("45_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_697
-.annotate 'line', 278
- new $P696, 'ExceptionHandler'
- set_addr $P696, control_695
- $P696."handle_types"(57)
- push_eh $P696
- .lex "self", self
- .lex "$/", param_697
- find_lex $P698, "$/"
- find_lex $P699, "$/"
- unless_null $P699, vivify_272
- $P699 = root_new ['parrot';'Hash']
- vivify_272:
- set $P700, $P699["cond"]
- unless_null $P700, vivify_273
- new $P700, "Undef"
+.sub "statement_mod_cond:sym<if>" :subid("45_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_701
+.annotate 'line', 286
+ new $P700, 'ExceptionHandler'
+ set_addr $P700, control_699
+ $P700."handle_types"(57)
+ push_eh $P700
+ .lex "self", self
+ .lex "$/", param_701
+ find_lex $P702, "$/"
+ find_lex $P703, "$/"
+ unless_null $P703, vivify_273
+ $P703 = root_new ['parrot';'Hash']
vivify_273:
- $P701 = $P700."ast"()
- $P702 = $P698."!make"($P701)
- .return ($P702)
- control_695:
+ set $P704, $P703["cond"]
+ unless_null $P704, vivify_274
+ new $P704, "Undef"
+ vivify_274:
+ $P705 = $P704."ast"()
+ $P706 = $P702."!make"($P705)
+ .return ($P706)
+ control_699:
.local pmc exception
.get_results (exception)
- getattribute $P703, exception, "payload"
- .return ($P703)
+ getattribute $P707, exception, "payload"
+ .return ($P707)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_loop:sym<while>" :subid("46_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_707
-.annotate 'line', 280
- new $P706, 'ExceptionHandler'
- set_addr $P706, control_705
- $P706."handle_types"(57)
- push_eh $P706
- .lex "self", self
- .lex "$/", param_707
- find_lex $P708, "$/"
- find_lex $P709, "$/"
- unless_null $P709, vivify_274
- $P709 = root_new ['parrot';'Hash']
- vivify_274:
- set $P710, $P709["cond"]
- unless_null $P710, vivify_275
- new $P710, "Undef"
+.sub "statement_mod_cond:sym<unless>" :subid("46_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_711
+.annotate 'line', 287
+ new $P710, 'ExceptionHandler'
+ set_addr $P710, control_709
+ $P710."handle_types"(57)
+ push_eh $P710
+ .lex "self", self
+ .lex "$/", param_711
+ find_lex $P712, "$/"
+ find_lex $P713, "$/"
+ unless_null $P713, vivify_275
+ $P713 = root_new ['parrot';'Hash']
vivify_275:
- $P711 = $P710."ast"()
- $P712 = $P708."!make"($P711)
- .return ($P712)
- control_705:
+ set $P714, $P713["cond"]
+ unless_null $P714, vivify_276
+ new $P714, "Undef"
+ vivify_276:
+ $P715 = $P714."ast"()
+ $P716 = $P712."!make"($P715)
+ .return ($P716)
+ control_709:
.local pmc exception
.get_results (exception)
- getattribute $P713, exception, "payload"
- .return ($P713)
+ getattribute $P717, exception, "payload"
+ .return ($P717)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_loop:sym<until>" :subid("47_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_717
-.annotate 'line', 281
- new $P716, 'ExceptionHandler'
- set_addr $P716, control_715
- $P716."handle_types"(57)
- push_eh $P716
- .lex "self", self
- .lex "$/", param_717
- find_lex $P718, "$/"
- find_lex $P719, "$/"
- unless_null $P719, vivify_276
- $P719 = root_new ['parrot';'Hash']
- vivify_276:
- set $P720, $P719["cond"]
- unless_null $P720, vivify_277
- new $P720, "Undef"
+.sub "statement_mod_loop:sym<while>" :subid("47_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_721
+.annotate 'line', 289
+ new $P720, 'ExceptionHandler'
+ set_addr $P720, control_719
+ $P720."handle_types"(57)
+ push_eh $P720
+ .lex "self", self
+ .lex "$/", param_721
+ find_lex $P722, "$/"
+ find_lex $P723, "$/"
+ unless_null $P723, vivify_277
+ $P723 = root_new ['parrot';'Hash']
vivify_277:
- $P721 = $P720."ast"()
- $P722 = $P718."!make"($P721)
- .return ($P722)
- control_715:
+ set $P724, $P723["cond"]
+ unless_null $P724, vivify_278
+ new $P724, "Undef"
+ vivify_278:
+ $P725 = $P724."ast"()
+ $P726 = $P722."!make"($P725)
+ .return ($P726)
+ control_719:
.local pmc exception
.get_results (exception)
- getattribute $P723, exception, "payload"
- .return ($P723)
+ getattribute $P727, exception, "payload"
+ .return ($P727)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<fatarrow>" :subid("48_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_727
-.annotate 'line', 285
- new $P726, 'ExceptionHandler'
- set_addr $P726, control_725
- $P726."handle_types"(57)
- push_eh $P726
- .lex "self", self
- .lex "$/", param_727
- find_lex $P728, "$/"
- find_lex $P729, "$/"
- unless_null $P729, vivify_278
- $P729 = root_new ['parrot';'Hash']
- vivify_278:
- set $P730, $P729["fatarrow"]
- unless_null $P730, vivify_279
- new $P730, "Undef"
+.sub "statement_mod_loop:sym<until>" :subid("48_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_731
+.annotate 'line', 290
+ new $P730, 'ExceptionHandler'
+ set_addr $P730, control_729
+ $P730."handle_types"(57)
+ push_eh $P730
+ .lex "self", self
+ .lex "$/", param_731
+ find_lex $P732, "$/"
+ find_lex $P733, "$/"
+ unless_null $P733, vivify_279
+ $P733 = root_new ['parrot';'Hash']
vivify_279:
- $P731 = $P730."ast"()
- $P732 = $P728."!make"($P731)
- .return ($P732)
- control_725:
+ set $P734, $P733["cond"]
+ unless_null $P734, vivify_280
+ new $P734, "Undef"
+ vivify_280:
+ $P735 = $P734."ast"()
+ $P736 = $P732."!make"($P735)
+ .return ($P736)
+ control_729:
.local pmc exception
.get_results (exception)
- getattribute $P733, exception, "payload"
- .return ($P733)
+ getattribute $P737, exception, "payload"
+ .return ($P737)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<colonpair>" :subid("49_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_737
-.annotate 'line', 286
- new $P736, 'ExceptionHandler'
- set_addr $P736, control_735
- $P736."handle_types"(57)
- push_eh $P736
- .lex "self", self
- .lex "$/", param_737
- find_lex $P738, "$/"
- find_lex $P739, "$/"
- unless_null $P739, vivify_280
- $P739 = root_new ['parrot';'Hash']
- vivify_280:
- set $P740, $P739["colonpair"]
- unless_null $P740, vivify_281
- new $P740, "Undef"
+.sub "term:sym<fatarrow>" :subid("49_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_741
+.annotate 'line', 294
+ new $P740, 'ExceptionHandler'
+ set_addr $P740, control_739
+ $P740."handle_types"(57)
+ push_eh $P740
+ .lex "self", self
+ .lex "$/", param_741
+ find_lex $P742, "$/"
+ find_lex $P743, "$/"
+ unless_null $P743, vivify_281
+ $P743 = root_new ['parrot';'Hash']
vivify_281:
- $P741 = $P740."ast"()
- $P742 = $P738."!make"($P741)
- .return ($P742)
- control_735:
+ set $P744, $P743["fatarrow"]
+ unless_null $P744, vivify_282
+ new $P744, "Undef"
+ vivify_282:
+ $P745 = $P744."ast"()
+ $P746 = $P742."!make"($P745)
+ .return ($P746)
+ control_739:
.local pmc exception
.get_results (exception)
- getattribute $P743, exception, "payload"
- .return ($P743)
+ getattribute $P747, exception, "payload"
+ .return ($P747)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<variable>" :subid("50_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_747
-.annotate 'line', 287
- new $P746, 'ExceptionHandler'
- set_addr $P746, control_745
- $P746."handle_types"(57)
- push_eh $P746
- .lex "self", self
- .lex "$/", param_747
- find_lex $P748, "$/"
- find_lex $P749, "$/"
- unless_null $P749, vivify_282
- $P749 = root_new ['parrot';'Hash']
- vivify_282:
- set $P750, $P749["variable"]
- unless_null $P750, vivify_283
- new $P750, "Undef"
+.sub "term:sym<colonpair>" :subid("50_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_751
+.annotate 'line', 295
+ new $P750, 'ExceptionHandler'
+ set_addr $P750, control_749
+ $P750."handle_types"(57)
+ push_eh $P750
+ .lex "self", self
+ .lex "$/", param_751
+ find_lex $P752, "$/"
+ find_lex $P753, "$/"
+ unless_null $P753, vivify_283
+ $P753 = root_new ['parrot';'Hash']
vivify_283:
- $P751 = $P750."ast"()
- $P752 = $P748."!make"($P751)
- .return ($P752)
- control_745:
+ set $P754, $P753["colonpair"]
+ unless_null $P754, vivify_284
+ new $P754, "Undef"
+ vivify_284:
+ $P755 = $P754."ast"()
+ $P756 = $P752."!make"($P755)
+ .return ($P756)
+ control_749:
.local pmc exception
.get_results (exception)
- getattribute $P753, exception, "payload"
- .return ($P753)
+ getattribute $P757, exception, "payload"
+ .return ($P757)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<package_declarator>" :subid("51_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_757
-.annotate 'line', 288
- new $P756, 'ExceptionHandler'
- set_addr $P756, control_755
- $P756."handle_types"(57)
- push_eh $P756
- .lex "self", self
- .lex "$/", param_757
- find_lex $P758, "$/"
- find_lex $P759, "$/"
- unless_null $P759, vivify_284
- $P759 = root_new ['parrot';'Hash']
- vivify_284:
- set $P760, $P759["package_declarator"]
- unless_null $P760, vivify_285
- new $P760, "Undef"
+.sub "term:sym<variable>" :subid("51_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_761
+.annotate 'line', 296
+ new $P760, 'ExceptionHandler'
+ set_addr $P760, control_759
+ $P760."handle_types"(57)
+ push_eh $P760
+ .lex "self", self
+ .lex "$/", param_761
+ find_lex $P762, "$/"
+ find_lex $P763, "$/"
+ unless_null $P763, vivify_285
+ $P763 = root_new ['parrot';'Hash']
vivify_285:
- $P761 = $P760."ast"()
- $P762 = $P758."!make"($P761)
- .return ($P762)
- control_755:
+ set $P764, $P763["variable"]
+ unless_null $P764, vivify_286
+ new $P764, "Undef"
+ vivify_286:
+ $P765 = $P764."ast"()
+ $P766 = $P762."!make"($P765)
+ .return ($P766)
+ control_759:
.local pmc exception
.get_results (exception)
- getattribute $P763, exception, "payload"
- .return ($P763)
+ getattribute $P767, exception, "payload"
+ .return ($P767)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<scope_declarator>" :subid("52_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_767
-.annotate 'line', 289
- new $P766, 'ExceptionHandler'
- set_addr $P766, control_765
- $P766."handle_types"(57)
- push_eh $P766
- .lex "self", self
- .lex "$/", param_767
- find_lex $P768, "$/"
- find_lex $P769, "$/"
- unless_null $P769, vivify_286
- $P769 = root_new ['parrot';'Hash']
- vivify_286:
- set $P770, $P769["scope_declarator"]
- unless_null $P770, vivify_287
- new $P770, "Undef"
+.sub "term:sym<package_declarator>" :subid("52_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_771
+.annotate 'line', 297
+ new $P770, 'ExceptionHandler'
+ set_addr $P770, control_769
+ $P770."handle_types"(57)
+ push_eh $P770
+ .lex "self", self
+ .lex "$/", param_771
+ find_lex $P772, "$/"
+ find_lex $P773, "$/"
+ unless_null $P773, vivify_287
+ $P773 = root_new ['parrot';'Hash']
vivify_287:
- $P771 = $P770."ast"()
- $P772 = $P768."!make"($P771)
- .return ($P772)
- control_765:
+ set $P774, $P773["package_declarator"]
+ unless_null $P774, vivify_288
+ new $P774, "Undef"
+ vivify_288:
+ $P775 = $P774."ast"()
+ $P776 = $P772."!make"($P775)
+ .return ($P776)
+ control_769:
.local pmc exception
.get_results (exception)
- getattribute $P773, exception, "payload"
- .return ($P773)
+ getattribute $P777, exception, "payload"
+ .return ($P777)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<routine_declarator>" :subid("53_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_777
-.annotate 'line', 290
- new $P776, 'ExceptionHandler'
- set_addr $P776, control_775
- $P776."handle_types"(57)
- push_eh $P776
- .lex "self", self
- .lex "$/", param_777
- find_lex $P778, "$/"
- find_lex $P779, "$/"
- unless_null $P779, vivify_288
- $P779 = root_new ['parrot';'Hash']
- vivify_288:
- set $P780, $P779["routine_declarator"]
- unless_null $P780, vivify_289
- new $P780, "Undef"
+.sub "term:sym<scope_declarator>" :subid("53_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_781
+.annotate 'line', 298
+ new $P780, 'ExceptionHandler'
+ set_addr $P780, control_779
+ $P780."handle_types"(57)
+ push_eh $P780
+ .lex "self", self
+ .lex "$/", param_781
+ find_lex $P782, "$/"
+ find_lex $P783, "$/"
+ unless_null $P783, vivify_289
+ $P783 = root_new ['parrot';'Hash']
vivify_289:
- $P781 = $P780."ast"()
- $P782 = $P778."!make"($P781)
- .return ($P782)
- control_775:
+ set $P784, $P783["scope_declarator"]
+ unless_null $P784, vivify_290
+ new $P784, "Undef"
+ vivify_290:
+ $P785 = $P784."ast"()
+ $P786 = $P782."!make"($P785)
+ .return ($P786)
+ control_779:
.local pmc exception
.get_results (exception)
- getattribute $P783, exception, "payload"
- .return ($P783)
+ getattribute $P787, exception, "payload"
+ .return ($P787)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<regex_declarator>" :subid("54_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_787
-.annotate 'line', 291
- new $P786, 'ExceptionHandler'
- set_addr $P786, control_785
- $P786."handle_types"(57)
- push_eh $P786
- .lex "self", self
- .lex "$/", param_787
- find_lex $P788, "$/"
- find_lex $P789, "$/"
- unless_null $P789, vivify_290
- $P789 = root_new ['parrot';'Hash']
- vivify_290:
- set $P790, $P789["regex_declarator"]
- unless_null $P790, vivify_291
- new $P790, "Undef"
+.sub "term:sym<routine_declarator>" :subid("54_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_791
+.annotate 'line', 299
+ new $P790, 'ExceptionHandler'
+ set_addr $P790, control_789
+ $P790."handle_types"(57)
+ push_eh $P790
+ .lex "self", self
+ .lex "$/", param_791
+ find_lex $P792, "$/"
+ find_lex $P793, "$/"
+ unless_null $P793, vivify_291
+ $P793 = root_new ['parrot';'Hash']
vivify_291:
- $P791 = $P790."ast"()
- $P792 = $P788."!make"($P791)
- .return ($P792)
- control_785:
+ set $P794, $P793["routine_declarator"]
+ unless_null $P794, vivify_292
+ new $P794, "Undef"
+ vivify_292:
+ $P795 = $P794."ast"()
+ $P796 = $P792."!make"($P795)
+ .return ($P796)
+ control_789:
.local pmc exception
.get_results (exception)
- getattribute $P793, exception, "payload"
- .return ($P793)
+ getattribute $P797, exception, "payload"
+ .return ($P797)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<statement_prefix>" :subid("55_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_797
-.annotate 'line', 292
- new $P796, 'ExceptionHandler'
- set_addr $P796, control_795
- $P796."handle_types"(57)
- push_eh $P796
- .lex "self", self
- .lex "$/", param_797
- find_lex $P798, "$/"
- find_lex $P799, "$/"
- unless_null $P799, vivify_292
- $P799 = root_new ['parrot';'Hash']
- vivify_292:
- set $P800, $P799["statement_prefix"]
- unless_null $P800, vivify_293
- new $P800, "Undef"
+.sub "term:sym<regex_declarator>" :subid("55_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_801
+.annotate 'line', 300
+ new $P800, 'ExceptionHandler'
+ set_addr $P800, control_799
+ $P800."handle_types"(57)
+ push_eh $P800
+ .lex "self", self
+ .lex "$/", param_801
+ find_lex $P802, "$/"
+ find_lex $P803, "$/"
+ unless_null $P803, vivify_293
+ $P803 = root_new ['parrot';'Hash']
vivify_293:
- $P801 = $P800."ast"()
- $P802 = $P798."!make"($P801)
- .return ($P802)
- control_795:
+ set $P804, $P803["regex_declarator"]
+ unless_null $P804, vivify_294
+ new $P804, "Undef"
+ vivify_294:
+ $P805 = $P804."ast"()
+ $P806 = $P802."!make"($P805)
+ .return ($P806)
+ control_799:
.local pmc exception
.get_results (exception)
- getattribute $P803, exception, "payload"
- .return ($P803)
+ getattribute $P807, exception, "payload"
+ .return ($P807)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<lambda>" :subid("56_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_807
-.annotate 'line', 293
- new $P806, 'ExceptionHandler'
- set_addr $P806, control_805
- $P806."handle_types"(57)
- push_eh $P806
- .lex "self", self
- .lex "$/", param_807
- find_lex $P808, "$/"
- find_lex $P809, "$/"
- unless_null $P809, vivify_294
- $P809 = root_new ['parrot';'Hash']
- vivify_294:
- set $P810, $P809["pblock"]
- unless_null $P810, vivify_295
- new $P810, "Undef"
+.sub "term:sym<statement_prefix>" :subid("56_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_811
+.annotate 'line', 301
+ new $P810, 'ExceptionHandler'
+ set_addr $P810, control_809
+ $P810."handle_types"(57)
+ push_eh $P810
+ .lex "self", self
+ .lex "$/", param_811
+ find_lex $P812, "$/"
+ find_lex $P813, "$/"
+ unless_null $P813, vivify_295
+ $P813 = root_new ['parrot';'Hash']
vivify_295:
- $P811 = $P810."ast"()
- $P812 = $P808."!make"($P811)
- .return ($P812)
- control_805:
+ set $P814, $P813["statement_prefix"]
+ unless_null $P814, vivify_296
+ new $P814, "Undef"
+ vivify_296:
+ $P815 = $P814."ast"()
+ $P816 = $P812."!make"($P815)
+ .return ($P816)
+ control_809:
.local pmc exception
.get_results (exception)
- getattribute $P813, exception, "payload"
- .return ($P813)
+ getattribute $P817, exception, "payload"
+ .return ($P817)
.end
.namespace ["NQP";"Actions"]
-.sub "fatarrow" :subid("57_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_817
-.annotate 'line', 295
- new $P816, 'ExceptionHandler'
- set_addr $P816, control_815
- $P816."handle_types"(57)
- push_eh $P816
+.sub "term:sym<lambda>" :subid("57_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_821
+.annotate 'line', 302
+ new $P820, 'ExceptionHandler'
+ set_addr $P820, control_819
+ $P820."handle_types"(57)
+ push_eh $P820
.lex "self", self
- .lex "$/", param_817
-.annotate 'line', 296
- new $P818, "Undef"
- .lex "$past", $P818
- find_lex $P819, "$/"
- unless_null $P819, vivify_296
- $P819 = root_new ['parrot';'Hash']
- vivify_296:
- set $P820, $P819["val"]
- unless_null $P820, vivify_297
- new $P820, "Undef"
- vivify_297:
- $P821 = $P820."ast"()
- store_lex "$past", $P821
-.annotate 'line', 297
- find_lex $P822, "$past"
+ .lex "$/", param_821
+ find_lex $P822, "$/"
find_lex $P823, "$/"
- unless_null $P823, vivify_298
+ unless_null $P823, vivify_297
$P823 = root_new ['parrot';'Hash']
- vivify_298:
- set $P824, $P823["key"]
- unless_null $P824, vivify_299
+ vivify_297:
+ set $P824, $P823["pblock"]
+ unless_null $P824, vivify_298
new $P824, "Undef"
- vivify_299:
- $P825 = $P824."Str"()
- $P822."named"($P825)
-.annotate 'line', 298
- find_lex $P826, "$/"
- find_lex $P827, "$past"
- $P828 = $P826."!make"($P827)
-.annotate 'line', 295
- .return ($P828)
- control_815:
+ vivify_298:
+ $P825 = $P824."ast"()
+ $P826 = $P822."!make"($P825)
+ .return ($P826)
+ control_819:
.local pmc exception
.get_results (exception)
- getattribute $P829, exception, "payload"
- .return ($P829)
+ getattribute $P827, exception, "payload"
+ .return ($P827)
.end
.namespace ["NQP";"Actions"]
-.sub "colonpair" :subid("58_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_833
-.annotate 'line', 301
- new $P832, 'ExceptionHandler'
- set_addr $P832, control_831
- $P832."handle_types"(57)
- push_eh $P832
+.sub "fatarrow" :subid("58_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_831
+.annotate 'line', 304
+ new $P830, 'ExceptionHandler'
+ set_addr $P830, control_829
+ $P830."handle_types"(57)
+ push_eh $P830
.lex "self", self
- .lex "$/", param_833
-.annotate 'line', 302
+ .lex "$/", param_831
+.annotate 'line', 305
+ new $P832, "Undef"
+ .lex "$past", $P832
+ find_lex $P833, "$/"
+ unless_null $P833, vivify_299
+ $P833 = root_new ['parrot';'Hash']
+ vivify_299:
+ set $P834, $P833["val"]
+ unless_null $P834, vivify_300
new $P834, "Undef"
- .lex "$past", $P834
-.annotate 'line', 303
+ vivify_300:
+ $P835 = $P834."ast"()
+ store_lex "$past", $P835
+.annotate 'line', 306
+ find_lex $P836, "$past"
find_lex $P837, "$/"
- unless_null $P837, vivify_300
+ unless_null $P837, vivify_301
$P837 = root_new ['parrot';'Hash']
- vivify_300:
- set $P838, $P837["circumfix"]
- unless_null $P838, vivify_301
- new $P838, "Undef"
vivify_301:
- if $P838, if_836
-.annotate 'line', 304
- get_hll_global $P843, ["PAST"], "Val"
- find_lex $P844, "$/"
- unless_null $P844, vivify_302
- $P844 = root_new ['parrot';'Hash']
+ set $P838, $P837["key"]
+ unless_null $P838, vivify_302
+ new $P838, "Undef"
vivify_302:
- set $P845, $P844["not"]
- unless_null $P845, vivify_303
- new $P845, "Undef"
- vivify_303:
- isfalse $I846, $P845
- $P847 = $P843."new"($I846 :named("value"))
- set $P835, $P847
-.annotate 'line', 303
- goto if_836_end
- if_836:
- find_lex $P839, "$/"
- unless_null $P839, vivify_304
- $P839 = root_new ['parrot';'Hash']
- vivify_304:
- set $P840, $P839["circumfix"]
- unless_null $P840, vivify_305
- $P840 = root_new ['parrot';'ResizablePMCArray']
- vivify_305:
- set $P841, $P840[0]
- unless_null $P841, vivify_306
- new $P841, "Undef"
- vivify_306:
- $P842 = $P841."ast"()
- set $P835, $P842
- if_836_end:
- store_lex "$past", $P835
-.annotate 'line', 305
- find_lex $P848, "$past"
- find_lex $P849, "$/"
- unless_null $P849, vivify_307
- $P849 = root_new ['parrot';'Hash']
- vivify_307:
- set $P850, $P849["identifier"]
- unless_null $P850, vivify_308
- new $P850, "Undef"
- vivify_308:
- set $S851, $P850
- $P848."named"($S851)
-.annotate 'line', 306
- find_lex $P852, "$/"
- find_lex $P853, "$past"
- $P854 = $P852."!make"($P853)
-.annotate 'line', 301
- .return ($P854)
- control_831:
+ $P839 = $P838."Str"()
+ $P836."named"($P839)
+.annotate 'line', 307
+ find_lex $P840, "$/"
+ find_lex $P841, "$past"
+ $P842 = $P840."!make"($P841)
+.annotate 'line', 304
+ .return ($P842)
+ control_829:
.local pmc exception
.get_results (exception)
- getattribute $P855, exception, "payload"
- .return ($P855)
+ getattribute $P843, exception, "payload"
+ .return ($P843)
.end
.namespace ["NQP";"Actions"]
-.sub "variable" :subid("59_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_859
-.annotate 'line', 309
- .const 'Sub' $P872 = "60_1274564782.90592"
- capture_lex $P872
- new $P858, 'ExceptionHandler'
- set_addr $P858, control_857
- $P858."handle_types"(57)
- push_eh $P858
- .lex "self", self
- .lex "$/", param_859
+.sub "colonpair" :subid("59_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_847
.annotate 'line', 310
- new $P860, "Undef"
- .lex "$past", $P860
-.annotate 'line', 309
- find_lex $P861, "$past"
+ new $P846, 'ExceptionHandler'
+ set_addr $P846, control_845
+ $P846."handle_types"(57)
+ push_eh $P846
+ .lex "self", self
+ .lex "$/", param_847
.annotate 'line', 311
+ new $P848, "Undef"
+ .lex "$past", $P848
+.annotate 'line', 312
+ find_lex $P851, "$/"
+ unless_null $P851, vivify_303
+ $P851 = root_new ['parrot';'Hash']
+ vivify_303:
+ set $P852, $P851["circumfix"]
+ unless_null $P852, vivify_304
+ new $P852, "Undef"
+ vivify_304:
+ if $P852, if_850
+.annotate 'line', 313
+ get_hll_global $P857, ["PAST"], "Val"
+ find_lex $P858, "$/"
+ unless_null $P858, vivify_305
+ $P858 = root_new ['parrot';'Hash']
+ vivify_305:
+ set $P859, $P858["not"]
+ unless_null $P859, vivify_306
+ new $P859, "Undef"
+ vivify_306:
+ isfalse $I860, $P859
+ $P861 = $P857."new"($I860 :named("value"))
+ set $P849, $P861
+.annotate 'line', 312
+ goto if_850_end
+ if_850:
+ find_lex $P853, "$/"
+ unless_null $P853, vivify_307
+ $P853 = root_new ['parrot';'Hash']
+ vivify_307:
+ set $P854, $P853["circumfix"]
+ unless_null $P854, vivify_308
+ $P854 = root_new ['parrot';'ResizablePMCArray']
+ vivify_308:
+ set $P855, $P854[0]
+ unless_null $P855, vivify_309
+ new $P855, "Undef"
+ vivify_309:
+ $P856 = $P855."ast"()
+ set $P849, $P856
+ if_850_end:
+ store_lex "$past", $P849
+.annotate 'line', 314
+ find_lex $P862, "$past"
find_lex $P863, "$/"
- unless_null $P863, vivify_309
+ unless_null $P863, vivify_310
$P863 = root_new ['parrot';'Hash']
- vivify_309:
- set $P864, $P863["postcircumfix"]
- unless_null $P864, vivify_310
- new $P864, "Undef"
vivify_310:
- if $P864, if_862
+ set $P864, $P863["identifier"]
+ unless_null $P864, vivify_311
+ new $P864, "Undef"
+ vivify_311:
+ set $S865, $P864
+ $P862."named"($S865)
.annotate 'line', 315
- .const 'Sub' $P872 = "60_1274564782.90592"
- capture_lex $P872
- $P872()
- goto if_862_end
- if_862:
-.annotate 'line', 312
- find_lex $P865, "$/"
- unless_null $P865, vivify_327
- $P865 = root_new ['parrot';'Hash']
- vivify_327:
- set $P866, $P865["postcircumfix"]
- unless_null $P866, vivify_328
- new $P866, "Undef"
- vivify_328:
- $P867 = $P866."ast"()
- store_lex "$past", $P867
-.annotate 'line', 313
- find_lex $P868, "$past"
- get_hll_global $P869, ["PAST"], "Var"
- $P870 = $P869."new"("$/" :named("name"))
- $P868."unshift"($P870)
- if_862_end:
-.annotate 'line', 344
- find_lex $P941, "$/"
- find_lex $P942, "$past"
- $P943 = $P941."!make"($P942)
-.annotate 'line', 309
- .return ($P943)
- control_857:
+ find_lex $P866, "$/"
+ find_lex $P867, "$past"
+ $P868 = $P866."!make"($P867)
+.annotate 'line', 310
+ .return ($P868)
+ control_845:
.local pmc exception
.get_results (exception)
- getattribute $P944, exception, "payload"
- .return ($P944)
+ getattribute $P869, exception, "payload"
+ .return ($P869)
.end
.namespace ["NQP";"Actions"]
-.sub "_block871" :anon :subid("60_1274564782.90592") :outer("59_1274564782.90592")
-.annotate 'line', 316
- $P873 = root_new ['parrot';'ResizablePMCArray']
- .lex "@name", $P873
- get_hll_global $P874, ["NQP"], "Compiler"
- find_lex $P875, "$/"
- set $S876, $P875
- $P877 = $P874."parse_name"($S876)
- store_lex "@name", $P877
-.annotate 'line', 317
- get_hll_global $P878, ["PAST"], "Var"
- find_lex $P879, "@name"
- $P880 = $P879."pop"()
- set $S881, $P880
- $P882 = $P878."new"($S881 :named("name"))
- store_lex "$past", $P882
+.sub "variable" :subid("60_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_873
.annotate 'line', 318
- find_lex $P884, "@name"
- unless $P884, if_883_end
+ .const 'Sub' $P886 = "61_1275117616.72633"
+ capture_lex $P886
+ new $P872, 'ExceptionHandler'
+ set_addr $P872, control_871
+ $P872."handle_types"(57)
+ push_eh $P872
+ .lex "self", self
+ .lex "$/", param_873
.annotate 'line', 319
- find_lex $P886, "@name"
- unless_null $P886, vivify_311
- $P886 = root_new ['parrot';'ResizablePMCArray']
- vivify_311:
- set $P887, $P886[0]
- unless_null $P887, vivify_312
- new $P887, "Undef"
- vivify_312:
- set $S888, $P887
- iseq $I889, $S888, "GLOBAL"
- unless $I889, if_885_end
- find_lex $P890, "@name"
- $P890."shift"()
- if_885_end:
+ new $P874, "Undef"
+ .lex "$past", $P874
+.annotate 'line', 318
+ find_lex $P875, "$past"
.annotate 'line', 320
- find_lex $P891, "$past"
- find_lex $P892, "@name"
- $P891."namespace"($P892)
+ find_lex $P877, "$/"
+ unless_null $P877, vivify_312
+ $P877 = root_new ['parrot';'Hash']
+ vivify_312:
+ set $P878, $P877["postcircumfix"]
+ unless_null $P878, vivify_313
+ new $P878, "Undef"
+ vivify_313:
+ if $P878, if_876
+.annotate 'line', 324
+ .const 'Sub' $P886 = "61_1275117616.72633"
+ capture_lex $P886
+ $P886()
+ goto if_876_end
+ if_876:
.annotate 'line', 321
- find_lex $P893, "$past"
- $P893."scope"("package")
+ find_lex $P879, "$/"
+ unless_null $P879, vivify_330
+ $P879 = root_new ['parrot';'Hash']
+ vivify_330:
+ set $P880, $P879["postcircumfix"]
+ unless_null $P880, vivify_331
+ new $P880, "Undef"
+ vivify_331:
+ $P881 = $P880."ast"()
+ store_lex "$past", $P881
.annotate 'line', 322
- find_lex $P894, "$past"
- find_lex $P895, "$/"
- unless_null $P895, vivify_313
- $P895 = root_new ['parrot';'Hash']
- vivify_313:
- set $P896, $P895["sigil"]
- unless_null $P896, vivify_314
- new $P896, "Undef"
- vivify_314:
- $P897 = "vivitype"($P896)
- $P894."viviself"($P897)
-.annotate 'line', 323
- find_lex $P898, "$past"
- $P898."lvalue"(1)
- if_883_end:
+ find_lex $P882, "$past"
+ get_hll_global $P883, ["PAST"], "Var"
+ $P884 = $P883."new"("$/" :named("name"))
+ $P882."unshift"($P884)
+ if_876_end:
+.annotate 'line', 353
+ find_lex $P955, "$/"
+ find_lex $P956, "$past"
+ $P957 = $P955."!make"($P956)
+.annotate 'line', 318
+ .return ($P957)
+ control_871:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P958, exception, "payload"
+ .return ($P958)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "_block885" :anon :subid("61_1275117616.72633") :outer("60_1275117616.72633")
.annotate 'line', 325
- find_lex $P901, "$/"
+ $P887 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@name", $P887
+ get_hll_global $P888, ["NQP"], "Compiler"
+ find_lex $P889, "$/"
+ set $S890, $P889
+ $P891 = $P888."parse_name"($S890)
+ store_lex "@name", $P891
+.annotate 'line', 326
+ get_hll_global $P892, ["PAST"], "Var"
+ find_lex $P893, "@name"
+ $P894 = $P893."pop"()
+ set $S895, $P894
+ $P896 = $P892."new"($S895 :named("name"))
+ store_lex "$past", $P896
+.annotate 'line', 327
+ find_lex $P898, "@name"
+ unless $P898, if_897_end
+.annotate 'line', 328
+ find_lex $P900, "@name"
+ unless_null $P900, vivify_314
+ $P900 = root_new ['parrot';'ResizablePMCArray']
+ vivify_314:
+ set $P901, $P900[0]
unless_null $P901, vivify_315
- $P901 = root_new ['parrot';'Hash']
+ new $P901, "Undef"
vivify_315:
- set $P902, $P901["twigil"]
- unless_null $P902, vivify_316
- $P902 = root_new ['parrot';'ResizablePMCArray']
+ set $S902, $P901
+ iseq $I903, $S902, "GLOBAL"
+ unless $I903, if_899_end
+ find_lex $P904, "@name"
+ $P904."shift"()
+ if_899_end:
+.annotate 'line', 329
+ find_lex $P905, "$past"
+ find_lex $P906, "@name"
+ $P905."namespace"($P906)
+.annotate 'line', 330
+ find_lex $P907, "$past"
+ $P907."scope"("package")
+.annotate 'line', 331
+ find_lex $P908, "$past"
+ find_lex $P909, "$/"
+ unless_null $P909, vivify_316
+ $P909 = root_new ['parrot';'Hash']
vivify_316:
- set $P903, $P902[0]
- unless_null $P903, vivify_317
- new $P903, "Undef"
+ set $P910, $P909["sigil"]
+ unless_null $P910, vivify_317
+ new $P910, "Undef"
vivify_317:
- set $S904, $P903
- iseq $I905, $S904, "*"
- if $I905, if_900
-.annotate 'line', 338
- find_lex $P927, "$/"
- unless_null $P927, vivify_318
- $P927 = root_new ['parrot';'Hash']
+ $P911 = "vivitype"($P910)
+ $P908."viviself"($P911)
+.annotate 'line', 332
+ find_lex $P912, "$past"
+ $P912."lvalue"(1)
+ if_897_end:
+.annotate 'line', 334
+ find_lex $P915, "$/"
+ unless_null $P915, vivify_318
+ $P915 = root_new ['parrot';'Hash']
vivify_318:
- set $P928, $P927["twigil"]
- unless_null $P928, vivify_319
- $P928 = root_new ['parrot';'ResizablePMCArray']
+ set $P916, $P915["twigil"]
+ unless_null $P916, vivify_319
+ $P916 = root_new ['parrot';'ResizablePMCArray']
vivify_319:
- set $P929, $P928[0]
- unless_null $P929, vivify_320
- new $P929, "Undef"
+ set $P917, $P916[0]
+ unless_null $P917, vivify_320
+ new $P917, "Undef"
vivify_320:
- set $S930, $P929
- iseq $I931, $S930, "!"
- if $I931, if_926
- new $P925, 'Integer'
- set $P925, $I931
- goto if_926_end
- if_926:
-.annotate 'line', 339
- find_lex $P932, "$past"
- get_hll_global $P933, ["PAST"], "Var"
- $P934 = $P933."new"("self" :named("name"))
- $P932."push"($P934)
-.annotate 'line', 340
- find_lex $P935, "$past"
- $P935."scope"("attribute")
-.annotate 'line', 341
- find_lex $P936, "$past"
- find_lex $P937, "$/"
- unless_null $P937, vivify_321
- $P937 = root_new ['parrot';'Hash']
+ set $S918, $P917
+ iseq $I919, $S918, "*"
+ if $I919, if_914
+.annotate 'line', 347
+ find_lex $P941, "$/"
+ unless_null $P941, vivify_321
+ $P941 = root_new ['parrot';'Hash']
vivify_321:
- set $P938, $P937["sigil"]
- unless_null $P938, vivify_322
- new $P938, "Undef"
+ set $P942, $P941["twigil"]
+ unless_null $P942, vivify_322
+ $P942 = root_new ['parrot';'ResizablePMCArray']
vivify_322:
- $P939 = "vivitype"($P938)
- $P940 = $P936."viviself"($P939)
-.annotate 'line', 338
- set $P925, $P940
- if_926_end:
- set $P899, $P925
-.annotate 'line', 325
- goto if_900_end
- if_900:
-.annotate 'line', 326
- find_lex $P906, "$past"
- $P906."scope"("contextual")
-.annotate 'line', 327
- find_lex $P907, "$past"
-.annotate 'line', 328
- get_hll_global $P908, ["PAST"], "Var"
-.annotate 'line', 330
- find_lex $P909, "$/"
- unless_null $P909, vivify_323
- $P909 = root_new ['parrot';'Hash']
+ set $P943, $P942[0]
+ unless_null $P943, vivify_323
+ new $P943, "Undef"
vivify_323:
- set $P910, $P909["sigil"]
- unless_null $P910, vivify_324
- new $P910, "Undef"
+ set $S944, $P943
+ iseq $I945, $S944, "!"
+ if $I945, if_940
+ new $P939, 'Integer'
+ set $P939, $I945
+ goto if_940_end
+ if_940:
+.annotate 'line', 348
+ find_lex $P946, "$past"
+ get_hll_global $P947, ["PAST"], "Var"
+ $P948 = $P947."new"("self" :named("name"))
+ $P946."push"($P948)
+.annotate 'line', 349
+ find_lex $P949, "$past"
+ $P949."scope"("attribute")
+.annotate 'line', 350
+ find_lex $P950, "$past"
+ find_lex $P951, "$/"
+ unless_null $P951, vivify_324
+ $P951 = root_new ['parrot';'Hash']
vivify_324:
- set $S911, $P910
- new $P912, 'String'
- set $P912, $S911
- find_lex $P913, "$/"
- unless_null $P913, vivify_325
- $P913 = root_new ['parrot';'Hash']
+ set $P952, $P951["sigil"]
+ unless_null $P952, vivify_325
+ new $P952, "Undef"
vivify_325:
- set $P914, $P913["desigilname"]
- unless_null $P914, vivify_326
- new $P914, "Undef"
+ $P953 = "vivitype"($P952)
+ $P954 = $P950."viviself"($P953)
+.annotate 'line', 347
+ set $P939, $P954
+ if_940_end:
+ set $P913, $P939
+.annotate 'line', 334
+ goto if_914_end
+ if_914:
+.annotate 'line', 335
+ find_lex $P920, "$past"
+ $P920."scope"("contextual")
+.annotate 'line', 336
+ find_lex $P921, "$past"
+.annotate 'line', 337
+ get_hll_global $P922, ["PAST"], "Var"
+.annotate 'line', 339
+ find_lex $P923, "$/"
+ unless_null $P923, vivify_326
+ $P923 = root_new ['parrot';'Hash']
vivify_326:
- concat $P915, $P912, $P914
-.annotate 'line', 332
- get_hll_global $P916, ["PAST"], "Op"
- new $P917, "String"
- assign $P917, "Contextual "
- find_lex $P918, "$/"
- set $S919, $P918
- concat $P920, $P917, $S919
- concat $P921, $P920, " not found"
- $P922 = $P916."new"($P921, "die" :named("pirop"))
- $P923 = $P908."new"("package" :named("scope"), "" :named("namespace"), $P915 :named("name"), $P922 :named("viviself"))
-.annotate 'line', 328
- $P924 = $P907."viviself"($P923)
-.annotate 'line', 325
- set $P899, $P924
- if_900_end:
-.annotate 'line', 315
- .return ($P899)
+ set $P924, $P923["sigil"]
+ unless_null $P924, vivify_327
+ new $P924, "Undef"
+ vivify_327:
+ set $S925, $P924
+ new $P926, 'String'
+ set $P926, $S925
+ find_lex $P927, "$/"
+ unless_null $P927, vivify_328
+ $P927 = root_new ['parrot';'Hash']
+ vivify_328:
+ set $P928, $P927["desigilname"]
+ unless_null $P928, vivify_329
+ new $P928, "Undef"
+ vivify_329:
+ concat $P929, $P926, $P928
+.annotate 'line', 341
+ get_hll_global $P930, ["PAST"], "Op"
+ new $P931, "String"
+ assign $P931, "Contextual "
+ find_lex $P932, "$/"
+ set $S933, $P932
+ concat $P934, $P931, $S933
+ concat $P935, $P934, " not found"
+ $P936 = $P930."new"($P935, "die" :named("pirop"))
+ $P937 = $P922."new"("package" :named("scope"), "" :named("namespace"), $P929 :named("name"), $P936 :named("viviself"))
+.annotate 'line', 337
+ $P938 = $P921."viviself"($P937)
+.annotate 'line', 334
+ set $P913, $P938
+ if_914_end:
+.annotate 'line', 324
+ .return ($P913)
.end
.namespace ["NQP";"Actions"]
-.sub "package_declarator:sym<module>" :subid("61_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_948
-.annotate 'line', 347
- new $P947, 'ExceptionHandler'
- set_addr $P947, control_946
- $P947."handle_types"(57)
- push_eh $P947
- .lex "self", self
- .lex "$/", param_948
- find_lex $P949, "$/"
- find_lex $P950, "$/"
- unless_null $P950, vivify_329
- $P950 = root_new ['parrot';'Hash']
- vivify_329:
- set $P951, $P950["package_def"]
- unless_null $P951, vivify_330
- new $P951, "Undef"
- vivify_330:
- $P952 = $P951."ast"()
- $P953 = $P949."!make"($P952)
- .return ($P953)
- control_946:
+.sub "package_declarator:sym<module>" :subid("62_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_962
+.annotate 'line', 356
+ new $P961, 'ExceptionHandler'
+ set_addr $P961, control_960
+ $P961."handle_types"(57)
+ push_eh $P961
+ .lex "self", self
+ .lex "$/", param_962
+ find_lex $P963, "$/"
+ find_lex $P964, "$/"
+ unless_null $P964, vivify_332
+ $P964 = root_new ['parrot';'Hash']
+ vivify_332:
+ set $P965, $P964["package_def"]
+ unless_null $P965, vivify_333
+ new $P965, "Undef"
+ vivify_333:
+ $P966 = $P965."ast"()
+ $P967 = $P963."!make"($P966)
+ .return ($P967)
+ control_960:
.local pmc exception
.get_results (exception)
- getattribute $P954, exception, "payload"
- .return ($P954)
+ getattribute $P968, exception, "payload"
+ .return ($P968)
.end
.namespace ["NQP";"Actions"]
-.sub "package_declarator:sym<class>" :subid("62_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_958
-.annotate 'line', 348
- new $P957, 'ExceptionHandler'
- set_addr $P957, control_956
- $P957."handle_types"(57)
- push_eh $P957
+.sub "package_declarator:sym<class>" :subid("63_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_972
+.annotate 'line', 357
+ new $P971, 'ExceptionHandler'
+ set_addr $P971, control_970
+ $P971."handle_types"(57)
+ push_eh $P971
.lex "self", self
- .lex "$/", param_958
-.annotate 'line', 349
- new $P959, "Undef"
- .lex "$past", $P959
-.annotate 'line', 350
- new $P960, "Undef"
- .lex "$classinit", $P960
+ .lex "$/", param_972
+.annotate 'line', 358
+ new $P973, "Undef"
+ .lex "$past", $P973
.annotate 'line', 359
- new $P961, "Undef"
- .lex "$parent", $P961
-.annotate 'line', 349
- find_lex $P962, "$/"
- unless_null $P962, vivify_331
- $P962 = root_new ['parrot';'Hash']
- vivify_331:
- set $P963, $P962["package_def"]
- unless_null $P963, vivify_332
- new $P963, "Undef"
- vivify_332:
- $P964 = $P963."ast"()
- store_lex "$past", $P964
-.annotate 'line', 351
- get_hll_global $P965, ["PAST"], "Op"
-.annotate 'line', 352
- get_hll_global $P966, ["PAST"], "Op"
- $P967 = $P966."new"(" %r = get_root_global [\"parrot\"], \"P6metaclass\"" :named("inline"))
-.annotate 'line', 355
- find_lex $P968, "$/"
- unless_null $P968, vivify_333
- $P968 = root_new ['parrot';'Hash']
- vivify_333:
- set $P969, $P968["package_def"]
- unless_null $P969, vivify_334
- $P969 = root_new ['parrot';'Hash']
+ new $P974, "Undef"
+ .lex "$classinit", $P974
+.annotate 'line', 368
+ new $P975, "Undef"
+ .lex "$parent", $P975
+.annotate 'line', 358
+ find_lex $P976, "$/"
+ unless_null $P976, vivify_334
+ $P976 = root_new ['parrot';'Hash']
vivify_334:
- set $P970, $P969["name"]
- unless_null $P970, vivify_335
- new $P970, "Undef"
+ set $P977, $P976["package_def"]
+ unless_null $P977, vivify_335
+ new $P977, "Undef"
vivify_335:
- set $S971, $P970
- $P972 = $P965."new"($P967, $S971, "new_class" :named("name"), "callmethod" :named("pasttype"))
-.annotate 'line', 351
- store_lex "$classinit", $P972
-.annotate 'line', 359
- find_lex $P975, "$/"
- unless_null $P975, vivify_336
- $P975 = root_new ['parrot';'Hash']
+ $P978 = $P977."ast"()
+ store_lex "$past", $P978
+.annotate 'line', 360
+ get_hll_global $P979, ["PAST"], "Op"
+.annotate 'line', 361
+ get_hll_global $P980, ["PAST"], "Op"
+ $P981 = $P980."new"(" %r = get_root_global [\"parrot\"], \"P6metaclass\"" :named("inline"))
+.annotate 'line', 364
+ find_lex $P982, "$/"
+ unless_null $P982, vivify_336
+ $P982 = root_new ['parrot';'Hash']
vivify_336:
- set $P976, $P975["package_def"]
- unless_null $P976, vivify_337
- $P976 = root_new ['parrot';'Hash']
+ set $P983, $P982["package_def"]
+ unless_null $P983, vivify_337
+ $P983 = root_new ['parrot';'Hash']
vivify_337:
- set $P977, $P976["parent"]
- unless_null $P977, vivify_338
- $P977 = root_new ['parrot';'ResizablePMCArray']
+ set $P984, $P983["name"]
+ unless_null $P984, vivify_338
+ new $P984, "Undef"
vivify_338:
- set $P978, $P977[0]
- unless_null $P978, vivify_339
- new $P978, "Undef"
- vivify_339:
- set $S979, $P978
- unless $S979, unless_974
- new $P973, 'String'
- set $P973, $S979
- goto unless_974_end
- unless_974:
+ set $S985, $P984
+ $P986 = $P979."new"($P981, $S985, "new_class" :named("name"), "callmethod" :named("pasttype"))
.annotate 'line', 360
- find_lex $P982, "$/"
- unless_null $P982, vivify_340
- $P982 = root_new ['parrot';'Hash']
+ store_lex "$classinit", $P986
+.annotate 'line', 368
+ find_lex $P989, "$/"
+ unless_null $P989, vivify_339
+ $P989 = root_new ['parrot';'Hash']
+ vivify_339:
+ set $P990, $P989["package_def"]
+ unless_null $P990, vivify_340
+ $P990 = root_new ['parrot';'Hash']
vivify_340:
- set $P983, $P982["sym"]
- unless_null $P983, vivify_341
- new $P983, "Undef"
+ set $P991, $P990["parent"]
+ unless_null $P991, vivify_341
+ $P991 = root_new ['parrot';'ResizablePMCArray']
vivify_341:
- set $S984, $P983
- iseq $I985, $S984, "grammar"
- if $I985, if_981
- new $P987, "String"
- assign $P987, ""
- set $P980, $P987
- goto if_981_end
- if_981:
- new $P986, "String"
- assign $P986, "Regex::Cursor"
- set $P980, $P986
- if_981_end:
- set $P973, $P980
- unless_974_end:
- store_lex "$parent", $P973
-.annotate 'line', 361
- find_lex $P989, "$parent"
- unless $P989, if_988_end
-.annotate 'line', 362
- find_lex $P990, "$classinit"
- get_hll_global $P991, ["PAST"], "Val"
- find_lex $P992, "$parent"
- $P993 = $P991."new"($P992 :named("value"), "parent" :named("named"))
- $P990."push"($P993)
- if_988_end:
-.annotate 'line', 364
- find_lex $P995, "$past"
- unless_null $P995, vivify_342
- $P995 = root_new ['parrot';'Hash']
+ set $P992, $P991[0]
+ unless_null $P992, vivify_342
+ new $P992, "Undef"
vivify_342:
- set $P996, $P995["attributes"]
+ set $S993, $P992
+ unless $S993, unless_988
+ new $P987, 'String'
+ set $P987, $S993
+ goto unless_988_end
+ unless_988:
+.annotate 'line', 369
+ find_lex $P996, "$/"
unless_null $P996, vivify_343
- new $P996, "Undef"
+ $P996 = root_new ['parrot';'Hash']
vivify_343:
- unless $P996, if_994_end
-.annotate 'line', 365
- find_lex $P997, "$classinit"
- find_lex $P998, "$past"
- unless_null $P998, vivify_344
- $P998 = root_new ['parrot';'Hash']
+ set $P997, $P996["sym"]
+ unless_null $P997, vivify_344
+ new $P997, "Undef"
vivify_344:
- set $P999, $P998["attributes"]
- unless_null $P999, vivify_345
- new $P999, "Undef"
+ set $S998, $P997
+ iseq $I999, $S998, "grammar"
+ if $I999, if_995
+ new $P1001, "String"
+ assign $P1001, ""
+ set $P994, $P1001
+ goto if_995_end
+ if_995:
+ new $P1000, "String"
+ assign $P1000, "Regex::Cursor"
+ set $P994, $P1000
+ if_995_end:
+ set $P987, $P994
+ unless_988_end:
+ store_lex "$parent", $P987
+.annotate 'line', 370
+ find_lex $P1003, "$parent"
+ unless $P1003, if_1002_end
+.annotate 'line', 371
+ find_lex $P1004, "$classinit"
+ get_hll_global $P1005, ["PAST"], "Val"
+ find_lex $P1006, "$parent"
+ $P1007 = $P1005."new"($P1006 :named("value"), "parent" :named("named"))
+ $P1004."push"($P1007)
+ if_1002_end:
+.annotate 'line', 373
+ find_lex $P1009, "$past"
+ unless_null $P1009, vivify_345
+ $P1009 = root_new ['parrot';'Hash']
vivify_345:
- $P997."push"($P999)
- if_994_end:
-.annotate 'line', 367
- get_global $P1000, "@BLOCK"
- unless_null $P1000, vivify_346
- $P1000 = root_new ['parrot';'ResizablePMCArray']
+ set $P1010, $P1009["attributes"]
+ unless_null $P1010, vivify_346
+ new $P1010, "Undef"
vivify_346:
- set $P1001, $P1000[0]
- unless_null $P1001, vivify_347
- new $P1001, "Undef"
+ unless $P1010, if_1008_end
+.annotate 'line', 374
+ find_lex $P1011, "$classinit"
+ find_lex $P1012, "$past"
+ unless_null $P1012, vivify_347
+ $P1012 = root_new ['parrot';'Hash']
vivify_347:
- $P1002 = $P1001."loadinit"()
- find_lex $P1003, "$classinit"
- $P1002."push"($P1003)
-.annotate 'line', 368
- find_lex $P1004, "$/"
- find_lex $P1005, "$past"
- $P1006 = $P1004."!make"($P1005)
-.annotate 'line', 348
- .return ($P1006)
- control_956:
- .local pmc exception
- .get_results (exception)
- getattribute $P1007, exception, "payload"
- .return ($P1007)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "package_def" :subid("63_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1011
-.annotate 'line', 371
- new $P1010, 'ExceptionHandler'
- set_addr $P1010, control_1009
- $P1010."handle_types"(57)
- push_eh $P1010
- .lex "self", self
- .lex "$/", param_1011
-.annotate 'line', 372
- new $P1012, "Undef"
- .lex "$past", $P1012
- find_lex $P1015, "$/"
- unless_null $P1015, vivify_348
- $P1015 = root_new ['parrot';'Hash']
+ set $P1013, $P1012["attributes"]
+ unless_null $P1013, vivify_348
+ new $P1013, "Undef"
vivify_348:
- set $P1016, $P1015["block"]
- unless_null $P1016, vivify_349
- new $P1016, "Undef"
+ $P1011."push"($P1013)
+ if_1008_end:
+.annotate 'line', 376
+ get_global $P1014, "@BLOCK"
+ unless_null $P1014, vivify_349
+ $P1014 = root_new ['parrot';'ResizablePMCArray']
vivify_349:
- if $P1016, if_1014
- find_lex $P1020, "$/"
- unless_null $P1020, vivify_350
- $P1020 = root_new ['parrot';'Hash']
+ set $P1015, $P1014[0]
+ unless_null $P1015, vivify_350
+ new $P1015, "Undef"
vivify_350:
- set $P1021, $P1020["comp_unit"]
- unless_null $P1021, vivify_351
- new $P1021, "Undef"
- vivify_351:
- $P1022 = $P1021."ast"()
- set $P1013, $P1022
- goto if_1014_end
- if_1014:
- find_lex $P1017, "$/"
- unless_null $P1017, vivify_352
- $P1017 = root_new ['parrot';'Hash']
- vivify_352:
- set $P1018, $P1017["block"]
- unless_null $P1018, vivify_353
- new $P1018, "Undef"
- vivify_353:
- $P1019 = $P1018."ast"()
- set $P1013, $P1019
- if_1014_end:
- store_lex "$past", $P1013
-.annotate 'line', 373
- find_lex $P1023, "$past"
- find_lex $P1024, "$/"
- unless_null $P1024, vivify_354
- $P1024 = root_new ['parrot';'Hash']
- vivify_354:
- set $P1025, $P1024["name"]
- unless_null $P1025, vivify_355
- $P1025 = root_new ['parrot';'Hash']
- vivify_355:
- set $P1026, $P1025["identifier"]
- unless_null $P1026, vivify_356
- new $P1026, "Undef"
- vivify_356:
- $P1023."namespace"($P1026)
-.annotate 'line', 374
- find_lex $P1027, "$past"
- $P1027."blocktype"("immediate")
-.annotate 'line', 375
- find_lex $P1028, "$/"
- find_lex $P1029, "$past"
- $P1030 = $P1028."!make"($P1029)
-.annotate 'line', 371
- .return ($P1030)
- control_1009:
+ $P1016 = $P1015."loadinit"()
+ find_lex $P1017, "$classinit"
+ $P1016."push"($P1017)
+.annotate 'line', 377
+ find_lex $P1018, "$/"
+ find_lex $P1019, "$past"
+ $P1020 = $P1018."!make"($P1019)
+.annotate 'line', 357
+ .return ($P1020)
+ control_970:
.local pmc exception
.get_results (exception)
- getattribute $P1031, exception, "payload"
- .return ($P1031)
+ getattribute $P1021, exception, "payload"
+ .return ($P1021)
.end
.namespace ["NQP";"Actions"]
-.sub "scope_declarator:sym<my>" :subid("64_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1035
-.annotate 'line', 378
- new $P1034, 'ExceptionHandler'
- set_addr $P1034, control_1033
- $P1034."handle_types"(57)
- push_eh $P1034
+.sub "package_def" :subid("64_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1025
+.annotate 'line', 380
+ new $P1024, 'ExceptionHandler'
+ set_addr $P1024, control_1023
+ $P1024."handle_types"(57)
+ push_eh $P1024
.lex "self", self
- .lex "$/", param_1035
- find_lex $P1036, "$/"
- find_lex $P1037, "$/"
- unless_null $P1037, vivify_357
- $P1037 = root_new ['parrot';'Hash']
+ .lex "$/", param_1025
+.annotate 'line', 381
+ new $P1026, "Undef"
+ .lex "$past", $P1026
+ find_lex $P1029, "$/"
+ unless_null $P1029, vivify_351
+ $P1029 = root_new ['parrot';'Hash']
+ vivify_351:
+ set $P1030, $P1029["block"]
+ unless_null $P1030, vivify_352
+ new $P1030, "Undef"
+ vivify_352:
+ if $P1030, if_1028
+ find_lex $P1034, "$/"
+ unless_null $P1034, vivify_353
+ $P1034 = root_new ['parrot';'Hash']
+ vivify_353:
+ set $P1035, $P1034["comp_unit"]
+ unless_null $P1035, vivify_354
+ new $P1035, "Undef"
+ vivify_354:
+ $P1036 = $P1035."ast"()
+ set $P1027, $P1036
+ goto if_1028_end
+ if_1028:
+ find_lex $P1031, "$/"
+ unless_null $P1031, vivify_355
+ $P1031 = root_new ['parrot';'Hash']
+ vivify_355:
+ set $P1032, $P1031["block"]
+ unless_null $P1032, vivify_356
+ new $P1032, "Undef"
+ vivify_356:
+ $P1033 = $P1032."ast"()
+ set $P1027, $P1033
+ if_1028_end:
+ store_lex "$past", $P1027
+.annotate 'line', 382
+ find_lex $P1037, "$past"
+ find_lex $P1038, "$/"
+ unless_null $P1038, vivify_357
+ $P1038 = root_new ['parrot';'Hash']
vivify_357:
- set $P1038, $P1037["scoped"]
- unless_null $P1038, vivify_358
- new $P1038, "Undef"
+ set $P1039, $P1038["name"]
+ unless_null $P1039, vivify_358
+ $P1039 = root_new ['parrot';'Hash']
vivify_358:
- $P1039 = $P1038."ast"()
- $P1040 = $P1036."!make"($P1039)
- .return ($P1040)
- control_1033:
+ set $P1040, $P1039["identifier"]
+ unless_null $P1040, vivify_359
+ new $P1040, "Undef"
+ vivify_359:
+ $P1037."namespace"($P1040)
+.annotate 'line', 383
+ find_lex $P1041, "$past"
+ $P1041."blocktype"("immediate")
+.annotate 'line', 384
+ find_lex $P1042, "$/"
+ find_lex $P1043, "$past"
+ $P1044 = $P1042."!make"($P1043)
+.annotate 'line', 380
+ .return ($P1044)
+ control_1023:
.local pmc exception
.get_results (exception)
- getattribute $P1041, exception, "payload"
- .return ($P1041)
+ getattribute $P1045, exception, "payload"
+ .return ($P1045)
.end
.namespace ["NQP";"Actions"]
-.sub "scope_declarator:sym<our>" :subid("65_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1045
-.annotate 'line', 379
- new $P1044, 'ExceptionHandler'
- set_addr $P1044, control_1043
- $P1044."handle_types"(57)
- push_eh $P1044
- .lex "self", self
- .lex "$/", param_1045
- find_lex $P1046, "$/"
- find_lex $P1047, "$/"
- unless_null $P1047, vivify_359
- $P1047 = root_new ['parrot';'Hash']
- vivify_359:
- set $P1048, $P1047["scoped"]
- unless_null $P1048, vivify_360
- new $P1048, "Undef"
+.sub "scope_declarator:sym<my>" :subid("65_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1049
+.annotate 'line', 387
+ new $P1048, 'ExceptionHandler'
+ set_addr $P1048, control_1047
+ $P1048."handle_types"(57)
+ push_eh $P1048
+ .lex "self", self
+ .lex "$/", param_1049
+ find_lex $P1050, "$/"
+ find_lex $P1051, "$/"
+ unless_null $P1051, vivify_360
+ $P1051 = root_new ['parrot';'Hash']
vivify_360:
- $P1049 = $P1048."ast"()
- $P1050 = $P1046."!make"($P1049)
- .return ($P1050)
- control_1043:
+ set $P1052, $P1051["scoped"]
+ unless_null $P1052, vivify_361
+ new $P1052, "Undef"
+ vivify_361:
+ $P1053 = $P1052."ast"()
+ $P1054 = $P1050."!make"($P1053)
+ .return ($P1054)
+ control_1047:
.local pmc exception
.get_results (exception)
- getattribute $P1051, exception, "payload"
- .return ($P1051)
+ getattribute $P1055, exception, "payload"
+ .return ($P1055)
.end
.namespace ["NQP";"Actions"]
-.sub "scope_declarator:sym<has>" :subid("66_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1055
-.annotate 'line', 380
- new $P1054, 'ExceptionHandler'
- set_addr $P1054, control_1053
- $P1054."handle_types"(57)
- push_eh $P1054
- .lex "self", self
- .lex "$/", param_1055
- find_lex $P1056, "$/"
- find_lex $P1057, "$/"
- unless_null $P1057, vivify_361
- $P1057 = root_new ['parrot';'Hash']
- vivify_361:
- set $P1058, $P1057["scoped"]
- unless_null $P1058, vivify_362
- new $P1058, "Undef"
+.sub "scope_declarator:sym<our>" :subid("66_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1059
+.annotate 'line', 388
+ new $P1058, 'ExceptionHandler'
+ set_addr $P1058, control_1057
+ $P1058."handle_types"(57)
+ push_eh $P1058
+ .lex "self", self
+ .lex "$/", param_1059
+ find_lex $P1060, "$/"
+ find_lex $P1061, "$/"
+ unless_null $P1061, vivify_362
+ $P1061 = root_new ['parrot';'Hash']
vivify_362:
- $P1059 = $P1058."ast"()
- $P1060 = $P1056."!make"($P1059)
- .return ($P1060)
- control_1053:
+ set $P1062, $P1061["scoped"]
+ unless_null $P1062, vivify_363
+ new $P1062, "Undef"
+ vivify_363:
+ $P1063 = $P1062."ast"()
+ $P1064 = $P1060."!make"($P1063)
+ .return ($P1064)
+ control_1057:
.local pmc exception
.get_results (exception)
- getattribute $P1061, exception, "payload"
- .return ($P1061)
+ getattribute $P1065, exception, "payload"
+ .return ($P1065)
.end
.namespace ["NQP";"Actions"]
-.sub "scoped" :subid("67_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1065
-.annotate 'line', 382
- new $P1064, 'ExceptionHandler'
- set_addr $P1064, control_1063
- $P1064."handle_types"(57)
- push_eh $P1064
- .lex "self", self
- .lex "$/", param_1065
-.annotate 'line', 383
- find_lex $P1066, "$/"
- find_lex $P1067, "$/"
- unless_null $P1067, vivify_363
- $P1067 = root_new ['parrot';'Hash']
- vivify_363:
- set $P1068, $P1067["declarator"]
- unless_null $P1068, vivify_364
- new $P1068, "Undef"
+.sub "scope_declarator:sym<has>" :subid("67_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1069
+.annotate 'line', 389
+ new $P1068, 'ExceptionHandler'
+ set_addr $P1068, control_1067
+ $P1068."handle_types"(57)
+ push_eh $P1068
+ .lex "self", self
+ .lex "$/", param_1069
+ find_lex $P1070, "$/"
+ find_lex $P1071, "$/"
+ unless_null $P1071, vivify_364
+ $P1071 = root_new ['parrot';'Hash']
vivify_364:
- $P1069 = $P1068."ast"()
- $P1070 = $P1066."!make"($P1069)
-.annotate 'line', 382
- .return ($P1070)
- control_1063:
+ set $P1072, $P1071["scoped"]
+ unless_null $P1072, vivify_365
+ new $P1072, "Undef"
+ vivify_365:
+ $P1073 = $P1072."ast"()
+ $P1074 = $P1070."!make"($P1073)
+ .return ($P1074)
+ control_1067:
.local pmc exception
.get_results (exception)
- getattribute $P1071, exception, "payload"
- .return ($P1071)
+ getattribute $P1075, exception, "payload"
+ .return ($P1075)
.end
.namespace ["NQP";"Actions"]
-.sub "declarator" :subid("68_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1075
-.annotate 'line', 386
- new $P1074, 'ExceptionHandler'
- set_addr $P1074, control_1073
- $P1074."handle_types"(57)
- push_eh $P1074
+.sub "scoped" :subid("68_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1079
+.annotate 'line', 391
+ new $P1078, 'ExceptionHandler'
+ set_addr $P1078, control_1077
+ $P1078."handle_types"(57)
+ push_eh $P1078
.lex "self", self
- .lex "$/", param_1075
-.annotate 'line', 387
- find_lex $P1076, "$/"
-.annotate 'line', 388
- find_lex $P1079, "$/"
- unless_null $P1079, vivify_365
- $P1079 = root_new ['parrot';'Hash']
- vivify_365:
- set $P1080, $P1079["routine_declarator"]
- unless_null $P1080, vivify_366
- new $P1080, "Undef"
- vivify_366:
- if $P1080, if_1078
-.annotate 'line', 389
- find_lex $P1084, "$/"
- unless_null $P1084, vivify_367
- $P1084 = root_new ['parrot';'Hash']
- vivify_367:
- set $P1085, $P1084["variable_declarator"]
- unless_null $P1085, vivify_368
- new $P1085, "Undef"
- vivify_368:
- $P1086 = $P1085."ast"()
- set $P1077, $P1086
-.annotate 'line', 388
- goto if_1078_end
- if_1078:
+ .lex "$/", param_1079
+.annotate 'line', 392
+ find_lex $P1080, "$/"
find_lex $P1081, "$/"
- unless_null $P1081, vivify_369
+ unless_null $P1081, vivify_366
$P1081 = root_new ['parrot';'Hash']
- vivify_369:
- set $P1082, $P1081["routine_declarator"]
- unless_null $P1082, vivify_370
+ vivify_366:
+ set $P1082, $P1081["declarator"]
+ unless_null $P1082, vivify_367
new $P1082, "Undef"
- vivify_370:
+ vivify_367:
$P1083 = $P1082."ast"()
- set $P1077, $P1083
- if_1078_end:
- $P1087 = $P1076."!make"($P1077)
-.annotate 'line', 386
- .return ($P1087)
- control_1073:
+ $P1084 = $P1080."!make"($P1083)
+.annotate 'line', 391
+ .return ($P1084)
+ control_1077:
.local pmc exception
.get_results (exception)
- getattribute $P1088, exception, "payload"
- .return ($P1088)
+ getattribute $P1085, exception, "payload"
+ .return ($P1085)
.end
.namespace ["NQP";"Actions"]
-.sub "variable_declarator" :subid("69_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1092
-.annotate 'line', 392
- .const 'Sub' $P1132 = "70_1274564782.90592"
- capture_lex $P1132
- new $P1091, 'ExceptionHandler'
- set_addr $P1091, control_1090
- $P1091."handle_types"(57)
- push_eh $P1091
- .lex "self", self
- .lex "$/", param_1092
-.annotate 'line', 393
- new $P1093, "Undef"
- .lex "$past", $P1093
-.annotate 'line', 394
- new $P1094, "Undef"
- .lex "$sigil", $P1094
+.sub "declarator" :subid("69_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1089
.annotate 'line', 395
- new $P1095, "Undef"
- .lex "$name", $P1095
+ new $P1088, 'ExceptionHandler'
+ set_addr $P1088, control_1087
+ $P1088."handle_types"(57)
+ push_eh $P1088
+ .lex "self", self
+ .lex "$/", param_1089
.annotate 'line', 396
- new $P1096, "Undef"
- .lex "$BLOCK", $P1096
-.annotate 'line', 393
- find_lex $P1097, "$/"
- unless_null $P1097, vivify_371
- $P1097 = root_new ['parrot';'Hash']
+ find_lex $P1090, "$/"
+.annotate 'line', 397
+ find_lex $P1093, "$/"
+ unless_null $P1093, vivify_368
+ $P1093 = root_new ['parrot';'Hash']
+ vivify_368:
+ set $P1094, $P1093["routine_declarator"]
+ unless_null $P1094, vivify_369
+ new $P1094, "Undef"
+ vivify_369:
+ if $P1094, if_1092
+.annotate 'line', 398
+ find_lex $P1098, "$/"
+ unless_null $P1098, vivify_370
+ $P1098 = root_new ['parrot';'Hash']
+ vivify_370:
+ set $P1099, $P1098["variable_declarator"]
+ unless_null $P1099, vivify_371
+ new $P1099, "Undef"
vivify_371:
- set $P1098, $P1097["variable"]
- unless_null $P1098, vivify_372
- new $P1098, "Undef"
+ $P1100 = $P1099."ast"()
+ set $P1091, $P1100
+.annotate 'line', 397
+ goto if_1092_end
+ if_1092:
+ find_lex $P1095, "$/"
+ unless_null $P1095, vivify_372
+ $P1095 = root_new ['parrot';'Hash']
vivify_372:
- $P1099 = $P1098."ast"()
- store_lex "$past", $P1099
-.annotate 'line', 394
- find_lex $P1100, "$/"
- unless_null $P1100, vivify_373
- $P1100 = root_new ['parrot';'Hash']
+ set $P1096, $P1095["routine_declarator"]
+ unless_null $P1096, vivify_373
+ new $P1096, "Undef"
vivify_373:
- set $P1101, $P1100["variable"]
- unless_null $P1101, vivify_374
- $P1101 = root_new ['parrot';'Hash']
+ $P1097 = $P1096."ast"()
+ set $P1091, $P1097
+ if_1092_end:
+ $P1101 = $P1090."!make"($P1091)
+.annotate 'line', 395
+ .return ($P1101)
+ control_1087:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1102, exception, "payload"
+ .return ($P1102)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "variable_declarator" :subid("70_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1106
+.annotate 'line', 401
+ .const 'Sub' $P1146 = "71_1275117616.72633"
+ capture_lex $P1146
+ new $P1105, 'ExceptionHandler'
+ set_addr $P1105, control_1104
+ $P1105."handle_types"(57)
+ push_eh $P1105
+ .lex "self", self
+ .lex "$/", param_1106
+.annotate 'line', 402
+ new $P1107, "Undef"
+ .lex "$past", $P1107
+.annotate 'line', 403
+ new $P1108, "Undef"
+ .lex "$sigil", $P1108
+.annotate 'line', 404
+ new $P1109, "Undef"
+ .lex "$name", $P1109
+.annotate 'line', 405
+ new $P1110, "Undef"
+ .lex "$BLOCK", $P1110
+.annotate 'line', 402
+ find_lex $P1111, "$/"
+ unless_null $P1111, vivify_374
+ $P1111 = root_new ['parrot';'Hash']
vivify_374:
- set $P1102, $P1101["sigil"]
- unless_null $P1102, vivify_375
- new $P1102, "Undef"
+ set $P1112, $P1111["variable"]
+ unless_null $P1112, vivify_375
+ new $P1112, "Undef"
vivify_375:
- store_lex "$sigil", $P1102
-.annotate 'line', 395
- find_lex $P1103, "$past"
- $P1104 = $P1103."name"()
- store_lex "$name", $P1104
-.annotate 'line', 396
- get_global $P1105, "@BLOCK"
- unless_null $P1105, vivify_376
- $P1105 = root_new ['parrot';'ResizablePMCArray']
+ $P1113 = $P1112."ast"()
+ store_lex "$past", $P1113
+.annotate 'line', 403
+ find_lex $P1114, "$/"
+ unless_null $P1114, vivify_376
+ $P1114 = root_new ['parrot';'Hash']
vivify_376:
- set $P1106, $P1105[0]
- unless_null $P1106, vivify_377
- new $P1106, "Undef"
+ set $P1115, $P1114["variable"]
+ unless_null $P1115, vivify_377
+ $P1115 = root_new ['parrot';'Hash']
vivify_377:
- store_lex "$BLOCK", $P1106
-.annotate 'line', 397
- find_lex $P1108, "$BLOCK"
- find_lex $P1109, "$name"
- $P1110 = $P1108."symbol"($P1109)
- unless $P1110, if_1107_end
-.annotate 'line', 398
- find_lex $P1111, "$/"
- $P1112 = $P1111."CURSOR"()
- find_lex $P1113, "$name"
- $P1112."panic"("Redeclaration of symbol ", $P1113)
- if_1107_end:
-.annotate 'line', 400
- find_dynamic_lex $P1115, "$*SCOPE"
- unless_null $P1115, vivify_378
- get_hll_global $P1115, "$SCOPE"
- unless_null $P1115, vivify_379
- die "Contextual $*SCOPE not found"
- vivify_379:
+ set $P1116, $P1115["sigil"]
+ unless_null $P1116, vivify_378
+ new $P1116, "Undef"
vivify_378:
- set $S1116, $P1115
- iseq $I1117, $S1116, "has"
- if $I1117, if_1114
-.annotate 'line', 409
- .const 'Sub' $P1132 = "70_1274564782.90592"
- capture_lex $P1132
- $P1132()
- goto if_1114_end
- if_1114:
-.annotate 'line', 401
- find_lex $P1118, "$BLOCK"
- find_lex $P1119, "$name"
- $P1118."symbol"($P1119, "attribute" :named("scope"))
-.annotate 'line', 402
- find_lex $P1121, "$BLOCK"
- unless_null $P1121, vivify_384
- $P1121 = root_new ['parrot';'Hash']
- vivify_384:
- set $P1122, $P1121["attributes"]
- unless_null $P1122, vivify_385
- new $P1122, "Undef"
- vivify_385:
- if $P1122, unless_1120_end
+ store_lex "$sigil", $P1116
.annotate 'line', 404
- get_hll_global $P1123, ["PAST"], "Op"
- $P1124 = $P1123."new"("list" :named("pasttype"), "attr" :named("named"))
- find_lex $P1125, "$BLOCK"
- unless_null $P1125, vivify_386
- $P1125 = root_new ['parrot';'Hash']
- store_lex "$BLOCK", $P1125
- vivify_386:
- set $P1125["attributes"], $P1124
- unless_1120_end:
+ find_lex $P1117, "$past"
+ $P1118 = $P1117."name"()
+ store_lex "$name", $P1118
+.annotate 'line', 405
+ get_global $P1119, "@BLOCK"
+ unless_null $P1119, vivify_379
+ $P1119 = root_new ['parrot';'ResizablePMCArray']
+ vivify_379:
+ set $P1120, $P1119[0]
+ unless_null $P1120, vivify_380
+ new $P1120, "Undef"
+ vivify_380:
+ store_lex "$BLOCK", $P1120
.annotate 'line', 406
- find_lex $P1126, "$BLOCK"
- unless_null $P1126, vivify_387
- $P1126 = root_new ['parrot';'Hash']
+ find_lex $P1122, "$BLOCK"
+ find_lex $P1123, "$name"
+ $P1124 = $P1122."symbol"($P1123)
+ unless $P1124, if_1121_end
+.annotate 'line', 407
+ find_lex $P1125, "$/"
+ $P1126 = $P1125."CURSOR"()
+ find_lex $P1127, "$name"
+ $P1126."panic"("Redeclaration of symbol ", $P1127)
+ if_1121_end:
+.annotate 'line', 409
+ find_dynamic_lex $P1129, "$*SCOPE"
+ unless_null $P1129, vivify_381
+ get_hll_global $P1129, "$SCOPE"
+ unless_null $P1129, vivify_382
+ die "Contextual $*SCOPE not found"
+ vivify_382:
+ vivify_381:
+ set $S1130, $P1129
+ iseq $I1131, $S1130, "has"
+ if $I1131, if_1128
+.annotate 'line', 418
+ .const 'Sub' $P1146 = "71_1275117616.72633"
+ capture_lex $P1146
+ $P1146()
+ goto if_1128_end
+ if_1128:
+.annotate 'line', 410
+ find_lex $P1132, "$BLOCK"
+ find_lex $P1133, "$name"
+ $P1132."symbol"($P1133, "attribute" :named("scope"))
+.annotate 'line', 411
+ find_lex $P1135, "$BLOCK"
+ unless_null $P1135, vivify_387
+ $P1135 = root_new ['parrot';'Hash']
vivify_387:
- set $P1127, $P1126["attributes"]
- unless_null $P1127, vivify_388
- new $P1127, "Undef"
+ set $P1136, $P1135["attributes"]
+ unless_null $P1136, vivify_388
+ new $P1136, "Undef"
vivify_388:
- find_lex $P1128, "$name"
- $P1127."push"($P1128)
-.annotate 'line', 407
- get_hll_global $P1129, ["PAST"], "Stmts"
- $P1130 = $P1129."new"()
- store_lex "$past", $P1130
- if_1114_end:
-.annotate 'line', 417
- find_lex $P1156, "$/"
- find_lex $P1157, "$past"
- $P1158 = $P1156."!make"($P1157)
-.annotate 'line', 392
- .return ($P1158)
- control_1090:
+ if $P1136, unless_1134_end
+.annotate 'line', 413
+ get_hll_global $P1137, ["PAST"], "Op"
+ $P1138 = $P1137."new"("list" :named("pasttype"), "attr" :named("named"))
+ find_lex $P1139, "$BLOCK"
+ unless_null $P1139, vivify_389
+ $P1139 = root_new ['parrot';'Hash']
+ store_lex "$BLOCK", $P1139
+ vivify_389:
+ set $P1139["attributes"], $P1138
+ unless_1134_end:
+.annotate 'line', 415
+ find_lex $P1140, "$BLOCK"
+ unless_null $P1140, vivify_390
+ $P1140 = root_new ['parrot';'Hash']
+ vivify_390:
+ set $P1141, $P1140["attributes"]
+ unless_null $P1141, vivify_391
+ new $P1141, "Undef"
+ vivify_391:
+ find_lex $P1142, "$name"
+ $P1141."push"($P1142)
+.annotate 'line', 416
+ get_hll_global $P1143, ["PAST"], "Stmts"
+ $P1144 = $P1143."new"()
+ store_lex "$past", $P1144
+ if_1128_end:
+.annotate 'line', 426
+ find_lex $P1170, "$/"
+ find_lex $P1171, "$past"
+ $P1172 = $P1170."!make"($P1171)
+.annotate 'line', 401
+ .return ($P1172)
+ control_1104:
.local pmc exception
.get_results (exception)
- getattribute $P1159, exception, "payload"
- .return ($P1159)
+ getattribute $P1173, exception, "payload"
+ .return ($P1173)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1131" :anon :subid("70_1274564782.90592") :outer("69_1274564782.90592")
-.annotate 'line', 410
- new $P1133, "Undef"
- .lex "$scope", $P1133
-.annotate 'line', 411
- new $P1134, "Undef"
- .lex "$decl", $P1134
-.annotate 'line', 410
- find_dynamic_lex $P1137, "$*SCOPE"
- unless_null $P1137, vivify_380
- get_hll_global $P1137, "$SCOPE"
- unless_null $P1137, vivify_381
+.sub "_block1145" :anon :subid("71_1275117616.72633") :outer("70_1275117616.72633")
+.annotate 'line', 419
+ new $P1147, "Undef"
+ .lex "$scope", $P1147
+.annotate 'line', 420
+ new $P1148, "Undef"
+ .lex "$decl", $P1148
+.annotate 'line', 419
+ find_dynamic_lex $P1151, "$*SCOPE"
+ unless_null $P1151, vivify_383
+ get_hll_global $P1151, "$SCOPE"
+ unless_null $P1151, vivify_384
die "Contextual $*SCOPE not found"
- vivify_381:
- vivify_380:
- set $S1138, $P1137
- iseq $I1139, $S1138, "our"
- if $I1139, if_1136
- new $P1141, "String"
- assign $P1141, "lexical"
- set $P1135, $P1141
- goto if_1136_end
- if_1136:
- new $P1140, "String"
- assign $P1140, "package"
- set $P1135, $P1140
- if_1136_end:
- store_lex "$scope", $P1135
-.annotate 'line', 411
- get_hll_global $P1142, ["PAST"], "Var"
- find_lex $P1143, "$name"
- find_lex $P1144, "$scope"
-.annotate 'line', 412
- find_lex $P1145, "$sigil"
- $P1146 = "vivitype"($P1145)
- find_lex $P1147, "$/"
- $P1148 = $P1142."new"($P1143 :named("name"), $P1144 :named("scope"), 1 :named("isdecl"), 1 :named("lvalue"), $P1146 :named("viviself"), $P1147 :named("node"))
-.annotate 'line', 411
- store_lex "$decl", $P1148
-.annotate 'line', 414
- find_lex $P1149, "$BLOCK"
- find_lex $P1150, "$name"
- find_lex $P1151, "$scope"
- $P1149."symbol"($P1150, $P1151 :named("scope"))
-.annotate 'line', 415
- find_lex $P1152, "$BLOCK"
- unless_null $P1152, vivify_382
- $P1152 = root_new ['parrot';'ResizablePMCArray']
- vivify_382:
- set $P1153, $P1152[0]
- unless_null $P1153, vivify_383
- new $P1153, "Undef"
+ vivify_384:
vivify_383:
- find_lex $P1154, "$decl"
- $P1155 = $P1153."push"($P1154)
-.annotate 'line', 409
- .return ($P1155)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "routine_declarator:sym<sub>" :subid("71_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1163
+ set $S1152, $P1151
+ iseq $I1153, $S1152, "our"
+ if $I1153, if_1150
+ new $P1155, "String"
+ assign $P1155, "lexical"
+ set $P1149, $P1155
+ goto if_1150_end
+ if_1150:
+ new $P1154, "String"
+ assign $P1154, "package"
+ set $P1149, $P1154
+ if_1150_end:
+ store_lex "$scope", $P1149
.annotate 'line', 420
- new $P1162, 'ExceptionHandler'
- set_addr $P1162, control_1161
- $P1162."handle_types"(57)
- push_eh $P1162
- .lex "self", self
- .lex "$/", param_1163
- find_lex $P1164, "$/"
- find_lex $P1165, "$/"
- unless_null $P1165, vivify_389
- $P1165 = root_new ['parrot';'Hash']
- vivify_389:
- set $P1166, $P1165["routine_def"]
- unless_null $P1166, vivify_390
- new $P1166, "Undef"
- vivify_390:
- $P1167 = $P1166."ast"()
- $P1168 = $P1164."!make"($P1167)
- .return ($P1168)
- control_1161:
- .local pmc exception
- .get_results (exception)
- getattribute $P1169, exception, "payload"
+ get_hll_global $P1156, ["PAST"], "Var"
+ find_lex $P1157, "$name"
+ find_lex $P1158, "$scope"
+.annotate 'line', 421
+ find_lex $P1159, "$sigil"
+ $P1160 = "vivitype"($P1159)
+ find_lex $P1161, "$/"
+ $P1162 = $P1156."new"($P1157 :named("name"), $P1158 :named("scope"), 1 :named("isdecl"), 1 :named("lvalue"), $P1160 :named("viviself"), $P1161 :named("node"))
+.annotate 'line', 420
+ store_lex "$decl", $P1162
+.annotate 'line', 423
+ find_lex $P1163, "$BLOCK"
+ find_lex $P1164, "$name"
+ find_lex $P1165, "$scope"
+ $P1163."symbol"($P1164, $P1165 :named("scope"))
+.annotate 'line', 424
+ find_lex $P1166, "$BLOCK"
+ unless_null $P1166, vivify_385
+ $P1166 = root_new ['parrot';'ResizablePMCArray']
+ vivify_385:
+ set $P1167, $P1166[0]
+ unless_null $P1167, vivify_386
+ new $P1167, "Undef"
+ vivify_386:
+ find_lex $P1168, "$decl"
+ $P1169 = $P1167."push"($P1168)
+.annotate 'line', 418
.return ($P1169)
.end
.namespace ["NQP";"Actions"]
-.sub "routine_declarator:sym<method>" :subid("72_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1173
-.annotate 'line', 421
- new $P1172, 'ExceptionHandler'
- set_addr $P1172, control_1171
- $P1172."handle_types"(57)
- push_eh $P1172
- .lex "self", self
- .lex "$/", param_1173
- find_lex $P1174, "$/"
- find_lex $P1175, "$/"
- unless_null $P1175, vivify_391
- $P1175 = root_new ['parrot';'Hash']
- vivify_391:
- set $P1176, $P1175["method_def"]
- unless_null $P1176, vivify_392
- new $P1176, "Undef"
+.sub "routine_declarator:sym<sub>" :subid("72_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1177
+.annotate 'line', 429
+ new $P1176, 'ExceptionHandler'
+ set_addr $P1176, control_1175
+ $P1176."handle_types"(57)
+ push_eh $P1176
+ .lex "self", self
+ .lex "$/", param_1177
+ find_lex $P1178, "$/"
+ find_lex $P1179, "$/"
+ unless_null $P1179, vivify_392
+ $P1179 = root_new ['parrot';'Hash']
vivify_392:
- $P1177 = $P1176."ast"()
- $P1178 = $P1174."!make"($P1177)
- .return ($P1178)
- control_1171:
+ set $P1180, $P1179["routine_def"]
+ unless_null $P1180, vivify_393
+ new $P1180, "Undef"
+ vivify_393:
+ $P1181 = $P1180."ast"()
+ $P1182 = $P1178."!make"($P1181)
+ .return ($P1182)
+ control_1175:
.local pmc exception
.get_results (exception)
- getattribute $P1179, exception, "payload"
- .return ($P1179)
+ getattribute $P1183, exception, "payload"
+ .return ($P1183)
.end
.namespace ["NQP";"Actions"]
-.sub "routine_def" :subid("73_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1183
-.annotate 'line', 423
- .const 'Sub' $P1194 = "74_1274564782.90592"
- capture_lex $P1194
- new $P1182, 'ExceptionHandler'
- set_addr $P1182, control_1181
- $P1182."handle_types"(57)
- push_eh $P1182
- .lex "self", self
- .lex "$/", param_1183
-.annotate 'line', 424
- new $P1184, "Undef"
- .lex "$past", $P1184
- find_lex $P1185, "$/"
- unless_null $P1185, vivify_393
- $P1185 = root_new ['parrot';'Hash']
- vivify_393:
- set $P1186, $P1185["blockoid"]
- unless_null $P1186, vivify_394
- new $P1186, "Undef"
+.sub "routine_declarator:sym<method>" :subid("73_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1187
+.annotate 'line', 430
+ new $P1186, 'ExceptionHandler'
+ set_addr $P1186, control_1185
+ $P1186."handle_types"(57)
+ push_eh $P1186
+ .lex "self", self
+ .lex "$/", param_1187
+ find_lex $P1188, "$/"
+ find_lex $P1189, "$/"
+ unless_null $P1189, vivify_394
+ $P1189 = root_new ['parrot';'Hash']
vivify_394:
- $P1187 = $P1186."ast"()
- store_lex "$past", $P1187
-.annotate 'line', 425
- find_lex $P1188, "$past"
- $P1188."blocktype"("declaration")
-.annotate 'line', 426
- find_lex $P1189, "$past"
- $P1189."control"("return_pir")
-.annotate 'line', 427
- find_lex $P1191, "$/"
- unless_null $P1191, vivify_395
- $P1191 = root_new ['parrot';'Hash']
+ set $P1190, $P1189["method_def"]
+ unless_null $P1190, vivify_395
+ new $P1190, "Undef"
vivify_395:
- set $P1192, $P1191["deflongname"]
- unless_null $P1192, vivify_396
- new $P1192, "Undef"
- vivify_396:
- unless $P1192, if_1190_end
- .const 'Sub' $P1194 = "74_1274564782.90592"
- capture_lex $P1194
- $P1194()
- if_1190_end:
-.annotate 'line', 437
- find_lex $P1226, "$/"
- find_lex $P1227, "$past"
- $P1228 = $P1226."!make"($P1227)
-.annotate 'line', 423
- .return ($P1228)
- control_1181:
+ $P1191 = $P1190."ast"()
+ $P1192 = $P1188."!make"($P1191)
+ .return ($P1192)
+ control_1185:
.local pmc exception
.get_results (exception)
- getattribute $P1229, exception, "payload"
- .return ($P1229)
+ getattribute $P1193, exception, "payload"
+ .return ($P1193)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1193" :anon :subid("74_1274564782.90592") :outer("73_1274564782.90592")
-.annotate 'line', 428
- new $P1195, "Undef"
- .lex "$name", $P1195
- find_lex $P1196, "$/"
- unless_null $P1196, vivify_397
- $P1196 = root_new ['parrot';'Hash']
+.sub "routine_def" :subid("74_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1197
+.annotate 'line', 432
+ .const 'Sub' $P1208 = "75_1275117616.72633"
+ capture_lex $P1208
+ new $P1196, 'ExceptionHandler'
+ set_addr $P1196, control_1195
+ $P1196."handle_types"(57)
+ push_eh $P1196
+ .lex "self", self
+ .lex "$/", param_1197
+.annotate 'line', 433
+ new $P1198, "Undef"
+ .lex "$past", $P1198
+ find_lex $P1199, "$/"
+ unless_null $P1199, vivify_396
+ $P1199 = root_new ['parrot';'Hash']
+ vivify_396:
+ set $P1200, $P1199["blockoid"]
+ unless_null $P1200, vivify_397
+ new $P1200, "Undef"
vivify_397:
- set $P1197, $P1196["sigil"]
- unless_null $P1197, vivify_398
- $P1197 = root_new ['parrot';'ResizablePMCArray']
+ $P1201 = $P1200."ast"()
+ store_lex "$past", $P1201
+.annotate 'line', 434
+ find_lex $P1202, "$past"
+ $P1202."blocktype"("declaration")
+.annotate 'line', 435
+ find_lex $P1203, "$past"
+ $P1203."control"("return_pir")
+.annotate 'line', 436
+ find_lex $P1205, "$/"
+ unless_null $P1205, vivify_398
+ $P1205 = root_new ['parrot';'Hash']
vivify_398:
- set $P1198, $P1197[0]
- unless_null $P1198, vivify_399
- new $P1198, "Undef"
+ set $P1206, $P1205["deflongname"]
+ unless_null $P1206, vivify_399
+ new $P1206, "Undef"
vivify_399:
- set $S1199, $P1198
- new $P1200, 'String'
- set $P1200, $S1199
- find_lex $P1201, "$/"
- unless_null $P1201, vivify_400
- $P1201 = root_new ['parrot';'Hash']
+ unless $P1206, if_1204_end
+ .const 'Sub' $P1208 = "75_1275117616.72633"
+ capture_lex $P1208
+ $P1208()
+ if_1204_end:
+.annotate 'line', 446
+ find_lex $P1240, "$/"
+ find_lex $P1241, "$past"
+ $P1242 = $P1240."!make"($P1241)
+.annotate 'line', 432
+ .return ($P1242)
+ control_1195:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1243, exception, "payload"
+ .return ($P1243)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "_block1207" :anon :subid("75_1275117616.72633") :outer("74_1275117616.72633")
+.annotate 'line', 437
+ new $P1209, "Undef"
+ .lex "$name", $P1209
+ find_lex $P1210, "$/"
+ unless_null $P1210, vivify_400
+ $P1210 = root_new ['parrot';'Hash']
vivify_400:
- set $P1202, $P1201["deflongname"]
- unless_null $P1202, vivify_401
- $P1202 = root_new ['parrot';'ResizablePMCArray']
+ set $P1211, $P1210["sigil"]
+ unless_null $P1211, vivify_401
+ $P1211 = root_new ['parrot';'ResizablePMCArray']
vivify_401:
- set $P1203, $P1202[0]
- unless_null $P1203, vivify_402
- new $P1203, "Undef"
+ set $P1212, $P1211[0]
+ unless_null $P1212, vivify_402
+ new $P1212, "Undef"
vivify_402:
- $S1204 = $P1203."ast"()
- concat $P1205, $P1200, $S1204
- store_lex "$name", $P1205
-.annotate 'line', 429
- find_lex $P1206, "$past"
- find_lex $P1207, "$name"
- $P1206."name"($P1207)
-.annotate 'line', 430
- find_dynamic_lex $P1210, "$*SCOPE"
- unless_null $P1210, vivify_403
- get_hll_global $P1210, "$SCOPE"
- unless_null $P1210, vivify_404
- die "Contextual $*SCOPE not found"
- vivify_404:
+ set $S1213, $P1212
+ new $P1214, 'String'
+ set $P1214, $S1213
+ find_lex $P1215, "$/"
+ unless_null $P1215, vivify_403
+ $P1215 = root_new ['parrot';'Hash']
vivify_403:
- set $S1211, $P1210
- isne $I1212, $S1211, "our"
- if $I1212, if_1209
- new $P1208, 'Integer'
- set $P1208, $I1212
- goto if_1209_end
- if_1209:
-.annotate 'line', 431
- get_global $P1213, "@BLOCK"
- unless_null $P1213, vivify_405
- $P1213 = root_new ['parrot';'ResizablePMCArray']
+ set $P1216, $P1215["deflongname"]
+ unless_null $P1216, vivify_404
+ $P1216 = root_new ['parrot';'ResizablePMCArray']
+ vivify_404:
+ set $P1217, $P1216[0]
+ unless_null $P1217, vivify_405
+ new $P1217, "Undef"
vivify_405:
- set $P1214, $P1213[0]
- unless_null $P1214, vivify_406
- $P1214 = root_new ['parrot';'ResizablePMCArray']
- vivify_406:
- set $P1215, $P1214[0]
- unless_null $P1215, vivify_407
- new $P1215, "Undef"
+ $S1218 = $P1217."ast"()
+ concat $P1219, $P1214, $S1218
+ store_lex "$name", $P1219
+.annotate 'line', 438
+ find_lex $P1220, "$past"
+ find_lex $P1221, "$name"
+ $P1220."name"($P1221)
+.annotate 'line', 439
+ find_dynamic_lex $P1224, "$*SCOPE"
+ unless_null $P1224, vivify_406
+ get_hll_global $P1224, "$SCOPE"
+ unless_null $P1224, vivify_407
+ die "Contextual $*SCOPE not found"
vivify_407:
- get_hll_global $P1216, ["PAST"], "Var"
- find_lex $P1217, "$name"
- find_lex $P1218, "$past"
- $P1219 = $P1216."new"($P1217 :named("name"), 1 :named("isdecl"), $P1218 :named("viviself"), "lexical" :named("scope"))
- $P1215."push"($P1219)
-.annotate 'line', 433
- get_global $P1220, "@BLOCK"
- unless_null $P1220, vivify_408
- $P1220 = root_new ['parrot';'ResizablePMCArray']
+ vivify_406:
+ set $S1225, $P1224
+ isne $I1226, $S1225, "our"
+ if $I1226, if_1223
+ new $P1222, 'Integer'
+ set $P1222, $I1226
+ goto if_1223_end
+ if_1223:
+.annotate 'line', 440
+ get_global $P1227, "@BLOCK"
+ unless_null $P1227, vivify_408
+ $P1227 = root_new ['parrot';'ResizablePMCArray']
vivify_408:
- set $P1221, $P1220[0]
- unless_null $P1221, vivify_409
- new $P1221, "Undef"
+ set $P1228, $P1227[0]
+ unless_null $P1228, vivify_409
+ $P1228 = root_new ['parrot';'ResizablePMCArray']
vivify_409:
- find_lex $P1222, "$name"
- $P1221."symbol"($P1222, "lexical" :named("scope"))
-.annotate 'line', 434
- get_hll_global $P1223, ["PAST"], "Var"
- find_lex $P1224, "$name"
- $P1225 = $P1223."new"($P1224 :named("name"))
- store_lex "$past", $P1225
-.annotate 'line', 430
- set $P1208, $P1225
- if_1209_end:
-.annotate 'line', 427
- .return ($P1208)
+ set $P1229, $P1228[0]
+ unless_null $P1229, vivify_410
+ new $P1229, "Undef"
+ vivify_410:
+ get_hll_global $P1230, ["PAST"], "Var"
+ find_lex $P1231, "$name"
+ find_lex $P1232, "$past"
+ $P1233 = $P1230."new"($P1231 :named("name"), 1 :named("isdecl"), $P1232 :named("viviself"), "lexical" :named("scope"))
+ $P1229."push"($P1233)
+.annotate 'line', 442
+ get_global $P1234, "@BLOCK"
+ unless_null $P1234, vivify_411
+ $P1234 = root_new ['parrot';'ResizablePMCArray']
+ vivify_411:
+ set $P1235, $P1234[0]
+ unless_null $P1235, vivify_412
+ new $P1235, "Undef"
+ vivify_412:
+ find_lex $P1236, "$name"
+ $P1235."symbol"($P1236, "lexical" :named("scope"))
+.annotate 'line', 443
+ get_hll_global $P1237, ["PAST"], "Var"
+ find_lex $P1238, "$name"
+ $P1239 = $P1237."new"($P1238 :named("name"))
+ store_lex "$past", $P1239
+.annotate 'line', 439
+ set $P1222, $P1239
+ if_1223_end:
+.annotate 'line', 436
+ .return ($P1222)
.end
.namespace ["NQP";"Actions"]
-.sub "method_def" :subid("75_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1233
-.annotate 'line', 441
- .const 'Sub' $P1249 = "76_1274564782.90592"
- capture_lex $P1249
- new $P1232, 'ExceptionHandler'
- set_addr $P1232, control_1231
- $P1232."handle_types"(57)
- push_eh $P1232
+.sub "method_def" :subid("76_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1247
+.annotate 'line', 450
+ .const 'Sub' $P1263 = "77_1275117616.72633"
+ capture_lex $P1263
+ new $P1246, 'ExceptionHandler'
+ set_addr $P1246, control_1245
+ $P1246."handle_types"(57)
+ push_eh $P1246
.lex "self", self
- .lex "$/", param_1233
-.annotate 'line', 442
- new $P1234, "Undef"
- .lex "$past", $P1234
- find_lex $P1235, "$/"
- unless_null $P1235, vivify_410
- $P1235 = root_new ['parrot';'Hash']
- vivify_410:
- set $P1236, $P1235["blockoid"]
- unless_null $P1236, vivify_411
- new $P1236, "Undef"
- vivify_411:
- $P1237 = $P1236."ast"()
- store_lex "$past", $P1237
-.annotate 'line', 443
- find_lex $P1238, "$past"
- $P1238."blocktype"("method")
-.annotate 'line', 444
- find_lex $P1239, "$past"
- $P1239."control"("return_pir")
-.annotate 'line', 445
- find_lex $P1240, "$past"
- unless_null $P1240, vivify_412
- $P1240 = root_new ['parrot';'ResizablePMCArray']
- vivify_412:
- set $P1241, $P1240[0]
- unless_null $P1241, vivify_413
- new $P1241, "Undef"
+ .lex "$/", param_1247
+.annotate 'line', 451
+ new $P1248, "Undef"
+ .lex "$past", $P1248
+ find_lex $P1249, "$/"
+ unless_null $P1249, vivify_413
+ $P1249 = root_new ['parrot';'Hash']
vivify_413:
- get_hll_global $P1242, ["PAST"], "Op"
- $P1243 = $P1242."new"(" .lex \"self\", self" :named("inline"))
- $P1241."unshift"($P1243)
-.annotate 'line', 446
- find_lex $P1244, "$past"
- $P1244."symbol"("self", "lexical" :named("scope"))
-.annotate 'line', 447
- find_lex $P1246, "$/"
- unless_null $P1246, vivify_414
- $P1246 = root_new ['parrot';'Hash']
+ set $P1250, $P1249["blockoid"]
+ unless_null $P1250, vivify_414
+ new $P1250, "Undef"
vivify_414:
- set $P1247, $P1246["deflongname"]
- unless_null $P1247, vivify_415
- new $P1247, "Undef"
+ $P1251 = $P1250."ast"()
+ store_lex "$past", $P1251
+.annotate 'line', 452
+ find_lex $P1252, "$past"
+ $P1252."blocktype"("method")
+.annotate 'line', 453
+ find_lex $P1253, "$past"
+ $P1253."control"("return_pir")
+.annotate 'line', 454
+ find_lex $P1254, "$past"
+ unless_null $P1254, vivify_415
+ $P1254 = root_new ['parrot';'ResizablePMCArray']
vivify_415:
- unless $P1247, if_1245_end
- .const 'Sub' $P1249 = "76_1274564782.90592"
- capture_lex $P1249
- $P1249()
- if_1245_end:
-.annotate 'line', 451
+ set $P1255, $P1254[0]
+ unless_null $P1255, vivify_416
+ new $P1255, "Undef"
+ vivify_416:
+ get_hll_global $P1256, ["PAST"], "Op"
+ $P1257 = $P1256."new"(" .lex \"self\", self" :named("inline"))
+ $P1255."unshift"($P1257)
+.annotate 'line', 455
+ find_lex $P1258, "$past"
+ $P1258."symbol"("self", "lexical" :named("scope"))
+.annotate 'line', 456
find_lex $P1260, "$/"
- find_lex $P1261, "$past"
- $P1262 = $P1260."!make"($P1261)
-.annotate 'line', 441
- .return ($P1262)
- control_1231:
+ unless_null $P1260, vivify_417
+ $P1260 = root_new ['parrot';'Hash']
+ vivify_417:
+ set $P1261, $P1260["deflongname"]
+ unless_null $P1261, vivify_418
+ new $P1261, "Undef"
+ vivify_418:
+ unless $P1261, if_1259_end
+ .const 'Sub' $P1263 = "77_1275117616.72633"
+ capture_lex $P1263
+ $P1263()
+ if_1259_end:
+.annotate 'line', 460
+ find_lex $P1274, "$/"
+ find_lex $P1275, "$past"
+ $P1276 = $P1274."!make"($P1275)
+.annotate 'line', 450
+ .return ($P1276)
+ control_1245:
.local pmc exception
.get_results (exception)
- getattribute $P1263, exception, "payload"
- .return ($P1263)
+ getattribute $P1277, exception, "payload"
+ .return ($P1277)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1248" :anon :subid("76_1274564782.90592") :outer("75_1274564782.90592")
-.annotate 'line', 448
- new $P1250, "Undef"
- .lex "$name", $P1250
- find_lex $P1251, "$/"
- unless_null $P1251, vivify_416
- $P1251 = root_new ['parrot';'Hash']
- vivify_416:
- set $P1252, $P1251["deflongname"]
- unless_null $P1252, vivify_417
- $P1252 = root_new ['parrot';'ResizablePMCArray']
- vivify_417:
- set $P1253, $P1252[0]
- unless_null $P1253, vivify_418
- new $P1253, "Undef"
- vivify_418:
- $P1254 = $P1253."ast"()
- set $S1255, $P1254
- new $P1256, 'String'
- set $P1256, $S1255
- store_lex "$name", $P1256
-.annotate 'line', 449
- find_lex $P1257, "$past"
- find_lex $P1258, "$name"
- $P1259 = $P1257."name"($P1258)
-.annotate 'line', 447
- .return ($P1259)
+.sub "_block1262" :anon :subid("77_1275117616.72633") :outer("76_1275117616.72633")
+.annotate 'line', 457
+ new $P1264, "Undef"
+ .lex "$name", $P1264
+ find_lex $P1265, "$/"
+ unless_null $P1265, vivify_419
+ $P1265 = root_new ['parrot';'Hash']
+ vivify_419:
+ set $P1266, $P1265["deflongname"]
+ unless_null $P1266, vivify_420
+ $P1266 = root_new ['parrot';'ResizablePMCArray']
+ vivify_420:
+ set $P1267, $P1266[0]
+ unless_null $P1267, vivify_421
+ new $P1267, "Undef"
+ vivify_421:
+ $P1268 = $P1267."ast"()
+ set $S1269, $P1268
+ new $P1270, 'String'
+ set $P1270, $S1269
+ store_lex "$name", $P1270
+.annotate 'line', 458
+ find_lex $P1271, "$past"
+ find_lex $P1272, "$name"
+ $P1273 = $P1271."name"($P1272)
+.annotate 'line', 456
+ .return ($P1273)
.end
.namespace ["NQP";"Actions"]
-.sub "signature" :subid("77_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1267
-.annotate 'line', 455
- .const 'Sub' $P1278 = "78_1274564782.90592"
- capture_lex $P1278
- new $P1266, 'ExceptionHandler'
- set_addr $P1266, control_1265
- $P1266."handle_types"(57)
- push_eh $P1266
+.sub "signature" :subid("78_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1281
+.annotate 'line', 464
+ .const 'Sub' $P1292 = "79_1275117616.72633"
+ capture_lex $P1292
+ new $P1280, 'ExceptionHandler'
+ set_addr $P1280, control_1279
+ $P1280."handle_types"(57)
+ push_eh $P1280
.lex "self", self
- .lex "$/", param_1267
-.annotate 'line', 456
- new $P1268, "Undef"
- .lex "$BLOCKINIT", $P1268
- get_global $P1269, "@BLOCK"
- unless_null $P1269, vivify_419
- $P1269 = root_new ['parrot';'ResizablePMCArray']
- vivify_419:
- set $P1270, $P1269[0]
- unless_null $P1270, vivify_420
- $P1270 = root_new ['parrot';'ResizablePMCArray']
- vivify_420:
- set $P1271, $P1270[0]
- unless_null $P1271, vivify_421
- new $P1271, "Undef"
- vivify_421:
- store_lex "$BLOCKINIT", $P1271
-.annotate 'line', 457
- find_lex $P1273, "$/"
- unless_null $P1273, vivify_422
- $P1273 = root_new ['parrot';'Hash']
+ .lex "$/", param_1281
+.annotate 'line', 465
+ new $P1282, "Undef"
+ .lex "$BLOCKINIT", $P1282
+ get_global $P1283, "@BLOCK"
+ unless_null $P1283, vivify_422
+ $P1283 = root_new ['parrot';'ResizablePMCArray']
vivify_422:
- set $P1274, $P1273["parameter"]
- unless_null $P1274, vivify_423
- new $P1274, "Undef"
+ set $P1284, $P1283[0]
+ unless_null $P1284, vivify_423
+ $P1284 = root_new ['parrot';'ResizablePMCArray']
vivify_423:
- defined $I1275, $P1274
- unless $I1275, for_undef_424
- iter $P1272, $P1274
- new $P1285, 'ExceptionHandler'
- set_addr $P1285, loop1284_handler
- $P1285."handle_types"(64, 66, 65)
- push_eh $P1285
- loop1284_test:
- unless $P1272, loop1284_done
- shift $P1276, $P1272
- loop1284_redo:
- .const 'Sub' $P1278 = "78_1274564782.90592"
- capture_lex $P1278
- $P1278($P1276)
- loop1284_next:
- goto loop1284_test
- loop1284_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P1286, exception, 'type'
- eq $P1286, 64, loop1284_next
- eq $P1286, 66, loop1284_redo
- loop1284_done:
+ set $P1285, $P1284[0]
+ unless_null $P1285, vivify_424
+ new $P1285, "Undef"
+ vivify_424:
+ store_lex "$BLOCKINIT", $P1285
+.annotate 'line', 466
+ find_lex $P1287, "$/"
+ unless_null $P1287, vivify_425
+ $P1287 = root_new ['parrot';'Hash']
+ vivify_425:
+ set $P1288, $P1287["parameter"]
+ unless_null $P1288, vivify_426
+ new $P1288, "Undef"
+ vivify_426:
+ defined $I1289, $P1288
+ unless $I1289, for_undef_427
+ iter $P1286, $P1288
+ new $P1299, 'ExceptionHandler'
+ set_addr $P1299, loop1298_handler
+ $P1299."handle_types"(64, 66, 65)
+ push_eh $P1299
+ loop1298_test:
+ unless $P1286, loop1298_done
+ shift $P1290, $P1286
+ loop1298_redo:
+ .const 'Sub' $P1292 = "79_1275117616.72633"
+ capture_lex $P1292
+ $P1292($P1290)
+ loop1298_next:
+ goto loop1298_test
+ loop1298_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1300, exception, 'type'
+ eq $P1300, 64, loop1298_next
+ eq $P1300, 66, loop1298_redo
+ loop1298_done:
pop_eh
- for_undef_424:
-.annotate 'line', 455
- .return ($P1272)
- control_1265:
+ for_undef_427:
+.annotate 'line', 464
+ .return ($P1286)
+ control_1279:
.local pmc exception
.get_results (exception)
- getattribute $P1287, exception, "payload"
- .return ($P1287)
+ getattribute $P1301, exception, "payload"
+ .return ($P1301)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1277" :anon :subid("78_1274564782.90592") :outer("77_1274564782.90592")
- .param pmc param_1279
-.annotate 'line', 457
- .lex "$_", param_1279
- find_lex $P1280, "$BLOCKINIT"
- find_lex $P1281, "$_"
- $P1282 = $P1281."ast"()
- $P1283 = $P1280."push"($P1282)
- .return ($P1283)
+.sub "_block1291" :anon :subid("79_1275117616.72633") :outer("78_1275117616.72633")
+ .param pmc param_1293
+.annotate 'line', 466
+ .lex "$_", param_1293
+ find_lex $P1294, "$BLOCKINIT"
+ find_lex $P1295, "$_"
+ $P1296 = $P1295."ast"()
+ $P1297 = $P1294."push"($P1296)
+ .return ($P1297)
.end
.namespace ["NQP";"Actions"]
-.sub "parameter" :subid("79_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1291
-.annotate 'line', 460
- new $P1290, 'ExceptionHandler'
- set_addr $P1290, control_1289
- $P1290."handle_types"(57)
- push_eh $P1290
+.sub "parameter" :subid("80_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1305
+.annotate 'line', 469
+ new $P1304, 'ExceptionHandler'
+ set_addr $P1304, control_1303
+ $P1304."handle_types"(57)
+ push_eh $P1304
.lex "self", self
- .lex "$/", param_1291
-.annotate 'line', 461
- new $P1292, "Undef"
- .lex "$quant", $P1292
-.annotate 'line', 462
- new $P1293, "Undef"
- .lex "$past", $P1293
-.annotate 'line', 461
- find_lex $P1294, "$/"
- unless_null $P1294, vivify_425
- $P1294 = root_new ['parrot';'Hash']
- vivify_425:
- set $P1295, $P1294["quant"]
- unless_null $P1295, vivify_426
- new $P1295, "Undef"
- vivify_426:
- store_lex "$quant", $P1295
- find_lex $P1296, "$past"
-.annotate 'line', 463
- find_lex $P1298, "$/"
- unless_null $P1298, vivify_427
- $P1298 = root_new ['parrot';'Hash']
- vivify_427:
- set $P1299, $P1298["named_param"]
- unless_null $P1299, vivify_428
- new $P1299, "Undef"
- vivify_428:
- if $P1299, if_1297
+ .lex "$/", param_1305
+.annotate 'line', 470
+ new $P1306, "Undef"
+ .lex "$quant", $P1306
+.annotate 'line', 471
+ new $P1307, "Undef"
+ .lex "$past", $P1307
.annotate 'line', 470
- find_lex $P1313, "$/"
- unless_null $P1313, vivify_429
- $P1313 = root_new ['parrot';'Hash']
+ find_lex $P1308, "$/"
+ unless_null $P1308, vivify_428
+ $P1308 = root_new ['parrot';'Hash']
+ vivify_428:
+ set $P1309, $P1308["quant"]
+ unless_null $P1309, vivify_429
+ new $P1309, "Undef"
vivify_429:
- set $P1314, $P1313["param_var"]
- unless_null $P1314, vivify_430
- new $P1314, "Undef"
+ store_lex "$quant", $P1309
+ find_lex $P1310, "$past"
+.annotate 'line', 472
+ find_lex $P1312, "$/"
+ unless_null $P1312, vivify_430
+ $P1312 = root_new ['parrot';'Hash']
vivify_430:
- $P1315 = $P1314."ast"()
- store_lex "$past", $P1315
-.annotate 'line', 471
- find_lex $P1317, "$quant"
- set $S1318, $P1317
- iseq $I1319, $S1318, "*"
- if $I1319, if_1316
-.annotate 'line', 475
- find_lex $P1328, "$quant"
- set $S1329, $P1328
- iseq $I1330, $S1329, "?"
- unless $I1330, if_1327_end
-.annotate 'line', 476
- find_lex $P1331, "$past"
- find_lex $P1332, "$/"
- unless_null $P1332, vivify_431
- $P1332 = root_new ['parrot';'Hash']
+ set $P1313, $P1312["named_param"]
+ unless_null $P1313, vivify_431
+ new $P1313, "Undef"
vivify_431:
- set $P1333, $P1332["param_var"]
- unless_null $P1333, vivify_432
- $P1333 = root_new ['parrot';'Hash']
+ if $P1313, if_1311
+.annotate 'line', 479
+ find_lex $P1327, "$/"
+ unless_null $P1327, vivify_432
+ $P1327 = root_new ['parrot';'Hash']
vivify_432:
- set $P1334, $P1333["sigil"]
- unless_null $P1334, vivify_433
- new $P1334, "Undef"
+ set $P1328, $P1327["param_var"]
+ unless_null $P1328, vivify_433
+ new $P1328, "Undef"
vivify_433:
- $P1335 = "vivitype"($P1334)
- $P1331."viviself"($P1335)
- if_1327_end:
-.annotate 'line', 475
- goto if_1316_end
- if_1316:
-.annotate 'line', 472
- find_lex $P1320, "$past"
- $P1320."slurpy"(1)
-.annotate 'line', 473
- find_lex $P1321, "$past"
- find_lex $P1322, "$/"
- unless_null $P1322, vivify_434
- $P1322 = root_new ['parrot';'Hash']
+ $P1329 = $P1328."ast"()
+ store_lex "$past", $P1329
+.annotate 'line', 480
+ find_lex $P1331, "$quant"
+ set $S1332, $P1331
+ iseq $I1333, $S1332, "*"
+ if $I1333, if_1330
+.annotate 'line', 484
+ find_lex $P1342, "$quant"
+ set $S1343, $P1342
+ iseq $I1344, $S1343, "?"
+ unless $I1344, if_1341_end
+.annotate 'line', 485
+ find_lex $P1345, "$past"
+ find_lex $P1346, "$/"
+ unless_null $P1346, vivify_434
+ $P1346 = root_new ['parrot';'Hash']
vivify_434:
- set $P1323, $P1322["param_var"]
- unless_null $P1323, vivify_435
- $P1323 = root_new ['parrot';'Hash']
+ set $P1347, $P1346["param_var"]
+ unless_null $P1347, vivify_435
+ $P1347 = root_new ['parrot';'Hash']
vivify_435:
- set $P1324, $P1323["sigil"]
- unless_null $P1324, vivify_436
- new $P1324, "Undef"
+ set $P1348, $P1347["sigil"]
+ unless_null $P1348, vivify_436
+ new $P1348, "Undef"
vivify_436:
- set $S1325, $P1324
- iseq $I1326, $S1325, "%"
- $P1321."named"($I1326)
- if_1316_end:
-.annotate 'line', 469
- goto if_1297_end
- if_1297:
-.annotate 'line', 464
- find_lex $P1300, "$/"
- unless_null $P1300, vivify_437
- $P1300 = root_new ['parrot';'Hash']
+ $P1349 = "vivitype"($P1348)
+ $P1345."viviself"($P1349)
+ if_1341_end:
+.annotate 'line', 484
+ goto if_1330_end
+ if_1330:
+.annotate 'line', 481
+ find_lex $P1334, "$past"
+ $P1334."slurpy"(1)
+.annotate 'line', 482
+ find_lex $P1335, "$past"
+ find_lex $P1336, "$/"
+ unless_null $P1336, vivify_437
+ $P1336 = root_new ['parrot';'Hash']
vivify_437:
- set $P1301, $P1300["named_param"]
- unless_null $P1301, vivify_438
- new $P1301, "Undef"
+ set $P1337, $P1336["param_var"]
+ unless_null $P1337, vivify_438
+ $P1337 = root_new ['parrot';'Hash']
vivify_438:
- $P1302 = $P1301."ast"()
- store_lex "$past", $P1302
-.annotate 'line', 465
- find_lex $P1304, "$quant"
- set $S1305, $P1304
- isne $I1306, $S1305, "!"
- unless $I1306, if_1303_end
-.annotate 'line', 466
- find_lex $P1307, "$past"
- find_lex $P1308, "$/"
- unless_null $P1308, vivify_439
- $P1308 = root_new ['parrot';'Hash']
+ set $P1338, $P1337["sigil"]
+ unless_null $P1338, vivify_439
+ new $P1338, "Undef"
vivify_439:
- set $P1309, $P1308["named_param"]
- unless_null $P1309, vivify_440
- $P1309 = root_new ['parrot';'Hash']
+ set $S1339, $P1338
+ iseq $I1340, $S1339, "%"
+ $P1335."named"($I1340)
+ if_1330_end:
+.annotate 'line', 478
+ goto if_1311_end
+ if_1311:
+.annotate 'line', 473
+ find_lex $P1314, "$/"
+ unless_null $P1314, vivify_440
+ $P1314 = root_new ['parrot';'Hash']
vivify_440:
- set $P1310, $P1309["param_var"]
- unless_null $P1310, vivify_441
- $P1310 = root_new ['parrot';'Hash']
+ set $P1315, $P1314["named_param"]
+ unless_null $P1315, vivify_441
+ new $P1315, "Undef"
vivify_441:
- set $P1311, $P1310["sigil"]
- unless_null $P1311, vivify_442
- new $P1311, "Undef"
+ $P1316 = $P1315."ast"()
+ store_lex "$past", $P1316
+.annotate 'line', 474
+ find_lex $P1318, "$quant"
+ set $S1319, $P1318
+ isne $I1320, $S1319, "!"
+ unless $I1320, if_1317_end
+.annotate 'line', 475
+ find_lex $P1321, "$past"
+ find_lex $P1322, "$/"
+ unless_null $P1322, vivify_442
+ $P1322 = root_new ['parrot';'Hash']
vivify_442:
- $P1312 = "vivitype"($P1311)
- $P1307."viviself"($P1312)
- if_1303_end:
- if_1297_end:
-.annotate 'line', 479
- find_lex $P1337, "$/"
- unless_null $P1337, vivify_443
- $P1337 = root_new ['parrot';'Hash']
+ set $P1323, $P1322["named_param"]
+ unless_null $P1323, vivify_443
+ $P1323 = root_new ['parrot';'Hash']
vivify_443:
- set $P1338, $P1337["default_value"]
- unless_null $P1338, vivify_444
- new $P1338, "Undef"
+ set $P1324, $P1323["param_var"]
+ unless_null $P1324, vivify_444
+ $P1324 = root_new ['parrot';'Hash']
vivify_444:
- unless $P1338, if_1336_end
-.annotate 'line', 480
- find_lex $P1340, "$quant"
- set $S1341, $P1340
- iseq $I1342, $S1341, "*"
- unless $I1342, if_1339_end
-.annotate 'line', 481
- find_lex $P1343, "$/"
- $P1344 = $P1343."CURSOR"()
- $P1344."panic"("Can't put default on slurpy parameter")
- if_1339_end:
-.annotate 'line', 483
- find_lex $P1346, "$quant"
- set $S1347, $P1346
- iseq $I1348, $S1347, "!"
- unless $I1348, if_1345_end
-.annotate 'line', 484
- find_lex $P1349, "$/"
- $P1350 = $P1349."CURSOR"()
- $P1350."panic"("Can't put default on required parameter")
- if_1345_end:
-.annotate 'line', 486
- find_lex $P1351, "$past"
- find_lex $P1352, "$/"
- unless_null $P1352, vivify_445
- $P1352 = root_new ['parrot';'Hash']
+ set $P1325, $P1324["sigil"]
+ unless_null $P1325, vivify_445
+ new $P1325, "Undef"
vivify_445:
- set $P1353, $P1352["default_value"]
- unless_null $P1353, vivify_446
- $P1353 = root_new ['parrot';'ResizablePMCArray']
+ $P1326 = "vivitype"($P1325)
+ $P1321."viviself"($P1326)
+ if_1317_end:
+ if_1311_end:
+.annotate 'line', 488
+ find_lex $P1351, "$/"
+ unless_null $P1351, vivify_446
+ $P1351 = root_new ['parrot';'Hash']
vivify_446:
- set $P1354, $P1353[0]
- unless_null $P1354, vivify_447
- $P1354 = root_new ['parrot';'Hash']
+ set $P1352, $P1351["default_value"]
+ unless_null $P1352, vivify_447
+ new $P1352, "Undef"
vivify_447:
- set $P1355, $P1354["EXPR"]
- unless_null $P1355, vivify_448
- new $P1355, "Undef"
+ unless $P1352, if_1350_end
+.annotate 'line', 489
+ find_lex $P1354, "$quant"
+ set $S1355, $P1354
+ iseq $I1356, $S1355, "*"
+ unless $I1356, if_1353_end
+.annotate 'line', 490
+ find_lex $P1357, "$/"
+ $P1358 = $P1357."CURSOR"()
+ $P1358."panic"("Can't put default on slurpy parameter")
+ if_1353_end:
+.annotate 'line', 492
+ find_lex $P1360, "$quant"
+ set $S1361, $P1360
+ iseq $I1362, $S1361, "!"
+ unless $I1362, if_1359_end
+.annotate 'line', 493
+ find_lex $P1363, "$/"
+ $P1364 = $P1363."CURSOR"()
+ $P1364."panic"("Can't put default on required parameter")
+ if_1359_end:
+.annotate 'line', 495
+ find_lex $P1365, "$past"
+ find_lex $P1366, "$/"
+ unless_null $P1366, vivify_448
+ $P1366 = root_new ['parrot';'Hash']
vivify_448:
- $P1356 = $P1355."ast"()
- $P1351."viviself"($P1356)
- if_1336_end:
-.annotate 'line', 488
- find_lex $P1358, "$past"
- $P1359 = $P1358."viviself"()
- if $P1359, unless_1357_end
- get_global $P1360, "@BLOCK"
- unless_null $P1360, vivify_449
- $P1360 = root_new ['parrot';'ResizablePMCArray']
+ set $P1367, $P1366["default_value"]
+ unless_null $P1367, vivify_449
+ $P1367 = root_new ['parrot';'ResizablePMCArray']
vivify_449:
- set $P1361, $P1360[0]
- unless_null $P1361, vivify_450
- new $P1361, "Undef"
+ set $P1368, $P1367[0]
+ unless_null $P1368, vivify_450
+ $P1368 = root_new ['parrot';'Hash']
vivify_450:
- get_global $P1362, "@BLOCK"
- unless_null $P1362, vivify_451
- $P1362 = root_new ['parrot';'ResizablePMCArray']
+ set $P1369, $P1368["EXPR"]
+ unless_null $P1369, vivify_451
+ new $P1369, "Undef"
vivify_451:
- set $P1363, $P1362[0]
- unless_null $P1363, vivify_452
- new $P1363, "Undef"
+ $P1370 = $P1369."ast"()
+ $P1365."viviself"($P1370)
+ if_1350_end:
+.annotate 'line', 497
+ find_lex $P1372, "$past"
+ $P1373 = $P1372."viviself"()
+ if $P1373, unless_1371_end
+ get_global $P1374, "@BLOCK"
+ unless_null $P1374, vivify_452
+ $P1374 = root_new ['parrot';'ResizablePMCArray']
vivify_452:
- $P1364 = $P1363."arity"()
- set $N1365, $P1364
- new $P1366, 'Float'
- set $P1366, $N1365
- add $P1367, $P1366, 1
- $P1361."arity"($P1367)
- unless_1357_end:
-.annotate 'line', 489
- find_lex $P1368, "$/"
- find_lex $P1369, "$past"
- $P1370 = $P1368."!make"($P1369)
-.annotate 'line', 460
- .return ($P1370)
- control_1289:
- .local pmc exception
- .get_results (exception)
- getattribute $P1371, exception, "payload"
- .return ($P1371)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "param_var" :subid("80_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1375
-.annotate 'line', 492
- new $P1374, 'ExceptionHandler'
- set_addr $P1374, control_1373
- $P1374."handle_types"(57)
- push_eh $P1374
- .lex "self", self
- .lex "$/", param_1375
-.annotate 'line', 493
- new $P1376, "Undef"
- .lex "$name", $P1376
-.annotate 'line', 494
- new $P1377, "Undef"
- .lex "$past", $P1377
-.annotate 'line', 493
- find_lex $P1378, "$/"
- set $S1379, $P1378
- new $P1380, 'String'
- set $P1380, $S1379
- store_lex "$name", $P1380
-.annotate 'line', 494
- get_hll_global $P1381, ["PAST"], "Var"
- find_lex $P1382, "$name"
- find_lex $P1383, "$/"
- $P1384 = $P1381."new"($P1382 :named("name"), "parameter" :named("scope"), 1 :named("isdecl"), $P1383 :named("node"))
- store_lex "$past", $P1384
-.annotate 'line', 496
- get_global $P1385, "@BLOCK"
- unless_null $P1385, vivify_453
- $P1385 = root_new ['parrot';'ResizablePMCArray']
+ set $P1375, $P1374[0]
+ unless_null $P1375, vivify_453
+ new $P1375, "Undef"
vivify_453:
- set $P1386, $P1385[0]
- unless_null $P1386, vivify_454
- new $P1386, "Undef"
+ get_global $P1376, "@BLOCK"
+ unless_null $P1376, vivify_454
+ $P1376 = root_new ['parrot';'ResizablePMCArray']
vivify_454:
- find_lex $P1387, "$name"
- $P1386."symbol"($P1387, "lexical" :named("scope"))
-.annotate 'line', 497
- find_lex $P1388, "$/"
- find_lex $P1389, "$past"
- $P1390 = $P1388."!make"($P1389)
-.annotate 'line', 492
- .return ($P1390)
- control_1373:
+ set $P1377, $P1376[0]
+ unless_null $P1377, vivify_455
+ new $P1377, "Undef"
+ vivify_455:
+ $P1378 = $P1377."arity"()
+ set $N1379, $P1378
+ new $P1380, 'Float'
+ set $P1380, $N1379
+ add $P1381, $P1380, 1
+ $P1375."arity"($P1381)
+ unless_1371_end:
+.annotate 'line', 498
+ find_lex $P1382, "$/"
+ find_lex $P1383, "$past"
+ $P1384 = $P1382."!make"($P1383)
+.annotate 'line', 469
+ .return ($P1384)
+ control_1303:
.local pmc exception
.get_results (exception)
- getattribute $P1391, exception, "payload"
- .return ($P1391)
+ getattribute $P1385, exception, "payload"
+ .return ($P1385)
.end
.namespace ["NQP";"Actions"]
-.sub "named_param" :subid("81_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1395
-.annotate 'line', 500
- new $P1394, 'ExceptionHandler'
- set_addr $P1394, control_1393
- $P1394."handle_types"(57)
- push_eh $P1394
- .lex "self", self
- .lex "$/", param_1395
+.sub "param_var" :subid("81_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1389
.annotate 'line', 501
- new $P1396, "Undef"
- .lex "$past", $P1396
+ new $P1388, 'ExceptionHandler'
+ set_addr $P1388, control_1387
+ $P1388."handle_types"(57)
+ push_eh $P1388
+ .lex "self", self
+ .lex "$/", param_1389
+.annotate 'line', 502
+ new $P1390, "Undef"
+ .lex "$name", $P1390
+.annotate 'line', 503
+ new $P1391, "Undef"
+ .lex "$past", $P1391
+.annotate 'line', 502
+ find_lex $P1392, "$/"
+ set $S1393, $P1392
+ new $P1394, 'String'
+ set $P1394, $S1393
+ store_lex "$name", $P1394
+.annotate 'line', 503
+ get_hll_global $P1395, ["PAST"], "Var"
+ find_lex $P1396, "$name"
find_lex $P1397, "$/"
- unless_null $P1397, vivify_455
- $P1397 = root_new ['parrot';'Hash']
- vivify_455:
- set $P1398, $P1397["param_var"]
- unless_null $P1398, vivify_456
- new $P1398, "Undef"
+ $P1398 = $P1395."new"($P1396 :named("name"), "parameter" :named("scope"), 1 :named("isdecl"), $P1397 :named("node"))
+ store_lex "$past", $P1398
+.annotate 'line', 505
+ get_global $P1399, "@BLOCK"
+ unless_null $P1399, vivify_456
+ $P1399 = root_new ['parrot';'ResizablePMCArray']
vivify_456:
- $P1399 = $P1398."ast"()
- store_lex "$past", $P1399
-.annotate 'line', 502
- find_lex $P1400, "$past"
- find_lex $P1401, "$/"
- unless_null $P1401, vivify_457
- $P1401 = root_new ['parrot';'Hash']
+ set $P1400, $P1399[0]
+ unless_null $P1400, vivify_457
+ new $P1400, "Undef"
vivify_457:
- set $P1402, $P1401["param_var"]
- unless_null $P1402, vivify_458
- $P1402 = root_new ['parrot';'Hash']
- vivify_458:
- set $P1403, $P1402["name"]
- unless_null $P1403, vivify_459
- new $P1403, "Undef"
- vivify_459:
- set $S1404, $P1403
- $P1400."named"($S1404)
-.annotate 'line', 503
- find_lex $P1405, "$/"
- find_lex $P1406, "$past"
- $P1407 = $P1405."!make"($P1406)
-.annotate 'line', 500
- .return ($P1407)
- control_1393:
+ find_lex $P1401, "$name"
+ $P1400."symbol"($P1401, "lexical" :named("scope"))
+.annotate 'line', 506
+ find_lex $P1402, "$/"
+ find_lex $P1403, "$past"
+ $P1404 = $P1402."!make"($P1403)
+.annotate 'line', 501
+ .return ($P1404)
+ control_1387:
.local pmc exception
.get_results (exception)
- getattribute $P1408, exception, "payload"
- .return ($P1408)
+ getattribute $P1405, exception, "payload"
+ .return ($P1405)
.end
.namespace ["NQP";"Actions"]
-.sub "regex_declarator" :subid("82_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1412
- .param pmc param_1413 :optional
- .param int has_param_1413 :opt_flag
-.annotate 'line', 506
- .const 'Sub' $P1483 = "84_1274564782.90592"
- capture_lex $P1483
- .const 'Sub' $P1455 = "83_1274564782.90592"
- capture_lex $P1455
- new $P1411, 'ExceptionHandler'
- set_addr $P1411, control_1410
- $P1411."handle_types"(57)
- push_eh $P1411
- .lex "self", self
- .lex "$/", param_1412
- if has_param_1413, optparam_460
- new $P1414, "Undef"
- set param_1413, $P1414
- optparam_460:
- .lex "$key", param_1413
-.annotate 'line', 507
- $P1415 = root_new ['parrot';'ResizablePMCArray']
- .lex "@MODIFIERS", $P1415
+.sub "named_param" :subid("82_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1409
+.annotate 'line', 509
+ new $P1408, 'ExceptionHandler'
+ set_addr $P1408, control_1407
+ $P1408."handle_types"(57)
+ push_eh $P1408
+ .lex "self", self
+ .lex "$/", param_1409
.annotate 'line', 510
- new $P1416, "Undef"
- .lex "$name", $P1416
+ new $P1410, "Undef"
+ .lex "$past", $P1410
+ find_lex $P1411, "$/"
+ unless_null $P1411, vivify_458
+ $P1411 = root_new ['parrot';'Hash']
+ vivify_458:
+ set $P1412, $P1411["param_var"]
+ unless_null $P1412, vivify_459
+ new $P1412, "Undef"
+ vivify_459:
+ $P1413 = $P1412."ast"()
+ store_lex "$past", $P1413
.annotate 'line', 511
- new $P1417, "Undef"
- .lex "$past", $P1417
-.annotate 'line', 507
-
- $P1418 = get_hll_global ['Regex';'P6Regex';'Actions'], '@MODIFIERS'
-
- store_lex "@MODIFIERS", $P1418
-.annotate 'line', 510
- find_lex $P1419, "$/"
- unless_null $P1419, vivify_461
- $P1419 = root_new ['parrot';'Hash']
+ find_lex $P1414, "$past"
+ find_lex $P1415, "$/"
+ unless_null $P1415, vivify_460
+ $P1415 = root_new ['parrot';'Hash']
+ vivify_460:
+ set $P1416, $P1415["param_var"]
+ unless_null $P1416, vivify_461
+ $P1416 = root_new ['parrot';'Hash']
vivify_461:
- set $P1420, $P1419["deflongname"]
- unless_null $P1420, vivify_462
- new $P1420, "Undef"
+ set $P1417, $P1416["name"]
+ unless_null $P1417, vivify_462
+ new $P1417, "Undef"
vivify_462:
- $P1421 = $P1420."ast"()
- set $S1422, $P1421
- new $P1423, 'String'
- set $P1423, $S1422
- store_lex "$name", $P1423
- find_lex $P1424, "$past"
+ set $S1418, $P1417
+ $P1414."named"($S1418)
.annotate 'line', 512
- find_lex $P1426, "$/"
- unless_null $P1426, vivify_463
- $P1426 = root_new ['parrot';'Hash']
- vivify_463:
- set $P1427, $P1426["proto"]
- unless_null $P1427, vivify_464
- new $P1427, "Undef"
- vivify_464:
- if $P1427, if_1425
-.annotate 'line', 539
- find_lex $P1451, "$key"
- set $S1452, $P1451
- iseq $I1453, $S1452, "open"
- if $I1453, if_1450
-.annotate 'line', 552
- .const 'Sub' $P1483 = "84_1274564782.90592"
- capture_lex $P1483
- $P1483()
- goto if_1450_end
- if_1450:
-.annotate 'line', 539
- .const 'Sub' $P1455 = "83_1274564782.90592"
- capture_lex $P1455
- $P1455()
- if_1450_end:
- goto if_1425_end
- if_1425:
-.annotate 'line', 514
- get_hll_global $P1428, ["PAST"], "Stmts"
-.annotate 'line', 515
- get_hll_global $P1429, ["PAST"], "Block"
- find_lex $P1430, "$name"
-.annotate 'line', 516
- get_hll_global $P1431, ["PAST"], "Op"
-.annotate 'line', 517
- get_hll_global $P1432, ["PAST"], "Var"
- $P1433 = $P1432."new"("self" :named("name"), "register" :named("scope"))
- find_lex $P1434, "$name"
- $P1435 = $P1431."new"($P1433, $P1434, "!protoregex" :named("name"), "callmethod" :named("pasttype"))
-.annotate 'line', 516
- find_lex $P1436, "$/"
- $P1437 = $P1429."new"($P1435, $P1430 :named("name"), "method" :named("blocktype"), 0 :named("lexical"), $P1436 :named("node"))
-.annotate 'line', 526
- get_hll_global $P1438, ["PAST"], "Block"
- new $P1439, "String"
- assign $P1439, "!PREFIX__"
- find_lex $P1440, "$name"
- concat $P1441, $P1439, $P1440
-.annotate 'line', 527
- get_hll_global $P1442, ["PAST"], "Op"
-.annotate 'line', 528
- get_hll_global $P1443, ["PAST"], "Var"
- $P1444 = $P1443."new"("self" :named("name"), "register" :named("scope"))
- find_lex $P1445, "$name"
- $P1446 = $P1442."new"($P1444, $P1445, "!PREFIX__!protoregex" :named("name"), "callmethod" :named("pasttype"))
-.annotate 'line', 527
- find_lex $P1447, "$/"
- $P1448 = $P1438."new"($P1446, $P1441 :named("name"), "method" :named("blocktype"), 0 :named("lexical"), $P1447 :named("node"))
-.annotate 'line', 526
- $P1449 = $P1428."new"($P1437, $P1448)
-.annotate 'line', 514
- store_lex "$past", $P1449
- if_1425_end:
-.annotate 'line', 566
- find_lex $P1504, "$/"
- find_lex $P1505, "$past"
- $P1506 = $P1504."!make"($P1505)
-.annotate 'line', 506
- .return ($P1506)
- control_1410:
+ find_lex $P1419, "$/"
+ find_lex $P1420, "$past"
+ $P1421 = $P1419."!make"($P1420)
+.annotate 'line', 509
+ .return ($P1421)
+ control_1407:
.local pmc exception
.get_results (exception)
- getattribute $P1507, exception, "payload"
- .return ($P1507)
+ getattribute $P1422, exception, "payload"
+ .return ($P1422)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1482" :anon :subid("84_1274564782.90592") :outer("82_1274564782.90592")
-.annotate 'line', 553
- new $P1484, "Undef"
- .lex "$regex", $P1484
-.annotate 'line', 554
- get_hll_global $P1485, ["Regex";"P6Regex";"Actions"], "buildsub"
- find_lex $P1486, "$/"
- unless_null $P1486, vivify_465
- $P1486 = root_new ['parrot';'Hash']
+.sub "regex_declarator" :subid("83_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1426
+ .param pmc param_1427 :optional
+ .param int has_param_1427 :opt_flag
+.annotate 'line', 515
+ .const 'Sub' $P1497 = "85_1275117616.72633"
+ capture_lex $P1497
+ .const 'Sub' $P1469 = "84_1275117616.72633"
+ capture_lex $P1469
+ new $P1425, 'ExceptionHandler'
+ set_addr $P1425, control_1424
+ $P1425."handle_types"(57)
+ push_eh $P1425
+ .lex "self", self
+ .lex "$/", param_1426
+ if has_param_1427, optparam_463
+ new $P1428, "Undef"
+ set param_1427, $P1428
+ optparam_463:
+ .lex "$key", param_1427
+.annotate 'line', 516
+ $P1429 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@MODIFIERS", $P1429
+.annotate 'line', 519
+ new $P1430, "Undef"
+ .lex "$name", $P1430
+.annotate 'line', 520
+ new $P1431, "Undef"
+ .lex "$past", $P1431
+.annotate 'line', 516
+
+ $P1432 = get_hll_global ['Regex';'P6Regex';'Actions'], '@MODIFIERS'
+
+ store_lex "@MODIFIERS", $P1432
+.annotate 'line', 519
+ find_lex $P1433, "$/"
+ unless_null $P1433, vivify_464
+ $P1433 = root_new ['parrot';'Hash']
+ vivify_464:
+ set $P1434, $P1433["deflongname"]
+ unless_null $P1434, vivify_465
+ new $P1434, "Undef"
vivify_465:
- set $P1487, $P1486["p6regex"]
- unless_null $P1487, vivify_466
- new $P1487, "Undef"
+ $P1435 = $P1434."ast"()
+ set $S1436, $P1435
+ new $P1437, 'String'
+ set $P1437, $S1436
+ store_lex "$name", $P1437
+ find_lex $P1438, "$past"
+.annotate 'line', 521
+ find_lex $P1440, "$/"
+ unless_null $P1440, vivify_466
+ $P1440 = root_new ['parrot';'Hash']
vivify_466:
- $P1488 = $P1487."ast"()
- get_global $P1489, "@BLOCK"
- $P1490 = $P1489."shift"()
- $P1491 = $P1485($P1488, $P1490)
- store_lex "$regex", $P1491
-.annotate 'line', 555
- find_lex $P1492, "$regex"
- find_lex $P1493, "$name"
- $P1492."name"($P1493)
-.annotate 'line', 557
- get_hll_global $P1494, ["PAST"], "Op"
-.annotate 'line', 559
- get_hll_global $P1495, ["PAST"], "Var"
- new $P1496, "ResizablePMCArray"
- push $P1496, "Regex"
- $P1497 = $P1495."new"("Method" :named("name"), $P1496 :named("namespace"), "package" :named("scope"))
- find_lex $P1498, "$regex"
- $P1499 = $P1494."new"($P1497, $P1498, "callmethod" :named("pasttype"), "new" :named("name"))
-.annotate 'line', 557
- store_lex "$past", $P1499
-.annotate 'line', 563
- find_lex $P1500, "$regex"
- find_lex $P1501, "$past"
- unless_null $P1501, vivify_467
- $P1501 = root_new ['parrot';'Hash']
- store_lex "$past", $P1501
+ set $P1441, $P1440["proto"]
+ unless_null $P1441, vivify_467
+ new $P1441, "Undef"
vivify_467:
- set $P1501["sink"], $P1500
-.annotate 'line', 564
- find_lex $P1502, "@MODIFIERS"
- $P1503 = $P1502."shift"()
-.annotate 'line', 552
- .return ($P1503)
+ if $P1441, if_1439
+.annotate 'line', 548
+ find_lex $P1465, "$key"
+ set $S1466, $P1465
+ iseq $I1467, $S1466, "open"
+ if $I1467, if_1464
+.annotate 'line', 561
+ .const 'Sub' $P1497 = "85_1275117616.72633"
+ capture_lex $P1497
+ $P1497()
+ goto if_1464_end
+ if_1464:
+.annotate 'line', 548
+ .const 'Sub' $P1469 = "84_1275117616.72633"
+ capture_lex $P1469
+ $P1469()
+ if_1464_end:
+ goto if_1439_end
+ if_1439:
+.annotate 'line', 523
+ get_hll_global $P1442, ["PAST"], "Stmts"
+.annotate 'line', 524
+ get_hll_global $P1443, ["PAST"], "Block"
+ find_lex $P1444, "$name"
+.annotate 'line', 525
+ get_hll_global $P1445, ["PAST"], "Op"
+.annotate 'line', 526
+ get_hll_global $P1446, ["PAST"], "Var"
+ $P1447 = $P1446."new"("self" :named("name"), "register" :named("scope"))
+ find_lex $P1448, "$name"
+ $P1449 = $P1445."new"($P1447, $P1448, "!protoregex" :named("name"), "callmethod" :named("pasttype"))
+.annotate 'line', 525
+ find_lex $P1450, "$/"
+ $P1451 = $P1443."new"($P1449, $P1444 :named("name"), "method" :named("blocktype"), 0 :named("lexical"), $P1450 :named("node"))
+.annotate 'line', 535
+ get_hll_global $P1452, ["PAST"], "Block"
+ new $P1453, "String"
+ assign $P1453, "!PREFIX__"
+ find_lex $P1454, "$name"
+ concat $P1455, $P1453, $P1454
+.annotate 'line', 536
+ get_hll_global $P1456, ["PAST"], "Op"
+.annotate 'line', 537
+ get_hll_global $P1457, ["PAST"], "Var"
+ $P1458 = $P1457."new"("self" :named("name"), "register" :named("scope"))
+ find_lex $P1459, "$name"
+ $P1460 = $P1456."new"($P1458, $P1459, "!PREFIX__!protoregex" :named("name"), "callmethod" :named("pasttype"))
+.annotate 'line', 536
+ find_lex $P1461, "$/"
+ $P1462 = $P1452."new"($P1460, $P1455 :named("name"), "method" :named("blocktype"), 0 :named("lexical"), $P1461 :named("node"))
+.annotate 'line', 535
+ $P1463 = $P1442."new"($P1451, $P1462)
+.annotate 'line', 523
+ store_lex "$past", $P1463
+ if_1439_end:
+.annotate 'line', 575
+ find_lex $P1518, "$/"
+ find_lex $P1519, "$past"
+ $P1520 = $P1518."!make"($P1519)
+.annotate 'line', 515
+ .return ($P1520)
+ control_1424:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1521, exception, "payload"
+ .return ($P1521)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1454" :anon :subid("83_1274564782.90592") :outer("82_1274564782.90592")
-.annotate 'line', 540
- $P1456 = root_new ['parrot';'Hash']
- .lex "%h", $P1456
-.annotate 'line', 539
- find_lex $P1457, "%h"
-.annotate 'line', 541
- find_lex $P1459, "$/"
- unless_null $P1459, vivify_468
- $P1459 = root_new ['parrot';'Hash']
+.sub "_block1496" :anon :subid("85_1275117616.72633") :outer("83_1275117616.72633")
+.annotate 'line', 562
+ new $P1498, "Undef"
+ .lex "$regex", $P1498
+.annotate 'line', 563
+ get_hll_global $P1499, ["Regex";"P6Regex";"Actions"], "buildsub"
+ find_lex $P1500, "$/"
+ unless_null $P1500, vivify_468
+ $P1500 = root_new ['parrot';'Hash']
vivify_468:
- set $P1460, $P1459["sym"]
- unless_null $P1460, vivify_469
- new $P1460, "Undef"
+ set $P1501, $P1500["p6regex"]
+ unless_null $P1501, vivify_469
+ new $P1501, "Undef"
vivify_469:
- set $S1461, $P1460
- iseq $I1462, $S1461, "token"
- unless $I1462, if_1458_end
- new $P1463, "Integer"
- assign $P1463, 1
- find_lex $P1464, "%h"
- unless_null $P1464, vivify_470
- $P1464 = root_new ['parrot';'Hash']
- store_lex "%h", $P1464
+ $P1502 = $P1501."ast"()
+ get_global $P1503, "@BLOCK"
+ $P1504 = $P1503."shift"()
+ $P1505 = $P1499($P1502, $P1504)
+ store_lex "$regex", $P1505
+.annotate 'line', 564
+ find_lex $P1506, "$regex"
+ find_lex $P1507, "$name"
+ $P1506."name"($P1507)
+.annotate 'line', 566
+ get_hll_global $P1508, ["PAST"], "Op"
+.annotate 'line', 568
+ get_hll_global $P1509, ["PAST"], "Var"
+ new $P1510, "ResizablePMCArray"
+ push $P1510, "Regex"
+ $P1511 = $P1509."new"("Method" :named("name"), $P1510 :named("namespace"), "package" :named("scope"))
+ find_lex $P1512, "$regex"
+ $P1513 = $P1508."new"($P1511, $P1512, "callmethod" :named("pasttype"), "new" :named("name"))
+.annotate 'line', 566
+ store_lex "$past", $P1513
+.annotate 'line', 572
+ find_lex $P1514, "$regex"
+ find_lex $P1515, "$past"
+ unless_null $P1515, vivify_470
+ $P1515 = root_new ['parrot';'Hash']
+ store_lex "$past", $P1515
vivify_470:
- set $P1464["r"], $P1463
- if_1458_end:
-.annotate 'line', 542
- find_lex $P1466, "$/"
- unless_null $P1466, vivify_471
- $P1466 = root_new ['parrot';'Hash']
+ set $P1515["sink"], $P1514
+.annotate 'line', 573
+ find_lex $P1516, "@MODIFIERS"
+ $P1517 = $P1516."shift"()
+.annotate 'line', 561
+ .return ($P1517)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "_block1468" :anon :subid("84_1275117616.72633") :outer("83_1275117616.72633")
+.annotate 'line', 549
+ $P1470 = root_new ['parrot';'Hash']
+ .lex "%h", $P1470
+.annotate 'line', 548
+ find_lex $P1471, "%h"
+.annotate 'line', 550
+ find_lex $P1473, "$/"
+ unless_null $P1473, vivify_471
+ $P1473 = root_new ['parrot';'Hash']
vivify_471:
- set $P1467, $P1466["sym"]
- unless_null $P1467, vivify_472
- new $P1467, "Undef"
+ set $P1474, $P1473["sym"]
+ unless_null $P1474, vivify_472
+ new $P1474, "Undef"
vivify_472:
- set $S1468, $P1467
- iseq $I1469, $S1468, "rule"
- unless $I1469, if_1465_end
- new $P1470, "Integer"
- assign $P1470, 1
- find_lex $P1471, "%h"
- unless_null $P1471, vivify_473
- $P1471 = root_new ['parrot';'Hash']
- store_lex "%h", $P1471
+ set $S1475, $P1474
+ iseq $I1476, $S1475, "token"
+ unless $I1476, if_1472_end
+ new $P1477, "Integer"
+ assign $P1477, 1
+ find_lex $P1478, "%h"
+ unless_null $P1478, vivify_473
+ $P1478 = root_new ['parrot';'Hash']
+ store_lex "%h", $P1478
vivify_473:
- set $P1471["r"], $P1470
- new $P1472, "Integer"
- assign $P1472, 1
- find_lex $P1473, "%h"
- unless_null $P1473, vivify_474
- $P1473 = root_new ['parrot';'Hash']
- store_lex "%h", $P1473
+ set $P1478["r"], $P1477
+ if_1472_end:
+.annotate 'line', 551
+ find_lex $P1480, "$/"
+ unless_null $P1480, vivify_474
+ $P1480 = root_new ['parrot';'Hash']
vivify_474:
- set $P1473["s"], $P1472
- if_1465_end:
-.annotate 'line', 543
- find_lex $P1474, "@MODIFIERS"
- find_lex $P1475, "%h"
- $P1474."unshift"($P1475)
-.annotate 'line', 544
+ set $P1481, $P1480["sym"]
+ unless_null $P1481, vivify_475
+ new $P1481, "Undef"
+ vivify_475:
+ set $S1482, $P1481
+ iseq $I1483, $S1482, "rule"
+ unless $I1483, if_1479_end
+ new $P1484, "Integer"
+ assign $P1484, 1
+ find_lex $P1485, "%h"
+ unless_null $P1485, vivify_476
+ $P1485 = root_new ['parrot';'Hash']
+ store_lex "%h", $P1485
+ vivify_476:
+ set $P1485["r"], $P1484
+ new $P1486, "Integer"
+ assign $P1486, 1
+ find_lex $P1487, "%h"
+ unless_null $P1487, vivify_477
+ $P1487 = root_new ['parrot';'Hash']
+ store_lex "%h", $P1487
+ vivify_477:
+ set $P1487["s"], $P1486
+ if_1479_end:
+.annotate 'line', 552
+ find_lex $P1488, "@MODIFIERS"
+ find_lex $P1489, "%h"
+ $P1488."unshift"($P1489)
+.annotate 'line', 553
$P0 = find_lex '$name'
set_hll_global ['Regex';'P6Regex';'Actions'], '$REGEXNAME', $P0
-.annotate 'line', 548
- get_global $P1476, "@BLOCK"
- unless_null $P1476, vivify_475
- $P1476 = root_new ['parrot';'ResizablePMCArray']
- vivify_475:
- set $P1477, $P1476[0]
- unless_null $P1477, vivify_476
- new $P1477, "Undef"
- vivify_476:
- $P1477."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
-.annotate 'line', 549
- get_global $P1478, "@BLOCK"
- unless_null $P1478, vivify_477
- $P1478 = root_new ['parrot';'ResizablePMCArray']
- vivify_477:
- set $P1479, $P1478[0]
- unless_null $P1479, vivify_478
- new $P1479, "Undef"
+.annotate 'line', 557
+ get_global $P1490, "@BLOCK"
+ unless_null $P1490, vivify_478
+ $P1490 = root_new ['parrot';'ResizablePMCArray']
vivify_478:
- $P1479."symbol"("$/", "lexical" :named("scope"))
-.annotate 'line', 550
- new $P1480, "Exception"
- set $P1480['type'], 57
- new $P1481, "Integer"
- assign $P1481, 0
- setattribute $P1480, 'payload', $P1481
- throw $P1480
-.annotate 'line', 539
- .return ()
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "dotty" :subid("85_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1511
-.annotate 'line', 570
- new $P1510, 'ExceptionHandler'
- set_addr $P1510, control_1509
- $P1510."handle_types"(57)
- push_eh $P1510
- .lex "self", self
- .lex "$/", param_1511
-.annotate 'line', 571
- new $P1512, "Undef"
- .lex "$past", $P1512
- find_lex $P1515, "$/"
- unless_null $P1515, vivify_479
- $P1515 = root_new ['parrot';'Hash']
+ set $P1491, $P1490[0]
+ unless_null $P1491, vivify_479
+ new $P1491, "Undef"
vivify_479:
- set $P1516, $P1515["args"]
- unless_null $P1516, vivify_480
- new $P1516, "Undef"
+ $P1491."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
+.annotate 'line', 558
+ get_global $P1492, "@BLOCK"
+ unless_null $P1492, vivify_480
+ $P1492 = root_new ['parrot';'ResizablePMCArray']
vivify_480:
- if $P1516, if_1514
- get_hll_global $P1521, ["PAST"], "Op"
- find_lex $P1522, "$/"
- $P1523 = $P1521."new"($P1522 :named("node"))
- set $P1513, $P1523
- goto if_1514_end
- if_1514:
- find_lex $P1517, "$/"
- unless_null $P1517, vivify_481
- $P1517 = root_new ['parrot';'Hash']
- vivify_481:
- set $P1518, $P1517["args"]
- unless_null $P1518, vivify_482
- $P1518 = root_new ['parrot';'ResizablePMCArray']
- vivify_482:
- set $P1519, $P1518[0]
- unless_null $P1519, vivify_483
- new $P1519, "Undef"
- vivify_483:
- $P1520 = $P1519."ast"()
- set $P1513, $P1520
- if_1514_end:
- store_lex "$past", $P1513
-.annotate 'line', 572
- find_lex $P1524, "$past"
- find_lex $P1527, "$/"
- unless_null $P1527, vivify_484
- $P1527 = root_new ['parrot';'Hash']
- vivify_484:
- set $P1528, $P1527["quote"]
- unless_null $P1528, vivify_485
- new $P1528, "Undef"
- vivify_485:
- if $P1528, if_1526
- find_lex $P1532, "$/"
- unless_null $P1532, vivify_486
- $P1532 = root_new ['parrot';'Hash']
- vivify_486:
- set $P1533, $P1532["longname"]
- unless_null $P1533, vivify_487
- new $P1533, "Undef"
- vivify_487:
- set $S1534, $P1533
- new $P1525, 'String'
- set $P1525, $S1534
- goto if_1526_end
- if_1526:
- find_lex $P1529, "$/"
- unless_null $P1529, vivify_488
- $P1529 = root_new ['parrot';'Hash']
- vivify_488:
- set $P1530, $P1529["quote"]
- unless_null $P1530, vivify_489
- new $P1530, "Undef"
- vivify_489:
- $P1531 = $P1530."ast"()
- set $P1525, $P1531
- if_1526_end:
- $P1524."name"($P1525)
-.annotate 'line', 573
- find_lex $P1535, "$past"
- $P1535."pasttype"("callmethod")
-.annotate 'line', 574
- find_lex $P1536, "$/"
- find_lex $P1537, "$past"
- $P1538 = $P1536."!make"($P1537)
-.annotate 'line', 570
- .return ($P1538)
- control_1509:
- .local pmc exception
- .get_results (exception)
- getattribute $P1539, exception, "payload"
- .return ($P1539)
+ set $P1493, $P1492[0]
+ unless_null $P1493, vivify_481
+ new $P1493, "Undef"
+ vivify_481:
+ $P1493."symbol"("$/", "lexical" :named("scope"))
+.annotate 'line', 559
+ new $P1494, "Exception"
+ set $P1494['type'], 57
+ new $P1495, "Integer"
+ assign $P1495, 0
+ setattribute $P1494, 'payload', $P1495
+ throw $P1494
+.annotate 'line', 548
+ .return ()
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<self>" :subid("86_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1543
+.sub "dotty" :subid("86_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1525
.annotate 'line', 579
- new $P1542, 'ExceptionHandler'
- set_addr $P1542, control_1541
- $P1542."handle_types"(57)
- push_eh $P1542
+ new $P1524, 'ExceptionHandler'
+ set_addr $P1524, control_1523
+ $P1524."handle_types"(57)
+ push_eh $P1524
.lex "self", self
- .lex "$/", param_1543
+ .lex "$/", param_1525
.annotate 'line', 580
- find_lex $P1544, "$/"
- get_hll_global $P1545, ["PAST"], "Var"
- $P1546 = $P1545."new"("self" :named("name"))
- $P1547 = $P1544."!make"($P1546)
+ new $P1526, "Undef"
+ .lex "$past", $P1526
+ find_lex $P1529, "$/"
+ unless_null $P1529, vivify_482
+ $P1529 = root_new ['parrot';'Hash']
+ vivify_482:
+ set $P1530, $P1529["args"]
+ unless_null $P1530, vivify_483
+ new $P1530, "Undef"
+ vivify_483:
+ if $P1530, if_1528
+ get_hll_global $P1535, ["PAST"], "Op"
+ find_lex $P1536, "$/"
+ $P1537 = $P1535."new"($P1536 :named("node"))
+ set $P1527, $P1537
+ goto if_1528_end
+ if_1528:
+ find_lex $P1531, "$/"
+ unless_null $P1531, vivify_484
+ $P1531 = root_new ['parrot';'Hash']
+ vivify_484:
+ set $P1532, $P1531["args"]
+ unless_null $P1532, vivify_485
+ $P1532 = root_new ['parrot';'ResizablePMCArray']
+ vivify_485:
+ set $P1533, $P1532[0]
+ unless_null $P1533, vivify_486
+ new $P1533, "Undef"
+ vivify_486:
+ $P1534 = $P1533."ast"()
+ set $P1527, $P1534
+ if_1528_end:
+ store_lex "$past", $P1527
+.annotate 'line', 581
+ find_lex $P1538, "$past"
+ find_lex $P1541, "$/"
+ unless_null $P1541, vivify_487
+ $P1541 = root_new ['parrot';'Hash']
+ vivify_487:
+ set $P1542, $P1541["quote"]
+ unless_null $P1542, vivify_488
+ new $P1542, "Undef"
+ vivify_488:
+ if $P1542, if_1540
+ find_lex $P1546, "$/"
+ unless_null $P1546, vivify_489
+ $P1546 = root_new ['parrot';'Hash']
+ vivify_489:
+ set $P1547, $P1546["longname"]
+ unless_null $P1547, vivify_490
+ new $P1547, "Undef"
+ vivify_490:
+ set $S1548, $P1547
+ new $P1539, 'String'
+ set $P1539, $S1548
+ goto if_1540_end
+ if_1540:
+ find_lex $P1543, "$/"
+ unless_null $P1543, vivify_491
+ $P1543 = root_new ['parrot';'Hash']
+ vivify_491:
+ set $P1544, $P1543["quote"]
+ unless_null $P1544, vivify_492
+ new $P1544, "Undef"
+ vivify_492:
+ $P1545 = $P1544."ast"()
+ set $P1539, $P1545
+ if_1540_end:
+ $P1538."name"($P1539)
+.annotate 'line', 582
+ find_lex $P1549, "$past"
+ $P1549."pasttype"("callmethod")
+.annotate 'line', 583
+ find_lex $P1550, "$/"
+ find_lex $P1551, "$past"
+ $P1552 = $P1550."!make"($P1551)
.annotate 'line', 579
- .return ($P1547)
- control_1541:
+ .return ($P1552)
+ control_1523:
.local pmc exception
.get_results (exception)
- getattribute $P1548, exception, "payload"
- .return ($P1548)
+ getattribute $P1553, exception, "payload"
+ .return ($P1553)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<identifier>" :subid("87_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1552
-.annotate 'line', 583
- new $P1551, 'ExceptionHandler'
- set_addr $P1551, control_1550
- $P1551."handle_types"(57)
- push_eh $P1551
- .lex "self", self
- .lex "$/", param_1552
-.annotate 'line', 584
- new $P1553, "Undef"
- .lex "$past", $P1553
- find_lex $P1554, "$/"
- unless_null $P1554, vivify_490
- $P1554 = root_new ['parrot';'Hash']
- vivify_490:
- set $P1555, $P1554["args"]
- unless_null $P1555, vivify_491
- new $P1555, "Undef"
- vivify_491:
- $P1556 = $P1555."ast"()
- store_lex "$past", $P1556
-.annotate 'line', 585
- find_lex $P1557, "$past"
+.sub "term:sym<self>" :subid("87_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1557
+.annotate 'line', 588
+ new $P1556, 'ExceptionHandler'
+ set_addr $P1556, control_1555
+ $P1556."handle_types"(57)
+ push_eh $P1556
+ .lex "self", self
+ .lex "$/", param_1557
+.annotate 'line', 589
find_lex $P1558, "$/"
- unless_null $P1558, vivify_492
- $P1558 = root_new ['parrot';'Hash']
- vivify_492:
- set $P1559, $P1558["identifier"]
- unless_null $P1559, vivify_493
- new $P1559, "Undef"
- vivify_493:
- set $S1560, $P1559
- $P1557."name"($S1560)
-.annotate 'line', 586
- find_lex $P1561, "$/"
- find_lex $P1562, "$past"
- $P1563 = $P1561."!make"($P1562)
-.annotate 'line', 583
- .return ($P1563)
- control_1550:
+ get_hll_global $P1559, ["PAST"], "Var"
+ $P1560 = $P1559."new"("self" :named("name"))
+ $P1561 = $P1558."!make"($P1560)
+.annotate 'line', 588
+ .return ($P1561)
+ control_1555:
.local pmc exception
.get_results (exception)
- getattribute $P1564, exception, "payload"
- .return ($P1564)
+ getattribute $P1562, exception, "payload"
+ .return ($P1562)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<name>" :subid("88_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1568
-.annotate 'line', 589
- new $P1567, 'ExceptionHandler'
- set_addr $P1567, control_1566
- $P1567."handle_types"(57)
- push_eh $P1567
- .lex "self", self
- .lex "$/", param_1568
-.annotate 'line', 590
- $P1569 = root_new ['parrot';'ResizablePMCArray']
- .lex "@ns", $P1569
-.annotate 'line', 591
- new $P1570, "Undef"
- .lex "$name", $P1570
+.sub "term:sym<identifier>" :subid("88_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1566
+.annotate 'line', 592
+ new $P1565, 'ExceptionHandler'
+ set_addr $P1565, control_1564
+ $P1565."handle_types"(57)
+ push_eh $P1565
+ .lex "self", self
+ .lex "$/", param_1566
.annotate 'line', 593
- new $P1571, "Undef"
- .lex "$var", $P1571
-.annotate 'line', 595
- new $P1572, "Undef"
- .lex "$past", $P1572
-.annotate 'line', 590
- find_lex $P1573, "$/"
- unless_null $P1573, vivify_494
- $P1573 = root_new ['parrot';'Hash']
+ new $P1567, "Undef"
+ .lex "$past", $P1567
+ find_lex $P1568, "$/"
+ unless_null $P1568, vivify_493
+ $P1568 = root_new ['parrot';'Hash']
+ vivify_493:
+ set $P1569, $P1568["args"]
+ unless_null $P1569, vivify_494
+ new $P1569, "Undef"
vivify_494:
- set $P1574, $P1573["name"]
- unless_null $P1574, vivify_495
- $P1574 = root_new ['parrot';'Hash']
+ $P1570 = $P1569."ast"()
+ store_lex "$past", $P1570
+.annotate 'line', 594
+ find_lex $P1571, "$past"
+ find_lex $P1572, "$/"
+ unless_null $P1572, vivify_495
+ $P1572 = root_new ['parrot';'Hash']
vivify_495:
- set $P1575, $P1574["identifier"]
- unless_null $P1575, vivify_496
- new $P1575, "Undef"
+ set $P1573, $P1572["identifier"]
+ unless_null $P1573, vivify_496
+ new $P1573, "Undef"
vivify_496:
- clone $P1576, $P1575
- store_lex "@ns", $P1576
-.annotate 'line', 591
- find_lex $P1577, "@ns"
- $P1578 = $P1577."pop"()
- store_lex "$name", $P1578
+ set $S1574, $P1573
+ $P1571."name"($S1574)
+.annotate 'line', 595
+ find_lex $P1575, "$/"
+ find_lex $P1576, "$past"
+ $P1577 = $P1575."!make"($P1576)
.annotate 'line', 592
- find_lex $P1582, "@ns"
- if $P1582, if_1581
- set $P1580, $P1582
- goto if_1581_end
- if_1581:
- find_lex $P1583, "@ns"
- unless_null $P1583, vivify_497
+ .return ($P1577)
+ control_1564:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1578, exception, "payload"
+ .return ($P1578)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "term:sym<name>" :subid("89_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1582
+.annotate 'line', 598
+ new $P1581, 'ExceptionHandler'
+ set_addr $P1581, control_1580
+ $P1581."handle_types"(57)
+ push_eh $P1581
+ .lex "self", self
+ .lex "$/", param_1582
+.annotate 'line', 599
$P1583 = root_new ['parrot';'ResizablePMCArray']
- vivify_497:
- set $P1584, $P1583[0]
- unless_null $P1584, vivify_498
+ .lex "@ns", $P1583
+.annotate 'line', 600
new $P1584, "Undef"
+ .lex "$name", $P1584
+.annotate 'line', 602
+ new $P1585, "Undef"
+ .lex "$var", $P1585
+.annotate 'line', 604
+ new $P1586, "Undef"
+ .lex "$past", $P1586
+.annotate 'line', 599
+ find_lex $P1587, "$/"
+ unless_null $P1587, vivify_497
+ $P1587 = root_new ['parrot';'Hash']
+ vivify_497:
+ set $P1588, $P1587["name"]
+ unless_null $P1588, vivify_498
+ $P1588 = root_new ['parrot';'Hash']
vivify_498:
- set $S1585, $P1584
- iseq $I1586, $S1585, "GLOBAL"
- new $P1580, 'Integer'
- set $P1580, $I1586
- if_1581_end:
- unless $P1580, if_1579_end
- find_lex $P1587, "@ns"
- $P1587."shift"()
- if_1579_end:
-.annotate 'line', 594
- get_hll_global $P1588, ["PAST"], "Var"
- find_lex $P1589, "$name"
- set $S1590, $P1589
- find_lex $P1591, "@ns"
- $P1592 = $P1588."new"($S1590 :named("name"), $P1591 :named("namespace"), "package" :named("scope"))
- store_lex "$var", $P1592
-.annotate 'line', 595
- find_lex $P1593, "$var"
- store_lex "$past", $P1593
-.annotate 'line', 596
- find_lex $P1595, "$/"
- unless_null $P1595, vivify_499
- $P1595 = root_new ['parrot';'Hash']
+ set $P1589, $P1588["identifier"]
+ unless_null $P1589, vivify_499
+ new $P1589, "Undef"
vivify_499:
- set $P1596, $P1595["args"]
- unless_null $P1596, vivify_500
- new $P1596, "Undef"
+ clone $P1590, $P1589
+ store_lex "@ns", $P1590
+.annotate 'line', 600
+ find_lex $P1591, "@ns"
+ $P1592 = $P1591."pop"()
+ store_lex "$name", $P1592
+.annotate 'line', 601
+ find_lex $P1596, "@ns"
+ if $P1596, if_1595
+ set $P1594, $P1596
+ goto if_1595_end
+ if_1595:
+ find_lex $P1597, "@ns"
+ unless_null $P1597, vivify_500
+ $P1597 = root_new ['parrot';'ResizablePMCArray']
vivify_500:
- unless $P1596, if_1594_end
-.annotate 'line', 597
- find_lex $P1597, "$/"
- unless_null $P1597, vivify_501
- $P1597 = root_new ['parrot';'Hash']
+ set $P1598, $P1597[0]
+ unless_null $P1598, vivify_501
+ new $P1598, "Undef"
vivify_501:
- set $P1598, $P1597["args"]
- unless_null $P1598, vivify_502
- $P1598 = root_new ['parrot';'ResizablePMCArray']
+ set $S1599, $P1598
+ iseq $I1600, $S1599, "GLOBAL"
+ new $P1594, 'Integer'
+ set $P1594, $I1600
+ if_1595_end:
+ unless $P1594, if_1593_end
+ find_lex $P1601, "@ns"
+ $P1601."shift"()
+ if_1593_end:
+.annotate 'line', 603
+ get_hll_global $P1602, ["PAST"], "Var"
+ find_lex $P1603, "$name"
+ set $S1604, $P1603
+ find_lex $P1605, "@ns"
+ $P1606 = $P1602."new"($S1604 :named("name"), $P1605 :named("namespace"), "package" :named("scope"))
+ store_lex "$var", $P1606
+.annotate 'line', 604
+ find_lex $P1607, "$var"
+ store_lex "$past", $P1607
+.annotate 'line', 605
+ find_lex $P1609, "$/"
+ unless_null $P1609, vivify_502
+ $P1609 = root_new ['parrot';'Hash']
vivify_502:
- set $P1599, $P1598[0]
- unless_null $P1599, vivify_503
- new $P1599, "Undef"
+ set $P1610, $P1609["args"]
+ unless_null $P1610, vivify_503
+ new $P1610, "Undef"
vivify_503:
- $P1600 = $P1599."ast"()
- store_lex "$past", $P1600
+ unless $P1610, if_1608_end
+.annotate 'line', 606
+ find_lex $P1611, "$/"
+ unless_null $P1611, vivify_504
+ $P1611 = root_new ['parrot';'Hash']
+ vivify_504:
+ set $P1612, $P1611["args"]
+ unless_null $P1612, vivify_505
+ $P1612 = root_new ['parrot';'ResizablePMCArray']
+ vivify_505:
+ set $P1613, $P1612[0]
+ unless_null $P1613, vivify_506
+ new $P1613, "Undef"
+ vivify_506:
+ $P1614 = $P1613."ast"()
+ store_lex "$past", $P1614
+.annotate 'line', 607
+ find_lex $P1615, "$past"
+ find_lex $P1616, "$var"
+ $P1615."unshift"($P1616)
+ if_1608_end:
+.annotate 'line', 609
+ find_lex $P1617, "$/"
+ find_lex $P1618, "$past"
+ $P1619 = $P1617."!make"($P1618)
.annotate 'line', 598
- find_lex $P1601, "$past"
- find_lex $P1602, "$var"
- $P1601."unshift"($P1602)
- if_1594_end:
-.annotate 'line', 600
- find_lex $P1603, "$/"
- find_lex $P1604, "$past"
- $P1605 = $P1603."!make"($P1604)
-.annotate 'line', 589
- .return ($P1605)
- control_1566:
+ .return ($P1619)
+ control_1580:
.local pmc exception
.get_results (exception)
- getattribute $P1606, exception, "payload"
- .return ($P1606)
+ getattribute $P1620, exception, "payload"
+ .return ($P1620)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<pir::op>" :subid("89_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1610
-.annotate 'line', 603
- new $P1609, 'ExceptionHandler'
- set_addr $P1609, control_1608
- $P1609."handle_types"(57)
- push_eh $P1609
+.sub "term:sym<pir::op>" :subid("90_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1624
+.annotate 'line', 612
+ new $P1623, 'ExceptionHandler'
+ set_addr $P1623, control_1622
+ $P1623."handle_types"(57)
+ push_eh $P1623
.lex "self", self
- .lex "$/", param_1610
-.annotate 'line', 604
- new $P1611, "Undef"
- .lex "$past", $P1611
-.annotate 'line', 605
- new $P1612, "Undef"
- .lex "$pirop", $P1612
-.annotate 'line', 604
- find_lex $P1615, "$/"
- unless_null $P1615, vivify_504
- $P1615 = root_new ['parrot';'Hash']
- vivify_504:
- set $P1616, $P1615["args"]
- unless_null $P1616, vivify_505
- new $P1616, "Undef"
- vivify_505:
- if $P1616, if_1614
- get_hll_global $P1621, ["PAST"], "Op"
- find_lex $P1622, "$/"
- $P1623 = $P1621."new"($P1622 :named("node"))
- set $P1613, $P1623
- goto if_1614_end
- if_1614:
- find_lex $P1617, "$/"
- unless_null $P1617, vivify_506
- $P1617 = root_new ['parrot';'Hash']
- vivify_506:
- set $P1618, $P1617["args"]
- unless_null $P1618, vivify_507
- $P1618 = root_new ['parrot';'ResizablePMCArray']
+ .lex "$/", param_1624
+.annotate 'line', 613
+ new $P1625, "Undef"
+ .lex "$past", $P1625
+.annotate 'line', 614
+ new $P1626, "Undef"
+ .lex "$pirop", $P1626
+.annotate 'line', 613
+ find_lex $P1629, "$/"
+ unless_null $P1629, vivify_507
+ $P1629 = root_new ['parrot';'Hash']
vivify_507:
- set $P1619, $P1618[0]
- unless_null $P1619, vivify_508
- new $P1619, "Undef"
+ set $P1630, $P1629["args"]
+ unless_null $P1630, vivify_508
+ new $P1630, "Undef"
vivify_508:
- $P1620 = $P1619."ast"()
- set $P1613, $P1620
- if_1614_end:
- store_lex "$past", $P1613
-.annotate 'line', 605
- find_lex $P1624, "$/"
- unless_null $P1624, vivify_509
- $P1624 = root_new ['parrot';'Hash']
+ if $P1630, if_1628
+ get_hll_global $P1635, ["PAST"], "Op"
+ find_lex $P1636, "$/"
+ $P1637 = $P1635."new"($P1636 :named("node"))
+ set $P1627, $P1637
+ goto if_1628_end
+ if_1628:
+ find_lex $P1631, "$/"
+ unless_null $P1631, vivify_509
+ $P1631 = root_new ['parrot';'Hash']
vivify_509:
- set $P1625, $P1624["op"]
- unless_null $P1625, vivify_510
- new $P1625, "Undef"
+ set $P1632, $P1631["args"]
+ unless_null $P1632, vivify_510
+ $P1632 = root_new ['parrot';'ResizablePMCArray']
vivify_510:
- set $S1626, $P1625
- new $P1627, 'String'
- set $P1627, $S1626
- store_lex "$pirop", $P1627
-.annotate 'line', 606
+ set $P1633, $P1632[0]
+ unless_null $P1633, vivify_511
+ new $P1633, "Undef"
+ vivify_511:
+ $P1634 = $P1633."ast"()
+ set $P1627, $P1634
+ if_1628_end:
+ store_lex "$past", $P1627
+.annotate 'line', 614
+ find_lex $P1638, "$/"
+ unless_null $P1638, vivify_512
+ $P1638 = root_new ['parrot';'Hash']
+ vivify_512:
+ set $P1639, $P1638["op"]
+ unless_null $P1639, vivify_513
+ new $P1639, "Undef"
+ vivify_513:
+ set $S1640, $P1639
+ new $P1641, 'String'
+ set $P1641, $S1640
+ store_lex "$pirop", $P1641
+.annotate 'line', 615
$P0 = find_lex '$pirop'
$S0 = $P0
$P0 = split '__', $S0
$S0 = join ' ', $P0
- $P1628 = box $S0
+ $P1642 = box $S0
- store_lex "$pirop", $P1628
-.annotate 'line', 613
- find_lex $P1629, "$past"
- find_lex $P1630, "$pirop"
- $P1629."pirop"($P1630)
-.annotate 'line', 614
- find_lex $P1631, "$past"
- $P1631."pasttype"("pirop")
-.annotate 'line', 615
- find_lex $P1632, "$/"
- find_lex $P1633, "$past"
- $P1634 = $P1632."!make"($P1633)
-.annotate 'line', 603
- .return ($P1634)
- control_1608:
+ store_lex "$pirop", $P1642
+.annotate 'line', 622
+ find_lex $P1643, "$past"
+ find_lex $P1644, "$pirop"
+ $P1643."pirop"($P1644)
+.annotate 'line', 623
+ find_lex $P1645, "$past"
+ $P1645."pasttype"("pirop")
+.annotate 'line', 624
+ find_lex $P1646, "$/"
+ find_lex $P1647, "$past"
+ $P1648 = $P1646."!make"($P1647)
+.annotate 'line', 612
+ .return ($P1648)
+ control_1622:
.local pmc exception
.get_results (exception)
- getattribute $P1635, exception, "payload"
- .return ($P1635)
+ getattribute $P1649, exception, "payload"
+ .return ($P1649)
.end
.namespace ["NQP";"Actions"]
-.sub "args" :subid("90_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1639
-.annotate 'line', 618
- new $P1638, 'ExceptionHandler'
- set_addr $P1638, control_1637
- $P1638."handle_types"(57)
- push_eh $P1638
+.sub "args" :subid("91_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1653
+.annotate 'line', 627
+ new $P1652, 'ExceptionHandler'
+ set_addr $P1652, control_1651
+ $P1652."handle_types"(57)
+ push_eh $P1652
.lex "self", self
- .lex "$/", param_1639
- find_lex $P1640, "$/"
- find_lex $P1641, "$/"
- unless_null $P1641, vivify_511
- $P1641 = root_new ['parrot';'Hash']
- vivify_511:
- set $P1642, $P1641["arglist"]
- unless_null $P1642, vivify_512
- new $P1642, "Undef"
- vivify_512:
- $P1643 = $P1642."ast"()
- $P1644 = $P1640."!make"($P1643)
- .return ($P1644)
- control_1637:
+ .lex "$/", param_1653
+ find_lex $P1654, "$/"
+ find_lex $P1655, "$/"
+ unless_null $P1655, vivify_514
+ $P1655 = root_new ['parrot';'Hash']
+ vivify_514:
+ set $P1656, $P1655["arglist"]
+ unless_null $P1656, vivify_515
+ new $P1656, "Undef"
+ vivify_515:
+ $P1657 = $P1656."ast"()
+ $P1658 = $P1654."!make"($P1657)
+ .return ($P1658)
+ control_1651:
.local pmc exception
.get_results (exception)
- getattribute $P1645, exception, "payload"
- .return ($P1645)
+ getattribute $P1659, exception, "payload"
+ .return ($P1659)
.end
.namespace ["NQP";"Actions"]
-.sub "arglist" :subid("91_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1649
-.annotate 'line', 620
- .const 'Sub' $P1660 = "92_1274564782.90592"
- capture_lex $P1660
- new $P1648, 'ExceptionHandler'
- set_addr $P1648, control_1647
- $P1648."handle_types"(57)
- push_eh $P1648
- .lex "self", self
- .lex "$/", param_1649
-.annotate 'line', 621
- new $P1650, "Undef"
- .lex "$past", $P1650
+.sub "arglist" :subid("92_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1663
.annotate 'line', 629
- new $P1651, "Undef"
- .lex "$i", $P1651
+ .const 'Sub' $P1674 = "93_1275117616.72633"
+ capture_lex $P1674
+ new $P1662, 'ExceptionHandler'
+ set_addr $P1662, control_1661
+ $P1662."handle_types"(57)
+ push_eh $P1662
+ .lex "self", self
+ .lex "$/", param_1663
.annotate 'line', 630
- new $P1652, "Undef"
- .lex "$n", $P1652
-.annotate 'line', 621
- get_hll_global $P1653, ["PAST"], "Op"
- find_lex $P1654, "$/"
- $P1655 = $P1653."new"("call" :named("pasttype"), $P1654 :named("node"))
- store_lex "$past", $P1655
-.annotate 'line', 622
- find_lex $P1657, "$/"
- unless_null $P1657, vivify_513
- $P1657 = root_new ['parrot';'Hash']
- vivify_513:
- set $P1658, $P1657["EXPR"]
- unless_null $P1658, vivify_514
- new $P1658, "Undef"
- vivify_514:
- unless $P1658, if_1656_end
- .const 'Sub' $P1660 = "92_1274564782.90592"
- capture_lex $P1660
- $P1660()
- if_1656_end:
-.annotate 'line', 629
- new $P1692, "Integer"
- assign $P1692, 0
- store_lex "$i", $P1692
+ new $P1664, "Undef"
+ .lex "$past", $P1664
+.annotate 'line', 638
+ new $P1665, "Undef"
+ .lex "$i", $P1665
+.annotate 'line', 639
+ new $P1666, "Undef"
+ .lex "$n", $P1666
.annotate 'line', 630
- find_lex $P1693, "$past"
- $P1694 = $P1693."list"()
- set $N1695, $P1694
- new $P1696, 'Float'
- set $P1696, $N1695
- store_lex "$n", $P1696
+ get_hll_global $P1667, ["PAST"], "Op"
+ find_lex $P1668, "$/"
+ $P1669 = $P1667."new"("call" :named("pasttype"), $P1668 :named("node"))
+ store_lex "$past", $P1669
.annotate 'line', 631
- new $P1744, 'ExceptionHandler'
- set_addr $P1744, loop1743_handler
- $P1744."handle_types"(64, 66, 65)
- push_eh $P1744
- loop1743_test:
- find_lex $P1697, "$i"
- set $N1698, $P1697
- find_lex $P1699, "$n"
- set $N1700, $P1699
- islt $I1701, $N1698, $N1700
- unless $I1701, loop1743_done
- loop1743_redo:
-.annotate 'line', 632
- find_lex $P1703, "$i"
- set $I1704, $P1703
- find_lex $P1705, "$past"
- unless_null $P1705, vivify_518
- $P1705 = root_new ['parrot';'ResizablePMCArray']
- vivify_518:
- set $P1706, $P1705[$I1704]
- unless_null $P1706, vivify_519
- new $P1706, "Undef"
- vivify_519:
- $S1707 = $P1706."name"()
- iseq $I1708, $S1707, "&prefix:<|>"
- unless $I1708, if_1702_end
-.annotate 'line', 633
- find_lex $P1709, "$i"
- set $I1710, $P1709
- find_lex $P1711, "$past"
- unless_null $P1711, vivify_520
- $P1711 = root_new ['parrot';'ResizablePMCArray']
- vivify_520:
- set $P1712, $P1711[$I1710]
- unless_null $P1712, vivify_521
- $P1712 = root_new ['parrot';'ResizablePMCArray']
- vivify_521:
- set $P1713, $P1712[0]
- unless_null $P1713, vivify_522
- new $P1713, "Undef"
- vivify_522:
- find_lex $P1714, "$i"
- set $I1715, $P1714
- find_lex $P1716, "$past"
- unless_null $P1716, vivify_523
- $P1716 = root_new ['parrot';'ResizablePMCArray']
- store_lex "$past", $P1716
- vivify_523:
- set $P1716[$I1715], $P1713
-.annotate 'line', 634
+ find_lex $P1671, "$/"
+ unless_null $P1671, vivify_516
+ $P1671 = root_new ['parrot';'Hash']
+ vivify_516:
+ set $P1672, $P1671["EXPR"]
+ unless_null $P1672, vivify_517
+ new $P1672, "Undef"
+ vivify_517:
+ unless $P1672, if_1670_end
+ .const 'Sub' $P1674 = "93_1275117616.72633"
+ capture_lex $P1674
+ $P1674()
+ if_1670_end:
+.annotate 'line', 638
+ new $P1706, "Integer"
+ assign $P1706, 0
+ store_lex "$i", $P1706
+.annotate 'line', 639
+ find_lex $P1707, "$past"
+ $P1708 = $P1707."list"()
+ set $N1709, $P1708
+ new $P1710, 'Float'
+ set $P1710, $N1709
+ store_lex "$n", $P1710
+.annotate 'line', 640
+ new $P1758, 'ExceptionHandler'
+ set_addr $P1758, loop1757_handler
+ $P1758."handle_types"(64, 66, 65)
+ push_eh $P1758
+ loop1757_test:
+ find_lex $P1711, "$i"
+ set $N1712, $P1711
+ find_lex $P1713, "$n"
+ set $N1714, $P1713
+ islt $I1715, $N1712, $N1714
+ unless $I1715, loop1757_done
+ loop1757_redo:
+.annotate 'line', 641
find_lex $P1717, "$i"
set $I1718, $P1717
find_lex $P1719, "$past"
- unless_null $P1719, vivify_524
+ unless_null $P1719, vivify_521
$P1719 = root_new ['parrot';'ResizablePMCArray']
- vivify_524:
+ vivify_521:
set $P1720, $P1719[$I1718]
- unless_null $P1720, vivify_525
+ unless_null $P1720, vivify_522
new $P1720, "Undef"
- vivify_525:
- $P1720."flat"(1)
-.annotate 'line', 635
- find_lex $P1724, "$i"
- set $I1725, $P1724
- find_lex $P1726, "$past"
- unless_null $P1726, vivify_526
+ vivify_522:
+ $S1721 = $P1720."name"()
+ iseq $I1722, $S1721, "&prefix:<|>"
+ unless $I1722, if_1716_end
+.annotate 'line', 642
+ find_lex $P1723, "$i"
+ set $I1724, $P1723
+ find_lex $P1725, "$past"
+ unless_null $P1725, vivify_523
+ $P1725 = root_new ['parrot';'ResizablePMCArray']
+ vivify_523:
+ set $P1726, $P1725[$I1724]
+ unless_null $P1726, vivify_524
$P1726 = root_new ['parrot';'ResizablePMCArray']
- vivify_526:
- set $P1727, $P1726[$I1725]
- unless_null $P1727, vivify_527
+ vivify_524:
+ set $P1727, $P1726[0]
+ unless_null $P1727, vivify_525
new $P1727, "Undef"
+ vivify_525:
+ find_lex $P1728, "$i"
+ set $I1729, $P1728
+ find_lex $P1730, "$past"
+ unless_null $P1730, vivify_526
+ $P1730 = root_new ['parrot';'ResizablePMCArray']
+ store_lex "$past", $P1730
+ vivify_526:
+ set $P1730[$I1729], $P1727
+.annotate 'line', 643
+ find_lex $P1731, "$i"
+ set $I1732, $P1731
+ find_lex $P1733, "$past"
+ unless_null $P1733, vivify_527
+ $P1733 = root_new ['parrot';'ResizablePMCArray']
vivify_527:
- get_hll_global $P1728, ["PAST"], "Val"
- $P1729 = $P1727."isa"($P1728)
- if $P1729, if_1723
- set $P1722, $P1729
- goto if_1723_end
- if_1723:
-.annotate 'line', 636
- find_lex $P1730, "$i"
- set $I1731, $P1730
- find_lex $P1732, "$past"
- unless_null $P1732, vivify_528
- $P1732 = root_new ['parrot';'ResizablePMCArray']
+ set $P1734, $P1733[$I1732]
+ unless_null $P1734, vivify_528
+ new $P1734, "Undef"
vivify_528:
- set $P1733, $P1732[$I1731]
- unless_null $P1733, vivify_529
- new $P1733, "Undef"
+ $P1734."flat"(1)
+.annotate 'line', 644
+ find_lex $P1738, "$i"
+ set $I1739, $P1738
+ find_lex $P1740, "$past"
+ unless_null $P1740, vivify_529
+ $P1740 = root_new ['parrot';'ResizablePMCArray']
vivify_529:
- $S1734 = $P1733."name"()
- substr $S1735, $S1734, 0, 1
- iseq $I1736, $S1735, "%"
- new $P1722, 'Integer'
- set $P1722, $I1736
- if_1723_end:
- unless $P1722, if_1721_end
-.annotate 'line', 637
- find_lex $P1737, "$i"
- set $I1738, $P1737
- find_lex $P1739, "$past"
- unless_null $P1739, vivify_530
- $P1739 = root_new ['parrot';'ResizablePMCArray']
+ set $P1741, $P1740[$I1739]
+ unless_null $P1741, vivify_530
+ new $P1741, "Undef"
vivify_530:
- set $P1740, $P1739[$I1738]
- unless_null $P1740, vivify_531
- new $P1740, "Undef"
+ get_hll_global $P1742, ["PAST"], "Val"
+ $P1743 = $P1741."isa"($P1742)
+ if $P1743, if_1737
+ set $P1736, $P1743
+ goto if_1737_end
+ if_1737:
+.annotate 'line', 645
+ find_lex $P1744, "$i"
+ set $I1745, $P1744
+ find_lex $P1746, "$past"
+ unless_null $P1746, vivify_531
+ $P1746 = root_new ['parrot';'ResizablePMCArray']
vivify_531:
- $P1740."named"(1)
- if_1721_end:
- if_1702_end:
-.annotate 'line', 632
- find_lex $P1741, "$i"
- clone $P1742, $P1741
- inc $P1741
- loop1743_next:
-.annotate 'line', 631
- goto loop1743_test
- loop1743_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P1745, exception, 'type'
- eq $P1745, 64, loop1743_next
- eq $P1745, 66, loop1743_redo
- loop1743_done:
+ set $P1747, $P1746[$I1745]
+ unless_null $P1747, vivify_532
+ new $P1747, "Undef"
+ vivify_532:
+ $S1748 = $P1747."name"()
+ substr $S1749, $S1748, 0, 1
+ iseq $I1750, $S1749, "%"
+ new $P1736, 'Integer'
+ set $P1736, $I1750
+ if_1737_end:
+ unless $P1736, if_1735_end
+.annotate 'line', 646
+ find_lex $P1751, "$i"
+ set $I1752, $P1751
+ find_lex $P1753, "$past"
+ unless_null $P1753, vivify_533
+ $P1753 = root_new ['parrot';'ResizablePMCArray']
+ vivify_533:
+ set $P1754, $P1753[$I1752]
+ unless_null $P1754, vivify_534
+ new $P1754, "Undef"
+ vivify_534:
+ $P1754."named"(1)
+ if_1735_end:
+ if_1716_end:
+.annotate 'line', 641
+ find_lex $P1755, "$i"
+ clone $P1756, $P1755
+ inc $P1755
+ loop1757_next:
+.annotate 'line', 640
+ goto loop1757_test
+ loop1757_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1759, exception, 'type'
+ eq $P1759, 64, loop1757_next
+ eq $P1759, 66, loop1757_redo
+ loop1757_done:
pop_eh
-.annotate 'line', 642
- find_lex $P1746, "$/"
- find_lex $P1747, "$past"
- $P1748 = $P1746."!make"($P1747)
-.annotate 'line', 620
- .return ($P1748)
- control_1647:
+.annotate 'line', 651
+ find_lex $P1760, "$/"
+ find_lex $P1761, "$past"
+ $P1762 = $P1760."!make"($P1761)
+.annotate 'line', 629
+ .return ($P1762)
+ control_1661:
.local pmc exception
.get_results (exception)
- getattribute $P1749, exception, "payload"
- .return ($P1749)
+ getattribute $P1763, exception, "payload"
+ .return ($P1763)
.end
.namespace ["NQP";"Actions"]
-.sub "_block1659" :anon :subid("92_1274564782.90592") :outer("91_1274564782.90592")
-.annotate 'line', 622
- .const 'Sub' $P1681 = "93_1274564782.90592"
- capture_lex $P1681
-.annotate 'line', 623
- new $P1661, "Undef"
- .lex "$expr", $P1661
- find_lex $P1662, "$/"
- unless_null $P1662, vivify_515
- $P1662 = root_new ['parrot';'Hash']
- vivify_515:
- set $P1663, $P1662["EXPR"]
- unless_null $P1663, vivify_516
- new $P1663, "Undef"
- vivify_516:
- $P1664 = $P1663."ast"()
- store_lex "$expr", $P1664
-.annotate 'line', 624
- find_lex $P1669, "$expr"
- $S1670 = $P1669."name"()
- iseq $I1671, $S1670, "&infix:<,>"
- if $I1671, if_1668
- new $P1667, 'Integer'
- set $P1667, $I1671
- goto if_1668_end
- if_1668:
- find_lex $P1672, "$expr"
- $P1673 = $P1672."named"()
- isfalse $I1674, $P1673
- new $P1667, 'Integer'
- set $P1667, $I1674
- if_1668_end:
- if $P1667, if_1666
-.annotate 'line', 627
- find_lex $P1689, "$past"
+.sub "_block1673" :anon :subid("93_1275117616.72633") :outer("92_1275117616.72633")
+.annotate 'line', 631
+ .const 'Sub' $P1695 = "94_1275117616.72633"
+ capture_lex $P1695
+.annotate 'line', 632
+ new $P1675, "Undef"
+ .lex "$expr", $P1675
+ find_lex $P1676, "$/"
+ unless_null $P1676, vivify_518
+ $P1676 = root_new ['parrot';'Hash']
+ vivify_518:
+ set $P1677, $P1676["EXPR"]
+ unless_null $P1677, vivify_519
+ new $P1677, "Undef"
+ vivify_519:
+ $P1678 = $P1677."ast"()
+ store_lex "$expr", $P1678
+.annotate 'line', 633
+ find_lex $P1683, "$expr"
+ $S1684 = $P1683."name"()
+ iseq $I1685, $S1684, "&infix:<,>"
+ if $I1685, if_1682
+ new $P1681, 'Integer'
+ set $P1681, $I1685
+ goto if_1682_end
+ if_1682:
+ find_lex $P1686, "$expr"
+ $P1687 = $P1686."named"()
+ isfalse $I1688, $P1687
+ new $P1681, 'Integer'
+ set $P1681, $I1688
+ if_1682_end:
+ if $P1681, if_1680
+.annotate 'line', 636
+ find_lex $P1703, "$past"
+ find_lex $P1704, "$expr"
+ $P1705 = $P1703."push"($P1704)
+ set $P1679, $P1705
+.annotate 'line', 633
+ goto if_1680_end
+ if_1680:
+.annotate 'line', 634
find_lex $P1690, "$expr"
- $P1691 = $P1689."push"($P1690)
- set $P1665, $P1691
-.annotate 'line', 624
- goto if_1666_end
- if_1666:
-.annotate 'line', 625
- find_lex $P1676, "$expr"
- $P1677 = $P1676."list"()
- defined $I1678, $P1677
- unless $I1678, for_undef_517
- iter $P1675, $P1677
- new $P1687, 'ExceptionHandler'
- set_addr $P1687, loop1686_handler
- $P1687."handle_types"(64, 66, 65)
- push_eh $P1687
- loop1686_test:
- unless $P1675, loop1686_done
- shift $P1679, $P1675
- loop1686_redo:
- .const 'Sub' $P1681 = "93_1274564782.90592"
- capture_lex $P1681
- $P1681($P1679)
- loop1686_next:
- goto loop1686_test
- loop1686_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P1688, exception, 'type'
- eq $P1688, 64, loop1686_next
- eq $P1688, 66, loop1686_redo
- loop1686_done:
+ $P1691 = $P1690."list"()
+ defined $I1692, $P1691
+ unless $I1692, for_undef_520
+ iter $P1689, $P1691
+ new $P1701, 'ExceptionHandler'
+ set_addr $P1701, loop1700_handler
+ $P1701."handle_types"(64, 66, 65)
+ push_eh $P1701
+ loop1700_test:
+ unless $P1689, loop1700_done
+ shift $P1693, $P1689
+ loop1700_redo:
+ .const 'Sub' $P1695 = "94_1275117616.72633"
+ capture_lex $P1695
+ $P1695($P1693)
+ loop1700_next:
+ goto loop1700_test
+ loop1700_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1702, exception, 'type'
+ eq $P1702, 64, loop1700_next
+ eq $P1702, 66, loop1700_redo
+ loop1700_done:
pop_eh
- for_undef_517:
-.annotate 'line', 624
- set $P1665, $P1675
- if_1666_end:
-.annotate 'line', 622
- .return ($P1665)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "_block1680" :anon :subid("93_1274564782.90592") :outer("92_1274564782.90592")
- .param pmc param_1682
-.annotate 'line', 625
- .lex "$_", param_1682
- find_lex $P1683, "$past"
- find_lex $P1684, "$_"
- $P1685 = $P1683."push"($P1684)
- .return ($P1685)
+ for_undef_520:
+.annotate 'line', 633
+ set $P1679, $P1689
+ if_1680_end:
+.annotate 'line', 631
+ .return ($P1679)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<value>" :subid("94_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1753
-.annotate 'line', 646
- new $P1752, 'ExceptionHandler'
- set_addr $P1752, control_1751
- $P1752."handle_types"(57)
- push_eh $P1752
- .lex "self", self
- .lex "$/", param_1753
- find_lex $P1754, "$/"
- find_lex $P1755, "$/"
- unless_null $P1755, vivify_532
- $P1755 = root_new ['parrot';'Hash']
- vivify_532:
- set $P1756, $P1755["value"]
- unless_null $P1756, vivify_533
- new $P1756, "Undef"
- vivify_533:
- $P1757 = $P1756."ast"()
- $P1758 = $P1754."!make"($P1757)
- .return ($P1758)
- control_1751:
- .local pmc exception
- .get_results (exception)
- getattribute $P1759, exception, "payload"
- .return ($P1759)
+.sub "_block1694" :anon :subid("94_1275117616.72633") :outer("93_1275117616.72633")
+ .param pmc param_1696
+.annotate 'line', 634
+ .lex "$_", param_1696
+ find_lex $P1697, "$past"
+ find_lex $P1698, "$_"
+ $P1699 = $P1697."push"($P1698)
+ .return ($P1699)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<( )>" :subid("95_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1763
-.annotate 'line', 648
- new $P1762, 'ExceptionHandler'
- set_addr $P1762, control_1761
- $P1762."handle_types"(57)
- push_eh $P1762
+.sub "term:sym<value>" :subid("95_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1767
+.annotate 'line', 655
+ new $P1766, 'ExceptionHandler'
+ set_addr $P1766, control_1765
+ $P1766."handle_types"(57)
+ push_eh $P1766
.lex "self", self
- .lex "$/", param_1763
-.annotate 'line', 649
- find_lex $P1764, "$/"
-.annotate 'line', 650
- find_lex $P1767, "$/"
- unless_null $P1767, vivify_534
- $P1767 = root_new ['parrot';'Hash']
- vivify_534:
- set $P1768, $P1767["EXPR"]
- unless_null $P1768, vivify_535
- new $P1768, "Undef"
- vivify_535:
- if $P1768, if_1766
-.annotate 'line', 651
- get_hll_global $P1773, ["PAST"], "Op"
- find_lex $P1774, "$/"
- $P1775 = $P1773."new"("list" :named("pasttype"), $P1774 :named("node"))
- set $P1765, $P1775
-.annotate 'line', 650
- goto if_1766_end
- if_1766:
+ .lex "$/", param_1767
+ find_lex $P1768, "$/"
find_lex $P1769, "$/"
- unless_null $P1769, vivify_536
+ unless_null $P1769, vivify_535
$P1769 = root_new ['parrot';'Hash']
+ vivify_535:
+ set $P1770, $P1769["value"]
+ unless_null $P1770, vivify_536
+ new $P1770, "Undef"
vivify_536:
- set $P1770, $P1769["EXPR"]
- unless_null $P1770, vivify_537
- $P1770 = root_new ['parrot';'ResizablePMCArray']
- vivify_537:
- set $P1771, $P1770[0]
- unless_null $P1771, vivify_538
- new $P1771, "Undef"
- vivify_538:
- $P1772 = $P1771."ast"()
- set $P1765, $P1772
- if_1766_end:
- $P1776 = $P1764."!make"($P1765)
-.annotate 'line', 648
- .return ($P1776)
- control_1761:
+ $P1771 = $P1770."ast"()
+ $P1772 = $P1768."!make"($P1771)
+ .return ($P1772)
+ control_1765:
.local pmc exception
.get_results (exception)
- getattribute $P1777, exception, "payload"
- .return ($P1777)
+ getattribute $P1773, exception, "payload"
+ .return ($P1773)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<[ ]>" :subid("96_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1781
-.annotate 'line', 654
- new $P1780, 'ExceptionHandler'
- set_addr $P1780, control_1779
- $P1780."handle_types"(57)
- push_eh $P1780
+.sub "circumfix:sym<( )>" :subid("96_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1777
+.annotate 'line', 657
+ new $P1776, 'ExceptionHandler'
+ set_addr $P1776, control_1775
+ $P1776."handle_types"(57)
+ push_eh $P1776
.lex "self", self
- .lex "$/", param_1781
-.annotate 'line', 655
+ .lex "$/", param_1777
+.annotate 'line', 658
+ find_lex $P1778, "$/"
+.annotate 'line', 659
+ find_lex $P1781, "$/"
+ unless_null $P1781, vivify_537
+ $P1781 = root_new ['parrot';'Hash']
+ vivify_537:
+ set $P1782, $P1781["EXPR"]
+ unless_null $P1782, vivify_538
new $P1782, "Undef"
- .lex "$past", $P1782
-.annotate 'line', 654
- find_lex $P1783, "$past"
-.annotate 'line', 656
- find_lex $P1785, "$/"
- unless_null $P1785, vivify_539
- $P1785 = root_new ['parrot';'Hash']
+ vivify_538:
+ if $P1782, if_1780
+.annotate 'line', 660
+ get_hll_global $P1787, ["PAST"], "Op"
+ find_lex $P1788, "$/"
+ $P1789 = $P1787."new"("list" :named("pasttype"), $P1788 :named("node"))
+ set $P1779, $P1789
+.annotate 'line', 659
+ goto if_1780_end
+ if_1780:
+ find_lex $P1783, "$/"
+ unless_null $P1783, vivify_539
+ $P1783 = root_new ['parrot';'Hash']
vivify_539:
- set $P1786, $P1785["EXPR"]
- unless_null $P1786, vivify_540
- new $P1786, "Undef"
+ set $P1784, $P1783["EXPR"]
+ unless_null $P1784, vivify_540
+ $P1784 = root_new ['parrot';'ResizablePMCArray']
vivify_540:
- if $P1786, if_1784
-.annotate 'line', 663
- get_hll_global $P1798, ["PAST"], "Op"
- $P1799 = $P1798."new"("list" :named("pasttype"))
- store_lex "$past", $P1799
-.annotate 'line', 662
- goto if_1784_end
- if_1784:
-.annotate 'line', 657
- find_lex $P1787, "$/"
- unless_null $P1787, vivify_541
- $P1787 = root_new ['parrot';'Hash']
+ set $P1785, $P1784[0]
+ unless_null $P1785, vivify_541
+ new $P1785, "Undef"
vivify_541:
- set $P1788, $P1787["EXPR"]
- unless_null $P1788, vivify_542
- $P1788 = root_new ['parrot';'ResizablePMCArray']
- vivify_542:
- set $P1789, $P1788[0]
- unless_null $P1789, vivify_543
- new $P1789, "Undef"
- vivify_543:
- $P1790 = $P1789."ast"()
- store_lex "$past", $P1790
-.annotate 'line', 658
- find_lex $P1792, "$past"
- $S1793 = $P1792."name"()
- isne $I1794, $S1793, "&infix:<,>"
- unless $I1794, if_1791_end
-.annotate 'line', 659
- get_hll_global $P1795, ["PAST"], "Op"
- find_lex $P1796, "$past"
- $P1797 = $P1795."new"($P1796, "list" :named("pasttype"))
- store_lex "$past", $P1797
- if_1791_end:
- if_1784_end:
-.annotate 'line', 665
- find_lex $P1800, "$past"
- $P1800."name"("&circumfix:<[ ]>")
-.annotate 'line', 666
- find_lex $P1801, "$/"
- find_lex $P1802, "$past"
- $P1803 = $P1801."!make"($P1802)
-.annotate 'line', 654
- .return ($P1803)
- control_1779:
+ $P1786 = $P1785."ast"()
+ set $P1779, $P1786
+ if_1780_end:
+ $P1790 = $P1778."!make"($P1779)
+.annotate 'line', 657
+ .return ($P1790)
+ control_1775:
.local pmc exception
.get_results (exception)
- getattribute $P1804, exception, "payload"
- .return ($P1804)
+ getattribute $P1791, exception, "payload"
+ .return ($P1791)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<ang>" :subid("97_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1808
-.annotate 'line', 669
- new $P1807, 'ExceptionHandler'
- set_addr $P1807, control_1806
- $P1807."handle_types"(57)
- push_eh $P1807
- .lex "self", self
- .lex "$/", param_1808
- find_lex $P1809, "$/"
- find_lex $P1810, "$/"
- unless_null $P1810, vivify_544
- $P1810 = root_new ['parrot';'Hash']
+.sub "circumfix:sym<[ ]>" :subid("97_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1795
+.annotate 'line', 663
+ new $P1794, 'ExceptionHandler'
+ set_addr $P1794, control_1793
+ $P1794."handle_types"(57)
+ push_eh $P1794
+ .lex "self", self
+ .lex "$/", param_1795
+.annotate 'line', 664
+ new $P1796, "Undef"
+ .lex "$past", $P1796
+.annotate 'line', 663
+ find_lex $P1797, "$past"
+.annotate 'line', 665
+ find_lex $P1799, "$/"
+ unless_null $P1799, vivify_542
+ $P1799 = root_new ['parrot';'Hash']
+ vivify_542:
+ set $P1800, $P1799["EXPR"]
+ unless_null $P1800, vivify_543
+ new $P1800, "Undef"
+ vivify_543:
+ if $P1800, if_1798
+.annotate 'line', 672
+ get_hll_global $P1812, ["PAST"], "Op"
+ $P1813 = $P1812."new"("list" :named("pasttype"))
+ store_lex "$past", $P1813
+.annotate 'line', 671
+ goto if_1798_end
+ if_1798:
+.annotate 'line', 666
+ find_lex $P1801, "$/"
+ unless_null $P1801, vivify_544
+ $P1801 = root_new ['parrot';'Hash']
vivify_544:
- set $P1811, $P1810["quote_EXPR"]
- unless_null $P1811, vivify_545
- new $P1811, "Undef"
+ set $P1802, $P1801["EXPR"]
+ unless_null $P1802, vivify_545
+ $P1802 = root_new ['parrot';'ResizablePMCArray']
vivify_545:
- $P1812 = $P1811."ast"()
- $P1813 = $P1809."!make"($P1812)
- .return ($P1813)
- control_1806:
+ set $P1803, $P1802[0]
+ unless_null $P1803, vivify_546
+ new $P1803, "Undef"
+ vivify_546:
+ $P1804 = $P1803."ast"()
+ store_lex "$past", $P1804
+.annotate 'line', 667
+ find_lex $P1806, "$past"
+ $S1807 = $P1806."name"()
+ isne $I1808, $S1807, "&infix:<,>"
+ unless $I1808, if_1805_end
+.annotate 'line', 668
+ get_hll_global $P1809, ["PAST"], "Op"
+ find_lex $P1810, "$past"
+ $P1811 = $P1809."new"($P1810, "list" :named("pasttype"))
+ store_lex "$past", $P1811
+ if_1805_end:
+ if_1798_end:
+.annotate 'line', 674
+ find_lex $P1814, "$past"
+ $P1814."name"("&circumfix:<[ ]>")
+.annotate 'line', 675
+ find_lex $P1815, "$/"
+ find_lex $P1816, "$past"
+ $P1817 = $P1815."!make"($P1816)
+.annotate 'line', 663
+ .return ($P1817)
+ control_1793:
.local pmc exception
.get_results (exception)
- getattribute $P1814, exception, "payload"
- .return ($P1814)
+ getattribute $P1818, exception, "payload"
+ .return ($P1818)
.end
.namespace ["NQP";"Actions"]
-.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("98_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1818
-.annotate 'line', 670
- new $P1817, 'ExceptionHandler'
- set_addr $P1817, control_1816
- $P1817."handle_types"(57)
- push_eh $P1817
+.sub "circumfix:sym<ang>" :subid("98_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1822
+.annotate 'line', 678
+ new $P1821, 'ExceptionHandler'
+ set_addr $P1821, control_1820
+ $P1821."handle_types"(57)
+ push_eh $P1821
.lex "self", self
- .lex "$/", param_1818
- find_lex $P1819, "$/"
- find_lex $P1820, "$/"
- unless_null $P1820, vivify_546
- $P1820 = root_new ['parrot';'Hash']
- vivify_546:
- set $P1821, $P1820["quote_EXPR"]
- unless_null $P1821, vivify_547
- new $P1821, "Undef"
+ .lex "$/", param_1822
+ find_lex $P1823, "$/"
+ find_lex $P1824, "$/"
+ unless_null $P1824, vivify_547
+ $P1824 = root_new ['parrot';'Hash']
vivify_547:
- $P1822 = $P1821."ast"()
- $P1823 = $P1819."!make"($P1822)
- .return ($P1823)
- control_1816:
+ set $P1825, $P1824["quote_EXPR"]
+ unless_null $P1825, vivify_548
+ new $P1825, "Undef"
+ vivify_548:
+ $P1826 = $P1825."ast"()
+ $P1827 = $P1823."!make"($P1826)
+ .return ($P1827)
+ control_1820:
.local pmc exception
.get_results (exception)
- getattribute $P1824, exception, "payload"
- .return ($P1824)
+ getattribute $P1828, exception, "payload"
+ .return ($P1828)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<{ }>" :subid("99_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1828
-.annotate 'line', 672
- new $P1827, 'ExceptionHandler'
- set_addr $P1827, control_1826
- $P1827."handle_types"(57)
- push_eh $P1827
- .lex "self", self
- .lex "$/", param_1828
-.annotate 'line', 673
- new $P1829, "Undef"
- .lex "$past", $P1829
- find_lex $P1832, "$/"
- unless_null $P1832, vivify_548
- $P1832 = root_new ['parrot';'Hash']
- vivify_548:
- set $P1833, $P1832["pblock"]
- unless_null $P1833, vivify_549
- $P1833 = root_new ['parrot';'Hash']
- vivify_549:
- set $P1834, $P1833["blockoid"]
- unless_null $P1834, vivify_550
+.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("99_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1832
+.annotate 'line', 679
+ new $P1831, 'ExceptionHandler'
+ set_addr $P1831, control_1830
+ $P1831."handle_types"(57)
+ push_eh $P1831
+ .lex "self", self
+ .lex "$/", param_1832
+ find_lex $P1833, "$/"
+ find_lex $P1834, "$/"
+ unless_null $P1834, vivify_549
$P1834 = root_new ['parrot';'Hash']
+ vivify_549:
+ set $P1835, $P1834["quote_EXPR"]
+ unless_null $P1835, vivify_550
+ new $P1835, "Undef"
vivify_550:
- set $P1835, $P1834["statementlist"]
- unless_null $P1835, vivify_551
- $P1835 = root_new ['parrot';'Hash']
- vivify_551:
- set $P1836, $P1835["statement"]
- unless_null $P1836, vivify_552
- new $P1836, "Undef"
- vivify_552:
- set $N1837, $P1836
- isgt $I1838, $N1837, 0.0
- if $I1838, if_1831
-.annotate 'line', 675
- $P1842 = "vivitype"("%")
- set $P1830, $P1842
-.annotate 'line', 673
- goto if_1831_end
- if_1831:
-.annotate 'line', 674
- find_lex $P1839, "$/"
- unless_null $P1839, vivify_553
- $P1839 = root_new ['parrot';'Hash']
- vivify_553:
- set $P1840, $P1839["pblock"]
- unless_null $P1840, vivify_554
- new $P1840, "Undef"
- vivify_554:
- $P1841 = $P1840."ast"()
- set $P1830, $P1841
- if_1831_end:
- store_lex "$past", $P1830
-.annotate 'line', 676
- new $P1843, "Integer"
- assign $P1843, 1
- find_lex $P1844, "$past"
- unless_null $P1844, vivify_555
- $P1844 = root_new ['parrot';'Hash']
- store_lex "$past", $P1844
- vivify_555:
- set $P1844["bareblock"], $P1843
-.annotate 'line', 677
- find_lex $P1845, "$/"
- find_lex $P1846, "$past"
- $P1847 = $P1845."!make"($P1846)
-.annotate 'line', 672
- .return ($P1847)
- control_1826:
+ $P1836 = $P1835."ast"()
+ $P1837 = $P1833."!make"($P1836)
+ .return ($P1837)
+ control_1830:
.local pmc exception
.get_results (exception)
- getattribute $P1848, exception, "payload"
- .return ($P1848)
+ getattribute $P1838, exception, "payload"
+ .return ($P1838)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<sigil>" :subid("100_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1852
-.annotate 'line', 680
- new $P1851, 'ExceptionHandler'
- set_addr $P1851, control_1850
- $P1851."handle_types"(57)
- push_eh $P1851
- .lex "self", self
- .lex "$/", param_1852
+.sub "circumfix:sym<{ }>" :subid("100_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1842
.annotate 'line', 681
- new $P1853, "Undef"
- .lex "$name", $P1853
- find_lex $P1856, "$/"
- unless_null $P1856, vivify_556
- $P1856 = root_new ['parrot';'Hash']
+ new $P1841, 'ExceptionHandler'
+ set_addr $P1841, control_1840
+ $P1841."handle_types"(57)
+ push_eh $P1841
+ .lex "self", self
+ .lex "$/", param_1842
+.annotate 'line', 682
+ new $P1843, "Undef"
+ .lex "$past", $P1843
+ find_lex $P1846, "$/"
+ unless_null $P1846, vivify_551
+ $P1846 = root_new ['parrot';'Hash']
+ vivify_551:
+ set $P1847, $P1846["pblock"]
+ unless_null $P1847, vivify_552
+ $P1847 = root_new ['parrot';'Hash']
+ vivify_552:
+ set $P1848, $P1847["blockoid"]
+ unless_null $P1848, vivify_553
+ $P1848 = root_new ['parrot';'Hash']
+ vivify_553:
+ set $P1849, $P1848["statementlist"]
+ unless_null $P1849, vivify_554
+ $P1849 = root_new ['parrot';'Hash']
+ vivify_554:
+ set $P1850, $P1849["statement"]
+ unless_null $P1850, vivify_555
+ new $P1850, "Undef"
+ vivify_555:
+ set $N1851, $P1850
+ isgt $I1852, $N1851, 0.0
+ if $I1852, if_1845
+.annotate 'line', 684
+ $P1856 = "vivitype"("%")
+ set $P1844, $P1856
+.annotate 'line', 682
+ goto if_1845_end
+ if_1845:
+.annotate 'line', 683
+ find_lex $P1853, "$/"
+ unless_null $P1853, vivify_556
+ $P1853 = root_new ['parrot';'Hash']
vivify_556:
- set $P1857, $P1856["sigil"]
- unless_null $P1857, vivify_557
- new $P1857, "Undef"
+ set $P1854, $P1853["pblock"]
+ unless_null $P1854, vivify_557
+ new $P1854, "Undef"
vivify_557:
- set $S1858, $P1857
- iseq $I1859, $S1858, "@"
- if $I1859, if_1855
-.annotate 'line', 682
- find_lex $P1863, "$/"
- unless_null $P1863, vivify_558
- $P1863 = root_new ['parrot';'Hash']
+ $P1855 = $P1854."ast"()
+ set $P1844, $P1855
+ if_1845_end:
+ store_lex "$past", $P1844
+.annotate 'line', 685
+ new $P1857, "Integer"
+ assign $P1857, 1
+ find_lex $P1858, "$past"
+ unless_null $P1858, vivify_558
+ $P1858 = root_new ['parrot';'Hash']
+ store_lex "$past", $P1858
vivify_558:
- set $P1864, $P1863["sigil"]
- unless_null $P1864, vivify_559
- new $P1864, "Undef"
- vivify_559:
- set $S1865, $P1864
- iseq $I1866, $S1865, "%"
- if $I1866, if_1862
- new $P1868, "String"
- assign $P1868, "item"
- set $P1861, $P1868
- goto if_1862_end
- if_1862:
- new $P1867, "String"
- assign $P1867, "hash"
- set $P1861, $P1867
- if_1862_end:
- set $P1854, $P1861
+ set $P1858["bareblock"], $P1857
+.annotate 'line', 686
+ find_lex $P1859, "$/"
+ find_lex $P1860, "$past"
+ $P1861 = $P1859."!make"($P1860)
.annotate 'line', 681
- goto if_1855_end
- if_1855:
- new $P1860, "String"
- assign $P1860, "list"
- set $P1854, $P1860
- if_1855_end:
- store_lex "$name", $P1854
-.annotate 'line', 684
- find_lex $P1869, "$/"
- get_hll_global $P1870, ["PAST"], "Op"
- find_lex $P1871, "$name"
- find_lex $P1872, "$/"
- unless_null $P1872, vivify_560
- $P1872 = root_new ['parrot';'Hash']
- vivify_560:
- set $P1873, $P1872["semilist"]
- unless_null $P1873, vivify_561
- new $P1873, "Undef"
- vivify_561:
- $P1874 = $P1873."ast"()
- $P1875 = $P1870."new"($P1874, "callmethod" :named("pasttype"), $P1871 :named("name"))
- $P1876 = $P1869."!make"($P1875)
-.annotate 'line', 680
- .return ($P1876)
- control_1850:
- .local pmc exception
- .get_results (exception)
- getattribute $P1877, exception, "payload"
- .return ($P1877)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "semilist" :subid("101_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1881
-.annotate 'line', 687
- new $P1880, 'ExceptionHandler'
- set_addr $P1880, control_1879
- $P1880."handle_types"(57)
- push_eh $P1880
- .lex "self", self
- .lex "$/", param_1881
- find_lex $P1882, "$/"
- find_lex $P1883, "$/"
- unless_null $P1883, vivify_562
- $P1883 = root_new ['parrot';'Hash']
- vivify_562:
- set $P1884, $P1883["statement"]
- unless_null $P1884, vivify_563
- new $P1884, "Undef"
- vivify_563:
- $P1885 = $P1884."ast"()
- $P1886 = $P1882."!make"($P1885)
- .return ($P1886)
- control_1879:
+ .return ($P1861)
+ control_1840:
.local pmc exception
.get_results (exception)
- getattribute $P1887, exception, "payload"
- .return ($P1887)
+ getattribute $P1862, exception, "payload"
+ .return ($P1862)
.end
.namespace ["NQP";"Actions"]
-.sub "postcircumfix:sym<[ ]>" :subid("102_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1891
+.sub "circumfix:sym<sigil>" :subid("101_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1866
.annotate 'line', 689
- new $P1890, 'ExceptionHandler'
- set_addr $P1890, control_1889
- $P1890."handle_types"(57)
- push_eh $P1890
+ new $P1865, 'ExceptionHandler'
+ set_addr $P1865, control_1864
+ $P1865."handle_types"(57)
+ push_eh $P1865
.lex "self", self
- .lex "$/", param_1891
+ .lex "$/", param_1866
.annotate 'line', 690
- find_lex $P1892, "$/"
- get_hll_global $P1893, ["PAST"], "Var"
- find_lex $P1894, "$/"
- unless_null $P1894, vivify_564
- $P1894 = root_new ['parrot';'Hash']
- vivify_564:
- set $P1895, $P1894["EXPR"]
- unless_null $P1895, vivify_565
- new $P1895, "Undef"
- vivify_565:
- $P1896 = $P1895."ast"()
-.annotate 'line', 692
- $P1897 = "vivitype"("@")
- $P1898 = $P1893."new"($P1896, "keyed_int" :named("scope"), "Undef" :named("viviself"), $P1897 :named("vivibase"))
+ new $P1867, "Undef"
+ .lex "$name", $P1867
+ find_lex $P1870, "$/"
+ unless_null $P1870, vivify_559
+ $P1870 = root_new ['parrot';'Hash']
+ vivify_559:
+ set $P1871, $P1870["sigil"]
+ unless_null $P1871, vivify_560
+ new $P1871, "Undef"
+ vivify_560:
+ set $S1872, $P1871
+ iseq $I1873, $S1872, "@"
+ if $I1873, if_1869
+.annotate 'line', 691
+ find_lex $P1877, "$/"
+ unless_null $P1877, vivify_561
+ $P1877 = root_new ['parrot';'Hash']
+ vivify_561:
+ set $P1878, $P1877["sigil"]
+ unless_null $P1878, vivify_562
+ new $P1878, "Undef"
+ vivify_562:
+ set $S1879, $P1878
+ iseq $I1880, $S1879, "%"
+ if $I1880, if_1876
+ new $P1882, "String"
+ assign $P1882, "item"
+ set $P1875, $P1882
+ goto if_1876_end
+ if_1876:
+ new $P1881, "String"
+ assign $P1881, "hash"
+ set $P1875, $P1881
+ if_1876_end:
+ set $P1868, $P1875
.annotate 'line', 690
- $P1899 = $P1892."!make"($P1898)
+ goto if_1869_end
+ if_1869:
+ new $P1874, "String"
+ assign $P1874, "list"
+ set $P1868, $P1874
+ if_1869_end:
+ store_lex "$name", $P1868
+.annotate 'line', 693
+ find_lex $P1883, "$/"
+ get_hll_global $P1884, ["PAST"], "Op"
+ find_lex $P1885, "$name"
+ find_lex $P1886, "$/"
+ unless_null $P1886, vivify_563
+ $P1886 = root_new ['parrot';'Hash']
+ vivify_563:
+ set $P1887, $P1886["semilist"]
+ unless_null $P1887, vivify_564
+ new $P1887, "Undef"
+ vivify_564:
+ $P1888 = $P1887."ast"()
+ $P1889 = $P1884."new"($P1888, "callmethod" :named("pasttype"), $P1885 :named("name"))
+ $P1890 = $P1883."!make"($P1889)
.annotate 'line', 689
- .return ($P1899)
- control_1889:
+ .return ($P1890)
+ control_1864:
.local pmc exception
.get_results (exception)
- getattribute $P1900, exception, "payload"
- .return ($P1900)
+ getattribute $P1891, exception, "payload"
+ .return ($P1891)
.end
.namespace ["NQP";"Actions"]
-.sub "postcircumfix:sym<{ }>" :subid("103_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1904
-.annotate 'line', 695
- new $P1903, 'ExceptionHandler'
- set_addr $P1903, control_1902
- $P1903."handle_types"(57)
- push_eh $P1903
- .lex "self", self
- .lex "$/", param_1904
+.sub "semilist" :subid("102_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1895
.annotate 'line', 696
- find_lex $P1905, "$/"
- get_hll_global $P1906, ["PAST"], "Var"
- find_lex $P1907, "$/"
- unless_null $P1907, vivify_566
- $P1907 = root_new ['parrot';'Hash']
+ new $P1894, 'ExceptionHandler'
+ set_addr $P1894, control_1893
+ $P1894."handle_types"(57)
+ push_eh $P1894
+ .lex "self", self
+ .lex "$/", param_1895
+ find_lex $P1896, "$/"
+ find_lex $P1897, "$/"
+ unless_null $P1897, vivify_565
+ $P1897 = root_new ['parrot';'Hash']
+ vivify_565:
+ set $P1898, $P1897["statement"]
+ unless_null $P1898, vivify_566
+ new $P1898, "Undef"
vivify_566:
- set $P1908, $P1907["EXPR"]
+ $P1899 = $P1898."ast"()
+ $P1900 = $P1896."!make"($P1899)
+ .return ($P1900)
+ control_1893:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1901, exception, "payload"
+ .return ($P1901)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "postcircumfix:sym<[ ]>" :subid("103_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1905
+.annotate 'line', 698
+ new $P1904, 'ExceptionHandler'
+ set_addr $P1904, control_1903
+ $P1904."handle_types"(57)
+ push_eh $P1904
+ .lex "self", self
+ .lex "$/", param_1905
+.annotate 'line', 699
+ find_lex $P1906, "$/"
+ get_hll_global $P1907, ["PAST"], "Var"
+ find_lex $P1908, "$/"
unless_null $P1908, vivify_567
- new $P1908, "Undef"
+ $P1908 = root_new ['parrot';'Hash']
vivify_567:
- $P1909 = $P1908."ast"()
+ set $P1909, $P1908["EXPR"]
+ unless_null $P1909, vivify_568
+ new $P1909, "Undef"
+ vivify_568:
+ $P1910 = $P1909."ast"()
+.annotate 'line', 701
+ $P1911 = "vivitype"("@")
+ $P1912 = $P1907."new"($P1910, "keyed_int" :named("scope"), "Undef" :named("viviself"), $P1911 :named("vivibase"))
+.annotate 'line', 699
+ $P1913 = $P1906."!make"($P1912)
.annotate 'line', 698
- $P1910 = "vivitype"("%")
- $P1911 = $P1906."new"($P1909, "keyed" :named("scope"), "Undef" :named("viviself"), $P1910 :named("vivibase"))
-.annotate 'line', 696
- $P1912 = $P1905."!make"($P1911)
-.annotate 'line', 695
- .return ($P1912)
- control_1902:
+ .return ($P1913)
+ control_1903:
.local pmc exception
.get_results (exception)
- getattribute $P1913, exception, "payload"
- .return ($P1913)
+ getattribute $P1914, exception, "payload"
+ .return ($P1914)
.end
.namespace ["NQP";"Actions"]
-.sub "postcircumfix:sym<ang>" :subid("104_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1917
-.annotate 'line', 701
- new $P1916, 'ExceptionHandler'
- set_addr $P1916, control_1915
- $P1916."handle_types"(57)
- push_eh $P1916
- .lex "self", self
- .lex "$/", param_1917
-.annotate 'line', 702
- find_lex $P1918, "$/"
- get_hll_global $P1919, ["PAST"], "Var"
- find_lex $P1920, "$/"
- unless_null $P1920, vivify_568
- $P1920 = root_new ['parrot';'Hash']
- vivify_568:
- set $P1921, $P1920["quote_EXPR"]
+.sub "postcircumfix:sym<{ }>" :subid("104_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1918
+.annotate 'line', 704
+ new $P1917, 'ExceptionHandler'
+ set_addr $P1917, control_1916
+ $P1917."handle_types"(57)
+ push_eh $P1917
+ .lex "self", self
+ .lex "$/", param_1918
+.annotate 'line', 705
+ find_lex $P1919, "$/"
+ get_hll_global $P1920, ["PAST"], "Var"
+ find_lex $P1921, "$/"
unless_null $P1921, vivify_569
- new $P1921, "Undef"
+ $P1921 = root_new ['parrot';'Hash']
vivify_569:
- $P1922 = $P1921."ast"()
+ set $P1922, $P1921["EXPR"]
+ unless_null $P1922, vivify_570
+ new $P1922, "Undef"
+ vivify_570:
+ $P1923 = $P1922."ast"()
+.annotate 'line', 707
+ $P1924 = "vivitype"("%")
+ $P1925 = $P1920."new"($P1923, "keyed" :named("scope"), "Undef" :named("viviself"), $P1924 :named("vivibase"))
+.annotate 'line', 705
+ $P1926 = $P1919."!make"($P1925)
.annotate 'line', 704
- $P1923 = "vivitype"("%")
- $P1924 = $P1919."new"($P1922, "keyed" :named("scope"), "Undef" :named("viviself"), $P1923 :named("vivibase"))
-.annotate 'line', 702
- $P1925 = $P1918."!make"($P1924)
-.annotate 'line', 701
- .return ($P1925)
- control_1915:
+ .return ($P1926)
+ control_1916:
.local pmc exception
.get_results (exception)
- getattribute $P1926, exception, "payload"
- .return ($P1926)
+ getattribute $P1927, exception, "payload"
+ .return ($P1927)
.end
.namespace ["NQP";"Actions"]
-.sub "postcircumfix:sym<( )>" :subid("105_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1930
-.annotate 'line', 707
- new $P1929, 'ExceptionHandler'
- set_addr $P1929, control_1928
- $P1929."handle_types"(57)
- push_eh $P1929
- .lex "self", self
- .lex "$/", param_1930
-.annotate 'line', 708
- find_lex $P1931, "$/"
+.sub "postcircumfix:sym<ang>" :subid("105_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1931
+.annotate 'line', 710
+ new $P1930, 'ExceptionHandler'
+ set_addr $P1930, control_1929
+ $P1930."handle_types"(57)
+ push_eh $P1930
+ .lex "self", self
+ .lex "$/", param_1931
+.annotate 'line', 711
find_lex $P1932, "$/"
- unless_null $P1932, vivify_570
- $P1932 = root_new ['parrot';'Hash']
- vivify_570:
- set $P1933, $P1932["arglist"]
- unless_null $P1933, vivify_571
- new $P1933, "Undef"
+ get_hll_global $P1933, ["PAST"], "Var"
+ find_lex $P1934, "$/"
+ unless_null $P1934, vivify_571
+ $P1934 = root_new ['parrot';'Hash']
vivify_571:
- $P1934 = $P1933."ast"()
- $P1935 = $P1931."!make"($P1934)
-.annotate 'line', 707
- .return ($P1935)
- control_1928:
+ set $P1935, $P1934["quote_EXPR"]
+ unless_null $P1935, vivify_572
+ new $P1935, "Undef"
+ vivify_572:
+ $P1936 = $P1935."ast"()
+.annotate 'line', 713
+ $P1937 = "vivitype"("%")
+ $P1938 = $P1933."new"($P1936, "keyed" :named("scope"), "Undef" :named("viviself"), $P1937 :named("vivibase"))
+.annotate 'line', 711
+ $P1939 = $P1932."!make"($P1938)
+.annotate 'line', 710
+ .return ($P1939)
+ control_1929:
.local pmc exception
.get_results (exception)
- getattribute $P1936, exception, "payload"
- .return ($P1936)
+ getattribute $P1940, exception, "payload"
+ .return ($P1940)
.end
.namespace ["NQP";"Actions"]
-.sub "value" :subid("106_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1940
-.annotate 'line', 711
- new $P1939, 'ExceptionHandler'
- set_addr $P1939, control_1938
- $P1939."handle_types"(57)
- push_eh $P1939
- .lex "self", self
- .lex "$/", param_1940
-.annotate 'line', 712
- find_lex $P1941, "$/"
- find_lex $P1944, "$/"
- unless_null $P1944, vivify_572
- $P1944 = root_new ['parrot';'Hash']
- vivify_572:
- set $P1945, $P1944["quote"]
- unless_null $P1945, vivify_573
- new $P1945, "Undef"
- vivify_573:
- if $P1945, if_1943
- find_lex $P1949, "$/"
- unless_null $P1949, vivify_574
- $P1949 = root_new ['parrot';'Hash']
- vivify_574:
- set $P1950, $P1949["number"]
- unless_null $P1950, vivify_575
- new $P1950, "Undef"
- vivify_575:
- $P1951 = $P1950."ast"()
- set $P1942, $P1951
- goto if_1943_end
- if_1943:
+.sub "postcircumfix:sym<( )>" :subid("106_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1944
+.annotate 'line', 716
+ new $P1943, 'ExceptionHandler'
+ set_addr $P1943, control_1942
+ $P1943."handle_types"(57)
+ push_eh $P1943
+ .lex "self", self
+ .lex "$/", param_1944
+.annotate 'line', 717
+ find_lex $P1945, "$/"
find_lex $P1946, "$/"
- unless_null $P1946, vivify_576
+ unless_null $P1946, vivify_573
$P1946 = root_new ['parrot';'Hash']
- vivify_576:
- set $P1947, $P1946["quote"]
- unless_null $P1947, vivify_577
+ vivify_573:
+ set $P1947, $P1946["arglist"]
+ unless_null $P1947, vivify_574
new $P1947, "Undef"
- vivify_577:
+ vivify_574:
$P1948 = $P1947."ast"()
- set $P1942, $P1948
- if_1943_end:
- $P1952 = $P1941."!make"($P1942)
-.annotate 'line', 711
- .return ($P1952)
- control_1938:
+ $P1949 = $P1945."!make"($P1948)
+.annotate 'line', 716
+ .return ($P1949)
+ control_1942:
.local pmc exception
.get_results (exception)
- getattribute $P1953, exception, "payload"
- .return ($P1953)
+ getattribute $P1950, exception, "payload"
+ .return ($P1950)
.end
.namespace ["NQP";"Actions"]
-.sub "number" :subid("107_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1957
-.annotate 'line', 715
- new $P1956, 'ExceptionHandler'
- set_addr $P1956, control_1955
- $P1956."handle_types"(57)
- push_eh $P1956
+.sub "value" :subid("107_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1954
+.annotate 'line', 720
+ new $P1953, 'ExceptionHandler'
+ set_addr $P1953, control_1952
+ $P1953."handle_types"(57)
+ push_eh $P1953
.lex "self", self
- .lex "$/", param_1957
-.annotate 'line', 716
- new $P1958, "Undef"
- .lex "$value", $P1958
- find_lex $P1961, "$/"
- unless_null $P1961, vivify_578
- $P1961 = root_new ['parrot';'Hash']
- vivify_578:
- set $P1962, $P1961["dec_number"]
- unless_null $P1962, vivify_579
- new $P1962, "Undef"
- vivify_579:
- if $P1962, if_1960
- find_lex $P1966, "$/"
- unless_null $P1966, vivify_580
- $P1966 = root_new ['parrot';'Hash']
- vivify_580:
- set $P1967, $P1966["integer"]
- unless_null $P1967, vivify_581
- new $P1967, "Undef"
- vivify_581:
- $P1968 = $P1967."ast"()
- set $P1959, $P1968
- goto if_1960_end
- if_1960:
+ .lex "$/", param_1954
+.annotate 'line', 721
+ find_lex $P1955, "$/"
+ find_lex $P1958, "$/"
+ unless_null $P1958, vivify_575
+ $P1958 = root_new ['parrot';'Hash']
+ vivify_575:
+ set $P1959, $P1958["quote"]
+ unless_null $P1959, vivify_576
+ new $P1959, "Undef"
+ vivify_576:
+ if $P1959, if_1957
find_lex $P1963, "$/"
- unless_null $P1963, vivify_582
+ unless_null $P1963, vivify_577
$P1963 = root_new ['parrot';'Hash']
- vivify_582:
- set $P1964, $P1963["dec_number"]
- unless_null $P1964, vivify_583
+ vivify_577:
+ set $P1964, $P1963["number"]
+ unless_null $P1964, vivify_578
new $P1964, "Undef"
- vivify_583:
+ vivify_578:
$P1965 = $P1964."ast"()
- set $P1959, $P1965
- if_1960_end:
- store_lex "$value", $P1959
-.annotate 'line', 717
- find_lex $P1970, "$/"
- unless_null $P1970, vivify_584
- $P1970 = root_new ['parrot';'Hash']
- vivify_584:
- set $P1971, $P1970["sign"]
- unless_null $P1971, vivify_585
- new $P1971, "Undef"
- vivify_585:
- set $S1972, $P1971
- iseq $I1973, $S1972, "-"
- unless $I1973, if_1969_end
- find_lex $P1974, "$value"
- neg $P1975, $P1974
- store_lex "$value", $P1975
- if_1969_end:
-.annotate 'line', 718
- find_lex $P1976, "$/"
- get_hll_global $P1977, ["PAST"], "Val"
- find_lex $P1978, "$value"
- $P1979 = $P1977."new"($P1978 :named("value"))
- $P1980 = $P1976."!make"($P1979)
-.annotate 'line', 715
- .return ($P1980)
- control_1955:
+ set $P1956, $P1965
+ goto if_1957_end
+ if_1957:
+ find_lex $P1960, "$/"
+ unless_null $P1960, vivify_579
+ $P1960 = root_new ['parrot';'Hash']
+ vivify_579:
+ set $P1961, $P1960["quote"]
+ unless_null $P1961, vivify_580
+ new $P1961, "Undef"
+ vivify_580:
+ $P1962 = $P1961."ast"()
+ set $P1956, $P1962
+ if_1957_end:
+ $P1966 = $P1955."!make"($P1956)
+.annotate 'line', 720
+ .return ($P1966)
+ control_1952:
.local pmc exception
.get_results (exception)
- getattribute $P1981, exception, "payload"
- .return ($P1981)
+ getattribute $P1967, exception, "payload"
+ .return ($P1967)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<apos>" :subid("108_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1985
-.annotate 'line', 721
- new $P1984, 'ExceptionHandler'
- set_addr $P1984, control_1983
- $P1984."handle_types"(57)
- push_eh $P1984
- .lex "self", self
- .lex "$/", param_1985
- find_lex $P1986, "$/"
- find_lex $P1987, "$/"
- unless_null $P1987, vivify_586
- $P1987 = root_new ['parrot';'Hash']
+.sub "number" :subid("108_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1971
+.annotate 'line', 724
+ new $P1970, 'ExceptionHandler'
+ set_addr $P1970, control_1969
+ $P1970."handle_types"(57)
+ push_eh $P1970
+ .lex "self", self
+ .lex "$/", param_1971
+.annotate 'line', 725
+ new $P1972, "Undef"
+ .lex "$value", $P1972
+ find_lex $P1975, "$/"
+ unless_null $P1975, vivify_581
+ $P1975 = root_new ['parrot';'Hash']
+ vivify_581:
+ set $P1976, $P1975["dec_number"]
+ unless_null $P1976, vivify_582
+ new $P1976, "Undef"
+ vivify_582:
+ if $P1976, if_1974
+ find_lex $P1980, "$/"
+ unless_null $P1980, vivify_583
+ $P1980 = root_new ['parrot';'Hash']
+ vivify_583:
+ set $P1981, $P1980["integer"]
+ unless_null $P1981, vivify_584
+ new $P1981, "Undef"
+ vivify_584:
+ $P1982 = $P1981."ast"()
+ set $P1973, $P1982
+ goto if_1974_end
+ if_1974:
+ find_lex $P1977, "$/"
+ unless_null $P1977, vivify_585
+ $P1977 = root_new ['parrot';'Hash']
+ vivify_585:
+ set $P1978, $P1977["dec_number"]
+ unless_null $P1978, vivify_586
+ new $P1978, "Undef"
vivify_586:
- set $P1988, $P1987["quote_EXPR"]
- unless_null $P1988, vivify_587
- new $P1988, "Undef"
+ $P1979 = $P1978."ast"()
+ set $P1973, $P1979
+ if_1974_end:
+ store_lex "$value", $P1973
+.annotate 'line', 726
+ find_lex $P1984, "$/"
+ unless_null $P1984, vivify_587
+ $P1984 = root_new ['parrot';'Hash']
vivify_587:
- $P1989 = $P1988."ast"()
- $P1990 = $P1986."!make"($P1989)
- .return ($P1990)
- control_1983:
+ set $P1985, $P1984["sign"]
+ unless_null $P1985, vivify_588
+ new $P1985, "Undef"
+ vivify_588:
+ set $S1986, $P1985
+ iseq $I1987, $S1986, "-"
+ unless $I1987, if_1983_end
+ find_lex $P1988, "$value"
+ neg $P1989, $P1988
+ store_lex "$value", $P1989
+ if_1983_end:
+.annotate 'line', 727
+ find_lex $P1990, "$/"
+ get_hll_global $P1991, ["PAST"], "Val"
+ find_lex $P1992, "$value"
+ $P1993 = $P1991."new"($P1992 :named("value"))
+ $P1994 = $P1990."!make"($P1993)
+.annotate 'line', 724
+ .return ($P1994)
+ control_1969:
.local pmc exception
.get_results (exception)
- getattribute $P1991, exception, "payload"
- .return ($P1991)
+ getattribute $P1995, exception, "payload"
+ .return ($P1995)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<dblq>" :subid("109_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_1995
-.annotate 'line', 722
- new $P1994, 'ExceptionHandler'
- set_addr $P1994, control_1993
- $P1994."handle_types"(57)
- push_eh $P1994
+.sub "quote:sym<apos>" :subid("109_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_1999
+.annotate 'line', 730
+ new $P1998, 'ExceptionHandler'
+ set_addr $P1998, control_1997
+ $P1998."handle_types"(57)
+ push_eh $P1998
.lex "self", self
- .lex "$/", param_1995
- find_lex $P1996, "$/"
- find_lex $P1997, "$/"
- unless_null $P1997, vivify_588
- $P1997 = root_new ['parrot';'Hash']
- vivify_588:
- set $P1998, $P1997["quote_EXPR"]
- unless_null $P1998, vivify_589
- new $P1998, "Undef"
+ .lex "$/", param_1999
+ find_lex $P2000, "$/"
+ find_lex $P2001, "$/"
+ unless_null $P2001, vivify_589
+ $P2001 = root_new ['parrot';'Hash']
vivify_589:
- $P1999 = $P1998."ast"()
- $P2000 = $P1996."!make"($P1999)
- .return ($P2000)
- control_1993:
+ set $P2002, $P2001["quote_EXPR"]
+ unless_null $P2002, vivify_590
+ new $P2002, "Undef"
+ vivify_590:
+ $P2003 = $P2002."ast"()
+ $P2004 = $P2000."!make"($P2003)
+ .return ($P2004)
+ control_1997:
.local pmc exception
.get_results (exception)
- getattribute $P2001, exception, "payload"
- .return ($P2001)
+ getattribute $P2005, exception, "payload"
+ .return ($P2005)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<qq>" :subid("110_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2005
-.annotate 'line', 723
- new $P2004, 'ExceptionHandler'
- set_addr $P2004, control_2003
- $P2004."handle_types"(57)
- push_eh $P2004
+.sub "quote:sym<dblq>" :subid("110_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2009
+.annotate 'line', 731
+ new $P2008, 'ExceptionHandler'
+ set_addr $P2008, control_2007
+ $P2008."handle_types"(57)
+ push_eh $P2008
.lex "self", self
- .lex "$/", param_2005
- find_lex $P2006, "$/"
- find_lex $P2007, "$/"
- unless_null $P2007, vivify_590
- $P2007 = root_new ['parrot';'Hash']
- vivify_590:
- set $P2008, $P2007["quote_EXPR"]
- unless_null $P2008, vivify_591
- new $P2008, "Undef"
+ .lex "$/", param_2009
+ find_lex $P2010, "$/"
+ find_lex $P2011, "$/"
+ unless_null $P2011, vivify_591
+ $P2011 = root_new ['parrot';'Hash']
vivify_591:
- $P2009 = $P2008."ast"()
- $P2010 = $P2006."!make"($P2009)
- .return ($P2010)
- control_2003:
+ set $P2012, $P2011["quote_EXPR"]
+ unless_null $P2012, vivify_592
+ new $P2012, "Undef"
+ vivify_592:
+ $P2013 = $P2012."ast"()
+ $P2014 = $P2010."!make"($P2013)
+ .return ($P2014)
+ control_2007:
.local pmc exception
.get_results (exception)
- getattribute $P2011, exception, "payload"
- .return ($P2011)
+ getattribute $P2015, exception, "payload"
+ .return ($P2015)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<q>" :subid("111_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2015
-.annotate 'line', 724
- new $P2014, 'ExceptionHandler'
- set_addr $P2014, control_2013
- $P2014."handle_types"(57)
- push_eh $P2014
- .lex "self", self
- .lex "$/", param_2015
- find_lex $P2016, "$/"
- find_lex $P2017, "$/"
- unless_null $P2017, vivify_592
- $P2017 = root_new ['parrot';'Hash']
- vivify_592:
- set $P2018, $P2017["quote_EXPR"]
- unless_null $P2018, vivify_593
- new $P2018, "Undef"
+.sub "quote:sym<qq>" :subid("111_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2019
+.annotate 'line', 732
+ new $P2018, 'ExceptionHandler'
+ set_addr $P2018, control_2017
+ $P2018."handle_types"(57)
+ push_eh $P2018
+ .lex "self", self
+ .lex "$/", param_2019
+ find_lex $P2020, "$/"
+ find_lex $P2021, "$/"
+ unless_null $P2021, vivify_593
+ $P2021 = root_new ['parrot';'Hash']
vivify_593:
- $P2019 = $P2018."ast"()
- $P2020 = $P2016."!make"($P2019)
- .return ($P2020)
- control_2013:
+ set $P2022, $P2021["quote_EXPR"]
+ unless_null $P2022, vivify_594
+ new $P2022, "Undef"
+ vivify_594:
+ $P2023 = $P2022."ast"()
+ $P2024 = $P2020."!make"($P2023)
+ .return ($P2024)
+ control_2017:
.local pmc exception
.get_results (exception)
- getattribute $P2021, exception, "payload"
- .return ($P2021)
+ getattribute $P2025, exception, "payload"
+ .return ($P2025)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<Q>" :subid("112_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2025
-.annotate 'line', 725
- new $P2024, 'ExceptionHandler'
- set_addr $P2024, control_2023
- $P2024."handle_types"(57)
- push_eh $P2024
- .lex "self", self
- .lex "$/", param_2025
- find_lex $P2026, "$/"
- find_lex $P2027, "$/"
- unless_null $P2027, vivify_594
- $P2027 = root_new ['parrot';'Hash']
- vivify_594:
- set $P2028, $P2027["quote_EXPR"]
- unless_null $P2028, vivify_595
- new $P2028, "Undef"
+.sub "quote:sym<q>" :subid("112_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2029
+.annotate 'line', 733
+ new $P2028, 'ExceptionHandler'
+ set_addr $P2028, control_2027
+ $P2028."handle_types"(57)
+ push_eh $P2028
+ .lex "self", self
+ .lex "$/", param_2029
+ find_lex $P2030, "$/"
+ find_lex $P2031, "$/"
+ unless_null $P2031, vivify_595
+ $P2031 = root_new ['parrot';'Hash']
vivify_595:
- $P2029 = $P2028."ast"()
- $P2030 = $P2026."!make"($P2029)
- .return ($P2030)
- control_2023:
+ set $P2032, $P2031["quote_EXPR"]
+ unless_null $P2032, vivify_596
+ new $P2032, "Undef"
+ vivify_596:
+ $P2033 = $P2032."ast"()
+ $P2034 = $P2030."!make"($P2033)
+ .return ($P2034)
+ control_2027:
.local pmc exception
.get_results (exception)
- getattribute $P2031, exception, "payload"
- .return ($P2031)
+ getattribute $P2035, exception, "payload"
+ .return ($P2035)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<Q:PIR>" :subid("113_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2035
-.annotate 'line', 726
- new $P2034, 'ExceptionHandler'
- set_addr $P2034, control_2033
- $P2034."handle_types"(57)
- push_eh $P2034
- .lex "self", self
- .lex "$/", param_2035
-.annotate 'line', 727
- find_lex $P2036, "$/"
- get_hll_global $P2037, ["PAST"], "Op"
- find_lex $P2038, "$/"
- unless_null $P2038, vivify_596
- $P2038 = root_new ['parrot';'Hash']
- vivify_596:
- set $P2039, $P2038["quote_EXPR"]
- unless_null $P2039, vivify_597
- new $P2039, "Undef"
+.sub "quote:sym<Q>" :subid("113_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2039
+.annotate 'line', 734
+ new $P2038, 'ExceptionHandler'
+ set_addr $P2038, control_2037
+ $P2038."handle_types"(57)
+ push_eh $P2038
+ .lex "self", self
+ .lex "$/", param_2039
+ find_lex $P2040, "$/"
+ find_lex $P2041, "$/"
+ unless_null $P2041, vivify_597
+ $P2041 = root_new ['parrot';'Hash']
vivify_597:
- $P2040 = $P2039."ast"()
- $P2041 = $P2040."value"()
- find_lex $P2042, "$/"
- $P2043 = $P2037."new"($P2041 :named("inline"), "inline" :named("pasttype"), $P2042 :named("node"))
- $P2044 = $P2036."!make"($P2043)
-.annotate 'line', 726
+ set $P2042, $P2041["quote_EXPR"]
+ unless_null $P2042, vivify_598
+ new $P2042, "Undef"
+ vivify_598:
+ $P2043 = $P2042."ast"()
+ $P2044 = $P2040."!make"($P2043)
.return ($P2044)
- control_2033:
+ control_2037:
.local pmc exception
.get_results (exception)
getattribute $P2045, exception, "payload"
@@ -23290,175 +23061,173 @@
.namespace ["NQP";"Actions"]
-.sub "quote:sym</ />" :subid("114_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "quote:sym<Q:PIR>" :subid("114_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_2049
- .param pmc param_2050 :optional
- .param int has_param_2050 :opt_flag
-.annotate 'line', 732
+.annotate 'line', 735
new $P2048, 'ExceptionHandler'
set_addr $P2048, control_2047
$P2048."handle_types"(57)
push_eh $P2048
.lex "self", self
.lex "$/", param_2049
- if has_param_2050, optparam_598
- new $P2051, "Undef"
- set param_2050, $P2051
- optparam_598:
- .lex "$key", param_2050
-.annotate 'line', 742
- new $P2052, "Undef"
- .lex "$regex", $P2052
-.annotate 'line', 744
+.annotate 'line', 736
+ find_lex $P2050, "$/"
+ get_hll_global $P2051, ["PAST"], "Op"
+ find_lex $P2052, "$/"
+ unless_null $P2052, vivify_599
+ $P2052 = root_new ['parrot';'Hash']
+ vivify_599:
+ set $P2053, $P2052["quote_EXPR"]
+ unless_null $P2053, vivify_600
new $P2053, "Undef"
- .lex "$past", $P2053
-.annotate 'line', 733
- find_lex $P2055, "$key"
- set $S2056, $P2055
- iseq $I2057, $S2056, "open"
- unless $I2057, if_2054_end
-.annotate 'line', 734
+ vivify_600:
+ $P2054 = $P2053."ast"()
+ $P2055 = $P2054."value"()
+ find_lex $P2056, "$/"
+ $P2057 = $P2051."new"($P2055 :named("inline"), "inline" :named("pasttype"), $P2056 :named("node"))
+ $P2058 = $P2050."!make"($P2057)
+.annotate 'line', 735
+ .return ($P2058)
+ control_2047:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2059, exception, "payload"
+ .return ($P2059)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "quote:sym</ />" :subid("115_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2063
+ .param pmc param_2064 :optional
+ .param int has_param_2064 :opt_flag
+.annotate 'line', 741
+ new $P2062, 'ExceptionHandler'
+ set_addr $P2062, control_2061
+ $P2062."handle_types"(57)
+ push_eh $P2062
+ .lex "self", self
+ .lex "$/", param_2063
+ if has_param_2064, optparam_601
+ new $P2065, "Undef"
+ set param_2064, $P2065
+ optparam_601:
+ .lex "$key", param_2064
+.annotate 'line', 751
+ new $P2066, "Undef"
+ .lex "$regex", $P2066
+.annotate 'line', 753
+ new $P2067, "Undef"
+ .lex "$past", $P2067
+.annotate 'line', 742
+ find_lex $P2069, "$key"
+ set $S2070, $P2069
+ iseq $I2071, $S2070, "open"
+ unless $I2071, if_2068_end
+.annotate 'line', 743
null $P0
set_hll_global ['Regex';'P6Regex';'Actions'], '$REGEXNAME', $P0
-.annotate 'line', 738
- get_global $P2058, "@BLOCK"
- unless_null $P2058, vivify_599
- $P2058 = root_new ['parrot';'ResizablePMCArray']
- vivify_599:
- set $P2059, $P2058[0]
- unless_null $P2059, vivify_600
- new $P2059, "Undef"
- vivify_600:
- $P2059."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
-.annotate 'line', 739
- get_global $P2060, "@BLOCK"
- unless_null $P2060, vivify_601
- $P2060 = root_new ['parrot';'ResizablePMCArray']
- vivify_601:
- set $P2061, $P2060[0]
- unless_null $P2061, vivify_602
- new $P2061, "Undef"
+.annotate 'line', 747
+ get_global $P2072, "@BLOCK"
+ unless_null $P2072, vivify_602
+ $P2072 = root_new ['parrot';'ResizablePMCArray']
vivify_602:
- $P2061."symbol"("$/", "lexical" :named("scope"))
-.annotate 'line', 740
- new $P2062, "Exception"
- set $P2062['type'], 57
- new $P2063, "Integer"
- assign $P2063, 0
- setattribute $P2062, 'payload', $P2063
- throw $P2062
- if_2054_end:
-.annotate 'line', 743
- get_hll_global $P2064, ["Regex";"P6Regex";"Actions"], "buildsub"
- find_lex $P2065, "$/"
- unless_null $P2065, vivify_603
- $P2065 = root_new ['parrot';'Hash']
+ set $P2073, $P2072[0]
+ unless_null $P2073, vivify_603
+ new $P2073, "Undef"
vivify_603:
- set $P2066, $P2065["p6regex"]
- unless_null $P2066, vivify_604
- new $P2066, "Undef"
+ $P2073."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
+.annotate 'line', 748
+ get_global $P2074, "@BLOCK"
+ unless_null $P2074, vivify_604
+ $P2074 = root_new ['parrot';'ResizablePMCArray']
vivify_604:
- $P2067 = $P2066."ast"()
- get_global $P2068, "@BLOCK"
- $P2069 = $P2068."shift"()
- $P2070 = $P2064($P2067, $P2069)
- store_lex "$regex", $P2070
-.annotate 'line', 745
- get_hll_global $P2071, ["PAST"], "Op"
-.annotate 'line', 747
- get_hll_global $P2072, ["PAST"], "Var"
- new $P2073, "ResizablePMCArray"
- push $P2073, "Regex"
- $P2074 = $P2072."new"("Regex" :named("name"), $P2073 :named("namespace"), "package" :named("scope"))
- find_lex $P2075, "$regex"
- $P2076 = $P2071."new"($P2074, $P2075, "callmethod" :named("pasttype"), "new" :named("name"))
-.annotate 'line', 745
- store_lex "$past", $P2076
-.annotate 'line', 751
- find_lex $P2077, "$regex"
- find_lex $P2078, "$past"
- unless_null $P2078, vivify_605
- $P2078 = root_new ['parrot';'Hash']
- store_lex "$past", $P2078
+ set $P2075, $P2074[0]
+ unless_null $P2075, vivify_605
+ new $P2075, "Undef"
vivify_605:
- set $P2078["sink"], $P2077
+ $P2075."symbol"("$/", "lexical" :named("scope"))
+.annotate 'line', 749
+ new $P2076, "Exception"
+ set $P2076['type'], 57
+ new $P2077, "Integer"
+ assign $P2077, 0
+ setattribute $P2076, 'payload', $P2077
+ throw $P2076
+ if_2068_end:
.annotate 'line', 752
+ get_hll_global $P2078, ["Regex";"P6Regex";"Actions"], "buildsub"
find_lex $P2079, "$/"
- find_lex $P2080, "$past"
- $P2081 = $P2079."!make"($P2080)
-.annotate 'line', 732
- .return ($P2081)
- control_2047:
- .local pmc exception
- .get_results (exception)
- getattribute $P2082, exception, "payload"
- .return ($P2082)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "quote_escape:sym<$>" :subid("115_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2086
-.annotate 'line', 755
- new $P2085, 'ExceptionHandler'
- set_addr $P2085, control_2084
- $P2085."handle_types"(57)
- push_eh $P2085
- .lex "self", self
- .lex "$/", param_2086
- find_lex $P2087, "$/"
- find_lex $P2088, "$/"
- unless_null $P2088, vivify_606
- $P2088 = root_new ['parrot';'Hash']
+ unless_null $P2079, vivify_606
+ $P2079 = root_new ['parrot';'Hash']
vivify_606:
- set $P2089, $P2088["variable"]
- unless_null $P2089, vivify_607
- new $P2089, "Undef"
+ set $P2080, $P2079["p6regex"]
+ unless_null $P2080, vivify_607
+ new $P2080, "Undef"
vivify_607:
- $P2090 = $P2089."ast"()
- $P2091 = $P2087."!make"($P2090)
- .return ($P2091)
- control_2084:
+ $P2081 = $P2080."ast"()
+ get_global $P2082, "@BLOCK"
+ $P2083 = $P2082."shift"()
+ $P2084 = $P2078($P2081, $P2083)
+ store_lex "$regex", $P2084
+.annotate 'line', 754
+ get_hll_global $P2085, ["PAST"], "Op"
+.annotate 'line', 756
+ get_hll_global $P2086, ["PAST"], "Var"
+ new $P2087, "ResizablePMCArray"
+ push $P2087, "Regex"
+ $P2088 = $P2086."new"("Regex" :named("name"), $P2087 :named("namespace"), "package" :named("scope"))
+ find_lex $P2089, "$regex"
+ $P2090 = $P2085."new"($P2088, $P2089, "callmethod" :named("pasttype"), "new" :named("name"))
+.annotate 'line', 754
+ store_lex "$past", $P2090
+.annotate 'line', 760
+ find_lex $P2091, "$regex"
+ find_lex $P2092, "$past"
+ unless_null $P2092, vivify_608
+ $P2092 = root_new ['parrot';'Hash']
+ store_lex "$past", $P2092
+ vivify_608:
+ set $P2092["sink"], $P2091
+.annotate 'line', 761
+ find_lex $P2093, "$/"
+ find_lex $P2094, "$past"
+ $P2095 = $P2093."!make"($P2094)
+.annotate 'line', 741
+ .return ($P2095)
+ control_2061:
.local pmc exception
.get_results (exception)
- getattribute $P2092, exception, "payload"
- .return ($P2092)
+ getattribute $P2096, exception, "payload"
+ .return ($P2096)
.end
.namespace ["NQP";"Actions"]
-.sub "quote_escape:sym<{ }>" :subid("116_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2096
-.annotate 'line', 756
- new $P2095, 'ExceptionHandler'
- set_addr $P2095, control_2094
- $P2095."handle_types"(57)
- push_eh $P2095
- .lex "self", self
- .lex "$/", param_2096
-.annotate 'line', 757
- find_lex $P2097, "$/"
- get_hll_global $P2098, ["PAST"], "Op"
-.annotate 'line', 758
- find_lex $P2099, "$/"
- unless_null $P2099, vivify_608
- $P2099 = root_new ['parrot';'Hash']
- vivify_608:
- set $P2100, $P2099["block"]
- unless_null $P2100, vivify_609
- new $P2100, "Undef"
+.sub "quote_escape:sym<$>" :subid("116_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2100
+.annotate 'line', 764
+ new $P2099, 'ExceptionHandler'
+ set_addr $P2099, control_2098
+ $P2099."handle_types"(57)
+ push_eh $P2099
+ .lex "self", self
+ .lex "$/", param_2100
+ find_lex $P2101, "$/"
+ find_lex $P2102, "$/"
+ unless_null $P2102, vivify_609
+ $P2102 = root_new ['parrot';'Hash']
vivify_609:
- $P2101 = $P2100."ast"()
- $P2102 = "block_immediate"($P2101)
- find_lex $P2103, "$/"
- $P2104 = $P2098."new"($P2102, "set S*" :named("pirop"), $P2103 :named("node"))
-.annotate 'line', 757
- $P2105 = $P2097."!make"($P2104)
-.annotate 'line', 756
+ set $P2103, $P2102["variable"]
+ unless_null $P2103, vivify_610
+ new $P2103, "Undef"
+ vivify_610:
+ $P2104 = $P2103."ast"()
+ $P2105 = $P2101."!make"($P2104)
.return ($P2105)
- control_2094:
+ control_2098:
.local pmc exception
.get_results (exception)
getattribute $P2106, exception, "payload"
@@ -23467,192 +23236,188 @@
.namespace ["NQP";"Actions"]
-.sub "quote_escape:sym<esc>" :subid("117_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "quote_escape:sym<{ }>" :subid("117_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_2110
-.annotate 'line', 761
+.annotate 'line', 765
new $P2109, 'ExceptionHandler'
set_addr $P2109, control_2108
$P2109."handle_types"(57)
push_eh $P2109
.lex "self", self
.lex "$/", param_2110
+.annotate 'line', 766
find_lex $P2111, "$/"
- $P2112 = $P2111."!make"("\e")
- .return ($P2112)
+ get_hll_global $P2112, ["PAST"], "Op"
+.annotate 'line', 767
+ find_lex $P2113, "$/"
+ unless_null $P2113, vivify_611
+ $P2113 = root_new ['parrot';'Hash']
+ vivify_611:
+ set $P2114, $P2113["block"]
+ unless_null $P2114, vivify_612
+ new $P2114, "Undef"
+ vivify_612:
+ $P2115 = $P2114."ast"()
+ $P2116 = "block_immediate"($P2115)
+ find_lex $P2117, "$/"
+ $P2118 = $P2112."new"($P2116, "set S*" :named("pirop"), $P2117 :named("node"))
+.annotate 'line', 766
+ $P2119 = $P2111."!make"($P2118)
+.annotate 'line', 765
+ .return ($P2119)
control_2108:
.local pmc exception
.get_results (exception)
- getattribute $P2113, exception, "payload"
- .return ($P2113)
+ getattribute $P2120, exception, "payload"
+ .return ($P2120)
.end
.namespace ["NQP";"Actions"]
-.sub "postfix:sym<.>" :subid("118_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2117
-.annotate 'line', 765
- new $P2116, 'ExceptionHandler'
- set_addr $P2116, control_2115
- $P2116."handle_types"(57)
- push_eh $P2116
- .lex "self", self
- .lex "$/", param_2117
- find_lex $P2118, "$/"
- find_lex $P2119, "$/"
- unless_null $P2119, vivify_610
- $P2119 = root_new ['parrot';'Hash']
- vivify_610:
- set $P2120, $P2119["dotty"]
- unless_null $P2120, vivify_611
- new $P2120, "Undef"
- vivify_611:
- $P2121 = $P2120."ast"()
- $P2122 = $P2118."!make"($P2121)
- .return ($P2122)
- control_2115:
+.sub "quote_escape:sym<esc>" :subid("118_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2124
+.annotate 'line', 770
+ new $P2123, 'ExceptionHandler'
+ set_addr $P2123, control_2122
+ $P2123."handle_types"(57)
+ push_eh $P2123
+ .lex "self", self
+ .lex "$/", param_2124
+ find_lex $P2125, "$/"
+ $P2126 = $P2125."!make"("\e")
+ .return ($P2126)
+ control_2122:
.local pmc exception
.get_results (exception)
- getattribute $P2123, exception, "payload"
- .return ($P2123)
+ getattribute $P2127, exception, "payload"
+ .return ($P2127)
.end
.namespace ["NQP";"Actions"]
-.sub "postfix:sym<++>" :subid("119_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2127
-.annotate 'line', 767
- new $P2126, 'ExceptionHandler'
- set_addr $P2126, control_2125
- $P2126."handle_types"(57)
- push_eh $P2126
- .lex "self", self
- .lex "$/", param_2127
-.annotate 'line', 768
- find_lex $P2128, "$/"
- get_hll_global $P2129, ["PAST"], "Op"
-.annotate 'line', 769
- new $P2130, "ResizablePMCArray"
- push $P2130, " clone %r, %0"
- push $P2130, " inc %0"
- $P2131 = $P2129."new"("postfix:<++>" :named("name"), $P2130 :named("inline"), "inline" :named("pasttype"))
-.annotate 'line', 768
- $P2132 = $P2128."!make"($P2131)
-.annotate 'line', 767
- .return ($P2132)
- control_2125:
+.sub "postfix:sym<.>" :subid("119_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2131
+.annotate 'line', 774
+ new $P2130, 'ExceptionHandler'
+ set_addr $P2130, control_2129
+ $P2130."handle_types"(57)
+ push_eh $P2130
+ .lex "self", self
+ .lex "$/", param_2131
+ find_lex $P2132, "$/"
+ find_lex $P2133, "$/"
+ unless_null $P2133, vivify_613
+ $P2133 = root_new ['parrot';'Hash']
+ vivify_613:
+ set $P2134, $P2133["dotty"]
+ unless_null $P2134, vivify_614
+ new $P2134, "Undef"
+ vivify_614:
+ $P2135 = $P2134."ast"()
+ $P2136 = $P2132."!make"($P2135)
+ .return ($P2136)
+ control_2129:
.local pmc exception
.get_results (exception)
- getattribute $P2133, exception, "payload"
- .return ($P2133)
+ getattribute $P2137, exception, "payload"
+ .return ($P2137)
.end
.namespace ["NQP";"Actions"]
-.sub "postfix:sym<-->" :subid("120_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2137
-.annotate 'line', 773
- new $P2136, 'ExceptionHandler'
- set_addr $P2136, control_2135
- $P2136."handle_types"(57)
- push_eh $P2136
+.sub "postfix:sym<++>" :subid("120_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2141
+.annotate 'line', 776
+ new $P2140, 'ExceptionHandler'
+ set_addr $P2140, control_2139
+ $P2140."handle_types"(57)
+ push_eh $P2140
.lex "self", self
- .lex "$/", param_2137
-.annotate 'line', 774
- find_lex $P2138, "$/"
- get_hll_global $P2139, ["PAST"], "Op"
-.annotate 'line', 775
- new $P2140, "ResizablePMCArray"
- push $P2140, " clone %r, %0"
- push $P2140, " dec %0"
- $P2141 = $P2139."new"("postfix:<-->" :named("name"), $P2140 :named("inline"), "inline" :named("pasttype"))
-.annotate 'line', 774
- $P2142 = $P2138."!make"($P2141)
-.annotate 'line', 773
- .return ($P2142)
- control_2135:
+ .lex "$/", param_2141
+.annotate 'line', 777
+ find_lex $P2142, "$/"
+ get_hll_global $P2143, ["PAST"], "Op"
+.annotate 'line', 778
+ new $P2144, "ResizablePMCArray"
+ push $P2144, " clone %r, %0"
+ push $P2144, " inc %0"
+ $P2145 = $P2143."new"("postfix:<++>" :named("name"), $P2144 :named("inline"), "inline" :named("pasttype"))
+.annotate 'line', 777
+ $P2146 = $P2142."!make"($P2145)
+.annotate 'line', 776
+ .return ($P2146)
+ control_2139:
.local pmc exception
.get_results (exception)
- getattribute $P2143, exception, "payload"
- .return ($P2143)
+ getattribute $P2147, exception, "payload"
+ .return ($P2147)
.end
.namespace ["NQP";"Actions"]
-.sub "prefix:sym<make>" :subid("121_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2147
-.annotate 'line', 779
- new $P2146, 'ExceptionHandler'
- set_addr $P2146, control_2145
- $P2146."handle_types"(57)
- push_eh $P2146
+.sub "postfix:sym<-->" :subid("121_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2151
+.annotate 'line', 782
+ new $P2150, 'ExceptionHandler'
+ set_addr $P2150, control_2149
+ $P2150."handle_types"(57)
+ push_eh $P2150
.lex "self", self
- .lex "$/", param_2147
-.annotate 'line', 780
- find_lex $P2148, "$/"
- get_hll_global $P2149, ["PAST"], "Op"
-.annotate 'line', 781
- get_hll_global $P2150, ["PAST"], "Var"
- $P2151 = $P2150."new"("$/" :named("name"), "contextual" :named("scope"))
+ .lex "$/", param_2151
+.annotate 'line', 783
find_lex $P2152, "$/"
- $P2153 = $P2149."new"($P2151, "callmethod" :named("pasttype"), "!make" :named("name"), $P2152 :named("node"))
-.annotate 'line', 780
- $P2154 = $P2148."!make"($P2153)
-.annotate 'line', 779
- .return ($P2154)
- control_2145:
+ get_hll_global $P2153, ["PAST"], "Op"
+.annotate 'line', 784
+ new $P2154, "ResizablePMCArray"
+ push $P2154, " clone %r, %0"
+ push $P2154, " dec %0"
+ $P2155 = $P2153."new"("postfix:<-->" :named("name"), $P2154 :named("inline"), "inline" :named("pasttype"))
+.annotate 'line', 783
+ $P2156 = $P2152."!make"($P2155)
+.annotate 'line', 782
+ .return ($P2156)
+ control_2149:
.local pmc exception
.get_results (exception)
- getattribute $P2155, exception, "payload"
- .return ($P2155)
+ getattribute $P2157, exception, "payload"
+ .return ($P2157)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<next>" :subid("122_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2160
-.annotate 'line', 801
- new $P2159, 'ExceptionHandler'
- set_addr $P2159, control_2158
- $P2159."handle_types"(57)
- push_eh $P2159
+.sub "prefix:sym<make>" :subid("122_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2161
+.annotate 'line', 788
+ new $P2160, 'ExceptionHandler'
+ set_addr $P2160, control_2159
+ $P2160."handle_types"(57)
+ push_eh $P2160
.lex "self", self
- .lex "$/", param_2160
- find_lex $P2161, "$/"
- $P2162 = "control"($P2161, ".CONTROL_LOOP_NEXT")
- .return ($P2162)
- control_2158:
+ .lex "$/", param_2161
+.annotate 'line', 789
+ find_lex $P2162, "$/"
+ get_hll_global $P2163, ["PAST"], "Op"
+.annotate 'line', 790
+ get_hll_global $P2164, ["PAST"], "Var"
+ $P2165 = $P2164."new"("$/" :named("name"), "contextual" :named("scope"))
+ find_lex $P2166, "$/"
+ $P2167 = $P2163."new"($P2165, "callmethod" :named("pasttype"), "!make" :named("name"), $P2166 :named("node"))
+.annotate 'line', 789
+ $P2168 = $P2162."!make"($P2167)
+.annotate 'line', 788
+ .return ($P2168)
+ control_2159:
.local pmc exception
.get_results (exception)
- getattribute $P2163, exception, "payload"
- .return ($P2163)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "term:sym<last>" :subid("123_1274564782.90592") :method :outer("11_1274564782.90592")
- .param pmc param_2167
-.annotate 'line', 802
- new $P2166, 'ExceptionHandler'
- set_addr $P2166, control_2165
- $P2166."handle_types"(57)
- push_eh $P2166
- .lex "self", self
- .lex "$/", param_2167
- find_lex $P2168, "$/"
- $P2169 = "control"($P2168, ".CONTROL_LOOP_LAST")
+ getattribute $P2169, exception, "payload"
.return ($P2169)
- control_2165:
- .local pmc exception
- .get_results (exception)
- getattribute $P2170, exception, "payload"
- .return ($P2170)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<redo>" :subid("124_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "term:sym<next>" :subid("123_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_2174
-.annotate 'line', 803
+.annotate 'line', 810
new $P2173, 'ExceptionHandler'
set_addr $P2173, control_2172
$P2173."handle_types"(57)
@@ -23660,7 +23425,7 @@
.lex "self", self
.lex "$/", param_2174
find_lex $P2175, "$/"
- $P2176 = "control"($P2175, ".CONTROL_LOOP_REDO")
+ $P2176 = "control"($P2175, ".CONTROL_LOOP_NEXT")
.return ($P2176)
control_2172:
.local pmc exception
@@ -23671,552 +23436,403 @@
.namespace ["NQP";"Actions"]
-.sub "infix:sym<~~>" :subid("125_1274564782.90592") :method :outer("11_1274564782.90592")
+.sub "term:sym<last>" :subid("124_1275117616.72633") :method :outer("11_1275117616.72633")
.param pmc param_2181
-.annotate 'line', 805
+.annotate 'line', 811
new $P2180, 'ExceptionHandler'
set_addr $P2180, control_2179
$P2180."handle_types"(57)
push_eh $P2180
.lex "self", self
.lex "$/", param_2181
-.annotate 'line', 806
find_lex $P2182, "$/"
- get_hll_global $P2183, ["PAST"], "Op"
- find_lex $P2184, "$/"
- $P2185 = $P2183."new"("callmethod" :named("pasttype"), "ACCEPTS" :named("name"), $P2184 :named("node"))
- $P2186 = $P2182."!make"($P2185)
-.annotate 'line', 805
- .return ($P2186)
+ $P2183 = "control"($P2182, ".CONTROL_LOOP_LAST")
+ .return ($P2183)
control_2179:
.local pmc exception
.get_results (exception)
- getattribute $P2187, exception, "payload"
- .return ($P2187)
-.end
-
-
-.namespace ["NQP";"RegexActions"]
-.sub "_block2188" :subid("126_1274564782.90592") :outer("11_1274564782.90592")
-.annotate 'line', 810
- .const 'Sub' $P2345 = "134_1274564782.90592"
- capture_lex $P2345
- .const 'Sub' $P2332 = "133_1274564782.90592"
- capture_lex $P2332
- .const 'Sub' $P2319 = "132_1274564782.90592"
- capture_lex $P2319
- .const 'Sub' $P2306 = "131_1274564782.90592"
- capture_lex $P2306
- .const 'Sub' $P2221 = "129_1274564782.90592"
- capture_lex $P2221
- .const 'Sub' $P2207 = "128_1274564782.90592"
- capture_lex $P2207
- .const 'Sub' $P2190 = "127_1274564782.90592"
- capture_lex $P2190
-.annotate 'line', 870
- .const 'Sub' $P2190 = "127_1274564782.90592"
- newclosure $P2206, $P2190
- .lex "bindmatch", $P2206
-.annotate 'line', 864
- find_lex $P2359, "bindmatch"
-.annotate 'line', 810
- .return ($P2359)
+ getattribute $P2184, exception, "payload"
+ .return ($P2184)
.end
-.namespace ["NQP";"RegexActions"]
-.sub "bindmatch" :subid("127_1274564782.90592") :outer("126_1274564782.90592")
- .param pmc param_2193
-.annotate 'line', 870
- new $P2192, 'ExceptionHandler'
- set_addr $P2192, control_2191
- $P2192."handle_types"(57)
- push_eh $P2192
- .lex "$past", param_2193
-.annotate 'line', 871
- get_hll_global $P2194, ["PAST"], "Stmts"
-.annotate 'line', 872
- get_hll_global $P2195, ["PAST"], "Op"
-.annotate 'line', 873
- get_hll_global $P2196, ["PAST"], "Var"
- $P2197 = $P2196."new"("$/" :named("name"))
-.annotate 'line', 874
- get_hll_global $P2198, ["PAST"], "Op"
-.annotate 'line', 875
- get_hll_global $P2199, ["PAST"], "Var"
- $P2200 = $P2199."new"(unicode:"$\x{a2}" :named("name"))
- $P2201 = $P2198."new"($P2200, "MATCH" :named("name"), "callmethod" :named("pasttype"))
-.annotate 'line', 874
- $P2202 = $P2195."new"($P2197, $P2201, "bind" :named("pasttype"))
-.annotate 'line', 872
- find_lex $P2203, "$past"
- $P2204 = $P2194."new"($P2202, $P2203)
-.annotate 'line', 870
- .return ($P2204)
- control_2191:
+.namespace ["NQP";"Actions"]
+.sub "term:sym<redo>" :subid("125_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2188
+.annotate 'line', 812
+ new $P2187, 'ExceptionHandler'
+ set_addr $P2187, control_2186
+ $P2187."handle_types"(57)
+ push_eh $P2187
+ .lex "self", self
+ .lex "$/", param_2188
+ find_lex $P2189, "$/"
+ $P2190 = "control"($P2189, ".CONTROL_LOOP_REDO")
+ .return ($P2190)
+ control_2186:
.local pmc exception
.get_results (exception)
- getattribute $P2205, exception, "payload"
- .return ($P2205)
+ getattribute $P2191, exception, "payload"
+ .return ($P2191)
.end
-.namespace ["NQP";"RegexActions"]
-.sub "metachar:sym<:my>" :subid("128_1274564782.90592") :method :outer("126_1274564782.90592")
- .param pmc param_2210
-.annotate 'line', 812
- new $P2209, 'ExceptionHandler'
- set_addr $P2209, control_2208
- $P2209."handle_types"(57)
- push_eh $P2209
- .lex "self", self
- .lex "$/", param_2210
-.annotate 'line', 813
- new $P2211, "Undef"
- .lex "$past", $P2211
- find_lex $P2212, "$/"
- unless_null $P2212, vivify_612
- $P2212 = root_new ['parrot';'Hash']
- vivify_612:
- set $P2213, $P2212["statement"]
- unless_null $P2213, vivify_613
- new $P2213, "Undef"
- vivify_613:
- $P2214 = $P2213."ast"()
- store_lex "$past", $P2214
+.namespace ["NQP";"Actions"]
+.sub "infix:sym<~~>" :subid("126_1275117616.72633") :method :outer("11_1275117616.72633")
+ .param pmc param_2195
.annotate 'line', 814
- find_lex $P2215, "$/"
- get_hll_global $P2216, ["PAST"], "Regex"
- find_lex $P2217, "$past"
- $P2218 = $P2216."new"($P2217, "pastnode" :named("pasttype"))
- $P2219 = $P2215."!make"($P2218)
-.annotate 'line', 812
- .return ($P2219)
- control_2208:
+ new $P2194, 'ExceptionHandler'
+ set_addr $P2194, control_2193
+ $P2194."handle_types"(57)
+ push_eh $P2194
+ .lex "self", self
+ .lex "$/", param_2195
+.annotate 'line', 815
+ find_lex $P2196, "$/"
+ get_hll_global $P2197, ["PAST"], "Op"
+ find_lex $P2198, "$/"
+ $P2199 = $P2197."new"("callmethod" :named("pasttype"), "ACCEPTS" :named("name"), $P2198 :named("node"))
+ $P2200 = $P2196."!make"($P2199)
+.annotate 'line', 814
+ .return ($P2200)
+ control_2193:
.local pmc exception
.get_results (exception)
- getattribute $P2220, exception, "payload"
- .return ($P2220)
+ getattribute $P2201, exception, "payload"
+ .return ($P2201)
.end
.namespace ["NQP";"RegexActions"]
-.sub "metachar:sym<var>" :subid("129_1274564782.90592") :method :outer("126_1274564782.90592")
- .param pmc param_2224
-.annotate 'line', 817
- .const 'Sub' $P2280 = "130_1274564782.90592"
- capture_lex $P2280
- new $P2223, 'ExceptionHandler'
- set_addr $P2223, control_2222
- $P2223."handle_types"(57)
- push_eh $P2223
- .lex "self", self
- .lex "$/", param_2224
-.annotate 'line', 818
- new $P2225, "Undef"
- .lex "$past", $P2225
+.sub "_block2202" :subid("127_1275117616.72633") :outer("11_1275117616.72633")
.annotate 'line', 819
- new $P2226, "Undef"
- .lex "$name", $P2226
-.annotate 'line', 817
- find_lex $P2227, "$past"
+ .const 'Sub' $P2287 = "134_1275117616.72633"
+ capture_lex $P2287
+ .const 'Sub' $P2274 = "133_1275117616.72633"
+ capture_lex $P2274
+ .const 'Sub' $P2257 = "132_1275117616.72633"
+ capture_lex $P2257
+ .const 'Sub' $P2244 = "131_1275117616.72633"
+ capture_lex $P2244
+ .const 'Sub' $P2231 = "130_1275117616.72633"
+ capture_lex $P2231
+ .const 'Sub' $P2218 = "129_1275117616.72633"
+ capture_lex $P2218
+ .const 'Sub' $P2204 = "128_1275117616.72633"
+ capture_lex $P2204
+.annotate 'line', 852
+ .const 'Sub' $P2287 = "134_1275117616.72633"
+ newclosure $P2312, $P2287
.annotate 'line', 819
- find_lex $P2230, "$/"
- unless_null $P2230, vivify_614
- $P2230 = root_new ['parrot';'Hash']
- vivify_614:
- set $P2231, $P2230["pos"]
- unless_null $P2231, vivify_615
- new $P2231, "Undef"
+ .return ($P2312)
+.end
+
+
+.namespace ["NQP";"RegexActions"]
+.sub "metachar:sym<:my>" :subid("128_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2207
+.annotate 'line', 821
+ new $P2206, 'ExceptionHandler'
+ set_addr $P2206, control_2205
+ $P2206."handle_types"(57)
+ push_eh $P2206
+ .lex "self", self
+ .lex "$/", param_2207
+.annotate 'line', 822
+ new $P2208, "Undef"
+ .lex "$past", $P2208
+ find_lex $P2209, "$/"
+ unless_null $P2209, vivify_615
+ $P2209 = root_new ['parrot';'Hash']
vivify_615:
- if $P2231, if_2229
- find_lex $P2235, "$/"
- unless_null $P2235, vivify_616
- $P2235 = root_new ['parrot';'Hash']
+ set $P2210, $P2209["statement"]
+ unless_null $P2210, vivify_616
+ new $P2210, "Undef"
vivify_616:
- set $P2236, $P2235["name"]
- unless_null $P2236, vivify_617
- new $P2236, "Undef"
+ $P2211 = $P2210."ast"()
+ store_lex "$past", $P2211
+.annotate 'line', 823
+ find_lex $P2212, "$/"
+ get_hll_global $P2213, ["PAST"], "Regex"
+ find_lex $P2214, "$past"
+ $P2215 = $P2213."new"($P2214, "pastnode" :named("pasttype"))
+ $P2216 = $P2212."!make"($P2215)
+.annotate 'line', 821
+ .return ($P2216)
+ control_2205:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2217, exception, "payload"
+ .return ($P2217)
+.end
+
+
+.namespace ["NQP";"RegexActions"]
+.sub "metachar:sym<{ }>" :subid("129_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2221
+.annotate 'line', 826
+ new $P2220, 'ExceptionHandler'
+ set_addr $P2220, control_2219
+ $P2220."handle_types"(57)
+ push_eh $P2220
+ .lex "self", self
+ .lex "$/", param_2221
+.annotate 'line', 827
+ find_lex $P2222, "$/"
+ get_hll_global $P2223, ["PAST"], "Regex"
+ find_lex $P2224, "$/"
+ unless_null $P2224, vivify_617
+ $P2224 = root_new ['parrot';'Hash']
vivify_617:
- set $S2237, $P2236
- new $P2228, 'String'
- set $P2228, $S2237
- goto if_2229_end
- if_2229:
- find_lex $P2232, "$/"
- unless_null $P2232, vivify_618
- $P2232 = root_new ['parrot';'Hash']
+ set $P2225, $P2224["codeblock"]
+ unless_null $P2225, vivify_618
+ new $P2225, "Undef"
vivify_618:
- set $P2233, $P2232["pos"]
- unless_null $P2233, vivify_619
- new $P2233, "Undef"
- vivify_619:
- set $N2234, $P2233
- new $P2228, 'Float'
- set $P2228, $N2234
- if_2229_end:
- store_lex "$name", $P2228
-.annotate 'line', 820
- find_lex $P2239, "$/"
- unless_null $P2239, vivify_620
- $P2239 = root_new ['parrot';'Hash']
- vivify_620:
- set $P2240, $P2239["quantified_atom"]
- unless_null $P2240, vivify_621
- new $P2240, "Undef"
- vivify_621:
- if $P2240, if_2238
-.annotate 'line', 834
- find_lex $P2277, "$/"
- unless_null $P2277, vivify_622
- $P2277 = root_new ['parrot';'Hash']
- vivify_622:
- set $P2278, $P2277["var"]
- unless_null $P2278, vivify_623
- new $P2278, "Undef"
- vivify_623:
- if $P2278, if_2276
-.annotate 'line', 842
- get_hll_global $P2298, ["PAST"], "Regex"
- find_lex $P2299, "$name"
- find_lex $P2300, "$/"
- $P2301 = $P2298."new"("!BACKREF", $P2299, "subrule" :named("pasttype"), "method" :named("subtype"), $P2300 :named("node"))
- store_lex "$past", $P2301
-.annotate 'line', 841
- goto if_2276_end
- if_2276:
-.annotate 'line', 834
- .const 'Sub' $P2280 = "130_1274564782.90592"
- capture_lex $P2280
- $P2280()
- if_2276_end:
-.annotate 'line', 833
- goto if_2238_end
- if_2238:
-.annotate 'line', 821
- find_lex $P2242, "$/"
- unless_null $P2242, vivify_629
- $P2242 = root_new ['parrot';'Hash']
- vivify_629:
- set $P2243, $P2242["var"]
- unless_null $P2243, vivify_630
- new $P2243, "Undef"
- vivify_630:
- unless $P2243, if_2241_end
-.annotate 'line', 822
- find_lex $P2244, "$/"
- $P2245 = $P2244."CURSOR"()
- $P2245."panic"("\"$var = \" syntax not yet supported in regexes")
- if_2241_end:
-.annotate 'line', 824
- find_lex $P2246, "$/"
- unless_null $P2246, vivify_631
- $P2246 = root_new ['parrot';'Hash']
- vivify_631:
- set $P2247, $P2246["quantified_atom"]
- unless_null $P2247, vivify_632
- $P2247 = root_new ['parrot';'ResizablePMCArray']
- vivify_632:
- set $P2248, $P2247[0]
- unless_null $P2248, vivify_633
- new $P2248, "Undef"
- vivify_633:
- $P2249 = $P2248."ast"()
- store_lex "$past", $P2249
-.annotate 'line', 825
- find_lex $P2253, "$past"
- $S2254 = $P2253."pasttype"()
- iseq $I2255, $S2254, "quant"
- if $I2255, if_2252
- new $P2251, 'Integer'
- set $P2251, $I2255
- goto if_2252_end
- if_2252:
- find_lex $P2256, "$past"
- unless_null $P2256, vivify_634
- $P2256 = root_new ['parrot';'ResizablePMCArray']
- vivify_634:
- set $P2257, $P2256[0]
- unless_null $P2257, vivify_635
- new $P2257, "Undef"
- vivify_635:
- $S2258 = $P2257."pasttype"()
- iseq $I2259, $S2258, "subrule"
- new $P2251, 'Integer'
- set $P2251, $I2259
- if_2252_end:
- if $P2251, if_2250
-.annotate 'line', 828
- find_lex $P2265, "$past"
- $S2266 = $P2265."pasttype"()
- iseq $I2267, $S2266, "subrule"
- if $I2267, if_2264
-.annotate 'line', 830
- get_hll_global $P2271, ["PAST"], "Regex"
- find_lex $P2272, "$past"
- find_lex $P2273, "$name"
- find_lex $P2274, "$/"
- $P2275 = $P2271."new"($P2272, $P2273 :named("name"), "subcapture" :named("pasttype"), $P2274 :named("node"))
- store_lex "$past", $P2275
-.annotate 'line', 829
- goto if_2264_end
- if_2264:
-.annotate 'line', 828
- get_hll_global $P2268, ["Regex";"P6Regex";"Actions"], "subrule_alias"
- find_lex $P2269, "$past"
- find_lex $P2270, "$name"
- $P2268($P2269, $P2270)
- if_2264_end:
- goto if_2250_end
- if_2250:
+ $P2226 = $P2225."ast"()
+ find_lex $P2227, "$/"
+ $P2228 = $P2223."new"($P2226, "pastnode" :named("pasttype"), $P2227 :named("node"))
+ $P2229 = $P2222."!make"($P2228)
.annotate 'line', 826
- get_hll_global $P2260, ["Regex";"P6Regex";"Actions"], "subrule_alias"
- find_lex $P2261, "$past"
- unless_null $P2261, vivify_636
- $P2261 = root_new ['parrot';'ResizablePMCArray']
- vivify_636:
- set $P2262, $P2261[0]
- unless_null $P2262, vivify_637
- new $P2262, "Undef"
- vivify_637:
- find_lex $P2263, "$name"
- $P2260($P2262, $P2263)
- if_2250_end:
- if_2238_end:
-.annotate 'line', 846
- find_lex $P2302, "$/"
- find_lex $P2303, "$past"
- $P2304 = $P2302."!make"($P2303)
-.annotate 'line', 817
- .return ($P2304)
- control_2222:
+ .return ($P2229)
+ control_2219:
.local pmc exception
.get_results (exception)
- getattribute $P2305, exception, "payload"
- .return ($P2305)
+ getattribute $P2230, exception, "payload"
+ .return ($P2230)
.end
.namespace ["NQP";"RegexActions"]
-.sub "_block2279" :anon :subid("130_1274564782.90592") :outer("129_1274564782.90592")
-.annotate 'line', 835
- $P2281 = root_new ['parrot';'ResizablePMCArray']
- .lex "@MODIFIERS", $P2281
-.annotate 'line', 838
- new $P2282, "Undef"
- .lex "$subtype", $P2282
-.annotate 'line', 835
-
- $P2283 = get_hll_global ['Regex';'P6Regex';'Actions'], '@MODIFIERS'
-
- store_lex "@MODIFIERS", $P2283
-.annotate 'line', 838
- find_lex $P2286, "@MODIFIERS"
- unless_null $P2286, vivify_624
- $P2286 = root_new ['parrot';'ResizablePMCArray']
- vivify_624:
- set $P2287, $P2286[0]
- unless_null $P2287, vivify_625
- $P2287 = root_new ['parrot';'Hash']
- vivify_625:
- set $P2288, $P2287["i"]
- unless_null $P2288, vivify_626
- new $P2288, "Undef"
- vivify_626:
- if $P2288, if_2285
- new $P2290, "String"
- assign $P2290, "interp_literal"
- set $P2284, $P2290
- goto if_2285_end
- if_2285:
- new $P2289, "String"
- assign $P2289, "interp_literal_i"
- set $P2284, $P2289
- if_2285_end:
- store_lex "$subtype", $P2284
-.annotate 'line', 839
- get_hll_global $P2291, ["PAST"], "Regex"
- find_lex $P2292, "$/"
- unless_null $P2292, vivify_627
- $P2292 = root_new ['parrot';'Hash']
- vivify_627:
- set $P2293, $P2292["var"]
- unless_null $P2293, vivify_628
- new $P2293, "Undef"
- vivify_628:
- $P2294 = $P2293."ast"()
- find_lex $P2295, "$subtype"
- find_lex $P2296, "$/"
- $P2297 = $P2291."new"($P2294, "pastnode" :named("pasttype"), $P2295 :named("subtype"), $P2296 :named("node"))
- store_lex "$past", $P2297
-.annotate 'line', 834
- .return ($P2297)
+.sub "metachar:sym<nqpvar>" :subid("130_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2234
+.annotate 'line', 831
+ new $P2233, 'ExceptionHandler'
+ set_addr $P2233, control_2232
+ $P2233."handle_types"(57)
+ push_eh $P2233
+ .lex "self", self
+ .lex "$/", param_2234
+.annotate 'line', 832
+ find_lex $P2235, "$/"
+ get_hll_global $P2236, ["PAST"], "Regex"
+ find_lex $P2237, "$/"
+ unless_null $P2237, vivify_619
+ $P2237 = root_new ['parrot';'Hash']
+ vivify_619:
+ set $P2238, $P2237["var"]
+ unless_null $P2238, vivify_620
+ new $P2238, "Undef"
+ vivify_620:
+ $P2239 = $P2238."ast"()
+ find_lex $P2240, "$/"
+ $P2241 = $P2236."new"("!INTERPOLATE", $P2239, "subrule" :named("pasttype"), "method" :named("subtype"), $P2240 :named("node"))
+ $P2242 = $P2235."!make"($P2241)
+.annotate 'line', 831
+ .return ($P2242)
+ control_2232:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2243, exception, "payload"
+ .return ($P2243)
.end
.namespace ["NQP";"RegexActions"]
-.sub "assertion:sym<var>" :subid("131_1274564782.90592") :method :outer("126_1274564782.90592")
- .param pmc param_2309
-.annotate 'line', 849
- new $P2308, 'ExceptionHandler'
- set_addr $P2308, control_2307
- $P2308."handle_types"(57)
- push_eh $P2308
- .lex "self", self
- .lex "$/", param_2309
-.annotate 'line', 850
- find_lex $P2310, "$/"
- get_hll_global $P2311, ["PAST"], "Regex"
- find_lex $P2312, "$/"
- unless_null $P2312, vivify_638
- $P2312 = root_new ['parrot';'Hash']
- vivify_638:
- set $P2313, $P2312["var"]
- unless_null $P2313, vivify_639
- new $P2313, "Undef"
- vivify_639:
- $P2314 = $P2313."ast"()
- find_lex $P2315, "$/"
- $P2316 = $P2311."new"($P2314, "pastnode" :named("pasttype"), "interp_regex" :named("subtype"), $P2315 :named("node"))
- $P2317 = $P2310."!make"($P2316)
-.annotate 'line', 849
- .return ($P2317)
- control_2307:
+.sub "assertion:sym<{ }>" :subid("131_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2247
+.annotate 'line', 836
+ new $P2246, 'ExceptionHandler'
+ set_addr $P2246, control_2245
+ $P2246."handle_types"(57)
+ push_eh $P2246
+ .lex "self", self
+ .lex "$/", param_2247
+.annotate 'line', 837
+ find_lex $P2248, "$/"
+ get_hll_global $P2249, ["PAST"], "Regex"
+ find_lex $P2250, "$/"
+ unless_null $P2250, vivify_621
+ $P2250 = root_new ['parrot';'Hash']
+ vivify_621:
+ set $P2251, $P2250["codeblock"]
+ unless_null $P2251, vivify_622
+ new $P2251, "Undef"
+ vivify_622:
+ $P2252 = $P2251."ast"()
+ find_lex $P2253, "$/"
+ $P2254 = $P2249."new"("!INTERPOLATE_REGEX", $P2252, "subrule" :named("pasttype"), "method" :named("subtype"), $P2253 :named("node"))
+ $P2255 = $P2248."!make"($P2254)
+.annotate 'line', 836
+ .return ($P2255)
+ control_2245:
.local pmc exception
.get_results (exception)
- getattribute $P2318, exception, "payload"
- .return ($P2318)
+ getattribute $P2256, exception, "payload"
+ .return ($P2256)
.end
.namespace ["NQP";"RegexActions"]
-.sub "metachar:sym<{ }>" :subid("132_1274564782.90592") :method :outer("126_1274564782.90592")
- .param pmc param_2322
-.annotate 'line', 855
- new $P2321, 'ExceptionHandler'
- set_addr $P2321, control_2320
- $P2321."handle_types"(57)
- push_eh $P2321
+.sub "assertion:sym<?{ }>" :subid("132_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2260
+.annotate 'line', 841
+ new $P2259, 'ExceptionHandler'
+ set_addr $P2259, control_2258
+ $P2259."handle_types"(57)
+ push_eh $P2259
.lex "self", self
- .lex "$/", param_2322
-.annotate 'line', 856
- find_lex $P2323, "$/"
- get_hll_global $P2324, ["PAST"], "Regex"
- find_lex $P2325, "$/"
- find_lex $P2326, "$/"
- unless_null $P2326, vivify_640
- $P2326 = root_new ['parrot';'Hash']
- vivify_640:
- set $P2327, $P2326["codeblock"]
- unless_null $P2327, vivify_641
- new $P2327, "Undef"
- vivify_641:
- $P2328 = $P2327."ast"()
- $P2329 = $P2324."new"($P2328, $P2325 :named("node"), "pastnode" :named("pasttype"))
- $P2330 = $P2323."!make"($P2329)
-.annotate 'line', 855
- .return ($P2330)
- control_2320:
+ .lex "$/", param_2260
+.annotate 'line', 842
+ find_lex $P2261, "$/"
+ get_hll_global $P2262, ["PAST"], "Regex"
+ find_lex $P2263, "$/"
+ unless_null $P2263, vivify_623
+ $P2263 = root_new ['parrot';'Hash']
+ vivify_623:
+ set $P2264, $P2263["codeblock"]
+ unless_null $P2264, vivify_624
+ new $P2264, "Undef"
+ vivify_624:
+ $P2265 = $P2264."ast"()
+.annotate 'line', 843
+ find_lex $P2266, "$/"
+ unless_null $P2266, vivify_625
+ $P2266 = root_new ['parrot';'Hash']
+ vivify_625:
+ set $P2267, $P2266["zw"]
+ unless_null $P2267, vivify_626
+ new $P2267, "Undef"
+ vivify_626:
+ set $S2268, $P2267
+ iseq $I2269, $S2268, "!"
+ find_lex $P2270, "$/"
+ $P2271 = $P2262."new"($P2265, "zerowidth" :named("subtype"), $I2269 :named("negate"), "pastnode" :named("pasttype"), $P2270 :named("node"))
+.annotate 'line', 842
+ $P2272 = $P2261."!make"($P2271)
+.annotate 'line', 841
+ .return ($P2272)
+ control_2258:
.local pmc exception
.get_results (exception)
- getattribute $P2331, exception, "payload"
- .return ($P2331)
+ getattribute $P2273, exception, "payload"
+ .return ($P2273)
.end
.namespace ["NQP";"RegexActions"]
-.sub "assertion:sym<{ }>" :subid("133_1274564782.90592") :method :outer("126_1274564782.90592")
- .param pmc param_2335
-.annotate 'line', 859
- new $P2334, 'ExceptionHandler'
- set_addr $P2334, control_2333
- $P2334."handle_types"(57)
- push_eh $P2334
- .lex "self", self
- .lex "$/", param_2335
-.annotate 'line', 860
- find_lex $P2336, "$/"
- get_hll_global $P2337, ["PAST"], "Regex"
- find_lex $P2338, "$/"
-.annotate 'line', 861
- find_lex $P2339, "$/"
- unless_null $P2339, vivify_642
- $P2339 = root_new ['parrot';'Hash']
- vivify_642:
- set $P2340, $P2339["codeblock"]
- unless_null $P2340, vivify_643
- new $P2340, "Undef"
- vivify_643:
- $P2341 = $P2340."ast"()
- $P2342 = $P2337."new"($P2341, $P2338 :named("node"), "pastnode" :named("pasttype"), "interp_regex" :named("subtype"))
-.annotate 'line', 860
- $P2343 = $P2336."!make"($P2342)
-.annotate 'line', 859
- .return ($P2343)
- control_2333:
+.sub "assertion:sym<var>" :subid("133_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2277
+.annotate 'line', 847
+ new $P2276, 'ExceptionHandler'
+ set_addr $P2276, control_2275
+ $P2276."handle_types"(57)
+ push_eh $P2276
+ .lex "self", self
+ .lex "$/", param_2277
+.annotate 'line', 848
+ find_lex $P2278, "$/"
+ get_hll_global $P2279, ["PAST"], "Regex"
+ find_lex $P2280, "$/"
+ unless_null $P2280, vivify_627
+ $P2280 = root_new ['parrot';'Hash']
+ vivify_627:
+ set $P2281, $P2280["var"]
+ unless_null $P2281, vivify_628
+ new $P2281, "Undef"
+ vivify_628:
+ $P2282 = $P2281."ast"()
+ find_lex $P2283, "$/"
+ $P2284 = $P2279."new"("!INTERPOLATE_REGEX", $P2282, "subrule" :named("pasttype"), "method" :named("subtype"), $P2283 :named("node"))
+ $P2285 = $P2278."!make"($P2284)
+.annotate 'line', 847
+ .return ($P2285)
+ control_2275:
.local pmc exception
.get_results (exception)
- getattribute $P2344, exception, "payload"
- .return ($P2344)
+ getattribute $P2286, exception, "payload"
+ .return ($P2286)
.end
.namespace ["NQP";"RegexActions"]
-.sub "codeblock" :subid("134_1274564782.90592") :method :outer("126_1274564782.90592")
- .param pmc param_2348
-.annotate 'line', 864
- new $P2347, 'ExceptionHandler'
- set_addr $P2347, control_2346
- $P2347."handle_types"(57)
- push_eh $P2347
- .lex "self", self
- .lex "$/", param_2348
-.annotate 'line', 865
- new $P2349, "Undef"
- .lex "$block", $P2349
- find_lex $P2350, "$/"
- unless_null $P2350, vivify_644
- $P2350 = root_new ['parrot';'Hash']
- vivify_644:
- set $P2351, $P2350["block"]
- unless_null $P2351, vivify_645
- new $P2351, "Undef"
- vivify_645:
- $P2352 = $P2351."ast"()
- store_lex "$block", $P2352
-.annotate 'line', 866
- find_lex $P2353, "$block"
- $P2353."blocktype"("immediate")
-.annotate 'line', 867
- find_lex $P2354, "$/"
- find_lex $P2355, "$block"
- $P2356 = "bindmatch"($P2355)
- $P2357 = $P2354."!make"($P2356)
-.annotate 'line', 864
- .return ($P2357)
- control_2346:
+.sub "codeblock" :subid("134_1275117616.72633") :method :outer("127_1275117616.72633")
+ .param pmc param_2290
+.annotate 'line', 852
+ new $P2289, 'ExceptionHandler'
+ set_addr $P2289, control_2288
+ $P2289."handle_types"(57)
+ push_eh $P2289
+ .lex "self", self
+ .lex "$/", param_2290
+.annotate 'line', 853
+ new $P2291, "Undef"
+ .lex "$block", $P2291
+.annotate 'line', 855
+ new $P2292, "Undef"
+ .lex "$past", $P2292
+.annotate 'line', 853
+ find_lex $P2293, "$/"
+ unless_null $P2293, vivify_629
+ $P2293 = root_new ['parrot';'Hash']
+ vivify_629:
+ set $P2294, $P2293["block"]
+ unless_null $P2294, vivify_630
+ new $P2294, "Undef"
+ vivify_630:
+ $P2295 = $P2294."ast"()
+ store_lex "$block", $P2295
+.annotate 'line', 854
+ find_lex $P2296, "$block"
+ $P2296."blocktype"("immediate")
+.annotate 'line', 856
+ get_hll_global $P2297, ["PAST"], "Stmts"
+.annotate 'line', 857
+ get_hll_global $P2298, ["PAST"], "Op"
+.annotate 'line', 858
+ get_hll_global $P2299, ["PAST"], "Var"
+ $P2300 = $P2299."new"("$/" :named("name"))
+.annotate 'line', 859
+ get_hll_global $P2301, ["PAST"], "Op"
+.annotate 'line', 860
+ get_hll_global $P2302, ["PAST"], "Var"
+ $P2303 = $P2302."new"(unicode:"$\x{a2}" :named("name"))
+ $P2304 = $P2301."new"($P2303, "MATCH" :named("name"), "callmethod" :named("pasttype"))
+.annotate 'line', 859
+ $P2305 = $P2298."new"($P2300, $P2304, "bind" :named("pasttype"))
+.annotate 'line', 857
+ find_lex $P2306, "$block"
+ $P2307 = $P2297."new"($P2305, $P2306)
+.annotate 'line', 856
+ store_lex "$past", $P2307
+.annotate 'line', 868
+ find_lex $P2308, "$/"
+ find_lex $P2309, "$past"
+ $P2310 = $P2308."!make"($P2309)
+.annotate 'line', 852
+ .return ($P2310)
+ control_2288:
.local pmc exception
.get_results (exception)
- getattribute $P2358, exception, "payload"
- .return ($P2358)
+ getattribute $P2311, exception, "payload"
+ .return ($P2311)
.end
.namespace ["NQP";"Actions"]
-.sub "_block2361" :load :anon :subid("135_1274564782.90592")
+.sub "_block2314" :load :anon :subid("135_1275117616.72633")
.annotate 'line', 3
- .const 'Sub' $P2363 = "11_1274564782.90592"
- $P2364 = $P2363()
- .return ($P2364)
+ .const 'Sub' $P2316 = "11_1275117616.72633"
+ $P2317 = $P2316()
+ .return ($P2317)
.end
.namespace []
-.sub "_block2371" :load :anon :subid("137_1274564782.90592")
+.sub "_block2324" :load :anon :subid("137_1275117616.72633")
.annotate 'line', 1
- .const 'Sub' $P2373 = "10_1274564782.90592"
- $P2374 = $P2373()
- .return ($P2374)
+ .const 'Sub' $P2326 = "10_1275117616.72633"
+ $P2327 = $P2326()
+ .return ($P2327)
.end
### .include 'src/cheats/nqp-builtins.pir'
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/P6Regex-s0.pir
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/P6Regex-s0.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/P6Regex-s0.pir Sat May 29 11:56:49 2010 (r47109)
@@ -16,25 +16,32 @@
### .include 'gen/p6regex-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564774.16047")
+.sub "_block11" :anon :subid("10_1275117582.32416")
.annotate 'line', 0
get_hll_global $P14, ["Regex";"P6Regex";"Grammar"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 3
get_hll_global $P14, ["Regex";"P6Regex";"Grammar"], "_block13"
capture_lex $P14
$P583 = $P14()
.annotate 'line', 1
.return ($P583)
- .const 'Sub' $P585 = "159_1274564774.16047"
+ .const 'Sub' $P585 = "159_1275117582.32416"
.return ($P585)
.end
.namespace []
-.sub "" :load :init :subid("post160") :outer("10_1274564774.16047")
+.sub "" :load :init :subid("post160") :outer("10_1275117582.32416")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564774.16047"
+ .const 'Sub' $P12 = "10_1275117582.32416"
.local pmc block
set block, $P12
$P588 = get_root_global ["parrot"], "P6metaclass"
@@ -43,142 +50,148 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block13" :subid("11_1274564774.16047") :outer("10_1274564774.16047")
+.sub "_block13" :subid("11_1275117582.32416") :outer("10_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P571 = "156_1274564774.16047"
+ .const 'Sub' $P571 = "156_1275117582.32416"
capture_lex $P571
- .const 'Sub' $P563 = "154_1274564774.16047"
+ .const 'Sub' $P563 = "154_1275117582.32416"
capture_lex $P563
- .const 'Sub' $P555 = "152_1274564774.16047"
+ .const 'Sub' $P555 = "152_1275117582.32416"
capture_lex $P555
- .const 'Sub' $P534 = "147_1274564774.16047"
+ .const 'Sub' $P534 = "147_1275117582.32416"
capture_lex $P534
- .const 'Sub' $P499 = "141_1274564774.16047"
+ .const 'Sub' $P499 = "141_1275117582.32416"
capture_lex $P499
- .const 'Sub' $P487 = "138_1274564774.16047"
+ .const 'Sub' $P487 = "138_1275117582.32416"
capture_lex $P487
- .const 'Sub' $P474 = "135_1274564774.16047"
+ .const 'Sub' $P474 = "135_1275117582.32416"
capture_lex $P474
- .const 'Sub' $P468 = "133_1274564774.16047"
+ .const 'Sub' $P468 = "133_1275117582.32416"
capture_lex $P468
- .const 'Sub' $P457 = "130_1274564774.16047"
+ .const 'Sub' $P457 = "130_1275117582.32416"
capture_lex $P457
- .const 'Sub' $P446 = "127_1274564774.16047"
+ .const 'Sub' $P446 = "127_1275117582.32416"
capture_lex $P446
- .const 'Sub' $P437 = "123_1274564774.16047"
+ .const 'Sub' $P437 = "123_1275117582.32416"
capture_lex $P437
- .const 'Sub' $P431 = "121_1274564774.16047"
+ .const 'Sub' $P431 = "121_1275117582.32416"
capture_lex $P431
- .const 'Sub' $P425 = "119_1274564774.16047"
+ .const 'Sub' $P425 = "119_1275117582.32416"
capture_lex $P425
- .const 'Sub' $P419 = "117_1274564774.16047"
+ .const 'Sub' $P419 = "117_1275117582.32416"
capture_lex $P419
- .const 'Sub' $P413 = "115_1274564774.16047"
+ .const 'Sub' $P413 = "115_1275117582.32416"
capture_lex $P413
- .const 'Sub' $P405 = "113_1274564774.16047"
+ .const 'Sub' $P405 = "113_1275117582.32416"
capture_lex $P405
- .const 'Sub' $P394 = "111_1274564774.16047"
+ .const 'Sub' $P394 = "111_1275117582.32416"
capture_lex $P394
- .const 'Sub' $P383 = "109_1274564774.16047"
+ .const 'Sub' $P383 = "109_1275117582.32416"
capture_lex $P383
- .const 'Sub' $P377 = "107_1274564774.16047"
+ .const 'Sub' $P377 = "107_1275117582.32416"
capture_lex $P377
- .const 'Sub' $P371 = "105_1274564774.16047"
+ .const 'Sub' $P371 = "105_1275117582.32416"
capture_lex $P371
- .const 'Sub' $P365 = "103_1274564774.16047"
+ .const 'Sub' $P365 = "103_1275117582.32416"
capture_lex $P365
- .const 'Sub' $P359 = "101_1274564774.16047"
+ .const 'Sub' $P359 = "101_1275117582.32416"
capture_lex $P359
- .const 'Sub' $P353 = "99_1274564774.16047"
+ .const 'Sub' $P353 = "99_1275117582.32416"
capture_lex $P353
- .const 'Sub' $P347 = "97_1274564774.16047"
+ .const 'Sub' $P347 = "97_1275117582.32416"
capture_lex $P347
- .const 'Sub' $P341 = "95_1274564774.16047"
+ .const 'Sub' $P341 = "95_1275117582.32416"
capture_lex $P341
- .const 'Sub' $P335 = "93_1274564774.16047"
+ .const 'Sub' $P335 = "93_1275117582.32416"
capture_lex $P335
- .const 'Sub' $P323 = "89_1274564774.16047"
+ .const 'Sub' $P323 = "89_1275117582.32416"
capture_lex $P323
- .const 'Sub' $P311 = "87_1274564774.16047"
+ .const 'Sub' $P311 = "87_1275117582.32416"
capture_lex $P311
- .const 'Sub' $P304 = "85_1274564774.16047"
+ .const 'Sub' $P304 = "85_1275117582.32416"
capture_lex $P304
- .const 'Sub' $P287 = "83_1274564774.16047"
+ .const 'Sub' $P287 = "83_1275117582.32416"
capture_lex $P287
- .const 'Sub' $P280 = "81_1274564774.16047"
+ .const 'Sub' $P280 = "81_1275117582.32416"
capture_lex $P280
- .const 'Sub' $P274 = "79_1274564774.16047"
+ .const 'Sub' $P274 = "79_1275117582.32416"
capture_lex $P274
- .const 'Sub' $P268 = "77_1274564774.16047"
+ .const 'Sub' $P268 = "77_1275117582.32416"
capture_lex $P268
- .const 'Sub' $P261 = "75_1274564774.16047"
+ .const 'Sub' $P261 = "75_1275117582.32416"
capture_lex $P261
- .const 'Sub' $P254 = "73_1274564774.16047"
+ .const 'Sub' $P254 = "73_1275117582.32416"
capture_lex $P254
- .const 'Sub' $P247 = "71_1274564774.16047"
+ .const 'Sub' $P247 = "71_1275117582.32416"
capture_lex $P247
- .const 'Sub' $P240 = "69_1274564774.16047"
+ .const 'Sub' $P240 = "69_1275117582.32416"
capture_lex $P240
- .const 'Sub' $P234 = "67_1274564774.16047"
+ .const 'Sub' $P234 = "67_1275117582.32416"
capture_lex $P234
- .const 'Sub' $P228 = "65_1274564774.16047"
+ .const 'Sub' $P228 = "65_1275117582.32416"
capture_lex $P228
- .const 'Sub' $P222 = "63_1274564774.16047"
+ .const 'Sub' $P222 = "63_1275117582.32416"
capture_lex $P222
- .const 'Sub' $P216 = "61_1274564774.16047"
+ .const 'Sub' $P216 = "61_1275117582.32416"
capture_lex $P216
- .const 'Sub' $P210 = "59_1274564774.16047"
+ .const 'Sub' $P210 = "59_1275117582.32416"
capture_lex $P210
- .const 'Sub' $P205 = "57_1274564774.16047"
+ .const 'Sub' $P205 = "57_1275117582.32416"
capture_lex $P205
- .const 'Sub' $P200 = "55_1274564774.16047"
+ .const 'Sub' $P200 = "55_1275117582.32416"
capture_lex $P200
- .const 'Sub' $P194 = "53_1274564774.16047"
+ .const 'Sub' $P194 = "53_1275117582.32416"
capture_lex $P194
- .const 'Sub' $P188 = "51_1274564774.16047"
+ .const 'Sub' $P188 = "51_1275117582.32416"
capture_lex $P188
- .const 'Sub' $P182 = "49_1274564774.16047"
+ .const 'Sub' $P182 = "49_1275117582.32416"
capture_lex $P182
- .const 'Sub' $P166 = "44_1274564774.16047"
+ .const 'Sub' $P166 = "44_1275117582.32416"
capture_lex $P166
- .const 'Sub' $P154 = "42_1274564774.16047"
+ .const 'Sub' $P154 = "42_1275117582.32416"
capture_lex $P154
- .const 'Sub' $P147 = "40_1274564774.16047"
+ .const 'Sub' $P147 = "40_1275117582.32416"
capture_lex $P147
- .const 'Sub' $P140 = "38_1274564774.16047"
+ .const 'Sub' $P140 = "38_1275117582.32416"
capture_lex $P140
- .const 'Sub' $P133 = "36_1274564774.16047"
+ .const 'Sub' $P133 = "36_1275117582.32416"
capture_lex $P133
- .const 'Sub' $P114 = "31_1274564774.16047"
+ .const 'Sub' $P114 = "31_1275117582.32416"
capture_lex $P114
- .const 'Sub' $P101 = "28_1274564774.16047"
+ .const 'Sub' $P101 = "28_1275117582.32416"
capture_lex $P101
- .const 'Sub' $P94 = "26_1274564774.16047"
+ .const 'Sub' $P94 = "26_1275117582.32416"
capture_lex $P94
- .const 'Sub' $P82 = "24_1274564774.16047"
+ .const 'Sub' $P82 = "24_1275117582.32416"
capture_lex $P82
- .const 'Sub' $P75 = "22_1274564774.16047"
+ .const 'Sub' $P75 = "22_1275117582.32416"
capture_lex $P75
- .const 'Sub' $P63 = "20_1274564774.16047"
+ .const 'Sub' $P63 = "20_1275117582.32416"
capture_lex $P63
- .const 'Sub' $P56 = "18_1274564774.16047"
+ .const 'Sub' $P56 = "18_1275117582.32416"
capture_lex $P56
- .const 'Sub' $P46 = "15_1274564774.16047"
+ .const 'Sub' $P46 = "15_1275117582.32416"
capture_lex $P46
- .const 'Sub' $P38 = "13_1274564774.16047"
+ .const 'Sub' $P38 = "13_1275117582.32416"
capture_lex $P38
- .const 'Sub' $P15 = "12_1274564774.16047"
+ .const 'Sub' $P15 = "12_1275117582.32416"
capture_lex $P15
- .const 'Sub' $P571 = "156_1274564774.16047"
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
+ .const 'Sub' $P571 = "156_1275117582.32416"
capture_lex $P571
.return ($P571)
- .const 'Sub' $P580 = "158_1274564774.16047"
+ .const 'Sub' $P580 = "158_1275117582.32416"
.return ($P580)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "obs" :subid("12_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "obs" :subid("12_1275117582.32416") :method :outer("11_1275117582.32416")
.param pmc param_18
.param pmc param_19
.param pmc param_20 :optional
@@ -226,7 +239,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "ws" :subid("13_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "ws" :subid("13_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx39_tgt
.local int rx39_pos
@@ -308,7 +321,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__ws" :subid("14_1274564774.16047") :method
+.sub "!PREFIX__ws" :subid("14_1275117582.32416") :method
.annotate 'line', 3
new $P41, "ResizablePMCArray"
push $P41, ""
@@ -317,9 +330,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "normspace" :subid("15_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "normspace" :subid("15_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P52 = "17_1274564774.16047"
+ .const 'Sub' $P52 = "17_1275117582.32416"
capture_lex $P52
.local string rx47_tgt
.local int rx47_pos
@@ -353,7 +366,7 @@
.annotate 'line', 10
# rx subrule "before" subtype=zerowidth negate=
rx47_cur."!cursor_pos"(rx47_pos)
- .const 'Sub' $P52 = "17_1274564774.16047"
+ .const 'Sub' $P52 = "17_1275117582.32416"
capture_lex $P52
$P10 = rx47_cur."before"($P52)
unless $P10, rx47_fail
@@ -381,7 +394,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__normspace" :subid("16_1274564774.16047") :method
+.sub "!PREFIX__normspace" :subid("16_1275117582.32416") :method
.annotate 'line', 3
new $P49, "ResizablePMCArray"
push $P49, ""
@@ -390,7 +403,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block51" :anon :subid("17_1274564774.16047") :method :outer("15_1274564774.16047")
+.sub "_block51" :anon :subid("17_1275117582.32416") :method :outer("15_1275117582.32416")
.annotate 'line', 10
.local string rx53_tgt
.local int rx53_pos
@@ -458,7 +471,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "arg" :subid("18_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "arg" :subid("18_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx57_tgt
.local int rx57_pos
@@ -569,7 +582,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__arg" :subid("19_1274564774.16047") :method
+.sub "!PREFIX__arg" :subid("19_1275117582.32416") :method
.annotate 'line', 3
new $P59, "ResizablePMCArray"
push $P59, ""
@@ -580,7 +593,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "arglist" :subid("20_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "arglist" :subid("20_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx64_tgt
.local int rx64_pos
@@ -686,7 +699,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__arglist" :subid("21_1274564774.16047") :method
+.sub "!PREFIX__arglist" :subid("21_1275117582.32416") :method
.annotate 'line', 3
new $P66, "ResizablePMCArray"
push $P66, ""
@@ -695,7 +708,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "TOP" :subid("22_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "TOP" :subid("22_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx76_tgt
.local int rx76_pos
@@ -768,7 +781,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__TOP" :subid("23_1274564774.16047") :method
+.sub "!PREFIX__TOP" :subid("23_1275117582.32416") :method
.annotate 'line', 3
$P78 = self."!PREFIX__!subrule"("nibbler", "")
new $P79, "ResizablePMCArray"
@@ -778,7 +791,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "nibbler" :subid("24_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "nibbler" :subid("24_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx83_tgt
.local int rx83_pos
@@ -946,7 +959,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__nibbler" :subid("25_1274564774.16047") :method
+.sub "!PREFIX__nibbler" :subid("25_1275117582.32416") :method
.annotate 'line', 3
new $P85, "ResizablePMCArray"
push $P85, ""
@@ -955,7 +968,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "termish" :subid("26_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "termish" :subid("26_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx95_tgt
.local int rx95_pos
@@ -1023,7 +1036,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__termish" :subid("27_1274564774.16047") :method
+.sub "!PREFIX__termish" :subid("27_1275117582.32416") :method
.annotate 'line', 3
new $P97, "ResizablePMCArray"
push $P97, ""
@@ -1032,9 +1045,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantified_atom" :subid("28_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "quantified_atom" :subid("28_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P110 = "30_1274564774.16047"
+ .const 'Sub' $P110 = "30_1275117582.32416"
capture_lex $P110
.local string rx102_tgt
.local int rx102_pos
@@ -1097,7 +1110,7 @@
alt108_1:
# rx subrule "before" subtype=zerowidth negate=
rx102_cur."!cursor_pos"(rx102_pos)
- .const 'Sub' $P110 = "30_1274564774.16047"
+ .const 'Sub' $P110 = "30_1275117582.32416"
capture_lex $P110
$P10 = rx102_cur."before"($P110)
unless $P10, rx102_fail
@@ -1135,7 +1148,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantified_atom" :subid("29_1274564774.16047") :method
+.sub "!PREFIX__quantified_atom" :subid("29_1275117582.32416") :method
.annotate 'line', 3
$P104 = self."!PREFIX__!subrule"("atom", "")
new $P105, "ResizablePMCArray"
@@ -1145,7 +1158,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block109" :anon :subid("30_1274564774.16047") :method :outer("28_1274564774.16047")
+.sub "_block109" :anon :subid("30_1275117582.32416") :method :outer("28_1275117582.32416")
.annotate 'line', 41
.local string rx111_tgt
.local int rx111_pos
@@ -1201,9 +1214,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "atom" :subid("31_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "atom" :subid("31_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P125 = "33_1274564774.16047"
+ .const 'Sub' $P125 = "33_1275117582.32416"
capture_lex $P125
.local string rx115_tgt
.local int rx115_pos
@@ -1263,7 +1276,7 @@
rxquantg122_done:
# rx subrule "before" subtype=zerowidth negate=
rx115_cur."!cursor_pos"(rx115_pos)
- .const 'Sub' $P125 = "33_1274564774.16047"
+ .const 'Sub' $P125 = "33_1275117582.32416"
capture_lex $P125
$P10 = rx115_cur."before"($P125)
unless $P10, rx115_fail
@@ -1300,7 +1313,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__atom" :subid("32_1274564774.16047") :method
+.sub "!PREFIX__atom" :subid("32_1275117582.32416") :method
.annotate 'line', 3
$P117 = self."!PREFIX__!subrule"("metachar", "")
new $P118, "ResizablePMCArray"
@@ -1311,7 +1324,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block124" :anon :subid("33_1274564774.16047") :method :outer("31_1274564774.16047")
+.sub "_block124" :anon :subid("33_1275117582.32416") :method :outer("31_1275117582.32416")
.annotate 'line', 47
.local string rx126_tgt
.local int rx126_pos
@@ -1366,7 +1379,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier" :subid("34_1274564774.16047") :method
+.sub "quantifier" :subid("34_1275117582.32416") :method
.annotate 'line', 52
$P130 = self."!protoregex"("quantifier")
.return ($P130)
@@ -1374,7 +1387,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier" :subid("35_1274564774.16047") :method
+.sub "!PREFIX__quantifier" :subid("35_1275117582.32416") :method
.annotate 'line', 52
$P132 = self."!PREFIX__!protoregex"("quantifier")
.return ($P132)
@@ -1382,7 +1395,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<*>" :subid("36_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "quantifier:sym<*>" :subid("36_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx134_tgt
.local int rx134_pos
@@ -1461,7 +1474,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<*>" :subid("37_1274564774.16047") :method
+.sub "!PREFIX__quantifier:sym<*>" :subid("37_1275117582.32416") :method
.annotate 'line', 3
$P136 = self."!PREFIX__!subrule"("backmod", "*")
new $P137, "ResizablePMCArray"
@@ -1471,7 +1484,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<+>" :subid("38_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "quantifier:sym<+>" :subid("38_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx141_tgt
.local int rx141_pos
@@ -1550,7 +1563,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<+>" :subid("39_1274564774.16047") :method
+.sub "!PREFIX__quantifier:sym<+>" :subid("39_1275117582.32416") :method
.annotate 'line', 3
$P143 = self."!PREFIX__!subrule"("backmod", "+")
new $P144, "ResizablePMCArray"
@@ -1560,7 +1573,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<?>" :subid("40_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "quantifier:sym<?>" :subid("40_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx148_tgt
.local int rx148_pos
@@ -1639,7 +1652,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<?>" :subid("41_1274564774.16047") :method
+.sub "!PREFIX__quantifier:sym<?>" :subid("41_1275117582.32416") :method
.annotate 'line', 3
$P150 = self."!PREFIX__!subrule"("backmod", "?")
new $P151, "ResizablePMCArray"
@@ -1649,7 +1662,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<**>" :subid("42_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "quantifier:sym<**>" :subid("42_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx155_tgt
.local int rx155_pos
@@ -1838,7 +1851,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<**>" :subid("43_1274564774.16047") :method
+.sub "!PREFIX__quantifier:sym<**>" :subid("43_1275117582.32416") :method
.annotate 'line', 3
new $P157, "ResizablePMCArray"
push $P157, "**"
@@ -1847,9 +1860,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backmod" :subid("44_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backmod" :subid("44_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P175 = "46_1274564774.16047"
+ .const 'Sub' $P175 = "46_1275117582.32416"
capture_lex $P175
.local string rx167_tgt
.local int rx167_pos
@@ -1919,7 +1932,7 @@
alt173_2:
# rx subrule "before" subtype=zerowidth negate=1
rx167_cur."!cursor_pos"(rx167_pos)
- .const 'Sub' $P175 = "46_1274564774.16047"
+ .const 'Sub' $P175 = "46_1275117582.32416"
capture_lex $P175
$P10 = rx167_cur."before"($P175)
if $P10, rx167_fail
@@ -1943,7 +1956,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backmod" :subid("45_1274564774.16047") :method
+.sub "!PREFIX__backmod" :subid("45_1275117582.32416") :method
.annotate 'line', 3
new $P169, "ResizablePMCArray"
push $P169, ""
@@ -1952,7 +1965,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block174" :anon :subid("46_1274564774.16047") :method :outer("44_1274564774.16047")
+.sub "_block174" :anon :subid("46_1275117582.32416") :method :outer("44_1275117582.32416")
.annotate 'line', 71
.local string rx176_tgt
.local int rx176_pos
@@ -2008,7 +2021,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar" :subid("47_1274564774.16047") :method
+.sub "metachar" :subid("47_1275117582.32416") :method
.annotate 'line', 73
$P179 = self."!protoregex"("metachar")
.return ($P179)
@@ -2016,7 +2029,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar" :subid("48_1274564774.16047") :method
+.sub "!PREFIX__metachar" :subid("48_1275117582.32416") :method
.annotate 'line', 73
$P181 = self."!PREFIX__!protoregex"("metachar")
.return ($P181)
@@ -2024,7 +2037,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<ws>" :subid("49_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<ws>" :subid("49_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx183_tgt
.local int rx183_pos
@@ -2080,7 +2093,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<ws>" :subid("50_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<ws>" :subid("50_1275117582.32416") :method
.annotate 'line', 3
$P185 = self."!PREFIX__!subrule"("", "")
new $P186, "ResizablePMCArray"
@@ -2090,7 +2103,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<[ ]>" :subid("51_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<[ ]>" :subid("51_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx189_tgt
.local int rx189_pos
@@ -2162,7 +2175,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<[ ]>" :subid("52_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<[ ]>" :subid("52_1275117582.32416") :method
.annotate 'line', 3
$P191 = self."!PREFIX__!subrule"("nibbler", "[")
new $P192, "ResizablePMCArray"
@@ -2172,7 +2185,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<( )>" :subid("53_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<( )>" :subid("53_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx195_tgt
.local int rx195_pos
@@ -2244,7 +2257,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<( )>" :subid("54_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<( )>" :subid("54_1275117582.32416") :method
.annotate 'line', 3
$P197 = self."!PREFIX__!subrule"("nibbler", "(")
new $P198, "ResizablePMCArray"
@@ -2254,7 +2267,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<'>" :subid("55_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<'>" :subid("55_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx201_tgt
.local int rx201_pos
@@ -2318,7 +2331,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<'>" :subid("56_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<'>" :subid("56_1275117582.32416") :method
.annotate 'line', 3
new $P203, "ResizablePMCArray"
push $P203, "'"
@@ -2327,7 +2340,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<\">" :subid("57_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<\">" :subid("57_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx206_tgt
.local int rx206_pos
@@ -2391,7 +2404,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<\">" :subid("58_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<\">" :subid("58_1275117582.32416") :method
.annotate 'line', 3
new $P208, "ResizablePMCArray"
push $P208, "\""
@@ -2400,7 +2413,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<.>" :subid("59_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<.>" :subid("59_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx211_tgt
.local int rx211_pos
@@ -2472,7 +2485,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<.>" :subid("60_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<.>" :subid("60_1275117582.32416") :method
.annotate 'line', 3
new $P213, "ResizablePMCArray"
push $P213, "."
@@ -2481,7 +2494,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<^>" :subid("61_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<^>" :subid("61_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx217_tgt
.local int rx217_pos
@@ -2553,7 +2566,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<^>" :subid("62_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<^>" :subid("62_1275117582.32416") :method
.annotate 'line', 3
new $P219, "ResizablePMCArray"
push $P219, "^"
@@ -2562,7 +2575,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<^^>" :subid("63_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<^^>" :subid("63_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx223_tgt
.local int rx223_pos
@@ -2634,7 +2647,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<^^>" :subid("64_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<^^>" :subid("64_1275117582.32416") :method
.annotate 'line', 3
new $P225, "ResizablePMCArray"
push $P225, "^^"
@@ -2643,7 +2656,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<$>" :subid("65_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<$>" :subid("65_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx229_tgt
.local int rx229_pos
@@ -2715,7 +2728,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<$>" :subid("66_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<$>" :subid("66_1275117582.32416") :method
.annotate 'line', 3
new $P231, "ResizablePMCArray"
push $P231, "$"
@@ -2724,7 +2737,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<$$>" :subid("67_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<$$>" :subid("67_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx235_tgt
.local int rx235_pos
@@ -2796,7 +2809,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<$$>" :subid("68_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<$$>" :subid("68_1275117582.32416") :method
.annotate 'line', 3
new $P237, "ResizablePMCArray"
push $P237, "$$"
@@ -2805,7 +2818,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<:::>" :subid("69_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<:::>" :subid("69_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx241_tgt
.local int rx241_pos
@@ -2882,7 +2895,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<:::>" :subid("70_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<:::>" :subid("70_1275117582.32416") :method
.annotate 'line', 3
$P243 = self."!PREFIX__!subrule"("", ":::")
new $P244, "ResizablePMCArray"
@@ -2892,7 +2905,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<::>" :subid("71_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<::>" :subid("71_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx248_tgt
.local int rx248_pos
@@ -2969,7 +2982,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<::>" :subid("72_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<::>" :subid("72_1275117582.32416") :method
.annotate 'line', 3
$P250 = self."!PREFIX__!subrule"("", "::")
new $P251, "ResizablePMCArray"
@@ -2979,7 +2992,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<lwb>" :subid("73_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<lwb>" :subid("73_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx255_tgt
.local int rx255_pos
@@ -3064,7 +3077,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<lwb>" :subid("74_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<lwb>" :subid("74_1275117582.32416") :method
.annotate 'line', 3
new $P257, "ResizablePMCArray"
push $P257, unicode:"\x{ab}"
@@ -3074,7 +3087,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<rwb>" :subid("75_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<rwb>" :subid("75_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx262_tgt
.local int rx262_pos
@@ -3159,7 +3172,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<rwb>" :subid("76_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<rwb>" :subid("76_1275117582.32416") :method
.annotate 'line', 3
new $P264, "ResizablePMCArray"
push $P264, unicode:"\x{bb}"
@@ -3169,7 +3182,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<bs>" :subid("77_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<bs>" :subid("77_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx269_tgt
.local int rx269_pos
@@ -3234,7 +3247,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<bs>" :subid("78_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<bs>" :subid("78_1275117582.32416") :method
.annotate 'line', 3
$P271 = self."!PREFIX__!subrule"("backslash", "\\")
new $P272, "ResizablePMCArray"
@@ -3244,7 +3257,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<mod>" :subid("79_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<mod>" :subid("79_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx275_tgt
.local int rx275_pos
@@ -3302,7 +3315,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<mod>" :subid("80_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<mod>" :subid("80_1275117582.32416") :method
.annotate 'line', 3
$P277 = self."!PREFIX__!subrule"("mod_internal", "")
new $P278, "ResizablePMCArray"
@@ -3312,7 +3325,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<~>" :subid("81_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<~>" :subid("81_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx281_tgt
.local int rx281_pos
@@ -3411,7 +3424,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<~>" :subid("82_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<~>" :subid("82_1275117582.32416") :method
.annotate 'line', 3
$P283 = self."!PREFIX__!subrule"("", "~")
new $P284, "ResizablePMCArray"
@@ -3421,7 +3434,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<{*}>" :subid("83_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<{*}>" :subid("83_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx288_tgt
.local int rx288_pos
@@ -3588,7 +3601,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<{*}>" :subid("84_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<{*}>" :subid("84_1275117582.32416") :method
.annotate 'line', 3
new $P290, "ResizablePMCArray"
push $P290, "{*}"
@@ -3597,7 +3610,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<assert>" :subid("85_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<assert>" :subid("85_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx305_tgt
.local int rx305_pos
@@ -3682,7 +3695,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<assert>" :subid("86_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<assert>" :subid("86_1275117582.32416") :method
.annotate 'line', 3
$P307 = self."!PREFIX__!subrule"("assertion", "<")
new $P308, "ResizablePMCArray"
@@ -3692,7 +3705,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<var>" :subid("87_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<var>" :subid("87_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx312_tgt
.local int rx312_pos
@@ -3854,7 +3867,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<var>" :subid("88_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<var>" :subid("88_1275117582.32416") :method
.annotate 'line', 3
new $P314, "ResizablePMCArray"
push $P314, "$"
@@ -3864,7 +3877,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<PIR>" :subid("89_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "metachar:sym<PIR>" :subid("89_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx324_tgt
.local int rx324_pos
@@ -3955,7 +3968,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<PIR>" :subid("90_1274564774.16047") :method
+.sub "!PREFIX__metachar:sym<PIR>" :subid("90_1275117582.32416") :method
.annotate 'line', 3
new $P326, "ResizablePMCArray"
push $P326, ":PIR{{"
@@ -3964,7 +3977,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash" :subid("91_1274564774.16047") :method
+.sub "backslash" :subid("91_1275117582.32416") :method
.annotate 'line', 120
$P332 = self."!protoregex"("backslash")
.return ($P332)
@@ -3972,7 +3985,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash" :subid("92_1274564774.16047") :method
+.sub "!PREFIX__backslash" :subid("92_1275117582.32416") :method
.annotate 'line', 120
$P334 = self."!PREFIX__!protoregex"("backslash")
.return ($P334)
@@ -3980,7 +3993,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<w>" :subid("93_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<w>" :subid("93_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx336_tgt
.local int rx336_pos
@@ -4052,7 +4065,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<w>" :subid("94_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<w>" :subid("94_1275117582.32416") :method
.annotate 'line', 3
new $P338, "ResizablePMCArray"
push $P338, "N"
@@ -4068,7 +4081,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<b>" :subid("95_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<b>" :subid("95_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx342_tgt
.local int rx342_pos
@@ -4140,7 +4153,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<b>" :subid("96_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<b>" :subid("96_1275117582.32416") :method
.annotate 'line', 3
new $P344, "ResizablePMCArray"
push $P344, "B"
@@ -4150,7 +4163,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<e>" :subid("97_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<e>" :subid("97_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx348_tgt
.local int rx348_pos
@@ -4222,7 +4235,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<e>" :subid("98_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<e>" :subid("98_1275117582.32416") :method
.annotate 'line', 3
new $P350, "ResizablePMCArray"
push $P350, "E"
@@ -4232,7 +4245,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<f>" :subid("99_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<f>" :subid("99_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx354_tgt
.local int rx354_pos
@@ -4304,7 +4317,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<f>" :subid("100_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<f>" :subid("100_1275117582.32416") :method
.annotate 'line', 3
new $P356, "ResizablePMCArray"
push $P356, "F"
@@ -4314,7 +4327,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<h>" :subid("101_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<h>" :subid("101_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx360_tgt
.local int rx360_pos
@@ -4386,7 +4399,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<h>" :subid("102_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<h>" :subid("102_1275117582.32416") :method
.annotate 'line', 3
new $P362, "ResizablePMCArray"
push $P362, "H"
@@ -4396,7 +4409,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<r>" :subid("103_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<r>" :subid("103_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx366_tgt
.local int rx366_pos
@@ -4468,7 +4481,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<r>" :subid("104_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<r>" :subid("104_1275117582.32416") :method
.annotate 'line', 3
new $P368, "ResizablePMCArray"
push $P368, "R"
@@ -4478,7 +4491,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<t>" :subid("105_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<t>" :subid("105_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx372_tgt
.local int rx372_pos
@@ -4550,7 +4563,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<t>" :subid("106_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<t>" :subid("106_1275117582.32416") :method
.annotate 'line', 3
new $P374, "ResizablePMCArray"
push $P374, "T"
@@ -4560,7 +4573,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<v>" :subid("107_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<v>" :subid("107_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx378_tgt
.local int rx378_pos
@@ -4632,7 +4645,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<v>" :subid("108_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<v>" :subid("108_1275117582.32416") :method
.annotate 'line', 3
new $P380, "ResizablePMCArray"
push $P380, "V"
@@ -4642,7 +4655,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<o>" :subid("109_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<o>" :subid("109_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx384_tgt
.local int rx384_pos
@@ -4748,7 +4761,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<o>" :subid("110_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<o>" :subid("110_1275117582.32416") :method
.annotate 'line', 3
$P386 = self."!PREFIX__!subrule"("octints", "O[")
$P387 = self."!PREFIX__!subrule"("octint", "O")
@@ -4764,7 +4777,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<x>" :subid("111_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<x>" :subid("111_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx395_tgt
.local int rx395_pos
@@ -4870,7 +4883,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<x>" :subid("112_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<x>" :subid("112_1275117582.32416") :method
.annotate 'line', 3
$P397 = self."!PREFIX__!subrule"("hexints", "X[")
$P398 = self."!PREFIX__!subrule"("hexint", "X")
@@ -4886,7 +4899,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<c>" :subid("113_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<c>" :subid("113_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx406_tgt
.local int rx406_pos
@@ -4965,7 +4978,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<c>" :subid("114_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<c>" :subid("114_1275117582.32416") :method
.annotate 'line', 3
$P408 = self."!PREFIX__!subrule"("charspec", "C")
$P409 = self."!PREFIX__!subrule"("charspec", "c")
@@ -4977,7 +4990,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<A>" :subid("115_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<A>" :subid("115_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx414_tgt
.local int rx414_pos
@@ -5040,7 +5053,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<A>" :subid("116_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<A>" :subid("116_1275117582.32416") :method
.annotate 'line', 3
$P416 = self."!PREFIX__!subrule"("", "A")
new $P417, "ResizablePMCArray"
@@ -5050,7 +5063,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<z>" :subid("117_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<z>" :subid("117_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx420_tgt
.local int rx420_pos
@@ -5113,7 +5126,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<z>" :subid("118_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<z>" :subid("118_1275117582.32416") :method
.annotate 'line', 3
$P422 = self."!PREFIX__!subrule"("", "z")
new $P423, "ResizablePMCArray"
@@ -5123,7 +5136,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<Z>" :subid("119_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<Z>" :subid("119_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx426_tgt
.local int rx426_pos
@@ -5186,7 +5199,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<Z>" :subid("120_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<Z>" :subid("120_1275117582.32416") :method
.annotate 'line', 3
$P428 = self."!PREFIX__!subrule"("", "Z")
new $P429, "ResizablePMCArray"
@@ -5196,7 +5209,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<Q>" :subid("121_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<Q>" :subid("121_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx432_tgt
.local int rx432_pos
@@ -5259,7 +5272,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<Q>" :subid("122_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<Q>" :subid("122_1275117582.32416") :method
.annotate 'line', 3
$P434 = self."!PREFIX__!subrule"("", "Q")
new $P435, "ResizablePMCArray"
@@ -5269,7 +5282,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<misc>" :subid("123_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "backslash:sym<misc>" :subid("123_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx438_tgt
.local int rx438_pos
@@ -5326,7 +5339,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<misc>" :subid("124_1274564774.16047") :method
+.sub "!PREFIX__backslash:sym<misc>" :subid("124_1275117582.32416") :method
.annotate 'line', 3
new $P440, "ResizablePMCArray"
push $P440, ""
@@ -5335,7 +5348,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion" :subid("125_1274564774.16047") :method
+.sub "assertion" :subid("125_1275117582.32416") :method
.annotate 'line', 138
$P443 = self."!protoregex"("assertion")
.return ($P443)
@@ -5343,7 +5356,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion" :subid("126_1274564774.16047") :method
+.sub "!PREFIX__assertion" :subid("126_1275117582.32416") :method
.annotate 'line', 138
$P445 = self."!PREFIX__!protoregex"("assertion")
.return ($P445)
@@ -5351,9 +5364,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<?>" :subid("127_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "assertion:sym<?>" :subid("127_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P454 = "129_1274564774.16047"
+ .const 'Sub' $P454 = "129_1275117582.32416"
capture_lex $P454
.local string rx447_tgt
.local int rx447_pos
@@ -5397,7 +5410,7 @@
rx447_cur."!mark_push"(0, rx447_pos, $I10)
# rx subrule "before" subtype=zerowidth negate=
rx447_cur."!cursor_pos"(rx447_pos)
- .const 'Sub' $P454 = "129_1274564774.16047"
+ .const 'Sub' $P454 = "129_1275117582.32416"
capture_lex $P454
$P10 = rx447_cur."before"($P454)
unless $P10, rx447_fail
@@ -5430,7 +5443,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<?>" :subid("128_1274564774.16047") :method
+.sub "!PREFIX__assertion:sym<?>" :subid("128_1275117582.32416") :method
.annotate 'line', 3
$P449 = self."!PREFIX__!subrule"("assertion", "?")
new $P450, "ResizablePMCArray"
@@ -5441,7 +5454,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block453" :anon :subid("129_1274564774.16047") :method :outer("127_1274564774.16047")
+.sub "_block453" :anon :subid("129_1275117582.32416") :method :outer("127_1275117582.32416")
.annotate 'line', 140
.local string rx455_tgt
.local int rx455_pos
@@ -5497,9 +5510,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<!>" :subid("130_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "assertion:sym<!>" :subid("130_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P465 = "132_1274564774.16047"
+ .const 'Sub' $P465 = "132_1275117582.32416"
capture_lex $P465
.local string rx458_tgt
.local int rx458_pos
@@ -5543,7 +5556,7 @@
rx458_cur."!mark_push"(0, rx458_pos, $I10)
# rx subrule "before" subtype=zerowidth negate=
rx458_cur."!cursor_pos"(rx458_pos)
- .const 'Sub' $P465 = "132_1274564774.16047"
+ .const 'Sub' $P465 = "132_1275117582.32416"
capture_lex $P465
$P10 = rx458_cur."before"($P465)
unless $P10, rx458_fail
@@ -5576,7 +5589,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<!>" :subid("131_1274564774.16047") :method
+.sub "!PREFIX__assertion:sym<!>" :subid("131_1275117582.32416") :method
.annotate 'line', 3
$P460 = self."!PREFIX__!subrule"("assertion", "!")
new $P461, "ResizablePMCArray"
@@ -5587,7 +5600,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block464" :anon :subid("132_1274564774.16047") :method :outer("130_1274564774.16047")
+.sub "_block464" :anon :subid("132_1275117582.32416") :method :outer("130_1275117582.32416")
.annotate 'line', 141
.local string rx466_tgt
.local int rx466_pos
@@ -5643,7 +5656,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<method>" :subid("133_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "assertion:sym<method>" :subid("133_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx469_tgt
.local int rx469_pos
@@ -5709,7 +5722,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<method>" :subid("134_1274564774.16047") :method
+.sub "!PREFIX__assertion:sym<method>" :subid("134_1275117582.32416") :method
.annotate 'line', 3
$P471 = self."!PREFIX__!subrule"("assertion", ".")
new $P472, "ResizablePMCArray"
@@ -5719,9 +5732,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<name>" :subid("135_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "assertion:sym<name>" :subid("135_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P483 = "137_1274564774.16047"
+ .const 'Sub' $P483 = "137_1275117582.32416"
capture_lex $P483
.local string rx475_tgt
.local int rx475_pos
@@ -5731,7 +5744,7 @@
.local pmc rx475_cur
(rx475_cur, rx475_pos, rx475_tgt) = self."!cursor_start"()
rx475_cur."!cursor_debug"("START ", "assertion:sym<name>")
- rx475_cur."!cursor_caparray"("assertion", "nibbler", "arglist")
+ rx475_cur."!cursor_caparray"("nibbler", "arglist", "assertion")
.lex unicode:"$\x{a2}", rx475_cur
.local pmc match
.lex "$/", match
@@ -5786,7 +5799,7 @@
.annotate 'line', 150
# rx subrule "before" subtype=zerowidth negate=
rx475_cur."!cursor_pos"(rx475_pos)
- .const 'Sub' $P483 = "137_1274564774.16047"
+ .const 'Sub' $P483 = "137_1275117582.32416"
capture_lex $P483
$P10 = rx475_cur."before"($P483)
unless $P10, rx475_fail
@@ -5893,7 +5906,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<name>" :subid("136_1274564774.16047") :method
+.sub "!PREFIX__assertion:sym<name>" :subid("136_1275117582.32416") :method
.annotate 'line', 3
new $P477, "ResizablePMCArray"
push $P477, ""
@@ -5902,7 +5915,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block482" :anon :subid("137_1274564774.16047") :method :outer("135_1274564774.16047")
+.sub "_block482" :anon :subid("137_1275117582.32416") :method :outer("135_1275117582.32416")
.annotate 'line', 150
.local string rx484_tgt
.local int rx484_pos
@@ -5958,9 +5971,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<[>" :subid("138_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "assertion:sym<[>" :subid("138_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P493 = "140_1274564774.16047"
+ .const 'Sub' $P493 = "140_1275117582.32416"
capture_lex $P493
.local string rx488_tgt
.local int rx488_pos
@@ -5995,7 +6008,7 @@
.annotate 'line', 158
# rx subrule "before" subtype=zerowidth negate=
rx488_cur."!cursor_pos"(rx488_pos)
- .const 'Sub' $P493 = "140_1274564774.16047"
+ .const 'Sub' $P493 = "140_1275117582.32416"
capture_lex $P493
$P10 = rx488_cur."before"($P493)
unless $P10, rx488_fail
@@ -6033,7 +6046,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<[>" :subid("139_1274564774.16047") :method
+.sub "!PREFIX__assertion:sym<[>" :subid("139_1275117582.32416") :method
.annotate 'line', 3
new $P490, "ResizablePMCArray"
push $P490, ""
@@ -6042,7 +6055,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block492" :anon :subid("140_1274564774.16047") :method :outer("138_1274564774.16047")
+.sub "_block492" :anon :subid("140_1275117582.32416") :method :outer("138_1275117582.32416")
.annotate 'line', 158
.local string rx494_tgt
.local int rx494_pos
@@ -6122,9 +6135,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "cclass_elem" :subid("141_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "cclass_elem" :subid("141_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P511 = "143_1274564774.16047"
+ .const 'Sub' $P511 = "143_1275117582.32416"
capture_lex $P511
.local string rx500_tgt
.local int rx500_pos
@@ -6227,7 +6240,7 @@
.annotate 'line', 164
# rx subrule $P511 subtype=capture negate=
rx500_cur."!cursor_pos"(rx500_pos)
- .const 'Sub' $P511 = "143_1274564774.16047"
+ .const 'Sub' $P511 = "143_1275117582.32416"
capture_lex $P511
$P10 = rx500_cur.$P511()
unless $P10, rx500_fail
@@ -6308,7 +6321,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__cclass_elem" :subid("142_1274564774.16047") :method
+.sub "!PREFIX__cclass_elem" :subid("142_1275117582.32416") :method
.annotate 'line', 3
new $P502, "ResizablePMCArray"
push $P502, ""
@@ -6319,13 +6332,13 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block510" :anon :subid("143_1274564774.16047") :method :outer("141_1274564774.16047")
+.sub "_block510" :anon :subid("143_1275117582.32416") :method :outer("141_1275117582.32416")
.annotate 'line', 164
- .const 'Sub' $P526 = "146_1274564774.16047"
+ .const 'Sub' $P526 = "146_1275117582.32416"
capture_lex $P526
- .const 'Sub' $P521 = "145_1274564774.16047"
+ .const 'Sub' $P521 = "145_1275117582.32416"
capture_lex $P521
- .const 'Sub' $P517 = "144_1274564774.16047"
+ .const 'Sub' $P517 = "144_1275117582.32416"
capture_lex $P517
.local string rx512_tgt
.local int rx512_pos
@@ -6396,7 +6409,7 @@
add rx512_pos, 1
# rx subrule $P517 subtype=capture negate=
rx512_cur."!cursor_pos"(rx512_pos)
- .const 'Sub' $P517 = "144_1274564774.16047"
+ .const 'Sub' $P517 = "144_1275117582.32416"
capture_lex $P517
$P10 = rx512_cur.$P517()
unless $P10, rx512_fail
@@ -6407,7 +6420,7 @@
alt515_1:
# rx subrule $P521 subtype=capture negate=
rx512_cur."!cursor_pos"(rx512_pos)
- .const 'Sub' $P521 = "145_1274564774.16047"
+ .const 'Sub' $P521 = "145_1275117582.32416"
capture_lex $P521
$P10 = rx512_cur.$P521()
unless $P10, rx512_fail
@@ -6436,7 +6449,7 @@
add rx512_pos, rx512_off, $I11
# rx subrule $P526 subtype=capture negate=
rx512_cur."!cursor_pos"(rx512_pos)
- .const 'Sub' $P526 = "146_1274564774.16047"
+ .const 'Sub' $P526 = "146_1275117582.32416"
capture_lex $P526
$P10 = rx512_cur.$P526()
unless $P10, rx512_fail
@@ -6465,7 +6478,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block516" :anon :subid("144_1274564774.16047") :method :outer("143_1274564774.16047")
+.sub "_block516" :anon :subid("144_1275117582.32416") :method :outer("143_1275117582.32416")
.annotate 'line', 166
.local string rx518_tgt
.local int rx518_pos
@@ -6517,7 +6530,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block520" :anon :subid("145_1274564774.16047") :method :outer("143_1274564774.16047")
+.sub "_block520" :anon :subid("145_1275117582.32416") :method :outer("143_1275117582.32416")
.annotate 'line', 166
.local string rx522_tgt
.local int rx522_pos
@@ -6573,7 +6586,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block525" :anon :subid("146_1274564774.16047") :method :outer("143_1274564774.16047")
+.sub "_block525" :anon :subid("146_1275117582.32416") :method :outer("143_1275117582.32416")
.annotate 'line', 166
.local string rx527_tgt
.local int rx527_pos
@@ -6625,9 +6638,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_internal" :subid("147_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "mod_internal" :subid("147_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P543 = "149_1274564774.16047"
+ .const 'Sub' $P543 = "149_1275117582.32416"
capture_lex $P543
.local string rx535_tgt
.local int rx535_pos
@@ -6677,7 +6690,7 @@
rxquantr541_loop:
# rx subrule $P543 subtype=capture negate=
rx535_cur."!cursor_pos"(rx535_pos)
- .const 'Sub' $P543 = "149_1274564774.16047"
+ .const 'Sub' $P543 = "149_1275117582.32416"
capture_lex $P543
$P10 = rx535_cur.$P543()
unless $P10, rx535_fail
@@ -6779,7 +6792,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_internal" :subid("148_1274564774.16047") :method
+.sub "!PREFIX__mod_internal" :subid("148_1275117582.32416") :method
.annotate 'line', 3
$P537 = self."!PREFIX__!subrule"("mod_ident", ":")
new $P538, "ResizablePMCArray"
@@ -6790,7 +6803,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block542" :anon :subid("149_1274564774.16047") :method :outer("147_1274564774.16047")
+.sub "_block542" :anon :subid("149_1275117582.32416") :method :outer("147_1275117582.32416")
.annotate 'line', 176
.local string rx544_tgt
.local int rx544_pos
@@ -6858,7 +6871,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident" :subid("150_1274564774.16047") :method
+.sub "mod_ident" :subid("150_1275117582.32416") :method
.annotate 'line', 181
$P552 = self."!protoregex"("mod_ident")
.return ($P552)
@@ -6866,7 +6879,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident" :subid("151_1274564774.16047") :method
+.sub "!PREFIX__mod_ident" :subid("151_1275117582.32416") :method
.annotate 'line', 181
$P554 = self."!PREFIX__!protoregex"("mod_ident")
.return ($P554)
@@ -6874,7 +6887,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident:sym<ignorecase>" :subid("152_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "mod_ident:sym<ignorecase>" :subid("152_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx556_tgt
.local int rx556_pos
@@ -6959,7 +6972,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident:sym<ignorecase>" :subid("153_1274564774.16047") :method
+.sub "!PREFIX__mod_ident:sym<ignorecase>" :subid("153_1275117582.32416") :method
.annotate 'line', 3
new $P558, "ResizablePMCArray"
push $P558, "i"
@@ -6968,7 +6981,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident:sym<ratchet>" :subid("154_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "mod_ident:sym<ratchet>" :subid("154_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx564_tgt
.local int rx564_pos
@@ -7053,7 +7066,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident:sym<ratchet>" :subid("155_1274564774.16047") :method
+.sub "!PREFIX__mod_ident:sym<ratchet>" :subid("155_1275117582.32416") :method
.annotate 'line', 3
new $P566, "ResizablePMCArray"
push $P566, "r"
@@ -7062,7 +7075,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident:sym<sigspace>" :subid("156_1274564774.16047") :method :outer("11_1274564774.16047")
+.sub "mod_ident:sym<sigspace>" :subid("156_1275117582.32416") :method :outer("11_1275117582.32416")
.annotate 'line', 3
.local string rx572_tgt
.local int rx572_pos
@@ -7147,7 +7160,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident:sym<sigspace>" :subid("157_1274564774.16047") :method
+.sub "!PREFIX__mod_ident:sym<sigspace>" :subid("157_1275117582.32416") :method
.annotate 'line', 3
new $P574, "ResizablePMCArray"
push $P574, "s"
@@ -7156,18 +7169,18 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block579" :load :anon :subid("158_1274564774.16047")
+.sub "_block579" :load :anon :subid("158_1275117582.32416")
.annotate 'line', 3
- .const 'Sub' $P581 = "11_1274564774.16047"
+ .const 'Sub' $P581 = "11_1275117582.32416"
$P582 = $P581()
.return ($P582)
.end
.namespace []
-.sub "_block584" :load :anon :subid("159_1274564774.16047")
+.sub "_block584" :load :anon :subid("159_1275117582.32416")
.annotate 'line', 1
- .const 'Sub' $P586 = "10_1274564774.16047"
+ .const 'Sub' $P586 = "10_1275117582.32416"
$P587 = $P586()
.return ($P587)
.end
@@ -7175,142 +7188,149 @@
### .include 'gen/p6regex-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1274564778.23532")
+.sub "_block11" :anon :subid("10_1275117600.18794")
.annotate 'line', 0
get_hll_global $P14, ["Regex";"P6Regex";"Actions"], "_block13"
capture_lex $P14
+.annotate 'line', 1
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
.annotate 'line', 4
get_hll_global $P14, ["Regex";"P6Regex";"Actions"], "_block13"
capture_lex $P14
- $P1572 = $P14()
+ $P1573 = $P14()
.annotate 'line', 1
- .return ($P1572)
- .const 'Sub' $P1574 = "90_1274564778.23532"
- .return ($P1574)
+ .return ($P1573)
+ .const 'Sub' $P1575 = "90_1275117600.18794"
+ .return ($P1575)
.end
.namespace []
-.sub "" :load :init :subid("post91") :outer("10_1274564778.23532")
+.sub "" :load :init :subid("post91") :outer("10_1275117600.18794")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1274564778.23532"
+ .const 'Sub' $P12 = "10_1275117600.18794"
.local pmc block
set block, $P12
- $P1577 = get_root_global ["parrot"], "P6metaclass"
- $P1577."new_class"("Regex::P6Regex::Actions", "HLL::Actions" :named("parent"))
+ $P1578 = get_root_global ["parrot"], "P6metaclass"
+ $P1578."new_class"("Regex::P6Regex::Actions", "HLL::Actions" :named("parent"))
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block13" :subid("11_1274564778.23532") :outer("10_1274564778.23532")
+.sub "_block13" :subid("11_1275117600.18794") :outer("10_1275117600.18794")
.annotate 'line', 4
- .const 'Sub' $P1534 = "88_1274564778.23532"
- capture_lex $P1534
- .const 'Sub' $P1465 = "84_1274564778.23532"
- capture_lex $P1465
- .const 'Sub' $P1397 = "82_1274564778.23532"
- capture_lex $P1397
- .const 'Sub' $P1324 = "79_1274564778.23532"
- capture_lex $P1324
- .const 'Sub' $P1310 = "78_1274564778.23532"
- capture_lex $P1310
- .const 'Sub' $P1286 = "77_1274564778.23532"
- capture_lex $P1286
- .const 'Sub' $P1268 = "76_1274564778.23532"
- capture_lex $P1268
- .const 'Sub' $P1254 = "75_1274564778.23532"
- capture_lex $P1254
- .const 'Sub' $P1241 = "74_1274564778.23532"
- capture_lex $P1241
- .const 'Sub' $P1210 = "73_1274564778.23532"
- capture_lex $P1210
- .const 'Sub' $P1179 = "72_1274564778.23532"
- capture_lex $P1179
- .const 'Sub' $P1163 = "71_1274564778.23532"
- capture_lex $P1163
- .const 'Sub' $P1147 = "70_1274564778.23532"
- capture_lex $P1147
- .const 'Sub' $P1131 = "69_1274564778.23532"
- capture_lex $P1131
- .const 'Sub' $P1115 = "68_1274564778.23532"
- capture_lex $P1115
- .const 'Sub' $P1099 = "67_1274564778.23532"
- capture_lex $P1099
- .const 'Sub' $P1083 = "66_1274564778.23532"
- capture_lex $P1083
- .const 'Sub' $P1067 = "65_1274564778.23532"
- capture_lex $P1067
- .const 'Sub' $P1043 = "64_1274564778.23532"
- capture_lex $P1043
- .const 'Sub' $P1028 = "63_1274564778.23532"
- capture_lex $P1028
- .const 'Sub' $P972 = "62_1274564778.23532"
- capture_lex $P972
- .const 'Sub' $P951 = "61_1274564778.23532"
- capture_lex $P951
- .const 'Sub' $P929 = "60_1274564778.23532"
- capture_lex $P929
- .const 'Sub' $P919 = "59_1274564778.23532"
- capture_lex $P919
- .const 'Sub' $P909 = "58_1274564778.23532"
- capture_lex $P909
- .const 'Sub' $P899 = "57_1274564778.23532"
- capture_lex $P899
- .const 'Sub' $P887 = "56_1274564778.23532"
- capture_lex $P887
- .const 'Sub' $P875 = "55_1274564778.23532"
- capture_lex $P875
- .const 'Sub' $P863 = "54_1274564778.23532"
- capture_lex $P863
- .const 'Sub' $P851 = "53_1274564778.23532"
- capture_lex $P851
- .const 'Sub' $P839 = "52_1274564778.23532"
- capture_lex $P839
- .const 'Sub' $P827 = "51_1274564778.23532"
- capture_lex $P827
- .const 'Sub' $P815 = "50_1274564778.23532"
- capture_lex $P815
- .const 'Sub' $P803 = "49_1274564778.23532"
- capture_lex $P803
- .const 'Sub' $P780 = "48_1274564778.23532"
- capture_lex $P780
- .const 'Sub' $P757 = "47_1274564778.23532"
- capture_lex $P757
- .const 'Sub' $P739 = "46_1274564778.23532"
- capture_lex $P739
- .const 'Sub' $P729 = "45_1274564778.23532"
- capture_lex $P729
- .const 'Sub' $P711 = "44_1274564778.23532"
- capture_lex $P711
- .const 'Sub' $P664 = "43_1274564778.23532"
- capture_lex $P664
- .const 'Sub' $P647 = "42_1274564778.23532"
- capture_lex $P647
- .const 'Sub' $P632 = "41_1274564778.23532"
- capture_lex $P632
- .const 'Sub' $P617 = "40_1274564778.23532"
- capture_lex $P617
- .const 'Sub' $P591 = "39_1274564778.23532"
- capture_lex $P591
- .const 'Sub' $P541 = "37_1274564778.23532"
+ .const 'Sub' $P1535 = "88_1275117600.18794"
+ capture_lex $P1535
+ .const 'Sub' $P1466 = "84_1275117600.18794"
+ capture_lex $P1466
+ .const 'Sub' $P1398 = "82_1275117600.18794"
+ capture_lex $P1398
+ .const 'Sub' $P1325 = "79_1275117600.18794"
+ capture_lex $P1325
+ .const 'Sub' $P1311 = "78_1275117600.18794"
+ capture_lex $P1311
+ .const 'Sub' $P1287 = "77_1275117600.18794"
+ capture_lex $P1287
+ .const 'Sub' $P1269 = "76_1275117600.18794"
+ capture_lex $P1269
+ .const 'Sub' $P1255 = "75_1275117600.18794"
+ capture_lex $P1255
+ .const 'Sub' $P1242 = "74_1275117600.18794"
+ capture_lex $P1242
+ .const 'Sub' $P1211 = "73_1275117600.18794"
+ capture_lex $P1211
+ .const 'Sub' $P1180 = "72_1275117600.18794"
+ capture_lex $P1180
+ .const 'Sub' $P1164 = "71_1275117600.18794"
+ capture_lex $P1164
+ .const 'Sub' $P1148 = "70_1275117600.18794"
+ capture_lex $P1148
+ .const 'Sub' $P1132 = "69_1275117600.18794"
+ capture_lex $P1132
+ .const 'Sub' $P1116 = "68_1275117600.18794"
+ capture_lex $P1116
+ .const 'Sub' $P1100 = "67_1275117600.18794"
+ capture_lex $P1100
+ .const 'Sub' $P1084 = "66_1275117600.18794"
+ capture_lex $P1084
+ .const 'Sub' $P1068 = "65_1275117600.18794"
+ capture_lex $P1068
+ .const 'Sub' $P1044 = "64_1275117600.18794"
+ capture_lex $P1044
+ .const 'Sub' $P1029 = "63_1275117600.18794"
+ capture_lex $P1029
+ .const 'Sub' $P973 = "62_1275117600.18794"
+ capture_lex $P973
+ .const 'Sub' $P952 = "61_1275117600.18794"
+ capture_lex $P952
+ .const 'Sub' $P930 = "60_1275117600.18794"
+ capture_lex $P930
+ .const 'Sub' $P920 = "59_1275117600.18794"
+ capture_lex $P920
+ .const 'Sub' $P910 = "58_1275117600.18794"
+ capture_lex $P910
+ .const 'Sub' $P900 = "57_1275117600.18794"
+ capture_lex $P900
+ .const 'Sub' $P888 = "56_1275117600.18794"
+ capture_lex $P888
+ .const 'Sub' $P876 = "55_1275117600.18794"
+ capture_lex $P876
+ .const 'Sub' $P864 = "54_1275117600.18794"
+ capture_lex $P864
+ .const 'Sub' $P852 = "53_1275117600.18794"
+ capture_lex $P852
+ .const 'Sub' $P840 = "52_1275117600.18794"
+ capture_lex $P840
+ .const 'Sub' $P828 = "51_1275117600.18794"
+ capture_lex $P828
+ .const 'Sub' $P816 = "50_1275117600.18794"
+ capture_lex $P816
+ .const 'Sub' $P804 = "49_1275117600.18794"
+ capture_lex $P804
+ .const 'Sub' $P781 = "48_1275117600.18794"
+ capture_lex $P781
+ .const 'Sub' $P758 = "47_1275117600.18794"
+ capture_lex $P758
+ .const 'Sub' $P740 = "46_1275117600.18794"
+ capture_lex $P740
+ .const 'Sub' $P730 = "45_1275117600.18794"
+ capture_lex $P730
+ .const 'Sub' $P712 = "44_1275117600.18794"
+ capture_lex $P712
+ .const 'Sub' $P665 = "43_1275117600.18794"
+ capture_lex $P665
+ .const 'Sub' $P648 = "42_1275117600.18794"
+ capture_lex $P648
+ .const 'Sub' $P633 = "41_1275117600.18794"
+ capture_lex $P633
+ .const 'Sub' $P618 = "40_1275117600.18794"
+ capture_lex $P618
+ .const 'Sub' $P592 = "39_1275117600.18794"
+ capture_lex $P592
+ .const 'Sub' $P541 = "37_1275117600.18794"
capture_lex $P541
- .const 'Sub' $P473 = "35_1274564778.23532"
+ .const 'Sub' $P473 = "35_1275117600.18794"
capture_lex $P473
- .const 'Sub' $P418 = "32_1274564778.23532"
+ .const 'Sub' $P418 = "32_1275117600.18794"
capture_lex $P418
- .const 'Sub' $P403 = "31_1274564778.23532"
+ .const 'Sub' $P403 = "31_1275117600.18794"
capture_lex $P403
- .const 'Sub' $P377 = "29_1274564778.23532"
+ .const 'Sub' $P377 = "29_1275117600.18794"
capture_lex $P377
- .const 'Sub' $P360 = "28_1274564778.23532"
+ .const 'Sub' $P360 = "28_1275117600.18794"
capture_lex $P360
- .const 'Sub' $P338 = "27_1274564778.23532"
+ .const 'Sub' $P338 = "27_1275117600.18794"
capture_lex $P338
- .const 'Sub' $P305 = "26_1274564778.23532"
+ .const 'Sub' $P305 = "26_1275117600.18794"
capture_lex $P305
- .const 'Sub' $P50 = "13_1274564778.23532"
+ .const 'Sub' $P50 = "13_1275117600.18794"
capture_lex $P50
- .const 'Sub' $P16 = "12_1274564778.23532"
+ .const 'Sub' $P16 = "12_1275117600.18794"
capture_lex $P16
get_global $P15, "@MODIFIERS"
unless_null $P15, vivify_93
@@ -7318,53 +7338,59 @@
set_global "@MODIFIERS", $P15
vivify_93:
.annotate 'line', 479
- .const 'Sub' $P16 = "12_1274564778.23532"
+ .const 'Sub' $P16 = "12_1275117600.18794"
newclosure $P49, $P16
.lex "buildsub", $P49
.annotate 'line', 496
- .const 'Sub' $P50 = "13_1274564778.23532"
+ .const 'Sub' $P50 = "13_1275117600.18794"
newclosure $P304, $P50
.lex "capnames", $P304
.annotate 'line', 562
- .const 'Sub' $P305 = "26_1274564778.23532"
+ .const 'Sub' $P305 = "26_1275117600.18794"
newclosure $P337, $P305
.lex "backmod", $P337
.annotate 'line', 569
- .const 'Sub' $P338 = "27_1274564778.23532"
+ .const 'Sub' $P338 = "27_1275117600.18794"
newclosure $P358, $P338
.lex "subrule_alias", $P358
.annotate 'line', 4
+ $P0 = find_dynamic_lex "$*CTXSAVE"
+ if null $P0 goto ctxsave_done
+ $I0 = can $P0, "ctxsave"
+ unless $I0 goto ctxsave_done
+ $P0."ctxsave"()
+ ctxsave_done:
get_global $P359, "@MODIFIERS"
.annotate 'line', 472
- find_lex $P1563, "buildsub"
- find_lex $P1564, "capnames"
- find_lex $P1565, "backmod"
- find_lex $P1566, "subrule_alias"
+ find_lex $P1564, "buildsub"
+ find_lex $P1565, "capnames"
+ find_lex $P1566, "backmod"
+ find_lex $P1567, "subrule_alias"
.annotate 'line', 4
- .return ($P1566)
- .const 'Sub' $P1568 = "89_1274564778.23532"
- .return ($P1568)
+ .return ($P1567)
+ .const 'Sub' $P1569 = "89_1275117600.18794"
+ .return ($P1569)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "" :load :init :subid("post92") :outer("11_1274564778.23532")
+.sub "" :load :init :subid("post92") :outer("11_1275117600.18794")
.annotate 'line', 4
get_hll_global $P14, ["Regex";"P6Regex";"Actions"], "_block13"
.local pmc block
set block, $P14
.annotate 'line', 7
- $P1571 = new ['ResizablePMCArray']
+ $P1572 = new ['ResizablePMCArray']
$P0 = new ['Hash']
- push $P1571, $P0
+ push $P1572, $P0
- set_global "@MODIFIERS", $P1571
+ set_global "@MODIFIERS", $P1572
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "buildsub" :subid("12_1274564778.23532") :outer("11_1274564778.23532")
+.sub "buildsub" :subid("12_1275117600.18794") :outer("11_1275117600.18794")
.param pmc param_19
.param pmc param_20 :optional
.param int has_param_20 :opt_flag
@@ -7441,19 +7467,19 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "capnames" :subid("13_1274564778.23532") :outer("11_1274564778.23532")
+.sub "capnames" :subid("13_1275117600.18794") :outer("11_1275117600.18794")
.param pmc param_53
.param pmc param_54
.annotate 'line', 496
- .const 'Sub' $P279 = "24_1274564778.23532"
+ .const 'Sub' $P279 = "24_1275117600.18794"
capture_lex $P279
- .const 'Sub' $P216 = "21_1274564778.23532"
+ .const 'Sub' $P216 = "21_1275117600.18794"
capture_lex $P216
- .const 'Sub' $P174 = "19_1274564778.23532"
+ .const 'Sub' $P174 = "19_1275117600.18794"
capture_lex $P174
- .const 'Sub' $P132 = "17_1274564778.23532"
+ .const 'Sub' $P132 = "17_1275117600.18794"
capture_lex $P132
- .const 'Sub' $P65 = "14_1274564778.23532"
+ .const 'Sub' $P65 = "14_1275117600.18794"
capture_lex $P65
new $P52, 'ExceptionHandler'
set_addr $P52, control_51
@@ -7509,21 +7535,21 @@
set $S276, $P275
iseq $I277, $S276, "quant"
unless $I277, if_274_end
- .const 'Sub' $P279 = "24_1274564778.23532"
+ .const 'Sub' $P279 = "24_1275117600.18794"
capture_lex $P279
$P279()
if_274_end:
goto if_211_end
if_211:
.annotate 'line', 534
- .const 'Sub' $P216 = "21_1274564778.23532"
+ .const 'Sub' $P216 = "21_1275117600.18794"
capture_lex $P216
$P216()
if_211_end:
goto if_164_end
if_164:
.annotate 'line', 521
- .const 'Sub' $P174 = "19_1274564778.23532"
+ .const 'Sub' $P174 = "19_1275117600.18794"
capture_lex $P174
$P174()
if_164_end:
@@ -7543,7 +7569,7 @@
unless $P126, loop161_done
shift $P130, $P126
loop161_redo:
- .const 'Sub' $P132 = "17_1274564778.23532"
+ .const 'Sub' $P132 = "17_1275117600.18794"
capture_lex $P132
$P132($P130)
loop161_next:
@@ -7562,7 +7588,7 @@
goto if_60_end
if_60:
.annotate 'line', 499
- .const 'Sub' $P65 = "14_1274564778.23532"
+ .const 'Sub' $P65 = "14_1275117600.18794"
capture_lex $P65
$P65()
if_60_end:
@@ -7586,9 +7612,9 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block278" :anon :subid("24_1274564778.23532") :outer("13_1274564778.23532")
+.sub "_block278" :anon :subid("24_1275117600.18794") :outer("13_1275117600.18794")
.annotate 'line', 551
- .const 'Sub' $P290 = "25_1274564778.23532"
+ .const 'Sub' $P290 = "25_1275117600.18794"
capture_lex $P290
.annotate 'line', 552
$P280 = root_new ['parrot';'Hash']
@@ -7617,7 +7643,7 @@
unless $P285, loop295_done
shift $P288, $P285
loop295_redo:
- .const 'Sub' $P290 = "25_1274564778.23532"
+ .const 'Sub' $P290 = "25_1275117600.18794"
capture_lex $P290
$P290($P288)
loop295_next:
@@ -7647,7 +7673,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block289" :anon :subid("25_1274564778.23532") :outer("24_1274564778.23532")
+.sub "_block289" :anon :subid("25_1275117600.18794") :outer("24_1275117600.18794")
.param pmc param_291
.annotate 'line', 553
.lex "$_", param_291
@@ -7667,11 +7693,11 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block215" :anon :subid("21_1274564778.23532") :outer("13_1274564778.23532")
+.sub "_block215" :anon :subid("21_1275117600.18794") :outer("13_1275117600.18794")
.annotate 'line', 534
- .const 'Sub' $P256 = "23_1274564778.23532"
+ .const 'Sub' $P256 = "23_1275117600.18794"
capture_lex $P256
- .const 'Sub' $P228 = "22_1274564778.23532"
+ .const 'Sub' $P228 = "22_1275117600.18794"
capture_lex $P228
.annotate 'line', 535
new $P217, "Undef"
@@ -7706,7 +7732,7 @@
unless $P223, loop244_done
shift $P226, $P223
loop244_redo:
- .const 'Sub' $P228 = "22_1274564778.23532"
+ .const 'Sub' $P228 = "22_1275117600.18794"
capture_lex $P228
$P228($P226)
loop244_next:
@@ -7745,7 +7771,7 @@
unless $P251, loop269_done
shift $P254, $P251
loop269_redo:
- .const 'Sub' $P256 = "23_1274564778.23532"
+ .const 'Sub' $P256 = "23_1275117600.18794"
capture_lex $P256
$P256($P254)
loop269_next:
@@ -7775,7 +7801,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block227" :anon :subid("22_1274564778.23532") :outer("21_1274564778.23532")
+.sub "_block227" :anon :subid("22_1275117600.18794") :outer("21_1275117600.18794")
.param pmc param_229
.annotate 'line', 541
.lex "$_", param_229
@@ -7815,7 +7841,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block255" :anon :subid("23_1274564778.23532") :outer("21_1274564778.23532")
+.sub "_block255" :anon :subid("23_1275117600.18794") :outer("21_1275117600.18794")
.param pmc param_257
.annotate 'line', 546
.lex "$_", param_257
@@ -7855,9 +7881,9 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block173" :anon :subid("19_1274564778.23532") :outer("13_1274564778.23532")
+.sub "_block173" :anon :subid("19_1275117600.18794") :outer("13_1275117600.18794")
.annotate 'line', 521
- .const 'Sub' $P192 = "20_1274564778.23532"
+ .const 'Sub' $P192 = "20_1275117600.18794"
capture_lex $P192
.annotate 'line', 522
new $P175, "Undef"
@@ -7900,7 +7926,7 @@
unless $P187, loop208_done
shift $P190, $P187
loop208_redo:
- .const 'Sub' $P192 = "20_1274564778.23532"
+ .const 'Sub' $P192 = "20_1275117600.18794"
capture_lex $P192
$P192($P190)
loop208_next:
@@ -7920,7 +7946,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block191" :anon :subid("20_1274564778.23532") :outer("19_1274564778.23532")
+.sub "_block191" :anon :subid("20_1275117600.18794") :outer("19_1275117600.18794")
.param pmc param_193
.annotate 'line', 529
.lex "$_", param_193
@@ -7960,10 +7986,10 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block131" :anon :subid("17_1274564778.23532") :outer("13_1274564778.23532")
+.sub "_block131" :anon :subid("17_1275117600.18794") :outer("13_1275117600.18794")
.param pmc param_134
.annotate 'line', 513
- .const 'Sub' $P143 = "18_1274564778.23532"
+ .const 'Sub' $P143 = "18_1275117600.18794"
capture_lex $P143
.annotate 'line', 514
$P133 = root_new ['parrot';'Hash']
@@ -7986,7 +8012,7 @@
unless $P138, loop156_done
shift $P141, $P138
loop156_redo:
- .const 'Sub' $P143 = "18_1274564778.23532"
+ .const 'Sub' $P143 = "18_1275117600.18794"
capture_lex $P143
$P143($P141)
loop156_next:
@@ -8016,7 +8042,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block142" :anon :subid("18_1274564778.23532") :outer("17_1274564778.23532")
+.sub "_block142" :anon :subid("18_1275117600.18794") :outer("17_1275117600.18794")
.param pmc param_144
.annotate 'line', 515
.lex "$_", param_144
@@ -8056,9 +8082,9 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block64" :anon :subid("14_1274564778.23532") :outer("13_1274564778.23532")
+.sub "_block64" :anon :subid("14_1275117600.18794") :outer("13_1275117600.18794")
.annotate 'line', 499
- .const 'Sub' $P74 = "15_1274564778.23532"
+ .const 'Sub' $P74 = "15_1275117600.18794"
capture_lex $P74
.annotate 'line', 500
new $P66, "Undef"
@@ -8079,7 +8105,7 @@
unless $P68, loop118_done
shift $P72, $P68
loop118_redo:
- .const 'Sub' $P74 = "15_1274564778.23532"
+ .const 'Sub' $P74 = "15_1275117600.18794"
capture_lex $P74
$P74($P72)
loop118_next:
@@ -8102,10 +8128,10 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block73" :anon :subid("15_1274564778.23532") :outer("14_1274564778.23532")
+.sub "_block73" :anon :subid("15_1275117600.18794") :outer("14_1275117600.18794")
.param pmc param_76
.annotate 'line', 501
- .const 'Sub' $P85 = "16_1274564778.23532"
+ .const 'Sub' $P85 = "16_1275117600.18794"
capture_lex $P85
.annotate 'line', 502
$P75 = root_new ['parrot';'Hash']
@@ -8128,7 +8154,7 @@
unless $P80, loop105_done
shift $P83, $P80
loop105_redo:
- .const 'Sub' $P85 = "16_1274564778.23532"
+ .const 'Sub' $P85 = "16_1275117600.18794"
capture_lex $P85
$P85($P83)
loop105_next:
@@ -8177,7 +8203,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block84" :anon :subid("16_1274564778.23532") :outer("15_1274564778.23532")
+.sub "_block84" :anon :subid("16_1275117600.18794") :outer("15_1275117600.18794")
.param pmc param_86
.annotate 'line', 503
.lex "$_", param_86
@@ -8236,7 +8262,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backmod" :subid("26_1274564778.23532") :outer("11_1274564778.23532")
+.sub "backmod" :subid("26_1275117600.18794") :outer("11_1275117600.18794")
.param pmc param_308
.param pmc param_309
.annotate 'line', 562
@@ -8310,7 +8336,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "subrule_alias" :subid("27_1274564778.23532") :outer("11_1274564778.23532")
+.sub "subrule_alias" :subid("27_1275117600.18794") :outer("11_1275117600.18794")
.param pmc param_341
.param pmc param_342
.annotate 'line', 569
@@ -8354,7 +8380,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "arg" :subid("28_1274564778.23532") :method :outer("11_1274564778.23532")
+.sub "arg" :subid("28_1275117600.18794") :method :outer("11_1275117600.18794")
.param pmc param_363
.annotate 'line', 14
new $P362, 'ExceptionHandler'
@@ -8410,10 +8436,10 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "arglist" :subid("29_1274564778.23532") :method :outer("11_1274564778.23532")
+.sub "arglist" :subid("29_1275117600.18794") :method :outer("11_1275117600.18794")
.param pmc param_380
.annotate 'line', 18
- .const 'Sub' $P390 = "30_1274564778.23532"
+ .const 'Sub' $P390 = "30_1275117600.18794"
capture_lex $P390
new $P379, 'ExceptionHandler'
set_addr $P379, control_378
@@ -8447,7 +8473,7 @@
unless $P384, loop396_done
shift $P388, $P384
loop396_redo:
- .const 'Sub' $P390 = "30_1274564778.23532"
+ .const 'Sub' $P390 = "30_1275117600.18794"
capture_lex $P390
$P390($P388)
loop396_next:
@@ -8476,7 +8502,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block389" :anon :subid("30_1274564778.23532") :outer("29_1274564778.23532")
+.sub "_block389" :anon :subid("30_1275117600.18794") :outer("29_1275117600.18794")
.param pmc param_391
.annotate 'line', 20
.lex "$_", param_391
@@ -8489,7 +8515,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "TOP" :subid("31_1274564778.23532") :method :outer("11_1274564778.23532")
+.sub "TOP" :subid("31_1275117600.18794") :method :outer("11_1275117600.18794")
.param pmc param_406
.annotate 'line', 24
new $P405, 'ExceptionHandler'
@@ -8531,14 +8557,14 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "nibbler" :subid("32_1274564778.23532") :method :outer("11_1274564778.23532")
+.sub "nibbler" :subid("32_1275117600.18794") :method :outer("11_1275117600.18794")
.param pmc param_421
.param pmc param_422 :optional
.param int has_param_422 :opt_flag
.annotate 'line', 30
- .const 'Sub' $P456 = "34_1274564778.23532"
+ .const 'Sub' $P456 = "34_1275117600.18794"
capture_lex $P456
- .const 'Sub' $P430 = "33_1274564778.23532"
+ .const 'Sub' $P430 = "33_1275117600.18794"
capture_lex $P430
new $P420, 'ExceptionHandler'
set_addr $P420, control_419
@@ -8559,7 +8585,7 @@
set $S427, $P426
iseq $I428, $S427, "open"
unless $I428, if_425_end
- .const 'Sub' $P430 = "33_1274564778.23532"
+ .const 'Sub' $P430 = "33_1275117600.18794"
capture_lex $P430
$P430()
if_425_end:
@@ -8622,7 +8648,7 @@
unless $P450, loop462_done
shift $P454, $P450
loop462_redo:
- .const 'Sub' $P456 = "34_1274564778.23532"
+ .const 'Sub' $P456 = "34_1275117600.18794"
capture_lex $P456
$P456($P454)
loop462_next:
@@ -8652,7 +8678,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block429" :anon :subid("33_1274564778.23532") :outer("32_1274564778.23532")
+.sub "_block429" :anon :subid("33_1275117600.18794") :outer("32_1275117600.18794")
.annotate 'line', 32
$P431 = root_new ['parrot';'Hash']
.lex "%old", $P431
@@ -8692,7 +8718,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block455" :anon :subid("34_1274564778.23532") :outer("32_1274564778.23532")
+.sub "_block455" :anon :subid("34_1275117600.18794") :outer("32_1275117600.18794")
.param pmc param_457
.annotate 'line', 45
.lex "$_", param_457
@@ -8707,10 +8733,10 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "termish" :subid("35_1274564778.23532") :method :outer("11_1274564778.23532")
+.sub "termish" :subid("35_1275117600.18794") :method :outer("11_1275117600.18794")
.param pmc param_476
.annotate 'line', 55
- .const 'Sub' $P489 = "36_1274564778.23532"
+ .const 'Sub' $P489 = "36_1275117600.18794"
capture_lex $P489
new $P475, 'ExceptionHandler'
set_addr $P475, control_474
@@ -8753,7 +8779,7 @@
unless $P483, loop534_done
shift $P487, $P483
loop534_redo:
- .const 'Sub' $P489 = "36_1274564778.23532"
+ .const 'Sub' $P489 = "36_1275117600.18794"
capture_lex $P489
$P489($P487)
loop534_next:
@@ -8782,7 +8808,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block488" :anon :subid("36_1274564778.23532") :outer("35_1274564778.23532")
+.sub "_block488" :anon :subid("36_1275117600.18794") :outer("35_1275117600.18794")
.param pmc param_491
.annotate 'line', 59
new $P490, "Undef"
@@ -8909,10 +8935,10 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantified_atom" :subid("37_1274564778.23532") :method :outer("11_1274564778.23532")
+.sub "quantified_atom" :subid("37_1275117600.18794") :method :outer("11_1275117600.18794")
.param pmc param_544
.annotate 'line', 76
- .const 'Sub' $P553 = "38_1274564778.23532"
+ .const 'Sub' $P553 = "38_1275117600.18794"
capture_lex $P553
new $P543, 'ExceptionHandler'
set_addr $P543, control_542
@@ -8944,92 +8970,92 @@
vivify_174:
if $P551, if_549
.annotate 'line', 84
- find_lex $P567, "$/"
- unless_null $P567, vivify_175
- $P567 = root_new ['parrot';'Hash']
+ find_lex $P568, "$/"
+ unless_null $P568, vivify_175
+ $P568 = root_new ['parrot';'Hash']
vivify_175:
- set $P568, $P567["backmod"]
- unless_null $P568, vivify_176
- $P568 = root_new ['parrot';'ResizablePMCArray']
+ set $P569, $P568["backmod"]
+ unless_null $P569, vivify_176
+ $P569 = root_new ['parrot';'ResizablePMCArray']
vivify_176:
- set $P569, $P568[0]
- unless_null $P569, vivify_177
- new $P569, "Undef"
+ set $P570, $P569[0]
+ unless_null $P570, vivify_177
+ new $P570, "Undef"
vivify_177:
- unless $P569, if_566_end
- find_lex $P570, "$past"
- find_lex $P571, "$/"
- unless_null $P571, vivify_178
- $P571 = root_new ['parrot';'Hash']
+ unless $P570, if_567_end
+ find_lex $P571, "$past"
+ find_lex $P572, "$/"
+ unless_null $P572, vivify_178
+ $P572 = root_new ['parrot';'Hash']
vivify_178:
- set $P572, $P571["backmod"]
- unless_null $P572, vivify_179
- $P572 = root_new ['parrot';'ResizablePMCArray']
+ set $P573, $P572["backmod"]
+ unless_null $P573, vivify_179
+ $P573 = root_new ['parrot';'ResizablePMCArray']
vivify_179:
- set $P573, $P572[0]
- unless_null $P573, vivify_180
- new $P573, "Undef"
+ set $P574, $P573[0]
+ unless_null $P574, vivify_180
+ new $P574, "Undef"
vivify_180:
- "backmod"($P570, $P573)
- if_566_end:
+ "backmod"($P571, $P574)
+ if_567_end:
goto if_549_end
if_549:
.annotate 'line', 78
- .const 'Sub' $P553 = "38_1274564778.23532"
+ .const 'Sub' $P553 = "38_1275117600.18794"
capture_lex $P553
$P553()
if_549_end:
.annotate 'line', 85
- find_lex $P579, "$past"
- if $P579, if_578
- set $P577, $P579
- goto if_578_end
- if_578:
find_lex $P580, "$past"
- $P581 = $P580."backtrack"()
- isfalse $I582, $P581
- new $P577, 'Integer'
- set $P577, $I582
- if_578_end:
- if $P577, if_576
- set $P575, $P577
- goto if_576_end
- if_576:
- get_global $P583, "@MODIFIERS"
- unless_null $P583, vivify_184
- $P583 = root_new ['parrot';'ResizablePMCArray']
+ if $P580, if_579
+ set $P578, $P580
+ goto if_579_end
+ if_579:
+ find_lex $P581, "$past"
+ $P582 = $P581."backtrack"()
+ isfalse $I583, $P582
+ new $P578, 'Integer'
+ set $P578, $I583
+ if_579_end:
+ if $P578, if_577
+ set $P576, $P578
+ goto if_577_end
+ if_577:
+ get_global $P584, "@MODIFIERS"
+ unless_null $P584, vivify_184
+ $P584 = root_new ['parrot';'ResizablePMCArray']
vivify_184:
- set $P584, $P583[0]
- unless_null $P584, vivify_185
- $P584 = root_new ['parrot';'Hash']
+ set $P585, $P584[0]
+ unless_null $P585, vivify_185
+ $P585 = root_new ['parrot';'Hash']
vivify_185:
- set $P585, $P584["r"]
- unless_null $P585, vivify_186
- new $P585, "Undef"
+ set $P586, $P585["r"]
+ unless_null $P586, vivify_186
+ new $P586, "Undef"
vivify_186:
- set $P575, $P585
- if_576_end:
- unless $P575, if_574_end
+ set $P576, $P586
+ if_577_end:
+ unless $P576, if_575_end
.annotate 'line', 86
- find_lex $P586, "$past"
- $P586."backtrack"("r")
- if_574_end:
+ find_lex $P587, "$past"
+ $P587."backtrack"("r")
+ if_575_end:
.annotate 'line', 88
- find_lex $P587, "$/"
- find_lex $P588, "$past"
- $P589 = $P587."!make"($P588)
+ find_lex $P588, "$/"
+ find_lex $P589, "$past"
+ $P590 = $P588."!make"($P589)
.annotate 'line', 76
- .return ($P589)
+ .return ($P590)
control_542:
.local pmc exception
.get_results (exception)
- getattribute $P590, exception, "payload"
- .return ($P590)
+ getattribute $P591, exception, "payload"
+ .return ($P591)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block552" :anon :subid("38_1274564778.23532") :outer("37_1274564778.23532")
+.sub "_block552" :anon :subid("38_1275117600.18794") :outer("37_1275117600.18794")
.annotate 'line', 80
new $P554, "Undef"
.lex "$qast", $P554
@@ -9038,2258 +9064,2259 @@
isfalse $I557, $P556
unless $I557, if_555_end
find_lex $P558, "$/"
- $P558."panic"("Can't quantify zero-width atom")
+ $P559 = $P558."CURSOR"()
+ $P559."panic"("Can't quantify zero-width atom")
if_555_end:
.annotate 'line', 80
- find_lex $P559, "$/"
- unless_null $P559, vivify_181
- $P559 = root_new ['parrot';'Hash']
+ find_lex $P560, "$/"
+ unless_null $P560, vivify_181
+ $P560 = root_new ['parrot';'Hash']
vivify_181:
- set $P560, $P559["quantifier"]
- unless_null $P560, vivify_182
- $P560 = root_new ['parrot';'ResizablePMCArray']
+ set $P561, $P560["quantifier"]
+ unless_null $P561, vivify_182
+ $P561 = root_new ['parrot';'ResizablePMCArray']
vivify_182:
- set $P561, $P560[0]
- unless_null $P561, vivify_183
- new $P561, "Undef"
+ set $P562, $P561[0]
+ unless_null $P562, vivify_183
+ new $P562, "Undef"
vivify_183:
- $P562 = $P561."ast"()
- store_lex "$qast", $P562
+ $P563 = $P562."ast"()
+ store_lex "$qast", $P563
.annotate 'line', 81
- find_lex $P563, "$qast"
- find_lex $P564, "$past"
- $P563."unshift"($P564)
+ find_lex $P564, "$qast"
+ find_lex $P565, "$past"
+ $P564."unshift"($P565)
.annotate 'line', 82
- find_lex $P565, "$qast"
- store_lex "$past", $P565
+ find_lex $P566, "$qast"
+ store_lex "$past", $P566
.annotate 'line', 78
- .return ($P565)
+ .return ($P566)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "atom" :subid("39_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_594
+.sub "atom" :subid("39_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_595
.annotate 'line', 91
- new $P593, 'ExceptionHandler'
- set_addr $P593, control_592
- $P593."handle_types"(57)
- push_eh $P593
+ new $P594, 'ExceptionHandler'
+ set_addr $P594, control_593
+ $P594."handle_types"(57)
+ push_eh $P594
.lex "self", self
- .lex "$/", param_594
+ .lex "$/", param_595
.annotate 'line', 92
- new $P595, "Undef"
- .lex "$past", $P595
+ new $P596, "Undef"
+ .lex "$past", $P596
.annotate 'line', 91
- find_lex $P596, "$past"
+ find_lex $P597, "$past"
.annotate 'line', 93
- find_lex $P598, "$/"
- unless_null $P598, vivify_187
- $P598 = root_new ['parrot';'Hash']
+ find_lex $P599, "$/"
+ unless_null $P599, vivify_187
+ $P599 = root_new ['parrot';'Hash']
vivify_187:
- set $P599, $P598["metachar"]
- unless_null $P599, vivify_188
- new $P599, "Undef"
+ set $P600, $P599["metachar"]
+ unless_null $P600, vivify_188
+ new $P600, "Undef"
vivify_188:
- if $P599, if_597
+ if $P600, if_598
.annotate 'line', 95
- get_hll_global $P603, ["PAST"], "Regex"
- find_lex $P604, "$/"
- set $S605, $P604
- find_lex $P606, "$/"
- $P607 = $P603."new"($S605, "literal" :named("pasttype"), $P606 :named("node"))
- store_lex "$past", $P607
+ get_hll_global $P604, ["PAST"], "Regex"
+ find_lex $P605, "$/"
+ set $S606, $P605
+ find_lex $P607, "$/"
+ $P608 = $P604."new"($S606, "literal" :named("pasttype"), $P607 :named("node"))
+ store_lex "$past", $P608
.annotate 'line', 96
- get_global $P609, "@MODIFIERS"
- unless_null $P609, vivify_189
- $P609 = root_new ['parrot';'ResizablePMCArray']
+ get_global $P610, "@MODIFIERS"
+ unless_null $P610, vivify_189
+ $P610 = root_new ['parrot';'ResizablePMCArray']
vivify_189:
- set $P610, $P609[0]
- unless_null $P610, vivify_190
- $P610 = root_new ['parrot';'Hash']
+ set $P611, $P610[0]
+ unless_null $P611, vivify_190
+ $P611 = root_new ['parrot';'Hash']
vivify_190:
- set $P611, $P610["i"]
- unless_null $P611, vivify_191
- new $P611, "Undef"
+ set $P612, $P611["i"]
+ unless_null $P612, vivify_191
+ new $P612, "Undef"
vivify_191:
- unless $P611, if_608_end
- find_lex $P612, "$past"
- $P612."subtype"("ignorecase")
- if_608_end:
+ unless $P612, if_609_end
+ find_lex $P613, "$past"
+ $P613."subtype"("ignorecase")
+ if_609_end:
.annotate 'line', 94
- goto if_597_end
- if_597:
+ goto if_598_end
+ if_598:
.annotate 'line', 93
- find_lex $P600, "$/"
- unless_null $P600, vivify_192
- $P600 = root_new ['parrot';'Hash']
+ find_lex $P601, "$/"
+ unless_null $P601, vivify_192
+ $P601 = root_new ['parrot';'Hash']
vivify_192:
- set $P601, $P600["metachar"]
- unless_null $P601, vivify_193
- new $P601, "Undef"
+ set $P602, $P601["metachar"]
+ unless_null $P602, vivify_193
+ new $P602, "Undef"
vivify_193:
- $P602 = $P601."ast"()
- store_lex "$past", $P602
- if_597_end:
+ $P603 = $P602."ast"()
+ store_lex "$past", $P603
+ if_598_end:
.annotate 'line', 98
- find_lex $P613, "$/"
- find_lex $P614, "$past"
- $P615 = $P613."!make"($P614)
+ find_lex $P614, "$/"
+ find_lex $P615, "$past"
+ $P616 = $P614."!make"($P615)
.annotate 'line', 91
- .return ($P615)
- control_592:
+ .return ($P616)
+ control_593:
.local pmc exception
.get_results (exception)
- getattribute $P616, exception, "payload"
- .return ($P616)
+ getattribute $P617, exception, "payload"
+ .return ($P617)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<*>" :subid("40_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_620
+.sub "quantifier:sym<*>" :subid("40_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_621
.annotate 'line', 101
- new $P619, 'ExceptionHandler'
- set_addr $P619, control_618
- $P619."handle_types"(57)
- push_eh $P619
+ new $P620, 'ExceptionHandler'
+ set_addr $P620, control_619
+ $P620."handle_types"(57)
+ push_eh $P620
.lex "self", self
- .lex "$/", param_620
+ .lex "$/", param_621
.annotate 'line', 102
- new $P621, "Undef"
- .lex "$past", $P621
- get_hll_global $P622, ["PAST"], "Regex"
- find_lex $P623, "$/"
- $P624 = $P622."new"("quant" :named("pasttype"), $P623 :named("node"))
- store_lex "$past", $P624
+ new $P622, "Undef"
+ .lex "$past", $P622
+ get_hll_global $P623, ["PAST"], "Regex"
+ find_lex $P624, "$/"
+ $P625 = $P623."new"("quant" :named("pasttype"), $P624 :named("node"))
+ store_lex "$past", $P625
.annotate 'line', 103
- find_lex $P625, "$/"
- find_lex $P626, "$past"
- find_lex $P627, "$/"
- unless_null $P627, vivify_194
- $P627 = root_new ['parrot';'Hash']
+ find_lex $P626, "$/"
+ find_lex $P627, "$past"
+ find_lex $P628, "$/"
+ unless_null $P628, vivify_194
+ $P628 = root_new ['parrot';'Hash']
vivify_194:
- set $P628, $P627["backmod"]
- unless_null $P628, vivify_195
- new $P628, "Undef"
+ set $P629, $P628["backmod"]
+ unless_null $P629, vivify_195
+ new $P629, "Undef"
vivify_195:
- $P629 = "backmod"($P626, $P628)
- $P630 = $P625."!make"($P629)
+ $P630 = "backmod"($P627, $P629)
+ $P631 = $P626."!make"($P630)
.annotate 'line', 101
- .return ($P630)
- control_618:
+ .return ($P631)
+ control_619:
.local pmc exception
.get_results (exception)
- getattribute $P631, exception, "payload"
- .return ($P631)
+ getattribute $P632, exception, "payload"
+ .return ($P632)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<+>" :subid("41_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_635
+.sub "quantifier:sym<+>" :subid("41_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_636
.annotate 'line', 106
- new $P634, 'ExceptionHandler'
- set_addr $P634, control_633
- $P634."handle_types"(57)
- push_eh $P634
+ new $P635, 'ExceptionHandler'
+ set_addr $P635, control_634
+ $P635."handle_types"(57)
+ push_eh $P635
.lex "self", self
- .lex "$/", param_635
+ .lex "$/", param_636
.annotate 'line', 107
- new $P636, "Undef"
- .lex "$past", $P636
- get_hll_global $P637, ["PAST"], "Regex"
- find_lex $P638, "$/"
- $P639 = $P637."new"("quant" :named("pasttype"), 1 :named("min"), $P638 :named("node"))
- store_lex "$past", $P639
+ new $P637, "Undef"
+ .lex "$past", $P637
+ get_hll_global $P638, ["PAST"], "Regex"
+ find_lex $P639, "$/"
+ $P640 = $P638."new"("quant" :named("pasttype"), 1 :named("min"), $P639 :named("node"))
+ store_lex "$past", $P640
.annotate 'line', 108
- find_lex $P640, "$/"
- find_lex $P641, "$past"
- find_lex $P642, "$/"
- unless_null $P642, vivify_196
- $P642 = root_new ['parrot';'Hash']
+ find_lex $P641, "$/"
+ find_lex $P642, "$past"
+ find_lex $P643, "$/"
+ unless_null $P643, vivify_196
+ $P643 = root_new ['parrot';'Hash']
vivify_196:
- set $P643, $P642["backmod"]
- unless_null $P643, vivify_197
- new $P643, "Undef"
+ set $P644, $P643["backmod"]
+ unless_null $P644, vivify_197
+ new $P644, "Undef"
vivify_197:
- $P644 = "backmod"($P641, $P643)
- $P645 = $P640."!make"($P644)
+ $P645 = "backmod"($P642, $P644)
+ $P646 = $P641."!make"($P645)
.annotate 'line', 106
- .return ($P645)
- control_633:
+ .return ($P646)
+ control_634:
.local pmc exception
.get_results (exception)
- getattribute $P646, exception, "payload"
- .return ($P646)
+ getattribute $P647, exception, "payload"
+ .return ($P647)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<?>" :subid("42_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_650
+.sub "quantifier:sym<?>" :subid("42_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_651
.annotate 'line', 111
- new $P649, 'ExceptionHandler'
- set_addr $P649, control_648
- $P649."handle_types"(57)
- push_eh $P649
+ new $P650, 'ExceptionHandler'
+ set_addr $P650, control_649
+ $P650."handle_types"(57)
+ push_eh $P650
.lex "self", self
- .lex "$/", param_650
+ .lex "$/", param_651
.annotate 'line', 112
- new $P651, "Undef"
- .lex "$past", $P651
- get_hll_global $P652, ["PAST"], "Regex"
- find_lex $P653, "$/"
- $P654 = $P652."new"("quant" :named("pasttype"), 0 :named("min"), 1 :named("max"), $P653 :named("node"))
- store_lex "$past", $P654
+ new $P652, "Undef"
+ .lex "$past", $P652
+ get_hll_global $P653, ["PAST"], "Regex"
+ find_lex $P654, "$/"
+ $P655 = $P653."new"("quant" :named("pasttype"), 0 :named("min"), 1 :named("max"), $P654 :named("node"))
+ store_lex "$past", $P655
.annotate 'line', 113
- find_lex $P655, "$/"
- find_lex $P656, "$past"
- find_lex $P657, "$/"
- unless_null $P657, vivify_198
- $P657 = root_new ['parrot';'Hash']
+ find_lex $P656, "$/"
+ find_lex $P657, "$past"
+ find_lex $P658, "$/"
+ unless_null $P658, vivify_198
+ $P658 = root_new ['parrot';'Hash']
vivify_198:
- set $P658, $P657["backmod"]
- unless_null $P658, vivify_199
- new $P658, "Undef"
+ set $P659, $P658["backmod"]
+ unless_null $P659, vivify_199
+ new $P659, "Undef"
vivify_199:
- $P659 = "backmod"($P656, $P658)
- $P655."!make"($P659)
+ $P660 = "backmod"($P657, $P659)
+ $P656."!make"($P660)
.annotate 'line', 114
- find_lex $P660, "$/"
- find_lex $P661, "$past"
- $P662 = $P660."!make"($P661)
+ find_lex $P661, "$/"
+ find_lex $P662, "$past"
+ $P663 = $P661."!make"($P662)
.annotate 'line', 111
- .return ($P662)
- control_648:
+ .return ($P663)
+ control_649:
.local pmc exception
.get_results (exception)
- getattribute $P663, exception, "payload"
- .return ($P663)
+ getattribute $P664, exception, "payload"
+ .return ($P664)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<**>" :subid("43_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_667
+.sub "quantifier:sym<**>" :subid("43_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_668
.annotate 'line', 117
- new $P666, 'ExceptionHandler'
- set_addr $P666, control_665
- $P666."handle_types"(57)
- push_eh $P666
+ new $P667, 'ExceptionHandler'
+ set_addr $P667, control_666
+ $P667."handle_types"(57)
+ push_eh $P667
.lex "self", self
- .lex "$/", param_667
+ .lex "$/", param_668
.annotate 'line', 118
- new $P668, "Undef"
- .lex "$past", $P668
+ new $P669, "Undef"
+ .lex "$past", $P669
.annotate 'line', 117
- find_lex $P669, "$past"
+ find_lex $P670, "$past"
.annotate 'line', 119
- find_lex $P671, "$/"
- unless_null $P671, vivify_200
- $P671 = root_new ['parrot';'Hash']
+ find_lex $P672, "$/"
+ unless_null $P672, vivify_200
+ $P672 = root_new ['parrot';'Hash']
vivify_200:
- set $P672, $P671["quantified_atom"]
- unless_null $P672, vivify_201
- new $P672, "Undef"
+ set $P673, $P672["quantified_atom"]
+ unless_null $P673, vivify_201
+ new $P673, "Undef"
vivify_201:
- if $P672, if_670
+ if $P673, if_671
.annotate 'line', 124
- get_hll_global $P679, ["PAST"], "Regex"
- find_lex $P680, "$/"
- unless_null $P680, vivify_202
- $P680 = root_new ['parrot';'Hash']
+ get_hll_global $P680, ["PAST"], "Regex"
+ find_lex $P681, "$/"
+ unless_null $P681, vivify_202
+ $P681 = root_new ['parrot';'Hash']
vivify_202:
- set $P681, $P680["min"]
- unless_null $P681, vivify_203
- new $P681, "Undef"
+ set $P682, $P681["min"]
+ unless_null $P682, vivify_203
+ new $P682, "Undef"
vivify_203:
- set $N682, $P681
- find_lex $P683, "$/"
- $P684 = $P679."new"("quant" :named("pasttype"), $N682 :named("min"), $P683 :named("node"))
- store_lex "$past", $P684
+ set $N683, $P682
+ find_lex $P684, "$/"
+ $P685 = $P680."new"("quant" :named("pasttype"), $N683 :named("min"), $P684 :named("node"))
+ store_lex "$past", $P685
.annotate 'line', 125
- find_lex $P686, "$/"
- unless_null $P686, vivify_204
- $P686 = root_new ['parrot';'Hash']
+ find_lex $P687, "$/"
+ unless_null $P687, vivify_204
+ $P687 = root_new ['parrot';'Hash']
vivify_204:
- set $P687, $P686["max"]
- unless_null $P687, vivify_205
- new $P687, "Undef"
+ set $P688, $P687["max"]
+ unless_null $P688, vivify_205
+ new $P688, "Undef"
vivify_205:
- isfalse $I688, $P687
- if $I688, if_685
+ isfalse $I689, $P688
+ if $I689, if_686
.annotate 'line', 126
- find_lex $P694, "$/"
- unless_null $P694, vivify_206
- $P694 = root_new ['parrot';'Hash']
+ find_lex $P695, "$/"
+ unless_null $P695, vivify_206
+ $P695 = root_new ['parrot';'Hash']
vivify_206:
- set $P695, $P694["max"]
- unless_null $P695, vivify_207
- $P695 = root_new ['parrot';'ResizablePMCArray']
+ set $P696, $P695["max"]
+ unless_null $P696, vivify_207
+ $P696 = root_new ['parrot';'ResizablePMCArray']
vivify_207:
- set $P696, $P695[0]
- unless_null $P696, vivify_208
- new $P696, "Undef"
+ set $P697, $P696[0]
+ unless_null $P697, vivify_208
+ new $P697, "Undef"
vivify_208:
- set $S697, $P696
- isne $I698, $S697, "*"
- unless $I698, if_693_end
- find_lex $P699, "$past"
- find_lex $P700, "$/"
- unless_null $P700, vivify_209
- $P700 = root_new ['parrot';'Hash']
+ set $S698, $P697
+ isne $I699, $S698, "*"
+ unless $I699, if_694_end
+ find_lex $P700, "$past"
+ find_lex $P701, "$/"
+ unless_null $P701, vivify_209
+ $P701 = root_new ['parrot';'Hash']
vivify_209:
- set $P701, $P700["max"]
- unless_null $P701, vivify_210
- $P701 = root_new ['parrot';'ResizablePMCArray']
+ set $P702, $P701["max"]
+ unless_null $P702, vivify_210
+ $P702 = root_new ['parrot';'ResizablePMCArray']
vivify_210:
- set $P702, $P701[0]
- unless_null $P702, vivify_211
- new $P702, "Undef"
+ set $P703, $P702[0]
+ unless_null $P703, vivify_211
+ new $P703, "Undef"
vivify_211:
- set $N703, $P702
- $P699."max"($N703)
- if_693_end:
- goto if_685_end
- if_685:
+ set $N704, $P703
+ $P700."max"($N704)
+ if_694_end:
+ goto if_686_end
+ if_686:
.annotate 'line', 125
- find_lex $P689, "$past"
- find_lex $P690, "$/"
- unless_null $P690, vivify_212
- $P690 = root_new ['parrot';'Hash']
+ find_lex $P690, "$past"
+ find_lex $P691, "$/"
+ unless_null $P691, vivify_212
+ $P691 = root_new ['parrot';'Hash']
vivify_212:
- set $P691, $P690["min"]
- unless_null $P691, vivify_213
- new $P691, "Undef"
+ set $P692, $P691["min"]
+ unless_null $P692, vivify_213
+ new $P692, "Undef"
vivify_213:
- set $N692, $P691
- $P689."max"($N692)
- if_685_end:
+ set $N693, $P692
+ $P690."max"($N693)
+ if_686_end:
.annotate 'line', 123
- goto if_670_end
- if_670:
+ goto if_671_end
+ if_671:
.annotate 'line', 120
- get_hll_global $P673, ["PAST"], "Regex"
+ get_hll_global $P674, ["PAST"], "Regex"
.annotate 'line', 121
- find_lex $P674, "$/"
- unless_null $P674, vivify_214
- $P674 = root_new ['parrot';'Hash']
+ find_lex $P675, "$/"
+ unless_null $P675, vivify_214
+ $P675 = root_new ['parrot';'Hash']
vivify_214:
- set $P675, $P674["quantified_atom"]
- unless_null $P675, vivify_215
- new $P675, "Undef"
+ set $P676, $P675["quantified_atom"]
+ unless_null $P676, vivify_215
+ new $P676, "Undef"
vivify_215:
- $P676 = $P675."ast"()
- find_lex $P677, "$/"
- $P678 = $P673."new"("quant" :named("pasttype"), 1 :named("min"), $P676 :named("sep"), $P677 :named("node"))
+ $P677 = $P676."ast"()
+ find_lex $P678, "$/"
+ $P679 = $P674."new"("quant" :named("pasttype"), 1 :named("min"), $P677 :named("sep"), $P678 :named("node"))
.annotate 'line', 120
- store_lex "$past", $P678
- if_670_end:
+ store_lex "$past", $P679
+ if_671_end:
.annotate 'line', 128
- find_lex $P704, "$/"
- find_lex $P705, "$past"
- find_lex $P706, "$/"
- unless_null $P706, vivify_216
- $P706 = root_new ['parrot';'Hash']
+ find_lex $P705, "$/"
+ find_lex $P706, "$past"
+ find_lex $P707, "$/"
+ unless_null $P707, vivify_216
+ $P707 = root_new ['parrot';'Hash']
vivify_216:
- set $P707, $P706["backmod"]
- unless_null $P707, vivify_217
- new $P707, "Undef"
+ set $P708, $P707["backmod"]
+ unless_null $P708, vivify_217
+ new $P708, "Undef"
vivify_217:
- $P708 = "backmod"($P705, $P707)
- $P709 = $P704."!make"($P708)
+ $P709 = "backmod"($P706, $P708)
+ $P710 = $P705."!make"($P709)
.annotate 'line', 117
- .return ($P709)
- control_665:
+ .return ($P710)
+ control_666:
.local pmc exception
.get_results (exception)
- getattribute $P710, exception, "payload"
- .return ($P710)
+ getattribute $P711, exception, "payload"
+ .return ($P711)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<ws>" :subid("44_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_714
+.sub "metachar:sym<ws>" :subid("44_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_715
.annotate 'line', 131
- new $P713, 'ExceptionHandler'
- set_addr $P713, control_712
- $P713."handle_types"(57)
- push_eh $P713
+ new $P714, 'ExceptionHandler'
+ set_addr $P714, control_713
+ $P714."handle_types"(57)
+ push_eh $P714
.lex "self", self
- .lex "$/", param_714
+ .lex "$/", param_715
.annotate 'line', 132
- new $P715, "Undef"
- .lex "$past", $P715
+ new $P716, "Undef"
+ .lex "$past", $P716
.annotate 'line', 133
- get_global $P718, "@MODIFIERS"
- unless_null $P718, vivify_218
- $P718 = root_new ['parrot';'ResizablePMCArray']
+ get_global $P719, "@MODIFIERS"
+ unless_null $P719, vivify_218
+ $P719 = root_new ['parrot';'ResizablePMCArray']
vivify_218:
- set $P719, $P718[0]
- unless_null $P719, vivify_219
- $P719 = root_new ['parrot';'Hash']
+ set $P720, $P719[0]
+ unless_null $P720, vivify_219
+ $P720 = root_new ['parrot';'Hash']
vivify_219:
- set $P720, $P719["s"]
- unless_null $P720, vivify_220
- new $P720, "Undef"
+ set $P721, $P720["s"]
+ unless_null $P721, vivify_220
+ new $P721, "Undef"
vivify_220:
- if $P720, if_717
- new $P724, "Integer"
- assign $P724, 0
- set $P716, $P724
- goto if_717_end
- if_717:
- get_hll_global $P721, ["PAST"], "Regex"
- find_lex $P722, "$/"
- $P723 = $P721."new"("ws", "subrule" :named("pasttype"), "method" :named("subtype"), $P722 :named("node"))
- set $P716, $P723
- if_717_end:
- store_lex "$past", $P716
+ if $P721, if_718
+ new $P725, "Integer"
+ assign $P725, 0
+ set $P717, $P725
+ goto if_718_end
+ if_718:
+ get_hll_global $P722, ["PAST"], "Regex"
+ find_lex $P723, "$/"
+ $P724 = $P722."new"("ws", "subrule" :named("pasttype"), "method" :named("subtype"), $P723 :named("node"))
+ set $P717, $P724
+ if_718_end:
+ store_lex "$past", $P717
.annotate 'line', 136
- find_lex $P725, "$/"
- find_lex $P726, "$past"
- $P727 = $P725."!make"($P726)
+ find_lex $P726, "$/"
+ find_lex $P727, "$past"
+ $P728 = $P726."!make"($P727)
.annotate 'line', 131
- .return ($P727)
- control_712:
+ .return ($P728)
+ control_713:
.local pmc exception
.get_results (exception)
- getattribute $P728, exception, "payload"
- .return ($P728)
+ getattribute $P729, exception, "payload"
+ .return ($P729)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<[ ]>" :subid("45_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_732
+.sub "metachar:sym<[ ]>" :subid("45_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_733
.annotate 'line', 140
- new $P731, 'ExceptionHandler'
- set_addr $P731, control_730
- $P731."handle_types"(57)
- push_eh $P731
+ new $P732, 'ExceptionHandler'
+ set_addr $P732, control_731
+ $P732."handle_types"(57)
+ push_eh $P732
.lex "self", self
- .lex "$/", param_732
+ .lex "$/", param_733
.annotate 'line', 141
- find_lex $P733, "$/"
find_lex $P734, "$/"
- unless_null $P734, vivify_221
- $P734 = root_new ['parrot';'Hash']
+ find_lex $P735, "$/"
+ unless_null $P735, vivify_221
+ $P735 = root_new ['parrot';'Hash']
vivify_221:
- set $P735, $P734["nibbler"]
- unless_null $P735, vivify_222
- new $P735, "Undef"
+ set $P736, $P735["nibbler"]
+ unless_null $P736, vivify_222
+ new $P736, "Undef"
vivify_222:
- $P736 = $P735."ast"()
- $P737 = $P733."!make"($P736)
+ $P737 = $P736."ast"()
+ $P738 = $P734."!make"($P737)
.annotate 'line', 140
- .return ($P737)
- control_730:
+ .return ($P738)
+ control_731:
.local pmc exception
.get_results (exception)
- getattribute $P738, exception, "payload"
- .return ($P738)
+ getattribute $P739, exception, "payload"
+ .return ($P739)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<( )>" :subid("46_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_742
+.sub "metachar:sym<( )>" :subid("46_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_743
.annotate 'line', 144
- new $P741, 'ExceptionHandler'
- set_addr $P741, control_740
- $P741."handle_types"(57)
- push_eh $P741
+ new $P742, 'ExceptionHandler'
+ set_addr $P742, control_741
+ $P742."handle_types"(57)
+ push_eh $P742
.lex "self", self
- .lex "$/", param_742
+ .lex "$/", param_743
.annotate 'line', 145
- new $P743, "Undef"
- .lex "$subpast", $P743
-.annotate 'line', 146
new $P744, "Undef"
- .lex "$past", $P744
+ .lex "$subpast", $P744
+.annotate 'line', 146
+ new $P745, "Undef"
+ .lex "$past", $P745
.annotate 'line', 145
- find_lex $P745, "$/"
- unless_null $P745, vivify_223
- $P745 = root_new ['parrot';'Hash']
+ find_lex $P746, "$/"
+ unless_null $P746, vivify_223
+ $P746 = root_new ['parrot';'Hash']
vivify_223:
- set $P746, $P745["nibbler"]
- unless_null $P746, vivify_224
- new $P746, "Undef"
+ set $P747, $P746["nibbler"]
+ unless_null $P747, vivify_224
+ new $P747, "Undef"
vivify_224:
- $P747 = $P746."ast"()
- $P748 = "buildsub"($P747)
- store_lex "$subpast", $P748
+ $P748 = $P747."ast"()
+ $P749 = "buildsub"($P748)
+ store_lex "$subpast", $P749
.annotate 'line', 146
- get_hll_global $P749, ["PAST"], "Regex"
- find_lex $P750, "$subpast"
- find_lex $P751, "$/"
- $P752 = $P749."new"($P750, "subrule" :named("pasttype"), "capture" :named("subtype"), $P751 :named("node"))
- store_lex "$past", $P752
+ get_hll_global $P750, ["PAST"], "Regex"
+ find_lex $P751, "$subpast"
+ find_lex $P752, "$/"
+ $P753 = $P750."new"($P751, "subrule" :named("pasttype"), "capture" :named("subtype"), $P752 :named("node"))
+ store_lex "$past", $P753
.annotate 'line', 148
- find_lex $P753, "$/"
- find_lex $P754, "$past"
- $P755 = $P753."!make"($P754)
+ find_lex $P754, "$/"
+ find_lex $P755, "$past"
+ $P756 = $P754."!make"($P755)
.annotate 'line', 144
- .return ($P755)
- control_740:
+ .return ($P756)
+ control_741:
.local pmc exception
.get_results (exception)
- getattribute $P756, exception, "payload"
- .return ($P756)
+ getattribute $P757, exception, "payload"
+ .return ($P757)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<'>" :subid("47_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_760
+.sub "metachar:sym<'>" :subid("47_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_761
.annotate 'line', 151
- new $P759, 'ExceptionHandler'
- set_addr $P759, control_758
- $P759."handle_types"(57)
- push_eh $P759
+ new $P760, 'ExceptionHandler'
+ set_addr $P760, control_759
+ $P760."handle_types"(57)
+ push_eh $P760
.lex "self", self
- .lex "$/", param_760
+ .lex "$/", param_761
.annotate 'line', 152
- new $P761, "Undef"
- .lex "$quote", $P761
-.annotate 'line', 154
new $P762, "Undef"
- .lex "$past", $P762
+ .lex "$quote", $P762
+.annotate 'line', 154
+ new $P763, "Undef"
+ .lex "$past", $P763
.annotate 'line', 152
- find_lex $P763, "$/"
- unless_null $P763, vivify_225
- $P763 = root_new ['parrot';'Hash']
+ find_lex $P764, "$/"
+ unless_null $P764, vivify_225
+ $P764 = root_new ['parrot';'Hash']
vivify_225:
- set $P764, $P763["quote_EXPR"]
- unless_null $P764, vivify_226
- new $P764, "Undef"
+ set $P765, $P764["quote_EXPR"]
+ unless_null $P765, vivify_226
+ new $P765, "Undef"
vivify_226:
- $P765 = $P764."ast"()
- store_lex "$quote", $P765
+ $P766 = $P765."ast"()
+ store_lex "$quote", $P766
.annotate 'line', 153
- get_hll_global $P767, ["PAST"], "Val"
- find_lex $P768, "$quote"
- $P769 = $P767."ACCEPTS"($P768)
- unless $P769, if_766_end
- find_lex $P770, "$quote"
- $P771 = $P770."value"()
- store_lex "$quote", $P771
- if_766_end:
+ get_hll_global $P768, ["PAST"], "Val"
+ find_lex $P769, "$quote"
+ $P770 = $P768."ACCEPTS"($P769)
+ unless $P770, if_767_end
+ find_lex $P771, "$quote"
+ $P772 = $P771."value"()
+ store_lex "$quote", $P772
+ if_767_end:
.annotate 'line', 154
- get_hll_global $P772, ["PAST"], "Regex"
- find_lex $P773, "$quote"
- find_lex $P774, "$/"
- $P775 = $P772."new"($P773, "literal" :named("pasttype"), $P774 :named("node"))
- store_lex "$past", $P775
+ get_hll_global $P773, ["PAST"], "Regex"
+ find_lex $P774, "$quote"
+ find_lex $P775, "$/"
+ $P776 = $P773."new"($P774, "literal" :named("pasttype"), $P775 :named("node"))
+ store_lex "$past", $P776
.annotate 'line', 155
- find_lex $P776, "$/"
- find_lex $P777, "$past"
- $P778 = $P776."!make"($P777)
+ find_lex $P777, "$/"
+ find_lex $P778, "$past"
+ $P779 = $P777."!make"($P778)
.annotate 'line', 151
- .return ($P778)
- control_758:
+ .return ($P779)
+ control_759:
.local pmc exception
.get_results (exception)
- getattribute $P779, exception, "payload"
- .return ($P779)
+ getattribute $P780, exception, "payload"
+ .return ($P780)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<\">" :subid("48_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_783
+.sub "metachar:sym<\">" :subid("48_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_784
.annotate 'line', 158
- new $P782, 'ExceptionHandler'
- set_addr $P782, control_781
- $P782."handle_types"(57)
- push_eh $P782
+ new $P783, 'ExceptionHandler'
+ set_addr $P783, control_782
+ $P783."handle_types"(57)
+ push_eh $P783
.lex "self", self
- .lex "$/", param_783
+ .lex "$/", param_784
.annotate 'line', 159
- new $P784, "Undef"
- .lex "$quote", $P784
-.annotate 'line', 161
new $P785, "Undef"
- .lex "$past", $P785
+ .lex "$quote", $P785
+.annotate 'line', 161
+ new $P786, "Undef"
+ .lex "$past", $P786
.annotate 'line', 159
- find_lex $P786, "$/"
- unless_null $P786, vivify_227
- $P786 = root_new ['parrot';'Hash']
+ find_lex $P787, "$/"
+ unless_null $P787, vivify_227
+ $P787 = root_new ['parrot';'Hash']
vivify_227:
- set $P787, $P786["quote_EXPR"]
- unless_null $P787, vivify_228
- new $P787, "Undef"
+ set $P788, $P787["quote_EXPR"]
+ unless_null $P788, vivify_228
+ new $P788, "Undef"
vivify_228:
- $P788 = $P787."ast"()
- store_lex "$quote", $P788
+ $P789 = $P788."ast"()
+ store_lex "$quote", $P789
.annotate 'line', 160
- get_hll_global $P790, ["PAST"], "Val"
- find_lex $P791, "$quote"
- $P792 = $P790."ACCEPTS"($P791)
- unless $P792, if_789_end
- find_lex $P793, "$quote"
- $P794 = $P793."value"()
- store_lex "$quote", $P794
- if_789_end:
+ get_hll_global $P791, ["PAST"], "Val"
+ find_lex $P792, "$quote"
+ $P793 = $P791."ACCEPTS"($P792)
+ unless $P793, if_790_end
+ find_lex $P794, "$quote"
+ $P795 = $P794."value"()
+ store_lex "$quote", $P795
+ if_790_end:
.annotate 'line', 161
- get_hll_global $P795, ["PAST"], "Regex"
- find_lex $P796, "$quote"
- find_lex $P797, "$/"
- $P798 = $P795."new"($P796, "literal" :named("pasttype"), $P797 :named("node"))
- store_lex "$past", $P798
+ get_hll_global $P796, ["PAST"], "Regex"
+ find_lex $P797, "$quote"
+ find_lex $P798, "$/"
+ $P799 = $P796."new"($P797, "literal" :named("pasttype"), $P798 :named("node"))
+ store_lex "$past", $P799
.annotate 'line', 162
- find_lex $P799, "$/"
- find_lex $P800, "$past"
- $P801 = $P799."!make"($P800)
+ find_lex $P800, "$/"
+ find_lex $P801, "$past"
+ $P802 = $P800."!make"($P801)
.annotate 'line', 158
- .return ($P801)
- control_781:
+ .return ($P802)
+ control_782:
.local pmc exception
.get_results (exception)
- getattribute $P802, exception, "payload"
- .return ($P802)
+ getattribute $P803, exception, "payload"
+ .return ($P803)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<.>" :subid("49_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_806
+.sub "metachar:sym<.>" :subid("49_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_807
.annotate 'line', 165
- new $P805, 'ExceptionHandler'
- set_addr $P805, control_804
- $P805."handle_types"(57)
- push_eh $P805
+ new $P806, 'ExceptionHandler'
+ set_addr $P806, control_805
+ $P806."handle_types"(57)
+ push_eh $P806
.lex "self", self
- .lex "$/", param_806
+ .lex "$/", param_807
.annotate 'line', 166
- new $P807, "Undef"
- .lex "$past", $P807
- get_hll_global $P808, ["PAST"], "Regex"
- find_lex $P809, "$/"
- $P810 = $P808."new"("charclass" :named("pasttype"), "." :named("subtype"), $P809 :named("node"))
- store_lex "$past", $P810
+ new $P808, "Undef"
+ .lex "$past", $P808
+ get_hll_global $P809, ["PAST"], "Regex"
+ find_lex $P810, "$/"
+ $P811 = $P809."new"("charclass" :named("pasttype"), "." :named("subtype"), $P810 :named("node"))
+ store_lex "$past", $P811
.annotate 'line', 167
- find_lex $P811, "$/"
- find_lex $P812, "$past"
- $P813 = $P811."!make"($P812)
+ find_lex $P812, "$/"
+ find_lex $P813, "$past"
+ $P814 = $P812."!make"($P813)
.annotate 'line', 165
- .return ($P813)
- control_804:
+ .return ($P814)
+ control_805:
.local pmc exception
.get_results (exception)
- getattribute $P814, exception, "payload"
- .return ($P814)
+ getattribute $P815, exception, "payload"
+ .return ($P815)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<^>" :subid("50_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_818
+.sub "metachar:sym<^>" :subid("50_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_819
.annotate 'line', 170
- new $P817, 'ExceptionHandler'
- set_addr $P817, control_816
- $P817."handle_types"(57)
- push_eh $P817
+ new $P818, 'ExceptionHandler'
+ set_addr $P818, control_817
+ $P818."handle_types"(57)
+ push_eh $P818
.lex "self", self
- .lex "$/", param_818
+ .lex "$/", param_819
.annotate 'line', 171
- new $P819, "Undef"
- .lex "$past", $P819
- get_hll_global $P820, ["PAST"], "Regex"
- find_lex $P821, "$/"
- $P822 = $P820."new"("anchor" :named("pasttype"), "bos" :named("subtype"), $P821 :named("node"))
- store_lex "$past", $P822
+ new $P820, "Undef"
+ .lex "$past", $P820
+ get_hll_global $P821, ["PAST"], "Regex"
+ find_lex $P822, "$/"
+ $P823 = $P821."new"("anchor" :named("pasttype"), "bos" :named("subtype"), $P822 :named("node"))
+ store_lex "$past", $P823
.annotate 'line', 172
- find_lex $P823, "$/"
- find_lex $P824, "$past"
- $P825 = $P823."!make"($P824)
+ find_lex $P824, "$/"
+ find_lex $P825, "$past"
+ $P826 = $P824."!make"($P825)
.annotate 'line', 170
- .return ($P825)
- control_816:
+ .return ($P826)
+ control_817:
.local pmc exception
.get_results (exception)
- getattribute $P826, exception, "payload"
- .return ($P826)
+ getattribute $P827, exception, "payload"
+ .return ($P827)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<^^>" :subid("51_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_830
+.sub "metachar:sym<^^>" :subid("51_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_831
.annotate 'line', 175
- new $P829, 'ExceptionHandler'
- set_addr $P829, control_828
- $P829."handle_types"(57)
- push_eh $P829
+ new $P830, 'ExceptionHandler'
+ set_addr $P830, control_829
+ $P830."handle_types"(57)
+ push_eh $P830
.lex "self", self
- .lex "$/", param_830
+ .lex "$/", param_831
.annotate 'line', 176
- new $P831, "Undef"
- .lex "$past", $P831
- get_hll_global $P832, ["PAST"], "Regex"
- find_lex $P833, "$/"
- $P834 = $P832."new"("anchor" :named("pasttype"), "bol" :named("subtype"), $P833 :named("node"))
- store_lex "$past", $P834
+ new $P832, "Undef"
+ .lex "$past", $P832
+ get_hll_global $P833, ["PAST"], "Regex"
+ find_lex $P834, "$/"
+ $P835 = $P833."new"("anchor" :named("pasttype"), "bol" :named("subtype"), $P834 :named("node"))
+ store_lex "$past", $P835
.annotate 'line', 177
- find_lex $P835, "$/"
- find_lex $P836, "$past"
- $P837 = $P835."!make"($P836)
+ find_lex $P836, "$/"
+ find_lex $P837, "$past"
+ $P838 = $P836."!make"($P837)
.annotate 'line', 175
- .return ($P837)
- control_828:
+ .return ($P838)
+ control_829:
.local pmc exception
.get_results (exception)
- getattribute $P838, exception, "payload"
- .return ($P838)
+ getattribute $P839, exception, "payload"
+ .return ($P839)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<$>" :subid("52_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_842
+.sub "metachar:sym<$>" :subid("52_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_843
.annotate 'line', 180
- new $P841, 'ExceptionHandler'
- set_addr $P841, control_840
- $P841."handle_types"(57)
- push_eh $P841
+ new $P842, 'ExceptionHandler'
+ set_addr $P842, control_841
+ $P842."handle_types"(57)
+ push_eh $P842
.lex "self", self
- .lex "$/", param_842
+ .lex "$/", param_843
.annotate 'line', 181
- new $P843, "Undef"
- .lex "$past", $P843
- get_hll_global $P844, ["PAST"], "Regex"
- find_lex $P845, "$/"
- $P846 = $P844."new"("anchor" :named("pasttype"), "eos" :named("subtype"), $P845 :named("node"))
- store_lex "$past", $P846
+ new $P844, "Undef"
+ .lex "$past", $P844
+ get_hll_global $P845, ["PAST"], "Regex"
+ find_lex $P846, "$/"
+ $P847 = $P845."new"("anchor" :named("pasttype"), "eos" :named("subtype"), $P846 :named("node"))
+ store_lex "$past", $P847
.annotate 'line', 182
- find_lex $P847, "$/"
- find_lex $P848, "$past"
- $P849 = $P847."!make"($P848)
+ find_lex $P848, "$/"
+ find_lex $P849, "$past"
+ $P850 = $P848."!make"($P849)
.annotate 'line', 180
- .return ($P849)
- control_840:
+ .return ($P850)
+ control_841:
.local pmc exception
.get_results (exception)
- getattribute $P850, exception, "payload"
- .return ($P850)
+ getattribute $P851, exception, "payload"
+ .return ($P851)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<$$>" :subid("53_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_854
+.sub "metachar:sym<$$>" :subid("53_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_855
.annotate 'line', 185
- new $P853, 'ExceptionHandler'
- set_addr $P853, control_852
- $P853."handle_types"(57)
- push_eh $P853
+ new $P854, 'ExceptionHandler'
+ set_addr $P854, control_853
+ $P854."handle_types"(57)
+ push_eh $P854
.lex "self", self
- .lex "$/", param_854
+ .lex "$/", param_855
.annotate 'line', 186
- new $P855, "Undef"
- .lex "$past", $P855
- get_hll_global $P856, ["PAST"], "Regex"
- find_lex $P857, "$/"
- $P858 = $P856."new"("anchor" :named("pasttype"), "eol" :named("subtype"), $P857 :named("node"))
- store_lex "$past", $P858
+ new $P856, "Undef"
+ .lex "$past", $P856
+ get_hll_global $P857, ["PAST"], "Regex"
+ find_lex $P858, "$/"
+ $P859 = $P857."new"("anchor" :named("pasttype"), "eol" :named("subtype"), $P858 :named("node"))
+ store_lex "$past", $P859
.annotate 'line', 187
- find_lex $P859, "$/"
- find_lex $P860, "$past"
- $P861 = $P859."!make"($P860)
+ find_lex $P860, "$/"
+ find_lex $P861, "$past"
+ $P862 = $P860."!make"($P861)
.annotate 'line', 185
- .return ($P861)
- control_852:
+ .return ($P862)
+ control_853:
.local pmc exception
.get_results (exception)
- getattribute $P862, exception, "payload"
- .return ($P862)
+ getattribute $P863, exception, "payload"
+ .return ($P863)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<:::>" :subid("54_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_866
+.sub "metachar:sym<:::>" :subid("54_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_867
.annotate 'line', 190
- new $P865, 'ExceptionHandler'
- set_addr $P865, control_864
- $P865."handle_types"(57)
- push_eh $P865
+ new $P866, 'ExceptionHandler'
+ set_addr $P866, control_865
+ $P866."handle_types"(57)
+ push_eh $P866
.lex "self", self
- .lex "$/", param_866
+ .lex "$/", param_867
.annotate 'line', 191
- new $P867, "Undef"
- .lex "$past", $P867
- get_hll_global $P868, ["PAST"], "Regex"
- find_lex $P869, "$/"
- $P870 = $P868."new"("cut" :named("pasttype"), $P869 :named("node"))
- store_lex "$past", $P870
+ new $P868, "Undef"
+ .lex "$past", $P868
+ get_hll_global $P869, ["PAST"], "Regex"
+ find_lex $P870, "$/"
+ $P871 = $P869."new"("cut" :named("pasttype"), $P870 :named("node"))
+ store_lex "$past", $P871
.annotate 'line', 192
- find_lex $P871, "$/"
- find_lex $P872, "$past"
- $P873 = $P871."!make"($P872)
+ find_lex $P872, "$/"
+ find_lex $P873, "$past"
+ $P874 = $P872."!make"($P873)
.annotate 'line', 190
- .return ($P873)
- control_864:
+ .return ($P874)
+ control_865:
.local pmc exception
.get_results (exception)
- getattribute $P874, exception, "payload"
- .return ($P874)
+ getattribute $P875, exception, "payload"
+ .return ($P875)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<lwb>" :subid("55_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_878
+.sub "metachar:sym<lwb>" :subid("55_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_879
.annotate 'line', 195
- new $P877, 'ExceptionHandler'
- set_addr $P877, control_876
- $P877."handle_types"(57)
- push_eh $P877
+ new $P878, 'ExceptionHandler'
+ set_addr $P878, control_877
+ $P878."handle_types"(57)
+ push_eh $P878
.lex "self", self
- .lex "$/", param_878
+ .lex "$/", param_879
.annotate 'line', 196
- new $P879, "Undef"
- .lex "$past", $P879
- get_hll_global $P880, ["PAST"], "Regex"
- find_lex $P881, "$/"
- $P882 = $P880."new"("anchor" :named("pasttype"), "lwb" :named("subtype"), $P881 :named("node"))
- store_lex "$past", $P882
+ new $P880, "Undef"
+ .lex "$past", $P880
+ get_hll_global $P881, ["PAST"], "Regex"
+ find_lex $P882, "$/"
+ $P883 = $P881."new"("anchor" :named("pasttype"), "lwb" :named("subtype"), $P882 :named("node"))
+ store_lex "$past", $P883
.annotate 'line', 197
- find_lex $P883, "$/"
- find_lex $P884, "$past"
- $P885 = $P883."!make"($P884)
+ find_lex $P884, "$/"
+ find_lex $P885, "$past"
+ $P886 = $P884."!make"($P885)
.annotate 'line', 195
- .return ($P885)
- control_876:
+ .return ($P886)
+ control_877:
.local pmc exception
.get_results (exception)
- getattribute $P886, exception, "payload"
- .return ($P886)
+ getattribute $P887, exception, "payload"
+ .return ($P887)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<rwb>" :subid("56_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_890
+.sub "metachar:sym<rwb>" :subid("56_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_891
.annotate 'line', 200
- new $P889, 'ExceptionHandler'
- set_addr $P889, control_888
- $P889."handle_types"(57)
- push_eh $P889
+ new $P890, 'ExceptionHandler'
+ set_addr $P890, control_889
+ $P890."handle_types"(57)
+ push_eh $P890
.lex "self", self
- .lex "$/", param_890
+ .lex "$/", param_891
.annotate 'line', 201
- new $P891, "Undef"
- .lex "$past", $P891
- get_hll_global $P892, ["PAST"], "Regex"
- find_lex $P893, "$/"
- $P894 = $P892."new"("anchor" :named("pasttype"), "rwb" :named("subtype"), $P893 :named("node"))
- store_lex "$past", $P894
+ new $P892, "Undef"
+ .lex "$past", $P892
+ get_hll_global $P893, ["PAST"], "Regex"
+ find_lex $P894, "$/"
+ $P895 = $P893."new"("anchor" :named("pasttype"), "rwb" :named("subtype"), $P894 :named("node"))
+ store_lex "$past", $P895
.annotate 'line', 202
- find_lex $P895, "$/"
- find_lex $P896, "$past"
- $P897 = $P895."!make"($P896)
+ find_lex $P896, "$/"
+ find_lex $P897, "$past"
+ $P898 = $P896."!make"($P897)
.annotate 'line', 200
- .return ($P897)
- control_888:
+ .return ($P898)
+ control_889:
.local pmc exception
.get_results (exception)
- getattribute $P898, exception, "payload"
- .return ($P898)
+ getattribute $P899, exception, "payload"
+ .return ($P899)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<bs>" :subid("57_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_902
+.sub "metachar:sym<bs>" :subid("57_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_903
.annotate 'line', 205
- new $P901, 'ExceptionHandler'
- set_addr $P901, control_900
- $P901."handle_types"(57)
- push_eh $P901
+ new $P902, 'ExceptionHandler'
+ set_addr $P902, control_901
+ $P902."handle_types"(57)
+ push_eh $P902
.lex "self", self
- .lex "$/", param_902
+ .lex "$/", param_903
.annotate 'line', 206
- find_lex $P903, "$/"
find_lex $P904, "$/"
- unless_null $P904, vivify_229
- $P904 = root_new ['parrot';'Hash']
+ find_lex $P905, "$/"
+ unless_null $P905, vivify_229
+ $P905 = root_new ['parrot';'Hash']
vivify_229:
- set $P905, $P904["backslash"]
- unless_null $P905, vivify_230
- new $P905, "Undef"
+ set $P906, $P905["backslash"]
+ unless_null $P906, vivify_230
+ new $P906, "Undef"
vivify_230:
- $P906 = $P905."ast"()
- $P907 = $P903."!make"($P906)
+ $P907 = $P906."ast"()
+ $P908 = $P904."!make"($P907)
.annotate 'line', 205
- .return ($P907)
- control_900:
+ .return ($P908)
+ control_901:
.local pmc exception
.get_results (exception)
- getattribute $P908, exception, "payload"
- .return ($P908)
+ getattribute $P909, exception, "payload"
+ .return ($P909)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<mod>" :subid("58_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_912
+.sub "metachar:sym<mod>" :subid("58_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_913
.annotate 'line', 209
- new $P911, 'ExceptionHandler'
- set_addr $P911, control_910
- $P911."handle_types"(57)
- push_eh $P911
+ new $P912, 'ExceptionHandler'
+ set_addr $P912, control_911
+ $P912."handle_types"(57)
+ push_eh $P912
.lex "self", self
- .lex "$/", param_912
+ .lex "$/", param_913
.annotate 'line', 210
- find_lex $P913, "$/"
find_lex $P914, "$/"
- unless_null $P914, vivify_231
- $P914 = root_new ['parrot';'Hash']
+ find_lex $P915, "$/"
+ unless_null $P915, vivify_231
+ $P915 = root_new ['parrot';'Hash']
vivify_231:
- set $P915, $P914["mod_internal"]
- unless_null $P915, vivify_232
- new $P915, "Undef"
+ set $P916, $P915["mod_internal"]
+ unless_null $P916, vivify_232
+ new $P916, "Undef"
vivify_232:
- $P916 = $P915."ast"()
- $P917 = $P913."!make"($P916)
+ $P917 = $P916."ast"()
+ $P918 = $P914."!make"($P917)
.annotate 'line', 209
- .return ($P917)
- control_910:
+ .return ($P918)
+ control_911:
.local pmc exception
.get_results (exception)
- getattribute $P918, exception, "payload"
- .return ($P918)
+ getattribute $P919, exception, "payload"
+ .return ($P919)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<assert>" :subid("59_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_922
+.sub "metachar:sym<assert>" :subid("59_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_923
.annotate 'line', 213
- new $P921, 'ExceptionHandler'
- set_addr $P921, control_920
- $P921."handle_types"(57)
- push_eh $P921
+ new $P922, 'ExceptionHandler'
+ set_addr $P922, control_921
+ $P922."handle_types"(57)
+ push_eh $P922
.lex "self", self
- .lex "$/", param_922
+ .lex "$/", param_923
.annotate 'line', 214
- find_lex $P923, "$/"
find_lex $P924, "$/"
- unless_null $P924, vivify_233
- $P924 = root_new ['parrot';'Hash']
+ find_lex $P925, "$/"
+ unless_null $P925, vivify_233
+ $P925 = root_new ['parrot';'Hash']
vivify_233:
- set $P925, $P924["assertion"]
- unless_null $P925, vivify_234
- new $P925, "Undef"
+ set $P926, $P925["assertion"]
+ unless_null $P926, vivify_234
+ new $P926, "Undef"
vivify_234:
- $P926 = $P925."ast"()
- $P927 = $P923."!make"($P926)
+ $P927 = $P926."ast"()
+ $P928 = $P924."!make"($P927)
.annotate 'line', 213
- .return ($P927)
- control_920:
+ .return ($P928)
+ control_921:
.local pmc exception
.get_results (exception)
- getattribute $P928, exception, "payload"
- .return ($P928)
+ getattribute $P929, exception, "payload"
+ .return ($P929)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<~>" :subid("60_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_932
+.sub "metachar:sym<~>" :subid("60_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_933
.annotate 'line', 217
- new $P931, 'ExceptionHandler'
- set_addr $P931, control_930
- $P931."handle_types"(57)
- push_eh $P931
+ new $P932, 'ExceptionHandler'
+ set_addr $P932, control_931
+ $P932."handle_types"(57)
+ push_eh $P932
.lex "self", self
- .lex "$/", param_932
+ .lex "$/", param_933
.annotate 'line', 218
- find_lex $P933, "$/"
- get_hll_global $P934, ["PAST"], "Regex"
+ find_lex $P934, "$/"
+ get_hll_global $P935, ["PAST"], "Regex"
.annotate 'line', 219
- find_lex $P935, "$/"
- unless_null $P935, vivify_235
- $P935 = root_new ['parrot';'Hash']
+ find_lex $P936, "$/"
+ unless_null $P936, vivify_235
+ $P936 = root_new ['parrot';'Hash']
vivify_235:
- set $P936, $P935["EXPR"]
- unless_null $P936, vivify_236
- new $P936, "Undef"
+ set $P937, $P936["EXPR"]
+ unless_null $P937, vivify_236
+ new $P937, "Undef"
vivify_236:
- $P937 = $P936."ast"()
+ $P938 = $P937."ast"()
.annotate 'line', 220
- get_hll_global $P938, ["PAST"], "Regex"
+ get_hll_global $P939, ["PAST"], "Regex"
.annotate 'line', 221
- find_lex $P939, "$/"
- unless_null $P939, vivify_237
- $P939 = root_new ['parrot';'Hash']
+ find_lex $P940, "$/"
+ unless_null $P940, vivify_237
+ $P940 = root_new ['parrot';'Hash']
vivify_237:
- set $P940, $P939["GOAL"]
- unless_null $P940, vivify_238
- new $P940, "Undef"
+ set $P941, $P940["GOAL"]
+ unless_null $P941, vivify_238
+ new $P941, "Undef"
vivify_238:
- $P941 = $P940."ast"()
+ $P942 = $P941."ast"()
.annotate 'line', 222
- get_hll_global $P942, ["PAST"], "Regex"
- find_lex $P943, "$/"
- unless_null $P943, vivify_239
- $P943 = root_new ['parrot';'Hash']
+ get_hll_global $P943, ["PAST"], "Regex"
+ find_lex $P944, "$/"
+ unless_null $P944, vivify_239
+ $P944 = root_new ['parrot';'Hash']
vivify_239:
- set $P944, $P943["GOAL"]
- unless_null $P944, vivify_240
- new $P944, "Undef"
+ set $P945, $P944["GOAL"]
+ unless_null $P945, vivify_240
+ new $P945, "Undef"
vivify_240:
- set $S945, $P944
- $P946 = $P942."new"("FAILGOAL", $S945, "subrule" :named("pasttype"), "method" :named("subtype"))
- $P947 = $P938."new"($P941, $P946, "alt" :named("pasttype"))
+ set $S946, $P945
+ $P947 = $P943."new"("FAILGOAL", $S946, "subrule" :named("pasttype"), "method" :named("subtype"))
+ $P948 = $P939."new"($P942, $P947, "alt" :named("pasttype"))
.annotate 'line', 220
- $P948 = $P934."new"($P937, $P947, "concat" :named("pasttype"))
+ $P949 = $P935."new"($P938, $P948, "concat" :named("pasttype"))
.annotate 'line', 218
- $P949 = $P933."!make"($P948)
+ $P950 = $P934."!make"($P949)
.annotate 'line', 217
- .return ($P949)
- control_930:
+ .return ($P950)
+ control_931:
.local pmc exception
.get_results (exception)
- getattribute $P950, exception, "payload"
- .return ($P950)
+ getattribute $P951, exception, "payload"
+ .return ($P951)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<{*}>" :subid("61_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_954
+.sub "metachar:sym<{*}>" :subid("61_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_955
.annotate 'line', 230
- new $P953, 'ExceptionHandler'
- set_addr $P953, control_952
- $P953."handle_types"(57)
- push_eh $P953
+ new $P954, 'ExceptionHandler'
+ set_addr $P954, control_953
+ $P954."handle_types"(57)
+ push_eh $P954
.lex "self", self
- .lex "$/", param_954
+ .lex "$/", param_955
.annotate 'line', 231
- new $P955, "Undef"
- .lex "$past", $P955
+ new $P956, "Undef"
+ .lex "$past", $P956
.annotate 'line', 232
- find_lex $P958, "$/"
- unless_null $P958, vivify_241
- $P958 = root_new ['parrot';'Hash']
+ find_lex $P959, "$/"
+ unless_null $P959, vivify_241
+ $P959 = root_new ['parrot';'Hash']
vivify_241:
- set $P959, $P958["key"]
- unless_null $P959, vivify_242
- new $P959, "Undef"
+ set $P960, $P959["key"]
+ unless_null $P960, vivify_242
+ new $P960, "Undef"
vivify_242:
- if $P959, if_957
- new $P967, "Integer"
- assign $P967, 0
- set $P956, $P967
- goto if_957_end
- if_957:
- get_hll_global $P960, ["PAST"], "Regex"
- find_lex $P961, "$/"
- unless_null $P961, vivify_243
- $P961 = root_new ['parrot';'Hash']
+ if $P960, if_958
+ new $P968, "Integer"
+ assign $P968, 0
+ set $P957, $P968
+ goto if_958_end
+ if_958:
+ get_hll_global $P961, ["PAST"], "Regex"
+ find_lex $P962, "$/"
+ unless_null $P962, vivify_243
+ $P962 = root_new ['parrot';'Hash']
vivify_243:
- set $P962, $P961["key"]
- unless_null $P962, vivify_244
- $P962 = root_new ['parrot';'ResizablePMCArray']
+ set $P963, $P962["key"]
+ unless_null $P963, vivify_244
+ $P963 = root_new ['parrot';'ResizablePMCArray']
vivify_244:
- set $P963, $P962[0]
- unless_null $P963, vivify_245
- new $P963, "Undef"
+ set $P964, $P963[0]
+ unless_null $P964, vivify_245
+ new $P964, "Undef"
vivify_245:
- set $S964, $P963
- find_lex $P965, "$/"
- $P966 = $P960."new"($S964, "reduce" :named("pasttype"), $P965 :named("node"))
- set $P956, $P966
- if_957_end:
- store_lex "$past", $P956
+ set $S965, $P964
+ find_lex $P966, "$/"
+ $P967 = $P961."new"($S965, "reduce" :named("pasttype"), $P966 :named("node"))
+ set $P957, $P967
+ if_958_end:
+ store_lex "$past", $P957
.annotate 'line', 234
- find_lex $P968, "$/"
- find_lex $P969, "$past"
- $P970 = $P968."!make"($P969)
+ find_lex $P969, "$/"
+ find_lex $P970, "$past"
+ $P971 = $P969."!make"($P970)
.annotate 'line', 230
- .return ($P970)
- control_952:
+ .return ($P971)
+ control_953:
.local pmc exception
.get_results (exception)
- getattribute $P971, exception, "payload"
- .return ($P971)
+ getattribute $P972, exception, "payload"
+ .return ($P972)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<var>" :subid("62_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_975
+.sub "metachar:sym<var>" :subid("62_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_976
.annotate 'line', 237
- new $P974, 'ExceptionHandler'
- set_addr $P974, control_973
- $P974."handle_types"(57)
- push_eh $P974
+ new $P975, 'ExceptionHandler'
+ set_addr $P975, control_974
+ $P975."handle_types"(57)
+ push_eh $P975
.lex "self", self
- .lex "$/", param_975
+ .lex "$/", param_976
.annotate 'line', 238
- new $P976, "Undef"
- .lex "$past", $P976
-.annotate 'line', 239
new $P977, "Undef"
- .lex "$name", $P977
+ .lex "$past", $P977
+.annotate 'line', 239
+ new $P978, "Undef"
+ .lex "$name", $P978
.annotate 'line', 237
- find_lex $P978, "$past"
+ find_lex $P979, "$past"
.annotate 'line', 239
- find_lex $P981, "$/"
- unless_null $P981, vivify_246
- $P981 = root_new ['parrot';'Hash']
+ find_lex $P982, "$/"
+ unless_null $P982, vivify_246
+ $P982 = root_new ['parrot';'Hash']
vivify_246:
- set $P982, $P981["pos"]
- unless_null $P982, vivify_247
- new $P982, "Undef"
+ set $P983, $P982["pos"]
+ unless_null $P983, vivify_247
+ new $P983, "Undef"
vivify_247:
- if $P982, if_980
- find_lex $P986, "$/"
- unless_null $P986, vivify_248
- $P986 = root_new ['parrot';'Hash']
+ if $P983, if_981
+ find_lex $P987, "$/"
+ unless_null $P987, vivify_248
+ $P987 = root_new ['parrot';'Hash']
vivify_248:
- set $P987, $P986["name"]
- unless_null $P987, vivify_249
- new $P987, "Undef"
+ set $P988, $P987["name"]
+ unless_null $P988, vivify_249
+ new $P988, "Undef"
vivify_249:
- set $S988, $P987
- new $P979, 'String'
- set $P979, $S988
- goto if_980_end
- if_980:
- find_lex $P983, "$/"
- unless_null $P983, vivify_250
- $P983 = root_new ['parrot';'Hash']
+ set $S989, $P988
+ new $P980, 'String'
+ set $P980, $S989
+ goto if_981_end
+ if_981:
+ find_lex $P984, "$/"
+ unless_null $P984, vivify_250
+ $P984 = root_new ['parrot';'Hash']
vivify_250:
- set $P984, $P983["pos"]
- unless_null $P984, vivify_251
- new $P984, "Undef"
+ set $P985, $P984["pos"]
+ unless_null $P985, vivify_251
+ new $P985, "Undef"
vivify_251:
- set $N985, $P984
- new $P979, 'Float'
- set $P979, $N985
- if_980_end:
- store_lex "$name", $P979
+ set $N986, $P985
+ new $P980, 'Float'
+ set $P980, $N986
+ if_981_end:
+ store_lex "$name", $P980
.annotate 'line', 240
- find_lex $P990, "$/"
- unless_null $P990, vivify_252
- $P990 = root_new ['parrot';'Hash']
+ find_lex $P991, "$/"
+ unless_null $P991, vivify_252
+ $P991 = root_new ['parrot';'Hash']
vivify_252:
- set $P991, $P990["quantified_atom"]
- unless_null $P991, vivify_253
- new $P991, "Undef"
+ set $P992, $P991["quantified_atom"]
+ unless_null $P992, vivify_253
+ new $P992, "Undef"
vivify_253:
- if $P991, if_989
+ if $P992, if_990
.annotate 'line', 251
- get_hll_global $P1020, ["PAST"], "Regex"
- find_lex $P1021, "$name"
- find_lex $P1022, "$/"
- $P1023 = $P1020."new"("!BACKREF", $P1021, "subrule" :named("pasttype"), "method" :named("subtype"), $P1022 :named("node"))
- store_lex "$past", $P1023
+ get_hll_global $P1021, ["PAST"], "Regex"
+ find_lex $P1022, "$name"
+ find_lex $P1023, "$/"
+ $P1024 = $P1021."new"("!BACKREF", $P1022, "subrule" :named("pasttype"), "method" :named("subtype"), $P1023 :named("node"))
+ store_lex "$past", $P1024
.annotate 'line', 250
- goto if_989_end
- if_989:
+ goto if_990_end
+ if_990:
.annotate 'line', 241
- find_lex $P992, "$/"
- unless_null $P992, vivify_254
- $P992 = root_new ['parrot';'Hash']
+ find_lex $P993, "$/"
+ unless_null $P993, vivify_254
+ $P993 = root_new ['parrot';'Hash']
vivify_254:
- set $P993, $P992["quantified_atom"]
- unless_null $P993, vivify_255
- $P993 = root_new ['parrot';'ResizablePMCArray']
+ set $P994, $P993["quantified_atom"]
+ unless_null $P994, vivify_255
+ $P994 = root_new ['parrot';'ResizablePMCArray']
vivify_255:
- set $P994, $P993[0]
- unless_null $P994, vivify_256
- new $P994, "Undef"
+ set $P995, $P994[0]
+ unless_null $P995, vivify_256
+ new $P995, "Undef"
vivify_256:
- $P995 = $P994."ast"()
- store_lex "$past", $P995
+ $P996 = $P995."ast"()
+ store_lex "$past", $P996
.annotate 'line', 242
- find_lex $P999, "$past"
- $S1000 = $P999."pasttype"()
- iseq $I1001, $S1000, "quant"
- if $I1001, if_998
- new $P997, 'Integer'
- set $P997, $I1001
- goto if_998_end
- if_998:
- find_lex $P1002, "$past"
- unless_null $P1002, vivify_257
- $P1002 = root_new ['parrot';'ResizablePMCArray']
+ find_lex $P1000, "$past"
+ $S1001 = $P1000."pasttype"()
+ iseq $I1002, $S1001, "quant"
+ if $I1002, if_999
+ new $P998, 'Integer'
+ set $P998, $I1002
+ goto if_999_end
+ if_999:
+ find_lex $P1003, "$past"
+ unless_null $P1003, vivify_257
+ $P1003 = root_new ['parrot';'ResizablePMCArray']
vivify_257:
- set $P1003, $P1002[0]
- unless_null $P1003, vivify_258
- new $P1003, "Undef"
+ set $P1004, $P1003[0]
+ unless_null $P1004, vivify_258
+ new $P1004, "Undef"
vivify_258:
- $S1004 = $P1003."pasttype"()
- iseq $I1005, $S1004, "subrule"
- new $P997, 'Integer'
- set $P997, $I1005
- if_998_end:
- if $P997, if_996
+ $S1005 = $P1004."pasttype"()
+ iseq $I1006, $S1005, "subrule"
+ new $P998, 'Integer'
+ set $P998, $I1006
+ if_999_end:
+ if $P998, if_997
.annotate 'line', 245
- find_lex $P1010, "$past"
- $S1011 = $P1010."pasttype"()
- iseq $I1012, $S1011, "subrule"
- if $I1012, if_1009
+ find_lex $P1011, "$past"
+ $S1012 = $P1011."pasttype"()
+ iseq $I1013, $S1012, "subrule"
+ if $I1013, if_1010
.annotate 'line', 247
- get_hll_global $P1015, ["PAST"], "Regex"
- find_lex $P1016, "$past"
- find_lex $P1017, "$name"
- find_lex $P1018, "$/"
- $P1019 = $P1015."new"($P1016, $P1017 :named("name"), "subcapture" :named("pasttype"), $P1018 :named("node"))
- store_lex "$past", $P1019
+ get_hll_global $P1016, ["PAST"], "Regex"
+ find_lex $P1017, "$past"
+ find_lex $P1018, "$name"
+ find_lex $P1019, "$/"
+ $P1020 = $P1016."new"($P1017, $P1018 :named("name"), "subcapture" :named("pasttype"), $P1019 :named("node"))
+ store_lex "$past", $P1020
.annotate 'line', 246
- goto if_1009_end
- if_1009:
+ goto if_1010_end
+ if_1010:
.annotate 'line', 245
- find_lex $P1013, "$past"
- find_lex $P1014, "$name"
- "subrule_alias"($P1013, $P1014)
- if_1009_end:
- goto if_996_end
- if_996:
+ find_lex $P1014, "$past"
+ find_lex $P1015, "$name"
+ "subrule_alias"($P1014, $P1015)
+ if_1010_end:
+ goto if_997_end
+ if_997:
.annotate 'line', 243
- find_lex $P1006, "$past"
- unless_null $P1006, vivify_259
- $P1006 = root_new ['parrot';'ResizablePMCArray']
+ find_lex $P1007, "$past"
+ unless_null $P1007, vivify_259
+ $P1007 = root_new ['parrot';'ResizablePMCArray']
vivify_259:
- set $P1007, $P1006[0]
- unless_null $P1007, vivify_260
- new $P1007, "Undef"
+ set $P1008, $P1007[0]
+ unless_null $P1008, vivify_260
+ new $P1008, "Undef"
vivify_260:
- find_lex $P1008, "$name"
- "subrule_alias"($P1007, $P1008)
- if_996_end:
- if_989_end:
+ find_lex $P1009, "$name"
+ "subrule_alias"($P1008, $P1009)
+ if_997_end:
+ if_990_end:
.annotate 'line', 254
- find_lex $P1024, "$/"
- find_lex $P1025, "$past"
- $P1026 = $P1024."!make"($P1025)
+ find_lex $P1025, "$/"
+ find_lex $P1026, "$past"
+ $P1027 = $P1025."!make"($P1026)
.annotate 'line', 237
- .return ($P1026)
- control_973:
+ .return ($P1027)
+ control_974:
.local pmc exception
.get_results (exception)
- getattribute $P1027, exception, "payload"
- .return ($P1027)
+ getattribute $P1028, exception, "payload"
+ .return ($P1028)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<PIR>" :subid("63_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1031
+.sub "metachar:sym<PIR>" :subid("63_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1032
.annotate 'line', 257
- new $P1030, 'ExceptionHandler'
- set_addr $P1030, control_1029
- $P1030."handle_types"(57)
- push_eh $P1030
+ new $P1031, 'ExceptionHandler'
+ set_addr $P1031, control_1030
+ $P1031."handle_types"(57)
+ push_eh $P1031
.lex "self", self
- .lex "$/", param_1031
+ .lex "$/", param_1032
.annotate 'line', 258
- find_lex $P1032, "$/"
- get_hll_global $P1033, ["PAST"], "Regex"
+ find_lex $P1033, "$/"
+ get_hll_global $P1034, ["PAST"], "Regex"
.annotate 'line', 259
- get_hll_global $P1034, ["PAST"], "Op"
- find_lex $P1035, "$/"
- unless_null $P1035, vivify_261
- $P1035 = root_new ['parrot';'Hash']
+ get_hll_global $P1035, ["PAST"], "Op"
+ find_lex $P1036, "$/"
+ unless_null $P1036, vivify_261
+ $P1036 = root_new ['parrot';'Hash']
vivify_261:
- set $P1036, $P1035["pir"]
- unless_null $P1036, vivify_262
- new $P1036, "Undef"
+ set $P1037, $P1036["pir"]
+ unless_null $P1037, vivify_262
+ new $P1037, "Undef"
vivify_262:
- set $S1037, $P1036
- $P1038 = $P1034."new"($S1037 :named("inline"), "inline" :named("pasttype"))
- find_lex $P1039, "$/"
- $P1040 = $P1033."new"($P1038, "pastnode" :named("pasttype"), $P1039 :named("node"))
+ set $S1038, $P1037
+ $P1039 = $P1035."new"($S1038 :named("inline"), "inline" :named("pasttype"))
+ find_lex $P1040, "$/"
+ $P1041 = $P1034."new"($P1039, "pastnode" :named("pasttype"), $P1040 :named("node"))
.annotate 'line', 258
- $P1041 = $P1032."!make"($P1040)
+ $P1042 = $P1033."!make"($P1041)
.annotate 'line', 257
- .return ($P1041)
- control_1029:
+ .return ($P1042)
+ control_1030:
.local pmc exception
.get_results (exception)
- getattribute $P1042, exception, "payload"
- .return ($P1042)
+ getattribute $P1043, exception, "payload"
+ .return ($P1043)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<w>" :subid("64_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1046
+.sub "backslash:sym<w>" :subid("64_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1047
.annotate 'line', 265
- new $P1045, 'ExceptionHandler'
- set_addr $P1045, control_1044
- $P1045."handle_types"(57)
- push_eh $P1045
+ new $P1046, 'ExceptionHandler'
+ set_addr $P1046, control_1045
+ $P1046."handle_types"(57)
+ push_eh $P1046
.lex "self", self
- .lex "$/", param_1046
+ .lex "$/", param_1047
.annotate 'line', 266
- new $P1047, "Undef"
- .lex "$subtype", $P1047
-.annotate 'line', 267
new $P1048, "Undef"
- .lex "$past", $P1048
+ .lex "$subtype", $P1048
+.annotate 'line', 267
+ new $P1049, "Undef"
+ .lex "$past", $P1049
.annotate 'line', 266
- find_lex $P1051, "$/"
- unless_null $P1051, vivify_263
- $P1051 = root_new ['parrot';'Hash']
+ find_lex $P1052, "$/"
+ unless_null $P1052, vivify_263
+ $P1052 = root_new ['parrot';'Hash']
vivify_263:
- set $P1052, $P1051["sym"]
- unless_null $P1052, vivify_264
- new $P1052, "Undef"
+ set $P1053, $P1052["sym"]
+ unless_null $P1053, vivify_264
+ new $P1053, "Undef"
vivify_264:
- set $S1053, $P1052
- iseq $I1054, $S1053, "n"
- if $I1054, if_1050
- find_lex $P1056, "$/"
- unless_null $P1056, vivify_265
- $P1056 = root_new ['parrot';'Hash']
+ set $S1054, $P1053
+ iseq $I1055, $S1054, "n"
+ if $I1055, if_1051
+ find_lex $P1057, "$/"
+ unless_null $P1057, vivify_265
+ $P1057 = root_new ['parrot';'Hash']
vivify_265:
- set $P1057, $P1056["sym"]
- unless_null $P1057, vivify_266
- new $P1057, "Undef"
+ set $P1058, $P1057["sym"]
+ unless_null $P1058, vivify_266
+ new $P1058, "Undef"
vivify_266:
- set $S1058, $P1057
- new $P1049, 'String'
- set $P1049, $S1058
- goto if_1050_end
- if_1050:
- new $P1055, "String"
- assign $P1055, "nl"
- set $P1049, $P1055
- if_1050_end:
- store_lex "$subtype", $P1049
+ set $S1059, $P1058
+ new $P1050, 'String'
+ set $P1050, $S1059
+ goto if_1051_end
+ if_1051:
+ new $P1056, "String"
+ assign $P1056, "nl"
+ set $P1050, $P1056
+ if_1051_end:
+ store_lex "$subtype", $P1050
.annotate 'line', 267
- get_hll_global $P1059, ["PAST"], "Regex"
- find_lex $P1060, "$subtype"
- find_lex $P1061, "$/"
- $P1062 = $P1059."new"("charclass" :named("pasttype"), $P1060 :named("subtype"), $P1061 :named("node"))
- store_lex "$past", $P1062
+ get_hll_global $P1060, ["PAST"], "Regex"
+ find_lex $P1061, "$subtype"
+ find_lex $P1062, "$/"
+ $P1063 = $P1060."new"("charclass" :named("pasttype"), $P1061 :named("subtype"), $P1062 :named("node"))
+ store_lex "$past", $P1063
.annotate 'line', 268
- find_lex $P1063, "$/"
- find_lex $P1064, "$past"
- $P1065 = $P1063."!make"($P1064)
+ find_lex $P1064, "$/"
+ find_lex $P1065, "$past"
+ $P1066 = $P1064."!make"($P1065)
.annotate 'line', 265
- .return ($P1065)
- control_1044:
+ .return ($P1066)
+ control_1045:
.local pmc exception
.get_results (exception)
- getattribute $P1066, exception, "payload"
- .return ($P1066)
+ getattribute $P1067, exception, "payload"
+ .return ($P1067)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<b>" :subid("65_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1070
+.sub "backslash:sym<b>" :subid("65_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1071
.annotate 'line', 271
- new $P1069, 'ExceptionHandler'
- set_addr $P1069, control_1068
- $P1069."handle_types"(57)
- push_eh $P1069
+ new $P1070, 'ExceptionHandler'
+ set_addr $P1070, control_1069
+ $P1070."handle_types"(57)
+ push_eh $P1070
.lex "self", self
- .lex "$/", param_1070
+ .lex "$/", param_1071
.annotate 'line', 272
- new $P1071, "Undef"
- .lex "$past", $P1071
- get_hll_global $P1072, ["PAST"], "Regex"
+ new $P1072, "Undef"
+ .lex "$past", $P1072
+ get_hll_global $P1073, ["PAST"], "Regex"
.annotate 'line', 273
- find_lex $P1073, "$/"
- unless_null $P1073, vivify_267
- $P1073 = root_new ['parrot';'Hash']
+ find_lex $P1074, "$/"
+ unless_null $P1074, vivify_267
+ $P1074 = root_new ['parrot';'Hash']
vivify_267:
- set $P1074, $P1073["sym"]
- unless_null $P1074, vivify_268
- new $P1074, "Undef"
+ set $P1075, $P1074["sym"]
+ unless_null $P1075, vivify_268
+ new $P1075, "Undef"
vivify_268:
- set $S1075, $P1074
- iseq $I1076, $S1075, "B"
- find_lex $P1077, "$/"
- $P1078 = $P1072."new"("\b", "enumcharlist" :named("pasttype"), $I1076 :named("negate"), $P1077 :named("node"))
+ set $S1076, $P1075
+ iseq $I1077, $S1076, "B"
+ find_lex $P1078, "$/"
+ $P1079 = $P1073."new"("\b", "enumcharlist" :named("pasttype"), $I1077 :named("negate"), $P1078 :named("node"))
.annotate 'line', 272
- store_lex "$past", $P1078
+ store_lex "$past", $P1079
.annotate 'line', 274
- find_lex $P1079, "$/"
- find_lex $P1080, "$past"
- $P1081 = $P1079."!make"($P1080)
+ find_lex $P1080, "$/"
+ find_lex $P1081, "$past"
+ $P1082 = $P1080."!make"($P1081)
.annotate 'line', 271
- .return ($P1081)
- control_1068:
+ .return ($P1082)
+ control_1069:
.local pmc exception
.get_results (exception)
- getattribute $P1082, exception, "payload"
- .return ($P1082)
+ getattribute $P1083, exception, "payload"
+ .return ($P1083)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<e>" :subid("66_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1086
+.sub "backslash:sym<e>" :subid("66_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1087
.annotate 'line', 277
- new $P1085, 'ExceptionHandler'
- set_addr $P1085, control_1084
- $P1085."handle_types"(57)
- push_eh $P1085
+ new $P1086, 'ExceptionHandler'
+ set_addr $P1086, control_1085
+ $P1086."handle_types"(57)
+ push_eh $P1086
.lex "self", self
- .lex "$/", param_1086
+ .lex "$/", param_1087
.annotate 'line', 278
- new $P1087, "Undef"
- .lex "$past", $P1087
- get_hll_global $P1088, ["PAST"], "Regex"
+ new $P1088, "Undef"
+ .lex "$past", $P1088
+ get_hll_global $P1089, ["PAST"], "Regex"
.annotate 'line', 279
- find_lex $P1089, "$/"
- unless_null $P1089, vivify_269
- $P1089 = root_new ['parrot';'Hash']
+ find_lex $P1090, "$/"
+ unless_null $P1090, vivify_269
+ $P1090 = root_new ['parrot';'Hash']
vivify_269:
- set $P1090, $P1089["sym"]
- unless_null $P1090, vivify_270
- new $P1090, "Undef"
+ set $P1091, $P1090["sym"]
+ unless_null $P1091, vivify_270
+ new $P1091, "Undef"
vivify_270:
- set $S1091, $P1090
- iseq $I1092, $S1091, "E"
- find_lex $P1093, "$/"
- $P1094 = $P1088."new"("\e", "enumcharlist" :named("pasttype"), $I1092 :named("negate"), $P1093 :named("node"))
+ set $S1092, $P1091
+ iseq $I1093, $S1092, "E"
+ find_lex $P1094, "$/"
+ $P1095 = $P1089."new"("\e", "enumcharlist" :named("pasttype"), $I1093 :named("negate"), $P1094 :named("node"))
.annotate 'line', 278
- store_lex "$past", $P1094
+ store_lex "$past", $P1095
.annotate 'line', 280
- find_lex $P1095, "$/"
- find_lex $P1096, "$past"
- $P1097 = $P1095."!make"($P1096)
+ find_lex $P1096, "$/"
+ find_lex $P1097, "$past"
+ $P1098 = $P1096."!make"($P1097)
.annotate 'line', 277
- .return ($P1097)
- control_1084:
+ .return ($P1098)
+ control_1085:
.local pmc exception
.get_results (exception)
- getattribute $P1098, exception, "payload"
- .return ($P1098)
+ getattribute $P1099, exception, "payload"
+ .return ($P1099)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<f>" :subid("67_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1102
+.sub "backslash:sym<f>" :subid("67_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1103
.annotate 'line', 283
- new $P1101, 'ExceptionHandler'
- set_addr $P1101, control_1100
- $P1101."handle_types"(57)
- push_eh $P1101
+ new $P1102, 'ExceptionHandler'
+ set_addr $P1102, control_1101
+ $P1102."handle_types"(57)
+ push_eh $P1102
.lex "self", self
- .lex "$/", param_1102
+ .lex "$/", param_1103
.annotate 'line', 284
- new $P1103, "Undef"
- .lex "$past", $P1103
- get_hll_global $P1104, ["PAST"], "Regex"
+ new $P1104, "Undef"
+ .lex "$past", $P1104
+ get_hll_global $P1105, ["PAST"], "Regex"
.annotate 'line', 285
- find_lex $P1105, "$/"
- unless_null $P1105, vivify_271
- $P1105 = root_new ['parrot';'Hash']
+ find_lex $P1106, "$/"
+ unless_null $P1106, vivify_271
+ $P1106 = root_new ['parrot';'Hash']
vivify_271:
- set $P1106, $P1105["sym"]
- unless_null $P1106, vivify_272
- new $P1106, "Undef"
+ set $P1107, $P1106["sym"]
+ unless_null $P1107, vivify_272
+ new $P1107, "Undef"
vivify_272:
- set $S1107, $P1106
- iseq $I1108, $S1107, "F"
- find_lex $P1109, "$/"
- $P1110 = $P1104."new"("\f", "enumcharlist" :named("pasttype"), $I1108 :named("negate"), $P1109 :named("node"))
+ set $S1108, $P1107
+ iseq $I1109, $S1108, "F"
+ find_lex $P1110, "$/"
+ $P1111 = $P1105."new"("\f", "enumcharlist" :named("pasttype"), $I1109 :named("negate"), $P1110 :named("node"))
.annotate 'line', 284
- store_lex "$past", $P1110
+ store_lex "$past", $P1111
.annotate 'line', 286
- find_lex $P1111, "$/"
- find_lex $P1112, "$past"
- $P1113 = $P1111."!make"($P1112)
+ find_lex $P1112, "$/"
+ find_lex $P1113, "$past"
+ $P1114 = $P1112."!make"($P1113)
.annotate 'line', 283
- .return ($P1113)
- control_1100:
+ .return ($P1114)
+ control_1101:
.local pmc exception
.get_results (exception)
- getattribute $P1114, exception, "payload"
- .return ($P1114)
+ getattribute $P1115, exception, "payload"
+ .return ($P1115)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<h>" :subid("68_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1118
+.sub "backslash:sym<h>" :subid("68_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1119
.annotate 'line', 289
- new $P1117, 'ExceptionHandler'
- set_addr $P1117, control_1116
- $P1117."handle_types"(57)
- push_eh $P1117
+ new $P1118, 'ExceptionHandler'
+ set_addr $P1118, control_1117
+ $P1118."handle_types"(57)
+ push_eh $P1118
.lex "self", self
- .lex "$/", param_1118
+ .lex "$/", param_1119
.annotate 'line', 290
- new $P1119, "Undef"
- .lex "$past", $P1119
- get_hll_global $P1120, ["PAST"], "Regex"
+ new $P1120, "Undef"
+ .lex "$past", $P1120
+ get_hll_global $P1121, ["PAST"], "Regex"
.annotate 'line', 291
- find_lex $P1121, "$/"
- unless_null $P1121, vivify_273
- $P1121 = root_new ['parrot';'Hash']
+ find_lex $P1122, "$/"
+ unless_null $P1122, vivify_273
+ $P1122 = root_new ['parrot';'Hash']
vivify_273:
- set $P1122, $P1121["sym"]
- unless_null $P1122, vivify_274
- new $P1122, "Undef"
+ set $P1123, $P1122["sym"]
+ unless_null $P1123, vivify_274
+ new $P1123, "Undef"
vivify_274:
- set $S1123, $P1122
- iseq $I1124, $S1123, "H"
- find_lex $P1125, "$/"
- $P1126 = $P1120."new"(unicode:"\t \x{a0}\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000", "enumcharlist" :named("pasttype"), $I1124 :named("negate"), $P1125 :named("node"))
+ set $S1124, $P1123
+ iseq $I1125, $S1124, "H"
+ find_lex $P1126, "$/"
+ $P1127 = $P1121."new"(unicode:"\t \x{a0}\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000", "enumcharlist" :named("pasttype"), $I1125 :named("negate"), $P1126 :named("node"))
.annotate 'line', 290
- store_lex "$past", $P1126
+ store_lex "$past", $P1127
.annotate 'line', 292
- find_lex $P1127, "$/"
- find_lex $P1128, "$past"
- $P1129 = $P1127."!make"($P1128)
+ find_lex $P1128, "$/"
+ find_lex $P1129, "$past"
+ $P1130 = $P1128."!make"($P1129)
.annotate 'line', 289
- .return ($P1129)
- control_1116:
+ .return ($P1130)
+ control_1117:
.local pmc exception
.get_results (exception)
- getattribute $P1130, exception, "payload"
- .return ($P1130)
+ getattribute $P1131, exception, "payload"
+ .return ($P1131)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<r>" :subid("69_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1134
+.sub "backslash:sym<r>" :subid("69_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1135
.annotate 'line', 295
- new $P1133, 'ExceptionHandler'
- set_addr $P1133, control_1132
- $P1133."handle_types"(57)
- push_eh $P1133
+ new $P1134, 'ExceptionHandler'
+ set_addr $P1134, control_1133
+ $P1134."handle_types"(57)
+ push_eh $P1134
.lex "self", self
- .lex "$/", param_1134
+ .lex "$/", param_1135
.annotate 'line', 296
- new $P1135, "Undef"
- .lex "$past", $P1135
- get_hll_global $P1136, ["PAST"], "Regex"
+ new $P1136, "Undef"
+ .lex "$past", $P1136
+ get_hll_global $P1137, ["PAST"], "Regex"
.annotate 'line', 297
- find_lex $P1137, "$/"
- unless_null $P1137, vivify_275
- $P1137 = root_new ['parrot';'Hash']
+ find_lex $P1138, "$/"
+ unless_null $P1138, vivify_275
+ $P1138 = root_new ['parrot';'Hash']
vivify_275:
- set $P1138, $P1137["sym"]
- unless_null $P1138, vivify_276
- new $P1138, "Undef"
+ set $P1139, $P1138["sym"]
+ unless_null $P1139, vivify_276
+ new $P1139, "Undef"
vivify_276:
- set $S1139, $P1138
- iseq $I1140, $S1139, "R"
- find_lex $P1141, "$/"
- $P1142 = $P1136."new"("\r", "enumcharlist" :named("pasttype"), $I1140 :named("negate"), $P1141 :named("node"))
+ set $S1140, $P1139
+ iseq $I1141, $S1140, "R"
+ find_lex $P1142, "$/"
+ $P1143 = $P1137."new"("\r", "enumcharlist" :named("pasttype"), $I1141 :named("negate"), $P1142 :named("node"))
.annotate 'line', 296
- store_lex "$past", $P1142
+ store_lex "$past", $P1143
.annotate 'line', 298
- find_lex $P1143, "$/"
- find_lex $P1144, "$past"
- $P1145 = $P1143."!make"($P1144)
+ find_lex $P1144, "$/"
+ find_lex $P1145, "$past"
+ $P1146 = $P1144."!make"($P1145)
.annotate 'line', 295
- .return ($P1145)
- control_1132:
+ .return ($P1146)
+ control_1133:
.local pmc exception
.get_results (exception)
- getattribute $P1146, exception, "payload"
- .return ($P1146)
+ getattribute $P1147, exception, "payload"
+ .return ($P1147)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<t>" :subid("70_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1150
+.sub "backslash:sym<t>" :subid("70_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1151
.annotate 'line', 301
- new $P1149, 'ExceptionHandler'
- set_addr $P1149, control_1148
- $P1149."handle_types"(57)
- push_eh $P1149
+ new $P1150, 'ExceptionHandler'
+ set_addr $P1150, control_1149
+ $P1150."handle_types"(57)
+ push_eh $P1150
.lex "self", self
- .lex "$/", param_1150
+ .lex "$/", param_1151
.annotate 'line', 302
- new $P1151, "Undef"
- .lex "$past", $P1151
- get_hll_global $P1152, ["PAST"], "Regex"
+ new $P1152, "Undef"
+ .lex "$past", $P1152
+ get_hll_global $P1153, ["PAST"], "Regex"
.annotate 'line', 303
- find_lex $P1153, "$/"
- unless_null $P1153, vivify_277
- $P1153 = root_new ['parrot';'Hash']
+ find_lex $P1154, "$/"
+ unless_null $P1154, vivify_277
+ $P1154 = root_new ['parrot';'Hash']
vivify_277:
- set $P1154, $P1153["sym"]
- unless_null $P1154, vivify_278
- new $P1154, "Undef"
+ set $P1155, $P1154["sym"]
+ unless_null $P1155, vivify_278
+ new $P1155, "Undef"
vivify_278:
- set $S1155, $P1154
- iseq $I1156, $S1155, "T"
- find_lex $P1157, "$/"
- $P1158 = $P1152."new"("\t", "enumcharlist" :named("pasttype"), $I1156 :named("negate"), $P1157 :named("node"))
+ set $S1156, $P1155
+ iseq $I1157, $S1156, "T"
+ find_lex $P1158, "$/"
+ $P1159 = $P1153."new"("\t", "enumcharlist" :named("pasttype"), $I1157 :named("negate"), $P1158 :named("node"))
.annotate 'line', 302
- store_lex "$past", $P1158
+ store_lex "$past", $P1159
.annotate 'line', 304
- find_lex $P1159, "$/"
- find_lex $P1160, "$past"
- $P1161 = $P1159."!make"($P1160)
+ find_lex $P1160, "$/"
+ find_lex $P1161, "$past"
+ $P1162 = $P1160."!make"($P1161)
.annotate 'line', 301
- .return ($P1161)
- control_1148:
+ .return ($P1162)
+ control_1149:
.local pmc exception
.get_results (exception)
- getattribute $P1162, exception, "payload"
- .return ($P1162)
+ getattribute $P1163, exception, "payload"
+ .return ($P1163)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<v>" :subid("71_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1166
+.sub "backslash:sym<v>" :subid("71_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1167
.annotate 'line', 307
- new $P1165, 'ExceptionHandler'
- set_addr $P1165, control_1164
- $P1165."handle_types"(57)
- push_eh $P1165
+ new $P1166, 'ExceptionHandler'
+ set_addr $P1166, control_1165
+ $P1166."handle_types"(57)
+ push_eh $P1166
.lex "self", self
- .lex "$/", param_1166
+ .lex "$/", param_1167
.annotate 'line', 308
- new $P1167, "Undef"
- .lex "$past", $P1167
- get_hll_global $P1168, ["PAST"], "Regex"
+ new $P1168, "Undef"
+ .lex "$past", $P1168
+ get_hll_global $P1169, ["PAST"], "Regex"
.annotate 'line', 310
- find_lex $P1169, "$/"
- unless_null $P1169, vivify_279
- $P1169 = root_new ['parrot';'Hash']
+ find_lex $P1170, "$/"
+ unless_null $P1170, vivify_279
+ $P1170 = root_new ['parrot';'Hash']
vivify_279:
- set $P1170, $P1169["sym"]
- unless_null $P1170, vivify_280
- new $P1170, "Undef"
+ set $P1171, $P1170["sym"]
+ unless_null $P1171, vivify_280
+ new $P1171, "Undef"
vivify_280:
- set $S1171, $P1170
- iseq $I1172, $S1171, "V"
- find_lex $P1173, "$/"
- $P1174 = $P1168."new"(unicode:"\n\x{b}\f\r\x{85}\u2028\u2029", "enumcharlist" :named("pasttype"), $I1172 :named("negate"), $P1173 :named("node"))
+ set $S1172, $P1171
+ iseq $I1173, $S1172, "V"
+ find_lex $P1174, "$/"
+ $P1175 = $P1169."new"(unicode:"\n\x{b}\f\r\x{85}\u2028\u2029", "enumcharlist" :named("pasttype"), $I1173 :named("negate"), $P1174 :named("node"))
.annotate 'line', 308
- store_lex "$past", $P1174
+ store_lex "$past", $P1175
.annotate 'line', 311
- find_lex $P1175, "$/"
- find_lex $P1176, "$past"
- $P1177 = $P1175."!make"($P1176)
+ find_lex $P1176, "$/"
+ find_lex $P1177, "$past"
+ $P1178 = $P1176."!make"($P1177)
.annotate 'line', 307
- .return ($P1177)
- control_1164:
+ .return ($P1178)
+ control_1165:
.local pmc exception
.get_results (exception)
- getattribute $P1178, exception, "payload"
- .return ($P1178)
+ getattribute $P1179, exception, "payload"
+ .return ($P1179)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<o>" :subid("72_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1182
+.sub "backslash:sym<o>" :subid("72_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1183
.annotate 'line', 314
- new $P1181, 'ExceptionHandler'
- set_addr $P1181, control_1180
- $P1181."handle_types"(57)
- push_eh $P1181
+ new $P1182, 'ExceptionHandler'
+ set_addr $P1182, control_1181
+ $P1182."handle_types"(57)
+ push_eh $P1182
.lex "self", self
- .lex "$/", param_1182
+ .lex "$/", param_1183
.annotate 'line', 315
- new $P1183, "Undef"
- .lex "$octlit", $P1183
+ new $P1184, "Undef"
+ .lex "$octlit", $P1184
.annotate 'line', 316
- get_hll_global $P1184, ["HLL";"Actions"], "ints_to_string"
- find_lex $P1187, "$/"
- unless_null $P1187, vivify_281
- $P1187 = root_new ['parrot';'Hash']
+ get_hll_global $P1185, ["HLL";"Actions"], "ints_to_string"
+ find_lex $P1188, "$/"
+ unless_null $P1188, vivify_281
+ $P1188 = root_new ['parrot';'Hash']
vivify_281:
- set $P1188, $P1187["octint"]
- unless_null $P1188, vivify_282
- new $P1188, "Undef"
+ set $P1189, $P1188["octint"]
+ unless_null $P1189, vivify_282
+ new $P1189, "Undef"
vivify_282:
- unless $P1188, unless_1186
- set $P1185, $P1188
- goto unless_1186_end
- unless_1186:
- find_lex $P1189, "$/"
- unless_null $P1189, vivify_283
- $P1189 = root_new ['parrot';'Hash']
- vivify_283:
- set $P1190, $P1189["octints"]
- unless_null $P1190, vivify_284
+ unless $P1189, unless_1187
+ set $P1186, $P1189
+ goto unless_1187_end
+ unless_1187:
+ find_lex $P1190, "$/"
+ unless_null $P1190, vivify_283
$P1190 = root_new ['parrot';'Hash']
+ vivify_283:
+ set $P1191, $P1190["octints"]
+ unless_null $P1191, vivify_284
+ $P1191 = root_new ['parrot';'Hash']
vivify_284:
- set $P1191, $P1190["octint"]
- unless_null $P1191, vivify_285
- new $P1191, "Undef"
+ set $P1192, $P1191["octint"]
+ unless_null $P1192, vivify_285
+ new $P1192, "Undef"
vivify_285:
- set $P1185, $P1191
- unless_1186_end:
- $P1192 = $P1184($P1185)
- store_lex "$octlit", $P1192
+ set $P1186, $P1192
+ unless_1187_end:
+ $P1193 = $P1185($P1186)
+ store_lex "$octlit", $P1193
.annotate 'line', 317
- find_lex $P1193, "$/"
- find_lex $P1196, "$/"
- unless_null $P1196, vivify_286
- $P1196 = root_new ['parrot';'Hash']
+ find_lex $P1194, "$/"
+ find_lex $P1197, "$/"
+ unless_null $P1197, vivify_286
+ $P1197 = root_new ['parrot';'Hash']
vivify_286:
- set $P1197, $P1196["sym"]
- unless_null $P1197, vivify_287
- new $P1197, "Undef"
+ set $P1198, $P1197["sym"]
+ unless_null $P1198, vivify_287
+ new $P1198, "Undef"
vivify_287:
- set $S1198, $P1197
- iseq $I1199, $S1198, "O"
- if $I1199, if_1195
+ set $S1199, $P1198
+ iseq $I1200, $S1199, "O"
+ if $I1200, if_1196
.annotate 'line', 320
- get_hll_global $P1204, ["PAST"], "Regex"
- find_lex $P1205, "$octlit"
- find_lex $P1206, "$/"
- $P1207 = $P1204."new"($P1205, "literal" :named("pasttype"), $P1206 :named("node"))
- set $P1194, $P1207
+ get_hll_global $P1205, ["PAST"], "Regex"
+ find_lex $P1206, "$octlit"
+ find_lex $P1207, "$/"
+ $P1208 = $P1205."new"($P1206, "literal" :named("pasttype"), $P1207 :named("node"))
+ set $P1195, $P1208
.annotate 'line', 317
- goto if_1195_end
- if_1195:
+ goto if_1196_end
+ if_1196:
.annotate 'line', 318
- get_hll_global $P1200, ["PAST"], "Regex"
- find_lex $P1201, "$octlit"
- find_lex $P1202, "$/"
- $P1203 = $P1200."new"($P1201, "enumcharlist" :named("pasttype"), 1 :named("negate"), $P1202 :named("node"))
- set $P1194, $P1203
- if_1195_end:
- $P1208 = $P1193."!make"($P1194)
+ get_hll_global $P1201, ["PAST"], "Regex"
+ find_lex $P1202, "$octlit"
+ find_lex $P1203, "$/"
+ $P1204 = $P1201."new"($P1202, "enumcharlist" :named("pasttype"), 1 :named("negate"), $P1203 :named("node"))
+ set $P1195, $P1204
+ if_1196_end:
+ $P1209 = $P1194."!make"($P1195)
.annotate 'line', 314
- .return ($P1208)
- control_1180:
+ .return ($P1209)
+ control_1181:
.local pmc exception
.get_results (exception)
- getattribute $P1209, exception, "payload"
- .return ($P1209)
+ getattribute $P1210, exception, "payload"
+ .return ($P1210)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<x>" :subid("73_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1213
+.sub "backslash:sym<x>" :subid("73_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1214
.annotate 'line', 323
- new $P1212, 'ExceptionHandler'
- set_addr $P1212, control_1211
- $P1212."handle_types"(57)
- push_eh $P1212
+ new $P1213, 'ExceptionHandler'
+ set_addr $P1213, control_1212
+ $P1213."handle_types"(57)
+ push_eh $P1213
.lex "self", self
- .lex "$/", param_1213
+ .lex "$/", param_1214
.annotate 'line', 324
- new $P1214, "Undef"
- .lex "$hexlit", $P1214
+ new $P1215, "Undef"
+ .lex "$hexlit", $P1215
.annotate 'line', 325
- get_hll_global $P1215, ["HLL";"Actions"], "ints_to_string"
- find_lex $P1218, "$/"
- unless_null $P1218, vivify_288
- $P1218 = root_new ['parrot';'Hash']
+ get_hll_global $P1216, ["HLL";"Actions"], "ints_to_string"
+ find_lex $P1219, "$/"
+ unless_null $P1219, vivify_288
+ $P1219 = root_new ['parrot';'Hash']
vivify_288:
- set $P1219, $P1218["hexint"]
- unless_null $P1219, vivify_289
- new $P1219, "Undef"
+ set $P1220, $P1219["hexint"]
+ unless_null $P1220, vivify_289
+ new $P1220, "Undef"
vivify_289:
- unless $P1219, unless_1217
- set $P1216, $P1219
- goto unless_1217_end
- unless_1217:
- find_lex $P1220, "$/"
- unless_null $P1220, vivify_290
- $P1220 = root_new ['parrot';'Hash']
- vivify_290:
- set $P1221, $P1220["hexints"]
- unless_null $P1221, vivify_291
+ unless $P1220, unless_1218
+ set $P1217, $P1220
+ goto unless_1218_end
+ unless_1218:
+ find_lex $P1221, "$/"
+ unless_null $P1221, vivify_290
$P1221 = root_new ['parrot';'Hash']
+ vivify_290:
+ set $P1222, $P1221["hexints"]
+ unless_null $P1222, vivify_291
+ $P1222 = root_new ['parrot';'Hash']
vivify_291:
- set $P1222, $P1221["hexint"]
- unless_null $P1222, vivify_292
- new $P1222, "Undef"
+ set $P1223, $P1222["hexint"]
+ unless_null $P1223, vivify_292
+ new $P1223, "Undef"
vivify_292:
- set $P1216, $P1222
- unless_1217_end:
- $P1223 = $P1215($P1216)
- store_lex "$hexlit", $P1223
+ set $P1217, $P1223
+ unless_1218_end:
+ $P1224 = $P1216($P1217)
+ store_lex "$hexlit", $P1224
.annotate 'line', 326
- find_lex $P1224, "$/"
- find_lex $P1227, "$/"
- unless_null $P1227, vivify_293
- $P1227 = root_new ['parrot';'Hash']
+ find_lex $P1225, "$/"
+ find_lex $P1228, "$/"
+ unless_null $P1228, vivify_293
+ $P1228 = root_new ['parrot';'Hash']
vivify_293:
- set $P1228, $P1227["sym"]
- unless_null $P1228, vivify_294
- new $P1228, "Undef"
+ set $P1229, $P1228["sym"]
+ unless_null $P1229, vivify_294
+ new $P1229, "Undef"
vivify_294:
- set $S1229, $P1228
- iseq $I1230, $S1229, "X"
- if $I1230, if_1226
+ set $S1230, $P1229
+ iseq $I1231, $S1230, "X"
+ if $I1231, if_1227
.annotate 'line', 329
- get_hll_global $P1235, ["PAST"], "Regex"
- find_lex $P1236, "$hexlit"
- find_lex $P1237, "$/"
- $P1238 = $P1235."new"($P1236, "literal" :named("pasttype"), $P1237 :named("node"))
- set $P1225, $P1238
+ get_hll_global $P1236, ["PAST"], "Regex"
+ find_lex $P1237, "$hexlit"
+ find_lex $P1238, "$/"
+ $P1239 = $P1236."new"($P1237, "literal" :named("pasttype"), $P1238 :named("node"))
+ set $P1226, $P1239
.annotate 'line', 326
- goto if_1226_end
- if_1226:
+ goto if_1227_end
+ if_1227:
.annotate 'line', 327
- get_hll_global $P1231, ["PAST"], "Regex"
- find_lex $P1232, "$hexlit"
- find_lex $P1233, "$/"
- $P1234 = $P1231."new"($P1232, "enumcharlist" :named("pasttype"), 1 :named("negate"), $P1233 :named("node"))
- set $P1225, $P1234
- if_1226_end:
- $P1239 = $P1224."!make"($P1225)
+ get_hll_global $P1232, ["PAST"], "Regex"
+ find_lex $P1233, "$hexlit"
+ find_lex $P1234, "$/"
+ $P1235 = $P1232."new"($P1233, "enumcharlist" :named("pasttype"), 1 :named("negate"), $P1234 :named("node"))
+ set $P1226, $P1235
+ if_1227_end:
+ $P1240 = $P1225."!make"($P1226)
.annotate 'line', 323
- .return ($P1239)
- control_1211:
+ .return ($P1240)
+ control_1212:
.local pmc exception
.get_results (exception)
- getattribute $P1240, exception, "payload"
- .return ($P1240)
+ getattribute $P1241, exception, "payload"
+ .return ($P1241)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<c>" :subid("74_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1244
+.sub "backslash:sym<c>" :subid("74_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1245
.annotate 'line', 332
- new $P1243, 'ExceptionHandler'
- set_addr $P1243, control_1242
- $P1243."handle_types"(57)
- push_eh $P1243
+ new $P1244, 'ExceptionHandler'
+ set_addr $P1244, control_1243
+ $P1244."handle_types"(57)
+ push_eh $P1244
.lex "self", self
- .lex "$/", param_1244
+ .lex "$/", param_1245
.annotate 'line', 333
- find_lex $P1245, "$/"
- get_hll_global $P1246, ["PAST"], "Regex"
- find_lex $P1247, "$/"
- unless_null $P1247, vivify_295
- $P1247 = root_new ['parrot';'Hash']
+ find_lex $P1246, "$/"
+ get_hll_global $P1247, ["PAST"], "Regex"
+ find_lex $P1248, "$/"
+ unless_null $P1248, vivify_295
+ $P1248 = root_new ['parrot';'Hash']
vivify_295:
- set $P1248, $P1247["charspec"]
- unless_null $P1248, vivify_296
- new $P1248, "Undef"
+ set $P1249, $P1248["charspec"]
+ unless_null $P1249, vivify_296
+ new $P1249, "Undef"
vivify_296:
- $P1249 = $P1248."ast"()
- find_lex $P1250, "$/"
- $P1251 = $P1246."new"($P1249, "literal" :named("pasttype"), $P1250 :named("node"))
- $P1252 = $P1245."!make"($P1251)
+ $P1250 = $P1249."ast"()
+ find_lex $P1251, "$/"
+ $P1252 = $P1247."new"($P1250, "literal" :named("pasttype"), $P1251 :named("node"))
+ $P1253 = $P1246."!make"($P1252)
.annotate 'line', 332
- .return ($P1252)
- control_1242:
+ .return ($P1253)
+ control_1243:
.local pmc exception
.get_results (exception)
- getattribute $P1253, exception, "payload"
- .return ($P1253)
+ getattribute $P1254, exception, "payload"
+ .return ($P1254)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<misc>" :subid("75_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1257
+.sub "backslash:sym<misc>" :subid("75_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1258
.annotate 'line', 336
- new $P1256, 'ExceptionHandler'
- set_addr $P1256, control_1255
- $P1256."handle_types"(57)
- push_eh $P1256
+ new $P1257, 'ExceptionHandler'
+ set_addr $P1257, control_1256
+ $P1257."handle_types"(57)
+ push_eh $P1257
.lex "self", self
- .lex "$/", param_1257
+ .lex "$/", param_1258
.annotate 'line', 337
- new $P1258, "Undef"
- .lex "$past", $P1258
- get_hll_global $P1259, ["PAST"], "Regex"
- find_lex $P1260, "$/"
- set $S1261, $P1260
- find_lex $P1262, "$/"
- $P1263 = $P1259."new"($S1261, "literal" :named("pasttype"), $P1262 :named("node"))
- store_lex "$past", $P1263
+ new $P1259, "Undef"
+ .lex "$past", $P1259
+ get_hll_global $P1260, ["PAST"], "Regex"
+ find_lex $P1261, "$/"
+ set $S1262, $P1261
+ find_lex $P1263, "$/"
+ $P1264 = $P1260."new"($S1262, "literal" :named("pasttype"), $P1263 :named("node"))
+ store_lex "$past", $P1264
.annotate 'line', 338
- find_lex $P1264, "$/"
- find_lex $P1265, "$past"
- $P1266 = $P1264."!make"($P1265)
+ find_lex $P1265, "$/"
+ find_lex $P1266, "$past"
+ $P1267 = $P1265."!make"($P1266)
.annotate 'line', 336
- .return ($P1266)
- control_1255:
+ .return ($P1267)
+ control_1256:
.local pmc exception
.get_results (exception)
- getattribute $P1267, exception, "payload"
- .return ($P1267)
+ getattribute $P1268, exception, "payload"
+ .return ($P1268)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<?>" :subid("76_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1271
+.sub "assertion:sym<?>" :subid("76_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1272
.annotate 'line', 342
- new $P1270, 'ExceptionHandler'
- set_addr $P1270, control_1269
- $P1270."handle_types"(57)
- push_eh $P1270
+ new $P1271, 'ExceptionHandler'
+ set_addr $P1271, control_1270
+ $P1271."handle_types"(57)
+ push_eh $P1271
.lex "self", self
- .lex "$/", param_1271
+ .lex "$/", param_1272
.annotate 'line', 343
- new $P1272, "Undef"
- .lex "$past", $P1272
+ new $P1273, "Undef"
+ .lex "$past", $P1273
.annotate 'line', 342
- find_lex $P1273, "$past"
+ find_lex $P1274, "$past"
.annotate 'line', 344
- find_lex $P1275, "$/"
- unless_null $P1275, vivify_297
- $P1275 = root_new ['parrot';'Hash']
+ find_lex $P1276, "$/"
+ unless_null $P1276, vivify_297
+ $P1276 = root_new ['parrot';'Hash']
vivify_297:
- set $P1276, $P1275["assertion"]
- unless_null $P1276, vivify_298
- new $P1276, "Undef"
+ set $P1277, $P1276["assertion"]
+ unless_null $P1277, vivify_298
+ new $P1277, "Undef"
vivify_298:
- if $P1276, if_1274
+ if $P1277, if_1275
.annotate 'line', 348
- new $P1281, "Integer"
- assign $P1281, 0
- store_lex "$past", $P1281
- goto if_1274_end
- if_1274:
+ new $P1282, "Integer"
+ assign $P1282, 0
+ store_lex "$past", $P1282
+ goto if_1275_end
+ if_1275:
.annotate 'line', 345
- find_lex $P1277, "$/"
- unless_null $P1277, vivify_299
- $P1277 = root_new ['parrot';'Hash']
+ find_lex $P1278, "$/"
+ unless_null $P1278, vivify_299
+ $P1278 = root_new ['parrot';'Hash']
vivify_299:
- set $P1278, $P1277["assertion"]
- unless_null $P1278, vivify_300
- new $P1278, "Undef"
+ set $P1279, $P1278["assertion"]
+ unless_null $P1279, vivify_300
+ new $P1279, "Undef"
vivify_300:
- $P1279 = $P1278."ast"()
- store_lex "$past", $P1279
+ $P1280 = $P1279."ast"()
+ store_lex "$past", $P1280
.annotate 'line', 346
- find_lex $P1280, "$past"
- $P1280."subtype"("zerowidth")
- if_1274_end:
+ find_lex $P1281, "$past"
+ $P1281."subtype"("zerowidth")
+ if_1275_end:
.annotate 'line', 349
- find_lex $P1282, "$/"
- find_lex $P1283, "$past"
- $P1284 = $P1282."!make"($P1283)
+ find_lex $P1283, "$/"
+ find_lex $P1284, "$past"
+ $P1285 = $P1283."!make"($P1284)
.annotate 'line', 342
- .return ($P1284)
- control_1269:
+ .return ($P1285)
+ control_1270:
.local pmc exception
.get_results (exception)
- getattribute $P1285, exception, "payload"
- .return ($P1285)
+ getattribute $P1286, exception, "payload"
+ .return ($P1286)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<!>" :subid("77_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1289
+.sub "assertion:sym<!>" :subid("77_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1290
.annotate 'line', 352
- new $P1288, 'ExceptionHandler'
- set_addr $P1288, control_1287
- $P1288."handle_types"(57)
- push_eh $P1288
+ new $P1289, 'ExceptionHandler'
+ set_addr $P1289, control_1288
+ $P1289."handle_types"(57)
+ push_eh $P1289
.lex "self", self
- .lex "$/", param_1289
+ .lex "$/", param_1290
.annotate 'line', 353
- new $P1290, "Undef"
- .lex "$past", $P1290
+ new $P1291, "Undef"
+ .lex "$past", $P1291
.annotate 'line', 352
- find_lex $P1291, "$past"
+ find_lex $P1292, "$past"
.annotate 'line', 354
- find_lex $P1293, "$/"
- unless_null $P1293, vivify_301
- $P1293 = root_new ['parrot';'Hash']
+ find_lex $P1294, "$/"
+ unless_null $P1294, vivify_301
+ $P1294 = root_new ['parrot';'Hash']
vivify_301:
- set $P1294, $P1293["assertion"]
- unless_null $P1294, vivify_302
- new $P1294, "Undef"
+ set $P1295, $P1294["assertion"]
+ unless_null $P1295, vivify_302
+ new $P1295, "Undef"
vivify_302:
- if $P1294, if_1292
+ if $P1295, if_1293
.annotate 'line', 360
- get_hll_global $P1303, ["PAST"], "Regex"
- find_lex $P1304, "$/"
- $P1305 = $P1303."new"("anchor" :named("pasttype"), "fail" :named("subtype"), $P1304 :named("node"))
- store_lex "$past", $P1305
+ get_hll_global $P1304, ["PAST"], "Regex"
+ find_lex $P1305, "$/"
+ $P1306 = $P1304."new"("anchor" :named("pasttype"), "fail" :named("subtype"), $P1305 :named("node"))
+ store_lex "$past", $P1306
.annotate 'line', 359
- goto if_1292_end
- if_1292:
+ goto if_1293_end
+ if_1293:
.annotate 'line', 355
- find_lex $P1295, "$/"
- unless_null $P1295, vivify_303
- $P1295 = root_new ['parrot';'Hash']
+ find_lex $P1296, "$/"
+ unless_null $P1296, vivify_303
+ $P1296 = root_new ['parrot';'Hash']
vivify_303:
- set $P1296, $P1295["assertion"]
- unless_null $P1296, vivify_304
- new $P1296, "Undef"
+ set $P1297, $P1296["assertion"]
+ unless_null $P1297, vivify_304
+ new $P1297, "Undef"
vivify_304:
- $P1297 = $P1296."ast"()
- store_lex "$past", $P1297
+ $P1298 = $P1297."ast"()
+ store_lex "$past", $P1298
.annotate 'line', 356
- find_lex $P1298, "$past"
find_lex $P1299, "$past"
- $P1300 = $P1299."negate"()
- isfalse $I1301, $P1300
- $P1298."negate"($I1301)
+ find_lex $P1300, "$past"
+ $P1301 = $P1300."negate"()
+ isfalse $I1302, $P1301
+ $P1299."negate"($I1302)
.annotate 'line', 357
- find_lex $P1302, "$past"
- $P1302."subtype"("zerowidth")
- if_1292_end:
+ find_lex $P1303, "$past"
+ $P1303."subtype"("zerowidth")
+ if_1293_end:
.annotate 'line', 362
- find_lex $P1306, "$/"
- find_lex $P1307, "$past"
- $P1308 = $P1306."!make"($P1307)
+ find_lex $P1307, "$/"
+ find_lex $P1308, "$past"
+ $P1309 = $P1307."!make"($P1308)
.annotate 'line', 352
- .return ($P1308)
- control_1287:
+ .return ($P1309)
+ control_1288:
.local pmc exception
.get_results (exception)
- getattribute $P1309, exception, "payload"
- .return ($P1309)
+ getattribute $P1310, exception, "payload"
+ .return ($P1310)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<method>" :subid("78_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1313
+.sub "assertion:sym<method>" :subid("78_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1314
.annotate 'line', 365
- new $P1312, 'ExceptionHandler'
- set_addr $P1312, control_1311
- $P1312."handle_types"(57)
- push_eh $P1312
+ new $P1313, 'ExceptionHandler'
+ set_addr $P1313, control_1312
+ $P1313."handle_types"(57)
+ push_eh $P1313
.lex "self", self
- .lex "$/", param_1313
+ .lex "$/", param_1314
.annotate 'line', 366
- new $P1314, "Undef"
- .lex "$past", $P1314
- find_lex $P1315, "$/"
- unless_null $P1315, vivify_305
- $P1315 = root_new ['parrot';'Hash']
+ new $P1315, "Undef"
+ .lex "$past", $P1315
+ find_lex $P1316, "$/"
+ unless_null $P1316, vivify_305
+ $P1316 = root_new ['parrot';'Hash']
vivify_305:
- set $P1316, $P1315["assertion"]
- unless_null $P1316, vivify_306
- new $P1316, "Undef"
+ set $P1317, $P1316["assertion"]
+ unless_null $P1317, vivify_306
+ new $P1317, "Undef"
vivify_306:
- $P1317 = $P1316."ast"()
- store_lex "$past", $P1317
+ $P1318 = $P1317."ast"()
+ store_lex "$past", $P1318
.annotate 'line', 367
- find_lex $P1318, "$past"
- $P1318."subtype"("method")
-.annotate 'line', 368
find_lex $P1319, "$past"
- $P1319."name"("")
+ $P1319."subtype"("method")
+.annotate 'line', 368
+ find_lex $P1320, "$past"
+ $P1320."name"("")
.annotate 'line', 369
- find_lex $P1320, "$/"
- find_lex $P1321, "$past"
- $P1322 = $P1320."!make"($P1321)
+ find_lex $P1321, "$/"
+ find_lex $P1322, "$past"
+ $P1323 = $P1321."!make"($P1322)
.annotate 'line', 365
- .return ($P1322)
- control_1311:
+ .return ($P1323)
+ control_1312:
.local pmc exception
.get_results (exception)
- getattribute $P1323, exception, "payload"
- .return ($P1323)
+ getattribute $P1324, exception, "payload"
+ .return ($P1324)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<name>" :subid("79_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1327
+.sub "assertion:sym<name>" :subid("79_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1328
.annotate 'line', 372
- .const 'Sub' $P1385 = "81_1274564778.23532"
- capture_lex $P1385
- .const 'Sub' $P1349 = "80_1274564778.23532"
- capture_lex $P1349
- new $P1326, 'ExceptionHandler'
- set_addr $P1326, control_1325
- $P1326."handle_types"(57)
- push_eh $P1326
+ .const 'Sub' $P1386 = "81_1275117600.18794"
+ capture_lex $P1386
+ .const 'Sub' $P1350 = "80_1275117600.18794"
+ capture_lex $P1350
+ new $P1327, 'ExceptionHandler'
+ set_addr $P1327, control_1326
+ $P1327."handle_types"(57)
+ push_eh $P1327
.lex "self", self
- .lex "$/", param_1327
+ .lex "$/", param_1328
.annotate 'line', 373
- new $P1328, "Undef"
- .lex "$name", $P1328
-.annotate 'line', 374
new $P1329, "Undef"
- .lex "$past", $P1329
+ .lex "$name", $P1329
+.annotate 'line', 374
+ new $P1330, "Undef"
+ .lex "$past", $P1330
.annotate 'line', 373
- find_lex $P1330, "$/"
- unless_null $P1330, vivify_307
- $P1330 = root_new ['parrot';'Hash']
+ find_lex $P1331, "$/"
+ unless_null $P1331, vivify_307
+ $P1331 = root_new ['parrot';'Hash']
vivify_307:
- set $P1331, $P1330["longname"]
- unless_null $P1331, vivify_308
- new $P1331, "Undef"
+ set $P1332, $P1331["longname"]
+ unless_null $P1332, vivify_308
+ new $P1332, "Undef"
vivify_308:
- set $S1332, $P1331
- new $P1333, 'String'
- set $P1333, $S1332
- store_lex "$name", $P1333
- find_lex $P1334, "$past"
+ set $S1333, $P1332
+ new $P1334, 'String'
+ set $P1334, $S1333
+ store_lex "$name", $P1334
+ find_lex $P1335, "$past"
.annotate 'line', 375
- find_lex $P1336, "$/"
- unless_null $P1336, vivify_309
- $P1336 = root_new ['parrot';'Hash']
+ find_lex $P1337, "$/"
+ unless_null $P1337, vivify_309
+ $P1337 = root_new ['parrot';'Hash']
vivify_309:
- set $P1337, $P1336["assertion"]
- unless_null $P1337, vivify_310
- new $P1337, "Undef"
+ set $P1338, $P1337["assertion"]
+ unless_null $P1338, vivify_310
+ new $P1338, "Undef"
vivify_310:
- if $P1337, if_1335
+ if $P1338, if_1336
.annotate 'line', 379
- find_lex $P1345, "$name"
- set $S1346, $P1345
- iseq $I1347, $S1346, "sym"
- if $I1347, if_1344
+ find_lex $P1346, "$name"
+ set $S1347, $P1346
+ iseq $I1348, $S1347, "sym"
+ if $I1348, if_1345
.annotate 'line', 395
- get_hll_global $P1359, ["PAST"], "Regex"
- find_lex $P1360, "$name"
+ get_hll_global $P1360, ["PAST"], "Regex"
find_lex $P1361, "$name"
- find_lex $P1362, "$/"
- $P1363 = $P1359."new"($P1360, $P1361 :named("name"), "subrule" :named("pasttype"), "capture" :named("subtype"), $P1362 :named("node"))
- store_lex "$past", $P1363
+ find_lex $P1362, "$name"
+ find_lex $P1363, "$/"
+ $P1364 = $P1360."new"($P1361, $P1362 :named("name"), "subrule" :named("pasttype"), "capture" :named("subtype"), $P1363 :named("node"))
+ store_lex "$past", $P1364
.annotate 'line', 397
- find_lex $P1365, "$/"
- unless_null $P1365, vivify_311
- $P1365 = root_new ['parrot';'Hash']
+ find_lex $P1366, "$/"
+ unless_null $P1366, vivify_311
+ $P1366 = root_new ['parrot';'Hash']
vivify_311:
- set $P1366, $P1365["nibbler"]
- unless_null $P1366, vivify_312
- new $P1366, "Undef"
+ set $P1367, $P1366["nibbler"]
+ unless_null $P1367, vivify_312
+ new $P1367, "Undef"
vivify_312:
- if $P1366, if_1364
+ if $P1367, if_1365
.annotate 'line', 400
- find_lex $P1374, "$/"
- unless_null $P1374, vivify_313
- $P1374 = root_new ['parrot';'Hash']
+ find_lex $P1375, "$/"
+ unless_null $P1375, vivify_313
+ $P1375 = root_new ['parrot';'Hash']
vivify_313:
- set $P1375, $P1374["arglist"]
- unless_null $P1375, vivify_314
- new $P1375, "Undef"
+ set $P1376, $P1375["arglist"]
+ unless_null $P1376, vivify_314
+ new $P1376, "Undef"
vivify_314:
- unless $P1375, if_1373_end
+ unless $P1376, if_1374_end
.annotate 'line', 401
- find_lex $P1377, "$/"
- unless_null $P1377, vivify_315
- $P1377 = root_new ['parrot';'Hash']
+ find_lex $P1378, "$/"
+ unless_null $P1378, vivify_315
+ $P1378 = root_new ['parrot';'Hash']
vivify_315:
- set $P1378, $P1377["arglist"]
- unless_null $P1378, vivify_316
- $P1378 = root_new ['parrot';'ResizablePMCArray']
+ set $P1379, $P1378["arglist"]
+ unless_null $P1379, vivify_316
+ $P1379 = root_new ['parrot';'ResizablePMCArray']
vivify_316:
- set $P1379, $P1378[0]
- unless_null $P1379, vivify_317
- new $P1379, "Undef"
+ set $P1380, $P1379[0]
+ unless_null $P1380, vivify_317
+ new $P1380, "Undef"
vivify_317:
- $P1380 = $P1379."ast"()
- $P1381 = $P1380."list"()
- defined $I1382, $P1381
- unless $I1382, for_undef_318
- iter $P1376, $P1381
- new $P1391, 'ExceptionHandler'
- set_addr $P1391, loop1390_handler
- $P1391."handle_types"(64, 66, 65)
- push_eh $P1391
- loop1390_test:
- unless $P1376, loop1390_done
- shift $P1383, $P1376
- loop1390_redo:
- .const 'Sub' $P1385 = "81_1274564778.23532"
- capture_lex $P1385
- $P1385($P1383)
- loop1390_next:
- goto loop1390_test
- loop1390_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P1392, exception, 'type'
- eq $P1392, 64, loop1390_next
- eq $P1392, 66, loop1390_redo
- loop1390_done:
+ $P1381 = $P1380."ast"()
+ $P1382 = $P1381."list"()
+ defined $I1383, $P1382
+ unless $I1383, for_undef_318
+ iter $P1377, $P1382
+ new $P1392, 'ExceptionHandler'
+ set_addr $P1392, loop1391_handler
+ $P1392."handle_types"(64, 66, 65)
+ push_eh $P1392
+ loop1391_test:
+ unless $P1377, loop1391_done
+ shift $P1384, $P1377
+ loop1391_redo:
+ .const 'Sub' $P1386 = "81_1275117600.18794"
+ capture_lex $P1386
+ $P1386($P1384)
+ loop1391_next:
+ goto loop1391_test
+ loop1391_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1393, exception, 'type'
+ eq $P1393, 64, loop1391_next
+ eq $P1393, 66, loop1391_redo
+ loop1391_done:
pop_eh
for_undef_318:
- if_1373_end:
+ if_1374_end:
.annotate 'line', 400
- goto if_1364_end
- if_1364:
+ goto if_1365_end
+ if_1365:
.annotate 'line', 398
- find_lex $P1367, "$past"
- find_lex $P1368, "$/"
- unless_null $P1368, vivify_319
- $P1368 = root_new ['parrot';'Hash']
+ find_lex $P1368, "$past"
+ find_lex $P1369, "$/"
+ unless_null $P1369, vivify_319
+ $P1369 = root_new ['parrot';'Hash']
vivify_319:
- set $P1369, $P1368["nibbler"]
- unless_null $P1369, vivify_320
- $P1369 = root_new ['parrot';'ResizablePMCArray']
+ set $P1370, $P1369["nibbler"]
+ unless_null $P1370, vivify_320
+ $P1370 = root_new ['parrot';'ResizablePMCArray']
vivify_320:
- set $P1370, $P1369[0]
- unless_null $P1370, vivify_321
- new $P1370, "Undef"
+ set $P1371, $P1370[0]
+ unless_null $P1371, vivify_321
+ new $P1371, "Undef"
vivify_321:
- $P1371 = $P1370."ast"()
- $P1372 = "buildsub"($P1371)
- $P1367."push"($P1372)
- if_1364_end:
+ $P1372 = $P1371."ast"()
+ $P1373 = "buildsub"($P1372)
+ $P1368."push"($P1373)
+ if_1365_end:
.annotate 'line', 394
- goto if_1344_end
- if_1344:
+ goto if_1345_end
+ if_1345:
.annotate 'line', 379
- .const 'Sub' $P1349 = "80_1274564778.23532"
- capture_lex $P1349
- $P1349()
- if_1344_end:
- goto if_1335_end
- if_1335:
+ .const 'Sub' $P1350 = "80_1275117600.18794"
+ capture_lex $P1350
+ $P1350()
+ if_1345_end:
+ goto if_1336_end
+ if_1336:
.annotate 'line', 376
- find_lex $P1338, "$/"
- unless_null $P1338, vivify_322
- $P1338 = root_new ['parrot';'Hash']
+ find_lex $P1339, "$/"
+ unless_null $P1339, vivify_322
+ $P1339 = root_new ['parrot';'Hash']
vivify_322:
- set $P1339, $P1338["assertion"]
- unless_null $P1339, vivify_323
- $P1339 = root_new ['parrot';'ResizablePMCArray']
+ set $P1340, $P1339["assertion"]
+ unless_null $P1340, vivify_323
+ $P1340 = root_new ['parrot';'ResizablePMCArray']
vivify_323:
- set $P1340, $P1339[0]
- unless_null $P1340, vivify_324
- new $P1340, "Undef"
+ set $P1341, $P1340[0]
+ unless_null $P1341, vivify_324
+ new $P1341, "Undef"
vivify_324:
- $P1341 = $P1340."ast"()
- store_lex "$past", $P1341
+ $P1342 = $P1341."ast"()
+ store_lex "$past", $P1342
.annotate 'line', 377
- find_lex $P1342, "$past"
- find_lex $P1343, "$name"
- "subrule_alias"($P1342, $P1343)
- if_1335_end:
+ find_lex $P1343, "$past"
+ find_lex $P1344, "$name"
+ "subrule_alias"($P1343, $P1344)
+ if_1336_end:
.annotate 'line', 404
- find_lex $P1393, "$/"
- find_lex $P1394, "$past"
- $P1395 = $P1393."!make"($P1394)
+ find_lex $P1394, "$/"
+ find_lex $P1395, "$past"
+ $P1396 = $P1394."!make"($P1395)
.annotate 'line', 372
- .return ($P1395)
- control_1325:
+ .return ($P1396)
+ control_1326:
.local pmc exception
.get_results (exception)
- getattribute $P1396, exception, "payload"
- .return ($P1396)
+ getattribute $P1397, exception, "payload"
+ .return ($P1397)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1384" :anon :subid("81_1274564778.23532") :outer("79_1274564778.23532")
- .param pmc param_1386
+.sub "_block1385" :anon :subid("81_1275117600.18794") :outer("79_1275117600.18794")
+ .param pmc param_1387
.annotate 'line', 401
- .lex "$_", param_1386
- find_lex $P1387, "$past"
- find_lex $P1388, "$_"
- $P1389 = $P1387."push"($P1388)
- .return ($P1389)
+ .lex "$_", param_1387
+ find_lex $P1388, "$past"
+ find_lex $P1389, "$_"
+ $P1390 = $P1388."push"($P1389)
+ .return ($P1390)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1348" :anon :subid("80_1274564778.23532") :outer("79_1274564778.23532")
+.sub "_block1349" :anon :subid("80_1275117600.18794") :outer("79_1275117600.18794")
.annotate 'line', 380
- new $P1350, "Undef"
- .lex "$regexsym", $P1350
+ new $P1351, "Undef"
+ .lex "$regexsym", $P1351
$P0 = get_global '$REGEXNAME'
$S0 = $P0
@@ -11297,387 +11324,387 @@
add $I0, 5
$S0 = substr $S0, $I0
$S0 = chopn $S0, 1
- $P1351 = box $S0
+ $P1352 = box $S0
- store_lex "$regexsym", $P1351
+ store_lex "$regexsym", $P1352
.annotate 'line', 389
- get_hll_global $P1352, ["PAST"], "Regex"
-.annotate 'line', 390
get_hll_global $P1353, ["PAST"], "Regex"
- find_lex $P1354, "$regexsym"
- $P1355 = $P1353."new"($P1354, "literal" :named("pasttype"))
- find_lex $P1356, "$name"
- find_lex $P1357, "$/"
- $P1358 = $P1352."new"($P1355, $P1356 :named("name"), "subcapture" :named("pasttype"), $P1357 :named("node"))
+.annotate 'line', 390
+ get_hll_global $P1354, ["PAST"], "Regex"
+ find_lex $P1355, "$regexsym"
+ $P1356 = $P1354."new"($P1355, "literal" :named("pasttype"))
+ find_lex $P1357, "$name"
+ find_lex $P1358, "$/"
+ $P1359 = $P1353."new"($P1356, $P1357 :named("name"), "subcapture" :named("pasttype"), $P1358 :named("node"))
.annotate 'line', 389
- store_lex "$past", $P1358
+ store_lex "$past", $P1359
.annotate 'line', 379
- .return ($P1358)
+ .return ($P1359)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<[>" :subid("82_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1400
+.sub "assertion:sym<[>" :subid("82_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1401
.annotate 'line', 407
- .const 'Sub' $P1435 = "83_1274564778.23532"
- capture_lex $P1435
- new $P1399, 'ExceptionHandler'
- set_addr $P1399, control_1398
- $P1399."handle_types"(57)
- push_eh $P1399
+ .const 'Sub' $P1436 = "83_1275117600.18794"
+ capture_lex $P1436
+ new $P1400, 'ExceptionHandler'
+ set_addr $P1400, control_1399
+ $P1400."handle_types"(57)
+ push_eh $P1400
.lex "self", self
- .lex "$/", param_1400
+ .lex "$/", param_1401
.annotate 'line', 408
- new $P1401, "Undef"
- .lex "$clist", $P1401
-.annotate 'line', 409
new $P1402, "Undef"
- .lex "$past", $P1402
-.annotate 'line', 418
+ .lex "$clist", $P1402
+.annotate 'line', 409
new $P1403, "Undef"
- .lex "$i", $P1403
-.annotate 'line', 419
+ .lex "$past", $P1403
+.annotate 'line', 418
new $P1404, "Undef"
- .lex "$n", $P1404
+ .lex "$i", $P1404
+.annotate 'line', 419
+ new $P1405, "Undef"
+ .lex "$n", $P1405
.annotate 'line', 408
- find_lex $P1405, "$/"
- unless_null $P1405, vivify_325
- $P1405 = root_new ['parrot';'Hash']
+ find_lex $P1406, "$/"
+ unless_null $P1406, vivify_325
+ $P1406 = root_new ['parrot';'Hash']
vivify_325:
- set $P1406, $P1405["cclass_elem"]
- unless_null $P1406, vivify_326
- new $P1406, "Undef"
+ set $P1407, $P1406["cclass_elem"]
+ unless_null $P1407, vivify_326
+ new $P1407, "Undef"
vivify_326:
- store_lex "$clist", $P1406
+ store_lex "$clist", $P1407
.annotate 'line', 409
- find_lex $P1407, "$clist"
- unless_null $P1407, vivify_327
- $P1407 = root_new ['parrot';'ResizablePMCArray']
+ find_lex $P1408, "$clist"
+ unless_null $P1408, vivify_327
+ $P1408 = root_new ['parrot';'ResizablePMCArray']
vivify_327:
- set $P1408, $P1407[0]
- unless_null $P1408, vivify_328
- new $P1408, "Undef"
+ set $P1409, $P1408[0]
+ unless_null $P1409, vivify_328
+ new $P1409, "Undef"
vivify_328:
- $P1409 = $P1408."ast"()
- store_lex "$past", $P1409
+ $P1410 = $P1409."ast"()
+ store_lex "$past", $P1410
.annotate 'line', 410
- find_lex $P1413, "$past"
- $P1414 = $P1413."negate"()
- if $P1414, if_1412
- set $P1411, $P1414
- goto if_1412_end
- if_1412:
- find_lex $P1415, "$past"
- $S1416 = $P1415."pasttype"()
- iseq $I1417, $S1416, "subrule"
- new $P1411, 'Integer'
- set $P1411, $I1417
- if_1412_end:
- unless $P1411, if_1410_end
+ find_lex $P1414, "$past"
+ $P1415 = $P1414."negate"()
+ if $P1415, if_1413
+ set $P1412, $P1415
+ goto if_1413_end
+ if_1413:
+ find_lex $P1416, "$past"
+ $S1417 = $P1416."pasttype"()
+ iseq $I1418, $S1417, "subrule"
+ new $P1412, 'Integer'
+ set $P1412, $I1418
+ if_1413_end:
+ unless $P1412, if_1411_end
.annotate 'line', 411
- find_lex $P1418, "$past"
- $P1418."subtype"("zerowidth")
+ find_lex $P1419, "$past"
+ $P1419."subtype"("zerowidth")
.annotate 'line', 412
- get_hll_global $P1419, ["PAST"], "Regex"
- find_lex $P1420, "$past"
+ get_hll_global $P1420, ["PAST"], "Regex"
+ find_lex $P1421, "$past"
.annotate 'line', 414
- get_hll_global $P1421, ["PAST"], "Regex"
- $P1422 = $P1421."new"("charclass" :named("pasttype"), "." :named("subtype"))
- find_lex $P1423, "$/"
- $P1424 = $P1419."new"($P1420, $P1422, $P1423 :named("node"))
+ get_hll_global $P1422, ["PAST"], "Regex"
+ $P1423 = $P1422."new"("charclass" :named("pasttype"), "." :named("subtype"))
+ find_lex $P1424, "$/"
+ $P1425 = $P1420."new"($P1421, $P1423, $P1424 :named("node"))
.annotate 'line', 412
- store_lex "$past", $P1424
- if_1410_end:
+ store_lex "$past", $P1425
+ if_1411_end:
.annotate 'line', 418
- new $P1425, "Integer"
- assign $P1425, 1
- store_lex "$i", $P1425
+ new $P1426, "Integer"
+ assign $P1426, 1
+ store_lex "$i", $P1426
.annotate 'line', 419
- find_lex $P1426, "$clist"
- set $N1427, $P1426
- new $P1428, 'Float'
- set $P1428, $N1427
- store_lex "$n", $P1428
+ find_lex $P1427, "$clist"
+ set $N1428, $P1427
+ new $P1429, 'Float'
+ set $P1429, $N1428
+ store_lex "$n", $P1429
.annotate 'line', 420
- new $P1459, 'ExceptionHandler'
- set_addr $P1459, loop1458_handler
- $P1459."handle_types"(64, 66, 65)
- push_eh $P1459
- loop1458_test:
- find_lex $P1429, "$i"
- set $N1430, $P1429
- find_lex $P1431, "$n"
- set $N1432, $P1431
- islt $I1433, $N1430, $N1432
- unless $I1433, loop1458_done
- loop1458_redo:
- .const 'Sub' $P1435 = "83_1274564778.23532"
- capture_lex $P1435
- $P1435()
- loop1458_next:
- goto loop1458_test
- loop1458_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P1460, exception, 'type'
- eq $P1460, 64, loop1458_next
- eq $P1460, 66, loop1458_redo
- loop1458_done:
+ new $P1460, 'ExceptionHandler'
+ set_addr $P1460, loop1459_handler
+ $P1460."handle_types"(64, 66, 65)
+ push_eh $P1460
+ loop1459_test:
+ find_lex $P1430, "$i"
+ set $N1431, $P1430
+ find_lex $P1432, "$n"
+ set $N1433, $P1432
+ islt $I1434, $N1431, $N1433
+ unless $I1434, loop1459_done
+ loop1459_redo:
+ .const 'Sub' $P1436 = "83_1275117600.18794"
+ capture_lex $P1436
+ $P1436()
+ loop1459_next:
+ goto loop1459_test
+ loop1459_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1461, exception, 'type'
+ eq $P1461, 64, loop1459_next
+ eq $P1461, 66, loop1459_redo
+ loop1459_done:
pop_eh
.annotate 'line', 431
- find_lex $P1461, "$/"
- find_lex $P1462, "$past"
- $P1463 = $P1461."!make"($P1462)
+ find_lex $P1462, "$/"
+ find_lex $P1463, "$past"
+ $P1464 = $P1462."!make"($P1463)
.annotate 'line', 407
- .return ($P1463)
- control_1398:
+ .return ($P1464)
+ control_1399:
.local pmc exception
.get_results (exception)
- getattribute $P1464, exception, "payload"
- .return ($P1464)
+ getattribute $P1465, exception, "payload"
+ .return ($P1465)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1434" :anon :subid("83_1274564778.23532") :outer("82_1274564778.23532")
+.sub "_block1435" :anon :subid("83_1275117600.18794") :outer("82_1275117600.18794")
.annotate 'line', 421
- new $P1436, "Undef"
- .lex "$ast", $P1436
- find_lex $P1437, "$i"
- set $I1438, $P1437
- find_lex $P1439, "$clist"
- unless_null $P1439, vivify_329
- $P1439 = root_new ['parrot';'ResizablePMCArray']
+ new $P1437, "Undef"
+ .lex "$ast", $P1437
+ find_lex $P1438, "$i"
+ set $I1439, $P1438
+ find_lex $P1440, "$clist"
+ unless_null $P1440, vivify_329
+ $P1440 = root_new ['parrot';'ResizablePMCArray']
vivify_329:
- set $P1440, $P1439[$I1438]
- unless_null $P1440, vivify_330
- new $P1440, "Undef"
+ set $P1441, $P1440[$I1439]
+ unless_null $P1441, vivify_330
+ new $P1441, "Undef"
vivify_330:
- $P1441 = $P1440."ast"()
- store_lex "$ast", $P1441
+ $P1442 = $P1441."ast"()
+ store_lex "$ast", $P1442
.annotate 'line', 422
- find_lex $P1443, "$ast"
- $P1444 = $P1443."negate"()
- if $P1444, if_1442
+ find_lex $P1444, "$ast"
+ $P1445 = $P1444."negate"()
+ if $P1445, if_1443
.annotate 'line', 427
- get_hll_global $P1451, ["PAST"], "Regex"
- find_lex $P1452, "$past"
- find_lex $P1453, "$ast"
- find_lex $P1454, "$/"
- $P1455 = $P1451."new"($P1452, $P1453, "alt" :named("pasttype"), $P1454 :named("node"))
- store_lex "$past", $P1455
+ get_hll_global $P1452, ["PAST"], "Regex"
+ find_lex $P1453, "$past"
+ find_lex $P1454, "$ast"
+ find_lex $P1455, "$/"
+ $P1456 = $P1452."new"($P1453, $P1454, "alt" :named("pasttype"), $P1455 :named("node"))
+ store_lex "$past", $P1456
.annotate 'line', 426
- goto if_1442_end
- if_1442:
+ goto if_1443_end
+ if_1443:
.annotate 'line', 423
- find_lex $P1445, "$ast"
- $P1445."subtype"("zerowidth")
+ find_lex $P1446, "$ast"
+ $P1446."subtype"("zerowidth")
.annotate 'line', 424
- get_hll_global $P1446, ["PAST"], "Regex"
- find_lex $P1447, "$ast"
- find_lex $P1448, "$past"
- find_lex $P1449, "$/"
- $P1450 = $P1446."new"($P1447, $P1448, "concat" :named("pasttype"), $P1449 :named("node"))
- store_lex "$past", $P1450
- if_1442_end:
+ get_hll_global $P1447, ["PAST"], "Regex"
+ find_lex $P1448, "$ast"
+ find_lex $P1449, "$past"
+ find_lex $P1450, "$/"
+ $P1451 = $P1447."new"($P1448, $P1449, "concat" :named("pasttype"), $P1450 :named("node"))
+ store_lex "$past", $P1451
+ if_1443_end:
.annotate 'line', 429
- find_lex $P1456, "$i"
- add $P1457, $P1456, 1
- store_lex "$i", $P1457
+ find_lex $P1457, "$i"
+ add $P1458, $P1457, 1
+ store_lex "$i", $P1458
.annotate 'line', 420
- .return ($P1457)
+ .return ($P1458)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "cclass_elem" :subid("84_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1468
+.sub "cclass_elem" :subid("84_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1469
.annotate 'line', 434
- .const 'Sub' $P1493 = "86_1274564778.23532"
- capture_lex $P1493
- .const 'Sub' $P1477 = "85_1274564778.23532"
- capture_lex $P1477
- new $P1467, 'ExceptionHandler'
- set_addr $P1467, control_1466
- $P1467."handle_types"(57)
- push_eh $P1467
+ .const 'Sub' $P1494 = "86_1275117600.18794"
+ capture_lex $P1494
+ .const 'Sub' $P1478 = "85_1275117600.18794"
+ capture_lex $P1478
+ new $P1468, 'ExceptionHandler'
+ set_addr $P1468, control_1467
+ $P1468."handle_types"(57)
+ push_eh $P1468
.lex "self", self
- .lex "$/", param_1468
+ .lex "$/", param_1469
.annotate 'line', 435
- new $P1469, "Undef"
- .lex "$str", $P1469
-.annotate 'line', 436
new $P1470, "Undef"
- .lex "$past", $P1470
+ .lex "$str", $P1470
+.annotate 'line', 436
+ new $P1471, "Undef"
+ .lex "$past", $P1471
.annotate 'line', 435
- new $P1471, "String"
- assign $P1471, ""
- store_lex "$str", $P1471
- find_lex $P1472, "$past"
+ new $P1472, "String"
+ assign $P1472, ""
+ store_lex "$str", $P1472
+ find_lex $P1473, "$past"
.annotate 'line', 437
- find_lex $P1474, "$/"
- unless_null $P1474, vivify_331
- $P1474 = root_new ['parrot';'Hash']
+ find_lex $P1475, "$/"
+ unless_null $P1475, vivify_331
+ $P1475 = root_new ['parrot';'Hash']
vivify_331:
- set $P1475, $P1474["name"]
- unless_null $P1475, vivify_332
- new $P1475, "Undef"
+ set $P1476, $P1475["name"]
+ unless_null $P1476, vivify_332
+ new $P1476, "Undef"
vivify_332:
- if $P1475, if_1473
+ if $P1476, if_1474
.annotate 'line', 441
- find_lex $P1488, "$/"
- unless_null $P1488, vivify_333
- $P1488 = root_new ['parrot';'Hash']
+ find_lex $P1489, "$/"
+ unless_null $P1489, vivify_333
+ $P1489 = root_new ['parrot';'Hash']
vivify_333:
- set $P1489, $P1488["charspec"]
- unless_null $P1489, vivify_334
- new $P1489, "Undef"
+ set $P1490, $P1489["charspec"]
+ unless_null $P1490, vivify_334
+ new $P1490, "Undef"
vivify_334:
- defined $I1490, $P1489
- unless $I1490, for_undef_335
- iter $P1487, $P1489
- new $P1519, 'ExceptionHandler'
- set_addr $P1519, loop1518_handler
- $P1519."handle_types"(64, 66, 65)
- push_eh $P1519
- loop1518_test:
- unless $P1487, loop1518_done
- shift $P1491, $P1487
- loop1518_redo:
- .const 'Sub' $P1493 = "86_1274564778.23532"
- capture_lex $P1493
- $P1493($P1491)
- loop1518_next:
- goto loop1518_test
- loop1518_handler:
- .local pmc exception
- .get_results (exception)
- getattribute $P1520, exception, 'type'
- eq $P1520, 64, loop1518_next
- eq $P1520, 66, loop1518_redo
- loop1518_done:
+ defined $I1491, $P1490
+ unless $I1491, for_undef_335
+ iter $P1488, $P1490
+ new $P1520, 'ExceptionHandler'
+ set_addr $P1520, loop1519_handler
+ $P1520."handle_types"(64, 66, 65)
+ push_eh $P1520
+ loop1519_test:
+ unless $P1488, loop1519_done
+ shift $P1492, $P1488
+ loop1519_redo:
+ .const 'Sub' $P1494 = "86_1275117600.18794"
+ capture_lex $P1494
+ $P1494($P1492)
+ loop1519_next:
+ goto loop1519_test
+ loop1519_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1521, exception, 'type'
+ eq $P1521, 64, loop1519_next
+ eq $P1521, 66, loop1519_redo
+ loop1519_done:
pop_eh
for_undef_335:
.annotate 'line', 466
- get_hll_global $P1521, ["PAST"], "Regex"
- find_lex $P1522, "$str"
- find_lex $P1523, "$/"
- $P1524 = $P1521."new"($P1522, "enumcharlist" :named("pasttype"), $P1523 :named("node"))
- store_lex "$past", $P1524
+ get_hll_global $P1522, ["PAST"], "Regex"
+ find_lex $P1523, "$str"
+ find_lex $P1524, "$/"
+ $P1525 = $P1522."new"($P1523, "enumcharlist" :named("pasttype"), $P1524 :named("node"))
+ store_lex "$past", $P1525
.annotate 'line', 440
- goto if_1473_end
- if_1473:
+ goto if_1474_end
+ if_1474:
.annotate 'line', 437
- .const 'Sub' $P1477 = "85_1274564778.23532"
- capture_lex $P1477
- $P1477()
- if_1473_end:
+ .const 'Sub' $P1478 = "85_1275117600.18794"
+ capture_lex $P1478
+ $P1478()
+ if_1474_end:
.annotate 'line', 468
- find_lex $P1525, "$past"
- find_lex $P1526, "$/"
- unless_null $P1526, vivify_347
- $P1526 = root_new ['parrot';'Hash']
+ find_lex $P1526, "$past"
+ find_lex $P1527, "$/"
+ unless_null $P1527, vivify_347
+ $P1527 = root_new ['parrot';'Hash']
vivify_347:
- set $P1527, $P1526["sign"]
- unless_null $P1527, vivify_348
- new $P1527, "Undef"
+ set $P1528, $P1527["sign"]
+ unless_null $P1528, vivify_348
+ new $P1528, "Undef"
vivify_348:
- set $S1528, $P1527
- iseq $I1529, $S1528, "-"
- $P1525."negate"($I1529)
+ set $S1529, $P1528
+ iseq $I1530, $S1529, "-"
+ $P1526."negate"($I1530)
.annotate 'line', 469
- find_lex $P1530, "$/"
- find_lex $P1531, "$past"
- $P1532 = $P1530."!make"($P1531)
+ find_lex $P1531, "$/"
+ find_lex $P1532, "$past"
+ $P1533 = $P1531."!make"($P1532)
.annotate 'line', 434
- .return ($P1532)
- control_1466:
+ .return ($P1533)
+ control_1467:
.local pmc exception
.get_results (exception)
- getattribute $P1533, exception, "payload"
- .return ($P1533)
+ getattribute $P1534, exception, "payload"
+ .return ($P1534)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1492" :anon :subid("86_1274564778.23532") :outer("84_1274564778.23532")
- .param pmc param_1494
+.sub "_block1493" :anon :subid("86_1275117600.18794") :outer("84_1275117600.18794")
+ .param pmc param_1495
.annotate 'line', 441
- .const 'Sub' $P1500 = "87_1274564778.23532"
- capture_lex $P1500
- .lex "$_", param_1494
+ .const 'Sub' $P1501 = "87_1275117600.18794"
+ capture_lex $P1501
+ .lex "$_", param_1495
.annotate 'line', 442
- find_lex $P1497, "$_"
- unless_null $P1497, vivify_336
- $P1497 = root_new ['parrot';'ResizablePMCArray']
+ find_lex $P1498, "$_"
+ unless_null $P1498, vivify_336
+ $P1498 = root_new ['parrot';'ResizablePMCArray']
vivify_336:
- set $P1498, $P1497[1]
- unless_null $P1498, vivify_337
- new $P1498, "Undef"
+ set $P1499, $P1498[1]
+ unless_null $P1499, vivify_337
+ new $P1499, "Undef"
vivify_337:
- if $P1498, if_1496
+ if $P1499, if_1497
.annotate 'line', 464
- find_lex $P1514, "$str"
- find_lex $P1515, "$_"
- unless_null $P1515, vivify_338
- $P1515 = root_new ['parrot';'ResizablePMCArray']
+ find_lex $P1515, "$str"
+ find_lex $P1516, "$_"
+ unless_null $P1516, vivify_338
+ $P1516 = root_new ['parrot';'ResizablePMCArray']
vivify_338:
- set $P1516, $P1515[0]
- unless_null $P1516, vivify_339
- new $P1516, "Undef"
+ set $P1517, $P1516[0]
+ unless_null $P1517, vivify_339
+ new $P1517, "Undef"
vivify_339:
- concat $P1517, $P1514, $P1516
- store_lex "$str", $P1517
- set $P1495, $P1517
+ concat $P1518, $P1515, $P1517
+ store_lex "$str", $P1518
+ set $P1496, $P1518
.annotate 'line', 442
- goto if_1496_end
- if_1496:
- .const 'Sub' $P1500 = "87_1274564778.23532"
- capture_lex $P1500
- $P1513 = $P1500()
- set $P1495, $P1513
- if_1496_end:
+ goto if_1497_end
+ if_1497:
+ .const 'Sub' $P1501 = "87_1275117600.18794"
+ capture_lex $P1501
+ $P1514 = $P1501()
+ set $P1496, $P1514
+ if_1497_end:
.annotate 'line', 441
- .return ($P1495)
+ .return ($P1496)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1499" :anon :subid("87_1274564778.23532") :outer("86_1274564778.23532")
+.sub "_block1500" :anon :subid("87_1275117600.18794") :outer("86_1275117600.18794")
.annotate 'line', 443
- new $P1501, "Undef"
- .lex "$a", $P1501
-.annotate 'line', 444
new $P1502, "Undef"
- .lex "$b", $P1502
-.annotate 'line', 445
+ .lex "$a", $P1502
+.annotate 'line', 444
new $P1503, "Undef"
- .lex "$c", $P1503
+ .lex "$b", $P1503
+.annotate 'line', 445
+ new $P1504, "Undef"
+ .lex "$c", $P1504
.annotate 'line', 443
- find_lex $P1504, "$_"
- unless_null $P1504, vivify_340
- $P1504 = root_new ['parrot';'ResizablePMCArray']
+ find_lex $P1505, "$_"
+ unless_null $P1505, vivify_340
+ $P1505 = root_new ['parrot';'ResizablePMCArray']
vivify_340:
- set $P1505, $P1504[0]
- unless_null $P1505, vivify_341
- new $P1505, "Undef"
+ set $P1506, $P1505[0]
+ unless_null $P1506, vivify_341
+ new $P1506, "Undef"
vivify_341:
- store_lex "$a", $P1505
+ store_lex "$a", $P1506
.annotate 'line', 444
- find_lex $P1506, "$_"
- unless_null $P1506, vivify_342
- $P1506 = root_new ['parrot';'ResizablePMCArray']
- vivify_342:
- set $P1507, $P1506[1]
- unless_null $P1507, vivify_343
+ find_lex $P1507, "$_"
+ unless_null $P1507, vivify_342
$P1507 = root_new ['parrot';'ResizablePMCArray']
+ vivify_342:
+ set $P1508, $P1507[1]
+ unless_null $P1508, vivify_343
+ $P1508 = root_new ['parrot';'ResizablePMCArray']
vivify_343:
- set $P1508, $P1507[0]
- unless_null $P1508, vivify_344
- new $P1508, "Undef"
+ set $P1509, $P1508[0]
+ unless_null $P1509, vivify_344
+ new $P1509, "Undef"
vivify_344:
- store_lex "$b", $P1508
+ store_lex "$b", $P1509
.annotate 'line', 445
$P0 = find_lex '$a'
@@ -11694,160 +11721,160 @@
inc $I0
goto cclass_loop
cclass_done:
- $P1509 = box $S2
+ $P1510 = box $S2
- store_lex "$c", $P1509
+ store_lex "$c", $P1510
.annotate 'line', 462
- find_lex $P1510, "$str"
- find_lex $P1511, "$c"
- concat $P1512, $P1510, $P1511
- store_lex "$str", $P1512
+ find_lex $P1511, "$str"
+ find_lex $P1512, "$c"
+ concat $P1513, $P1511, $P1512
+ store_lex "$str", $P1513
.annotate 'line', 442
- .return ($P1512)
+ .return ($P1513)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1476" :anon :subid("85_1274564778.23532") :outer("84_1274564778.23532")
+.sub "_block1477" :anon :subid("85_1275117600.18794") :outer("84_1275117600.18794")
.annotate 'line', 438
- new $P1478, "Undef"
- .lex "$name", $P1478
- find_lex $P1479, "$/"
- unless_null $P1479, vivify_345
- $P1479 = root_new ['parrot';'Hash']
+ new $P1479, "Undef"
+ .lex "$name", $P1479
+ find_lex $P1480, "$/"
+ unless_null $P1480, vivify_345
+ $P1480 = root_new ['parrot';'Hash']
vivify_345:
- set $P1480, $P1479["name"]
- unless_null $P1480, vivify_346
- new $P1480, "Undef"
+ set $P1481, $P1480["name"]
+ unless_null $P1481, vivify_346
+ new $P1481, "Undef"
vivify_346:
- set $S1481, $P1480
- new $P1482, 'String'
- set $P1482, $S1481
- store_lex "$name", $P1482
+ set $S1482, $P1481
+ new $P1483, 'String'
+ set $P1483, $S1482
+ store_lex "$name", $P1483
.annotate 'line', 439
- get_hll_global $P1483, ["PAST"], "Regex"
- find_lex $P1484, "$name"
- find_lex $P1485, "$/"
- $P1486 = $P1483."new"($P1484, "subrule" :named("pasttype"), "method" :named("subtype"), $P1485 :named("node"))
- store_lex "$past", $P1486
+ get_hll_global $P1484, ["PAST"], "Regex"
+ find_lex $P1485, "$name"
+ find_lex $P1486, "$/"
+ $P1487 = $P1484."new"($P1485, "subrule" :named("pasttype"), "method" :named("subtype"), $P1486 :named("node"))
+ store_lex "$past", $P1487
.annotate 'line', 437
- .return ($P1486)
+ .return ($P1487)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "mod_internal" :subid("88_1274564778.23532") :method :outer("11_1274564778.23532")
- .param pmc param_1537
+.sub "mod_internal" :subid("88_1275117600.18794") :method :outer("11_1275117600.18794")
+ .param pmc param_1538
.annotate 'line', 472
- new $P1536, 'ExceptionHandler'
- set_addr $P1536, control_1535
- $P1536."handle_types"(57)
- push_eh $P1536
+ new $P1537, 'ExceptionHandler'
+ set_addr $P1537, control_1536
+ $P1537."handle_types"(57)
+ push_eh $P1537
.lex "self", self
- .lex "$/", param_1537
+ .lex "$/", param_1538
.annotate 'line', 473
- $P1538 = root_new ['parrot';'Hash']
- .lex "%mods", $P1538
+ $P1539 = root_new ['parrot';'Hash']
+ .lex "%mods", $P1539
.annotate 'line', 474
- new $P1539, "Undef"
- .lex "$n", $P1539
+ new $P1540, "Undef"
+ .lex "$n", $P1540
.annotate 'line', 473
- get_global $P1540, "@MODIFIERS"
- unless_null $P1540, vivify_349
- $P1540 = root_new ['parrot';'ResizablePMCArray']
+ get_global $P1541, "@MODIFIERS"
+ unless_null $P1541, vivify_349
+ $P1541 = root_new ['parrot';'ResizablePMCArray']
vivify_349:
- set $P1541, $P1540[0]
- unless_null $P1541, vivify_350
- new $P1541, "Undef"
+ set $P1542, $P1541[0]
+ unless_null $P1542, vivify_350
+ new $P1542, "Undef"
vivify_350:
- store_lex "%mods", $P1541
+ store_lex "%mods", $P1542
.annotate 'line', 474
- find_lex $P1544, "$/"
- unless_null $P1544, vivify_351
- $P1544 = root_new ['parrot';'Hash']
+ find_lex $P1545, "$/"
+ unless_null $P1545, vivify_351
+ $P1545 = root_new ['parrot';'Hash']
vivify_351:
- set $P1545, $P1544["n"]
- unless_null $P1545, vivify_352
- $P1545 = root_new ['parrot';'ResizablePMCArray']
+ set $P1546, $P1545["n"]
+ unless_null $P1546, vivify_352
+ $P1546 = root_new ['parrot';'ResizablePMCArray']
vivify_352:
- set $P1546, $P1545[0]
- unless_null $P1546, vivify_353
- new $P1546, "Undef"
+ set $P1547, $P1546[0]
+ unless_null $P1547, vivify_353
+ new $P1547, "Undef"
vivify_353:
- set $S1547, $P1546
- isgt $I1548, $S1547, ""
- if $I1548, if_1543
- new $P1553, "Integer"
- assign $P1553, 1
- set $P1542, $P1553
- goto if_1543_end
- if_1543:
- find_lex $P1549, "$/"
- unless_null $P1549, vivify_354
- $P1549 = root_new ['parrot';'Hash']
+ set $S1548, $P1547
+ isgt $I1549, $S1548, ""
+ if $I1549, if_1544
+ new $P1554, "Integer"
+ assign $P1554, 1
+ set $P1543, $P1554
+ goto if_1544_end
+ if_1544:
+ find_lex $P1550, "$/"
+ unless_null $P1550, vivify_354
+ $P1550 = root_new ['parrot';'Hash']
vivify_354:
- set $P1550, $P1549["n"]
- unless_null $P1550, vivify_355
- $P1550 = root_new ['parrot';'ResizablePMCArray']
+ set $P1551, $P1550["n"]
+ unless_null $P1551, vivify_355
+ $P1551 = root_new ['parrot';'ResizablePMCArray']
vivify_355:
- set $P1551, $P1550[0]
- unless_null $P1551, vivify_356
- new $P1551, "Undef"
+ set $P1552, $P1551[0]
+ unless_null $P1552, vivify_356
+ new $P1552, "Undef"
vivify_356:
- set $N1552, $P1551
- new $P1542, 'Float'
- set $P1542, $N1552
- if_1543_end:
- store_lex "$n", $P1542
+ set $N1553, $P1552
+ new $P1543, 'Float'
+ set $P1543, $N1553
+ if_1544_end:
+ store_lex "$n", $P1543
.annotate 'line', 475
- find_lex $P1554, "$n"
- find_lex $P1555, "$/"
- unless_null $P1555, vivify_357
- $P1555 = root_new ['parrot';'Hash']
- vivify_357:
- set $P1556, $P1555["mod_ident"]
- unless_null $P1556, vivify_358
+ find_lex $P1555, "$n"
+ find_lex $P1556, "$/"
+ unless_null $P1556, vivify_357
$P1556 = root_new ['parrot';'Hash']
+ vivify_357:
+ set $P1557, $P1556["mod_ident"]
+ unless_null $P1557, vivify_358
+ $P1557 = root_new ['parrot';'Hash']
vivify_358:
- set $P1557, $P1556["sym"]
- unless_null $P1557, vivify_359
- new $P1557, "Undef"
+ set $P1558, $P1557["sym"]
+ unless_null $P1558, vivify_359
+ new $P1558, "Undef"
vivify_359:
- set $S1558, $P1557
- find_lex $P1559, "%mods"
- unless_null $P1559, vivify_360
- $P1559 = root_new ['parrot';'Hash']
- store_lex "%mods", $P1559
+ set $S1559, $P1558
+ find_lex $P1560, "%mods"
+ unless_null $P1560, vivify_360
+ $P1560 = root_new ['parrot';'Hash']
+ store_lex "%mods", $P1560
vivify_360:
- set $P1559[$S1558], $P1554
+ set $P1560[$S1559], $P1555
.annotate 'line', 476
- find_lex $P1560, "$/"
- $P1561 = $P1560."!make"(0)
+ find_lex $P1561, "$/"
+ $P1562 = $P1561."!make"(0)
.annotate 'line', 472
- .return ($P1561)
- control_1535:
+ .return ($P1562)
+ control_1536:
.local pmc exception
.get_results (exception)
- getattribute $P1562, exception, "payload"
- .return ($P1562)
+ getattribute $P1563, exception, "payload"
+ .return ($P1563)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1567" :load :anon :subid("89_1274564778.23532")
+.sub "_block1568" :load :anon :subid("89_1275117600.18794")
.annotate 'line', 4
- .const 'Sub' $P1569 = "11_1274564778.23532"
- $P1570 = $P1569()
- .return ($P1570)
+ .const 'Sub' $P1570 = "11_1275117600.18794"
+ $P1571 = $P1570()
+ .return ($P1571)
.end
.namespace []
-.sub "_block1573" :load :anon :subid("90_1274564778.23532")
+.sub "_block1574" :load :anon :subid("90_1275117600.18794")
.annotate 'line', 1
- .const 'Sub' $P1575 = "10_1274564778.23532"
- $P1576 = $P1575()
- .return ($P1576)
+ .const 'Sub' $P1576 = "10_1275117600.18794"
+ $P1577 = $P1576()
+ .return ($P1577)
.end
# .include 'src/cheats/p6regex-grammar.pir'
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/Regex-s0.pir
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/Regex-s0.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/Regex-s0.pir Sat May 29 11:56:49 2010 (r47109)
@@ -149,16 +149,12 @@
unless cstack_it goto cstack_done
.local pmc subcur, submatch, names
subcur = shift cstack_it
+ $I0 = isa subcur, ['Regex';'Cursor']
+ unless $I0 goto cstack_loop
# If the subcursor isn't bound with a name, skip it
names = getattribute subcur, '$!names'
if null names goto cstack_loop
- $I0 = isa subcur, ['Regex';'Cursor']
- unless $I0 goto cstack_1
submatch = subcur.'MATCH'()
- goto cstack_2
- cstack_1:
- submatch = subcur
- cstack_2:
# See if we have multiple binds
.local pmc names_it
subname = names
@@ -433,13 +429,15 @@
orig = getattribute self, '$!target'
line = orig.'lineof'(from)
inc line
- printerr from
- printerr '/'
- printerr line
- printerr ': '
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ print $P1, from
+ print $P1, '/'
+ print $P1, line
+ print $P1, ': '
$S0 = join '', args
- printerr $S0
- printerr "\n"
+ print $P1, $S0
+ print $P1, "\n"
done:
.return (self)
.end
@@ -719,82 +717,128 @@
.return (cur)
.end
-=item !process_pastnode_results_for_interpolation
-Used by the pastnode PAST::Regex type to prepare the results of the evaluation for interpolation.
+=item !INTERPOLATE(var [, convert])
-Takes two arguments:
+Perform regex interpolation on C<var>. If C<var> is a
+regex (sub), it is used directly, otherwise it is used
+for a string literal match. If C<var> is an array,
+then all of the elements of C<var> are considered,
+and the longest match is returned.
-=over 4
+=cut
+
+.sub '!INTERPOLATE' :method
+ .param pmc var
-=item The node results
+ .local pmc cur
+ .local int pos, eos
+ .local string tgt
-=item The subtype of the PAST::Regex node, which is one of:
+ $I0 = does var, 'array'
+ if $I0 goto var_array
-=over 4
+ var_scalar:
+ $I0 = does var, 'invokable'
+ if $I0 goto var_sub
-=item interp_regex
+ var_string:
+ (cur, pos, tgt) = self.'!cursor_start'()
+ eos = length tgt
+ $S0 = var
+ $I0 = length $S0
+ $I1 = pos + $I0
+ if $I1 > eos goto string_fail
+ $S1 = substr tgt, pos, $I0
+ if $S0 != $S1 goto string_fail
+ pos += $I0
+ string_pass:
+ cur.'!cursor_pass'(pos, '')
+ string_fail:
+ .return (cur)
-String values should be compiled into regexes and then interpolated.
+ var_sub:
+ cur = var(self)
+ .return (cur)
-=item interp_literal
+ var_array:
+ (cur, pos, tgt) = self.'!cursor_start'()
+ eos = length tgt
+ .local pmc var_it, elem
+ .local int maxlen
+ var_it = iter var
+ maxlen = -1
+ array_loop:
+ unless var_it goto array_done
+ elem = shift var_it
+ $I0 = does elem, 'invokable'
+ if $I0 goto array_sub
+ array_string:
+ $S0 = elem
+ $I0 = length $S0
+ if $I0 <= maxlen goto array_loop
+ $I1 = pos + $I0
+ if $I1 > eos goto array_loop
+ $S1 = substr tgt, pos, $I0
+ if $S0 != $S1 goto array_loop
+ maxlen = $I0
+ goto array_loop
+ array_sub:
+ $P0 = elem(self)
+ unless $P0 goto array_loop
+ $I0 = $P0.'pos'()
+ $I0 -= pos
+ if $I0 <= maxlen goto array_loop
+ maxlen = $I0
+ goto array_loop
+ array_done:
+ if maxlen < 0 goto array_fail
+ $I0 = pos + maxlen
+ cur.'!cursor_pass'($I0, '')
+ array_fail:
+ .return (cur)
+.end
-String values should be treated as literals.
-=item interp_literal_i
+=item !INTERPOLATE_REGEX(var)
-String values should be treated as literals and matched case-insensitively.
+Same as C<!INTERPOLATE> above, except that any non-regex values
+are first compiled to regexes prior to being matched.
-=back
+=cut
-=back
+.sub '!INTERPOLATE_REGEX' :method
+ .param pmc var
-Returns a RPA containing the elements to be interpolated
+ $I0 = does var, 'invokable'
+ if $I0 goto done
-=cut
+ .local pmc p6regex
+ p6regex = compreg 'Regex::P6Regex'
-.sub '!process_pastnode_results_for_interpolation' :method
- .param pmc node
- .param string subtype
+ $I0 = does var, 'array'
+ if $I0 goto var_array
+ var = p6regex.'compile'(var)
+ goto done
- .local pmc it, result, compiler, context
- .local string codestr
+ var_array:
+ .local pmc var_it, elem
+ var_it = iter var
+ var = new ['ResizablePMCArray']
+ var_loop:
+ unless var_it goto done
+ elem = shift var_it
+ $I0 = does elem, 'invokable'
+ if $I0 goto var_next
+ elem = p6regex.'compile'(elem)
+ var_next:
+ push var, elem
+ goto var_loop
- result = new ['ResizablePMCArray']
- $S0 = typeof node
- if $S0 == 'ResizablePMCArray' goto array
- $P1 = node
- it = box 0
- goto not_array
- array:
- it = iter node
- loop:
- unless it, loop_done
- $P1 = shift it
- not_array:
- if subtype != 'interp_regex' goto literal
- # Don't need to compile it if it's already a Sub
- $I0 = isa $P1, ['Sub']
- if $I0 goto literal
- codestr = $P1
- $P1 = split '/', codestr
- codestr = join '\\/', $P1
- codestr = concat '/', codestr
- codestr = concat codestr, '/'
- compiler = compreg 'NQP-rx'
- $P2 = getinterp
- context = $P2['context';0]
- $P2 = compiler.'compile'(codestr, 'outer_ctx'=>context)
- $P1 = $P2[0]
- $P2 = getattribute context, 'current_sub'
- $P1.'set_outer'($P2)
- $P1 = $P1()
- literal:
- push result, $P1
- goto loop
- loop_done:
- .return (result)
+ done:
+ .tailcall self.'!INTERPOLATE'(var)
.end
+
=back
@@ -3048,127 +3092,32 @@
=item 'pastnode'(PAST::Regex node)
-Evaluates the supplied PAST node and does various things with the result, based on subtype.
-
-Subtype can be any of:
-
-=over 4
-
-=item zerowidth
-
-Only test for truthiness and fail or not. No interpolation.
-
-=item interp_regex
-
-String values should be compiled into regexes and then interpolated.
-
-=item interp_literal
-
-String values should be treated as literals.
-
-=item interp_literal_i
-
-String values should be treated as literals and matched case-insensitively.
-
-=item <nothing>
-
-Don't interpolate anything, just execute the PAST code
-
-=back
-
=cut
-.sub 'pastnode' :method :multi(_, ['PAST'; 'Regex'])
+.sub 'pastnode' :method :multi(_, ['PAST';'Regex'])
.param pmc node
- .local pmc cur, pos, fail, ops, eos, off, tgt
- (cur, pos, eos, off, tgt, fail) = self.'!rxregs'('cur pos eos off tgt fail')
+ .local pmc cur, pos, fail, ops
+ (cur, pos, fail) = self.'!rxregs'('cur pos fail')
ops = self.'post_new'('Ops', 'node'=>node, 'result'=>cur)
-
- .local pmc zerowidth, negate, testop, subtype
- subtype = node.'subtype'()
- ops.'push_pirop'('inline', subtype, negate, 'inline'=>' # rx pastnode subtype=%1 negate=%2')
.local pmc cpast, cpost
cpast = node[0]
cpost = self.'as_post'(cpast, 'rtype'=>'P')
-
+
self.'!cursorop'(ops, '!cursor_pos', 0, pos)
ops.'push'(cpost)
- # If this is just a zerowidth assertion, we don't actually interpolate anything. Just evaluate
- # and fail or not.
- if subtype == 'zerowidth' goto zerowidth_test
-
- # Retain backwards compatibility with old pastnode semantics
- unless subtype goto done
-
- .local string prefix
- prefix = self.'unique'('pastnode_')
- .local pmc precompiled_label, done_label, loop_label, iterator_reg, label_reg
- $S0 = concat prefix, '_precompiled'
- precompiled_label = self.'post_new'('Label', 'result'=>$S0)
- $S0 = concat prefix, '_done'
- done_label = self.'post_new'('Label', 'result'=>$S0)
- $S0 = concat prefix, '_loop'
- loop_label = self.'post_new'('Label', 'result'=>$S0)
- iterator_reg = self.'uniquereg'("P")
- label_reg = self.'uniquereg'("I")
-
- $S10 = subtype
- $S10 = concat '"', $S10
- $S10 = concat $S10, '"'
- self.'!cursorop'(ops, '!process_pastnode_results_for_interpolation', 1, '$P10', cpost, $S10)
-
- ops.'push_pirop'('iter', iterator_reg, '$P10')
- ops.'push_pirop'('set_addr', label_reg, loop_label)
- ops.'push'(loop_label)
- ops.'push_pirop'('unless', iterator_reg, fail)
- ops.'push_pirop'('shift', '$P10', iterator_reg)
- self.'!cursorop'(ops, '!mark_push', 0, 0, pos, label_reg)
-
- # Check if it's already a compiled Regex, and call it as a method if so
- ops.'push_pirop'('isa', '$I10', '$P10', "['Sub']")
- ops.'push_pirop'('if', '$I10', precompiled_label)
-
- # XXX This is rakudo's Regex class. I'm not sure why the above test doesn't catch it, but
- # need to figure it out so NQP doesn't have rakudo knowledge :(
- ops.'push_pirop'('isa', '$I10', '$P10', "['Regex']")
- ops.'push_pirop'('if', '$I10', precompiled_label)
-
- # Otherwise, treat it as a literal
- ops.'push_pirop'('set', '$S10', '$P10')
- ops.'push_pirop'('length', '$I10', '$S10')
- ops.'push_pirop'('add', '$I11', pos, '$I10')
- ops.'push_pirop'('gt', '$I11', eos, fail)
- ops.'push_pirop'('sub', '$I11', pos, off)
- ops.'push_pirop'('substr', '$S11', tgt, '$I11', '$I10')
- ne subtype, 'interp_literal_i', dont_downcase
- ops.'push_pirop'('downcase', '$S10', '$S10')
- ops.'push_pirop'('downcase', '$S11', '$S11')
- dont_downcase:
- ops.'push_pirop'('ne', '$S11', '$S10', fail)
- ops.'push_pirop'('add', pos, '$I10')
- ops.'push_pirop'('goto', done_label)
-
- ops.'push'(precompiled_label)
- ops.'push_pirop'('callmethod', '$P10', cur, 'result'=>'$P10')
- ops.'push_pirop'('unless', '$P10', fail)
- self.'!cursorop'(ops, '!mark_push', 0, 0, CURSOR_FAIL, 0, '$P10')
- ops.'push_pirop'('callmethod', '"pos"', '$P10', 'result'=>pos)
-
- ops.'push'(done_label)
-
- goto done
-
- zerowidth_test:
+ .local pmc subtype, negate, testop
+ subtype = node.'subtype'()
+ if subtype != 'zerowidth' goto done
negate = node.'negate'()
testop = self.'??!!'(negate, 'if', 'unless')
ops.'push_pirop'(testop, cpost, fail)
done:
.return (ops)
-
.end
+
=item pass(PAST::Regex node)
=cut
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp Sat May 29 11:56:49 2010 (r47109)
@@ -182,10 +182,12 @@
my $result := pir::new__Ps('StringBuilder');
for @matches -> $match {
- pir::push($result, pir::substr($text, $offset, $match.from - $offset))
- if $match.from > $offset;
- pir::push($result, $is_code ?? $repl($match) !! $repl);
- $offset := $match.to;
+ if $match {
+ pir::push($result, pir::substr($text, $offset, $match.from - $offset))
+ if $match.from > $offset;
+ pir::push($result, $is_code ?? $repl($match) !! $repl);
+ $offset := $match.to;
+ }
}
my $chars := pir::length($text);
@@ -211,9 +213,10 @@
=end
our sub slurp ($filename) {
- my $handle := pir::open__Pss($file, 'r');
+ my $handle := FileHandle.new;
+ $handle.open($file, 'r');
my $contents := $handle.readall;
- pir::close($handle);
+ $handle.close();
$contents;
}
@@ -223,9 +226,10 @@
=end item
our sub spew($filename, $contents) {
- my $handle := pir::open__Pss($filename, 'w');
+ my $handle := FileHandle.new();
+ $handle.open($filename, 'w');
$handle.print($contents);
- pir::close($handle);
+ $handle.close();
}
# vim: ft=perl6
Modified: branches/gsoc_instrument/include/parrot/debugger.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/debugger.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/debugger.h Sat May 29 11:56:49 2010 (r47109)
@@ -205,11 +205,20 @@
__attribute__nonnull__(1);
PARROT_EXPORT
+void PDB_backtrace(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+PARROT_EXPORT
void PDB_load_source(PARROT_INTERP, ARGIN(const char *command))
__attribute__nonnull__(1)
__attribute__nonnull__(2);
PARROT_EXPORT
+void PDB_print(PARROT_INTERP, ARGIN(const char *command))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_EXPORT
void PDB_script_file(PARROT_INTERP, ARGIN(const char *command))
__attribute__nonnull__(1)
__attribute__nonnull__(2);
@@ -227,9 +236,6 @@
__attribute__nonnull__(1)
__attribute__nonnull__(2);
-void PDB_backtrace(PARROT_INTERP)
- __attribute__nonnull__(1);
-
PARROT_WARN_UNUSED_RESULT
char PDB_break(PARROT_INTERP)
__attribute__nonnull__(1);
@@ -330,10 +336,6 @@
void PDB_next(PARROT_INTERP, ARGIN_NULLOK(const char *command))
__attribute__nonnull__(1);
-void PDB_print(PARROT_INTERP, ARGIN(const char *command))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
char PDB_program_end(PARROT_INTERP)
__attribute__nonnull__(1);
@@ -372,9 +374,14 @@
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_Parrot_debugger_start __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
+#define ASSERT_ARGS_PDB_backtrace __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_PDB_load_source __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(command))
+#define ASSERT_ARGS_PDB_print __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(command))
#define ASSERT_ARGS_PDB_script_file __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(command))
@@ -385,8 +392,6 @@
#define ASSERT_ARGS_PDB_assign __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(command))
-#define ASSERT_ARGS_PDB_backtrace __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_PDB_break __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_PDB_check_condition __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
@@ -443,9 +448,6 @@
, PARROT_ASSERT_ARG(command))
#define ASSERT_ARGS_PDB_next __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
-#define ASSERT_ARGS_PDB_print __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(command))
#define ASSERT_ARGS_PDB_program_end __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_PDB_run_command __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
Modified: branches/gsoc_instrument/include/parrot/encoding.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/encoding.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/encoding.h Sat May 29 11:56:49 2010 (r47109)
@@ -56,6 +56,7 @@
PARROT_DATA ENCODING *Parrot_utf8_encoding_ptr;
PARROT_DATA ENCODING *Parrot_utf16_encoding_ptr;
PARROT_DATA ENCODING *Parrot_ucs2_encoding_ptr;
+PARROT_DATA ENCODING *Parrot_ucs4_encoding_ptr;
PARROT_DATA ENCODING *Parrot_default_encoding_ptr;
#endif
Modified: branches/gsoc_instrument/include/parrot/interpreter.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/interpreter.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/interpreter.h Sat May 29 11:56:49 2010 (r47109)
@@ -522,15 +522,6 @@
__attribute__nonnull__(3)
__attribute__nonnull__(4);
-PARROT_WARN_UNUSED_RESULT
-PARROT_CONST_FUNCTION
-INTVAL sysinfo_i(SHIM_INTERP, INTVAL info_wanted);
-
-PARROT_CANNOT_RETURN_NULL
-PARROT_WARN_UNUSED_RESULT
-STRING * sysinfo_s(PARROT_INTERP, INTVAL info_wanted)
- __attribute__nonnull__(1);
-
#define ASSERT_ARGS_interpinfo __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_interpinfo_p __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
@@ -557,9 +548,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(func) \
, PARROT_ASSERT_ARG(name))
-#define ASSERT_ARGS_sysinfo_i __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
-#define ASSERT_ARGS_sysinfo_s __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp))
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: src/interp/inter_misc.c */
Modified: branches/gsoc_instrument/include/parrot/io.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/io.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/io.h Sat May 29 11:56:49 2010 (r47109)
@@ -222,6 +222,10 @@
PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
+PIOOFF_T Parrot_io_make_offset32(INTVAL hi, INTVAL lo);
+
+PARROT_EXPORT
+PARROT_WARN_UNUSED_RESULT
PARROT_CANNOT_RETURN_NULL
PMC * Parrot_io_new_pmc(PARROT_INTERP, INTVAL flags)
__attribute__nonnull__(1);
@@ -342,9 +346,6 @@
FUNC_MODIFIES(*pmc);
PARROT_WARN_UNUSED_RESULT
-PIOOFF_T Parrot_io_make_offset32(INTVAL hi, INTVAL lo);
-
-PARROT_WARN_UNUSED_RESULT
PIOOFF_T Parrot_io_make_offset_pmc(PARROT_INTERP, ARGMOD(PMC *pmc))
__attribute__nonnull__(1)
__attribute__nonnull__(2)
@@ -378,6 +379,7 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc))
#define ASSERT_ARGS_Parrot_io_make_offset __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
+#define ASSERT_ARGS_Parrot_io_make_offset32 __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_Parrot_io_new_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp))
#define ASSERT_ARGS_Parrot_io_open __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
@@ -420,7 +422,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc) \
, PARROT_ASSERT_ARG(buffer))
-#define ASSERT_ARGS_Parrot_io_make_offset32 __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_Parrot_io_make_offset_pmc __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(pmc))
Modified: branches/gsoc_instrument/include/parrot/misc.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/misc.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/misc.h Sat May 29 11:56:49 2010 (r47109)
@@ -83,6 +83,13 @@
PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+PMC* Parrot_tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_EXPORT
+PARROT_WARN_UNUSED_RESULT
INTVAL Parrot_uint_rand(INTVAL how_random);
PARROT_CONST_FUNCTION
@@ -102,12 +109,6 @@
__attribute__nonnull__(4)
FUNC_MODIFIES(*data);
-PARROT_WARN_UNUSED_RESULT
-PARROT_CANNOT_RETURN_NULL
-PMC* tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
#define ASSERT_ARGS_Parrot_byte_index __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(base) \
, PARROT_ASSERT_ARG(search))
@@ -123,6 +124,9 @@
, PARROT_ASSERT_ARG(src_regs) \
, PARROT_ASSERT_ARG(info))
#define ASSERT_ARGS_Parrot_srand __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
+#define ASSERT_ARGS_Parrot_tm_to_array __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(tm))
#define ASSERT_ARGS_Parrot_uint_rand __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_floatval_mod __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
#define ASSERT_ARGS_intval_mod __attribute__unused__ int _ASSERT_ARGS_CHECK = (0)
@@ -130,9 +134,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(data) \
, PARROT_ASSERT_ARG(cmp))
-#define ASSERT_ARGS_tm_to_array __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(tm))
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: src/utils.c */
Modified: branches/gsoc_instrument/include/parrot/oplib/core_ops.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/oplib/core_ops.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/oplib/core_ops.h Sat May 29 11:56:49 2010 (r47109)
@@ -140,108 +140,34 @@
opcode_t * Parrot_annotations_p_sc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_band_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_band_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_band_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_band_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_band_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_band_i_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_band_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_band_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_band_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_band_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_band_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_p_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_s_s_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_s_sc_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_s_s_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_p_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_p_p_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bands_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnot_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnot_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnot_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnot_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnots_s_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnots_s_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnots_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bnots_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bor_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bor_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bor_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bor_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bor_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bor_i_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bor_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bor_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bor_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bor_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bor_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_p_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_s_s_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_s_sc_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_s_s_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_p_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_p_p_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bors_p_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shl_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shl_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shl_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shl_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shl_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shl_i_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shl_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shl_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shl_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shl_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shl_p_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shr_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shr_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shr_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shr_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shr_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shr_i_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shr_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_shr_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shr_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shr_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_shr_p_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_lsr_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_lsr_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_lsr_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_lsr_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_lsr_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_lsr_i_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_lsr_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_lsr_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_lsr_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_lsr_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_lsr_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_rot_i_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_rot_i_ic_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_rot_i_i_ic_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bxor_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bxor_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxor_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxor_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxor_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bxor_i_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bxor_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_bxor_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxor_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxor_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxor_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_p_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_s_s_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_s_sc_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_s_s_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_p_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_p_p_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_bxors_p_p_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_eq_i_i_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_eq_ic_i_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_eq_i_ic_ic(opcode_t *, PARROT_INTERP);
@@ -439,30 +365,6 @@
opcode_t * Parrot_xor_i_ic_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_xor_i_i_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_xor_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_debug_init(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_debug_load_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_debug_break(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_debug_print(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_backtrace(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_getline_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_getfile_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_close_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_fdopen_p_i_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_fdopen_p_ic_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_fdopen_p_i_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_fdopen_p_ic_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_getstdin_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_getstdout_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_getstderr_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_setstdin_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_setstdout_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_setstderr_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_open_p_s_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_open_p_sc_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_open_p_s_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_open_p_sc_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_open_p_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_open_p_sc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_n(opcode_t *, PARROT_INTERP);
@@ -477,13 +379,6 @@
opcode_t * Parrot_say_s(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_say_sc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_say_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_nc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_printerr_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_p_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_p_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_p_n(opcode_t *, PARROT_INTERP);
@@ -491,35 +386,6 @@
opcode_t * Parrot_print_p_s(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_p_sc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_print_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_read_s_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_read_s_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_read_s_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_read_s_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_readline_s_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_peek_s(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_peek_s_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_s_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_sc_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_s_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_sc_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_ic_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_stat_i_ic_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_ic_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_ic_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_i_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_ic_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_i_ic_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_ic_ic_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_ic_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_i_ic_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_seek_p_ic_ic_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_tell_i_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_tell_i_i_p(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_abs_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_abs_n(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_abs_i_i(opcode_t *, PARROT_INTERP);
@@ -546,17 +412,6 @@
opcode_t * Parrot_add_p_p_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_add_p_p_n(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_add_p_p_nc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_i_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_i_ic_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_i_i_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_n_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_n_nc_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_n_n_nc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_p_p_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cmod_p_p_nc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_dec_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_dec_n(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_dec_p(opcode_t *, PARROT_INTERP);
@@ -657,18 +512,6 @@
opcode_t * Parrot_neg_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_neg_n_n(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_neg_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_nc_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_n_nc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_p_p_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_p_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_p_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_p_p_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_p_p_nc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_n_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_nc_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_n_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_pow_n_nc_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sub_i_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sub_i_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sub_n_n(opcode_t *, PARROT_INTERP);
@@ -690,25 +533,6 @@
opcode_t * Parrot_sub_p_p_n(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sub_p_p_nc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sqrt_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_acos_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_asec_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_asin_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_atan_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_atan_n_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_atan_n_nc_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_atan_n_n_nc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cos_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_cosh_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_exp_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_ln_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_log10_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_log2_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sec_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sech_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sin_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sinh_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_tan_n_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_tanh_n_n(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_callmethodcc_p_s(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_callmethodcc_p_sc(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_callmethodcc_p_p(opcode_t *, PARROT_INTERP);
@@ -1147,18 +971,6 @@
opcode_t * Parrot_err_s_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_time_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_time_n(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_gmtime_s_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_gmtime_s_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_localtime_s_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_localtime_s_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_decodetime_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_decodetime_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_decodelocaltime_p_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_decodelocaltime_p_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sysinfo_s_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sysinfo_s_ic(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sysinfo_i_i(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_sysinfo_i_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sleep_i(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sleep_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_sleep_n(opcode_t *, PARROT_INTERP);
@@ -1287,8 +1099,8 @@
opcode_t * Parrot_root_new_p_pc_ic(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_find_codepoint_i_s(opcode_t *, PARROT_INTERP);
opcode_t * Parrot_find_codepoint_i_sc(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_unroll_p(opcode_t *, PARROT_INTERP);
- opcode_t * Parrot_unroll_pc(opcode_t *, PARROT_INTERP);
+ opcode_t * Parrot_finalize_p(opcode_t *, PARROT_INTERP);
+ opcode_t * Parrot_finalize_pc(opcode_t *, PARROT_INTERP);
#endif /* PARROT_OPLIB_CORE_OPS_H_GUARD */
Modified: branches/gsoc_instrument/include/parrot/oplib/ops.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/oplib/ops.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/oplib/ops.h Sat May 29 11:56:49 2010 (r47109)
@@ -135,1155 +135,967 @@
PARROT_OP_annotations_p_sc, /* 116 */
PARROT_OP_band_i_i, /* 117 */
PARROT_OP_band_i_ic, /* 118 */
- PARROT_OP_band_p_i, /* 119 */
- PARROT_OP_band_p_ic, /* 120 */
- PARROT_OP_band_p_p, /* 121 */
- PARROT_OP_band_i_i_i, /* 122 */
- PARROT_OP_band_i_ic_i, /* 123 */
- PARROT_OP_band_i_i_ic, /* 124 */
- PARROT_OP_band_p_p_i, /* 125 */
- PARROT_OP_band_p_p_ic, /* 126 */
- PARROT_OP_band_p_p_p, /* 127 */
- PARROT_OP_bands_p_s, /* 128 */
- PARROT_OP_bands_p_sc, /* 129 */
- PARROT_OP_bands_p_p, /* 130 */
- PARROT_OP_bands_s_s_s, /* 131 */
- PARROT_OP_bands_s_sc_s, /* 132 */
- PARROT_OP_bands_s_s_sc, /* 133 */
- PARROT_OP_bands_p_p_s, /* 134 */
- PARROT_OP_bands_p_p_sc, /* 135 */
- PARROT_OP_bands_p_p_p, /* 136 */
- PARROT_OP_bnot_i, /* 137 */
- PARROT_OP_bnot_i_i, /* 138 */
- PARROT_OP_bnot_p, /* 139 */
- PARROT_OP_bnot_p_p, /* 140 */
- PARROT_OP_bnots_s_s, /* 141 */
- PARROT_OP_bnots_s_sc, /* 142 */
- PARROT_OP_bnots_p, /* 143 */
- PARROT_OP_bnots_p_p, /* 144 */
- PARROT_OP_bor_i_i, /* 145 */
- PARROT_OP_bor_i_ic, /* 146 */
- PARROT_OP_bor_p_i, /* 147 */
- PARROT_OP_bor_p_ic, /* 148 */
- PARROT_OP_bor_p_p, /* 149 */
- PARROT_OP_bor_i_i_i, /* 150 */
- PARROT_OP_bor_i_ic_i, /* 151 */
- PARROT_OP_bor_i_i_ic, /* 152 */
- PARROT_OP_bor_p_p_i, /* 153 */
- PARROT_OP_bor_p_p_ic, /* 154 */
- PARROT_OP_bor_p_p_p, /* 155 */
- PARROT_OP_bors_p_s, /* 156 */
- PARROT_OP_bors_p_sc, /* 157 */
- PARROT_OP_bors_p_p, /* 158 */
- PARROT_OP_bors_s_s_s, /* 159 */
- PARROT_OP_bors_s_sc_s, /* 160 */
- PARROT_OP_bors_s_s_sc, /* 161 */
- PARROT_OP_bors_p_p_s, /* 162 */
- PARROT_OP_bors_p_p_sc, /* 163 */
- PARROT_OP_bors_p_p_p, /* 164 */
- PARROT_OP_shl_i_i, /* 165 */
- PARROT_OP_shl_i_ic, /* 166 */
- PARROT_OP_shl_p_i, /* 167 */
- PARROT_OP_shl_p_ic, /* 168 */
- PARROT_OP_shl_p_p, /* 169 */
- PARROT_OP_shl_i_i_i, /* 170 */
- PARROT_OP_shl_i_ic_i, /* 171 */
- PARROT_OP_shl_i_i_ic, /* 172 */
- PARROT_OP_shl_p_p_i, /* 173 */
- PARROT_OP_shl_p_p_ic, /* 174 */
- PARROT_OP_shl_p_p_p, /* 175 */
- PARROT_OP_shr_i_i, /* 176 */
- PARROT_OP_shr_i_ic, /* 177 */
- PARROT_OP_shr_p_i, /* 178 */
- PARROT_OP_shr_p_ic, /* 179 */
- PARROT_OP_shr_p_p, /* 180 */
- PARROT_OP_shr_i_i_i, /* 181 */
- PARROT_OP_shr_i_ic_i, /* 182 */
- PARROT_OP_shr_i_i_ic, /* 183 */
- PARROT_OP_shr_p_p_i, /* 184 */
- PARROT_OP_shr_p_p_ic, /* 185 */
- PARROT_OP_shr_p_p_p, /* 186 */
- PARROT_OP_lsr_i_i, /* 187 */
- PARROT_OP_lsr_i_ic, /* 188 */
- PARROT_OP_lsr_p_i, /* 189 */
- PARROT_OP_lsr_p_ic, /* 190 */
- PARROT_OP_lsr_p_p, /* 191 */
- PARROT_OP_lsr_i_i_i, /* 192 */
- PARROT_OP_lsr_i_ic_i, /* 193 */
- PARROT_OP_lsr_i_i_ic, /* 194 */
- PARROT_OP_lsr_p_p_i, /* 195 */
- PARROT_OP_lsr_p_p_ic, /* 196 */
- PARROT_OP_lsr_p_p_p, /* 197 */
- PARROT_OP_rot_i_i_i_ic, /* 198 */
- PARROT_OP_rot_i_ic_i_ic, /* 199 */
- PARROT_OP_rot_i_i_ic_ic, /* 200 */
- PARROT_OP_bxor_i_i, /* 201 */
- PARROT_OP_bxor_i_ic, /* 202 */
- PARROT_OP_bxor_p_i, /* 203 */
- PARROT_OP_bxor_p_ic, /* 204 */
- PARROT_OP_bxor_p_p, /* 205 */
- PARROT_OP_bxor_i_i_i, /* 206 */
- PARROT_OP_bxor_i_ic_i, /* 207 */
- PARROT_OP_bxor_i_i_ic, /* 208 */
- PARROT_OP_bxor_p_p_i, /* 209 */
- PARROT_OP_bxor_p_p_ic, /* 210 */
- PARROT_OP_bxor_p_p_p, /* 211 */
- PARROT_OP_bxors_p_s, /* 212 */
- PARROT_OP_bxors_p_sc, /* 213 */
- PARROT_OP_bxors_p_p, /* 214 */
- PARROT_OP_bxors_s_s_s, /* 215 */
- PARROT_OP_bxors_s_sc_s, /* 216 */
- PARROT_OP_bxors_s_s_sc, /* 217 */
- PARROT_OP_bxors_p_p_s, /* 218 */
- PARROT_OP_bxors_p_p_sc, /* 219 */
- PARROT_OP_bxors_p_p_p, /* 220 */
- PARROT_OP_eq_i_i_ic, /* 221 */
- PARROT_OP_eq_ic_i_ic, /* 222 */
- PARROT_OP_eq_i_ic_ic, /* 223 */
- PARROT_OP_eq_n_n_ic, /* 224 */
- PARROT_OP_eq_nc_n_ic, /* 225 */
- PARROT_OP_eq_n_nc_ic, /* 226 */
- PARROT_OP_eq_s_s_ic, /* 227 */
- PARROT_OP_eq_sc_s_ic, /* 228 */
- PARROT_OP_eq_s_sc_ic, /* 229 */
- PARROT_OP_eq_p_p_ic, /* 230 */
- PARROT_OP_eq_p_i_ic, /* 231 */
- PARROT_OP_eq_p_ic_ic, /* 232 */
- PARROT_OP_eq_p_n_ic, /* 233 */
- PARROT_OP_eq_p_nc_ic, /* 234 */
- PARROT_OP_eq_p_s_ic, /* 235 */
- PARROT_OP_eq_p_sc_ic, /* 236 */
- PARROT_OP_eq_str_p_p_ic, /* 237 */
- PARROT_OP_eq_num_p_p_ic, /* 238 */
- PARROT_OP_eq_addr_s_s_ic, /* 239 */
- PARROT_OP_eq_addr_sc_s_ic, /* 240 */
- PARROT_OP_eq_addr_s_sc_ic, /* 241 */
- PARROT_OP_eq_addr_sc_sc_ic, /* 242 */
- PARROT_OP_eq_addr_p_p_ic, /* 243 */
- PARROT_OP_ne_i_i_ic, /* 244 */
- PARROT_OP_ne_ic_i_ic, /* 245 */
- PARROT_OP_ne_i_ic_ic, /* 246 */
- PARROT_OP_ne_n_n_ic, /* 247 */
- PARROT_OP_ne_nc_n_ic, /* 248 */
- PARROT_OP_ne_n_nc_ic, /* 249 */
- PARROT_OP_ne_s_s_ic, /* 250 */
- PARROT_OP_ne_sc_s_ic, /* 251 */
- PARROT_OP_ne_s_sc_ic, /* 252 */
- PARROT_OP_ne_p_p_ic, /* 253 */
- PARROT_OP_ne_p_i_ic, /* 254 */
- PARROT_OP_ne_p_ic_ic, /* 255 */
- PARROT_OP_ne_p_n_ic, /* 256 */
- PARROT_OP_ne_p_nc_ic, /* 257 */
- PARROT_OP_ne_p_s_ic, /* 258 */
- PARROT_OP_ne_p_sc_ic, /* 259 */
- PARROT_OP_ne_str_p_p_ic, /* 260 */
- PARROT_OP_ne_num_p_p_ic, /* 261 */
- PARROT_OP_ne_addr_s_s_ic, /* 262 */
- PARROT_OP_ne_addr_sc_s_ic, /* 263 */
- PARROT_OP_ne_addr_s_sc_ic, /* 264 */
- PARROT_OP_ne_addr_sc_sc_ic, /* 265 */
- PARROT_OP_ne_addr_p_p_ic, /* 266 */
- PARROT_OP_lt_i_i_ic, /* 267 */
- PARROT_OP_lt_ic_i_ic, /* 268 */
- PARROT_OP_lt_i_ic_ic, /* 269 */
- PARROT_OP_lt_n_n_ic, /* 270 */
- PARROT_OP_lt_nc_n_ic, /* 271 */
- PARROT_OP_lt_n_nc_ic, /* 272 */
- PARROT_OP_lt_s_s_ic, /* 273 */
- PARROT_OP_lt_sc_s_ic, /* 274 */
- PARROT_OP_lt_s_sc_ic, /* 275 */
- PARROT_OP_lt_p_p_ic, /* 276 */
- PARROT_OP_lt_p_i_ic, /* 277 */
- PARROT_OP_lt_p_ic_ic, /* 278 */
- PARROT_OP_lt_p_n_ic, /* 279 */
- PARROT_OP_lt_p_nc_ic, /* 280 */
- PARROT_OP_lt_p_s_ic, /* 281 */
- PARROT_OP_lt_p_sc_ic, /* 282 */
- PARROT_OP_lt_str_p_p_ic, /* 283 */
- PARROT_OP_lt_num_p_p_ic, /* 284 */
- PARROT_OP_le_i_i_ic, /* 285 */
- PARROT_OP_le_ic_i_ic, /* 286 */
- PARROT_OP_le_i_ic_ic, /* 287 */
- PARROT_OP_le_n_n_ic, /* 288 */
- PARROT_OP_le_nc_n_ic, /* 289 */
- PARROT_OP_le_n_nc_ic, /* 290 */
- PARROT_OP_le_s_s_ic, /* 291 */
- PARROT_OP_le_sc_s_ic, /* 292 */
- PARROT_OP_le_s_sc_ic, /* 293 */
- PARROT_OP_le_p_p_ic, /* 294 */
- PARROT_OP_le_p_i_ic, /* 295 */
- PARROT_OP_le_p_ic_ic, /* 296 */
- PARROT_OP_le_p_n_ic, /* 297 */
- PARROT_OP_le_p_nc_ic, /* 298 */
- PARROT_OP_le_p_s_ic, /* 299 */
- PARROT_OP_le_p_sc_ic, /* 300 */
- PARROT_OP_le_str_p_p_ic, /* 301 */
- PARROT_OP_le_num_p_p_ic, /* 302 */
- PARROT_OP_gt_p_p_ic, /* 303 */
- PARROT_OP_gt_p_i_ic, /* 304 */
- PARROT_OP_gt_p_ic_ic, /* 305 */
- PARROT_OP_gt_p_n_ic, /* 306 */
- PARROT_OP_gt_p_nc_ic, /* 307 */
- PARROT_OP_gt_p_s_ic, /* 308 */
- PARROT_OP_gt_p_sc_ic, /* 309 */
- PARROT_OP_gt_str_p_p_ic, /* 310 */
- PARROT_OP_gt_num_p_p_ic, /* 311 */
- PARROT_OP_ge_p_p_ic, /* 312 */
- PARROT_OP_ge_p_i_ic, /* 313 */
- PARROT_OP_ge_p_ic_ic, /* 314 */
- PARROT_OP_ge_p_n_ic, /* 315 */
- PARROT_OP_ge_p_nc_ic, /* 316 */
- PARROT_OP_ge_p_s_ic, /* 317 */
- PARROT_OP_ge_p_sc_ic, /* 318 */
- PARROT_OP_ge_str_p_p_ic, /* 319 */
- PARROT_OP_ge_num_p_p_ic, /* 320 */
- PARROT_OP_if_null_p_ic, /* 321 */
- PARROT_OP_if_null_s_ic, /* 322 */
- PARROT_OP_unless_null_p_ic, /* 323 */
- PARROT_OP_unless_null_s_ic, /* 324 */
- PARROT_OP_cmp_i_i_i, /* 325 */
- PARROT_OP_cmp_i_ic_i, /* 326 */
- PARROT_OP_cmp_i_i_ic, /* 327 */
- PARROT_OP_cmp_i_n_n, /* 328 */
- PARROT_OP_cmp_i_nc_n, /* 329 */
- PARROT_OP_cmp_i_n_nc, /* 330 */
- PARROT_OP_cmp_i_s_s, /* 331 */
- PARROT_OP_cmp_i_sc_s, /* 332 */
- PARROT_OP_cmp_i_s_sc, /* 333 */
- PARROT_OP_cmp_i_p_p, /* 334 */
- PARROT_OP_cmp_i_p_i, /* 335 */
- PARROT_OP_cmp_i_p_ic, /* 336 */
- PARROT_OP_cmp_i_p_n, /* 337 */
- PARROT_OP_cmp_i_p_nc, /* 338 */
- PARROT_OP_cmp_i_p_s, /* 339 */
- PARROT_OP_cmp_i_p_sc, /* 340 */
- PARROT_OP_cmp_str_i_p_p, /* 341 */
- PARROT_OP_cmp_num_i_p_p, /* 342 */
- PARROT_OP_cmp_pmc_p_p_p, /* 343 */
- PARROT_OP_issame_i_p_p, /* 344 */
- PARROT_OP_issame_i_s_s, /* 345 */
- PARROT_OP_issame_i_sc_s, /* 346 */
- PARROT_OP_issame_i_s_sc, /* 347 */
- PARROT_OP_issame_i_sc_sc, /* 348 */
- PARROT_OP_isntsame_i_p_p, /* 349 */
- PARROT_OP_isntsame_i_s_s, /* 350 */
- PARROT_OP_isntsame_i_sc_s, /* 351 */
- PARROT_OP_isntsame_i_s_sc, /* 352 */
- PARROT_OP_isntsame_i_sc_sc, /* 353 */
- PARROT_OP_istrue_i_p, /* 354 */
- PARROT_OP_isfalse_i_p, /* 355 */
- PARROT_OP_isnull_i_p, /* 356 */
- PARROT_OP_isnull_i_pc, /* 357 */
- PARROT_OP_isnull_i_s, /* 358 */
- PARROT_OP_isnull_i_sc, /* 359 */
- PARROT_OP_isgt_i_p_p, /* 360 */
- PARROT_OP_isge_i_p_p, /* 361 */
- PARROT_OP_isle_i_i_i, /* 362 */
- PARROT_OP_isle_i_ic_i, /* 363 */
- PARROT_OP_isle_i_i_ic, /* 364 */
- PARROT_OP_isle_i_n_n, /* 365 */
- PARROT_OP_isle_i_nc_n, /* 366 */
- PARROT_OP_isle_i_n_nc, /* 367 */
- PARROT_OP_isle_i_s_s, /* 368 */
- PARROT_OP_isle_i_sc_s, /* 369 */
- PARROT_OP_isle_i_s_sc, /* 370 */
- PARROT_OP_isle_i_p_p, /* 371 */
- PARROT_OP_islt_i_i_i, /* 372 */
- PARROT_OP_islt_i_ic_i, /* 373 */
- PARROT_OP_islt_i_i_ic, /* 374 */
- PARROT_OP_islt_i_n_n, /* 375 */
- PARROT_OP_islt_i_nc_n, /* 376 */
- PARROT_OP_islt_i_n_nc, /* 377 */
- PARROT_OP_islt_i_s_s, /* 378 */
- PARROT_OP_islt_i_sc_s, /* 379 */
- PARROT_OP_islt_i_s_sc, /* 380 */
- PARROT_OP_islt_i_p_p, /* 381 */
- PARROT_OP_iseq_i_i_i, /* 382 */
- PARROT_OP_iseq_i_ic_i, /* 383 */
- PARROT_OP_iseq_i_i_ic, /* 384 */
- PARROT_OP_iseq_i_n_n, /* 385 */
- PARROT_OP_iseq_i_nc_n, /* 386 */
- PARROT_OP_iseq_i_n_nc, /* 387 */
- PARROT_OP_iseq_i_s_s, /* 388 */
- PARROT_OP_iseq_i_sc_s, /* 389 */
- PARROT_OP_iseq_i_s_sc, /* 390 */
- PARROT_OP_iseq_i_p_p, /* 391 */
- PARROT_OP_isne_i_i_i, /* 392 */
- PARROT_OP_isne_i_ic_i, /* 393 */
- PARROT_OP_isne_i_i_ic, /* 394 */
- PARROT_OP_isne_i_n_n, /* 395 */
- PARROT_OP_isne_i_nc_n, /* 396 */
- PARROT_OP_isne_i_n_nc, /* 397 */
- PARROT_OP_isne_i_s_s, /* 398 */
- PARROT_OP_isne_i_sc_s, /* 399 */
- PARROT_OP_isne_i_s_sc, /* 400 */
- PARROT_OP_isne_i_p_p, /* 401 */
- PARROT_OP_and_i_i_i, /* 402 */
- PARROT_OP_and_i_ic_i, /* 403 */
- PARROT_OP_and_i_i_ic, /* 404 */
- PARROT_OP_and_p_p_p, /* 405 */
- PARROT_OP_not_i, /* 406 */
- PARROT_OP_not_i_i, /* 407 */
- PARROT_OP_not_p, /* 408 */
- PARROT_OP_not_p_p, /* 409 */
- PARROT_OP_or_i_i_i, /* 410 */
- PARROT_OP_or_i_ic_i, /* 411 */
- PARROT_OP_or_i_i_ic, /* 412 */
- PARROT_OP_or_p_p_p, /* 413 */
- PARROT_OP_xor_i_i_i, /* 414 */
- PARROT_OP_xor_i_ic_i, /* 415 */
- PARROT_OP_xor_i_i_ic, /* 416 */
- PARROT_OP_xor_p_p_p, /* 417 */
- PARROT_OP_debug_init, /* 418 */
- PARROT_OP_debug_load_sc, /* 419 */
- PARROT_OP_debug_break, /* 420 */
- PARROT_OP_debug_print, /* 421 */
- PARROT_OP_backtrace, /* 422 */
- PARROT_OP_getline_i, /* 423 */
- PARROT_OP_getfile_s, /* 424 */
- PARROT_OP_close_p, /* 425 */
- PARROT_OP_fdopen_p_i_s, /* 426 */
- PARROT_OP_fdopen_p_ic_s, /* 427 */
- PARROT_OP_fdopen_p_i_sc, /* 428 */
- PARROT_OP_fdopen_p_ic_sc, /* 429 */
- PARROT_OP_getstdin_p, /* 430 */
- PARROT_OP_getstdout_p, /* 431 */
- PARROT_OP_getstderr_p, /* 432 */
- PARROT_OP_setstdin_p, /* 433 */
- PARROT_OP_setstdout_p, /* 434 */
- PARROT_OP_setstderr_p, /* 435 */
- PARROT_OP_open_p_s_s, /* 436 */
- PARROT_OP_open_p_sc_s, /* 437 */
- PARROT_OP_open_p_s_sc, /* 438 */
- PARROT_OP_open_p_sc_sc, /* 439 */
- PARROT_OP_open_p_s, /* 440 */
- PARROT_OP_open_p_sc, /* 441 */
- PARROT_OP_print_i, /* 442 */
- PARROT_OP_print_ic, /* 443 */
- PARROT_OP_print_n, /* 444 */
- PARROT_OP_print_nc, /* 445 */
- PARROT_OP_print_s, /* 446 */
- PARROT_OP_print_sc, /* 447 */
- PARROT_OP_print_p, /* 448 */
- PARROT_OP_say_i, /* 449 */
- PARROT_OP_say_ic, /* 450 */
- PARROT_OP_say_n, /* 451 */
- PARROT_OP_say_nc, /* 452 */
- PARROT_OP_say_s, /* 453 */
- PARROT_OP_say_sc, /* 454 */
- PARROT_OP_say_p, /* 455 */
- PARROT_OP_printerr_i, /* 456 */
- PARROT_OP_printerr_ic, /* 457 */
- PARROT_OP_printerr_n, /* 458 */
- PARROT_OP_printerr_nc, /* 459 */
- PARROT_OP_printerr_s, /* 460 */
- PARROT_OP_printerr_sc, /* 461 */
- PARROT_OP_printerr_p, /* 462 */
- PARROT_OP_print_p_i, /* 463 */
- PARROT_OP_print_p_ic, /* 464 */
- PARROT_OP_print_p_n, /* 465 */
- PARROT_OP_print_p_nc, /* 466 */
- PARROT_OP_print_p_s, /* 467 */
- PARROT_OP_print_p_sc, /* 468 */
- PARROT_OP_print_p_p, /* 469 */
- PARROT_OP_read_s_i, /* 470 */
- PARROT_OP_read_s_ic, /* 471 */
- PARROT_OP_read_s_p_i, /* 472 */
- PARROT_OP_read_s_p_ic, /* 473 */
- PARROT_OP_readline_s_p, /* 474 */
- PARROT_OP_peek_s, /* 475 */
- PARROT_OP_peek_s_p, /* 476 */
- PARROT_OP_stat_i_s_i, /* 477 */
- PARROT_OP_stat_i_sc_i, /* 478 */
- PARROT_OP_stat_i_s_ic, /* 479 */
- PARROT_OP_stat_i_sc_ic, /* 480 */
- PARROT_OP_stat_i_i_i, /* 481 */
- PARROT_OP_stat_i_ic_i, /* 482 */
- PARROT_OP_stat_i_i_ic, /* 483 */
- PARROT_OP_stat_i_ic_ic, /* 484 */
- PARROT_OP_seek_p_i_i, /* 485 */
- PARROT_OP_seek_p_ic_i, /* 486 */
- PARROT_OP_seek_p_i_ic, /* 487 */
- PARROT_OP_seek_p_ic_ic, /* 488 */
- PARROT_OP_seek_p_i_i_i, /* 489 */
- PARROT_OP_seek_p_ic_i_i, /* 490 */
- PARROT_OP_seek_p_i_ic_i, /* 491 */
- PARROT_OP_seek_p_ic_ic_i, /* 492 */
- PARROT_OP_seek_p_i_i_ic, /* 493 */
- PARROT_OP_seek_p_ic_i_ic, /* 494 */
- PARROT_OP_seek_p_i_ic_ic, /* 495 */
- PARROT_OP_seek_p_ic_ic_ic, /* 496 */
- PARROT_OP_tell_i_p, /* 497 */
- PARROT_OP_tell_i_i_p, /* 498 */
- PARROT_OP_abs_i, /* 499 */
- PARROT_OP_abs_n, /* 500 */
- PARROT_OP_abs_i_i, /* 501 */
- PARROT_OP_abs_n_n, /* 502 */
- PARROT_OP_abs_p, /* 503 */
- PARROT_OP_abs_p_p, /* 504 */
- PARROT_OP_add_i_i, /* 505 */
- PARROT_OP_add_i_ic, /* 506 */
- PARROT_OP_add_n_n, /* 507 */
- PARROT_OP_add_n_nc, /* 508 */
- PARROT_OP_add_p_p, /* 509 */
- PARROT_OP_add_p_i, /* 510 */
- PARROT_OP_add_p_ic, /* 511 */
- PARROT_OP_add_p_n, /* 512 */
- PARROT_OP_add_p_nc, /* 513 */
- PARROT_OP_add_i_i_i, /* 514 */
- PARROT_OP_add_i_ic_i, /* 515 */
- PARROT_OP_add_i_i_ic, /* 516 */
- PARROT_OP_add_n_n_n, /* 517 */
- PARROT_OP_add_n_nc_n, /* 518 */
- PARROT_OP_add_n_n_nc, /* 519 */
- PARROT_OP_add_p_p_p, /* 520 */
- PARROT_OP_add_p_p_i, /* 521 */
- PARROT_OP_add_p_p_ic, /* 522 */
- PARROT_OP_add_p_p_n, /* 523 */
- PARROT_OP_add_p_p_nc, /* 524 */
- PARROT_OP_cmod_i_i_i, /* 525 */
- PARROT_OP_cmod_i_ic_i, /* 526 */
- PARROT_OP_cmod_i_i_ic, /* 527 */
- PARROT_OP_cmod_p_p_i, /* 528 */
- PARROT_OP_cmod_p_p_ic, /* 529 */
- PARROT_OP_cmod_p_p_p, /* 530 */
- PARROT_OP_cmod_n_n_n, /* 531 */
- PARROT_OP_cmod_n_nc_n, /* 532 */
- PARROT_OP_cmod_n_n_nc, /* 533 */
- PARROT_OP_cmod_p_p_n, /* 534 */
- PARROT_OP_cmod_p_p_nc, /* 535 */
- PARROT_OP_dec_i, /* 536 */
- PARROT_OP_dec_n, /* 537 */
- PARROT_OP_dec_p, /* 538 */
- PARROT_OP_div_i_i, /* 539 */
- PARROT_OP_div_i_ic, /* 540 */
- PARROT_OP_div_n_n, /* 541 */
- PARROT_OP_div_n_nc, /* 542 */
- PARROT_OP_div_p_p, /* 543 */
- PARROT_OP_div_p_i, /* 544 */
- PARROT_OP_div_p_ic, /* 545 */
- PARROT_OP_div_p_n, /* 546 */
- PARROT_OP_div_p_nc, /* 547 */
- PARROT_OP_div_i_i_i, /* 548 */
- PARROT_OP_div_i_ic_i, /* 549 */
- PARROT_OP_div_i_i_ic, /* 550 */
- PARROT_OP_div_i_ic_ic, /* 551 */
- PARROT_OP_div_n_n_n, /* 552 */
- PARROT_OP_div_n_nc_n, /* 553 */
- PARROT_OP_div_n_n_nc, /* 554 */
- PARROT_OP_div_n_nc_nc, /* 555 */
- PARROT_OP_div_p_p_p, /* 556 */
- PARROT_OP_div_p_p_i, /* 557 */
- PARROT_OP_div_p_p_ic, /* 558 */
- PARROT_OP_div_p_p_n, /* 559 */
- PARROT_OP_div_p_p_nc, /* 560 */
- PARROT_OP_fdiv_i_i, /* 561 */
- PARROT_OP_fdiv_i_ic, /* 562 */
- PARROT_OP_fdiv_n_n, /* 563 */
- PARROT_OP_fdiv_n_nc, /* 564 */
- PARROT_OP_fdiv_p_p, /* 565 */
- PARROT_OP_fdiv_p_i, /* 566 */
- PARROT_OP_fdiv_p_ic, /* 567 */
- PARROT_OP_fdiv_p_n, /* 568 */
- PARROT_OP_fdiv_p_nc, /* 569 */
- PARROT_OP_fdiv_i_i_i, /* 570 */
- PARROT_OP_fdiv_i_ic_i, /* 571 */
- PARROT_OP_fdiv_i_i_ic, /* 572 */
- PARROT_OP_fdiv_n_n_n, /* 573 */
- PARROT_OP_fdiv_n_nc_n, /* 574 */
- PARROT_OP_fdiv_n_n_nc, /* 575 */
- PARROT_OP_fdiv_p_p_p, /* 576 */
- PARROT_OP_fdiv_p_p_i, /* 577 */
- PARROT_OP_fdiv_p_p_ic, /* 578 */
- PARROT_OP_fdiv_p_p_n, /* 579 */
- PARROT_OP_fdiv_p_p_nc, /* 580 */
- PARROT_OP_ceil_n, /* 581 */
- PARROT_OP_ceil_i_n, /* 582 */
- PARROT_OP_ceil_n_n, /* 583 */
- PARROT_OP_floor_n, /* 584 */
- PARROT_OP_floor_i_n, /* 585 */
- PARROT_OP_floor_n_n, /* 586 */
- PARROT_OP_inc_i, /* 587 */
- PARROT_OP_inc_n, /* 588 */
- PARROT_OP_inc_p, /* 589 */
- PARROT_OP_mod_i_i, /* 590 */
- PARROT_OP_mod_i_ic, /* 591 */
- PARROT_OP_mod_n_n, /* 592 */
- PARROT_OP_mod_n_nc, /* 593 */
- PARROT_OP_mod_p_p, /* 594 */
- PARROT_OP_mod_p_i, /* 595 */
- PARROT_OP_mod_p_ic, /* 596 */
- PARROT_OP_mod_p_n, /* 597 */
- PARROT_OP_mod_p_nc, /* 598 */
- PARROT_OP_mod_i_i_i, /* 599 */
- PARROT_OP_mod_i_ic_i, /* 600 */
- PARROT_OP_mod_i_i_ic, /* 601 */
- PARROT_OP_mod_n_n_n, /* 602 */
- PARROT_OP_mod_n_nc_n, /* 603 */
- PARROT_OP_mod_n_n_nc, /* 604 */
- PARROT_OP_mod_p_p_p, /* 605 */
- PARROT_OP_mod_p_p_i, /* 606 */
- PARROT_OP_mod_p_p_ic, /* 607 */
- PARROT_OP_mod_p_p_n, /* 608 */
- PARROT_OP_mod_p_p_nc, /* 609 */
- PARROT_OP_mul_i_i, /* 610 */
- PARROT_OP_mul_i_ic, /* 611 */
- PARROT_OP_mul_n_n, /* 612 */
- PARROT_OP_mul_n_nc, /* 613 */
- PARROT_OP_mul_p_p, /* 614 */
- PARROT_OP_mul_p_i, /* 615 */
- PARROT_OP_mul_p_ic, /* 616 */
- PARROT_OP_mul_p_n, /* 617 */
- PARROT_OP_mul_p_nc, /* 618 */
- PARROT_OP_mul_i_i_i, /* 619 */
- PARROT_OP_mul_i_ic_i, /* 620 */
- PARROT_OP_mul_i_i_ic, /* 621 */
- PARROT_OP_mul_n_n_n, /* 622 */
- PARROT_OP_mul_n_nc_n, /* 623 */
- PARROT_OP_mul_n_n_nc, /* 624 */
- PARROT_OP_mul_p_p_p, /* 625 */
- PARROT_OP_mul_p_p_i, /* 626 */
- PARROT_OP_mul_p_p_ic, /* 627 */
- PARROT_OP_mul_p_p_n, /* 628 */
- PARROT_OP_mul_p_p_nc, /* 629 */
- PARROT_OP_neg_i, /* 630 */
- PARROT_OP_neg_n, /* 631 */
- PARROT_OP_neg_p, /* 632 */
- PARROT_OP_neg_i_i, /* 633 */
- PARROT_OP_neg_n_n, /* 634 */
- PARROT_OP_neg_p_p, /* 635 */
- PARROT_OP_pow_n_n_n, /* 636 */
- PARROT_OP_pow_n_nc_n, /* 637 */
- PARROT_OP_pow_n_n_nc, /* 638 */
- PARROT_OP_pow_p_p_p, /* 639 */
- PARROT_OP_pow_p_p_i, /* 640 */
- PARROT_OP_pow_p_p_ic, /* 641 */
- PARROT_OP_pow_p_p_n, /* 642 */
- PARROT_OP_pow_p_p_nc, /* 643 */
- PARROT_OP_pow_n_n_i, /* 644 */
- PARROT_OP_pow_n_nc_i, /* 645 */
- PARROT_OP_pow_n_n_ic, /* 646 */
- PARROT_OP_pow_n_nc_ic, /* 647 */
- PARROT_OP_sub_i_i, /* 648 */
- PARROT_OP_sub_i_ic, /* 649 */
- PARROT_OP_sub_n_n, /* 650 */
- PARROT_OP_sub_n_nc, /* 651 */
- PARROT_OP_sub_p_p, /* 652 */
- PARROT_OP_sub_p_i, /* 653 */
- PARROT_OP_sub_p_ic, /* 654 */
- PARROT_OP_sub_p_n, /* 655 */
- PARROT_OP_sub_p_nc, /* 656 */
- PARROT_OP_sub_i_i_i, /* 657 */
- PARROT_OP_sub_i_ic_i, /* 658 */
- PARROT_OP_sub_i_i_ic, /* 659 */
- PARROT_OP_sub_n_n_n, /* 660 */
- PARROT_OP_sub_n_nc_n, /* 661 */
- PARROT_OP_sub_n_n_nc, /* 662 */
- PARROT_OP_sub_p_p_p, /* 663 */
- PARROT_OP_sub_p_p_i, /* 664 */
- PARROT_OP_sub_p_p_ic, /* 665 */
- PARROT_OP_sub_p_p_n, /* 666 */
- PARROT_OP_sub_p_p_nc, /* 667 */
- PARROT_OP_sqrt_n_n, /* 668 */
- PARROT_OP_acos_n_n, /* 669 */
- PARROT_OP_asec_n_n, /* 670 */
- PARROT_OP_asin_n_n, /* 671 */
- PARROT_OP_atan_n_n, /* 672 */
- PARROT_OP_atan_n_n_n, /* 673 */
- PARROT_OP_atan_n_nc_n, /* 674 */
- PARROT_OP_atan_n_n_nc, /* 675 */
- PARROT_OP_cos_n_n, /* 676 */
- PARROT_OP_cosh_n_n, /* 677 */
- PARROT_OP_exp_n_n, /* 678 */
- PARROT_OP_ln_n_n, /* 679 */
- PARROT_OP_log10_n_n, /* 680 */
- PARROT_OP_log2_n_n, /* 681 */
- PARROT_OP_sec_n_n, /* 682 */
- PARROT_OP_sech_n_n, /* 683 */
- PARROT_OP_sin_n_n, /* 684 */
- PARROT_OP_sinh_n_n, /* 685 */
- PARROT_OP_tan_n_n, /* 686 */
- PARROT_OP_tanh_n_n, /* 687 */
- PARROT_OP_callmethodcc_p_s, /* 688 */
- PARROT_OP_callmethodcc_p_sc, /* 689 */
- PARROT_OP_callmethodcc_p_p, /* 690 */
- PARROT_OP_callmethod_p_s_p, /* 691 */
- PARROT_OP_callmethod_p_sc_p, /* 692 */
- PARROT_OP_callmethod_p_p_p, /* 693 */
- PARROT_OP_tailcallmethod_p_s, /* 694 */
- PARROT_OP_tailcallmethod_p_sc, /* 695 */
- PARROT_OP_tailcallmethod_p_p, /* 696 */
- PARROT_OP_addmethod_p_s_p, /* 697 */
- PARROT_OP_addmethod_p_sc_p, /* 698 */
- PARROT_OP_can_i_p_s, /* 699 */
- PARROT_OP_can_i_p_sc, /* 700 */
- PARROT_OP_does_i_p_s, /* 701 */
- PARROT_OP_does_i_p_sc, /* 702 */
- PARROT_OP_does_i_p_p, /* 703 */
- PARROT_OP_does_i_p_pc, /* 704 */
- PARROT_OP_isa_i_p_s, /* 705 */
- PARROT_OP_isa_i_p_sc, /* 706 */
- PARROT_OP_isa_i_p_p, /* 707 */
- PARROT_OP_isa_i_p_pc, /* 708 */
- PARROT_OP_newclass_p_s, /* 709 */
- PARROT_OP_newclass_p_sc, /* 710 */
- PARROT_OP_newclass_p_p, /* 711 */
- PARROT_OP_newclass_p_pc, /* 712 */
- PARROT_OP_subclass_p_p, /* 713 */
- PARROT_OP_subclass_p_pc, /* 714 */
- PARROT_OP_subclass_p_p_s, /* 715 */
- PARROT_OP_subclass_p_pc_s, /* 716 */
- PARROT_OP_subclass_p_p_sc, /* 717 */
- PARROT_OP_subclass_p_pc_sc, /* 718 */
- PARROT_OP_subclass_p_p_p, /* 719 */
- PARROT_OP_subclass_p_pc_p, /* 720 */
- PARROT_OP_subclass_p_p_pc, /* 721 */
- PARROT_OP_subclass_p_pc_pc, /* 722 */
- PARROT_OP_subclass_p_s, /* 723 */
- PARROT_OP_subclass_p_sc, /* 724 */
- PARROT_OP_subclass_p_s_s, /* 725 */
- PARROT_OP_subclass_p_sc_s, /* 726 */
- PARROT_OP_subclass_p_s_sc, /* 727 */
- PARROT_OP_subclass_p_sc_sc, /* 728 */
- PARROT_OP_subclass_p_s_p, /* 729 */
- PARROT_OP_subclass_p_sc_p, /* 730 */
- PARROT_OP_subclass_p_s_pc, /* 731 */
- PARROT_OP_subclass_p_sc_pc, /* 732 */
- PARROT_OP_get_class_p_s, /* 733 */
- PARROT_OP_get_class_p_sc, /* 734 */
- PARROT_OP_get_class_p_p, /* 735 */
- PARROT_OP_get_class_p_pc, /* 736 */
- PARROT_OP_class_p_p, /* 737 */
- PARROT_OP_addparent_p_p, /* 738 */
- PARROT_OP_removeparent_p_p, /* 739 */
- PARROT_OP_addrole_p_p, /* 740 */
- PARROT_OP_addattribute_p_s, /* 741 */
- PARROT_OP_addattribute_p_sc, /* 742 */
- PARROT_OP_removeattribute_p_s, /* 743 */
- PARROT_OP_removeattribute_p_sc, /* 744 */
- PARROT_OP_getattribute_p_p_s, /* 745 */
- PARROT_OP_getattribute_p_p_sc, /* 746 */
- PARROT_OP_getattribute_p_p_p_s, /* 747 */
- PARROT_OP_getattribute_p_p_pc_s, /* 748 */
- PARROT_OP_getattribute_p_p_p_sc, /* 749 */
- PARROT_OP_getattribute_p_p_pc_sc, /* 750 */
- PARROT_OP_setattribute_p_s_p, /* 751 */
- PARROT_OP_setattribute_p_sc_p, /* 752 */
- PARROT_OP_setattribute_p_p_s_p, /* 753 */
- PARROT_OP_setattribute_p_pc_s_p, /* 754 */
- PARROT_OP_setattribute_p_p_sc_p, /* 755 */
- PARROT_OP_setattribute_p_pc_sc_p, /* 756 */
- PARROT_OP_inspect_p_p, /* 757 */
- PARROT_OP_inspect_p_pc, /* 758 */
- PARROT_OP_inspect_p_p_s, /* 759 */
- PARROT_OP_inspect_p_pc_s, /* 760 */
- PARROT_OP_inspect_p_p_sc, /* 761 */
- PARROT_OP_inspect_p_pc_sc, /* 762 */
- PARROT_OP_new_p_s, /* 763 */
- PARROT_OP_new_p_sc, /* 764 */
- PARROT_OP_new_p_s_p, /* 765 */
- PARROT_OP_new_p_sc_p, /* 766 */
- PARROT_OP_new_p_s_pc, /* 767 */
- PARROT_OP_new_p_sc_pc, /* 768 */
- PARROT_OP_new_p_p, /* 769 */
- PARROT_OP_new_p_pc, /* 770 */
- PARROT_OP_new_p_p_p, /* 771 */
- PARROT_OP_new_p_pc_p, /* 772 */
- PARROT_OP_new_p_p_pc, /* 773 */
- PARROT_OP_new_p_pc_pc, /* 774 */
- PARROT_OP_root_new_p_p, /* 775 */
- PARROT_OP_root_new_p_pc, /* 776 */
- PARROT_OP_root_new_p_p_p, /* 777 */
- PARROT_OP_root_new_p_pc_p, /* 778 */
- PARROT_OP_root_new_p_p_pc, /* 779 */
- PARROT_OP_root_new_p_pc_pc, /* 780 */
- PARROT_OP_typeof_s_p, /* 781 */
- PARROT_OP_typeof_p_p, /* 782 */
- PARROT_OP_get_repr_s_p, /* 783 */
- PARROT_OP_find_method_p_p_s, /* 784 */
- PARROT_OP_find_method_p_p_sc, /* 785 */
- PARROT_OP_defined_i_p, /* 786 */
- PARROT_OP_defined_i_p_ki, /* 787 */
- PARROT_OP_defined_i_p_kic, /* 788 */
- PARROT_OP_defined_i_p_k, /* 789 */
- PARROT_OP_defined_i_p_kc, /* 790 */
- PARROT_OP_exists_i_p_ki, /* 791 */
- PARROT_OP_exists_i_p_kic, /* 792 */
- PARROT_OP_exists_i_p_k, /* 793 */
- PARROT_OP_exists_i_p_kc, /* 794 */
- PARROT_OP_delete_p_k, /* 795 */
- PARROT_OP_delete_p_kc, /* 796 */
- PARROT_OP_delete_p_ki, /* 797 */
- PARROT_OP_delete_p_kic, /* 798 */
- PARROT_OP_elements_i_p, /* 799 */
- PARROT_OP_push_p_i, /* 800 */
- PARROT_OP_push_p_ic, /* 801 */
- PARROT_OP_push_p_n, /* 802 */
- PARROT_OP_push_p_nc, /* 803 */
- PARROT_OP_push_p_s, /* 804 */
- PARROT_OP_push_p_sc, /* 805 */
- PARROT_OP_push_p_p, /* 806 */
- PARROT_OP_pop_i_p, /* 807 */
- PARROT_OP_pop_n_p, /* 808 */
- PARROT_OP_pop_s_p, /* 809 */
- PARROT_OP_pop_p_p, /* 810 */
- PARROT_OP_unshift_p_i, /* 811 */
- PARROT_OP_unshift_p_ic, /* 812 */
- PARROT_OP_unshift_p_n, /* 813 */
- PARROT_OP_unshift_p_nc, /* 814 */
- PARROT_OP_unshift_p_s, /* 815 */
- PARROT_OP_unshift_p_sc, /* 816 */
- PARROT_OP_unshift_p_p, /* 817 */
- PARROT_OP_shift_i_p, /* 818 */
- PARROT_OP_shift_n_p, /* 819 */
- PARROT_OP_shift_s_p, /* 820 */
- PARROT_OP_shift_p_p, /* 821 */
- PARROT_OP_splice_p_p_i_i, /* 822 */
- PARROT_OP_splice_p_p_ic_i, /* 823 */
- PARROT_OP_splice_p_p_i_ic, /* 824 */
- PARROT_OP_splice_p_p_ic_ic, /* 825 */
- PARROT_OP_setprop_p_s_p, /* 826 */
- PARROT_OP_setprop_p_sc_p, /* 827 */
- PARROT_OP_getprop_p_s_p, /* 828 */
- PARROT_OP_getprop_p_sc_p, /* 829 */
- PARROT_OP_delprop_p_s, /* 830 */
- PARROT_OP_delprop_p_sc, /* 831 */
- PARROT_OP_prophash_p_p, /* 832 */
- PARROT_OP_freeze_s_p, /* 833 */
- PARROT_OP_thaw_p_s, /* 834 */
- PARROT_OP_thaw_p_sc, /* 835 */
- PARROT_OP_add_multi_s_s_p, /* 836 */
- PARROT_OP_add_multi_sc_s_p, /* 837 */
- PARROT_OP_add_multi_s_sc_p, /* 838 */
- PARROT_OP_add_multi_sc_sc_p, /* 839 */
- PARROT_OP_find_multi_p_s_s, /* 840 */
- PARROT_OP_find_multi_p_sc_s, /* 841 */
- PARROT_OP_find_multi_p_s_sc, /* 842 */
- PARROT_OP_find_multi_p_sc_sc, /* 843 */
- PARROT_OP_register_p, /* 844 */
- PARROT_OP_unregister_p, /* 845 */
- PARROT_OP_box_p_i, /* 846 */
- PARROT_OP_box_p_ic, /* 847 */
- PARROT_OP_box_p_n, /* 848 */
- PARROT_OP_box_p_nc, /* 849 */
- PARROT_OP_box_p_s, /* 850 */
- PARROT_OP_box_p_sc, /* 851 */
- PARROT_OP_iter_p_p, /* 852 */
- PARROT_OP_morph_p_p, /* 853 */
- PARROT_OP_morph_p_pc, /* 854 */
- PARROT_OP_clone_s_s, /* 855 */
- PARROT_OP_clone_s_sc, /* 856 */
- PARROT_OP_set_i_i, /* 857 */
- PARROT_OP_set_i_ic, /* 858 */
- PARROT_OP_set_i_n, /* 859 */
- PARROT_OP_set_i_nc, /* 860 */
- PARROT_OP_set_i_s, /* 861 */
- PARROT_OP_set_i_sc, /* 862 */
- PARROT_OP_set_n_n, /* 863 */
- PARROT_OP_set_n_nc, /* 864 */
- PARROT_OP_set_n_i, /* 865 */
- PARROT_OP_set_n_ic, /* 866 */
- PARROT_OP_set_n_s, /* 867 */
- PARROT_OP_set_n_sc, /* 868 */
- PARROT_OP_set_n_p, /* 869 */
- PARROT_OP_set_s_p, /* 870 */
- PARROT_OP_set_s_s, /* 871 */
- PARROT_OP_set_s_sc, /* 872 */
- PARROT_OP_set_s_i, /* 873 */
- PARROT_OP_set_s_ic, /* 874 */
- PARROT_OP_set_s_n, /* 875 */
- PARROT_OP_set_s_nc, /* 876 */
- PARROT_OP_set_p_pc, /* 877 */
- PARROT_OP_set_p_p, /* 878 */
- PARROT_OP_set_p_i, /* 879 */
- PARROT_OP_set_p_ic, /* 880 */
- PARROT_OP_set_p_n, /* 881 */
- PARROT_OP_set_p_nc, /* 882 */
- PARROT_OP_set_p_s, /* 883 */
- PARROT_OP_set_p_sc, /* 884 */
- PARROT_OP_set_i_p, /* 885 */
- PARROT_OP_assign_p_p, /* 886 */
- PARROT_OP_assign_p_i, /* 887 */
- PARROT_OP_assign_p_ic, /* 888 */
- PARROT_OP_assign_p_n, /* 889 */
- PARROT_OP_assign_p_nc, /* 890 */
- PARROT_OP_assign_p_s, /* 891 */
- PARROT_OP_assign_p_sc, /* 892 */
- PARROT_OP_assign_s_s, /* 893 */
- PARROT_OP_assign_s_sc, /* 894 */
- PARROT_OP_setref_p_p, /* 895 */
- PARROT_OP_deref_p_p, /* 896 */
- PARROT_OP_set_p_ki_i, /* 897 */
- PARROT_OP_set_p_kic_i, /* 898 */
- PARROT_OP_set_p_ki_ic, /* 899 */
- PARROT_OP_set_p_kic_ic, /* 900 */
- PARROT_OP_set_p_ki_n, /* 901 */
- PARROT_OP_set_p_kic_n, /* 902 */
- PARROT_OP_set_p_ki_nc, /* 903 */
- PARROT_OP_set_p_kic_nc, /* 904 */
- PARROT_OP_set_p_ki_s, /* 905 */
- PARROT_OP_set_p_kic_s, /* 906 */
- PARROT_OP_set_p_ki_sc, /* 907 */
- PARROT_OP_set_p_kic_sc, /* 908 */
- PARROT_OP_set_p_ki_p, /* 909 */
- PARROT_OP_set_p_kic_p, /* 910 */
- PARROT_OP_set_i_p_ki, /* 911 */
- PARROT_OP_set_i_p_kic, /* 912 */
- PARROT_OP_set_n_p_ki, /* 913 */
- PARROT_OP_set_n_p_kic, /* 914 */
- PARROT_OP_set_s_p_ki, /* 915 */
- PARROT_OP_set_s_p_kic, /* 916 */
- PARROT_OP_set_p_p_ki, /* 917 */
- PARROT_OP_set_p_p_kic, /* 918 */
- PARROT_OP_set_p_k_i, /* 919 */
- PARROT_OP_set_p_kc_i, /* 920 */
- PARROT_OP_set_p_k_ic, /* 921 */
- PARROT_OP_set_p_kc_ic, /* 922 */
- PARROT_OP_set_p_k_n, /* 923 */
- PARROT_OP_set_p_kc_n, /* 924 */
- PARROT_OP_set_p_k_nc, /* 925 */
- PARROT_OP_set_p_kc_nc, /* 926 */
- PARROT_OP_set_p_k_s, /* 927 */
- PARROT_OP_set_p_kc_s, /* 928 */
- PARROT_OP_set_p_k_sc, /* 929 */
- PARROT_OP_set_p_kc_sc, /* 930 */
- PARROT_OP_set_p_k_p, /* 931 */
- PARROT_OP_set_p_kc_p, /* 932 */
- PARROT_OP_set_i_p_k, /* 933 */
- PARROT_OP_set_i_p_kc, /* 934 */
- PARROT_OP_set_n_p_k, /* 935 */
- PARROT_OP_set_n_p_kc, /* 936 */
- PARROT_OP_set_s_p_k, /* 937 */
- PARROT_OP_set_s_p_kc, /* 938 */
- PARROT_OP_set_p_p_k, /* 939 */
- PARROT_OP_set_p_p_kc, /* 940 */
- PARROT_OP_clone_p_p, /* 941 */
- PARROT_OP_clone_p_p_p, /* 942 */
- PARROT_OP_clone_p_p_pc, /* 943 */
- PARROT_OP_copy_p_p, /* 944 */
- PARROT_OP_null_s, /* 945 */
- PARROT_OP_null_i, /* 946 */
- PARROT_OP_null_p, /* 947 */
- PARROT_OP_null_n, /* 948 */
- PARROT_OP_ord_i_s, /* 949 */
- PARROT_OP_ord_i_sc, /* 950 */
- PARROT_OP_ord_i_s_i, /* 951 */
- PARROT_OP_ord_i_sc_i, /* 952 */
- PARROT_OP_ord_i_s_ic, /* 953 */
- PARROT_OP_ord_i_sc_ic, /* 954 */
- PARROT_OP_chr_s_i, /* 955 */
- PARROT_OP_chr_s_ic, /* 956 */
- PARROT_OP_chopn_s_s_i, /* 957 */
- PARROT_OP_chopn_s_sc_i, /* 958 */
- PARROT_OP_chopn_s_s_ic, /* 959 */
- PARROT_OP_chopn_s_sc_ic, /* 960 */
- PARROT_OP_concat_s_s, /* 961 */
- PARROT_OP_concat_s_sc, /* 962 */
- PARROT_OP_concat_p_p, /* 963 */
- PARROT_OP_concat_p_s, /* 964 */
- PARROT_OP_concat_p_sc, /* 965 */
- PARROT_OP_concat_s_s_s, /* 966 */
- PARROT_OP_concat_s_sc_s, /* 967 */
- PARROT_OP_concat_s_s_sc, /* 968 */
- PARROT_OP_concat_p_p_s, /* 969 */
- PARROT_OP_concat_p_p_sc, /* 970 */
- PARROT_OP_concat_p_p_p, /* 971 */
- PARROT_OP_repeat_s_s_i, /* 972 */
- PARROT_OP_repeat_s_sc_i, /* 973 */
- PARROT_OP_repeat_s_s_ic, /* 974 */
- PARROT_OP_repeat_s_sc_ic, /* 975 */
- PARROT_OP_repeat_p_p_i, /* 976 */
- PARROT_OP_repeat_p_p_ic, /* 977 */
- PARROT_OP_repeat_p_p_p, /* 978 */
- PARROT_OP_repeat_p_i, /* 979 */
- PARROT_OP_repeat_p_ic, /* 980 */
- PARROT_OP_repeat_p_p, /* 981 */
- PARROT_OP_length_i_s, /* 982 */
- PARROT_OP_length_i_sc, /* 983 */
- PARROT_OP_bytelength_i_s, /* 984 */
- PARROT_OP_bytelength_i_sc, /* 985 */
- PARROT_OP_pin_s, /* 986 */
- PARROT_OP_unpin_s, /* 987 */
- PARROT_OP_substr_s_s_i, /* 988 */
- PARROT_OP_substr_s_sc_i, /* 989 */
- PARROT_OP_substr_s_s_ic, /* 990 */
- PARROT_OP_substr_s_sc_ic, /* 991 */
- PARROT_OP_substr_s_s_i_i, /* 992 */
- PARROT_OP_substr_s_sc_i_i, /* 993 */
- PARROT_OP_substr_s_s_ic_i, /* 994 */
- PARROT_OP_substr_s_sc_ic_i, /* 995 */
- PARROT_OP_substr_s_s_i_ic, /* 996 */
- PARROT_OP_substr_s_sc_i_ic, /* 997 */
- PARROT_OP_substr_s_s_ic_ic, /* 998 */
- PARROT_OP_substr_s_sc_ic_ic, /* 999 */
- PARROT_OP_substr_s_p_i_i, /* 1000 */
- PARROT_OP_substr_s_p_ic_i, /* 1001 */
- PARROT_OP_substr_s_p_i_ic, /* 1002 */
- PARROT_OP_substr_s_p_ic_ic, /* 1003 */
- PARROT_OP_replace_s_s_i_i_s, /* 1004 */
- PARROT_OP_replace_s_sc_i_i_s, /* 1005 */
- PARROT_OP_replace_s_s_ic_i_s, /* 1006 */
- PARROT_OP_replace_s_sc_ic_i_s, /* 1007 */
- PARROT_OP_replace_s_s_i_ic_s, /* 1008 */
- PARROT_OP_replace_s_sc_i_ic_s, /* 1009 */
- PARROT_OP_replace_s_s_ic_ic_s, /* 1010 */
- PARROT_OP_replace_s_sc_ic_ic_s, /* 1011 */
- PARROT_OP_replace_s_s_i_i_sc, /* 1012 */
- PARROT_OP_replace_s_sc_i_i_sc, /* 1013 */
- PARROT_OP_replace_s_s_ic_i_sc, /* 1014 */
- PARROT_OP_replace_s_sc_ic_i_sc, /* 1015 */
- PARROT_OP_replace_s_s_i_ic_sc, /* 1016 */
- PARROT_OP_replace_s_sc_i_ic_sc, /* 1017 */
- PARROT_OP_replace_s_s_ic_ic_sc, /* 1018 */
- PARROT_OP_replace_s_sc_ic_ic_sc, /* 1019 */
- PARROT_OP_index_i_s_s, /* 1020 */
- PARROT_OP_index_i_sc_s, /* 1021 */
- PARROT_OP_index_i_s_sc, /* 1022 */
- PARROT_OP_index_i_sc_sc, /* 1023 */
- PARROT_OP_index_i_s_s_i, /* 1024 */
- PARROT_OP_index_i_sc_s_i, /* 1025 */
- PARROT_OP_index_i_s_sc_i, /* 1026 */
- PARROT_OP_index_i_sc_sc_i, /* 1027 */
- PARROT_OP_index_i_s_s_ic, /* 1028 */
- PARROT_OP_index_i_sc_s_ic, /* 1029 */
- PARROT_OP_index_i_s_sc_ic, /* 1030 */
- PARROT_OP_index_i_sc_sc_ic, /* 1031 */
- PARROT_OP_sprintf_s_s_p, /* 1032 */
- PARROT_OP_sprintf_s_sc_p, /* 1033 */
- PARROT_OP_sprintf_p_p_p, /* 1034 */
- PARROT_OP_new_s, /* 1035 */
- PARROT_OP_new_s_i, /* 1036 */
- PARROT_OP_new_s_ic, /* 1037 */
- PARROT_OP_stringinfo_i_s_i, /* 1038 */
- PARROT_OP_stringinfo_i_sc_i, /* 1039 */
- PARROT_OP_stringinfo_i_s_ic, /* 1040 */
- PARROT_OP_stringinfo_i_sc_ic, /* 1041 */
- PARROT_OP_upcase_s_s, /* 1042 */
- PARROT_OP_upcase_s_sc, /* 1043 */
- PARROT_OP_downcase_s_s, /* 1044 */
- PARROT_OP_downcase_s_sc, /* 1045 */
- PARROT_OP_titlecase_s_s, /* 1046 */
- PARROT_OP_titlecase_s_sc, /* 1047 */
- PARROT_OP_join_s_s_p, /* 1048 */
- PARROT_OP_join_s_sc_p, /* 1049 */
- PARROT_OP_split_p_s_s, /* 1050 */
- PARROT_OP_split_p_sc_s, /* 1051 */
- PARROT_OP_split_p_s_sc, /* 1052 */
- PARROT_OP_split_p_sc_sc, /* 1053 */
- PARROT_OP_charset_i_s, /* 1054 */
- PARROT_OP_charset_i_sc, /* 1055 */
- PARROT_OP_charsetname_s_i, /* 1056 */
- PARROT_OP_charsetname_s_ic, /* 1057 */
- PARROT_OP_find_charset_i_s, /* 1058 */
- PARROT_OP_find_charset_i_sc, /* 1059 */
- PARROT_OP_trans_charset_s_s_i, /* 1060 */
- PARROT_OP_trans_charset_s_sc_i, /* 1061 */
- PARROT_OP_trans_charset_s_s_ic, /* 1062 */
- PARROT_OP_trans_charset_s_sc_ic, /* 1063 */
- PARROT_OP_encoding_i_s, /* 1064 */
- PARROT_OP_encoding_i_sc, /* 1065 */
- PARROT_OP_encodingname_s_i, /* 1066 */
- PARROT_OP_encodingname_s_ic, /* 1067 */
- PARROT_OP_find_encoding_i_s, /* 1068 */
- PARROT_OP_find_encoding_i_sc, /* 1069 */
- PARROT_OP_trans_encoding_s_s_i, /* 1070 */
- PARROT_OP_trans_encoding_s_sc_i, /* 1071 */
- PARROT_OP_trans_encoding_s_s_ic, /* 1072 */
- PARROT_OP_trans_encoding_s_sc_ic, /* 1073 */
- PARROT_OP_is_cclass_i_i_s_i, /* 1074 */
- PARROT_OP_is_cclass_i_ic_s_i, /* 1075 */
- PARROT_OP_is_cclass_i_i_sc_i, /* 1076 */
- PARROT_OP_is_cclass_i_ic_sc_i, /* 1077 */
- PARROT_OP_is_cclass_i_i_s_ic, /* 1078 */
- PARROT_OP_is_cclass_i_ic_s_ic, /* 1079 */
- PARROT_OP_is_cclass_i_i_sc_ic, /* 1080 */
- PARROT_OP_is_cclass_i_ic_sc_ic, /* 1081 */
- PARROT_OP_find_cclass_i_i_s_i_i, /* 1082 */
- PARROT_OP_find_cclass_i_ic_s_i_i, /* 1083 */
- PARROT_OP_find_cclass_i_i_sc_i_i, /* 1084 */
- PARROT_OP_find_cclass_i_ic_sc_i_i, /* 1085 */
- PARROT_OP_find_cclass_i_i_s_ic_i, /* 1086 */
- PARROT_OP_find_cclass_i_ic_s_ic_i, /* 1087 */
- PARROT_OP_find_cclass_i_i_sc_ic_i, /* 1088 */
- PARROT_OP_find_cclass_i_ic_sc_ic_i, /* 1089 */
- PARROT_OP_find_cclass_i_i_s_i_ic, /* 1090 */
- PARROT_OP_find_cclass_i_ic_s_i_ic, /* 1091 */
- PARROT_OP_find_cclass_i_i_sc_i_ic, /* 1092 */
- PARROT_OP_find_cclass_i_ic_sc_i_ic, /* 1093 */
- PARROT_OP_find_cclass_i_i_s_ic_ic, /* 1094 */
- PARROT_OP_find_cclass_i_ic_s_ic_ic, /* 1095 */
- PARROT_OP_find_cclass_i_i_sc_ic_ic, /* 1096 */
- PARROT_OP_find_cclass_i_ic_sc_ic_ic, /* 1097 */
- PARROT_OP_find_not_cclass_i_i_s_i_i, /* 1098 */
- PARROT_OP_find_not_cclass_i_ic_s_i_i, /* 1099 */
- PARROT_OP_find_not_cclass_i_i_sc_i_i, /* 1100 */
- PARROT_OP_find_not_cclass_i_ic_sc_i_i, /* 1101 */
- PARROT_OP_find_not_cclass_i_i_s_ic_i, /* 1102 */
- PARROT_OP_find_not_cclass_i_ic_s_ic_i, /* 1103 */
- PARROT_OP_find_not_cclass_i_i_sc_ic_i, /* 1104 */
- PARROT_OP_find_not_cclass_i_ic_sc_ic_i, /* 1105 */
- PARROT_OP_find_not_cclass_i_i_s_i_ic, /* 1106 */
- PARROT_OP_find_not_cclass_i_ic_s_i_ic, /* 1107 */
- PARROT_OP_find_not_cclass_i_i_sc_i_ic, /* 1108 */
- PARROT_OP_find_not_cclass_i_ic_sc_i_ic, /* 1109 */
- PARROT_OP_find_not_cclass_i_i_s_ic_ic, /* 1110 */
- PARROT_OP_find_not_cclass_i_ic_s_ic_ic, /* 1111 */
- PARROT_OP_find_not_cclass_i_i_sc_ic_ic, /* 1112 */
- PARROT_OP_find_not_cclass_i_ic_sc_ic_ic, /* 1113 */
- PARROT_OP_escape_s_s, /* 1114 */
- PARROT_OP_compose_s_s, /* 1115 */
- PARROT_OP_compose_s_sc, /* 1116 */
- PARROT_OP_spawnw_i_s, /* 1117 */
- PARROT_OP_spawnw_i_sc, /* 1118 */
- PARROT_OP_spawnw_i_p, /* 1119 */
- PARROT_OP_err_i, /* 1120 */
- PARROT_OP_err_s, /* 1121 */
- PARROT_OP_err_s_i, /* 1122 */
- PARROT_OP_err_s_ic, /* 1123 */
- PARROT_OP_time_i, /* 1124 */
- PARROT_OP_time_n, /* 1125 */
- PARROT_OP_gmtime_s_i, /* 1126 */
- PARROT_OP_gmtime_s_ic, /* 1127 */
- PARROT_OP_localtime_s_i, /* 1128 */
- PARROT_OP_localtime_s_ic, /* 1129 */
- PARROT_OP_decodetime_p_i, /* 1130 */
- PARROT_OP_decodetime_p_ic, /* 1131 */
- PARROT_OP_decodelocaltime_p_i, /* 1132 */
- PARROT_OP_decodelocaltime_p_ic, /* 1133 */
- PARROT_OP_sysinfo_s_i, /* 1134 */
- PARROT_OP_sysinfo_s_ic, /* 1135 */
- PARROT_OP_sysinfo_i_i, /* 1136 */
- PARROT_OP_sysinfo_i_ic, /* 1137 */
- PARROT_OP_sleep_i, /* 1138 */
- PARROT_OP_sleep_ic, /* 1139 */
- PARROT_OP_sleep_n, /* 1140 */
- PARROT_OP_sleep_nc, /* 1141 */
- PARROT_OP_store_lex_s_p, /* 1142 */
- PARROT_OP_store_lex_sc_p, /* 1143 */
- PARROT_OP_store_dynamic_lex_s_p, /* 1144 */
- PARROT_OP_store_dynamic_lex_sc_p, /* 1145 */
- PARROT_OP_find_lex_p_s, /* 1146 */
- PARROT_OP_find_lex_p_sc, /* 1147 */
- PARROT_OP_find_dynamic_lex_p_s, /* 1148 */
- PARROT_OP_find_dynamic_lex_p_sc, /* 1149 */
- PARROT_OP_find_caller_lex_p_s, /* 1150 */
- PARROT_OP_find_caller_lex_p_sc, /* 1151 */
- PARROT_OP_get_namespace_p, /* 1152 */
- PARROT_OP_get_namespace_p_p, /* 1153 */
- PARROT_OP_get_namespace_p_pc, /* 1154 */
- PARROT_OP_get_hll_namespace_p, /* 1155 */
- PARROT_OP_get_hll_namespace_p_p, /* 1156 */
- PARROT_OP_get_hll_namespace_p_pc, /* 1157 */
- PARROT_OP_get_root_namespace_p, /* 1158 */
- PARROT_OP_get_root_namespace_p_p, /* 1159 */
- PARROT_OP_get_root_namespace_p_pc, /* 1160 */
- PARROT_OP_get_global_p_s, /* 1161 */
- PARROT_OP_get_global_p_sc, /* 1162 */
- PARROT_OP_get_global_p_p_s, /* 1163 */
- PARROT_OP_get_global_p_pc_s, /* 1164 */
- PARROT_OP_get_global_p_p_sc, /* 1165 */
- PARROT_OP_get_global_p_pc_sc, /* 1166 */
- PARROT_OP_get_hll_global_p_s, /* 1167 */
- PARROT_OP_get_hll_global_p_sc, /* 1168 */
- PARROT_OP_get_hll_global_p_p_s, /* 1169 */
- PARROT_OP_get_hll_global_p_pc_s, /* 1170 */
- PARROT_OP_get_hll_global_p_p_sc, /* 1171 */
- PARROT_OP_get_hll_global_p_pc_sc, /* 1172 */
- PARROT_OP_get_root_global_p_s, /* 1173 */
- PARROT_OP_get_root_global_p_sc, /* 1174 */
- PARROT_OP_get_root_global_p_p_s, /* 1175 */
- PARROT_OP_get_root_global_p_pc_s, /* 1176 */
- PARROT_OP_get_root_global_p_p_sc, /* 1177 */
- PARROT_OP_get_root_global_p_pc_sc, /* 1178 */
- PARROT_OP_set_global_s_p, /* 1179 */
- PARROT_OP_set_global_sc_p, /* 1180 */
- PARROT_OP_set_global_p_s_p, /* 1181 */
- PARROT_OP_set_global_pc_s_p, /* 1182 */
- PARROT_OP_set_global_p_sc_p, /* 1183 */
- PARROT_OP_set_global_pc_sc_p, /* 1184 */
- PARROT_OP_set_hll_global_s_p, /* 1185 */
- PARROT_OP_set_hll_global_sc_p, /* 1186 */
- PARROT_OP_set_hll_global_p_s_p, /* 1187 */
- PARROT_OP_set_hll_global_pc_s_p, /* 1188 */
- PARROT_OP_set_hll_global_p_sc_p, /* 1189 */
- PARROT_OP_set_hll_global_pc_sc_p, /* 1190 */
- PARROT_OP_set_root_global_s_p, /* 1191 */
- PARROT_OP_set_root_global_sc_p, /* 1192 */
- PARROT_OP_set_root_global_p_s_p, /* 1193 */
- PARROT_OP_set_root_global_pc_s_p, /* 1194 */
- PARROT_OP_set_root_global_p_sc_p, /* 1195 */
- PARROT_OP_set_root_global_pc_sc_p, /* 1196 */
- PARROT_OP_find_name_p_s, /* 1197 */
- PARROT_OP_find_name_p_sc, /* 1198 */
- PARROT_OP_find_sub_not_null_p_s, /* 1199 */
- PARROT_OP_find_sub_not_null_p_sc, /* 1200 */
- PARROT_OP_trap, /* 1201 */
- PARROT_OP_set_label_p_ic, /* 1202 */
- PARROT_OP_get_label_i_p, /* 1203 */
- PARROT_OP_fetch_p_p_p_p, /* 1204 */
- PARROT_OP_fetch_p_pc_p_p, /* 1205 */
- PARROT_OP_fetch_p_p_pc_p, /* 1206 */
- PARROT_OP_fetch_p_pc_pc_p, /* 1207 */
- PARROT_OP_fetch_p_p_p_pc, /* 1208 */
- PARROT_OP_fetch_p_pc_p_pc, /* 1209 */
- PARROT_OP_fetch_p_p_pc_pc, /* 1210 */
- PARROT_OP_fetch_p_pc_pc_pc, /* 1211 */
- PARROT_OP_fetch_p_p_i_p, /* 1212 */
- PARROT_OP_fetch_p_pc_i_p, /* 1213 */
- PARROT_OP_fetch_p_p_ic_p, /* 1214 */
- PARROT_OP_fetch_p_pc_ic_p, /* 1215 */
- PARROT_OP_fetch_p_p_i_pc, /* 1216 */
- PARROT_OP_fetch_p_pc_i_pc, /* 1217 */
- PARROT_OP_fetch_p_p_ic_pc, /* 1218 */
- PARROT_OP_fetch_p_pc_ic_pc, /* 1219 */
- PARROT_OP_fetch_p_p_s_p, /* 1220 */
- PARROT_OP_fetch_p_pc_s_p, /* 1221 */
- PARROT_OP_fetch_p_p_sc_p, /* 1222 */
- PARROT_OP_fetch_p_pc_sc_p, /* 1223 */
- PARROT_OP_fetch_p_p_s_pc, /* 1224 */
- PARROT_OP_fetch_p_pc_s_pc, /* 1225 */
- PARROT_OP_fetch_p_p_sc_pc, /* 1226 */
- PARROT_OP_fetch_p_pc_sc_pc, /* 1227 */
- PARROT_OP_vivify_p_p_p_p, /* 1228 */
- PARROT_OP_vivify_p_pc_p_p, /* 1229 */
- PARROT_OP_vivify_p_p_pc_p, /* 1230 */
- PARROT_OP_vivify_p_pc_pc_p, /* 1231 */
- PARROT_OP_vivify_p_p_p_pc, /* 1232 */
- PARROT_OP_vivify_p_pc_p_pc, /* 1233 */
- PARROT_OP_vivify_p_p_pc_pc, /* 1234 */
- PARROT_OP_vivify_p_pc_pc_pc, /* 1235 */
- PARROT_OP_vivify_p_p_i_p, /* 1236 */
- PARROT_OP_vivify_p_pc_i_p, /* 1237 */
- PARROT_OP_vivify_p_p_ic_p, /* 1238 */
- PARROT_OP_vivify_p_pc_ic_p, /* 1239 */
- PARROT_OP_vivify_p_p_i_pc, /* 1240 */
- PARROT_OP_vivify_p_pc_i_pc, /* 1241 */
- PARROT_OP_vivify_p_p_ic_pc, /* 1242 */
- PARROT_OP_vivify_p_pc_ic_pc, /* 1243 */
- PARROT_OP_vivify_p_p_s_p, /* 1244 */
- PARROT_OP_vivify_p_pc_s_p, /* 1245 */
- PARROT_OP_vivify_p_p_sc_p, /* 1246 */
- PARROT_OP_vivify_p_pc_sc_p, /* 1247 */
- PARROT_OP_vivify_p_p_s_pc, /* 1248 */
- PARROT_OP_vivify_p_pc_s_pc, /* 1249 */
- PARROT_OP_vivify_p_p_sc_pc, /* 1250 */
- PARROT_OP_vivify_p_pc_sc_pc, /* 1251 */
- PARROT_OP_new_p_s_i, /* 1252 */
- PARROT_OP_new_p_sc_i, /* 1253 */
- PARROT_OP_new_p_s_ic, /* 1254 */
- PARROT_OP_new_p_sc_ic, /* 1255 */
- PARROT_OP_new_p_p_i, /* 1256 */
- PARROT_OP_new_p_pc_i, /* 1257 */
- PARROT_OP_new_p_p_ic, /* 1258 */
- PARROT_OP_new_p_pc_ic, /* 1259 */
- PARROT_OP_root_new_p_p_i, /* 1260 */
- PARROT_OP_root_new_p_pc_i, /* 1261 */
- PARROT_OP_root_new_p_p_ic, /* 1262 */
- PARROT_OP_root_new_p_pc_ic, /* 1263 */
- PARROT_OP_find_codepoint_i_s, /* 1264 */
- PARROT_OP_find_codepoint_i_sc, /* 1265 */
- PARROT_OP_unroll_p, /* 1266 */
- PARROT_OP_unroll_pc /* 1267 */
+ PARROT_OP_band_i_i_i, /* 119 */
+ PARROT_OP_band_i_ic_i, /* 120 */
+ PARROT_OP_band_i_i_ic, /* 121 */
+ PARROT_OP_bor_i_i, /* 122 */
+ PARROT_OP_bor_i_ic, /* 123 */
+ PARROT_OP_bor_i_i_i, /* 124 */
+ PARROT_OP_bor_i_ic_i, /* 125 */
+ PARROT_OP_bor_i_i_ic, /* 126 */
+ PARROT_OP_shl_i_i, /* 127 */
+ PARROT_OP_shl_i_ic, /* 128 */
+ PARROT_OP_shl_i_i_i, /* 129 */
+ PARROT_OP_shl_i_ic_i, /* 130 */
+ PARROT_OP_shl_i_i_ic, /* 131 */
+ PARROT_OP_shr_i_i, /* 132 */
+ PARROT_OP_shr_i_ic, /* 133 */
+ PARROT_OP_shr_i_i_i, /* 134 */
+ PARROT_OP_shr_i_ic_i, /* 135 */
+ PARROT_OP_shr_i_i_ic, /* 136 */
+ PARROT_OP_lsr_i_i, /* 137 */
+ PARROT_OP_lsr_i_ic, /* 138 */
+ PARROT_OP_lsr_i_i_i, /* 139 */
+ PARROT_OP_lsr_i_ic_i, /* 140 */
+ PARROT_OP_lsr_i_i_ic, /* 141 */
+ PARROT_OP_bxor_i_i, /* 142 */
+ PARROT_OP_bxor_i_ic, /* 143 */
+ PARROT_OP_bxor_i_i_i, /* 144 */
+ PARROT_OP_bxor_i_ic_i, /* 145 */
+ PARROT_OP_bxor_i_i_ic, /* 146 */
+ PARROT_OP_eq_i_i_ic, /* 147 */
+ PARROT_OP_eq_ic_i_ic, /* 148 */
+ PARROT_OP_eq_i_ic_ic, /* 149 */
+ PARROT_OP_eq_n_n_ic, /* 150 */
+ PARROT_OP_eq_nc_n_ic, /* 151 */
+ PARROT_OP_eq_n_nc_ic, /* 152 */
+ PARROT_OP_eq_s_s_ic, /* 153 */
+ PARROT_OP_eq_sc_s_ic, /* 154 */
+ PARROT_OP_eq_s_sc_ic, /* 155 */
+ PARROT_OP_eq_p_p_ic, /* 156 */
+ PARROT_OP_eq_p_i_ic, /* 157 */
+ PARROT_OP_eq_p_ic_ic, /* 158 */
+ PARROT_OP_eq_p_n_ic, /* 159 */
+ PARROT_OP_eq_p_nc_ic, /* 160 */
+ PARROT_OP_eq_p_s_ic, /* 161 */
+ PARROT_OP_eq_p_sc_ic, /* 162 */
+ PARROT_OP_eq_str_p_p_ic, /* 163 */
+ PARROT_OP_eq_num_p_p_ic, /* 164 */
+ PARROT_OP_eq_addr_s_s_ic, /* 165 */
+ PARROT_OP_eq_addr_sc_s_ic, /* 166 */
+ PARROT_OP_eq_addr_s_sc_ic, /* 167 */
+ PARROT_OP_eq_addr_sc_sc_ic, /* 168 */
+ PARROT_OP_eq_addr_p_p_ic, /* 169 */
+ PARROT_OP_ne_i_i_ic, /* 170 */
+ PARROT_OP_ne_ic_i_ic, /* 171 */
+ PARROT_OP_ne_i_ic_ic, /* 172 */
+ PARROT_OP_ne_n_n_ic, /* 173 */
+ PARROT_OP_ne_nc_n_ic, /* 174 */
+ PARROT_OP_ne_n_nc_ic, /* 175 */
+ PARROT_OP_ne_s_s_ic, /* 176 */
+ PARROT_OP_ne_sc_s_ic, /* 177 */
+ PARROT_OP_ne_s_sc_ic, /* 178 */
+ PARROT_OP_ne_p_p_ic, /* 179 */
+ PARROT_OP_ne_p_i_ic, /* 180 */
+ PARROT_OP_ne_p_ic_ic, /* 181 */
+ PARROT_OP_ne_p_n_ic, /* 182 */
+ PARROT_OP_ne_p_nc_ic, /* 183 */
+ PARROT_OP_ne_p_s_ic, /* 184 */
+ PARROT_OP_ne_p_sc_ic, /* 185 */
+ PARROT_OP_ne_str_p_p_ic, /* 186 */
+ PARROT_OP_ne_num_p_p_ic, /* 187 */
+ PARROT_OP_ne_addr_s_s_ic, /* 188 */
+ PARROT_OP_ne_addr_sc_s_ic, /* 189 */
+ PARROT_OP_ne_addr_s_sc_ic, /* 190 */
+ PARROT_OP_ne_addr_sc_sc_ic, /* 191 */
+ PARROT_OP_ne_addr_p_p_ic, /* 192 */
+ PARROT_OP_lt_i_i_ic, /* 193 */
+ PARROT_OP_lt_ic_i_ic, /* 194 */
+ PARROT_OP_lt_i_ic_ic, /* 195 */
+ PARROT_OP_lt_n_n_ic, /* 196 */
+ PARROT_OP_lt_nc_n_ic, /* 197 */
+ PARROT_OP_lt_n_nc_ic, /* 198 */
+ PARROT_OP_lt_s_s_ic, /* 199 */
+ PARROT_OP_lt_sc_s_ic, /* 200 */
+ PARROT_OP_lt_s_sc_ic, /* 201 */
+ PARROT_OP_lt_p_p_ic, /* 202 */
+ PARROT_OP_lt_p_i_ic, /* 203 */
+ PARROT_OP_lt_p_ic_ic, /* 204 */
+ PARROT_OP_lt_p_n_ic, /* 205 */
+ PARROT_OP_lt_p_nc_ic, /* 206 */
+ PARROT_OP_lt_p_s_ic, /* 207 */
+ PARROT_OP_lt_p_sc_ic, /* 208 */
+ PARROT_OP_lt_str_p_p_ic, /* 209 */
+ PARROT_OP_lt_num_p_p_ic, /* 210 */
+ PARROT_OP_le_i_i_ic, /* 211 */
+ PARROT_OP_le_ic_i_ic, /* 212 */
+ PARROT_OP_le_i_ic_ic, /* 213 */
+ PARROT_OP_le_n_n_ic, /* 214 */
+ PARROT_OP_le_nc_n_ic, /* 215 */
+ PARROT_OP_le_n_nc_ic, /* 216 */
+ PARROT_OP_le_s_s_ic, /* 217 */
+ PARROT_OP_le_sc_s_ic, /* 218 */
+ PARROT_OP_le_s_sc_ic, /* 219 */
+ PARROT_OP_le_p_p_ic, /* 220 */
+ PARROT_OP_le_p_i_ic, /* 221 */
+ PARROT_OP_le_p_ic_ic, /* 222 */
+ PARROT_OP_le_p_n_ic, /* 223 */
+ PARROT_OP_le_p_nc_ic, /* 224 */
+ PARROT_OP_le_p_s_ic, /* 225 */
+ PARROT_OP_le_p_sc_ic, /* 226 */
+ PARROT_OP_le_str_p_p_ic, /* 227 */
+ PARROT_OP_le_num_p_p_ic, /* 228 */
+ PARROT_OP_gt_p_p_ic, /* 229 */
+ PARROT_OP_gt_p_i_ic, /* 230 */
+ PARROT_OP_gt_p_ic_ic, /* 231 */
+ PARROT_OP_gt_p_n_ic, /* 232 */
+ PARROT_OP_gt_p_nc_ic, /* 233 */
+ PARROT_OP_gt_p_s_ic, /* 234 */
+ PARROT_OP_gt_p_sc_ic, /* 235 */
+ PARROT_OP_gt_str_p_p_ic, /* 236 */
+ PARROT_OP_gt_num_p_p_ic, /* 237 */
+ PARROT_OP_ge_p_p_ic, /* 238 */
+ PARROT_OP_ge_p_i_ic, /* 239 */
+ PARROT_OP_ge_p_ic_ic, /* 240 */
+ PARROT_OP_ge_p_n_ic, /* 241 */
+ PARROT_OP_ge_p_nc_ic, /* 242 */
+ PARROT_OP_ge_p_s_ic, /* 243 */
+ PARROT_OP_ge_p_sc_ic, /* 244 */
+ PARROT_OP_ge_str_p_p_ic, /* 245 */
+ PARROT_OP_ge_num_p_p_ic, /* 246 */
+ PARROT_OP_if_null_p_ic, /* 247 */
+ PARROT_OP_if_null_s_ic, /* 248 */
+ PARROT_OP_unless_null_p_ic, /* 249 */
+ PARROT_OP_unless_null_s_ic, /* 250 */
+ PARROT_OP_cmp_i_i_i, /* 251 */
+ PARROT_OP_cmp_i_ic_i, /* 252 */
+ PARROT_OP_cmp_i_i_ic, /* 253 */
+ PARROT_OP_cmp_i_n_n, /* 254 */
+ PARROT_OP_cmp_i_nc_n, /* 255 */
+ PARROT_OP_cmp_i_n_nc, /* 256 */
+ PARROT_OP_cmp_i_s_s, /* 257 */
+ PARROT_OP_cmp_i_sc_s, /* 258 */
+ PARROT_OP_cmp_i_s_sc, /* 259 */
+ PARROT_OP_cmp_i_p_p, /* 260 */
+ PARROT_OP_cmp_i_p_i, /* 261 */
+ PARROT_OP_cmp_i_p_ic, /* 262 */
+ PARROT_OP_cmp_i_p_n, /* 263 */
+ PARROT_OP_cmp_i_p_nc, /* 264 */
+ PARROT_OP_cmp_i_p_s, /* 265 */
+ PARROT_OP_cmp_i_p_sc, /* 266 */
+ PARROT_OP_cmp_str_i_p_p, /* 267 */
+ PARROT_OP_cmp_num_i_p_p, /* 268 */
+ PARROT_OP_cmp_pmc_p_p_p, /* 269 */
+ PARROT_OP_issame_i_p_p, /* 270 */
+ PARROT_OP_issame_i_s_s, /* 271 */
+ PARROT_OP_issame_i_sc_s, /* 272 */
+ PARROT_OP_issame_i_s_sc, /* 273 */
+ PARROT_OP_issame_i_sc_sc, /* 274 */
+ PARROT_OP_isntsame_i_p_p, /* 275 */
+ PARROT_OP_isntsame_i_s_s, /* 276 */
+ PARROT_OP_isntsame_i_sc_s, /* 277 */
+ PARROT_OP_isntsame_i_s_sc, /* 278 */
+ PARROT_OP_isntsame_i_sc_sc, /* 279 */
+ PARROT_OP_istrue_i_p, /* 280 */
+ PARROT_OP_isfalse_i_p, /* 281 */
+ PARROT_OP_isnull_i_p, /* 282 */
+ PARROT_OP_isnull_i_pc, /* 283 */
+ PARROT_OP_isnull_i_s, /* 284 */
+ PARROT_OP_isnull_i_sc, /* 285 */
+ PARROT_OP_isgt_i_p_p, /* 286 */
+ PARROT_OP_isge_i_p_p, /* 287 */
+ PARROT_OP_isle_i_i_i, /* 288 */
+ PARROT_OP_isle_i_ic_i, /* 289 */
+ PARROT_OP_isle_i_i_ic, /* 290 */
+ PARROT_OP_isle_i_n_n, /* 291 */
+ PARROT_OP_isle_i_nc_n, /* 292 */
+ PARROT_OP_isle_i_n_nc, /* 293 */
+ PARROT_OP_isle_i_s_s, /* 294 */
+ PARROT_OP_isle_i_sc_s, /* 295 */
+ PARROT_OP_isle_i_s_sc, /* 296 */
+ PARROT_OP_isle_i_p_p, /* 297 */
+ PARROT_OP_islt_i_i_i, /* 298 */
+ PARROT_OP_islt_i_ic_i, /* 299 */
+ PARROT_OP_islt_i_i_ic, /* 300 */
+ PARROT_OP_islt_i_n_n, /* 301 */
+ PARROT_OP_islt_i_nc_n, /* 302 */
+ PARROT_OP_islt_i_n_nc, /* 303 */
+ PARROT_OP_islt_i_s_s, /* 304 */
+ PARROT_OP_islt_i_sc_s, /* 305 */
+ PARROT_OP_islt_i_s_sc, /* 306 */
+ PARROT_OP_islt_i_p_p, /* 307 */
+ PARROT_OP_iseq_i_i_i, /* 308 */
+ PARROT_OP_iseq_i_ic_i, /* 309 */
+ PARROT_OP_iseq_i_i_ic, /* 310 */
+ PARROT_OP_iseq_i_n_n, /* 311 */
+ PARROT_OP_iseq_i_nc_n, /* 312 */
+ PARROT_OP_iseq_i_n_nc, /* 313 */
+ PARROT_OP_iseq_i_s_s, /* 314 */
+ PARROT_OP_iseq_i_sc_s, /* 315 */
+ PARROT_OP_iseq_i_s_sc, /* 316 */
+ PARROT_OP_iseq_i_p_p, /* 317 */
+ PARROT_OP_isne_i_i_i, /* 318 */
+ PARROT_OP_isne_i_ic_i, /* 319 */
+ PARROT_OP_isne_i_i_ic, /* 320 */
+ PARROT_OP_isne_i_n_n, /* 321 */
+ PARROT_OP_isne_i_nc_n, /* 322 */
+ PARROT_OP_isne_i_n_nc, /* 323 */
+ PARROT_OP_isne_i_s_s, /* 324 */
+ PARROT_OP_isne_i_sc_s, /* 325 */
+ PARROT_OP_isne_i_s_sc, /* 326 */
+ PARROT_OP_isne_i_p_p, /* 327 */
+ PARROT_OP_and_i_i_i, /* 328 */
+ PARROT_OP_and_i_ic_i, /* 329 */
+ PARROT_OP_and_i_i_ic, /* 330 */
+ PARROT_OP_and_p_p_p, /* 331 */
+ PARROT_OP_not_i, /* 332 */
+ PARROT_OP_not_i_i, /* 333 */
+ PARROT_OP_not_p, /* 334 */
+ PARROT_OP_not_p_p, /* 335 */
+ PARROT_OP_or_i_i_i, /* 336 */
+ PARROT_OP_or_i_ic_i, /* 337 */
+ PARROT_OP_or_i_i_ic, /* 338 */
+ PARROT_OP_or_p_p_p, /* 339 */
+ PARROT_OP_xor_i_i_i, /* 340 */
+ PARROT_OP_xor_i_ic_i, /* 341 */
+ PARROT_OP_xor_i_i_ic, /* 342 */
+ PARROT_OP_xor_p_p_p, /* 343 */
+ PARROT_OP_print_i, /* 344 */
+ PARROT_OP_print_ic, /* 345 */
+ PARROT_OP_print_n, /* 346 */
+ PARROT_OP_print_nc, /* 347 */
+ PARROT_OP_print_s, /* 348 */
+ PARROT_OP_print_sc, /* 349 */
+ PARROT_OP_print_p, /* 350 */
+ PARROT_OP_say_i, /* 351 */
+ PARROT_OP_say_ic, /* 352 */
+ PARROT_OP_say_n, /* 353 */
+ PARROT_OP_say_nc, /* 354 */
+ PARROT_OP_say_s, /* 355 */
+ PARROT_OP_say_sc, /* 356 */
+ PARROT_OP_say_p, /* 357 */
+ PARROT_OP_print_p_i, /* 358 */
+ PARROT_OP_print_p_ic, /* 359 */
+ PARROT_OP_print_p_n, /* 360 */
+ PARROT_OP_print_p_nc, /* 361 */
+ PARROT_OP_print_p_s, /* 362 */
+ PARROT_OP_print_p_sc, /* 363 */
+ PARROT_OP_print_p_p, /* 364 */
+ PARROT_OP_abs_i, /* 365 */
+ PARROT_OP_abs_n, /* 366 */
+ PARROT_OP_abs_i_i, /* 367 */
+ PARROT_OP_abs_n_n, /* 368 */
+ PARROT_OP_abs_p, /* 369 */
+ PARROT_OP_abs_p_p, /* 370 */
+ PARROT_OP_add_i_i, /* 371 */
+ PARROT_OP_add_i_ic, /* 372 */
+ PARROT_OP_add_n_n, /* 373 */
+ PARROT_OP_add_n_nc, /* 374 */
+ PARROT_OP_add_p_p, /* 375 */
+ PARROT_OP_add_p_i, /* 376 */
+ PARROT_OP_add_p_ic, /* 377 */
+ PARROT_OP_add_p_n, /* 378 */
+ PARROT_OP_add_p_nc, /* 379 */
+ PARROT_OP_add_i_i_i, /* 380 */
+ PARROT_OP_add_i_ic_i, /* 381 */
+ PARROT_OP_add_i_i_ic, /* 382 */
+ PARROT_OP_add_n_n_n, /* 383 */
+ PARROT_OP_add_n_nc_n, /* 384 */
+ PARROT_OP_add_n_n_nc, /* 385 */
+ PARROT_OP_add_p_p_p, /* 386 */
+ PARROT_OP_add_p_p_i, /* 387 */
+ PARROT_OP_add_p_p_ic, /* 388 */
+ PARROT_OP_add_p_p_n, /* 389 */
+ PARROT_OP_add_p_p_nc, /* 390 */
+ PARROT_OP_dec_i, /* 391 */
+ PARROT_OP_dec_n, /* 392 */
+ PARROT_OP_dec_p, /* 393 */
+ PARROT_OP_div_i_i, /* 394 */
+ PARROT_OP_div_i_ic, /* 395 */
+ PARROT_OP_div_n_n, /* 396 */
+ PARROT_OP_div_n_nc, /* 397 */
+ PARROT_OP_div_p_p, /* 398 */
+ PARROT_OP_div_p_i, /* 399 */
+ PARROT_OP_div_p_ic, /* 400 */
+ PARROT_OP_div_p_n, /* 401 */
+ PARROT_OP_div_p_nc, /* 402 */
+ PARROT_OP_div_i_i_i, /* 403 */
+ PARROT_OP_div_i_ic_i, /* 404 */
+ PARROT_OP_div_i_i_ic, /* 405 */
+ PARROT_OP_div_i_ic_ic, /* 406 */
+ PARROT_OP_div_n_n_n, /* 407 */
+ PARROT_OP_div_n_nc_n, /* 408 */
+ PARROT_OP_div_n_n_nc, /* 409 */
+ PARROT_OP_div_n_nc_nc, /* 410 */
+ PARROT_OP_div_p_p_p, /* 411 */
+ PARROT_OP_div_p_p_i, /* 412 */
+ PARROT_OP_div_p_p_ic, /* 413 */
+ PARROT_OP_div_p_p_n, /* 414 */
+ PARROT_OP_div_p_p_nc, /* 415 */
+ PARROT_OP_fdiv_i_i, /* 416 */
+ PARROT_OP_fdiv_i_ic, /* 417 */
+ PARROT_OP_fdiv_n_n, /* 418 */
+ PARROT_OP_fdiv_n_nc, /* 419 */
+ PARROT_OP_fdiv_p_p, /* 420 */
+ PARROT_OP_fdiv_p_i, /* 421 */
+ PARROT_OP_fdiv_p_ic, /* 422 */
+ PARROT_OP_fdiv_p_n, /* 423 */
+ PARROT_OP_fdiv_p_nc, /* 424 */
+ PARROT_OP_fdiv_i_i_i, /* 425 */
+ PARROT_OP_fdiv_i_ic_i, /* 426 */
+ PARROT_OP_fdiv_i_i_ic, /* 427 */
+ PARROT_OP_fdiv_n_n_n, /* 428 */
+ PARROT_OP_fdiv_n_nc_n, /* 429 */
+ PARROT_OP_fdiv_n_n_nc, /* 430 */
+ PARROT_OP_fdiv_p_p_p, /* 431 */
+ PARROT_OP_fdiv_p_p_i, /* 432 */
+ PARROT_OP_fdiv_p_p_ic, /* 433 */
+ PARROT_OP_fdiv_p_p_n, /* 434 */
+ PARROT_OP_fdiv_p_p_nc, /* 435 */
+ PARROT_OP_ceil_n, /* 436 */
+ PARROT_OP_ceil_i_n, /* 437 */
+ PARROT_OP_ceil_n_n, /* 438 */
+ PARROT_OP_floor_n, /* 439 */
+ PARROT_OP_floor_i_n, /* 440 */
+ PARROT_OP_floor_n_n, /* 441 */
+ PARROT_OP_inc_i, /* 442 */
+ PARROT_OP_inc_n, /* 443 */
+ PARROT_OP_inc_p, /* 444 */
+ PARROT_OP_mod_i_i, /* 445 */
+ PARROT_OP_mod_i_ic, /* 446 */
+ PARROT_OP_mod_n_n, /* 447 */
+ PARROT_OP_mod_n_nc, /* 448 */
+ PARROT_OP_mod_p_p, /* 449 */
+ PARROT_OP_mod_p_i, /* 450 */
+ PARROT_OP_mod_p_ic, /* 451 */
+ PARROT_OP_mod_p_n, /* 452 */
+ PARROT_OP_mod_p_nc, /* 453 */
+ PARROT_OP_mod_i_i_i, /* 454 */
+ PARROT_OP_mod_i_ic_i, /* 455 */
+ PARROT_OP_mod_i_i_ic, /* 456 */
+ PARROT_OP_mod_n_n_n, /* 457 */
+ PARROT_OP_mod_n_nc_n, /* 458 */
+ PARROT_OP_mod_n_n_nc, /* 459 */
+ PARROT_OP_mod_p_p_p, /* 460 */
+ PARROT_OP_mod_p_p_i, /* 461 */
+ PARROT_OP_mod_p_p_ic, /* 462 */
+ PARROT_OP_mod_p_p_n, /* 463 */
+ PARROT_OP_mod_p_p_nc, /* 464 */
+ PARROT_OP_mul_i_i, /* 465 */
+ PARROT_OP_mul_i_ic, /* 466 */
+ PARROT_OP_mul_n_n, /* 467 */
+ PARROT_OP_mul_n_nc, /* 468 */
+ PARROT_OP_mul_p_p, /* 469 */
+ PARROT_OP_mul_p_i, /* 470 */
+ PARROT_OP_mul_p_ic, /* 471 */
+ PARROT_OP_mul_p_n, /* 472 */
+ PARROT_OP_mul_p_nc, /* 473 */
+ PARROT_OP_mul_i_i_i, /* 474 */
+ PARROT_OP_mul_i_ic_i, /* 475 */
+ PARROT_OP_mul_i_i_ic, /* 476 */
+ PARROT_OP_mul_n_n_n, /* 477 */
+ PARROT_OP_mul_n_nc_n, /* 478 */
+ PARROT_OP_mul_n_n_nc, /* 479 */
+ PARROT_OP_mul_p_p_p, /* 480 */
+ PARROT_OP_mul_p_p_i, /* 481 */
+ PARROT_OP_mul_p_p_ic, /* 482 */
+ PARROT_OP_mul_p_p_n, /* 483 */
+ PARROT_OP_mul_p_p_nc, /* 484 */
+ PARROT_OP_neg_i, /* 485 */
+ PARROT_OP_neg_n, /* 486 */
+ PARROT_OP_neg_p, /* 487 */
+ PARROT_OP_neg_i_i, /* 488 */
+ PARROT_OP_neg_n_n, /* 489 */
+ PARROT_OP_neg_p_p, /* 490 */
+ PARROT_OP_sub_i_i, /* 491 */
+ PARROT_OP_sub_i_ic, /* 492 */
+ PARROT_OP_sub_n_n, /* 493 */
+ PARROT_OP_sub_n_nc, /* 494 */
+ PARROT_OP_sub_p_p, /* 495 */
+ PARROT_OP_sub_p_i, /* 496 */
+ PARROT_OP_sub_p_ic, /* 497 */
+ PARROT_OP_sub_p_n, /* 498 */
+ PARROT_OP_sub_p_nc, /* 499 */
+ PARROT_OP_sub_i_i_i, /* 500 */
+ PARROT_OP_sub_i_ic_i, /* 501 */
+ PARROT_OP_sub_i_i_ic, /* 502 */
+ PARROT_OP_sub_n_n_n, /* 503 */
+ PARROT_OP_sub_n_nc_n, /* 504 */
+ PARROT_OP_sub_n_n_nc, /* 505 */
+ PARROT_OP_sub_p_p_p, /* 506 */
+ PARROT_OP_sub_p_p_i, /* 507 */
+ PARROT_OP_sub_p_p_ic, /* 508 */
+ PARROT_OP_sub_p_p_n, /* 509 */
+ PARROT_OP_sub_p_p_nc, /* 510 */
+ PARROT_OP_sqrt_n_n, /* 511 */
+ PARROT_OP_callmethodcc_p_s, /* 512 */
+ PARROT_OP_callmethodcc_p_sc, /* 513 */
+ PARROT_OP_callmethodcc_p_p, /* 514 */
+ PARROT_OP_callmethod_p_s_p, /* 515 */
+ PARROT_OP_callmethod_p_sc_p, /* 516 */
+ PARROT_OP_callmethod_p_p_p, /* 517 */
+ PARROT_OP_tailcallmethod_p_s, /* 518 */
+ PARROT_OP_tailcallmethod_p_sc, /* 519 */
+ PARROT_OP_tailcallmethod_p_p, /* 520 */
+ PARROT_OP_addmethod_p_s_p, /* 521 */
+ PARROT_OP_addmethod_p_sc_p, /* 522 */
+ PARROT_OP_can_i_p_s, /* 523 */
+ PARROT_OP_can_i_p_sc, /* 524 */
+ PARROT_OP_does_i_p_s, /* 525 */
+ PARROT_OP_does_i_p_sc, /* 526 */
+ PARROT_OP_does_i_p_p, /* 527 */
+ PARROT_OP_does_i_p_pc, /* 528 */
+ PARROT_OP_isa_i_p_s, /* 529 */
+ PARROT_OP_isa_i_p_sc, /* 530 */
+ PARROT_OP_isa_i_p_p, /* 531 */
+ PARROT_OP_isa_i_p_pc, /* 532 */
+ PARROT_OP_newclass_p_s, /* 533 */
+ PARROT_OP_newclass_p_sc, /* 534 */
+ PARROT_OP_newclass_p_p, /* 535 */
+ PARROT_OP_newclass_p_pc, /* 536 */
+ PARROT_OP_subclass_p_p, /* 537 */
+ PARROT_OP_subclass_p_pc, /* 538 */
+ PARROT_OP_subclass_p_p_s, /* 539 */
+ PARROT_OP_subclass_p_pc_s, /* 540 */
+ PARROT_OP_subclass_p_p_sc, /* 541 */
+ PARROT_OP_subclass_p_pc_sc, /* 542 */
+ PARROT_OP_subclass_p_p_p, /* 543 */
+ PARROT_OP_subclass_p_pc_p, /* 544 */
+ PARROT_OP_subclass_p_p_pc, /* 545 */
+ PARROT_OP_subclass_p_pc_pc, /* 546 */
+ PARROT_OP_subclass_p_s, /* 547 */
+ PARROT_OP_subclass_p_sc, /* 548 */
+ PARROT_OP_subclass_p_s_s, /* 549 */
+ PARROT_OP_subclass_p_sc_s, /* 550 */
+ PARROT_OP_subclass_p_s_sc, /* 551 */
+ PARROT_OP_subclass_p_sc_sc, /* 552 */
+ PARROT_OP_subclass_p_s_p, /* 553 */
+ PARROT_OP_subclass_p_sc_p, /* 554 */
+ PARROT_OP_subclass_p_s_pc, /* 555 */
+ PARROT_OP_subclass_p_sc_pc, /* 556 */
+ PARROT_OP_get_class_p_s, /* 557 */
+ PARROT_OP_get_class_p_sc, /* 558 */
+ PARROT_OP_get_class_p_p, /* 559 */
+ PARROT_OP_get_class_p_pc, /* 560 */
+ PARROT_OP_class_p_p, /* 561 */
+ PARROT_OP_addparent_p_p, /* 562 */
+ PARROT_OP_removeparent_p_p, /* 563 */
+ PARROT_OP_addrole_p_p, /* 564 */
+ PARROT_OP_addattribute_p_s, /* 565 */
+ PARROT_OP_addattribute_p_sc, /* 566 */
+ PARROT_OP_removeattribute_p_s, /* 567 */
+ PARROT_OP_removeattribute_p_sc, /* 568 */
+ PARROT_OP_getattribute_p_p_s, /* 569 */
+ PARROT_OP_getattribute_p_p_sc, /* 570 */
+ PARROT_OP_getattribute_p_p_p_s, /* 571 */
+ PARROT_OP_getattribute_p_p_pc_s, /* 572 */
+ PARROT_OP_getattribute_p_p_p_sc, /* 573 */
+ PARROT_OP_getattribute_p_p_pc_sc, /* 574 */
+ PARROT_OP_setattribute_p_s_p, /* 575 */
+ PARROT_OP_setattribute_p_sc_p, /* 576 */
+ PARROT_OP_setattribute_p_p_s_p, /* 577 */
+ PARROT_OP_setattribute_p_pc_s_p, /* 578 */
+ PARROT_OP_setattribute_p_p_sc_p, /* 579 */
+ PARROT_OP_setattribute_p_pc_sc_p, /* 580 */
+ PARROT_OP_inspect_p_p, /* 581 */
+ PARROT_OP_inspect_p_pc, /* 582 */
+ PARROT_OP_inspect_p_p_s, /* 583 */
+ PARROT_OP_inspect_p_pc_s, /* 584 */
+ PARROT_OP_inspect_p_p_sc, /* 585 */
+ PARROT_OP_inspect_p_pc_sc, /* 586 */
+ PARROT_OP_new_p_s, /* 587 */
+ PARROT_OP_new_p_sc, /* 588 */
+ PARROT_OP_new_p_s_p, /* 589 */
+ PARROT_OP_new_p_sc_p, /* 590 */
+ PARROT_OP_new_p_s_pc, /* 591 */
+ PARROT_OP_new_p_sc_pc, /* 592 */
+ PARROT_OP_new_p_p, /* 593 */
+ PARROT_OP_new_p_pc, /* 594 */
+ PARROT_OP_new_p_p_p, /* 595 */
+ PARROT_OP_new_p_pc_p, /* 596 */
+ PARROT_OP_new_p_p_pc, /* 597 */
+ PARROT_OP_new_p_pc_pc, /* 598 */
+ PARROT_OP_root_new_p_p, /* 599 */
+ PARROT_OP_root_new_p_pc, /* 600 */
+ PARROT_OP_root_new_p_p_p, /* 601 */
+ PARROT_OP_root_new_p_pc_p, /* 602 */
+ PARROT_OP_root_new_p_p_pc, /* 603 */
+ PARROT_OP_root_new_p_pc_pc, /* 604 */
+ PARROT_OP_typeof_s_p, /* 605 */
+ PARROT_OP_typeof_p_p, /* 606 */
+ PARROT_OP_get_repr_s_p, /* 607 */
+ PARROT_OP_find_method_p_p_s, /* 608 */
+ PARROT_OP_find_method_p_p_sc, /* 609 */
+ PARROT_OP_defined_i_p, /* 610 */
+ PARROT_OP_defined_i_p_ki, /* 611 */
+ PARROT_OP_defined_i_p_kic, /* 612 */
+ PARROT_OP_defined_i_p_k, /* 613 */
+ PARROT_OP_defined_i_p_kc, /* 614 */
+ PARROT_OP_exists_i_p_ki, /* 615 */
+ PARROT_OP_exists_i_p_kic, /* 616 */
+ PARROT_OP_exists_i_p_k, /* 617 */
+ PARROT_OP_exists_i_p_kc, /* 618 */
+ PARROT_OP_delete_p_k, /* 619 */
+ PARROT_OP_delete_p_kc, /* 620 */
+ PARROT_OP_delete_p_ki, /* 621 */
+ PARROT_OP_delete_p_kic, /* 622 */
+ PARROT_OP_elements_i_p, /* 623 */
+ PARROT_OP_push_p_i, /* 624 */
+ PARROT_OP_push_p_ic, /* 625 */
+ PARROT_OP_push_p_n, /* 626 */
+ PARROT_OP_push_p_nc, /* 627 */
+ PARROT_OP_push_p_s, /* 628 */
+ PARROT_OP_push_p_sc, /* 629 */
+ PARROT_OP_push_p_p, /* 630 */
+ PARROT_OP_pop_i_p, /* 631 */
+ PARROT_OP_pop_n_p, /* 632 */
+ PARROT_OP_pop_s_p, /* 633 */
+ PARROT_OP_pop_p_p, /* 634 */
+ PARROT_OP_unshift_p_i, /* 635 */
+ PARROT_OP_unshift_p_ic, /* 636 */
+ PARROT_OP_unshift_p_n, /* 637 */
+ PARROT_OP_unshift_p_nc, /* 638 */
+ PARROT_OP_unshift_p_s, /* 639 */
+ PARROT_OP_unshift_p_sc, /* 640 */
+ PARROT_OP_unshift_p_p, /* 641 */
+ PARROT_OP_shift_i_p, /* 642 */
+ PARROT_OP_shift_n_p, /* 643 */
+ PARROT_OP_shift_s_p, /* 644 */
+ PARROT_OP_shift_p_p, /* 645 */
+ PARROT_OP_splice_p_p_i_i, /* 646 */
+ PARROT_OP_splice_p_p_ic_i, /* 647 */
+ PARROT_OP_splice_p_p_i_ic, /* 648 */
+ PARROT_OP_splice_p_p_ic_ic, /* 649 */
+ PARROT_OP_setprop_p_s_p, /* 650 */
+ PARROT_OP_setprop_p_sc_p, /* 651 */
+ PARROT_OP_getprop_p_s_p, /* 652 */
+ PARROT_OP_getprop_p_sc_p, /* 653 */
+ PARROT_OP_delprop_p_s, /* 654 */
+ PARROT_OP_delprop_p_sc, /* 655 */
+ PARROT_OP_prophash_p_p, /* 656 */
+ PARROT_OP_freeze_s_p, /* 657 */
+ PARROT_OP_thaw_p_s, /* 658 */
+ PARROT_OP_thaw_p_sc, /* 659 */
+ PARROT_OP_add_multi_s_s_p, /* 660 */
+ PARROT_OP_add_multi_sc_s_p, /* 661 */
+ PARROT_OP_add_multi_s_sc_p, /* 662 */
+ PARROT_OP_add_multi_sc_sc_p, /* 663 */
+ PARROT_OP_find_multi_p_s_s, /* 664 */
+ PARROT_OP_find_multi_p_sc_s, /* 665 */
+ PARROT_OP_find_multi_p_s_sc, /* 666 */
+ PARROT_OP_find_multi_p_sc_sc, /* 667 */
+ PARROT_OP_register_p, /* 668 */
+ PARROT_OP_unregister_p, /* 669 */
+ PARROT_OP_box_p_i, /* 670 */
+ PARROT_OP_box_p_ic, /* 671 */
+ PARROT_OP_box_p_n, /* 672 */
+ PARROT_OP_box_p_nc, /* 673 */
+ PARROT_OP_box_p_s, /* 674 */
+ PARROT_OP_box_p_sc, /* 675 */
+ PARROT_OP_iter_p_p, /* 676 */
+ PARROT_OP_morph_p_p, /* 677 */
+ PARROT_OP_morph_p_pc, /* 678 */
+ PARROT_OP_clone_s_s, /* 679 */
+ PARROT_OP_clone_s_sc, /* 680 */
+ PARROT_OP_set_i_i, /* 681 */
+ PARROT_OP_set_i_ic, /* 682 */
+ PARROT_OP_set_i_n, /* 683 */
+ PARROT_OP_set_i_nc, /* 684 */
+ PARROT_OP_set_i_s, /* 685 */
+ PARROT_OP_set_i_sc, /* 686 */
+ PARROT_OP_set_n_n, /* 687 */
+ PARROT_OP_set_n_nc, /* 688 */
+ PARROT_OP_set_n_i, /* 689 */
+ PARROT_OP_set_n_ic, /* 690 */
+ PARROT_OP_set_n_s, /* 691 */
+ PARROT_OP_set_n_sc, /* 692 */
+ PARROT_OP_set_n_p, /* 693 */
+ PARROT_OP_set_s_p, /* 694 */
+ PARROT_OP_set_s_s, /* 695 */
+ PARROT_OP_set_s_sc, /* 696 */
+ PARROT_OP_set_s_i, /* 697 */
+ PARROT_OP_set_s_ic, /* 698 */
+ PARROT_OP_set_s_n, /* 699 */
+ PARROT_OP_set_s_nc, /* 700 */
+ PARROT_OP_set_p_pc, /* 701 */
+ PARROT_OP_set_p_p, /* 702 */
+ PARROT_OP_set_p_i, /* 703 */
+ PARROT_OP_set_p_ic, /* 704 */
+ PARROT_OP_set_p_n, /* 705 */
+ PARROT_OP_set_p_nc, /* 706 */
+ PARROT_OP_set_p_s, /* 707 */
+ PARROT_OP_set_p_sc, /* 708 */
+ PARROT_OP_set_i_p, /* 709 */
+ PARROT_OP_assign_p_p, /* 710 */
+ PARROT_OP_assign_p_i, /* 711 */
+ PARROT_OP_assign_p_ic, /* 712 */
+ PARROT_OP_assign_p_n, /* 713 */
+ PARROT_OP_assign_p_nc, /* 714 */
+ PARROT_OP_assign_p_s, /* 715 */
+ PARROT_OP_assign_p_sc, /* 716 */
+ PARROT_OP_assign_s_s, /* 717 */
+ PARROT_OP_assign_s_sc, /* 718 */
+ PARROT_OP_setref_p_p, /* 719 */
+ PARROT_OP_deref_p_p, /* 720 */
+ PARROT_OP_set_p_ki_i, /* 721 */
+ PARROT_OP_set_p_kic_i, /* 722 */
+ PARROT_OP_set_p_ki_ic, /* 723 */
+ PARROT_OP_set_p_kic_ic, /* 724 */
+ PARROT_OP_set_p_ki_n, /* 725 */
+ PARROT_OP_set_p_kic_n, /* 726 */
+ PARROT_OP_set_p_ki_nc, /* 727 */
+ PARROT_OP_set_p_kic_nc, /* 728 */
+ PARROT_OP_set_p_ki_s, /* 729 */
+ PARROT_OP_set_p_kic_s, /* 730 */
+ PARROT_OP_set_p_ki_sc, /* 731 */
+ PARROT_OP_set_p_kic_sc, /* 732 */
+ PARROT_OP_set_p_ki_p, /* 733 */
+ PARROT_OP_set_p_kic_p, /* 734 */
+ PARROT_OP_set_i_p_ki, /* 735 */
+ PARROT_OP_set_i_p_kic, /* 736 */
+ PARROT_OP_set_n_p_ki, /* 737 */
+ PARROT_OP_set_n_p_kic, /* 738 */
+ PARROT_OP_set_s_p_ki, /* 739 */
+ PARROT_OP_set_s_p_kic, /* 740 */
+ PARROT_OP_set_p_p_ki, /* 741 */
+ PARROT_OP_set_p_p_kic, /* 742 */
+ PARROT_OP_set_p_k_i, /* 743 */
+ PARROT_OP_set_p_kc_i, /* 744 */
+ PARROT_OP_set_p_k_ic, /* 745 */
+ PARROT_OP_set_p_kc_ic, /* 746 */
+ PARROT_OP_set_p_k_n, /* 747 */
+ PARROT_OP_set_p_kc_n, /* 748 */
+ PARROT_OP_set_p_k_nc, /* 749 */
+ PARROT_OP_set_p_kc_nc, /* 750 */
+ PARROT_OP_set_p_k_s, /* 751 */
+ PARROT_OP_set_p_kc_s, /* 752 */
+ PARROT_OP_set_p_k_sc, /* 753 */
+ PARROT_OP_set_p_kc_sc, /* 754 */
+ PARROT_OP_set_p_k_p, /* 755 */
+ PARROT_OP_set_p_kc_p, /* 756 */
+ PARROT_OP_set_i_p_k, /* 757 */
+ PARROT_OP_set_i_p_kc, /* 758 */
+ PARROT_OP_set_n_p_k, /* 759 */
+ PARROT_OP_set_n_p_kc, /* 760 */
+ PARROT_OP_set_s_p_k, /* 761 */
+ PARROT_OP_set_s_p_kc, /* 762 */
+ PARROT_OP_set_p_p_k, /* 763 */
+ PARROT_OP_set_p_p_kc, /* 764 */
+ PARROT_OP_clone_p_p, /* 765 */
+ PARROT_OP_clone_p_p_p, /* 766 */
+ PARROT_OP_clone_p_p_pc, /* 767 */
+ PARROT_OP_copy_p_p, /* 768 */
+ PARROT_OP_null_s, /* 769 */
+ PARROT_OP_null_i, /* 770 */
+ PARROT_OP_null_p, /* 771 */
+ PARROT_OP_null_n, /* 772 */
+ PARROT_OP_ord_i_s, /* 773 */
+ PARROT_OP_ord_i_sc, /* 774 */
+ PARROT_OP_ord_i_s_i, /* 775 */
+ PARROT_OP_ord_i_sc_i, /* 776 */
+ PARROT_OP_ord_i_s_ic, /* 777 */
+ PARROT_OP_ord_i_sc_ic, /* 778 */
+ PARROT_OP_chr_s_i, /* 779 */
+ PARROT_OP_chr_s_ic, /* 780 */
+ PARROT_OP_chopn_s_s_i, /* 781 */
+ PARROT_OP_chopn_s_sc_i, /* 782 */
+ PARROT_OP_chopn_s_s_ic, /* 783 */
+ PARROT_OP_chopn_s_sc_ic, /* 784 */
+ PARROT_OP_concat_s_s, /* 785 */
+ PARROT_OP_concat_s_sc, /* 786 */
+ PARROT_OP_concat_p_p, /* 787 */
+ PARROT_OP_concat_p_s, /* 788 */
+ PARROT_OP_concat_p_sc, /* 789 */
+ PARROT_OP_concat_s_s_s, /* 790 */
+ PARROT_OP_concat_s_sc_s, /* 791 */
+ PARROT_OP_concat_s_s_sc, /* 792 */
+ PARROT_OP_concat_p_p_s, /* 793 */
+ PARROT_OP_concat_p_p_sc, /* 794 */
+ PARROT_OP_concat_p_p_p, /* 795 */
+ PARROT_OP_repeat_s_s_i, /* 796 */
+ PARROT_OP_repeat_s_sc_i, /* 797 */
+ PARROT_OP_repeat_s_s_ic, /* 798 */
+ PARROT_OP_repeat_s_sc_ic, /* 799 */
+ PARROT_OP_repeat_p_p_i, /* 800 */
+ PARROT_OP_repeat_p_p_ic, /* 801 */
+ PARROT_OP_repeat_p_p_p, /* 802 */
+ PARROT_OP_repeat_p_i, /* 803 */
+ PARROT_OP_repeat_p_ic, /* 804 */
+ PARROT_OP_repeat_p_p, /* 805 */
+ PARROT_OP_length_i_s, /* 806 */
+ PARROT_OP_length_i_sc, /* 807 */
+ PARROT_OP_bytelength_i_s, /* 808 */
+ PARROT_OP_bytelength_i_sc, /* 809 */
+ PARROT_OP_pin_s, /* 810 */
+ PARROT_OP_unpin_s, /* 811 */
+ PARROT_OP_substr_s_s_i, /* 812 */
+ PARROT_OP_substr_s_sc_i, /* 813 */
+ PARROT_OP_substr_s_s_ic, /* 814 */
+ PARROT_OP_substr_s_sc_ic, /* 815 */
+ PARROT_OP_substr_s_s_i_i, /* 816 */
+ PARROT_OP_substr_s_sc_i_i, /* 817 */
+ PARROT_OP_substr_s_s_ic_i, /* 818 */
+ PARROT_OP_substr_s_sc_ic_i, /* 819 */
+ PARROT_OP_substr_s_s_i_ic, /* 820 */
+ PARROT_OP_substr_s_sc_i_ic, /* 821 */
+ PARROT_OP_substr_s_s_ic_ic, /* 822 */
+ PARROT_OP_substr_s_sc_ic_ic, /* 823 */
+ PARROT_OP_substr_s_p_i_i, /* 824 */
+ PARROT_OP_substr_s_p_ic_i, /* 825 */
+ PARROT_OP_substr_s_p_i_ic, /* 826 */
+ PARROT_OP_substr_s_p_ic_ic, /* 827 */
+ PARROT_OP_replace_s_s_i_i_s, /* 828 */
+ PARROT_OP_replace_s_sc_i_i_s, /* 829 */
+ PARROT_OP_replace_s_s_ic_i_s, /* 830 */
+ PARROT_OP_replace_s_sc_ic_i_s, /* 831 */
+ PARROT_OP_replace_s_s_i_ic_s, /* 832 */
+ PARROT_OP_replace_s_sc_i_ic_s, /* 833 */
+ PARROT_OP_replace_s_s_ic_ic_s, /* 834 */
+ PARROT_OP_replace_s_sc_ic_ic_s, /* 835 */
+ PARROT_OP_replace_s_s_i_i_sc, /* 836 */
+ PARROT_OP_replace_s_sc_i_i_sc, /* 837 */
+ PARROT_OP_replace_s_s_ic_i_sc, /* 838 */
+ PARROT_OP_replace_s_sc_ic_i_sc, /* 839 */
+ PARROT_OP_replace_s_s_i_ic_sc, /* 840 */
+ PARROT_OP_replace_s_sc_i_ic_sc, /* 841 */
+ PARROT_OP_replace_s_s_ic_ic_sc, /* 842 */
+ PARROT_OP_replace_s_sc_ic_ic_sc, /* 843 */
+ PARROT_OP_index_i_s_s, /* 844 */
+ PARROT_OP_index_i_sc_s, /* 845 */
+ PARROT_OP_index_i_s_sc, /* 846 */
+ PARROT_OP_index_i_sc_sc, /* 847 */
+ PARROT_OP_index_i_s_s_i, /* 848 */
+ PARROT_OP_index_i_sc_s_i, /* 849 */
+ PARROT_OP_index_i_s_sc_i, /* 850 */
+ PARROT_OP_index_i_sc_sc_i, /* 851 */
+ PARROT_OP_index_i_s_s_ic, /* 852 */
+ PARROT_OP_index_i_sc_s_ic, /* 853 */
+ PARROT_OP_index_i_s_sc_ic, /* 854 */
+ PARROT_OP_index_i_sc_sc_ic, /* 855 */
+ PARROT_OP_sprintf_s_s_p, /* 856 */
+ PARROT_OP_sprintf_s_sc_p, /* 857 */
+ PARROT_OP_sprintf_p_p_p, /* 858 */
+ PARROT_OP_new_s, /* 859 */
+ PARROT_OP_new_s_i, /* 860 */
+ PARROT_OP_new_s_ic, /* 861 */
+ PARROT_OP_stringinfo_i_s_i, /* 862 */
+ PARROT_OP_stringinfo_i_sc_i, /* 863 */
+ PARROT_OP_stringinfo_i_s_ic, /* 864 */
+ PARROT_OP_stringinfo_i_sc_ic, /* 865 */
+ PARROT_OP_upcase_s_s, /* 866 */
+ PARROT_OP_upcase_s_sc, /* 867 */
+ PARROT_OP_downcase_s_s, /* 868 */
+ PARROT_OP_downcase_s_sc, /* 869 */
+ PARROT_OP_titlecase_s_s, /* 870 */
+ PARROT_OP_titlecase_s_sc, /* 871 */
+ PARROT_OP_join_s_s_p, /* 872 */
+ PARROT_OP_join_s_sc_p, /* 873 */
+ PARROT_OP_split_p_s_s, /* 874 */
+ PARROT_OP_split_p_sc_s, /* 875 */
+ PARROT_OP_split_p_s_sc, /* 876 */
+ PARROT_OP_split_p_sc_sc, /* 877 */
+ PARROT_OP_charset_i_s, /* 878 */
+ PARROT_OP_charset_i_sc, /* 879 */
+ PARROT_OP_charsetname_s_i, /* 880 */
+ PARROT_OP_charsetname_s_ic, /* 881 */
+ PARROT_OP_find_charset_i_s, /* 882 */
+ PARROT_OP_find_charset_i_sc, /* 883 */
+ PARROT_OP_trans_charset_s_s_i, /* 884 */
+ PARROT_OP_trans_charset_s_sc_i, /* 885 */
+ PARROT_OP_trans_charset_s_s_ic, /* 886 */
+ PARROT_OP_trans_charset_s_sc_ic, /* 887 */
+ PARROT_OP_encoding_i_s, /* 888 */
+ PARROT_OP_encoding_i_sc, /* 889 */
+ PARROT_OP_encodingname_s_i, /* 890 */
+ PARROT_OP_encodingname_s_ic, /* 891 */
+ PARROT_OP_find_encoding_i_s, /* 892 */
+ PARROT_OP_find_encoding_i_sc, /* 893 */
+ PARROT_OP_trans_encoding_s_s_i, /* 894 */
+ PARROT_OP_trans_encoding_s_sc_i, /* 895 */
+ PARROT_OP_trans_encoding_s_s_ic, /* 896 */
+ PARROT_OP_trans_encoding_s_sc_ic, /* 897 */
+ PARROT_OP_is_cclass_i_i_s_i, /* 898 */
+ PARROT_OP_is_cclass_i_ic_s_i, /* 899 */
+ PARROT_OP_is_cclass_i_i_sc_i, /* 900 */
+ PARROT_OP_is_cclass_i_ic_sc_i, /* 901 */
+ PARROT_OP_is_cclass_i_i_s_ic, /* 902 */
+ PARROT_OP_is_cclass_i_ic_s_ic, /* 903 */
+ PARROT_OP_is_cclass_i_i_sc_ic, /* 904 */
+ PARROT_OP_is_cclass_i_ic_sc_ic, /* 905 */
+ PARROT_OP_find_cclass_i_i_s_i_i, /* 906 */
+ PARROT_OP_find_cclass_i_ic_s_i_i, /* 907 */
+ PARROT_OP_find_cclass_i_i_sc_i_i, /* 908 */
+ PARROT_OP_find_cclass_i_ic_sc_i_i, /* 909 */
+ PARROT_OP_find_cclass_i_i_s_ic_i, /* 910 */
+ PARROT_OP_find_cclass_i_ic_s_ic_i, /* 911 */
+ PARROT_OP_find_cclass_i_i_sc_ic_i, /* 912 */
+ PARROT_OP_find_cclass_i_ic_sc_ic_i, /* 913 */
+ PARROT_OP_find_cclass_i_i_s_i_ic, /* 914 */
+ PARROT_OP_find_cclass_i_ic_s_i_ic, /* 915 */
+ PARROT_OP_find_cclass_i_i_sc_i_ic, /* 916 */
+ PARROT_OP_find_cclass_i_ic_sc_i_ic, /* 917 */
+ PARROT_OP_find_cclass_i_i_s_ic_ic, /* 918 */
+ PARROT_OP_find_cclass_i_ic_s_ic_ic, /* 919 */
+ PARROT_OP_find_cclass_i_i_sc_ic_ic, /* 920 */
+ PARROT_OP_find_cclass_i_ic_sc_ic_ic, /* 921 */
+ PARROT_OP_find_not_cclass_i_i_s_i_i, /* 922 */
+ PARROT_OP_find_not_cclass_i_ic_s_i_i, /* 923 */
+ PARROT_OP_find_not_cclass_i_i_sc_i_i, /* 924 */
+ PARROT_OP_find_not_cclass_i_ic_sc_i_i, /* 925 */
+ PARROT_OP_find_not_cclass_i_i_s_ic_i, /* 926 */
+ PARROT_OP_find_not_cclass_i_ic_s_ic_i, /* 927 */
+ PARROT_OP_find_not_cclass_i_i_sc_ic_i, /* 928 */
+ PARROT_OP_find_not_cclass_i_ic_sc_ic_i, /* 929 */
+ PARROT_OP_find_not_cclass_i_i_s_i_ic, /* 930 */
+ PARROT_OP_find_not_cclass_i_ic_s_i_ic, /* 931 */
+ PARROT_OP_find_not_cclass_i_i_sc_i_ic, /* 932 */
+ PARROT_OP_find_not_cclass_i_ic_sc_i_ic, /* 933 */
+ PARROT_OP_find_not_cclass_i_i_s_ic_ic, /* 934 */
+ PARROT_OP_find_not_cclass_i_ic_s_ic_ic, /* 935 */
+ PARROT_OP_find_not_cclass_i_i_sc_ic_ic, /* 936 */
+ PARROT_OP_find_not_cclass_i_ic_sc_ic_ic, /* 937 */
+ PARROT_OP_escape_s_s, /* 938 */
+ PARROT_OP_compose_s_s, /* 939 */
+ PARROT_OP_compose_s_sc, /* 940 */
+ PARROT_OP_spawnw_i_s, /* 941 */
+ PARROT_OP_spawnw_i_sc, /* 942 */
+ PARROT_OP_spawnw_i_p, /* 943 */
+ PARROT_OP_err_i, /* 944 */
+ PARROT_OP_err_s, /* 945 */
+ PARROT_OP_err_s_i, /* 946 */
+ PARROT_OP_err_s_ic, /* 947 */
+ PARROT_OP_time_i, /* 948 */
+ PARROT_OP_time_n, /* 949 */
+ PARROT_OP_sleep_i, /* 950 */
+ PARROT_OP_sleep_ic, /* 951 */
+ PARROT_OP_sleep_n, /* 952 */
+ PARROT_OP_sleep_nc, /* 953 */
+ PARROT_OP_store_lex_s_p, /* 954 */
+ PARROT_OP_store_lex_sc_p, /* 955 */
+ PARROT_OP_store_dynamic_lex_s_p, /* 956 */
+ PARROT_OP_store_dynamic_lex_sc_p, /* 957 */
+ PARROT_OP_find_lex_p_s, /* 958 */
+ PARROT_OP_find_lex_p_sc, /* 959 */
+ PARROT_OP_find_dynamic_lex_p_s, /* 960 */
+ PARROT_OP_find_dynamic_lex_p_sc, /* 961 */
+ PARROT_OP_find_caller_lex_p_s, /* 962 */
+ PARROT_OP_find_caller_lex_p_sc, /* 963 */
+ PARROT_OP_get_namespace_p, /* 964 */
+ PARROT_OP_get_namespace_p_p, /* 965 */
+ PARROT_OP_get_namespace_p_pc, /* 966 */
+ PARROT_OP_get_hll_namespace_p, /* 967 */
+ PARROT_OP_get_hll_namespace_p_p, /* 968 */
+ PARROT_OP_get_hll_namespace_p_pc, /* 969 */
+ PARROT_OP_get_root_namespace_p, /* 970 */
+ PARROT_OP_get_root_namespace_p_p, /* 971 */
+ PARROT_OP_get_root_namespace_p_pc, /* 972 */
+ PARROT_OP_get_global_p_s, /* 973 */
+ PARROT_OP_get_global_p_sc, /* 974 */
+ PARROT_OP_get_global_p_p_s, /* 975 */
+ PARROT_OP_get_global_p_pc_s, /* 976 */
+ PARROT_OP_get_global_p_p_sc, /* 977 */
+ PARROT_OP_get_global_p_pc_sc, /* 978 */
+ PARROT_OP_get_hll_global_p_s, /* 979 */
+ PARROT_OP_get_hll_global_p_sc, /* 980 */
+ PARROT_OP_get_hll_global_p_p_s, /* 981 */
+ PARROT_OP_get_hll_global_p_pc_s, /* 982 */
+ PARROT_OP_get_hll_global_p_p_sc, /* 983 */
+ PARROT_OP_get_hll_global_p_pc_sc, /* 984 */
+ PARROT_OP_get_root_global_p_s, /* 985 */
+ PARROT_OP_get_root_global_p_sc, /* 986 */
+ PARROT_OP_get_root_global_p_p_s, /* 987 */
+ PARROT_OP_get_root_global_p_pc_s, /* 988 */
+ PARROT_OP_get_root_global_p_p_sc, /* 989 */
+ PARROT_OP_get_root_global_p_pc_sc, /* 990 */
+ PARROT_OP_set_global_s_p, /* 991 */
+ PARROT_OP_set_global_sc_p, /* 992 */
+ PARROT_OP_set_global_p_s_p, /* 993 */
+ PARROT_OP_set_global_pc_s_p, /* 994 */
+ PARROT_OP_set_global_p_sc_p, /* 995 */
+ PARROT_OP_set_global_pc_sc_p, /* 996 */
+ PARROT_OP_set_hll_global_s_p, /* 997 */
+ PARROT_OP_set_hll_global_sc_p, /* 998 */
+ PARROT_OP_set_hll_global_p_s_p, /* 999 */
+ PARROT_OP_set_hll_global_pc_s_p, /* 1000 */
+ PARROT_OP_set_hll_global_p_sc_p, /* 1001 */
+ PARROT_OP_set_hll_global_pc_sc_p, /* 1002 */
+ PARROT_OP_set_root_global_s_p, /* 1003 */
+ PARROT_OP_set_root_global_sc_p, /* 1004 */
+ PARROT_OP_set_root_global_p_s_p, /* 1005 */
+ PARROT_OP_set_root_global_pc_s_p, /* 1006 */
+ PARROT_OP_set_root_global_p_sc_p, /* 1007 */
+ PARROT_OP_set_root_global_pc_sc_p, /* 1008 */
+ PARROT_OP_find_name_p_s, /* 1009 */
+ PARROT_OP_find_name_p_sc, /* 1010 */
+ PARROT_OP_find_sub_not_null_p_s, /* 1011 */
+ PARROT_OP_find_sub_not_null_p_sc, /* 1012 */
+ PARROT_OP_trap, /* 1013 */
+ PARROT_OP_set_label_p_ic, /* 1014 */
+ PARROT_OP_get_label_i_p, /* 1015 */
+ PARROT_OP_fetch_p_p_p_p, /* 1016 */
+ PARROT_OP_fetch_p_pc_p_p, /* 1017 */
+ PARROT_OP_fetch_p_p_pc_p, /* 1018 */
+ PARROT_OP_fetch_p_pc_pc_p, /* 1019 */
+ PARROT_OP_fetch_p_p_p_pc, /* 1020 */
+ PARROT_OP_fetch_p_pc_p_pc, /* 1021 */
+ PARROT_OP_fetch_p_p_pc_pc, /* 1022 */
+ PARROT_OP_fetch_p_pc_pc_pc, /* 1023 */
+ PARROT_OP_fetch_p_p_i_p, /* 1024 */
+ PARROT_OP_fetch_p_pc_i_p, /* 1025 */
+ PARROT_OP_fetch_p_p_ic_p, /* 1026 */
+ PARROT_OP_fetch_p_pc_ic_p, /* 1027 */
+ PARROT_OP_fetch_p_p_i_pc, /* 1028 */
+ PARROT_OP_fetch_p_pc_i_pc, /* 1029 */
+ PARROT_OP_fetch_p_p_ic_pc, /* 1030 */
+ PARROT_OP_fetch_p_pc_ic_pc, /* 1031 */
+ PARROT_OP_fetch_p_p_s_p, /* 1032 */
+ PARROT_OP_fetch_p_pc_s_p, /* 1033 */
+ PARROT_OP_fetch_p_p_sc_p, /* 1034 */
+ PARROT_OP_fetch_p_pc_sc_p, /* 1035 */
+ PARROT_OP_fetch_p_p_s_pc, /* 1036 */
+ PARROT_OP_fetch_p_pc_s_pc, /* 1037 */
+ PARROT_OP_fetch_p_p_sc_pc, /* 1038 */
+ PARROT_OP_fetch_p_pc_sc_pc, /* 1039 */
+ PARROT_OP_vivify_p_p_p_p, /* 1040 */
+ PARROT_OP_vivify_p_pc_p_p, /* 1041 */
+ PARROT_OP_vivify_p_p_pc_p, /* 1042 */
+ PARROT_OP_vivify_p_pc_pc_p, /* 1043 */
+ PARROT_OP_vivify_p_p_p_pc, /* 1044 */
+ PARROT_OP_vivify_p_pc_p_pc, /* 1045 */
+ PARROT_OP_vivify_p_p_pc_pc, /* 1046 */
+ PARROT_OP_vivify_p_pc_pc_pc, /* 1047 */
+ PARROT_OP_vivify_p_p_i_p, /* 1048 */
+ PARROT_OP_vivify_p_pc_i_p, /* 1049 */
+ PARROT_OP_vivify_p_p_ic_p, /* 1050 */
+ PARROT_OP_vivify_p_pc_ic_p, /* 1051 */
+ PARROT_OP_vivify_p_p_i_pc, /* 1052 */
+ PARROT_OP_vivify_p_pc_i_pc, /* 1053 */
+ PARROT_OP_vivify_p_p_ic_pc, /* 1054 */
+ PARROT_OP_vivify_p_pc_ic_pc, /* 1055 */
+ PARROT_OP_vivify_p_p_s_p, /* 1056 */
+ PARROT_OP_vivify_p_pc_s_p, /* 1057 */
+ PARROT_OP_vivify_p_p_sc_p, /* 1058 */
+ PARROT_OP_vivify_p_pc_sc_p, /* 1059 */
+ PARROT_OP_vivify_p_p_s_pc, /* 1060 */
+ PARROT_OP_vivify_p_pc_s_pc, /* 1061 */
+ PARROT_OP_vivify_p_p_sc_pc, /* 1062 */
+ PARROT_OP_vivify_p_pc_sc_pc, /* 1063 */
+ PARROT_OP_new_p_s_i, /* 1064 */
+ PARROT_OP_new_p_sc_i, /* 1065 */
+ PARROT_OP_new_p_s_ic, /* 1066 */
+ PARROT_OP_new_p_sc_ic, /* 1067 */
+ PARROT_OP_new_p_p_i, /* 1068 */
+ PARROT_OP_new_p_pc_i, /* 1069 */
+ PARROT_OP_new_p_p_ic, /* 1070 */
+ PARROT_OP_new_p_pc_ic, /* 1071 */
+ PARROT_OP_root_new_p_p_i, /* 1072 */
+ PARROT_OP_root_new_p_pc_i, /* 1073 */
+ PARROT_OP_root_new_p_p_ic, /* 1074 */
+ PARROT_OP_root_new_p_pc_ic, /* 1075 */
+ PARROT_OP_find_codepoint_i_s, /* 1076 */
+ PARROT_OP_find_codepoint_i_sc, /* 1077 */
+ PARROT_OP_finalize_p, /* 1078 */
+ PARROT_OP_finalize_pc /* 1079 */
} parrot_opcode_enums;
Modified: branches/gsoc_instrument/include/parrot/opsenum.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/opsenum.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/opsenum.h Sat May 29 11:56:49 2010 (r47109)
@@ -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,
@@ -129,1088 +134,967 @@
enum_ops_annotations_p_sc = 116,
enum_ops_band_i_i = 117,
enum_ops_band_i_ic = 118,
- enum_ops_band_p_i = 119,
- enum_ops_band_p_ic = 120,
- enum_ops_band_p_p = 121,
- enum_ops_band_i_i_i = 122,
- enum_ops_band_i_ic_i = 123,
- enum_ops_band_i_i_ic = 124,
- enum_ops_band_p_p_i = 125,
- enum_ops_band_p_p_ic = 126,
- enum_ops_band_p_p_p = 127,
- enum_ops_bands_p_s = 128,
- enum_ops_bands_p_sc = 129,
- enum_ops_bands_p_p = 130,
- enum_ops_bands_s_s_s = 131,
- enum_ops_bands_s_sc_s = 132,
- enum_ops_bands_s_s_sc = 133,
- enum_ops_bands_p_p_s = 134,
- enum_ops_bands_p_p_sc = 135,
- enum_ops_bands_p_p_p = 136,
- enum_ops_bnot_i = 137,
- enum_ops_bnot_i_i = 138,
- enum_ops_bnot_p = 139,
- enum_ops_bnot_p_p = 140,
- enum_ops_bnots_s_s = 141,
- enum_ops_bnots_s_sc = 142,
- enum_ops_bnots_p = 143,
- enum_ops_bnots_p_p = 144,
- enum_ops_bor_i_i = 145,
- enum_ops_bor_i_ic = 146,
- enum_ops_bor_p_i = 147,
- enum_ops_bor_p_ic = 148,
- enum_ops_bor_p_p = 149,
- enum_ops_bor_i_i_i = 150,
- enum_ops_bor_i_ic_i = 151,
- enum_ops_bor_i_i_ic = 152,
- enum_ops_bor_p_p_i = 153,
- enum_ops_bor_p_p_ic = 154,
- enum_ops_bor_p_p_p = 155,
- enum_ops_bors_p_s = 156,
- enum_ops_bors_p_sc = 157,
- enum_ops_bors_p_p = 158,
- enum_ops_bors_s_s_s = 159,
- enum_ops_bors_s_sc_s = 160,
- enum_ops_bors_s_s_sc = 161,
- enum_ops_bors_p_p_s = 162,
- enum_ops_bors_p_p_sc = 163,
- enum_ops_bors_p_p_p = 164,
- enum_ops_shl_i_i = 165,
- enum_ops_shl_i_ic = 166,
- enum_ops_shl_p_i = 167,
- enum_ops_shl_p_ic = 168,
- enum_ops_shl_p_p = 169,
- enum_ops_shl_i_i_i = 170,
- enum_ops_shl_i_ic_i = 171,
- enum_ops_shl_i_i_ic = 172,
- enum_ops_shl_p_p_i = 173,
- enum_ops_shl_p_p_ic = 174,
- enum_ops_shl_p_p_p = 175,
- enum_ops_shr_i_i = 176,
- enum_ops_shr_i_ic = 177,
- enum_ops_shr_p_i = 178,
- enum_ops_shr_p_ic = 179,
- enum_ops_shr_p_p = 180,
- enum_ops_shr_i_i_i = 181,
- enum_ops_shr_i_ic_i = 182,
- enum_ops_shr_i_i_ic = 183,
- enum_ops_shr_p_p_i = 184,
- enum_ops_shr_p_p_ic = 185,
- enum_ops_shr_p_p_p = 186,
- enum_ops_lsr_i_i = 187,
- enum_ops_lsr_i_ic = 188,
- enum_ops_lsr_p_i = 189,
- enum_ops_lsr_p_ic = 190,
- enum_ops_lsr_p_p = 191,
- enum_ops_lsr_i_i_i = 192,
- enum_ops_lsr_i_ic_i = 193,
- enum_ops_lsr_i_i_ic = 194,
- enum_ops_lsr_p_p_i = 195,
- enum_ops_lsr_p_p_ic = 196,
- enum_ops_lsr_p_p_p = 197,
- enum_ops_rot_i_i_i_ic = 198,
- enum_ops_rot_i_ic_i_ic = 199,
- enum_ops_rot_i_i_ic_ic = 200,
- enum_ops_bxor_i_i = 201,
- enum_ops_bxor_i_ic = 202,
- enum_ops_bxor_p_i = 203,
- enum_ops_bxor_p_ic = 204,
- enum_ops_bxor_p_p = 205,
- enum_ops_bxor_i_i_i = 206,
- enum_ops_bxor_i_ic_i = 207,
- enum_ops_bxor_i_i_ic = 208,
- enum_ops_bxor_p_p_i = 209,
- enum_ops_bxor_p_p_ic = 210,
- enum_ops_bxor_p_p_p = 211,
- enum_ops_bxors_p_s = 212,
- enum_ops_bxors_p_sc = 213,
- enum_ops_bxors_p_p = 214,
- enum_ops_bxors_s_s_s = 215,
- enum_ops_bxors_s_sc_s = 216,
- enum_ops_bxors_s_s_sc = 217,
- enum_ops_bxors_p_p_s = 218,
- enum_ops_bxors_p_p_sc = 219,
- enum_ops_bxors_p_p_p = 220,
- enum_ops_eq_i_i_ic = 221,
- enum_ops_eq_ic_i_ic = 222,
- enum_ops_eq_i_ic_ic = 223,
- enum_ops_eq_n_n_ic = 224,
- enum_ops_eq_nc_n_ic = 225,
- enum_ops_eq_n_nc_ic = 226,
- enum_ops_eq_s_s_ic = 227,
- enum_ops_eq_sc_s_ic = 228,
- enum_ops_eq_s_sc_ic = 229,
- enum_ops_eq_p_p_ic = 230,
- enum_ops_eq_p_i_ic = 231,
- enum_ops_eq_p_ic_ic = 232,
- enum_ops_eq_p_n_ic = 233,
- enum_ops_eq_p_nc_ic = 234,
- enum_ops_eq_p_s_ic = 235,
- enum_ops_eq_p_sc_ic = 236,
- enum_ops_eq_str_p_p_ic = 237,
- enum_ops_eq_num_p_p_ic = 238,
- enum_ops_eq_addr_s_s_ic = 239,
- enum_ops_eq_addr_sc_s_ic = 240,
- enum_ops_eq_addr_s_sc_ic = 241,
- enum_ops_eq_addr_sc_sc_ic = 242,
- enum_ops_eq_addr_p_p_ic = 243,
- enum_ops_ne_i_i_ic = 244,
- enum_ops_ne_ic_i_ic = 245,
- enum_ops_ne_i_ic_ic = 246,
- enum_ops_ne_n_n_ic = 247,
- enum_ops_ne_nc_n_ic = 248,
- enum_ops_ne_n_nc_ic = 249,
- enum_ops_ne_s_s_ic = 250,
- enum_ops_ne_sc_s_ic = 251,
- enum_ops_ne_s_sc_ic = 252,
- enum_ops_ne_p_p_ic = 253,
- enum_ops_ne_p_i_ic = 254,
- enum_ops_ne_p_ic_ic = 255,
- enum_ops_ne_p_n_ic = 256,
- enum_ops_ne_p_nc_ic = 257,
- enum_ops_ne_p_s_ic = 258,
- enum_ops_ne_p_sc_ic = 259,
- enum_ops_ne_str_p_p_ic = 260,
- enum_ops_ne_num_p_p_ic = 261,
- enum_ops_ne_addr_s_s_ic = 262,
- enum_ops_ne_addr_sc_s_ic = 263,
- enum_ops_ne_addr_s_sc_ic = 264,
- enum_ops_ne_addr_sc_sc_ic = 265,
- enum_ops_ne_addr_p_p_ic = 266,
- enum_ops_lt_i_i_ic = 267,
- enum_ops_lt_ic_i_ic = 268,
- enum_ops_lt_i_ic_ic = 269,
- enum_ops_lt_n_n_ic = 270,
- enum_ops_lt_nc_n_ic = 271,
- enum_ops_lt_n_nc_ic = 272,
- enum_ops_lt_s_s_ic = 273,
- enum_ops_lt_sc_s_ic = 274,
- enum_ops_lt_s_sc_ic = 275,
- enum_ops_lt_p_p_ic = 276,
- enum_ops_lt_p_i_ic = 277,
- enum_ops_lt_p_ic_ic = 278,
- enum_ops_lt_p_n_ic = 279,
- enum_ops_lt_p_nc_ic = 280,
- enum_ops_lt_p_s_ic = 281,
- enum_ops_lt_p_sc_ic = 282,
- enum_ops_lt_str_p_p_ic = 283,
- enum_ops_lt_num_p_p_ic = 284,
- enum_ops_le_i_i_ic = 285,
- enum_ops_le_ic_i_ic = 286,
- enum_ops_le_i_ic_ic = 287,
- enum_ops_le_n_n_ic = 288,
- enum_ops_le_nc_n_ic = 289,
- enum_ops_le_n_nc_ic = 290,
- enum_ops_le_s_s_ic = 291,
- enum_ops_le_sc_s_ic = 292,
- enum_ops_le_s_sc_ic = 293,
- enum_ops_le_p_p_ic = 294,
- enum_ops_le_p_i_ic = 295,
- enum_ops_le_p_ic_ic = 296,
- enum_ops_le_p_n_ic = 297,
- enum_ops_le_p_nc_ic = 298,
- enum_ops_le_p_s_ic = 299,
- enum_ops_le_p_sc_ic = 300,
- enum_ops_le_str_p_p_ic = 301,
- enum_ops_le_num_p_p_ic = 302,
- enum_ops_gt_p_p_ic = 303,
- enum_ops_gt_p_i_ic = 304,
- enum_ops_gt_p_ic_ic = 305,
- enum_ops_gt_p_n_ic = 306,
- enum_ops_gt_p_nc_ic = 307,
- enum_ops_gt_p_s_ic = 308,
- enum_ops_gt_p_sc_ic = 309,
- enum_ops_gt_str_p_p_ic = 310,
- enum_ops_gt_num_p_p_ic = 311,
- enum_ops_ge_p_p_ic = 312,
- enum_ops_ge_p_i_ic = 313,
- enum_ops_ge_p_ic_ic = 314,
- enum_ops_ge_p_n_ic = 315,
- enum_ops_ge_p_nc_ic = 316,
- enum_ops_ge_p_s_ic = 317,
- enum_ops_ge_p_sc_ic = 318,
- enum_ops_ge_str_p_p_ic = 319,
- enum_ops_ge_num_p_p_ic = 320,
- enum_ops_if_null_p_ic = 321,
- enum_ops_if_null_s_ic = 322,
- enum_ops_unless_null_p_ic = 323,
- enum_ops_unless_null_s_ic = 324,
- enum_ops_cmp_i_i_i = 325,
- enum_ops_cmp_i_ic_i = 326,
- enum_ops_cmp_i_i_ic = 327,
- enum_ops_cmp_i_n_n = 328,
- enum_ops_cmp_i_nc_n = 329,
- enum_ops_cmp_i_n_nc = 330,
- enum_ops_cmp_i_s_s = 331,
- enum_ops_cmp_i_sc_s = 332,
- enum_ops_cmp_i_s_sc = 333,
- enum_ops_cmp_i_p_p = 334,
- enum_ops_cmp_i_p_i = 335,
- enum_ops_cmp_i_p_ic = 336,
- enum_ops_cmp_i_p_n = 337,
- enum_ops_cmp_i_p_nc = 338,
- enum_ops_cmp_i_p_s = 339,
- enum_ops_cmp_i_p_sc = 340,
- enum_ops_cmp_str_i_p_p = 341,
- enum_ops_cmp_num_i_p_p = 342,
- enum_ops_cmp_pmc_p_p_p = 343,
- enum_ops_issame_i_p_p = 344,
- enum_ops_issame_i_s_s = 345,
- enum_ops_issame_i_sc_s = 346,
- enum_ops_issame_i_s_sc = 347,
- enum_ops_issame_i_sc_sc = 348,
- enum_ops_isntsame_i_p_p = 349,
- enum_ops_isntsame_i_s_s = 350,
- enum_ops_isntsame_i_sc_s = 351,
- enum_ops_isntsame_i_s_sc = 352,
- enum_ops_isntsame_i_sc_sc = 353,
- enum_ops_istrue_i_p = 354,
- enum_ops_isfalse_i_p = 355,
- enum_ops_isnull_i_p = 356,
- enum_ops_isnull_i_pc = 357,
- enum_ops_isnull_i_s = 358,
- enum_ops_isnull_i_sc = 359,
- enum_ops_isgt_i_p_p = 360,
- enum_ops_isge_i_p_p = 361,
- enum_ops_isle_i_i_i = 362,
- enum_ops_isle_i_ic_i = 363,
- enum_ops_isle_i_i_ic = 364,
- enum_ops_isle_i_n_n = 365,
- enum_ops_isle_i_nc_n = 366,
- enum_ops_isle_i_n_nc = 367,
- enum_ops_isle_i_s_s = 368,
- enum_ops_isle_i_sc_s = 369,
- enum_ops_isle_i_s_sc = 370,
- enum_ops_isle_i_p_p = 371,
- enum_ops_islt_i_i_i = 372,
- enum_ops_islt_i_ic_i = 373,
- enum_ops_islt_i_i_ic = 374,
- enum_ops_islt_i_n_n = 375,
- enum_ops_islt_i_nc_n = 376,
- enum_ops_islt_i_n_nc = 377,
- enum_ops_islt_i_s_s = 378,
- enum_ops_islt_i_sc_s = 379,
- enum_ops_islt_i_s_sc = 380,
- enum_ops_islt_i_p_p = 381,
- enum_ops_iseq_i_i_i = 382,
- enum_ops_iseq_i_ic_i = 383,
- enum_ops_iseq_i_i_ic = 384,
- enum_ops_iseq_i_n_n = 385,
- enum_ops_iseq_i_nc_n = 386,
- enum_ops_iseq_i_n_nc = 387,
- enum_ops_iseq_i_s_s = 388,
- enum_ops_iseq_i_sc_s = 389,
- enum_ops_iseq_i_s_sc = 390,
- enum_ops_iseq_i_p_p = 391,
- enum_ops_isne_i_i_i = 392,
- enum_ops_isne_i_ic_i = 393,
- enum_ops_isne_i_i_ic = 394,
- enum_ops_isne_i_n_n = 395,
- enum_ops_isne_i_nc_n = 396,
- enum_ops_isne_i_n_nc = 397,
- enum_ops_isne_i_s_s = 398,
- enum_ops_isne_i_sc_s = 399,
- enum_ops_isne_i_s_sc = 400,
- enum_ops_isne_i_p_p = 401,
- enum_ops_and_i_i_i = 402,
- enum_ops_and_i_ic_i = 403,
- enum_ops_and_i_i_ic = 404,
- enum_ops_and_p_p_p = 405,
- enum_ops_not_i = 406,
- enum_ops_not_i_i = 407,
- enum_ops_not_p = 408,
- enum_ops_not_p_p = 409,
- enum_ops_or_i_i_i = 410,
- enum_ops_or_i_ic_i = 411,
- enum_ops_or_i_i_ic = 412,
- enum_ops_or_p_p_p = 413,
- enum_ops_xor_i_i_i = 414,
- enum_ops_xor_i_ic_i = 415,
- enum_ops_xor_i_i_ic = 416,
- enum_ops_xor_p_p_p = 417,
- enum_ops_debug_init = 418,
- enum_ops_debug_load_sc = 419,
- enum_ops_debug_break = 420,
- enum_ops_debug_print = 421,
- enum_ops_backtrace = 422,
- enum_ops_getline_i = 423,
- enum_ops_getfile_s = 424,
- enum_ops_close_p = 425,
- enum_ops_fdopen_p_i_s = 426,
- enum_ops_fdopen_p_ic_s = 427,
- enum_ops_fdopen_p_i_sc = 428,
- enum_ops_fdopen_p_ic_sc = 429,
- enum_ops_getstdin_p = 430,
- enum_ops_getstdout_p = 431,
- enum_ops_getstderr_p = 432,
- enum_ops_setstdin_p = 433,
- enum_ops_setstdout_p = 434,
- enum_ops_setstderr_p = 435,
- enum_ops_open_p_s_s = 436,
- enum_ops_open_p_sc_s = 437,
- enum_ops_open_p_s_sc = 438,
- enum_ops_open_p_sc_sc = 439,
- enum_ops_open_p_s = 440,
- enum_ops_open_p_sc = 441,
- enum_ops_print_i = 442,
- enum_ops_print_ic = 443,
- enum_ops_print_n = 444,
- enum_ops_print_nc = 445,
- enum_ops_print_s = 446,
- enum_ops_print_sc = 447,
- enum_ops_print_p = 448,
- enum_ops_say_i = 449,
- enum_ops_say_ic = 450,
- enum_ops_say_n = 451,
- enum_ops_say_nc = 452,
- enum_ops_say_s = 453,
- enum_ops_say_sc = 454,
- enum_ops_say_p = 455,
- enum_ops_printerr_i = 456,
- enum_ops_printerr_ic = 457,
- enum_ops_printerr_n = 458,
- enum_ops_printerr_nc = 459,
- enum_ops_printerr_s = 460,
- enum_ops_printerr_sc = 461,
- enum_ops_printerr_p = 462,
- enum_ops_print_p_i = 463,
- enum_ops_print_p_ic = 464,
- enum_ops_print_p_n = 465,
- enum_ops_print_p_nc = 466,
- enum_ops_print_p_s = 467,
- enum_ops_print_p_sc = 468,
- enum_ops_print_p_p = 469,
- enum_ops_read_s_i = 470,
- enum_ops_read_s_ic = 471,
- enum_ops_read_s_p_i = 472,
- enum_ops_read_s_p_ic = 473,
- enum_ops_readline_s_p = 474,
- enum_ops_peek_s = 475,
- enum_ops_peek_s_p = 476,
- enum_ops_stat_i_s_i = 477,
- enum_ops_stat_i_sc_i = 478,
- enum_ops_stat_i_s_ic = 479,
- enum_ops_stat_i_sc_ic = 480,
- enum_ops_stat_i_i_i = 481,
- enum_ops_stat_i_ic_i = 482,
- enum_ops_stat_i_i_ic = 483,
- enum_ops_stat_i_ic_ic = 484,
- enum_ops_seek_p_i_i = 485,
- enum_ops_seek_p_ic_i = 486,
- enum_ops_seek_p_i_ic = 487,
- enum_ops_seek_p_ic_ic = 488,
- enum_ops_seek_p_i_i_i = 489,
- enum_ops_seek_p_ic_i_i = 490,
- enum_ops_seek_p_i_ic_i = 491,
- enum_ops_seek_p_ic_ic_i = 492,
- enum_ops_seek_p_i_i_ic = 493,
- enum_ops_seek_p_ic_i_ic = 494,
- enum_ops_seek_p_i_ic_ic = 495,
- enum_ops_seek_p_ic_ic_ic = 496,
- enum_ops_tell_i_p = 497,
- enum_ops_tell_i_i_p = 498,
- enum_ops_abs_i = 499,
- enum_ops_abs_n = 500,
- enum_ops_abs_i_i = 501,
- enum_ops_abs_n_n = 502,
- enum_ops_abs_p = 503,
- enum_ops_abs_p_p = 504,
- enum_ops_add_i_i = 505,
- enum_ops_add_i_ic = 506,
- enum_ops_add_n_n = 507,
- enum_ops_add_n_nc = 508,
- enum_ops_add_p_p = 509,
- enum_ops_add_p_i = 510,
- enum_ops_add_p_ic = 511,
- enum_ops_add_p_n = 512,
- enum_ops_add_p_nc = 513,
- enum_ops_add_i_i_i = 514,
- enum_ops_add_i_ic_i = 515,
- enum_ops_add_i_i_ic = 516,
- enum_ops_add_n_n_n = 517,
- enum_ops_add_n_nc_n = 518,
- enum_ops_add_n_n_nc = 519,
- enum_ops_add_p_p_p = 520,
- enum_ops_add_p_p_i = 521,
- enum_ops_add_p_p_ic = 522,
- enum_ops_add_p_p_n = 523,
- enum_ops_add_p_p_nc = 524,
- enum_ops_cmod_i_i_i = 525,
- enum_ops_cmod_i_ic_i = 526,
- enum_ops_cmod_i_i_ic = 527,
- enum_ops_cmod_p_p_i = 528,
- enum_ops_cmod_p_p_ic = 529,
- enum_ops_cmod_p_p_p = 530,
- enum_ops_cmod_n_n_n = 531,
- enum_ops_cmod_n_nc_n = 532,
- enum_ops_cmod_n_n_nc = 533,
- enum_ops_cmod_p_p_n = 534,
- enum_ops_cmod_p_p_nc = 535,
- enum_ops_dec_i = 536,
- enum_ops_dec_n = 537,
- enum_ops_dec_p = 538,
- enum_ops_div_i_i = 539,
- enum_ops_div_i_ic = 540,
- enum_ops_div_n_n = 541,
- enum_ops_div_n_nc = 542,
- enum_ops_div_p_p = 543,
- enum_ops_div_p_i = 544,
- enum_ops_div_p_ic = 545,
- enum_ops_div_p_n = 546,
- enum_ops_div_p_nc = 547,
- enum_ops_div_i_i_i = 548,
- enum_ops_div_i_ic_i = 549,
- enum_ops_div_i_i_ic = 550,
- enum_ops_div_i_ic_ic = 551,
- enum_ops_div_n_n_n = 552,
- enum_ops_div_n_nc_n = 553,
- enum_ops_div_n_n_nc = 554,
- enum_ops_div_n_nc_nc = 555,
- enum_ops_div_p_p_p = 556,
- enum_ops_div_p_p_i = 557,
- enum_ops_div_p_p_ic = 558,
- enum_ops_div_p_p_n = 559,
- enum_ops_div_p_p_nc = 560,
- enum_ops_fdiv_i_i = 561,
- enum_ops_fdiv_i_ic = 562,
- enum_ops_fdiv_n_n = 563,
- enum_ops_fdiv_n_nc = 564,
- enum_ops_fdiv_p_p = 565,
- enum_ops_fdiv_p_i = 566,
- enum_ops_fdiv_p_ic = 567,
- enum_ops_fdiv_p_n = 568,
- enum_ops_fdiv_p_nc = 569,
- enum_ops_fdiv_i_i_i = 570,
- enum_ops_fdiv_i_ic_i = 571,
- enum_ops_fdiv_i_i_ic = 572,
- enum_ops_fdiv_n_n_n = 573,
- enum_ops_fdiv_n_nc_n = 574,
- enum_ops_fdiv_n_n_nc = 575,
- enum_ops_fdiv_p_p_p = 576,
- enum_ops_fdiv_p_p_i = 577,
- enum_ops_fdiv_p_p_ic = 578,
- enum_ops_fdiv_p_p_n = 579,
- enum_ops_fdiv_p_p_nc = 580,
- enum_ops_ceil_n = 581,
- enum_ops_ceil_i_n = 582,
- enum_ops_ceil_n_n = 583,
- enum_ops_floor_n = 584,
- enum_ops_floor_i_n = 585,
- enum_ops_floor_n_n = 586,
- enum_ops_inc_i = 587,
- enum_ops_inc_n = 588,
- enum_ops_inc_p = 589,
- enum_ops_mod_i_i = 590,
- enum_ops_mod_i_ic = 591,
- enum_ops_mod_n_n = 592,
- enum_ops_mod_n_nc = 593,
- enum_ops_mod_p_p = 594,
- enum_ops_mod_p_i = 595,
- enum_ops_mod_p_ic = 596,
- enum_ops_mod_p_n = 597,
- enum_ops_mod_p_nc = 598,
- enum_ops_mod_i_i_i = 599,
- enum_ops_mod_i_ic_i = 600,
- enum_ops_mod_i_i_ic = 601,
- enum_ops_mod_n_n_n = 602,
- enum_ops_mod_n_nc_n = 603,
- enum_ops_mod_n_n_nc = 604,
- enum_ops_mod_p_p_p = 605,
- enum_ops_mod_p_p_i = 606,
- enum_ops_mod_p_p_ic = 607,
- enum_ops_mod_p_p_n = 608,
- enum_ops_mod_p_p_nc = 609,
- enum_ops_mul_i_i = 610,
- enum_ops_mul_i_ic = 611,
- enum_ops_mul_n_n = 612,
- enum_ops_mul_n_nc = 613,
- enum_ops_mul_p_p = 614,
- enum_ops_mul_p_i = 615,
- enum_ops_mul_p_ic = 616,
- enum_ops_mul_p_n = 617,
- enum_ops_mul_p_nc = 618,
- enum_ops_mul_i_i_i = 619,
- enum_ops_mul_i_ic_i = 620,
- enum_ops_mul_i_i_ic = 621,
- enum_ops_mul_n_n_n = 622,
- enum_ops_mul_n_nc_n = 623,
- enum_ops_mul_n_n_nc = 624,
- enum_ops_mul_p_p_p = 625,
- enum_ops_mul_p_p_i = 626,
- enum_ops_mul_p_p_ic = 627,
- enum_ops_mul_p_p_n = 628,
- enum_ops_mul_p_p_nc = 629,
- enum_ops_neg_i = 630,
- enum_ops_neg_n = 631,
- enum_ops_neg_p = 632,
- enum_ops_neg_i_i = 633,
- enum_ops_neg_n_n = 634,
- enum_ops_neg_p_p = 635,
- enum_ops_pow_n_n_n = 636,
- enum_ops_pow_n_nc_n = 637,
- enum_ops_pow_n_n_nc = 638,
- enum_ops_pow_p_p_p = 639,
- enum_ops_pow_p_p_i = 640,
- enum_ops_pow_p_p_ic = 641,
- enum_ops_pow_p_p_n = 642,
- enum_ops_pow_p_p_nc = 643,
- enum_ops_pow_n_n_i = 644,
- enum_ops_pow_n_nc_i = 645,
- enum_ops_pow_n_n_ic = 646,
- enum_ops_pow_n_nc_ic = 647,
- enum_ops_sub_i_i = 648,
- enum_ops_sub_i_ic = 649,
- enum_ops_sub_n_n = 650,
- enum_ops_sub_n_nc = 651,
- enum_ops_sub_p_p = 652,
- enum_ops_sub_p_i = 653,
- enum_ops_sub_p_ic = 654,
- enum_ops_sub_p_n = 655,
- enum_ops_sub_p_nc = 656,
- enum_ops_sub_i_i_i = 657,
- enum_ops_sub_i_ic_i = 658,
- enum_ops_sub_i_i_ic = 659,
- enum_ops_sub_n_n_n = 660,
- enum_ops_sub_n_nc_n = 661,
- enum_ops_sub_n_n_nc = 662,
- enum_ops_sub_p_p_p = 663,
- enum_ops_sub_p_p_i = 664,
- enum_ops_sub_p_p_ic = 665,
- enum_ops_sub_p_p_n = 666,
- enum_ops_sub_p_p_nc = 667,
- enum_ops_sqrt_n_n = 668,
- enum_ops_acos_n_n = 669,
- enum_ops_asec_n_n = 670,
- enum_ops_asin_n_n = 671,
- enum_ops_atan_n_n = 672,
- enum_ops_atan_n_n_n = 673,
- enum_ops_atan_n_nc_n = 674,
- enum_ops_atan_n_n_nc = 675,
- enum_ops_cos_n_n = 676,
- enum_ops_cosh_n_n = 677,
- enum_ops_exp_n_n = 678,
- enum_ops_ln_n_n = 679,
- enum_ops_log10_n_n = 680,
- enum_ops_log2_n_n = 681,
- enum_ops_sec_n_n = 682,
- enum_ops_sech_n_n = 683,
- enum_ops_sin_n_n = 684,
- enum_ops_sinh_n_n = 685,
- enum_ops_tan_n_n = 686,
- enum_ops_tanh_n_n = 687,
- enum_ops_callmethodcc_p_s = 688,
- enum_ops_callmethodcc_p_sc = 689,
- enum_ops_callmethodcc_p_p = 690,
- enum_ops_callmethod_p_s_p = 691,
- enum_ops_callmethod_p_sc_p = 692,
- enum_ops_callmethod_p_p_p = 693,
- enum_ops_tailcallmethod_p_s = 694,
- enum_ops_tailcallmethod_p_sc = 695,
- enum_ops_tailcallmethod_p_p = 696,
- enum_ops_addmethod_p_s_p = 697,
- enum_ops_addmethod_p_sc_p = 698,
- enum_ops_can_i_p_s = 699,
- enum_ops_can_i_p_sc = 700,
- enum_ops_does_i_p_s = 701,
- enum_ops_does_i_p_sc = 702,
- enum_ops_does_i_p_p = 703,
- enum_ops_does_i_p_pc = 704,
- enum_ops_isa_i_p_s = 705,
- enum_ops_isa_i_p_sc = 706,
- enum_ops_isa_i_p_p = 707,
- enum_ops_isa_i_p_pc = 708,
- enum_ops_newclass_p_s = 709,
- enum_ops_newclass_p_sc = 710,
- enum_ops_newclass_p_p = 711,
- enum_ops_newclass_p_pc = 712,
- enum_ops_subclass_p_p = 713,
- enum_ops_subclass_p_pc = 714,
- enum_ops_subclass_p_p_s = 715,
- enum_ops_subclass_p_pc_s = 716,
- enum_ops_subclass_p_p_sc = 717,
- enum_ops_subclass_p_pc_sc = 718,
- enum_ops_subclass_p_p_p = 719,
- enum_ops_subclass_p_pc_p = 720,
- enum_ops_subclass_p_p_pc = 721,
- enum_ops_subclass_p_pc_pc = 722,
- enum_ops_subclass_p_s = 723,
- enum_ops_subclass_p_sc = 724,
- enum_ops_subclass_p_s_s = 725,
- enum_ops_subclass_p_sc_s = 726,
- enum_ops_subclass_p_s_sc = 727,
- enum_ops_subclass_p_sc_sc = 728,
- enum_ops_subclass_p_s_p = 729,
- enum_ops_subclass_p_sc_p = 730,
- enum_ops_subclass_p_s_pc = 731,
- enum_ops_subclass_p_sc_pc = 732,
- enum_ops_get_class_p_s = 733,
- enum_ops_get_class_p_sc = 734,
- enum_ops_get_class_p_p = 735,
- enum_ops_get_class_p_pc = 736,
- enum_ops_class_p_p = 737,
- enum_ops_addparent_p_p = 738,
- enum_ops_removeparent_p_p = 739,
- enum_ops_addrole_p_p = 740,
- enum_ops_addattribute_p_s = 741,
- enum_ops_addattribute_p_sc = 742,
- enum_ops_removeattribute_p_s = 743,
- enum_ops_removeattribute_p_sc = 744,
- enum_ops_getattribute_p_p_s = 745,
- enum_ops_getattribute_p_p_sc = 746,
- enum_ops_getattribute_p_p_p_s = 747,
- enum_ops_getattribute_p_p_pc_s = 748,
- enum_ops_getattribute_p_p_p_sc = 749,
- enum_ops_getattribute_p_p_pc_sc = 750,
- enum_ops_setattribute_p_s_p = 751,
- enum_ops_setattribute_p_sc_p = 752,
- enum_ops_setattribute_p_p_s_p = 753,
- enum_ops_setattribute_p_pc_s_p = 754,
- enum_ops_setattribute_p_p_sc_p = 755,
- enum_ops_setattribute_p_pc_sc_p = 756,
- enum_ops_inspect_p_p = 757,
- enum_ops_inspect_p_pc = 758,
- enum_ops_inspect_p_p_s = 759,
- enum_ops_inspect_p_pc_s = 760,
- enum_ops_inspect_p_p_sc = 761,
- enum_ops_inspect_p_pc_sc = 762,
- enum_ops_new_p_s = 763,
- enum_ops_new_p_sc = 764,
- enum_ops_new_p_s_p = 765,
- enum_ops_new_p_sc_p = 766,
- enum_ops_new_p_s_pc = 767,
- enum_ops_new_p_sc_pc = 768,
- enum_ops_new_p_p = 769,
- enum_ops_new_p_pc = 770,
- enum_ops_new_p_p_p = 771,
- enum_ops_new_p_pc_p = 772,
- enum_ops_new_p_p_pc = 773,
- enum_ops_new_p_pc_pc = 774,
- enum_ops_root_new_p_p = 775,
- enum_ops_root_new_p_pc = 776,
- enum_ops_root_new_p_p_p = 777,
- enum_ops_root_new_p_pc_p = 778,
- enum_ops_root_new_p_p_pc = 779,
- enum_ops_root_new_p_pc_pc = 780,
- enum_ops_typeof_s_p = 781,
- enum_ops_typeof_p_p = 782,
- enum_ops_get_repr_s_p = 783,
- enum_ops_find_method_p_p_s = 784,
- enum_ops_find_method_p_p_sc = 785,
- enum_ops_defined_i_p = 786,
- enum_ops_defined_i_p_ki = 787,
- enum_ops_defined_i_p_kic = 788,
- enum_ops_defined_i_p_k = 789,
- enum_ops_defined_i_p_kc = 790,
- enum_ops_exists_i_p_ki = 791,
- enum_ops_exists_i_p_kic = 792,
- enum_ops_exists_i_p_k = 793,
- enum_ops_exists_i_p_kc = 794,
- enum_ops_delete_p_k = 795,
- enum_ops_delete_p_kc = 796,
- enum_ops_delete_p_ki = 797,
- enum_ops_delete_p_kic = 798,
- enum_ops_elements_i_p = 799,
- enum_ops_push_p_i = 800,
- enum_ops_push_p_ic = 801,
- enum_ops_push_p_n = 802,
- enum_ops_push_p_nc = 803,
- enum_ops_push_p_s = 804,
- enum_ops_push_p_sc = 805,
- enum_ops_push_p_p = 806,
- enum_ops_pop_i_p = 807,
- enum_ops_pop_n_p = 808,
- enum_ops_pop_s_p = 809,
- enum_ops_pop_p_p = 810,
- enum_ops_unshift_p_i = 811,
- enum_ops_unshift_p_ic = 812,
- enum_ops_unshift_p_n = 813,
- enum_ops_unshift_p_nc = 814,
- enum_ops_unshift_p_s = 815,
- enum_ops_unshift_p_sc = 816,
- enum_ops_unshift_p_p = 817,
- enum_ops_shift_i_p = 818,
- enum_ops_shift_n_p = 819,
- enum_ops_shift_s_p = 820,
- enum_ops_shift_p_p = 821,
- enum_ops_splice_p_p_i_i = 822,
- enum_ops_splice_p_p_ic_i = 823,
- enum_ops_splice_p_p_i_ic = 824,
- enum_ops_splice_p_p_ic_ic = 825,
- enum_ops_setprop_p_s_p = 826,
- enum_ops_setprop_p_sc_p = 827,
- enum_ops_getprop_p_s_p = 828,
- enum_ops_getprop_p_sc_p = 829,
- enum_ops_delprop_p_s = 830,
- enum_ops_delprop_p_sc = 831,
- enum_ops_prophash_p_p = 832,
- enum_ops_freeze_s_p = 833,
- enum_ops_thaw_p_s = 834,
- enum_ops_thaw_p_sc = 835,
- enum_ops_add_multi_s_s_p = 836,
- enum_ops_add_multi_sc_s_p = 837,
- enum_ops_add_multi_s_sc_p = 838,
- enum_ops_add_multi_sc_sc_p = 839,
- enum_ops_find_multi_p_s_s = 840,
- enum_ops_find_multi_p_sc_s = 841,
- enum_ops_find_multi_p_s_sc = 842,
- enum_ops_find_multi_p_sc_sc = 843,
- enum_ops_register_p = 844,
- enum_ops_unregister_p = 845,
- enum_ops_box_p_i = 846,
- enum_ops_box_p_ic = 847,
- enum_ops_box_p_n = 848,
- enum_ops_box_p_nc = 849,
- enum_ops_box_p_s = 850,
- enum_ops_box_p_sc = 851,
- enum_ops_iter_p_p = 852,
- enum_ops_morph_p_p = 853,
- enum_ops_morph_p_pc = 854,
- enum_ops_clone_s_s = 855,
- enum_ops_clone_s_sc = 856,
- enum_ops_set_i_i = 857,
- enum_ops_set_i_ic = 858,
- enum_ops_set_i_n = 859,
- enum_ops_set_i_nc = 860,
- enum_ops_set_i_s = 861,
- enum_ops_set_i_sc = 862,
- enum_ops_set_n_n = 863,
- enum_ops_set_n_nc = 864,
- enum_ops_set_n_i = 865,
- enum_ops_set_n_ic = 866,
- enum_ops_set_n_s = 867,
- enum_ops_set_n_sc = 868,
- enum_ops_set_n_p = 869,
- enum_ops_set_s_p = 870,
- enum_ops_set_s_s = 871,
- enum_ops_set_s_sc = 872,
- enum_ops_set_s_i = 873,
- enum_ops_set_s_ic = 874,
- enum_ops_set_s_n = 875,
- enum_ops_set_s_nc = 876,
- enum_ops_set_p_pc = 877,
- enum_ops_set_p_p = 878,
- enum_ops_set_p_i = 879,
- enum_ops_set_p_ic = 880,
- enum_ops_set_p_n = 881,
- enum_ops_set_p_nc = 882,
- enum_ops_set_p_s = 883,
- enum_ops_set_p_sc = 884,
- enum_ops_set_i_p = 885,
- enum_ops_assign_p_p = 886,
- enum_ops_assign_p_i = 887,
- enum_ops_assign_p_ic = 888,
- enum_ops_assign_p_n = 889,
- enum_ops_assign_p_nc = 890,
- enum_ops_assign_p_s = 891,
- enum_ops_assign_p_sc = 892,
- enum_ops_assign_s_s = 893,
- enum_ops_assign_s_sc = 894,
- enum_ops_setref_p_p = 895,
- enum_ops_deref_p_p = 896,
- enum_ops_set_p_ki_i = 897,
- enum_ops_set_p_kic_i = 898,
- enum_ops_set_p_ki_ic = 899,
- enum_ops_set_p_kic_ic = 900,
- enum_ops_set_p_ki_n = 901,
- enum_ops_set_p_kic_n = 902,
- enum_ops_set_p_ki_nc = 903,
- enum_ops_set_p_kic_nc = 904,
- enum_ops_set_p_ki_s = 905,
- enum_ops_set_p_kic_s = 906,
- enum_ops_set_p_ki_sc = 907,
- enum_ops_set_p_kic_sc = 908,
- enum_ops_set_p_ki_p = 909,
- enum_ops_set_p_kic_p = 910,
- enum_ops_set_i_p_ki = 911,
- enum_ops_set_i_p_kic = 912,
- enum_ops_set_n_p_ki = 913,
- enum_ops_set_n_p_kic = 914,
- enum_ops_set_s_p_ki = 915,
- enum_ops_set_s_p_kic = 916,
- enum_ops_set_p_p_ki = 917,
- enum_ops_set_p_p_kic = 918,
- enum_ops_set_p_k_i = 919,
- enum_ops_set_p_kc_i = 920,
- enum_ops_set_p_k_ic = 921,
- enum_ops_set_p_kc_ic = 922,
- enum_ops_set_p_k_n = 923,
- enum_ops_set_p_kc_n = 924,
- enum_ops_set_p_k_nc = 925,
- enum_ops_set_p_kc_nc = 926,
- enum_ops_set_p_k_s = 927,
- enum_ops_set_p_kc_s = 928,
- enum_ops_set_p_k_sc = 929,
- enum_ops_set_p_kc_sc = 930,
- enum_ops_set_p_k_p = 931,
- enum_ops_set_p_kc_p = 932,
- enum_ops_set_i_p_k = 933,
- enum_ops_set_i_p_kc = 934,
- enum_ops_set_n_p_k = 935,
- enum_ops_set_n_p_kc = 936,
- enum_ops_set_s_p_k = 937,
- enum_ops_set_s_p_kc = 938,
- enum_ops_set_p_p_k = 939,
- enum_ops_set_p_p_kc = 940,
- enum_ops_clone_p_p = 941,
- enum_ops_clone_p_p_p = 942,
- enum_ops_clone_p_p_pc = 943,
- enum_ops_copy_p_p = 944,
- enum_ops_null_s = 945,
- enum_ops_null_i = 946,
- enum_ops_null_p = 947,
- enum_ops_null_n = 948,
- enum_ops_ord_i_s = 949,
- enum_ops_ord_i_sc = 950,
- enum_ops_ord_i_s_i = 951,
- enum_ops_ord_i_sc_i = 952,
- enum_ops_ord_i_s_ic = 953,
- enum_ops_ord_i_sc_ic = 954,
- enum_ops_chr_s_i = 955,
- enum_ops_chr_s_ic = 956,
- enum_ops_chopn_s_s_i = 957,
- enum_ops_chopn_s_sc_i = 958,
- enum_ops_chopn_s_s_ic = 959,
- enum_ops_chopn_s_sc_ic = 960,
- enum_ops_concat_s_s = 961,
- enum_ops_concat_s_sc = 962,
- enum_ops_concat_p_p = 963,
- enum_ops_concat_p_s = 964,
- enum_ops_concat_p_sc = 965,
- enum_ops_concat_s_s_s = 966,
- enum_ops_concat_s_sc_s = 967,
- enum_ops_concat_s_s_sc = 968,
- enum_ops_concat_p_p_s = 969,
- enum_ops_concat_p_p_sc = 970,
- enum_ops_concat_p_p_p = 971,
- enum_ops_repeat_s_s_i = 972,
- enum_ops_repeat_s_sc_i = 973,
- enum_ops_repeat_s_s_ic = 974,
- enum_ops_repeat_s_sc_ic = 975,
- enum_ops_repeat_p_p_i = 976,
- enum_ops_repeat_p_p_ic = 977,
- enum_ops_repeat_p_p_p = 978,
- enum_ops_repeat_p_i = 979,
- enum_ops_repeat_p_ic = 980,
- enum_ops_repeat_p_p = 981,
- enum_ops_length_i_s = 982,
- enum_ops_length_i_sc = 983,
- enum_ops_bytelength_i_s = 984,
- enum_ops_bytelength_i_sc = 985,
- enum_ops_pin_s = 986,
- enum_ops_unpin_s = 987,
- enum_ops_substr_s_s_i = 988,
- enum_ops_substr_s_sc_i = 989,
- enum_ops_substr_s_s_ic = 990,
- enum_ops_substr_s_sc_ic = 991,
- enum_ops_substr_s_s_i_i = 992,
- enum_ops_substr_s_sc_i_i = 993,
- enum_ops_substr_s_s_ic_i = 994,
- enum_ops_substr_s_sc_ic_i = 995,
- enum_ops_substr_s_s_i_ic = 996,
- enum_ops_substr_s_sc_i_ic = 997,
- enum_ops_substr_s_s_ic_ic = 998,
- enum_ops_substr_s_sc_ic_ic = 999,
- enum_ops_substr_s_p_i_i = 1000,
- enum_ops_substr_s_p_ic_i = 1001,
- enum_ops_substr_s_p_i_ic = 1002,
- enum_ops_substr_s_p_ic_ic = 1003,
- enum_ops_replace_s_s_i_i_s = 1004,
- enum_ops_replace_s_sc_i_i_s = 1005,
- enum_ops_replace_s_s_ic_i_s = 1006,
- enum_ops_replace_s_sc_ic_i_s = 1007,
- enum_ops_replace_s_s_i_ic_s = 1008,
- enum_ops_replace_s_sc_i_ic_s = 1009,
- enum_ops_replace_s_s_ic_ic_s = 1010,
- enum_ops_replace_s_sc_ic_ic_s = 1011,
- enum_ops_replace_s_s_i_i_sc = 1012,
- enum_ops_replace_s_sc_i_i_sc = 1013,
- enum_ops_replace_s_s_ic_i_sc = 1014,
- enum_ops_replace_s_sc_ic_i_sc = 1015,
- enum_ops_replace_s_s_i_ic_sc = 1016,
- enum_ops_replace_s_sc_i_ic_sc = 1017,
- enum_ops_replace_s_s_ic_ic_sc = 1018,
- enum_ops_replace_s_sc_ic_ic_sc = 1019,
- enum_ops_index_i_s_s = 1020,
- enum_ops_index_i_sc_s = 1021,
- enum_ops_index_i_s_sc = 1022,
- enum_ops_index_i_sc_sc = 1023,
- enum_ops_index_i_s_s_i = 1024,
- enum_ops_index_i_sc_s_i = 1025,
- enum_ops_index_i_s_sc_i = 1026,
- enum_ops_index_i_sc_sc_i = 1027,
- enum_ops_index_i_s_s_ic = 1028,
- enum_ops_index_i_sc_s_ic = 1029,
- enum_ops_index_i_s_sc_ic = 1030,
- enum_ops_index_i_sc_sc_ic = 1031,
- enum_ops_sprintf_s_s_p = 1032,
- enum_ops_sprintf_s_sc_p = 1033,
- enum_ops_sprintf_p_p_p = 1034,
- enum_ops_new_s = 1035,
- enum_ops_new_s_i = 1036,
- enum_ops_new_s_ic = 1037,
- enum_ops_stringinfo_i_s_i = 1038,
- enum_ops_stringinfo_i_sc_i = 1039,
- enum_ops_stringinfo_i_s_ic = 1040,
- enum_ops_stringinfo_i_sc_ic = 1041,
- enum_ops_upcase_s_s = 1042,
- enum_ops_upcase_s_sc = 1043,
- enum_ops_downcase_s_s = 1044,
- enum_ops_downcase_s_sc = 1045,
- enum_ops_titlecase_s_s = 1046,
- enum_ops_titlecase_s_sc = 1047,
- enum_ops_join_s_s_p = 1048,
- enum_ops_join_s_sc_p = 1049,
- enum_ops_split_p_s_s = 1050,
- enum_ops_split_p_sc_s = 1051,
- enum_ops_split_p_s_sc = 1052,
- enum_ops_split_p_sc_sc = 1053,
- enum_ops_charset_i_s = 1054,
- enum_ops_charset_i_sc = 1055,
- enum_ops_charsetname_s_i = 1056,
- enum_ops_charsetname_s_ic = 1057,
- enum_ops_find_charset_i_s = 1058,
- enum_ops_find_charset_i_sc = 1059,
- enum_ops_trans_charset_s_s_i = 1060,
- enum_ops_trans_charset_s_sc_i = 1061,
- enum_ops_trans_charset_s_s_ic = 1062,
- enum_ops_trans_charset_s_sc_ic = 1063,
- enum_ops_encoding_i_s = 1064,
- enum_ops_encoding_i_sc = 1065,
- enum_ops_encodingname_s_i = 1066,
- enum_ops_encodingname_s_ic = 1067,
- enum_ops_find_encoding_i_s = 1068,
- enum_ops_find_encoding_i_sc = 1069,
- enum_ops_trans_encoding_s_s_i = 1070,
- enum_ops_trans_encoding_s_sc_i = 1071,
- enum_ops_trans_encoding_s_s_ic = 1072,
- enum_ops_trans_encoding_s_sc_ic = 1073,
- enum_ops_is_cclass_i_i_s_i = 1074,
- enum_ops_is_cclass_i_ic_s_i = 1075,
- enum_ops_is_cclass_i_i_sc_i = 1076,
- enum_ops_is_cclass_i_ic_sc_i = 1077,
- enum_ops_is_cclass_i_i_s_ic = 1078,
- enum_ops_is_cclass_i_ic_s_ic = 1079,
- enum_ops_is_cclass_i_i_sc_ic = 1080,
- enum_ops_is_cclass_i_ic_sc_ic = 1081,
- enum_ops_find_cclass_i_i_s_i_i = 1082,
- enum_ops_find_cclass_i_ic_s_i_i = 1083,
- enum_ops_find_cclass_i_i_sc_i_i = 1084,
- enum_ops_find_cclass_i_ic_sc_i_i = 1085,
- enum_ops_find_cclass_i_i_s_ic_i = 1086,
- enum_ops_find_cclass_i_ic_s_ic_i = 1087,
- enum_ops_find_cclass_i_i_sc_ic_i = 1088,
- enum_ops_find_cclass_i_ic_sc_ic_i = 1089,
- enum_ops_find_cclass_i_i_s_i_ic = 1090,
- enum_ops_find_cclass_i_ic_s_i_ic = 1091,
- enum_ops_find_cclass_i_i_sc_i_ic = 1092,
- enum_ops_find_cclass_i_ic_sc_i_ic = 1093,
- enum_ops_find_cclass_i_i_s_ic_ic = 1094,
- enum_ops_find_cclass_i_ic_s_ic_ic = 1095,
- enum_ops_find_cclass_i_i_sc_ic_ic = 1096,
- enum_ops_find_cclass_i_ic_sc_ic_ic = 1097,
- enum_ops_find_not_cclass_i_i_s_i_i = 1098,
- enum_ops_find_not_cclass_i_ic_s_i_i = 1099,
- enum_ops_find_not_cclass_i_i_sc_i_i = 1100,
- enum_ops_find_not_cclass_i_ic_sc_i_i = 1101,
- enum_ops_find_not_cclass_i_i_s_ic_i = 1102,
- enum_ops_find_not_cclass_i_ic_s_ic_i = 1103,
- enum_ops_find_not_cclass_i_i_sc_ic_i = 1104,
- enum_ops_find_not_cclass_i_ic_sc_ic_i = 1105,
- enum_ops_find_not_cclass_i_i_s_i_ic = 1106,
- enum_ops_find_not_cclass_i_ic_s_i_ic = 1107,
- enum_ops_find_not_cclass_i_i_sc_i_ic = 1108,
- enum_ops_find_not_cclass_i_ic_sc_i_ic = 1109,
- enum_ops_find_not_cclass_i_i_s_ic_ic = 1110,
- enum_ops_find_not_cclass_i_ic_s_ic_ic = 1111,
- enum_ops_find_not_cclass_i_i_sc_ic_ic = 1112,
- enum_ops_find_not_cclass_i_ic_sc_ic_ic = 1113,
- enum_ops_escape_s_s = 1114,
- enum_ops_compose_s_s = 1115,
- enum_ops_compose_s_sc = 1116,
- enum_ops_spawnw_i_s = 1117,
- enum_ops_spawnw_i_sc = 1118,
- enum_ops_spawnw_i_p = 1119,
- enum_ops_err_i = 1120,
- enum_ops_err_s = 1121,
- enum_ops_err_s_i = 1122,
- enum_ops_err_s_ic = 1123,
- enum_ops_time_i = 1124,
- enum_ops_time_n = 1125,
- enum_ops_gmtime_s_i = 1126,
- enum_ops_gmtime_s_ic = 1127,
- enum_ops_localtime_s_i = 1128,
- enum_ops_localtime_s_ic = 1129,
- enum_ops_decodetime_p_i = 1130,
- enum_ops_decodetime_p_ic = 1131,
- enum_ops_decodelocaltime_p_i = 1132,
- enum_ops_decodelocaltime_p_ic = 1133,
- enum_ops_sysinfo_s_i = 1134,
- enum_ops_sysinfo_s_ic = 1135,
- enum_ops_sysinfo_i_i = 1136,
- enum_ops_sysinfo_i_ic = 1137,
- enum_ops_sleep_i = 1138,
- enum_ops_sleep_ic = 1139,
- enum_ops_sleep_n = 1140,
- enum_ops_sleep_nc = 1141,
- enum_ops_store_lex_s_p = 1142,
- enum_ops_store_lex_sc_p = 1143,
- enum_ops_store_dynamic_lex_s_p = 1144,
- enum_ops_store_dynamic_lex_sc_p = 1145,
- enum_ops_find_lex_p_s = 1146,
- enum_ops_find_lex_p_sc = 1147,
- enum_ops_find_dynamic_lex_p_s = 1148,
- enum_ops_find_dynamic_lex_p_sc = 1149,
- enum_ops_find_caller_lex_p_s = 1150,
- enum_ops_find_caller_lex_p_sc = 1151,
- enum_ops_get_namespace_p = 1152,
- enum_ops_get_namespace_p_p = 1153,
- enum_ops_get_namespace_p_pc = 1154,
- enum_ops_get_hll_namespace_p = 1155,
- enum_ops_get_hll_namespace_p_p = 1156,
- enum_ops_get_hll_namespace_p_pc = 1157,
- enum_ops_get_root_namespace_p = 1158,
- enum_ops_get_root_namespace_p_p = 1159,
- enum_ops_get_root_namespace_p_pc = 1160,
- enum_ops_get_global_p_s = 1161,
- enum_ops_get_global_p_sc = 1162,
- enum_ops_get_global_p_p_s = 1163,
- enum_ops_get_global_p_pc_s = 1164,
- enum_ops_get_global_p_p_sc = 1165,
- enum_ops_get_global_p_pc_sc = 1166,
- enum_ops_get_hll_global_p_s = 1167,
- enum_ops_get_hll_global_p_sc = 1168,
- enum_ops_get_hll_global_p_p_s = 1169,
- enum_ops_get_hll_global_p_pc_s = 1170,
- enum_ops_get_hll_global_p_p_sc = 1171,
- enum_ops_get_hll_global_p_pc_sc = 1172,
- enum_ops_get_root_global_p_s = 1173,
- enum_ops_get_root_global_p_sc = 1174,
- enum_ops_get_root_global_p_p_s = 1175,
- enum_ops_get_root_global_p_pc_s = 1176,
- enum_ops_get_root_global_p_p_sc = 1177,
- enum_ops_get_root_global_p_pc_sc = 1178,
- enum_ops_set_global_s_p = 1179,
- enum_ops_set_global_sc_p = 1180,
- enum_ops_set_global_p_s_p = 1181,
- enum_ops_set_global_pc_s_p = 1182,
- enum_ops_set_global_p_sc_p = 1183,
- enum_ops_set_global_pc_sc_p = 1184,
- enum_ops_set_hll_global_s_p = 1185,
- enum_ops_set_hll_global_sc_p = 1186,
- enum_ops_set_hll_global_p_s_p = 1187,
- enum_ops_set_hll_global_pc_s_p = 1188,
- enum_ops_set_hll_global_p_sc_p = 1189,
- enum_ops_set_hll_global_pc_sc_p = 1190,
- enum_ops_set_root_global_s_p = 1191,
- enum_ops_set_root_global_sc_p = 1192,
- enum_ops_set_root_global_p_s_p = 1193,
- enum_ops_set_root_global_pc_s_p = 1194,
- enum_ops_set_root_global_p_sc_p = 1195,
- enum_ops_set_root_global_pc_sc_p = 1196,
- enum_ops_find_name_p_s = 1197,
- 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_band_i_i_i = 119,
+ enum_ops_band_i_ic_i = 120,
+ enum_ops_band_i_i_ic = 121,
+ enum_ops_bor_i_i = 122,
+ enum_ops_bor_i_ic = 123,
+ enum_ops_bor_i_i_i = 124,
+ enum_ops_bor_i_ic_i = 125,
+ enum_ops_bor_i_i_ic = 126,
+ enum_ops_shl_i_i = 127,
+ enum_ops_shl_i_ic = 128,
+ enum_ops_shl_i_i_i = 129,
+ enum_ops_shl_i_ic_i = 130,
+ enum_ops_shl_i_i_ic = 131,
+ enum_ops_shr_i_i = 132,
+ enum_ops_shr_i_ic = 133,
+ enum_ops_shr_i_i_i = 134,
+ enum_ops_shr_i_ic_i = 135,
+ enum_ops_shr_i_i_ic = 136,
+ enum_ops_lsr_i_i = 137,
+ enum_ops_lsr_i_ic = 138,
+ enum_ops_lsr_i_i_i = 139,
+ enum_ops_lsr_i_ic_i = 140,
+ enum_ops_lsr_i_i_ic = 141,
+ enum_ops_bxor_i_i = 142,
+ enum_ops_bxor_i_ic = 143,
+ enum_ops_bxor_i_i_i = 144,
+ enum_ops_bxor_i_ic_i = 145,
+ enum_ops_bxor_i_i_ic = 146,
+ enum_ops_eq_i_i_ic = 147,
+ enum_ops_eq_ic_i_ic = 148,
+ enum_ops_eq_i_ic_ic = 149,
+ enum_ops_eq_n_n_ic = 150,
+ enum_ops_eq_nc_n_ic = 151,
+ enum_ops_eq_n_nc_ic = 152,
+ enum_ops_eq_s_s_ic = 153,
+ enum_ops_eq_sc_s_ic = 154,
+ enum_ops_eq_s_sc_ic = 155,
+ enum_ops_eq_p_p_ic = 156,
+ enum_ops_eq_p_i_ic = 157,
+ enum_ops_eq_p_ic_ic = 158,
+ enum_ops_eq_p_n_ic = 159,
+ enum_ops_eq_p_nc_ic = 160,
+ enum_ops_eq_p_s_ic = 161,
+ enum_ops_eq_p_sc_ic = 162,
+ enum_ops_eq_str_p_p_ic = 163,
+ enum_ops_eq_num_p_p_ic = 164,
+ enum_ops_eq_addr_s_s_ic = 165,
+ enum_ops_eq_addr_sc_s_ic = 166,
+ enum_ops_eq_addr_s_sc_ic = 167,
+ enum_ops_eq_addr_sc_sc_ic = 168,
+ enum_ops_eq_addr_p_p_ic = 169,
+ enum_ops_ne_i_i_ic = 170,
+ enum_ops_ne_ic_i_ic = 171,
+ enum_ops_ne_i_ic_ic = 172,
+ enum_ops_ne_n_n_ic = 173,
+ enum_ops_ne_nc_n_ic = 174,
+ enum_ops_ne_n_nc_ic = 175,
+ enum_ops_ne_s_s_ic = 176,
+ enum_ops_ne_sc_s_ic = 177,
+ enum_ops_ne_s_sc_ic = 178,
+ enum_ops_ne_p_p_ic = 179,
+ enum_ops_ne_p_i_ic = 180,
+ enum_ops_ne_p_ic_ic = 181,
+ enum_ops_ne_p_n_ic = 182,
+ enum_ops_ne_p_nc_ic = 183,
+ enum_ops_ne_p_s_ic = 184,
+ enum_ops_ne_p_sc_ic = 185,
+ enum_ops_ne_str_p_p_ic = 186,
+ enum_ops_ne_num_p_p_ic = 187,
+ enum_ops_ne_addr_s_s_ic = 188,
+ enum_ops_ne_addr_sc_s_ic = 189,
+ enum_ops_ne_addr_s_sc_ic = 190,
+ enum_ops_ne_addr_sc_sc_ic = 191,
+ enum_ops_ne_addr_p_p_ic = 192,
+ enum_ops_lt_i_i_ic = 193,
+ enum_ops_lt_ic_i_ic = 194,
+ enum_ops_lt_i_ic_ic = 195,
+ enum_ops_lt_n_n_ic = 196,
+ enum_ops_lt_nc_n_ic = 197,
+ enum_ops_lt_n_nc_ic = 198,
+ enum_ops_lt_s_s_ic = 199,
+ enum_ops_lt_sc_s_ic = 200,
+ enum_ops_lt_s_sc_ic = 201,
+ enum_ops_lt_p_p_ic = 202,
+ enum_ops_lt_p_i_ic = 203,
+ enum_ops_lt_p_ic_ic = 204,
+ enum_ops_lt_p_n_ic = 205,
+ enum_ops_lt_p_nc_ic = 206,
+ enum_ops_lt_p_s_ic = 207,
+ enum_ops_lt_p_sc_ic = 208,
+ enum_ops_lt_str_p_p_ic = 209,
+ enum_ops_lt_num_p_p_ic = 210,
+ enum_ops_le_i_i_ic = 211,
+ enum_ops_le_ic_i_ic = 212,
+ enum_ops_le_i_ic_ic = 213,
+ enum_ops_le_n_n_ic = 214,
+ enum_ops_le_nc_n_ic = 215,
+ enum_ops_le_n_nc_ic = 216,
+ enum_ops_le_s_s_ic = 217,
+ enum_ops_le_sc_s_ic = 218,
+ enum_ops_le_s_sc_ic = 219,
+ enum_ops_le_p_p_ic = 220,
+ enum_ops_le_p_i_ic = 221,
+ enum_ops_le_p_ic_ic = 222,
+ enum_ops_le_p_n_ic = 223,
+ enum_ops_le_p_nc_ic = 224,
+ enum_ops_le_p_s_ic = 225,
+ enum_ops_le_p_sc_ic = 226,
+ enum_ops_le_str_p_p_ic = 227,
+ enum_ops_le_num_p_p_ic = 228,
+ enum_ops_gt_p_p_ic = 229,
+ enum_ops_gt_p_i_ic = 230,
+ enum_ops_gt_p_ic_ic = 231,
+ enum_ops_gt_p_n_ic = 232,
+ enum_ops_gt_p_nc_ic = 233,
+ enum_ops_gt_p_s_ic = 234,
+ enum_ops_gt_p_sc_ic = 235,
+ enum_ops_gt_str_p_p_ic = 236,
+ enum_ops_gt_num_p_p_ic = 237,
+ enum_ops_ge_p_p_ic = 238,
+ enum_ops_ge_p_i_ic = 239,
+ enum_ops_ge_p_ic_ic = 240,
+ enum_ops_ge_p_n_ic = 241,
+ enum_ops_ge_p_nc_ic = 242,
+ enum_ops_ge_p_s_ic = 243,
+ enum_ops_ge_p_sc_ic = 244,
+ enum_ops_ge_str_p_p_ic = 245,
+ enum_ops_ge_num_p_p_ic = 246,
+ enum_ops_if_null_p_ic = 247,
+ enum_ops_if_null_s_ic = 248,
+ enum_ops_unless_null_p_ic = 249,
+ enum_ops_unless_null_s_ic = 250,
+ enum_ops_cmp_i_i_i = 251,
+ enum_ops_cmp_i_ic_i = 252,
+ enum_ops_cmp_i_i_ic = 253,
+ enum_ops_cmp_i_n_n = 254,
+ enum_ops_cmp_i_nc_n = 255,
+ enum_ops_cmp_i_n_nc = 256,
+ enum_ops_cmp_i_s_s = 257,
+ enum_ops_cmp_i_sc_s = 258,
+ enum_ops_cmp_i_s_sc = 259,
+ enum_ops_cmp_i_p_p = 260,
+ enum_ops_cmp_i_p_i = 261,
+ enum_ops_cmp_i_p_ic = 262,
+ enum_ops_cmp_i_p_n = 263,
+ enum_ops_cmp_i_p_nc = 264,
+ enum_ops_cmp_i_p_s = 265,
+ enum_ops_cmp_i_p_sc = 266,
+ enum_ops_cmp_str_i_p_p = 267,
+ enum_ops_cmp_num_i_p_p = 268,
+ enum_ops_cmp_pmc_p_p_p = 269,
+ enum_ops_issame_i_p_p = 270,
+ enum_ops_issame_i_s_s = 271,
+ enum_ops_issame_i_sc_s = 272,
+ enum_ops_issame_i_s_sc = 273,
+ enum_ops_issame_i_sc_sc = 274,
+ enum_ops_isntsame_i_p_p = 275,
+ enum_ops_isntsame_i_s_s = 276,
+ enum_ops_isntsame_i_sc_s = 277,
+ enum_ops_isntsame_i_s_sc = 278,
+ enum_ops_isntsame_i_sc_sc = 279,
+ enum_ops_istrue_i_p = 280,
+ enum_ops_isfalse_i_p = 281,
+ enum_ops_isnull_i_p = 282,
+ enum_ops_isnull_i_pc = 283,
+ enum_ops_isnull_i_s = 284,
+ enum_ops_isnull_i_sc = 285,
+ enum_ops_isgt_i_p_p = 286,
+ enum_ops_isge_i_p_p = 287,
+ enum_ops_isle_i_i_i = 288,
+ enum_ops_isle_i_ic_i = 289,
+ enum_ops_isle_i_i_ic = 290,
+ enum_ops_isle_i_n_n = 291,
+ enum_ops_isle_i_nc_n = 292,
+ enum_ops_isle_i_n_nc = 293,
+ enum_ops_isle_i_s_s = 294,
+ enum_ops_isle_i_sc_s = 295,
+ enum_ops_isle_i_s_sc = 296,
+ enum_ops_isle_i_p_p = 297,
+ enum_ops_islt_i_i_i = 298,
+ enum_ops_islt_i_ic_i = 299,
+ enum_ops_islt_i_i_ic = 300,
+ enum_ops_islt_i_n_n = 301,
+ enum_ops_islt_i_nc_n = 302,
+ enum_ops_islt_i_n_nc = 303,
+ enum_ops_islt_i_s_s = 304,
+ enum_ops_islt_i_sc_s = 305,
+ enum_ops_islt_i_s_sc = 306,
+ enum_ops_islt_i_p_p = 307,
+ enum_ops_iseq_i_i_i = 308,
+ enum_ops_iseq_i_ic_i = 309,
+ enum_ops_iseq_i_i_ic = 310,
+ enum_ops_iseq_i_n_n = 311,
+ enum_ops_iseq_i_nc_n = 312,
+ enum_ops_iseq_i_n_nc = 313,
+ enum_ops_iseq_i_s_s = 314,
+ enum_ops_iseq_i_sc_s = 315,
+ enum_ops_iseq_i_s_sc = 316,
+ enum_ops_iseq_i_p_p = 317,
+ enum_ops_isne_i_i_i = 318,
+ enum_ops_isne_i_ic_i = 319,
+ enum_ops_isne_i_i_ic = 320,
+ enum_ops_isne_i_n_n = 321,
+ enum_ops_isne_i_nc_n = 322,
+ enum_ops_isne_i_n_nc = 323,
+ enum_ops_isne_i_s_s = 324,
+ enum_ops_isne_i_sc_s = 325,
+ enum_ops_isne_i_s_sc = 326,
+ enum_ops_isne_i_p_p = 327,
+ enum_ops_and_i_i_i = 328,
+ enum_ops_and_i_ic_i = 329,
+ enum_ops_and_i_i_ic = 330,
+ enum_ops_and_p_p_p = 331,
+ enum_ops_not_i = 332,
+ enum_ops_not_i_i = 333,
+ enum_ops_not_p = 334,
+ enum_ops_not_p_p = 335,
+ enum_ops_or_i_i_i = 336,
+ enum_ops_or_i_ic_i = 337,
+ enum_ops_or_i_i_ic = 338,
+ enum_ops_or_p_p_p = 339,
+ enum_ops_xor_i_i_i = 340,
+ enum_ops_xor_i_ic_i = 341,
+ enum_ops_xor_i_i_ic = 342,
+ enum_ops_xor_p_p_p = 343,
+ enum_ops_print_i = 344,
+ enum_ops_print_ic = 345,
+ enum_ops_print_n = 346,
+ enum_ops_print_nc = 347,
+ enum_ops_print_s = 348,
+ enum_ops_print_sc = 349,
+ enum_ops_print_p = 350,
+ enum_ops_say_i = 351,
+ enum_ops_say_ic = 352,
+ enum_ops_say_n = 353,
+ enum_ops_say_nc = 354,
+ enum_ops_say_s = 355,
+ enum_ops_say_sc = 356,
+ enum_ops_say_p = 357,
+ enum_ops_print_p_i = 358,
+ enum_ops_print_p_ic = 359,
+ enum_ops_print_p_n = 360,
+ enum_ops_print_p_nc = 361,
+ enum_ops_print_p_s = 362,
+ enum_ops_print_p_sc = 363,
+ enum_ops_print_p_p = 364,
+ enum_ops_abs_i = 365,
+ enum_ops_abs_n = 366,
+ enum_ops_abs_i_i = 367,
+ enum_ops_abs_n_n = 368,
+ enum_ops_abs_p = 369,
+ enum_ops_abs_p_p = 370,
+ enum_ops_add_i_i = 371,
+ enum_ops_add_i_ic = 372,
+ enum_ops_add_n_n = 373,
+ enum_ops_add_n_nc = 374,
+ enum_ops_add_p_p = 375,
+ enum_ops_add_p_i = 376,
+ enum_ops_add_p_ic = 377,
+ enum_ops_add_p_n = 378,
+ enum_ops_add_p_nc = 379,
+ enum_ops_add_i_i_i = 380,
+ enum_ops_add_i_ic_i = 381,
+ enum_ops_add_i_i_ic = 382,
+ enum_ops_add_n_n_n = 383,
+ enum_ops_add_n_nc_n = 384,
+ enum_ops_add_n_n_nc = 385,
+ enum_ops_add_p_p_p = 386,
+ enum_ops_add_p_p_i = 387,
+ enum_ops_add_p_p_ic = 388,
+ enum_ops_add_p_p_n = 389,
+ enum_ops_add_p_p_nc = 390,
+ enum_ops_dec_i = 391,
+ enum_ops_dec_n = 392,
+ enum_ops_dec_p = 393,
+ enum_ops_div_i_i = 394,
+ enum_ops_div_i_ic = 395,
+ enum_ops_div_n_n = 396,
+ enum_ops_div_n_nc = 397,
+ enum_ops_div_p_p = 398,
+ enum_ops_div_p_i = 399,
+ enum_ops_div_p_ic = 400,
+ enum_ops_div_p_n = 401,
+ enum_ops_div_p_nc = 402,
+ enum_ops_div_i_i_i = 403,
+ enum_ops_div_i_ic_i = 404,
+ enum_ops_div_i_i_ic = 405,
+ enum_ops_div_i_ic_ic = 406,
+ enum_ops_div_n_n_n = 407,
+ enum_ops_div_n_nc_n = 408,
+ enum_ops_div_n_n_nc = 409,
+ enum_ops_div_n_nc_nc = 410,
+ enum_ops_div_p_p_p = 411,
+ enum_ops_div_p_p_i = 412,
+ enum_ops_div_p_p_ic = 413,
+ enum_ops_div_p_p_n = 414,
+ enum_ops_div_p_p_nc = 415,
+ enum_ops_fdiv_i_i = 416,
+ enum_ops_fdiv_i_ic = 417,
+ enum_ops_fdiv_n_n = 418,
+ enum_ops_fdiv_n_nc = 419,
+ enum_ops_fdiv_p_p = 420,
+ enum_ops_fdiv_p_i = 421,
+ enum_ops_fdiv_p_ic = 422,
+ enum_ops_fdiv_p_n = 423,
+ enum_ops_fdiv_p_nc = 424,
+ enum_ops_fdiv_i_i_i = 425,
+ enum_ops_fdiv_i_ic_i = 426,
+ enum_ops_fdiv_i_i_ic = 427,
+ enum_ops_fdiv_n_n_n = 428,
+ enum_ops_fdiv_n_nc_n = 429,
+ enum_ops_fdiv_n_n_nc = 430,
+ enum_ops_fdiv_p_p_p = 431,
+ enum_ops_fdiv_p_p_i = 432,
+ enum_ops_fdiv_p_p_ic = 433,
+ enum_ops_fdiv_p_p_n = 434,
+ enum_ops_fdiv_p_p_nc = 435,
+ enum_ops_ceil_n = 436,
+ enum_ops_ceil_i_n = 437,
+ enum_ops_ceil_n_n = 438,
+ enum_ops_floor_n = 439,
+ enum_ops_floor_i_n = 440,
+ enum_ops_floor_n_n = 441,
+ enum_ops_inc_i = 442,
+ enum_ops_inc_n = 443,
+ enum_ops_inc_p = 444,
+ enum_ops_mod_i_i = 445,
+ enum_ops_mod_i_ic = 446,
+ enum_ops_mod_n_n = 447,
+ enum_ops_mod_n_nc = 448,
+ enum_ops_mod_p_p = 449,
+ enum_ops_mod_p_i = 450,
+ enum_ops_mod_p_ic = 451,
+ enum_ops_mod_p_n = 452,
+ enum_ops_mod_p_nc = 453,
+ enum_ops_mod_i_i_i = 454,
+ enum_ops_mod_i_ic_i = 455,
+ enum_ops_mod_i_i_ic = 456,
+ enum_ops_mod_n_n_n = 457,
+ enum_ops_mod_n_nc_n = 458,
+ enum_ops_mod_n_n_nc = 459,
+ enum_ops_mod_p_p_p = 460,
+ enum_ops_mod_p_p_i = 461,
+ enum_ops_mod_p_p_ic = 462,
+ enum_ops_mod_p_p_n = 463,
+ enum_ops_mod_p_p_nc = 464,
+ enum_ops_mul_i_i = 465,
+ enum_ops_mul_i_ic = 466,
+ enum_ops_mul_n_n = 467,
+ enum_ops_mul_n_nc = 468,
+ enum_ops_mul_p_p = 469,
+ enum_ops_mul_p_i = 470,
+ enum_ops_mul_p_ic = 471,
+ enum_ops_mul_p_n = 472,
+ enum_ops_mul_p_nc = 473,
+ enum_ops_mul_i_i_i = 474,
+ enum_ops_mul_i_ic_i = 475,
+ enum_ops_mul_i_i_ic = 476,
+ enum_ops_mul_n_n_n = 477,
+ enum_ops_mul_n_nc_n = 478,
+ enum_ops_mul_n_n_nc = 479,
+ enum_ops_mul_p_p_p = 480,
+ enum_ops_mul_p_p_i = 481,
+ enum_ops_mul_p_p_ic = 482,
+ enum_ops_mul_p_p_n = 483,
+ enum_ops_mul_p_p_nc = 484,
+ enum_ops_neg_i = 485,
+ enum_ops_neg_n = 486,
+ enum_ops_neg_p = 487,
+ enum_ops_neg_i_i = 488,
+ enum_ops_neg_n_n = 489,
+ enum_ops_neg_p_p = 490,
+ enum_ops_sub_i_i = 491,
+ enum_ops_sub_i_ic = 492,
+ enum_ops_sub_n_n = 493,
+ enum_ops_sub_n_nc = 494,
+ enum_ops_sub_p_p = 495,
+ enum_ops_sub_p_i = 496,
+ enum_ops_sub_p_ic = 497,
+ enum_ops_sub_p_n = 498,
+ enum_ops_sub_p_nc = 499,
+ enum_ops_sub_i_i_i = 500,
+ enum_ops_sub_i_ic_i = 501,
+ enum_ops_sub_i_i_ic = 502,
+ enum_ops_sub_n_n_n = 503,
+ enum_ops_sub_n_nc_n = 504,
+ enum_ops_sub_n_n_nc = 505,
+ enum_ops_sub_p_p_p = 506,
+ enum_ops_sub_p_p_i = 507,
+ enum_ops_sub_p_p_ic = 508,
+ enum_ops_sub_p_p_n = 509,
+ enum_ops_sub_p_p_nc = 510,
+ enum_ops_sqrt_n_n = 511,
+ enum_ops_callmethodcc_p_s = 512,
+ enum_ops_callmethodcc_p_sc = 513,
+ enum_ops_callmethodcc_p_p = 514,
+ enum_ops_callmethod_p_s_p = 515,
+ enum_ops_callmethod_p_sc_p = 516,
+ enum_ops_callmethod_p_p_p = 517,
+ enum_ops_tailcallmethod_p_s = 518,
+ enum_ops_tailcallmethod_p_sc = 519,
+ enum_ops_tailcallmethod_p_p = 520,
+ enum_ops_addmethod_p_s_p = 521,
+ enum_ops_addmethod_p_sc_p = 522,
+ enum_ops_can_i_p_s = 523,
+ enum_ops_can_i_p_sc = 524,
+ enum_ops_does_i_p_s = 525,
+ enum_ops_does_i_p_sc = 526,
+ enum_ops_does_i_p_p = 527,
+ enum_ops_does_i_p_pc = 528,
+ enum_ops_isa_i_p_s = 529,
+ enum_ops_isa_i_p_sc = 530,
+ enum_ops_isa_i_p_p = 531,
+ enum_ops_isa_i_p_pc = 532,
+ enum_ops_newclass_p_s = 533,
+ enum_ops_newclass_p_sc = 534,
+ enum_ops_newclass_p_p = 535,
+ enum_ops_newclass_p_pc = 536,
+ enum_ops_subclass_p_p = 537,
+ enum_ops_subclass_p_pc = 538,
+ enum_ops_subclass_p_p_s = 539,
+ enum_ops_subclass_p_pc_s = 540,
+ enum_ops_subclass_p_p_sc = 541,
+ enum_ops_subclass_p_pc_sc = 542,
+ enum_ops_subclass_p_p_p = 543,
+ enum_ops_subclass_p_pc_p = 544,
+ enum_ops_subclass_p_p_pc = 545,
+ enum_ops_subclass_p_pc_pc = 546,
+ enum_ops_subclass_p_s = 547,
+ enum_ops_subclass_p_sc = 548,
+ enum_ops_subclass_p_s_s = 549,
+ enum_ops_subclass_p_sc_s = 550,
+ enum_ops_subclass_p_s_sc = 551,
+ enum_ops_subclass_p_sc_sc = 552,
+ enum_ops_subclass_p_s_p = 553,
+ enum_ops_subclass_p_sc_p = 554,
+ enum_ops_subclass_p_s_pc = 555,
+ enum_ops_subclass_p_sc_pc = 556,
+ enum_ops_get_class_p_s = 557,
+ enum_ops_get_class_p_sc = 558,
+ enum_ops_get_class_p_p = 559,
+ enum_ops_get_class_p_pc = 560,
+ enum_ops_class_p_p = 561,
+ enum_ops_addparent_p_p = 562,
+ enum_ops_removeparent_p_p = 563,
+ enum_ops_addrole_p_p = 564,
+ enum_ops_addattribute_p_s = 565,
+ enum_ops_addattribute_p_sc = 566,
+ enum_ops_removeattribute_p_s = 567,
+ enum_ops_removeattribute_p_sc = 568,
+ enum_ops_getattribute_p_p_s = 569,
+ enum_ops_getattribute_p_p_sc = 570,
+ enum_ops_getattribute_p_p_p_s = 571,
+ enum_ops_getattribute_p_p_pc_s = 572,
+ enum_ops_getattribute_p_p_p_sc = 573,
+ enum_ops_getattribute_p_p_pc_sc = 574,
+ enum_ops_setattribute_p_s_p = 575,
+ enum_ops_setattribute_p_sc_p = 576,
+ enum_ops_setattribute_p_p_s_p = 577,
+ enum_ops_setattribute_p_pc_s_p = 578,
+ enum_ops_setattribute_p_p_sc_p = 579,
+ enum_ops_setattribute_p_pc_sc_p = 580,
+ enum_ops_inspect_p_p = 581,
+ enum_ops_inspect_p_pc = 582,
+ enum_ops_inspect_p_p_s = 583,
+ enum_ops_inspect_p_pc_s = 584,
+ enum_ops_inspect_p_p_sc = 585,
+ enum_ops_inspect_p_pc_sc = 586,
+ enum_ops_new_p_s = 587,
+ enum_ops_new_p_sc = 588,
+ enum_ops_new_p_s_p = 589,
+ enum_ops_new_p_sc_p = 590,
+ enum_ops_new_p_s_pc = 591,
+ enum_ops_new_p_sc_pc = 592,
+ enum_ops_new_p_p = 593,
+ enum_ops_new_p_pc = 594,
+ enum_ops_new_p_p_p = 595,
+ enum_ops_new_p_pc_p = 596,
+ enum_ops_new_p_p_pc = 597,
+ enum_ops_new_p_pc_pc = 598,
+ enum_ops_root_new_p_p = 599,
+ enum_ops_root_new_p_pc = 600,
+ enum_ops_root_new_p_p_p = 601,
+ enum_ops_root_new_p_pc_p = 602,
+ enum_ops_root_new_p_p_pc = 603,
+ enum_ops_root_new_p_pc_pc = 604,
+ enum_ops_typeof_s_p = 605,
+ enum_ops_typeof_p_p = 606,
+ enum_ops_get_repr_s_p = 607,
+ enum_ops_find_method_p_p_s = 608,
+ enum_ops_find_method_p_p_sc = 609,
+ enum_ops_defined_i_p = 610,
+ enum_ops_defined_i_p_ki = 611,
+ enum_ops_defined_i_p_kic = 612,
+ enum_ops_defined_i_p_k = 613,
+ enum_ops_defined_i_p_kc = 614,
+ enum_ops_exists_i_p_ki = 615,
+ enum_ops_exists_i_p_kic = 616,
+ enum_ops_exists_i_p_k = 617,
+ enum_ops_exists_i_p_kc = 618,
+ enum_ops_delete_p_k = 619,
+ enum_ops_delete_p_kc = 620,
+ enum_ops_delete_p_ki = 621,
+ enum_ops_delete_p_kic = 622,
+ enum_ops_elements_i_p = 623,
+ enum_ops_push_p_i = 624,
+ enum_ops_push_p_ic = 625,
+ enum_ops_push_p_n = 626,
+ enum_ops_push_p_nc = 627,
+ enum_ops_push_p_s = 628,
+ enum_ops_push_p_sc = 629,
+ enum_ops_push_p_p = 630,
+ enum_ops_pop_i_p = 631,
+ enum_ops_pop_n_p = 632,
+ enum_ops_pop_s_p = 633,
+ enum_ops_pop_p_p = 634,
+ enum_ops_unshift_p_i = 635,
+ enum_ops_unshift_p_ic = 636,
+ enum_ops_unshift_p_n = 637,
+ enum_ops_unshift_p_nc = 638,
+ enum_ops_unshift_p_s = 639,
+ enum_ops_unshift_p_sc = 640,
+ enum_ops_unshift_p_p = 641,
+ enum_ops_shift_i_p = 642,
+ enum_ops_shift_n_p = 643,
+ enum_ops_shift_s_p = 644,
+ enum_ops_shift_p_p = 645,
+ enum_ops_splice_p_p_i_i = 646,
+ enum_ops_splice_p_p_ic_i = 647,
+ enum_ops_splice_p_p_i_ic = 648,
+ enum_ops_splice_p_p_ic_ic = 649,
+ enum_ops_setprop_p_s_p = 650,
+ enum_ops_setprop_p_sc_p = 651,
+ enum_ops_getprop_p_s_p = 652,
+ enum_ops_getprop_p_sc_p = 653,
+ enum_ops_delprop_p_s = 654,
+ enum_ops_delprop_p_sc = 655,
+ enum_ops_prophash_p_p = 656,
+ enum_ops_freeze_s_p = 657,
+ enum_ops_thaw_p_s = 658,
+ enum_ops_thaw_p_sc = 659,
+ enum_ops_add_multi_s_s_p = 660,
+ enum_ops_add_multi_sc_s_p = 661,
+ enum_ops_add_multi_s_sc_p = 662,
+ enum_ops_add_multi_sc_sc_p = 663,
+ enum_ops_find_multi_p_s_s = 664,
+ enum_ops_find_multi_p_sc_s = 665,
+ enum_ops_find_multi_p_s_sc = 666,
+ enum_ops_find_multi_p_sc_sc = 667,
+ enum_ops_register_p = 668,
+ enum_ops_unregister_p = 669,
+ enum_ops_box_p_i = 670,
+ enum_ops_box_p_ic = 671,
+ enum_ops_box_p_n = 672,
+ enum_ops_box_p_nc = 673,
+ enum_ops_box_p_s = 674,
+ enum_ops_box_p_sc = 675,
+ enum_ops_iter_p_p = 676,
+ enum_ops_morph_p_p = 677,
+ enum_ops_morph_p_pc = 678,
+ enum_ops_clone_s_s = 679,
+ enum_ops_clone_s_sc = 680,
+ enum_ops_set_i_i = 681,
+ enum_ops_set_i_ic = 682,
+ enum_ops_set_i_n = 683,
+ enum_ops_set_i_nc = 684,
+ enum_ops_set_i_s = 685,
+ enum_ops_set_i_sc = 686,
+ enum_ops_set_n_n = 687,
+ enum_ops_set_n_nc = 688,
+ enum_ops_set_n_i = 689,
+ enum_ops_set_n_ic = 690,
+ enum_ops_set_n_s = 691,
+ enum_ops_set_n_sc = 692,
+ enum_ops_set_n_p = 693,
+ enum_ops_set_s_p = 694,
+ enum_ops_set_s_s = 695,
+ enum_ops_set_s_sc = 696,
+ enum_ops_set_s_i = 697,
+ enum_ops_set_s_ic = 698,
+ enum_ops_set_s_n = 699,
+ enum_ops_set_s_nc = 700,
+ enum_ops_set_p_pc = 701,
+ enum_ops_set_p_p = 702,
+ enum_ops_set_p_i = 703,
+ enum_ops_set_p_ic = 704,
+ enum_ops_set_p_n = 705,
+ enum_ops_set_p_nc = 706,
+ enum_ops_set_p_s = 707,
+ enum_ops_set_p_sc = 708,
+ enum_ops_set_i_p = 709,
+ enum_ops_assign_p_p = 710,
+ enum_ops_assign_p_i = 711,
+ enum_ops_assign_p_ic = 712,
+ enum_ops_assign_p_n = 713,
+ enum_ops_assign_p_nc = 714,
+ enum_ops_assign_p_s = 715,
+ enum_ops_assign_p_sc = 716,
+ enum_ops_assign_s_s = 717,
+ enum_ops_assign_s_sc = 718,
+ enum_ops_setref_p_p = 719,
+ enum_ops_deref_p_p = 720,
+ enum_ops_set_p_ki_i = 721,
+ enum_ops_set_p_kic_i = 722,
+ enum_ops_set_p_ki_ic = 723,
+ enum_ops_set_p_kic_ic = 724,
+ enum_ops_set_p_ki_n = 725,
+ enum_ops_set_p_kic_n = 726,
+ enum_ops_set_p_ki_nc = 727,
+ enum_ops_set_p_kic_nc = 728,
+ enum_ops_set_p_ki_s = 729,
+ enum_ops_set_p_kic_s = 730,
+ enum_ops_set_p_ki_sc = 731,
+ enum_ops_set_p_kic_sc = 732,
+ enum_ops_set_p_ki_p = 733,
+ enum_ops_set_p_kic_p = 734,
+ enum_ops_set_i_p_ki = 735,
+ enum_ops_set_i_p_kic = 736,
+ enum_ops_set_n_p_ki = 737,
+ enum_ops_set_n_p_kic = 738,
+ enum_ops_set_s_p_ki = 739,
+ enum_ops_set_s_p_kic = 740,
+ enum_ops_set_p_p_ki = 741,
+ enum_ops_set_p_p_kic = 742,
+ enum_ops_set_p_k_i = 743,
+ enum_ops_set_p_kc_i = 744,
+ enum_ops_set_p_k_ic = 745,
+ enum_ops_set_p_kc_ic = 746,
+ enum_ops_set_p_k_n = 747,
+ enum_ops_set_p_kc_n = 748,
+ enum_ops_set_p_k_nc = 749,
+ enum_ops_set_p_kc_nc = 750,
+ enum_ops_set_p_k_s = 751,
+ enum_ops_set_p_kc_s = 752,
+ enum_ops_set_p_k_sc = 753,
+ enum_ops_set_p_kc_sc = 754,
+ enum_ops_set_p_k_p = 755,
+ enum_ops_set_p_kc_p = 756,
+ enum_ops_set_i_p_k = 757,
+ enum_ops_set_i_p_kc = 758,
+ enum_ops_set_n_p_k = 759,
+ enum_ops_set_n_p_kc = 760,
+ enum_ops_set_s_p_k = 761,
+ enum_ops_set_s_p_kc = 762,
+ enum_ops_set_p_p_k = 763,
+ enum_ops_set_p_p_kc = 764,
+ enum_ops_clone_p_p = 765,
+ enum_ops_clone_p_p_p = 766,
+ enum_ops_clone_p_p_pc = 767,
+ enum_ops_copy_p_p = 768,
+ enum_ops_null_s = 769,
+ enum_ops_null_i = 770,
+ enum_ops_null_p = 771,
+ enum_ops_null_n = 772,
+ enum_ops_ord_i_s = 773,
+ enum_ops_ord_i_sc = 774,
+ enum_ops_ord_i_s_i = 775,
+ enum_ops_ord_i_sc_i = 776,
+ enum_ops_ord_i_s_ic = 777,
+ enum_ops_ord_i_sc_ic = 778,
+ enum_ops_chr_s_i = 779,
+ enum_ops_chr_s_ic = 780,
+ enum_ops_chopn_s_s_i = 781,
+ enum_ops_chopn_s_sc_i = 782,
+ enum_ops_chopn_s_s_ic = 783,
+ enum_ops_chopn_s_sc_ic = 784,
+ enum_ops_concat_s_s = 785,
+ enum_ops_concat_s_sc = 786,
+ enum_ops_concat_p_p = 787,
+ enum_ops_concat_p_s = 788,
+ enum_ops_concat_p_sc = 789,
+ enum_ops_concat_s_s_s = 790,
+ enum_ops_concat_s_sc_s = 791,
+ enum_ops_concat_s_s_sc = 792,
+ enum_ops_concat_p_p_s = 793,
+ enum_ops_concat_p_p_sc = 794,
+ enum_ops_concat_p_p_p = 795,
+ enum_ops_repeat_s_s_i = 796,
+ enum_ops_repeat_s_sc_i = 797,
+ enum_ops_repeat_s_s_ic = 798,
+ enum_ops_repeat_s_sc_ic = 799,
+ enum_ops_repeat_p_p_i = 800,
+ enum_ops_repeat_p_p_ic = 801,
+ enum_ops_repeat_p_p_p = 802,
+ enum_ops_repeat_p_i = 803,
+ enum_ops_repeat_p_ic = 804,
+ enum_ops_repeat_p_p = 805,
+ enum_ops_length_i_s = 806,
+ enum_ops_length_i_sc = 807,
+ enum_ops_bytelength_i_s = 808,
+ enum_ops_bytelength_i_sc = 809,
+ enum_ops_pin_s = 810,
+ enum_ops_unpin_s = 811,
+ enum_ops_substr_s_s_i = 812,
+ enum_ops_substr_s_sc_i = 813,
+ enum_ops_substr_s_s_ic = 814,
+ enum_ops_substr_s_sc_ic = 815,
+ enum_ops_substr_s_s_i_i = 816,
+ enum_ops_substr_s_sc_i_i = 817,
+ enum_ops_substr_s_s_ic_i = 818,
+ enum_ops_substr_s_sc_ic_i = 819,
+ enum_ops_substr_s_s_i_ic = 820,
+ enum_ops_substr_s_sc_i_ic = 821,
+ enum_ops_substr_s_s_ic_ic = 822,
+ enum_ops_substr_s_sc_ic_ic = 823,
+ enum_ops_substr_s_p_i_i = 824,
+ enum_ops_substr_s_p_ic_i = 825,
+ enum_ops_substr_s_p_i_ic = 826,
+ enum_ops_substr_s_p_ic_ic = 827,
+ enum_ops_replace_s_s_i_i_s = 828,
+ enum_ops_replace_s_sc_i_i_s = 829,
+ enum_ops_replace_s_s_ic_i_s = 830,
+ enum_ops_replace_s_sc_ic_i_s = 831,
+ enum_ops_replace_s_s_i_ic_s = 832,
+ enum_ops_replace_s_sc_i_ic_s = 833,
+ enum_ops_replace_s_s_ic_ic_s = 834,
+ enum_ops_replace_s_sc_ic_ic_s = 835,
+ enum_ops_replace_s_s_i_i_sc = 836,
+ enum_ops_replace_s_sc_i_i_sc = 837,
+ enum_ops_replace_s_s_ic_i_sc = 838,
+ enum_ops_replace_s_sc_ic_i_sc = 839,
+ enum_ops_replace_s_s_i_ic_sc = 840,
+ enum_ops_replace_s_sc_i_ic_sc = 841,
+ enum_ops_replace_s_s_ic_ic_sc = 842,
+ enum_ops_replace_s_sc_ic_ic_sc = 843,
+ enum_ops_index_i_s_s = 844,
+ enum_ops_index_i_sc_s = 845,
+ enum_ops_index_i_s_sc = 846,
+ enum_ops_index_i_sc_sc = 847,
+ enum_ops_index_i_s_s_i = 848,
+ enum_ops_index_i_sc_s_i = 849,
+ enum_ops_index_i_s_sc_i = 850,
+ enum_ops_index_i_sc_sc_i = 851,
+ enum_ops_index_i_s_s_ic = 852,
+ enum_ops_index_i_sc_s_ic = 853,
+ enum_ops_index_i_s_sc_ic = 854,
+ enum_ops_index_i_sc_sc_ic = 855,
+ enum_ops_sprintf_s_s_p = 856,
+ enum_ops_sprintf_s_sc_p = 857,
+ enum_ops_sprintf_p_p_p = 858,
+ enum_ops_new_s = 859,
+ enum_ops_new_s_i = 860,
+ enum_ops_new_s_ic = 861,
+ enum_ops_stringinfo_i_s_i = 862,
+ enum_ops_stringinfo_i_sc_i = 863,
+ enum_ops_stringinfo_i_s_ic = 864,
+ enum_ops_stringinfo_i_sc_ic = 865,
+ enum_ops_upcase_s_s = 866,
+ enum_ops_upcase_s_sc = 867,
+ enum_ops_downcase_s_s = 868,
+ enum_ops_downcase_s_sc = 869,
+ enum_ops_titlecase_s_s = 870,
+ enum_ops_titlecase_s_sc = 871,
+ enum_ops_join_s_s_p = 872,
+ enum_ops_join_s_sc_p = 873,
+ enum_ops_split_p_s_s = 874,
+ enum_ops_split_p_sc_s = 875,
+ enum_ops_split_p_s_sc = 876,
+ enum_ops_split_p_sc_sc = 877,
+ enum_ops_charset_i_s = 878,
+ enum_ops_charset_i_sc = 879,
+ enum_ops_charsetname_s_i = 880,
+ enum_ops_charsetname_s_ic = 881,
+ enum_ops_find_charset_i_s = 882,
+ enum_ops_find_charset_i_sc = 883,
+ enum_ops_trans_charset_s_s_i = 884,
+ enum_ops_trans_charset_s_sc_i = 885,
+ enum_ops_trans_charset_s_s_ic = 886,
+ enum_ops_trans_charset_s_sc_ic = 887,
+ enum_ops_encoding_i_s = 888,
+ enum_ops_encoding_i_sc = 889,
+ enum_ops_encodingname_s_i = 890,
+ enum_ops_encodingname_s_ic = 891,
+ enum_ops_find_encoding_i_s = 892,
+ enum_ops_find_encoding_i_sc = 893,
+ enum_ops_trans_encoding_s_s_i = 894,
+ enum_ops_trans_encoding_s_sc_i = 895,
+ enum_ops_trans_encoding_s_s_ic = 896,
+ enum_ops_trans_encoding_s_sc_ic = 897,
+ enum_ops_is_cclass_i_i_s_i = 898,
+ enum_ops_is_cclass_i_ic_s_i = 899,
+ enum_ops_is_cclass_i_i_sc_i = 900,
+ enum_ops_is_cclass_i_ic_sc_i = 901,
+ enum_ops_is_cclass_i_i_s_ic = 902,
+ enum_ops_is_cclass_i_ic_s_ic = 903,
+ enum_ops_is_cclass_i_i_sc_ic = 904,
+ enum_ops_is_cclass_i_ic_sc_ic = 905,
+ enum_ops_find_cclass_i_i_s_i_i = 906,
+ enum_ops_find_cclass_i_ic_s_i_i = 907,
+ enum_ops_find_cclass_i_i_sc_i_i = 908,
+ enum_ops_find_cclass_i_ic_sc_i_i = 909,
+ enum_ops_find_cclass_i_i_s_ic_i = 910,
+ enum_ops_find_cclass_i_ic_s_ic_i = 911,
+ enum_ops_find_cclass_i_i_sc_ic_i = 912,
+ enum_ops_find_cclass_i_ic_sc_ic_i = 913,
+ enum_ops_find_cclass_i_i_s_i_ic = 914,
+ enum_ops_find_cclass_i_ic_s_i_ic = 915,
+ enum_ops_find_cclass_i_i_sc_i_ic = 916,
+ enum_ops_find_cclass_i_ic_sc_i_ic = 917,
+ enum_ops_find_cclass_i_i_s_ic_ic = 918,
+ enum_ops_find_cclass_i_ic_s_ic_ic = 919,
+ enum_ops_find_cclass_i_i_sc_ic_ic = 920,
+ enum_ops_find_cclass_i_ic_sc_ic_ic = 921,
+ enum_ops_find_not_cclass_i_i_s_i_i = 922,
+ enum_ops_find_not_cclass_i_ic_s_i_i = 923,
+ enum_ops_find_not_cclass_i_i_sc_i_i = 924,
+ enum_ops_find_not_cclass_i_ic_sc_i_i = 925,
+ enum_ops_find_not_cclass_i_i_s_ic_i = 926,
+ enum_ops_find_not_cclass_i_ic_s_ic_i = 927,
+ enum_ops_find_not_cclass_i_i_sc_ic_i = 928,
+ enum_ops_find_not_cclass_i_ic_sc_ic_i = 929,
+ enum_ops_find_not_cclass_i_i_s_i_ic = 930,
+ enum_ops_find_not_cclass_i_ic_s_i_ic = 931,
+ enum_ops_find_not_cclass_i_i_sc_i_ic = 932,
+ enum_ops_find_not_cclass_i_ic_sc_i_ic = 933,
+ enum_ops_find_not_cclass_i_i_s_ic_ic = 934,
+ enum_ops_find_not_cclass_i_ic_s_ic_ic = 935,
+ enum_ops_find_not_cclass_i_i_sc_ic_ic = 936,
+ enum_ops_find_not_cclass_i_ic_sc_ic_ic = 937,
+ enum_ops_escape_s_s = 938,
+ enum_ops_compose_s_s = 939,
+ enum_ops_compose_s_sc = 940,
+ enum_ops_spawnw_i_s = 941,
+ enum_ops_spawnw_i_sc = 942,
+ enum_ops_spawnw_i_p = 943,
+ enum_ops_err_i = 944,
+ enum_ops_err_s = 945,
+ enum_ops_err_s_i = 946,
+ enum_ops_err_s_ic = 947,
+ enum_ops_time_i = 948,
+ enum_ops_time_n = 949,
+ enum_ops_sleep_i = 950,
+ enum_ops_sleep_ic = 951,
+ enum_ops_sleep_n = 952,
+ enum_ops_sleep_nc = 953,
+ enum_ops_store_lex_s_p = 954,
+ enum_ops_store_lex_sc_p = 955,
+ enum_ops_store_dynamic_lex_s_p = 956,
+ enum_ops_store_dynamic_lex_sc_p = 957,
+ enum_ops_find_lex_p_s = 958,
+ enum_ops_find_lex_p_sc = 959,
+ enum_ops_find_dynamic_lex_p_s = 960,
+ enum_ops_find_dynamic_lex_p_sc = 961,
+ enum_ops_find_caller_lex_p_s = 962,
+ enum_ops_find_caller_lex_p_sc = 963,
+ enum_ops_get_namespace_p = 964,
+ enum_ops_get_namespace_p_p = 965,
+ enum_ops_get_namespace_p_pc = 966,
+ enum_ops_get_hll_namespace_p = 967,
+ enum_ops_get_hll_namespace_p_p = 968,
+ enum_ops_get_hll_namespace_p_pc = 969,
+ enum_ops_get_root_namespace_p = 970,
+ enum_ops_get_root_namespace_p_p = 971,
+ enum_ops_get_root_namespace_p_pc = 972,
+ enum_ops_get_global_p_s = 973,
+ enum_ops_get_global_p_sc = 974,
+ enum_ops_get_global_p_p_s = 975,
+ enum_ops_get_global_p_pc_s = 976,
+ enum_ops_get_global_p_p_sc = 977,
+ enum_ops_get_global_p_pc_sc = 978,
+ enum_ops_get_hll_global_p_s = 979,
+ enum_ops_get_hll_global_p_sc = 980,
+ enum_ops_get_hll_global_p_p_s = 981,
+ enum_ops_get_hll_global_p_pc_s = 982,
+ enum_ops_get_hll_global_p_p_sc = 983,
+ enum_ops_get_hll_global_p_pc_sc = 984,
+ enum_ops_get_root_global_p_s = 985,
+ enum_ops_get_root_global_p_sc = 986,
+ enum_ops_get_root_global_p_p_s = 987,
+ enum_ops_get_root_global_p_pc_s = 988,
+ enum_ops_get_root_global_p_p_sc = 989,
+ enum_ops_get_root_global_p_pc_sc = 990,
+ enum_ops_set_global_s_p = 991,
+ enum_ops_set_global_sc_p = 992,
+ enum_ops_set_global_p_s_p = 993,
+ enum_ops_set_global_pc_s_p = 994,
+ enum_ops_set_global_p_sc_p = 995,
+ enum_ops_set_global_pc_sc_p = 996,
+ enum_ops_set_hll_global_s_p = 997,
+ enum_ops_set_hll_global_sc_p = 998,
+ enum_ops_set_hll_global_p_s_p = 999,
+ enum_ops_set_hll_global_pc_s_p = 1000,
+ enum_ops_set_hll_global_p_sc_p = 1001,
+ enum_ops_set_hll_global_pc_sc_p = 1002,
+ enum_ops_set_root_global_s_p = 1003,
+ enum_ops_set_root_global_sc_p = 1004,
+ enum_ops_set_root_global_p_s_p = 1005,
+ enum_ops_set_root_global_pc_s_p = 1006,
+ enum_ops_set_root_global_p_sc_p = 1007,
+ enum_ops_set_root_global_pc_sc_p = 1008,
+ enum_ops_find_name_p_s = 1009,
+ enum_ops_find_name_p_sc = 1010,
+ enum_ops_find_sub_not_null_p_s = 1011,
+ enum_ops_find_sub_not_null_p_sc = 1012,
+ enum_ops_trap = 1013,
+ enum_ops_set_label_p_ic = 1014,
+ enum_ops_get_label_i_p = 1015,
+ enum_ops_fetch_p_p_p_p = 1016,
+ enum_ops_fetch_p_pc_p_p = 1017,
+ enum_ops_fetch_p_p_pc_p = 1018,
+ enum_ops_fetch_p_pc_pc_p = 1019,
+ enum_ops_fetch_p_p_p_pc = 1020,
+ enum_ops_fetch_p_pc_p_pc = 1021,
+ enum_ops_fetch_p_p_pc_pc = 1022,
+ enum_ops_fetch_p_pc_pc_pc = 1023,
+ enum_ops_fetch_p_p_i_p = 1024,
+ enum_ops_fetch_p_pc_i_p = 1025,
+ enum_ops_fetch_p_p_ic_p = 1026,
+ enum_ops_fetch_p_pc_ic_p = 1027,
+ enum_ops_fetch_p_p_i_pc = 1028,
+ enum_ops_fetch_p_pc_i_pc = 1029,
+ enum_ops_fetch_p_p_ic_pc = 1030,
+ enum_ops_fetch_p_pc_ic_pc = 1031,
+ enum_ops_fetch_p_p_s_p = 1032,
+ enum_ops_fetch_p_pc_s_p = 1033,
+ enum_ops_fetch_p_p_sc_p = 1034,
+ enum_ops_fetch_p_pc_sc_p = 1035,
+ enum_ops_fetch_p_p_s_pc = 1036,
+ enum_ops_fetch_p_pc_s_pc = 1037,
+ enum_ops_fetch_p_p_sc_pc = 1038,
+ enum_ops_fetch_p_pc_sc_pc = 1039,
+ enum_ops_vivify_p_p_p_p = 1040,
+ enum_ops_vivify_p_pc_p_p = 1041,
+ enum_ops_vivify_p_p_pc_p = 1042,
+ enum_ops_vivify_p_pc_pc_p = 1043,
+ enum_ops_vivify_p_p_p_pc = 1044,
+ enum_ops_vivify_p_pc_p_pc = 1045,
+ enum_ops_vivify_p_p_pc_pc = 1046,
+ enum_ops_vivify_p_pc_pc_pc = 1047,
+ enum_ops_vivify_p_p_i_p = 1048,
+ enum_ops_vivify_p_pc_i_p = 1049,
+ enum_ops_vivify_p_p_ic_p = 1050,
+ enum_ops_vivify_p_pc_ic_p = 1051,
+ enum_ops_vivify_p_p_i_pc = 1052,
+ enum_ops_vivify_p_pc_i_pc = 1053,
+ enum_ops_vivify_p_p_ic_pc = 1054,
+ enum_ops_vivify_p_pc_ic_pc = 1055,
+ enum_ops_vivify_p_p_s_p = 1056,
+ enum_ops_vivify_p_pc_s_p = 1057,
+ enum_ops_vivify_p_p_sc_p = 1058,
+ enum_ops_vivify_p_pc_sc_p = 1059,
+ enum_ops_vivify_p_p_s_pc = 1060,
+ enum_ops_vivify_p_pc_s_pc = 1061,
+ enum_ops_vivify_p_p_sc_pc = 1062,
+ enum_ops_vivify_p_pc_sc_pc = 1063,
+ enum_ops_new_p_s_i = 1064,
+ enum_ops_new_p_sc_i = 1065,
+ enum_ops_new_p_s_ic = 1066,
+ enum_ops_new_p_sc_ic = 1067,
+ enum_ops_new_p_p_i = 1068,
+ enum_ops_new_p_pc_i = 1069,
+ enum_ops_new_p_p_ic = 1070,
+ enum_ops_new_p_pc_ic = 1071,
+ enum_ops_root_new_p_p_i = 1072,
+ enum_ops_root_new_p_pc_i = 1073,
+ enum_ops_root_new_p_p_ic = 1074,
+ enum_ops_root_new_p_pc_ic = 1075,
+ enum_ops_find_codepoint_i_s = 1076,
+ enum_ops_find_codepoint_i_sc = 1077,
+ enum_ops_finalize_p = 1078,
+ enum_ops_finalize_pc = 1079,
};
Modified: branches/gsoc_instrument/include/parrot/platform_interface.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/platform_interface.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/platform_interface.h Sat May 29 11:56:49 2010 (r47109)
@@ -57,8 +57,14 @@
void Parrot_usleep(unsigned int microseconds);
INTVAL Parrot_intval_time(void);
FLOATVAL Parrot_floatval_time(void);
+
+PARROT_EXPORT
struct tm * Parrot_gmtime_r(const time_t *, struct tm *);
+
+PARROT_EXPORT
struct tm * Parrot_localtime_r(const time_t *, struct tm *);
+
+PARROT_EXPORT
char* Parrot_asctime_r(const struct tm*, char *);
/*
Modified: branches/gsoc_instrument/include/parrot/pmc.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/pmc.h Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/include/parrot/pmc.h Sat May 29 11:56:49 2010 (r47109)
@@ -245,6 +245,9 @@
#define pmc_type Parrot_pmc_get_type_str
#define pmc_type_p Parrot_pmc_get_type
+#define PMC_IS_TYPE(p, t) ((p)->vtable->base_type == enum_class_ ## t)
+#define PMC_IS_TYPE_ENUM(p, e) ((p)->vtable->base_type == (e))
+
#endif /* PARROT_PMC_H_GUARD */
/*
Modified: branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf.pm
==============================================================================
--- branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf.pm Sat May 29 11:56:49 2010 (r47109)
@@ -44,8 +44,6 @@
which upon failure cause Configure.pl to halt
--silent Don't be verbose, interactive or fatal
--nomanicheck Don't check the MANIFEST
- --languages="list of languages"
- Specify a list of languages to process
--ask Have Configure ask for commonly-changed info
--test=configure Run tests of configuration tools before configuring
Modified: branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf/Shared.pm
==============================================================================
--- branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf/Shared.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/lib/Parrot/Configure/Options/Conf/Shared.pm Sat May 29 11:56:49 2010 (r47109)
@@ -39,7 +39,6 @@
intval
jitcapable
buildframes
- languages
ld
ldflags
lex
Modified: branches/gsoc_instrument/lib/Parrot/Configure/Options/Reconf.pm
==============================================================================
--- branches/gsoc_instrument/lib/Parrot/Configure/Options/Reconf.pm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/lib/Parrot/Configure/Options/Reconf.pm Sat May 29 11:56:49 2010 (r47109)
@@ -1,4 +1,4 @@
-# Copyright (C) 2007, Parrot Foundation.
+# Copyright (C) 2007-2010, Parrot Foundation.
# $Id$
package Parrot::Configure::Options::Reconf;
@@ -16,7 +16,6 @@
ask
debugging
help
- languages
lex
maintainer
step
@@ -57,8 +56,6 @@
--step=(gen::makefiles)
Execute a single configure step
--target=(Makefile) Regenerate a specific makefile
- --languages="list of languages"
- Specify a list of languages to process
--ask Have Configure ask for commonly-changed info
Modified: branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir Sat May 29 11:56:49 2010 (r47109)
@@ -14,6 +14,7 @@
=cut
.include 'stat.pasm'
+.loadlib 'io_ops'
=head3 Class Archive;Tar;File
@@ -438,8 +439,10 @@
.sub '_error' :method
.param pmc args :slurpy
$S0 = join '', args
- printerr $S0
- printerr "\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'($S0)
+ $P1.'print'("\n")
.end
=back
Modified: branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir Sat May 29 11:56:49 2010 (r47109)
@@ -13,6 +13,8 @@
=cut
+.loadlib 'sys_ops'
+.loadlib 'io_ops'
.include 'stat.pasm'
.include 'tm.pasm'
@@ -43,8 +45,10 @@
.sub '_printError'
.param pmc args :slurpy
$S0 = join '', args
- printerr $S0
- printerr "\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'($S0)
+ $P1.'print'("\n")
.end
.sub '_ioError' :method
@@ -388,11 +392,11 @@
.sub '_refreshLocalFileHeader' :method
.param pmc fh
.local int here
- here = tell fh
+ here = fh.'tell'()
$P0 = getattribute self, 'writeLocalHeaderRelativeOffset'
$I0 = $P0
$I0 += SIGNATURE_LENGTH
- seek fh, $I0, 0
+ fh.'seek'($I0, 0)
.local string header, fileName, localExtraField
.const string VERSION = 20
header = self.'pack_v'(VERSION)
@@ -428,7 +432,7 @@
if $I0 goto L2
.tailcall self.'_ioError'('re-writing local header')
L2:
- seek fh, here, 0
+ fh.'seek'(here, 0)
.return (AZ_OK)
.end
@@ -597,7 +601,7 @@
.return ('', AZ_OK)
L1:
$P0 = self.'fh'()
- $S0 = read $P0, chunkSize
+ $S0 = $P0.'read'(chunkSize)
unless $S0 == '' goto L2
$I0 = self.'_ioError'("reading data")
.return ($S0, $I0)
@@ -647,7 +651,7 @@
.return ($I0)
L1:
$P0 = self.'fh'()
- seek $P0, 0, 0
+ $P0.'seek'(0, 0)
.return (AZ_OK)
.end
Modified: branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir Sat May 29 11:56:49 2010 (r47109)
@@ -69,9 +69,10 @@
.local int len
content_length = my_env['CONTENT_LENGTH']
len = content_length
- in = getstdin
- query = read in, len
- close in
+ $P0 = getinterp
+ in = $P0.'stdhandle'(0)
+ query = in.'read'(len)
+ in.'close'()
#_dumper( query, 'queryPOST:' )
query_hash = parse( query )
Modified: branches/gsoc_instrument/runtime/parrot/library/Config/JSON.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Config/JSON.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Config/JSON.pir Sat May 29 11:56:49 2010 (r47109)
@@ -25,7 +25,8 @@
.local string text
.local pmc fh
- fh = open filename, 'r'
+ fh = new ['FileHandle']
+ fh.'open'(filename, 'r')
if fh goto slurp_file
$P0 = new 'Exception'
$S0 = concat "Can't open file: ", filename
@@ -75,10 +76,11 @@
output = _json( config, expanded )
# write out the file..
- $P1 = open filename, 'w'
+ $P1 = new ['FileHandle']
+ $P1.'open'(filename, 'w')
print $P1, output
print $P1, "\n"
- close $P1
+ $P1.'close'()
.end
Modified: branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir Sat May 29 11:56:49 2010 (r47109)
@@ -38,6 +38,7 @@
=cut
+.loadlib 'sys_ops'
.include 'sysinfo.pasm'
.sub 'genfile'
@@ -356,13 +357,15 @@
.param string str
.param int pos
.param string msg
- printerr "in '"
- printerr str
- printerr "' at "
- printerr pos
- printerr " : "
- printerr msg
- printerr "\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("in '")
+ $P1.'print'(str)
+ $P1.'print'("' at ")
+ $P1.'print'(pos)
+ $P1.'print'(" : ")
+ $P1.'print'(msg)
+ $P1.'print'("\n")
.end
.sub 'interpolate_var'
@@ -401,9 +404,11 @@
$I1 = $I3
goto L8
L7:
- printerr "\tunknown config: "
- printerr $S1
- printerr "\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("\tunknown config: ")
+ $P1.'print'($S1)
+ $P1.'print'("\n")
L6:
$I0 = $I3 + 1
goto L3
Modified: branches/gsoc_instrument/runtime/parrot/library/Crow.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Crow.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Crow.pir Sat May 29 11:56:49 2010 (r47109)
@@ -65,7 +65,8 @@
.local pmc newsfile
.local string buf, news, start
- newsfile = open 'NEWS', 'r'
+ newsfile = new ['FileHandle']
+ newsfile.'open'('NEWS', 'r')
## find the start of the news item for this version
start = concat 'New in ', version
@@ -73,12 +74,12 @@
before:
$I0 = newsfile.'eof'()
if $I0 goto err_news
- buf = readline newsfile
+ buf = newsfile.'readline'()
$I0 = index buf, start
if $I0 != 0 goto before
blank:
- buf = readline newsfile
+ buf = newsfile.'readline'()
$I0 = index buf, "\n"
if $I0 == 0 goto blank
$I0 = index buf, "\r"
@@ -86,7 +87,7 @@
news .= buf
item:
- buf = readline newsfile
+ buf = newsfile.'readline'()
$I0 = index buf, "\n"
if $I0 == 0 goto done
$I0 = index buf, "\r"
Modified: branches/gsoc_instrument/runtime/parrot/library/Digest/MD5.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Digest/MD5.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Digest/MD5.pir Sat May 29 11:56:49 2010 (r47109)
@@ -49,6 +49,8 @@
=cut
+.loadlib 'bit_ops'
+
###########################################################################
# Export function entries to globals
Modified: branches/gsoc_instrument/runtime/parrot/library/HTTP/Message.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/HTTP/Message.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/HTTP/Message.pir Sat May 29 11:56:49 2010 (r47109)
@@ -20,6 +20,8 @@
.namespace ['HTTP';'Date']
+.loadlib 'io_ops' # XXX avoids segfaults for some reason (see TT #1663)
+.loadlib 'sys_ops'
.include 'tm.pasm'
.sub 'time2str'
Modified: branches/gsoc_instrument/runtime/parrot/library/LWP/Protocol.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/LWP/Protocol.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/LWP/Protocol.pir Sat May 29 11:56:49 2010 (r47109)
@@ -85,6 +85,7 @@
.namespace ['LWP';'Protocol';'file']
+.loadlib 'io_ops'
.include 'stat.pasm'
.sub '' :init :load :anon
@@ -415,18 +416,16 @@
$I0 = index str, "\r\n\r\n"
if $I0 < 0 goto L1
$I0 += 4
- $S0 = substr str, $I0
- $P0 = box $S0
- setattribute response, 'content', $P0
goto L2
L1:
$I0 = index str, "\n\n"
- if $I0 < 0 goto L1
+ if $I0 < 0 goto L3
$I0 += 2
+ L2:
$S0 = substr str, $I0
$P0 = box $S0
setattribute response, 'content', $P0
- L2:
+ L3:
.end
=item request
Modified: branches/gsoc_instrument/runtime/parrot/library/LWP/UserAgent.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/LWP/UserAgent.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/LWP/UserAgent.pir Sat May 29 11:56:49 2010 (r47109)
@@ -17,6 +17,7 @@
=cut
.namespace ['LWP';'UserAgent']
+.loadlib 'io_ops'
.sub '' :init :load :anon
load_bytecode 'URI.pbc'
Modified: branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir Sat May 29 11:56:49 2010 (r47109)
@@ -132,7 +132,9 @@
message .= $S0
message .= "\n"
emit_message:
- printerr message
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'(message)
mob.'to'(pos)
.return (mob)
Modified: branches/gsoc_instrument/runtime/parrot/library/Stream/ParrotIO.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Stream/ParrotIO.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Stream/ParrotIO.pir Sat May 29 11:56:49 2010 (r47109)
@@ -56,7 +56,8 @@
.param string mode
.local pmc pio
- open pio, name, mode
+ pio = new ['FileHandle']
+ pio.'open'(name, mode)
assign self, pio
.end
@@ -100,7 +101,7 @@
bs = self."blockSize"()
pio = self."source"()
- read str, pio, bs
+ str = pio.'read'(bs)
length $I0, str
if $I0 > 0 goto OK
self."close"()
Modified: branches/gsoc_instrument/runtime/parrot/library/TAP/Harness.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/TAP/Harness.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/TAP/Harness.pir Sat May 29 11:56:49 2010 (r47109)
@@ -226,7 +226,7 @@
.param pmc parser
$P0 = parser.'delete_spool'()
if null $P0 goto L1
- close $P0
+ $P0.'close'()
L1:
.end
Modified: branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir Sat May 29 11:56:49 2010 (r47109)
@@ -908,14 +908,14 @@
push_eh _handler
$P0.'open'(filename, 'r')
pop_eh
- $S0 = readline $P0
+ $S0 = $P0.'readline'()
$I0 = index $S0, '#!'
unless $I0 == 0 goto L1
- close $P0
+ $P0.'close'()
$S0 = _get_exec($S0)
.tailcall self.'exec'($S0, filename)
L1:
- seek $P0, 0, 0
+ $P0.'seek'(0, 0)
setattribute self, 'stream', $P0
.return ()
_handler:
@@ -1010,7 +1010,7 @@
st = box 'INIT'
.lex 'state', st
L2:
- $S0 = readline stream
+ $S0 = stream.'readline'()
if $S0 == '' goto L3
$S0 = chomp($S0)
.local pmc token
@@ -1034,7 +1034,7 @@
.yield (token)
goto L2
L3:
- close stream
+ stream.'close'()
$I0 = can stream, 'exit_status'
unless $I0 goto L7
$I0 = stream.'exit_status'()
@@ -1085,9 +1085,11 @@
set st, $S0
goto L5
L2:
- printerr "Unhandled token type: "
- printerr type
- printerr "\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'("Unhandled token type: ")
+ $P1.'print'(type)
+ $P1.'print'("\n")
L5:
.end
Modified: branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir Sat May 29 11:56:49 2010 (r47109)
@@ -59,12 +59,14 @@
output = args['output']
unless null output goto CHECK_ERROR_OUTPUT
- getstdout output
+ $P0 = getinterp
+ output = $P0.'stdhandle'(1)
CHECK_ERROR_OUTPUT:
diag_output = args['diag_output']
unless null diag_output goto SET_OUTPUT
- getstderr diag_output
+ $P0 = getinterp
+ diag_output = $P0.'stdhandle'(1)
SET_OUTPUT:
setattribute self, "output", output
Modified: branches/gsoc_instrument/runtime/parrot/library/Test/More.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Test/More.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/Test/More.pir Sat May 29 11:56:49 2010 (r47109)
@@ -67,6 +67,8 @@
.namespace [ 'Test'; 'More' ]
+.loadlib 'io_ops'
+
.sub _initialize :load
load_bytecode 'Test/Builder.pbc'
Modified: branches/gsoc_instrument/runtime/parrot/library/distutils.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/distutils.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/distutils.pir Sat May 29 11:56:49 2010 (r47109)
@@ -172,6 +172,9 @@
=cut
+.loadlib 'io_ops' # workaround TT #1663
+.loadlib 'sys_ops'
+
.sub '__onload' :load :init :anon
load_bytecode 'osutils.pbc'
$P0 = new 'Hash'
@@ -340,7 +343,7 @@
run_step('usage', kv :flat :named)
L12:
pop_eh
- end
+ .return ()
_handler:
.local pmc ex
.get_results (ex)
@@ -3679,7 +3682,8 @@
.end
.sub 'get_timestamp' :anon
- $P0 = open 'date --rfc-2822', 'rp'
+ $P0 = new 'FileHandle'
+ $P0.'open'('date --rfc-2822', 'rp')
$S0 = $P0.'readline'()
$P0.'close'()
$S0 = chopn $S0, 1
@@ -4481,7 +4485,8 @@
system(cmd, verbose :named('verbose'), 1 :named('ignore_error'))
unlink(srcname, verbose :named('verbose'))
- $P0 = open exename, 'rp'
+ $P0 = new 'FileHandle'
+ $P0.'open'(exename, 'rp')
$S0 = $P0.'readall'()
$P0.'close'()
Modified: branches/gsoc_instrument/runtime/parrot/library/osutils.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/osutils.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/osutils.pir Sat May 29 11:56:49 2010 (r47109)
@@ -45,6 +45,7 @@
.return ($I0)
.end
+.loadlib 'io_ops'
.include 'stat.pasm'
.sub 'file_exists'
Modified: branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir Sat May 29 11:56:49 2010 (r47109)
@@ -19,6 +19,8 @@
=cut
+.loadlib 'os'
+
.sub __onload :load
.local pmc paths
.local pmc includes
@@ -127,32 +129,45 @@
.sub dynext_location
.param string request
.param string ext
+
+ .local pmc os
.local string name
+ os = new ['OS']
+
name = request
- stat $I0, name, 0
- if $I0 goto END
+ push_eh FILE_NOT_FOUND_1
+ # OS.stat throws on file not found
+ os.'stat'(name)
+ goto END
+FILE_NOT_FOUND_1:
name = concat request, ext
- stat $I0, name, 0
- if $I0 goto END
+ push_eh FILE_NOT_FOUND_2
+ os.'stat'(name)
+ goto END
+FILE_NOT_FOUND_2:
name = concat "runtime/parrot/dynext/", request
- stat $I0, name, 0
- if $I0 goto END
+ push_eh FILE_NOT_FOUND_3
+ os.'stat'(name)
+ goto END
+FILE_NOT_FOUND_3:
name = concat "runtime/parrot/dynext/", request
name = concat name, ext
- stat $I0, name, 0
- if $I0 goto END
+ push_eh FILE_NOT_FOUND_4
+ os.'stat'(name)
+ goto END
+FILE_NOT_FOUND_4:
# file not found, give the OS a chance to locate it
name = concat request, ext
+ .return (name)
END:
- .begin_return
- .set_return name
- .end_return
+ pop_eh
+ .return (name)
.end
@@ -187,10 +202,17 @@
path = $P0
$S0 = concat path, name
- stat $I0, $S0, 0
- if $I0 goto OK
+ $P0 = new ['OS']
+ push_eh FILE_NOT_FOUND
+ # OS.stat throws on file not found
+ $P0.'stat'($S0)
+ pop_eh
+ goto END
+
+FILE_NOT_FOUND:
null $S0
-OK:
+
+END:
.begin_return
.set_return $S0
.end_return
Modified: branches/gsoc_instrument/runtime/parrot/library/pcre.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/pcre.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/runtime/parrot/library/pcre.pir Sat May 29 11:56:49 2010 (r47109)
@@ -45,6 +45,7 @@
=cut
+.loadlib 'sys_ops'
.include "sysinfo.pasm"
.sub init
Modified: branches/gsoc_instrument/src/debug.c
==============================================================================
--- branches/gsoc_instrument/src/debug.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/debug.c Sat May 29 11:56:49 2010 (r47109)
@@ -3071,6 +3071,7 @@
*/
+PARROT_EXPORT
void
PDB_print(PARROT_INTERP, ARGIN(const char *command))
{
@@ -3183,6 +3184,7 @@
*/
+PARROT_EXPORT
void
PDB_backtrace(PARROT_INTERP)
{
Modified: branches/gsoc_instrument/src/dynoplibs/Defines.in
==============================================================================
--- branches/gsoc_instrument/src/dynoplibs/Defines.in Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/dynoplibs/Defines.in Sat May 29 11:56:49 2010 (r47109)
@@ -2,6 +2,11 @@
$(DYNEXT_DIR)/obscure_ops$(LOAD_EXT) \
$(DYNEXT_DIR)/math_ops$(LOAD_EXT) \
$(DYNEXT_DIR)/deprecated_ops$(LOAD_EXT) \
+ $(DYNEXT_DIR)/trans_ops$(LOAD_EXT) \
+ $(DYNEXT_DIR)/bit_ops$(LOAD_EXT) \
+ $(DYNEXT_DIR)/debug_ops$(LOAD_EXT) \
+ $(DYNEXT_DIR)/sys_ops$(LOAD_EXT) \
+ $(DYNEXT_DIR)/io_ops$(LOAD_EXT) \
DYNOPLIBS_CLEANUPS = \
src/dynoplibs/*.c \
Modified: branches/gsoc_instrument/src/dynoplibs/Rules.in
==============================================================================
--- branches/gsoc_instrument/src/dynoplibs/Rules.in Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/dynoplibs/Rules.in Sat May 29 11:56:49 2010 (r47109)
@@ -7,6 +7,8 @@
$(PARROT_H_HEADERS) \
include/parrot/runcore_api.h
+#########################
+
$(DYNEXT_DIR)/obscure_ops$(LOAD_EXT): src/dynoplibs/obscure_ops$(O) $(LIBPARROT)
$(LD) @ld_out@$@ src/dynoplibs/obscure_ops$(O) $(LINKARGS)
#IF(win32): if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
@@ -18,8 +20,9 @@
src/dynoplibs/obscure_ops.h: src/dynoplibs/obscure_ops.c
src/dynoplibs/obscure_ops.c: src/dynoplibs/obscure.ops $(OPS2C)
- $(OPS2C) --dynamic src/dynoplibs/obscure.ops
+ $(OPS2C) --dynamic src/dynoplibs/obscure.ops --quiet
+#########################
$(DYNEXT_DIR)/math_ops$(LOAD_EXT): src/dynoplibs/math_ops$(O) $(LIBPARROT)
$(LD) @ld_out@$@ src/dynoplibs/math_ops$(O) $(LINKARGS)
@@ -27,13 +30,14 @@
#IF(cygwin or hpux): $(CHMOD) 0775 $@
src/dynoplibs/math_ops.c: src/dynoplibs/math.ops $(OPS2C)
- $(OPS2C) --dynamic src/dynoplibs/math.ops
+ $(OPS2C) --dynamic src/dynoplibs/math.ops --quiet
src/dynoplibs/math_ops$(O): $(DYNOP_O_DEPS) \
src/dynoplibs/math_ops.c src/dynoplibs/math_ops.h
src/dynoplibs/math_ops.h: src/dynoplibs/math_ops.c
+#########################
$(DYNEXT_DIR)/deprecated_ops$(LOAD_EXT): src/dynoplibs/deprecated_ops$(O) $(LIBPARROT)
$(LD) @ld_out@$@ src/dynoplibs/deprecated_ops$(O) $(LINKARGS)
@@ -46,4 +50,80 @@
src/dynoplibs/deprecated_ops.h: src/dynoplibs/deprecated_ops.c
src/dynoplibs/deprecated_ops.c: src/dynoplibs/deprecated.ops $(OPS2C)
- $(OPS2C) --dynamic src/dynoplibs/deprecated.ops
+ $(OPS2C) --dynamic src/dynoplibs/deprecated.ops --quiet
+
+#########################
+
+$(DYNEXT_DIR)/trans_ops$(LOAD_EXT): src/dynoplibs/trans_ops$(O) $(LIBPARROT)
+ $(LD) @ld_out@$@ src/dynoplibs/trans_ops$(O) $(LINKARGS)
+#IF(win32): if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
+#IF(cygwin or hpux): $(CHMOD) 0775 $@
+
+src/dynoplibs/trans_ops$(O): $(DYNOP_O_DEPS) \
+ src/dynoplibs/trans_ops.c src/dynoplibs/trans_ops.h
+
+src/dynoplibs/trans_ops.h: src/dynoplibs/trans_ops.c
+
+src/dynoplibs/trans_ops.c: src/dynoplibs/trans.ops $(OPS2C)
+ $(OPS2C) --dynamic src/dynoplibs/trans.ops
+
+#########################
+
+$(DYNEXT_DIR)/bit_ops$(LOAD_EXT): src/dynoplibs/bit_ops$(O) $(LIBPARROT)
+ $(LD) @ld_out@$@ src/dynoplibs/bit_ops$(O) $(LINKARGS)
+#IF(win32): if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
+#IF(cygwin or hpux): $(CHMOD) 0775 $@
+
+src/dynoplibs/bit_ops$(O): $(DYNOP_O_DEPS) \
+ src/dynoplibs/bit_ops.c src/dynoplibs/bit_ops.h
+
+src/dynoplibs/bit_ops.h: src/dynoplibs/bit_ops.c
+
+src/dynoplibs/bit_ops.c: src/dynoplibs/bit.ops $(OPS2C)
+ $(OPS2C) --dynamic src/dynoplibs/bit.ops
+
+#########################
+
+$(DYNEXT_DIR)/debug_ops$(LOAD_EXT): src/dynoplibs/debug_ops$(O) $(LIBPARROT)
+ $(LD) @ld_out@$@ src/dynoplibs/debug_ops$(O) $(LINKARGS)
+#IF(win32): if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
+#IF(cygwin or hpux): $(CHMOD) 0775 $@
+
+src/dynoplibs/debug_ops$(O): $(DYNOP_O_DEPS) \
+ src/dynoplibs/debug_ops.c src/dynoplibs/debug_ops.h
+
+src/dynoplibs/debug_ops.h: src/dynoplibs/debug_ops.c
+
+src/dynoplibs/debug_ops.c: src/dynoplibs/debug.ops $(OPS2C)
+ $(OPS2C) --dynamic src/dynoplibs/debug.ops
+
+#########################
+
+$(DYNEXT_DIR)/sys_ops$(LOAD_EXT): src/dynoplibs/sys_ops$(O) $(LIBPARROT)
+ $(LD) @ld_out@$@ src/dynoplibs/sys_ops$(O) $(LINKARGS)
+#IF(win32): if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
+#IF(cygwin or hpux): $(CHMOD) 0775 $@
+
+src/dynoplibs/sys_ops$(O): $(DYNOP_O_DEPS) \
+ src/dynoplibs/sys_ops.c src/dynoplibs/sys_ops.h
+
+src/dynoplibs/sys_ops.h: src/dynoplibs/sys_ops.c
+
+src/dynoplibs/sys_ops.c: src/dynoplibs/sys.ops $(OPS2C)
+ $(OPS2C) --dynamic src/dynoplibs/sys.ops
+
+#########################
+
+$(DYNEXT_DIR)/io_ops$(LOAD_EXT): src/dynoplibs/io_ops$(O) $(LIBPARROT)
+ $(LD) @ld_out@$@ src/dynoplibs/io_ops$(O) $(LINKARGS)
+#IF(win32): if exist $@.manifest mt.exe -nologo -manifest $@.manifest -outputresource:$@;2
+#IF(cygwin or hpux): $(CHMOD) 0775 $@
+
+src/dynoplibs/io_ops$(O): $(DYNOP_O_DEPS) \
+ src/dynoplibs/io_ops.c src/dynoplibs/io_ops.h
+
+src/dynoplibs/io_ops.h: src/dynoplibs/io_ops.c
+
+src/dynoplibs/io_ops.c: src/dynoplibs/io.ops $(OPS2C)
+ $(OPS2C) --dynamic src/dynoplibs/io.ops
+
Copied: branches/gsoc_instrument/src/dynoplibs/bit.ops (from r47107, trunk/src/dynoplibs/bit.ops)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/dynoplibs/bit.ops Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/dynoplibs/bit.ops)
@@ -0,0 +1,542 @@
+/*
+ * $Id$
+** bit.ops
+*/
+
+BEGIN_OPS_PREAMBLE
+ /* Signed shift operator that is compatible with PMC shifts. This is
+ * guaranteed to produce the same result as bitwise_left_shift_internal modulo
+ * word size, ignoring the fact that Parrot integers are always signed. This
+ * usually gives the same answer regardless whether you shift PMC operands and
+ * then assign to an I-reg, or move the operands to I-regs and do the shift
+ * there -- except when the true result is between 2^{w-1} and 2^w (where w is
+ * the word size), in which case the high order bit is taken as the sign,
+ * giving a truncated result that is 2^w lower.
+ */
+#define bit_shift_left(number, bits) \
+ ((bits) >= 8*INTVAL_SIZE ? 0 \
+ : (bits) >= 0 ? (number) << (bits) \
+ : (bits) > -8*INTVAL_SIZE ? (number) >> -(bits) \
+ : 0)
+
+END_OPS_PREAMBLE
+
+=head1 NAME
+
+bit.ops - Bitwise Opcodes Dynoplib
+
+=head1 DESCRIPTION
+
+Operations that deal with bits directly, either individually
+or in groups.
+
+The variant with an appended B<s> like B<bands> work on strings.
+
+=over 4
+
+=cut
+
+########################################
+
+=item B<band>(invar PMC, in INT)
+
+=item B<band>(invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<and> of the corresponding bits
+from $1 and $2.
+
+=item B<band>(invar PMC, invar PMC, in INT)
+
+=item B<band>(invar PMC, invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<and> of the corresponding bits
+from $2 and $3.
+
+=cut
+
+inline op band(invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = a & $2;
+ VTABLE_set_integer_native(interp, $1, b);
+}
+
+inline op band(invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = VTABLE_get_integer(interp, $2);
+ VTABLE_set_integer_native(interp, $1, a & b);
+}
+
+inline op band(invar PMC, invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ VTABLE_set_integer_native(interp, $1, a & $3);
+}
+
+inline op band(invar PMC, invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ const INTVAL b = VTABLE_get_integer(interp, $3);
+ VTABLE_set_integer_native(interp, $1, a & b);
+}
+
+=item B<bands>(invar PMC, in STR)
+
+=item B<bands>(invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<and> of the corresponding bits
+from $1 and $2.
+
+=item B<bands>(out STR, in STR, in STR)
+
+=item B<bands>(invar PMC, invar PMC, in STR)
+
+=item B<bands>(invar PMC, invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<and> of the corresponding bits
+from $2 and $3.
+
+=cut
+
+inline op bands(invar PMC, in STR) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $1);
+ STRING * const b = Parrot_str_bitwise_and(interp, a, $2);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+inline op bands(invar PMC, invar PMC) :base_core {
+ STRING * a = VTABLE_get_string(interp, $1);
+ STRING * const b = VTABLE_get_string(interp, $2);
+ a = Parrot_str_bitwise_and(interp, a, b);
+ VTABLE_set_string_native(interp, $1, a);
+}
+
+inline op bands(out STR, in STR, in STR) :base_core {
+ $1 = Parrot_str_bitwise_and(interp, $2, $3);
+}
+
+inline op bands(invar PMC, invar PMC, in STR) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $2);
+ STRING * const b = Parrot_str_bitwise_and(interp, a, $3);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+inline op bands(invar PMC, invar PMC, invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $2);
+ STRING * const b = VTABLE_get_string(interp, $3);
+ STRING * const c = Parrot_str_bitwise_and(interp, a, b);
+ VTABLE_set_string_native(interp, $1, c);
+}
+
+########################################
+
+=item B<bor>(invar PMC, in INT)
+
+=item B<bor>(invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<or> of the corresponding bits
+from $1 and $2.
+
+=item B<bor>(invar PMC, invar PMC, in INT)
+
+=item B<bor>(invar PMC, invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<or> of the corresponding bits
+from $2 and $3.
+
+=cut
+
+inline op bor(invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ VTABLE_set_integer_native(interp, $1, a | $2);
+}
+
+inline op bor(invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = VTABLE_get_integer(interp, $2);
+ VTABLE_set_integer_native(interp, $1, a | b);
+}
+
+inline op bor(invar PMC, invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ VTABLE_set_integer_native(interp, $1, a | $3);
+}
+
+inline op bor(invar PMC, invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ const INTVAL b = VTABLE_get_integer(interp, $3);
+ VTABLE_set_integer_native(interp, $1, a | b);
+}
+
+########################################
+
+=item B<bors>(invar PMC, in STR)
+
+=item B<bors>(invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<or> of the corresponding bits
+from $1 and $2.
+
+=item B<bors>(out STR, in STR, in STR)
+
+=item B<bors>(invar PMC, invar PMC, in STR)
+
+=item B<bors>(invar PMC, invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<or> of the corresponding bits
+from $2 and $3.
+
+=cut
+
+inline op bors(invar PMC, in STR) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $1);
+ STRING * const b = Parrot_str_bitwise_or(interp, a, $2);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+inline op bors(invar PMC, invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $1);
+ STRING * const b = VTABLE_get_string(interp, $2);
+ STRING * const c = Parrot_str_bitwise_or(interp, a, b);
+ VTABLE_set_string_native(interp, $1, c);
+}
+
+inline op bors(out STR, in STR, in STR) :base_core {
+ $1 = Parrot_str_bitwise_or(interp, $2, $3);
+}
+
+inline op bors(invar PMC, invar PMC, in STR) :base_core {
+ STRING * const b = VTABLE_get_string(interp, $2);
+ STRING * const c = Parrot_str_bitwise_or(interp, b, $3);
+ VTABLE_set_string_native(interp, $1, c);
+}
+
+inline op bors(invar PMC, invar PMC, invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $2);
+ STRING * const b = VTABLE_get_string(interp, $3);
+ STRING * const c = Parrot_str_bitwise_or(interp, a, b);
+ VTABLE_set_string_native(interp, $1, c);
+}
+
+########################################
+
+=item B<shl>(invar PMC, in INT)
+
+=item B<shl>(invar PMC, invar PMC)
+
+Shift left $1 by $2 bits.
+
+=item B<shl>(invar PMC, invar PMC, in INT)
+
+=item B<shl>(invar PMC, invar PMC, invar PMC)
+
+Set $1 to the value of $2 shifted left by $3 bits.
+
+=cut
+
+inline op shl(invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = bit_shift_left(a, $2);
+ VTABLE_set_integer_native(interp, $1, b);
+}
+
+inline op shl(invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = VTABLE_get_integer(interp, $2);
+ const INTVAL c = bit_shift_left(a, b);
+ VTABLE_set_integer_native(interp, $1, c);
+}
+
+inline op shl(invar PMC, invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ const INTVAL b = bit_shift_left(a, $3);
+ VTABLE_set_integer_native(interp, $1, b);
+}
+
+inline op shl(invar PMC, invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ const INTVAL b = VTABLE_get_integer(interp, $3);
+ const INTVAL c = bit_shift_left(a, b);
+ VTABLE_set_integer_native(interp, $1, c);
+}
+
+########################################
+
+=item B<shr>(invar PMC, in INT)
+
+=item B<shr>(invar PMC, invar PMC)
+
+Shift right $1 by $2 bits.
+
+=item B<shr>(invar PMC, invar PMC, in INT)
+
+=item B<shr>(invar PMC, invar PMC, invar PMC)
+
+Set $1 to the value of $2 shifted right by $3 bits.
+
+=cut
+
+inline op shr(invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = bit_shift_left(a, -$2);
+ VTABLE_set_integer_native(interp, $1, b);
+}
+
+inline op shr(invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ const INTVAL b = VTABLE_get_integer(interp, $2);
+ const INTVAL c = bit_shift_left(a, -b);
+ VTABLE_set_integer_native(interp, $1, c);
+}
+
+inline op shr(invar PMC, invar PMC, in INT) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ const INTVAL c = bit_shift_left(a, -$3);
+ VTABLE_set_integer_native(interp, $1, c);
+}
+
+inline op shr(invar PMC, invar PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ const INTVAL b = VTABLE_get_integer(interp, $3);
+ const INTVAL c = bit_shift_left(a, -b);
+ VTABLE_set_integer_native(interp, $1, c);
+}
+
+########################################
+
+=item B<bnot>(inout INT)
+
+=item B<bnot>(invar PMC)
+
+Sets $1 to C<bitwise not> $1 inplace.
+
+=item B<bnot>(out INT, in INT)
+
+=item B<bnot>(out PMC, invar PMC)
+
+=cut
+
+inline op bnot(inout INT) :base_core {
+ $1 = ~ $1;
+}
+
+inline op bnot(out INT, in INT) :base_core {
+ $1 = ~ $2;
+}
+
+inline op bnot(invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $1);
+ VTABLE_set_integer_native(interp, $1, ~a);
+}
+
+inline op bnot(out PMC, invar PMC) :base_core {
+ const INTVAL a = VTABLE_get_integer(interp, $2);
+ PMC * const b = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
+ VTABLE_set_integer_native(interp, b, ~a);
+ $1 = b;
+}
+
+=item B<bnots>(invar PMC)
+
+=item B<bnots>(out STR, in STR)
+
+=item B<bnots>(out PMC, invar PMC)
+
+=cut
+
+inline op bnots(out STR, in STR) :base_core {
+ $1 = Parrot_str_bitwise_not(interp, $2);
+}
+
+inline op bnots(invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $1);
+ STRING * const b = Parrot_str_bitwise_not(interp, a);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+inline op bnots(out PMC, invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $2);
+ STRING * const b = Parrot_str_bitwise_not(interp, a);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+########################################
+
+=item B<lsr>(invar PMC, in INT)
+
+=item B<lsr>(invar PMC, invar PMC)
+
+Shift $1 logically shifted right by $2 bits.
+
+=item B<lsr>(invar PMC, invar PMC, in INT)
+
+=item B<lsr>(invar PMC, invar PMC, invar PMC)
+
+Set $1 to the value of $2 logically shifted right by $3 bits.
+
+=cut
+
+inline op lsr(invar PMC, in INT) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
+ const UINTVAL b = a >> $2;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)b);
+}
+
+inline op lsr(invar PMC, invar PMC) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
+ const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $2);
+ const UINTVAL c = a >> b;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)c);
+}
+
+inline op lsr(invar PMC, invar PMC, in INT) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
+ const UINTVAL b = (UINTVAL)$3;
+ const UINTVAL c = a >> b;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)c);
+}
+
+inline op lsr(invar PMC, invar PMC, invar PMC) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
+ const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $3);
+ const UINTVAL c = a >> b;
+ VTABLE_set_integer_native(interp, $3, (INTVAL)c);
+}
+
+=item B<rot>(out INT, in INT, in INT, inconst INT)
+
+Rotate $2 left or right by $3 and place result in $1.
+$4 is the amount of bits to rotate, 32 bit on a 32-bit CPU and 32 or 64
+on a 64-bit CPU. If the rotate count is negative a rotate right by ($3+$4)
+is performed.
+
+=cut
+
+inline op rot(out INT, in INT, in INT, inconst INT) {
+ const INTVAL r = $2;
+ INTVAL s = $3;
+ const INTVAL w = $4;
+ INTVAL d, t;
+ if (s < 0)
+ s += w;
+ d = r << s;
+ t = w - s;
+ t = (INTVAL)((UINTVAL)r >> t);
+ d |= t;
+ $1 = d;
+}
+
+########################################
+
+=item B<bxor>(invar PMC, in INT)
+
+=item B<bxor>(invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<xor> of the corresponding bits
+from $1 and $2.
+
+=item B<bxor>(invar PMC, invar PMC, in INT)
+
+=item B<bxor>(invar PMC, invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<xor> of the corresponding bits
+from $2 and $3.
+
+=cut
+
+inline op bxor(invar PMC, in INT) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
+ const UINTVAL b = a ^ $2;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)b);
+}
+
+inline op bxor(invar PMC, invar PMC) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
+ const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $2);
+ const UINTVAL c = a ^ b;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)c);
+}
+
+inline op bxor(invar PMC, invar PMC, in INT) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
+ const UINTVAL b = a ^ $3;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)b);
+}
+
+inline op bxor(invar PMC, invar PMC, invar PMC) :base_core {
+ const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
+ const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $3);
+ const UINTVAL c = a ^ b;
+ VTABLE_set_integer_native(interp, $1, (INTVAL)c);
+}
+
+########################################
+
+=item B<bxors>(invar PMC, in STR)
+
+=item B<bxors>(invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<xor> of the corresponding bits
+from $1 and $2.
+
+=item B<bxors>(out STR, in STR, in STR)
+
+=item B<bxors>(invar PMC, invar PMC, in STR)
+
+=item B<bxors>(invar PMC, invar PMC, invar PMC)
+
+Set the bits of $1 according to the B<xor> of the corresponding bits
+from $2 and $3.
+
+=cut
+
+inline op bxors(invar PMC, in STR) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $1);
+ STRING * const b = Parrot_str_bitwise_xor(interp, a, $2);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+inline op bxors(invar PMC, invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $1);
+ STRING * const b = VTABLE_get_string(interp, $2);
+ STRING * const c = Parrot_str_bitwise_xor(interp, a, b);
+ VTABLE_set_string_native(interp, $1, c);
+}
+
+inline op bxors(out STR, in STR, in STR) :base_core {
+ $1 = Parrot_str_bitwise_xor(interp, $2, $3);
+}
+
+inline op bxors(invar PMC, invar PMC, in STR) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $2);
+ STRING * const b = Parrot_str_bitwise_xor(interp, a, $3);
+ VTABLE_set_string_native(interp, $1, b);
+}
+
+inline op bxors(invar PMC, invar PMC, invar PMC) :base_core {
+ STRING * const a = VTABLE_get_string(interp, $2);
+ STRING * const b = VTABLE_get_string(interp, $3);
+ STRING * const c = Parrot_str_bitwise_xor(interp, a, b);
+ VTABLE_set_string_native(interp, $1, c);
+}
+
+=back
+
+=cut
+
+###############################################################################
+
+=head1 COPYRIGHT
+
+Copyright (C) 2001-2010, Parrot Foundation.
+
+=head1 LICENSE
+
+This program is free software. It is subject to the same license
+as the Parrot interpreter itself.
+
+=cut
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Copied: branches/gsoc_instrument/src/dynoplibs/debug.ops (from r47107, trunk/src/dynoplibs/debug.ops)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/dynoplibs/debug.ops Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/dynoplibs/debug.ops)
@@ -0,0 +1,146 @@
+/*
+ * $Id$
+ * Copyright (C) 2002-2008, Parrot Foundation.
+ */
+
+/*
+** debug.ops
+*/
+
+=head1 NAME
+
+debug.ops - Debugging Opcodes
+
+=cut
+
+=head1 DESCRIPTION
+
+Parrot debugger
+
+=cut
+
+=head1 HISTORY
+
+Initial version by Daniel Grunblatt on 2002.5.19
+
+=cut
+
+###############################################################################
+
+=head2 Parrot debug operations
+
+=over 4
+
+=cut
+
+########################################
+
+=item B<debug_init>()
+
+Init the Parrot debugger, must be called before any other debug op.
+
+=cut
+
+op debug_init() :base_debug {
+ Parrot_debugger_init(interp);
+}
+
+########################################
+
+=item B<debug_load>(inconst STR)
+
+Load a Parrot source file for the current program.
+
+=cut
+
+op debug_load(inconst STR) :base_debug {
+ Parrot_debugger_load(interp, $1);
+}
+
+########################################
+
+=item B<debug_break>()
+
+Break execution and drop into the debugger.
+If we are already into the debugger and is the first time we are
+called set a breakpoint.
+
+When you re run/continue the program begin debugged it will pay
+no attention to the debug ops.
+
+=cut
+
+op debug_break() :base_debug {
+ Parrot_debugger_break(interp, cur_opcode);
+}
+
+########################################
+
+=item B<debug_print>()
+
+Print all the Parrot registers at once.
+
+=cut
+
+op debug_print() :base_debug {
+ if (!interp->pdb) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_INVALID_OPERATION,
+ "Initialize debugger with debug_init before using debug_print");
+ goto ADDRESS(handler);
+ }
+
+ if (!(interp->pdb->state & PDB_BREAK)) {
+ PDB_print(interp, "I");
+ PDB_print(interp, "N");
+ PDB_print(interp, "S");
+ PDB_print(interp, "P");
+ }
+}
+
+=item B<backtrace>()
+
+Print a backtrace.
+
+=cut
+
+op backtrace() :base_debug {
+ PDB_backtrace(interp);
+}
+
+#######################################
+
+=item B<getline>(out INT)
+
+Get the current line number.
+
+=cut
+
+inline op getline(out INT) {
+ Parrot_Context_info info;
+ Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
+ $1 = info.line;
+}
+
+=item B<getfile>(out STR)
+
+Get the name of the current file.
+
+=cut
+
+inline op getfile(out STR) {
+ Parrot_Context_info info;
+ Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
+ $1 = info.file;
+}
+
+=back
+
+=cut
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Copied: branches/gsoc_instrument/src/dynoplibs/io.ops (from r47107, trunk/src/dynoplibs/io.ops)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/dynoplibs/io.ops Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/dynoplibs/io.ops)
@@ -0,0 +1,371 @@
+/*
+ * $Id$
+ * Copyright (C) 2010, Parrot Foundation.
+** io.ops
+*/
+
+=head1 NAME
+
+io.ops - Extended I/O Dynops
+
+=head1 DESCRIPTION
+
+A richer I/O API than that available in core Parrot.
+
+=over 4
+
+=cut
+
+BEGIN_OPS_PREAMBLE
+#include "../io/io_private.h"
+END_OPS_PREAMBLE
+
+##########################################
+
+=item B<stat>(out INT, in STR, in INT)
+
+=item B<stat>(out INT, in INT, in INT)
+
+Stat the file. Return stat element $3 for file $2 into $1. The queryable
+items currently are:
+
+ EXISTS 0
+ FILESIZE 1
+ ISDIR 2
+ ISDEV 3
+ CREATETIME 4 (Time file was created)
+ ACCESSTIME 5 (Time file was last accessed)
+ MODIFYTIME 6 (Time file data was changed)
+ CHANGETIME 7 (Time file metadata was changed)
+ BACKUPTIME 8 (Time of last backup)
+ UID 9
+ GID 10
+
+
+=cut
+
+op stat(out INT, in STR, in INT) {
+ $1 = Parrot_stat_info_intval(interp, $2, $3);
+}
+
+op stat(out INT, in INT, in INT) {
+ $1 = Parrot_fstat_info_intval(interp, $2, $3);
+}
+
+##########################################
+
+=item B<read>(out STR, in INT)
+
+Read up to N bytes from standard input stream
+
+=item B<read>(out STR, invar PMC, in INT)
+
+Read up to N bytes from IO PMC stream.
+
+=cut
+
+op read(out STR, in INT) :base_io {
+ $1 = Parrot_io_reads(interp, _PIO_STDIN(interp), (size_t)$2);
+}
+
+op read(out STR, invar PMC, in INT) :base_io {
+ $1 = Parrot_io_reads(interp, $2, (size_t)$3);
+}
+
+=item B<readline>(out STR, invar PMC)
+
+Read a line up to EOL from filehandle $2.
+This switches the filehandle to linebuffer-mode.
+
+=cut
+
+inline op readline(out STR, invar PMC) :base_io {
+ $1 = Parrot_io_readline(interp, $2);
+}
+
+##########################################
+
+=item B<printerr>(in INT)
+
+=item B<printerr>(in NUM)
+
+=item B<printerr>(in STR)
+
+=item B<printerr>(invar PMC)
+
+Print $1 to standard error.
+
+=cut
+
+op printerr(in INT) :base_io {
+ Parrot_io_eprintf(interp, INTVAL_FMT, $1);
+}
+
+op printerr(in NUM) :base_io {
+ Parrot_io_eprintf(interp, FLOATVAL_FMT, $1);
+}
+
+op printerr(in STR) :base_io {
+ STRING * const s = $1;
+ if (s && Parrot_str_byte_length(interp, s))
+ Parrot_io_putps(interp, _PIO_STDERR(interp), s);
+}
+
+op printerr(invar PMC) :base_io {
+ PMC * const p = $1;
+ STRING * const s = (VTABLE_get_string(interp, p));
+ if (s)
+ Parrot_io_putps(interp, _PIO_STDERR(interp), s);
+}
+
+##########################################
+
+=item B<seek>(invar PMC, in INT, in INT)
+
+seek:
+Set file position to offset $2 on IO stream $1. 'whence' is
+indicated by the value in $3. The valid values for 'whence' are:
+
+ Value Meaning
+ 0 Seek from the beginning of the file
+ 1 Seek from the current position
+ 2 Seek from the end of the file
+
+[ Note: the above values for 'whence' is just an educated guess
+at this point ]
+
+=item B<seek>(invar PMC, in INT, in INT, in INT)
+
+64bit seek:
+Set file position to offset ($2 << 32 | $3) on IO stream $1. 'whence' is
+indicated by the value in $4. This allows 64-bit seeks with only 32-bit
+INTVALS.
+
+=cut
+
+op seek(invar PMC, in INT, in INT) :base_io {
+ if ($1) {
+ if (Parrot_io_seek(interp, $1, Parrot_io_make_offset($2), $3) < 0) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_PIO_ERROR,
+ "seek failed (32bit)");
+ goto ADDRESS(handler);
+ }
+ }
+}
+
+op seek(invar PMC, in INT, in INT, in INT) :base_io {
+ if ($1) {
+ if (Parrot_io_seek(interp, $1, Parrot_io_make_offset32($2, $3), $4) < 0) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_PIO_ERROR,
+ "seek failed (64bit)");
+ goto ADDRESS(handler);
+ }
+ }
+}
+
+=item B<tell>(out INT, invar PMC)
+
+tell:
+Get the current file position of stream $2 and store it in $1.
+On systems where INTVAL is 32bit the result will be truncated if the
+position is beyond 2 GiB
+
+=item B<tell>(out INT, out INT, invar PMC)
+
+64bit tell:
+Get the current file positon of stream $3 in two parts of 32-bit each
+($1 = pos >> 32, $2 = pos & 0xffffffff).
+
+=cut
+
+op tell(out INT, invar PMC) :base_io {
+ if ($2)
+ $1 = (INTVAL)Parrot_io_tell(interp, $2);
+}
+
+op tell(out INT, out INT, invar PMC) :base_io {
+ if ($3) {
+ PIOOFF_T pos;
+ pos = Parrot_io_tell(interp, $3);
+ $1 = (INTVAL)(pos >> 31);
+ $2 = (INTVAL)(pos & 0xffffffff);
+ }
+}
+
+##########################################
+
+=item B<peek>(out STR)
+
+Returns the next byte from standard input, but does not
+remove it from the stream.
+
+=item B<peek>(out STR, invar PMC)
+
+Reads the next byte from an IO PMC, but does not
+remove it from the stream.
+
+=cut
+
+op peek(out STR) :base_io {
+ STRING ** const s = &$1;
+
+ *s = NULL;
+ if (Parrot_io_peek(interp, _PIO_STDIN(interp), s) < 0) {
+ $1 = STRINGNULL;
+ }
+}
+
+op peek(out STR, invar PMC) :base_io {
+ STRING ** const s = &$1;
+
+ *s = NULL;
+ if (Parrot_io_peek(interp, $2, s) < 0) {
+ $1 = STRINGNULL;
+ }
+}
+
+#########################################
+
+=item B<open>(out PMC, in STR, in STR)
+
+Open URL (file, address, database, in core image) named $2 with
+a mode string in $3 and create an IO object in $1.
+
+The mode consists of a string of characters specified in any order:
+
+ r : read
+ w : write
+ a : append (Note: you must specify "wa", not just "a")
+ p : pipe
+
+=item B<open>(out PMC, in STR)
+
+Open URL (file, address, database, in core image) named $2 with
+read mode and create an IO object in $1.
+
+=cut
+
+inline op open(out PMC, in STR, in STR) :filesys_open {
+ if (STRING_IS_NULL($2) || STRING_IS_NULL($3)) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");
+ goto ADDRESS(handler);
+ }
+ else {
+ $1 = Parrot_io_open(interp, PMCNULL, $2, $3);
+ PARROT_ASSERT(! PMC_IS_NULL($1));
+ }
+}
+
+inline op open(out PMC, in STR) :filesys_open {
+ if (STRING_IS_NULL($2)) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_UNEXPECTED_NULL, "Invalid open");
+ goto ADDRESS(handler);
+ }
+ else {
+ $1 = Parrot_io_open(interp, PMCNULL, $2, NULL);
+ PARROT_ASSERT(! PMC_IS_NULL($1));
+ }
+}
+
+########################################
+
+=item B<close>(invar PMC)
+
+Close IO object $1
+
+=cut
+
+inline op close(invar PMC) :base_io {
+ Parrot_io_close(interp, $1);
+}
+
+########################################
+
+=item B<fdopen>(out PMC, in INT, in STR)
+
+Create ParrotIO object in $1 as a copy of file descriptor $2.
+
+=cut
+
+inline op fdopen(out PMC, in INT, in STR) :filesys_open {
+ $1 = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)$2, $3);
+ if (!$1)
+ $1 = Parrot_pmc_new(interp, enum_class_Undef);
+}
+
+=item B<getstdin>(out PMC)
+
+Create a new ParrotIO object for the stdin file descriptor and
+store it in $1
+
+=item B<getstdout>(out PMC)
+
+Create a new ParrotIO object for the stdout file descriptor and
+store it in $1
+
+=item B<getstderr>(out PMC)
+
+Create a new ParrotIO object for the stderr file descriptor and
+store it in $1
+
+=cut
+
+inline op getstdin(out PMC) :base_io {
+ $1 = _PIO_STDIN(interp);
+}
+
+inline op getstdout(out PMC) :base_io {
+ $1 = _PIO_STDOUT(interp);
+}
+
+inline op getstderr(out PMC) :base_io {
+ $1 = _PIO_STDERR(interp);
+}
+
+#########################################
+
+=item B<setstdin>(invar PMC)
+
+Sets the standard input for a bare C<read> op to go to the supplied PMC.
+Call C<getstdin> first if you care about retaining the previous PMC.
+
+=item B<setstdout>(invar PMC)
+
+Sets the standard output for a bare C<print> op to go to the supplied PMC.
+Call C<getstdout> first if you care about retaining the previous PMC.
+
+=item B<setstderr>(invar PMC)
+
+Sets the standard error for a bare C<printerr> op to go to the supplied PMC.
+Call C<getstderr> first if you care about retaining the previous PMC.
+
+=cut
+
+inline op setstdin(invar PMC) :base_io {
+ _PIO_STDIN(interp) = $1;
+}
+
+inline op setstdout(invar PMC) :base_io {
+ _PIO_STDOUT(interp) = $1;
+}
+
+inline op setstderr(invar PMC) :base_io {
+ _PIO_STDERR(interp) = $1;
+}
+
+########################################
+
+=back
+
+=cut
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Modified: branches/gsoc_instrument/src/dynoplibs/math.ops
==============================================================================
--- branches/gsoc_instrument/src/dynoplibs/math.ops Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/dynoplibs/math.ops Sat May 29 11:56:49 2010 (r47109)
@@ -25,7 +25,169 @@
=cut
-=over
+=head2 General Math
+
+=over 4
+
+=cut
+
+########################################
+
+=item B<cmod>(out INT, in INT, in INT)
+
+=item B<cmod>(invar PMC, invar PMC, in INT)
+
+=item B<cmod>(invar PMC, invar PMC, invar PMC)
+
+NOTE: This "uncorrected mod" algorithm uses the C language's built-in
+mod operator (x % y), which is
+
+ ... the remainder when x is divided by y, and thus is zero
+ when y divides x exactly.
+ ...
+ The direction of truncation for / and the sign of the result
+ for % are machine-dependent for negative operands, as is the
+ action taken on overflow or underflow.
+ -- [1], page 41
+
+Also:
+
+ ... if the second operand is 0, the result is undefined.
+ Otherwise, it is always true that (a/b)*b + a%b is equal to z. If
+ both operands are non-negative, then the remainder is non-
+ negative and smaller than the divisor; if not, it is guaranteed
+ only that the absolute value of the remainder is smaller than
+ the absolute value of the divisor.
+ -- [1], page 205
+
+This op is provided for those who need it (such as speed-sensitive
+applications with heavy use of mod, but using it only with positive
+arguments), but a more mathematically useful mod based on ** floor(x/y)
+and defined with y == 0 is provided by the mod op.
+
+ [1] Brian W. Kernighan and Dennis M. Ritchie, *The C Programming
+ Language*, Second Edition. Prentice Hall, 1988.
+
+If the denominator is zero, a 'Divide by zero' exception is thrown.
+
+=cut
+
+inline op cmod(out INT, in INT, in INT) :base_core {
+ INTVAL den = $3;
+ if ($3 == 0) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_DIV_BY_ZERO,
+ "Divide by zero");
+ goto ADDRESS(handler);
+ }
+ $1 = $2 % den;
+}
+
+inline op cmod(invar PMC, invar PMC, in INT) :base_core {
+ INTVAL result;
+
+ if ($3 == 0) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_DIV_BY_ZERO,
+ "Divide by zero");
+ goto ADDRESS(handler);
+ }
+
+ result = VTABLE_get_integer(interp, $2) % $3;
+
+ $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
+ VTABLE_set_integer_native(interp, $1, result);
+}
+
+inline op cmod(invar PMC, invar PMC, invar PMC) :base_core {
+ INTVAL result;
+ INTVAL value = VTABLE_get_integer(interp, $3);
+
+ if (value == 0) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_DIV_BY_ZERO,
+ "Divide by zero");
+ goto ADDRESS(handler);
+ }
+
+ result = VTABLE_get_integer(interp, $2) % value;
+
+ $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
+ VTABLE_set_integer_native(interp, $1, result);
+}
+
+########################################
+
+=item B<cmod>(out NUM, in NUM, in NUM)
+
+=item B<cmod>(invar PMC, invar PMC, in NUM)
+
+NOTE: This "uncorrected mod" algorithm uses the built-in C math library's
+fmod() function, which computes
+
+ ... the remainder of dividing x by y. The return value is
+ x - n * y, where n is the quotient of x / y, rounded towards
+ zero to an integer.
+ -- fmod() manpage on RedHat Linux 7.0
+
+In addition, fmod() returns
+
+ the remainder, unless y is zero, when the function fails and
+ errno is set.
+
+According to page 251 of [1], the result when y is zero is implementation-
+defined.
+
+This op is provided for those who need it, but a more mathematically
+useful numeric mod based on floor(x/y) instead of truncate(x/y) and
+defined with y == 0 is provided by the mod op.
+
+ [1] Brian W. Kernighan and Dennis M. Ritchie, *The C Programming
+ Language*, Second Edition. Prentice Hall, 1988.
+
+If the denominator is zero, a 'Divide by zero' exception is thrown.
+
+=cut
+
+inline op cmod(out NUM, in NUM, in NUM) :base_core {
+ FLOATVAL den = $3;
+ if (FLOAT_IS_ZERO($3)) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_DIV_BY_ZERO,
+ "Divide by zero");
+ goto ADDRESS(handler);
+ }
+ $1 = fmod($2, den);
+}
+
+inline op cmod(invar PMC, invar PMC, in NUM) :base_core {
+ FLOATVAL result;
+ FLOATVAL value = $3;
+
+ if (FLOAT_IS_ZERO(value)) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
+ EXCEPTION_DIV_BY_ZERO,
+ "Divide by zero");
+ goto ADDRESS(handler);
+ }
+
+ result = fmod(VTABLE_get_integer(interp, $2), value);
+
+ $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
+ VTABLE_set_integer_native(interp, $1, (INTVAL) result);
+}
+
+=back
+
+=cut
+
+###############################################################################
+
+=head2 Pseudorandom number operations
+
+These operations perform various pseudorandom number operations.
+
+=over 4
=item B<rand>(out NUM)
@@ -109,6 +271,8 @@
=back
+=cut
+
=head1 COPYRIGHT
Copyright (C) 2001-2009, Parrot Foundation.
Copied: branches/gsoc_instrument/src/dynoplibs/sys.ops (from r47107, trunk/src/dynoplibs/sys.ops)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/dynoplibs/sys.ops Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/dynoplibs/sys.ops)
@@ -0,0 +1,280 @@
+/*
+ * $Id$
+** sys.ops
+*/
+
+=head1 NAME
+
+sys.ops - System Interaction Dynops
+
+=head1 DESCRIPTION
+
+Operations that allow the user to interact with the system.
+
+=over 4
+
+=cut
+
+BEGIN_OPS_PREAMBLE
+
+#ifdef PARROT_HAS_HEADER_SYSUTSNAME
+# include <sys/utsname.h>
+#endif
+
+END_OPS_PREAMBLE
+
+########################################
+
+=item B<gmtime>(out STR, in INT)
+
+Take the integer, which represents GMT epoch-seconds, and turn it into a
+formatted string.
+
+=item B<localtime>(out STR, in INT)
+
+Take the integer, which represents GMT epoch-seconds, and turn it into a
+formatted string. The time is adjusted to localtime before formatting.
+
+=item B<decodetime>(out PMC, in INT)
+
+Take the integer, which represents GMT epoch-seconds, and return an Array
+PMC which represents the decoded time. The array elements are
+(include "tm.pasm" for the constants):
+
+=over 4
+
+=item 0, .TM_SEC
+
+Seconds (0-60)
+
+=item 1, .TM_MIN
+
+Minutes (0-59)
+
+=item 2, .TM_HOUR
+
+Hours (0-23)
+
+=item 3, .TM_MDAY
+
+Day of month (1-31)
+
+=item 4, .TM_MON
+
+Month of year (1-12) (Note, B<actual> month, not month - 1)
+
+=item 5, .TM_YEAR
+
+Year (note, B<actual> year. The year 2004 comes back as 2004, not 104)
+
+=item 6, .TM_WDAY
+
+Day of week. Sunday is day 0
+
+=item 7, .TM_YDAY
+
+Day of year (0-365)
+
+=item 8, .TM_ISDST
+
+Daylight savings/summer time in effect
+
+=back
+
+Timezone name will be GMT and offset will be 0, since the time is taken and
+decoded as GMT.
+
+=item B<decodelocaltime>(out PMC, in INT)
+
+Take the passed in integer, which represents GMT epoch-seconds, and return
+an array as in decodetime. The time is first shifted to localtime before
+decoding.
+
+=cut
+
+op gmtime(out STR, in INT) {
+ struct tm tm;
+ const time_t t = (time_t) $2;
+ char resultbuffer[26];
+ Parrot_gmtime_r(&t, &tm);
+ Parrot_asctime_r(&tm, resultbuffer);
+ $1 = Parrot_str_new(interp, resultbuffer, 25);
+}
+
+op localtime(out STR, in INT) {
+ struct tm tm;
+ const time_t t = (time_t) $2;
+ char resultbuffer[26];
+ Parrot_localtime_r(&t, &tm);
+ Parrot_asctime_r(&tm, resultbuffer);
+ $1 = Parrot_str_new(interp, resultbuffer, 25);
+}
+
+op decodetime(out PMC, in INT) {
+ struct tm tm;
+ const time_t t = (time_t) $2;
+ Parrot_gmtime_r(&t, &tm);
+ $1 = Parrot_tm_to_array(interp, &tm);
+}
+
+op decodelocaltime(out PMC, in INT) {
+ struct tm tm;
+ const time_t t = (time_t) $2;
+ Parrot_localtime_r(&t, &tm);
+ $1 = Parrot_tm_to_array(interp, &tm);
+}
+
+########################################
+
+=item B<sysinfo>(out STR, in INT)
+
+Return system information. The values it returns depends on what you
+ask. They are:
+
+=over 4
+
+=item C<PARROT_INTSIZE> The size of a platform integer
+
+=item C<PARROT_FLOATSIZE> The size of a platform float
+
+=item C<PARROT_POINTERSIZE> The size of a platform pointer (Largest possible data pointer)
+
+=item C<PARROT_INTMAX> The maximum value of a platform integer
+
+=item C<PARROT_INTMIN> The minimum value of a platform integer
+
+=back
+
+=item B<sysinfo>(out INT, in INT)
+
+Return system information. The values it returns depends on what you
+ask. They are:
+
+=over 4
+
+=item C<PARROT_OS> The OS name
+
+This is something like "OS X", "MacOS", "Windows", or "VMS".
+
+=item C<PARROT_OS_VERSION> The OS version string
+
+This is the current (hopefully) OS Version. For OSes that have plain
+version numbers it will be the version number. For OSes that name
+their versions, it will be the version name.
+
+On HP/UX, this may be something like 11.2, while on Windows it may be
+"95", "98", "2000", "NT", "ME", or "XP".
+
+=item C<PARROT_OS_VERSION_NUMBER> The OS version number string
+
+On OSes that don't name themselves, this will be the same as what's
+returned in the OS version string. On OSes that I<do> name themselves,
+this will be a more specific version number. In all cases it is OS
+dependent.
+
+=item C<CPU_ARCH> The CPU architecture
+
+The name of the CPU family, such as "VAX", "Alpha", "PPC", or "x86".
+
+=item C<CPU_TYPE> The CPU model
+
+The model name of the current system's CPU. This is something like
+"EV68", "Athlon", or "Pentium III".
+
+=back
+
+Note that some of these values may be set at Parrot compile time,
+rather than at runtime, if the system has no reliable way to fetch the
+data dynamically, or if there is no way the value can change. Also,
+the value returned may be somewhat misleading--Parrot running under a
+VirtualPC window will report "Windows" as its OS and "x86" as its CPU,
+even if it's really running on an OS X system.
+
+=cut
+
+inline op sysinfo(out STR, in INT) {
+ switch ($2) {
+ case PARROT_OS:
+ $1 = Parrot_str_new_constant(interp, BUILD_OS_NAME);
+ break;
+
+#ifdef PARROT_HAS_HEADER_SYSUTSNAME
+ case PARROT_OS_VERSION:
+ {
+ struct utsname info;
+ if (uname(&info) == 0) {
+ $1 = string_make(interp, info.version, strlen(info.version), "ascii", 0);
+ }
+ }
+ break;
+
+ case PARROT_OS_VERSION_NUMBER:
+ {
+ struct utsname info;
+ if (uname(&info) == 0) {
+ $1 = string_make(interp, info.release, strlen(info.version), "ascii", 0);
+ }
+ }
+ break;
+#endif
+
+ case CPU_ARCH:
+ $1 = string_make(interp, PARROT_CPU_ARCH, sizeof (PARROT_CPU_ARCH) - 1, "ascii", 0);
+ break;
+
+ case CPU_TYPE:
+ default:
+ $1 = string_from_literal(interp, "");
+ break;
+ }
+}
+
+inline op sysinfo(out INT, in INT) {
+ switch ($2) {
+ case PARROT_INTSIZE:
+ $1 = sizeof (INTVAL);
+ break;
+
+ case PARROT_FLOATSIZE:
+ $1 = sizeof (FLOATVAL);
+ break;
+
+ case PARROT_POINTERSIZE:
+ $1 = sizeof (void *);
+ break;
+
+ case PARROT_INTMIN:
+ $1 = PARROT_INTVAL_MIN;
+ break;
+
+ case PARROT_INTMAX:
+ $1 = PARROT_INTVAL_MAX;
+ break;
+
+ default:
+ $1 = -1;
+ break;
+ }
+}
+
+###############################################################################
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (C) 2010, Parrot Foundation.
+
+=head1 LICENSE
+
+This program is free software. It is subject to the same license
+as the Parrot interp itself.
+
+=cut
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Copied: branches/gsoc_instrument/src/dynoplibs/trans.ops (from r47107, trunk/src/dynoplibs/trans.ops)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/dynoplibs/trans.ops Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/dynoplibs/trans.ops)
@@ -0,0 +1,320 @@
+/*
+ * $Id$
+ * trans.ops
+ */
+
+=head1 NAME
+
+trans.ops - Transcendental Opcodes
+
+=head1 DESCRIPTION
+
+Addition library of operations to perform various transcendental operations such
+as logarithmics and trigonometrics.
+
+To use this library of ops, add this directive to your PIR:
+
+ .loadlib 'trans_ops'
+
+=over 4
+
+=cut
+
+########################################
+
+=item B<acos>(out NUM, in NUM)
+
+Set $1 to the arc cosine (in radians) of $2.
+
+=cut
+
+inline op acos(out NUM, in NUM) :base_math {
+ $1 = acos((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<asec>(out NUM, in NUM)
+
+Set $1 to the arc secant (in radians) of $2.
+
+=cut
+
+inline op asec(out NUM, in NUM) :base_math {
+ $1 = acos(((FLOATVAL)1) / ((FLOATVAL)$2));
+}
+
+########################################
+
+
+=item B<asin>(out NUM, in NUM)
+
+Set $1 to the arc sine (in radians) of $2.
+
+=cut
+
+inline op asin(out NUM, in NUM) :base_math {
+ $1 = asin((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<atan>(out NUM, in NUM)
+
+=item B<atan>(out NUM, in NUM, in NUM)
+
+The two-argument versions set $1 to the arc tangent (in radians) of $2.
+
+The three-argument versions set $1 to the arc tangent (in radians) of
+$2 / $3, taking account of the signs of the arguments in determining the
+quadrant of the result.
+
+=cut
+
+inline op atan(out NUM, in NUM) :base_math {
+ $1 = atan((FLOATVAL)$2);
+}
+
+inline op atan(out NUM, in NUM, in NUM) :base_math {
+ $1 = atan2((FLOATVAL)$2, (FLOATVAL)$3);
+}
+
+########################################
+
+=item B<cos>(out NUM, in NUM)
+
+Set $1 to the cosine of $2 (given in radians).
+
+=cut
+
+inline op cos(out NUM, in NUM) :base_math {
+ $1 = cos((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<cosh>(out NUM, in NUM)
+
+Set $1 to the hyperbolic cosine of $2 (given in radians).
+
+=cut
+
+inline op cosh(out NUM, in NUM) :base_math {
+ $1 = cosh((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<exp>(out NUM, in NUM)
+
+Set $1 to I<e> raised to the power $2. I<e> is the base of the natural
+logarithm.
+
+=cut
+
+inline op exp(out NUM, in NUM) :base_math {
+ $1 = exp((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<ln>(out NUM, in NUM)
+
+Set $1 to the natural (base I<e>) logarithm of $2.
+
+=cut
+
+inline op ln(out NUM, in NUM) :base_math {
+ $1 = log((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<log10>(out NUM, in NUM)
+
+Set $1 to the base 10 logarithm of $2.
+
+=cut
+
+inline op log10(out NUM, in NUM) :base_math {
+ $1 = log10((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<log2>(out NUM, in NUM)
+
+Set $1 to the base 2 logarithm of $2.
+
+=cut
+
+op log2(out NUM, in NUM) :base_math {
+ FLOATVAL temp = log((FLOATVAL)2.0);
+ $1 = log((FLOATVAL)$2) / temp;
+}
+
+########################################
+
+=item B<sec>(out NUM, in NUM)
+
+Set $1 to the secant of $2 (given in radians).
+
+=cut
+
+inline op sec(out NUM, in NUM) :base_math {
+ $1 = ((FLOATVAL)1) / cos((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<sech>(out NUM, in NUM)
+
+Set $1 to the hyperbolic secant of $2 (given in radians).
+
+=cut
+
+inline op sech(out NUM, in NUM) :base_math {
+ $1 = ((FLOATVAL)1) / cosh((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<sin>(out NUM, in NUM)
+
+Set $1 to the sine of $2 (given in radians).
+
+=cut
+
+inline op sin(out NUM, in NUM) :base_math {
+ $1 = sin((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<sinh>(out NUM, in NUM)
+
+Set $1 to the hyperbolic sine of $2 (given in radians).
+
+=cut
+
+inline op sinh(out NUM, in NUM) :base_math {
+ $1 = sinh((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<tan>(out NUM, in NUM)
+
+Set $1 to the tangent of $2 (given in radians).
+
+=cut
+
+inline op tan(out NUM, in NUM) :base_math {
+ $1 = tan((FLOATVAL)$2);
+}
+
+########################################
+
+=item B<tanh>(out NUM, in NUM)
+
+Set $1 to the hyperbolic tangent of $2 (given in radians).
+
+=cut
+
+inline op tanh(out NUM, in NUM) :base_math {
+ $1 = tanh((FLOATVAL)$2);
+}
+
+=item B<pow>(out NUM, in NUM, in NUM)
+
+=item B<pow>(out NUM, in NUM, in INT)
+
+=item B<pow>(invar PMC, invar PMC, invar PMC)
+
+=item B<pow>(invar PMC, invar PMC, in INT)
+
+=item B<pow>(invar PMC, invar PMC, in NUM)
+
+Set $1 to $2 raised to the power $3.
+
+=cut
+
+inline op pow(out NUM, in NUM, in NUM) :base_core {
+ $1 = pow((FLOATVAL)$2, (FLOATVAL)$3);
+}
+
+inline op pow(invar PMC, invar PMC, invar PMC) :base_core {
+ const FLOATVAL a = VTABLE_get_number(interp, $2);
+ const FLOATVAL b = VTABLE_get_number(interp, $3);
+ const FLOATVAL c = pow(a, b);
+ if (PMC_IS_NULL($1))
+ $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
+ else
+ $1 = Parrot_pmc_new(interp, $1->vtable->base_type);
+ VTABLE_set_number_native(interp, $1, c);
+}
+
+inline op pow(invar PMC, invar PMC, in INT) :base_core {
+ const FLOATVAL a = VTABLE_get_number(interp, $2);
+ const FLOATVAL b = (FLOATVAL)$3;
+ const FLOATVAL c = pow(a, b);
+ if (PMC_IS_NULL($1))
+ $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
+ else
+ $1 = Parrot_pmc_new(interp, $1->vtable->base_type);
+ VTABLE_set_number_native(interp, $1, c);
+}
+
+inline op pow(invar PMC, invar PMC, in NUM) :base_core {
+ const FLOATVAL a = VTABLE_get_number(interp, $2);
+ const FLOATVAL c = pow(a, $3);
+ if (PMC_IS_NULL($1))
+ $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
+ else
+ $1 = Parrot_pmc_new(interp, $1->vtable->base_type);
+ VTABLE_set_number_native(interp, $1, c);
+}
+
+inline op pow(out NUM, in NUM, in INT) :base_core {
+ FLOATVAL n2 = $2;
+ FLOATVAL res = 1.0;
+ INTVAL e = $3;
+ int s = 1;
+ if (e != 0) {
+ if (e < 0) {
+ s = -1;
+ e = -e;
+ }
+ }
+ while (e) {
+ if (e & 1) {
+ res *= n2;
+ }
+ n2 *= n2;
+ e >>= 1;
+ }
+ if (s < 0) {
+ res = 1.0/res;
+ }
+ $1 = res;
+}
+
+=back
+
+=head1 COPYRIGHT
+
+Copyright (C) 2010-2010, Parrot Foundation.
+
+=head1 LICENSE
+
+This program is free software. It is subject to the same license
+as the Parrot interpreter itself.
+
+=cut
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Modified: branches/gsoc_instrument/src/interp/inter_misc.c
==============================================================================
--- branches/gsoc_instrument/src/interp/inter_misc.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/interp/inter_misc.c Sat May 29 11:56:49 2010 (r47109)
@@ -27,10 +27,6 @@
#include "parrot/has_header.h"
-#ifdef PARROT_HAS_HEADER_SYSUTSNAME
-# include <sys/utsname.h>
-#endif
-
/* HEADERIZER HFILE: include/parrot/interpreter.h */
/*
@@ -365,106 +361,6 @@
}
/*
-
-=item C<INTVAL sysinfo_i(PARROT_INTERP, INTVAL info_wanted)>
-
-Returns the system info.
-
-C<info_wanted> is one of:
-
- PARROT_INTSIZE
- PARROT_FLOATSIZE
- PARROT_POINTERSIZE
- PARROT_INTMAX
- PARROT_INTMIN
-
-In unknown info is requested then -1 is returned.
-
-=cut
-
-*/
-
-PARROT_WARN_UNUSED_RESULT
-PARROT_CONST_FUNCTION
-INTVAL
-sysinfo_i(SHIM_INTERP, INTVAL info_wanted)
-{
- ASSERT_ARGS(sysinfo_i)
- switch (info_wanted) {
- case PARROT_INTSIZE:
- return sizeof (INTVAL);
- case PARROT_FLOATSIZE:
- return sizeof (FLOATVAL);
- case PARROT_POINTERSIZE:
- return sizeof (void *);
- case PARROT_INTMIN:
- return PARROT_INTVAL_MIN;
- case PARROT_INTMAX:
- return PARROT_INTVAL_MAX;
- default:
- return -1;
- }
-}
-
-/*
-
-=item C<STRING * sysinfo_s(PARROT_INTERP, INTVAL info_wanted)>
-
-Returns the system info string.
-
-C<info_wanted> is one of:
-
- PARROT_OS
- PARROT_OS_VERSION
- PARROT_OS_VERSION_NUMBER
- CPU_ARCH
- CPU_TYPE
-
-If unknown info is requested then an empty string is returned.
-
-=cut
-
-*/
-
-PARROT_CANNOT_RETURN_NULL
-PARROT_WARN_UNUSED_RESULT
-STRING *
-sysinfo_s(PARROT_INTERP, INTVAL info_wanted)
-{
- ASSERT_ARGS(sysinfo_s)
- switch (info_wanted) {
- case PARROT_OS:
- return Parrot_str_new_constant(interp, BUILD_OS_NAME);
- case PARROT_OS_VERSION:
-#ifdef PARROT_HAS_HEADER_SYSUTSNAME
- {
- struct utsname info;
- if (uname(&info) == 0) {
- return string_make(interp, info.version, strlen(info.version), "ascii", 0);
- }
- }
-#endif
- break;
- case PARROT_OS_VERSION_NUMBER:
-#ifdef PARROT_HAS_HEADER_SYSUTSNAME
- {
- struct utsname info;
- if (uname(&info) == 0) {
- return string_make(interp, info.release, strlen(info.version), "ascii", 0);
- }
- }
-#endif
- break;
- case CPU_ARCH:
- return string_make(interp, PARROT_CPU_ARCH, sizeof (PARROT_CPU_ARCH) - 1, "ascii", 0);
- case CPU_TYPE:
- default:
- break;
- }
- return CONST_STRING(interp, "");
-}
-
-/*
* Local variables:
* c-file-style: "parrot"
* End:
Modified: branches/gsoc_instrument/src/io/api.c
==============================================================================
--- branches/gsoc_instrument/src/io/api.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/io/api.c Sat May 29 11:56:49 2010 (r47109)
@@ -888,6 +888,7 @@
*/
+PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
PIOOFF_T
Parrot_io_make_offset32(INTVAL hi, INTVAL lo)
Modified: branches/gsoc_instrument/src/oo.c
==============================================================================
--- branches/gsoc_instrument/src/oo.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/oo.c Sat May 29 11:56:49 2010 (r47109)
@@ -156,6 +156,9 @@
Lookup a class object from a namespace, string, or key PMC.
+TODO: This function is terribly inefficient. It needs to be refactored in a
+major way
+
=cut
*/
@@ -169,51 +172,52 @@
ASSERT_ARGS(Parrot_oo_get_class)
PMC *classobj = PMCNULL;
- if (!PMC_IS_NULL(key)) {
- if (PObj_is_class_TEST(key))
- classobj = key;
- else {
- /* Fast select of behavior based on type of the lookup key */
- switch (key->vtable->base_type) {
- case enum_class_NameSpace:
- classobj = VTABLE_get_class(interp, key);
- break;
- case enum_class_String:
- case enum_class_Key:
- case enum_class_ResizableStringArray:
- {
- PMC * const hll_ns = VTABLE_get_pmc_keyed_int(interp,
- interp->HLL_namespace,
- Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp)));
- PMC * const ns = Parrot_get_namespace_keyed(interp,
- hll_ns, key);
+ if (PMC_IS_NULL(key))
+ return PMCNULL;
- if (!PMC_IS_NULL(ns))
- classobj = VTABLE_get_class(interp, ns);
- }
- default:
- break;
+ if (PObj_is_class_TEST(key))
+ classobj = key;
+ else {
+ /* Fast select of behavior based on type of the lookup key */
+ switch (key->vtable->base_type) {
+ case enum_class_NameSpace:
+ classobj = VTABLE_get_class(interp, key);
+ break;
+ case enum_class_String:
+ case enum_class_Key:
+ case enum_class_ResizableStringArray:
+ {
+ PMC * const hll_ns = VTABLE_get_pmc_keyed_int(interp,
+ interp->HLL_namespace,
+ Parrot_pcc_get_HLL(interp, CURRENT_CONTEXT(interp)));
+ PMC * const ns = Parrot_get_namespace_keyed(interp,
+ hll_ns, key);
+
+ if (!PMC_IS_NULL(ns))
+ classobj = VTABLE_get_class(interp, ns);
}
+ default:
+ break;
}
+ }
- /* If the PMCProxy doesn't exist yet for the given key, we look up the
- type ID here and create a new one */
- if (PMC_IS_NULL(classobj)) {
- INTVAL type;
- const INTVAL base_type = key->vtable->base_type;
-
- /* This is a hack! All PMCs should be able to be handled through
- a single codepath, and all of them should be able to avoid
- stringification because it's so imprecise. */
- if (base_type == enum_class_Key
- || base_type == enum_class_ResizableStringArray
- || base_type == enum_class_String)
- type = Parrot_pmc_get_type(interp, key);
- else
- type = Parrot_pmc_get_type_str(interp, VTABLE_get_string(interp, key));
+ /* If the PMCProxy doesn't exist yet for the given key, we look up the
+ type ID here and create a new one */
+ if (PMC_IS_NULL(classobj)) {
+ INTVAL type;
+ const INTVAL base_type = key->vtable->base_type;
+
+ /* This is a hack! All PMCs should be able to be handled through
+ a single codepath, and all of them should be able to avoid
+ stringification because it's so imprecise. */
+ if (base_type == enum_class_Key
+ || base_type == enum_class_ResizableStringArray
+ || base_type == enum_class_String)
+ type = Parrot_pmc_get_type(interp, key);
+ else
+ type = Parrot_pmc_get_type_str(interp, VTABLE_get_string(interp, key));
- classobj = get_pmc_proxy(interp, type);
- }
+ classobj = get_pmc_proxy(interp, type);
}
return classobj;
@@ -264,7 +268,6 @@
/* Now clone attributes list.class. */
cloned_guts = (Parrot_Object_attributes *) PMC_data(cloned);
cloned_guts->_class = obj->_class;
- cloned_guts->attrib_store = NULL; /* XXX Do we need to set ->attrib_store twice? */
cloned_guts->attrib_store = VTABLE_clone(interp, obj->attrib_store);
num_attrs = VTABLE_elements(interp, cloned_guts->attrib_store);
for (i = 0; i < num_attrs; ++i) {
@@ -350,7 +353,8 @@
=item C<PMC * Parrot_oo_get_class_str(PARROT_INTERP, STRING *name)>
-Lookup a class object from a builtin string.
+Lookup a class object from the string C<name>. If the metaobject is found,
+return it. Otherwise, create a new PMCProxy for the type ID number.
=cut
@@ -388,7 +392,7 @@
=item C<PMC * Parrot_oo_newclass_from_str(PARROT_INTERP, STRING *name)>
-Create a new class object from a string name.
+Create a new Class PMC for a new type of the given C<name>.
=cut
@@ -419,7 +423,8 @@
=item C<PMC * Parrot_oo_find_vtable_override_for_class(PARROT_INTERP, PMC
*classobj, STRING *name)>
-Lookup a vtable override in a specific class object.
+Find the vtable override with the specified C<name> in the given C<classobj>
+metaobject.
=cut
Modified: branches/gsoc_instrument/src/ops/bit.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/bit.ops Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/ops/bit.ops Sat May 29 11:56:49 2010 (r47109)
@@ -40,19 +40,11 @@
=item B<band>(inout INT, in INT)
-=item B<band>(invar PMC, in INT)
-
-=item B<band>(invar PMC, invar PMC)
-
Set the bits of $1 according to the B<and> of the corresponding bits
from $1 and $2.
=item B<band>(out INT, in INT, in INT)
-=item B<band>(invar PMC, invar PMC, in INT)
-
-=item B<band>(invar PMC, invar PMC, invar PMC)
-
Set the bits of $1 according to the B<and> of the corresponding bits
from $2 and $3.
@@ -62,156 +54,19 @@
$1 &= $2;
}
-inline op band(invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = a & $2;
- VTABLE_set_integer_native(interp, $1, b);
-}
-
-inline op band(invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = VTABLE_get_integer(interp, $2);
- VTABLE_set_integer_native(interp, $1, a & b);
-}
-
inline op band(out INT, in INT, in INT) :base_core {
$1 = $2 & $3;
}
-inline op band(invar PMC, invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- VTABLE_set_integer_native(interp, $1, a & $3);
-}
-
-inline op band(invar PMC, invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- const INTVAL b = VTABLE_get_integer(interp, $3);
- VTABLE_set_integer_native(interp, $1, a & b);
-}
-
-=item B<bands>(invar PMC, in STR)
-
-=item B<bands>(invar PMC, invar PMC)
-
-Set the bits of $1 according to the B<and> of the corresponding bits
-from $1 and $2.
-
-=item B<bands>(out STR, in STR, in STR)
-
-=item B<bands>(invar PMC, invar PMC, in STR)
-
-=item B<bands>(invar PMC, invar PMC, invar PMC)
-
-Set the bits of $1 according to the B<and> of the corresponding bits
-from $2 and $3.
-
-=cut
-
-inline op bands(invar PMC, in STR) :base_core {
- STRING * const a = VTABLE_get_string(interp, $1);
- STRING * const b = Parrot_str_bitwise_and(interp, a, $2);
- VTABLE_set_string_native(interp, $1, b);
-}
-
-inline op bands(invar PMC, invar PMC) :base_core {
- STRING * a = VTABLE_get_string(interp, $1);
- STRING * const b = VTABLE_get_string(interp, $2);
- a = Parrot_str_bitwise_and(interp, a, b);
- VTABLE_set_string_native(interp, $1, a);
-}
-
-inline op bands(out STR, in STR, in STR) :base_core {
- $1 = Parrot_str_bitwise_and(interp, $2, $3);
-}
-
-inline op bands(invar PMC, invar PMC, in STR) :base_core {
- STRING * const a = VTABLE_get_string(interp, $2);
- STRING * const b = Parrot_str_bitwise_and(interp, a, $3);
- VTABLE_set_string_native(interp, $1, b);
-}
-
-inline op bands(invar PMC, invar PMC, invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $2);
- STRING * const b = VTABLE_get_string(interp, $3);
- STRING * const c = Parrot_str_bitwise_and(interp, a, b);
- VTABLE_set_string_native(interp, $1, c);
-}
-
-########################################
-
-=item B<bnot>(inout INT)
-
-=item B<bnot>(invar PMC)
-
-Sets $1 to C<bitwise not> $1 inplace.
-
-=item B<bnot>(out INT, in INT)
-
-=item B<bnot>(out PMC, invar PMC)
-
-=cut
-
-inline op bnot(inout INT) :base_core {
- $1 = ~ $1;
-}
-
-inline op bnot(out INT, in INT) :base_core {
- $1 = ~ $2;
-}
-
-inline op bnot(invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- VTABLE_set_integer_native(interp, $1, ~a);
-}
-
-inline op bnot(out PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- PMC * const b = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
- VTABLE_set_integer_native(interp, b, ~a);
- $1 = b;
-}
-
-=item B<bnots>(invar PMC)
-
-=item B<bnots>(out STR, in STR)
-
-=item B<bnots>(out PMC, invar PMC)
-
-=cut
-
-inline op bnots(out STR, in STR) :base_core {
- $1 = Parrot_str_bitwise_not(interp, $2);
-}
-
-inline op bnots(invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $1);
- STRING * const b = Parrot_str_bitwise_not(interp, a);
- VTABLE_set_string_native(interp, $1, b);
-}
-
-inline op bnots(out PMC, invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $2);
- STRING * const b = Parrot_str_bitwise_not(interp, a);
- VTABLE_set_string_native(interp, $1, b);
-}
-
########################################
=item B<bor>(inout INT, in INT)
-=item B<bor>(invar PMC, in INT)
-
-=item B<bor>(invar PMC, invar PMC)
-
Set the bits of $1 according to the B<or> of the corresponding bits
from $1 and $2.
=item B<bor>(out INT, in INT, in INT)
-=item B<bor>(invar PMC, invar PMC, in INT)
-
-=item B<bor>(invar PMC, invar PMC, invar PMC)
-
Set the bits of $1 according to the B<or> of the corresponding bits
from $2 and $3.
@@ -221,96 +76,18 @@
$1 |= $2;
}
-inline op bor(invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- VTABLE_set_integer_native(interp, $1, a | $2);
-}
-
-inline op bor(invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = VTABLE_get_integer(interp, $2);
- VTABLE_set_integer_native(interp, $1, a | b);
-}
-
inline op bor(out INT, in INT, in INT) :base_core {
$1 = $2 | $3;
}
-inline op bor(invar PMC, invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- VTABLE_set_integer_native(interp, $1, a | $3);
-}
-
-inline op bor(invar PMC, invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- const INTVAL b = VTABLE_get_integer(interp, $3);
- VTABLE_set_integer_native(interp, $1, a | b);
-}
-
-=item B<bors>(invar PMC, in STR)
-
-=item B<bors>(invar PMC, invar PMC)
-
-Set the bits of $1 according to the B<or> of the corresponding bits
-from $1 and $2.
-
-=item B<bors>(out STR, in STR, in STR)
-
-=item B<bors>(invar PMC, invar PMC, in STR)
-
-=item B<bors>(invar PMC, invar PMC, invar PMC)
-
-Set the bits of $1 according to the B<or> of the corresponding bits
-from $2 and $3.
-
-=cut
-
-inline op bors(invar PMC, in STR) :base_core {
- STRING * const a = VTABLE_get_string(interp, $1);
- STRING * const b = Parrot_str_bitwise_or(interp, a, $2);
- VTABLE_set_string_native(interp, $1, b);
-}
-
-inline op bors(invar PMC, invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $1);
- STRING * const b = VTABLE_get_string(interp, $2);
- STRING * const c = Parrot_str_bitwise_or(interp, a, b);
- VTABLE_set_string_native(interp, $1, c);
-}
-
-inline op bors(out STR, in STR, in STR) :base_core {
- $1 = Parrot_str_bitwise_or(interp, $2, $3);
-}
-
-inline op bors(invar PMC, invar PMC, in STR) :base_core {
- STRING * const b = VTABLE_get_string(interp, $2);
- STRING * const c = Parrot_str_bitwise_or(interp, b, $3);
- VTABLE_set_string_native(interp, $1, c);
-}
-
-inline op bors(invar PMC, invar PMC, invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $2);
- STRING * const b = VTABLE_get_string(interp, $3);
- STRING * const c = Parrot_str_bitwise_or(interp, a, b);
- VTABLE_set_string_native(interp, $1, c);
-}
-
########################################
=item B<shl>(inout INT, in INT)
-=item B<shl>(invar PMC, in INT)
-
-=item B<shl>(invar PMC, invar PMC)
-
Shift left $1 by $2 bits.
=item B<shl>(out INT, in INT, in INT)
-=item B<shl>(invar PMC, invar PMC, in INT)
-
-=item B<shl>(invar PMC, invar PMC, invar PMC)
-
Set $1 to the value of $2 shifted left by $3 bits.
=cut
@@ -319,52 +96,18 @@
$1 = bit_shift_left($1, $2);
}
-inline op shl(invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = bit_shift_left(a, $2);
- VTABLE_set_integer_native(interp, $1, b);
-}
-
-inline op shl(invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = VTABLE_get_integer(interp, $2);
- const INTVAL c = bit_shift_left(a, b);
- VTABLE_set_integer_native(interp, $1, c);
-}
-
inline op shl(out INT, in INT, in INT) :base_core {
$1 = bit_shift_left($2, $3);
}
-inline op shl(invar PMC, invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- const INTVAL b = bit_shift_left(a, $3);
- VTABLE_set_integer_native(interp, $1, b);
-}
-
-inline op shl(invar PMC, invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- const INTVAL b = VTABLE_get_integer(interp, $3);
- const INTVAL c = bit_shift_left(a, b);
- VTABLE_set_integer_native(interp, $1, c);
-}
-
########################################
=item B<shr>(inout INT, in INT)
-=item B<shr>(invar PMC, in INT)
-
-=item B<shr>(invar PMC, invar PMC)
-
Shift right $1 by $2 bits.
=item B<shr>(out INT, in INT, in INT)
-=item B<shr>(invar PMC, invar PMC, in INT)
-
-=item B<shr>(invar PMC, invar PMC, invar PMC)
-
Set $1 to the value of $2 shifted right by $3 bits.
=cut
@@ -374,53 +117,19 @@
$1 = bit_shift_left($1, signed_shift);
}
-inline op shr(invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = bit_shift_left(a, -$2);
- VTABLE_set_integer_native(interp, $1, b);
-}
-
-inline op shr(invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $1);
- const INTVAL b = VTABLE_get_integer(interp, $2);
- const INTVAL c = bit_shift_left(a, -b);
- VTABLE_set_integer_native(interp, $1, c);
-}
-
inline op shr(out INT, in INT, in INT) :base_core {
const INTVAL signed_shift = -$3;
$1 = bit_shift_left($2, signed_shift);
}
-inline op shr(invar PMC, invar PMC, in INT) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- const INTVAL c = bit_shift_left(a, -$3);
- VTABLE_set_integer_native(interp, $1, c);
-}
-
-inline op shr(invar PMC, invar PMC, invar PMC) :base_core {
- const INTVAL a = VTABLE_get_integer(interp, $2);
- const INTVAL b = VTABLE_get_integer(interp, $3);
- const INTVAL c = bit_shift_left(a, -b);
- VTABLE_set_integer_native(interp, $1, c);
-}
-
########################################
=item B<lsr>(out INT, in INT)
-=item B<lsr>(invar PMC, in INT)
-
-=item B<lsr>(invar PMC, invar PMC)
-
Shift $1 logically shifted right by $2 bits.
=item B<lsr>(out INT, in INT, in INT)
-=item B<lsr>(invar PMC, invar PMC, in INT)
-
-=item B<lsr>(invar PMC, invar PMC, invar PMC)
-
Set $1 to the value of $2 logically shifted right by $3 bits.
=cut
@@ -431,77 +140,19 @@
$1 = (INTVAL)b;
}
-inline op lsr(invar PMC, in INT) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
- const UINTVAL b = a >> $2;
- VTABLE_set_integer_native(interp, $1, (INTVAL)b);
-}
-
-inline op lsr(invar PMC, invar PMC) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $2);
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, $1, (INTVAL)c);
-}
-
inline op lsr(out INT, in INT, in INT) :base_core {
$1 = (INTVAL)((UINTVAL)$2 >> $3);
}
-inline op lsr(invar PMC, invar PMC, in INT) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
- const UINTVAL b = (UINTVAL)$3;
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, $1, (INTVAL)c);
-}
-
-inline op lsr(invar PMC, invar PMC, invar PMC) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $3);
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, $3, (INTVAL)c);
-}
-
-=item B<rot>(out INT, in INT, in INT, inconst INT)
-
-Rotate $2 left or right by $3 and place result in $1.
-$4 is the amount of bits to rotate, 32 bit on a 32-bit CPU and 32 or 64
-on a 64-bit CPU. If the rotate count is negative a rotate right by ($3+$4)
-is performed.
-
-=cut
-
-inline op rot(out INT, in INT, in INT, inconst INT) {
- const INTVAL r = $2;
- INTVAL s = $3;
- const INTVAL w = $4;
- INTVAL d, t;
- if (s < 0)
- s += w;
- d = r << s;
- t = w - s;
- t = (INTVAL)((UINTVAL)r >> t);
- d |= t;
- $1 = d;
-}
-
########################################
=item B<bxor>(inout INT, in INT)
-=item B<bxor>(invar PMC, in INT)
-
-=item B<bxor>(invar PMC, invar PMC)
-
Set the bits of $1 according to the B<xor> of the corresponding bits
from $1 and $2.
=item B<bxor>(out INT, in INT, in INT)
-=item B<bxor>(invar PMC, invar PMC, in INT)
-
-=item B<bxor>(invar PMC, invar PMC, invar PMC)
-
Set the bits of $1 according to the B<xor> of the corresponding bits
from $2 and $3.
@@ -511,84 +162,10 @@
$1 ^= $2;
}
-inline op bxor(invar PMC, in INT) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
- const UINTVAL b = a ^ $2;
- VTABLE_set_integer_native(interp, $1, (INTVAL)b);
-}
-
-inline op bxor(invar PMC, invar PMC) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $1);
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $2);
- const UINTVAL c = a ^ b;
- VTABLE_set_integer_native(interp, $1, (INTVAL)c);
-}
-
inline op bxor(out INT, in INT, in INT) :base_core {
$1 = $2 ^ $3;
}
-inline op bxor(invar PMC, invar PMC, in INT) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
- const UINTVAL b = a ^ $3;
- VTABLE_set_integer_native(interp, $1, (INTVAL)b);
-}
-
-inline op bxor(invar PMC, invar PMC, invar PMC) :base_core {
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, $2);
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, $3);
- const UINTVAL c = a ^ b;
- VTABLE_set_integer_native(interp, $1, (INTVAL)c);
-}
-
-=item B<bxors>(invar PMC, in STR)
-
-=item B<bxors>(invar PMC, invar PMC)
-
-Set the bits of $1 according to the B<xor> of the corresponding bits
-from $1 and $2.
-
-=item B<bxors>(out STR, in STR, in STR)
-
-=item B<bxors>(invar PMC, invar PMC, in STR)
-
-=item B<bxors>(invar PMC, invar PMC, invar PMC)
-
-Set the bits of $1 according to the B<xor> of the corresponding bits
-from $2 and $3.
-
-=cut
-
-inline op bxors(invar PMC, in STR) :base_core {
- STRING * const a = VTABLE_get_string(interp, $1);
- STRING * const b = Parrot_str_bitwise_xor(interp, a, $2);
- VTABLE_set_string_native(interp, $1, b);
-}
-
-inline op bxors(invar PMC, invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $1);
- STRING * const b = VTABLE_get_string(interp, $2);
- STRING * const c = Parrot_str_bitwise_xor(interp, a, b);
- VTABLE_set_string_native(interp, $1, c);
-}
-
-inline op bxors(out STR, in STR, in STR) :base_core {
- $1 = Parrot_str_bitwise_xor(interp, $2, $3);
-}
-
-inline op bxors(invar PMC, invar PMC, in STR) :base_core {
- STRING * const a = VTABLE_get_string(interp, $2);
- STRING * const b = Parrot_str_bitwise_xor(interp, a, $3);
- VTABLE_set_string_native(interp, $1, b);
-}
-
-inline op bxors(invar PMC, invar PMC, invar PMC) :base_core {
- STRING * const a = VTABLE_get_string(interp, $2);
- STRING * const b = VTABLE_get_string(interp, $3);
- STRING * const c = Parrot_str_bitwise_xor(interp, a, b);
- VTABLE_set_string_native(interp, $1, c);
-}
-
=back
=cut
Modified: branches/gsoc_instrument/src/ops/core_ops.c
==============================================================================
--- branches/gsoc_instrument/src/ops/core_ops.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/ops/core_ops.c Sat May 29 11:56:49 2010 (r47109)
@@ -61,13 +61,13 @@
-INTVAL core_numops = 1269;
+INTVAL core_numops = 1081;
/*
** Op Function Table:
*/
-static op_func_t core_op_func_table[1269] = { Parrot_end, /* 0 */
+static op_func_t core_op_func_table[1081] = { Parrot_end, /* 0 */
Parrot_noop, /* 1 */
Parrot_check_events, /* 2 */
Parrot_check_events__, /* 3 */
@@ -186,1155 +186,967 @@
Parrot_annotations_p_sc, /* 116 */
Parrot_band_i_i, /* 117 */
Parrot_band_i_ic, /* 118 */
- Parrot_band_p_i, /* 119 */
- Parrot_band_p_ic, /* 120 */
- Parrot_band_p_p, /* 121 */
- Parrot_band_i_i_i, /* 122 */
- Parrot_band_i_ic_i, /* 123 */
- Parrot_band_i_i_ic, /* 124 */
- Parrot_band_p_p_i, /* 125 */
- Parrot_band_p_p_ic, /* 126 */
- Parrot_band_p_p_p, /* 127 */
- Parrot_bands_p_s, /* 128 */
- Parrot_bands_p_sc, /* 129 */
- Parrot_bands_p_p, /* 130 */
- Parrot_bands_s_s_s, /* 131 */
- Parrot_bands_s_sc_s, /* 132 */
- Parrot_bands_s_s_sc, /* 133 */
- Parrot_bands_p_p_s, /* 134 */
- Parrot_bands_p_p_sc, /* 135 */
- Parrot_bands_p_p_p, /* 136 */
- Parrot_bnot_i, /* 137 */
- Parrot_bnot_i_i, /* 138 */
- Parrot_bnot_p, /* 139 */
- Parrot_bnot_p_p, /* 140 */
- Parrot_bnots_s_s, /* 141 */
- Parrot_bnots_s_sc, /* 142 */
- Parrot_bnots_p, /* 143 */
- Parrot_bnots_p_p, /* 144 */
- Parrot_bor_i_i, /* 145 */
- Parrot_bor_i_ic, /* 146 */
- Parrot_bor_p_i, /* 147 */
- Parrot_bor_p_ic, /* 148 */
- Parrot_bor_p_p, /* 149 */
- Parrot_bor_i_i_i, /* 150 */
- Parrot_bor_i_ic_i, /* 151 */
- Parrot_bor_i_i_ic, /* 152 */
- Parrot_bor_p_p_i, /* 153 */
- Parrot_bor_p_p_ic, /* 154 */
- Parrot_bor_p_p_p, /* 155 */
- Parrot_bors_p_s, /* 156 */
- Parrot_bors_p_sc, /* 157 */
- Parrot_bors_p_p, /* 158 */
- Parrot_bors_s_s_s, /* 159 */
- Parrot_bors_s_sc_s, /* 160 */
- Parrot_bors_s_s_sc, /* 161 */
- Parrot_bors_p_p_s, /* 162 */
- Parrot_bors_p_p_sc, /* 163 */
- Parrot_bors_p_p_p, /* 164 */
- Parrot_shl_i_i, /* 165 */
- Parrot_shl_i_ic, /* 166 */
- Parrot_shl_p_i, /* 167 */
- Parrot_shl_p_ic, /* 168 */
- Parrot_shl_p_p, /* 169 */
- Parrot_shl_i_i_i, /* 170 */
- Parrot_shl_i_ic_i, /* 171 */
- Parrot_shl_i_i_ic, /* 172 */
- Parrot_shl_p_p_i, /* 173 */
- Parrot_shl_p_p_ic, /* 174 */
- Parrot_shl_p_p_p, /* 175 */
- Parrot_shr_i_i, /* 176 */
- Parrot_shr_i_ic, /* 177 */
- Parrot_shr_p_i, /* 178 */
- Parrot_shr_p_ic, /* 179 */
- Parrot_shr_p_p, /* 180 */
- Parrot_shr_i_i_i, /* 181 */
- Parrot_shr_i_ic_i, /* 182 */
- Parrot_shr_i_i_ic, /* 183 */
- Parrot_shr_p_p_i, /* 184 */
- Parrot_shr_p_p_ic, /* 185 */
- Parrot_shr_p_p_p, /* 186 */
- Parrot_lsr_i_i, /* 187 */
- Parrot_lsr_i_ic, /* 188 */
- Parrot_lsr_p_i, /* 189 */
- Parrot_lsr_p_ic, /* 190 */
- Parrot_lsr_p_p, /* 191 */
- Parrot_lsr_i_i_i, /* 192 */
- Parrot_lsr_i_ic_i, /* 193 */
- Parrot_lsr_i_i_ic, /* 194 */
- Parrot_lsr_p_p_i, /* 195 */
- Parrot_lsr_p_p_ic, /* 196 */
- Parrot_lsr_p_p_p, /* 197 */
- Parrot_rot_i_i_i_ic, /* 198 */
- Parrot_rot_i_ic_i_ic, /* 199 */
- Parrot_rot_i_i_ic_ic, /* 200 */
- Parrot_bxor_i_i, /* 201 */
- Parrot_bxor_i_ic, /* 202 */
- Parrot_bxor_p_i, /* 203 */
- Parrot_bxor_p_ic, /* 204 */
- Parrot_bxor_p_p, /* 205 */
- Parrot_bxor_i_i_i, /* 206 */
- Parrot_bxor_i_ic_i, /* 207 */
- Parrot_bxor_i_i_ic, /* 208 */
- Parrot_bxor_p_p_i, /* 209 */
- Parrot_bxor_p_p_ic, /* 210 */
- Parrot_bxor_p_p_p, /* 211 */
- Parrot_bxors_p_s, /* 212 */
- Parrot_bxors_p_sc, /* 213 */
- Parrot_bxors_p_p, /* 214 */
- Parrot_bxors_s_s_s, /* 215 */
- Parrot_bxors_s_sc_s, /* 216 */
- Parrot_bxors_s_s_sc, /* 217 */
- Parrot_bxors_p_p_s, /* 218 */
- Parrot_bxors_p_p_sc, /* 219 */
- Parrot_bxors_p_p_p, /* 220 */
- Parrot_eq_i_i_ic, /* 221 */
- Parrot_eq_ic_i_ic, /* 222 */
- Parrot_eq_i_ic_ic, /* 223 */
- Parrot_eq_n_n_ic, /* 224 */
- Parrot_eq_nc_n_ic, /* 225 */
- Parrot_eq_n_nc_ic, /* 226 */
- Parrot_eq_s_s_ic, /* 227 */
- Parrot_eq_sc_s_ic, /* 228 */
- Parrot_eq_s_sc_ic, /* 229 */
- Parrot_eq_p_p_ic, /* 230 */
- Parrot_eq_p_i_ic, /* 231 */
- Parrot_eq_p_ic_ic, /* 232 */
- Parrot_eq_p_n_ic, /* 233 */
- Parrot_eq_p_nc_ic, /* 234 */
- Parrot_eq_p_s_ic, /* 235 */
- Parrot_eq_p_sc_ic, /* 236 */
- Parrot_eq_str_p_p_ic, /* 237 */
- Parrot_eq_num_p_p_ic, /* 238 */
- Parrot_eq_addr_s_s_ic, /* 239 */
- Parrot_eq_addr_sc_s_ic, /* 240 */
- Parrot_eq_addr_s_sc_ic, /* 241 */
- Parrot_eq_addr_sc_sc_ic, /* 242 */
- Parrot_eq_addr_p_p_ic, /* 243 */
- Parrot_ne_i_i_ic, /* 244 */
- Parrot_ne_ic_i_ic, /* 245 */
- Parrot_ne_i_ic_ic, /* 246 */
- Parrot_ne_n_n_ic, /* 247 */
- Parrot_ne_nc_n_ic, /* 248 */
- Parrot_ne_n_nc_ic, /* 249 */
- Parrot_ne_s_s_ic, /* 250 */
- Parrot_ne_sc_s_ic, /* 251 */
- Parrot_ne_s_sc_ic, /* 252 */
- Parrot_ne_p_p_ic, /* 253 */
- Parrot_ne_p_i_ic, /* 254 */
- Parrot_ne_p_ic_ic, /* 255 */
- Parrot_ne_p_n_ic, /* 256 */
- Parrot_ne_p_nc_ic, /* 257 */
- Parrot_ne_p_s_ic, /* 258 */
- Parrot_ne_p_sc_ic, /* 259 */
- Parrot_ne_str_p_p_ic, /* 260 */
- Parrot_ne_num_p_p_ic, /* 261 */
- Parrot_ne_addr_s_s_ic, /* 262 */
- Parrot_ne_addr_sc_s_ic, /* 263 */
- Parrot_ne_addr_s_sc_ic, /* 264 */
- Parrot_ne_addr_sc_sc_ic, /* 265 */
- Parrot_ne_addr_p_p_ic, /* 266 */
- Parrot_lt_i_i_ic, /* 267 */
- Parrot_lt_ic_i_ic, /* 268 */
- Parrot_lt_i_ic_ic, /* 269 */
- Parrot_lt_n_n_ic, /* 270 */
- Parrot_lt_nc_n_ic, /* 271 */
- Parrot_lt_n_nc_ic, /* 272 */
- Parrot_lt_s_s_ic, /* 273 */
- Parrot_lt_sc_s_ic, /* 274 */
- Parrot_lt_s_sc_ic, /* 275 */
- Parrot_lt_p_p_ic, /* 276 */
- Parrot_lt_p_i_ic, /* 277 */
- Parrot_lt_p_ic_ic, /* 278 */
- Parrot_lt_p_n_ic, /* 279 */
- Parrot_lt_p_nc_ic, /* 280 */
- Parrot_lt_p_s_ic, /* 281 */
- Parrot_lt_p_sc_ic, /* 282 */
- Parrot_lt_str_p_p_ic, /* 283 */
- Parrot_lt_num_p_p_ic, /* 284 */
- Parrot_le_i_i_ic, /* 285 */
- Parrot_le_ic_i_ic, /* 286 */
- Parrot_le_i_ic_ic, /* 287 */
- Parrot_le_n_n_ic, /* 288 */
- Parrot_le_nc_n_ic, /* 289 */
- Parrot_le_n_nc_ic, /* 290 */
- Parrot_le_s_s_ic, /* 291 */
- Parrot_le_sc_s_ic, /* 292 */
- Parrot_le_s_sc_ic, /* 293 */
- Parrot_le_p_p_ic, /* 294 */
- Parrot_le_p_i_ic, /* 295 */
- Parrot_le_p_ic_ic, /* 296 */
- Parrot_le_p_n_ic, /* 297 */
- Parrot_le_p_nc_ic, /* 298 */
- Parrot_le_p_s_ic, /* 299 */
- Parrot_le_p_sc_ic, /* 300 */
- Parrot_le_str_p_p_ic, /* 301 */
- Parrot_le_num_p_p_ic, /* 302 */
- Parrot_gt_p_p_ic, /* 303 */
- Parrot_gt_p_i_ic, /* 304 */
- Parrot_gt_p_ic_ic, /* 305 */
- Parrot_gt_p_n_ic, /* 306 */
- Parrot_gt_p_nc_ic, /* 307 */
- Parrot_gt_p_s_ic, /* 308 */
- Parrot_gt_p_sc_ic, /* 309 */
- Parrot_gt_str_p_p_ic, /* 310 */
- Parrot_gt_num_p_p_ic, /* 311 */
- Parrot_ge_p_p_ic, /* 312 */
- Parrot_ge_p_i_ic, /* 313 */
- Parrot_ge_p_ic_ic, /* 314 */
- Parrot_ge_p_n_ic, /* 315 */
- Parrot_ge_p_nc_ic, /* 316 */
- Parrot_ge_p_s_ic, /* 317 */
- Parrot_ge_p_sc_ic, /* 318 */
- Parrot_ge_str_p_p_ic, /* 319 */
- Parrot_ge_num_p_p_ic, /* 320 */
- Parrot_if_null_p_ic, /* 321 */
- Parrot_if_null_s_ic, /* 322 */
- Parrot_unless_null_p_ic, /* 323 */
- Parrot_unless_null_s_ic, /* 324 */
- Parrot_cmp_i_i_i, /* 325 */
- Parrot_cmp_i_ic_i, /* 326 */
- Parrot_cmp_i_i_ic, /* 327 */
- Parrot_cmp_i_n_n, /* 328 */
- Parrot_cmp_i_nc_n, /* 329 */
- Parrot_cmp_i_n_nc, /* 330 */
- Parrot_cmp_i_s_s, /* 331 */
- Parrot_cmp_i_sc_s, /* 332 */
- Parrot_cmp_i_s_sc, /* 333 */
- Parrot_cmp_i_p_p, /* 334 */
- Parrot_cmp_i_p_i, /* 335 */
- Parrot_cmp_i_p_ic, /* 336 */
- Parrot_cmp_i_p_n, /* 337 */
- Parrot_cmp_i_p_nc, /* 338 */
- Parrot_cmp_i_p_s, /* 339 */
- Parrot_cmp_i_p_sc, /* 340 */
- Parrot_cmp_str_i_p_p, /* 341 */
- Parrot_cmp_num_i_p_p, /* 342 */
- Parrot_cmp_pmc_p_p_p, /* 343 */
- Parrot_issame_i_p_p, /* 344 */
- Parrot_issame_i_s_s, /* 345 */
- Parrot_issame_i_sc_s, /* 346 */
- Parrot_issame_i_s_sc, /* 347 */
- Parrot_issame_i_sc_sc, /* 348 */
- Parrot_isntsame_i_p_p, /* 349 */
- Parrot_isntsame_i_s_s, /* 350 */
- Parrot_isntsame_i_sc_s, /* 351 */
- Parrot_isntsame_i_s_sc, /* 352 */
- Parrot_isntsame_i_sc_sc, /* 353 */
- Parrot_istrue_i_p, /* 354 */
- Parrot_isfalse_i_p, /* 355 */
- Parrot_isnull_i_p, /* 356 */
- Parrot_isnull_i_pc, /* 357 */
- Parrot_isnull_i_s, /* 358 */
- Parrot_isnull_i_sc, /* 359 */
- Parrot_isgt_i_p_p, /* 360 */
- Parrot_isge_i_p_p, /* 361 */
- Parrot_isle_i_i_i, /* 362 */
- Parrot_isle_i_ic_i, /* 363 */
- Parrot_isle_i_i_ic, /* 364 */
- Parrot_isle_i_n_n, /* 365 */
- Parrot_isle_i_nc_n, /* 366 */
- Parrot_isle_i_n_nc, /* 367 */
- Parrot_isle_i_s_s, /* 368 */
- Parrot_isle_i_sc_s, /* 369 */
- Parrot_isle_i_s_sc, /* 370 */
- Parrot_isle_i_p_p, /* 371 */
- Parrot_islt_i_i_i, /* 372 */
- Parrot_islt_i_ic_i, /* 373 */
- Parrot_islt_i_i_ic, /* 374 */
- Parrot_islt_i_n_n, /* 375 */
- Parrot_islt_i_nc_n, /* 376 */
- Parrot_islt_i_n_nc, /* 377 */
- Parrot_islt_i_s_s, /* 378 */
- Parrot_islt_i_sc_s, /* 379 */
- Parrot_islt_i_s_sc, /* 380 */
- Parrot_islt_i_p_p, /* 381 */
- Parrot_iseq_i_i_i, /* 382 */
- Parrot_iseq_i_ic_i, /* 383 */
- Parrot_iseq_i_i_ic, /* 384 */
- Parrot_iseq_i_n_n, /* 385 */
- Parrot_iseq_i_nc_n, /* 386 */
- Parrot_iseq_i_n_nc, /* 387 */
- Parrot_iseq_i_s_s, /* 388 */
- Parrot_iseq_i_sc_s, /* 389 */
- Parrot_iseq_i_s_sc, /* 390 */
- Parrot_iseq_i_p_p, /* 391 */
- Parrot_isne_i_i_i, /* 392 */
- Parrot_isne_i_ic_i, /* 393 */
- Parrot_isne_i_i_ic, /* 394 */
- Parrot_isne_i_n_n, /* 395 */
- Parrot_isne_i_nc_n, /* 396 */
- Parrot_isne_i_n_nc, /* 397 */
- Parrot_isne_i_s_s, /* 398 */
- Parrot_isne_i_sc_s, /* 399 */
- Parrot_isne_i_s_sc, /* 400 */
- Parrot_isne_i_p_p, /* 401 */
- Parrot_and_i_i_i, /* 402 */
- Parrot_and_i_ic_i, /* 403 */
- Parrot_and_i_i_ic, /* 404 */
- Parrot_and_p_p_p, /* 405 */
- Parrot_not_i, /* 406 */
- Parrot_not_i_i, /* 407 */
- Parrot_not_p, /* 408 */
- Parrot_not_p_p, /* 409 */
- Parrot_or_i_i_i, /* 410 */
- Parrot_or_i_ic_i, /* 411 */
- Parrot_or_i_i_ic, /* 412 */
- Parrot_or_p_p_p, /* 413 */
- Parrot_xor_i_i_i, /* 414 */
- Parrot_xor_i_ic_i, /* 415 */
- Parrot_xor_i_i_ic, /* 416 */
- Parrot_xor_p_p_p, /* 417 */
- Parrot_debug_init, /* 418 */
- Parrot_debug_load_sc, /* 419 */
- Parrot_debug_break, /* 420 */
- Parrot_debug_print, /* 421 */
- Parrot_backtrace, /* 422 */
- Parrot_getline_i, /* 423 */
- Parrot_getfile_s, /* 424 */
- Parrot_close_p, /* 425 */
- Parrot_fdopen_p_i_s, /* 426 */
- Parrot_fdopen_p_ic_s, /* 427 */
- Parrot_fdopen_p_i_sc, /* 428 */
- Parrot_fdopen_p_ic_sc, /* 429 */
- Parrot_getstdin_p, /* 430 */
- Parrot_getstdout_p, /* 431 */
- Parrot_getstderr_p, /* 432 */
- Parrot_setstdin_p, /* 433 */
- Parrot_setstdout_p, /* 434 */
- Parrot_setstderr_p, /* 435 */
- Parrot_open_p_s_s, /* 436 */
- Parrot_open_p_sc_s, /* 437 */
- Parrot_open_p_s_sc, /* 438 */
- Parrot_open_p_sc_sc, /* 439 */
- Parrot_open_p_s, /* 440 */
- Parrot_open_p_sc, /* 441 */
- Parrot_print_i, /* 442 */
- Parrot_print_ic, /* 443 */
- Parrot_print_n, /* 444 */
- Parrot_print_nc, /* 445 */
- Parrot_print_s, /* 446 */
- Parrot_print_sc, /* 447 */
- Parrot_print_p, /* 448 */
- Parrot_say_i, /* 449 */
- Parrot_say_ic, /* 450 */
- Parrot_say_n, /* 451 */
- Parrot_say_nc, /* 452 */
- Parrot_say_s, /* 453 */
- Parrot_say_sc, /* 454 */
- Parrot_say_p, /* 455 */
- Parrot_printerr_i, /* 456 */
- Parrot_printerr_ic, /* 457 */
- Parrot_printerr_n, /* 458 */
- Parrot_printerr_nc, /* 459 */
- Parrot_printerr_s, /* 460 */
- Parrot_printerr_sc, /* 461 */
- Parrot_printerr_p, /* 462 */
- Parrot_print_p_i, /* 463 */
- Parrot_print_p_ic, /* 464 */
- Parrot_print_p_n, /* 465 */
- Parrot_print_p_nc, /* 466 */
- Parrot_print_p_s, /* 467 */
- Parrot_print_p_sc, /* 468 */
- Parrot_print_p_p, /* 469 */
- Parrot_read_s_i, /* 470 */
- Parrot_read_s_ic, /* 471 */
- Parrot_read_s_p_i, /* 472 */
- Parrot_read_s_p_ic, /* 473 */
- Parrot_readline_s_p, /* 474 */
- Parrot_peek_s, /* 475 */
- Parrot_peek_s_p, /* 476 */
- Parrot_stat_i_s_i, /* 477 */
- Parrot_stat_i_sc_i, /* 478 */
- Parrot_stat_i_s_ic, /* 479 */
- Parrot_stat_i_sc_ic, /* 480 */
- Parrot_stat_i_i_i, /* 481 */
- Parrot_stat_i_ic_i, /* 482 */
- Parrot_stat_i_i_ic, /* 483 */
- Parrot_stat_i_ic_ic, /* 484 */
- Parrot_seek_p_i_i, /* 485 */
- Parrot_seek_p_ic_i, /* 486 */
- Parrot_seek_p_i_ic, /* 487 */
- Parrot_seek_p_ic_ic, /* 488 */
- Parrot_seek_p_i_i_i, /* 489 */
- Parrot_seek_p_ic_i_i, /* 490 */
- Parrot_seek_p_i_ic_i, /* 491 */
- Parrot_seek_p_ic_ic_i, /* 492 */
- Parrot_seek_p_i_i_ic, /* 493 */
- Parrot_seek_p_ic_i_ic, /* 494 */
- Parrot_seek_p_i_ic_ic, /* 495 */
- Parrot_seek_p_ic_ic_ic, /* 496 */
- Parrot_tell_i_p, /* 497 */
- Parrot_tell_i_i_p, /* 498 */
- Parrot_abs_i, /* 499 */
- Parrot_abs_n, /* 500 */
- Parrot_abs_i_i, /* 501 */
- Parrot_abs_n_n, /* 502 */
- Parrot_abs_p, /* 503 */
- Parrot_abs_p_p, /* 504 */
- Parrot_add_i_i, /* 505 */
- Parrot_add_i_ic, /* 506 */
- Parrot_add_n_n, /* 507 */
- Parrot_add_n_nc, /* 508 */
- Parrot_add_p_p, /* 509 */
- Parrot_add_p_i, /* 510 */
- Parrot_add_p_ic, /* 511 */
- Parrot_add_p_n, /* 512 */
- Parrot_add_p_nc, /* 513 */
- Parrot_add_i_i_i, /* 514 */
- Parrot_add_i_ic_i, /* 515 */
- Parrot_add_i_i_ic, /* 516 */
- Parrot_add_n_n_n, /* 517 */
- Parrot_add_n_nc_n, /* 518 */
- Parrot_add_n_n_nc, /* 519 */
- Parrot_add_p_p_p, /* 520 */
- Parrot_add_p_p_i, /* 521 */
- Parrot_add_p_p_ic, /* 522 */
- Parrot_add_p_p_n, /* 523 */
- Parrot_add_p_p_nc, /* 524 */
- Parrot_cmod_i_i_i, /* 525 */
- Parrot_cmod_i_ic_i, /* 526 */
- Parrot_cmod_i_i_ic, /* 527 */
- Parrot_cmod_p_p_i, /* 528 */
- Parrot_cmod_p_p_ic, /* 529 */
- Parrot_cmod_p_p_p, /* 530 */
- Parrot_cmod_n_n_n, /* 531 */
- Parrot_cmod_n_nc_n, /* 532 */
- Parrot_cmod_n_n_nc, /* 533 */
- Parrot_cmod_p_p_n, /* 534 */
- Parrot_cmod_p_p_nc, /* 535 */
- Parrot_dec_i, /* 536 */
- Parrot_dec_n, /* 537 */
- Parrot_dec_p, /* 538 */
- Parrot_div_i_i, /* 539 */
- Parrot_div_i_ic, /* 540 */
- Parrot_div_n_n, /* 541 */
- Parrot_div_n_nc, /* 542 */
- Parrot_div_p_p, /* 543 */
- Parrot_div_p_i, /* 544 */
- Parrot_div_p_ic, /* 545 */
- Parrot_div_p_n, /* 546 */
- Parrot_div_p_nc, /* 547 */
- Parrot_div_i_i_i, /* 548 */
- Parrot_div_i_ic_i, /* 549 */
- Parrot_div_i_i_ic, /* 550 */
- Parrot_div_i_ic_ic, /* 551 */
- Parrot_div_n_n_n, /* 552 */
- Parrot_div_n_nc_n, /* 553 */
- Parrot_div_n_n_nc, /* 554 */
- Parrot_div_n_nc_nc, /* 555 */
- Parrot_div_p_p_p, /* 556 */
- Parrot_div_p_p_i, /* 557 */
- Parrot_div_p_p_ic, /* 558 */
- Parrot_div_p_p_n, /* 559 */
- Parrot_div_p_p_nc, /* 560 */
- Parrot_fdiv_i_i, /* 561 */
- Parrot_fdiv_i_ic, /* 562 */
- Parrot_fdiv_n_n, /* 563 */
- Parrot_fdiv_n_nc, /* 564 */
- Parrot_fdiv_p_p, /* 565 */
- Parrot_fdiv_p_i, /* 566 */
- Parrot_fdiv_p_ic, /* 567 */
- Parrot_fdiv_p_n, /* 568 */
- Parrot_fdiv_p_nc, /* 569 */
- Parrot_fdiv_i_i_i, /* 570 */
- Parrot_fdiv_i_ic_i, /* 571 */
- Parrot_fdiv_i_i_ic, /* 572 */
- Parrot_fdiv_n_n_n, /* 573 */
- Parrot_fdiv_n_nc_n, /* 574 */
- Parrot_fdiv_n_n_nc, /* 575 */
- Parrot_fdiv_p_p_p, /* 576 */
- Parrot_fdiv_p_p_i, /* 577 */
- Parrot_fdiv_p_p_ic, /* 578 */
- Parrot_fdiv_p_p_n, /* 579 */
- Parrot_fdiv_p_p_nc, /* 580 */
- Parrot_ceil_n, /* 581 */
- Parrot_ceil_i_n, /* 582 */
- Parrot_ceil_n_n, /* 583 */
- Parrot_floor_n, /* 584 */
- Parrot_floor_i_n, /* 585 */
- Parrot_floor_n_n, /* 586 */
- Parrot_inc_i, /* 587 */
- Parrot_inc_n, /* 588 */
- Parrot_inc_p, /* 589 */
- Parrot_mod_i_i, /* 590 */
- Parrot_mod_i_ic, /* 591 */
- Parrot_mod_n_n, /* 592 */
- Parrot_mod_n_nc, /* 593 */
- Parrot_mod_p_p, /* 594 */
- Parrot_mod_p_i, /* 595 */
- Parrot_mod_p_ic, /* 596 */
- Parrot_mod_p_n, /* 597 */
- Parrot_mod_p_nc, /* 598 */
- Parrot_mod_i_i_i, /* 599 */
- Parrot_mod_i_ic_i, /* 600 */
- Parrot_mod_i_i_ic, /* 601 */
- Parrot_mod_n_n_n, /* 602 */
- Parrot_mod_n_nc_n, /* 603 */
- Parrot_mod_n_n_nc, /* 604 */
- Parrot_mod_p_p_p, /* 605 */
- Parrot_mod_p_p_i, /* 606 */
- Parrot_mod_p_p_ic, /* 607 */
- Parrot_mod_p_p_n, /* 608 */
- Parrot_mod_p_p_nc, /* 609 */
- Parrot_mul_i_i, /* 610 */
- Parrot_mul_i_ic, /* 611 */
- Parrot_mul_n_n, /* 612 */
- Parrot_mul_n_nc, /* 613 */
- Parrot_mul_p_p, /* 614 */
- Parrot_mul_p_i, /* 615 */
- Parrot_mul_p_ic, /* 616 */
- Parrot_mul_p_n, /* 617 */
- Parrot_mul_p_nc, /* 618 */
- Parrot_mul_i_i_i, /* 619 */
- Parrot_mul_i_ic_i, /* 620 */
- Parrot_mul_i_i_ic, /* 621 */
- Parrot_mul_n_n_n, /* 622 */
- Parrot_mul_n_nc_n, /* 623 */
- Parrot_mul_n_n_nc, /* 624 */
- Parrot_mul_p_p_p, /* 625 */
- Parrot_mul_p_p_i, /* 626 */
- Parrot_mul_p_p_ic, /* 627 */
- Parrot_mul_p_p_n, /* 628 */
- Parrot_mul_p_p_nc, /* 629 */
- Parrot_neg_i, /* 630 */
- Parrot_neg_n, /* 631 */
- Parrot_neg_p, /* 632 */
- Parrot_neg_i_i, /* 633 */
- Parrot_neg_n_n, /* 634 */
- Parrot_neg_p_p, /* 635 */
- Parrot_pow_n_n_n, /* 636 */
- Parrot_pow_n_nc_n, /* 637 */
- Parrot_pow_n_n_nc, /* 638 */
- Parrot_pow_p_p_p, /* 639 */
- Parrot_pow_p_p_i, /* 640 */
- Parrot_pow_p_p_ic, /* 641 */
- Parrot_pow_p_p_n, /* 642 */
- Parrot_pow_p_p_nc, /* 643 */
- Parrot_pow_n_n_i, /* 644 */
- Parrot_pow_n_nc_i, /* 645 */
- Parrot_pow_n_n_ic, /* 646 */
- Parrot_pow_n_nc_ic, /* 647 */
- Parrot_sub_i_i, /* 648 */
- Parrot_sub_i_ic, /* 649 */
- Parrot_sub_n_n, /* 650 */
- Parrot_sub_n_nc, /* 651 */
- Parrot_sub_p_p, /* 652 */
- Parrot_sub_p_i, /* 653 */
- Parrot_sub_p_ic, /* 654 */
- Parrot_sub_p_n, /* 655 */
- Parrot_sub_p_nc, /* 656 */
- Parrot_sub_i_i_i, /* 657 */
- Parrot_sub_i_ic_i, /* 658 */
- Parrot_sub_i_i_ic, /* 659 */
- Parrot_sub_n_n_n, /* 660 */
- Parrot_sub_n_nc_n, /* 661 */
- Parrot_sub_n_n_nc, /* 662 */
- Parrot_sub_p_p_p, /* 663 */
- Parrot_sub_p_p_i, /* 664 */
- Parrot_sub_p_p_ic, /* 665 */
- Parrot_sub_p_p_n, /* 666 */
- Parrot_sub_p_p_nc, /* 667 */
- Parrot_sqrt_n_n, /* 668 */
- Parrot_acos_n_n, /* 669 */
- Parrot_asec_n_n, /* 670 */
- Parrot_asin_n_n, /* 671 */
- Parrot_atan_n_n, /* 672 */
- Parrot_atan_n_n_n, /* 673 */
- Parrot_atan_n_nc_n, /* 674 */
- Parrot_atan_n_n_nc, /* 675 */
- Parrot_cos_n_n, /* 676 */
- Parrot_cosh_n_n, /* 677 */
- Parrot_exp_n_n, /* 678 */
- Parrot_ln_n_n, /* 679 */
- Parrot_log10_n_n, /* 680 */
- Parrot_log2_n_n, /* 681 */
- Parrot_sec_n_n, /* 682 */
- Parrot_sech_n_n, /* 683 */
- Parrot_sin_n_n, /* 684 */
- Parrot_sinh_n_n, /* 685 */
- Parrot_tan_n_n, /* 686 */
- Parrot_tanh_n_n, /* 687 */
- Parrot_callmethodcc_p_s, /* 688 */
- Parrot_callmethodcc_p_sc, /* 689 */
- Parrot_callmethodcc_p_p, /* 690 */
- Parrot_callmethod_p_s_p, /* 691 */
- Parrot_callmethod_p_sc_p, /* 692 */
- Parrot_callmethod_p_p_p, /* 693 */
- Parrot_tailcallmethod_p_s, /* 694 */
- Parrot_tailcallmethod_p_sc, /* 695 */
- Parrot_tailcallmethod_p_p, /* 696 */
- Parrot_addmethod_p_s_p, /* 697 */
- Parrot_addmethod_p_sc_p, /* 698 */
- Parrot_can_i_p_s, /* 699 */
- Parrot_can_i_p_sc, /* 700 */
- Parrot_does_i_p_s, /* 701 */
- Parrot_does_i_p_sc, /* 702 */
- Parrot_does_i_p_p, /* 703 */
- Parrot_does_i_p_pc, /* 704 */
- Parrot_isa_i_p_s, /* 705 */
- Parrot_isa_i_p_sc, /* 706 */
- Parrot_isa_i_p_p, /* 707 */
- Parrot_isa_i_p_pc, /* 708 */
- Parrot_newclass_p_s, /* 709 */
- Parrot_newclass_p_sc, /* 710 */
- Parrot_newclass_p_p, /* 711 */
- Parrot_newclass_p_pc, /* 712 */
- Parrot_subclass_p_p, /* 713 */
- Parrot_subclass_p_pc, /* 714 */
- Parrot_subclass_p_p_s, /* 715 */
- Parrot_subclass_p_pc_s, /* 716 */
- Parrot_subclass_p_p_sc, /* 717 */
- Parrot_subclass_p_pc_sc, /* 718 */
- Parrot_subclass_p_p_p, /* 719 */
- Parrot_subclass_p_pc_p, /* 720 */
- Parrot_subclass_p_p_pc, /* 721 */
- Parrot_subclass_p_pc_pc, /* 722 */
- Parrot_subclass_p_s, /* 723 */
- Parrot_subclass_p_sc, /* 724 */
- Parrot_subclass_p_s_s, /* 725 */
- Parrot_subclass_p_sc_s, /* 726 */
- Parrot_subclass_p_s_sc, /* 727 */
- Parrot_subclass_p_sc_sc, /* 728 */
- Parrot_subclass_p_s_p, /* 729 */
- Parrot_subclass_p_sc_p, /* 730 */
- Parrot_subclass_p_s_pc, /* 731 */
- Parrot_subclass_p_sc_pc, /* 732 */
- Parrot_get_class_p_s, /* 733 */
- Parrot_get_class_p_sc, /* 734 */
- Parrot_get_class_p_p, /* 735 */
- Parrot_get_class_p_pc, /* 736 */
- Parrot_class_p_p, /* 737 */
- Parrot_addparent_p_p, /* 738 */
- Parrot_removeparent_p_p, /* 739 */
- Parrot_addrole_p_p, /* 740 */
- Parrot_addattribute_p_s, /* 741 */
- Parrot_addattribute_p_sc, /* 742 */
- Parrot_removeattribute_p_s, /* 743 */
- Parrot_removeattribute_p_sc, /* 744 */
- Parrot_getattribute_p_p_s, /* 745 */
- Parrot_getattribute_p_p_sc, /* 746 */
- Parrot_getattribute_p_p_p_s, /* 747 */
- Parrot_getattribute_p_p_pc_s, /* 748 */
- Parrot_getattribute_p_p_p_sc, /* 749 */
- Parrot_getattribute_p_p_pc_sc, /* 750 */
- Parrot_setattribute_p_s_p, /* 751 */
- Parrot_setattribute_p_sc_p, /* 752 */
- Parrot_setattribute_p_p_s_p, /* 753 */
- Parrot_setattribute_p_pc_s_p, /* 754 */
- Parrot_setattribute_p_p_sc_p, /* 755 */
- Parrot_setattribute_p_pc_sc_p, /* 756 */
- Parrot_inspect_p_p, /* 757 */
- Parrot_inspect_p_pc, /* 758 */
- Parrot_inspect_p_p_s, /* 759 */
- Parrot_inspect_p_pc_s, /* 760 */
- Parrot_inspect_p_p_sc, /* 761 */
- Parrot_inspect_p_pc_sc, /* 762 */
- Parrot_new_p_s, /* 763 */
- Parrot_new_p_sc, /* 764 */
- Parrot_new_p_s_p, /* 765 */
- Parrot_new_p_sc_p, /* 766 */
- Parrot_new_p_s_pc, /* 767 */
- Parrot_new_p_sc_pc, /* 768 */
- Parrot_new_p_p, /* 769 */
- Parrot_new_p_pc, /* 770 */
- Parrot_new_p_p_p, /* 771 */
- Parrot_new_p_pc_p, /* 772 */
- Parrot_new_p_p_pc, /* 773 */
- Parrot_new_p_pc_pc, /* 774 */
- Parrot_root_new_p_p, /* 775 */
- Parrot_root_new_p_pc, /* 776 */
- Parrot_root_new_p_p_p, /* 777 */
- Parrot_root_new_p_pc_p, /* 778 */
- Parrot_root_new_p_p_pc, /* 779 */
- Parrot_root_new_p_pc_pc, /* 780 */
- Parrot_typeof_s_p, /* 781 */
- Parrot_typeof_p_p, /* 782 */
- Parrot_get_repr_s_p, /* 783 */
- Parrot_find_method_p_p_s, /* 784 */
- Parrot_find_method_p_p_sc, /* 785 */
- Parrot_defined_i_p, /* 786 */
- Parrot_defined_i_p_ki, /* 787 */
- Parrot_defined_i_p_kic, /* 788 */
- Parrot_defined_i_p_k, /* 789 */
- Parrot_defined_i_p_kc, /* 790 */
- Parrot_exists_i_p_ki, /* 791 */
- Parrot_exists_i_p_kic, /* 792 */
- Parrot_exists_i_p_k, /* 793 */
- Parrot_exists_i_p_kc, /* 794 */
- Parrot_delete_p_k, /* 795 */
- Parrot_delete_p_kc, /* 796 */
- Parrot_delete_p_ki, /* 797 */
- Parrot_delete_p_kic, /* 798 */
- Parrot_elements_i_p, /* 799 */
- Parrot_push_p_i, /* 800 */
- Parrot_push_p_ic, /* 801 */
- Parrot_push_p_n, /* 802 */
- Parrot_push_p_nc, /* 803 */
- Parrot_push_p_s, /* 804 */
- Parrot_push_p_sc, /* 805 */
- Parrot_push_p_p, /* 806 */
- Parrot_pop_i_p, /* 807 */
- Parrot_pop_n_p, /* 808 */
- Parrot_pop_s_p, /* 809 */
- Parrot_pop_p_p, /* 810 */
- Parrot_unshift_p_i, /* 811 */
- Parrot_unshift_p_ic, /* 812 */
- Parrot_unshift_p_n, /* 813 */
- Parrot_unshift_p_nc, /* 814 */
- Parrot_unshift_p_s, /* 815 */
- Parrot_unshift_p_sc, /* 816 */
- Parrot_unshift_p_p, /* 817 */
- Parrot_shift_i_p, /* 818 */
- Parrot_shift_n_p, /* 819 */
- Parrot_shift_s_p, /* 820 */
- Parrot_shift_p_p, /* 821 */
- Parrot_splice_p_p_i_i, /* 822 */
- Parrot_splice_p_p_ic_i, /* 823 */
- Parrot_splice_p_p_i_ic, /* 824 */
- Parrot_splice_p_p_ic_ic, /* 825 */
- Parrot_setprop_p_s_p, /* 826 */
- Parrot_setprop_p_sc_p, /* 827 */
- Parrot_getprop_p_s_p, /* 828 */
- Parrot_getprop_p_sc_p, /* 829 */
- Parrot_delprop_p_s, /* 830 */
- Parrot_delprop_p_sc, /* 831 */
- Parrot_prophash_p_p, /* 832 */
- Parrot_freeze_s_p, /* 833 */
- Parrot_thaw_p_s, /* 834 */
- Parrot_thaw_p_sc, /* 835 */
- Parrot_add_multi_s_s_p, /* 836 */
- Parrot_add_multi_sc_s_p, /* 837 */
- Parrot_add_multi_s_sc_p, /* 838 */
- Parrot_add_multi_sc_sc_p, /* 839 */
- Parrot_find_multi_p_s_s, /* 840 */
- Parrot_find_multi_p_sc_s, /* 841 */
- Parrot_find_multi_p_s_sc, /* 842 */
- Parrot_find_multi_p_sc_sc, /* 843 */
- Parrot_register_p, /* 844 */
- Parrot_unregister_p, /* 845 */
- Parrot_box_p_i, /* 846 */
- Parrot_box_p_ic, /* 847 */
- Parrot_box_p_n, /* 848 */
- Parrot_box_p_nc, /* 849 */
- Parrot_box_p_s, /* 850 */
- Parrot_box_p_sc, /* 851 */
- Parrot_iter_p_p, /* 852 */
- Parrot_morph_p_p, /* 853 */
- Parrot_morph_p_pc, /* 854 */
- Parrot_clone_s_s, /* 855 */
- Parrot_clone_s_sc, /* 856 */
- Parrot_set_i_i, /* 857 */
- Parrot_set_i_ic, /* 858 */
- Parrot_set_i_n, /* 859 */
- Parrot_set_i_nc, /* 860 */
- Parrot_set_i_s, /* 861 */
- Parrot_set_i_sc, /* 862 */
- Parrot_set_n_n, /* 863 */
- Parrot_set_n_nc, /* 864 */
- Parrot_set_n_i, /* 865 */
- Parrot_set_n_ic, /* 866 */
- Parrot_set_n_s, /* 867 */
- Parrot_set_n_sc, /* 868 */
- Parrot_set_n_p, /* 869 */
- Parrot_set_s_p, /* 870 */
- Parrot_set_s_s, /* 871 */
- Parrot_set_s_sc, /* 872 */
- Parrot_set_s_i, /* 873 */
- Parrot_set_s_ic, /* 874 */
- Parrot_set_s_n, /* 875 */
- Parrot_set_s_nc, /* 876 */
- Parrot_set_p_pc, /* 877 */
- Parrot_set_p_p, /* 878 */
- Parrot_set_p_i, /* 879 */
- Parrot_set_p_ic, /* 880 */
- Parrot_set_p_n, /* 881 */
- Parrot_set_p_nc, /* 882 */
- Parrot_set_p_s, /* 883 */
- Parrot_set_p_sc, /* 884 */
- Parrot_set_i_p, /* 885 */
- Parrot_assign_p_p, /* 886 */
- Parrot_assign_p_i, /* 887 */
- Parrot_assign_p_ic, /* 888 */
- Parrot_assign_p_n, /* 889 */
- Parrot_assign_p_nc, /* 890 */
- Parrot_assign_p_s, /* 891 */
- Parrot_assign_p_sc, /* 892 */
- Parrot_assign_s_s, /* 893 */
- Parrot_assign_s_sc, /* 894 */
- Parrot_setref_p_p, /* 895 */
- Parrot_deref_p_p, /* 896 */
- Parrot_set_p_ki_i, /* 897 */
- Parrot_set_p_kic_i, /* 898 */
- Parrot_set_p_ki_ic, /* 899 */
- Parrot_set_p_kic_ic, /* 900 */
- Parrot_set_p_ki_n, /* 901 */
- Parrot_set_p_kic_n, /* 902 */
- Parrot_set_p_ki_nc, /* 903 */
- Parrot_set_p_kic_nc, /* 904 */
- Parrot_set_p_ki_s, /* 905 */
- Parrot_set_p_kic_s, /* 906 */
- Parrot_set_p_ki_sc, /* 907 */
- Parrot_set_p_kic_sc, /* 908 */
- Parrot_set_p_ki_p, /* 909 */
- Parrot_set_p_kic_p, /* 910 */
- Parrot_set_i_p_ki, /* 911 */
- Parrot_set_i_p_kic, /* 912 */
- Parrot_set_n_p_ki, /* 913 */
- Parrot_set_n_p_kic, /* 914 */
- Parrot_set_s_p_ki, /* 915 */
- Parrot_set_s_p_kic, /* 916 */
- Parrot_set_p_p_ki, /* 917 */
- Parrot_set_p_p_kic, /* 918 */
- Parrot_set_p_k_i, /* 919 */
- Parrot_set_p_kc_i, /* 920 */
- Parrot_set_p_k_ic, /* 921 */
- Parrot_set_p_kc_ic, /* 922 */
- Parrot_set_p_k_n, /* 923 */
- Parrot_set_p_kc_n, /* 924 */
- Parrot_set_p_k_nc, /* 925 */
- Parrot_set_p_kc_nc, /* 926 */
- Parrot_set_p_k_s, /* 927 */
- Parrot_set_p_kc_s, /* 928 */
- Parrot_set_p_k_sc, /* 929 */
- Parrot_set_p_kc_sc, /* 930 */
- Parrot_set_p_k_p, /* 931 */
- Parrot_set_p_kc_p, /* 932 */
- Parrot_set_i_p_k, /* 933 */
- Parrot_set_i_p_kc, /* 934 */
- Parrot_set_n_p_k, /* 935 */
- Parrot_set_n_p_kc, /* 936 */
- Parrot_set_s_p_k, /* 937 */
- Parrot_set_s_p_kc, /* 938 */
- Parrot_set_p_p_k, /* 939 */
- Parrot_set_p_p_kc, /* 940 */
- Parrot_clone_p_p, /* 941 */
- Parrot_clone_p_p_p, /* 942 */
- Parrot_clone_p_p_pc, /* 943 */
- Parrot_copy_p_p, /* 944 */
- Parrot_null_s, /* 945 */
- Parrot_null_i, /* 946 */
- Parrot_null_p, /* 947 */
- Parrot_null_n, /* 948 */
- Parrot_ord_i_s, /* 949 */
- Parrot_ord_i_sc, /* 950 */
- Parrot_ord_i_s_i, /* 951 */
- Parrot_ord_i_sc_i, /* 952 */
- Parrot_ord_i_s_ic, /* 953 */
- Parrot_ord_i_sc_ic, /* 954 */
- Parrot_chr_s_i, /* 955 */
- Parrot_chr_s_ic, /* 956 */
- Parrot_chopn_s_s_i, /* 957 */
- Parrot_chopn_s_sc_i, /* 958 */
- Parrot_chopn_s_s_ic, /* 959 */
- Parrot_chopn_s_sc_ic, /* 960 */
- Parrot_concat_s_s, /* 961 */
- Parrot_concat_s_sc, /* 962 */
- Parrot_concat_p_p, /* 963 */
- Parrot_concat_p_s, /* 964 */
- Parrot_concat_p_sc, /* 965 */
- Parrot_concat_s_s_s, /* 966 */
- Parrot_concat_s_sc_s, /* 967 */
- Parrot_concat_s_s_sc, /* 968 */
- Parrot_concat_p_p_s, /* 969 */
- Parrot_concat_p_p_sc, /* 970 */
- Parrot_concat_p_p_p, /* 971 */
- Parrot_repeat_s_s_i, /* 972 */
- Parrot_repeat_s_sc_i, /* 973 */
- Parrot_repeat_s_s_ic, /* 974 */
- Parrot_repeat_s_sc_ic, /* 975 */
- Parrot_repeat_p_p_i, /* 976 */
- Parrot_repeat_p_p_ic, /* 977 */
- Parrot_repeat_p_p_p, /* 978 */
- Parrot_repeat_p_i, /* 979 */
- Parrot_repeat_p_ic, /* 980 */
- Parrot_repeat_p_p, /* 981 */
- Parrot_length_i_s, /* 982 */
- Parrot_length_i_sc, /* 983 */
- Parrot_bytelength_i_s, /* 984 */
- Parrot_bytelength_i_sc, /* 985 */
- Parrot_pin_s, /* 986 */
- Parrot_unpin_s, /* 987 */
- Parrot_substr_s_s_i, /* 988 */
- Parrot_substr_s_sc_i, /* 989 */
- Parrot_substr_s_s_ic, /* 990 */
- Parrot_substr_s_sc_ic, /* 991 */
- Parrot_substr_s_s_i_i, /* 992 */
- Parrot_substr_s_sc_i_i, /* 993 */
- Parrot_substr_s_s_ic_i, /* 994 */
- Parrot_substr_s_sc_ic_i, /* 995 */
- Parrot_substr_s_s_i_ic, /* 996 */
- Parrot_substr_s_sc_i_ic, /* 997 */
- Parrot_substr_s_s_ic_ic, /* 998 */
- Parrot_substr_s_sc_ic_ic, /* 999 */
- Parrot_substr_s_p_i_i, /* 1000 */
- Parrot_substr_s_p_ic_i, /* 1001 */
- Parrot_substr_s_p_i_ic, /* 1002 */
- Parrot_substr_s_p_ic_ic, /* 1003 */
- Parrot_replace_s_s_i_i_s, /* 1004 */
- Parrot_replace_s_sc_i_i_s, /* 1005 */
- Parrot_replace_s_s_ic_i_s, /* 1006 */
- Parrot_replace_s_sc_ic_i_s, /* 1007 */
- Parrot_replace_s_s_i_ic_s, /* 1008 */
- Parrot_replace_s_sc_i_ic_s, /* 1009 */
- Parrot_replace_s_s_ic_ic_s, /* 1010 */
- Parrot_replace_s_sc_ic_ic_s, /* 1011 */
- Parrot_replace_s_s_i_i_sc, /* 1012 */
- Parrot_replace_s_sc_i_i_sc, /* 1013 */
- Parrot_replace_s_s_ic_i_sc, /* 1014 */
- Parrot_replace_s_sc_ic_i_sc, /* 1015 */
- Parrot_replace_s_s_i_ic_sc, /* 1016 */
- Parrot_replace_s_sc_i_ic_sc, /* 1017 */
- Parrot_replace_s_s_ic_ic_sc, /* 1018 */
- Parrot_replace_s_sc_ic_ic_sc, /* 1019 */
- Parrot_index_i_s_s, /* 1020 */
- Parrot_index_i_sc_s, /* 1021 */
- Parrot_index_i_s_sc, /* 1022 */
- Parrot_index_i_sc_sc, /* 1023 */
- Parrot_index_i_s_s_i, /* 1024 */
- Parrot_index_i_sc_s_i, /* 1025 */
- Parrot_index_i_s_sc_i, /* 1026 */
- Parrot_index_i_sc_sc_i, /* 1027 */
- Parrot_index_i_s_s_ic, /* 1028 */
- Parrot_index_i_sc_s_ic, /* 1029 */
- Parrot_index_i_s_sc_ic, /* 1030 */
- Parrot_index_i_sc_sc_ic, /* 1031 */
- Parrot_sprintf_s_s_p, /* 1032 */
- Parrot_sprintf_s_sc_p, /* 1033 */
- Parrot_sprintf_p_p_p, /* 1034 */
- Parrot_new_s, /* 1035 */
- Parrot_new_s_i, /* 1036 */
- Parrot_new_s_ic, /* 1037 */
- Parrot_stringinfo_i_s_i, /* 1038 */
- Parrot_stringinfo_i_sc_i, /* 1039 */
- Parrot_stringinfo_i_s_ic, /* 1040 */
- Parrot_stringinfo_i_sc_ic, /* 1041 */
- Parrot_upcase_s_s, /* 1042 */
- Parrot_upcase_s_sc, /* 1043 */
- Parrot_downcase_s_s, /* 1044 */
- Parrot_downcase_s_sc, /* 1045 */
- Parrot_titlecase_s_s, /* 1046 */
- Parrot_titlecase_s_sc, /* 1047 */
- Parrot_join_s_s_p, /* 1048 */
- Parrot_join_s_sc_p, /* 1049 */
- Parrot_split_p_s_s, /* 1050 */
- Parrot_split_p_sc_s, /* 1051 */
- Parrot_split_p_s_sc, /* 1052 */
- Parrot_split_p_sc_sc, /* 1053 */
- Parrot_charset_i_s, /* 1054 */
- Parrot_charset_i_sc, /* 1055 */
- Parrot_charsetname_s_i, /* 1056 */
- Parrot_charsetname_s_ic, /* 1057 */
- Parrot_find_charset_i_s, /* 1058 */
- Parrot_find_charset_i_sc, /* 1059 */
- Parrot_trans_charset_s_s_i, /* 1060 */
- Parrot_trans_charset_s_sc_i, /* 1061 */
- Parrot_trans_charset_s_s_ic, /* 1062 */
- Parrot_trans_charset_s_sc_ic, /* 1063 */
- Parrot_encoding_i_s, /* 1064 */
- Parrot_encoding_i_sc, /* 1065 */
- Parrot_encodingname_s_i, /* 1066 */
- Parrot_encodingname_s_ic, /* 1067 */
- Parrot_find_encoding_i_s, /* 1068 */
- Parrot_find_encoding_i_sc, /* 1069 */
- Parrot_trans_encoding_s_s_i, /* 1070 */
- Parrot_trans_encoding_s_sc_i, /* 1071 */
- Parrot_trans_encoding_s_s_ic, /* 1072 */
- Parrot_trans_encoding_s_sc_ic, /* 1073 */
- Parrot_is_cclass_i_i_s_i, /* 1074 */
- Parrot_is_cclass_i_ic_s_i, /* 1075 */
- Parrot_is_cclass_i_i_sc_i, /* 1076 */
- Parrot_is_cclass_i_ic_sc_i, /* 1077 */
- Parrot_is_cclass_i_i_s_ic, /* 1078 */
- Parrot_is_cclass_i_ic_s_ic, /* 1079 */
- Parrot_is_cclass_i_i_sc_ic, /* 1080 */
- Parrot_is_cclass_i_ic_sc_ic, /* 1081 */
- Parrot_find_cclass_i_i_s_i_i, /* 1082 */
- Parrot_find_cclass_i_ic_s_i_i, /* 1083 */
- Parrot_find_cclass_i_i_sc_i_i, /* 1084 */
- Parrot_find_cclass_i_ic_sc_i_i, /* 1085 */
- Parrot_find_cclass_i_i_s_ic_i, /* 1086 */
- Parrot_find_cclass_i_ic_s_ic_i, /* 1087 */
- Parrot_find_cclass_i_i_sc_ic_i, /* 1088 */
- Parrot_find_cclass_i_ic_sc_ic_i, /* 1089 */
- Parrot_find_cclass_i_i_s_i_ic, /* 1090 */
- Parrot_find_cclass_i_ic_s_i_ic, /* 1091 */
- Parrot_find_cclass_i_i_sc_i_ic, /* 1092 */
- Parrot_find_cclass_i_ic_sc_i_ic, /* 1093 */
- Parrot_find_cclass_i_i_s_ic_ic, /* 1094 */
- Parrot_find_cclass_i_ic_s_ic_ic, /* 1095 */
- Parrot_find_cclass_i_i_sc_ic_ic, /* 1096 */
- Parrot_find_cclass_i_ic_sc_ic_ic, /* 1097 */
- Parrot_find_not_cclass_i_i_s_i_i, /* 1098 */
- Parrot_find_not_cclass_i_ic_s_i_i, /* 1099 */
- Parrot_find_not_cclass_i_i_sc_i_i, /* 1100 */
- Parrot_find_not_cclass_i_ic_sc_i_i, /* 1101 */
- Parrot_find_not_cclass_i_i_s_ic_i, /* 1102 */
- Parrot_find_not_cclass_i_ic_s_ic_i, /* 1103 */
- Parrot_find_not_cclass_i_i_sc_ic_i, /* 1104 */
- Parrot_find_not_cclass_i_ic_sc_ic_i, /* 1105 */
- Parrot_find_not_cclass_i_i_s_i_ic, /* 1106 */
- Parrot_find_not_cclass_i_ic_s_i_ic, /* 1107 */
- Parrot_find_not_cclass_i_i_sc_i_ic, /* 1108 */
- Parrot_find_not_cclass_i_ic_sc_i_ic, /* 1109 */
- Parrot_find_not_cclass_i_i_s_ic_ic, /* 1110 */
- Parrot_find_not_cclass_i_ic_s_ic_ic, /* 1111 */
- Parrot_find_not_cclass_i_i_sc_ic_ic, /* 1112 */
- Parrot_find_not_cclass_i_ic_sc_ic_ic, /* 1113 */
- Parrot_escape_s_s, /* 1114 */
- Parrot_compose_s_s, /* 1115 */
- Parrot_compose_s_sc, /* 1116 */
- Parrot_spawnw_i_s, /* 1117 */
- Parrot_spawnw_i_sc, /* 1118 */
- Parrot_spawnw_i_p, /* 1119 */
- Parrot_err_i, /* 1120 */
- Parrot_err_s, /* 1121 */
- Parrot_err_s_i, /* 1122 */
- Parrot_err_s_ic, /* 1123 */
- Parrot_time_i, /* 1124 */
- Parrot_time_n, /* 1125 */
- Parrot_gmtime_s_i, /* 1126 */
- Parrot_gmtime_s_ic, /* 1127 */
- Parrot_localtime_s_i, /* 1128 */
- Parrot_localtime_s_ic, /* 1129 */
- Parrot_decodetime_p_i, /* 1130 */
- Parrot_decodetime_p_ic, /* 1131 */
- Parrot_decodelocaltime_p_i, /* 1132 */
- Parrot_decodelocaltime_p_ic, /* 1133 */
- Parrot_sysinfo_s_i, /* 1134 */
- Parrot_sysinfo_s_ic, /* 1135 */
- Parrot_sysinfo_i_i, /* 1136 */
- Parrot_sysinfo_i_ic, /* 1137 */
- Parrot_sleep_i, /* 1138 */
- Parrot_sleep_ic, /* 1139 */
- Parrot_sleep_n, /* 1140 */
- Parrot_sleep_nc, /* 1141 */
- Parrot_store_lex_s_p, /* 1142 */
- Parrot_store_lex_sc_p, /* 1143 */
- Parrot_store_dynamic_lex_s_p, /* 1144 */
- Parrot_store_dynamic_lex_sc_p, /* 1145 */
- Parrot_find_lex_p_s, /* 1146 */
- Parrot_find_lex_p_sc, /* 1147 */
- Parrot_find_dynamic_lex_p_s, /* 1148 */
- Parrot_find_dynamic_lex_p_sc, /* 1149 */
- Parrot_find_caller_lex_p_s, /* 1150 */
- Parrot_find_caller_lex_p_sc, /* 1151 */
- Parrot_get_namespace_p, /* 1152 */
- Parrot_get_namespace_p_p, /* 1153 */
- Parrot_get_namespace_p_pc, /* 1154 */
- Parrot_get_hll_namespace_p, /* 1155 */
- Parrot_get_hll_namespace_p_p, /* 1156 */
- Parrot_get_hll_namespace_p_pc, /* 1157 */
- Parrot_get_root_namespace_p, /* 1158 */
- Parrot_get_root_namespace_p_p, /* 1159 */
- Parrot_get_root_namespace_p_pc, /* 1160 */
- Parrot_get_global_p_s, /* 1161 */
- Parrot_get_global_p_sc, /* 1162 */
- Parrot_get_global_p_p_s, /* 1163 */
- Parrot_get_global_p_pc_s, /* 1164 */
- Parrot_get_global_p_p_sc, /* 1165 */
- Parrot_get_global_p_pc_sc, /* 1166 */
- Parrot_get_hll_global_p_s, /* 1167 */
- Parrot_get_hll_global_p_sc, /* 1168 */
- Parrot_get_hll_global_p_p_s, /* 1169 */
- Parrot_get_hll_global_p_pc_s, /* 1170 */
- Parrot_get_hll_global_p_p_sc, /* 1171 */
- Parrot_get_hll_global_p_pc_sc, /* 1172 */
- Parrot_get_root_global_p_s, /* 1173 */
- Parrot_get_root_global_p_sc, /* 1174 */
- Parrot_get_root_global_p_p_s, /* 1175 */
- Parrot_get_root_global_p_pc_s, /* 1176 */
- Parrot_get_root_global_p_p_sc, /* 1177 */
- Parrot_get_root_global_p_pc_sc, /* 1178 */
- Parrot_set_global_s_p, /* 1179 */
- Parrot_set_global_sc_p, /* 1180 */
- Parrot_set_global_p_s_p, /* 1181 */
- Parrot_set_global_pc_s_p, /* 1182 */
- Parrot_set_global_p_sc_p, /* 1183 */
- Parrot_set_global_pc_sc_p, /* 1184 */
- Parrot_set_hll_global_s_p, /* 1185 */
- Parrot_set_hll_global_sc_p, /* 1186 */
- Parrot_set_hll_global_p_s_p, /* 1187 */
- Parrot_set_hll_global_pc_s_p, /* 1188 */
- Parrot_set_hll_global_p_sc_p, /* 1189 */
- Parrot_set_hll_global_pc_sc_p, /* 1190 */
- Parrot_set_root_global_s_p, /* 1191 */
- Parrot_set_root_global_sc_p, /* 1192 */
- Parrot_set_root_global_p_s_p, /* 1193 */
- Parrot_set_root_global_pc_s_p, /* 1194 */
- Parrot_set_root_global_p_sc_p, /* 1195 */
- Parrot_set_root_global_pc_sc_p, /* 1196 */
- Parrot_find_name_p_s, /* 1197 */
- Parrot_find_name_p_sc, /* 1198 */
- Parrot_find_sub_not_null_p_s, /* 1199 */
- Parrot_find_sub_not_null_p_sc, /* 1200 */
- Parrot_trap, /* 1201 */
- Parrot_set_label_p_ic, /* 1202 */
- Parrot_get_label_i_p, /* 1203 */
- Parrot_fetch_p_p_p_p, /* 1204 */
- Parrot_fetch_p_pc_p_p, /* 1205 */
- Parrot_fetch_p_p_pc_p, /* 1206 */
- Parrot_fetch_p_pc_pc_p, /* 1207 */
- Parrot_fetch_p_p_p_pc, /* 1208 */
- Parrot_fetch_p_pc_p_pc, /* 1209 */
- Parrot_fetch_p_p_pc_pc, /* 1210 */
- Parrot_fetch_p_pc_pc_pc, /* 1211 */
- Parrot_fetch_p_p_i_p, /* 1212 */
- Parrot_fetch_p_pc_i_p, /* 1213 */
- Parrot_fetch_p_p_ic_p, /* 1214 */
- Parrot_fetch_p_pc_ic_p, /* 1215 */
- Parrot_fetch_p_p_i_pc, /* 1216 */
- Parrot_fetch_p_pc_i_pc, /* 1217 */
- Parrot_fetch_p_p_ic_pc, /* 1218 */
- Parrot_fetch_p_pc_ic_pc, /* 1219 */
- Parrot_fetch_p_p_s_p, /* 1220 */
- Parrot_fetch_p_pc_s_p, /* 1221 */
- Parrot_fetch_p_p_sc_p, /* 1222 */
- Parrot_fetch_p_pc_sc_p, /* 1223 */
- Parrot_fetch_p_p_s_pc, /* 1224 */
- Parrot_fetch_p_pc_s_pc, /* 1225 */
- Parrot_fetch_p_p_sc_pc, /* 1226 */
- Parrot_fetch_p_pc_sc_pc, /* 1227 */
- Parrot_vivify_p_p_p_p, /* 1228 */
- Parrot_vivify_p_pc_p_p, /* 1229 */
- Parrot_vivify_p_p_pc_p, /* 1230 */
- Parrot_vivify_p_pc_pc_p, /* 1231 */
- Parrot_vivify_p_p_p_pc, /* 1232 */
- Parrot_vivify_p_pc_p_pc, /* 1233 */
- Parrot_vivify_p_p_pc_pc, /* 1234 */
- Parrot_vivify_p_pc_pc_pc, /* 1235 */
- Parrot_vivify_p_p_i_p, /* 1236 */
- Parrot_vivify_p_pc_i_p, /* 1237 */
- Parrot_vivify_p_p_ic_p, /* 1238 */
- Parrot_vivify_p_pc_ic_p, /* 1239 */
- Parrot_vivify_p_p_i_pc, /* 1240 */
- Parrot_vivify_p_pc_i_pc, /* 1241 */
- Parrot_vivify_p_p_ic_pc, /* 1242 */
- Parrot_vivify_p_pc_ic_pc, /* 1243 */
- Parrot_vivify_p_p_s_p, /* 1244 */
- Parrot_vivify_p_pc_s_p, /* 1245 */
- Parrot_vivify_p_p_sc_p, /* 1246 */
- Parrot_vivify_p_pc_sc_p, /* 1247 */
- Parrot_vivify_p_p_s_pc, /* 1248 */
- Parrot_vivify_p_pc_s_pc, /* 1249 */
- Parrot_vivify_p_p_sc_pc, /* 1250 */
- Parrot_vivify_p_pc_sc_pc, /* 1251 */
- Parrot_new_p_s_i, /* 1252 */
- Parrot_new_p_sc_i, /* 1253 */
- Parrot_new_p_s_ic, /* 1254 */
- Parrot_new_p_sc_ic, /* 1255 */
- Parrot_new_p_p_i, /* 1256 */
- Parrot_new_p_pc_i, /* 1257 */
- Parrot_new_p_p_ic, /* 1258 */
- Parrot_new_p_pc_ic, /* 1259 */
- Parrot_root_new_p_p_i, /* 1260 */
- Parrot_root_new_p_pc_i, /* 1261 */
- Parrot_root_new_p_p_ic, /* 1262 */
- Parrot_root_new_p_pc_ic, /* 1263 */
- Parrot_find_codepoint_i_s, /* 1264 */
- Parrot_find_codepoint_i_sc, /* 1265 */
- Parrot_unroll_p, /* 1266 */
- Parrot_unroll_pc, /* 1267 */
+ Parrot_band_i_i_i, /* 119 */
+ Parrot_band_i_ic_i, /* 120 */
+ Parrot_band_i_i_ic, /* 121 */
+ Parrot_bor_i_i, /* 122 */
+ Parrot_bor_i_ic, /* 123 */
+ Parrot_bor_i_i_i, /* 124 */
+ Parrot_bor_i_ic_i, /* 125 */
+ Parrot_bor_i_i_ic, /* 126 */
+ Parrot_shl_i_i, /* 127 */
+ Parrot_shl_i_ic, /* 128 */
+ Parrot_shl_i_i_i, /* 129 */
+ Parrot_shl_i_ic_i, /* 130 */
+ Parrot_shl_i_i_ic, /* 131 */
+ Parrot_shr_i_i, /* 132 */
+ Parrot_shr_i_ic, /* 133 */
+ Parrot_shr_i_i_i, /* 134 */
+ Parrot_shr_i_ic_i, /* 135 */
+ Parrot_shr_i_i_ic, /* 136 */
+ Parrot_lsr_i_i, /* 137 */
+ Parrot_lsr_i_ic, /* 138 */
+ Parrot_lsr_i_i_i, /* 139 */
+ Parrot_lsr_i_ic_i, /* 140 */
+ Parrot_lsr_i_i_ic, /* 141 */
+ Parrot_bxor_i_i, /* 142 */
+ Parrot_bxor_i_ic, /* 143 */
+ Parrot_bxor_i_i_i, /* 144 */
+ Parrot_bxor_i_ic_i, /* 145 */
+ Parrot_bxor_i_i_ic, /* 146 */
+ Parrot_eq_i_i_ic, /* 147 */
+ Parrot_eq_ic_i_ic, /* 148 */
+ Parrot_eq_i_ic_ic, /* 149 */
+ Parrot_eq_n_n_ic, /* 150 */
+ Parrot_eq_nc_n_ic, /* 151 */
+ Parrot_eq_n_nc_ic, /* 152 */
+ Parrot_eq_s_s_ic, /* 153 */
+ Parrot_eq_sc_s_ic, /* 154 */
+ Parrot_eq_s_sc_ic, /* 155 */
+ Parrot_eq_p_p_ic, /* 156 */
+ Parrot_eq_p_i_ic, /* 157 */
+ Parrot_eq_p_ic_ic, /* 158 */
+ Parrot_eq_p_n_ic, /* 159 */
+ Parrot_eq_p_nc_ic, /* 160 */
+ Parrot_eq_p_s_ic, /* 161 */
+ Parrot_eq_p_sc_ic, /* 162 */
+ Parrot_eq_str_p_p_ic, /* 163 */
+ Parrot_eq_num_p_p_ic, /* 164 */
+ Parrot_eq_addr_s_s_ic, /* 165 */
+ Parrot_eq_addr_sc_s_ic, /* 166 */
+ Parrot_eq_addr_s_sc_ic, /* 167 */
+ Parrot_eq_addr_sc_sc_ic, /* 168 */
+ Parrot_eq_addr_p_p_ic, /* 169 */
+ Parrot_ne_i_i_ic, /* 170 */
+ Parrot_ne_ic_i_ic, /* 171 */
+ Parrot_ne_i_ic_ic, /* 172 */
+ Parrot_ne_n_n_ic, /* 173 */
+ Parrot_ne_nc_n_ic, /* 174 */
+ Parrot_ne_n_nc_ic, /* 175 */
+ Parrot_ne_s_s_ic, /* 176 */
+ Parrot_ne_sc_s_ic, /* 177 */
+ Parrot_ne_s_sc_ic, /* 178 */
+ Parrot_ne_p_p_ic, /* 179 */
+ Parrot_ne_p_i_ic, /* 180 */
+ Parrot_ne_p_ic_ic, /* 181 */
+ Parrot_ne_p_n_ic, /* 182 */
+ Parrot_ne_p_nc_ic, /* 183 */
+ Parrot_ne_p_s_ic, /* 184 */
+ Parrot_ne_p_sc_ic, /* 185 */
+ Parrot_ne_str_p_p_ic, /* 186 */
+ Parrot_ne_num_p_p_ic, /* 187 */
+ Parrot_ne_addr_s_s_ic, /* 188 */
+ Parrot_ne_addr_sc_s_ic, /* 189 */
+ Parrot_ne_addr_s_sc_ic, /* 190 */
+ Parrot_ne_addr_sc_sc_ic, /* 191 */
+ Parrot_ne_addr_p_p_ic, /* 192 */
+ Parrot_lt_i_i_ic, /* 193 */
+ Parrot_lt_ic_i_ic, /* 194 */
+ Parrot_lt_i_ic_ic, /* 195 */
+ Parrot_lt_n_n_ic, /* 196 */
+ Parrot_lt_nc_n_ic, /* 197 */
+ Parrot_lt_n_nc_ic, /* 198 */
+ Parrot_lt_s_s_ic, /* 199 */
+ Parrot_lt_sc_s_ic, /* 200 */
+ Parrot_lt_s_sc_ic, /* 201 */
+ Parrot_lt_p_p_ic, /* 202 */
+ Parrot_lt_p_i_ic, /* 203 */
+ Parrot_lt_p_ic_ic, /* 204 */
+ Parrot_lt_p_n_ic, /* 205 */
+ Parrot_lt_p_nc_ic, /* 206 */
+ Parrot_lt_p_s_ic, /* 207 */
+ Parrot_lt_p_sc_ic, /* 208 */
+ Parrot_lt_str_p_p_ic, /* 209 */
+ Parrot_lt_num_p_p_ic, /* 210 */
+ Parrot_le_i_i_ic, /* 211 */
+ Parrot_le_ic_i_ic, /* 212 */
+ Parrot_le_i_ic_ic, /* 213 */
+ Parrot_le_n_n_ic, /* 214 */
+ Parrot_le_nc_n_ic, /* 215 */
+ Parrot_le_n_nc_ic, /* 216 */
+ Parrot_le_s_s_ic, /* 217 */
+ Parrot_le_sc_s_ic, /* 218 */
+ Parrot_le_s_sc_ic, /* 219 */
+ Parrot_le_p_p_ic, /* 220 */
+ Parrot_le_p_i_ic, /* 221 */
+ Parrot_le_p_ic_ic, /* 222 */
+ Parrot_le_p_n_ic, /* 223 */
+ Parrot_le_p_nc_ic, /* 224 */
+ Parrot_le_p_s_ic, /* 225 */
+ Parrot_le_p_sc_ic, /* 226 */
+ Parrot_le_str_p_p_ic, /* 227 */
+ Parrot_le_num_p_p_ic, /* 228 */
+ Parrot_gt_p_p_ic, /* 229 */
+ Parrot_gt_p_i_ic, /* 230 */
+ Parrot_gt_p_ic_ic, /* 231 */
+ Parrot_gt_p_n_ic, /* 232 */
+ Parrot_gt_p_nc_ic, /* 233 */
+ Parrot_gt_p_s_ic, /* 234 */
+ Parrot_gt_p_sc_ic, /* 235 */
+ Parrot_gt_str_p_p_ic, /* 236 */
+ Parrot_gt_num_p_p_ic, /* 237 */
+ Parrot_ge_p_p_ic, /* 238 */
+ Parrot_ge_p_i_ic, /* 239 */
+ Parrot_ge_p_ic_ic, /* 240 */
+ Parrot_ge_p_n_ic, /* 241 */
+ Parrot_ge_p_nc_ic, /* 242 */
+ Parrot_ge_p_s_ic, /* 243 */
+ Parrot_ge_p_sc_ic, /* 244 */
+ Parrot_ge_str_p_p_ic, /* 245 */
+ Parrot_ge_num_p_p_ic, /* 246 */
+ Parrot_if_null_p_ic, /* 247 */
+ Parrot_if_null_s_ic, /* 248 */
+ Parrot_unless_null_p_ic, /* 249 */
+ Parrot_unless_null_s_ic, /* 250 */
+ Parrot_cmp_i_i_i, /* 251 */
+ Parrot_cmp_i_ic_i, /* 252 */
+ Parrot_cmp_i_i_ic, /* 253 */
+ Parrot_cmp_i_n_n, /* 254 */
+ Parrot_cmp_i_nc_n, /* 255 */
+ Parrot_cmp_i_n_nc, /* 256 */
+ Parrot_cmp_i_s_s, /* 257 */
+ Parrot_cmp_i_sc_s, /* 258 */
+ Parrot_cmp_i_s_sc, /* 259 */
+ Parrot_cmp_i_p_p, /* 260 */
+ Parrot_cmp_i_p_i, /* 261 */
+ Parrot_cmp_i_p_ic, /* 262 */
+ Parrot_cmp_i_p_n, /* 263 */
+ Parrot_cmp_i_p_nc, /* 264 */
+ Parrot_cmp_i_p_s, /* 265 */
+ Parrot_cmp_i_p_sc, /* 266 */
+ Parrot_cmp_str_i_p_p, /* 267 */
+ Parrot_cmp_num_i_p_p, /* 268 */
+ Parrot_cmp_pmc_p_p_p, /* 269 */
+ Parrot_issame_i_p_p, /* 270 */
+ Parrot_issame_i_s_s, /* 271 */
+ Parrot_issame_i_sc_s, /* 272 */
+ Parrot_issame_i_s_sc, /* 273 */
+ Parrot_issame_i_sc_sc, /* 274 */
+ Parrot_isntsame_i_p_p, /* 275 */
+ Parrot_isntsame_i_s_s, /* 276 */
+ Parrot_isntsame_i_sc_s, /* 277 */
+ Parrot_isntsame_i_s_sc, /* 278 */
+ Parrot_isntsame_i_sc_sc, /* 279 */
+ Parrot_istrue_i_p, /* 280 */
+ Parrot_isfalse_i_p, /* 281 */
+ Parrot_isnull_i_p, /* 282 */
+ Parrot_isnull_i_pc, /* 283 */
+ Parrot_isnull_i_s, /* 284 */
+ Parrot_isnull_i_sc, /* 285 */
+ Parrot_isgt_i_p_p, /* 286 */
+ Parrot_isge_i_p_p, /* 287 */
+ Parrot_isle_i_i_i, /* 288 */
+ Parrot_isle_i_ic_i, /* 289 */
+ Parrot_isle_i_i_ic, /* 290 */
+ Parrot_isle_i_n_n, /* 291 */
+ Parrot_isle_i_nc_n, /* 292 */
+ Parrot_isle_i_n_nc, /* 293 */
+ Parrot_isle_i_s_s, /* 294 */
+ Parrot_isle_i_sc_s, /* 295 */
+ Parrot_isle_i_s_sc, /* 296 */
+ Parrot_isle_i_p_p, /* 297 */
+ Parrot_islt_i_i_i, /* 298 */
+ Parrot_islt_i_ic_i, /* 299 */
+ Parrot_islt_i_i_ic, /* 300 */
+ Parrot_islt_i_n_n, /* 301 */
+ Parrot_islt_i_nc_n, /* 302 */
+ Parrot_islt_i_n_nc, /* 303 */
+ Parrot_islt_i_s_s, /* 304 */
+ Parrot_islt_i_sc_s, /* 305 */
+ Parrot_islt_i_s_sc, /* 306 */
+ Parrot_islt_i_p_p, /* 307 */
+ Parrot_iseq_i_i_i, /* 308 */
+ Parrot_iseq_i_ic_i, /* 309 */
+ Parrot_iseq_i_i_ic, /* 310 */
+ Parrot_iseq_i_n_n, /* 311 */
+ Parrot_iseq_i_nc_n, /* 312 */
+ Parrot_iseq_i_n_nc, /* 313 */
+ Parrot_iseq_i_s_s, /* 314 */
+ Parrot_iseq_i_sc_s, /* 315 */
+ Parrot_iseq_i_s_sc, /* 316 */
+ Parrot_iseq_i_p_p, /* 317 */
+ Parrot_isne_i_i_i, /* 318 */
+ Parrot_isne_i_ic_i, /* 319 */
+ Parrot_isne_i_i_ic, /* 320 */
+ Parrot_isne_i_n_n, /* 321 */
+ Parrot_isne_i_nc_n, /* 322 */
+ Parrot_isne_i_n_nc, /* 323 */
+ Parrot_isne_i_s_s, /* 324 */
+ Parrot_isne_i_sc_s, /* 325 */
+ Parrot_isne_i_s_sc, /* 326 */
+ Parrot_isne_i_p_p, /* 327 */
+ Parrot_and_i_i_i, /* 328 */
+ Parrot_and_i_ic_i, /* 329 */
+ Parrot_and_i_i_ic, /* 330 */
+ Parrot_and_p_p_p, /* 331 */
+ Parrot_not_i, /* 332 */
+ Parrot_not_i_i, /* 333 */
+ Parrot_not_p, /* 334 */
+ Parrot_not_p_p, /* 335 */
+ Parrot_or_i_i_i, /* 336 */
+ Parrot_or_i_ic_i, /* 337 */
+ Parrot_or_i_i_ic, /* 338 */
+ Parrot_or_p_p_p, /* 339 */
+ Parrot_xor_i_i_i, /* 340 */
+ Parrot_xor_i_ic_i, /* 341 */
+ Parrot_xor_i_i_ic, /* 342 */
+ Parrot_xor_p_p_p, /* 343 */
+ Parrot_print_i, /* 344 */
+ Parrot_print_ic, /* 345 */
+ Parrot_print_n, /* 346 */
+ Parrot_print_nc, /* 347 */
+ Parrot_print_s, /* 348 */
+ Parrot_print_sc, /* 349 */
+ Parrot_print_p, /* 350 */
+ Parrot_say_i, /* 351 */
+ Parrot_say_ic, /* 352 */
+ Parrot_say_n, /* 353 */
+ Parrot_say_nc, /* 354 */
+ Parrot_say_s, /* 355 */
+ Parrot_say_sc, /* 356 */
+ Parrot_say_p, /* 357 */
+ Parrot_print_p_i, /* 358 */
+ Parrot_print_p_ic, /* 359 */
+ Parrot_print_p_n, /* 360 */
+ Parrot_print_p_nc, /* 361 */
+ Parrot_print_p_s, /* 362 */
+ Parrot_print_p_sc, /* 363 */
+ Parrot_print_p_p, /* 364 */
+ Parrot_abs_i, /* 365 */
+ Parrot_abs_n, /* 366 */
+ Parrot_abs_i_i, /* 367 */
+ Parrot_abs_n_n, /* 368 */
+ Parrot_abs_p, /* 369 */
+ Parrot_abs_p_p, /* 370 */
+ Parrot_add_i_i, /* 371 */
+ Parrot_add_i_ic, /* 372 */
+ Parrot_add_n_n, /* 373 */
+ Parrot_add_n_nc, /* 374 */
+ Parrot_add_p_p, /* 375 */
+ Parrot_add_p_i, /* 376 */
+ Parrot_add_p_ic, /* 377 */
+ Parrot_add_p_n, /* 378 */
+ Parrot_add_p_nc, /* 379 */
+ Parrot_add_i_i_i, /* 380 */
+ Parrot_add_i_ic_i, /* 381 */
+ Parrot_add_i_i_ic, /* 382 */
+ Parrot_add_n_n_n, /* 383 */
+ Parrot_add_n_nc_n, /* 384 */
+ Parrot_add_n_n_nc, /* 385 */
+ Parrot_add_p_p_p, /* 386 */
+ Parrot_add_p_p_i, /* 387 */
+ Parrot_add_p_p_ic, /* 388 */
+ Parrot_add_p_p_n, /* 389 */
+ Parrot_add_p_p_nc, /* 390 */
+ Parrot_dec_i, /* 391 */
+ Parrot_dec_n, /* 392 */
+ Parrot_dec_p, /* 393 */
+ Parrot_div_i_i, /* 394 */
+ Parrot_div_i_ic, /* 395 */
+ Parrot_div_n_n, /* 396 */
+ Parrot_div_n_nc, /* 397 */
+ Parrot_div_p_p, /* 398 */
+ Parrot_div_p_i, /* 399 */
+ Parrot_div_p_ic, /* 400 */
+ Parrot_div_p_n, /* 401 */
+ Parrot_div_p_nc, /* 402 */
+ Parrot_div_i_i_i, /* 403 */
+ Parrot_div_i_ic_i, /* 404 */
+ Parrot_div_i_i_ic, /* 405 */
+ Parrot_div_i_ic_ic, /* 406 */
+ Parrot_div_n_n_n, /* 407 */
+ Parrot_div_n_nc_n, /* 408 */
+ Parrot_div_n_n_nc, /* 409 */
+ Parrot_div_n_nc_nc, /* 410 */
+ Parrot_div_p_p_p, /* 411 */
+ Parrot_div_p_p_i, /* 412 */
+ Parrot_div_p_p_ic, /* 413 */
+ Parrot_div_p_p_n, /* 414 */
+ Parrot_div_p_p_nc, /* 415 */
+ Parrot_fdiv_i_i, /* 416 */
+ Parrot_fdiv_i_ic, /* 417 */
+ Parrot_fdiv_n_n, /* 418 */
+ Parrot_fdiv_n_nc, /* 419 */
+ Parrot_fdiv_p_p, /* 420 */
+ Parrot_fdiv_p_i, /* 421 */
+ Parrot_fdiv_p_ic, /* 422 */
+ Parrot_fdiv_p_n, /* 423 */
+ Parrot_fdiv_p_nc, /* 424 */
+ Parrot_fdiv_i_i_i, /* 425 */
+ Parrot_fdiv_i_ic_i, /* 426 */
+ Parrot_fdiv_i_i_ic, /* 427 */
+ Parrot_fdiv_n_n_n, /* 428 */
+ Parrot_fdiv_n_nc_n, /* 429 */
+ Parrot_fdiv_n_n_nc, /* 430 */
+ Parrot_fdiv_p_p_p, /* 431 */
+ Parrot_fdiv_p_p_i, /* 432 */
+ Parrot_fdiv_p_p_ic, /* 433 */
+ Parrot_fdiv_p_p_n, /* 434 */
+ Parrot_fdiv_p_p_nc, /* 435 */
+ Parrot_ceil_n, /* 436 */
+ Parrot_ceil_i_n, /* 437 */
+ Parrot_ceil_n_n, /* 438 */
+ Parrot_floor_n, /* 439 */
+ Parrot_floor_i_n, /* 440 */
+ Parrot_floor_n_n, /* 441 */
+ Parrot_inc_i, /* 442 */
+ Parrot_inc_n, /* 443 */
+ Parrot_inc_p, /* 444 */
+ Parrot_mod_i_i, /* 445 */
+ Parrot_mod_i_ic, /* 446 */
+ Parrot_mod_n_n, /* 447 */
+ Parrot_mod_n_nc, /* 448 */
+ Parrot_mod_p_p, /* 449 */
+ Parrot_mod_p_i, /* 450 */
+ Parrot_mod_p_ic, /* 451 */
+ Parrot_mod_p_n, /* 452 */
+ Parrot_mod_p_nc, /* 453 */
+ Parrot_mod_i_i_i, /* 454 */
+ Parrot_mod_i_ic_i, /* 455 */
+ Parrot_mod_i_i_ic, /* 456 */
+ Parrot_mod_n_n_n, /* 457 */
+ Parrot_mod_n_nc_n, /* 458 */
+ Parrot_mod_n_n_nc, /* 459 */
+ Parrot_mod_p_p_p, /* 460 */
+ Parrot_mod_p_p_i, /* 461 */
+ Parrot_mod_p_p_ic, /* 462 */
+ Parrot_mod_p_p_n, /* 463 */
+ Parrot_mod_p_p_nc, /* 464 */
+ Parrot_mul_i_i, /* 465 */
+ Parrot_mul_i_ic, /* 466 */
+ Parrot_mul_n_n, /* 467 */
+ Parrot_mul_n_nc, /* 468 */
+ Parrot_mul_p_p, /* 469 */
+ Parrot_mul_p_i, /* 470 */
+ Parrot_mul_p_ic, /* 471 */
+ Parrot_mul_p_n, /* 472 */
+ Parrot_mul_p_nc, /* 473 */
+ Parrot_mul_i_i_i, /* 474 */
+ Parrot_mul_i_ic_i, /* 475 */
+ Parrot_mul_i_i_ic, /* 476 */
+ Parrot_mul_n_n_n, /* 477 */
+ Parrot_mul_n_nc_n, /* 478 */
+ Parrot_mul_n_n_nc, /* 479 */
+ Parrot_mul_p_p_p, /* 480 */
+ Parrot_mul_p_p_i, /* 481 */
+ Parrot_mul_p_p_ic, /* 482 */
+ Parrot_mul_p_p_n, /* 483 */
+ Parrot_mul_p_p_nc, /* 484 */
+ Parrot_neg_i, /* 485 */
+ Parrot_neg_n, /* 486 */
+ Parrot_neg_p, /* 487 */
+ Parrot_neg_i_i, /* 488 */
+ Parrot_neg_n_n, /* 489 */
+ Parrot_neg_p_p, /* 490 */
+ Parrot_sub_i_i, /* 491 */
+ Parrot_sub_i_ic, /* 492 */
+ Parrot_sub_n_n, /* 493 */
+ Parrot_sub_n_nc, /* 494 */
+ Parrot_sub_p_p, /* 495 */
+ Parrot_sub_p_i, /* 496 */
+ Parrot_sub_p_ic, /* 497 */
+ Parrot_sub_p_n, /* 498 */
+ Parrot_sub_p_nc, /* 499 */
+ Parrot_sub_i_i_i, /* 500 */
+ Parrot_sub_i_ic_i, /* 501 */
+ Parrot_sub_i_i_ic, /* 502 */
+ Parrot_sub_n_n_n, /* 503 */
+ Parrot_sub_n_nc_n, /* 504 */
+ Parrot_sub_n_n_nc, /* 505 */
+ Parrot_sub_p_p_p, /* 506 */
+ Parrot_sub_p_p_i, /* 507 */
+ Parrot_sub_p_p_ic, /* 508 */
+ Parrot_sub_p_p_n, /* 509 */
+ Parrot_sub_p_p_nc, /* 510 */
+ Parrot_sqrt_n_n, /* 511 */
+ Parrot_callmethodcc_p_s, /* 512 */
+ Parrot_callmethodcc_p_sc, /* 513 */
+ Parrot_callmethodcc_p_p, /* 514 */
+ Parrot_callmethod_p_s_p, /* 515 */
+ Parrot_callmethod_p_sc_p, /* 516 */
+ Parrot_callmethod_p_p_p, /* 517 */
+ Parrot_tailcallmethod_p_s, /* 518 */
+ Parrot_tailcallmethod_p_sc, /* 519 */
+ Parrot_tailcallmethod_p_p, /* 520 */
+ Parrot_addmethod_p_s_p, /* 521 */
+ Parrot_addmethod_p_sc_p, /* 522 */
+ Parrot_can_i_p_s, /* 523 */
+ Parrot_can_i_p_sc, /* 524 */
+ Parrot_does_i_p_s, /* 525 */
+ Parrot_does_i_p_sc, /* 526 */
+ Parrot_does_i_p_p, /* 527 */
+ Parrot_does_i_p_pc, /* 528 */
+ Parrot_isa_i_p_s, /* 529 */
+ Parrot_isa_i_p_sc, /* 530 */
+ Parrot_isa_i_p_p, /* 531 */
+ Parrot_isa_i_p_pc, /* 532 */
+ Parrot_newclass_p_s, /* 533 */
+ Parrot_newclass_p_sc, /* 534 */
+ Parrot_newclass_p_p, /* 535 */
+ Parrot_newclass_p_pc, /* 536 */
+ Parrot_subclass_p_p, /* 537 */
+ Parrot_subclass_p_pc, /* 538 */
+ Parrot_subclass_p_p_s, /* 539 */
+ Parrot_subclass_p_pc_s, /* 540 */
+ Parrot_subclass_p_p_sc, /* 541 */
+ Parrot_subclass_p_pc_sc, /* 542 */
+ Parrot_subclass_p_p_p, /* 543 */
+ Parrot_subclass_p_pc_p, /* 544 */
+ Parrot_subclass_p_p_pc, /* 545 */
+ Parrot_subclass_p_pc_pc, /* 546 */
+ Parrot_subclass_p_s, /* 547 */
+ Parrot_subclass_p_sc, /* 548 */
+ Parrot_subclass_p_s_s, /* 549 */
+ Parrot_subclass_p_sc_s, /* 550 */
+ Parrot_subclass_p_s_sc, /* 551 */
+ Parrot_subclass_p_sc_sc, /* 552 */
+ Parrot_subclass_p_s_p, /* 553 */
+ Parrot_subclass_p_sc_p, /* 554 */
+ Parrot_subclass_p_s_pc, /* 555 */
+ Parrot_subclass_p_sc_pc, /* 556 */
+ Parrot_get_class_p_s, /* 557 */
+ Parrot_get_class_p_sc, /* 558 */
+ Parrot_get_class_p_p, /* 559 */
+ Parrot_get_class_p_pc, /* 560 */
+ Parrot_class_p_p, /* 561 */
+ Parrot_addparent_p_p, /* 562 */
+ Parrot_removeparent_p_p, /* 563 */
+ Parrot_addrole_p_p, /* 564 */
+ Parrot_addattribute_p_s, /* 565 */
+ Parrot_addattribute_p_sc, /* 566 */
+ Parrot_removeattribute_p_s, /* 567 */
+ Parrot_removeattribute_p_sc, /* 568 */
+ Parrot_getattribute_p_p_s, /* 569 */
+ Parrot_getattribute_p_p_sc, /* 570 */
+ Parrot_getattribute_p_p_p_s, /* 571 */
+ Parrot_getattribute_p_p_pc_s, /* 572 */
+ Parrot_getattribute_p_p_p_sc, /* 573 */
+ Parrot_getattribute_p_p_pc_sc, /* 574 */
+ Parrot_setattribute_p_s_p, /* 575 */
+ Parrot_setattribute_p_sc_p, /* 576 */
+ Parrot_setattribute_p_p_s_p, /* 577 */
+ Parrot_setattribute_p_pc_s_p, /* 578 */
+ Parrot_setattribute_p_p_sc_p, /* 579 */
+ Parrot_setattribute_p_pc_sc_p, /* 580 */
+ Parrot_inspect_p_p, /* 581 */
+ Parrot_inspect_p_pc, /* 582 */
+ Parrot_inspect_p_p_s, /* 583 */
+ Parrot_inspect_p_pc_s, /* 584 */
+ Parrot_inspect_p_p_sc, /* 585 */
+ Parrot_inspect_p_pc_sc, /* 586 */
+ Parrot_new_p_s, /* 587 */
+ Parrot_new_p_sc, /* 588 */
+ Parrot_new_p_s_p, /* 589 */
+ Parrot_new_p_sc_p, /* 590 */
+ Parrot_new_p_s_pc, /* 591 */
+ Parrot_new_p_sc_pc, /* 592 */
+ Parrot_new_p_p, /* 593 */
+ Parrot_new_p_pc, /* 594 */
+ Parrot_new_p_p_p, /* 595 */
+ Parrot_new_p_pc_p, /* 596 */
+ Parrot_new_p_p_pc, /* 597 */
+ Parrot_new_p_pc_pc, /* 598 */
+ Parrot_root_new_p_p, /* 599 */
+ Parrot_root_new_p_pc, /* 600 */
+ Parrot_root_new_p_p_p, /* 601 */
+ Parrot_root_new_p_pc_p, /* 602 */
+ Parrot_root_new_p_p_pc, /* 603 */
+ Parrot_root_new_p_pc_pc, /* 604 */
+ Parrot_typeof_s_p, /* 605 */
+ Parrot_typeof_p_p, /* 606 */
+ Parrot_get_repr_s_p, /* 607 */
+ Parrot_find_method_p_p_s, /* 608 */
+ Parrot_find_method_p_p_sc, /* 609 */
+ Parrot_defined_i_p, /* 610 */
+ Parrot_defined_i_p_ki, /* 611 */
+ Parrot_defined_i_p_kic, /* 612 */
+ Parrot_defined_i_p_k, /* 613 */
+ Parrot_defined_i_p_kc, /* 614 */
+ Parrot_exists_i_p_ki, /* 615 */
+ Parrot_exists_i_p_kic, /* 616 */
+ Parrot_exists_i_p_k, /* 617 */
+ Parrot_exists_i_p_kc, /* 618 */
+ Parrot_delete_p_k, /* 619 */
+ Parrot_delete_p_kc, /* 620 */
+ Parrot_delete_p_ki, /* 621 */
+ Parrot_delete_p_kic, /* 622 */
+ Parrot_elements_i_p, /* 623 */
+ Parrot_push_p_i, /* 624 */
+ Parrot_push_p_ic, /* 625 */
+ Parrot_push_p_n, /* 626 */
+ Parrot_push_p_nc, /* 627 */
+ Parrot_push_p_s, /* 628 */
+ Parrot_push_p_sc, /* 629 */
+ Parrot_push_p_p, /* 630 */
+ Parrot_pop_i_p, /* 631 */
+ Parrot_pop_n_p, /* 632 */
+ Parrot_pop_s_p, /* 633 */
+ Parrot_pop_p_p, /* 634 */
+ Parrot_unshift_p_i, /* 635 */
+ Parrot_unshift_p_ic, /* 636 */
+ Parrot_unshift_p_n, /* 637 */
+ Parrot_unshift_p_nc, /* 638 */
+ Parrot_unshift_p_s, /* 639 */
+ Parrot_unshift_p_sc, /* 640 */
+ Parrot_unshift_p_p, /* 641 */
+ Parrot_shift_i_p, /* 642 */
+ Parrot_shift_n_p, /* 643 */
+ Parrot_shift_s_p, /* 644 */
+ Parrot_shift_p_p, /* 645 */
+ Parrot_splice_p_p_i_i, /* 646 */
+ Parrot_splice_p_p_ic_i, /* 647 */
+ Parrot_splice_p_p_i_ic, /* 648 */
+ Parrot_splice_p_p_ic_ic, /* 649 */
+ Parrot_setprop_p_s_p, /* 650 */
+ Parrot_setprop_p_sc_p, /* 651 */
+ Parrot_getprop_p_s_p, /* 652 */
+ Parrot_getprop_p_sc_p, /* 653 */
+ Parrot_delprop_p_s, /* 654 */
+ Parrot_delprop_p_sc, /* 655 */
+ Parrot_prophash_p_p, /* 656 */
+ Parrot_freeze_s_p, /* 657 */
+ Parrot_thaw_p_s, /* 658 */
+ Parrot_thaw_p_sc, /* 659 */
+ Parrot_add_multi_s_s_p, /* 660 */
+ Parrot_add_multi_sc_s_p, /* 661 */
+ Parrot_add_multi_s_sc_p, /* 662 */
+ Parrot_add_multi_sc_sc_p, /* 663 */
+ Parrot_find_multi_p_s_s, /* 664 */
+ Parrot_find_multi_p_sc_s, /* 665 */
+ Parrot_find_multi_p_s_sc, /* 666 */
+ Parrot_find_multi_p_sc_sc, /* 667 */
+ Parrot_register_p, /* 668 */
+ Parrot_unregister_p, /* 669 */
+ Parrot_box_p_i, /* 670 */
+ Parrot_box_p_ic, /* 671 */
+ Parrot_box_p_n, /* 672 */
+ Parrot_box_p_nc, /* 673 */
+ Parrot_box_p_s, /* 674 */
+ Parrot_box_p_sc, /* 675 */
+ Parrot_iter_p_p, /* 676 */
+ Parrot_morph_p_p, /* 677 */
+ Parrot_morph_p_pc, /* 678 */
+ Parrot_clone_s_s, /* 679 */
+ Parrot_clone_s_sc, /* 680 */
+ Parrot_set_i_i, /* 681 */
+ Parrot_set_i_ic, /* 682 */
+ Parrot_set_i_n, /* 683 */
+ Parrot_set_i_nc, /* 684 */
+ Parrot_set_i_s, /* 685 */
+ Parrot_set_i_sc, /* 686 */
+ Parrot_set_n_n, /* 687 */
+ Parrot_set_n_nc, /* 688 */
+ Parrot_set_n_i, /* 689 */
+ Parrot_set_n_ic, /* 690 */
+ Parrot_set_n_s, /* 691 */
+ Parrot_set_n_sc, /* 692 */
+ Parrot_set_n_p, /* 693 */
+ Parrot_set_s_p, /* 694 */
+ Parrot_set_s_s, /* 695 */
+ Parrot_set_s_sc, /* 696 */
+ Parrot_set_s_i, /* 697 */
+ Parrot_set_s_ic, /* 698 */
+ Parrot_set_s_n, /* 699 */
+ Parrot_set_s_nc, /* 700 */
+ Parrot_set_p_pc, /* 701 */
+ Parrot_set_p_p, /* 702 */
+ Parrot_set_p_i, /* 703 */
+ Parrot_set_p_ic, /* 704 */
+ Parrot_set_p_n, /* 705 */
+ Parrot_set_p_nc, /* 706 */
+ Parrot_set_p_s, /* 707 */
+ Parrot_set_p_sc, /* 708 */
+ Parrot_set_i_p, /* 709 */
+ Parrot_assign_p_p, /* 710 */
+ Parrot_assign_p_i, /* 711 */
+ Parrot_assign_p_ic, /* 712 */
+ Parrot_assign_p_n, /* 713 */
+ Parrot_assign_p_nc, /* 714 */
+ Parrot_assign_p_s, /* 715 */
+ Parrot_assign_p_sc, /* 716 */
+ Parrot_assign_s_s, /* 717 */
+ Parrot_assign_s_sc, /* 718 */
+ Parrot_setref_p_p, /* 719 */
+ Parrot_deref_p_p, /* 720 */
+ Parrot_set_p_ki_i, /* 721 */
+ Parrot_set_p_kic_i, /* 722 */
+ Parrot_set_p_ki_ic, /* 723 */
+ Parrot_set_p_kic_ic, /* 724 */
+ Parrot_set_p_ki_n, /* 725 */
+ Parrot_set_p_kic_n, /* 726 */
+ Parrot_set_p_ki_nc, /* 727 */
+ Parrot_set_p_kic_nc, /* 728 */
+ Parrot_set_p_ki_s, /* 729 */
+ Parrot_set_p_kic_s, /* 730 */
+ Parrot_set_p_ki_sc, /* 731 */
+ Parrot_set_p_kic_sc, /* 732 */
+ Parrot_set_p_ki_p, /* 733 */
+ Parrot_set_p_kic_p, /* 734 */
+ Parrot_set_i_p_ki, /* 735 */
+ Parrot_set_i_p_kic, /* 736 */
+ Parrot_set_n_p_ki, /* 737 */
+ Parrot_set_n_p_kic, /* 738 */
+ Parrot_set_s_p_ki, /* 739 */
+ Parrot_set_s_p_kic, /* 740 */
+ Parrot_set_p_p_ki, /* 741 */
+ Parrot_set_p_p_kic, /* 742 */
+ Parrot_set_p_k_i, /* 743 */
+ Parrot_set_p_kc_i, /* 744 */
+ Parrot_set_p_k_ic, /* 745 */
+ Parrot_set_p_kc_ic, /* 746 */
+ Parrot_set_p_k_n, /* 747 */
+ Parrot_set_p_kc_n, /* 748 */
+ Parrot_set_p_k_nc, /* 749 */
+ Parrot_set_p_kc_nc, /* 750 */
+ Parrot_set_p_k_s, /* 751 */
+ Parrot_set_p_kc_s, /* 752 */
+ Parrot_set_p_k_sc, /* 753 */
+ Parrot_set_p_kc_sc, /* 754 */
+ Parrot_set_p_k_p, /* 755 */
+ Parrot_set_p_kc_p, /* 756 */
+ Parrot_set_i_p_k, /* 757 */
+ Parrot_set_i_p_kc, /* 758 */
+ Parrot_set_n_p_k, /* 759 */
+ Parrot_set_n_p_kc, /* 760 */
+ Parrot_set_s_p_k, /* 761 */
+ Parrot_set_s_p_kc, /* 762 */
+ Parrot_set_p_p_k, /* 763 */
+ Parrot_set_p_p_kc, /* 764 */
+ Parrot_clone_p_p, /* 765 */
+ Parrot_clone_p_p_p, /* 766 */
+ Parrot_clone_p_p_pc, /* 767 */
+ Parrot_copy_p_p, /* 768 */
+ Parrot_null_s, /* 769 */
+ Parrot_null_i, /* 770 */
+ Parrot_null_p, /* 771 */
+ Parrot_null_n, /* 772 */
+ Parrot_ord_i_s, /* 773 */
+ Parrot_ord_i_sc, /* 774 */
+ Parrot_ord_i_s_i, /* 775 */
+ Parrot_ord_i_sc_i, /* 776 */
+ Parrot_ord_i_s_ic, /* 777 */
+ Parrot_ord_i_sc_ic, /* 778 */
+ Parrot_chr_s_i, /* 779 */
+ Parrot_chr_s_ic, /* 780 */
+ Parrot_chopn_s_s_i, /* 781 */
+ Parrot_chopn_s_sc_i, /* 782 */
+ Parrot_chopn_s_s_ic, /* 783 */
+ Parrot_chopn_s_sc_ic, /* 784 */
+ Parrot_concat_s_s, /* 785 */
+ Parrot_concat_s_sc, /* 786 */
+ Parrot_concat_p_p, /* 787 */
+ Parrot_concat_p_s, /* 788 */
+ Parrot_concat_p_sc, /* 789 */
+ Parrot_concat_s_s_s, /* 790 */
+ Parrot_concat_s_sc_s, /* 791 */
+ Parrot_concat_s_s_sc, /* 792 */
+ Parrot_concat_p_p_s, /* 793 */
+ Parrot_concat_p_p_sc, /* 794 */
+ Parrot_concat_p_p_p, /* 795 */
+ Parrot_repeat_s_s_i, /* 796 */
+ Parrot_repeat_s_sc_i, /* 797 */
+ Parrot_repeat_s_s_ic, /* 798 */
+ Parrot_repeat_s_sc_ic, /* 799 */
+ Parrot_repeat_p_p_i, /* 800 */
+ Parrot_repeat_p_p_ic, /* 801 */
+ Parrot_repeat_p_p_p, /* 802 */
+ Parrot_repeat_p_i, /* 803 */
+ Parrot_repeat_p_ic, /* 804 */
+ Parrot_repeat_p_p, /* 805 */
+ Parrot_length_i_s, /* 806 */
+ Parrot_length_i_sc, /* 807 */
+ Parrot_bytelength_i_s, /* 808 */
+ Parrot_bytelength_i_sc, /* 809 */
+ Parrot_pin_s, /* 810 */
+ Parrot_unpin_s, /* 811 */
+ Parrot_substr_s_s_i, /* 812 */
+ Parrot_substr_s_sc_i, /* 813 */
+ Parrot_substr_s_s_ic, /* 814 */
+ Parrot_substr_s_sc_ic, /* 815 */
+ Parrot_substr_s_s_i_i, /* 816 */
+ Parrot_substr_s_sc_i_i, /* 817 */
+ Parrot_substr_s_s_ic_i, /* 818 */
+ Parrot_substr_s_sc_ic_i, /* 819 */
+ Parrot_substr_s_s_i_ic, /* 820 */
+ Parrot_substr_s_sc_i_ic, /* 821 */
+ Parrot_substr_s_s_ic_ic, /* 822 */
+ Parrot_substr_s_sc_ic_ic, /* 823 */
+ Parrot_substr_s_p_i_i, /* 824 */
+ Parrot_substr_s_p_ic_i, /* 825 */
+ Parrot_substr_s_p_i_ic, /* 826 */
+ Parrot_substr_s_p_ic_ic, /* 827 */
+ Parrot_replace_s_s_i_i_s, /* 828 */
+ Parrot_replace_s_sc_i_i_s, /* 829 */
+ Parrot_replace_s_s_ic_i_s, /* 830 */
+ Parrot_replace_s_sc_ic_i_s, /* 831 */
+ Parrot_replace_s_s_i_ic_s, /* 832 */
+ Parrot_replace_s_sc_i_ic_s, /* 833 */
+ Parrot_replace_s_s_ic_ic_s, /* 834 */
+ Parrot_replace_s_sc_ic_ic_s, /* 835 */
+ Parrot_replace_s_s_i_i_sc, /* 836 */
+ Parrot_replace_s_sc_i_i_sc, /* 837 */
+ Parrot_replace_s_s_ic_i_sc, /* 838 */
+ Parrot_replace_s_sc_ic_i_sc, /* 839 */
+ Parrot_replace_s_s_i_ic_sc, /* 840 */
+ Parrot_replace_s_sc_i_ic_sc, /* 841 */
+ Parrot_replace_s_s_ic_ic_sc, /* 842 */
+ Parrot_replace_s_sc_ic_ic_sc, /* 843 */
+ Parrot_index_i_s_s, /* 844 */
+ Parrot_index_i_sc_s, /* 845 */
+ Parrot_index_i_s_sc, /* 846 */
+ Parrot_index_i_sc_sc, /* 847 */
+ Parrot_index_i_s_s_i, /* 848 */
+ Parrot_index_i_sc_s_i, /* 849 */
+ Parrot_index_i_s_sc_i, /* 850 */
+ Parrot_index_i_sc_sc_i, /* 851 */
+ Parrot_index_i_s_s_ic, /* 852 */
+ Parrot_index_i_sc_s_ic, /* 853 */
+ Parrot_index_i_s_sc_ic, /* 854 */
+ Parrot_index_i_sc_sc_ic, /* 855 */
+ Parrot_sprintf_s_s_p, /* 856 */
+ Parrot_sprintf_s_sc_p, /* 857 */
+ Parrot_sprintf_p_p_p, /* 858 */
+ Parrot_new_s, /* 859 */
+ Parrot_new_s_i, /* 860 */
+ Parrot_new_s_ic, /* 861 */
+ Parrot_stringinfo_i_s_i, /* 862 */
+ Parrot_stringinfo_i_sc_i, /* 863 */
+ Parrot_stringinfo_i_s_ic, /* 864 */
+ Parrot_stringinfo_i_sc_ic, /* 865 */
+ Parrot_upcase_s_s, /* 866 */
+ Parrot_upcase_s_sc, /* 867 */
+ Parrot_downcase_s_s, /* 868 */
+ Parrot_downcase_s_sc, /* 869 */
+ Parrot_titlecase_s_s, /* 870 */
+ Parrot_titlecase_s_sc, /* 871 */
+ Parrot_join_s_s_p, /* 872 */
+ Parrot_join_s_sc_p, /* 873 */
+ Parrot_split_p_s_s, /* 874 */
+ Parrot_split_p_sc_s, /* 875 */
+ Parrot_split_p_s_sc, /* 876 */
+ Parrot_split_p_sc_sc, /* 877 */
+ Parrot_charset_i_s, /* 878 */
+ Parrot_charset_i_sc, /* 879 */
+ Parrot_charsetname_s_i, /* 880 */
+ Parrot_charsetname_s_ic, /* 881 */
+ Parrot_find_charset_i_s, /* 882 */
+ Parrot_find_charset_i_sc, /* 883 */
+ Parrot_trans_charset_s_s_i, /* 884 */
+ Parrot_trans_charset_s_sc_i, /* 885 */
+ Parrot_trans_charset_s_s_ic, /* 886 */
+ Parrot_trans_charset_s_sc_ic, /* 887 */
+ Parrot_encoding_i_s, /* 888 */
+ Parrot_encoding_i_sc, /* 889 */
+ Parrot_encodingname_s_i, /* 890 */
+ Parrot_encodingname_s_ic, /* 891 */
+ Parrot_find_encoding_i_s, /* 892 */
+ Parrot_find_encoding_i_sc, /* 893 */
+ Parrot_trans_encoding_s_s_i, /* 894 */
+ Parrot_trans_encoding_s_sc_i, /* 895 */
+ Parrot_trans_encoding_s_s_ic, /* 896 */
+ Parrot_trans_encoding_s_sc_ic, /* 897 */
+ Parrot_is_cclass_i_i_s_i, /* 898 */
+ Parrot_is_cclass_i_ic_s_i, /* 899 */
+ Parrot_is_cclass_i_i_sc_i, /* 900 */
+ Parrot_is_cclass_i_ic_sc_i, /* 901 */
+ Parrot_is_cclass_i_i_s_ic, /* 902 */
+ Parrot_is_cclass_i_ic_s_ic, /* 903 */
+ Parrot_is_cclass_i_i_sc_ic, /* 904 */
+ Parrot_is_cclass_i_ic_sc_ic, /* 905 */
+ Parrot_find_cclass_i_i_s_i_i, /* 906 */
+ Parrot_find_cclass_i_ic_s_i_i, /* 907 */
+ Parrot_find_cclass_i_i_sc_i_i, /* 908 */
+ Parrot_find_cclass_i_ic_sc_i_i, /* 909 */
+ Parrot_find_cclass_i_i_s_ic_i, /* 910 */
+ Parrot_find_cclass_i_ic_s_ic_i, /* 911 */
+ Parrot_find_cclass_i_i_sc_ic_i, /* 912 */
+ Parrot_find_cclass_i_ic_sc_ic_i, /* 913 */
+ Parrot_find_cclass_i_i_s_i_ic, /* 914 */
+ Parrot_find_cclass_i_ic_s_i_ic, /* 915 */
+ Parrot_find_cclass_i_i_sc_i_ic, /* 916 */
+ Parrot_find_cclass_i_ic_sc_i_ic, /* 917 */
+ Parrot_find_cclass_i_i_s_ic_ic, /* 918 */
+ Parrot_find_cclass_i_ic_s_ic_ic, /* 919 */
+ Parrot_find_cclass_i_i_sc_ic_ic, /* 920 */
+ Parrot_find_cclass_i_ic_sc_ic_ic, /* 921 */
+ Parrot_find_not_cclass_i_i_s_i_i, /* 922 */
+ Parrot_find_not_cclass_i_ic_s_i_i, /* 923 */
+ Parrot_find_not_cclass_i_i_sc_i_i, /* 924 */
+ Parrot_find_not_cclass_i_ic_sc_i_i, /* 925 */
+ Parrot_find_not_cclass_i_i_s_ic_i, /* 926 */
+ Parrot_find_not_cclass_i_ic_s_ic_i, /* 927 */
+ Parrot_find_not_cclass_i_i_sc_ic_i, /* 928 */
+ Parrot_find_not_cclass_i_ic_sc_ic_i, /* 929 */
+ Parrot_find_not_cclass_i_i_s_i_ic, /* 930 */
+ Parrot_find_not_cclass_i_ic_s_i_ic, /* 931 */
+ Parrot_find_not_cclass_i_i_sc_i_ic, /* 932 */
+ Parrot_find_not_cclass_i_ic_sc_i_ic, /* 933 */
+ Parrot_find_not_cclass_i_i_s_ic_ic, /* 934 */
+ Parrot_find_not_cclass_i_ic_s_ic_ic, /* 935 */
+ Parrot_find_not_cclass_i_i_sc_ic_ic, /* 936 */
+ Parrot_find_not_cclass_i_ic_sc_ic_ic, /* 937 */
+ Parrot_escape_s_s, /* 938 */
+ Parrot_compose_s_s, /* 939 */
+ Parrot_compose_s_sc, /* 940 */
+ Parrot_spawnw_i_s, /* 941 */
+ Parrot_spawnw_i_sc, /* 942 */
+ Parrot_spawnw_i_p, /* 943 */
+ Parrot_err_i, /* 944 */
+ Parrot_err_s, /* 945 */
+ Parrot_err_s_i, /* 946 */
+ Parrot_err_s_ic, /* 947 */
+ Parrot_time_i, /* 948 */
+ Parrot_time_n, /* 949 */
+ Parrot_sleep_i, /* 950 */
+ Parrot_sleep_ic, /* 951 */
+ Parrot_sleep_n, /* 952 */
+ Parrot_sleep_nc, /* 953 */
+ Parrot_store_lex_s_p, /* 954 */
+ Parrot_store_lex_sc_p, /* 955 */
+ Parrot_store_dynamic_lex_s_p, /* 956 */
+ Parrot_store_dynamic_lex_sc_p, /* 957 */
+ Parrot_find_lex_p_s, /* 958 */
+ Parrot_find_lex_p_sc, /* 959 */
+ Parrot_find_dynamic_lex_p_s, /* 960 */
+ Parrot_find_dynamic_lex_p_sc, /* 961 */
+ Parrot_find_caller_lex_p_s, /* 962 */
+ Parrot_find_caller_lex_p_sc, /* 963 */
+ Parrot_get_namespace_p, /* 964 */
+ Parrot_get_namespace_p_p, /* 965 */
+ Parrot_get_namespace_p_pc, /* 966 */
+ Parrot_get_hll_namespace_p, /* 967 */
+ Parrot_get_hll_namespace_p_p, /* 968 */
+ Parrot_get_hll_namespace_p_pc, /* 969 */
+ Parrot_get_root_namespace_p, /* 970 */
+ Parrot_get_root_namespace_p_p, /* 971 */
+ Parrot_get_root_namespace_p_pc, /* 972 */
+ Parrot_get_global_p_s, /* 973 */
+ Parrot_get_global_p_sc, /* 974 */
+ Parrot_get_global_p_p_s, /* 975 */
+ Parrot_get_global_p_pc_s, /* 976 */
+ Parrot_get_global_p_p_sc, /* 977 */
+ Parrot_get_global_p_pc_sc, /* 978 */
+ Parrot_get_hll_global_p_s, /* 979 */
+ Parrot_get_hll_global_p_sc, /* 980 */
+ Parrot_get_hll_global_p_p_s, /* 981 */
+ Parrot_get_hll_global_p_pc_s, /* 982 */
+ Parrot_get_hll_global_p_p_sc, /* 983 */
+ Parrot_get_hll_global_p_pc_sc, /* 984 */
+ Parrot_get_root_global_p_s, /* 985 */
+ Parrot_get_root_global_p_sc, /* 986 */
+ Parrot_get_root_global_p_p_s, /* 987 */
+ Parrot_get_root_global_p_pc_s, /* 988 */
+ Parrot_get_root_global_p_p_sc, /* 989 */
+ Parrot_get_root_global_p_pc_sc, /* 990 */
+ Parrot_set_global_s_p, /* 991 */
+ Parrot_set_global_sc_p, /* 992 */
+ Parrot_set_global_p_s_p, /* 993 */
+ Parrot_set_global_pc_s_p, /* 994 */
+ Parrot_set_global_p_sc_p, /* 995 */
+ Parrot_set_global_pc_sc_p, /* 996 */
+ Parrot_set_hll_global_s_p, /* 997 */
+ Parrot_set_hll_global_sc_p, /* 998 */
+ Parrot_set_hll_global_p_s_p, /* 999 */
+ Parrot_set_hll_global_pc_s_p, /* 1000 */
+ Parrot_set_hll_global_p_sc_p, /* 1001 */
+ Parrot_set_hll_global_pc_sc_p, /* 1002 */
+ Parrot_set_root_global_s_p, /* 1003 */
+ Parrot_set_root_global_sc_p, /* 1004 */
+ Parrot_set_root_global_p_s_p, /* 1005 */
+ Parrot_set_root_global_pc_s_p, /* 1006 */
+ Parrot_set_root_global_p_sc_p, /* 1007 */
+ Parrot_set_root_global_pc_sc_p, /* 1008 */
+ Parrot_find_name_p_s, /* 1009 */
+ Parrot_find_name_p_sc, /* 1010 */
+ Parrot_find_sub_not_null_p_s, /* 1011 */
+ Parrot_find_sub_not_null_p_sc, /* 1012 */
+ Parrot_trap, /* 1013 */
+ Parrot_set_label_p_ic, /* 1014 */
+ Parrot_get_label_i_p, /* 1015 */
+ Parrot_fetch_p_p_p_p, /* 1016 */
+ Parrot_fetch_p_pc_p_p, /* 1017 */
+ Parrot_fetch_p_p_pc_p, /* 1018 */
+ Parrot_fetch_p_pc_pc_p, /* 1019 */
+ Parrot_fetch_p_p_p_pc, /* 1020 */
+ Parrot_fetch_p_pc_p_pc, /* 1021 */
+ Parrot_fetch_p_p_pc_pc, /* 1022 */
+ Parrot_fetch_p_pc_pc_pc, /* 1023 */
+ Parrot_fetch_p_p_i_p, /* 1024 */
+ Parrot_fetch_p_pc_i_p, /* 1025 */
+ Parrot_fetch_p_p_ic_p, /* 1026 */
+ Parrot_fetch_p_pc_ic_p, /* 1027 */
+ Parrot_fetch_p_p_i_pc, /* 1028 */
+ Parrot_fetch_p_pc_i_pc, /* 1029 */
+ Parrot_fetch_p_p_ic_pc, /* 1030 */
+ Parrot_fetch_p_pc_ic_pc, /* 1031 */
+ Parrot_fetch_p_p_s_p, /* 1032 */
+ Parrot_fetch_p_pc_s_p, /* 1033 */
+ Parrot_fetch_p_p_sc_p, /* 1034 */
+ Parrot_fetch_p_pc_sc_p, /* 1035 */
+ Parrot_fetch_p_p_s_pc, /* 1036 */
+ Parrot_fetch_p_pc_s_pc, /* 1037 */
+ Parrot_fetch_p_p_sc_pc, /* 1038 */
+ Parrot_fetch_p_pc_sc_pc, /* 1039 */
+ Parrot_vivify_p_p_p_p, /* 1040 */
+ Parrot_vivify_p_pc_p_p, /* 1041 */
+ Parrot_vivify_p_p_pc_p, /* 1042 */
+ Parrot_vivify_p_pc_pc_p, /* 1043 */
+ Parrot_vivify_p_p_p_pc, /* 1044 */
+ Parrot_vivify_p_pc_p_pc, /* 1045 */
+ Parrot_vivify_p_p_pc_pc, /* 1046 */
+ Parrot_vivify_p_pc_pc_pc, /* 1047 */
+ Parrot_vivify_p_p_i_p, /* 1048 */
+ Parrot_vivify_p_pc_i_p, /* 1049 */
+ Parrot_vivify_p_p_ic_p, /* 1050 */
+ Parrot_vivify_p_pc_ic_p, /* 1051 */
+ Parrot_vivify_p_p_i_pc, /* 1052 */
+ Parrot_vivify_p_pc_i_pc, /* 1053 */
+ Parrot_vivify_p_p_ic_pc, /* 1054 */
+ Parrot_vivify_p_pc_ic_pc, /* 1055 */
+ Parrot_vivify_p_p_s_p, /* 1056 */
+ Parrot_vivify_p_pc_s_p, /* 1057 */
+ Parrot_vivify_p_p_sc_p, /* 1058 */
+ Parrot_vivify_p_pc_sc_p, /* 1059 */
+ Parrot_vivify_p_p_s_pc, /* 1060 */
+ Parrot_vivify_p_pc_s_pc, /* 1061 */
+ Parrot_vivify_p_p_sc_pc, /* 1062 */
+ Parrot_vivify_p_pc_sc_pc, /* 1063 */
+ Parrot_new_p_s_i, /* 1064 */
+ Parrot_new_p_sc_i, /* 1065 */
+ Parrot_new_p_s_ic, /* 1066 */
+ Parrot_new_p_sc_ic, /* 1067 */
+ Parrot_new_p_p_i, /* 1068 */
+ Parrot_new_p_pc_i, /* 1069 */
+ Parrot_new_p_p_ic, /* 1070 */
+ Parrot_new_p_pc_ic, /* 1071 */
+ Parrot_root_new_p_p_i, /* 1072 */
+ Parrot_root_new_p_pc_i, /* 1073 */
+ Parrot_root_new_p_p_ic, /* 1074 */
+ Parrot_root_new_p_pc_ic, /* 1075 */
+ Parrot_find_codepoint_i_s, /* 1076 */
+ Parrot_find_codepoint_i_sc, /* 1077 */
+ Parrot_finalize_p, /* 1078 */
+ Parrot_finalize_pc, /* 1079 */
NULL /* NULL function pointer */
};
@@ -1345,7 +1157,7 @@
** Op Info Table:
*/
-static op_info_t core_op_info_table[1269] = {
+static op_info_t core_op_info_table[1081] = {
{ /* 0 */
/* type PARROT_INLINE_OP, */
"end",
@@ -2777,1424 +2589,1424 @@
{ /* 119 */
/* type PARROT_INLINE_OP, */
"band",
- "band_p_i",
- "Parrot_band_p_i",
+ "band_i_i_i",
+ "Parrot_band_i_i_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 120 */
/* type PARROT_INLINE_OP, */
"band",
- "band_p_ic",
- "Parrot_band_p_ic",
+ "band_i_ic_i",
+ "Parrot_band_i_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 121 */
/* type PARROT_INLINE_OP, */
"band",
- "band_p_p",
- "Parrot_band_p_p",
+ "band_i_i_ic",
+ "Parrot_band_i_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 122 */
/* type PARROT_INLINE_OP, */
- "band",
- "band_i_i_i",
- "Parrot_band_i_i_i",
+ "bor",
+ "bor_i_i",
+ "Parrot_bor_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 123 */
/* type PARROT_INLINE_OP, */
- "band",
- "band_i_ic_i",
- "Parrot_band_i_ic_i",
+ "bor",
+ "bor_i_ic",
+ "Parrot_bor_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 124 */
/* type PARROT_INLINE_OP, */
- "band",
- "band_i_i_ic",
- "Parrot_band_i_i_ic",
+ "bor",
+ "bor_i_i_i",
+ "Parrot_bor_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 125 */
/* type PARROT_INLINE_OP, */
- "band",
- "band_p_p_i",
- "Parrot_band_p_p_i",
+ "bor",
+ "bor_i_ic_i",
+ "Parrot_bor_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 126 */
/* type PARROT_INLINE_OP, */
- "band",
- "band_p_p_ic",
- "Parrot_band_p_p_ic",
+ "bor",
+ "bor_i_i_ic",
+ "Parrot_bor_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 127 */
/* type PARROT_INLINE_OP, */
- "band",
- "band_p_p_p",
- "Parrot_band_p_p_p",
+ "shl",
+ "shl_i_i",
+ "Parrot_shl_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 128 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_p_s",
- "Parrot_bands_p_s",
+ "shl",
+ "shl_i_ic",
+ "Parrot_shl_i_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 129 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_p_sc",
- "Parrot_bands_p_sc",
+ "shl",
+ "shl_i_i_i",
+ "Parrot_shl_i_i_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 130 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_p_p",
- "Parrot_bands_p_p",
+ "shl",
+ "shl_i_ic_i",
+ "Parrot_shl_i_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 131 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_s_s_s",
- "Parrot_bands_s_s_s",
+ "shl",
+ "shl_i_i_ic",
+ "Parrot_shl_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 132 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_s_sc_s",
- "Parrot_bands_s_sc_s",
+ "shr",
+ "shr_i_i",
+ "Parrot_shr_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 133 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_s_s_sc",
- "Parrot_bands_s_s_sc",
+ "shr",
+ "shr_i_ic",
+ "Parrot_shr_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 134 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_p_p_s",
- "Parrot_bands_p_p_s",
+ "shr",
+ "shr_i_i_i",
+ "Parrot_shr_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 135 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_p_p_sc",
- "Parrot_bands_p_p_sc",
+ "shr",
+ "shr_i_ic_i",
+ "Parrot_shr_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 136 */
/* type PARROT_INLINE_OP, */
- "bands",
- "bands_p_p_p",
- "Parrot_bands_p_p_p",
+ "shr",
+ "shr_i_i_ic",
+ "Parrot_shr_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 137 */
/* type PARROT_INLINE_OP, */
- "bnot",
- "bnot_i",
- "Parrot_bnot_i",
+ "lsr",
+ "lsr_i_i",
+ "Parrot_lsr_i_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 138 */
/* type PARROT_INLINE_OP, */
- "bnot",
- "bnot_i_i",
- "Parrot_bnot_i_i",
+ "lsr",
+ "lsr_i_ic",
+ "Parrot_lsr_i_ic",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 139 */
/* type PARROT_INLINE_OP, */
- "bnot",
- "bnot_p",
- "Parrot_bnot_p",
+ "lsr",
+ "lsr_i_i_i",
+ "Parrot_lsr_i_i_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 140 */
/* type PARROT_INLINE_OP, */
- "bnot",
- "bnot_p_p",
- "Parrot_bnot_p_p",
+ "lsr",
+ "lsr_i_ic_i",
+ "Parrot_lsr_i_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 141 */
/* type PARROT_INLINE_OP, */
- "bnots",
- "bnots_s_s",
- "Parrot_bnots_s_s",
+ "lsr",
+ "lsr_i_i_ic",
+ "Parrot_lsr_i_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 142 */
/* type PARROT_INLINE_OP, */
- "bnots",
- "bnots_s_sc",
- "Parrot_bnots_s_sc",
+ "bxor",
+ "bxor_i_i",
+ "Parrot_bxor_i_i",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 143 */
/* type PARROT_INLINE_OP, */
- "bnots",
- "bnots_p",
- "Parrot_bnots_p",
+ "bxor",
+ "bxor_i_ic",
+ "Parrot_bxor_i_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 144 */
/* type PARROT_INLINE_OP, */
- "bnots",
- "bnots_p_p",
- "Parrot_bnots_p_p",
+ "bxor",
+ "bxor_i_i_i",
+ "Parrot_bxor_i_i_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 145 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_i_i",
- "Parrot_bor_i_i",
+ "bxor",
+ "bxor_i_ic_i",
+ "Parrot_bxor_i_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 146 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_i_ic",
- "Parrot_bor_i_ic",
+ "bxor",
+ "bxor_i_i_ic",
+ "Parrot_bxor_i_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 147 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_p_i",
- "Parrot_bor_p_i",
+ "eq",
+ "eq_i_i_ic",
+ "Parrot_eq_i_i_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 148 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_p_ic",
- "Parrot_bor_p_ic",
+ "eq",
+ "eq_ic_i_ic",
+ "Parrot_eq_ic_i_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 149 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_p_p",
- "Parrot_bor_p_p",
+ "eq",
+ "eq_i_ic_ic",
+ "Parrot_eq_i_ic_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 150 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_i_i_i",
- "Parrot_bor_i_i_i",
+ "eq",
+ "eq_n_n_ic",
+ "Parrot_eq_n_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 151 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_i_ic_i",
- "Parrot_bor_i_ic_i",
+ "eq",
+ "eq_nc_n_ic",
+ "Parrot_eq_nc_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 152 */
/* type PARROT_INLINE_OP, */
- "bor",
- "bor_i_i_ic",
- "Parrot_bor_i_i_ic",
+ "eq",
+ "eq_n_nc_ic",
+ "Parrot_eq_n_nc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 153 */
- /* type PARROT_INLINE_OP, */
- "bor",
- "bor_p_p_i",
- "Parrot_bor_p_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_s_s_ic",
+ "Parrot_eq_s_s_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 154 */
- /* type PARROT_INLINE_OP, */
- "bor",
- "bor_p_p_ic",
- "Parrot_bor_p_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_sc_s_ic",
+ "Parrot_eq_sc_s_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 155 */
- /* type PARROT_INLINE_OP, */
- "bor",
- "bor_p_p_p",
- "Parrot_bor_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_s_sc_ic",
+ "Parrot_eq_s_sc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 156 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_p_s",
- "Parrot_bors_p_s",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_p_ic",
+ "Parrot_eq_p_p_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 157 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_p_sc",
- "Parrot_bors_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_i_ic",
+ "Parrot_eq_p_i_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 158 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_p_p",
- "Parrot_bors_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_ic_ic",
+ "Parrot_eq_p_ic_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 159 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_s_s_s",
- "Parrot_bors_s_s_s",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_n_ic",
+ "Parrot_eq_p_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 160 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_s_sc_s",
- "Parrot_bors_s_sc_s",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_nc_ic",
+ "Parrot_eq_p_nc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 161 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_s_s_sc",
- "Parrot_bors_s_s_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_s_ic",
+ "Parrot_eq_p_s_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 162 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_p_p_s",
- "Parrot_bors_p_p_s",
+ /* type PARROT_FUNCTION_OP, */
+ "eq",
+ "eq_p_sc_ic",
+ "Parrot_eq_p_sc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 163 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_p_p_sc",
- "Parrot_bors_p_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_str",
+ "eq_str_p_p_ic",
+ "Parrot_eq_str_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 164 */
- /* type PARROT_INLINE_OP, */
- "bors",
- "bors_p_p_p",
- "Parrot_bors_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_num",
+ "eq_num_p_p_ic",
+ "Parrot_eq_num_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 165 */
- /* type PARROT_INLINE_OP, */
- "shl",
- "shl_i_i",
- "Parrot_shl_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_addr",
+ "eq_addr_s_s_ic",
+ "Parrot_eq_addr_s_s_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 166 */
- /* type PARROT_INLINE_OP, */
- "shl",
- "shl_i_ic",
- "Parrot_shl_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_addr",
+ "eq_addr_sc_s_ic",
+ "Parrot_eq_addr_sc_s_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 167 */
- /* type PARROT_INLINE_OP, */
- "shl",
- "shl_p_i",
- "Parrot_shl_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_addr",
+ "eq_addr_s_sc_ic",
+ "Parrot_eq_addr_s_sc_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 168 */
- /* type PARROT_INLINE_OP, */
- "shl",
- "shl_p_ic",
- "Parrot_shl_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_addr",
+ "eq_addr_sc_sc_ic",
+ "Parrot_eq_addr_sc_sc_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 169 */
- /* type PARROT_INLINE_OP, */
- "shl",
- "shl_p_p",
- "Parrot_shl_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "eq_addr",
+ "eq_addr_p_p_ic",
+ "Parrot_eq_addr_p_p_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 170 */
/* type PARROT_INLINE_OP, */
- "shl",
- "shl_i_i_i",
- "Parrot_shl_i_i_i",
+ "ne",
+ "ne_i_i_ic",
+ "Parrot_ne_i_i_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 171 */
/* type PARROT_INLINE_OP, */
- "shl",
- "shl_i_ic_i",
- "Parrot_shl_i_ic_i",
+ "ne",
+ "ne_ic_i_ic",
+ "Parrot_ne_ic_i_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 172 */
/* type PARROT_INLINE_OP, */
- "shl",
- "shl_i_i_ic",
- "Parrot_shl_i_i_ic",
+ "ne",
+ "ne_i_ic_ic",
+ "Parrot_ne_i_ic_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 173 */
/* type PARROT_INLINE_OP, */
- "shl",
- "shl_p_p_i",
- "Parrot_shl_p_p_i",
+ "ne",
+ "ne_n_n_ic",
+ "Parrot_ne_n_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 174 */
/* type PARROT_INLINE_OP, */
- "shl",
- "shl_p_p_ic",
- "Parrot_shl_p_p_ic",
+ "ne",
+ "ne_nc_n_ic",
+ "Parrot_ne_nc_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 175 */
/* type PARROT_INLINE_OP, */
- "shl",
- "shl_p_p_p",
- "Parrot_shl_p_p_p",
+ "ne",
+ "ne_n_nc_ic",
+ "Parrot_ne_n_nc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 176 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_i_i",
- "Parrot_shr_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_s_s_ic",
+ "Parrot_ne_s_s_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 177 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_i_ic",
- "Parrot_shr_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_sc_s_ic",
+ "Parrot_ne_sc_s_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 178 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_p_i",
- "Parrot_shr_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_s_sc_ic",
+ "Parrot_ne_s_sc_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 179 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_p_ic",
- "Parrot_shr_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_p_ic",
+ "Parrot_ne_p_p_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 180 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_p_p",
- "Parrot_shr_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_i_ic",
+ "Parrot_ne_p_i_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 181 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_i_i_i",
- "Parrot_shr_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_ic_ic",
+ "Parrot_ne_p_ic_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
+ { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
+ },
{ /* 182 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_i_ic_i",
- "Parrot_shr_i_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_n_ic",
+ "Parrot_ne_p_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 183 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_i_i_ic",
- "Parrot_shr_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_nc_ic",
+ "Parrot_ne_p_nc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 184 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_p_p_i",
- "Parrot_shr_p_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_s_ic",
+ "Parrot_ne_p_s_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 185 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_p_p_ic",
- "Parrot_shr_p_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ne",
+ "ne_p_sc_ic",
+ "Parrot_ne_p_sc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 186 */
- /* type PARROT_INLINE_OP, */
- "shr",
- "shr_p_p_p",
- "Parrot_shr_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_str",
+ "ne_str_p_p_ic",
+ "Parrot_ne_str_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 187 */
- /* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_i_i",
- "Parrot_lsr_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_num",
+ "ne_num_p_p_ic",
+ "Parrot_ne_num_p_p_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 188 */
- /* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_i_ic",
- "Parrot_lsr_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_addr",
+ "ne_addr_s_s_ic",
+ "Parrot_ne_addr_s_s_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 189 */
- /* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_p_i",
- "Parrot_lsr_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_addr",
+ "ne_addr_sc_s_ic",
+ "Parrot_ne_addr_sc_s_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 190 */
- /* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_p_ic",
- "Parrot_lsr_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_addr",
+ "ne_addr_s_sc_ic",
+ "Parrot_ne_addr_s_sc_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 191 */
- /* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_p_p",
- "Parrot_lsr_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_addr",
+ "ne_addr_sc_sc_ic",
+ "Parrot_ne_addr_sc_sc_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 192 */
- /* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_i_i_i",
- "Parrot_lsr_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "ne_addr",
+ "ne_addr_p_p_ic",
+ "Parrot_ne_addr_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 193 */
/* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_i_ic_i",
- "Parrot_lsr_i_ic_i",
+ "lt",
+ "lt_i_i_ic",
+ "Parrot_lt_i_i_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 194 */
/* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_i_i_ic",
- "Parrot_lsr_i_i_ic",
+ "lt",
+ "lt_ic_i_ic",
+ "Parrot_lt_ic_i_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 195 */
/* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_p_p_i",
- "Parrot_lsr_p_p_i",
+ "lt",
+ "lt_i_ic_ic",
+ "Parrot_lt_i_ic_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 196 */
/* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_p_p_ic",
- "Parrot_lsr_p_p_ic",
+ "lt",
+ "lt_n_n_ic",
+ "Parrot_lt_n_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 197 */
/* type PARROT_INLINE_OP, */
- "lsr",
- "lsr_p_p_p",
- "Parrot_lsr_p_p_p",
+ "lt",
+ "lt_nc_n_ic",
+ "Parrot_lt_nc_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 198 */
/* type PARROT_INLINE_OP, */
- "rot",
- "rot_i_i_i_ic",
- "Parrot_rot_i_i_i_ic",
+ "lt",
+ "lt_n_nc_ic",
+ "Parrot_lt_n_nc_ic",
/* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 199 */
- /* type PARROT_INLINE_OP, */
- "rot",
- "rot_i_ic_i_ic",
- "Parrot_rot_i_ic_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_s_s_ic",
+ "Parrot_lt_s_s_ic",
/* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 200 */
- /* type PARROT_INLINE_OP, */
- "rot",
- "rot_i_i_ic_ic",
- "Parrot_rot_i_i_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_sc_s_ic",
+ "Parrot_lt_sc_s_ic",
/* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 201 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_i_i",
- "Parrot_bxor_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_s_sc_ic",
+ "Parrot_lt_s_sc_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 202 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_i_ic",
- "Parrot_bxor_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_p_ic",
+ "Parrot_lt_p_p_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 203 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_p_i",
- "Parrot_bxor_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_i_ic",
+ "Parrot_lt_p_i_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 204 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_p_ic",
- "Parrot_bxor_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_ic_ic",
+ "Parrot_lt_p_ic_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 205 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_p_p",
- "Parrot_bxor_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_n_ic",
+ "Parrot_lt_p_n_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 206 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_i_i_i",
- "Parrot_bxor_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_nc_ic",
+ "Parrot_lt_p_nc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 207 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_i_ic_i",
- "Parrot_bxor_i_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_s_ic",
+ "Parrot_lt_p_s_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 208 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_i_i_ic",
- "Parrot_bxor_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "lt",
+ "lt_p_sc_ic",
+ "Parrot_lt_p_sc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 209 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_p_p_i",
- "Parrot_bxor_p_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "lt_str",
+ "lt_str_p_p_ic",
+ "Parrot_lt_str_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 210 */
- /* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_p_p_ic",
- "Parrot_bxor_p_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "lt_num",
+ "lt_num_p_p_ic",
+ "Parrot_lt_num_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
{ PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 211 */
/* type PARROT_INLINE_OP, */
- "bxor",
- "bxor_p_p_p",
- "Parrot_bxor_p_p_p",
+ "le",
+ "le_i_i_ic",
+ "Parrot_le_i_i_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 212 */
/* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_p_s",
- "Parrot_bxors_p_s",
+ "le",
+ "le_ic_i_ic",
+ "Parrot_le_ic_i_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 213 */
/* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_p_sc",
- "Parrot_bxors_p_sc",
+ "le",
+ "le_i_ic_ic",
+ "Parrot_le_i_ic_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 214 */
/* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_p_p",
- "Parrot_bxors_p_p",
+ "le",
+ "le_n_n_ic",
+ "Parrot_le_n_n_ic",
/* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 215 */
/* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_s_s_s",
- "Parrot_bxors_s_s_s",
+ "le",
+ "le_nc_n_ic",
+ "Parrot_le_nc_n_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 216 */
/* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_s_sc_s",
- "Parrot_bxors_s_sc_s",
+ "le",
+ "le_n_nc_ic",
+ "Parrot_le_n_nc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 217 */
- /* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_s_s_sc",
- "Parrot_bxors_s_s_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_s_s_ic",
+ "Parrot_le_s_s_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 1 }
},
{ /* 218 */
- /* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_p_p_s",
- "Parrot_bxors_p_p_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_sc_s_ic",
+ "Parrot_le_sc_s_ic",
+ /* "", body */
+ PARROT_JUMP_RELATIVE,
+ 4,
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 219 */
- /* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_p_p_sc",
- "Parrot_bxors_p_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_s_sc_ic",
+ "Parrot_le_s_sc_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 220 */
- /* type PARROT_INLINE_OP, */
- "bxors",
- "bxors_p_p_p",
- "Parrot_bxors_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_p_ic",
+ "Parrot_le_p_p_ic",
/* "", body */
- 0,
+ PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ { 0, 0, 1 }
},
{ /* 221 */
- /* type PARROT_INLINE_OP, */
- "eq",
- "eq_i_i_ic",
- "Parrot_eq_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_i_ic",
+ "Parrot_le_p_i_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 222 */
- /* type PARROT_INLINE_OP, */
- "eq",
- "eq_ic_i_ic",
- "Parrot_eq_ic_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_ic_ic",
+ "Parrot_le_p_ic_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 223 */
- /* type PARROT_INLINE_OP, */
- "eq",
- "eq_i_ic_ic",
- "Parrot_eq_i_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_n_ic",
+ "Parrot_le_p_n_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 224 */
- /* type PARROT_INLINE_OP, */
- "eq",
- "eq_n_n_ic",
- "Parrot_eq_n_n_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_nc_ic",
+ "Parrot_le_p_nc_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 225 */
- /* type PARROT_INLINE_OP, */
- "eq",
- "eq_nc_n_ic",
- "Parrot_eq_nc_n_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_s_ic",
+ "Parrot_le_p_s_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 226 */
- /* type PARROT_INLINE_OP, */
- "eq",
- "eq_n_nc_ic",
- "Parrot_eq_n_nc_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "le",
+ "le_p_sc_ic",
+ "Parrot_le_p_sc_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 227 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_s_s_ic",
- "Parrot_eq_s_s_ic",
+ "le_str",
+ "le_str_p_p_ic",
+ "Parrot_le_str_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 228 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_sc_s_ic",
- "Parrot_eq_sc_s_ic",
+ "le_num",
+ "le_num_p_p_ic",
+ "Parrot_le_num_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 229 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_s_sc_ic",
- "Parrot_eq_s_sc_ic",
+ "gt",
+ "gt_p_p_ic",
+ "Parrot_gt_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 230 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_p_ic",
- "Parrot_eq_p_p_ic",
+ "gt",
+ "gt_p_i_ic",
+ "Parrot_gt_p_i_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 231 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_i_ic",
- "Parrot_eq_p_i_ic",
+ "gt",
+ "gt_p_ic_ic",
+ "Parrot_gt_p_ic_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 232 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_ic_ic",
- "Parrot_eq_p_ic_ic",
+ "gt",
+ "gt_p_n_ic",
+ "Parrot_gt_p_n_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 233 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_n_ic",
- "Parrot_eq_p_n_ic",
+ "gt",
+ "gt_p_nc_ic",
+ "Parrot_gt_p_nc_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 234 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_nc_ic",
- "Parrot_eq_p_nc_ic",
+ "gt",
+ "gt_p_s_ic",
+ "Parrot_gt_p_s_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 235 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_s_ic",
- "Parrot_eq_p_s_ic",
+ "gt",
+ "gt_p_sc_ic",
+ "Parrot_gt_p_sc_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 236 */
/* type PARROT_FUNCTION_OP, */
- "eq",
- "eq_p_sc_ic",
- "Parrot_eq_p_sc_ic",
+ "gt_str",
+ "gt_str_p_p_ic",
+ "Parrot_gt_str_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 237 */
/* type PARROT_FUNCTION_OP, */
- "eq_str",
- "eq_str_p_p_ic",
- "Parrot_eq_str_p_p_ic",
+ "gt_num",
+ "gt_num_p_p_ic",
+ "Parrot_gt_num_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
@@ -4204,9 +4016,9 @@
},
{ /* 238 */
/* type PARROT_FUNCTION_OP, */
- "eq_num",
- "eq_num_p_p_ic",
- "Parrot_eq_num_p_p_ic",
+ "ge",
+ "ge_p_p_ic",
+ "Parrot_ge_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
@@ -4216,1041 +4028,957 @@
},
{ /* 239 */
/* type PARROT_FUNCTION_OP, */
- "eq_addr",
- "eq_addr_s_s_ic",
- "Parrot_eq_addr_s_s_ic",
+ "ge",
+ "ge_p_i_ic",
+ "Parrot_ge_p_i_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 240 */
/* type PARROT_FUNCTION_OP, */
- "eq_addr",
- "eq_addr_sc_s_ic",
- "Parrot_eq_addr_sc_s_ic",
+ "ge",
+ "ge_p_ic_ic",
+ "Parrot_ge_p_ic_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 241 */
/* type PARROT_FUNCTION_OP, */
- "eq_addr",
- "eq_addr_s_sc_ic",
- "Parrot_eq_addr_s_sc_ic",
+ "ge",
+ "ge_p_n_ic",
+ "Parrot_ge_p_n_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 242 */
/* type PARROT_FUNCTION_OP, */
- "eq_addr",
- "eq_addr_sc_sc_ic",
- "Parrot_eq_addr_sc_sc_ic",
+ "ge",
+ "ge_p_nc_ic",
+ "Parrot_ge_p_nc_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 243 */
/* type PARROT_FUNCTION_OP, */
- "eq_addr",
- "eq_addr_p_p_ic",
- "Parrot_eq_addr_p_p_ic",
+ "ge",
+ "ge_p_s_ic",
+ "Parrot_ge_p_s_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 244 */
- /* type PARROT_INLINE_OP, */
- "ne",
- "ne_i_i_ic",
- "Parrot_ne_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ge",
+ "ge_p_sc_ic",
+ "Parrot_ge_p_sc_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 245 */
- /* type PARROT_INLINE_OP, */
- "ne",
- "ne_ic_i_ic",
- "Parrot_ne_ic_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ge_str",
+ "ge_str_p_p_ic",
+ "Parrot_ge_str_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 246 */
- /* type PARROT_INLINE_OP, */
- "ne",
- "ne_i_ic_ic",
- "Parrot_ne_i_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "ge_num",
+ "ge_num_p_p_ic",
+ "Parrot_ge_num_p_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 1 }
},
{ /* 247 */
- /* type PARROT_INLINE_OP, */
- "ne",
- "ne_n_n_ic",
- "Parrot_ne_n_n_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "if_null",
+ "if_null_p_ic",
+ "Parrot_if_null_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 1 }
},
{ /* 248 */
- /* type PARROT_INLINE_OP, */
- "ne",
- "ne_nc_n_ic",
- "Parrot_ne_nc_n_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "if_null",
+ "if_null_s_ic",
+ "Parrot_if_null_s_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 1 }
},
{ /* 249 */
- /* type PARROT_INLINE_OP, */
- "ne",
- "ne_n_nc_ic",
- "Parrot_ne_n_nc_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "unless_null",
+ "unless_null_p_ic",
+ "Parrot_unless_null_p_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 1 }
},
{ /* 250 */
/* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_s_s_ic",
- "Parrot_ne_s_s_ic",
+ "unless_null",
+ "unless_null_s_ic",
+ "Parrot_unless_null_s_ic",
/* "", body */
PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 1 }
},
{ /* 251 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_sc_s_ic",
- "Parrot_ne_sc_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_i_i",
+ "Parrot_cmp_i_i_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 252 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_s_sc_ic",
- "Parrot_ne_s_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_ic_i",
+ "Parrot_cmp_i_ic_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 253 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_p_ic",
- "Parrot_ne_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_i_ic",
+ "Parrot_cmp_i_i_ic",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 254 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_i_ic",
- "Parrot_ne_p_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_n_n",
+ "Parrot_cmp_i_n_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 255 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_ic_ic",
- "Parrot_ne_p_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_nc_n",
+ "Parrot_cmp_i_nc_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 256 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_n_ic",
- "Parrot_ne_p_n_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_n_nc",
+ "Parrot_cmp_i_n_nc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 257 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_nc_ic",
- "Parrot_ne_p_nc_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_s_s",
+ "Parrot_cmp_i_s_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 258 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_s_ic",
- "Parrot_ne_p_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_sc_s",
+ "Parrot_cmp_i_sc_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 259 */
- /* type PARROT_FUNCTION_OP, */
- "ne",
- "ne_p_sc_ic",
- "Parrot_ne_p_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_s_sc",
+ "Parrot_cmp_i_s_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 260 */
- /* type PARROT_FUNCTION_OP, */
- "ne_str",
- "ne_str_p_p_ic",
- "Parrot_ne_str_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_p",
+ "Parrot_cmp_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 261 */
- /* type PARROT_FUNCTION_OP, */
- "ne_num",
- "ne_num_p_p_ic",
- "Parrot_ne_num_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_i",
+ "Parrot_cmp_i_p_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 262 */
- /* type PARROT_FUNCTION_OP, */
- "ne_addr",
- "ne_addr_s_s_ic",
- "Parrot_ne_addr_s_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_ic",
+ "Parrot_cmp_i_p_ic",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 263 */
- /* type PARROT_FUNCTION_OP, */
- "ne_addr",
- "ne_addr_sc_s_ic",
- "Parrot_ne_addr_sc_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_n",
+ "Parrot_cmp_i_p_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 264 */
- /* type PARROT_FUNCTION_OP, */
- "ne_addr",
- "ne_addr_s_sc_ic",
- "Parrot_ne_addr_s_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_nc",
+ "Parrot_cmp_i_p_nc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 265 */
- /* type PARROT_FUNCTION_OP, */
- "ne_addr",
- "ne_addr_sc_sc_ic",
- "Parrot_ne_addr_sc_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_s",
+ "Parrot_cmp_i_p_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 266 */
- /* type PARROT_FUNCTION_OP, */
- "ne_addr",
- "ne_addr_p_p_ic",
- "Parrot_ne_addr_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "cmp",
+ "cmp_i_p_sc",
+ "Parrot_cmp_i_p_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 267 */
/* type PARROT_INLINE_OP, */
- "lt",
- "lt_i_i_ic",
- "Parrot_lt_i_i_ic",
+ "cmp_str",
+ "cmp_str_i_p_p",
+ "Parrot_cmp_str_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 268 */
/* type PARROT_INLINE_OP, */
- "lt",
- "lt_ic_i_ic",
- "Parrot_lt_ic_i_ic",
+ "cmp_num",
+ "cmp_num_i_p_p",
+ "Parrot_cmp_num_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 269 */
/* type PARROT_INLINE_OP, */
- "lt",
- "lt_i_ic_ic",
- "Parrot_lt_i_ic_ic",
+ "cmp_pmc",
+ "cmp_pmc_p_p_p",
+ "Parrot_cmp_pmc_p_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 270 */
/* type PARROT_INLINE_OP, */
- "lt",
- "lt_n_n_ic",
- "Parrot_lt_n_n_ic",
+ "issame",
+ "issame_i_p_p",
+ "Parrot_issame_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 271 */
/* type PARROT_INLINE_OP, */
- "lt",
- "lt_nc_n_ic",
- "Parrot_lt_nc_n_ic",
+ "issame",
+ "issame_i_s_s",
+ "Parrot_issame_i_s_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 272 */
/* type PARROT_INLINE_OP, */
- "lt",
- "lt_n_nc_ic",
- "Parrot_lt_n_nc_ic",
+ "issame",
+ "issame_i_sc_s",
+ "Parrot_issame_i_sc_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 273 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_s_s_ic",
- "Parrot_lt_s_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "issame",
+ "issame_i_s_sc",
+ "Parrot_issame_i_s_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 274 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_sc_s_ic",
- "Parrot_lt_sc_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "issame",
+ "issame_i_sc_sc",
+ "Parrot_issame_i_sc_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 275 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_s_sc_ic",
- "Parrot_lt_s_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "isntsame",
+ "isntsame_i_p_p",
+ "Parrot_isntsame_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 276 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_p_ic",
- "Parrot_lt_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "isntsame",
+ "isntsame_i_s_s",
+ "Parrot_isntsame_i_s_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 277 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_i_ic",
- "Parrot_lt_p_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "isntsame",
+ "isntsame_i_sc_s",
+ "Parrot_isntsame_i_sc_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 278 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_ic_ic",
- "Parrot_lt_p_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "isntsame",
+ "isntsame_i_s_sc",
+ "Parrot_isntsame_i_s_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 279 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_n_ic",
- "Parrot_lt_p_n_ic",
+ /* type PARROT_INLINE_OP, */
+ "isntsame",
+ "isntsame_i_sc_sc",
+ "Parrot_isntsame_i_sc_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
- },
- { /* 280 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_nc_ic",
- "Parrot_lt_p_nc_ic",
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
+ { /* 280 */
+ /* type PARROT_INLINE_OP, */
+ "istrue",
+ "istrue_i_p",
+ "Parrot_istrue_i_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 281 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_s_ic",
- "Parrot_lt_p_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "isfalse",
+ "isfalse_i_p",
+ "Parrot_isfalse_i_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 282 */
- /* type PARROT_FUNCTION_OP, */
- "lt",
- "lt_p_sc_ic",
- "Parrot_lt_p_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "isnull",
+ "isnull_i_p",
+ "Parrot_isnull_i_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 283 */
- /* type PARROT_FUNCTION_OP, */
- "lt_str",
- "lt_str_p_p_ic",
- "Parrot_lt_str_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "isnull",
+ "isnull_i_pc",
+ "Parrot_isnull_i_pc",
/* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 284 */
- /* type PARROT_FUNCTION_OP, */
- "lt_num",
- "lt_num_p_p_ic",
- "Parrot_lt_num_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "isnull",
+ "isnull_i_s",
+ "Parrot_isnull_i_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 285 */
/* type PARROT_INLINE_OP, */
- "le",
- "le_i_i_ic",
- "Parrot_le_i_i_ic",
+ "isnull",
+ "isnull_i_sc",
+ "Parrot_isnull_i_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 286 */
/* type PARROT_INLINE_OP, */
- "le",
- "le_ic_i_ic",
- "Parrot_le_ic_i_ic",
+ "isgt",
+ "isgt_i_p_p",
+ "Parrot_isgt_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 287 */
/* type PARROT_INLINE_OP, */
- "le",
- "le_i_ic_ic",
- "Parrot_le_i_ic_ic",
+ "isge",
+ "isge_i_p_p",
+ "Parrot_isge_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 288 */
/* type PARROT_INLINE_OP, */
- "le",
- "le_n_n_ic",
- "Parrot_le_n_n_ic",
+ "isle",
+ "isle_i_i_i",
+ "Parrot_isle_i_i_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 289 */
/* type PARROT_INLINE_OP, */
- "le",
- "le_nc_n_ic",
- "Parrot_le_nc_n_ic",
+ "isle",
+ "isle_i_ic_i",
+ "Parrot_isle_i_ic_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_NC, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 290 */
/* type PARROT_INLINE_OP, */
- "le",
- "le_n_nc_ic",
- "Parrot_le_n_nc_ic",
+ "isle",
+ "isle_i_i_ic",
+ "Parrot_isle_i_i_ic",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 291 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_s_s_ic",
- "Parrot_le_s_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_n_n",
+ "Parrot_isle_i_n_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 292 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_sc_s_ic",
- "Parrot_le_sc_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_nc_n",
+ "Parrot_isle_i_nc_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 293 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_s_sc_ic",
- "Parrot_le_s_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_n_nc",
+ "Parrot_isle_i_n_nc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 294 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_p_ic",
- "Parrot_le_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_s_s",
+ "Parrot_isle_i_s_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 295 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_i_ic",
- "Parrot_le_p_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_sc_s",
+ "Parrot_isle_i_sc_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 296 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_ic_ic",
- "Parrot_le_p_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_s_sc",
+ "Parrot_isle_i_s_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 297 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_n_ic",
- "Parrot_le_p_n_ic",
+ /* type PARROT_INLINE_OP, */
+ "isle",
+ "isle_i_p_p",
+ "Parrot_isle_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 298 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_nc_ic",
- "Parrot_le_p_nc_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_i_i",
+ "Parrot_islt_i_i_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 299 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_s_ic",
- "Parrot_le_p_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_ic_i",
+ "Parrot_islt_i_ic_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 300 */
- /* type PARROT_FUNCTION_OP, */
- "le",
- "le_p_sc_ic",
- "Parrot_le_p_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_i_ic",
+ "Parrot_islt_i_i_ic",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 301 */
- /* type PARROT_FUNCTION_OP, */
- "le_str",
- "le_str_p_p_ic",
- "Parrot_le_str_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_n_n",
+ "Parrot_islt_i_n_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 302 */
- /* type PARROT_FUNCTION_OP, */
- "le_num",
- "le_num_p_p_ic",
- "Parrot_le_num_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_nc_n",
+ "Parrot_islt_i_nc_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 303 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_p_ic",
- "Parrot_gt_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_n_nc",
+ "Parrot_islt_i_n_nc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 304 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_i_ic",
- "Parrot_gt_p_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_s_s",
+ "Parrot_islt_i_s_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 305 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_ic_ic",
- "Parrot_gt_p_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_sc_s",
+ "Parrot_islt_i_sc_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 306 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_n_ic",
- "Parrot_gt_p_n_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_s_sc",
+ "Parrot_islt_i_s_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 307 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_nc_ic",
- "Parrot_gt_p_nc_ic",
+ /* type PARROT_INLINE_OP, */
+ "islt",
+ "islt_i_p_p",
+ "Parrot_islt_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 308 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_s_ic",
- "Parrot_gt_p_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_i_i",
+ "Parrot_iseq_i_i_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 309 */
- /* type PARROT_FUNCTION_OP, */
- "gt",
- "gt_p_sc_ic",
- "Parrot_gt_p_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_ic_i",
+ "Parrot_iseq_i_ic_i",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 310 */
- /* type PARROT_FUNCTION_OP, */
- "gt_str",
- "gt_str_p_p_ic",
- "Parrot_gt_str_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_i_ic",
+ "Parrot_iseq_i_i_ic",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 311 */
- /* type PARROT_FUNCTION_OP, */
- "gt_num",
- "gt_num_p_p_ic",
- "Parrot_gt_num_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_n_n",
+ "Parrot_iseq_i_n_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 312 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_p_ic",
- "Parrot_ge_p_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_nc_n",
+ "Parrot_iseq_i_nc_n",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 313 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_i_ic",
- "Parrot_ge_p_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_n_nc",
+ "Parrot_iseq_i_n_nc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 314 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_ic_ic",
- "Parrot_ge_p_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_s_s",
+ "Parrot_iseq_i_s_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 315 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_n_ic",
- "Parrot_ge_p_n_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_sc_s",
+ "Parrot_iseq_i_sc_s",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 316 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_nc_ic",
- "Parrot_ge_p_nc_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_s_sc",
+ "Parrot_iseq_i_s_sc",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 317 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_s_ic",
- "Parrot_ge_p_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "iseq",
+ "iseq_i_p_p",
+ "Parrot_iseq_i_p_p",
/* "", body */
- PARROT_JUMP_RELATIVE,
+ 0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 318 */
- /* type PARROT_FUNCTION_OP, */
- "ge",
- "ge_p_sc_ic",
- "Parrot_ge_p_sc_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
- },
- { /* 319 */
- /* type PARROT_FUNCTION_OP, */
- "ge_str",
- "ge_str_p_p_ic",
- "Parrot_ge_str_p_p_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
- },
- { /* 320 */
- /* type PARROT_FUNCTION_OP, */
- "ge_num",
- "ge_num_p_p_ic",
- "Parrot_ge_num_p_p_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 1 }
- },
- { /* 321 */
- /* type PARROT_FUNCTION_OP, */
- "if_null",
- "if_null_p_ic",
- "Parrot_if_null_p_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 1 }
- },
- { /* 322 */
- /* type PARROT_FUNCTION_OP, */
- "if_null",
- "if_null_s_ic",
- "Parrot_if_null_s_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 1 }
- },
- { /* 323 */
- /* type PARROT_FUNCTION_OP, */
- "unless_null",
- "unless_null_p_ic",
- "Parrot_unless_null_p_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 1 }
- },
- { /* 324 */
- /* type PARROT_FUNCTION_OP, */
- "unless_null",
- "unless_null_s_ic",
- "Parrot_unless_null_s_ic",
- /* "", body */
- PARROT_JUMP_RELATIVE,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 1 }
- },
- { /* 325 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_i_i",
- "Parrot_cmp_i_i_i",
+ "isne",
+ "isne_i_i_i",
+ "Parrot_isne_i_i_i",
/* "", body */
0,
4,
@@ -5258,11 +4986,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 326 */
+ { /* 319 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_ic_i",
- "Parrot_cmp_i_ic_i",
+ "isne",
+ "isne_i_ic_i",
+ "Parrot_isne_i_ic_i",
/* "", body */
0,
4,
@@ -5270,11 +4998,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 327 */
+ { /* 320 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_i_ic",
- "Parrot_cmp_i_i_ic",
+ "isne",
+ "isne_i_i_ic",
+ "Parrot_isne_i_i_ic",
/* "", body */
0,
4,
@@ -5282,11 +5010,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 328 */
+ { /* 321 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_n_n",
- "Parrot_cmp_i_n_n",
+ "isne",
+ "isne_i_n_n",
+ "Parrot_isne_i_n_n",
/* "", body */
0,
4,
@@ -5294,11 +5022,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 329 */
+ { /* 322 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_nc_n",
- "Parrot_cmp_i_nc_n",
+ "isne",
+ "isne_i_nc_n",
+ "Parrot_isne_i_nc_n",
/* "", body */
0,
4,
@@ -5306,11 +5034,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 330 */
+ { /* 323 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_n_nc",
- "Parrot_cmp_i_n_nc",
+ "isne",
+ "isne_i_n_nc",
+ "Parrot_isne_i_n_nc",
/* "", body */
0,
4,
@@ -5318,11 +5046,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 331 */
+ { /* 324 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_s_s",
- "Parrot_cmp_i_s_s",
+ "isne",
+ "isne_i_s_s",
+ "Parrot_isne_i_s_s",
/* "", body */
0,
4,
@@ -5330,11 +5058,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 332 */
+ { /* 325 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_sc_s",
- "Parrot_cmp_i_sc_s",
+ "isne",
+ "isne_i_sc_s",
+ "Parrot_isne_i_sc_s",
/* "", body */
0,
4,
@@ -5342,11 +5070,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 333 */
+ { /* 326 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_s_sc",
- "Parrot_cmp_i_s_sc",
+ "isne",
+ "isne_i_s_sc",
+ "Parrot_isne_i_s_sc",
/* "", body */
0,
4,
@@ -5354,11 +5082,11 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 334 */
+ { /* 327 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_p",
- "Parrot_cmp_i_p_p",
+ "isne",
+ "isne_i_p_p",
+ "Parrot_isne_i_p_p",
/* "", body */
0,
4,
@@ -5366,1619 +5094,1703 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 335 */
+ { /* 328 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_i",
- "Parrot_cmp_i_p_i",
+ "and",
+ "and_i_i_i",
+ "Parrot_and_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 336 */
+ { /* 329 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_ic",
- "Parrot_cmp_i_p_ic",
+ "and",
+ "and_i_ic_i",
+ "Parrot_and_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 337 */
+ { /* 330 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_n",
- "Parrot_cmp_i_p_n",
+ "and",
+ "and_i_i_ic",
+ "Parrot_and_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 338 */
+ { /* 331 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_nc",
- "Parrot_cmp_i_p_nc",
+ "and",
+ "and_p_p_p",
+ "Parrot_and_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 339 */
+ { /* 332 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_s",
- "Parrot_cmp_i_p_s",
+ "not",
+ "not_i",
+ "Parrot_not_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
- { /* 340 */
+ { /* 333 */
/* type PARROT_INLINE_OP, */
- "cmp",
- "cmp_i_p_sc",
- "Parrot_cmp_i_p_sc",
+ "not",
+ "not_i_i",
+ "Parrot_not_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
- { /* 341 */
+ { /* 334 */
/* type PARROT_INLINE_OP, */
- "cmp_str",
- "cmp_str_i_p_p",
- "Parrot_cmp_str_i_p_p",
+ "not",
+ "not_p",
+ "Parrot_not_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 342 */
+ { /* 335 */
/* type PARROT_INLINE_OP, */
- "cmp_num",
- "cmp_num_i_p_p",
- "Parrot_cmp_num_i_p_p",
+ "not",
+ "not_p_p",
+ "Parrot_not_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
- { /* 343 */
+ { /* 336 */
/* type PARROT_INLINE_OP, */
- "cmp_pmc",
- "cmp_pmc_p_p_p",
- "Parrot_cmp_pmc_p_p_p",
+ "or",
+ "or_i_i_i",
+ "Parrot_or_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 344 */
+ { /* 337 */
/* type PARROT_INLINE_OP, */
- "issame",
- "issame_i_p_p",
- "Parrot_issame_i_p_p",
+ "or",
+ "or_i_ic_i",
+ "Parrot_or_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 345 */
+ { /* 338 */
/* type PARROT_INLINE_OP, */
- "issame",
- "issame_i_s_s",
- "Parrot_issame_i_s_s",
+ "or",
+ "or_i_i_ic",
+ "Parrot_or_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 346 */
+ { /* 339 */
/* type PARROT_INLINE_OP, */
- "issame",
- "issame_i_sc_s",
- "Parrot_issame_i_sc_s",
+ "or",
+ "or_p_p_p",
+ "Parrot_or_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 347 */
+ { /* 340 */
/* type PARROT_INLINE_OP, */
- "issame",
- "issame_i_s_sc",
- "Parrot_issame_i_s_sc",
+ "xor",
+ "xor_i_i_i",
+ "Parrot_xor_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 348 */
+ { /* 341 */
/* type PARROT_INLINE_OP, */
- "issame",
- "issame_i_sc_sc",
- "Parrot_issame_i_sc_sc",
+ "xor",
+ "xor_i_ic_i",
+ "Parrot_xor_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 349 */
+ { /* 342 */
/* type PARROT_INLINE_OP, */
- "isntsame",
- "isntsame_i_p_p",
- "Parrot_isntsame_i_p_p",
+ "xor",
+ "xor_i_i_ic",
+ "Parrot_xor_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 350 */
+ { /* 343 */
/* type PARROT_INLINE_OP, */
- "isntsame",
- "isntsame_i_s_s",
- "Parrot_isntsame_i_s_s",
+ "xor",
+ "xor_p_p_p",
+ "Parrot_xor_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 351 */
+ { /* 344 */
/* type PARROT_INLINE_OP, */
- "isntsame",
- "isntsame_i_sc_s",
- "Parrot_isntsame_i_sc_s",
+ "print",
+ "print_i",
+ "Parrot_print_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 352 */
+ { /* 345 */
/* type PARROT_INLINE_OP, */
- "isntsame",
- "isntsame_i_s_sc",
- "Parrot_isntsame_i_s_sc",
+ "print",
+ "print_ic",
+ "Parrot_print_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 353 */
+ { /* 346 */
/* type PARROT_INLINE_OP, */
- "isntsame",
- "isntsame_i_sc_sc",
- "Parrot_isntsame_i_sc_sc",
+ "print",
+ "print_n",
+ "Parrot_print_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 354 */
+ { /* 347 */
/* type PARROT_INLINE_OP, */
- "istrue",
- "istrue_i_p",
- "Parrot_istrue_i_p",
+ "print",
+ "print_nc",
+ "Parrot_print_nc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 355 */
+ { /* 348 */
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_s",
+ "Parrot_print_s",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_S },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 349 */
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_sc",
+ "Parrot_print_sc",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 350 */
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p",
+ "Parrot_print_p",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 351 */
/* type PARROT_INLINE_OP, */
- "isfalse",
- "isfalse_i_p",
- "Parrot_isfalse_i_p",
+ "say",
+ "say_i",
+ "Parrot_say_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 356 */
+ { /* 352 */
/* type PARROT_INLINE_OP, */
- "isnull",
- "isnull_i_p",
- "Parrot_isnull_i_p",
+ "say",
+ "say_ic",
+ "Parrot_say_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 357 */
+ { /* 353 */
/* type PARROT_INLINE_OP, */
- "isnull",
- "isnull_i_pc",
- "Parrot_isnull_i_pc",
+ "say",
+ "say_n",
+ "Parrot_say_n",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
- { /* 358 */
+ { /* 354 */
/* type PARROT_INLINE_OP, */
- "isnull",
- "isnull_i_s",
- "Parrot_isnull_i_s",
+ "say",
+ "say_nc",
+ "Parrot_say_nc",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 355 */
+ /* type PARROT_FUNCTION_OP, */
+ "say",
+ "say_s",
+ "Parrot_say_s",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_S },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 356 */
+ /* type PARROT_FUNCTION_OP, */
+ "say",
+ "say_sc",
+ "Parrot_say_sc",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 357 */
+ /* type PARROT_FUNCTION_OP, */
+ "say",
+ "say_p",
+ "Parrot_say_p",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 358 */
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_i",
+ "Parrot_print_p_i",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 359 */
- /* type PARROT_INLINE_OP, */
- "isnull",
- "isnull_i_sc",
- "Parrot_isnull_i_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_ic",
+ "Parrot_print_p_ic",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 360 */
- /* type PARROT_INLINE_OP, */
- "isgt",
- "isgt_i_p_p",
- "Parrot_isgt_i_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_n",
+ "Parrot_print_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 361 */
- /* type PARROT_INLINE_OP, */
- "isge",
- "isge_i_p_p",
- "Parrot_isge_i_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_nc",
+ "Parrot_print_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 362 */
- /* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_i_i",
- "Parrot_isle_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_s",
+ "Parrot_print_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 363 */
- /* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_ic_i",
- "Parrot_isle_i_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_sc",
+ "Parrot_print_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 364 */
- /* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_i_ic",
- "Parrot_isle_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "print",
+ "print_p_p",
+ "Parrot_print_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 365 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_n_n",
- "Parrot_isle_i_n_n",
+ "abs",
+ "abs_i",
+ "Parrot_abs_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 366 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_nc_n",
- "Parrot_isle_i_nc_n",
+ "abs",
+ "abs_n",
+ "Parrot_abs_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 367 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_n_nc",
- "Parrot_isle_i_n_nc",
+ "abs",
+ "abs_i_i",
+ "Parrot_abs_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 368 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_s_s",
- "Parrot_isle_i_s_s",
+ "abs",
+ "abs_n_n",
+ "Parrot_abs_n_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 369 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_sc_s",
- "Parrot_isle_i_sc_s",
+ "abs",
+ "abs_p",
+ "Parrot_abs_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 370 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_s_sc",
- "Parrot_isle_i_s_sc",
+ "abs",
+ "abs_p_p",
+ "Parrot_abs_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 371 */
/* type PARROT_INLINE_OP, */
- "isle",
- "isle_i_p_p",
- "Parrot_isle_i_p_p",
+ "add",
+ "add_i_i",
+ "Parrot_add_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 372 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_i_i",
- "Parrot_islt_i_i_i",
+ "add",
+ "add_i_ic",
+ "Parrot_add_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 373 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_ic_i",
- "Parrot_islt_i_ic_i",
+ "add",
+ "add_n_n",
+ "Parrot_add_n_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 374 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_i_ic",
- "Parrot_islt_i_i_ic",
+ "add",
+ "add_n_nc",
+ "Parrot_add_n_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 375 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_n_n",
- "Parrot_islt_i_n_n",
+ "add",
+ "add_p_p",
+ "Parrot_add_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 376 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_nc_n",
- "Parrot_islt_i_nc_n",
+ "add",
+ "add_p_i",
+ "Parrot_add_p_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 377 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_n_nc",
- "Parrot_islt_i_n_nc",
+ "add",
+ "add_p_ic",
+ "Parrot_add_p_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 378 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_s_s",
- "Parrot_islt_i_s_s",
+ "add",
+ "add_p_n",
+ "Parrot_add_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 379 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_sc_s",
- "Parrot_islt_i_sc_s",
+ "add",
+ "add_p_nc",
+ "Parrot_add_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 380 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_s_sc",
- "Parrot_islt_i_s_sc",
+ "add",
+ "add_i_i_i",
+ "Parrot_add_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 381 */
/* type PARROT_INLINE_OP, */
- "islt",
- "islt_i_p_p",
- "Parrot_islt_i_p_p",
+ "add",
+ "add_i_ic_i",
+ "Parrot_add_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 382 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_i_i",
- "Parrot_iseq_i_i_i",
+ "add",
+ "add_i_i_ic",
+ "Parrot_add_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 383 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_ic_i",
- "Parrot_iseq_i_ic_i",
+ "add",
+ "add_n_n_n",
+ "Parrot_add_n_n_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 384 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_i_ic",
- "Parrot_iseq_i_i_ic",
+ "add",
+ "add_n_nc_n",
+ "Parrot_add_n_nc_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 385 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_n_n",
- "Parrot_iseq_i_n_n",
+ "add",
+ "add_n_n_nc",
+ "Parrot_add_n_n_nc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 386 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_nc_n",
- "Parrot_iseq_i_nc_n",
+ "add",
+ "add_p_p_p",
+ "Parrot_add_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 387 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_n_nc",
- "Parrot_iseq_i_n_nc",
+ "add",
+ "add_p_p_i",
+ "Parrot_add_p_p_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 388 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_s_s",
- "Parrot_iseq_i_s_s",
+ "add",
+ "add_p_p_ic",
+ "Parrot_add_p_p_ic",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 389 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_sc_s",
- "Parrot_iseq_i_sc_s",
+ "add",
+ "add_p_p_n",
+ "Parrot_add_p_p_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 390 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_s_sc",
- "Parrot_iseq_i_s_sc",
+ "add",
+ "add_p_p_nc",
+ "Parrot_add_p_p_nc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 391 */
/* type PARROT_INLINE_OP, */
- "iseq",
- "iseq_i_p_p",
- "Parrot_iseq_i_p_p",
+ "dec",
+ "dec_i",
+ "Parrot_dec_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 392 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_i_i",
- "Parrot_isne_i_i_i",
+ "dec",
+ "dec_n",
+ "Parrot_dec_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 393 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_ic_i",
- "Parrot_isne_i_ic_i",
+ "dec",
+ "dec_p",
+ "Parrot_dec_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 394 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_i_ic",
- "Parrot_isne_i_i_ic",
+ "div",
+ "div_i_i",
+ "Parrot_div_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 395 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_n_n",
- "Parrot_isne_i_n_n",
+ "div",
+ "div_i_ic",
+ "Parrot_div_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 396 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_nc_n",
- "Parrot_isne_i_nc_n",
+ "div",
+ "div_n_n",
+ "Parrot_div_n_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 397 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_n_nc",
- "Parrot_isne_i_n_nc",
+ "div",
+ "div_n_nc",
+ "Parrot_div_n_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 398 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_s_s",
- "Parrot_isne_i_s_s",
+ "div",
+ "div_p_p",
+ "Parrot_div_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 399 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_sc_s",
- "Parrot_isne_i_sc_s",
+ "div",
+ "div_p_i",
+ "Parrot_div_p_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 400 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_s_sc",
- "Parrot_isne_i_s_sc",
+ "div",
+ "div_p_ic",
+ "Parrot_div_p_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 401 */
/* type PARROT_INLINE_OP, */
- "isne",
- "isne_i_p_p",
- "Parrot_isne_i_p_p",
+ "div",
+ "div_p_n",
+ "Parrot_div_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 402 */
/* type PARROT_INLINE_OP, */
- "and",
- "and_i_i_i",
- "Parrot_and_i_i_i",
+ "div",
+ "div_p_nc",
+ "Parrot_div_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 403 */
/* type PARROT_INLINE_OP, */
- "and",
- "and_i_ic_i",
- "Parrot_and_i_ic_i",
+ "div",
+ "div_i_i_i",
+ "Parrot_div_i_i_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 404 */
/* type PARROT_INLINE_OP, */
- "and",
- "and_i_i_ic",
- "Parrot_and_i_i_ic",
+ "div",
+ "div_i_ic_i",
+ "Parrot_div_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 405 */
/* type PARROT_INLINE_OP, */
- "and",
- "and_p_p_p",
- "Parrot_and_p_p_p",
+ "div",
+ "div_i_i_ic",
+ "Parrot_div_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 406 */
/* type PARROT_INLINE_OP, */
- "not",
- "not_i",
- "Parrot_not_i",
+ "div",
+ "div_i_ic_ic",
+ "Parrot_div_i_ic_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 407 */
/* type PARROT_INLINE_OP, */
- "not",
- "not_i_i",
- "Parrot_not_i_i",
+ "div",
+ "div_n_n_n",
+ "Parrot_div_n_n_n",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
{ /* 408 */
/* type PARROT_INLINE_OP, */
- "not",
- "not_p",
- "Parrot_not_p",
+ "div",
+ "div_n_nc_n",
+ "Parrot_div_n_nc_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 409 */
/* type PARROT_INLINE_OP, */
- "not",
- "not_p_p",
- "Parrot_not_p_p",
+ "div",
+ "div_n_n_nc",
+ "Parrot_div_n_n_nc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 410 */
/* type PARROT_INLINE_OP, */
- "or",
- "or_i_i_i",
- "Parrot_or_i_i_i",
+ "div",
+ "div_n_nc_nc",
+ "Parrot_div_n_nc_nc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_NC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 411 */
/* type PARROT_INLINE_OP, */
- "or",
- "or_i_ic_i",
- "Parrot_or_i_ic_i",
+ "div",
+ "div_p_p_p",
+ "Parrot_div_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 412 */
/* type PARROT_INLINE_OP, */
- "or",
- "or_i_i_ic",
- "Parrot_or_i_i_ic",
+ "div",
+ "div_p_p_i",
+ "Parrot_div_p_p_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 413 */
/* type PARROT_INLINE_OP, */
- "or",
- "or_p_p_p",
- "Parrot_or_p_p_p",
+ "div",
+ "div_p_p_ic",
+ "Parrot_div_p_p_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 414 */
/* type PARROT_INLINE_OP, */
- "xor",
- "xor_i_i_i",
- "Parrot_xor_i_i_i",
+ "div",
+ "div_p_p_n",
+ "Parrot_div_p_p_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 415 */
/* type PARROT_INLINE_OP, */
- "xor",
- "xor_i_ic_i",
- "Parrot_xor_i_ic_i",
+ "div",
+ "div_p_p_nc",
+ "Parrot_div_p_p_nc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 416 */
/* type PARROT_INLINE_OP, */
- "xor",
- "xor_i_i_ic",
- "Parrot_xor_i_i_ic",
+ "fdiv",
+ "fdiv_i_i",
+ "Parrot_fdiv_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 417 */
/* type PARROT_INLINE_OP, */
- "xor",
- "xor_p_p_p",
- "Parrot_xor_p_p_p",
+ "fdiv",
+ "fdiv_i_ic",
+ "Parrot_fdiv_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 418 */
- /* type PARROT_FUNCTION_OP, */
- "debug_init",
- "debug_init",
- "Parrot_debug_init",
+ /* type PARROT_INLINE_OP, */
+ "fdiv",
+ "fdiv_n_n",
+ "Parrot_fdiv_n_n",
/* "", body */
0,
- 1,
- { (arg_type_t) 0 },
- { (arg_dir_t) 0 },
- { 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 419 */
- /* type PARROT_FUNCTION_OP, */
- "debug_load",
- "debug_load_sc",
- "Parrot_debug_load_sc",
+ /* type PARROT_INLINE_OP, */
+ "fdiv",
+ "fdiv_n_nc",
+ "Parrot_fdiv_n_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_SC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 420 */
- /* type PARROT_FUNCTION_OP, */
- "debug_break",
- "debug_break",
- "Parrot_debug_break",
+ /* type PARROT_INLINE_OP, */
+ "fdiv",
+ "fdiv_p_p",
+ "Parrot_fdiv_p_p",
/* "", body */
0,
- 1,
- { (arg_type_t) 0 },
- { (arg_dir_t) 0 },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 421 */
- /* type PARROT_FUNCTION_OP, */
- "debug_print",
- "debug_print",
- "Parrot_debug_print",
+ /* type PARROT_INLINE_OP, */
+ "fdiv",
+ "fdiv_p_i",
+ "Parrot_fdiv_p_i",
/* "", body */
0,
- 1,
- { (arg_type_t) 0 },
- { (arg_dir_t) 0 },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 422 */
- /* type PARROT_FUNCTION_OP, */
- "backtrace",
- "backtrace",
- "Parrot_backtrace",
+ /* type PARROT_INLINE_OP, */
+ "fdiv",
+ "fdiv_p_ic",
+ "Parrot_fdiv_p_ic",
/* "", body */
0,
- 1,
- { (arg_type_t) 0 },
- { (arg_dir_t) 0 },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 423 */
/* type PARROT_INLINE_OP, */
- "getline",
- "getline_i",
- "Parrot_getline_i",
+ "fdiv",
+ "fdiv_p_n",
+ "Parrot_fdiv_p_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 424 */
/* type PARROT_INLINE_OP, */
- "getfile",
- "getfile_s",
- "Parrot_getfile_s",
+ "fdiv",
+ "fdiv_p_nc",
+ "Parrot_fdiv_p_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 425 */
/* type PARROT_INLINE_OP, */
- "close",
- "close_p",
- "Parrot_close_p",
+ "fdiv",
+ "fdiv_i_i_i",
+ "Parrot_fdiv_i_i_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 426 */
/* type PARROT_INLINE_OP, */
- "fdopen",
- "fdopen_p_i_s",
- "Parrot_fdopen_p_i_s",
+ "fdiv",
+ "fdiv_i_ic_i",
+ "Parrot_fdiv_i_ic_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 427 */
/* type PARROT_INLINE_OP, */
- "fdopen",
- "fdopen_p_ic_s",
- "Parrot_fdopen_p_ic_s",
+ "fdiv",
+ "fdiv_i_i_ic",
+ "Parrot_fdiv_i_i_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 428 */
/* type PARROT_INLINE_OP, */
- "fdopen",
- "fdopen_p_i_sc",
- "Parrot_fdopen_p_i_sc",
+ "fdiv",
+ "fdiv_n_n_n",
+ "Parrot_fdiv_n_n_n",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 429 */
/* type PARROT_INLINE_OP, */
- "fdopen",
- "fdopen_p_ic_sc",
- "Parrot_fdopen_p_ic_sc",
+ "fdiv",
+ "fdiv_n_nc_n",
+ "Parrot_fdiv_n_nc_n",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_SC },
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 430 */
/* type PARROT_INLINE_OP, */
- "getstdin",
- "getstdin_p",
- "Parrot_getstdin_p",
+ "fdiv",
+ "fdiv_n_n_nc",
+ "Parrot_fdiv_n_n_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 431 */
/* type PARROT_INLINE_OP, */
- "getstdout",
- "getstdout_p",
- "Parrot_getstdout_p",
+ "fdiv",
+ "fdiv_p_p_p",
+ "Parrot_fdiv_p_p_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 432 */
/* type PARROT_INLINE_OP, */
- "getstderr",
- "getstderr_p",
- "Parrot_getstderr_p",
+ "fdiv",
+ "fdiv_p_p_i",
+ "Parrot_fdiv_p_p_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 433 */
/* type PARROT_INLINE_OP, */
- "setstdin",
- "setstdin_p",
- "Parrot_setstdin_p",
+ "fdiv",
+ "fdiv_p_p_ic",
+ "Parrot_fdiv_p_p_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 434 */
/* type PARROT_INLINE_OP, */
- "setstdout",
- "setstdout_p",
- "Parrot_setstdout_p",
+ "fdiv",
+ "fdiv_p_p_n",
+ "Parrot_fdiv_p_p_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 435 */
/* type PARROT_INLINE_OP, */
- "setstderr",
- "setstderr_p",
- "Parrot_setstderr_p",
+ "fdiv",
+ "fdiv_p_p_nc",
+ "Parrot_fdiv_p_p_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 436 */
/* type PARROT_INLINE_OP, */
- "open",
- "open_p_s_s",
- "Parrot_open_p_s_s",
+ "ceil",
+ "ceil_n",
+ "Parrot_ceil_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 437 */
/* type PARROT_INLINE_OP, */
- "open",
- "open_p_sc_s",
- "Parrot_open_p_sc_s",
+ "ceil",
+ "ceil_i_n",
+ "Parrot_ceil_i_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 438 */
/* type PARROT_INLINE_OP, */
- "open",
- "open_p_s_sc",
- "Parrot_open_p_s_sc",
+ "ceil",
+ "ceil_n_n",
+ "Parrot_ceil_n_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 439 */
/* type PARROT_INLINE_OP, */
- "open",
- "open_p_sc_sc",
- "Parrot_open_p_sc_sc",
+ "floor",
+ "floor_n",
+ "Parrot_floor_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 440 */
/* type PARROT_INLINE_OP, */
- "open",
- "open_p_s",
- "Parrot_open_p_s",
+ "floor",
+ "floor_i_n",
+ "Parrot_floor_i_n",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 441 */
/* type PARROT_INLINE_OP, */
- "open",
- "open_p_sc",
- "Parrot_open_p_sc",
+ "floor",
+ "floor_n_n",
+ "Parrot_floor_n_n",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARG_N, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 442 */
/* type PARROT_INLINE_OP, */
- "print",
- "print_i",
- "Parrot_print_i",
+ "inc",
+ "inc_i",
+ "Parrot_inc_i",
/* "", body */
0,
2,
{ PARROT_ARG_I },
- { PARROT_ARGDIR_IN },
+ { PARROT_ARGDIR_INOUT },
{ 0 }
},
{ /* 443 */
/* type PARROT_INLINE_OP, */
- "print",
- "print_ic",
- "Parrot_print_ic",
+ "inc",
+ "inc_n",
+ "Parrot_inc_n",
/* "", body */
0,
2,
- { PARROT_ARG_IC },
- { PARROT_ARGDIR_IN },
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT },
{ 0 }
},
{ /* 444 */
/* type PARROT_INLINE_OP, */
- "print",
- "print_n",
- "Parrot_print_n",
+ "inc",
+ "inc_p",
+ "Parrot_inc_p",
/* "", body */
0,
2,
- { PARROT_ARG_N },
+ { PARROT_ARG_P },
{ PARROT_ARGDIR_IN },
{ 0 }
},
{ /* 445 */
- /* type PARROT_INLINE_OP, */
- "print",
- "print_nc",
- "Parrot_print_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "mod",
+ "mod_i_i",
+ "Parrot_mod_i_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_NC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 446 */
/* type PARROT_FUNCTION_OP, */
- "print",
- "print_s",
- "Parrot_print_s",
+ "mod",
+ "mod_i_ic",
+ "Parrot_mod_i_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 447 */
/* type PARROT_FUNCTION_OP, */
- "print",
- "print_sc",
- "Parrot_print_sc",
+ "mod",
+ "mod_n_n",
+ "Parrot_mod_n_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_SC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 448 */
/* type PARROT_FUNCTION_OP, */
- "print",
- "print_p",
- "Parrot_print_p",
+ "mod",
+ "mod_n_nc",
+ "Parrot_mod_n_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 449 */
/* type PARROT_INLINE_OP, */
- "say",
- "say_i",
- "Parrot_say_i",
+ "mod",
+ "mod_p_p",
+ "Parrot_mod_p_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 450 */
/* type PARROT_INLINE_OP, */
- "say",
- "say_ic",
- "Parrot_say_ic",
+ "mod",
+ "mod_p_i",
+ "Parrot_mod_p_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_IC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 451 */
/* type PARROT_INLINE_OP, */
- "say",
- "say_n",
- "Parrot_say_n",
+ "mod",
+ "mod_p_ic",
+ "Parrot_mod_p_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 452 */
/* type PARROT_INLINE_OP, */
- "say",
- "say_nc",
- "Parrot_say_nc",
+ "mod",
+ "mod_p_n",
+ "Parrot_mod_p_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_NC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 453 */
- /* type PARROT_FUNCTION_OP, */
- "say",
- "say_s",
- "Parrot_say_s",
+ /* type PARROT_INLINE_OP, */
+ "mod",
+ "mod_p_nc",
+ "Parrot_mod_p_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 454 */
/* type PARROT_FUNCTION_OP, */
- "say",
- "say_sc",
- "Parrot_say_sc",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_SC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ "mod",
+ "mod_i_i_i",
+ "Parrot_mod_i_i_i",
+ /* "", body */
+ 0,
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 455 */
/* type PARROT_FUNCTION_OP, */
- "say",
- "say_p",
- "Parrot_say_p",
+ "mod",
+ "mod_i_ic_i",
+ "Parrot_mod_i_ic_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 456 */
/* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_i",
- "Parrot_printerr_i",
+ "mod",
+ "mod_i_i_ic",
+ "Parrot_mod_i_i_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 457 */
/* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_ic",
- "Parrot_printerr_ic",
+ "mod",
+ "mod_n_n_n",
+ "Parrot_mod_n_n_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_IC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 458 */
/* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_n",
- "Parrot_printerr_n",
+ "mod",
+ "mod_n_nc_n",
+ "Parrot_mod_n_nc_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 459 */
/* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_nc",
- "Parrot_printerr_nc",
+ "mod",
+ "mod_n_n_nc",
+ "Parrot_mod_n_n_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_NC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 460 */
- /* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_s",
- "Parrot_printerr_s",
+ /* type PARROT_INLINE_OP, */
+ "mod",
+ "mod_p_p_p",
+ "Parrot_mod_p_p_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 461 */
- /* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_sc",
- "Parrot_printerr_sc",
+ /* type PARROT_INLINE_OP, */
+ "mod",
+ "mod_p_p_i",
+ "Parrot_mod_p_p_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_SC },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 462 */
- /* type PARROT_FUNCTION_OP, */
- "printerr",
- "printerr_p",
- "Parrot_printerr_p",
+ /* type PARROT_INLINE_OP, */
+ "mod",
+ "mod_p_p_ic",
+ "Parrot_mod_p_p_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 463 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_i",
- "Parrot_print_p_i",
+ /* type PARROT_INLINE_OP, */
+ "mod",
+ "mod_p_p_n",
+ "Parrot_mod_p_p_n",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 464 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_ic",
- "Parrot_print_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "mod",
+ "mod_p_p_nc",
+ "Parrot_mod_p_p_nc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 465 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_n",
- "Parrot_print_p_n",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_i_i",
+ "Parrot_mul_i_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 466 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_nc",
- "Parrot_print_p_nc",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_i_ic",
+ "Parrot_mul_i_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 467 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_s",
- "Parrot_print_p_s",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_n_n",
+ "Parrot_mul_n_n",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 468 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_sc",
- "Parrot_print_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_n_nc",
+ "Parrot_mul_n_nc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 469 */
- /* type PARROT_FUNCTION_OP, */
- "print",
- "print_p_p",
- "Parrot_print_p_p",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_p",
+ "Parrot_mul_p_p",
/* "", body */
0,
3,
@@ -6987,2614 +6799,2614 @@
{ 0, 0 }
},
{ /* 470 */
- /* type PARROT_FUNCTION_OP, */
- "read",
- "read_s_i",
- "Parrot_read_s_i",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_i",
+ "Parrot_mul_p_i",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 471 */
- /* type PARROT_FUNCTION_OP, */
- "read",
- "read_s_ic",
- "Parrot_read_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_ic",
+ "Parrot_mul_p_ic",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 472 */
- /* type PARROT_FUNCTION_OP, */
- "read",
- "read_s_p_i",
- "Parrot_read_s_p_i",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_n",
+ "Parrot_mul_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 473 */
- /* type PARROT_FUNCTION_OP, */
- "read",
- "read_s_p_ic",
- "Parrot_read_s_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_nc",
+ "Parrot_mul_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 474 */
/* type PARROT_INLINE_OP, */
- "readline",
- "readline_s_p",
- "Parrot_readline_s_p",
+ "mul",
+ "mul_i_i_i",
+ "Parrot_mul_i_i_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 475 */
- /* type PARROT_FUNCTION_OP, */
- "peek",
- "peek_s",
- "Parrot_peek_s",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_i_ic_i",
+ "Parrot_mul_i_ic_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 476 */
- /* type PARROT_FUNCTION_OP, */
- "peek",
- "peek_s_p",
- "Parrot_peek_s_p",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_i_i_ic",
+ "Parrot_mul_i_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 477 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_s_i",
- "Parrot_stat_i_s_i",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_n_n_n",
+ "Parrot_mul_n_n_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 478 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_sc_i",
- "Parrot_stat_i_sc_i",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_n_nc_n",
+ "Parrot_mul_n_nc_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 479 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_s_ic",
- "Parrot_stat_i_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_n_n_nc",
+ "Parrot_mul_n_n_nc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 480 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_sc_ic",
- "Parrot_stat_i_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_p_p",
+ "Parrot_mul_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 481 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_i_i",
- "Parrot_stat_i_i_i",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_p_i",
+ "Parrot_mul_p_p_i",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 482 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_ic_i",
- "Parrot_stat_i_ic_i",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_p_ic",
+ "Parrot_mul_p_p_ic",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 483 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_i_ic",
- "Parrot_stat_i_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_p_n",
+ "Parrot_mul_p_p_n",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 484 */
- /* type PARROT_FUNCTION_OP, */
- "stat",
- "stat_i_ic_ic",
- "Parrot_stat_i_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "mul",
+ "mul_p_p_nc",
+ "Parrot_mul_p_p_nc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 485 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_i_i",
- "Parrot_seek_p_i_i",
+ /* type PARROT_INLINE_OP, */
+ "neg",
+ "neg_i",
+ "Parrot_neg_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 486 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_ic_i",
- "Parrot_seek_p_ic_i",
+ /* type PARROT_INLINE_OP, */
+ "neg",
+ "neg_n",
+ "Parrot_neg_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 487 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_i_ic",
- "Parrot_seek_p_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "neg",
+ "neg_p",
+ "Parrot_neg_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 488 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_ic_ic",
- "Parrot_seek_p_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "neg",
+ "neg_i_i",
+ "Parrot_neg_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 489 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_i_i_i",
- "Parrot_seek_p_i_i_i",
+ /* type PARROT_INLINE_OP, */
+ "neg",
+ "neg_n_n",
+ "Parrot_neg_n_n",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 490 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_ic_i_i",
- "Parrot_seek_p_ic_i_i",
+ /* type PARROT_INLINE_OP, */
+ "neg",
+ "neg_p_p",
+ "Parrot_neg_p_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 491 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_i_ic_i",
- "Parrot_seek_p_i_ic_i",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_i_i",
+ "Parrot_sub_i_i",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 492 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_ic_ic_i",
- "Parrot_seek_p_ic_ic_i",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_i_ic",
+ "Parrot_sub_i_ic",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 493 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_i_i_ic",
- "Parrot_seek_p_i_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_n_n",
+ "Parrot_sub_n_n",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 494 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_ic_i_ic",
- "Parrot_seek_p_ic_i_ic",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_n_nc",
+ "Parrot_sub_n_nc",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 495 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_i_ic_ic",
- "Parrot_seek_p_i_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_p_p",
+ "Parrot_sub_p_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 496 */
- /* type PARROT_FUNCTION_OP, */
- "seek",
- "seek_p_ic_ic_ic",
- "Parrot_seek_p_ic_ic_ic",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_p_i",
+ "Parrot_sub_p_i",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 497 */
- /* type PARROT_FUNCTION_OP, */
- "tell",
- "tell_i_p",
- "Parrot_tell_i_p",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_p_ic",
+ "Parrot_sub_p_ic",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 498 */
- /* type PARROT_FUNCTION_OP, */
- "tell",
- "tell_i_i_p",
- "Parrot_tell_i_i_p",
+ /* type PARROT_INLINE_OP, */
+ "sub",
+ "sub_p_n",
+ "Parrot_sub_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 499 */
/* type PARROT_INLINE_OP, */
- "abs",
- "abs_i",
- "Parrot_abs_i",
+ "sub",
+ "sub_p_nc",
+ "Parrot_sub_p_nc",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 500 */
/* type PARROT_INLINE_OP, */
- "abs",
- "abs_n",
- "Parrot_abs_n",
+ "sub",
+ "sub_i_i_i",
+ "Parrot_sub_i_i_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 501 */
/* type PARROT_INLINE_OP, */
- "abs",
- "abs_i_i",
- "Parrot_abs_i_i",
+ "sub",
+ "sub_i_ic_i",
+ "Parrot_sub_i_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 502 */
/* type PARROT_INLINE_OP, */
- "abs",
- "abs_n_n",
- "Parrot_abs_n_n",
+ "sub",
+ "sub_i_i_ic",
+ "Parrot_sub_i_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 503 */
/* type PARROT_INLINE_OP, */
- "abs",
- "abs_p",
- "Parrot_abs_p",
+ "sub",
+ "sub_n_n_n",
+ "Parrot_sub_n_n_n",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 504 */
/* type PARROT_INLINE_OP, */
- "abs",
- "abs_p_p",
- "Parrot_abs_p_p",
+ "sub",
+ "sub_n_nc_n",
+ "Parrot_sub_n_nc_n",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 505 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_i_i",
- "Parrot_add_i_i",
+ "sub",
+ "sub_n_n_nc",
+ "Parrot_sub_n_n_nc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 506 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_i_ic",
- "Parrot_add_i_ic",
+ "sub",
+ "sub_p_p_p",
+ "Parrot_sub_p_p_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 507 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_n_n",
- "Parrot_add_n_n",
+ "sub",
+ "sub_p_p_i",
+ "Parrot_sub_p_p_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 508 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_n_nc",
- "Parrot_add_n_nc",
+ "sub",
+ "sub_p_p_ic",
+ "Parrot_sub_p_p_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 509 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_p",
- "Parrot_add_p_p",
+ "sub",
+ "sub_p_p_n",
+ "Parrot_sub_p_p_n",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 510 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_i",
- "Parrot_add_p_i",
+ "sub",
+ "sub_p_p_nc",
+ "Parrot_sub_p_p_nc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 511 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_ic",
- "Parrot_add_p_ic",
+ "sqrt",
+ "sqrt_n_n",
+ "Parrot_sqrt_n_n",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 512 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_p_n",
- "Parrot_add_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "callmethodcc",
+ "callmethodcc_p_s",
+ "Parrot_callmethodcc_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 513 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_p_nc",
- "Parrot_add_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "callmethodcc",
+ "callmethodcc_p_sc",
+ "Parrot_callmethodcc_p_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 514 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_i_i_i",
- "Parrot_add_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "callmethodcc",
+ "callmethodcc_p_p",
+ "Parrot_callmethodcc_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 515 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_i_ic_i",
- "Parrot_add_i_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "callmethod",
+ "callmethod_p_s_p",
+ "Parrot_callmethod_p_s_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 516 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_i_i_ic",
- "Parrot_add_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "callmethod",
+ "callmethod_p_sc_p",
+ "Parrot_callmethod_p_sc_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 517 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_n_n_n",
- "Parrot_add_n_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "callmethod",
+ "callmethod_p_p_p",
+ "Parrot_callmethod_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 518 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_n_nc_n",
- "Parrot_add_n_nc_n",
+ /* type PARROT_FUNCTION_OP, */
+ "tailcallmethod",
+ "tailcallmethod_p_s",
+ "Parrot_tailcallmethod_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 519 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_n_n_nc",
- "Parrot_add_n_n_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "tailcallmethod",
+ "tailcallmethod_p_sc",
+ "Parrot_tailcallmethod_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 520 */
- /* type PARROT_INLINE_OP, */
- "add",
- "add_p_p_p",
- "Parrot_add_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "tailcallmethod",
+ "tailcallmethod_p_p",
+ "Parrot_tailcallmethod_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 521 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_p_i",
- "Parrot_add_p_p_i",
+ "addmethod",
+ "addmethod_p_s_p",
+ "Parrot_addmethod_p_s_p",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 522 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_p_ic",
- "Parrot_add_p_p_ic",
+ "addmethod",
+ "addmethod_p_sc_p",
+ "Parrot_addmethod_p_sc_p",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 523 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_p_n",
- "Parrot_add_p_p_n",
+ "can",
+ "can_i_p_s",
+ "Parrot_can_i_p_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 524 */
/* type PARROT_INLINE_OP, */
- "add",
- "add_p_p_nc",
- "Parrot_add_p_p_nc",
+ "can",
+ "can_i_p_sc",
+ "Parrot_can_i_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 525 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_i_i_i",
- "Parrot_cmod_i_i_i",
+ "does",
+ "does_i_p_s",
+ "Parrot_does_i_p_s",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 526 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_i_ic_i",
- "Parrot_cmod_i_ic_i",
+ "does",
+ "does_i_p_sc",
+ "Parrot_does_i_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 527 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_i_i_ic",
- "Parrot_cmod_i_i_ic",
+ "does",
+ "does_i_p_p",
+ "Parrot_does_i_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 528 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_p_p_i",
- "Parrot_cmod_p_p_i",
+ "does",
+ "does_i_p_pc",
+ "Parrot_does_i_p_pc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 529 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_p_p_ic",
- "Parrot_cmod_p_p_ic",
+ "isa",
+ "isa_i_p_s",
+ "Parrot_isa_i_p_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 530 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_p_p_p",
- "Parrot_cmod_p_p_p",
+ "isa",
+ "isa_i_p_sc",
+ "Parrot_isa_i_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 531 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_n_n_n",
- "Parrot_cmod_n_n_n",
+ "isa",
+ "isa_i_p_p",
+ "Parrot_isa_i_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 532 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_n_nc_n",
- "Parrot_cmod_n_nc_n",
+ "isa",
+ "isa_i_p_pc",
+ "Parrot_isa_i_p_pc",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 533 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_n_n_nc",
- "Parrot_cmod_n_n_nc",
+ "newclass",
+ "newclass_p_s",
+ "Parrot_newclass_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 534 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_p_p_n",
- "Parrot_cmod_p_p_n",
+ "newclass",
+ "newclass_p_sc",
+ "Parrot_newclass_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 535 */
/* type PARROT_INLINE_OP, */
- "cmod",
- "cmod_p_p_nc",
- "Parrot_cmod_p_p_nc",
+ "newclass",
+ "newclass_p_p",
+ "Parrot_newclass_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 536 */
/* type PARROT_INLINE_OP, */
- "dec",
- "dec_i",
- "Parrot_dec_i",
+ "newclass",
+ "newclass_p_pc",
+ "Parrot_newclass_p_pc",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 537 */
/* type PARROT_INLINE_OP, */
- "dec",
- "dec_n",
- "Parrot_dec_n",
+ "subclass",
+ "subclass_p_p",
+ "Parrot_subclass_p_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 538 */
/* type PARROT_INLINE_OP, */
- "dec",
- "dec_p",
- "Parrot_dec_p",
+ "subclass",
+ "subclass_p_pc",
+ "Parrot_subclass_p_pc",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 539 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_i_i",
- "Parrot_div_i_i",
+ "subclass",
+ "subclass_p_p_s",
+ "Parrot_subclass_p_p_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 540 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_i_ic",
- "Parrot_div_i_ic",
+ "subclass",
+ "subclass_p_pc_s",
+ "Parrot_subclass_p_pc_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 541 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_n_n",
- "Parrot_div_n_n",
+ "subclass",
+ "subclass_p_p_sc",
+ "Parrot_subclass_p_p_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 542 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_n_nc",
- "Parrot_div_n_nc",
+ "subclass",
+ "subclass_p_pc_sc",
+ "Parrot_subclass_p_pc_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 543 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_p",
- "Parrot_div_p_p",
- /* "", body */
+ "subclass",
+ "subclass_p_p_p",
+ "Parrot_subclass_p_p_p",
+ /* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 544 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_i",
- "Parrot_div_p_i",
+ "subclass",
+ "subclass_p_pc_p",
+ "Parrot_subclass_p_pc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 545 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_ic",
- "Parrot_div_p_ic",
+ "subclass",
+ "subclass_p_p_pc",
+ "Parrot_subclass_p_p_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 546 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_n",
- "Parrot_div_p_n",
+ "subclass",
+ "subclass_p_pc_pc",
+ "Parrot_subclass_p_pc_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 547 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_p_nc",
- "Parrot_div_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_s",
+ "Parrot_subclass_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 548 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_i_i_i",
- "Parrot_div_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_sc",
+ "Parrot_subclass_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 549 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_i_ic_i",
- "Parrot_div_i_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_s_s",
+ "Parrot_subclass_p_s_s",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 550 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_i_i_ic",
- "Parrot_div_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_sc_s",
+ "Parrot_subclass_p_sc_s",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 551 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_i_ic_ic",
- "Parrot_div_i_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_s_sc",
+ "Parrot_subclass_p_s_sc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 552 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_n_n_n",
- "Parrot_div_n_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_sc_sc",
+ "Parrot_subclass_p_sc_sc",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 553 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_n_nc_n",
- "Parrot_div_n_nc_n",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_s_p",
+ "Parrot_subclass_p_s_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 554 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_n_n_nc",
- "Parrot_div_n_n_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_sc_p",
+ "Parrot_subclass_p_sc_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 555 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_n_nc_nc",
- "Parrot_div_n_nc_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_s_pc",
+ "Parrot_subclass_p_s_pc",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_NC },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 556 */
- /* type PARROT_INLINE_OP, */
- "div",
- "div_p_p_p",
- "Parrot_div_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "subclass",
+ "subclass_p_sc_pc",
+ "Parrot_subclass_p_sc_pc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 557 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_p_i",
- "Parrot_div_p_p_i",
+ "get_class",
+ "get_class_p_s",
+ "Parrot_get_class_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 558 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_p_ic",
- "Parrot_div_p_p_ic",
+ "get_class",
+ "get_class_p_sc",
+ "Parrot_get_class_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 559 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_p_n",
- "Parrot_div_p_p_n",
+ "get_class",
+ "get_class_p_p",
+ "Parrot_get_class_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 560 */
/* type PARROT_INLINE_OP, */
- "div",
- "div_p_p_nc",
- "Parrot_div_p_p_nc",
+ "get_class",
+ "get_class_p_pc",
+ "Parrot_get_class_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 561 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_i_i",
- "Parrot_fdiv_i_i",
+ "class",
+ "class_p_p",
+ "Parrot_class_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 562 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_i_ic",
- "Parrot_fdiv_i_ic",
+ "addparent",
+ "addparent_p_p",
+ "Parrot_addparent_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 563 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_n_n",
- "Parrot_fdiv_n_n",
+ "removeparent",
+ "removeparent_p_p",
+ "Parrot_removeparent_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 564 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_n_nc",
- "Parrot_fdiv_n_nc",
+ "addrole",
+ "addrole_p_p",
+ "Parrot_addrole_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 565 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_p",
- "Parrot_fdiv_p_p",
+ "addattribute",
+ "addattribute_p_s",
+ "Parrot_addattribute_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 566 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_i",
- "Parrot_fdiv_p_i",
+ "addattribute",
+ "addattribute_p_sc",
+ "Parrot_addattribute_p_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 567 */
- /* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_ic",
- "Parrot_fdiv_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "removeattribute",
+ "removeattribute_p_s",
+ "Parrot_removeattribute_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 568 */
- /* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_n",
- "Parrot_fdiv_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "removeattribute",
+ "removeattribute_p_sc",
+ "Parrot_removeattribute_p_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 569 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_nc",
- "Parrot_fdiv_p_nc",
+ "getattribute",
+ "getattribute_p_p_s",
+ "Parrot_getattribute_p_p_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 570 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_i_i_i",
- "Parrot_fdiv_i_i_i",
+ "getattribute",
+ "getattribute_p_p_sc",
+ "Parrot_getattribute_p_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 571 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_i_ic_i",
- "Parrot_fdiv_i_ic_i",
+ "getattribute",
+ "getattribute_p_p_p_s",
+ "Parrot_getattribute_p_p_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 572 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_i_i_ic",
- "Parrot_fdiv_i_i_ic",
+ "getattribute",
+ "getattribute_p_p_pc_s",
+ "Parrot_getattribute_p_p_pc_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 573 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_n_n_n",
- "Parrot_fdiv_n_n_n",
+ "getattribute",
+ "getattribute_p_p_p_sc",
+ "Parrot_getattribute_p_p_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 574 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_n_nc_n",
- "Parrot_fdiv_n_nc_n",
+ "getattribute",
+ "getattribute_p_p_pc_sc",
+ "Parrot_getattribute_p_p_pc_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 575 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_n_n_nc",
- "Parrot_fdiv_n_n_nc",
+ "setattribute",
+ "setattribute_p_s_p",
+ "Parrot_setattribute_p_s_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 576 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_p_p",
- "Parrot_fdiv_p_p_p",
+ "setattribute",
+ "setattribute_p_sc_p",
+ "Parrot_setattribute_p_sc_p",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 577 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_p_i",
- "Parrot_fdiv_p_p_i",
+ "setattribute",
+ "setattribute_p_p_s_p",
+ "Parrot_setattribute_p_p_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 578 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_p_ic",
- "Parrot_fdiv_p_p_ic",
+ "setattribute",
+ "setattribute_p_pc_s_p",
+ "Parrot_setattribute_p_pc_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 579 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_p_n",
- "Parrot_fdiv_p_p_n",
+ "setattribute",
+ "setattribute_p_p_sc_p",
+ "Parrot_setattribute_p_p_sc_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 580 */
/* type PARROT_INLINE_OP, */
- "fdiv",
- "fdiv_p_p_nc",
- "Parrot_fdiv_p_p_nc",
+ "setattribute",
+ "setattribute_p_pc_sc_p",
+ "Parrot_setattribute_p_pc_sc_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 581 */
/* type PARROT_INLINE_OP, */
- "ceil",
- "ceil_n",
- "Parrot_ceil_n",
+ "inspect",
+ "inspect_p_p",
+ "Parrot_inspect_p_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 582 */
/* type PARROT_INLINE_OP, */
- "ceil",
- "ceil_i_n",
- "Parrot_ceil_i_n",
+ "inspect",
+ "inspect_p_pc",
+ "Parrot_inspect_p_pc",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 583 */
/* type PARROT_INLINE_OP, */
- "ceil",
- "ceil_n_n",
- "Parrot_ceil_n_n",
+ "inspect",
+ "inspect_p_p_s",
+ "Parrot_inspect_p_p_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 584 */
/* type PARROT_INLINE_OP, */
- "floor",
- "floor_n",
- "Parrot_floor_n",
+ "inspect",
+ "inspect_p_pc_s",
+ "Parrot_inspect_p_pc_s",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 585 */
/* type PARROT_INLINE_OP, */
- "floor",
- "floor_i_n",
- "Parrot_floor_i_n",
+ "inspect",
+ "inspect_p_p_sc",
+ "Parrot_inspect_p_p_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 586 */
/* type PARROT_INLINE_OP, */
- "floor",
- "floor_n_n",
- "Parrot_floor_n_n",
+ "inspect",
+ "inspect_p_pc_sc",
+ "Parrot_inspect_p_pc_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 587 */
- /* type PARROT_INLINE_OP, */
- "inc",
- "inc_i",
- "Parrot_inc_i",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_s",
+ "Parrot_new_p_s",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 588 */
- /* type PARROT_INLINE_OP, */
- "inc",
- "inc_n",
- "Parrot_inc_n",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_sc",
+ "Parrot_new_p_sc",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 589 */
- /* type PARROT_INLINE_OP, */
- "inc",
- "inc_p",
- "Parrot_inc_p",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_s_p",
+ "Parrot_new_p_s_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 590 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_i_i",
- "Parrot_mod_i_i",
+ "new",
+ "new_p_sc_p",
+ "Parrot_new_p_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 591 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_i_ic",
- "Parrot_mod_i_ic",
+ "new",
+ "new_p_s_pc",
+ "Parrot_new_p_s_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 592 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_n_n",
- "Parrot_mod_n_n",
+ "new",
+ "new_p_sc_pc",
+ "Parrot_new_p_sc_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 593 */
- /* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_n_nc",
- "Parrot_mod_n_nc",
+ /* type PARROT_INLINE_OP, */
+ "new",
+ "new_p_p",
+ "Parrot_new_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 594 */
/* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_p",
- "Parrot_mod_p_p",
+ "new",
+ "new_p_pc",
+ "Parrot_new_p_pc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 595 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_i",
- "Parrot_mod_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_p_p",
+ "Parrot_new_p_p_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 596 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_ic",
- "Parrot_mod_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_pc_p",
+ "Parrot_new_p_pc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 597 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_n",
- "Parrot_mod_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_p_pc",
+ "Parrot_new_p_p_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 598 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_nc",
- "Parrot_mod_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "new",
+ "new_p_pc_pc",
+ "Parrot_new_p_pc_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 599 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_i_i_i",
- "Parrot_mod_i_i_i",
+ "root_new",
+ "root_new_p_p",
+ "Parrot_root_new_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 600 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_i_ic_i",
- "Parrot_mod_i_ic_i",
+ "root_new",
+ "root_new_p_pc",
+ "Parrot_root_new_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 601 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_i_i_ic",
- "Parrot_mod_i_i_ic",
+ "root_new",
+ "root_new_p_p_p",
+ "Parrot_root_new_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 602 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_n_n_n",
- "Parrot_mod_n_n_n",
+ "root_new",
+ "root_new_p_pc_p",
+ "Parrot_root_new_p_pc_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 603 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_n_nc_n",
- "Parrot_mod_n_nc_n",
+ "root_new",
+ "root_new_p_p_pc",
+ "Parrot_root_new_p_p_pc",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 604 */
/* type PARROT_FUNCTION_OP, */
- "mod",
- "mod_n_n_nc",
- "Parrot_mod_n_n_nc",
+ "root_new",
+ "root_new_p_pc_pc",
+ "Parrot_root_new_p_pc_pc",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 605 */
/* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_p_p",
- "Parrot_mod_p_p_p",
+ "typeof",
+ "typeof_s_p",
+ "Parrot_typeof_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 606 */
/* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_p_i",
- "Parrot_mod_p_p_i",
+ "typeof",
+ "typeof_p_p",
+ "Parrot_typeof_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 607 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_p_ic",
- "Parrot_mod_p_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "get_repr",
+ "get_repr_s_p",
+ "Parrot_get_repr_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 608 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_p_n",
- "Parrot_mod_p_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "find_method",
+ "find_method_p_p_s",
+ "Parrot_find_method_p_p_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 609 */
- /* type PARROT_INLINE_OP, */
- "mod",
- "mod_p_p_nc",
- "Parrot_mod_p_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "find_method",
+ "find_method_p_p_sc",
+ "Parrot_find_method_p_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 610 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_i_i",
- "Parrot_mul_i_i",
+ "defined",
+ "defined_i_p",
+ "Parrot_defined_i_p",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 611 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_i_ic",
- "Parrot_mul_i_ic",
+ "defined",
+ "defined_i_p_ki",
+ "Parrot_defined_i_p_ki",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 612 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_n_n",
- "Parrot_mul_n_n",
+ "defined",
+ "defined_i_p_kic",
+ "Parrot_defined_i_p_kic",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 613 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_n_nc",
- "Parrot_mul_n_nc",
+ "defined",
+ "defined_i_p_k",
+ "Parrot_defined_i_p_k",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 614 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_p",
- "Parrot_mul_p_p",
+ "defined",
+ "defined_i_p_kc",
+ "Parrot_defined_i_p_kc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 615 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_i",
- "Parrot_mul_p_i",
+ "exists",
+ "exists_i_p_ki",
+ "Parrot_exists_i_p_ki",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 616 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_ic",
- "Parrot_mul_p_ic",
+ "exists",
+ "exists_i_p_kic",
+ "Parrot_exists_i_p_kic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 617 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_n",
- "Parrot_mul_p_n",
+ "exists",
+ "exists_i_p_k",
+ "Parrot_exists_i_p_k",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 618 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_nc",
- "Parrot_mul_p_nc",
+ "exists",
+ "exists_i_p_kc",
+ "Parrot_exists_i_p_kc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 619 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_i_i_i",
- "Parrot_mul_i_i_i",
+ "delete",
+ "delete_p_k",
+ "Parrot_delete_p_k",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_K },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 620 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_i_ic_i",
- "Parrot_mul_i_ic_i",
+ "delete",
+ "delete_p_kc",
+ "Parrot_delete_p_kc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_KC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 621 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_i_i_ic",
- "Parrot_mul_i_i_ic",
+ "delete",
+ "delete_p_ki",
+ "Parrot_delete_p_ki",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 622 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_n_n_n",
- "Parrot_mul_n_n_n",
+ "delete",
+ "delete_p_kic",
+ "Parrot_delete_p_kic",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 623 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_n_nc_n",
- "Parrot_mul_n_nc_n",
+ "elements",
+ "elements_i_p",
+ "Parrot_elements_i_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 624 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_n_n_nc",
- "Parrot_mul_n_n_nc",
+ "push",
+ "push_p_i",
+ "Parrot_push_p_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 625 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_p_p",
- "Parrot_mul_p_p_p",
+ "push",
+ "push_p_ic",
+ "Parrot_push_p_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 626 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_p_i",
- "Parrot_mul_p_p_i",
+ "push",
+ "push_p_n",
+ "Parrot_push_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 627 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_p_ic",
- "Parrot_mul_p_p_ic",
+ "push",
+ "push_p_nc",
+ "Parrot_push_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 628 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_p_n",
- "Parrot_mul_p_p_n",
+ "push",
+ "push_p_s",
+ "Parrot_push_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 629 */
/* type PARROT_INLINE_OP, */
- "mul",
- "mul_p_p_nc",
- "Parrot_mul_p_p_nc",
+ "push",
+ "push_p_sc",
+ "Parrot_push_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 630 */
/* type PARROT_INLINE_OP, */
- "neg",
- "neg_i",
- "Parrot_neg_i",
+ "push",
+ "push_p_p",
+ "Parrot_push_p_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 631 */
/* type PARROT_INLINE_OP, */
- "neg",
- "neg_n",
- "Parrot_neg_n",
+ "pop",
+ "pop_i_p",
+ "Parrot_pop_i_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 632 */
/* type PARROT_INLINE_OP, */
- "neg",
- "neg_p",
- "Parrot_neg_p",
+ "pop",
+ "pop_n_p",
+ "Parrot_pop_n_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 633 */
/* type PARROT_INLINE_OP, */
- "neg",
- "neg_i_i",
- "Parrot_neg_i_i",
+ "pop",
+ "pop_s_p",
+ "Parrot_pop_s_p",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARG_S, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 634 */
/* type PARROT_INLINE_OP, */
- "neg",
- "neg_n_n",
- "Parrot_neg_n_n",
+ "pop",
+ "pop_p_p",
+ "Parrot_pop_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 635 */
/* type PARROT_INLINE_OP, */
- "neg",
- "neg_p_p",
- "Parrot_neg_p_p",
+ "unshift",
+ "unshift_p_i",
+ "Parrot_unshift_p_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 636 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_n_n",
- "Parrot_pow_n_n_n",
+ "unshift",
+ "unshift_p_ic",
+ "Parrot_unshift_p_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 637 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_nc_n",
- "Parrot_pow_n_nc_n",
+ "unshift",
+ "unshift_p_n",
+ "Parrot_unshift_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 638 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_n_nc",
- "Parrot_pow_n_n_nc",
+ "unshift",
+ "unshift_p_nc",
+ "Parrot_unshift_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 639 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_p_p_p",
- "Parrot_pow_p_p_p",
+ "unshift",
+ "unshift_p_s",
+ "Parrot_unshift_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 640 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_p_p_i",
- "Parrot_pow_p_p_i",
+ "unshift",
+ "unshift_p_sc",
+ "Parrot_unshift_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 641 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_p_p_ic",
- "Parrot_pow_p_p_ic",
+ "unshift",
+ "unshift_p_p",
+ "Parrot_unshift_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 642 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_p_p_n",
- "Parrot_pow_p_p_n",
+ "shift",
+ "shift_i_p",
+ "Parrot_shift_i_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 643 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_p_p_nc",
- "Parrot_pow_p_p_nc",
+ "shift",
+ "shift_n_p",
+ "Parrot_shift_n_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 644 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_n_i",
- "Parrot_pow_n_n_i",
+ "shift",
+ "shift_s_p",
+ "Parrot_shift_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 645 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_nc_i",
- "Parrot_pow_n_nc_i",
+ "shift",
+ "shift_p_p",
+ "Parrot_shift_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 646 */
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
+ },
+ { /* 646 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_n_ic",
- "Parrot_pow_n_n_ic",
+ "splice",
+ "splice_p_p_i_i",
+ "Parrot_splice_p_p_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 647 */
/* type PARROT_INLINE_OP, */
- "pow",
- "pow_n_nc_ic",
- "Parrot_pow_n_nc_ic",
+ "splice",
+ "splice_p_p_ic_i",
+ "Parrot_splice_p_p_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 648 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_i_i",
- "Parrot_sub_i_i",
+ "splice",
+ "splice_p_p_i_ic",
+ "Parrot_splice_p_p_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 649 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_i_ic",
- "Parrot_sub_i_ic",
+ "splice",
+ "splice_p_p_ic_ic",
+ "Parrot_splice_p_p_ic_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 650 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_n_n",
- "Parrot_sub_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "setprop",
+ "setprop_p_s_p",
+ "Parrot_setprop_p_s_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 651 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_n_nc",
- "Parrot_sub_n_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "setprop",
+ "setprop_p_sc_p",
+ "Parrot_setprop_p_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 652 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_p",
- "Parrot_sub_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "getprop",
+ "getprop_p_s_p",
+ "Parrot_getprop_p_s_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 653 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_i",
- "Parrot_sub_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "getprop",
+ "getprop_p_sc_p",
+ "Parrot_getprop_p_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 654 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_ic",
- "Parrot_sub_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "delprop",
+ "delprop_p_s",
+ "Parrot_delprop_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 655 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_n",
- "Parrot_sub_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "delprop",
+ "delprop_p_sc",
+ "Parrot_delprop_p_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 656 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_nc",
- "Parrot_sub_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "prophash",
+ "prophash_p_p",
+ "Parrot_prophash_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 657 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_i_i_i",
- "Parrot_sub_i_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "freeze",
+ "freeze_s_p",
+ "Parrot_freeze_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 658 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_i_ic_i",
- "Parrot_sub_i_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "thaw",
+ "thaw_p_s",
+ "Parrot_thaw_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 659 */
- /* type PARROT_INLINE_OP, */
- "sub",
- "sub_i_i_ic",
- "Parrot_sub_i_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "thaw",
+ "thaw_p_sc",
+ "Parrot_thaw_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 660 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_n_n_n",
- "Parrot_sub_n_n_n",
+ "add_multi",
+ "add_multi_s_s_p",
+ "Parrot_add_multi_s_s_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 661 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_n_nc_n",
- "Parrot_sub_n_nc_n",
+ "add_multi",
+ "add_multi_sc_s_p",
+ "Parrot_add_multi_sc_s_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 662 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_n_n_nc",
- "Parrot_sub_n_n_nc",
+ "add_multi",
+ "add_multi_s_sc_p",
+ "Parrot_add_multi_s_sc_p",
/* "", body */
0,
4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 663 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_p_p",
- "Parrot_sub_p_p_p",
+ "add_multi",
+ "add_multi_sc_sc_p",
+ "Parrot_add_multi_sc_sc_p",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_P },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 664 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_p_i",
- "Parrot_sub_p_p_i",
+ "find_multi",
+ "find_multi_p_s_s",
+ "Parrot_find_multi_p_s_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 665 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_p_ic",
- "Parrot_sub_p_p_ic",
+ "find_multi",
+ "find_multi_p_sc_s",
+ "Parrot_find_multi_p_sc_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 666 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_p_n",
- "Parrot_sub_p_p_n",
+ "find_multi",
+ "find_multi_p_s_sc",
+ "Parrot_find_multi_p_s_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 667 */
/* type PARROT_INLINE_OP, */
- "sub",
- "sub_p_p_nc",
- "Parrot_sub_p_p_nc",
+ "find_multi",
+ "find_multi_p_sc_sc",
+ "Parrot_find_multi_p_sc_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 668 */
- /* type PARROT_INLINE_OP, */
- "sqrt",
- "sqrt_n_n",
- "Parrot_sqrt_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "register",
+ "register_p",
+ "Parrot_register_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 669 */
- /* type PARROT_INLINE_OP, */
- "acos",
- "acos_n_n",
- "Parrot_acos_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "unregister",
+ "unregister_p",
+ "Parrot_unregister_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 670 */
- /* type PARROT_INLINE_OP, */
- "asec",
- "asec_n_n",
- "Parrot_asec_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "box",
+ "box_p_i",
+ "Parrot_box_p_i",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 671 */
- /* type PARROT_INLINE_OP, */
- "asin",
- "asin_n_n",
- "Parrot_asin_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "box",
+ "box_p_ic",
+ "Parrot_box_p_ic",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 672 */
- /* type PARROT_INLINE_OP, */
- "atan",
- "atan_n_n",
- "Parrot_atan_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "box",
+ "box_p_n",
+ "Parrot_box_p_n",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 673 */
- /* type PARROT_INLINE_OP, */
- "atan",
- "atan_n_n_n",
- "Parrot_atan_n_n_n",
+ /* type PARROT_FUNCTION_OP, */
+ "box",
+ "box_p_nc",
+ "Parrot_box_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 674 */
- /* type PARROT_INLINE_OP, */
- "atan",
- "atan_n_nc_n",
- "Parrot_atan_n_nc_n",
+ /* type PARROT_FUNCTION_OP, */
+ "box",
+ "box_p_s",
+ "Parrot_box_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_NC, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 675 */
- /* type PARROT_INLINE_OP, */
- "atan",
- "atan_n_n_nc",
- "Parrot_atan_n_n_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "box",
+ "box_p_sc",
+ "Parrot_box_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 676 */
/* type PARROT_INLINE_OP, */
- "cos",
- "cos_n_n",
- "Parrot_cos_n_n",
+ "iter",
+ "iter_p_p",
+ "Parrot_iter_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 677 */
/* type PARROT_INLINE_OP, */
- "cosh",
- "cosh_n_n",
- "Parrot_cosh_n_n",
+ "morph",
+ "morph_p_p",
+ "Parrot_morph_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 678 */
/* type PARROT_INLINE_OP, */
- "exp",
- "exp_n_n",
- "Parrot_exp_n_n",
+ "morph",
+ "morph_p_pc",
+ "Parrot_morph_p_pc",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 679 */
/* type PARROT_INLINE_OP, */
- "ln",
- "ln_n_n",
- "Parrot_ln_n_n",
+ "clone",
+ "clone_s_s",
+ "Parrot_clone_s_s",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_S, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 680 */
/* type PARROT_INLINE_OP, */
- "log10",
- "log10_n_n",
- "Parrot_log10_n_n",
+ "clone",
+ "clone_s_sc",
+ "Parrot_clone_s_sc",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_S, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 681 */
- /* type PARROT_FUNCTION_OP, */
- "log2",
- "log2_n_n",
- "Parrot_log2_n_n",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_i_i",
+ "Parrot_set_i_i",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 682 */
/* type PARROT_INLINE_OP, */
- "sec",
- "sec_n_n",
- "Parrot_sec_n_n",
+ "set",
+ "set_i_ic",
+ "Parrot_set_i_ic",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 683 */
/* type PARROT_INLINE_OP, */
- "sech",
- "sech_n_n",
- "Parrot_sech_n_n",
+ "set",
+ "set_i_n",
+ "Parrot_set_i_n",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_N },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 684 */
/* type PARROT_INLINE_OP, */
- "sin",
- "sin_n_n",
- "Parrot_sin_n_n",
+ "set",
+ "set_i_nc",
+ "Parrot_set_i_nc",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_NC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 685 */
/* type PARROT_INLINE_OP, */
- "sinh",
- "sinh_n_n",
- "Parrot_sinh_n_n",
+ "set",
+ "set_i_s",
+ "Parrot_set_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 686 */
/* type PARROT_INLINE_OP, */
- "tan",
- "tan_n_n",
- "Parrot_tan_n_n",
+ "set",
+ "set_i_sc",
+ "Parrot_set_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_N },
+ { PARROT_ARG_I, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 687 */
/* type PARROT_INLINE_OP, */
- "tanh",
- "tanh_n_n",
- "Parrot_tanh_n_n",
+ "set",
+ "set_n_n",
+ "Parrot_set_n_n",
/* "", body */
0,
3,
@@ -9603,3094 +9415,3094 @@
{ 0, 0 }
},
{ /* 688 */
- /* type PARROT_FUNCTION_OP, */
- "callmethodcc",
- "callmethodcc_p_s",
- "Parrot_callmethodcc_p_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_n_nc",
+ "Parrot_set_n_nc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_N, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 689 */
- /* type PARROT_FUNCTION_OP, */
- "callmethodcc",
- "callmethodcc_p_sc",
- "Parrot_callmethodcc_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_n_i",
+ "Parrot_set_n_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_N, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 690 */
- /* type PARROT_FUNCTION_OP, */
- "callmethodcc",
- "callmethodcc_p_p",
- "Parrot_callmethodcc_p_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_n_ic",
+ "Parrot_set_n_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 691 */
- /* type PARROT_FUNCTION_OP, */
- "callmethod",
- "callmethod_p_s_p",
- "Parrot_callmethod_p_s_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_n_s",
+ "Parrot_set_n_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 692 */
- /* type PARROT_FUNCTION_OP, */
- "callmethod",
- "callmethod_p_sc_p",
- "Parrot_callmethod_p_sc_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_n_sc",
+ "Parrot_set_n_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 693 */
- /* type PARROT_FUNCTION_OP, */
- "callmethod",
- "callmethod_p_p_p",
- "Parrot_callmethod_p_p_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_n_p",
+ "Parrot_set_n_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
+ 3,
+ { PARROT_ARG_N, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
+ },
{ /* 694 */
- /* type PARROT_FUNCTION_OP, */
- "tailcallmethod",
- "tailcallmethod_p_s",
- "Parrot_tailcallmethod_p_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_s_p",
+ "Parrot_set_s_p",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 695 */
- /* type PARROT_FUNCTION_OP, */
- "tailcallmethod",
- "tailcallmethod_p_sc",
- "Parrot_tailcallmethod_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_s_s",
+ "Parrot_set_s_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 696 */
- /* type PARROT_FUNCTION_OP, */
- "tailcallmethod",
- "tailcallmethod_p_p",
- "Parrot_tailcallmethod_p_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_s_sc",
+ "Parrot_set_s_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 697 */
/* type PARROT_INLINE_OP, */
- "addmethod",
- "addmethod_p_s_p",
- "Parrot_addmethod_p_s_p",
+ "set",
+ "set_s_i",
+ "Parrot_set_s_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 698 */
/* type PARROT_INLINE_OP, */
- "addmethod",
- "addmethod_p_sc_p",
- "Parrot_addmethod_p_sc_p",
+ "set",
+ "set_s_ic",
+ "Parrot_set_s_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 699 */
/* type PARROT_INLINE_OP, */
- "can",
- "can_i_p_s",
- "Parrot_can_i_p_s",
+ "set",
+ "set_s_n",
+ "Parrot_set_s_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 700 */
/* type PARROT_INLINE_OP, */
- "can",
- "can_i_p_sc",
- "Parrot_can_i_p_sc",
+ "set",
+ "set_s_nc",
+ "Parrot_set_s_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_NC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 701 */
/* type PARROT_INLINE_OP, */
- "does",
- "does_i_p_s",
- "Parrot_does_i_p_s",
+ "set",
+ "set_p_pc",
+ "Parrot_set_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 702 */
/* type PARROT_INLINE_OP, */
- "does",
- "does_i_p_sc",
- "Parrot_does_i_p_sc",
+ "set",
+ "set_p_p",
+ "Parrot_set_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 703 */
/* type PARROT_INLINE_OP, */
- "does",
- "does_i_p_p",
- "Parrot_does_i_p_p",
+ "set",
+ "set_p_i",
+ "Parrot_set_p_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 704 */
/* type PARROT_INLINE_OP, */
- "does",
- "does_i_p_pc",
- "Parrot_does_i_p_pc",
+ "set",
+ "set_p_ic",
+ "Parrot_set_p_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 705 */
/* type PARROT_INLINE_OP, */
- "isa",
- "isa_i_p_s",
- "Parrot_isa_i_p_s",
+ "set",
+ "set_p_n",
+ "Parrot_set_p_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 706 */
/* type PARROT_INLINE_OP, */
- "isa",
- "isa_i_p_sc",
- "Parrot_isa_i_p_sc",
+ "set",
+ "set_p_nc",
+ "Parrot_set_p_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 707 */
/* type PARROT_INLINE_OP, */
- "isa",
- "isa_i_p_p",
- "Parrot_isa_i_p_p",
+ "set",
+ "set_p_s",
+ "Parrot_set_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 708 */
/* type PARROT_INLINE_OP, */
- "isa",
- "isa_i_p_pc",
- "Parrot_isa_i_p_pc",
+ "set",
+ "set_p_sc",
+ "Parrot_set_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 709 */
/* type PARROT_INLINE_OP, */
- "newclass",
- "newclass_p_s",
- "Parrot_newclass_p_s",
+ "set",
+ "set_i_p",
+ "Parrot_set_i_p",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 710 */
/* type PARROT_INLINE_OP, */
- "newclass",
- "newclass_p_sc",
- "Parrot_newclass_p_sc",
+ "assign",
+ "assign_p_p",
+ "Parrot_assign_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 711 */
/* type PARROT_INLINE_OP, */
- "newclass",
- "newclass_p_p",
- "Parrot_newclass_p_p",
+ "assign",
+ "assign_p_i",
+ "Parrot_assign_p_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 712 */
/* type PARROT_INLINE_OP, */
- "newclass",
- "newclass_p_pc",
- "Parrot_newclass_p_pc",
+ "assign",
+ "assign_p_ic",
+ "Parrot_assign_p_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 713 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_p",
- "Parrot_subclass_p_p",
+ "assign",
+ "assign_p_n",
+ "Parrot_assign_p_n",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ { PARROT_ARG_P, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 714 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_pc",
- "Parrot_subclass_p_pc",
+ "assign",
+ "assign_p_nc",
+ "Parrot_assign_p_nc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 715 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_p_s",
- "Parrot_subclass_p_p_s",
+ "assign",
+ "assign_p_s",
+ "Parrot_assign_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 716 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_pc_s",
- "Parrot_subclass_p_pc_s",
+ "assign",
+ "assign_p_sc",
+ "Parrot_assign_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 717 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_p_sc",
- "Parrot_subclass_p_p_sc",
+ "assign",
+ "assign_s_s",
+ "Parrot_assign_s_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 718 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_pc_sc",
- "Parrot_subclass_p_pc_sc",
+ "assign",
+ "assign_s_sc",
+ "Parrot_assign_s_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 719 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_p_p",
- "Parrot_subclass_p_p_p",
+ "setref",
+ "setref_p_p",
+ "Parrot_setref_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 720 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_pc_p",
- "Parrot_subclass_p_pc_p",
+ "deref",
+ "deref_p_p",
+ "Parrot_deref_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 721 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_p_pc",
- "Parrot_subclass_p_p_pc",
+ "set",
+ "set_p_ki_i",
+ "Parrot_set_p_ki_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 722 */
/* type PARROT_INLINE_OP, */
- "subclass",
- "subclass_p_pc_pc",
- "Parrot_subclass_p_pc_pc",
+ "set",
+ "set_p_kic_i",
+ "Parrot_set_p_kic_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 723 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_s",
- "Parrot_subclass_p_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_ki_ic",
+ "Parrot_set_p_ki_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 724 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_sc",
- "Parrot_subclass_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_kic_ic",
+ "Parrot_set_p_kic_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 725 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_s_s",
- "Parrot_subclass_p_s_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_ki_n",
+ "Parrot_set_p_ki_n",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 726 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_sc_s",
- "Parrot_subclass_p_sc_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_kic_n",
+ "Parrot_set_p_kic_n",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 727 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_s_sc",
- "Parrot_subclass_p_s_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_ki_nc",
+ "Parrot_set_p_ki_nc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 728 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_sc_sc",
- "Parrot_subclass_p_sc_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_kic_nc",
+ "Parrot_set_p_kic_nc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 729 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_s_p",
- "Parrot_subclass_p_s_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_ki_s",
+ "Parrot_set_p_ki_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 730 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_sc_p",
- "Parrot_subclass_p_sc_p",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_kic_s",
+ "Parrot_set_p_kic_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 731 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_s_pc",
- "Parrot_subclass_p_s_pc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_ki_sc",
+ "Parrot_set_p_ki_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 732 */
- /* type PARROT_FUNCTION_OP, */
- "subclass",
- "subclass_p_sc_pc",
- "Parrot_subclass_p_sc_pc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_kic_sc",
+ "Parrot_set_p_kic_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 733 */
/* type PARROT_INLINE_OP, */
- "get_class",
- "get_class_p_s",
- "Parrot_get_class_p_s",
+ "set",
+ "set_p_ki_p",
+ "Parrot_set_p_ki_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
{ /* 734 */
/* type PARROT_INLINE_OP, */
- "get_class",
- "get_class_p_sc",
- "Parrot_get_class_p_sc",
+ "set",
+ "set_p_kic_p",
+ "Parrot_set_p_kic_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 735 */
/* type PARROT_INLINE_OP, */
- "get_class",
- "get_class_p_p",
- "Parrot_get_class_p_p",
+ "set",
+ "set_i_p_ki",
+ "Parrot_set_i_p_ki",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 736 */
/* type PARROT_INLINE_OP, */
- "get_class",
- "get_class_p_pc",
- "Parrot_get_class_p_pc",
+ "set",
+ "set_i_p_kic",
+ "Parrot_set_i_p_kic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 737 */
/* type PARROT_INLINE_OP, */
- "class",
- "class_p_p",
- "Parrot_class_p_p",
+ "set",
+ "set_n_p_ki",
+ "Parrot_set_n_p_ki",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 738 */
/* type PARROT_INLINE_OP, */
- "addparent",
- "addparent_p_p",
- "Parrot_addparent_p_p",
+ "set",
+ "set_n_p_kic",
+ "Parrot_set_n_p_kic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 739 */
/* type PARROT_INLINE_OP, */
- "removeparent",
- "removeparent_p_p",
- "Parrot_removeparent_p_p",
+ "set",
+ "set_s_p_ki",
+ "Parrot_set_s_p_ki",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 740 */
/* type PARROT_INLINE_OP, */
- "addrole",
- "addrole_p_p",
- "Parrot_addrole_p_p",
+ "set",
+ "set_s_p_kic",
+ "Parrot_set_s_p_kic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 741 */
/* type PARROT_INLINE_OP, */
- "addattribute",
- "addattribute_p_s",
- "Parrot_addattribute_p_s",
+ "set",
+ "set_p_p_ki",
+ "Parrot_set_p_p_ki",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 742 */
/* type PARROT_INLINE_OP, */
- "addattribute",
- "addattribute_p_sc",
- "Parrot_addattribute_p_sc",
+ "set",
+ "set_p_p_kic",
+ "Parrot_set_p_p_kic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 743 */
- /* type PARROT_FUNCTION_OP, */
- "removeattribute",
- "removeattribute_p_s",
- "Parrot_removeattribute_p_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_k_i",
+ "Parrot_set_p_k_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 744 */
- /* type PARROT_FUNCTION_OP, */
- "removeattribute",
- "removeattribute_p_sc",
- "Parrot_removeattribute_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_kc_i",
+ "Parrot_set_p_kc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 745 */
/* type PARROT_INLINE_OP, */
- "getattribute",
- "getattribute_p_p_s",
- "Parrot_getattribute_p_p_s",
+ "set",
+ "set_p_k_ic",
+ "Parrot_set_p_k_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 746 */
/* type PARROT_INLINE_OP, */
- "getattribute",
- "getattribute_p_p_sc",
- "Parrot_getattribute_p_p_sc",
+ "set",
+ "set_p_kc_ic",
+ "Parrot_set_p_kc_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 747 */
/* type PARROT_INLINE_OP, */
- "getattribute",
- "getattribute_p_p_p_s",
- "Parrot_getattribute_p_p_p_s",
+ "set",
+ "set_p_k_n",
+ "Parrot_set_p_k_n",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 748 */
/* type PARROT_INLINE_OP, */
- "getattribute",
- "getattribute_p_p_pc_s",
- "Parrot_getattribute_p_p_pc_s",
+ "set",
+ "set_p_kc_n",
+ "Parrot_set_p_kc_n",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_N },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 749 */
/* type PARROT_INLINE_OP, */
- "getattribute",
- "getattribute_p_p_p_sc",
- "Parrot_getattribute_p_p_p_sc",
+ "set",
+ "set_p_k_nc",
+ "Parrot_set_p_k_nc",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 750 */
/* type PARROT_INLINE_OP, */
- "getattribute",
- "getattribute_p_p_pc_sc",
- "Parrot_getattribute_p_p_pc_sc",
+ "set",
+ "set_p_kc_nc",
+ "Parrot_set_p_kc_nc",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 751 */
/* type PARROT_INLINE_OP, */
- "setattribute",
- "setattribute_p_s_p",
- "Parrot_setattribute_p_s_p",
+ "set",
+ "set_p_k_s",
+ "Parrot_set_p_k_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_S },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 752 */
/* type PARROT_INLINE_OP, */
- "setattribute",
- "setattribute_p_sc_p",
- "Parrot_setattribute_p_sc_p",
+ "set",
+ "set_p_kc_s",
+ "Parrot_set_p_kc_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_S },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 753 */
/* type PARROT_INLINE_OP, */
- "setattribute",
- "setattribute_p_p_s_p",
- "Parrot_setattribute_p_p_s_p",
+ "set",
+ "set_p_k_sc",
+ "Parrot_set_p_k_sc",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 754 */
/* type PARROT_INLINE_OP, */
- "setattribute",
- "setattribute_p_pc_s_p",
- "Parrot_setattribute_p_pc_s_p",
+ "set",
+ "set_p_kc_sc",
+ "Parrot_set_p_kc_sc",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 755 */
/* type PARROT_INLINE_OP, */
- "setattribute",
- "setattribute_p_p_sc_p",
- "Parrot_setattribute_p_p_sc_p",
+ "set",
+ "set_p_k_p",
+ "Parrot_set_p_k_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 756 */
/* type PARROT_INLINE_OP, */
- "setattribute",
- "setattribute_p_pc_sc_p",
- "Parrot_setattribute_p_pc_sc_p",
+ "set",
+ "set_p_kc_p",
+ "Parrot_set_p_kc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 757 */
/* type PARROT_INLINE_OP, */
- "inspect",
- "inspect_p_p",
- "Parrot_inspect_p_p",
+ "set",
+ "set_i_p_k",
+ "Parrot_set_i_p_k",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 758 */
/* type PARROT_INLINE_OP, */
- "inspect",
- "inspect_p_pc",
- "Parrot_inspect_p_pc",
+ "set",
+ "set_i_p_kc",
+ "Parrot_set_i_p_kc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 759 */
/* type PARROT_INLINE_OP, */
- "inspect",
- "inspect_p_p_s",
- "Parrot_inspect_p_p_s",
+ "set",
+ "set_n_p_k",
+ "Parrot_set_n_p_k",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_K },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 760 */
/* type PARROT_INLINE_OP, */
- "inspect",
- "inspect_p_pc_s",
- "Parrot_inspect_p_pc_s",
+ "set",
+ "set_n_p_kc",
+ "Parrot_set_n_p_kc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
+ { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 761 */
/* type PARROT_INLINE_OP, */
- "inspect",
- "inspect_p_p_sc",
- "Parrot_inspect_p_p_sc",
+ "set",
+ "set_s_p_k",
+ "Parrot_set_s_p_k",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_K },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 762 */
/* type PARROT_INLINE_OP, */
- "inspect",
- "inspect_p_pc_sc",
- "Parrot_inspect_p_pc_sc",
+ "set",
+ "set_s_p_kc",
+ "Parrot_set_s_p_kc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 763 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_s",
- "Parrot_new_p_s",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_p_k",
+ "Parrot_set_p_p_k",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_K },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 764 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_sc",
- "Parrot_new_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "set",
+ "set_p_p_kc",
+ "Parrot_set_p_p_kc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 765 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_s_p",
- "Parrot_new_p_s_p",
+ /* type PARROT_INLINE_OP, */
+ "clone",
+ "clone_p_p",
+ "Parrot_clone_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 766 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_sc_p",
- "Parrot_new_p_sc_p",
+ /* type PARROT_INLINE_OP, */
+ "clone",
+ "clone_p_p_p",
+ "Parrot_clone_p_p_p",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 767 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_s_pc",
- "Parrot_new_p_s_pc",
+ /* type PARROT_INLINE_OP, */
+ "clone",
+ "clone_p_p_pc",
+ "Parrot_clone_p_p_pc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 768 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_sc_pc",
- "Parrot_new_p_sc_pc",
+ /* type PARROT_INLINE_OP, */
+ "copy",
+ "copy_p_p",
+ "Parrot_copy_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 769 */
/* type PARROT_INLINE_OP, */
- "new",
- "new_p_p",
- "Parrot_new_p_p",
+ "null",
+ "null_s",
+ "Parrot_null_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 770 */
/* type PARROT_INLINE_OP, */
- "new",
- "new_p_pc",
- "Parrot_new_p_pc",
+ "null",
+ "null_i",
+ "Parrot_null_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 771 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_p_p",
- "Parrot_new_p_p_p",
+ /* type PARROT_INLINE_OP, */
+ "null",
+ "null_p",
+ "Parrot_null_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 772 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_pc_p",
- "Parrot_new_p_pc_p",
+ /* type PARROT_INLINE_OP, */
+ "null",
+ "null_n",
+ "Parrot_null_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 773 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_p_pc",
- "Parrot_new_p_p_pc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 774 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_pc_pc",
- "Parrot_new_p_pc_pc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
- { /* 775 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_p",
- "Parrot_root_new_p_p",
+ { /* 773 */
+ /* type PARROT_INLINE_OP, */
+ "ord",
+ "ord_i_s",
+ "Parrot_ord_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 776 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_pc",
- "Parrot_root_new_p_pc",
+ { /* 774 */
+ /* type PARROT_INLINE_OP, */
+ "ord",
+ "ord_i_sc",
+ "Parrot_ord_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARG_I, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 777 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_p_p",
- "Parrot_root_new_p_p_p",
+ { /* 775 */
+ /* type PARROT_INLINE_OP, */
+ "ord",
+ "ord_i_s_i",
+ "Parrot_ord_i_s_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 778 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_pc_p",
- "Parrot_root_new_p_pc_p",
+ { /* 776 */
+ /* type PARROT_INLINE_OP, */
+ "ord",
+ "ord_i_sc_i",
+ "Parrot_ord_i_sc_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 779 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_p_pc",
- "Parrot_root_new_p_p_pc",
+ { /* 777 */
+ /* type PARROT_INLINE_OP, */
+ "ord",
+ "ord_i_s_ic",
+ "Parrot_ord_i_s_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 780 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_pc_pc",
- "Parrot_root_new_p_pc_pc",
+ { /* 778 */
+ /* type PARROT_INLINE_OP, */
+ "ord",
+ "ord_i_sc_ic",
+ "Parrot_ord_i_sc_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 781 */
+ { /* 779 */
/* type PARROT_INLINE_OP, */
- "typeof",
- "typeof_s_p",
- "Parrot_typeof_s_p",
+ "chr",
+ "chr_s_i",
+ "Parrot_chr_s_i",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARG_S, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 782 */
+ { /* 780 */
/* type PARROT_INLINE_OP, */
- "typeof",
- "typeof_p_p",
- "Parrot_typeof_p_p",
+ "chr",
+ "chr_s_ic",
+ "Parrot_chr_s_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 783 */
- /* type PARROT_FUNCTION_OP, */
- "get_repr",
- "get_repr_s_p",
- "Parrot_get_repr_s_p",
+ { /* 781 */
+ /* type PARROT_INLINE_OP, */
+ "chopn",
+ "chopn_s_s_i",
+ "Parrot_chopn_s_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
- { /* 784 */
- /* type PARROT_FUNCTION_OP, */
- "find_method",
- "find_method_p_p_s",
- "Parrot_find_method_p_p_s",
+ { /* 782 */
+ /* type PARROT_INLINE_OP, */
+ "chopn",
+ "chopn_s_sc_i",
+ "Parrot_chopn_s_sc_i",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 785 */
- /* type PARROT_FUNCTION_OP, */
- "find_method",
- "find_method_p_p_sc",
- "Parrot_find_method_p_p_sc",
+ { /* 783 */
+ /* type PARROT_INLINE_OP, */
+ "chopn",
+ "chopn_s_s_ic",
+ "Parrot_chopn_s_s_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
+ { /* 784 */
+ /* type PARROT_INLINE_OP, */
+ "chopn",
+ "chopn_s_sc_ic",
+ "Parrot_chopn_s_sc_ic",
+ /* "", body */
+ 0,
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
+ { /* 785 */
+ /* type PARROT_INLINE_OP, */
+ "concat",
+ "concat_s_s",
+ "Parrot_concat_s_s",
+ /* "", body */
+ 0,
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
+ },
{ /* 786 */
/* type PARROT_INLINE_OP, */
- "defined",
- "defined_i_p",
- "Parrot_defined_i_p",
+ "concat",
+ "concat_s_sc",
+ "Parrot_concat_s_sc",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 787 */
/* type PARROT_INLINE_OP, */
- "defined",
- "defined_i_p_ki",
- "Parrot_defined_i_p_ki",
+ "concat",
+ "concat_p_p",
+ "Parrot_concat_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 788 */
/* type PARROT_INLINE_OP, */
- "defined",
- "defined_i_p_kic",
- "Parrot_defined_i_p_kic",
+ "concat",
+ "concat_p_s",
+ "Parrot_concat_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 789 */
/* type PARROT_INLINE_OP, */
- "defined",
- "defined_i_p_k",
- "Parrot_defined_i_p_k",
+ "concat",
+ "concat_p_sc",
+ "Parrot_concat_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 790 */
/* type PARROT_INLINE_OP, */
- "defined",
- "defined_i_p_kc",
- "Parrot_defined_i_p_kc",
+ "concat",
+ "concat_s_s_s",
+ "Parrot_concat_s_s_s",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 791 */
/* type PARROT_INLINE_OP, */
- "exists",
- "exists_i_p_ki",
- "Parrot_exists_i_p_ki",
+ "concat",
+ "concat_s_sc_s",
+ "Parrot_concat_s_sc_s",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 792 */
/* type PARROT_INLINE_OP, */
- "exists",
- "exists_i_p_kic",
- "Parrot_exists_i_p_kic",
+ "concat",
+ "concat_s_s_sc",
+ "Parrot_concat_s_s_sc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 793 */
/* type PARROT_INLINE_OP, */
- "exists",
- "exists_i_p_k",
- "Parrot_exists_i_p_k",
+ "concat",
+ "concat_p_p_s",
+ "Parrot_concat_p_p_s",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 794 */
/* type PARROT_INLINE_OP, */
- "exists",
- "exists_i_p_kc",
- "Parrot_exists_i_p_kc",
+ "concat",
+ "concat_p_p_sc",
+ "Parrot_concat_p_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 795 */
/* type PARROT_INLINE_OP, */
- "delete",
- "delete_p_k",
- "Parrot_delete_p_k",
+ "concat",
+ "concat_p_p_p",
+ "Parrot_concat_p_p_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 796 */
/* type PARROT_INLINE_OP, */
- "delete",
- "delete_p_kc",
- "Parrot_delete_p_kc",
+ "repeat",
+ "repeat_s_s_i",
+ "Parrot_repeat_s_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_KC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 797 */
/* type PARROT_INLINE_OP, */
- "delete",
- "delete_p_ki",
- "Parrot_delete_p_ki",
+ "repeat",
+ "repeat_s_sc_i",
+ "Parrot_repeat_s_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_KI },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 798 */
/* type PARROT_INLINE_OP, */
- "delete",
- "delete_p_kic",
- "Parrot_delete_p_kic",
+ "repeat",
+ "repeat_s_s_ic",
+ "Parrot_repeat_s_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_KIC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 799 */
/* type PARROT_INLINE_OP, */
- "elements",
- "elements_i_p",
- "Parrot_elements_i_p",
+ "repeat",
+ "repeat_s_sc_ic",
+ "Parrot_repeat_s_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 800 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_i",
- "Parrot_push_p_i",
+ "repeat",
+ "repeat_p_p_i",
+ "Parrot_repeat_p_p_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 801 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_ic",
- "Parrot_push_p_ic",
+ "repeat",
+ "repeat_p_p_ic",
+ "Parrot_repeat_p_p_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 802 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_n",
- "Parrot_push_p_n",
+ "repeat",
+ "repeat_p_p_p",
+ "Parrot_repeat_p_p_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 803 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_nc",
- "Parrot_push_p_nc",
+ "repeat",
+ "repeat_p_i",
+ "Parrot_repeat_p_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
+ { PARROT_ARG_P, PARROT_ARG_I },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 804 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_s",
- "Parrot_push_p_s",
+ "repeat",
+ "repeat_p_ic",
+ "Parrot_repeat_p_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 805 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_sc",
- "Parrot_push_p_sc",
+ "repeat",
+ "repeat_p_p",
+ "Parrot_repeat_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARG_P, PARROT_ARG_P },
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 806 */
/* type PARROT_INLINE_OP, */
- "push",
- "push_p_p",
- "Parrot_push_p_p",
+ "length",
+ "length_i_s",
+ "Parrot_length_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 807 */
/* type PARROT_INLINE_OP, */
- "pop",
- "pop_i_p",
- "Parrot_pop_i_p",
+ "length",
+ "length_i_sc",
+ "Parrot_length_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 808 */
/* type PARROT_INLINE_OP, */
- "pop",
- "pop_n_p",
- "Parrot_pop_n_p",
+ "bytelength",
+ "bytelength_i_s",
+ "Parrot_bytelength_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 809 */
/* type PARROT_INLINE_OP, */
- "pop",
- "pop_s_p",
- "Parrot_pop_s_p",
+ "bytelength",
+ "bytelength_i_sc",
+ "Parrot_bytelength_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 810 */
- /* type PARROT_INLINE_OP, */
- "pop",
- "pop_p_p",
- "Parrot_pop_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "pin",
+ "pin_s",
+ "Parrot_pin_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_S },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 811 */
- /* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_i",
- "Parrot_unshift_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "unpin",
+ "unpin_s",
+ "Parrot_unpin_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_S },
+ { PARROT_ARGDIR_INOUT },
+ { 0 }
},
{ /* 812 */
/* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_ic",
- "Parrot_unshift_p_ic",
+ "substr",
+ "substr_s_s_i",
+ "Parrot_substr_s_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 813 */
/* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_n",
- "Parrot_unshift_p_n",
+ "substr",
+ "substr_s_sc_i",
+ "Parrot_substr_s_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 814 */
/* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_nc",
- "Parrot_unshift_p_nc",
+ "substr",
+ "substr_s_s_ic",
+ "Parrot_substr_s_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 815 */
/* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_s",
- "Parrot_unshift_p_s",
+ "substr",
+ "substr_s_sc_ic",
+ "Parrot_substr_s_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 816 */
/* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_sc",
- "Parrot_unshift_p_sc",
+ "substr",
+ "substr_s_s_i_i",
+ "Parrot_substr_s_s_i_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 817 */
/* type PARROT_INLINE_OP, */
- "unshift",
- "unshift_p_p",
- "Parrot_unshift_p_p",
+ "substr",
+ "substr_s_sc_i_i",
+ "Parrot_substr_s_sc_i_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 818 */
/* type PARROT_INLINE_OP, */
- "shift",
- "shift_i_p",
- "Parrot_shift_i_p",
+ "substr",
+ "substr_s_s_ic_i",
+ "Parrot_substr_s_s_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 819 */
/* type PARROT_INLINE_OP, */
- "shift",
- "shift_n_p",
- "Parrot_shift_n_p",
+ "substr",
+ "substr_s_sc_ic_i",
+ "Parrot_substr_s_sc_ic_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 820 */
/* type PARROT_INLINE_OP, */
- "shift",
- "shift_s_p",
- "Parrot_shift_s_p",
+ "substr",
+ "substr_s_s_i_ic",
+ "Parrot_substr_s_s_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 821 */
/* type PARROT_INLINE_OP, */
- "shift",
- "shift_p_p",
- "Parrot_shift_p_p",
+ "substr",
+ "substr_s_sc_i_ic",
+ "Parrot_substr_s_sc_i_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 822 */
/* type PARROT_INLINE_OP, */
- "splice",
- "splice_p_p_i_i",
- "Parrot_splice_p_p_i_i",
+ "substr",
+ "substr_s_s_ic_ic",
+ "Parrot_substr_s_s_ic_ic",
/* "", body */
0,
5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 823 */
/* type PARROT_INLINE_OP, */
- "splice",
- "splice_p_p_ic_i",
- "Parrot_splice_p_p_ic_i",
+ "substr",
+ "substr_s_sc_ic_ic",
+ "Parrot_substr_s_sc_ic_ic",
/* "", body */
0,
5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 824 */
/* type PARROT_INLINE_OP, */
- "splice",
- "splice_p_p_i_ic",
- "Parrot_splice_p_p_i_ic",
+ "substr",
+ "substr_s_p_i_i",
+ "Parrot_substr_s_p_i_i",
/* "", body */
0,
5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 825 */
/* type PARROT_INLINE_OP, */
- "splice",
- "splice_p_p_ic_ic",
- "Parrot_splice_p_p_ic_ic",
+ "substr",
+ "substr_s_p_ic_i",
+ "Parrot_substr_s_p_ic_i",
/* "", body */
0,
5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 826 */
- /* type PARROT_FUNCTION_OP, */
- "setprop",
- "setprop_p_s_p",
- "Parrot_setprop_p_s_p",
+ /* type PARROT_INLINE_OP, */
+ "substr",
+ "substr_s_p_i_ic",
+ "Parrot_substr_s_p_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 827 */
- /* type PARROT_FUNCTION_OP, */
- "setprop",
- "setprop_p_sc_p",
- "Parrot_setprop_p_sc_p",
+ /* type PARROT_INLINE_OP, */
+ "substr",
+ "substr_s_p_ic_ic",
+ "Parrot_substr_s_p_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 828 */
- /* type PARROT_FUNCTION_OP, */
- "getprop",
- "getprop_p_s_p",
- "Parrot_getprop_p_s_p",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_s_i_i_s",
+ "Parrot_replace_s_s_i_i_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 829 */
- /* type PARROT_FUNCTION_OP, */
- "getprop",
- "getprop_p_sc_p",
- "Parrot_getprop_p_sc_p",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_sc_i_i_s",
+ "Parrot_replace_s_sc_i_i_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 830 */
- /* type PARROT_FUNCTION_OP, */
- "delprop",
- "delprop_p_s",
- "Parrot_delprop_p_s",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_s_ic_i_s",
+ "Parrot_replace_s_s_ic_i_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 831 */
- /* type PARROT_FUNCTION_OP, */
- "delprop",
- "delprop_p_sc",
- "Parrot_delprop_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_sc_ic_i_s",
+ "Parrot_replace_s_sc_ic_i_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 832 */
- /* type PARROT_FUNCTION_OP, */
- "prophash",
- "prophash_p_p",
- "Parrot_prophash_p_p",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_s_i_ic_s",
+ "Parrot_replace_s_s_i_ic_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 833 */
- /* type PARROT_FUNCTION_OP, */
- "freeze",
- "freeze_s_p",
- "Parrot_freeze_s_p",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_sc_i_ic_s",
+ "Parrot_replace_s_sc_i_ic_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 834 */
- /* type PARROT_FUNCTION_OP, */
- "thaw",
- "thaw_p_s",
- "Parrot_thaw_p_s",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_s_ic_ic_s",
+ "Parrot_replace_s_s_ic_ic_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 835 */
- /* type PARROT_FUNCTION_OP, */
- "thaw",
- "thaw_p_sc",
- "Parrot_thaw_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "replace",
+ "replace_s_sc_ic_ic_s",
+ "Parrot_replace_s_sc_ic_ic_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 836 */
/* type PARROT_INLINE_OP, */
- "add_multi",
- "add_multi_s_s_p",
- "Parrot_add_multi_s_s_p",
+ "replace",
+ "replace_s_s_i_i_sc",
+ "Parrot_replace_s_s_i_i_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 837 */
/* type PARROT_INLINE_OP, */
- "add_multi",
- "add_multi_sc_s_p",
- "Parrot_add_multi_sc_s_p",
+ "replace",
+ "replace_s_sc_i_i_sc",
+ "Parrot_replace_s_sc_i_i_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 838 */
/* type PARROT_INLINE_OP, */
- "add_multi",
- "add_multi_s_sc_p",
- "Parrot_add_multi_s_sc_p",
+ "replace",
+ "replace_s_s_ic_i_sc",
+ "Parrot_replace_s_s_ic_i_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 839 */
/* type PARROT_INLINE_OP, */
- "add_multi",
- "add_multi_sc_sc_p",
- "Parrot_add_multi_sc_sc_p",
+ "replace",
+ "replace_s_sc_ic_i_sc",
+ "Parrot_replace_s_sc_ic_i_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 840 */
/* type PARROT_INLINE_OP, */
- "find_multi",
- "find_multi_p_s_s",
- "Parrot_find_multi_p_s_s",
+ "replace",
+ "replace_s_s_i_ic_sc",
+ "Parrot_replace_s_s_i_ic_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 841 */
/* type PARROT_INLINE_OP, */
- "find_multi",
- "find_multi_p_sc_s",
- "Parrot_find_multi_p_sc_s",
+ "replace",
+ "replace_s_sc_i_ic_sc",
+ "Parrot_replace_s_sc_i_ic_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 842 */
/* type PARROT_INLINE_OP, */
- "find_multi",
- "find_multi_p_s_sc",
- "Parrot_find_multi_p_s_sc",
+ "replace",
+ "replace_s_s_ic_ic_sc",
+ "Parrot_replace_s_s_ic_ic_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 843 */
/* type PARROT_INLINE_OP, */
- "find_multi",
- "find_multi_p_sc_sc",
- "Parrot_find_multi_p_sc_sc",
+ "replace",
+ "replace_s_sc_ic_ic_sc",
+ "Parrot_replace_s_sc_ic_ic_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 844 */
- /* type PARROT_FUNCTION_OP, */
- "register",
- "register_p",
- "Parrot_register_p",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_s_s",
+ "Parrot_index_i_s_s",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 845 */
- /* type PARROT_FUNCTION_OP, */
- "unregister",
- "unregister_p",
- "Parrot_unregister_p",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_sc_s",
+ "Parrot_index_i_sc_s",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 846 */
- /* type PARROT_FUNCTION_OP, */
- "box",
- "box_p_i",
- "Parrot_box_p_i",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_s_sc",
+ "Parrot_index_i_s_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 847 */
- /* type PARROT_FUNCTION_OP, */
- "box",
- "box_p_ic",
- "Parrot_box_p_ic",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_sc_sc",
+ "Parrot_index_i_sc_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 848 */
- /* type PARROT_FUNCTION_OP, */
- "box",
- "box_p_n",
- "Parrot_box_p_n",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_s_s_i",
+ "Parrot_index_i_s_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 849 */
- /* type PARROT_FUNCTION_OP, */
- "box",
- "box_p_nc",
- "Parrot_box_p_nc",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_sc_s_i",
+ "Parrot_index_i_sc_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 850 */
- /* type PARROT_FUNCTION_OP, */
- "box",
- "box_p_s",
- "Parrot_box_p_s",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_s_sc_i",
+ "Parrot_index_i_s_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 851 */
- /* type PARROT_FUNCTION_OP, */
- "box",
- "box_p_sc",
- "Parrot_box_p_sc",
+ /* type PARROT_INLINE_OP, */
+ "index",
+ "index_i_sc_sc_i",
+ "Parrot_index_i_sc_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 852 */
/* type PARROT_INLINE_OP, */
- "iter",
- "iter_p_p",
- "Parrot_iter_p_p",
+ "index",
+ "index_i_s_s_ic",
+ "Parrot_index_i_s_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 853 */
/* type PARROT_INLINE_OP, */
- "morph",
- "morph_p_p",
- "Parrot_morph_p_p",
+ "index",
+ "index_i_sc_s_ic",
+ "Parrot_index_i_sc_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 854 */
/* type PARROT_INLINE_OP, */
- "morph",
- "morph_p_pc",
- "Parrot_morph_p_pc",
+ "index",
+ "index_i_s_sc_ic",
+ "Parrot_index_i_s_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 855 */
/* type PARROT_INLINE_OP, */
- "clone",
- "clone_s_s",
- "Parrot_clone_s_s",
+ "index",
+ "index_i_sc_sc_ic",
+ "Parrot_index_i_sc_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 856 */
/* type PARROT_INLINE_OP, */
- "clone",
- "clone_s_sc",
- "Parrot_clone_s_sc",
+ "sprintf",
+ "sprintf_s_s_p",
+ "Parrot_sprintf_s_s_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 857 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_i",
- "Parrot_set_i_i",
+ "sprintf",
+ "sprintf_s_sc_p",
+ "Parrot_sprintf_s_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 858 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_ic",
- "Parrot_set_i_ic",
+ "sprintf",
+ "sprintf_p_p_p",
+ "Parrot_sprintf_p_p_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 859 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_n",
- "Parrot_set_i_n",
+ "new",
+ "new_s",
+ "Parrot_new_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 860 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_nc",
- "Parrot_set_i_nc",
+ "new",
+ "new_s_i",
+ "Parrot_new_s_i",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_NC },
+ { PARROT_ARG_S, PARROT_ARG_I },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 861 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_s",
- "Parrot_set_i_s",
+ "new",
+ "new_s_ic",
+ "Parrot_new_s_ic",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARG_S, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 862 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_sc",
- "Parrot_set_i_sc",
+ "stringinfo",
+ "stringinfo_i_s_i",
+ "Parrot_stringinfo_i_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 863 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_n",
- "Parrot_set_n_n",
+ "stringinfo",
+ "stringinfo_i_sc_i",
+ "Parrot_stringinfo_i_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 864 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_nc",
- "Parrot_set_n_nc",
+ "stringinfo",
+ "stringinfo_i_s_ic",
+ "Parrot_stringinfo_i_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 865 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_i",
- "Parrot_set_n_i",
+ "stringinfo",
+ "stringinfo_i_sc_ic",
+ "Parrot_stringinfo_i_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_N, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 866 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_ic",
- "Parrot_set_n_ic",
+ "upcase",
+ "upcase_s_s",
+ "Parrot_upcase_s_s",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_IC },
+ { PARROT_ARG_S, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 867 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_s",
- "Parrot_set_n_s",
+ "upcase",
+ "upcase_s_sc",
+ "Parrot_upcase_s_sc",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_S },
+ { PARROT_ARG_S, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 868 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_sc",
- "Parrot_set_n_sc",
+ "downcase",
+ "downcase_s_s",
+ "Parrot_downcase_s_s",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_SC },
+ { PARROT_ARG_S, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 869 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_p",
- "Parrot_set_n_p",
+ "downcase",
+ "downcase_s_sc",
+ "Parrot_downcase_s_sc",
/* "", body */
0,
3,
- { PARROT_ARG_N, PARROT_ARG_P },
+ { PARROT_ARG_S, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 870 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_s_p",
- "Parrot_set_s_p",
+ "titlecase",
+ "titlecase_s_s",
+ "Parrot_titlecase_s_s",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARG_S, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 871 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_s_s",
- "Parrot_set_s_s",
+ "titlecase",
+ "titlecase_s_sc",
+ "Parrot_titlecase_s_sc",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARG_S, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 872 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_s_sc",
- "Parrot_set_s_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "join",
+ "join_s_s_p",
+ "Parrot_join_s_s_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 873 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_s_i",
- "Parrot_set_s_i",
+ /* type PARROT_FUNCTION_OP, */
+ "join",
+ "join_s_sc_p",
+ "Parrot_join_s_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 874 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_s_ic",
- "Parrot_set_s_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "split",
+ "split_p_s_s",
+ "Parrot_split_p_s_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 875 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_s_n",
- "Parrot_set_s_n",
+ /* type PARROT_FUNCTION_OP, */
+ "split",
+ "split_p_sc_s",
+ "Parrot_split_p_sc_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_N },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 876 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_s_nc",
- "Parrot_set_s_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "split",
+ "split_p_s_sc",
+ "Parrot_split_p_s_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_NC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 877 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_pc",
- "Parrot_set_p_pc",
+ /* type PARROT_FUNCTION_OP, */
+ "split",
+ "split_p_sc_sc",
+ "Parrot_split_p_sc_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 878 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_p",
- "Parrot_set_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "charset",
+ "charset_i_s",
+ "Parrot_charset_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 879 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_i",
- "Parrot_set_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "charset",
+ "charset_i_sc",
+ "Parrot_charset_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 880 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_ic",
- "Parrot_set_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "charsetname",
+ "charsetname_s_i",
+ "Parrot_charsetname_s_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 881 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_n",
- "Parrot_set_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "charsetname",
+ "charsetname_s_ic",
+ "Parrot_charsetname_s_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 882 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_nc",
- "Parrot_set_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "find_charset",
+ "find_charset_i_s",
+ "Parrot_find_charset_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 883 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_s",
- "Parrot_set_p_s",
+ /* type PARROT_FUNCTION_OP, */
+ "find_charset",
+ "find_charset_i_sc",
+ "Parrot_find_charset_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 884 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_sc",
- "Parrot_set_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_charset",
+ "trans_charset_s_s_i",
+ "Parrot_trans_charset_s_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 885 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_i_p",
- "Parrot_set_i_p",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_charset",
+ "trans_charset_s_sc_i",
+ "Parrot_trans_charset_s_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 886 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_p",
- "Parrot_assign_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_charset",
+ "trans_charset_s_s_ic",
+ "Parrot_trans_charset_s_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 887 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_i",
- "Parrot_assign_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_charset",
+ "trans_charset_s_sc_ic",
+ "Parrot_trans_charset_s_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 888 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_ic",
- "Parrot_assign_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "encoding",
+ "encoding_i_s",
+ "Parrot_encoding_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 889 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_n",
- "Parrot_assign_p_n",
+ /* type PARROT_FUNCTION_OP, */
+ "encoding",
+ "encoding_i_sc",
+ "Parrot_encoding_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 890 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_nc",
- "Parrot_assign_p_nc",
+ /* type PARROT_FUNCTION_OP, */
+ "encodingname",
+ "encodingname_s_i",
+ "Parrot_encodingname_s_i",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 891 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_s",
- "Parrot_assign_p_s",
+ /* type PARROT_FUNCTION_OP, */
+ "encodingname",
+ "encodingname_s_ic",
+ "Parrot_encodingname_s_ic",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 892 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_p_sc",
- "Parrot_assign_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "find_encoding",
+ "find_encoding_i_s",
+ "Parrot_find_encoding_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 893 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_s_s",
- "Parrot_assign_s_s",
+ /* type PARROT_FUNCTION_OP, */
+ "find_encoding",
+ "find_encoding_i_sc",
+ "Parrot_find_encoding_i_sc",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARG_I, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 894 */
- /* type PARROT_INLINE_OP, */
- "assign",
- "assign_s_sc",
- "Parrot_assign_s_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_encoding",
+ "trans_encoding_s_s_i",
+ "Parrot_trans_encoding_s_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 895 */
- /* type PARROT_INLINE_OP, */
- "setref",
- "setref_p_p",
- "Parrot_setref_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_encoding",
+ "trans_encoding_s_sc_i",
+ "Parrot_trans_encoding_s_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 896 */
- /* type PARROT_INLINE_OP, */
- "deref",
- "deref_p_p",
- "Parrot_deref_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_encoding",
+ "trans_encoding_s_s_ic",
+ "Parrot_trans_encoding_s_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 897 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_i",
- "Parrot_set_p_ki_i",
+ /* type PARROT_FUNCTION_OP, */
+ "trans_encoding",
+ "trans_encoding_s_sc_ic",
+ "Parrot_trans_encoding_s_sc_ic",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 898 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_i",
- "Parrot_set_p_kic_i",
+ "is_cclass",
+ "is_cclass_i_i_s_i",
+ "Parrot_is_cclass_i_i_s_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 899 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_ic",
- "Parrot_set_p_ki_ic",
+ "is_cclass",
+ "is_cclass_i_ic_s_i",
+ "Parrot_is_cclass_i_ic_s_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 900 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_ic",
- "Parrot_set_p_kic_ic",
+ "is_cclass",
+ "is_cclass_i_i_sc_i",
+ "Parrot_is_cclass_i_i_sc_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 901 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_n",
- "Parrot_set_p_ki_n",
+ "is_cclass",
+ "is_cclass_i_ic_sc_i",
+ "Parrot_is_cclass_i_ic_sc_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 902 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_n",
- "Parrot_set_p_kic_n",
+ "is_cclass",
+ "is_cclass_i_i_s_ic",
+ "Parrot_is_cclass_i_i_s_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 903 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_nc",
- "Parrot_set_p_ki_nc",
+ "is_cclass",
+ "is_cclass_i_ic_s_ic",
+ "Parrot_is_cclass_i_ic_s_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 904 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_nc",
- "Parrot_set_p_kic_nc",
+ "is_cclass",
+ "is_cclass_i_i_sc_ic",
+ "Parrot_is_cclass_i_i_sc_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 905 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_s",
- "Parrot_set_p_ki_s",
+ "is_cclass",
+ "is_cclass_i_ic_sc_ic",
+ "Parrot_is_cclass_i_ic_sc_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 906 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_s",
- "Parrot_set_p_kic_s",
+ "find_cclass",
+ "find_cclass_i_i_s_i_i",
+ "Parrot_find_cclass_i_i_s_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 907 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_sc",
- "Parrot_set_p_ki_sc",
+ "find_cclass",
+ "find_cclass_i_ic_s_i_i",
+ "Parrot_find_cclass_i_ic_s_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 908 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_sc",
- "Parrot_set_p_kic_sc",
+ "find_cclass",
+ "find_cclass_i_i_sc_i_i",
+ "Parrot_find_cclass_i_i_sc_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 909 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_ki_p",
- "Parrot_set_p_ki_p",
+ "find_cclass",
+ "find_cclass_i_ic_sc_i_i",
+ "Parrot_find_cclass_i_ic_sc_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KI, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 910 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kic_p",
- "Parrot_set_p_kic_p",
+ "find_cclass",
+ "find_cclass_i_i_s_ic_i",
+ "Parrot_find_cclass_i_i_s_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KIC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 911 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_p_ki",
- "Parrot_set_i_p_ki",
+ "find_cclass",
+ "find_cclass_i_ic_s_ic_i",
+ "Parrot_find_cclass_i_ic_s_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KI },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 912 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_p_kic",
- "Parrot_set_i_p_kic",
+ "find_cclass",
+ "find_cclass_i_i_sc_ic_i",
+ "Parrot_find_cclass_i_i_sc_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KIC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 913 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_p_ki",
- "Parrot_set_n_p_ki",
+ "find_cclass",
+ "find_cclass_i_ic_sc_ic_i",
+ "Parrot_find_cclass_i_ic_sc_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KI },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 914 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_p_kic",
- "Parrot_set_n_p_kic",
+ "find_cclass",
+ "find_cclass_i_i_s_i_ic",
+ "Parrot_find_cclass_i_i_s_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KIC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 915 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_s_p_ki",
- "Parrot_set_s_p_ki",
+ "find_cclass",
+ "find_cclass_i_ic_s_i_ic",
+ "Parrot_find_cclass_i_ic_s_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KI },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 916 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_s_p_kic",
- "Parrot_set_s_p_kic",
+ "find_cclass",
+ "find_cclass_i_i_sc_i_ic",
+ "Parrot_find_cclass_i_i_sc_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KIC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 917 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_p_ki",
- "Parrot_set_p_p_ki",
+ "find_cclass",
+ "find_cclass_i_ic_sc_i_ic",
+ "Parrot_find_cclass_i_ic_sc_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KI },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 918 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_p_kic",
- "Parrot_set_p_p_kic",
+ "find_cclass",
+ "find_cclass_i_i_s_ic_ic",
+ "Parrot_find_cclass_i_i_s_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KIC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 919 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_i",
- "Parrot_set_p_k_i",
+ "find_cclass",
+ "find_cclass_i_ic_s_ic_ic",
+ "Parrot_find_cclass_i_ic_s_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 920 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_i",
- "Parrot_set_p_kc_i",
+ "find_cclass",
+ "find_cclass_i_i_sc_ic_ic",
+ "Parrot_find_cclass_i_i_sc_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 921 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_ic",
- "Parrot_set_p_k_ic",
+ "find_cclass",
+ "find_cclass_i_ic_sc_ic_ic",
+ "Parrot_find_cclass_i_ic_sc_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 922 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_ic",
- "Parrot_set_p_kc_ic",
+ "find_not_cclass",
+ "find_not_cclass_i_i_s_i_i",
+ "Parrot_find_not_cclass_i_i_s_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 923 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_n",
- "Parrot_set_p_k_n",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_s_i_i",
+ "Parrot_find_not_cclass_i_ic_s_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 924 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_n",
- "Parrot_set_p_kc_n",
+ "find_not_cclass",
+ "find_not_cclass_i_i_sc_i_i",
+ "Parrot_find_not_cclass_i_i_sc_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_N },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 925 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_nc",
- "Parrot_set_p_k_nc",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_sc_i_i",
+ "Parrot_find_not_cclass_i_ic_sc_i_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 926 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_nc",
- "Parrot_set_p_kc_nc",
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
+ },
+ { /* 926 */
+ /* type PARROT_INLINE_OP, */
+ "find_not_cclass",
+ "find_not_cclass_i_i_s_ic_i",
+ "Parrot_find_not_cclass_i_i_s_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_NC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 927 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_s",
- "Parrot_set_p_k_s",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_s_ic_i",
+ "Parrot_find_not_cclass_i_ic_s_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 928 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_s",
- "Parrot_set_p_kc_s",
+ "find_not_cclass",
+ "find_not_cclass_i_i_sc_ic_i",
+ "Parrot_find_not_cclass_i_i_sc_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 929 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_sc",
- "Parrot_set_p_k_sc",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_sc_ic_i",
+ "Parrot_find_not_cclass_i_ic_sc_ic_i",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 930 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_sc",
- "Parrot_set_p_kc_sc",
+ "find_not_cclass",
+ "find_not_cclass_i_i_s_i_ic",
+ "Parrot_find_not_cclass_i_i_s_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 931 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_k_p",
- "Parrot_set_p_k_p",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_s_i_ic",
+ "Parrot_find_not_cclass_i_ic_s_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_K, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 932 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_p_kc_p",
- "Parrot_set_p_kc_p",
+ "find_not_cclass",
+ "find_not_cclass_i_i_sc_i_ic",
+ "Parrot_find_not_cclass_i_i_sc_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_KC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 933 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_p_k",
- "Parrot_set_i_p_k",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_sc_i_ic",
+ "Parrot_find_not_cclass_i_ic_sc_i_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 934 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_i_p_kc",
- "Parrot_set_i_p_kc",
+ "find_not_cclass",
+ "find_not_cclass_i_i_s_ic_ic",
+ "Parrot_find_not_cclass_i_i_s_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_P, PARROT_ARG_KC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 935 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_p_k",
- "Parrot_set_n_p_k",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_s_ic_ic",
+ "Parrot_find_not_cclass_i_ic_s_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 936 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_n_p_kc",
- "Parrot_set_n_p_kc",
+ "find_not_cclass",
+ "find_not_cclass_i_i_sc_ic_ic",
+ "Parrot_find_not_cclass_i_i_sc_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_N, PARROT_ARG_P, PARROT_ARG_KC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 937 */
/* type PARROT_INLINE_OP, */
- "set",
- "set_s_p_k",
- "Parrot_set_s_p_k",
+ "find_not_cclass",
+ "find_not_cclass_i_ic_sc_ic_ic",
+ "Parrot_find_not_cclass_i_ic_sc_ic_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 6,
+ { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0, 0 }
},
{ /* 938 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_s_p_kc",
- "Parrot_set_s_p_kc",
+ /* type PARROT_FUNCTION_OP, */
+ "escape",
+ "escape_s_s",
+ "Parrot_escape_s_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_KC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 939 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_p_k",
- "Parrot_set_p_p_k",
+ /* type PARROT_FUNCTION_OP, */
+ "compose",
+ "compose_s_s",
+ "Parrot_compose_s_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_K },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 940 */
- /* type PARROT_INLINE_OP, */
- "set",
- "set_p_p_kc",
- "Parrot_set_p_p_kc",
+ /* type PARROT_FUNCTION_OP, */
+ "compose",
+ "compose_s_sc",
+ "Parrot_compose_s_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_KC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 941 */
/* type PARROT_INLINE_OP, */
- "clone",
- "clone_p_p",
- "Parrot_clone_p_p",
+ "spawnw",
+ "spawnw_i_s",
+ "Parrot_spawnw_i_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARG_I, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 942 */
/* type PARROT_INLINE_OP, */
- "clone",
- "clone_p_p_p",
- "Parrot_clone_p_p_p",
+ "spawnw",
+ "spawnw_i_sc",
+ "Parrot_spawnw_i_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 943 */
/* type PARROT_INLINE_OP, */
- "clone",
- "clone_p_p_pc",
- "Parrot_clone_p_p_pc",
+ "spawnw",
+ "spawnw_i_p",
+ "Parrot_spawnw_i_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
+ },
{ /* 944 */
/* type PARROT_INLINE_OP, */
- "copy",
- "copy_p_p",
- "Parrot_copy_p_p",
+ "err",
+ "err_i",
+ "Parrot_err_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 945 */
- /* type PARROT_INLINE_OP, */
- "null",
- "null_s",
- "Parrot_null_s",
+ /* type PARROT_FUNCTION_OP, */
+ "err",
+ "err_s",
+ "Parrot_err_s",
/* "", body */
0,
2,
@@ -12699,6970 +12511,3363 @@
{ 0 }
},
{ /* 946 */
- /* type PARROT_INLINE_OP, */
- "null",
- "null_i",
- "Parrot_null_i",
+ /* type PARROT_FUNCTION_OP, */
+ "err",
+ "err_s_i",
+ "Parrot_err_s_i",
/* "", body */
0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 947 */
- /* type PARROT_INLINE_OP, */
- "null",
- "null_p",
- "Parrot_null_p",
+ /* type PARROT_FUNCTION_OP, */
+ "err",
+ "err_s_ic",
+ "Parrot_err_s_ic",
/* "", body */
0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 948 */
/* type PARROT_INLINE_OP, */
- "null",
- "null_n",
- "Parrot_null_n",
+ "time",
+ "time_i",
+ "Parrot_time_i",
/* "", body */
0,
2,
- { PARROT_ARG_N },
+ { PARROT_ARG_I },
{ PARROT_ARGDIR_OUT },
{ 0 }
},
{ /* 949 */
/* type PARROT_INLINE_OP, */
- "ord",
- "ord_i_s",
- "Parrot_ord_i_s",
+ "time",
+ "time_n",
+ "Parrot_time_n",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 950 */
/* type PARROT_INLINE_OP, */
- "ord",
- "ord_i_sc",
- "Parrot_ord_i_sc",
+ "sleep",
+ "sleep_i",
+ "Parrot_sleep_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_I },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 951 */
/* type PARROT_INLINE_OP, */
- "ord",
- "ord_i_s_i",
- "Parrot_ord_i_s_i",
+ "sleep",
+ "sleep_ic",
+ "Parrot_sleep_ic",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 952 */
/* type PARROT_INLINE_OP, */
- "ord",
- "ord_i_sc_i",
- "Parrot_ord_i_sc_i",
+ "sleep",
+ "sleep_n",
+ "Parrot_sleep_n",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_N },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 953 */
/* type PARROT_INLINE_OP, */
- "ord",
- "ord_i_s_ic",
- "Parrot_ord_i_s_ic",
+ "sleep",
+ "sleep_nc",
+ "Parrot_sleep_nc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_NC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
},
{ /* 954 */
- /* type PARROT_INLINE_OP, */
- "ord",
- "ord_i_sc_ic",
- "Parrot_ord_i_sc_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "store_lex",
+ "store_lex_s_p",
+ "Parrot_store_lex_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 955 */
- /* type PARROT_INLINE_OP, */
- "chr",
- "chr_s_i",
- "Parrot_chr_s_i",
+ /* type PARROT_FUNCTION_OP, */
+ "store_lex",
+ "store_lex_sc_p",
+ "Parrot_store_lex_sc_p",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 956 */
- /* type PARROT_INLINE_OP, */
- "chr",
- "chr_s_ic",
- "Parrot_chr_s_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "store_dynamic_lex",
+ "store_dynamic_lex_s_p",
+ "Parrot_store_dynamic_lex_s_p",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 957 */
- /* type PARROT_INLINE_OP, */
- "chopn",
- "chopn_s_s_i",
- "Parrot_chopn_s_s_i",
+ /* type PARROT_FUNCTION_OP, */
+ "store_dynamic_lex",
+ "store_dynamic_lex_sc_p",
+ "Parrot_store_dynamic_lex_sc_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 958 */
- /* type PARROT_INLINE_OP, */
- "chopn",
- "chopn_s_sc_i",
- "Parrot_chopn_s_sc_i",
+ /* type PARROT_FUNCTION_OP, */
+ "find_lex",
+ "find_lex_p_s",
+ "Parrot_find_lex_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 959 */
- /* type PARROT_INLINE_OP, */
- "chopn",
- "chopn_s_s_ic",
- "Parrot_chopn_s_s_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "find_lex",
+ "find_lex_p_sc",
+ "Parrot_find_lex_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 960 */
- /* type PARROT_INLINE_OP, */
- "chopn",
- "chopn_s_sc_ic",
- "Parrot_chopn_s_sc_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "find_dynamic_lex",
+ "find_dynamic_lex_p_s",
+ "Parrot_find_dynamic_lex_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 961 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_s_s",
- "Parrot_concat_s_s",
+ /* type PARROT_FUNCTION_OP, */
+ "find_dynamic_lex",
+ "find_dynamic_lex_p_sc",
+ "Parrot_find_dynamic_lex_p_sc",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 962 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_s_sc",
- "Parrot_concat_s_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "find_caller_lex",
+ "find_caller_lex_p_s",
+ "Parrot_find_caller_lex_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 963 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_p_p",
- "Parrot_concat_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "find_caller_lex",
+ "find_caller_lex_p_sc",
+ "Parrot_find_caller_lex_p_sc",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 964 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_p_s",
- "Parrot_concat_p_s",
+ /* type PARROT_FUNCTION_OP, */
+ "get_namespace",
+ "get_namespace_p",
+ "Parrot_get_namespace_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 965 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_p_sc",
- "Parrot_concat_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "get_namespace",
+ "get_namespace_p_p",
+ "Parrot_get_namespace_p_p",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 966 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_s_s_s",
- "Parrot_concat_s_s_s",
+ /* type PARROT_FUNCTION_OP, */
+ "get_namespace",
+ "get_namespace_p_pc",
+ "Parrot_get_namespace_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 967 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_s_sc_s",
- "Parrot_concat_s_sc_s",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_namespace",
+ "get_hll_namespace_p",
+ "Parrot_get_hll_namespace_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 968 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_s_s_sc",
- "Parrot_concat_s_s_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_namespace",
+ "get_hll_namespace_p_p",
+ "Parrot_get_hll_namespace_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 969 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_p_p_s",
- "Parrot_concat_p_p_s",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_namespace",
+ "get_hll_namespace_p_pc",
+ "Parrot_get_hll_namespace_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 970 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_p_p_sc",
- "Parrot_concat_p_p_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_namespace",
+ "get_root_namespace_p",
+ "Parrot_get_root_namespace_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
},
{ /* 971 */
- /* type PARROT_INLINE_OP, */
- "concat",
- "concat_p_p_p",
- "Parrot_concat_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_namespace",
+ "get_root_namespace_p_p",
+ "Parrot_get_root_namespace_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 972 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_s_s_i",
- "Parrot_repeat_s_s_i",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_namespace",
+ "get_root_namespace_p_pc",
+ "Parrot_get_root_namespace_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 973 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_s_sc_i",
- "Parrot_repeat_s_sc_i",
+ /* type PARROT_FUNCTION_OP, */
+ "get_global",
+ "get_global_p_s",
+ "Parrot_get_global_p_s",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 974 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_s_s_ic",
- "Parrot_repeat_s_s_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "get_global",
+ "get_global_p_sc",
+ "Parrot_get_global_p_sc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 975 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_s_sc_ic",
- "Parrot_repeat_s_sc_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "get_global",
+ "get_global_p_p_s",
+ "Parrot_get_global_p_p_s",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 976 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_p_p_i",
- "Parrot_repeat_p_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "get_global",
+ "get_global_p_pc_s",
+ "Parrot_get_global_p_pc_s",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 977 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_p_p_ic",
- "Parrot_repeat_p_p_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "get_global",
+ "get_global_p_p_sc",
+ "Parrot_get_global_p_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 978 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_p_p_p",
- "Parrot_repeat_p_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "get_global",
+ "get_global_p_pc_sc",
+ "Parrot_get_global_p_pc_sc",
/* "", body */
0,
4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 979 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_p_i",
- "Parrot_repeat_p_i",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_global",
+ "get_hll_global_p_s",
+ "Parrot_get_hll_global_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 980 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_p_ic",
- "Parrot_repeat_p_ic",
- /* "", body */
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_global",
+ "get_hll_global_p_sc",
+ "Parrot_get_hll_global_p_sc",
+ /* "", body */
0,
3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 981 */
- /* type PARROT_INLINE_OP, */
- "repeat",
- "repeat_p_p",
- "Parrot_repeat_p_p",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_global",
+ "get_hll_global_p_p_s",
+ "Parrot_get_hll_global_p_p_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 982 */
- /* type PARROT_INLINE_OP, */
- "length",
- "length_i_s",
- "Parrot_length_i_s",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_global",
+ "get_hll_global_p_pc_s",
+ "Parrot_get_hll_global_p_pc_s",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 983 */
- /* type PARROT_INLINE_OP, */
- "length",
- "length_i_sc",
- "Parrot_length_i_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_global",
+ "get_hll_global_p_p_sc",
+ "Parrot_get_hll_global_p_p_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 984 */
- /* type PARROT_INLINE_OP, */
- "bytelength",
- "bytelength_i_s",
- "Parrot_bytelength_i_s",
+ /* type PARROT_FUNCTION_OP, */
+ "get_hll_global",
+ "get_hll_global_p_pc_sc",
+ "Parrot_get_hll_global_p_pc_sc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 985 */
- /* type PARROT_INLINE_OP, */
- "bytelength",
- "bytelength_i_sc",
- "Parrot_bytelength_i_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_global",
+ "get_root_global_p_s",
+ "Parrot_get_root_global_p_s",
/* "", body */
0,
3,
- { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARG_P, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
{ /* 986 */
/* type PARROT_FUNCTION_OP, */
- "pin",
- "pin_s",
- "Parrot_pin_s",
+ "get_root_global",
+ "get_root_global_p_sc",
+ "Parrot_get_root_global_p_sc",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 987 */
/* type PARROT_FUNCTION_OP, */
- "unpin",
- "unpin_s",
- "Parrot_unpin_s",
+ "get_root_global",
+ "get_root_global_p_p_s",
+ "Parrot_get_root_global_p_p_s",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_INOUT },
- { 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 988 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_s_i",
- "Parrot_substr_s_s_i",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_global",
+ "get_root_global_p_pc_s",
+ "Parrot_get_root_global_p_pc_s",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 989 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_sc_i",
- "Parrot_substr_s_sc_i",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_global",
+ "get_root_global_p_p_sc",
+ "Parrot_get_root_global_p_p_sc",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 990 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_s_ic",
- "Parrot_substr_s_s_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "get_root_global",
+ "get_root_global_p_pc_sc",
+ "Parrot_get_root_global_p_pc_sc",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 991 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_sc_ic",
- "Parrot_substr_s_sc_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_global",
+ "set_global_s_p",
+ "Parrot_set_global_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 992 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_s_i_i",
- "Parrot_substr_s_s_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "set_global",
+ "set_global_sc_p",
+ "Parrot_set_global_sc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 993 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_sc_i_i",
- "Parrot_substr_s_sc_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "set_global",
+ "set_global_p_s_p",
+ "Parrot_set_global_p_s_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 994 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_s_ic_i",
- "Parrot_substr_s_s_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "set_global",
+ "set_global_pc_s_p",
+ "Parrot_set_global_pc_s_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 995 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_sc_ic_i",
- "Parrot_substr_s_sc_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "set_global",
+ "set_global_p_sc_p",
+ "Parrot_set_global_p_sc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 996 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_s_i_ic",
- "Parrot_substr_s_s_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_global",
+ "set_global_pc_sc_p",
+ "Parrot_set_global_pc_sc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 997 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_sc_i_ic",
- "Parrot_substr_s_sc_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_hll_global",
+ "set_hll_global_s_p",
+ "Parrot_set_hll_global_s_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 998 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_s_ic_ic",
- "Parrot_substr_s_s_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_hll_global",
+ "set_hll_global_sc_p",
+ "Parrot_set_hll_global_sc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 999 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_sc_ic_ic",
- "Parrot_substr_s_sc_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_hll_global",
+ "set_hll_global_p_s_p",
+ "Parrot_set_hll_global_p_s_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1000 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_p_i_i",
- "Parrot_substr_s_p_i_i",
+ /* type PARROT_FUNCTION_OP, */
+ "set_hll_global",
+ "set_hll_global_pc_s_p",
+ "Parrot_set_hll_global_pc_s_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1001 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_p_ic_i",
- "Parrot_substr_s_p_ic_i",
+ /* type PARROT_FUNCTION_OP, */
+ "set_hll_global",
+ "set_hll_global_p_sc_p",
+ "Parrot_set_hll_global_p_sc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1002 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_p_i_ic",
- "Parrot_substr_s_p_i_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_hll_global",
+ "set_hll_global_pc_sc_p",
+ "Parrot_set_hll_global_pc_sc_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1003 */
- /* type PARROT_INLINE_OP, */
- "substr",
- "substr_s_p_ic_ic",
- "Parrot_substr_s_p_ic_ic",
+ /* type PARROT_FUNCTION_OP, */
+ "set_root_global",
+ "set_root_global_s_p",
+ "Parrot_set_root_global_s_p",
/* "", body */
0,
- 5,
- { PARROT_ARG_S, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1004 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_i_i_s",
- "Parrot_replace_s_s_i_i_s",
+ /* type PARROT_FUNCTION_OP, */
+ "set_root_global",
+ "set_root_global_sc_p",
+ "Parrot_set_root_global_sc_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1005 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_i_i_s",
- "Parrot_replace_s_sc_i_i_s",
+ /* type PARROT_FUNCTION_OP, */
+ "set_root_global",
+ "set_root_global_p_s_p",
+ "Parrot_set_root_global_p_s_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1006 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_ic_i_s",
- "Parrot_replace_s_s_ic_i_s",
+ /* type PARROT_FUNCTION_OP, */
+ "set_root_global",
+ "set_root_global_pc_s_p",
+ "Parrot_set_root_global_pc_s_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1007 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_ic_i_s",
- "Parrot_replace_s_sc_ic_i_s",
+ /* type PARROT_FUNCTION_OP, */
+ "set_root_global",
+ "set_root_global_p_sc_p",
+ "Parrot_set_root_global_p_sc_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1008 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_i_ic_s",
- "Parrot_replace_s_s_i_ic_s",
+ /* type PARROT_FUNCTION_OP, */
+ "set_root_global",
+ "set_root_global_pc_sc_p",
+ "Parrot_set_root_global_pc_sc_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 4,
+ { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1009 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_i_ic_s",
- "Parrot_replace_s_sc_i_ic_s",
+ /* type PARROT_FUNCTION_OP, */
+ "find_name",
+ "find_name_p_s",
+ "Parrot_find_name_p_s",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1010 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_ic_ic_s",
- "Parrot_replace_s_s_ic_ic_s",
+ /* type PARROT_FUNCTION_OP, */
+ "find_name",
+ "find_name_p_sc",
+ "Parrot_find_name_p_sc",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1011 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_ic_ic_s",
- "Parrot_replace_s_sc_ic_ic_s",
+ "find_sub_not_null",
+ "find_sub_not_null_p_s",
+ "Parrot_find_sub_not_null_p_s",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1012 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_i_i_sc",
- "Parrot_replace_s_s_i_i_sc",
+ "find_sub_not_null",
+ "find_sub_not_null_p_sc",
+ "Parrot_find_sub_not_null_p_sc",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1013 */
- /* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_i_i_sc",
- "Parrot_replace_s_sc_i_i_sc",
+ /* type PARROT_FUNCTION_OP, */
+ "trap",
+ "trap",
+ "Parrot_trap",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 1,
+ { (arg_type_t) 0 },
+ { (arg_dir_t) 0 },
+ { 0 }
},
{ /* 1014 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_ic_i_sc",
- "Parrot_replace_s_s_ic_i_sc",
+ "set_label",
+ "set_label_p_ic",
+ "Parrot_set_label_p_ic",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 1 }
},
{ /* 1015 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_ic_i_sc",
- "Parrot_replace_s_sc_ic_i_sc",
+ "get_label",
+ "get_label_i_p",
+ "Parrot_get_label_i_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
},
{ /* 1016 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_i_ic_sc",
- "Parrot_replace_s_s_i_ic_sc",
+ "fetch",
+ "fetch_p_p_p_p",
+ "Parrot_fetch_p_p_p_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1017 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_i_ic_sc",
- "Parrot_replace_s_sc_i_ic_sc",
+ "fetch",
+ "fetch_p_pc_p_p",
+ "Parrot_fetch_p_pc_p_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1018 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_s_ic_ic_sc",
- "Parrot_replace_s_s_ic_ic_sc",
+ "fetch",
+ "fetch_p_p_pc_p",
+ "Parrot_fetch_p_p_pc_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1019 */
/* type PARROT_INLINE_OP, */
- "replace",
- "replace_s_sc_ic_ic_sc",
- "Parrot_replace_s_sc_ic_ic_sc",
+ "fetch",
+ "fetch_p_pc_pc_p",
+ "Parrot_fetch_p_pc_pc_p",
/* "", body */
0,
- 6,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1020 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_s_s",
- "Parrot_index_i_s_s",
+ "fetch",
+ "fetch_p_p_p_pc",
+ "Parrot_fetch_p_p_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1021 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_sc_s",
- "Parrot_index_i_sc_s",
+ "fetch",
+ "fetch_p_pc_p_pc",
+ "Parrot_fetch_p_pc_p_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1022 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_s_sc",
- "Parrot_index_i_s_sc",
+ "fetch",
+ "fetch_p_p_pc_pc",
+ "Parrot_fetch_p_p_pc_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1023 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_sc_sc",
- "Parrot_index_i_sc_sc",
+ "fetch",
+ "fetch_p_pc_pc_pc",
+ "Parrot_fetch_p_pc_pc_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1024 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_s_s_i",
- "Parrot_index_i_s_s_i",
+ "fetch",
+ "fetch_p_p_i_p",
+ "Parrot_fetch_p_p_i_p",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1025 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_sc_s_i",
- "Parrot_index_i_sc_s_i",
+ "fetch",
+ "fetch_p_pc_i_p",
+ "Parrot_fetch_p_pc_i_p",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1026 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_s_sc_i",
- "Parrot_index_i_s_sc_i",
+ "fetch",
+ "fetch_p_p_ic_p",
+ "Parrot_fetch_p_p_ic_p",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1027 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_sc_sc_i",
- "Parrot_index_i_sc_sc_i",
+ "fetch",
+ "fetch_p_pc_ic_p",
+ "Parrot_fetch_p_pc_ic_p",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_P },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1028 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_s_s_ic",
- "Parrot_index_i_s_s_ic",
+ "fetch",
+ "fetch_p_p_i_pc",
+ "Parrot_fetch_p_p_i_pc",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1029 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_sc_s_ic",
- "Parrot_index_i_sc_s_ic",
+ "fetch",
+ "fetch_p_pc_i_pc",
+ "Parrot_fetch_p_pc_i_pc",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1030 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_s_sc_ic",
- "Parrot_index_i_s_sc_ic",
+ "fetch",
+ "fetch_p_p_ic_pc",
+ "Parrot_fetch_p_p_ic_pc",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1031 */
/* type PARROT_INLINE_OP, */
- "index",
- "index_i_sc_sc_ic",
- "Parrot_index_i_sc_sc_ic",
+ "fetch",
+ "fetch_p_pc_ic_pc",
+ "Parrot_fetch_p_pc_ic_pc",
/* "", body */
0,
5,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_PC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
{ /* 1032 */
/* type PARROT_INLINE_OP, */
- "sprintf",
- "sprintf_s_s_p",
- "Parrot_sprintf_s_s_p",
+ "fetch",
+ "fetch_p_p_s_p",
+ "Parrot_fetch_p_p_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1033 */
/* type PARROT_INLINE_OP, */
- "sprintf",
- "sprintf_s_sc_p",
- "Parrot_sprintf_s_sc_p",
+ "fetch",
+ "fetch_p_pc_s_p",
+ "Parrot_fetch_p_pc_s_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1034 */
/* type PARROT_INLINE_OP, */
- "sprintf",
- "sprintf_p_p_p",
- "Parrot_sprintf_p_p_p",
+ "fetch",
+ "fetch_p_p_sc_p",
+ "Parrot_fetch_p_p_sc_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1035 */
/* type PARROT_INLINE_OP, */
- "new",
- "new_s",
- "Parrot_new_s",
+ "fetch",
+ "fetch_p_pc_sc_p",
+ "Parrot_fetch_p_pc_sc_p",
/* "", body */
0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_OUT },
- { 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1036 */
/* type PARROT_INLINE_OP, */
- "new",
- "new_s_i",
- "Parrot_new_s_i",
+ "fetch",
+ "fetch_p_p_s_pc",
+ "Parrot_fetch_p_p_s_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1037 */
/* type PARROT_INLINE_OP, */
- "new",
- "new_s_ic",
- "Parrot_new_s_ic",
+ "fetch",
+ "fetch_p_pc_s_pc",
+ "Parrot_fetch_p_pc_s_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1038 */
/* type PARROT_INLINE_OP, */
- "stringinfo",
- "stringinfo_i_s_i",
- "Parrot_stringinfo_i_s_i",
+ "fetch",
+ "fetch_p_p_sc_pc",
+ "Parrot_fetch_p_p_sc_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1039 */
/* type PARROT_INLINE_OP, */
- "stringinfo",
- "stringinfo_i_sc_i",
- "Parrot_stringinfo_i_sc_i",
+ "fetch",
+ "fetch_p_pc_sc_pc",
+ "Parrot_fetch_p_pc_sc_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1040 */
/* type PARROT_INLINE_OP, */
- "stringinfo",
- "stringinfo_i_s_ic",
- "Parrot_stringinfo_i_s_ic",
+ "vivify",
+ "vivify_p_p_p_p",
+ "Parrot_vivify_p_p_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1041 */
/* type PARROT_INLINE_OP, */
- "stringinfo",
- "stringinfo_i_sc_ic",
- "Parrot_stringinfo_i_sc_ic",
+ "vivify",
+ "vivify_p_pc_p_p",
+ "Parrot_vivify_p_pc_p_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1042 */
/* type PARROT_INLINE_OP, */
- "upcase",
- "upcase_s_s",
- "Parrot_upcase_s_s",
+ "vivify",
+ "vivify_p_p_pc_p",
+ "Parrot_vivify_p_p_pc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1043 */
/* type PARROT_INLINE_OP, */
- "upcase",
- "upcase_s_sc",
- "Parrot_upcase_s_sc",
+ "vivify",
+ "vivify_p_pc_pc_p",
+ "Parrot_vivify_p_pc_pc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1044 */
/* type PARROT_INLINE_OP, */
- "downcase",
- "downcase_s_s",
- "Parrot_downcase_s_s",
+ "vivify",
+ "vivify_p_p_p_pc",
+ "Parrot_vivify_p_p_p_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1045 */
/* type PARROT_INLINE_OP, */
- "downcase",
- "downcase_s_sc",
- "Parrot_downcase_s_sc",
+ "vivify",
+ "vivify_p_pc_p_pc",
+ "Parrot_vivify_p_pc_p_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1046 */
/* type PARROT_INLINE_OP, */
- "titlecase",
- "titlecase_s_s",
- "Parrot_titlecase_s_s",
+ "vivify",
+ "vivify_p_p_pc_pc",
+ "Parrot_vivify_p_p_pc_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1047 */
/* type PARROT_INLINE_OP, */
- "titlecase",
- "titlecase_s_sc",
- "Parrot_titlecase_s_sc",
+ "vivify",
+ "vivify_p_pc_pc_pc",
+ "Parrot_vivify_p_pc_pc_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1048 */
- /* type PARROT_FUNCTION_OP, */
- "join",
- "join_s_s_p",
- "Parrot_join_s_s_p",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_i_p",
+ "Parrot_vivify_p_p_i_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1049 */
- /* type PARROT_FUNCTION_OP, */
- "join",
- "join_s_sc_p",
- "Parrot_join_s_sc_p",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_i_p",
+ "Parrot_vivify_p_pc_i_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1050 */
- /* type PARROT_FUNCTION_OP, */
- "split",
- "split_p_s_s",
- "Parrot_split_p_s_s",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_ic_p",
+ "Parrot_vivify_p_p_ic_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1051 */
- /* type PARROT_FUNCTION_OP, */
- "split",
- "split_p_sc_s",
- "Parrot_split_p_sc_s",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_ic_p",
+ "Parrot_vivify_p_pc_ic_p",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1052 */
- /* type PARROT_FUNCTION_OP, */
- "split",
- "split_p_s_sc",
- "Parrot_split_p_s_sc",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_i_pc",
+ "Parrot_vivify_p_p_i_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1053 */
- /* type PARROT_FUNCTION_OP, */
- "split",
- "split_p_sc_sc",
- "Parrot_split_p_sc_sc",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_i_pc",
+ "Parrot_vivify_p_pc_i_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1054 */
- /* type PARROT_FUNCTION_OP, */
- "charset",
- "charset_i_s",
- "Parrot_charset_i_s",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_ic_pc",
+ "Parrot_vivify_p_p_ic_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1055 */
- /* type PARROT_FUNCTION_OP, */
- "charset",
- "charset_i_sc",
- "Parrot_charset_i_sc",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_ic_pc",
+ "Parrot_vivify_p_pc_ic_pc",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1056 */
- /* type PARROT_FUNCTION_OP, */
- "charsetname",
- "charsetname_s_i",
- "Parrot_charsetname_s_i",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_s_p",
+ "Parrot_vivify_p_p_s_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1057 */
- /* type PARROT_FUNCTION_OP, */
- "charsetname",
- "charsetname_s_ic",
- "Parrot_charsetname_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_s_p",
+ "Parrot_vivify_p_pc_s_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1058 */
- /* type PARROT_FUNCTION_OP, */
- "find_charset",
- "find_charset_i_s",
- "Parrot_find_charset_i_s",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_sc_p",
+ "Parrot_vivify_p_p_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1059 */
- /* type PARROT_FUNCTION_OP, */
- "find_charset",
- "find_charset_i_sc",
- "Parrot_find_charset_i_sc",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_sc_p",
+ "Parrot_vivify_p_pc_sc_p",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1060 */
- /* type PARROT_FUNCTION_OP, */
- "trans_charset",
- "trans_charset_s_s_i",
- "Parrot_trans_charset_s_s_i",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_s_pc",
+ "Parrot_vivify_p_p_s_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1061 */
- /* type PARROT_FUNCTION_OP, */
- "trans_charset",
- "trans_charset_s_sc_i",
- "Parrot_trans_charset_s_sc_i",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_s_pc",
+ "Parrot_vivify_p_pc_s_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1062 */
- /* type PARROT_FUNCTION_OP, */
- "trans_charset",
- "trans_charset_s_s_ic",
- "Parrot_trans_charset_s_s_ic",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_p_sc_pc",
+ "Parrot_vivify_p_p_sc_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1063 */
- /* type PARROT_FUNCTION_OP, */
- "trans_charset",
- "trans_charset_s_sc_ic",
- "Parrot_trans_charset_s_sc_ic",
+ /* type PARROT_INLINE_OP, */
+ "vivify",
+ "vivify_p_pc_sc_pc",
+ "Parrot_vivify_p_pc_sc_pc",
/* "", body */
0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
+ 5,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_PC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0, 0 }
},
{ /* 1064 */
/* type PARROT_FUNCTION_OP, */
- "encoding",
- "encoding_i_s",
- "Parrot_encoding_i_s",
+ "new",
+ "new_p_s_i",
+ "Parrot_new_p_s_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1065 */
/* type PARROT_FUNCTION_OP, */
- "encoding",
- "encoding_i_sc",
- "Parrot_encoding_i_sc",
+ "new",
+ "new_p_sc_i",
+ "Parrot_new_p_sc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1066 */
/* type PARROT_FUNCTION_OP, */
- "encodingname",
- "encodingname_s_i",
- "Parrot_encodingname_s_i",
+ "new",
+ "new_p_s_ic",
+ "Parrot_new_p_s_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1067 */
/* type PARROT_FUNCTION_OP, */
- "encodingname",
- "encodingname_s_ic",
- "Parrot_encodingname_s_ic",
+ "new",
+ "new_p_sc_ic",
+ "Parrot_new_p_sc_ic",
/* "", body */
0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1068 */
/* type PARROT_FUNCTION_OP, */
- "find_encoding",
- "find_encoding_i_s",
- "Parrot_find_encoding_i_s",
+ "new",
+ "new_p_p_i",
+ "Parrot_new_p_p_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1069 */
/* type PARROT_FUNCTION_OP, */
- "find_encoding",
- "find_encoding_i_sc",
- "Parrot_find_encoding_i_sc",
+ "new",
+ "new_p_pc_i",
+ "Parrot_new_p_pc_i",
/* "", body */
0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
},
{ /* 1070 */
/* type PARROT_FUNCTION_OP, */
- "trans_encoding",
- "trans_encoding_s_s_i",
- "Parrot_trans_encoding_s_s_i",
+ "new",
+ "new_p_p_ic",
+ "Parrot_new_p_p_ic",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 1071 */
/* type PARROT_FUNCTION_OP, */
- "trans_encoding",
- "trans_encoding_s_sc_i",
- "Parrot_trans_encoding_s_sc_i",
+ "new",
+ "new_p_pc_ic",
+ "Parrot_new_p_pc_ic",
/* "", body */
0,
4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_I },
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC },
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
{ /* 1072 */
/* type PARROT_FUNCTION_OP, */
- "trans_encoding",
- "trans_encoding_s_s_ic",
- "Parrot_trans_encoding_s_s_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1073 */
- /* type PARROT_FUNCTION_OP, */
- "trans_encoding",
- "trans_encoding_s_sc_ic",
- "Parrot_trans_encoding_s_sc_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_S, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1074 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_i_s_i",
- "Parrot_is_cclass_i_i_s_i",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1075 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_ic_s_i",
- "Parrot_is_cclass_i_ic_s_i",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1076 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_i_sc_i",
- "Parrot_is_cclass_i_i_sc_i",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1077 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_ic_sc_i",
- "Parrot_is_cclass_i_ic_sc_i",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1078 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_i_s_ic",
- "Parrot_is_cclass_i_i_s_ic",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1079 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_ic_s_ic",
- "Parrot_is_cclass_i_ic_s_ic",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1080 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_i_sc_ic",
- "Parrot_is_cclass_i_i_sc_ic",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1081 */
- /* type PARROT_INLINE_OP, */
- "is_cclass",
- "is_cclass_i_ic_sc_ic",
- "Parrot_is_cclass_i_ic_sc_ic",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1082 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_s_i_i",
- "Parrot_find_cclass_i_i_s_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1083 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_s_i_i",
- "Parrot_find_cclass_i_ic_s_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1084 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_sc_i_i",
- "Parrot_find_cclass_i_i_sc_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1085 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_sc_i_i",
- "Parrot_find_cclass_i_ic_sc_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1086 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_s_ic_i",
- "Parrot_find_cclass_i_i_s_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1087 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_s_ic_i",
- "Parrot_find_cclass_i_ic_s_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1088 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_sc_ic_i",
- "Parrot_find_cclass_i_i_sc_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1089 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_sc_ic_i",
- "Parrot_find_cclass_i_ic_sc_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1090 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_s_i_ic",
- "Parrot_find_cclass_i_i_s_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1091 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_s_i_ic",
- "Parrot_find_cclass_i_ic_s_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1092 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_sc_i_ic",
- "Parrot_find_cclass_i_i_sc_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1093 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_sc_i_ic",
- "Parrot_find_cclass_i_ic_sc_i_ic",
+ "root_new",
+ "root_new_p_p_i",
+ "Parrot_root_new_p_p_i",
/* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1094 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_s_ic_ic",
- "Parrot_find_cclass_i_i_s_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1095 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_s_ic_ic",
- "Parrot_find_cclass_i_ic_s_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1096 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_i_sc_ic_ic",
- "Parrot_find_cclass_i_i_sc_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1097 */
- /* type PARROT_INLINE_OP, */
- "find_cclass",
- "find_cclass_i_ic_sc_ic_ic",
- "Parrot_find_cclass_i_ic_sc_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1098 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_s_i_i",
- "Parrot_find_not_cclass_i_i_s_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1099 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_s_i_i",
- "Parrot_find_not_cclass_i_ic_s_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1100 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_sc_i_i",
- "Parrot_find_not_cclass_i_i_sc_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1101 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_sc_i_i",
- "Parrot_find_not_cclass_i_ic_sc_i_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1102 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_s_ic_i",
- "Parrot_find_not_cclass_i_i_s_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1103 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_s_ic_i",
- "Parrot_find_not_cclass_i_ic_s_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1104 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_sc_ic_i",
- "Parrot_find_not_cclass_i_i_sc_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1105 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_sc_ic_i",
- "Parrot_find_not_cclass_i_ic_sc_ic_i",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1106 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_s_i_ic",
- "Parrot_find_not_cclass_i_i_s_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1107 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_s_i_ic",
- "Parrot_find_not_cclass_i_ic_s_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1108 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_sc_i_ic",
- "Parrot_find_not_cclass_i_i_sc_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1109 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_sc_i_ic",
- "Parrot_find_not_cclass_i_ic_sc_i_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1110 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_s_ic_ic",
- "Parrot_find_not_cclass_i_i_s_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1111 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_s_ic_ic",
- "Parrot_find_not_cclass_i_ic_s_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_S, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1112 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_i_sc_ic_ic",
- "Parrot_find_not_cclass_i_i_sc_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_I, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1113 */
- /* type PARROT_INLINE_OP, */
- "find_not_cclass",
- "find_not_cclass_i_ic_sc_ic_ic",
- "Parrot_find_not_cclass_i_ic_sc_ic_ic",
- /* "", body */
- 0,
- 6,
- { PARROT_ARG_I, PARROT_ARG_IC, PARROT_ARG_SC, PARROT_ARG_IC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0, 0 }
- },
- { /* 1114 */
- /* type PARROT_FUNCTION_OP, */
- "escape",
- "escape_s_s",
- "Parrot_escape_s_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1115 */
- /* type PARROT_FUNCTION_OP, */
- "compose",
- "compose_s_s",
- "Parrot_compose_s_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1116 */
- /* type PARROT_FUNCTION_OP, */
- "compose",
- "compose_s_sc",
- "Parrot_compose_s_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1117 */
- /* type PARROT_INLINE_OP, */
- "spawnw",
- "spawnw_i_s",
- "Parrot_spawnw_i_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1118 */
- /* type PARROT_INLINE_OP, */
- "spawnw",
- "spawnw_i_sc",
- "Parrot_spawnw_i_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1119 */
- /* type PARROT_INLINE_OP, */
- "spawnw",
- "spawnw_i_p",
- "Parrot_spawnw_i_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1120 */
- /* type PARROT_INLINE_OP, */
- "err",
- "err_i",
- "Parrot_err_i",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1121 */
- /* type PARROT_FUNCTION_OP, */
- "err",
- "err_s",
- "Parrot_err_s",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_S },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1122 */
- /* type PARROT_FUNCTION_OP, */
- "err",
- "err_s_i",
- "Parrot_err_s_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1123 */
- /* type PARROT_FUNCTION_OP, */
- "err",
- "err_s_ic",
- "Parrot_err_s_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1124 */
- /* type PARROT_INLINE_OP, */
- "time",
- "time_i",
- "Parrot_time_i",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1125 */
- /* type PARROT_INLINE_OP, */
- "time",
- "time_n",
- "Parrot_time_n",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1126 */
- /* type PARROT_FUNCTION_OP, */
- "gmtime",
- "gmtime_s_i",
- "Parrot_gmtime_s_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1127 */
- /* type PARROT_FUNCTION_OP, */
- "gmtime",
- "gmtime_s_ic",
- "Parrot_gmtime_s_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1128 */
- /* type PARROT_FUNCTION_OP, */
- "localtime",
- "localtime_s_i",
- "Parrot_localtime_s_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1129 */
- /* type PARROT_FUNCTION_OP, */
- "localtime",
- "localtime_s_ic",
- "Parrot_localtime_s_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1130 */
- /* type PARROT_FUNCTION_OP, */
- "decodetime",
- "decodetime_p_i",
- "Parrot_decodetime_p_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1131 */
- /* type PARROT_FUNCTION_OP, */
- "decodetime",
- "decodetime_p_ic",
- "Parrot_decodetime_p_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1132 */
- /* type PARROT_FUNCTION_OP, */
- "decodelocaltime",
- "decodelocaltime_p_i",
- "Parrot_decodelocaltime_p_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1133 */
- /* type PARROT_FUNCTION_OP, */
- "decodelocaltime",
- "decodelocaltime_p_ic",
- "Parrot_decodelocaltime_p_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1134 */
- /* type PARROT_INLINE_OP, */
- "sysinfo",
- "sysinfo_s_i",
- "Parrot_sysinfo_s_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1135 */
- /* type PARROT_INLINE_OP, */
- "sysinfo",
- "sysinfo_s_ic",
- "Parrot_sysinfo_s_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1136 */
- /* type PARROT_INLINE_OP, */
- "sysinfo",
- "sysinfo_i_i",
- "Parrot_sysinfo_i_i",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1137 */
- /* type PARROT_INLINE_OP, */
- "sysinfo",
- "sysinfo_i_ic",
- "Parrot_sysinfo_i_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1138 */
- /* type PARROT_INLINE_OP, */
- "sleep",
- "sleep_i",
- "Parrot_sleep_i",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_I },
- { PARROT_ARGDIR_IN },
- { 0 }
- },
- { /* 1139 */
- /* type PARROT_INLINE_OP, */
- "sleep",
- "sleep_ic",
- "Parrot_sleep_ic",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_IC },
- { PARROT_ARGDIR_IN },
- { 0 }
- },
- { /* 1140 */
- /* type PARROT_INLINE_OP, */
- "sleep",
- "sleep_n",
- "Parrot_sleep_n",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_N },
- { PARROT_ARGDIR_IN },
- { 0 }
- },
- { /* 1141 */
- /* type PARROT_INLINE_OP, */
- "sleep",
- "sleep_nc",
- "Parrot_sleep_nc",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_NC },
- { PARROT_ARGDIR_IN },
- { 0 }
- },
- { /* 1142 */
- /* type PARROT_FUNCTION_OP, */
- "store_lex",
- "store_lex_s_p",
- "Parrot_store_lex_s_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1143 */
- /* type PARROT_FUNCTION_OP, */
- "store_lex",
- "store_lex_sc_p",
- "Parrot_store_lex_sc_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1144 */
- /* type PARROT_FUNCTION_OP, */
- "store_dynamic_lex",
- "store_dynamic_lex_s_p",
- "Parrot_store_dynamic_lex_s_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1145 */
- /* type PARROT_FUNCTION_OP, */
- "store_dynamic_lex",
- "store_dynamic_lex_sc_p",
- "Parrot_store_dynamic_lex_sc_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1146 */
- /* type PARROT_FUNCTION_OP, */
- "find_lex",
- "find_lex_p_s",
- "Parrot_find_lex_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1147 */
- /* type PARROT_FUNCTION_OP, */
- "find_lex",
- "find_lex_p_sc",
- "Parrot_find_lex_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1148 */
- /* type PARROT_FUNCTION_OP, */
- "find_dynamic_lex",
- "find_dynamic_lex_p_s",
- "Parrot_find_dynamic_lex_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1149 */
- /* type PARROT_FUNCTION_OP, */
- "find_dynamic_lex",
- "find_dynamic_lex_p_sc",
- "Parrot_find_dynamic_lex_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1150 */
- /* type PARROT_FUNCTION_OP, */
- "find_caller_lex",
- "find_caller_lex_p_s",
- "Parrot_find_caller_lex_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1151 */
- /* type PARROT_FUNCTION_OP, */
- "find_caller_lex",
- "find_caller_lex_p_sc",
- "Parrot_find_caller_lex_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1152 */
- /* type PARROT_FUNCTION_OP, */
- "get_namespace",
- "get_namespace_p",
- "Parrot_get_namespace_p",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1153 */
- /* type PARROT_FUNCTION_OP, */
- "get_namespace",
- "get_namespace_p_p",
- "Parrot_get_namespace_p_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1154 */
- /* type PARROT_FUNCTION_OP, */
- "get_namespace",
- "get_namespace_p_pc",
- "Parrot_get_namespace_p_pc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1155 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_namespace",
- "get_hll_namespace_p",
- "Parrot_get_hll_namespace_p",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1156 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_namespace",
- "get_hll_namespace_p_p",
- "Parrot_get_hll_namespace_p_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1157 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_namespace",
- "get_hll_namespace_p_pc",
- "Parrot_get_hll_namespace_p_pc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1158 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_namespace",
- "get_root_namespace_p",
- "Parrot_get_root_namespace_p",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_OUT },
- { 0 }
- },
- { /* 1159 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_namespace",
- "get_root_namespace_p_p",
- "Parrot_get_root_namespace_p_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1160 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_namespace",
- "get_root_namespace_p_pc",
- "Parrot_get_root_namespace_p_pc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1161 */
- /* type PARROT_FUNCTION_OP, */
- "get_global",
- "get_global_p_s",
- "Parrot_get_global_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1162 */
- /* type PARROT_FUNCTION_OP, */
- "get_global",
- "get_global_p_sc",
- "Parrot_get_global_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1163 */
- /* type PARROT_FUNCTION_OP, */
- "get_global",
- "get_global_p_p_s",
- "Parrot_get_global_p_p_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1164 */
- /* type PARROT_FUNCTION_OP, */
- "get_global",
- "get_global_p_pc_s",
- "Parrot_get_global_p_pc_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1165 */
- /* type PARROT_FUNCTION_OP, */
- "get_global",
- "get_global_p_p_sc",
- "Parrot_get_global_p_p_sc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1166 */
- /* type PARROT_FUNCTION_OP, */
- "get_global",
- "get_global_p_pc_sc",
- "Parrot_get_global_p_pc_sc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1167 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_global",
- "get_hll_global_p_s",
- "Parrot_get_hll_global_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1168 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_global",
- "get_hll_global_p_sc",
- "Parrot_get_hll_global_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1169 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_global",
- "get_hll_global_p_p_s",
- "Parrot_get_hll_global_p_p_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1170 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_global",
- "get_hll_global_p_pc_s",
- "Parrot_get_hll_global_p_pc_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1171 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_global",
- "get_hll_global_p_p_sc",
- "Parrot_get_hll_global_p_p_sc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1172 */
- /* type PARROT_FUNCTION_OP, */
- "get_hll_global",
- "get_hll_global_p_pc_sc",
- "Parrot_get_hll_global_p_pc_sc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1173 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_global",
- "get_root_global_p_s",
- "Parrot_get_root_global_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1174 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_global",
- "get_root_global_p_sc",
- "Parrot_get_root_global_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1175 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_global",
- "get_root_global_p_p_s",
- "Parrot_get_root_global_p_p_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1176 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_global",
- "get_root_global_p_pc_s",
- "Parrot_get_root_global_p_pc_s",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1177 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_global",
- "get_root_global_p_p_sc",
- "Parrot_get_root_global_p_p_sc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1178 */
- /* type PARROT_FUNCTION_OP, */
- "get_root_global",
- "get_root_global_p_pc_sc",
- "Parrot_get_root_global_p_pc_sc",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1179 */
- /* type PARROT_FUNCTION_OP, */
- "set_global",
- "set_global_s_p",
- "Parrot_set_global_s_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1180 */
- /* type PARROT_FUNCTION_OP, */
- "set_global",
- "set_global_sc_p",
- "Parrot_set_global_sc_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1181 */
- /* type PARROT_FUNCTION_OP, */
- "set_global",
- "set_global_p_s_p",
- "Parrot_set_global_p_s_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1182 */
- /* type PARROT_FUNCTION_OP, */
- "set_global",
- "set_global_pc_s_p",
- "Parrot_set_global_pc_s_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1183 */
- /* type PARROT_FUNCTION_OP, */
- "set_global",
- "set_global_p_sc_p",
- "Parrot_set_global_p_sc_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1184 */
- /* type PARROT_FUNCTION_OP, */
- "set_global",
- "set_global_pc_sc_p",
- "Parrot_set_global_pc_sc_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1185 */
- /* type PARROT_FUNCTION_OP, */
- "set_hll_global",
- "set_hll_global_s_p",
- "Parrot_set_hll_global_s_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1186 */
- /* type PARROT_FUNCTION_OP, */
- "set_hll_global",
- "set_hll_global_sc_p",
- "Parrot_set_hll_global_sc_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1187 */
- /* type PARROT_FUNCTION_OP, */
- "set_hll_global",
- "set_hll_global_p_s_p",
- "Parrot_set_hll_global_p_s_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1188 */
- /* type PARROT_FUNCTION_OP, */
- "set_hll_global",
- "set_hll_global_pc_s_p",
- "Parrot_set_hll_global_pc_s_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1189 */
- /* type PARROT_FUNCTION_OP, */
- "set_hll_global",
- "set_hll_global_p_sc_p",
- "Parrot_set_hll_global_p_sc_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1190 */
- /* type PARROT_FUNCTION_OP, */
- "set_hll_global",
- "set_hll_global_pc_sc_p",
- "Parrot_set_hll_global_pc_sc_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1191 */
- /* type PARROT_FUNCTION_OP, */
- "set_root_global",
- "set_root_global_s_p",
- "Parrot_set_root_global_s_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1192 */
- /* type PARROT_FUNCTION_OP, */
- "set_root_global",
- "set_root_global_sc_p",
- "Parrot_set_root_global_sc_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1193 */
- /* type PARROT_FUNCTION_OP, */
- "set_root_global",
- "set_root_global_p_s_p",
- "Parrot_set_root_global_p_s_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1194 */
- /* type PARROT_FUNCTION_OP, */
- "set_root_global",
- "set_root_global_pc_s_p",
- "Parrot_set_root_global_pc_s_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1195 */
- /* type PARROT_FUNCTION_OP, */
- "set_root_global",
- "set_root_global_p_sc_p",
- "Parrot_set_root_global_p_sc_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1196 */
- /* type PARROT_FUNCTION_OP, */
- "set_root_global",
- "set_root_global_pc_sc_p",
- "Parrot_set_root_global_pc_sc_p",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1197 */
- /* type PARROT_FUNCTION_OP, */
- "find_name",
- "find_name_p_s",
- "Parrot_find_name_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1198 */
- /* type PARROT_FUNCTION_OP, */
- "find_name",
- "find_name_p_sc",
- "Parrot_find_name_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1199 */
- /* type PARROT_INLINE_OP, */
- "find_sub_not_null",
- "find_sub_not_null_p_s",
- "Parrot_find_sub_not_null_p_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1200 */
- /* type PARROT_INLINE_OP, */
- "find_sub_not_null",
- "find_sub_not_null_p_sc",
- "Parrot_find_sub_not_null_p_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1201 */
- /* type PARROT_FUNCTION_OP, */
- "trap",
- "trap",
- "Parrot_trap",
- /* "", body */
- 0,
- 1,
- { (arg_type_t) 0 },
- { (arg_dir_t) 0 },
- { 0 }
- },
- { /* 1202 */
- /* type PARROT_INLINE_OP, */
- "set_label",
- "set_label_p_ic",
- "Parrot_set_label_p_ic",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 1 }
- },
- { /* 1203 */
- /* type PARROT_INLINE_OP, */
- "get_label",
- "get_label_i_p",
- "Parrot_get_label_i_p",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1204 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_p_p",
- "Parrot_fetch_p_p_p_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1205 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_p_p",
- "Parrot_fetch_p_pc_p_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1206 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_pc_p",
- "Parrot_fetch_p_p_pc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1207 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_pc_p",
- "Parrot_fetch_p_pc_pc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1208 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_p_pc",
- "Parrot_fetch_p_p_p_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1209 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_p_pc",
- "Parrot_fetch_p_pc_p_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1210 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_pc_pc",
- "Parrot_fetch_p_p_pc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1211 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_pc_pc",
- "Parrot_fetch_p_pc_pc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1212 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_i_p",
- "Parrot_fetch_p_p_i_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1213 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_i_p",
- "Parrot_fetch_p_pc_i_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1214 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_ic_p",
- "Parrot_fetch_p_p_ic_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1215 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_ic_p",
- "Parrot_fetch_p_pc_ic_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1216 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_i_pc",
- "Parrot_fetch_p_p_i_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1217 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_i_pc",
- "Parrot_fetch_p_pc_i_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1218 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_ic_pc",
- "Parrot_fetch_p_p_ic_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1219 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_ic_pc",
- "Parrot_fetch_p_pc_ic_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1220 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_s_p",
- "Parrot_fetch_p_p_s_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1221 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_s_p",
- "Parrot_fetch_p_pc_s_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1222 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_sc_p",
- "Parrot_fetch_p_p_sc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1223 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_sc_p",
- "Parrot_fetch_p_pc_sc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1224 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_s_pc",
- "Parrot_fetch_p_p_s_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1225 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_s_pc",
- "Parrot_fetch_p_pc_s_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1226 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_p_sc_pc",
- "Parrot_fetch_p_p_sc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1227 */
- /* type PARROT_INLINE_OP, */
- "fetch",
- "fetch_p_pc_sc_pc",
- "Parrot_fetch_p_pc_sc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1228 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_p_p",
- "Parrot_vivify_p_p_p_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1229 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_p_p",
- "Parrot_vivify_p_pc_p_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1230 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_pc_p",
- "Parrot_vivify_p_p_pc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1231 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_pc_p",
- "Parrot_vivify_p_pc_pc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1232 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_p_pc",
- "Parrot_vivify_p_p_p_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1233 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_p_pc",
- "Parrot_vivify_p_pc_p_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_P, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1234 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_pc_pc",
- "Parrot_vivify_p_p_pc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1235 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_pc_pc",
- "Parrot_vivify_p_pc_pc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_PC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1236 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_i_p",
- "Parrot_vivify_p_p_i_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1237 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_i_p",
- "Parrot_vivify_p_pc_i_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1238 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_ic_p",
- "Parrot_vivify_p_p_ic_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1239 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_ic_p",
- "Parrot_vivify_p_pc_ic_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1240 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_i_pc",
- "Parrot_vivify_p_p_i_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1241 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_i_pc",
- "Parrot_vivify_p_pc_i_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1242 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_ic_pc",
- "Parrot_vivify_p_p_ic_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1243 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_ic_pc",
- "Parrot_vivify_p_pc_ic_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1244 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_s_p",
- "Parrot_vivify_p_p_s_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1245 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_s_p",
- "Parrot_vivify_p_pc_s_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1246 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_sc_p",
- "Parrot_vivify_p_p_sc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1247 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_sc_p",
- "Parrot_vivify_p_pc_sc_p",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_P },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1248 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_s_pc",
- "Parrot_vivify_p_p_s_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1249 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_s_pc",
- "Parrot_vivify_p_pc_s_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_S, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1250 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_p_sc_pc",
- "Parrot_vivify_p_p_sc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1251 */
- /* type PARROT_INLINE_OP, */
- "vivify",
- "vivify_p_pc_sc_pc",
- "Parrot_vivify_p_pc_sc_pc",
- /* "", body */
- 0,
- 5,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_SC, PARROT_ARG_PC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0, 0 }
- },
- { /* 1252 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_s_i",
- "Parrot_new_p_s_i",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1253 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_sc_i",
- "Parrot_new_p_sc_i",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1254 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_s_ic",
- "Parrot_new_p_s_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_S, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1255 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_sc_ic",
- "Parrot_new_p_sc_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_SC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1256 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_p_i",
- "Parrot_new_p_p_i",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1257 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_pc_i",
- "Parrot_new_p_pc_i",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1258 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_p_ic",
- "Parrot_new_p_p_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1259 */
- /* type PARROT_FUNCTION_OP, */
- "new",
- "new_p_pc_ic",
- "Parrot_new_p_pc_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1260 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_p_i",
- "Parrot_root_new_p_p_i",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1261 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_pc_i",
- "Parrot_root_new_p_pc_i",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1262 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_p_ic",
- "Parrot_root_new_p_p_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1263 */
- /* type PARROT_FUNCTION_OP, */
- "root_new",
- "root_new_p_pc_ic",
- "Parrot_root_new_p_pc_ic",
- /* "", body */
- 0,
- 4,
- { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
- { 0, 0, 0 }
- },
- { /* 1264 */
- /* type PARROT_FUNCTION_OP, */
- "find_codepoint",
- "find_codepoint_i_s",
- "Parrot_find_codepoint_i_s",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_S },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1265 */
- /* type PARROT_FUNCTION_OP, */
- "find_codepoint",
- "find_codepoint_i_sc",
- "Parrot_find_codepoint_i_sc",
- /* "", body */
- 0,
- 3,
- { PARROT_ARG_I, PARROT_ARG_SC },
- { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
- { 0, 0 }
- },
- { /* 1266 */
- /* type PARROT_FUNCTION_OP, */
- "unroll",
- "unroll_p",
- "Parrot_unroll_p",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_P },
- { PARROT_ARGDIR_IN },
- { 0 }
- },
- { /* 1267 */
- /* type PARROT_FUNCTION_OP, */
- "unroll",
- "unroll_pc",
- "Parrot_unroll_pc",
- /* "", body */
- 0,
- 2,
- { PARROT_ARG_PC },
- { PARROT_ARGDIR_IN },
- { 0 }
- },
-
-};
-
-
-/*
-** Op Function Definitions:
-*/
-
-opcode_t *
-Parrot_end(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- return (opcode_t *)0;
-}
-
-opcode_t *
-Parrot_noop(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-
-return (opcode_t *)cur_opcode + 1;}
-
-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 *
-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 _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 */
-}
-
-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;
-}
-
-opcode_t *
-Parrot_load_bytecode_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_load_bytecode(interp, SREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_load_bytecode_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_load_bytecode(interp, CONST(1)->u.string);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_load_language_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_load_language(interp, SREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_load_language_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_load_language(interp, CONST(1)->u.string);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_branch_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- return (opcode_t *)cur_opcode + IREG(1);
-}
-
-opcode_t *
-Parrot_branch_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- return (opcode_t *)cur_opcode + cur_opcode[1];
-}
-
-opcode_t *
-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;
-
- 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;
- }
-
- return_addr = PTR2INTVAL(dest);
- 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;
-
- 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;
- }
-
- return_addr = PTR2INTVAL(dest);
- VTABLE_push_integer(interp, PREG(1), return_addr);
-
- return (opcode_t *)cur_opcode + cur_opcode[2];
-}
-
-opcode_t *
-Parrot_local_return_p(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 *next;
- 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;
- }
-
- return_addr = VTABLE_pop_integer(interp, PREG(1));
- next = INTVAL2PTR(opcode_t *, return_addr);
-
- /* The return address must be within the current code segment. */
- if (! (next >= interp->code->base.data
- && 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;
-}
-
-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 *
-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 *
-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;
-}
-
-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];
-
-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];
-
-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];
-
-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];
-
-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];
-
-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];
-
-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];
-
-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];
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-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;
- 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;
-}
-
-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;
- PMC * const p = PREG(1);
- 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 = PREG(2);
-
- 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;
- 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;
-}
-
-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;
- 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);
- PMC * const parent_call_sig = Parrot_pcc_get_signature(interp, parent_ctx);
- interp->current_cont = Parrot_pcc_get_continuation(interp, ctx);
-
- 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;
-}
-
-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 *
-Parrot_capture_lex_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_capture_lex(interp, PREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_newclosure_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = parrot_new_closure(interp, PREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_set_args_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const raw_args = CUR_OPCODE;
- PMC * const signature = CONST(1)->u.key;
- 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;
-}
-
-opcode_t *
-Parrot_get_params_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const raw_params = CUR_OPCODE;
- PMC * const signature = CONST(1)->u.key;
- PMC * const ctx = CURRENT_CONTEXT(interp);
- PMC * const ccont = Parrot_pcc_get_continuation(interp, ctx);
- PMC * const caller_ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
- PMC * const call_object = Parrot_pcc_get_signature(interp, caller_ctx);
- INTVAL argc;
-
- Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params,
- PARROT_ERRORS_PARAM_COUNT_FLAG);
-
- /* TODO Factor out with Sub.invoke */
- if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {
- PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;
- 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;
-}
-
-opcode_t *
-Parrot_set_returns_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const raw_args = CUR_OPCODE;
- PMC * const signature = CONST(1)->u.key;
- PMC * const call_sig = Parrot_pcc_build_sig_object_from_op(interp,
- Parrot_pcc_get_signature(interp,
- Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp))),
- signature, raw_args);
- INTVAL argc;
-
- Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
-
- argc = VTABLE_elements(interp, signature);
- return (opcode_t *)cur_opcode + argc + 2;
-}
-
-opcode_t *
-Parrot_get_results_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- opcode_t * const raw_params = CUR_OPCODE;
- PMC * const signature = CONST(1)->u.key;
- PMC *ctx = CURRENT_CONTEXT(interp);
- PMC *ccont = Parrot_pcc_get_continuation(interp, ctx);
- PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
-
- INTVAL argc;
-
- 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;
-}
-
-opcode_t *
-Parrot_set_result_info_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const ctx = CURRENT_CONTEXT(interp);
-
- VTABLE_set_attr_str(interp, ctx,
- Parrot_str_new_constant(interp, "return_flags"),
- PREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_set_result_info_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const ctx = CURRENT_CONTEXT(interp);
-
- VTABLE_set_attr_str(interp, ctx,
- Parrot_str_new_constant(interp, "return_flags"),
- CONST(1)->u.key);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_result_info_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const caller_ctx = Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
- PMC * const sig = VTABLE_get_attr_str(interp, caller_ctx,
- Parrot_str_new_constant(interp, "return_flags"));
-
- /* If no elements, hand back empty array; otherwise PMC. */
- if (!sig)
- PREG(1) = Parrot_pmc_new(interp, enum_class_FixedIntegerArray);
- else
- PREG(1) = sig;
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_set_addr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = PTR2INTVAL(CUR_OPCODE + cur_opcode[2]);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_set_addr_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- VTABLE_set_pointer(interp, PREG(1), (CUR_OPCODE + cur_opcode[2]));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_set_addr_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- VTABLE_set_pointer(interp, PREG(1), (void*)IREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_get_addr_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- void *ptr = VTABLE_get_pointer(interp, PREG(2));
- IREG(1) = (INTVAL)ptr;
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_schedule_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_cx_schedule_task(interp, PREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_addhandler_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_cx_add_handler(interp, PREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_push_eh_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const eh = Parrot_pmc_new(interp, enum_class_ExceptionHandler);
- VTABLE_set_pointer(interp, eh, CUR_OPCODE + cur_opcode[1]);
- Parrot_cx_add_handler_local(interp, eh);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_push_eh_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_cx_add_handler_local(interp, PREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_pop_eh(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_cx_delete_handler_local(interp,
- Parrot_str_new_constant(interp, "exception"));
-
-return (opcode_t *)cur_opcode + 1;}
-
-opcode_t *
-Parrot_throw_p(opcode_t *cur_opcode, PARROT_INTERP) {
- 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;
- PMC * const resume = pmc_new(interp, enum_class_Continuation);
-
- VTABLE_set_pointer(interp, resume, ret);
-
- if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
- except = Parrot_ex_build_exception(interp, EXCEPT_fatal,
- EXCEPTION_UNIMPLEMENTED,
- 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;
-}
-
-opcode_t *
-Parrot_throw_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;
- PMC * except = PREG(1);
- if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
- 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, PREG(1),
- VTABLE_get_pointer(interp, PREG(2)));
- return (opcode_t *)dest;
-}
-
-opcode_t *
-Parrot_rethrow_p(opcode_t *cur_opcode, PARROT_INTERP) {
- 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;
- 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_rethrow_from_op(interp, PREG(1));
- return (opcode_t *)dest;
-}
-
-opcode_t *
-Parrot_count_eh_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_cx_count_handlers_local(interp,
- Parrot_str_new_constant(interp, "exception"));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-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;
- PMC * const resume = pmc_new(interp, enum_class_Continuation);
- PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_error,
- CONTROL_ERROR, SREG(1));
-
- VTABLE_set_pointer(interp, resume, ret);
-
- 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;
-}
-
-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;
- 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);
-
- VTABLE_set_pointer(interp, resume, ret);
-
- 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;
-}
-
-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;
- 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 =
- Parrot_ex_build_exception(interp, EXCEPT_error, CONTROL_ERROR, msg);
-
- VTABLE_set_pointer(interp, resume, ret);
-
- 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;
-}
-
-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;
- 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 =
- Parrot_ex_build_exception(interp, EXCEPT_error, CONTROL_ERROR, msg);
-
- VTABLE_set_pointer(interp, resume, ret);
-
- 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;
-}
-
-opcode_t *
-Parrot_die_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (IREG(1) == EXCEPT_doomed)
- _exit(IREG(2));
- else {
- 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 *
-Parrot_die_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (cur_opcode[1] == EXCEPT_doomed)
- _exit(IREG(2));
- else {
- 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 *
-Parrot_die_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) == EXCEPT_doomed)
- _exit(cur_opcode[2]);
- else {
- 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 *
-Parrot_die_ic_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] == EXCEPT_doomed)
- _exit(cur_opcode[2]);
- else {
- 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 *
-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;
- PMC * const resume = pmc_new(interp, enum_class_Continuation);
- PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, IREG(1), NULL);
-
- VTABLE_set_pointer(interp, resume, ret);
-
- VTABLE_set_attr_str(interp, exception,
- 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;
-}
-
-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;
- PMC * const resume = pmc_new(interp, enum_class_Continuation);
- PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, cur_opcode[1], NULL);
-
- VTABLE_set_pointer(interp, resume, ret);
-
- VTABLE_set_attr_str(interp, exception,
- 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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-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;
-}
-
-opcode_t *
-Parrot_gc_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_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
- else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_gc_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_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
- else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_interpinfo_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = interpinfo(interp, IREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_interpinfo_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = interpinfo(interp, cur_opcode[2]);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_interpinfo_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = interpinfo_p(interp, IREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_interpinfo_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = interpinfo_p(interp, cur_opcode[2]);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_interpinfo_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = interpinfo_s(interp, IREG(2));
- SREG(1) = s;
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_interpinfo_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = interpinfo_s(interp, cur_opcode[2]);
- SREG(1) = s;
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_warningson_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_WARNINGS_on(interp, IREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_warningson_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_WARNINGS_on(interp, cur_opcode[1]);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_warningsoff_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_WARNINGS_off(interp, IREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_warningsoff_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_WARNINGS_off(interp, cur_opcode[1]);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_errorson_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_ERRORS_on(interp, IREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_errorson_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_ERRORS_on(interp, cur_opcode[1]);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_errorsoff_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_ERRORS_off(interp, IREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_errorsoff_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PARROT_ERRORS_off(interp, cur_opcode[1]);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_runinterp_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
- Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
- Parrot_switch_to_cs(new_interp, interp->code, 1);
- runops(new_interp, REL_PC + IREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_runinterp_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
- Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
- Parrot_switch_to_cs(new_interp, interp->code, 1);
- runops(new_interp, REL_PC + cur_opcode[2]);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_getinterp_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = VTABLE_get_pmc_keyed_int(interp, interp->iglobals,
- IGLOBALS_INTERPRETER);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_sweep_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])
- Parrot_gc_mark_and_sweep(interp, 0);
- else
- if (Parrot_gc_impatient_pmcs(interp))
- Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_collect(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_gc_compact_memory_pool(interp);
-
-return (opcode_t *)cur_opcode + 1;}
-
-opcode_t *
-Parrot_sweepoff(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_block_GC_mark(interp);
-
-return (opcode_t *)cur_opcode + 1;}
-
-opcode_t *
-Parrot_sweepon(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_unblock_GC_mark(interp);
-
-return (opcode_t *)cur_opcode + 1;}
-
-opcode_t *
-Parrot_collectoff(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_block_GC_sweep(interp);
-
-return (opcode_t *)cur_opcode + 1;}
-
-opcode_t *
-Parrot_collecton(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_unblock_GC_sweep(interp);
-
-return (opcode_t *)cur_opcode + 1;}
-
-opcode_t *
-Parrot_needs_destroy_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_gc_pmc_needs_early_collection(interp, PREG(1));
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_loadlib_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_load_lib(interp, SREG(2), NULL);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_loadlib_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, NULL);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_loadlib_p_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_load_lib(interp, SREG(2), PREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_loadlib_p_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, PREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_loadlib_p_s_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_load_lib(interp, SREG(2), CONST(3)->u.key);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_loadlib_p_sc_pc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, CONST(3)->u.key);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_dlfunc_p_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
- void *dl_handle = NULL;
- void *ptr = NULL;
- funcptr_t p;
-
- if (!PMC_IS_NULL(PREG(2))
- && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
- && VTABLE_defined(interp, PREG(2))) {
- dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
- }
-
- ptr = Parrot_dlsym(dl_handle, name);
- p = D2FPTR(ptr);
-
- if (p == NULLfunc) {
- const char * err = Parrot_dlerror();
- Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
- "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
- }
- else {
- PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
- VTABLE_set_pointer_keyed_str(interp, PREG(1), SREG(4), F2DPTR(p));
- }
- Parrot_str_free_cstring(name);
-
-return (opcode_t *)cur_opcode + 5;}
-
-opcode_t *
-Parrot_dlfunc_p_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
- void *dl_handle = NULL;
- void *ptr = NULL;
- funcptr_t p;
-
- if (!PMC_IS_NULL(PREG(2))
- && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
- && VTABLE_defined(interp, PREG(2))) {
- dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
- }
-
- ptr = Parrot_dlsym(dl_handle, name);
- p = D2FPTR(ptr);
-
- if (p == NULLfunc) {
- const char * err = Parrot_dlerror();
- Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
- "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
- }
- else {
- PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
- VTABLE_set_pointer_keyed_str(interp, PREG(1), SREG(4), F2DPTR(p));
- }
- Parrot_str_free_cstring(name);
-
-return (opcode_t *)cur_opcode + 5;}
-
-opcode_t *
-Parrot_dlfunc_p_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
- void *dl_handle = NULL;
- void *ptr = NULL;
- funcptr_t p;
-
- if (!PMC_IS_NULL(PREG(2))
- && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
- && VTABLE_defined(interp, PREG(2))) {
- dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
- }
-
- ptr = Parrot_dlsym(dl_handle, name);
- p = D2FPTR(ptr);
-
- if (p == NULLfunc) {
- const char * err = Parrot_dlerror();
- Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
- "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
- }
- else {
- PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
- VTABLE_set_pointer_keyed_str(interp, PREG(1), CONST(4)->u.string, F2DPTR(p));
- }
- Parrot_str_free_cstring(name);
-
-return (opcode_t *)cur_opcode + 5;}
-
-opcode_t *
-Parrot_dlfunc_p_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
- void *dl_handle = NULL;
- void *ptr = NULL;
- funcptr_t p;
-
- if (!PMC_IS_NULL(PREG(2))
- && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
- && VTABLE_defined(interp, PREG(2))) {
- dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
- }
-
- ptr = Parrot_dlsym(dl_handle, name);
- p = D2FPTR(ptr);
-
- if (p == NULLfunc) {
- const char * err = Parrot_dlerror();
- Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
- "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
- }
- else {
- PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
- VTABLE_set_pointer_keyed_str(interp, PREG(1), CONST(4)->u.string, F2DPTR(p));
- }
- Parrot_str_free_cstring(name);
-
-return (opcode_t *)cur_opcode + 5;}
-
-opcode_t *
-Parrot_dlvar_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
- void * dl_handle = NULL;
- void * p = NULL;
-
- if (!PMC_IS_NULL(PREG(2))
- && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
- && VTABLE_defined(interp, PREG(2))) {
- dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
- }
-
- p = Parrot_dlsym(dl_handle, name);
-
- if (p == NULL) {
- const char * const err = Parrot_dlerror();
- Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
- "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
- }
- else {
- /* At this point we have the symbol's address. We just need to build
- a PMC with it so we can get and set the value */
- PREG(1) = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
- VTABLE_set_pointer(interp, PREG(1), p);
- }
- Parrot_str_free_cstring(name);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_dlvar_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
- void * dl_handle = NULL;
- void * p = NULL;
-
- if (!PMC_IS_NULL(PREG(2))
- && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
- && VTABLE_defined(interp, PREG(2))) {
- dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
- }
-
- p = Parrot_dlsym(dl_handle, name);
-
- if (p == NULL) {
- const char * const err = Parrot_dlerror();
- Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
- "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
- }
- else {
- /* At this point we have the symbol's address. We just need to build
- a PMC with it so we can get and set the value */
- PREG(1) = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
- VTABLE_set_pointer(interp, PREG(1), p);
- }
- Parrot_str_free_cstring(name);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_compreg_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
- interp->iglobals, IGLOBALS_COMPREG_HASH);
- VTABLE_set_pmc_keyed_str(interp, compreg_hash, SREG(1), PREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_compreg_sc_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
- interp->iglobals, IGLOBALS_COMPREG_HASH);
- VTABLE_set_pmc_keyed_str(interp, compreg_hash, CONST(1)->u.string, PREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_compreg_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
- interp->iglobals, IGLOBALS_COMPREG_HASH);
- PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, SREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_compreg_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
- interp->iglobals, IGLOBALS_COMPREG_HASH);
- PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, CONST(2)->u.string);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_new_callback_p_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), SREG(4));
-
-return (opcode_t *)cur_opcode + 5;}
-
-opcode_t *
-Parrot_new_callback_p_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), CONST(4)->u.string);
-
-return (opcode_t *)cur_opcode + 5;}
-
-opcode_t *
-Parrot_annotations_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (interp->code->annotations) {
- const opcode_t cur_pos = (cur_opcode + 2) - interp->code->base.data;
- PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
- cur_pos, NULL);
- }
- else {
- PREG(1) = Parrot_pmc_new(interp, enum_class_Hash);
- }
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_annotations_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (interp->code->annotations) {
- const opcode_t cur_pos = (cur_opcode + 3) - interp->code->base.data;
- PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
- cur_pos, SREG(2));
- }
- else {
- PREG(1) = PMCNULL;
- }
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_annotations_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (interp->code->annotations) {
- const opcode_t cur_pos = (cur_opcode + 3) - interp->code->base.data;
- PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
- cur_pos, CONST(2)->u.string);
- }
- else {
- PREG(1) = PMCNULL;
- }
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_band_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) &= IREG(2);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_band_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) &= cur_opcode[2];
+ 0,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
+ { /* 1073 */
+ /* type PARROT_FUNCTION_OP, */
+ "root_new",
+ "root_new_p_pc_i",
+ "Parrot_root_new_p_pc_i",
+ /* "", body */
+ 0,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_I },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
+ { /* 1074 */
+ /* type PARROT_FUNCTION_OP, */
+ "root_new",
+ "root_new_p_p_ic",
+ "Parrot_root_new_p_p_ic",
+ /* "", body */
+ 0,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_P, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
+ { /* 1075 */
+ /* type PARROT_FUNCTION_OP, */
+ "root_new",
+ "root_new_p_pc_ic",
+ "Parrot_root_new_p_pc_ic",
+ /* "", body */
+ 0,
+ 4,
+ { PARROT_ARG_P, PARROT_ARG_PC, PARROT_ARG_IC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
+ { 0, 0, 0 }
+ },
+ { /* 1076 */
+ /* type PARROT_FUNCTION_OP, */
+ "find_codepoint",
+ "find_codepoint_i_s",
+ "Parrot_find_codepoint_i_s",
+ /* "", body */
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_S },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
+ },
+ { /* 1077 */
+ /* type PARROT_FUNCTION_OP, */
+ "find_codepoint",
+ "find_codepoint_i_sc",
+ "Parrot_find_codepoint_i_sc",
+ /* "", body */
+ 0,
+ 3,
+ { PARROT_ARG_I, PARROT_ARG_SC },
+ { PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
+ { 0, 0 }
+ },
+ { /* 1078 */
+ /* type PARROT_FUNCTION_OP, */
+ "finalize",
+ "finalize_p",
+ "Parrot_finalize_p",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
+ { /* 1079 */
+ /* type PARROT_FUNCTION_OP, */
+ "finalize",
+ "finalize_pc",
+ "Parrot_finalize_pc",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_PC },
+ { PARROT_ARGDIR_IN },
+ { 0 }
+ },
-return (opcode_t *)cur_opcode + 3;}
+};
-opcode_t *
-Parrot_band_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = a & IREG(2);
- VTABLE_set_integer_native(interp, PREG(1), b);
-return (opcode_t *)cur_opcode + 3;}
+/*
+** Op Function Definitions:
+*/
opcode_t *
-Parrot_band_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = a & cur_opcode[2];
- VTABLE_set_integer_native(interp, PREG(1), b);
-
-return (opcode_t *)cur_opcode + 3;}
+Parrot_end(opcode_t *cur_opcode, PARROT_INTERP) {
+ const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);return (opcode_t *)0;
+}
opcode_t *
-Parrot_band_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_noop(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = VTABLE_get_integer(interp, PREG(2));
- VTABLE_set_integer_native(interp, PREG(1), a & b);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_band_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_check_events(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) & IREG(3);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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 *
-Parrot_band_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_check_events__(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = cur_opcode[2] & IREG(3);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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 */
+}
opcode_t *
-Parrot_band_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_wrapper__(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) & cur_opcode[3];
-
-return (opcode_t *)cur_opcode + 4;}
+ opcode_t *pc = CUR_OPCODE;
+ DO_OP(pc, interp);return (opcode_t *)pc;
+}
opcode_t *
-Parrot_band_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_load_bytecode_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- VTABLE_set_integer_native(interp, PREG(1), a & IREG(3));
+ Parrot_load_bytecode(interp, SREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_band_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_load_bytecode_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- VTABLE_set_integer_native(interp, PREG(1), a & cur_opcode[3]);
+ Parrot_load_bytecode(interp, CONST(1)->u.string);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_band_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_load_language_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL b = VTABLE_get_integer(interp, PREG(3));
- VTABLE_set_integer_native(interp, PREG(1), a & b);
+ Parrot_load_language(interp, SREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bands_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_load_language_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_and(interp, a, SREG(2));
- VTABLE_set_string_native(interp, PREG(1), b);
+ Parrot_load_language(interp, CONST(1)->u.string);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bands_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_and(interp, a, CONST(2)->u.string);
- VTABLE_set_string_native(interp, PREG(1), b);
-
-return (opcode_t *)cur_opcode + 3;}
+Parrot_branch_i(opcode_t *cur_opcode, PARROT_INTERP) {
+ const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);return (opcode_t *)cur_opcode + IREG(1);
+}
opcode_t *
-Parrot_bands_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = VTABLE_get_string(interp, PREG(2));
- a = Parrot_str_bitwise_and(interp, a, b);
- VTABLE_set_string_native(interp, PREG(1), a);
-
-return (opcode_t *)cur_opcode + 3;}
+Parrot_branch_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+ const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);return (opcode_t *)cur_opcode + cur_opcode[1];
+}
opcode_t *
-Parrot_bands_s_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- SREG(1) = Parrot_str_bitwise_and(interp, SREG(2), SREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
+ INTVAL return_addr;
+ opcode_t * const dest =cur_opcode + 3;
-opcode_t *
-Parrot_bands_s_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_and(interp, CONST(2)->u.string, SREG(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;
+ }
-return (opcode_t *)cur_opcode + 4;}
+ return_addr = PTR2INTVAL(dest);
+ VTABLE_push_integer(interp, PREG(1), return_addr);return (opcode_t *)cur_opcode + IREG(2);
+}
opcode_t *
-Parrot_bands_s_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- SREG(1) = Parrot_str_bitwise_and(interp, SREG(2), CONST(3)->u.string);
-
-return (opcode_t *)cur_opcode + 4;}
+ INTVAL return_addr;
+ opcode_t * const dest =cur_opcode + 3;
-opcode_t *
-Parrot_bands_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = Parrot_str_bitwise_and(interp, a, SREG(3));
- VTABLE_set_string_native(interp, PREG(1), b);
+ 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;
+ }
-return (opcode_t *)cur_opcode + 4;}
+ return_addr = PTR2INTVAL(dest);
+ VTABLE_push_integer(interp, PREG(1), return_addr);return (opcode_t *)cur_opcode + cur_opcode[2];
+}
opcode_t *
-Parrot_bands_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_local_return_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = Parrot_str_bitwise_and(interp, a, CONST(3)->u.string);
- VTABLE_set_string_native(interp, PREG(1), b);
+ INTVAL return_addr;
+ opcode_t *next;
+ opcode_t * const dest =cur_opcode + 2;
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+ }
-opcode_t *
-Parrot_bands_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = VTABLE_get_string(interp, PREG(3));
- STRING * const c = Parrot_str_bitwise_and(interp, a, b);
- VTABLE_set_string_native(interp, PREG(1), c);
+ return_addr = VTABLE_pop_integer(interp, PREG(1));
+ next = INTVAL2PTR(opcode_t *, return_addr);
-return (opcode_t *)cur_opcode + 4;}
+ /* The return address must be within the current code segment. */
+ if (! (next >= interp->code->base.data
+ && 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;
+}
opcode_t *
-Parrot_bnot_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_jump_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = ~ IREG(1);
-
-return (opcode_t *)cur_opcode + 2;}
+ opcode_t * const loc = INTVAL2PTR(opcode_t *, IREG(1));return (opcode_t *)loc;
+}
opcode_t *
-Parrot_bnot_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_jump_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = ~ IREG(2);
-
-return (opcode_t *)cur_opcode + 3;}
+ opcode_t * const loc = INTVAL2PTR(opcode_t *, cur_opcode[1]);return (opcode_t *)loc;
+}
opcode_t *
-Parrot_bnot_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_enternative(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- VTABLE_set_integer_native(interp, PREG(1), ~a);
-
-return (opcode_t *)cur_opcode + 2;}
+ opcode_t * const addr = run_native(interp, CUR_OPCODE,
+ interp->code->base.data);return (opcode_t *)addr;
+}
opcode_t *
-Parrot_bnot_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_if_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- PMC * const b = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
- VTABLE_set_integer_native(interp, b, ~a);
- PREG(1) = b;
+ if (IREG(1) != 0)return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bnots_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_if_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_not(interp, SREG(2));
+ if (!FLOAT_IS_ZERO(NREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bnots_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_if_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_not(interp, CONST(2)->u.string);
+ if (Parrot_str_boolean(interp, SREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bnots_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_not(interp, a);
- VTABLE_set_string_native(interp, PREG(1), b);
-
-return (opcode_t *)cur_opcode + 2;}
-
-opcode_t *
-Parrot_bnots_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_if_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = Parrot_str_bitwise_not(interp, a);
- VTABLE_set_string_native(interp, PREG(1), b);
+ if (VTABLE_get_bool(interp, PREG(1)))return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bor_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_unless_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) |= IREG(2);
+ if (IREG(1) == 0)return (opcode_t *)cur_opcode + cur_opcode[2];
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bor_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_unless_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) |= 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_bor_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_unless_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- VTABLE_set_integer_native(interp, PREG(1), a | IREG(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_bor_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_unless_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- VTABLE_set_integer_native(interp, PREG(1), a | 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_bor_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_invokecc_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = VTABLE_get_integer(interp, PREG(2));
- VTABLE_set_integer_native(interp, PREG(1), a | b);
+ PMC * const p = PREG(1);
+ opcode_t *dest =cur_opcode + 2;
+ PMC * const signature = Parrot_pcc_get_signature(interp,
+ CURRENT_CONTEXT(interp));
-return (opcode_t *)cur_opcode + 3;}
+ 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;
+}
opcode_t *
-Parrot_bor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_invoke_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) | IREG(3);
-
-return (opcode_t *)cur_opcode + 4;}
+ opcode_t *dest =cur_opcode + 3;
+ PMC * const p = PREG(1);
+ PMC * const signature = Parrot_pcc_get_signature(interp,
+ CURRENT_CONTEXT(interp));
-opcode_t *
-Parrot_bor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = cur_opcode[2] | IREG(3);
+ if (!PMC_IS_NULL(signature))
+ Parrot_pcc_set_object(interp, signature, NULL);
+ interp->current_cont = PREG(2);
-return (opcode_t *)cur_opcode + 4;}
+ dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
+}
opcode_t *
-Parrot_bor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_yield(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) | cur_opcode[3];
+ opcode_t *dest =cur_opcode + 1;
+ PMC * const p = Parrot_pcc_get_sub(interp, CURRENT_CONTEXT(interp));
-return (opcode_t *)cur_opcode + 4;}
+ VTABLE_increment(interp, p);
+ dest = VTABLE_invoke(interp, p, dest);return (opcode_t *)dest;
+}
opcode_t *
-Parrot_bor_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_tailcall_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- VTABLE_set_integer_native(interp, PREG(1), a | IREG(3));
+ PMC * const p = PREG(1);
+ 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);
+ PMC * const parent_call_sig = Parrot_pcc_get_signature(interp, parent_ctx);
+ interp->current_cont = Parrot_pcc_get_continuation(interp, ctx);
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_bor_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_returncc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- VTABLE_set_integer_native(interp, PREG(1), a | cur_opcode[3]);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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 *
-Parrot_bor_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_capture_lex_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL b = VTABLE_get_integer(interp, PREG(3));
- VTABLE_set_integer_native(interp, PREG(1), a | b);
+ Parrot_capture_lex(interp, PREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bors_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_newclosure_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_or(interp, a, SREG(2));
- VTABLE_set_string_native(interp, PREG(1), b);
+ PREG(1) = parrot_new_closure(interp, PREG(2));
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bors_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_args_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_or(interp, a, CONST(2)->u.string);
- VTABLE_set_string_native(interp, PREG(1), b);
-
-return (opcode_t *)cur_opcode + 3;}
+ opcode_t * const raw_args = CUR_OPCODE;
+ PMC * const signature = CONST(1)->u.key;
+ 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;
+}
opcode_t *
-Parrot_bors_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_get_params_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = VTABLE_get_string(interp, PREG(2));
- STRING * const c = Parrot_str_bitwise_or(interp, a, b);
- VTABLE_set_string_native(interp, PREG(1), c);
+ opcode_t * const raw_params = CUR_OPCODE;
+ PMC * const signature = CONST(1)->u.key;
+ PMC * const ctx = CURRENT_CONTEXT(interp);
+ PMC * const ccont = Parrot_pcc_get_continuation(interp, ctx);
+ PMC * const caller_ctx = Parrot_pcc_get_caller_ctx(interp, ctx);
+ PMC * const call_object = Parrot_pcc_get_signature(interp, caller_ctx);
+ INTVAL argc;
-return (opcode_t *)cur_opcode + 3;}
+ Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params,
+ PARROT_ERRORS_PARAM_COUNT_FLAG);
+
+ /* TODO Factor out with Sub.invoke */
+ if (PObj_get_FLAGS(ccont) & SUB_FLAG_TAILCALL) {
+ PObj_get_FLAGS(ccont) &= ~SUB_FLAG_TAILCALL;
+ 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;
+}
opcode_t *
-Parrot_bors_s_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_returns_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_or(interp, SREG(2), SREG(3));
+ opcode_t * const raw_args = CUR_OPCODE;
+ PMC * const signature = CONST(1)->u.key;
+ PMC * const call_sig = Parrot_pcc_build_sig_object_from_op(interp,
+ Parrot_pcc_get_signature(interp,
+ Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp))),
+ signature, raw_args);
+ INTVAL argc;
-return (opcode_t *)cur_opcode + 4;}
+ Parrot_pcc_set_signature(interp, CURRENT_CONTEXT(interp), call_sig);
+
+ argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
+}
opcode_t *
-Parrot_bors_s_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_get_results_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_or(interp, CONST(2)->u.string, SREG(3));
+ opcode_t * const raw_params = CUR_OPCODE;
+ PMC * const signature = CONST(1)->u.key;
+ PMC *ctx = CURRENT_CONTEXT(interp);
+ PMC *ccont = Parrot_pcc_get_continuation(interp, ctx);
+ PMC *call_object = Parrot_pcc_get_signature(interp, ctx);
-return (opcode_t *)cur_opcode + 4;}
+ INTVAL argc;
-opcode_t *
-Parrot_bors_s_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_or(interp, SREG(2), CONST(3)->u.string);
+ Parrot_pcc_fill_params_from_op(interp, call_object, signature, raw_params,
+ PARROT_ERRORS_RESULT_COUNT_FLAG);
-return (opcode_t *)cur_opcode + 4;}
+ argc = VTABLE_elements(interp, signature);return (opcode_t *)cur_opcode + argc + 2;
+}
opcode_t *
-Parrot_bors_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_result_info_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const b = VTABLE_get_string(interp, PREG(2));
- STRING * const c = Parrot_str_bitwise_or(interp, b, SREG(3));
- VTABLE_set_string_native(interp, PREG(1), c);
+ PMC * const ctx = CURRENT_CONTEXT(interp);
-return (opcode_t *)cur_opcode + 4;}
+ VTABLE_set_attr_str(interp, ctx,
+ Parrot_str_new_constant(interp, "return_flags"),
+ PREG(1));
+
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bors_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_result_info_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const b = VTABLE_get_string(interp, PREG(2));
- STRING * const c = Parrot_str_bitwise_or(interp, b, CONST(3)->u.string);
- VTABLE_set_string_native(interp, PREG(1), c);
+ PMC * const ctx = CURRENT_CONTEXT(interp);
-return (opcode_t *)cur_opcode + 4;}
+ VTABLE_set_attr_str(interp, ctx,
+ Parrot_str_new_constant(interp, "return_flags"),
+ CONST(1)->u.key);
+
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bors_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_result_info_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = VTABLE_get_string(interp, PREG(3));
- STRING * const c = Parrot_str_bitwise_or(interp, a, b);
- VTABLE_set_string_native(interp, PREG(1), c);
+ PMC * const caller_ctx = Parrot_pcc_get_caller_ctx(interp, CURRENT_CONTEXT(interp));
+ PMC * const sig = VTABLE_get_attr_str(interp, caller_ctx,
+ Parrot_str_new_constant(interp, "return_flags"));
-return (opcode_t *)cur_opcode + 4;}
+ /* If no elements, hand back empty array; otherwise PMC. */
+ if (!sig)
+ PREG(1) = Parrot_pmc_new(interp, enum_class_FixedIntegerArray);
+ else
+ PREG(1) = sig;
+
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_shl_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_addr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = bit_shift_left(IREG(1), IREG(2));
+ IREG(1) = PTR2INTVAL(CUR_OPCODE + cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_shl_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_addr_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = bit_shift_left(IREG(1), cur_opcode[2]);
+ VTABLE_set_pointer(interp, PREG(1), (CUR_OPCODE + cur_opcode[2]));
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_shl_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_set_addr_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = bit_shift_left(a, IREG(2));
- VTABLE_set_integer_native(interp, PREG(1), b);
+ VTABLE_set_pointer(interp, PREG(1), (void*)IREG(2));
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_shl_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_get_addr_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = bit_shift_left(a, cur_opcode[2]);
- VTABLE_set_integer_native(interp, PREG(1), b);
+ void *ptr = VTABLE_get_pointer(interp, PREG(2));
+ IREG(1) = (INTVAL)ptr;
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_shl_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_schedule_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = VTABLE_get_integer(interp, PREG(2));
- const INTVAL c = bit_shift_left(a, b);
- VTABLE_set_integer_native(interp, PREG(1), c);
+ Parrot_cx_schedule_task(interp, PREG(1));
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_shl_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_addhandler_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = bit_shift_left(IREG(2), IREG(3));
+ Parrot_cx_add_handler(interp, PREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_shl_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_push_eh_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = bit_shift_left(cur_opcode[2], IREG(3));
+ PMC * const eh = Parrot_pmc_new(interp, enum_class_ExceptionHandler);
+ VTABLE_set_pointer(interp, eh, CUR_OPCODE + cur_opcode[1]);
+ Parrot_cx_add_handler_local(interp, eh);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_shl_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_push_eh_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = bit_shift_left(IREG(2), cur_opcode[3]);
+ Parrot_cx_add_handler_local(interp, PREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_shl_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_pop_eh(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL b = bit_shift_left(a, IREG(3));
- VTABLE_set_integer_native(interp, PREG(1), b);
+ Parrot_cx_delete_handler_local(interp,
+ Parrot_str_new_constant(interp, "exception"));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_shl_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_throw_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL b = bit_shift_left(a, cur_opcode[3]);
- VTABLE_set_integer_native(interp, PREG(1), b);
+ PMC * except = PREG(1);
+ opcode_t *dest;
+ opcode_t * const ret =cur_opcode + 2;
+ PMC * const resume = pmc_new(interp, enum_class_Continuation);
-return (opcode_t *)cur_opcode + 4;}
+ VTABLE_set_pointer(interp, resume, ret);
-opcode_t *
-Parrot_shl_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL b = VTABLE_get_integer(interp, PREG(3));
- const INTVAL c = bit_shift_left(a, b);
- VTABLE_set_integer_native(interp, PREG(1), c);
+ if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
+ except = Parrot_ex_build_exception(interp, EXCEPT_fatal,
+ EXCEPTION_UNIMPLEMENTED,
+ Parrot_str_new_constant(interp, "Not a throwable object"));
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_shr_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_throw_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL signed_shift = -IREG(2);
- IREG(1) = bit_shift_left(IREG(1), signed_shift);
-
-return (opcode_t *)cur_opcode + 3;}
+ opcode_t * dest;
+ PMC * except = PREG(1);
+ if (PMC_IS_NULL(except) || except->vtable->base_type != enum_class_Exception)
+ 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, PREG(1),
+ VTABLE_get_pointer(interp, PREG(2)));return (opcode_t *)dest;
+}
opcode_t *
-Parrot_shr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_rethrow_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL signed_shift = -cur_opcode[2];
- IREG(1) = bit_shift_left(IREG(1), signed_shift);
-
-return (opcode_t *)cur_opcode + 3;}
+ opcode_t * dest;
+ if (PMC_IS_NULL(PREG(1)) || PREG(1)->vtable->base_type != enum_class_Exception) {
+ 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_rethrow_from_op(interp, PREG(1));return (opcode_t *)dest;
+}
opcode_t *
-Parrot_shr_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_count_eh_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = bit_shift_left(a, -IREG(2));
- VTABLE_set_integer_native(interp, PREG(1), b);
+ IREG(1) = Parrot_cx_count_handlers_local(interp,
+ Parrot_str_new_constant(interp, "exception"));
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_shr_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = bit_shift_left(a, -cur_opcode[2]);
- VTABLE_set_integer_native(interp, PREG(1), b);
+ opcode_t *dest;
+ 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));
-return (opcode_t *)cur_opcode + 3;}
+ VTABLE_set_pointer(interp, resume, ret);
+
+ 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;
+}
opcode_t *
-Parrot_shr_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(1));
- const INTVAL b = VTABLE_get_integer(interp, PREG(2));
- const INTVAL c = bit_shift_left(a, -b);
- VTABLE_set_integer_native(interp, PREG(1), c);
+ opcode_t *dest;
+ 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);
-return (opcode_t *)cur_opcode + 3;}
+ VTABLE_set_pointer(interp, resume, ret);
+
+ 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;
+}
opcode_t *
-Parrot_shr_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL signed_shift = -IREG(3);
- IREG(1) = bit_shift_left(IREG(2), signed_shift);
+ opcode_t *dest;
+ 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 =
+ Parrot_ex_build_exception(interp, EXCEPT_error, CONTROL_ERROR, msg);
-return (opcode_t *)cur_opcode + 4;}
+ VTABLE_set_pointer(interp, resume, ret);
+
+ 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;
+}
opcode_t *
-Parrot_shr_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL signed_shift = -IREG(3);
- IREG(1) = bit_shift_left(cur_opcode[2], signed_shift);
+ opcode_t *dest;
+ 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 =
+ Parrot_ex_build_exception(interp, EXCEPT_error, CONTROL_ERROR, msg);
-return (opcode_t *)cur_opcode + 4;}
+ VTABLE_set_pointer(interp, resume, ret);
+
+ 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;
+}
opcode_t *
-Parrot_shr_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL signed_shift = -cur_opcode[3];
- IREG(1) = bit_shift_left(IREG(2), signed_shift);
-
-return (opcode_t *)cur_opcode + 4;}
+ if (IREG(1) == EXCEPT_doomed)
+ _exit(IREG(2));
+ else {
+ 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 *
-Parrot_shr_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL c = bit_shift_left(a, -IREG(3));
- VTABLE_set_integer_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
+ if (cur_opcode[1] == EXCEPT_doomed)
+ _exit(IREG(2));
+ else {
+ 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 *
-Parrot_shr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL c = bit_shift_left(a, -cur_opcode[3]);
- VTABLE_set_integer_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
+ if (IREG(1) == EXCEPT_doomed)
+ _exit(cur_opcode[2]);
+ else {
+ 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 *
-Parrot_shr_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_die_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL a = VTABLE_get_integer(interp, PREG(2));
- const INTVAL b = VTABLE_get_integer(interp, PREG(3));
- const INTVAL c = bit_shift_left(a, -b);
- VTABLE_set_integer_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
+ if (cur_opcode[1] == EXCEPT_doomed)
+ _exit(cur_opcode[2]);
+ else {
+ 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 *
-Parrot_lsr_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_exit_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)IREG(1);
- const UINTVAL b = a >> IREG(2);
- IREG(1) = (INTVAL)b;
-
-return (opcode_t *)cur_opcode + 3;}
+ opcode_t *dest;
+ 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);
-opcode_t *
-Parrot_lsr_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)IREG(1);
- const UINTVAL b = a >> cur_opcode[2];
- IREG(1) = (INTVAL)b;
+ VTABLE_set_pointer(interp, resume, ret);
-return (opcode_t *)cur_opcode + 3;}
+ VTABLE_set_attr_str(interp, exception,
+ 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;
+}
opcode_t *
-Parrot_lsr_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_exit_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
- const UINTVAL b = a >> IREG(2);
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
-
-return (opcode_t *)cur_opcode + 3;}
+ opcode_t *dest;
+ 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);
-opcode_t *
-Parrot_lsr_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
- const UINTVAL b = a >> cur_opcode[2];
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
+ VTABLE_set_pointer(interp, resume, ret);
-return (opcode_t *)cur_opcode + 3;}
+ VTABLE_set_attr_str(interp, exception,
+ 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;
+}
opcode_t *
-Parrot_lsr_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_debug_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)c);
-
-return (opcode_t *)cur_opcode + 3;}
+ 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;
+}
opcode_t *
-Parrot_lsr_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_debug_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> IREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_lsr_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bounds_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (INTVAL)((UINTVAL)cur_opcode[2] >> IREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_lsr_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bounds_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> cur_opcode[3]);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_lsr_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_profile_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL b = (UINTVAL)IREG(3);
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)c);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_lsr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_profile_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL b = (UINTVAL)cur_opcode[3];
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)c);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_lsr_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_trace_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(3));
- const UINTVAL c = a >> b;
- VTABLE_set_integer_native(interp, PREG(3), (INTVAL)c);
-
-return (opcode_t *)cur_opcode + 4;}
+ 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;
+}
opcode_t *
-Parrot_rot_i_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_trace_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL r = IREG(2);
- INTVAL s = IREG(3);
- const INTVAL w = cur_opcode[4];
- INTVAL d, t;
- if (s < 0)
- s += w;
- d = r << s;
- t = w - s;
- t = (INTVAL)((UINTVAL)r >> t);
- d |= t;
- IREG(1) = d;
-
-return (opcode_t *)cur_opcode + 5;}
+ 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;
+}
opcode_t *
-Parrot_rot_i_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_gc_debug_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL r = cur_opcode[2];
- INTVAL s = IREG(3);
- const INTVAL w = cur_opcode[4];
- INTVAL d, t;
- if (s < 0)
- s += w;
- d = r << s;
- t = w - s;
- t = (INTVAL)((UINTVAL)r >> t);
- d |= t;
- IREG(1) = d;
+ if (IREG(1) != 0) { Interp_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
+ else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_rot_i_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_gc_debug_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL r = IREG(2);
- INTVAL s = cur_opcode[3];
- const INTVAL w = cur_opcode[4];
- INTVAL d, t;
- if (s < 0)
- s += w;
- d = r << s;
- t = w - s;
- t = (INTVAL)((UINTVAL)r >> t);
- d |= t;
- IREG(1) = d;
+ if (cur_opcode[1] != 0) { Interp_flags_SET(interp, PARROT_GC_DEBUG_FLAG); }
+ else { Interp_flags_CLEAR(interp, PARROT_GC_DEBUG_FLAG); }
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxor_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_interpinfo_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) ^= IREG(2);
+ IREG(1) = interpinfo(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxor_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_interpinfo_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) ^= cur_opcode[2];
+ IREG(1) = interpinfo(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxor_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_interpinfo_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
- const UINTVAL b = a ^ IREG(2);
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
+ PREG(1) = interpinfo_p(interp, IREG(2));
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxor_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_interpinfo_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
- const UINTVAL b = a ^ cur_opcode[2];
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
+ PREG(1) = interpinfo_p(interp, cur_opcode[2]);
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxor_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_interpinfo_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(1));
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL c = a ^ b;
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)c);
+ STRING * const s = interpinfo_s(interp, IREG(2));
+ SREG(1) = s;
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_interpinfo_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) ^ IREG(3);
+ STRING * const s = interpinfo_s(interp, cur_opcode[2]);
+ SREG(1) = s;
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_warningson_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = cur_opcode[2] ^ IREG(3);
+ PARROT_WARNINGS_on(interp, IREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_warningson_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) ^ cur_opcode[3];
+ PARROT_WARNINGS_on(interp, cur_opcode[1]);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxor_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_warningsoff_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL b = a ^ IREG(3);
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
+ PARROT_WARNINGS_off(interp, IREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxor_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_warningsoff_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL b = a ^ cur_opcode[3];
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)b);
+ PARROT_WARNINGS_off(interp, cur_opcode[1]);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxor_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_errorson_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const UINTVAL a = (UINTVAL)VTABLE_get_integer(interp, PREG(2));
- const UINTVAL b = (UINTVAL)VTABLE_get_integer(interp, PREG(3));
- const UINTVAL c = a ^ b;
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL)c);
+ PARROT_ERRORS_on(interp, IREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxors_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_errorson_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_xor(interp, a, SREG(2));
- VTABLE_set_string_native(interp, PREG(1), b);
+ PARROT_ERRORS_on(interp, cur_opcode[1]);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxors_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_errorsoff_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = Parrot_str_bitwise_xor(interp, a, CONST(2)->u.string);
- VTABLE_set_string_native(interp, PREG(1), b);
+ PARROT_ERRORS_off(interp, IREG(1));
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxors_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_errorsoff_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(1));
- STRING * const b = VTABLE_get_string(interp, PREG(2));
- STRING * const c = Parrot_str_bitwise_xor(interp, a, b);
- VTABLE_set_string_native(interp, PREG(1), c);
+ PARROT_ERRORS_off(interp, cur_opcode[1]);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxors_s_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_runinterp_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_xor(interp, SREG(2), SREG(3));
+ Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
+ Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
+ Parrot_switch_to_cs(new_interp, interp->code, 1);
+ runops(new_interp, REL_PC + IREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxors_s_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_runinterp_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_xor(interp, CONST(2)->u.string, SREG(3));
+ Interp * const new_interp = (Interp *)VTABLE_get_pointer(interp, PREG(1));
+ Interp_flags_SET(new_interp, PARROT_EXTERN_CODE_FLAG);
+ Parrot_switch_to_cs(new_interp, interp->code, 1);
+ runops(new_interp, REL_PC + cur_opcode[2]);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_bxors_s_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_getinterp_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_str_bitwise_xor(interp, SREG(2), CONST(3)->u.string);
+ PREG(1) = VTABLE_get_pmc_keyed_int(interp, interp->iglobals,
+ IGLOBALS_INTERPRETER);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxors_p_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_sweep_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = Parrot_str_bitwise_xor(interp, a, SREG(3));
- VTABLE_set_string_native(interp, PREG(1), b);
+ if (cur_opcode[1])
+ Parrot_gc_mark_and_sweep(interp, 0);
+ else
+ if (Parrot_gc_impatient_pmcs(interp))
+ Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_bxors_p_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_collect(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = Parrot_str_bitwise_xor(interp, a, CONST(3)->u.string);
- VTABLE_set_string_native(interp, PREG(1), b);
+ Parrot_gc_compact_memory_pool(interp);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_bxors_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_sweepoff(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const a = VTABLE_get_string(interp, PREG(2));
- STRING * const b = VTABLE_get_string(interp, PREG(3));
- STRING * const c = Parrot_str_bitwise_xor(interp, a, b);
- VTABLE_set_string_native(interp, PREG(1), c);
+ Parrot_block_GC_mark(interp);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_eq_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_sweepon(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];
- }
+ Parrot_unblock_GC_mark(interp);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_eq_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_collectoff(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];
- }
+ Parrot_block_GC_sweep(interp);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_eq_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_collecton(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];
- }
+ Parrot_unblock_GC_sweep(interp);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 1;}
opcode_t *
-Parrot_eq_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_needs_destroy_p(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];
- }
+ Parrot_gc_pmc_needs_early_collection(interp, PREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_eq_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_loadlib_p_s(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];
- }
+ PREG(1) = Parrot_load_lib(interp, SREG(2), NULL);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_eq_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_loadlib_p_sc(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];
- }
+ PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, NULL);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_eq_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_loadlib_p_s_p(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];
- }
+ PREG(1) = Parrot_load_lib(interp, SREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_eq_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_loadlib_p_sc_p(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];
- }
+ PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_eq_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_loadlib_p_s_pc(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];
- }
+ PREG(1) = Parrot_load_lib(interp, SREG(2), CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_eq_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_loadlib_p_sc_pc(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];
- }
+ PREG(1) = Parrot_load_lib(interp, CONST(2)->u.string, CONST(3)->u.key);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_eq_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_dlfunc_p_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 temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- VTABLE_set_integer_native(interp, temp, IREG(2));
+ char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
+ void *dl_handle = NULL;
+ void *ptr = NULL;
+ funcptr_t p;
- if (VTABLE_is_equal(interp, PREG(1), temp)) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (!PMC_IS_NULL(PREG(2))
+ && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
+ && VTABLE_defined(interp, PREG(2))) {
+ dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
}
- Parrot_pmc_free_temporary(interp, temp);
+ ptr = Parrot_dlsym(dl_handle, name);
+ p = D2FPTR(ptr);
-return (opcode_t *)cur_opcode + 4;}
+ if (p == NULLfunc) {
+ const char * err = Parrot_dlerror();
+ Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
+ "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ }
+ else {
+ PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
+ VTABLE_set_pointer_keyed_str(interp, PREG(1), SREG(4), F2DPTR(p));
+ }
+ Parrot_str_free_cstring(name);
+
+return (opcode_t *)cur_opcode + 5;}
opcode_t *
-Parrot_eq_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_dlfunc_p_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 temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
+ char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
+ void *dl_handle = NULL;
+ void *ptr = NULL;
+ funcptr_t p;
- if (VTABLE_is_equal(interp, PREG(1), temp)) {
- Parrot_pmc_free_temporary(interp, temp);
- return (opcode_t *)cur_opcode + cur_opcode[3];
+ if (!PMC_IS_NULL(PREG(2))
+ && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
+ && VTABLE_defined(interp, PREG(2))) {
+ dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
}
- Parrot_pmc_free_temporary(interp, temp);
-
-return (opcode_t *)cur_opcode + 4;}
+ ptr = Parrot_dlsym(dl_handle, name);
+ p = D2FPTR(ptr);
-opcode_t *
-Parrot_eq_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- /*
- * the get_number and get_string should probably
- * be also replaced with code like above, as
- * 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 (p == NULLfunc) {
+ const char * err = Parrot_dlerror();
+ Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
+ "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ }
+ else {
+ PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
+ VTABLE_set_pointer_keyed_str(interp, PREG(1), SREG(4), F2DPTR(p));
}
+ Parrot_str_free_cstring(name);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 5;}
opcode_t *
-Parrot_eq_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_dlfunc_p_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- /*
- * the get_number and get_string should probably
- * be also replaced with code like above, as
- * 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];
+ char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
+ void *dl_handle = NULL;
+ void *ptr = NULL;
+ funcptr_t p;
+
+ if (!PMC_IS_NULL(PREG(2))
+ && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
+ && VTABLE_defined(interp, PREG(2))) {
+ dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
}
-return (opcode_t *)cur_opcode + 4;}
+ ptr = Parrot_dlsym(dl_handle, name);
+ p = D2FPTR(ptr);
-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 (p == NULLfunc) {
+ const char * err = Parrot_dlerror();
+ Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
+ "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ }
+ else {
+ PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
+ VTABLE_set_pointer_keyed_str(interp, PREG(1), CONST(4)->u.string, F2DPTR(p));
}
+ Parrot_str_free_cstring(name);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 5;}
opcode_t *
-Parrot_eq_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_dlfunc_p_p_sc_sc(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];
+ char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
+ void *dl_handle = NULL;
+ void *ptr = NULL;
+ funcptr_t p;
+
+ if (!PMC_IS_NULL(PREG(2))
+ && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
+ && VTABLE_defined(interp, PREG(2))) {
+ dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
}
-return (opcode_t *)cur_opcode + 4;}
+ ptr = Parrot_dlsym(dl_handle, name);
+ p = D2FPTR(ptr);
-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 (p == NULLfunc) {
+ const char * err = Parrot_dlerror();
+ Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
+ "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ }
+ else {
+ PREG(1) = Parrot_pmc_new(interp, enum_class_NCI);
+ VTABLE_set_pointer_keyed_str(interp, PREG(1), CONST(4)->u.string, F2DPTR(p));
}
+ Parrot_str_free_cstring(name);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 5;}
opcode_t *
-Parrot_eq_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_dlvar_p_p_s(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];
+ char * const name = Parrot_str_to_cstring(interp, (SREG(3)));
+ void * dl_handle = NULL;
+ void * p = NULL;
+
+ if (!PMC_IS_NULL(PREG(2))
+ && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
+ && VTABLE_defined(interp, PREG(2))) {
+ dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
}
-return (opcode_t *)cur_opcode + 4;}
+ p = Parrot_dlsym(dl_handle, name);
-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 (p == NULL) {
+ const char * const err = Parrot_dlerror();
+ Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
+ "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ }
+ else {
+ /* At this point we have the symbol's address. We just need to build
+ a PMC with it so we can get and set the value */
+ PREG(1) = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
+ VTABLE_set_pointer(interp, PREG(1), p);
}
+ Parrot_str_free_cstring(name);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_eq_addr_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_dlvar_p_p_sc(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];
+ char * const name = Parrot_str_to_cstring(interp, (CONST(3)->u.string));
+ void * dl_handle = NULL;
+ void * p = NULL;
+
+ if (!PMC_IS_NULL(PREG(2))
+ && PREG(2)->vtable->base_type == enum_class_ParrotLibrary
+ && VTABLE_defined(interp, PREG(2))) {
+ dl_handle = ((Parrot_ParrotLibrary_attributes*)PMC_data(PREG(2)))->dl_handle;
}
-return (opcode_t *)cur_opcode + 4;}
+ p = Parrot_dlsym(dl_handle, name);
-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 (p == NULL) {
+ const char * const err = Parrot_dlerror();
+ Parrot_warn(interp, PARROT_WARNINGS_UNDEF_FLAG,
+ "Symbol '%s' not found: %s\n", name, err ? err : "unknown reason");
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ }
+ else {
+ /* At this point we have the symbol's address. We just need to build
+ a PMC with it so we can get and set the value */
+ PREG(1) = Parrot_pmc_new(interp, enum_class_UnManagedStruct);
+ VTABLE_set_pointer(interp, PREG(1), p);
}
+ Parrot_str_free_cstring(name);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_eq_addr_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_compreg_s_p(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];
- }
+ PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
+ interp->iglobals, IGLOBALS_COMPREG_HASH);
+ VTABLE_set_pmc_keyed_str(interp, compreg_hash, SREG(1), PREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_eq_addr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_compreg_sc_p(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];
- }
+ PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
+ interp->iglobals, IGLOBALS_COMPREG_HASH);
+ VTABLE_set_pmc_keyed_str(interp, compreg_hash, CONST(1)->u.string, PREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_compreg_p_s(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];
- }
+ PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
+ interp->iglobals, IGLOBALS_COMPREG_HASH);
+ PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, SREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_compreg_p_sc(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];
- }
+ PMC * const compreg_hash = VTABLE_get_pmc_keyed_int(interp,
+ interp->iglobals, IGLOBALS_COMPREG_HASH);
+ PREG(1) = VTABLE_get_pmc_keyed_str(interp, compreg_hash, CONST(2)->u.string);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_new_callback_p_p_p_s(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];
- }
+ PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), SREG(4));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 5;}
opcode_t *
-Parrot_ne_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_new_callback_p_p_p_sc(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];
- }
+ PREG(1) = Parrot_make_cb(interp, PREG(2), PREG(3), CONST(4)->u.string);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 5;}
opcode_t *
-Parrot_ne_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_annotations_p(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 (interp->code->annotations) {
+ const opcode_t cur_pos = (cur_opcode + 2) - interp->code->base.data;
+ PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
+ cur_pos, NULL);
+ }
+ else {
+ PREG(1) = Parrot_pmc_new(interp, enum_class_Hash);
}
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_ne_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_annotations_p_s(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 (interp->code->annotations) {
+ const opcode_t cur_pos = (cur_opcode + 3) - interp->code->base.data;
+ PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
+ cur_pos, SREG(2));
+ }
+ else {
+ PREG(1) = PMCNULL;
}
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_annotations_p_sc(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 (interp->code->annotations) {
+ const opcode_t cur_pos = (cur_opcode + 3) - interp->code->base.data;
+ PREG(1) = PackFile_Annotations_lookup(interp, interp->code->annotations,
+ cur_pos, CONST(2)->u.string);
+ }
+ else {
+ PREG(1) = PMCNULL;
}
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_band_i_i(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];
- }
+ IREG(1) &= IREG(2);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_band_i_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];
- }
+ IREG(1) &= cur_opcode[2];
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_band_i_i_i(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];
- }
+ IREG(1) = IREG(2) & IREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_band_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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);
+ IREG(1) = cur_opcode[2] & IREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_band_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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);
+ IREG(1) = IREG(2) & cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bor_i_i(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];
- }
+ IREG(1) |= IREG(2);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bor_i_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];
- }
+ IREG(1) |= cur_opcode[2];
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bor_i_i_i(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];
- }
+ IREG(1) = IREG(2) | IREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bor_i_ic_i(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];
- }
+ IREG(1) = cur_opcode[2] | IREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bor_i_i_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];
- }
+ IREG(1) = IREG(2) | cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shl_i_i(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];
- }
+ IREG(1) = bit_shift_left(IREG(1), IREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_addr_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shl_i_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];
- }
+ IREG(1) = bit_shift_left(IREG(1), cur_opcode[2]);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_ne_addr_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shl_i_i_i(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];
- }
+ IREG(1) = bit_shift_left(IREG(2), IREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_addr_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shl_i_ic_i(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];
- }
+ IREG(1) = bit_shift_left(cur_opcode[2], IREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_addr_sc_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shl_i_i_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];
- }
+ IREG(1) = bit_shift_left(IREG(2), cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ne_addr_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shr_i_i(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];
- }
+ const INTVAL signed_shift = -IREG(2);
+ IREG(1) = bit_shift_left(IREG(1), signed_shift);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_lt_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shr_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];
- }
+ const INTVAL signed_shift = -cur_opcode[2];
+ IREG(1) = bit_shift_left(IREG(1), signed_shift);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_lt_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shr_i_i_i(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];
- }
+ const INTVAL signed_shift = -IREG(3);
+ IREG(1) = bit_shift_left(IREG(2), signed_shift);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shr_i_ic_i(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];
- }
+ const INTVAL signed_shift = -IREG(3);
+ IREG(1) = bit_shift_left(cur_opcode[2], signed_shift);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_shr_i_i_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];
- }
+ const INTVAL signed_shift = -cur_opcode[3];
+ IREG(1) = bit_shift_left(IREG(2), signed_shift);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lsr_i_i(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];
- }
+ const UINTVAL a = (UINTVAL)IREG(1);
+ const UINTVAL b = a >> IREG(2);
+ IREG(1) = (INTVAL)b;
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_lt_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lsr_i_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];
- }
+ const UINTVAL a = (UINTVAL)IREG(1);
+ const UINTVAL b = a >> cur_opcode[2];
+ IREG(1) = (INTVAL)b;
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_lt_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lsr_i_i_i(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];
- }
+ IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> IREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lsr_i_ic_i(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];
- }
+ IREG(1) = (INTVAL)((UINTVAL)cur_opcode[2] >> IREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lsr_i_i_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];
- }
+ IREG(1) = (INTVAL)((UINTVAL)IREG(2) >> cur_opcode[3]);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bxor_i_i(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];
- }
+ IREG(1) ^= IREG(2);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_lt_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bxor_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- VTABLE_set_integer_native(interp, temp, IREG(2));
+ IREG(1) ^= 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];
- }
+return (opcode_t *)cur_opcode + 3;}
- Parrot_pmc_free_temporary(interp, temp);
+opcode_t *
+Parrot_bxor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+ const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
+ IREG(1) = IREG(2) ^ IREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bxor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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);
+ IREG(1) = cur_opcode[2] ^ IREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_bxor_i_i_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];
- }
+ IREG(1) = IREG(2) ^ cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_lt_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_get_number(interp, PREG(1)) < CONST(2)->u.number) {
- 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;}
opcode_t *
-Parrot_lt_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) < 0) {
- 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;}
opcode_t *
-Parrot_lt_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) < 0) {
- 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;}
opcode_t *
-Parrot_lt_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp_string(interp, PREG(1), PREG(2)) < 0) {
- 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;}
opcode_t *
-Parrot_lt_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp_num(interp, PREG(1), PREG(2)) < 0) {
- 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;}
opcode_t *
-Parrot_le_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (IREG(1) <= IREG(2)) {
- 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;}
opcode_t *
-Parrot_le_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (cur_opcode[1] <= IREG(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;}
opcode_t *
-Parrot_le_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (IREG(1) <= cur_opcode[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;}
opcode_t *
-Parrot_le_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (NREG(1) <= NREG(2)) {
- 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;}
opcode_t *
-Parrot_le_nc_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (CONST(1)->u.number <= NREG(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;}
opcode_t *
-Parrot_le_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_eq_p_i_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];
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_le_s_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_eq_p_ic_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];
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_le_sc_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_eq_p_n_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];
+ /*
+ * the get_number and get_string should probably
+ * be also replaced with code like above, as
+ * 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];
}
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_le_s_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_eq_p_nc_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];
+ /*
+ * the get_number and get_string should probably
+ * be also replaced with code like above, as
+ * 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];
}
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_le_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp(interp, PREG(1), PREG(2)) <= 0) {
- 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;}
-opcode_t *
-Parrot_le_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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];
+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];
}
- Parrot_pmc_free_temporary(interp, temp);
-
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_le_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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];
+ if (VTABLE_is_equal_string(interp, PREG(1), PREG(2))) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
- Parrot_pmc_free_temporary(interp, temp);
-
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_le_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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_get_number(interp, PREG(1)) <= NREG(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;}
opcode_t *
-Parrot_le_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_get_number(interp, PREG(1)) <= CONST(2)->u.number) {
- 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;}
opcode_t *
-Parrot_le_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) <= 0) {
- 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;}
opcode_t *
-Parrot_le_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) <= 0) {
- 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;}
opcode_t *
-Parrot_le_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp_string(interp, PREG(1), PREG(2)) <= 0) {
- 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;}
opcode_t *
-Parrot_le_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp_num(interp, PREG(1), PREG(2)) <= 0) {
- 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;}
opcode_t *
-Parrot_gt_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp(interp, PREG(1), PREG(2)) > 0) {
- 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;}
opcode_t *
-Parrot_gt_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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];
+ if (cur_opcode[1] != IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
- Parrot_pmc_free_temporary(interp, temp);
-
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_gt_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
- 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];
+ if (IREG(1) != cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
- Parrot_pmc_free_temporary(interp, temp);
-
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_gt_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_get_number(interp, PREG(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;}
opcode_t *
-Parrot_gt_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_get_number(interp, PREG(1)) > CONST(2)->u.number) {
- 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;}
opcode_t *
-Parrot_gt_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (Parrot_str_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) > 0) {
- 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;}
opcode_t *
-Parrot_gt_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) > 0) {
- 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;}
opcode_t *
-Parrot_gt_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp_string(interp, PREG(1), PREG(2)) > 0) {
- 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;}
opcode_t *
-Parrot_gt_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (VTABLE_cmp_num(interp, PREG(1), PREG(2)) > 0) {
- 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;}
opcode_t *
-Parrot_ge_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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_cmp(interp, PREG(1), PREG(2)) >= 0) {
- 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;}
opcode_t *
-Parrot_ge_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_ne_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
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];
+ 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);
@@ -19670,14 +15875,13 @@
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ge_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_ne_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
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];
+ 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);
@@ -19685,1614 +15889,1524 @@
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_ge_p_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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;}
opcode_t *
-Parrot_ge_p_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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;}
opcode_t *
-Parrot_ge_p_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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_compare(interp, VTABLE_get_string(interp, PREG(1)), SREG(2)) >= 0) {
- 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;}
opcode_t *
-Parrot_ge_p_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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_compare(interp, VTABLE_get_string(interp, PREG(1)), CONST(2)->u.string) >= 0) {
- 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;}
opcode_t *
-Parrot_ge_str_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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;}
opcode_t *
-Parrot_ge_num_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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;}
opcode_t *
-Parrot_if_null_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (PMC_IS_NULL(PREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (SREG(1) != SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_if_null_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (STRING_IS_NULL(SREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (CONST(1)->u.string != SREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_unless_null_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (!PMC_IS_NULL(PREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (SREG(1) != CONST(2)->u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_unless_null_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (!STRING_IS_NULL(SREG(1))) {
- return (opcode_t *)cur_opcode + cur_opcode[2];
+ if (CONST(1)->u.string != CONST(2)->u.string) {return (opcode_t *)cur_opcode + cur_opcode[3];
}
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = IREG(2) < IREG(3) ? -1 :
- IREG(2) > IREG(3) ? +1 :
- 0;
+ if (PREG(1) != PREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = cur_opcode[2] < IREG(3) ? -1 :
- cur_opcode[2] > IREG(3) ? +1 :
- 0;
+ if (IREG(1) < IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = IREG(2) < cur_opcode[3] ? -1 :
- IREG(2) > cur_opcode[3] ? +1 :
- 0;
+ if (cur_opcode[1] < IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = NREG(2) < NREG(3) ? -1 :
- NREG(2) > NREG(3) ? +1 :
- 0;
+ if (IREG(1) < cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.number < NREG(3) ? -1 :
- CONST(2)->u.number > NREG(3) ? +1 :
- 0;
+ if (NREG(1) < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = NREG(2) < CONST(3)->u.number ? -1 :
- NREG(2) > CONST(3)->u.number ? +1 :
- 0;
+ if (CONST(1)->u.number < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3));
+ if (NREG(1) < CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(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;}
opcode_t *
-Parrot_cmp_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string);
+ 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;}
opcode_t *
-Parrot_cmp_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = VTABLE_cmp(interp, PREG(2), PREG(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;}
opcode_t *
-Parrot_cmp_i_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- const INTVAL l = VTABLE_get_integer(interp, PREG(2));
- IREG(1) = l < IREG(3) ? -1 :
- l > IREG(3) ? +1 :
- 0;
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) < 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lt_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const INTVAL l = VTABLE_get_integer(interp, PREG(2));
- IREG(1) = l < cur_opcode[3] ? -1 :
- l > cur_opcode[3] ? +1 :
- 0;
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_cmp_i_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_lt_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
- IREG(1) = l < NREG(3) ? -1 :
- l > NREG(3) ? +1 :
- 0;
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_cmp_i_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
- IREG(1) = l < CONST(3)->u.number ? -1 :
- l > CONST(3)->u.number ? +1 :
- 0;
+ if (VTABLE_get_number(interp, PREG(1)) < NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_cmp_i_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- STRING* const l = VTABLE_get_string(interp, PREG(2));
- IREG(1) = Parrot_str_compare(interp, l, SREG(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;}
opcode_t *
-Parrot_cmp_i_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- STRING* const l = VTABLE_get_string(interp, PREG(2));
- IREG(1) = Parrot_str_compare(interp, l, CONST(3)->u.string);
+ 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;}
opcode_t *
-Parrot_cmp_str_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = VTABLE_cmp_string(interp, PREG(2), PREG(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;}
opcode_t *
-Parrot_cmp_num_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = VTABLE_cmp_num(interp, PREG(2), PREG(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;}
opcode_t *
-Parrot_cmp_pmc_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- PREG(1) = VTABLE_cmp_pmc(interp, PREG(2), PREG(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;}
opcode_t *
-Parrot_issame_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (PREG(2) == PREG(3))
- IREG(1) = 1;
- else
- IREG(1) = VTABLE_is_same(interp, PREG(2), PREG(3));
+ if (IREG(1) <= IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_issame_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = SREG(2) == SREG(3);
+ if (cur_opcode[1] <= IREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_issame_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.string == SREG(3);
+ if (IREG(1) <= cur_opcode[2]) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_issame_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = SREG(2) == CONST(3)->u.string;
+ if (NREG(1) <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_issame_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.string == CONST(3)->u.string;
+ if (CONST(1)->u.number <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isntsame_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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 (PREG(2) == PREG(3))
- IREG(1) = 0;
- else
- IREG(1) = !VTABLE_is_same(interp, PREG(2), PREG(3));
+ if (NREG(1) <= CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isntsame_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = SREG(2) != SREG(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;}
opcode_t *
-Parrot_isntsame_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.string != SREG(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;}
opcode_t *
-Parrot_isntsame_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = SREG(2) != CONST(3)->u.string;
+ 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;}
opcode_t *
-Parrot_isntsame_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.string != CONST(3)->u.string;
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_istrue_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_le_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = VTABLE_get_bool(interp, PREG(2));
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ VTABLE_set_integer_native(interp, temp, IREG(2));
-return (opcode_t *)cur_opcode + 3;}
+ if (VTABLE_cmp(interp, PREG(1), temp) <= 0) {
+ Parrot_pmc_free_temporary(interp, temp);return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
-opcode_t *
-Parrot_isfalse_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = !VTABLE_get_bool(interp, PREG(2));
+ Parrot_pmc_free_temporary(interp, temp);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isnull_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_le_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = PMC_IS_NULL(PREG(2));
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ VTABLE_set_integer_native(interp, temp, cur_opcode[2]);
-return (opcode_t *)cur_opcode + 3;}
+ 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 + 4;}
opcode_t *
-Parrot_isnull_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = PMC_IS_NULL(CONST(2)->u.key);
+ if (VTABLE_get_number(interp, PREG(1)) <= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isnull_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = STRING_IS_NULL(SREG(2));
+ if (VTABLE_get_number(interp, PREG(1)) <= CONST(2)->u.number) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isnull_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = STRING_IS_NULL(CONST(2)->u.string);
+ 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 + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isgt_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) > 0);
+ 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;}
opcode_t *
-Parrot_isge_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) >= 0);
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) <= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isle_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = IREG(2) <= IREG(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;}
opcode_t *
-Parrot_isle_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = cur_opcode[2] <= IREG(3);
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isle_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_gt_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) <= cur_opcode[3];
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_isle_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_gt_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = NREG(2) <= NREG(3);
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_isle_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.number <= NREG(3);
+ if (VTABLE_get_number(interp, PREG(1)) > NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isle_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = NREG(2) <= CONST(3)->u.number;
+ 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;}
opcode_t *
-Parrot_isle_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) <= 0;
+ 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;}
opcode_t *
-Parrot_isle_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3)) <= 0;
+ 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;}
opcode_t *
-Parrot_isle_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string) <= 0;
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isle_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) <= 0);
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) > 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_islt_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (IREG(2) < IREG(3)) ? 1 : 0;
+ if (VTABLE_cmp(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_islt_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_ge_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (cur_opcode[2] < IREG(3)) ? 1 : 0;
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_islt_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_ge_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (IREG(2) < cur_opcode[3]) ? 1 : 0;
+ PMC * const temp = Parrot_pmc_new_temporary(interp, enum_class_Integer);
+ 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 + 4;}
opcode_t *
-Parrot_islt_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = NREG(2) < NREG(3);
+ if (VTABLE_get_number(interp, PREG(1)) >= NREG(2)) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_islt_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = CONST(2)->u.number < NREG(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;}
opcode_t *
-Parrot_islt_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = NREG(2) < CONST(3)->u.number;
+ 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;}
opcode_t *
-Parrot_islt_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) < 0;
+ 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;}
opcode_t *
-Parrot_islt_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3)) < 0;
+ if (VTABLE_cmp_string(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_islt_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string) < 0;
+ if (VTABLE_cmp_num(interp, PREG(1), PREG(2)) >= 0) {return (opcode_t *)cur_opcode + cur_opcode[3];
+ }
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_islt_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) < 0);
+ if (PMC_IS_NULL(PREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
+ }
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_iseq_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (IREG(2) == IREG(3)) ? 1 : 0;
+ if (STRING_IS_NULL(SREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
+ }
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_iseq_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (cur_opcode[2] == IREG(3)) ? 1 : 0;
+ if (!PMC_IS_NULL(PREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
+ }
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_iseq_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+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);
- IREG(1) = (IREG(2) == cur_opcode[3]) ? 1 : 0;
+ if (!STRING_IS_NULL(SREG(1))) {return (opcode_t *)cur_opcode + cur_opcode[2];
+ }
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_iseq_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = NREG(2) == NREG(3);
+ IREG(1) = IREG(2) < IREG(3) ? -1 :
+ IREG(2) > IREG(3) ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_iseq_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = CONST(2)->u.number == NREG(3);
+ IREG(1) = cur_opcode[2] < IREG(3) ? -1 :
+ cur_opcode[2] > IREG(3) ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_iseq_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = NREG(2) == CONST(3)->u.number;
+ IREG(1) = IREG(2) < cur_opcode[3] ? -1 :
+ IREG(2) > cur_opcode[3] ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_iseq_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (Parrot_str_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
+ IREG(1) = NREG(2) < NREG(3) ? -1 :
+ NREG(2) > NREG(3) ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_iseq_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (Parrot_str_equal(interp, CONST(2)->u.string, SREG(3)) ? 1 : 0);
+ IREG(1) = CONST(2)->u.number < NREG(3) ? -1 :
+ CONST(2)->u.number > NREG(3) ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_iseq_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (Parrot_str_equal(interp, SREG(2), CONST(3)->u.string) ? 1 : 0);
+ IREG(1) = NREG(2) < CONST(3)->u.number ? -1 :
+ NREG(2) > CONST(3)->u.number ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_iseq_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (&PREG(2) == &PREG(3))
- IREG(1) = 1;
- else
- IREG(1) = VTABLE_is_equal(interp, PREG(2), PREG(3));
+ IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (IREG(2) == IREG(3)) ? 0 : 1;
+ IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (cur_opcode[2] == IREG(3)) ? 0 : 1;
+ IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (IREG(2) == cur_opcode[3]) ? 0 : 1;
+ IREG(1) = VTABLE_cmp(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = NREG(2) != NREG(3);
+ const INTVAL l = VTABLE_get_integer(interp, PREG(2));
+ IREG(1) = l < IREG(3) ? -1 :
+ l > IREG(3) ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = CONST(2)->u.number != NREG(3);
+ const INTVAL l = VTABLE_get_integer(interp, PREG(2));
+ IREG(1) = l < cur_opcode[3] ? -1 :
+ l > cur_opcode[3] ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = NREG(2) != CONST(3)->u.number;
+ const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
+ IREG(1) = l < NREG(3) ? -1 :
+ l > NREG(3) ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (Parrot_str_not_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
+ const FLOATVAL l = VTABLE_get_number(interp, PREG(2));
+ IREG(1) = l < CONST(3)->u.number ? -1 :
+ l > CONST(3)->u.number ? +1 :
+ 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (Parrot_str_not_equal(interp, CONST(2)->u.string, SREG(3)) ? 1 : 0);
+ STRING* const l = VTABLE_get_string(interp, PREG(2));
+ IREG(1) = Parrot_str_compare(interp, l, SREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_i_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (Parrot_str_not_equal(interp, SREG(2), CONST(3)->u.string) ? 1 : 0);
+ STRING* const l = VTABLE_get_string(interp, PREG(2));
+ IREG(1) = Parrot_str_compare(interp, l, CONST(3)->u.string);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_isne_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_str_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (&PREG(2) == &PREG(3))
- IREG(1) = 0;
- else
- IREG(1) = !VTABLE_is_equal(interp, PREG(2), PREG(3));
+ IREG(1) = VTABLE_cmp_string(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_and_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_num_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) ? IREG(3) : IREG(2);
+ IREG(1) = VTABLE_cmp_num(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_and_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_cmp_pmc_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = cur_opcode[2] ? IREG(3) : cur_opcode[2];
+ PREG(1) = VTABLE_cmp_pmc(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_and_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_issame_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) ? cur_opcode[3] : IREG(2);
+ if (PREG(2) == PREG(3))
+ IREG(1) = 1;
+ else
+ IREG(1) = VTABLE_is_same(interp, PREG(2), PREG(3));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_and_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_issame_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = VTABLE_logical_and(interp, PREG(2), PREG(3), PREG(1));
+ IREG(1) = SREG(2) == SREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_not_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_issame_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = ! IREG(1);
+ IREG(1) = CONST(2)->u.string == SREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_not_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_issame_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = ! IREG(2);
+ IREG(1) = SREG(2) == CONST(3)->u.string;
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_not_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_issame_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- VTABLE_i_logical_not(interp, PREG(1));
+ IREG(1) = CONST(2)->u.string == CONST(3)->u.string;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_not_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isntsame_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = VTABLE_logical_not(interp, PREG(2), PREG(1));
+ if (PREG(2) == PREG(3))
+ IREG(1) = 0;
+ else
+ IREG(1) = !VTABLE_is_same(interp, PREG(2), PREG(3));
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_or_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isntsame_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) ? IREG(2) : IREG(3);
+ IREG(1) = SREG(2) != SREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_or_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isntsame_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = cur_opcode[2] ? cur_opcode[2] : IREG(3);
+ IREG(1) = CONST(2)->u.string != SREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_or_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isntsame_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = IREG(2) ? IREG(2) : cur_opcode[3];
+ IREG(1) = SREG(2) != CONST(3)->u.string;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_or_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isntsame_i_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = VTABLE_logical_or(interp, PREG(2), PREG(3), PREG(1));
+ IREG(1) = CONST(2)->u.string != CONST(3)->u.string;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_xor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_istrue_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (IREG(2) && ! IREG(3)) ? IREG(2) : (IREG(3) && ! IREG(2)) ? IREG(3) : 0;
+ IREG(1) = VTABLE_get_bool(interp, PREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_xor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isfalse_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (cur_opcode[2] && ! IREG(3)) ? cur_opcode[2] : (IREG(3) && ! cur_opcode[2]) ? IREG(3) : 0;
+ IREG(1) = !VTABLE_get_bool(interp, PREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_xor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isnull_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = (IREG(2) && ! cur_opcode[3]) ? IREG(2) : (cur_opcode[3] && ! IREG(2)) ? cur_opcode[3] : 0;
+ IREG(1) = PMC_IS_NULL(PREG(2));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_xor_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isnull_i_pc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = VTABLE_logical_xor(interp, PREG(2), PREG(3), PREG(1));
+ IREG(1) = PMC_IS_NULL(CONST(2)->u.key);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_debug_init(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isnull_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_debugger_init(interp);
+ IREG(1) = STRING_IS_NULL(SREG(2));
-return (opcode_t *)cur_opcode + 1;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_debug_load_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isnull_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_debugger_load(interp, CONST(1)->u.string);
+ IREG(1) = STRING_IS_NULL(CONST(2)->u.string);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_debug_break(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isgt_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_debugger_break(interp, cur_opcode);
+ IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) > 0);
-return (opcode_t *)cur_opcode + 1;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_debug_print(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isge_i_p_p(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,
- EXCEPTION_INVALID_OPERATION,
- "Initialize debugger with debug_init before using debug_print");
- return (opcode_t *)handler;
- }
-
- if (!(interp->pdb->state & PDB_BREAK)) {
- PDB_print(interp, "I");
- PDB_print(interp, "N");
- PDB_print(interp, "S");
- PDB_print(interp, "P");
- }
+ IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) >= 0);
-return (opcode_t *)cur_opcode + 1;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_backtrace(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PDB_backtrace(interp);
+ IREG(1) = IREG(2) <= IREG(3);
-return (opcode_t *)cur_opcode + 1;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_getline_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_Context_info info;
- Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
- IREG(1) = info.line;
+ IREG(1) = cur_opcode[2] <= IREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_getfile_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_Context_info info;
- Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
- SREG(1) = info.file;
+ IREG(1) = IREG(2) <= cur_opcode[3];
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_close_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_close(interp, PREG(1));
+ IREG(1) = NREG(2) <= NREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_fdopen_p_i_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)IREG(2), SREG(3));
- if (!PREG(1))
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ IREG(1) = CONST(2)->u.number <= NREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_fdopen_p_ic_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)cur_opcode[2], SREG(3));
- if (!PREG(1))
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ IREG(1) = NREG(2) <= CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_fdopen_p_i_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)IREG(2), CONST(3)->u.string);
- if (!PREG(1))
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) <= 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_fdopen_p_ic_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)cur_opcode[2], CONST(3)->u.string);
- if (!PREG(1))
- PREG(1) = Parrot_pmc_new(interp, enum_class_Undef);
+ IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3)) <= 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_getstdin_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = _PIO_STDIN(interp);
+ IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string) <= 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_getstdout_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isle_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = _PIO_STDOUT(interp);
+ IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) <= 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_getstderr_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = _PIO_STDERR(interp);
+ IREG(1) = (IREG(2) < IREG(3)) ? 1 : 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_setstdin_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- _PIO_STDIN(interp) = PREG(1);
+ IREG(1) = (cur_opcode[2] < IREG(3)) ? 1 : 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_setstdout_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- _PIO_STDOUT(interp) = PREG(1);
+ IREG(1) = (IREG(2) < cur_opcode[3]) ? 1 : 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_setstderr_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- _PIO_STDERR(interp) = PREG(1);
+ IREG(1) = NREG(2) < NREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_open_p_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_nc_n(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;
- }
- else {
- PREG(1) = Parrot_io_open(interp, PMCNULL, SREG(2), SREG(3));
- PARROT_ASSERT(! PMC_IS_NULL(PREG(1)));
- }
+ IREG(1) = CONST(2)->u.number < NREG(3);
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_open_p_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_n_nc(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;
- }
- else {
- PREG(1) = Parrot_io_open(interp, PMCNULL, CONST(2)->u.string, SREG(3));
- PARROT_ASSERT(! PMC_IS_NULL(PREG(1)));
- }
+ IREG(1) = NREG(2) < CONST(3)->u.number;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_open_p_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_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(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;
- }
- else {
- PREG(1) = Parrot_io_open(interp, PMCNULL, SREG(2), CONST(3)->u.string);
- PARROT_ASSERT(! PMC_IS_NULL(PREG(1)));
- }
+ IREG(1) = Parrot_str_compare(interp, SREG(2), SREG(3)) < 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_open_p_sc_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_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(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;
- }
- else {
- PREG(1) = Parrot_io_open(interp, PMCNULL, CONST(2)->u.string, CONST(3)->u.string);
- PARROT_ASSERT(! PMC_IS_NULL(PREG(1)));
- }
+ IREG(1) = Parrot_str_compare(interp, CONST(2)->u.string, SREG(3)) < 0;
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_open_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_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))) {
- 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);
- PARROT_ASSERT(! PMC_IS_NULL(PREG(1)));
- }
+ IREG(1) = Parrot_str_compare(interp, SREG(2), CONST(3)->u.string) < 0;
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_open_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_islt_i_p_p(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;
- }
- else {
- PREG(1) = Parrot_io_open(interp, PMCNULL, CONST(2)->u.string, NULL);
- PARROT_ASSERT(! PMC_IS_NULL(PREG(1)));
- }
+ IREG(1) = (VTABLE_cmp(interp, PREG(2), PREG(3)) < 0);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)IREG(1));
+ IREG(1) = (IREG(2) == IREG(3)) ? 1 : 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)cur_opcode[1]);
+ IREG(1) = (cur_opcode[2] == IREG(3)) ? 1 : 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#ifdef PARROT_HAS_NEGATIVE_ZERO
- Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
-#else
- /* Workaround for older msvcrt and openbsd. TT #313 */
- if (Parrot_is_nzero(NREG(1))) {
- Parrot_io_printf(interp, "-0");
- }
- else {
- Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
- }
-#endif
+ IREG(1) = (IREG(2) == cur_opcode[3]) ? 1 : 0;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#ifdef PARROT_HAS_NEGATIVE_ZERO
- Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1)->u.number);
-#else
- /* Workaround for older msvcrt and openbsd. TT #313 */
- if (Parrot_is_nzero(CONST(1)->u.number)) {
- Parrot_io_printf(interp, "-0");
- }
- else {
- Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1)->u.number);
- }
-#endif
+ IREG(1) = NREG(2) == NREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = SREG(1);
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
+ IREG(1) = CONST(2)->u.number == NREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = CONST(1)->u.string;
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
+ IREG(1) = NREG(2) == CONST(3)->u.number;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_s_s(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);
- STRING * const s = (VTABLE_get_string(interp, p));
- if (s)
- Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
+ IREG(1) = (Parrot_str_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)IREG(1));
+ IREG(1) = (Parrot_str_equal(interp, CONST(2)->u.string, SREG(3)) ? 1 : 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)cur_opcode[1]);
+ IREG(1) = (Parrot_str_equal(interp, SREG(2), CONST(3)->u.string) ? 1 : 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_iseq_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#ifdef PARROT_HAS_NEGATIVE_ZERO
- Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
-#else
- /* Workaround for older msvcrt and openbsd. TT #313 */
- if (Parrot_is_nzero(NREG(1))) {
- Parrot_io_printf(interp, "-0\n");
- }
- else {
- Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
- }
-#endif
+ if (&PREG(2) == &PREG(3))
+ IREG(1) = 1;
+ else
+ IREG(1) = VTABLE_is_equal(interp, PREG(2), PREG(3));
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
-#ifdef PARROT_HAS_NEGATIVE_ZERO
- Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1)->u.number);
-#else
- /* Workaround for older msvcrt and openbsd. TT #313 */
- if (Parrot_is_nzero(CONST(1)->u.number)) {
- Parrot_io_printf(interp, "-0\n");
- }
- else {
- Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1)->u.number);
- }
-#endif
+ IREG(1) = (IREG(2) == IREG(3)) ? 0 : 1;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = SREG(1);
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
- Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
+ IREG(1) = (cur_opcode[2] == IREG(3)) ? 0 : 1;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = CONST(1)->u.string;
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
- Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
+ IREG(1) = (IREG(2) == cur_opcode[3]) ? 0 : 1;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_say_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_n_n(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);
-
- if (PMC_IS_NULL(p)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 2,
- EXCEPTION_UNEXPECTED_NULL,
- "Null PMC in say");
- return (opcode_t *)handler;
- }
- else {
- STRING * const s = VTABLE_get_string(interp, p);
- if (s)
- Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
- Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
- }
+ IREG(1) = NREG(2) != NREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_eprintf(interp, INTVAL_FMT, IREG(1));
+ IREG(1) = CONST(2)->u.number != NREG(3);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_eprintf(interp, INTVAL_FMT, cur_opcode[1]);
+ IREG(1) = NREG(2) != CONST(3)->u.number;
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_s_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_eprintf(interp, FLOATVAL_FMT, NREG(1));
+ IREG(1) = (Parrot_str_not_equal(interp, SREG(2), SREG(3)) ? 1 : 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_sc_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- Parrot_io_eprintf(interp, FLOATVAL_FMT, CONST(1)->u.number);
+ IREG(1) = (Parrot_str_not_equal(interp, CONST(2)->u.string, SREG(3)) ? 1 : 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_s_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = SREG(1);
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDERR(interp), s);
+ IREG(1) = (Parrot_str_not_equal(interp, SREG(2), CONST(3)->u.string) ? 1 : 0);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_isne_i_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING * const s = CONST(1)->u.string;
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDERR(interp), s);
+ if (&PREG(2) == &PREG(3))
+ IREG(1) = 0;
+ else
+ IREG(1) = !VTABLE_is_equal(interp, PREG(2), PREG(3));
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_printerr_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_and_i_i_i(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);
- STRING * const s = (VTABLE_get_string(interp, p));
- if (s)
- Parrot_io_putps(interp, _PIO_STDERR(interp), s);
+ IREG(1) = IREG(2) ? IREG(3) : IREG(2);
-return (opcode_t *)cur_opcode + 2;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_and_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(1)) {
- STRING * const s = Parrot_str_from_int(interp, IREG(2));
- Parrot_io_putps(interp, PREG(1), s);
- }
+ IREG(1) = cur_opcode[2] ? IREG(3) : cur_opcode[2];
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_and_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(1)) {
- STRING * const s = Parrot_str_from_int(interp, cur_opcode[2]);
- Parrot_io_putps(interp, PREG(1), s);
- }
+ IREG(1) = IREG(2) ? cur_opcode[3] : IREG(2);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_and_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(1)) {
- STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, NREG(2));
- Parrot_io_putps(interp, PREG(1), s);
- }
+ PREG(1) = VTABLE_logical_and(interp, PREG(2), PREG(3), PREG(1));
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_print_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_not_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(1)) {
- STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, CONST(2)->u.number);
- Parrot_io_putps(interp, PREG(1), s);
- }
+ IREG(1) = ! IREG(1);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_print_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_not_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (SREG(2) && PREG(1)) {
- Parrot_io_putps(interp, PREG(1), SREG(2));
- }
+ IREG(1) = ! IREG(2);
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_print_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_not_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (CONST(2)->u.string && PREG(1)) {
- Parrot_io_putps(interp, PREG(1), CONST(2)->u.string);
- }
+ VTABLE_i_logical_not(interp, PREG(1));
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_print_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_not_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(2) && PREG(1)) {
- STRING * const s = VTABLE_get_string(interp, PREG(2));
- Parrot_io_putps(interp, PREG(1), s);
- }
+ PREG(1) = VTABLE_logical_not(interp, PREG(2), PREG(1));
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_read_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_or_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_io_reads(interp, _PIO_STDIN(interp), (size_t)IREG(2));
+ IREG(1) = IREG(2) ? IREG(2) : IREG(3);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_read_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_or_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_io_reads(interp, _PIO_STDIN(interp), (size_t)cur_opcode[2]);
+ IREG(1) = cur_opcode[2] ? cur_opcode[2] : IREG(3);
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_read_s_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_or_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_io_reads(interp, PREG(2), (size_t)IREG(3));
+ IREG(1) = IREG(2) ? IREG(2) : cur_opcode[3];
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_read_s_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_or_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_io_reads(interp, PREG(2), (size_t)cur_opcode[3]);
+ PREG(1) = VTABLE_logical_or(interp, PREG(2), PREG(3), PREG(1));
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_readline_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_xor_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = Parrot_io_readline(interp, PREG(2));
+ IREG(1) = (IREG(2) && ! IREG(3)) ? IREG(2) : (IREG(3) && ! IREG(2)) ? IREG(3) : 0;
-return (opcode_t *)cur_opcode + 3;}
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_peek_s(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_xor_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING ** const s = &SREG(1);
+ IREG(1) = (cur_opcode[2] && ! IREG(3)) ? cur_opcode[2] : (IREG(3) && ! cur_opcode[2]) ? IREG(3) : 0;
- *s = NULL;
- if (Parrot_io_peek(interp, _PIO_STDIN(interp), s) < 0) {
- SREG(1) = STRINGNULL;
- }
+return (opcode_t *)cur_opcode + 4;}
-return (opcode_t *)cur_opcode + 2;}
+opcode_t *
+Parrot_xor_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+ const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
+ IREG(1) = (IREG(2) && ! cur_opcode[3]) ? IREG(2) : (cur_opcode[3] && ! IREG(2)) ? cur_opcode[3] : 0;
+
+return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_peek_s_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_xor_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- STRING ** const s = &SREG(1);
+ PREG(1) = VTABLE_logical_xor(interp, PREG(2), PREG(3), PREG(1));
- *s = NULL;
- if (Parrot_io_peek(interp, PREG(2), s) < 0) {
- SREG(1) = STRINGNULL;
- }
+return (opcode_t *)cur_opcode + 4;}
-return (opcode_t *)cur_opcode + 3;}
+opcode_t *
+Parrot_print_i(opcode_t *cur_opcode, PARROT_INTERP) {
+ const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
+ Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)IREG(1));
+
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_stat_info_intval(interp, SREG(2), IREG(3));
+ Parrot_io_printf(interp, INTVAL_FMT, (INTVAL)cur_opcode[1]);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_sc_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_n(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_stat_info_intval(interp, CONST(2)->u.string, IREG(3));
+#ifdef PARROT_HAS_NEGATIVE_ZERO
+ Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
+#else
+ /* Workaround for older msvcrt and openbsd. TT #313 */
+ if (Parrot_is_nzero(NREG(1))) {
+ Parrot_io_printf(interp, "-0");
+ }
+ else {
+ Parrot_io_printf(interp, FLOATVAL_FMT, NREG(1));
+ }
+#endif
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_stat_info_intval(interp, SREG(2), cur_opcode[3]);
+#ifdef PARROT_HAS_NEGATIVE_ZERO
+ Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1)->u.number);
+#else
+ /* Workaround for older msvcrt and openbsd. TT #313 */
+ if (Parrot_is_nzero(CONST(1)->u.number)) {
+ Parrot_io_printf(interp, "-0");
+ }
+ else {
+ Parrot_io_printf(interp, FLOATVAL_FMT, CONST(1)->u.number);
+ }
+#endif
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_sc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_s(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_stat_info_intval(interp, CONST(2)->u.string, cur_opcode[3]);
+ STRING * const s = SREG(1);
+ if (s && Parrot_str_byte_length(interp, s))
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_fstat_info_intval(interp, IREG(2), IREG(3));
+ STRING * const s = CONST(1)->u.string;
+ if (s && Parrot_str_byte_length(interp, s))
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_fstat_info_intval(interp, cur_opcode[2], IREG(3));
+ PMC * const p = PREG(1);
+ STRING * const s = (VTABLE_get_string(interp, p));
+ if (s)
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_fstat_info_intval(interp, IREG(2), cur_opcode[3]);
+ Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)IREG(1));
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_stat_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_ic(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = Parrot_fstat_info_intval(interp, cur_opcode[2], cur_opcode[3]);
+ Parrot_io_printf(interp, INTVAL_FMT "\n", (INTVAL)cur_opcode[1]);
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_seek_p_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_n(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
- }
+#ifdef PARROT_HAS_NEGATIVE_ZERO
+ Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
+#else
+ /* Workaround for older msvcrt and openbsd. TT #313 */
+ if (Parrot_is_nzero(NREG(1))) {
+ Parrot_io_printf(interp, "-0\n");
}
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_seek_p_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
- }
+ else {
+ Parrot_io_printf(interp, FLOATVAL_FMT "\n", NREG(1));
}
+#endif
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_seek_p_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_nc(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
- }
+#ifdef PARROT_HAS_NEGATIVE_ZERO
+ Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1)->u.number);
+#else
+ /* Workaround for older msvcrt and openbsd. TT #313 */
+ if (Parrot_is_nzero(CONST(1)->u.number)) {
+ Parrot_io_printf(interp, "-0\n");
}
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_seek_p_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- return (opcode_t *)handler;
- }
+ else {
+ Parrot_io_printf(interp, FLOATVAL_FMT "\n", CONST(1)->u.number);
}
+#endif
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_seek_p_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_s(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
- }
+ STRING * const s = SREG(1);
+ if (s && Parrot_str_byte_length(interp, s))
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_seek_p_ic_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_sc(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
- }
+ STRING * const s = CONST(1)->u.string;
+ if (s && Parrot_str_byte_length(interp, s))
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_seek_p_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_say_p(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
+ PMC * const p = PREG(1);
+
+ if (PMC_IS_NULL(p)) {
+ opcode_t *handler = Parrot_ex_throw_from_op_args(interp,cur_opcode + 2,
+ EXCEPTION_UNEXPECTED_NULL,
+ "Null PMC in say");return (opcode_t *)handler;
+ }
+ else {
+ STRING * const s = VTABLE_get_string(interp, p);
+ if (s)
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), s);
+ Parrot_io_putps(interp, _PIO_STDOUT(interp), Parrot_str_new_constant(interp, "\n"));
}
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_seek_p_ic_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
+ STRING * const s = Parrot_str_from_int(interp, IREG(2));
+ Parrot_io_putps(interp, PREG(1), s);
}
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_seek_p_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_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)) {
- 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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
+ STRING * const s = Parrot_str_from_int(interp, cur_opcode[2]);
+ Parrot_io_putps(interp, PREG(1), s);
}
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_seek_p_ic_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
+ STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, NREG(2));
+ Parrot_io_putps(interp, PREG(1), s);
}
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_seek_p_i_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
+ STRING * const s = Parrot_sprintf_c(interp, FLOATVAL_FMT, CONST(2)->u.number);
+ Parrot_io_putps(interp, PREG(1), s);
}
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_seek_p_ic_ic_ic(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
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,
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- return (opcode_t *)handler;
- }
+ if (SREG(2) && PREG(1)) {
+ Parrot_io_putps(interp, PREG(1), SREG(2));
}
-return (opcode_t *)cur_opcode + 5;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_tell_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p_sc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(2))
- IREG(1) = (INTVAL)Parrot_io_tell(interp, PREG(2));
+ if (CONST(2)->u.string && PREG(1)) {
+ Parrot_io_putps(interp, PREG(1), CONST(2)->u.string);
+ }
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_tell_i_i_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_print_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- if (PREG(3)) {
- PIOOFF_T pos;
- pos = Parrot_io_tell(interp, PREG(3));
- IREG(1) = (INTVAL)(pos >> 31);
- IREG(2) = (INTVAL)(pos & 0xffffffff);
+ if (PREG(2) && PREG(1)) {
+ STRING * const s = VTABLE_get_string(interp, PREG(2));
+ Parrot_io_putps(interp, PREG(1), s);
}
-return (opcode_t *)cur_opcode + 4;}
+return (opcode_t *)cur_opcode + 3;}
opcode_t *
Parrot_abs_i(opcode_t *cur_opcode, PARROT_INTERP) {
@@ -21470,191 +17584,9 @@
return (opcode_t *)cur_opcode + 4;}
opcode_t *
-Parrot_add_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- PREG(1) = VTABLE_add_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_i_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
- IREG(1) = IREG(2) % den;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_i_ic_i(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
- IREG(1) = cur_opcode[2] % den;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_i_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
- IREG(1) = IREG(2) % den;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- INTVAL result;
-
- if (IREG(3) == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
-
- result = VTABLE_get_integer(interp, PREG(2)) % IREG(3);
-
- PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
- VTABLE_set_integer_native(interp, PREG(1), result);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- INTVAL result;
-
- if (cur_opcode[3] == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
-
- result = VTABLE_get_integer(interp, PREG(2)) % cur_opcode[3];
-
- PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
- VTABLE_set_integer_native(interp, PREG(1), result);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- INTVAL result;
- INTVAL value = VTABLE_get_integer(interp, PREG(3));
-
- if (value == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
-
- result = VTABLE_get_integer(interp, PREG(2)) % value;
-
- PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
- VTABLE_set_integer_native(interp, PREG(1), result);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
- NREG(1) = fmod(NREG(2), den);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
- NREG(1) = fmod(CONST(2)->u.number, den);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
- 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,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
- NREG(1) = fmod(NREG(2), den);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL result;
- FLOATVAL value = NREG(3);
-
- if (FLOAT_IS_ZERO(value)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
-
- result = fmod(VTABLE_get_integer(interp, PREG(2)), value);
-
- PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL) result);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cmod_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_add_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL result;
- FLOATVAL value = CONST(3)->u.number;
-
- if (FLOAT_IS_ZERO(value)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, cur_opcode + 4,
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- return (opcode_t *)handler;
- }
-
- result = fmod(VTABLE_get_integer(interp, PREG(2)), value);
-
- PREG(1) = Parrot_pmc_new(interp, VTABLE_type(interp, PREG(2)));
- VTABLE_set_integer_native(interp, PREG(1), (INTVAL) result);
+ PREG(1) = VTABLE_add_float(interp, PREG(2), CONST(3)->u.number, PREG(1));
return (opcode_t *)cur_opcode + 4;}
@@ -21684,10 +17616,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;
@@ -21698,10 +17629,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;
@@ -21712,10 +17642,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;
@@ -21726,10 +17655,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;
@@ -21775,10 +17703,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;
@@ -21789,10 +17716,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;
@@ -21803,10 +17729,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;
@@ -21817,10 +17742,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;
@@ -21831,10 +17755,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;
@@ -21845,10 +17768,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;
@@ -21859,10 +17781,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;
@@ -21873,10 +17794,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;
@@ -21924,10 +17844,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);
@@ -21942,10 +17861,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);
@@ -21958,10 +17876,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);
@@ -21972,10 +17889,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);
@@ -22023,10 +17939,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);
@@ -22041,10 +17956,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);
@@ -22059,10 +17973,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);
@@ -22075,10 +17988,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);
@@ -22089,10 +18001,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);
@@ -22103,10 +18014,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);
@@ -22535,203 +18445,6 @@
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_pow_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = pow((FLOATVAL)NREG(2), (FLOATVAL)NREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = pow((FLOATVAL)CONST(2)->u.number, (FLOATVAL)NREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = pow((FLOATVAL)NREG(2), (FLOATVAL)CONST(3)->u.number);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_p_p_p(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
- const FLOATVAL b = VTABLE_get_number(interp, PREG(3));
- const FLOATVAL c = pow(a, b);
- if (PMC_IS_NULL(PREG(1)))
- PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- PREG(1) = Parrot_pmc_new(interp, PREG(1)->vtable->base_type);
- VTABLE_set_number_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_p_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
- const FLOATVAL b = (FLOATVAL)IREG(3);
- const FLOATVAL c = pow(a, b);
- if (PMC_IS_NULL(PREG(1)))
- PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- PREG(1) = Parrot_pmc_new(interp, PREG(1)->vtable->base_type);
- VTABLE_set_number_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_p_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
- const FLOATVAL b = (FLOATVAL)cur_opcode[3];
- const FLOATVAL c = pow(a, b);
- if (PMC_IS_NULL(PREG(1)))
- PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- PREG(1) = Parrot_pmc_new(interp, PREG(1)->vtable->base_type);
- VTABLE_set_number_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_p_p_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
- const FLOATVAL c = pow(a, NREG(3));
- if (PMC_IS_NULL(PREG(1)))
- PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- PREG(1) = Parrot_pmc_new(interp, PREG(1)->vtable->base_type);
- VTABLE_set_number_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_p_p_nc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- const FLOATVAL a = VTABLE_get_number(interp, PREG(2));
- const FLOATVAL c = pow(a, CONST(3)->u.number);
- if (PMC_IS_NULL(PREG(1)))
- PREG(1) = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- PREG(1) = Parrot_pmc_new(interp, PREG(1)->vtable->base_type);
- VTABLE_set_number_native(interp, PREG(1), c);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_n_n_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL n2 = NREG(2);
- FLOATVAL res = 1.0;
- INTVAL e = IREG(3);
- int s = 1;
- if (e != 0) {
- if (e < 0) {
- s = -1;
- e = -e;
- }
- }
- while (e) {
- if (e & 1) {
- res *= n2;
- }
- n2 *= n2;
- e >>= 1;
- }
- if (s < 0) {
- res = 1.0/res;
- }
- NREG(1) = res;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_n_nc_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL n2 = CONST(2)->u.number;
- FLOATVAL res = 1.0;
- INTVAL e = IREG(3);
- int s = 1;
- if (e != 0) {
- if (e < 0) {
- s = -1;
- e = -e;
- }
- }
- while (e) {
- if (e & 1) {
- res *= n2;
- }
- n2 *= n2;
- e >>= 1;
- }
- if (s < 0) {
- res = 1.0/res;
- }
- NREG(1) = res;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_n_n_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL n2 = NREG(2);
- FLOATVAL res = 1.0;
- INTVAL e = cur_opcode[3];
- int s = 1;
- if (e != 0) {
- if (e < 0) {
- s = -1;
- e = -e;
- }
- }
- while (e) {
- if (e & 1) {
- res *= n2;
- }
- n2 *= n2;
- e >>= 1;
- }
- if (s < 0) {
- res = 1.0/res;
- }
- NREG(1) = res;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_pow_n_nc_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL n2 = CONST(2)->u.number;
- FLOATVAL res = 1.0;
- INTVAL e = cur_opcode[3];
- int s = 1;
- if (e != 0) {
- if (e < 0) {
- s = -1;
- e = -e;
- }
- }
- while (e) {
- if (e & 1) {
- res *= n2;
- }
- n2 *= n2;
- e >>= 1;
- }
- if (s < 0) {
- res = 1.0/res;
- }
- NREG(1) = res;
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
Parrot_sub_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
IREG(1) -= IREG(2);
@@ -22879,145 +18592,11 @@
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_acos_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = acos((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_asec_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = acos(((FLOATVAL)1) / ((FLOATVAL)NREG(2)));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_asin_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = asin((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_atan_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = atan((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_atan_n_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = atan2((FLOATVAL)NREG(2), (FLOATVAL)NREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_atan_n_nc_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = atan2((FLOATVAL)CONST(2)->u.number, (FLOATVAL)NREG(3));
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_atan_n_n_nc(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = atan2((FLOATVAL)NREG(2), (FLOATVAL)CONST(3)->u.number);
-
-return (opcode_t *)cur_opcode + 4;}
-
-opcode_t *
-Parrot_cos_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = cos((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_cosh_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = cosh((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_exp_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = exp((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_ln_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = log((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_log10_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = log10((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_log2_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- FLOATVAL temp = log((FLOATVAL)2.0);
- NREG(1) = log((FLOATVAL)NREG(2)) / temp;
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sec_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = ((FLOATVAL)1) / cos((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sech_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = ((FLOATVAL)1) / cosh((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sin_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = sin((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sinh_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = sinh((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_tan_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = tan((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_tanh_n_n(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- NREG(1) = tanh((FLOATVAL)NREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
Parrot_callmethodcc_p_s(opcode_t *cur_opcode, PARROT_INTERP) {
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;
@@ -23043,8 +18622,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 *
@@ -23052,7 +18630,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;
@@ -23078,24 +18656,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 *
@@ -23103,7 +18678,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;
@@ -23121,8 +18696,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 *
@@ -23130,7 +18704,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;
@@ -23148,8 +18722,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 *
@@ -23157,7 +18730,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,
@@ -23166,14 +18739,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);
@@ -23193,14 +18765,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);
@@ -23220,14 +18791,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);
@@ -23240,8 +18810,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 *
@@ -23364,350 +18933,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 *
@@ -23777,8 +19306,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;}
@@ -23794,8 +19322,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;}
@@ -23953,10 +19480,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);
}
@@ -23976,10 +19502,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);
}
@@ -23999,10 +19524,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));
}
@@ -24022,10 +19546,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));
}
@@ -24045,10 +19568,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);
}
@@ -24068,10 +19590,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);
}
@@ -24089,10 +19610,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);
}
@@ -24110,10 +19630,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);
}
@@ -24131,10 +19650,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));
}
@@ -24152,10 +19670,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));
}
@@ -24173,10 +19690,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);
}
@@ -24194,10 +19710,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);
}
@@ -24217,10 +19732,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;}
@@ -24238,10 +19752,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;}
@@ -24259,10 +19772,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;}
@@ -24280,10 +19792,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;}
@@ -24301,10 +19812,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;}
@@ -24322,10 +19832,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;}
@@ -24354,31 +19863,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 *
@@ -25503,10 +21008,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));
@@ -25735,8 +21239,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));
@@ -25748,8 +21251,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));
@@ -25761,8 +21263,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]);
@@ -25774,8 +21275,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]);
@@ -25787,8 +21287,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));
@@ -25800,8 +21299,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));
@@ -25813,8 +21311,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));
@@ -26267,8 +21764,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;
}
}
}
@@ -26304,8 +21800,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;
}
}
}
@@ -26341,8 +21836,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;
}
}
}
@@ -26378,8 +21872,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;
}
}
}
@@ -26505,8 +21998,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;
@@ -26519,8 +22011,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;
@@ -26589,8 +22080,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;
@@ -26603,8 +22093,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;
@@ -27006,175 +22495,51 @@
return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_gmtime_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) IREG(2);
- char resultbuffer[26];
- Parrot_gmtime_r(&t, &tm);
- Parrot_asctime_r(&tm, resultbuffer);
- SREG(1) = Parrot_str_new(interp, resultbuffer, 25);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_gmtime_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) cur_opcode[2];
- char resultbuffer[26];
- Parrot_gmtime_r(&t, &tm);
- Parrot_asctime_r(&tm, resultbuffer);
- SREG(1) = Parrot_str_new(interp, resultbuffer, 25);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_localtime_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) IREG(2);
- char resultbuffer[26];
- Parrot_localtime_r(&t, &tm);
- Parrot_asctime_r(&tm, resultbuffer);
- SREG(1) = Parrot_str_new(interp, resultbuffer, 25);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_localtime_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) cur_opcode[2];
- char resultbuffer[26];
- Parrot_localtime_r(&t, &tm);
- Parrot_asctime_r(&tm, resultbuffer);
- SREG(1) = Parrot_str_new(interp, resultbuffer, 25);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_decodetime_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) IREG(2);
- Parrot_gmtime_r(&t, &tm);
- PREG(1) = tm_to_array(interp, &tm);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_decodetime_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) cur_opcode[2];
- Parrot_gmtime_r(&t, &tm);
- PREG(1) = tm_to_array(interp, &tm);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_decodelocaltime_p_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) IREG(2);
- Parrot_localtime_r(&t, &tm);
- PREG(1) = tm_to_array(interp, &tm);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_decodelocaltime_p_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- struct tm tm;
- const time_t t = (time_t) cur_opcode[2];
- Parrot_localtime_r(&t, &tm);
- PREG(1) = tm_to_array(interp, &tm);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sysinfo_s_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = sysinfo_s(interp, IREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sysinfo_s_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- SREG(1) = sysinfo_s(interp, cur_opcode[2]);
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sysinfo_i_i(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = sysinfo_i(interp, IREG(2));
-
-return (opcode_t *)cur_opcode + 3;}
-
-opcode_t *
-Parrot_sysinfo_i_ic(opcode_t *cur_opcode, PARROT_INTERP) {
- const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
- IREG(1) = sysinfo_i(interp, cur_opcode[2]);
-
-return (opcode_t *)cur_opcode + 3;}
-
-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 *
@@ -27187,8 +22552,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));
@@ -27204,8 +22568,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));
@@ -27225,8 +22588,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));
@@ -27246,8 +22608,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));
@@ -27267,8 +22628,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;
@@ -27288,8 +22648,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;
@@ -27473,7 +22832,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;}
@@ -27481,7 +22840,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;}
@@ -27497,7 +22856,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;}
@@ -27514,7 +22873,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;}
@@ -27531,7 +22890,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;}
@@ -27548,7 +22907,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;}
@@ -27557,7 +22916,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;}
@@ -27565,7 +22924,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;}
@@ -27581,7 +22940,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;}
@@ -27598,7 +22957,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;}
@@ -27615,7 +22974,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;}
@@ -27632,7 +22991,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;}
@@ -27641,7 +23000,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;}
@@ -27649,7 +23008,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;}
@@ -27664,7 +23023,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;}
@@ -27680,7 +23039,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;}
@@ -27696,7 +23055,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;}
@@ -27712,7 +23071,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;}
@@ -27891,11 +23250,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;}
@@ -27905,25 +23263,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;
@@ -27933,14 +23289,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;
@@ -27986,9 +23341,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);
@@ -28009,9 +23363,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);
@@ -28032,9 +23385,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);
@@ -28055,9 +23407,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);
@@ -28078,9 +23429,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);
@@ -28101,9 +23451,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);
@@ -28124,9 +23473,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);
@@ -28147,9 +23495,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);
@@ -28170,9 +23517,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);
@@ -28193,9 +23539,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);
@@ -28216,9 +23561,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);
@@ -28239,9 +23583,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);
@@ -28262,9 +23605,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);
@@ -28285,9 +23627,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);
@@ -28308,9 +23649,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);
@@ -28331,9 +23671,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);
@@ -28354,9 +23693,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);
@@ -28377,9 +23715,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);
@@ -28400,9 +23737,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);
@@ -28423,9 +23759,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);
@@ -28446,9 +23781,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);
@@ -28469,9 +23803,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);
@@ -28492,9 +23825,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);
@@ -28515,9 +23847,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);
@@ -28540,9 +23871,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);
@@ -28566,9 +23896,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);
@@ -28592,9 +23921,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);
@@ -28618,9 +23946,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);
@@ -28644,9 +23971,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);
@@ -28670,9 +23996,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);
@@ -28696,9 +24021,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);
@@ -28722,9 +24046,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);
@@ -28747,9 +24070,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);
@@ -28773,9 +24095,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);
@@ -28799,9 +24120,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);
@@ -28825,9 +24145,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);
@@ -28851,9 +24170,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);
@@ -28877,9 +24195,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);
@@ -28903,9 +24220,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);
@@ -28929,9 +24245,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);
@@ -28955,9 +24270,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);
@@ -28981,9 +24295,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);
@@ -29007,9 +24320,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);
@@ -29033,9 +24345,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);
@@ -29059,9 +24370,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);
@@ -29085,9 +24395,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);
@@ -29111,9 +24420,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);
@@ -29137,9 +24445,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);
@@ -29166,10 +24473,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));
}
@@ -29192,10 +24498,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));
}
@@ -29218,10 +24523,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]);
}
@@ -29244,10 +24548,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]);
}
@@ -29279,10 +24582,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;}
@@ -29312,10 +24614,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;}
@@ -29345,10 +24646,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;}
@@ -29378,10 +24678,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;}
@@ -29413,10 +24712,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;}
@@ -29448,10 +24746,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;}
@@ -29483,10 +24780,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;}
@@ -29518,10 +24814,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;}
@@ -29536,7 +24831,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
@@ -29553,7 +24848,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,10 +24856,10 @@
return (opcode_t *)cur_opcode + 3;}
opcode_t *
-Parrot_unroll_p(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_finalize_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,10 +24895,10 @@
return (opcode_t *)cur_opcode + 2;}
opcode_t *
-Parrot_unroll_pc(opcode_t *cur_opcode, PARROT_INTERP) {
+Parrot_finalize_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 */
@@ -29651,7 +24946,7 @@
2, /* major_version */
4, /* minor_version */
0, /* patch_version */
- 1268, /* op_count */
+ 1080, /* op_count */
core_op_info_table, /* op_info_table */
core_op_func_table, /* op_func_table */
get_op /* op_code() */
Deleted: branches/gsoc_instrument/src/ops/debug.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/debug.ops Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,146 +0,0 @@
-/*
- * $Id$
- * Copyright (C) 2002-2008, Parrot Foundation.
- */
-
-/*
-** debug.ops
-*/
-
-=head1 NAME
-
-debug.ops - Debugging Opcodes
-
-=cut
-
-=head1 DESCRIPTION
-
-Parrot debugger
-
-=cut
-
-=head1 HISTORY
-
-Initial version by Daniel Grunblatt on 2002.5.19
-
-=cut
-
-###############################################################################
-
-=head2 Parrot debug operations
-
-=over 4
-
-=cut
-
-########################################
-
-=item B<debug_init>()
-
-Init the Parrot debugger, must be called before any other debug op.
-
-=cut
-
-op debug_init() :base_debug {
- Parrot_debugger_init(interp);
-}
-
-########################################
-
-=item B<debug_load>(inconst STR)
-
-Load a Parrot source file for the current program.
-
-=cut
-
-op debug_load(inconst STR) :base_debug {
- Parrot_debugger_load(interp, $1);
-}
-
-########################################
-
-=item B<debug_break>()
-
-Break execution and drop into the debugger.
-If we are already into the debugger and is the first time we are
-called set a breakpoint.
-
-When you re run/continue the program begin debugged it will pay
-no attention to the debug ops.
-
-=cut
-
-op debug_break() :base_debug {
- Parrot_debugger_break(interp, cur_opcode);
-}
-
-########################################
-
-=item B<debug_print>()
-
-Print all the Parrot registers at once.
-
-=cut
-
-op debug_print() :base_debug {
- if (!interp->pdb) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_INVALID_OPERATION,
- "Initialize debugger with debug_init before using debug_print");
- goto ADDRESS(handler);
- }
-
- if (!(interp->pdb->state & PDB_BREAK)) {
- PDB_print(interp, "I");
- PDB_print(interp, "N");
- PDB_print(interp, "S");
- PDB_print(interp, "P");
- }
-}
-
-=item B<backtrace>()
-
-Print a backtrace.
-
-=cut
-
-op backtrace() :base_debug {
- PDB_backtrace(interp);
-}
-
-#######################################
-
-=item B<getline>(out INT)
-
-Get the current line number.
-
-=cut
-
-inline op getline(out INT) {
- Parrot_Context_info info;
- Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
- $1 = info.line;
-}
-
-=item B<getfile>(out STR)
-
-Get the name of the current file.
-
-=cut
-
-inline op getfile(out STR) {
- Parrot_Context_info info;
- Parrot_Context_get_info(interp, CURRENT_CONTEXT(interp), &info);
- $1 = info.file;
-}
-
-=back
-
-=cut
-
-/*
- * Local variables:
- * c-file-style: "parrot"
- * End:
- * vim: expandtab shiftwidth=4:
- */
Modified: branches/gsoc_instrument/src/ops/experimental.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/experimental.ops Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/ops/experimental.ops Sat May 29 11:56:49 2010 (r47109)
@@ -367,15 +367,16 @@
#endif
}
-=item B<unroll>(in PMC)
+=item B<finalize>(in PMC)
-Exception handling done, unroll possible inner runloops left. $1 is the
-Exception handled or the ExceptionHandler that is handling it.
+Finalize exception handling, freeing any information needed to resume
+the handled exception, like inner runloops.
+$1 is the Exception handled or the ExceptionHandler that is handling it.
EXPERIMENTAL. Handle with care.
=cut
-op unroll(in PMC) {
+op finalize(in PMC) {
/* Go to the next op after loop unrolling */
opcode_t * const dest = expr NEXT();
PMC *eh = PMCNULL;
Modified: branches/gsoc_instrument/src/ops/io.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/io.ops Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/ops/io.ops Sat May 29 11:56:49 2010 (r47109)
@@ -25,143 +25,10 @@
=head2 Parrot IO API Operations
-
=over 4
=cut
-
-########################################
-
-=item B<close>(invar PMC)
-
-Close IO object $1
-
-=cut
-
-inline op close(invar PMC) :base_io {
- Parrot_io_close(interp, $1);
-}
-
-########################################
-
-=item B<fdopen>(out PMC, in INT, in STR)
-
-Create ParrotIO object in $1 as a copy of file descriptor $2.
-
-=cut
-
-inline op fdopen(out PMC, in INT, in STR) :filesys_open {
- $1 = Parrot_io_fdopen(interp, PMCNULL, (PIOHANDLE)$2, $3);
- if (!$1)
- $1 = Parrot_pmc_new(interp, enum_class_Undef);
-}
-
-=item B<getstdin>(out PMC)
-
-Create a new ParrotIO object for the stdin file descriptor and
-store it in $1
-
-=item B<getstdout>(out PMC)
-
-Create a new ParrotIO object for the stdout file descriptor and
-store it in $1
-
-=item B<getstderr>(out PMC)
-
-Create a new ParrotIO object for the stderr file descriptor and
-store it in $1
-
-=cut
-
-inline op getstdin(out PMC) :base_io {
- $1 = _PIO_STDIN(interp);
-}
-
-inline op getstdout(out PMC) :base_io {
- $1 = _PIO_STDOUT(interp);
-}
-
-inline op getstderr(out PMC) :base_io {
- $1 = _PIO_STDERR(interp);
-}
-
-#########################################
-
-=item B<setstdin>(invar PMC)
-
-Sets the standard input for a bare C<read> op to go to the supplied PMC.
-Call C<getstdin> first if you care about retaining the previous PMC.
-
-=item B<setstdout>(invar PMC)
-
-Sets the standard output for a bare C<print> op to go to the supplied PMC.
-Call C<getstdout> first if you care about retaining the previous PMC.
-
-=item B<setstderr>(invar PMC)
-
-Sets the standard error for a bare C<printerr> op to go to the supplied PMC.
-Call C<getstderr> first if you care about retaining the previous PMC.
-
-=cut
-
-inline op setstdin(invar PMC) :base_io {
- _PIO_STDIN(interp) = $1;
-}
-
-inline op setstdout(invar PMC) :base_io {
- _PIO_STDOUT(interp) = $1;
-}
-
-inline op setstderr(invar PMC) :base_io {
- _PIO_STDERR(interp) = $1;
-}
-
-#########################################
-
-=item B<open>(out PMC, in STR, in STR)
-
-Open URL (file, address, database, in core image) named $2 with
-a mode string in $3 and create an IO object in $1.
-
-The mode consists of a string of characters specified in any order:
-
- r : read
- w : write
- a : append (Note: you must specify "wa", not just "a")
- p : pipe
-
-=item B<open>(out PMC, in STR)
-
-Open URL (file, address, database, in core image) named $2 with
-read mode and create an IO object in $1.
-
-=cut
-
-inline op open(out PMC, in STR, in STR) :filesys_open {
- if (STRING_IS_NULL($2) || STRING_IS_NULL($3)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- goto ADDRESS(handler);
- }
- else {
- $1 = Parrot_io_open(interp, PMCNULL, $2, $3);
- PARROT_ASSERT(! PMC_IS_NULL($1));
- }
-}
-
-inline op open(out PMC, in STR) :filesys_open {
- if (STRING_IS_NULL($2)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_UNEXPECTED_NULL, "Invalid open");
- goto ADDRESS(handler);
- }
- else {
- $1 = Parrot_io_open(interp, PMCNULL, $2, NULL);
- PARROT_ASSERT(! PMC_IS_NULL($1));
- }
-}
-
########################################
=item B<print>(in INT)
@@ -266,41 +133,6 @@
##########################################
-=item B<printerr>(in INT)
-
-=item B<printerr>(in NUM)
-
-=item B<printerr>(in STR)
-
-=item B<printerr>(invar PMC)
-
-Print $1 to standard error.
-
-=cut
-
-op printerr(in INT) :base_io {
- Parrot_io_eprintf(interp, INTVAL_FMT, $1);
-}
-
-op printerr(in NUM) :base_io {
- Parrot_io_eprintf(interp, FLOATVAL_FMT, $1);
-}
-
-op printerr(in STR) :base_io {
- STRING * const s = $1;
- if (s && Parrot_str_byte_length(interp, s))
- Parrot_io_putps(interp, _PIO_STDERR(interp), s);
-}
-
-op printerr(invar PMC) :base_io {
- PMC * const p = $1;
- STRING * const s = (VTABLE_get_string(interp, p));
- if (s)
- Parrot_io_putps(interp, _PIO_STDERR(interp), s);
-}
-
-##########################################
-
=item B<print>(invar PMC, in INT)
=item B<print>(invar PMC, in NUM)
@@ -340,183 +172,6 @@
}
}
-##########################################
-
-=item B<read>(out STR, in INT)
-
-Read up to N bytes from standard input stream
-
-=item B<read>(out STR, invar PMC, in INT)
-
-Read up to N bytes from IO PMC stream.
-
-=cut
-
-op read(out STR, in INT) :base_io {
- $1 = Parrot_io_reads(interp, _PIO_STDIN(interp), (size_t)$2);
-}
-
-op read(out STR, invar PMC, in INT) :base_io {
- $1 = Parrot_io_reads(interp, $2, (size_t)$3);
-}
-
-=item B<readline>(out STR, invar PMC)
-
-Read a line up to EOL from filehandle $2.
-This switches the filehandle to linebuffer-mode.
-
-=cut
-
-inline op readline(out STR, invar PMC) :base_io {
- $1 = Parrot_io_readline(interp, $2);
-}
-
-##########################################
-
-=item B<peek>(out STR)
-
-Returns the next byte from standard input, but does not
-remove it from the stream.
-
-=item B<peek>(out STR, invar PMC)
-
-Reads the next byte from an IO PMC, but does not
-remove it from the stream.
-
-=cut
-
-op peek(out STR) :base_io {
- STRING ** const s = &$1;
-
- *s = NULL;
- if (Parrot_io_peek(interp, _PIO_STDIN(interp), s) < 0) {
- $1 = STRINGNULL;
- }
-}
-
-op peek(out STR, invar PMC) :base_io {
- STRING ** const s = &$1;
-
- *s = NULL;
- if (Parrot_io_peek(interp, $2, s) < 0) {
- $1 = STRINGNULL;
- }
-}
-
-##########################################
-
-=item B<stat>(out INT, in STR, in INT)
-
-=item B<stat>(out INT, in INT, in INT)
-
-Stat the file. Return stat element $3 for file $2 into $1. The queryable
-items currently are:
-
- EXISTS 0
- FILESIZE 1
- ISDIR 2
- ISDEV 3
- CREATETIME 4 (Time file was created)
- ACCESSTIME 5 (Time file was last accessed)
- MODIFYTIME 6 (Time file data was changed)
- CHANGETIME 7 (Time file metadata was changed)
- BACKUPTIME 8 (Time of last backup)
- UID 9
- GID 10
-
-
-=cut
-
-op stat(out INT, in STR, in INT) {
- $1 = Parrot_stat_info_intval(interp, $2, $3);
-}
-
-op stat(out INT, in INT, in INT) {
- $1 = Parrot_fstat_info_intval(interp, $2, $3);
-}
-
-
-##########################################
-
-=item B<seek>(invar PMC, in INT, in INT)
-
-seek:
-Set file position to offset $2 on IO stream $1. 'whence' is
-indicated by the value in $3. The valid values for 'whence' are:
-
- Value Meaning
- 0 Seek from the beginning of the file
- 1 Seek from the current position
- 2 Seek from the end of the file
-
-[ Note: the above values for 'whence' is just an educated guess
-at this point ]
-
-=item B<seek>(invar PMC, in INT, in INT, in INT)
-
-64bit seek:
-Set file position to offset ($2 << 32 | $3) on IO stream $1. 'whence' is
-indicated by the value in $4. This allows 64-bit seeks with only 32-bit
-INTVALS.
-
-=cut
-
-op seek(invar PMC, in INT, in INT) :base_io {
- if ($1) {
- if (Parrot_io_seek(interp, $1, Parrot_io_make_offset($2), $3) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_PIO_ERROR,
- "seek failed (32bit)");
- goto ADDRESS(handler);
- }
- }
-}
-
-op seek(invar PMC, in INT, in INT, in INT) :base_io {
- if ($1) {
- if (Parrot_io_seek(interp, $1, Parrot_io_make_offset32($2, $3), $4) < 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_PIO_ERROR,
- "seek failed (64bit)");
- goto ADDRESS(handler);
- }
- }
-}
-
-=item B<tell>(out INT, invar PMC)
-
-tell:
-Get the current file position of stream $2 and store it in $1.
-On systems where INTVAL is 32bit the result will be truncated if the
-position is beyond 2 GiB
-
-=item B<tell>(out INT, out INT, invar PMC)
-
-64bit tell:
-Get the current file positon of stream $3 in two parts of 32-bit each
-($1 = pos >> 32, $2 = pos & 0xffffffff).
-
-=cut
-
-op tell(out INT, invar PMC) :base_io {
- if ($2)
- $1 = (INTVAL)Parrot_io_tell(interp, $2);
-}
-
-op tell(out INT, out INT, invar PMC) :base_io {
- if ($3) {
- PIOOFF_T pos;
- pos = Parrot_io_tell(interp, $3);
- $1 = (INTVAL)(pos >> 31);
- $2 = (INTVAL)(pos & 0xffffffff);
- }
-}
-
-=back
-
-=cut
-
-
###############################################################################
/*
Modified: branches/gsoc_instrument/src/ops/math.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/math.ops Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/ops/math.ops Sat May 29 11:56:49 2010 (r47109)
@@ -11,8 +11,8 @@
=head1 DESCRIPTION
-Operations that perform some sort of mathematics, including both basic
-math and transcendental functions.
+Operations that perform basic mathematics. See F<src/dynoplibs/> for more
+advanced operations.
=head2 Arithmetic operations
@@ -137,152 +137,6 @@
########################################
-=item B<cmod>(out INT, in INT, in INT)
-
-=item B<cmod>(invar PMC, invar PMC, in INT)
-
-=item B<cmod>(invar PMC, invar PMC, invar PMC)
-
-NOTE: This "uncorrected mod" algorithm uses the C language's built-in
-mod operator (x % y), which is
-
- ... the remainder when x is divided by y, and thus is zero
- when y divides x exactly.
- ...
- The direction of truncation for / and the sign of the result
- for % are machine-dependent for negative operands, as is the
- action taken on overflow or underflow.
- -- [1], page 41
-
-Also:
-
- ... if the second operand is 0, the result is undefined.
- Otherwise, it is always true that (a/b)*b + a%b is equal to z. If
- both operands are non-negative, then the remainder is non-
- negative and smaller than the divisor; if not, it is guaranteed
- only that the absolute value of the remainder is smaller than
- the absolute value of the divisor.
- -- [1], page 205
-
-This op is provided for those who need it (such as speed-sensitive
-applications with heavy use of mod, but using it only with positive
-arguments), but a more mathematically useful mod based on ** floor(x/y)
-and defined with y == 0 is provided by the mod op.
-
- [1] Brian W. Kernighan and Dennis M. Ritchie, *The C Programming
- Language*, Second Edition. Prentice Hall, 1988.
-
-If the denominator is zero, a 'Divide by zero' exception is thrown.
-
-=cut
-
-inline op cmod(out INT, in INT, in INT) :base_core {
- INTVAL den = $3;
- if ($3 == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- goto ADDRESS(handler);
- }
- $1 = $2 % den;
-}
-
-inline op cmod(invar PMC, invar PMC, in INT) :base_core {
- INTVAL result;
-
- if ($3 == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- goto ADDRESS(handler);
- }
-
- result = VTABLE_get_integer(interp, $2) % $3;
-
- $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
- VTABLE_set_integer_native(interp, $1, result);
-}
-
-inline op cmod(invar PMC, invar PMC, invar PMC) :base_core {
- INTVAL result;
- INTVAL value = VTABLE_get_integer(interp, $3);
-
- if (value == 0) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- goto ADDRESS(handler);
- }
-
- result = VTABLE_get_integer(interp, $2) % value;
-
- $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
- VTABLE_set_integer_native(interp, $1, result);
-}
-
-########################################
-
-=item B<cmod>(out NUM, in NUM, in NUM)
-
-=item B<cmod>(invar PMC, invar PMC, in NUM)
-
-NOTE: This "uncorrected mod" algorithm uses the built-in C math library's
-fmod() function, which computes
-
- ... the remainder of dividing x by y. The return value is
- x - n * y, where n is the quotient of x / y, rounded towards
- zero to an integer.
- -- fmod() manpage on RedHat Linux 7.0
-
-In addition, fmod() returns
-
- the remainder, unless y is zero, when the function fails and
- errno is set.
-
-According to page 251 of [1], the result when y is zero is implementation-
-defined.
-
-This op is provided for those who need it, but a more mathematically
-useful numeric mod based on floor(x/y) instead of truncate(x/y) and
-defined with y == 0 is provided by the mod op.
-
- [1] Brian W. Kernighan and Dennis M. Ritchie, *The C Programming
- Language*, Second Edition. Prentice Hall, 1988.
-
-If the denominator is zero, a 'Divide by zero' exception is thrown.
-
-=cut
-
-inline op cmod(out NUM, in NUM, in NUM) :base_core {
- FLOATVAL den = $3;
- if (FLOAT_IS_ZERO($3)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- goto ADDRESS(handler);
- }
- $1 = fmod($2, den);
-}
-
-inline op cmod(invar PMC, invar PMC, in NUM) :base_core {
- FLOATVAL result;
- FLOATVAL value = $3;
-
- if (FLOAT_IS_ZERO(value)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, expr NEXT(),
- EXCEPTION_DIV_BY_ZERO,
- "Divide by zero");
- goto ADDRESS(handler);
- }
-
- result = fmod(VTABLE_get_integer(interp, $2), value);
-
- $1 = Parrot_pmc_new(interp, VTABLE_type(interp, $2));
- VTABLE_set_integer_native(interp, $1, (INTVAL) result);
-}
-
-########################################
-
=item B<dec>(inout INT)
=item B<dec>(inout NUM)
@@ -787,82 +641,6 @@
########################################
-=item B<pow>(out NUM, in NUM, in NUM)
-
-=item B<pow>(out NUM, in NUM, in INT)
-
-=item B<pow>(invar PMC, invar PMC, invar PMC)
-
-=item B<pow>(invar PMC, invar PMC, in INT)
-
-=item B<pow>(invar PMC, invar PMC, in NUM)
-
-Set $1 to $2 raised to the power $3.
-
-=cut
-
-inline op pow(out NUM, in NUM, in NUM) :base_core {
- $1 = pow((FLOATVAL)$2, (FLOATVAL)$3);
-}
-
-inline op pow(invar PMC, invar PMC, invar PMC) :base_core {
- const FLOATVAL a = VTABLE_get_number(interp, $2);
- const FLOATVAL b = VTABLE_get_number(interp, $3);
- const FLOATVAL c = pow(a, b);
- if (PMC_IS_NULL($1))
- $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- $1 = Parrot_pmc_new(interp, $1->vtable->base_type);
- VTABLE_set_number_native(interp, $1, c);
-}
-
-inline op pow(invar PMC, invar PMC, in INT) :base_core {
- const FLOATVAL a = VTABLE_get_number(interp, $2);
- const FLOATVAL b = (FLOATVAL)$3;
- const FLOATVAL c = pow(a, b);
- if (PMC_IS_NULL($1))
- $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- $1 = Parrot_pmc_new(interp, $1->vtable->base_type);
- VTABLE_set_number_native(interp, $1, c);
-}
-
-inline op pow(invar PMC, invar PMC, in NUM) :base_core {
- const FLOATVAL a = VTABLE_get_number(interp, $2);
- const FLOATVAL c = pow(a, $3);
- if (PMC_IS_NULL($1))
- $1 = Parrot_pmc_new(interp, Parrot_get_ctx_HLL_type(interp, enum_class_Float));
- else
- $1 = Parrot_pmc_new(interp, $1->vtable->base_type);
- VTABLE_set_number_native(interp, $1, c);
-}
-
-inline op pow(out NUM, in NUM, in INT) :base_core {
- FLOATVAL n2 = $2;
- FLOATVAL res = 1.0;
- INTVAL e = $3;
- int s = 1;
- if (e != 0) {
- if (e < 0) {
- s = -1;
- e = -e;
- }
- }
- while (e) {
- if (e & 1) {
- res *= n2;
- }
- n2 *= n2;
- e >>= 1;
- }
- if (s < 0) {
- res = 1.0/res;
- }
- $1 = res;
-}
-
-########################################
-
=item B<sub>(inout INT, in INT)
=item B<sub>(inout NUM, in NUM)
@@ -945,228 +723,6 @@
=cut
-
-
-###############################################################################
-
-=head2 Transcendental mathematical operations
-
-These operations perform various transcendental operations such as logarithmics
-and trigonometrics.
-
-=over 4
-
-=cut
-
-########################################
-
-=item B<acos>(out NUM, in NUM)
-
-Set $1 to the arc cosine (in radians) of $2.
-
-=cut
-
-inline op acos(out NUM, in NUM) :base_math {
- $1 = acos((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<asec>(out NUM, in NUM)
-
-Set $1 to the arc secant (in radians) of $2.
-
-=cut
-
-inline op asec(out NUM, in NUM) :base_math {
- $1 = acos(((FLOATVAL)1) / ((FLOATVAL)$2));
-}
-
-########################################
-
-
-=item B<asin>(out NUM, in NUM)
-
-Set $1 to the arc sine (in radians) of $2.
-
-=cut
-
-inline op asin(out NUM, in NUM) :base_math {
- $1 = asin((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<atan>(out NUM, in NUM)
-
-=item B<atan>(out NUM, in NUM, in NUM)
-
-The two-argument versions set $1 to the arc tangent (in radians) of $2.
-
-The three-argument versions set $1 to the arc tangent (in radians) of
-$2 / $3, taking account of the signs of the arguments in determining the
-quadrant of the result.
-
-=cut
-
-inline op atan(out NUM, in NUM) :base_math {
- $1 = atan((FLOATVAL)$2);
-}
-
-inline op atan(out NUM, in NUM, in NUM) :base_math {
- $1 = atan2((FLOATVAL)$2, (FLOATVAL)$3);
-}
-
-########################################
-
-=item B<cos>(out NUM, in NUM)
-
-Set $1 to the cosine of $2 (given in radians).
-
-=cut
-
-inline op cos(out NUM, in NUM) :base_math {
- $1 = cos((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<cosh>(out NUM, in NUM)
-
-Set $1 to the hyperbolic cosine of $2 (given in radians).
-
-=cut
-
-inline op cosh(out NUM, in NUM) :base_math {
- $1 = cosh((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<exp>(out NUM, in NUM)
-
-Set $1 to I<e> raised to the power $2. I<e> is the base of the natural
-logarithm.
-
-=cut
-
-inline op exp(out NUM, in NUM) :base_math {
- $1 = exp((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<ln>(out NUM, in NUM)
-
-Set $1 to the natural (base I<e>) logarithm of $2.
-
-=cut
-
-inline op ln(out NUM, in NUM) :base_math {
- $1 = log((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<log10>(out NUM, in NUM)
-
-Set $1 to the base 10 logarithm of $2.
-
-=cut
-
-inline op log10(out NUM, in NUM) :base_math {
- $1 = log10((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<log2>(out NUM, in NUM)
-
-Set $1 to the base 2 logarithm of $2.
-
-=cut
-
-op log2(out NUM, in NUM) :base_math {
- FLOATVAL temp = log((FLOATVAL)2.0);
- $1 = log((FLOATVAL)$2) / temp;
-}
-
-########################################
-
-=item B<sec>(out NUM, in NUM)
-
-Set $1 to the secant of $2 (given in radians).
-
-=cut
-
-inline op sec(out NUM, in NUM) :base_math {
- $1 = ((FLOATVAL)1) / cos((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<sech>(out NUM, in NUM)
-
-Set $1 to the hyperbolic secant of $2 (given in radians).
-
-=cut
-
-inline op sech(out NUM, in NUM) :base_math {
- $1 = ((FLOATVAL)1) / cosh((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<sin>(out NUM, in NUM)
-
-Set $1 to the sine of $2 (given in radians).
-
-=cut
-
-inline op sin(out NUM, in NUM) :base_math {
- $1 = sin((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<sinh>(out NUM, in NUM)
-
-Set $1 to the hyperbolic sine of $2 (given in radians).
-
-=cut
-
-inline op sinh(out NUM, in NUM) :base_math {
- $1 = sinh((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<tan>(out NUM, in NUM)
-
-Set $1 to the tangent of $2 (given in radians).
-
-=cut
-
-inline op tan(out NUM, in NUM) :base_math {
- $1 = tan((FLOATVAL)$2);
-}
-
-########################################
-
-=item B<tanh>(out NUM, in NUM)
-
-Set $1 to the hyperbolic tangent of $2 (given in radians).
-
-=cut
-
-inline op tanh(out NUM, in NUM) :base_math {
- $1 = tanh((FLOATVAL)$2);
-}
-
-=back
-
-=cut
-
###############################################################################
=head1 COPYRIGHT
Deleted: branches/gsoc_instrument/src/ops/ops.num
==============================================================================
--- branches/gsoc_instrument/src/ops/ops.num Sat May 29 11:56:49 2010 (r47108)
+++ /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: branches/gsoc_instrument/src/ops/sys.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/sys.ops Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/ops/sys.ops Sat May 29 11:56:49 2010 (r47109)
@@ -107,172 +107,6 @@
########################################
-=item B<gmtime>(out STR, in INT)
-
-Take the integer, which represents GMT epoch-seconds, and turn it into a
-formatted string.
-
-=item B<localtime>(out STR, in INT)
-
-Take the integer, which represents GMT epoch-seconds, and turn it into a
-formatted string. The time is adjusted to localtime before formatting.
-
-=item B<decodetime>(out PMC, in INT)
-
-Take the integer, which represents GMT epoch-seconds, and return an Array
-PMC which represents the decoded time. The array elements are
-(include "tm.pasm" for the constants):
-
-=over 4
-
-=item 0, .TM_SEC
-
-Seconds (0-60)
-
-=item 1, .TM_MIN
-
-Minutes (0-59)
-
-=item 2, .TM_HOUR
-
-Hours (0-23)
-
-=item 3, .TM_MDAY
-
-Day of month (1-31)
-
-=item 4, .TM_MON
-
-Month of year (1-12) (Note, B<actual> month, not month - 1)
-
-=item 5, .TM_YEAR
-
-Year (note, B<actual> year. The year 2004 comes back as 2004, not 104)
-
-=item 6, .TM_WDAY
-
-Day of week. Sunday is day 0
-
-=item 7, .TM_YDAY
-
-Day of year (0-365)
-
-=item 8, .TM_ISDST
-
-Daylight savings/summer time in effect
-
-=back
-
-Timezone name will be GMT and offset will be 0, since the time is taken and
-decoded as GMT.
-
-=item B<decodelocaltime>(out PMC, in INT)
-
-Take the passed in integer, which represents GMT epoch-seconds, and return
-an array as in decodetime. The time is first shifted to localtime before
-decoding.
-
-=cut
-
-op gmtime(out STR, in INT) {
- struct tm tm;
- const time_t t = (time_t) $2;
- char resultbuffer[26];
- Parrot_gmtime_r(&t, &tm);
- Parrot_asctime_r(&tm, resultbuffer);
- $1 = Parrot_str_new(interp, resultbuffer, 25);
-}
-
-op localtime(out STR, in INT) {
- struct tm tm;
- const time_t t = (time_t) $2;
- char resultbuffer[26];
- Parrot_localtime_r(&t, &tm);
- Parrot_asctime_r(&tm, resultbuffer);
- $1 = Parrot_str_new(interp, resultbuffer, 25);
-}
-
-op decodetime(out PMC, in INT) {
- struct tm tm;
- const time_t t = (time_t) $2;
- Parrot_gmtime_r(&t, &tm);
- $1 = tm_to_array(interp, &tm);
-}
-
-op decodelocaltime(out PMC, in INT) {
- struct tm tm;
- const time_t t = (time_t) $2;
- Parrot_localtime_r(&t, &tm);
- $1 = tm_to_array(interp, &tm);
-}
-
-########################################
-
-=item B<sysinfo>(out STR, in INT)
-
-=item B<sysinfo>(out INT, in INT)
-
-Return system information. The values it returns depends on what you
-ask. They are:
-
-=over 4
-
-=item 1 The size of a platform integer
-
-=item 2 The size of a platform float
-
-=item 3 The size of a platform pointer. (Largest possible data pointer)
-
-=item 4 The OS name
-
-This is something like "OS X", "MacOS", "Windows", or "VMS".
-
-=item 5 The OS version string
-
-This is the current (hopefully) OS Version. For OSes that have plain
-version numbers it will be the version number. For OSes that name
-their versions, it will be the version name.
-
-On HP/UX, this may be something like 11.2, while on Windows it may be
-"95", "98", "2000", "NT", "ME", or "XP".
-
-=item 6 The OS version number string
-
-On OSes that don't name themselves, this will be the same as what's
-returned in the OS version string. On OSes that I<do> name themselves,
-this will be a more specific version number. In all cases it is OS
-dependent.
-
-=item 7 The CPU architecture
-
-The name of the CPU family, such as "VAX", "Alpha", "PPC", or "x86".
-
-=item 8 The CPU model
-
-The model name of the current system's CPU. This is something like
-"EV68", "Athlon", or "Pentium III".
-
-=back
-
-Note that some of these values may be set at Parrot compile time,
-rather than at runtime, if the system has no reliable way to fetch the
-data dynamically, or if there is no way the value can change. Also,
-the value returned may be somewhat misleading--Parrot running under a
-VirtualPC window will report "Windows" as its OS and "x86" as its CPU,
-even if it's really running on an OS X system.
-
-=cut
-
-inline op sysinfo(out STR, in INT) {
- $1 = sysinfo_s(interp, $2);
-}
-
-inline op sysinfo(out INT, in INT) {
- $1 = sysinfo_i(interp, $2);
-}
-
-########################################
-
=item B<sleep>(in INT)
=item B<sleep>(in NUM)
Modified: branches/gsoc_instrument/src/pmc.c
==============================================================================
--- branches/gsoc_instrument/src/pmc.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc.c Sat May 29 11:56:49 2010 (r47109)
@@ -771,7 +771,7 @@
Parrot_pmc_get_type_str(PARROT_INTERP, ARGIN_NULLOK(STRING *name))
{
ASSERT_ARGS(Parrot_pmc_get_type_str)
- if (!name)
+ if (STRING_IS_NULL(name))
return enum_type_undef;
else {
PMC * const classname_hash = interp->class_hash;
@@ -780,7 +780,7 @@
if (!PMC_IS_NULL(item)) {
/* nested namespace with same name */
- if (item->vtable->base_type == enum_class_NameSpace)
+ if (PMC_IS_TYPE(item, NameSpace))
return enum_type_undef;
else
return VTABLE_get_integer(interp, item);
Modified: branches/gsoc_instrument/src/pmc/callcontext.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/callcontext.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/callcontext.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -79,6 +79,13 @@
__attribute__nonnull__(1)
__attribute__nonnull__(2);
+static void ensure_positionals_storage_ap(PARROT_INTERP,
+ ARGIN(PMC *self),
+ INTVAL size,
+ INTVAL allocated_positionals)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
PARROT_CANNOT_RETURN_NULL
static Pcc_cell* get_cell_at(PARROT_INTERP, ARGIN(PMC *self), INTVAL key)
__attribute__nonnull__(1)
@@ -121,6 +128,9 @@
#define ASSERT_ARGS_ensure_positionals_storage __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(self))
+#define ASSERT_ARGS_ensure_positionals_storage_ap __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(self))
#define ASSERT_ARGS_get_cell_at __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(self))
@@ -146,14 +156,24 @@
ensure_positionals_storage(PARROT_INTERP, ARGIN(PMC *self), INTVAL size)
{
ASSERT_ARGS(ensure_positionals_storage)
- INTVAL num_positionals, allocated_positionals;
- Pcc_cell *array, *new_array;
+ INTVAL allocated_positionals;
GETATTR_CallContext_allocated_positionals(interp, self, allocated_positionals);
if (size <= allocated_positionals)
return;
+ ensure_positionals_storage_ap(interp, self, size, allocated_positionals);
+}
+
+static void
+ensure_positionals_storage_ap(PARROT_INTERP,
+ ARGIN(PMC *self), INTVAL size, INTVAL allocated_positionals)
+{
+ ASSERT_ARGS(ensure_positionals_storage_ap)
+ INTVAL num_positionals;
+ Pcc_cell *array, *new_array;
+
if (size < 8)
size = 8;
@@ -934,7 +954,7 @@
GET_ATTR_allocated_positionals(INTERP, SELF, allocated_positionals);
if (num_pos + 1 > allocated_positionals)
- ensure_positionals_storage(INTERP, SELF, num_pos + 1);
+ ensure_positionals_storage_ap(INTERP, SELF, num_pos + 1, allocated_positionals);
GET_ATTR_positionals(INTERP, SELF, cells);
cells[num_pos].u.i = value;
@@ -976,7 +996,7 @@
GET_ATTR_allocated_positionals(INTERP, SELF, allocated_positionals);
if (num_pos + 1 > allocated_positionals)
- ensure_positionals_storage(INTERP, SELF, num_pos + 1);
+ ensure_positionals_storage_ap(INTERP, SELF, num_pos + 1, allocated_positionals);
GET_ATTR_positionals(INTERP, SELF, cells);
cells[num_pos].u.p = value;
Modified: branches/gsoc_instrument/src/pmc/coroutine.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/coroutine.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/coroutine.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -111,7 +111,6 @@
*/
VTABLE PMC *clone() {
- STRING *name;
PMC * const ret = Parrot_pmc_new(INTERP, SELF->vtable->base_type);
PObj_custom_mark_destroy_SETALL(ret);
Modified: branches/gsoc_instrument/src/pmc/exception.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/exception.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/exception.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -52,10 +52,38 @@
#include "parrot/exceptions.h"
#include "pmc/pmc_sub.h"
+typedef enum {
+ attr_id,
+ attr_birthtime,
+ attr_message,
+ attr_payload,
+ attr_resume,
+ attr_severity,
+ attr_type,
+ attr_exit_code,
+ attr_backtrace,
+ attr_handled,
+ attr_handler_iter,
+ attr_handler_ctx,
+ attr_thrower,
+ attr_NONE = -1
+} AttrEnum;
+
/* HEADERIZER HFILE: none */
/* HEADERIZER BEGIN: static */
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+
+static AttrEnum getAttrEnum(PARROT_INTERP, ARGIN(const STRING *name))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+#define ASSERT_ARGS_getAttrEnum __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(name))
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: static */
+
pmclass Exception auto_attrs {
ATTR INTVAL id; /* The task ID in the scheduler. */
@@ -87,16 +115,18 @@
*/
VTABLE void init() {
- /* Set flags for custom GC mark and destroy. */
+ /* Use custom mark */
PObj_custom_mark_SET(SELF);
- SET_ATTR_severity(INTERP, SELF, EXCEPT_error);
- SET_ATTR_handled(INTERP, SELF, 0);
- SET_ATTR_message(INTERP, SELF, NULL);
+ /* Set default values */
+ SET_ATTR_message(INTERP, SELF, STRINGNULL);
SET_ATTR_payload(INTERP, SELF, PMCNULL);
SET_ATTR_resume(INTERP, SELF, PMCNULL);
+ SET_ATTR_severity(INTERP, SELF, EXCEPT_error);
SET_ATTR_backtrace(INTERP, SELF, PMCNULL);
SET_ATTR_handler_iter(INTERP, SELF, PMCNULL);
+ SET_ATTR_handler_ctx(INTERP, SELF, PMCNULL);
+ SET_ATTR_thrower(INTERP, SELF, PMCNULL);
}
/*
@@ -110,34 +140,27 @@
*/
VTABLE void init_pmc(PMC *values) {
- INTVAL severity_val;
- STRING *message_val;
+ INTVAL severity_val = EXCEPT_error;
+ STRING *message_val = NULL;
const INTVAL ishash = VTABLE_isa(INTERP, values, CONST_STRING(INTERP, 'Hash'));
+ STATICSELF.init();
+
if (ishash) {
STRING * const severity = CONST_STRING(INTERP, "severity");
STRING * const message = CONST_STRING(INTERP, "message");
severity_val = VTABLE_get_integer_keyed_str(INTERP, values, severity);
message_val = VTABLE_get_string_keyed_str(INTERP, values, message);
}
- else {
- severity_val = EXCEPT_error;
+ else
message_val = VTABLE_get_string(INTERP, values);
- }
- /* Set flags for custom GC mark. */
- PObj_custom_mark_SET(SELF);
-
- /* Set up the core struct and default values for the exception object. */
+ /* Set up the values for the exception object. */
SET_ATTR_severity(INTERP, SELF, severity_val);
- SET_ATTR_handled(INTERP, SELF, 0);
- SET_ATTR_message(INTERP, SELF, message_val);
- SET_ATTR_payload(INTERP, SELF, PMCNULL);
- SET_ATTR_resume(INTERP, SELF, PMCNULL);
- SET_ATTR_backtrace(INTERP, SELF, PMCNULL);
- SET_ATTR_handler_iter(INTERP, SELF, PMCNULL);
+ if (! STRING_IS_NULL(message_val))
+ SET_ATTR_message(INTERP, SELF, message_val);
}
@@ -250,19 +273,20 @@
STRING * const name = VTABLE_get_string(INTERP, key);
INTVAL result = 0;
- if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type"))) {
+ switch (getAttrEnum(INTERP, name)) {
+ case attr_type:
GET_ATTR_type(INTERP, SELF, result);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity"))) {
+ break;
+ case attr_severity:
GET_ATTR_severity(INTERP, SELF, result);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code"))) {
+ break;
+ case attr_exit_code:
GET_ATTR_exit_code(INTERP, SELF, result);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled"))) {
+ break;
+ case attr_handled:
GET_ATTR_handled(INTERP, SELF, result);
- }
- else {
+ break;
+ default:
/* If unknown attribute name, throw an exception. */
Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
"No such integer attribute '%S'", name);
@@ -283,20 +307,20 @@
VTABLE INTVAL get_integer_keyed_str(STRING *key) {
INTVAL result = 0;
-
- if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "type"))) {
+ switch (getAttrEnum(INTERP, key)) {
+ case attr_type:
GET_ATTR_type(INTERP, SELF, result);
- }
- else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "severity"))) {
+ break;
+ case attr_severity:
GET_ATTR_severity(INTERP, SELF, result);
- }
- else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "exit_code"))) {
+ break;
+ case attr_exit_code:
GET_ATTR_exit_code(INTERP, SELF, result);
- }
- else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "handled"))) {
+ break;
+ case attr_handled:
GET_ATTR_handled(INTERP, SELF, result);
- }
- else {
+ break;
+ default:
/* If unknown attribute name, throw an exception. */
Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
"No such integer attribute '%S'", key);
@@ -400,20 +424,20 @@
VTABLE void set_integer_keyed(PMC *key, INTVAL value) {
STRING * const name = VTABLE_get_string(INTERP, key);
-
- if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type"))) {
+ switch (getAttrEnum(INTERP, name)) {
+ case attr_type:
SET_ATTR_type(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity"))) {
+ break;
+ case attr_severity:
SET_ATTR_severity(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code"))) {
+ break;
+ case attr_exit_code:
SET_ATTR_exit_code(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled"))) {
+ break;
+ case attr_handled:
SET_ATTR_handled(INTERP, SELF, value);
- }
- else {
+ break;
+ default:
/* If unknown attribute name, throw an exception. */
Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
"No such integer attribute '%S'", name);
@@ -431,19 +455,20 @@
*/
VTABLE void set_integer_keyed_str(STRING *key, INTVAL value) {
- if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "type"))) {
+ switch (getAttrEnum(INTERP, key)) {
+ case attr_type:
SET_ATTR_type(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "severity"))) {
+ break;
+ case attr_severity:
SET_ATTR_severity(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "exit_code"))) {
+ break;
+ case attr_exit_code:
SET_ATTR_exit_code(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, key, CONST_STRING(INTERP, "handled"))) {
+ break;
+ case attr_handled:
SET_ATTR_handled(INTERP, SELF, value);
- }
- else {
+ break;
+ default:
/* If unknown attribute name, throw an exception. */
Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
"No such integer attribute '%S'", key);
@@ -542,47 +567,68 @@
VTABLE PMC *get_attr_str(STRING *name) {
PMC *value = PMCNULL;
- if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type"))) {
- INTVAL type;
- GET_ATTR_type(INTERP, SELF, type);
- value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, type);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity"))) {
- INTVAL severity;
- GET_ATTR_severity(INTERP, SELF, severity);
- value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, severity);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code"))) {
- INTVAL exit_code;
- GET_ATTR_exit_code(INTERP, SELF, exit_code);
- value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, exit_code);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled"))) {
- INTVAL handled;
- GET_ATTR_handled(INTERP, SELF, handled);
- value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, handled);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "message"))) {
- STRING *message = SELF.get_string();
- value = Parrot_pmc_new(INTERP, enum_class_String);
- VTABLE_set_string_native(INTERP, value, message);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "payload"))) {
- GET_ATTR_payload(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "resume"))) {
- GET_ATTR_resume(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "backtrace"))) {
- GET_ATTR_backtrace(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handler_iter"))) {
- GET_ATTR_handler_iter(INTERP, SELF, value);
- }
- else {
+ switch (getAttrEnum(INTERP, name)) {
+ case attr_type:
+ {
+ INTVAL type;
+ GET_ATTR_type(INTERP, SELF, type);
+ value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, type);
+ }
+ break;
+ case attr_severity:
+ {
+ INTVAL severity;
+ GET_ATTR_severity(INTERP, SELF, severity);
+ value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, severity);
+ }
+ break;
+ case attr_exit_code:
+ {
+ INTVAL exit_code;
+ GET_ATTR_exit_code(INTERP, SELF, exit_code);
+ value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, exit_code);
+ }
+ case attr_handled:
+ {
+ INTVAL handled;
+ GET_ATTR_handled(INTERP, SELF, handled);
+ value = Parrot_pmc_new_init_int(INTERP, enum_class_Integer, handled);
+ }
+ break;
+ case attr_message:
+ {
+ STRING *message = SELF.get_string();
+ value = Parrot_pmc_new(INTERP, enum_class_String);
+ VTABLE_set_string_native(INTERP, value, message);
+ }
+ break;
+ case attr_birthtime:
+ {
+ FLOATVAL birthtime;
+ GET_ATTR_birthtime(INTERP, SELF, birthtime);
+ value = Parrot_pmc_new(INTERP, enum_class_Float);
+ VTABLE_set_number_native(INTERP, value, birthtime);
+ }
+ break;
+ case attr_payload:
+ GET_ATTR_payload(INTERP, SELF, value);
+ break;
+ case attr_resume:
+ GET_ATTR_resume(INTERP, SELF, value);
+ break;
+ case attr_backtrace:
+ GET_ATTR_backtrace(INTERP, SELF, value);
+ break;
+ case attr_handler_iter:
+ GET_ATTR_handler_iter(INTERP, SELF, value);
+ break;
+ case attr_NONE:
/* If unknown attribute name, throw an exception. */
Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
"No such attribute '%S'", name);
+ default:
+ Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,
+ "Can't get attribute '%S'", name);
}
return value;
@@ -599,39 +645,50 @@
*/
VTABLE void set_attr_str(STRING *name, PMC *value) {
- if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "type"))) {
+ switch (getAttrEnum(INTERP, name)) {
+ case attr_type:
+ {
const INTVAL type = VTABLE_get_integer(INTERP, value);
SET_ATTR_type(INTERP, SELF, type);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "severity"))) {
+ }
+ break;
+ case attr_severity:
+ {
const INTVAL severity = VTABLE_get_integer(INTERP, value);
SET_ATTR_severity(INTERP, SELF, severity);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "exit_code"))) {
+ }
+ break;
+ case attr_exit_code:
+ {
const INTVAL exit_code = VTABLE_get_integer(INTERP, value);
SET_ATTR_exit_code(INTERP, SELF, exit_code);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handled"))) {
+ }
+ break;
+ case attr_handled:
+ {
const INTVAL handled = VTABLE_get_integer(INTERP, value);
SET_ATTR_handled(INTERP, SELF, handled);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "message"))) {
+ }
+ break;
+ case attr_message:
+ {
STRING * const message = VTABLE_get_string(INTERP, value);
SELF.set_string_native(message);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "payload"))) {
+ }
+ break;
+ case attr_payload:
SET_ATTR_payload(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "resume"))) {
+ break;
+ case attr_resume:
SET_ATTR_resume(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "backtrace"))) {
+ break;
+ case attr_backtrace:
SET_ATTR_backtrace(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "handler_iter"))) {
+ break;
+ case attr_handler_iter:
SET_ATTR_handler_iter(INTERP, SELF, value);
- }
- else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "thrower"))) {
+ break;
+ case attr_thrower:
/* Ensure it's a ret cont, and extract the from_ctx.
* XXX TT #596 - when we have Context PMCs, just take and set that. */
if (!PMC_IS_NULL(value) && VTABLE_isa(INTERP, value, CONST_STRING(INTERP, "Continuation"))) {
@@ -639,13 +696,15 @@
if (!PMC_IS_NULL(ctx))
SET_ATTR_thrower(INTERP, SELF, ctx);
}
- }
- else {
+ break;
+ case attr_NONE:
/* If unknown attribute name, throw an exception. */
Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_ATTRIB_NOT_FOUND,
"No such attribute '%S'", name);
+ default:
+ Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_INVALID_OPERATION,
+ "Can't set attribute '%S'", name);
}
-
}
/*
@@ -763,6 +822,63 @@
}
/*
+
+=head2 Auxliary functions
+
+=over 4
+
+=item C<static AttrEnum getAttrEnum(PARROT_INTERP, const STRING *name)>
+
+Gets an enumerated value corresponding to the attribute with that name.
+
+=cut
+
+*/
+
+static AttrEnum
+getAttrEnum(PARROT_INTERP, ARGIN(const STRING *name))
+{
+ ASSERT_ARGS(getAttrEnum)
+
+ AttrEnum r;
+ if (Parrot_str_equal(interp, name, CONST_STRING(interp, "birthtime")))
+ r = attr_birthtime;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "message")))
+ r = attr_message;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "payload")))
+ r = attr_payload;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "resume")))
+ r = attr_resume;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "severity")))
+ r = attr_severity;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "type")))
+ r = attr_type;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "exit_code")))
+ r = attr_exit_code;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "backtrace")))
+ r = attr_backtrace;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "handled")))
+ r = attr_handled;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "handler_iter")))
+ r = attr_handler_iter;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "handler_ctx")))
+ r = attr_handler_ctx;
+ else if (Parrot_str_equal(interp, name, CONST_STRING(interp, "thrower")))
+ r = attr_thrower;
+ else
+ r = attr_NONE;
+ return r;
+}
+
+/*
+
+=back
+
+=cut
+
+*/
+
+/*
* Local variables:
* c-file-style: "parrot"
* End:
Modified: branches/gsoc_instrument/src/pmc/filehandle.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/filehandle.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/filehandle.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -698,6 +698,69 @@
RETURN(INTVAL -1);
}
+/*
+
+=item C<METHOD tell()>
+
+Get the file position of the stream. 2 C<INTVAL>s are returned. The first is
+the position. The second is the position shifted down by 32 bits to handle
+overflows on 32-bit systems.
+
+=cut
+
+*/
+
+ METHOD tell() {
+ PIOOFF_T pos;
+ GET_ATTR_file_pos(INTERP, SELF, pos);
+ RETURN(INTVAL pos, INTVAL pos >> 32);
+ }
+
+/*
+
+=item C<METHOD seek(INTVAL whence, INTVAL offs, INTVAL offs_overflow)>
+
+Set the file position to an offset specified by C<offs> (and optionally
+C<offs_overflow>). C<whence> determines from where in the file the offset is
+taken.
+
+ Whence Value Meaning
+ 0 Seek from the beginning of the file
+ 1 Seek from the current position
+ 2 Seek from the end of the file
+
+C<offs_overflow> is optional and is used to handle offsets higher than 2Gb on
+32bit systems.
+
+=cut
+
+*/
+
+ METHOD seek(INTVAL whence, INTVAL offs, INTVAL offs_overflow :optional) {
+ const PIOOFF_T pio_offs = offs_overflow ?
+ Parrot_io_make_offset32(offs_overflow, offs) :
+ offs;
+ if (Parrot_io_seek(INTERP, SELF, pio_offs, whence))
+ Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_PIO_ERROR, "seek failed");
+ }
+
+/*
+
+=item C<METHOD peek()>
+
+Returns the next byte from the stream, but does not remove it.
+
+=cut
+
+*/
+
+ METHOD peek() {
+ STRING *s = NULL;
+ if (Parrot_io_peek(INTERP, SELF, &s) < 0)
+ RETURN(STRING* STRINGNULL);
+ else
+ RETURN(STRING* s);
+ }
/*
Modified: branches/gsoc_instrument/src/pmc/resizablepmcarray.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/resizablepmcarray.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/resizablepmcarray.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -11,7 +11,7 @@
This class, ResizablePMCArray, implements an resizable array which stores PMCs.
It puts things into Integer, Float, or String PMCs as appropriate.
-=head2 Functions
+=head2 Vtable Functions
=over 4
@@ -25,6 +25,21 @@
/* HEADERIZER HFILE: none */
/* HEADERIZER BEGIN: static */
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+
+PARROT_DOES_NOT_RETURN
+static void throw_pop_empty(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+PARROT_DOES_NOT_RETURN
+static void throw_shift_empty(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+#define ASSERT_ARGS_throw_pop_empty __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
+#define ASSERT_ARGS_throw_shift_empty __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
/* HEADERIZER END: static */
pmclass ResizablePMCArray extends FixedPMCArray auto_attrs provides array {
@@ -134,8 +149,7 @@
FLOATVAL value;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't shift from an empty array!");
+ throw_shift_empty(INTERP);
item = PMC_array(SELF);
data = item[0];
@@ -156,8 +170,7 @@
INTVAL value;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't shift from an empty array!");
+ throw_shift_empty(INTERP);
item = PMC_array(SELF);
data = item[0];
@@ -176,8 +189,7 @@
PMC **item;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't shift from an empty array!");
+ throw_shift_empty(INTERP);
item = PMC_array(SELF);
data = item[0];
@@ -196,8 +208,7 @@
STRING *value;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't shift from an empty array!");
+ throw_shift_empty(INTERP);
item = PMC_array(SELF);
data = item[0];
@@ -435,8 +446,7 @@
PMC *data;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't pop from an empty array!");
+ throw_pop_empty(INTERP);
data = PMC_array(SELF)[--size];
PMC_size(SELF) = size;
@@ -450,8 +460,7 @@
PMC *data;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't pop from an empty array!");
+ throw_pop_empty(INTERP);
data = PMC_array(SELF)[--size];
PMC_size(SELF) = size;
@@ -465,8 +474,7 @@
PMC *data;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't pop from an empty array!");
+ throw_pop_empty(INTERP);
data = PMC_array(SELF)[--size];
PMC_size(SELF) = size;
@@ -480,8 +488,7 @@
PMC *data;
if (0 == size)
- Parrot_ex_throw_from_c_args(INTERP, NULL, EXCEPTION_OUT_OF_BOUNDS,
- "ResizablePMCArray: Can't pop from an empty array!");
+ throw_pop_empty(INTERP);
data = PMC_array(SELF)[--size];
PMC_size(SELF) = size;
@@ -604,43 +611,6 @@
/*
-=item METHOD append(PMC *other)
-
-Append the other array to this array.
-
-=cut
-
-*/
-
- METHOD append(PMC *other) {
-
- const INTVAL n = VTABLE_elements(INTERP, SELF);
- const INTVAL m = VTABLE_elements(INTERP, other);
-
- if (!m)
- RETURN(void);
-
- /* pre-size it */
- VTABLE_set_integer_native(INTERP, SELF, n + m);
-
- if (other->vtable->base_type == SELF->vtable->base_type
- || other->vtable->base_type == enum_class_FixedPMCArray) {
- PMC ** const other_data = PMC_array(other);
- PMC ** const this_data = PMC_array(SELF);
-
- /* libc is faster at copying data than a manual loop here */
- memmove(this_data + n, other_data, m * sizeof (PMC *));
- }
- else {
- PMC ** const this_data = PMC_array(SELF);
- INTVAL i;
-
- for (i = 0; i < m; ++i)
- this_data[n + i] = VTABLE_get_pmc_keyed_int(INTERP, other, i);
- }
- }
-/*
-
=item C<STRING *get_repr()>
Returns the Parrot string representation C<ResizablePMCArray>.
@@ -725,6 +695,50 @@
/*
+=back
+
+=head2 Methdos
+
+=over 4
+
+=item METHOD append(PMC *other)
+
+Append the other array to this array.
+
+=cut
+
+*/
+
+ METHOD append(PMC *other) {
+
+ const INTVAL n = VTABLE_elements(INTERP, SELF);
+ const INTVAL m = VTABLE_elements(INTERP, other);
+
+ if (!m)
+ RETURN(void);
+
+ /* pre-size it */
+ VTABLE_set_integer_native(INTERP, SELF, n + m);
+
+ if (other->vtable->base_type == SELF->vtable->base_type
+ || other->vtable->base_type == enum_class_FixedPMCArray) {
+ PMC ** const other_data = PMC_array(other);
+ PMC ** const this_data = PMC_array(SELF);
+
+ /* libc is faster at copying data than a manual loop here */
+ memmove(this_data + n, other_data, m * sizeof (PMC *));
+ }
+ else {
+ PMC ** const this_data = PMC_array(SELF);
+ INTVAL i;
+
+ for (i = 0; i < m; ++i)
+ this_data[n + i] = VTABLE_get_pmc_keyed_int(INTERP, other, i);
+ }
+ }
+
+/*
+
=item METHOD PMC* shift()
=item METHOD PMC* pop()
@@ -772,6 +786,42 @@
=back
+=head2 Auxiliar functions
+
+=over 4
+
+=item C<static void throw_shift_empty(PARROT_INTERP)>
+
+=item C<static void throw_pop_empty(PARROT_INTERP)>
+
+Throws with the appropiate message.
+
+=cut
+
+*/
+
+PARROT_DOES_NOT_RETURN
+static void
+throw_shift_empty(PARROT_INTERP)
+{
+ ASSERT_ARGS(throw_shift_empty)
+ Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_OUT_OF_BOUNDS,
+ "ResizablePMCArray: Can't shift from an empty array!");
+}
+
+PARROT_DOES_NOT_RETURN
+static void
+throw_pop_empty(PARROT_INTERP)
+{
+ ASSERT_ARGS(throw_pop_empty)
+ Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_OUT_OF_BOUNDS,
+ "ResizablePMCArray: Can't pop from an empty array!");
+}
+
+/*
+
+=back
+
=head1 See also
F<docs/pdds/pdd17_basic_types.pod>.
Modified: branches/gsoc_instrument/src/pmc/string.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/string.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/string.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -406,7 +406,7 @@
const INTVAL k = VTABLE_get_integer(INTERP, key);
GET_ATTR_str_val(INTERP, SELF, str_val);
- n = Parrot_str_byte_length(INTERP, str_val);
+ n = Parrot_str_length(INTERP, str_val);
return (INTVAL)((k >= 0 && k <= n) || (k < 0 && -k <= n));
}
@@ -470,7 +470,7 @@
VTABLE void set_string_keyed_int(INTVAL pos, STRING * const value) {
STRING *str_val;
- const INTVAL len = Parrot_str_byte_length(INTERP, value);
+ const INTVAL len = Parrot_str_length(INTERP, value);
GET_ATTR_str_val(INTERP, SELF, str_val);
str_val = Parrot_str_replace(INTERP, str_val, pos, len, value);
SET_ATTR_str_val(INTERP, SELF, str_val);
@@ -506,8 +506,8 @@
*/
METHOD replace(STRING *orig, STRING *_new) {
- const INTVAL old_len = Parrot_str_byte_length(INTERP, orig);
- const INTVAL new_len = Parrot_str_byte_length(INTERP, _new);
+ const INTVAL old_len = Parrot_str_length(INTERP, orig);
+ const INTVAL new_len = Parrot_str_length(INTERP, _new);
STRING * s = VTABLE_get_string(INTERP, SELF);
INTVAL i = 0;
@@ -607,7 +607,7 @@
VTABLE INTVAL elements() {
STRING *str_val;
GET_ATTR_str_val(INTERP, SELF, str_val);
- return Parrot_str_byte_length(INTERP, str_val);
+ return Parrot_str_length(INTERP, str_val);
}
VTABLE PMC *get_iter() {
@@ -691,7 +691,7 @@
INTVAL i;
STRING *dest;
- const INTVAL len = Parrot_str_byte_length(INTERP, src);
+ const INTVAL len = Parrot_str_length(INTERP, src);
if (!len)
RETURN(STRING src);
@@ -729,7 +729,7 @@
METHOD is_integer(STRING *src) {
INTVAL i;
unsigned char *p;
- const INTVAL len = Parrot_str_byte_length(INTERP, src);
+ const INTVAL len = Parrot_str_length(INTERP, src);
if (!len)
RETURN(INTVAL 0);
@@ -787,7 +787,7 @@
if (start < 0)
RETURN(INTVAL res);
- len = Parrot_str_byte_length(INTERP, src);
+ len = Parrot_str_length(INTERP, src);
if (!len)
RETURN(INTVAL res);
@@ -795,7 +795,7 @@
if (start >= (INTVAL)len)
RETURN(INTVAL res);
- if (!Parrot_str_byte_length(INTERP, substring))
+ if (!Parrot_str_length(INTERP, substring))
RETURN(INTVAL res);
res = CHARSET_RINDEX(INTERP, src, substring, (UINTVAL)start);
Modified: branches/gsoc_instrument/src/pmc/stringbuilder.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/stringbuilder.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/stringbuilder.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -145,18 +145,20 @@
/* TODO Ask chromatic why in Parrot_str_join he ignored charset */
cs = Parrot_str_rep_compatible(interp, buffer, s, &enc);
if (!cs) {
- cs = Parrot_unicode_charset_ptr;
- enc = (buffer->encoding == Parrot_utf16_encoding_ptr
- || s->encoding == Parrot_utf16_encoding_ptr
- || buffer->encoding == Parrot_ucs2_encoding_ptr
- || s->encoding == Parrot_ucs2_encoding_ptr)
- ? Parrot_utf16_encoding_ptr
- : Parrot_utf8_encoding_ptr;
- buffer = Parrot_unicode_charset_ptr->to_charset(interp, buffer);
- s = Parrot_unicode_charset_ptr->to_charset(interp, s);
+ /* Create new temporary string */
+ STRING * const new_buffer = Parrot_unicode_charset_ptr->to_charset(interp, buffer);
+ mem_gc_free(INTERP, buffer->_bufstart);
+ STRUCT_COPY(buffer, new_buffer);
+ buffer->flags = PObj_is_string_FLAG | PObj_live_FLAG | PObj_external_FLAG;
+
+ buffer->_bufstart = buffer->strstart = mem_gc_allocate_n_typed(INTERP,
+ new_buffer->_buflen, char);
+ mem_sys_memcopy(buffer->_bufstart, new_buffer->_bufstart, new_buffer->_buflen);
SET_ATTR_buffer(INTERP, SELF, buffer);
+
+ s = Parrot_unicode_charset_ptr->to_charset(interp, s);
}
/* Calculate (possibly new) total size */
@@ -164,8 +166,9 @@
/* Reallocate if necessary */
if (total_size > Buffer_buflen(buffer)) {
+ /* Parrot_unicode_charset_ptr can produce NULL buffer */
buffer->_bufstart = buffer->strstart = mem_gc_realloc_n_typed(INTERP,
- buffer->_bufstart, total_size, char);
+ buffer->_bufstart, total_size, char);
buffer->_buflen = total_size;
}
Modified: branches/gsoc_instrument/src/pmc/sub.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/sub.pmc Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/pmc/sub.pmc Sat May 29 11:56:49 2010 (r47109)
@@ -954,6 +954,10 @@
Sets the sub that is the outer of this one.
+=item C<void set_outer_ctx(PMC *outer_ctx)>
+
+Set the outer context to be used on the next invocation of this sub.
+
=item C<INTVAL arity()>
Returns the arity of the Sub (the number of arguments, excluding optional and
@@ -1091,6 +1095,13 @@
}
+ METHOD set_outer_ctx(PMC *outer_ctx) {
+ Parrot_Sub_attributes *sub;
+ PMC_get_sub(INTERP, SELF, sub);
+ sub->outer_ctx = outer_ctx;
+ }
+
+
METHOD get_multisig() {
PMC *multisig;
Parrot_Sub_attributes *sub;
Modified: branches/gsoc_instrument/src/string/api.c
==============================================================================
--- branches/gsoc_instrument/src/string/api.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/string/api.c Sat May 29 11:56:49 2010 (r47109)
@@ -450,12 +450,16 @@
if (!cs) {
/* upgrade strings for concatenation */
cs = Parrot_unicode_charset_ptr;
- enc = (a->encoding == Parrot_utf16_encoding_ptr
- || b->encoding == Parrot_utf16_encoding_ptr
- || a->encoding == Parrot_ucs2_encoding_ptr
- || b->encoding == Parrot_ucs2_encoding_ptr)
- ? Parrot_utf16_encoding_ptr
- : Parrot_utf8_encoding_ptr;
+ if (a->encoding == Parrot_ucs4_encoding_ptr
+ || b->encoding == Parrot_ucs4_encoding_ptr)
+ enc = Parrot_ucs4_encoding_ptr;
+ else if (a->encoding == Parrot_utf16_encoding_ptr
+ || b->encoding == Parrot_utf16_encoding_ptr
+ || a->encoding == Parrot_ucs2_encoding_ptr
+ || b->encoding == Parrot_ucs2_encoding_ptr)
+ enc = Parrot_utf16_encoding_ptr;
+ else
+ enc = Parrot_utf8_encoding_ptr;
a = Parrot_unicode_charset_ptr->to_charset(interp, a);
b = Parrot_unicode_charset_ptr->to_charset(interp, b);
@@ -3242,7 +3246,8 @@
mem_sys_memcopy(pos, next->strstart, next->bufused);
pos += next->bufused;
- PARROT_ASSERT(pos <= res->strstart + Buffer_buflen(res));
+ /* We can consume all buffer and pos will be next-after-end of buffer */
+ PARROT_ASSERT(pos <= res->strstart + Buffer_buflen(res) + 1);
}
res->bufused = pos - res->strstart;
Modified: branches/gsoc_instrument/src/string/charset.c
==============================================================================
--- branches/gsoc_instrument/src/string/charset.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/string/charset.c Sat May 29 11:56:49 2010 (r47109)
@@ -23,6 +23,7 @@
#include "encoding/utf8.h"
#include "encoding/utf16.h"
#include "encoding/ucs2.h"
+#include "encoding/ucs4.h"
#include "charset/ascii.h"
#include "charset/binary.h"
@@ -497,6 +498,7 @@
Parrot_encoding_utf8_init(interp);
Parrot_encoding_ucs2_init(interp);
Parrot_encoding_utf16_init(interp);
+ Parrot_encoding_ucs4_init(interp);
Parrot_charset_ascii_init(interp);
Parrot_charset_iso_8859_1_init(interp);
Modified: branches/gsoc_instrument/src/string/encoding.c
==============================================================================
--- branches/gsoc_instrument/src/string/encoding.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/string/encoding.c Sat May 29 11:56:49 2010 (r47109)
@@ -43,6 +43,7 @@
ENCODING *Parrot_utf8_encoding_ptr = NULL;
ENCODING *Parrot_ucs2_encoding_ptr = NULL;
ENCODING *Parrot_utf16_encoding_ptr = NULL;
+ENCODING *Parrot_ucs4_encoding_ptr = NULL;
typedef struct One_encoding {
NOTNULL(ENCODING *encoding);
@@ -362,7 +363,7 @@
ENCODING *encoding)>
Registers a character encoding C<encoding> with name C<encodingname>.
-Only allows one of 4 possibilities: fixed_8, utf8, utf16, and ucs2.
+Only allows one of 5 possibilities: fixed_8, utf8, utf16, ucs2 and ucs4.
=cut
@@ -399,6 +400,10 @@
Parrot_ucs2_encoding_ptr = encoding;
return register_encoding(interp, encodingname, encoding);
}
+ if (STREQ("ucs4", encodingname)) {
+ Parrot_ucs4_encoding_ptr = encoding;
+ return register_encoding(interp, encodingname, encoding);
+ }
return 0;
}
Copied: branches/gsoc_instrument/src/string/encoding/ucs4.c (from r47107, trunk/src/string/encoding/ucs4.c)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/string/encoding/ucs4.c Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/string/encoding/ucs4.c)
@@ -0,0 +1,618 @@
+/*
+Copyright (C) 2010, Parrot Foundation.
+$Id$
+
+=head1 NAME
+
+src/string/encoding/ucs4.c - UCS-4 encoding
+
+=head1 DESCRIPTION
+
+UCS-4 encoding with the help of the ICU library.
+
+=head2 Functions
+
+=over 4
+
+=cut
+
+*/
+
+#include "parrot/parrot.h"
+#include "../unicode.h"
+
+#if !PARROT_HAS_ICU
+PARROT_DOES_NOT_RETURN
+static void no_ICU_lib(PARROT_INTERP) /* HEADERIZER SKIP */
+{
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_LIBRARY_ERROR,
+ "no ICU lib loaded");
+}
+#endif
+
+/* HEADERIZER HFILE: src/string/encoding/ucs4.h */
+
+/* HEADERIZER BEGIN: static */
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+
+PARROT_WARN_UNUSED_RESULT
+static UINTVAL bytes(SHIM_INTERP, ARGIN(const STRING *src))
+ __attribute__nonnull__(2);
+
+PARROT_WARN_UNUSED_RESULT
+static UINTVAL codepoints(PARROT_INTERP, ARGIN(const STRING *src))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_WARN_UNUSED_RESULT
+static UINTVAL find_cclass(PARROT_INTERP,
+ ARGIN(const STRING *s),
+ ARGIN(const INTVAL *typetable),
+ INTVAL flags,
+ UINTVAL pos,
+ UINTVAL end)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3);
+
+static UINTVAL get_byte(PARROT_INTERP,
+ SHIM(const STRING *src),
+ SHIM(UINTVAL offset))
+ __attribute__nonnull__(1);
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static STRING * get_bytes(PARROT_INTERP,
+ SHIM(const STRING *src),
+ SHIM(UINTVAL offset),
+ SHIM(UINTVAL count))
+ __attribute__nonnull__(1);
+
+static UINTVAL get_codepoint(PARROT_INTERP,
+ ARGIN(const STRING *src),
+ UINTVAL offset)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static STRING * get_codepoints(PARROT_INTERP,
+ ARGIN(const STRING *src),
+ UINTVAL offset,
+ UINTVAL count)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+static void iter_init(PARROT_INTERP,
+ ARGIN(const STRING *src),
+ ARGOUT(String_iter *iter))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3)
+ FUNC_MODIFIES(*iter);
+
+static void set_byte(PARROT_INTERP,
+ SHIM(const STRING *src),
+ SHIM(UINTVAL offset),
+ SHIM(UINTVAL byte))
+ __attribute__nonnull__(1);
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static STRING * to_encoding(PARROT_INTERP, ARGIN(const STRING *src))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+static UINTVAL ucs4_decode_and_advance(PARROT_INTERP,
+ ARGMOD(String_iter *i))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ FUNC_MODIFIES(*i);
+
+static void ucs4_encode_and_advance(PARROT_INTERP,
+ ARGMOD(String_iter *i),
+ UINTVAL c)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ FUNC_MODIFIES(*i);
+
+static size_t ucs4_hash(PARROT_INTERP,
+ ARGIN(const STRING *s),
+ size_t hashval)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2);
+
+static void ucs4_set_position(PARROT_INTERP,
+ ARGMOD(String_iter *i),
+ UINTVAL n)
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ FUNC_MODIFIES(*i);
+
+#define ASSERT_ARGS_bytes __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(src))
+#define ASSERT_ARGS_codepoints __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(src))
+#define ASSERT_ARGS_find_cclass __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(s) \
+ , PARROT_ASSERT_ARG(typetable))
+#define ASSERT_ARGS_get_byte __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
+#define ASSERT_ARGS_get_bytes __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
+#define ASSERT_ARGS_get_codepoint __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(src))
+#define ASSERT_ARGS_get_codepoints __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(src))
+#define ASSERT_ARGS_iter_init __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(src) \
+ , PARROT_ASSERT_ARG(iter))
+#define ASSERT_ARGS_set_byte __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
+#define ASSERT_ARGS_to_encoding __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(src))
+#define ASSERT_ARGS_ucs4_decode_and_advance __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(i))
+#define ASSERT_ARGS_ucs4_encode_and_advance __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(i))
+#define ASSERT_ARGS_ucs4_hash __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(s))
+#define ASSERT_ARGS_ucs4_set_position __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(i))
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+/* HEADERIZER END: static */
+
+#include "ucs4.h"
+
+#if PARROT_HAS_ICU
+# include <unicode/ustring.h>
+#endif
+
+/*
+
+=item C<static STRING * to_encoding(PARROT_INTERP, const STRING *src)>
+
+Converts the string C<src> to this particular encoding.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static STRING *
+to_encoding(PARROT_INTERP, ARGIN(const STRING *src))
+{
+ ASSERT_ARGS(to_encoding)
+#if PARROT_HAS_ICU
+ if (src->encoding == Parrot_ucs4_encoding_ptr) {
+ return Parrot_str_clone(interp, src);
+ }
+ else {
+ UINTVAL len = Parrot_str_length(interp, src);
+ STRING *res = Parrot_str_new_init(interp, NULL, len * sizeof (UChar32),
+ Parrot_ucs4_encoding_ptr, Parrot_unicode_charset_ptr, 0);
+ UChar32 *buf = (UChar32 *) res->strstart;
+ UINTVAL offs;
+ for (offs = 0; offs < len; offs++){
+ buf[offs] = src->encoding->get_codepoint(interp, src, offs);
+ };
+ res->strlen = len;
+ res->bufused = len * sizeof (UChar32);
+
+ return res;
+ }
+#else
+ UNUSED(src);
+ no_ICU_lib(interp);
+#endif
+
+}
+
+/*
+
+=item C<static UINTVAL get_codepoint(PARROT_INTERP, const STRING *src, UINTVAL
+offset)>
+
+Returns the codepoint in string C<src> at position C<offset>.
+
+=cut
+
+*/
+
+static UINTVAL
+get_codepoint(PARROT_INTERP, ARGIN(const STRING *src), UINTVAL offset)
+{
+ ASSERT_ARGS(get_codepoint)
+#if PARROT_HAS_ICU
+ const UChar32 * const s = (const UChar32*) src->strstart;
+ UNUSED(interp);
+ return s[offset];
+#else
+ UNUSED(offset);
+ UNUSED(src);
+ no_ICU_lib(interp);
+#endif
+}
+
+
+/*
+
+=item C<static UINTVAL find_cclass(PARROT_INTERP, const STRING *s, const INTVAL
+*typetable, INTVAL flags, UINTVAL pos, UINTVAL end)>
+
+Stub, the charset level handles this for unicode strings.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+static UINTVAL
+find_cclass(PARROT_INTERP, ARGIN(const STRING *s), ARGIN(const INTVAL *typetable),
+INTVAL flags, UINTVAL pos, UINTVAL end)
+{
+ ASSERT_ARGS(find_cclass)
+
+ UNUSED(s);
+ UNUSED(typetable);
+ UNUSED(flags);
+ UNUSED(pos);
+ UNUSED(end);
+
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_UNIMPLEMENTED,
+ "No find_cclass support in unicode encoding plugins");
+}
+
+/*
+
+=item C<static UINTVAL get_byte(PARROT_INTERP, const STRING *src, UINTVAL
+offset)>
+
+Returns the byte in string C<src> at position C<offset>.
+
+=cut
+
+*/
+
+static UINTVAL
+get_byte(PARROT_INTERP, SHIM(const STRING *src), SHIM(UINTVAL offset))
+{
+ ASSERT_ARGS(get_byte)
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_UNIMPLEMENTED,
+ "No get_byte for UCS-4");
+}
+
+/*
+
+=item C<static void set_byte(PARROT_INTERP, const STRING *src, UINTVAL offset,
+UINTVAL byte)>
+
+Sets, in string C<src> at position C<offset>, the byte C<byte>.
+
+=cut
+
+*/
+
+static void
+set_byte(PARROT_INTERP, SHIM(const STRING *src), SHIM(UINTVAL offset),
+ SHIM(UINTVAL byte))
+{
+ ASSERT_ARGS(set_byte)
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_UNIMPLEMENTED,
+ "No set_byte for UCS-4");
+}
+
+/*
+
+=item C<static STRING * get_codepoints(PARROT_INTERP, const STRING *src, UINTVAL
+offset, UINTVAL count)>
+
+Returns the C<count> codepoints stored at position C<offset> in string
+C<src> as a new string.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static STRING *
+get_codepoints(PARROT_INTERP, ARGIN(const STRING *src), UINTVAL offset, UINTVAL count)
+{
+ ASSERT_ARGS(get_codepoints)
+#if PARROT_HAS_ICU
+ return Parrot_str_new_init(interp, (char*)src->strstart + offset * sizeof (UChar32),
+ count * sizeof (UChar32), src->encoding, src->charset, 0);
+#else
+ UNUSED(src);
+ UNUSED(offset);
+ UNUSED(count);
+ no_ICU_lib(interp);
+#endif
+}
+
+/*
+
+=item C<static STRING * get_bytes(PARROT_INTERP, const STRING *src, UINTVAL
+offset, UINTVAL count)>
+
+Returns the bytes in string C<src> at position C<offset> and length C<count>.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+PARROT_CANNOT_RETURN_NULL
+static STRING *
+get_bytes(PARROT_INTERP, SHIM(const STRING *src), SHIM(UINTVAL offset),
+ SHIM(UINTVAL count))
+{
+ ASSERT_ARGS(get_bytes)
+ Parrot_ex_throw_from_c_args(interp, NULL,
+ EXCEPTION_UNIMPLEMENTED,
+ "No get_bytes for UCS-4");
+}
+
+
+/*
+
+=item C<static UINTVAL codepoints(PARROT_INTERP, const STRING *src)>
+
+Returns the number of codepoints in string C<src>.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+static UINTVAL
+codepoints(PARROT_INTERP, ARGIN(const STRING *src))
+{
+ ASSERT_ARGS(codepoints)
+#if PARROT_HAS_ICU
+ UNUSED(interp);
+ return src->bufused / sizeof (UChar32);
+#else
+ UNUSED(src);
+ no_ICU_lib(interp);
+#endif
+}
+
+/*
+
+=item C<static UINTVAL bytes(PARROT_INTERP, const STRING *src)>
+
+Returns the number of bytes in string C<src>.
+
+=cut
+
+*/
+
+PARROT_WARN_UNUSED_RESULT
+static UINTVAL
+bytes(SHIM_INTERP, ARGIN(const STRING *src))
+{
+ ASSERT_ARGS(bytes)
+ return src->bufused;
+}
+
+/*
+
+=item C<static UINTVAL ucs4_decode_and_advance(PARROT_INTERP, String_iter *i)>
+
+Moves the string iterator C<i> to the next UCS-4 codepoint.
+
+=cut
+
+*/
+
+static UINTVAL
+ucs4_decode_and_advance(PARROT_INTERP, ARGMOD(String_iter *i))
+{
+ ASSERT_ARGS(ucs4_decode_and_advance)
+#if PARROT_HAS_ICU
+ const UChar32 * const s = (const UChar32 *) i->str->strstart;
+ size_t pos = i->bytepos / sizeof (UChar32);
+ const UChar32 c = s[pos++];
+ ++i->charpos;
+ i->bytepos = pos * sizeof (UChar32);
+ return c;
+#else
+ UNUSED(i);
+ no_ICU_lib(interp);
+#endif
+}
+
+/*
+
+=item C<static void ucs4_encode_and_advance(PARROT_INTERP, String_iter *i,
+UINTVAL c)>
+
+With the string iterator C<i>, appends the codepoint C<c> and advances to the
+next position in the string.
+
+=cut
+
+*/
+
+static void
+ucs4_encode_and_advance(PARROT_INTERP, ARGMOD(String_iter *i), UINTVAL c)
+{
+ ASSERT_ARGS(ucs4_encode_and_advance)
+#if PARROT_HAS_ICU
+ UChar32 *s = (UChar32 *) i->str->strstart;
+ size_t pos = i->bytepos / sizeof (UChar32);
+ s[pos++] = (UChar32) c;
+ ++i->charpos;
+ i->bytepos = pos * sizeof (UChar32);
+#else
+ UNUSED(i);
+ no_ICU_lib(interp);
+#endif
+}
+
+#if PARROT_HAS_ICU
+/*
+
+=item C<static size_t ucs4_hash(PARROT_INTERP, const STRING *s, size_t hashval)>
+
+Returns the hashed value of the string, given a seed in hashval.
+
+=cut
+
+*/
+
+static size_t
+ucs4_hash(PARROT_INTERP, ARGIN(const STRING *s), size_t hashval)
+{
+ ASSERT_ARGS(ucs4_hash)
+ const UChar32 *pos = (const UChar32*) s->strstart;
+ UINTVAL len = s->strlen;
+ UNUSED(interp);
+
+ while (len--) {
+ hashval += hashval << 5;
+ hashval += *(pos++);
+ }
+
+ return hashval;
+}
+#endif
+
+/*
+
+=item C<static void ucs4_set_position(PARROT_INTERP, String_iter *i, UINTVAL n)>
+
+Moves the string iterator C<i> to the position C<n> in the string.
+
+=cut
+
+*/
+
+static void
+ucs4_set_position(PARROT_INTERP, ARGMOD(String_iter *i), UINTVAL n)
+{
+ ASSERT_ARGS(ucs4_set_position)
+#if PARROT_HAS_ICU
+ i->charpos = n;
+ i->bytepos = n * sizeof (UChar32);
+#else
+ UNUSED(i);
+ UNUSED(n);
+ no_ICU_lib(interp);
+#endif
+}
+
+
+/*
+
+=item C<static void iter_init(PARROT_INTERP, const STRING *src, String_iter
+*iter)>
+
+Initializes for string C<src> the string iterator C<iter>.
+
+=cut
+
+*/
+
+static void
+iter_init(PARROT_INTERP, ARGIN(const STRING *src), ARGOUT(String_iter *iter))
+{
+ ASSERT_ARGS(iter_init)
+#if PARROT_HAS_ICU
+ UNUSED(interp);
+ iter->str = src;
+ iter->bytepos = 0;
+ iter->charpos = 0;
+ iter->get_and_advance = ucs4_decode_and_advance;
+ iter->set_and_advance = ucs4_encode_and_advance;
+ iter->set_position = ucs4_set_position;
+#else
+ UNUSED(src);
+ UNUSED(iter);
+ no_ICU_lib(interp);
+#endif
+}
+
+/*
+
+=item C<void Parrot_encoding_ucs4_init(PARROT_INTERP)>
+
+Initializes the UCS-4 encoding.
+
+=cut
+
+*/
+
+void
+Parrot_encoding_ucs4_init(PARROT_INTERP)
+{
+ ASSERT_ARGS(Parrot_encoding_ucs4_init)
+ ENCODING * const return_encoding = Parrot_new_encoding(interp);
+
+ static const ENCODING base_encoding = {
+ "ucs4",
+ 4, /* Max bytes per codepoint */
+ to_encoding,
+ get_codepoint,
+ get_byte,
+ set_byte,
+ get_codepoints,
+ get_bytes,
+ codepoints,
+ bytes,
+ iter_init,
+ find_cclass,
+#if PARROT_HAS_ICU
+ ucs4_hash
+#else
+ NULL
+#endif
+ };
+ STRUCT_COPY_FROM_STRUCT(return_encoding, base_encoding);
+ Parrot_register_encoding(interp, "ucs4", return_encoding);
+
+ return;
+}
+
+/*
+
+=back
+
+=head1 SEE ALSO
+
+F<src/string/encoding/fixed_8.c>,
+F<src/string/encoding/utf8.c>,
+F<src/string/encoding/utf16.c>,
+F<src/string/encoding/ucs2.c>,
+F<src/string.c>,
+F<include/parrot/string.h>,
+F<docs/string.pod>.
+
+=cut
+
+*/
+
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Copied: branches/gsoc_instrument/src/string/encoding/ucs4.h (from r47107, trunk/src/string/encoding/ucs4.h)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/src/string/encoding/ucs4.h Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/src/string/encoding/ucs4.h)
@@ -0,0 +1,27 @@
+/*
+Copyright (C) 2010, Parrot Foundation.
+$Id$
+*/
+
+#ifndef PARROT_ENCODING_UCS4_H_GUARD
+#define PARROT_ENCODING_UCS4_H_GUARD
+
+/* HEADERIZER BEGIN: src/string/encoding/ucs4.c */
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+
+void Parrot_encoding_ucs4_init(PARROT_INTERP)
+ __attribute__nonnull__(1);
+
+#define ASSERT_ARGS_Parrot_encoding_ucs4_init __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp))
+/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+/* HEADERIZER END: src/string/encoding/ucs4.c */
+
+#endif /* PARROT_ENCODING_UCS4_H_GUARD */
+
+/*
+ * Local variables:
+ * c-file-style: "parrot"
+ * End:
+ * vim: expandtab shiftwidth=4:
+ */
Modified: branches/gsoc_instrument/src/utils.c
==============================================================================
--- branches/gsoc_instrument/src/utils.c Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/src/utils.c Sat May 29 11:56:49 2010 (r47109)
@@ -540,7 +540,7 @@
/*
-=item C<PMC* tm_to_array(PARROT_INTERP, const struct tm *tm)>
+=item C<PMC* Parrot_tm_to_array(PARROT_INTERP, const struct tm *tm)>
Helper to convert a B<struct tm *> to an Array
@@ -548,12 +548,13 @@
*/
+PARROT_EXPORT
PARROT_WARN_UNUSED_RESULT
PARROT_CANNOT_RETURN_NULL
PMC*
-tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
+Parrot_tm_to_array(PARROT_INTERP, ARGIN(const struct tm *tm))
{
- ASSERT_ARGS(tm_to_array)
+ ASSERT_ARGS(Parrot_tm_to_array)
PMC * const Array = Parrot_pmc_new(interp,
Parrot_get_ctx_HLL_type(interp, enum_class_FixedIntegerArray));
Modified: branches/gsoc_instrument/t/codingstd/c_function_docs.t
==============================================================================
--- branches/gsoc_instrument/t/codingstd/c_function_docs.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/codingstd/c_function_docs.t Sat May 29 11:56:49 2010 (r47109)
@@ -100,7 +100,6 @@
config/gen/platform/ansi/dl.c
config/gen/platform/ansi/exec.c
config/gen/platform/ansi/time.c
-config/gen/platform/darwin/dl.c
config/gen/platform/darwin/memalign.c
config/gen/platform/generic/dl.c
config/gen/platform/generic/exec.c
Modified: branches/gsoc_instrument/t/compilers/imcc/imcpasm/opt1.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/imcpasm/opt1.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/imcc/imcpasm/opt1.t Sat May 29 11:56:49 2010 (r47109)
@@ -5,7 +5,7 @@
use strict;
use warnings;
use lib qw( . lib ../lib ../../lib );
-use Parrot::Test tests => 78;
+use Parrot::Test tests => 77;
use Parrot::Config;
my $output;
@@ -312,22 +312,6 @@
OUT
##############################
-pir_2_pasm_is( <<'CODE', <<'OUT', "constant cmod" );
-.sub _main
- cmod $I0, 33, 10
- cmod $N0, 33.0, 10.0
- end
-.end
-CODE
-# IMCC does produce b0rken PASM files
-# see http://guest@rt.perl.org/rt3/Ticket/Display.html?id=32392
-_main:
- set I0, 3
- set N0, 3
- end
-OUT
-
-##############################
pir_2_pasm_is( <<'CODE', <<'OUT', "constant mod" );
.sub _main
mod $I0, 33, 10
Modified: branches/gsoc_instrument/t/compilers/imcc/syn/op.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/syn/op.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/imcc/syn/op.t Sat May 29 11:56:49 2010 (r47109)
@@ -4,7 +4,7 @@
.sub test :main
.include 'test_more.pir'
- plan(59)
+ plan(58)
test_plus_equal()
test_minus_equal()
@@ -21,7 +21,6 @@
test_x_defined()
test_x_clone()
test_x_length()
- test_x_sin()
test_x_can()
test_x_isa()
test_x_add()
@@ -174,11 +173,6 @@
is($I0, 0, 'x = length')
.end
-.sub test_x_sin
- $N0 = sin 0
- is($N0, 0, 'x = sin')
-.end
-
.sub test_x_can
$P0 = new 'FileHandle'
$I0 = can $P0, "puts"
Modified: branches/gsoc_instrument/t/compilers/imcc/syn/tail.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/syn/tail.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/imcc/syn/tail.t Sat May 29 11:56:49 2010 (r47109)
@@ -15,6 +15,8 @@
$ENV{TEST_PROG_ARGS} = '-Oc';
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, final position" );
+.loadlib 'io_ops'
+
.sub _main :main
$P1 = new 'Integer'
$P1 = 20
@@ -97,6 +99,8 @@
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, intermediate position" );
+.loadlib 'io_ops'
+
.sub _main :main
$P1 = new 'Integer'
$P1 = 20
@@ -171,6 +175,8 @@
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, implicit final return" );
+.loadlib 'io_ops'
+
.sub _main :main
$P1 = new 'Integer'
@@ -250,6 +256,8 @@
pir_output_is( <<'CODE', <<'OUT', ":flatten in .return" );
+.loadlib 'io_ops'
+
.sub _main :main
$P1 = new 'Integer'
Modified: branches/gsoc_instrument/t/compilers/opsc/05-oplib.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/opsc/05-oplib.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/opsc/05-oplib.t Sat May 29 11:56:49 2010 (r47109)
@@ -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);
Modified: branches/gsoc_instrument/t/compilers/opsc/06-opsfile.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/opsc/06-opsfile.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/opsc/06-opsfile.t Sat May 29 11:56:49 2010 (r47109)
@@ -20,9 +20,9 @@
# 116 math
# We can generate more than 1 Ops::Op per op due args expansion.
say( "# Parsed " ~ + at ops);
-# There is more than 300 ops in this 2 files.
+# There is more than 200 ops in this 2 files.
# Feel free to update number if you change them.
-ok(+ at ops == 306, "Ops parsed correctly");
+ok(+ at ops == 264, "Ops parsed correctly");
say('# ' ~ + at ops);
my $op := @ops[0];
@@ -32,7 +32,7 @@
ok($op<code> == 0, "... with code 0");
$op := @ops[(+ at ops)-1];
-ok($op.name eq 'tanh', "Last op is tanh");
+ok($op.name eq 'sqrt', "Last op is tanh");
say('# ' ~ $op.name);
ok($op<code> > 84 + 116, "... with non zero code");
Modified: branches/gsoc_instrument/t/compilers/opsc/07-emitter.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/opsc/07-emitter.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/opsc/07-emitter.t Sat May 29 11:56:49 2010 (r47109)
@@ -42,12 +42,13 @@
$fh.close();
my $header := $fh.readall();
+#say($header);
ok($header ~~ /define \s PARROT_OPLIB_CORE_OPS_H_GUARD/, 'Guard generated');
ok($header ~~ /endif/, 'Close guard generated');
ok($header ~~ /DO \s NOT \s EDIT \s THIS \s FILE/, 'Preamble generated');
ok($header ~~ /Parrot_DynOp_core_ \d+ _ \d+ _ \d+/, '... and contains init_func');
-ok($header ~~ /Parrot_sysinfo_s_i/, 'We have proper names of ops functions');
+ok($header ~~ /Parrot_err_s_ic/, 'We have proper names of ops functions');
# Testing C emitting.
#$emitter.print_c_source_file();
Modified: branches/gsoc_instrument/t/compilers/opsc/common.pir
==============================================================================
--- branches/gsoc_instrument/t/compilers/opsc/common.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/opsc/common.pir Sat May 29 11:56:49 2010 (r47109)
@@ -6,6 +6,8 @@
=cut
+.loadlib 'io_ops'
+
.sub '_parse_buffer'
.param string buffer
Modified: branches/gsoc_instrument/t/compilers/pge/p5regex/p5rx.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/pge/p5regex/p5rx.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/pge/p5regex/p5rx.t Sat May 29 11:56:49 2010 (r47109)
@@ -55,6 +55,8 @@
.const int TESTS = 960
+.loadlib 'io_ops'
+
.sub main :main
load_bytecode 'Test/Builder.pbc'
load_bytecode 'PGE.pbc'
Modified: branches/gsoc_instrument/t/compilers/pge/perl6regex/01-regex.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/pge/perl6regex/01-regex.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/compilers/pge/perl6regex/01-regex.t Sat May 29 11:56:49 2010 (r47109)
@@ -54,6 +54,8 @@
.const string TESTS = 'no_plan'
+.loadlib 'io_ops'
+
.sub main :main
load_bytecode 'Test/Builder.pbc'
load_bytecode 'PGE.pbc'
Copied: branches/gsoc_instrument/t/dynoplibs/bit.t (from r47107, trunk/t/dynoplibs/bit.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/bit.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/bit.t)
@@ -0,0 +1,297 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/dynoplibs/bit.t - Bitwise Dynops
+
+=head1 SYNOPSIS
+
+ % prove t/dynoplibs/bit.t
+
+=head1 DESCRIPTION
+
+Tests basic arithmetic on various combinations of Parrot integer and
+number types.
+
+=cut
+
+.loadlib 'bit_ops'
+
+.sub main :main
+ .include 'test_more.pir'
+
+ plan(56)
+
+ bnot_p_p_creates_destination()
+ bands_null_string()
+ bands_2()
+ bands_3()
+ bands_cow()
+ bors_null_string()
+ bors_2()
+ bors_3()
+ bors_cow()
+ bxors_null_string()
+ bxors_2()
+ bxors_3()
+ bxors_cow()
+ bnots_null_string()
+ bnots_2()
+ bnots_cow()
+ # END_OF_TESTS
+
+.end
+
+.sub 'bnot_p_p_creates_destination'
+ $P0 = box 3
+ $P1 = bnot $P0
+ is( $P1, -4, 'bnot_p_p_creates_destination')
+.end
+
+.sub bands_null_string
+ null $S1
+ set $S2, "abc"
+ $S1 = bands $S1, $S2
+ null $S3
+ is( $S1, $S3, 'ok1' )
+
+ set $S1, ""
+ $S1 = bands $S1, $S2
+ nok( $S1, 'ok2' )
+
+ null $S2
+ set $S1, "abc"
+ $S1 = bands $S1, $S2
+ null $S3
+ is( $S1, $S3, 'ok3' )
+
+ set $S2, ""
+ $S1 = bands $S1, $S2
+ nok( $S1, 'ok4' )
+.end
+
+.sub bands_2
+ set $S1, "abc"
+ set $S2, "EE"
+ $S1 = bands $S1, $S2
+ is( $S1, "A@", 'bands 2' )
+ is( $S2, "EE", 'bands 2' )
+.end
+
+.sub bands_3
+ set $S1, "abc"
+ set $S2, "EE"
+ bands $S0, $S1, $S2
+ is( $S0, "A@", 'bands 3' )
+ is( $S1, "abc", 'bands 3' )
+ is( $S2, "EE", 'bands 3' )
+.end
+
+.sub bands_cow
+ set $S1, "foo"
+ substr $S2, $S1, 0, 3
+ $S1 = bands $S1, "bar"
+ is( $S2, "foo", 'bands COW' )
+.end
+
+.sub bors_null_string
+ null $S1
+ null $S2
+ $S1 = bors $S1, $S2
+ null $S3
+ is( $S1, $S3, 'bors NULL string' )
+
+ null $S1
+ set $S2, ""
+ $S1 = bors $S1, $S2
+ null $S3
+ is( $S1, $S3, 'bors NULL string' )
+
+ $S2 = bors $S2, $S1
+ is( $S2, $S3, 'bors NULL string' )
+
+ null $S1
+ set $S2, "def"
+ $S1 = bors $S1, $S2
+ is( $S1, "def", 'bors NULL string' )
+
+ null $S2
+ $S1 = bors $S1, $S2
+ is( $S1, "def", 'bors NULL string' )
+
+ null $S1
+ null $S2
+ bors $S3, $S1, $S2
+ null $S4
+ is( $S3, $S4, 'bors NULL string' )
+
+ set $S1, ""
+ bors $S3, $S1, $S2
+ is( $S3, $S4, 'bors NULL string' )
+
+ bors $S3, $S2, $S1
+ is( $S3, $S4, 'bors NULL string' )
+
+ set $S1, "def"
+ bors $S3, $S1, $S2
+ is( $S3, "def", 'bors NULL string' )
+
+ bors $S3, $S2, $S1
+ is( $S3, "def", 'bors NULL string' )
+.end
+
+.sub bors_2
+ set $S1, "abc"
+ set $S2, "EE"
+ $S1 = bors $S1, $S2
+ is( $S1, "egc", 'bors 2' )
+ is( $S2, "EE", 'bors 2' )
+.end
+
+.sub bors_3
+ set $S1, "abc"
+ set $S2, "EE"
+ bors $S0, $S1, $S2
+ is( $S0, "egc", 'bors 3' )
+ is( $S1, "abc", 'bors 3' )
+ is( $S2, "EE", 'bors 3' )
+.end
+
+.sub bors_cow
+ set $S1, "foo"
+ substr $S2, $S1, 0, 3
+ $S1 = bors $S1, "bar"
+ is( $S2, "foo", 'bors COW' )
+.end
+
+.sub bxors_null_string
+ null $S1
+ null $S2
+ $S1 = bxors $S1, $S2
+ null $S3
+ is( $S1, $S3, 'bxors NULL string' )
+
+ null $S1
+ set $S2, ""
+ $S1 = bxors $S1, $S2
+ null $S3
+ is( $S1, $S3, 'bxors NULL string' )
+
+ $S2 = bxors $S2, $S1
+ is( $S2, $S3, 'bxors NULL string' )
+
+ null $S1
+ set $S2, "abc"
+ $S1 = bxors $S1, $S2
+ is( $S1, "abc", 'bxors NULL string' )
+
+ null $S2
+ $S1 = bxors $S1, $S2
+ is( $S1, "abc", 'bxors NULL string' )
+
+ null $S1
+ null $S2
+ bxors $S3, $S1, $S2
+ null $S4
+ is( $S3, $S4, 'bxors NULL string' )
+
+ set $S1, ""
+ bxors $S3, $S1, $S2
+ is( $S3, $S4, 'bxors NULL string' )
+
+ bxors $S3, $S2, $S1
+ is( $S3, $S4, 'bxors NULL string' )
+
+ set $S1, "abc"
+ bxors $S3, $S1, $S2
+ is( $S3, "abc", 'bxors NULL string' )
+
+ bxors $S3, $S2, $S1
+ is( $S3, "abc", 'bxors NULL string' )
+.end
+
+.sub bxors_2
+ set $S1, "a2c"
+ set $S2, "Dw"
+ $S1 = bxors $S1, $S2
+ is( $S1, "%Ec", 'bxors 2' )
+ is( $S2, "Dw", 'bxors 2' )
+
+ set $S1, "abc"
+ set $S2, " X"
+ $S1 = bxors $S1, $S2
+ is( $S1, "ABCX", 'bxors 2' )
+ is( $S2, " X", 'bxors 2' )
+.end
+
+.sub bxors_3
+ set $S1, "a2c"
+ set $S2, "Dw"
+ bxors $S0, $S1, $S2
+ is( $S0, "%Ec", 'bxors 3' )
+ is( $S1, "a2c", 'bxors 3' )
+ is( $S2, "Dw", 'bxors 3' )
+
+ set $S1, "abc"
+ set $S2, " Y"
+ bxors $S0, $S1, $S2
+ is( $S0, "ABCY", 'bxors 3' )
+ is( $S1, "abc", 'bxors 3' )
+ is( $S2, " Y", 'bxors 3' )
+.end
+
+.sub bxors_cow
+ set $S1, "foo"
+ substr $S2, $S1, 0, 3
+ $S1 = bxors $S1, "bar"
+ is( $S2, "foo", 'bxors COW' )
+.end
+
+.sub bnots_null_string
+ null $S1
+ null $S2
+ bnots $S1, $S2
+ null $S3
+ is( $S1, $S3, 'bnots NULL string' )
+
+ null $S1
+ set $S2, ""
+ bnots $S1, $S2
+ null $S3
+ is( $S1, $S3, 'bnots NULL string' )
+
+ bnots $S2, $S1
+ is( $S2, $S3, 'bnots NULL string' )
+.end
+
+# This was the previous test used for t/native_pbc/string.t
+.sub bnots_2
+ skip( 4, "No unicode yet" )
+ # getstdout $P0
+ # push $P0, "utf8"
+ # set $S1, "a2c"
+ # bnots $S2, $S1
+ # is( $S1, "a2c", 'bnots 2' )
+ # is( $S2, "\xC2\x9E\xC3\x8D\xC2\x9C", 'bnots 2' )
+ #
+ # bnots $S1, $S1
+ # is( $S1, "\xC2\x9E\xC3\x8D\xC2\x9C", 'bnots 2' )
+ #
+ # bnots $S1, $S1
+ # is( $S1, "a2c", 'bnots 2' )
+.end
+
+.sub bnots_cow
+ set $S1, "foo"
+ substr $S2, $S1, 0, 3
+ bnots $S1, $S1
+ is( $S2, "foo", 'bnots COW' )
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Copied: branches/gsoc_instrument/t/dynoplibs/debug.t (from r47107, trunk/t/dynoplibs/debug.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/debug.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/debug.t)
@@ -0,0 +1,202 @@
+#!perl
+# Copyright (C) 2001-2007, Parrot Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 8;
+
+=head1 NAME
+
+t/op/debuginfo.t - Debugging Info
+
+=head1 SYNOPSIS
+
+ % prove t/op/debuginfo.t
+
+=head1 DESCRIPTION
+
+Tests the various set and get operations for line, package and file info,
+as well as backtrace tests.
+
+=cut
+
+$ENV{TEST_PROG_ARGS} ||= '';
+my $nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
+ ? "\\(unknown file\\)\n-1" : "debug_\\d+\\.pasm\n\\d";
+
+#SKIP: {
+#skip "disabled on fast-core",1 if $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/;
+
+pasm_output_like( <<'CODE', <<"OUTPUT", "getline, getfile" );
+.loadlib 'debug_ops'
+.pcc_sub main:
+ getfile S0
+ getline I0
+ say S0
+ say I0
+ end
+CODE
+/$nolineno/
+OUTPUT
+
+pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - Null PMC access" );
+.sub main
+ print "ok 1\n"
+ a()
+ print "not ok 10\n"
+.end
+.sub a
+ print "ok 2\n"
+ b()
+ print "not ok 9\n"
+.end
+.sub b
+ print "ok 3\n"
+ c()
+ print "not ok 8\n"
+.end
+.sub c
+ print "ok 4\n"
+ d()
+ print "not ok 7\n"
+.end
+.sub d
+ print "ok 5\n"
+ $P0 = null
+ $P0()
+ print "not ok 6\n"
+.end
+CODE
+/^ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+Null PMC access in invoke\(\)
+current instr\.: 'd' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'c' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'b' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'a' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
+OUTPUT
+
+pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - method not found" );
+.namespace ["Test1"]
+.sub main
+ print "ok 1\n"
+ foo()
+ print "not ok 5\n"
+.end
+.sub foo
+ print "ok 2\n"
+ $P0 = new 'Integer'
+ print "ok 3\n"
+ $P0."nosuchmethod"()
+ print "not ok 4\n"
+.end
+CODE
+/^ok 1
+ok 2
+ok 3
+Method 'nosuchmethod' not found for invocant of class 'Integer'
+current instr.: 'parrot;Test1;foo' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'parrot;Test1;main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
+OUTPUT
+
+pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - fetch of unknown lexical" );
+.namespace ["Test2"]
+.sub main
+ print "ok 1\n"
+ foo()
+ print "not ok 3\n"
+.end
+.sub foo :lex
+ print "ok 2\n"
+ find_lex $P0, "nosuchlex"
+ print "not ok 3\n"
+.end
+CODE
+/^ok 1
+ok 2
+Lexical 'nosuchlex' not found
+current instr.: 'parrot;Test2;foo' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'parrot;Test2;main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
+OUTPUT
+
+pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - recursion 1" );
+.sub main
+ main()
+.end
+CODE
+/^maximum recursion depth exceeded
+current instr\.: 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)
+\.\.\. call repeated \d+ times/
+OUTPUT
+
+pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - recursion 2" );
+.sub main
+ rec(91)
+.end
+.sub rec
+ .param int i
+ if i == 0 goto END
+ dec i
+ rec(i)
+ .return()
+END:
+ $P0 = null
+ $P0()
+.end
+CODE
+/^Null PMC access in invoke\(\)
+current instr\.: 'rec' pc (\d+|-1) \(.*?:(\d+|-1)\)
+called from Sub 'rec' pc (\d+|-1) \(.*?:(\d+|-1)\)
+\.\.\. call repeated 90 times
+called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
+OUTPUT
+
+$nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
+ ? '\(\(unknown file\):-1\)' : '\(xyz.pir:126\)';
+
+pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );
+.sub main :main
+ setfile "xyz.pir"
+ setline 123
+ $S0 = 'hello'
+ $I0 = 456
+ 'no_such_function'($S0, $I0)
+.end
+CODE
+/$nolineno/
+OUTPUT
+
+$nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
+ ? '\(\(unknown file\):-1\)' : '\(foo.p6:128\)';
+pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );
+.sub main :main
+ setfile "foo.p6"
+ setline 123
+ $P0 = new 'Integer'
+ assign $P0, 9876
+ set_global '$a', $P0
+
+ setline 124
+ $P0 = get_global '$a'
+ $P1 = clone $P0
+ add $P1, 1
+ 'nsf'($P1)
+.end
+CODE
+/$nolineno/
+OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Copied: branches/gsoc_instrument/t/dynoplibs/io.t (from r47107, trunk/t/dynoplibs/io.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/io.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/io.t)
@@ -0,0 +1,198 @@
+#!./parrot
+# Copyright (C) 2008, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/op/io.t - Testing io opcodes
+
+=head1 SYNOPSIS
+
+ % prove t/op/io.t
+
+=head1 DESCRIPTION
+
+Tests various io opcodes.
+
+=cut
+
+.const int TESTS = 5
+
+.loadlib 'io_ops'
+
+.sub 'main' :main
+ .include 'test_more.pir'
+
+ plan(TESTS)
+
+ open_delegates_to_filehandle_pmc()
+ open_null_filename()
+ open_null_mode()
+ open_pipe_for_reading()
+ getfd_fdopen()
+ open_pipe_for_writing() # must be last (doesn't use test_more)
+.end
+
+.sub open_delegates_to_filehandle_pmc
+ load_bytecode 'P6object.pbc'
+
+ .local pmc p6meta, interp, classes, classid
+ p6meta = get_root_global ["parrot"], "P6metaclass"
+ p6meta.'new_class'('Testing')
+
+ interp = getinterp
+ classes = interp[0]
+ classid = classes['Testing']
+ $I0 = classes['FileHandle']
+ set classes['FileHandle'], classid
+
+ $P1 = open '/foo'
+ is($P1,42,'open opcode delegates to the open method on the FileHandle PMC')
+
+ # replace the original, so we don't break other tests
+ set classes['FileHandle'], $I0
+
+.end
+
+.sub 'open_null_filename'
+ push_eh open_null_filename_failed
+ null $S0
+ $P0 = open $S0, 'r'
+ nok(1, 'open with null filename')
+ .return ()
+
+ open_null_filename_failed:
+ ok(1, 'open with null filename')
+.end
+
+.sub 'open_null_mode'
+ push_eh open_null_mode_failed
+ null $S0
+ $P0 = open 'some_name', $S0
+ nok(1, 'open with null mode')
+ .return ()
+
+ open_null_mode_failed:
+ ok(1, 'open with null mode')
+.end
+
+.loadlib 'sys_ops'
+.sub 'tt661_todo_test' :anon
+ # As of r41963, these tests need to be todo'ed at least on Win32. Add new
+ # platforms known to fail.
+ .include 'sysinfo.pasm'
+ $S0 = sysinfo .SYSINFO_PARROT_OS
+ if $S0 == 'MSWin32' goto tt661_todo
+
+ .return (0)
+
+ tt661_todo:
+ .return (1)
+.end
+
+.include 'iglobals.pasm'
+
+.sub 'open_pipe_for_reading'
+ .local pmc interp
+ interp = getinterp
+
+ .local pmc conf
+ conf = interp[.IGLOBALS_CONFIG_HASH]
+
+ .local string command
+ command = conf['build_dir']
+
+ .local string aux
+ aux = conf['slash']
+ command .= aux
+ aux = conf['test_prog']
+ command .= aux
+ aux = conf['exe']
+ command .= aux
+ command .= ' -V'
+
+ .local pmc pipe
+ pipe = open command, 'rp'
+ unless pipe goto open_pipe_for_reading_failed
+ .local string line
+ line = readline pipe
+ line = substr line, 0, 14
+ is('This is Parrot', line, 'open pipe for reading')
+ .return ()
+
+ open_pipe_for_reading_failed:
+ nok(1, 'open pipe for reading')
+ .return ()
+.end
+
+.sub 'open_pipe_for_writing'
+ $I0 = tt661_todo_test()
+ if $I0 goto open_pipe_for_writing_todoed
+ .local pmc interp
+ interp = getinterp
+
+ .local pmc conf
+ conf = interp[.IGLOBALS_CONFIG_HASH]
+
+ .local string command
+ command = conf['build_dir']
+
+ .local string aux
+ aux = conf['slash']
+ command .= aux
+ .local string filename
+ filename .= command
+ filename .= 'examples/pasm/cat.pasm'
+ aux = conf['test_prog']
+ command .= aux
+ aux = conf['exe']
+ command .= aux
+ command .= ' '
+ command .= filename
+
+ .local pmc pipe
+ pipe = open command, 'wp'
+ unless pipe goto open_pipe_for_writing_failed
+
+ pipe.'puts'("ok 5 - open pipe for writing\n")
+ close pipe
+ .return ()
+
+ open_pipe_for_writing_failed:
+ nok(1, 'open pipe for writing')
+ .return ()
+
+ open_pipe_for_writing_todoed:
+ todo(0, 'Unimplemented in this platform, TT #661')
+
+.end
+
+# TT #1178
+.sub 'getfd_fdopen'
+ getstdout $P0
+ $I0 = $P0.'get_fd'()
+ fdopen $P1, $I0, 'w'
+ $I0 = defined $P1
+ ok($I0, 'get_fd()/fdopen')
+ close $P1
+
+ getstdout $P0
+ $I0 = $P0.'get_fd'()
+ fdopen $P1, $I0, 'w'
+ $I0 = defined $P1
+ ok($I0, 'fdopen - no close')
+.end
+
+.namespace ["Testing"]
+
+.sub open :method
+ .param pmc args :slurpy
+ .return(42)
+.end
+
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/gsoc_instrument/t/dynoplibs/math.t
==============================================================================
--- branches/gsoc_instrument/t/dynoplibs/math.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/dynoplibs/math.t Sat May 29 11:56:49 2010 (r47109)
@@ -16,11 +16,21 @@
=cut
+.macro exception_is ( M )
+ .local pmc exception
+ .local string message
+ .get_results (exception)
+
+ message = exception['message']
+ is( message, .M, .M )
+.endm
+
.loadlib 'math_ops'
+
.sub main :main
.include 'test_more.pir'
.include 'fp_equality.pasm'
- plan(20)
+ plan(34)
ok(1, "load math_ops")
rand $I0
test_2_arg_int()
@@ -32,6 +42,15 @@
test_local_nums()
test_local_nums_2_arg()
test_local_ints()
+ test_cmod_n()
+ test_exception_cmod_n_n_n_by_zero()
+ test_exception_cmod_n_nc_n_by_zero()
+ test_exception_cmod_n_n_nc_by_zero()
+ test_cmod()
+ test_cmod_i_i_i_by_zero()
+ test_cmod_i_ic_i_by_zero()
+ test_cmod_i_i_ic_by_zero()
+ test_cmod_float_integer_pmc_nan()
.end
.sub test_2_arg_int
@@ -178,6 +197,114 @@
finish:
.end
+.sub test_cmod_n
+ set $N0, 5.000
+ set $N1, 3.000
+ cmod $N2, $N0, $N1
+ is( $N2, "2", 'cmod_n' )
+.end
+
+.sub test_exception_cmod_n_n_n_by_zero
+ push_eh handler
+ set $N0, 0
+ set $N1, 10
+ cmod $N2, $N1, $N0
+ handler:
+ .exception_is( 'Divide by zero' )
+.end
+
+.sub test_exception_cmod_n_nc_n_by_zero
+ push_eh handler
+ set $N0, 0
+ cmod $N2, 10, $N0
+ handler:
+ .exception_is( 'Divide by zero' )
+.end
+
+.sub test_exception_cmod_n_n_nc_by_zero
+ push_eh handler
+ set $N1, 10
+ cmod $N2, $N1, 0
+ handler:
+ .exception_is( 'Divide by zero' )
+.end
+
+.sub 'test_cmod'
+ $I0 = 5
+ $I1 = 3
+ $I2 = cmod $I0, $I1
+ is($I2, 2, 'cmod_i_i_i')
+ is($I0, 5, 'cmod_i_i_i - dividend unchanged')
+ is($I1, 3, 'cmod_i_i_i - divisor unchanged')
+
+ $I0 = 12
+
+ $I1 = cmod $I0, 10
+ is($I1, 2, 'cmod_i_i_ic')
+
+ $I1 = cmod 14, $I0
+ is($I1, 2, 'cmod_i_ic_i')
+
+ $I1 = cmod 13, 11
+ is($I1, 2, 'cmod_i_ic_ic')
+.end
+
+.sub 'test_cmod_i_i_i_by_zero'
+ $I0 = 0
+ $I1 = 10
+ push_eh test_cmod_i_i_i_by_zero_catch
+ $I2 = cmod $I1, $I0
+ pop_eh
+ $I3 = 0
+ goto test_cmod_i_i_i_by_zero_end
+
+ test_cmod_i_i_i_by_zero_catch:
+ $I3 = 1
+
+ test_cmod_i_i_i_by_zero_end:
+ ok($I3, 'cmod_i_i_i by zero')
+.end
+
+.sub 'test_cmod_i_ic_i_by_zero'
+ $I0 = 0
+ push_eh test_cmod_i_ic_i_by_zero_catch
+ $I2 = cmod 10, $I0
+ pop_eh
+ $I3 = 0
+ goto test_cmod_i_ic_i_by_zero_end
+
+ test_cmod_i_ic_i_by_zero_catch:
+ $I3 = 1
+
+ test_cmod_i_ic_i_by_zero_end:
+ ok($I3, 'cmod_i_ic_i by zero')
+.end
+
+.sub 'test_cmod_i_i_ic_by_zero'
+ $I1 = 10
+ push_eh test_cmod_i_i_ic_by_zero_catch
+ $I2 = cmod $I1, 0
+ pop_eh
+ $I3 = 0
+ goto test_cmod_i_i_ic_by_zero_end
+
+ test_cmod_i_i_ic_by_zero_catch:
+ $I3 = 1
+
+ test_cmod_i_i_ic_by_zero_end:
+ ok($I3, 'cmod_i_i_ic by zero')
+.end
+
+.sub test_cmod_float_integer_pmc_nan
+ $P1 = new 'Float'
+ $P2 = new 'Integer'
+ $P2 = 1
+ $N0 = 'NaN'
+ cmod $P1, $P2, $N0
+ #is($P1, 'NaN', 'cmod with Float and Integer PMCs and NaN')
+ todo(0, 'cmod with Float and Integer PMCs and NaN', 'cmod does not play nicely with PMCs and NaN')
+.end
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: branches/gsoc_instrument/t/dynoplibs/obscure.t
==============================================================================
--- branches/gsoc_instrument/t/dynoplibs/obscure.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/dynoplibs/obscure.t Sat May 29 11:56:49 2010 (r47109)
@@ -17,6 +17,8 @@
=cut
.loadlib 'obscure_ops'
+.loadlib 'trans_ops' # needed for atan
+
.sub main :main
.include 'fp_equality.pasm'
.include 'test_more.pir'
Copied: branches/gsoc_instrument/t/dynoplibs/pmc_pow.t (from r47107, trunk/t/dynoplibs/pmc_pow.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/pmc_pow.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/pmc_pow.t)
@@ -0,0 +1,78 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/dynoplibs/pmc_pow.t - Test C<pow> on PMCs
+
+=head1 SYNOPSIS
+
+ % prove t/dynoplibs/pmc_pew.t
+
+=head1 DESCRIPTION
+
+Test handling 3-arg C<pow> on PMCs.
+
+=cut
+
+.loadlib 'trans_ops'
+
+.sub main :main
+ .include 'test_more.pir'
+ .include 'iglobals.pasm'
+
+ plan (4)
+
+ # Don't check BigInt or BigNum without gmp
+ .local pmc interp # a handle to our interpreter object.
+ interp = getinterp
+ .local pmc config
+ config = interp[.IGLOBALS_CONFIG_HASH]
+ .local string gmp
+ gmp = config['gmp']
+
+ test_pow('Integer')
+ test_pow('Float')
+
+ if gmp goto do_big_ones
+ skip( 22, "will not test BigInt or BigNum without gmp" )
+ goto end
+
+ do_big_ones:
+ test_pow('BigInt')
+ test_pow('BigNum')
+
+ end:
+.end
+
+.sub test_pow
+ .param pmc type
+
+ $P0 = new type
+ $P0 = 40
+ $P1 = new type
+ $P1 = 2
+ $P2 = new type
+ $P2 = 115200
+
+ $P99 = $P2
+
+ $S0 = "original dest is untouched in pow for "
+ $S1 = type
+ concat $S0, $S1
+
+ # ignore exceptions
+ push_eh done
+ pow $P2, $P0, $P1
+
+ $I0 = cmp $P99, 115200
+
+ is( $I0, 0, $S0 )
+ goto end
+
+ done:
+ ok(1, 'ignoring exceptions')
+ end:
+.end
+
Copied: branches/gsoc_instrument/t/dynoplibs/string_pmc_bitwise.t (from r47107, trunk/t/dynoplibs/string_pmc_bitwise.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/string_pmc_bitwise.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/string_pmc_bitwise.t)
@@ -0,0 +1,304 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/dynoplibs/string_pmc_bitwise.t - Bitwise dynops on String PMC
+
+=head1 SYNOPSIS
+
+ % prove t/dynoplibs/string-pmc_bitwise.t
+
+=head1 DESCRIPTION
+
+Test C<bit_ops> dynops lib on C<String> PMC.
+
+=cut
+
+.loadlib 'bit_ops'
+
+.sub main :main
+ .include 'test_more.pir'
+
+ plan(47)
+
+ bands_null_string()
+ test_bands_2()
+ test_bands_3()
+ bors_null_string()
+ test_bors_2()
+ test_bors_3()
+ bxors_null_string()
+ bxors_2()
+ bxors_3()
+ bnots_null_string()
+.end
+
+.sub bands_null_string
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P3, ['String']
+
+ null $S1
+ set $P1, $S1
+
+ set $S2, "abc"
+ set $P2, $S2
+
+ bands $P1, $P2
+
+ null $S3
+ set $P3, $S3
+
+ is( $P1, $P3, 'band null, "abc" -> null' )
+
+ set $P1, ""
+ bands $P1, $P2
+ nok( $P1, 'band "", "abc" -> false' )
+
+ null $S2
+ set $P2, $S2
+ set $P1, "abc"
+
+ bands $P1, $P2
+
+ null $S3
+ set $P3, $S3
+
+ is( $P1, $P3, 'bands "abc", null -> null' )
+
+ set $P2, ""
+ bands $P1, $P2
+ nok( $P1, 'bans "abc", "" -> false' )
+
+.end
+
+.sub test_bands_2
+ new $P1, ['String']
+ new $P2, ['String']
+ set $P1, "abc"
+ set $P2, "EE"
+ bands $P1, $P2
+ is( $P1, "A@", 'bands "abc", "EE" -> "A@"' )
+ is( $P2, "EE", '$2 is unchanged' )
+.end
+
+.sub test_bands_3
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P0, ['String']
+ set $P1, "abc"
+ set $P2, "EE"
+ bands $P0, $P1, $P2
+ is( $P0, "A@", 'bands "abc", "EE" -> "A@"' )
+ is( $P1, "abc", '$2 is unchanged' )
+ is( $P2, "EE", '$3 is unchanged' )
+.end
+
+.sub bors_null_string
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P3, ['String']
+
+ null $S1
+ null $S2
+ set $P1, $S1
+ set $P2, $S2
+ bors $P1, $P2
+ null $S3
+ set $P3, $S3
+ is( $P1, $P3, 'bors null, null -> null' )
+
+ null $S1
+ set $P1, $S1
+ set $P2, ""
+ bors $P1, $P2
+ null $S3
+ set $P3, $S3
+ is( $P1, $P3, 'bors null, "" -> null' )
+
+ bors $P2, $P1
+ is( $P2, $P3, 'bors "", null -> null' )
+
+ null $S1
+ set $P1, $S1
+ set $P2, "def"
+ bors $P1, $P2
+ is( $P1, "def", 'bors null, "def" -> "def" / true' )
+
+ null $S2
+ set $P2, $S2
+ bors $P1, $P2
+ is( $P1, "def", 'bors "def", null -> "def" / true' )
+
+ null $S1
+ null $S2
+ set $P1, $S1
+ set $P2, $S2
+ bors $P3, $P1, $P2
+ null $S4
+ is( $P3, $S4, 'bors null, null -> null' )
+
+ set $P1, ""
+ bors $P3, $P1, $P2
+ is( $P3, $S4, 'bors "", null -> null' )
+
+ bors $P3, $P2, $P1
+ is( $P3, $S4, 'bors null, "" -> null' )
+
+ set $P1, "def"
+ bors $P3, $P1, $P2
+ is( $P3, "def", 'bors "def", null -> "def"' )
+
+ bors $P3, $P2, $P1
+ is( $P3, "def", 'bors null, "def" -> "def"' )
+.end
+
+.sub test_bors_2
+ new $P1, ['String']
+ new $P2, ['String']
+ set $P1, "abc"
+ set $P2, "EE"
+
+ bors $P1, $P2
+ is( $P1, "egc", 'bors "abc", "EE" -> "egc"' )
+ is( $P2, "EE", '$2 is unchanged' )
+.end
+
+.sub test_bors_3
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P0, ['String']
+ set $P1, "abc"
+ set $P2, "EE"
+
+ bors $P0, $P1, $P2
+ is( $P0, "egc", 'bors "abc", "EE" -> "egc"' )
+ is( $P1, "abc", '$2 unchanged' )
+ is( $P2, "EE", '$3 unchanged' )
+.end
+
+.sub bxors_null_string
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P3, ['String']
+ null $S1
+ null $S2
+ set $P1, $S1
+ set $P2, $S2
+ bxors $P1, $P2
+ null $S3
+ is( $P1, $S3, 'bxors null, null -> null' )
+
+ null $S1
+ set $P1, $S1
+ set $P2, ""
+ bxors $P1, $P2
+ null $S3
+ is( $P1, $S3, 'bxors null, "" -> null' )
+
+ bxors $P2, $P1
+ is( $S2, $S3, 'bxors "", null -> null' )
+
+ null $S1
+ set $P1, $S1
+ set $P2, "abc"
+ bxors $P1, $P2
+ is( $P1, "abc", 'bxors null, "abc" -> "abc"' )
+
+ null $S2
+ set $P2, $S2
+ bxors $P1, $P2
+ is( $P1, "abc", 'bxors "abc", "null, -> "abc"' )
+
+ null $S1
+ null $S2
+ set $P1, $S1
+ set $P2, $S2
+ bxors $P3, $P1, $P2
+ null $S4
+ is( $P3, $S4, 'bxors3 null, null -> null' )
+
+ set $P1, ""
+ bxors $P3, $P1, $P2
+ is( $P3, $S4, 'bxors3 "", null -> null' )
+
+ bxors $P3, $P2, $P1
+ is( $P3, $S4, 'bxors3 null, null -> null' )
+
+ set $P1, "abc"
+ bxors $P3, $P1, $P2
+ is( $P3, "abc", 'bxors3 "abc", null -> "abc"' )
+
+ bxors $P3, $P2, $P1
+ is( $P3, "abc", 'bxors3 null, "abc" -> "abc"' )
+.end
+
+.sub bxors_2
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P3, ['String']
+
+ set $P1, "a2c"
+ set $P2, "Dw"
+ bxors $P1, $P2
+ is( $P1, "%Ec", 'bxors "a2c", "Dw" -> "%Ec"' )
+ is( $P2, "Dw", '... $2 unchanged' )
+
+ set $P1, "abc"
+ set $P2, " X"
+ bxors $P1, $P2
+ is( $P1, "ABCX", 'bxors "abc", " X" -> "ABCX"' )
+ is( $P2, " X", '... $2 unchanged' )
+.end
+
+.sub bxors_3
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P0, ['String']
+
+ set $P1, "a2c"
+ set $P2, "Dw"
+ bxors $P0, $P1, $P2
+ is( $P0, "%Ec", 'bxors "a2c", "Dw" -> "%Ec"' )
+ is( $P1, "a2c", '... $2 unchanged' )
+ is( $P2, "Dw", '... $3 unchanged' )
+
+ set $P1, "abc"
+ set $P2, " Y"
+ bxors $P0, $P1, $P2
+ is( $P0, "ABCY", 'bxors "abc", " Y" -> "ABCY"' )
+ is( $P1, "abc", '... $2 unchanged' )
+ is( $P2, " Y", '... $3 unchanged' )
+.end
+
+.sub bnots_null_string
+ new $P1, ['String']
+ new $P2, ['String']
+ new $P3, ['String']
+
+ null $S1
+ null $S2
+ set $P1, $S1
+ set $P2, $S2
+ bnots $P1, $P2
+ null $S3
+ is( $P1, $S3, 'bnots null, null -> null' )
+
+ null $S1
+ set $P1, $S1
+ set $P2, ""
+ bnots $P1, $P2
+ null $S3
+ is( $P1, $S3, 'bnots null, "" -> null' )
+
+ bnots $P2, $P1
+ is( $S2, $S3, 'bnots "", null -> null' )
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Copied: branches/gsoc_instrument/t/dynoplibs/sysinfo.t (from r47107, trunk/t/dynoplibs/sysinfo.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/sysinfo.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/sysinfo.t)
@@ -0,0 +1,191 @@
+#!perl
+# Copyright (C) 2008-2010, Parrot Foundation.
+# $Id$
+
+# initial work by Brad Gilbert b2gills <at> gmail <dot> com
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+
+use Test::More;
+use Config;
+
+use Parrot::Test tests => 14;
+use Parrot::Config;
+
+
+=head1 NAME
+
+t/op/sysinfo.t - System Info
+
+=head1 SYNOPSIS
+
+ % prove t/op/sysinfo.t
+
+=head1 DESCRIPTION
+
+Tests for basic system information.
+
+=over 4
+
+=item 1 The size of a platform integer
+
+=item 2 The size of a platform float
+
+=item 3 The size of a platform pointer. (Largest possible data pointer)
+
+=item 4 The OS name
+
+=item 5 The OS version string
+
+=item 6 The OS version number string
+
+=item 7 The CPU architecture
+
+=item 8 The CPU model
+
+=item 9, 10 The min and max INTVAL values
+
+=back
+
+=cut
+
+
+my @setup = (
+ { pconfig_key => 'intvalsize',
+ pasm_key => 1,
+ pir_key => 'SYSINFO_PARROT_INTSIZE',
+ desc => 'integer size',
+ reg_type => 'I',
+ },
+ { pconfig_key => 'doublesize',
+ pasm_key => 2,
+ pir_key => 'SYSINFO_PARROT_FLOATSIZE',
+ desc => 'float size',
+ reg_type => 'I',
+ },
+ { pconfig_key => 'ptrsize',
+ pasm_key => 3,
+ pir_key => 'SYSINFO_PARROT_POINTERSIZE',
+ desc => 'pointer size',
+ reg_type => 'I',
+ },
+ { pconfig_key => 'osname',
+ pasm_key => 4,
+ pir_key => 'SYSINFO_PARROT_OS',
+ desc => 'osname',
+ reg_type => 'S',
+ },
+ { pconfig_key => 'cpuarch',
+ pasm_key => 7,
+ pir_key => 'SYSINFO_CPU_ARCH',
+ desc => 'CPU Arch Family',
+ reg_type => 'S',
+ },
+);
+
+foreach ( @setup ) {
+ if ( $_->{reg_type} eq 'I' ) {
+ pasm_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "PASM sysinfo $_->{desc}" );
+ .loadlib 'sys_ops'
+ sysinfo_i_ic I1, $_->{pasm_key}
+ print I1
+end
+CODE
+ pir_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "PIR sysinfo $_->{desc}" );
+.loadlib 'sys_ops'
+.include 'sysinfo.pasm'
+.sub main :main
+ \$I0 = sysinfo .$_->{pir_key}
+ print \$I0
+.end
+CODE
+ }
+ else {
+ pasm_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "sysinfo $_->{desc}" );
+ .loadlib 'sys_ops'
+ sysinfo_s_ic S1, $_->{pasm_key}
+ print S1
+end
+CODE
+ pir_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "PIR sysinfo $_->{desc}" );
+.loadlib 'sys_ops'
+.include 'sysinfo.pasm'
+.sub main :main
+ \$S0 = sysinfo .$_->{pir_key}
+ print \$S0
+.end
+CODE
+ }
+}
+
+SKIP:
+{
+ $PConfig{osname} eq 'MSWin32'
+ or skip "Tests only meaningful on Win32", 2;
+ SKIP:
+ {
+ eval { require Win32; } or
+ skip "requires package Win32 for these tests", 2;
+
+ my $osname = Win32::GetOSName();
+ $osname = 'WinXP' if $osname =~ m/^WinXP/;
+ TODO: {
+ local $TODO = "Not Currently Implemented";
+ pasm_output_is( <<'CODE', $osname, "sysinfo OS version string" );
+ .loadlib 'sys_ops'
+ sysinfo_s_ic S1, 5
+ print S1
+end
+CODE
+
+ my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();
+
+ pasm_output_is( <<'CODE', "$major.$minor", "sysinfo OS version number string" );
+ .loadlib 'sys_ops'
+ sysinfo_s_ic S1, 6
+ print S1
+end
+CODE
+ } # END todo block
+ } # END inner SKIP block
+} # END outer SKIP block
+
+SKIP:
+{
+ skip "Requires a lot of work to find out the correct answer", 1;
+
+ pasm_output_is( <<'CODE', $PConfig{archname}, "sysinfo CPU Model" );
+ .loadlib 'sys_ops'
+ sysinfo_s_ic S1, 8
+ print S1
+end
+CODE
+}
+
+# 9, 10
+
+SKIP:
+{
+ skip 'Testing only in some known platforms', 1
+ unless $PConfig{osname} eq 'linux';
+
+ pir_output_like( <<'CODE', '/^-[1-9][0-9]*\n[1-9][0-9]*\n$/', 'INTVAL min and max values');
+.loadlib 'sys_ops'
+.include 'sysinfo.pasm'
+.sub main :main
+ $I0 = sysinfo .SYSINFO_PARROT_INTMIN
+ say $I0
+ $I0 = sysinfo .SYSINFO_PARROT_INTMAX
+ say $I0
+.end
+CODE
+}
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Copied: branches/gsoc_instrument/t/dynoplibs/time.t (from r47107, trunk/t/dynoplibs/time.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/time.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/time.t)
@@ -0,0 +1,89 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/dynoplibs/time.t - Time Dynops
+
+=cut
+
+.loadlib 'sys_ops'
+
+.sub main :main
+ .include 'test_more.pir'
+
+ plan(10)
+
+ test_gmtime_s_i()
+ test_time_n_vs_time_i()
+ test_decodetime_p_i()
+ test_localtime_s_i()
+ test_decodelocaltime_p_i()
+.end
+
+.sub test_gmtime_s_i
+ $S0 = gmtime 0
+ $I0 = isnull $S0
+ is($I0, 0, "gmtime string is not null")
+ is($S0, "Thu Jan 1 00:00:00 1970\n", "correct epoch")
+ $I1 = length $S0
+ is($I1, 25, "string is the correct length")
+.end
+
+.sub test_time_n_vs_time_i
+ .local int time_int
+ time_int = time
+
+ .local num time_float
+ time_float = time
+
+ # check if time_float is within [time_int - 5;time_int + 5]
+ .local int time_int_lower
+ time_int_lower = time_int - 5
+ if time_float < time_int_lower goto FAIL
+ .local int time_int_upper
+ time_int_upper = time_int + 5
+ if time_float > time_int_upper goto FAIL
+
+ ok(1, "time_n value corresponds to time_i value")
+ .return()
+
+ FAIL:
+ ok(0, "time_n value does not correspond to time_t value")
+ .return()
+.end
+
+.sub test_decodetime_p_i
+ $P0 = decodetime 0
+ $I0 = $P0
+ is($I0, 9, "decodetime result has 9 values")
+ $S0 = typeof $P0
+ # TODO: Actually, this should return whatever HLL type replaces
+ # FixedIntegerArray. We should test this behavior with a new HLL
+ is($S0, "FixedIntegerArray", "decodetime returns the correct PMC type")
+.end
+
+.sub test_localtime_s_i
+ $S0 = localtime 0
+ $I0 = isnull $S0
+ is($I0, 0, "localtime string is not a null string")
+ $I0 = length $S0
+ is($I0, 25, "localtime string is the correct length")
+.end
+
+.sub test_decodelocaltime_p_i
+ $P0 = decodelocaltime 0
+ $I0 = $P0
+ is($I0, 9, "decodelocaltime result has 9 values")
+ $S0 = typeof $P0
+ # TODO: Actually, this should return whatever HLL type replaces
+ # FixedIntegerArray. We should test this behavior with a new HLL
+ is($S0, "FixedIntegerArray", "decodelocaltime returns the correct PMC type")
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Copied: branches/gsoc_instrument/t/dynoplibs/time_old.t (from r47107, trunk/t/dynoplibs/time_old.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/time_old.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/time_old.t)
@@ -0,0 +1,47 @@
+#!perl
+# Copyright (C) 2001-2009, Parrot Foundation.
+# $Id: time_old.t 47051 2010-05-27 08:45:23Z plobsing $
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 1;
+
+=head1 NAME
+
+t/op/time.t - Time and Sleep
+
+=head1 SYNOPSIS
+
+ % prove t/op/time.t
+
+=head1 DESCRIPTION
+
+Tests the C<time> and C<sleep> operations.
+
+=cut
+
+my $year;
+( undef, undef, undef, undef, undef, $year ) = localtime();
+$year += 1900;
+
+# don't run this test 1 tick before the year changes #'
+
+pasm_output_is( <<'CODE', $year, "decodelocaltime" );
+.loadlib 'sys_ops'
+ time I0
+ decodelocaltime P0, I0
+ .include "tm.pasm"
+ set I0, P0[.TM_YEAR]
+ print I0
+ end
+CODE
+
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Copied: branches/gsoc_instrument/t/dynoplibs/trans-infnan.t (from r47107, trunk/t/dynoplibs/trans-infnan.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/trans-infnan.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/trans-infnan.t)
@@ -0,0 +1,332 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/dynoplibs/trans-infnan.t - Test Trans Dynops
+
+=head1 SYNOPSIS
+
+ %prove t/dynoplibs/trans-infnan.t
+
+=head1 DESCRIPTION
+
+Tests for C<Inf> and C<NaN> handling of transcendental ops in the C<trans_ops> dynlib.
+
+=cut
+
+.loadlib 'trans_ops'
+
+.sub main :main
+ .include 'test_more.pir'
+ plan(67)
+
+ test_exp()
+ test_sin()
+ test_sinh()
+ test_asin()
+ test_cos()
+ test_cosh()
+ test_acos()
+ test_tan()
+ test_tanh()
+ test_atan()
+ test_cot()
+ test_coth()
+ test_acot()
+ test_sec()
+ test_sech()
+ test_asec()
+ test_ln()
+ test_log10()
+ test_log2()
+ test_pow()
+.end
+
+.sub test_exp
+ $N0 = 'Inf'
+ $N1 = exp $N0
+ is($N1, 'Inf', 'exp: exp Inf')
+ $N0 = '-Inf'
+ $N1 = exp $N0
+ is($N1, 0, '... exp -Inf')
+ $N0 = 'NaN'
+ $N1 = exp $N0
+ is($N1, 'NaN', '... exp NaN')
+.end
+
+.sub test_sin
+ $N0 = 'Inf'
+ $N1 = sin $N0
+ is($N1, 'NaN', 'sin: sin Inf')
+ $N0 = '-Inf'
+ $N1 = sin $N0
+ is($N1, 'NaN', '... sin -Inf')
+ $N0 = 'NaN'
+ $N1 = sin $N0
+ is($N1, 'NaN', '... sin NaN')
+.end
+
+.sub test_sinh
+ $N0 = 'Inf'
+ $N1 = sinh $N0
+ is($N1, 'Inf', 'sinh: sinh Inf')
+ $N0 = '-Inf'
+ $N1 = sinh $N0
+ is($N1, '-Inf', '... sinh -Inf')
+ $N0 = 'NaN'
+ $N1 = sinh $N0
+ is($N1, 'NaN', '... sinh NaN')
+.end
+
+.sub test_asin
+ $N0 = 'Inf'
+ $N1 = asin $N0
+ is($N1, 'NaN', 'asin: asin Inf')
+ $N0 = '-Inf'
+ $N1 = asin $N0
+ is($N1, 'NaN', '... asin -Inf')
+ $N0 = 'NaN'
+ $N1 = asin $N0
+ is($N1, 'NaN', '... asin NaN')
+ $N0 = '-2'
+ $N1 = asin $N0
+ is($N1, 'NaN', '... asin -2')
+ $N0 = '2'
+ $N1 = asin $N0
+ is($N1, 'NaN', '... asin 2')
+.end
+
+.sub test_acos
+ $N0 = 'Inf'
+ $N1 = acos $N0
+ is($N1, 'NaN', 'acos: acos Inf')
+ $N0 = '-Inf'
+ $N1 = acos $N0
+ is($N1, 'NaN', '... acos -Inf')
+ $N0 = 'NaN'
+ $N1 = acos $N0
+ is($N1, 'NaN', '... acos NaN')
+ $N0 = '-2'
+ $N1 = acos $N0
+ is($N1, 'NaN', '... acos -2')
+ $N0 = '2'
+ $N1 = acos $N0
+ is($N1, 'NaN', '... acos 2')
+.end
+
+.sub test_cosh
+ $N0 = 'Inf'
+ $N1 = cosh $N0
+ is($N1, 'Inf', 'cosh: cosh Inf')
+ $N0 = '-Inf'
+ $N1 = cosh $N0
+ is($N1, 'Inf', '... cosh -Inf')
+ $N0 = 'NaN'
+ $N1 = cosh $N0
+ is($N1, 'NaN', '... cosh NaN')
+.end
+
+.sub test_cos
+ $N0 = 'Inf'
+ $N1 = cos $N0
+ is($N1, 'NaN', 'cos: cos Inf')
+ $N0 = '-Inf'
+ $N1 = cos $N0
+ is($N1, 'NaN', '... cos -Inf')
+ $N0 = 'NaN'
+ $N1 = cos $N0
+ is($N1, 'NaN', '... cos NaN')
+.end
+
+.sub test_tan
+ $N0 = 'Inf'
+ $N1 = tan $N0
+ is($N1, 'NaN', 'tan: tan Inf')
+ $N0 = '-Inf'
+ $N1 = tan $N0
+ is($N1, 'NaN', '... tan -Inf')
+ $N0 = 'NaN'
+ $N1 = tan $N0
+ is($N1, 'NaN', '... tan NaN')
+.end
+
+.sub test_tanh
+ $N0 = 'Inf'
+ $N1 = tanh $N0
+ is($N1, 1, 'tanh: tanh Inf')
+ $N0 = '-Inf'
+ $N1 = tanh $N0
+ is($N1, -1, '... tanh -Inf')
+ $N0 = 'NaN'
+ $N1 = tanh $N0
+ is($N1, 'NaN', '... tanh NaN')
+.end
+
+.sub test_atan
+ $N0 = 'Inf'
+ $N1 = atan $N0
+ $P1 = new 'Float'
+ $P1 = $N1
+ is($P1, 1.5707963, 'atan: atan Inf',1e-6)
+
+ $N0 = '-Inf'
+ $N1 = atan $N0
+ $P1 = new 'Float'
+ $P1 = $N1
+ is($P1, -1.5707963, '... atan -Inf',1e-6)
+
+ $N0 = 'NaN'
+ $N1 = atan $N0
+ is($N1, 'NaN', '... atan NaN')
+.end
+
+.sub test_coth
+ $N0 = 'Inf'
+ #$N1 = coth $N0
+ #is($N1, 1, 'coth: coth Inf')
+ todo(0, 'coth Inf', 'cot/coth/acot not implemented for real numbers')
+ $N0 = '-Inf'
+ #$N1 = coth $N0
+ #is($N1, -1, '... coth -Inf')
+ todo(0, 'coth -Inf', 'cot/coth/acot not implemented for real numbers')
+ $N0 = 'NaN'
+ #$N1 = coth $N0
+ #is($N1, 'NaN', '... coth NaN')
+ todo(0, 'coth NaN', 'cot/coth/acot not implemented for real numbers')
+.end
+
+.sub test_acot
+ $N0 = 'Inf'
+ #$N1 = acot $N0
+ #is($N1, 'NaN', 'acot: acot Inf')
+ todo(0, 'acot Inf', 'cot/coth/acot not implemented for real numbers')
+ $N0 = '-Inf'
+ #$N1 = acot $N0
+ #is($N1, 'NaN', '... acot -Inf')
+ todo(0, 'acot -Inf', 'cot/coth/acot not implemented for real numbers')
+ $N0 = 'NaN'
+ #$N1 = acot $N0
+ #is($N1, 'NaN', '... acot NaN')
+ todo(0, 'acot NaN', 'cot/coth/acot not implemented for real numbers')
+ $N0 = '-2'
+ #$N1 = acot $N0
+ #is($N1, 'NaN', '... acot -2')
+ todo(0, 'acot -2', 'cot/coth/acot not implemented for real numbers')
+ $N0 = '2'
+ #$N1 = acot $N0
+ #is($N1, 'NaN', '... acot 2')
+ todo(0, 'acot 2', 'cot/coth/acot not implemented for real numbers')
+.end
+
+.sub test_sec
+ $N0 = 'Inf'
+ $N1 = sec $N0
+ is($N1, 'NaN', 'sec: sec Inf')
+ $N0 = '-Inf'
+ $N1 = sec $N0
+ is($N1, 'NaN', '... sec -Inf')
+ $N0 = 'NaN'
+ $N1 = sec $N0
+ is($N1, 'NaN', '... sec NaN')
+.end
+
+.sub test_sech
+ $N0 = 'Inf'
+ $N1 = sech $N0
+ is($N1, 0, 'sech: sech Inf')
+ $N0 = '-Inf'
+ $N1 = sech $N0
+ is($N1, 0, '... sech -Inf')
+ $N0 = 'NaN'
+ $N1 = sech $N0
+ is($N1, 'NaN', '... sech NaN')
+.end
+
+.sub test_asec
+ $N0 = 'Inf'
+ $N1 = asec $N0
+ $P1 = new 'Float'
+ $P1 = $N1
+ is($P1, 1.5707963, 'asec: asec Inf',1e-6)
+ $N0 = '-Inf'
+ $N1 = asec $N0
+ $P1 = $N1
+ is($P1, 1.5707963, '... asec -Inf',1e-6)
+ $N0 = 'NaN'
+ $N1 = asec $N0
+ is($N1, 'NaN', 'asec NaN')
+.end
+
+.sub test_ln
+ $N0 = 'Inf'
+ $N1 = ln $N0
+ is($N1, 'Inf', 'ln: ln Inf')
+ $N0 = '-Inf'
+ $N1 = ln $N0
+ is($N1, 'NaN', '... ln Inf')
+ $N0 = 'NaN'
+ $N1 = ln $N0
+ is($N1, 'NaN', '... ln NaN')
+.end
+
+.sub test_log10
+ $N0 = 'Inf'
+ $N1 = log10 $N0
+ is($N1, 'Inf', 'log10: log10 Inf')
+ $N0 = '-Inf'
+ $N1 = log10 $N0
+ is($N1, 'NaN', '... log10 -Inf')
+ $N0 = 'NaN'
+ $N1 = log10 $N0
+ is($N1, 'NaN', '... log10 NaN')
+.end
+
+.sub test_log2
+ $N0 = 'Inf'
+ $N1 = log2 $N0
+ is($N1, 'Inf', 'log2: log2 Inf')
+ $N0 = '-Inf'
+ $N1 = log2 $N0
+ is($N1, 'NaN', '... log2 -Inf')
+ $N0 = 'NaN'
+ $N1 = log2 $N0
+ is($N1, 'NaN', '... log2 -Inf')
+.end
+
+
+.sub test_cot
+ $N0 = 'Inf'
+ #$N1 = cot $N0
+ #is($N1, 'NaN', 'cot: cot Inf')
+ todo(0, 'cot Inf', 'cot/coth/acot not implemented for real numbers')
+ $N0 = '-Inf'
+ #$N1 = cot $N0
+ #is($N1, 'NaN', '... cot -Inf')
+ todo(0, 'cot -Inf', 'cot/coth/acot not implemented for real numbers')
+ $N0 = 'NaN'
+ #$N1 = cot $N0
+ #is($N1, 'NaN', '... cot NaN')
+ todo(0, 'cot NaN', 'cot/coth/acot not implemented for real numbers')
+.end
+
+.sub test_pow
+ $N0 = 'Inf'
+ pow $N1, $N0, 2
+ is($N1, 'Inf', 'pow: Inf ^ 2')
+ pow $N1, 2, $N0
+ is($N1, 'Inf', '...: 2 ^ Inf')
+ $N0 = 'NaN'
+ pow $N1, $N0, 2
+ is($N1, 'NaN', '...: NaN ^ 2')
+ pow $N1, 2, $N0
+ is($N1, 'NaN', '...: 2 ^ NaN')
+.end
+
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Copied: branches/gsoc_instrument/t/dynoplibs/trans-old.t (from r47107, trunk/t/dynoplibs/trans-old.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/trans-old.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/trans-old.t)
@@ -0,0 +1,565 @@
+#!perl
+# Copyright (C) 2001-2008, Parrot Foundation.
+# $Id$
+
+use strict;
+use warnings;
+use lib qw( . lib ../lib ../../lib );
+use Test::More;
+use Parrot::Test tests => 13;
+use Math::Trig qw( tan sec atan asin acos asec cosh sinh tanh sech );
+
+=head1 NAME
+
+t/op/trans.t - Transcendental Mathematical Ops
+
+=head1 SYNOPSIS
+
+ % prove t/op/trans.t
+
+=head1 DESCRIPTION
+
+Tests the transcendental mathematical operations.
+
+=cut
+
+# This defines two macros:
+# fp_eq N, N, LABEL
+# fp_ne N, N, LABEL
+# which will conditionally branch
+# to LABEL if abs(n,n) < epsilon
+
+pasm_output_is( <<"CODE", <<OUTPUT, "sinh" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 1.0
+ sinh N2, N1
+ .fp_eq_pasm (N2, 1.175201, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 1
+ sinh N2, I1
+ .fp_eq_pasm (N2, 1.175201, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "tanh" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 1.0
+ tanh N2, N1
+ .fp_eq_pasm (N2, 0.761594, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 1
+ tanh N2, I1
+ .fp_eq_pasm (N2, 0.761594, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "sech" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 1.0
+ sech N2, N1
+ .fp_eq_pasm (N2, 0.648054, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 1
+ sech N2, I1
+ .fp_eq_pasm (N2, 0.648054, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, 'atan2' );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N0, 0.0
+ set I0, 0
+ set N1, 1.0
+ set I1, 1
+ set N2, 1.0
+ set I2, 1
+ set I3, -1
+ set N3, -1.0
+
+ atan N4, N1, N2
+ .fp_eq_pasm (N4, 0.785398, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ atan N4, N1, I2
+ .fp_eq_pasm (N4, 0.785398, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ atan N4, I1, N2
+ .fp_eq_pasm (N4, 0.785398, EQ3)
+ print "not "
+EQ3: print "ok 3\\n"
+
+ atan N4, I1, I2
+ .fp_eq_pasm (N4, 0.785398, EQ4)
+ print "not "
+EQ4: print "ok 4\\n"
+
+ atan N4, N3, 1.0
+ .fp_eq_pasm (N4, -0.785398, EQ5)
+ print "not "
+EQ5: print "ok 5\\n"
+
+ atan N4, N1, 0
+ .fp_eq_pasm (N4, 1.570796, EQ6)
+ print "not "
+EQ6: print "ok 6\\n"
+
+ atan N4, I3, 0.0
+ .fp_eq_pasm (N4, -1.570796, EQ7)
+ print "not "
+EQ7: print "ok 7\\n"
+
+ atan N4, I3, -1
+ .fp_eq_pasm (N4, -2.356194, EQ8)
+ print "not "
+EQ8: print "ok 8\\n"
+
+ atan N4, 1.0, N3
+ .fp_eq_pasm (N4, 2.356194, EQ9)
+ print "not "
+EQ9: print "ok 9\\n"
+
+ atan N4, 1.0, I0
+ .fp_eq_pasm (N4, 1.570796, EQ10)
+ print "not "
+EQ10: print "ok 10\\n"
+
+ atan N4, 1, N1
+ .fp_eq_pasm (N4, 0.785398, EQ11)
+ print "not "
+EQ11: print "ok 11\\n"
+
+ atan N4, 1, I1
+ .fp_eq_pasm (N4, 0.785398, EQ12)
+ print "not "
+EQ12: print "ok 12\\n"
+
+ atan N4, 0.0, 1.0
+ .fp_eq_pasm (N4, 0.000000, EQ13)
+ print "not "
+EQ13: print "ok 13\\n"
+
+ atan N4, -1.0, 0
+ .fp_eq_pasm (N4, -1.570796, EQ14)
+ print "not "
+EQ14: print "ok 14\\n"
+
+ atan N4, 1, -1.0
+ .fp_eq_pasm (N4, 2.356194, EQ15)
+ print "not "
+EQ15: print "ok 15\\n"
+
+ atan N4, 0, 1
+ .fp_eq_pasm (N4, 0.000000, EQ16)
+ print "not "
+EQ16: print "ok 16\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+ok 6
+ok 7
+ok 8
+ok 9
+ok 10
+ok 11
+ok 12
+ok 13
+ok 14
+ok 15
+ok 16
+OUTPUT
+
+pasm_output_is( <<"CODE", <<'OUTPUT', 'atan, part 2' );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ atan N4, -0.0, -0.0
+ .fp_eq_pasm (N4, -3.1415926, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+ end
+CODE
+ok 1
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "log2" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 10.0
+ log2 N2, N1
+ .fp_eq_pasm (N2, 3.321928, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 10
+ log2 N2, I1
+ .fp_eq_pasm (N2, 3.321928, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "log10" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 15.0
+ log10 N2, N1
+ .fp_eq_pasm (N2, 1.176091, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 15
+ log10 N2, I1
+ .fp_eq_pasm (N2, 1.176091, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "ln" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 10.0
+ ln N2, N1
+ .fp_eq_pasm (N2, 2.302585, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 10
+ ln N2, I1
+ .fp_eq_pasm (N2, 2.302585, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "exp" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 10.0
+ exp N2, N1
+ .fp_eq_pasm (N2, 22026.465795, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 10
+ exp N2, I1
+ .fp_eq_pasm (N2, 22026.465795, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "pow" );
+ .loadlib 'trans_ops'
+ .include 'fp_equality.pasm'
+ set N1, 3.0
+ set I1, 3
+ set N2, 5.0
+ set I2, 5
+ pow N3, N1, N2
+ .fp_eq_pasm (N3, 243.0, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ pow N3, N1, I2
+ .fp_eq_pasm (N3, 243.0, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ pow N3, I1, N2
+ .fp_eq_pasm (N3, 243.0, EQ3)
+ print "not "
+EQ3: print "ok 3\\n"
+
+ pow N3, I1, I2
+ .fp_eq_pasm (N3, 243.0, EQ4)
+ print "not "
+EQ4: print "ok 4\\n"
+
+ set N0, 0.0
+ set I0, 0
+ set N1, 1.0
+ set I1, 1
+ set N2, 4.0
+ set I2, 4
+ pow N3, N2, 2.5
+ .fp_eq_pasm (N3, 32.0, EQ5)
+ print "not "
+EQ5: print "ok 5\\n"
+
+ pow N3, N2, -2
+ .fp_eq_pasm (N3, 0.0625, EQ6)
+ print "not "
+EQ6: print "ok 6\\n"
+
+ pow N3, I2, 0.5
+ .fp_eq_pasm (N3, 2.0, EQ7)
+ print "not "
+EQ7: print "ok 7\\n"
+
+ pow N3, I2, 0
+ .fp_eq_pasm (N3, 1.0, EQ8)
+ print "not "
+EQ8: print "ok 8\\n"
+
+ pow N3, 0.0, N2
+ .fp_eq_pasm (N3, 0.0, EQ9)
+ print "not "
+EQ9: print "ok 9\\n"
+
+ pow N3, 2.5, 0.0
+ .fp_eq_pasm (N3, 1.0, EQ10)
+ print "not "
+EQ10: print "ok 10\\n"
+
+ pow N3, 2.5, I2
+ .fp_eq_pasm (N3, 39.0625, EQ11)
+ print "not "
+EQ11: print "ok 11\\n"
+
+ pow N3, 2.0, -4
+ .fp_eq_pasm (N3, 0.0625, EQ12)
+ print "not "
+EQ12: print "ok 12\\n"
+
+ pow N3, 0, N2
+ .fp_eq_pasm (N3, 0.0, EQ13)
+ print "not "
+EQ13: print "ok 13\\n"
+
+ pow N3, 4, -0.5
+ .fp_eq_pasm (N3, 0.5, EQ14)
+ print "not "
+EQ14: print "ok 14\\n"
+
+ pow N3, 4, I2
+ .fp_eq_pasm (N3, 256.0, EQ15)
+ print "not "
+EQ15: print "ok 15\\n"
+
+ pow N3, 4, -1
+ .fp_eq_pasm (N3, 0.25, EQ16)
+ print "not "
+EQ16: print "ok 16\\n"
+ end
+CODE
+ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+ok 6
+ok 7
+ok 8
+ok 9
+ok 10
+ok 11
+ok 12
+ok 13
+ok 14
+ok 15
+ok 16
+OUTPUT
+
+pasm_output_is( <<"CODE", <<OUTPUT, "sqrt" );
+ .include 'fp_equality.pasm'
+ set N1, 9.0
+ sqrt N2, N1
+ .fp_eq_pasm (N2, 3.0, EQ1)
+ print "not "
+EQ1: print "ok 1\\n"
+
+ set I1, 9
+ sqrt N2, I1
+ .fp_eq_pasm (N2, 3.0, EQ2)
+ print "not "
+EQ2: print "ok 2\\n"
+
+ end
+CODE
+ok 1
+ok 2
+OUTPUT
+
+pasm_output_is( <<'CODE', <<OUTPUT, "pow_n_n_ic" );
+ .loadlib 'trans_ops'
+ set N0, 2.0
+ pow N1, N0, 0
+ print N1
+ print "\n"
+ pow N1, N0, 1
+ print N1
+ print "\n"
+ pow N1, N0, 2
+ print N1
+ print "\n"
+ pow N1, N0, 3
+ print N1
+ print "\n"
+ pow N1, N0, 4
+ print N1
+ print "\n"
+ pow N1, N0, 5
+ print N1
+ print "\n"
+ pow N1, N0, 6
+ print N1
+ print "\n"
+ pow N1, N0, 7
+ print N1
+ print "\n"
+ pow N1, N0, -1
+ print N1
+ print "\n"
+ pow N1, N0, -2
+ print N1
+ print "\n"
+ pow N1, N0, -3
+ print N1
+ print "\n"
+ pow N1, N0, -4
+ print N1
+ print "\n"
+ pow N1, N0, -5
+ end
+CODE
+1
+2
+4
+8
+16
+32
+64
+128
+0.5
+0.25
+0.125
+0.0625
+OUTPUT
+
+pasm_output_is( <<'CODE', <<OUTPUT, "pow_n_n_i" );
+ .loadlib 'trans_ops'
+ set N0, 2.0
+ set I0, 0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ inc I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ inc I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ inc I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ inc I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ inc I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ inc I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ set I0, -1
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ dec I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ dec I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ dec I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ dec I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ dec I0
+ pow N1, N0, I0
+ print N1
+ print "\n"
+ end
+CODE
+1
+2
+4
+8
+16
+32
+64
+0.5
+0.25
+0.125
+0.0625
+0.03125
+0.015625
+OUTPUT
+
+# Local Variables:
+# mode: cperl
+# cperl-indent-level: 4
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
Copied: branches/gsoc_instrument/t/dynoplibs/trans.t (from r47107, trunk/t/dynoplibs/trans.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/dynoplibs/trans.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/dynoplibs/trans.t)
@@ -0,0 +1,314 @@
+#!./parrot
+# Copyright (C) 2001-2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/op/trans.t - Trancendental Mathematical Ops
+
+=head1 SYNOPSIS
+
+ % prove t/op/trans.t
+
+=head1 DESCRIPTION
+
+Tests various transcendental operations
+
+=cut
+
+.loadlib 'trans_ops'
+
+.sub main :main
+ .include 'test_more.pir'
+ .local num epsilon
+ epsilon = _epsilon()
+
+ plan(69)
+
+ test_sin_n(epsilon)
+ test_sin_i(epsilon)
+ test_cos_n(epsilon)
+ test_cos_i(epsilon)
+ test_tan_n(epsilon)
+ test_tan_i(epsilon)
+ test_sec_n(epsilon)
+ test_sec_i(epsilon)
+ test_atan_n(epsilon)
+ test_atan_i(epsilon)
+ test_asin_n(epsilon)
+ test_asin_i(epsilon)
+ test_acos_n(epsilon)
+ test_acos_i(epsilon)
+ test_asec_n(epsilon)
+ test_asec_i(epsilon)
+ test_cosh_n(epsilon)
+ test_cosh_i(epsilon)
+ integer_overflow_with_pow()
+ e_raised_pi_time_i__plus_1_equal_0()
+.end
+
+.sub _pi
+ .return (3.1415926535897)
+.end
+
+.sub _e
+ .return (2.7182818459045)
+.end
+
+.sub _epsilon
+ .return (0.0001)
+.end
+
+.sub test_sin_n
+ .param num epsilon
+
+ $N0 = sin 0.0
+ is($N0, 0.0, "sin(0.0)", epsilon)
+
+ $N0 = sin 1.0
+ is($N0, 0.841471, "sin(1.0)", epsilon)
+
+ $N1 = _pi()
+ $N0 = sin $N1
+ is($N0, 0.0, "sin(pi)", epsilon)
+
+ $N1 = _pi()
+ $N1 = $N1 / 2
+ $N0 = sin $N1
+ is($N0, 1.0, "sin(pi/2)", epsilon)
+.end
+
+.sub test_sin_i
+ .param num epsilon
+
+ $N0 = sin 0
+ is($N0, 0.0, "sin(0)", epsilon)
+
+ $N0 = sin 1
+ is($N0, 0.841471, "sin(1)", epsilon)
+.end
+
+.sub test_cos_n
+ .param num epsilon
+
+ $N0 = cos 0.0
+ is($N0, 1.0, "cos(0.0)", epsilon)
+
+ $N0 = cos 1.0
+ is($N0, 0.540302, "cos(1.0)", epsilon)
+
+ $N1 = _pi()
+ $N0 = cos $N1
+ is($N0, -1.0, "cos(pi)", epsilon)
+
+ $N1 = _pi()
+ $N1 = $N1 / 2
+ $N0 = cos $N1
+ is($N0, 0.0, "cos(pi/2)", epsilon)
+.end
+
+.sub test_cos_i
+ .param num epsilon
+
+ $N0 = cos 0
+ is($N0, 1.0, "cos(0)", epsilon)
+
+ $N0 = cos 1
+ is($N0, 0.540302, "cos(1)", epsilon)
+.end
+
+.sub test_tan_n
+ .param num epsilon
+
+ $N0 = tan 0.0
+ is($N0, 0.0, "tan(0.0)", epsilon)
+
+ $N0 = tan 1.0
+ is($N0, 1.557408, "tan(1.0)", epsilon)
+.end
+
+.sub test_tan_i
+ .param num epsilon
+
+ $N0 = tan 0
+ is($N0, 0.0, "tan(0)", epsilon)
+
+ $N0 = tan 1
+ is($N0, 1.557408, "tan(1)", epsilon)
+.end
+
+.sub test_sec_n
+ .param num epsilon
+
+ $N1 = 1.0
+ $N2 = sec $N1
+ is($N2, 1.850816, "sec(1.0)", epsilon)
+.end
+
+.sub test_sec_i
+ .param num epsilon
+
+ $I1 = 1
+ $N1 = sec $I1
+ is($N1, 1.850816, "sec(1)", epsilon)
+.end
+
+.sub test_atan_n
+ .param num epsilon
+
+ $N1 = 1.0
+ $N2 = atan $N1
+ is($N2, 0.785398, "atan(1.0)", epsilon)
+.end
+
+.sub test_atan_i
+ .param num epsilon
+
+ $I1 = 1
+ $N1 = atan $I1
+ is($N1, 0.785398, "atan(1)", epsilon)
+.end
+
+.sub test_asin_n
+ .param num epsilon
+ .local num pi2
+ pi2 = _pi()
+ pi2 /= 2
+
+ $N1 = 1.0
+ $N2 = asin $N1
+ is($N2, pi2, "asin(1.0)", epsilon)
+.end
+
+.sub test_asin_i
+ .param num epsilon
+ .local num pi2
+ pi2 = _pi()
+ pi2 /= 2
+
+ $I1 = 1
+ $N1 = asin $I1
+ is($N1, pi2, "asin(1)", epsilon)
+.end
+
+.sub test_acos_n
+ .param num epsilon
+
+ $N1 = 1.0
+ $N2 = acos $N1
+ is($N2, 0.0, "acos(1.0)", epsilon)
+.end
+
+.sub test_acos_i
+ .param num epsilon
+
+ $I1 = 1
+ $N1 = acos $I1
+ is($N1, 0.0, "acos(1)", epsilon)
+.end
+
+.sub test_asec_n
+ .param num epsilon
+
+ $N1 = 1.0
+ $N2 = asec $N1
+ is($N2, 0.0, "asec(1.0)", epsilon)
+.end
+
+.sub test_asec_i
+ .param num epsilon
+
+ $I1 = 1
+ $N1 = asec $I1
+ is($N1, 0.0, "asec(1)", epsilon)
+.end
+
+.sub test_cosh_n
+ .param num epsilon
+ .local num result
+
+ $N1 = 1.0
+ $N2 = cosh $N1
+ is($N2, 1.543081, "cosh(1.0)", epsilon)
+.end
+
+.sub test_cosh_i
+ .param num epsilon
+
+ $I1 = 1
+ $N1 = cosh $I1
+ is($N1, 1.543081, "cosh(1)", epsilon)
+.end
+
+.sub integer_overflow_with_pow
+ .include "iglobals.pasm"
+
+ # Check that we aren't 32-bit INTVALs without GMP
+ .local pmc interp # a handle to our interpreter object.
+ interp = getinterp
+ .local pmc config
+ config = interp[.IGLOBALS_CONFIG_HASH]
+ .local int intvalsize
+ intvalsize = config['intvalsize']
+ .local int gmp
+ gmp = config['gmp']
+
+ if intvalsize != 4 goto can_test
+ if gmp goto can_test
+ skip(40,'No integer overflow for 32-bit INTVALs without GMP installed')
+ goto end
+
+ can_test:
+
+ .local pmc i1, i2, r
+ i1 = new 'Integer'
+ i2 = new 'Integer'
+ i1 = 2
+ i2 = 1
+ $I1 = 1
+ next:
+ null r
+ r = pow i1, i2
+ $S0 = r
+
+ $I1 = $I1 * 2
+ is( $S0, $I1, 'integer_overflow_with_pow' )
+
+ inc i2
+# XXX: this must be extended to at least 64 bit range
+# when sure that the result is not floating point.
+# In the meantime, make sure it overflows nicely
+# on 32 bit.
+ unless i2 > 40 goto next
+
+ end:
+.end
+
+.macro sprintf_is(fmt, number, message)
+ c = .number
+ $S0 = sprintf .fmt, c
+ $S1 = .message
+ is( $S0, $S1, $S1 )
+.endm
+
+.sub e_raised_pi_time_i__plus_1_equal_0
+ .local pmc c, c2, c3
+ c = new ['Complex']
+ c2 = new ['Complex']
+ c3 = new ['Complex']
+ # e^(pi * i) + 1 = 0
+ $N0 = atan 1
+ $N0 *= 4
+ c[0] = 0.0
+ c[1] = $N0
+ c2 = c.'exp'()
+ c2 += 1.0
+ .sprintf_is( "%.3f%+.3fi", c2, "0.000+0.000i" )
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
+
Modified: branches/gsoc_instrument/t/dynpmc/gziphandle.t
==============================================================================
--- branches/gsoc_instrument/t/dynpmc/gziphandle.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/dynpmc/gziphandle.t Sat May 29 11:56:49 2010 (r47109)
@@ -16,6 +16,8 @@
=cut
+.loadlib 'io_ops'
+
.sub 'main' :main
.include 'test_more.pir'
.include 'iglobals.pasm'
Modified: branches/gsoc_instrument/t/dynpmc/os.t
==============================================================================
--- branches/gsoc_instrument/t/dynpmc/os.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/dynpmc/os.t Sat May 29 11:56:49 2010 (r47109)
@@ -295,6 +295,7 @@
open my $FILE, ">", "____some_test_file";
close $FILE;
pir_output_is( <<'CODE', <<"OUT", 'Test OS.rename' );
+.loadlib 'io_ops'
.sub main :main
$P0 = loadlib 'os'
$P1 = new ['OS']
Modified: branches/gsoc_instrument/t/examples/pir.t
==============================================================================
--- branches/gsoc_instrument/t/examples/pir.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/examples/pir.t Sat May 29 11:56:49 2010 (r47109)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 18;
+use Parrot::Test tests => 17;
use Parrot::Config;
=head1 NAME
@@ -184,7 +184,8 @@
);
# expected output of a quine is the quine itself
-$expected{'quine_ord.pir'} = Parrot::Test::slurp_file("examples/pir/quine_ord.pir");
+# TODO currently broken
+# $expected{'quine_ord.pir'} = Parrot::Test::slurp_file("examples/pir/quine_ord.pir");
my %skips;
Modified: branches/gsoc_instrument/t/harness.pir
==============================================================================
--- branches/gsoc_instrument/t/harness.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/harness.pir Sat May 29 11:56:49 2010 (r47109)
@@ -305,7 +305,7 @@
$P0.'open'('svn status', 'pr')
$P1 = new 'ResizableStringArray'
L3:
- $S0 = readline $P0
+ $S0 = $P0.'readline'()
if $S0 == '' goto L4
$I0 = index $S0, 'M'
unless $I0 == 0 goto L3
Modified: branches/gsoc_instrument/t/library/coroutine.t
==============================================================================
--- branches/gsoc_instrument/t/library/coroutine.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/library/coroutine.t Sat May 29 11:56:49 2010 (r47109)
@@ -28,6 +28,8 @@
.const int N_TESTS = 6
+.loadlib 'io_ops'
+
## Build an N-ary tree (where N is passed as node_width) of the specified depth,
## with the leaves being consecutive integer PMCs from start but less than N.
## The tree will be complete iff end-start+1 == node_width^depth.
Copied: branches/gsoc_instrument/t/library/distutils.t (from r47107, trunk/t/library/distutils.t)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/t/library/distutils.t Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/t/library/distutils.t)
@@ -0,0 +1,56 @@
+#!./parrot
+# Copyright (C) 2010, Parrot Foundation.
+# $Id$
+
+=head1 NAME
+
+t/library/distutils.t
+
+=head1 DESCRIPTION
+
+Test the distutils library
+
+=head1 SYNOPSIS
+
+ % prove t/library/distutils.t
+
+=cut
+
+.sub 'main' :main
+ load_bytecode 'distutils.pir'
+
+ .const 'Sub' prebuild = 'prebuild'
+ register_step_before('build', prebuild)
+ .const 'Sub' postbuild = 'postbuild'
+ register_step_after('build', postbuild)
+
+ $P0 = split ' ', 'build'
+ $P1 = new 'Hash'
+ .const 'Sub' build_hll = 'build_hll'
+ $P1['hll_hook'] = build_hll
+
+ say "1..4"
+ setup($P0 :flat, $P1 :flat :named)
+ say "ok 4 - end"
+.end
+
+.sub 'prebuild' :anon
+ .param pmc kv :slurpy :named
+ say "ok 1 - prebuild"
+.end
+
+.sub 'build_hll' :anon
+ .param pmc kv :slurpy :named
+ say "ok 2 - build_hll"
+.end
+
+.sub 'postbuild' :anon
+ .param pmc kv :slurpy :named
+ say "ok 3 - postbuild"
+.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/gsoc_instrument/t/library/osutils.t
==============================================================================
--- branches/gsoc_instrument/t/library/osutils.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/library/osutils.t Sat May 29 11:56:49 2010 (r47109)
@@ -21,11 +21,12 @@
load_bytecode 'osutils.pir'
- plan(11)
+ plan(17)
test_basename()
test_dirname()
test_catfile()
test_splitpath()
+ test_newer()
.end
.sub 'test_basename'
@@ -62,6 +63,24 @@
is(file, 'ghi.txt', "splitpath file")
.end
+.sub 'test_newer'
+ $I0 = newer('runtime/parrot/library/osutils.pbc', 'runtime/parrot/library/osutils.pir')
+ ok($I0, "newer('osutils.pbc', 'osutils.pir')")
+ $I0 = newer('runtime/parrot/library/osutils.no_file', 'runtime/parrot/library/osutils.pir')
+ nok($I0, "newer('osutils.no_file', 'osutils.pir')")
+ $I0 = newer('runtime/parrot/library/osutils.pir', 'runtime/parrot/library/osutils.pir')
+ nok($I0, "newer('osutils.pir', 'osutils.pir')")
+
+ $P0 = split ' ', 'runtime/parrot/library/osutils.pir runtime/parrot/include/stat.pasm'
+ $I0 = newer('runtime/parrot/library/osutils.pbc', $P0)
+ ok($I0, "newer('osutils.pbc', ['osutils.pir', 'stat.pasm'])")
+ $I0 = newer('runtime/parrot/library/osutils.no_file', $P0)
+ nok($I0, "newer('osutils.no_file', ['osutils.pir', 'stat.pasm'])")
+ $I0 = newer('runtime/parrot/library/osutils.pir', $P0)
+ nok($I0, "newer('osutils.pir', ['osutils.pir', 'stat.pasm'])")
+.end
+
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: branches/gsoc_instrument/t/native_pbc/annotations.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Copied: branches/gsoc_instrument/t/native_pbc/integer.pbc (from r47107, trunk/t/native_pbc/integer.pbc)
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/integer_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/integer_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Copied: branches/gsoc_instrument/t/native_pbc/number.pbc (from r47107, trunk/t/native_pbc/number.pbc)
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/number_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/number_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Copied: branches/gsoc_instrument/t/native_pbc/string.pbc (from r47107, trunk/t/native_pbc/string.pbc)
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/string_1.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/string_2.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/t/native_pbc/testdata/string.pasm
==============================================================================
--- branches/gsoc_instrument/t/native_pbc/testdata/string.pasm Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/native_pbc/testdata/string.pasm Sat May 29 11:56:49 2010 (r47109)
@@ -3,7 +3,7 @@
set S1, "abc"
set S2, "EE"
- bors S0, S1, S2
+ concat S0, S1, S2
print S0
print "\n"
print S1
Modified: branches/gsoc_instrument/t/oo/methods.t
==============================================================================
--- branches/gsoc_instrument/t/oo/methods.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/oo/methods.t Sat May 29 11:56:49 2010 (r47109)
@@ -38,7 +38,8 @@
.local string filename
filename = "method_library.pir"
- file = open filename, 'w'
+ file = new ['FileHandle']
+ file.'open'(filename, 'w')
$S0 = <<'END'
.namespace['Foo']
@@ -48,7 +49,7 @@
END
print file, $S0
- close file
+ file.'close'()
.end
Modified: branches/gsoc_instrument/t/op/arithmetics.t
==============================================================================
--- branches/gsoc_instrument/t/op/arithmetics.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/arithmetics.t Sat May 29 11:56:49 2010 (r47109)
@@ -21,7 +21,7 @@
.include 'test_more.pir'
.include 'iglobals.pasm'
- plan(121)
+ plan(80)
take_the_negative_of_a_native_integer()
take_the_absolute_of_a_native_integer()
@@ -42,8 +42,6 @@
subtract_native_number_from_native_number()
multiply_native_number_with_native_number()
divide_native_number_by_native_number()
- integer_overflow_with_pow()
- bnot_p_p_creates_destination()
# END_OF_TESTS
.end
@@ -470,56 +468,6 @@
.end
-.sub integer_overflow_with_pow
- .include "iglobals.pasm"
-
- # Check that we aren't 32-bit INTVALs without GMP
- .local pmc interp # a handle to our interpreter object.
- interp = getinterp
- .local pmc config
- config = interp[.IGLOBALS_CONFIG_HASH]
- .local int intvalsize
- intvalsize = config['intvalsize']
- .local int gmp
- gmp = config['gmp']
-
- if intvalsize != 4 goto can_test
- if gmp goto can_test
- skip(40,'No integer overflow for 32-bit INTVALs without GMP installed')
- goto end
-
- can_test:
-
- .local pmc i1, i2, r
- i1 = new 'Integer'
- i2 = new 'Integer'
- i1 = 2
- i2 = 1
- $I1 = 1
- next:
- null r
- r = pow i1, i2
- $S0 = r
-
- $I1 = $I1 * 2
- is( $S0, $I1, 'integer_overflow_with_pow' )
-
- inc i2
-# XXX: this must be extended to at least 64 bit range
-# when sure that the result is not floating point.
-# In the meantime, make sure it overflows nicely
-# on 32 bit.
- unless i2 > 40 goto next
-
- end:
-.end
-
-.sub 'bnot_p_p_creates_destination'
- $P0 = box 3
- $P1 = bnot $P0
- is( $P1, -4, 'bnot_p_p_creates_destination')
-.end
-
# Local Variables:
# mode: pir
# fill-column: 100
Modified: branches/gsoc_instrument/t/op/arithmetics_pmc.t
==============================================================================
--- branches/gsoc_instrument/t/op/arithmetics_pmc.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/arithmetics_pmc.t Sat May 29 11:56:49 2010 (r47109)
@@ -20,7 +20,7 @@
.include 'test_more.pir'
.include "iglobals.pasm"
- plan(44)
+ plan(40)
# Don't check BigInt or BigNum without gmp
.local pmc interp # a handle to our interpreter object.
@@ -55,7 +55,6 @@
test_logical_xor(type)
test_logical_or(type)
test_modulus(type)
- test_pow(type)
test_subtract(type)
.end
@@ -329,36 +328,6 @@
end:
.end
-.sub test_pow
- .param pmc type
-
- $P0 = new type
- $P0 = 40
- $P1 = new type
- $P1 = 2
- $P2 = new type
- $P2 = 115200
-
- $P99 = $P2
-
- $S0 = "original dest is untouched in pow for "
- $S1 = type
- concat $S0, $S1
-
- # ignore exceptions
- push_eh done
- pow $P2, $P0, $P1
-
- $I0 = cmp $P99, 115200
-
- is( $I0, 0, $S0 )
- goto end
-
- done:
- ok(1, 'ignoring exceptions')
- end:
-.end
-
.sub test_subtract
.param pmc type
Deleted: branches/gsoc_instrument/t/op/debuginfo.t
==============================================================================
--- branches/gsoc_instrument/t/op/debuginfo.t Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,201 +0,0 @@
-#!perl
-# Copyright (C) 2001-2007, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 8;
-
-=head1 NAME
-
-t/op/debuginfo.t - Debugging Info
-
-=head1 SYNOPSIS
-
- % prove t/op/debuginfo.t
-
-=head1 DESCRIPTION
-
-Tests the various set and get operations for line, package and file info,
-as well as backtrace tests.
-
-=cut
-
-$ENV{TEST_PROG_ARGS} ||= '';
-my $nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
- ? "\\(unknown file\\)\n-1" : "debuginfo_\\d+\\.pasm\n\\d";
-
-#SKIP: {
-#skip "disabled on fast-core",1 if $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/;
-
-pasm_output_like( <<'CODE', <<"OUTPUT", "getline, getfile" );
-.pcc_sub main:
- getfile S0
- getline I0
- say S0
- say I0
- end
-CODE
-/$nolineno/
-OUTPUT
-
-pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - Null PMC access" );
-.sub main
- print "ok 1\n"
- a()
- print "not ok 10\n"
-.end
-.sub a
- print "ok 2\n"
- b()
- print "not ok 9\n"
-.end
-.sub b
- print "ok 3\n"
- c()
- print "not ok 8\n"
-.end
-.sub c
- print "ok 4\n"
- d()
- print "not ok 7\n"
-.end
-.sub d
- print "ok 5\n"
- $P0 = null
- $P0()
- print "not ok 6\n"
-.end
-CODE
-/^ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-Null PMC access in invoke\(\)
-current instr\.: 'd' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'c' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'b' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'a' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
-OUTPUT
-
-pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - method not found" );
-.namespace ["Test1"]
-.sub main
- print "ok 1\n"
- foo()
- print "not ok 5\n"
-.end
-.sub foo
- print "ok 2\n"
- $P0 = new 'Integer'
- print "ok 3\n"
- $P0."nosuchmethod"()
- print "not ok 4\n"
-.end
-CODE
-/^ok 1
-ok 2
-ok 3
-Method 'nosuchmethod' not found for invocant of class 'Integer'
-current instr.: 'parrot;Test1;foo' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'parrot;Test1;main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
-OUTPUT
-
-pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - fetch of unknown lexical" );
-.namespace ["Test2"]
-.sub main
- print "ok 1\n"
- foo()
- print "not ok 3\n"
-.end
-.sub foo :lex
- print "ok 2\n"
- find_lex $P0, "nosuchlex"
- print "not ok 3\n"
-.end
-CODE
-/^ok 1
-ok 2
-Lexical 'nosuchlex' not found
-current instr.: 'parrot;Test2;foo' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'parrot;Test2;main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
-OUTPUT
-
-pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - recursion 1" );
-.sub main
- main()
-.end
-CODE
-/^maximum recursion depth exceeded
-current instr\.: 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)
-\.\.\. call repeated \d+ times/
-OUTPUT
-
-pir_error_output_like( <<'CODE', <<'OUTPUT', "debug backtrace - recursion 2" );
-.sub main
- rec(91)
-.end
-.sub rec
- .param int i
- if i == 0 goto END
- dec i
- rec(i)
- .return()
-END:
- $P0 = null
- $P0()
-.end
-CODE
-/^Null PMC access in invoke\(\)
-current instr\.: 'rec' pc (\d+|-1) \(.*?:(\d+|-1)\)
-called from Sub 'rec' pc (\d+|-1) \(.*?:(\d+|-1)\)
-\.\.\. call repeated 90 times
-called from Sub 'main' pc (\d+|-1) \(.*?:(\d+|-1)\)$/
-OUTPUT
-
-$nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
- ? '\(\(unknown file\):-1\)' : '\(xyz.pir:126\)';
-
-pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );
-.sub main :main
- setfile "xyz.pir"
- setline 123
- $S0 = 'hello'
- $I0 = 456
- 'no_such_function'($S0, $I0)
-.end
-CODE
-/$nolineno/
-OUTPUT
-
-$nolineno = $ENV{TEST_PROG_ARGS} =~ /--runcore=fast/
- ? '\(\(unknown file\):-1\)' : '\(foo.p6:128\)';
-pir_error_output_like( <<'CODE', <<"OUTPUT", "setfile and setline" );
-.sub main :main
- setfile "foo.p6"
- setline 123
- $P0 = new 'Integer'
- assign $P0, 9876
- set_global '$a', $P0
-
- setline 124
- $P0 = get_global '$a'
- $P1 = clone $P0
- add $P1, 1
- 'nsf'($P1)
-.end
-CODE
-/$nolineno/
-OUTPUT
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Modified: branches/gsoc_instrument/t/op/inf_nan.t
==============================================================================
--- branches/gsoc_instrument/t/op/inf_nan.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/inf_nan.t Sat May 29 11:56:49 2010 (r47109)
@@ -18,31 +18,11 @@
.sub main :main
.include 'test_more.pir'
- plan(105)
+ plan(37)
test_basic_arith()
- test_exp()
test_sqrt()
- test_sin()
- test_sinh()
- test_asin()
- test_cos()
- test_cosh()
- test_acos()
- test_tan()
- test_tanh()
- test_atan()
- test_cot()
- test_coth()
- test_acot()
- test_sec()
- test_sech()
- test_asec()
- test_ln()
- test_log10()
- test_log2()
test_neg()
- test_pow()
test_mix_nan_inf()
test_rounding_n()
test_rounding_i()
@@ -50,7 +30,6 @@
test_fdiv_integer_pmc_nan()
test_fdiv_float_pmc_nan()
test_fdiv_float_integer_pmc_nan()
- test_cmod_float_integer_pmc_nan()
test_mod_float_integer_pmc_nan()
.end
@@ -82,19 +61,6 @@
is($N3, 'Inf', '... abs -Inf')
.end
-
-.sub test_exp
- $N0 = 'Inf'
- $N1 = exp $N0
- is($N1, 'Inf', 'exp: exp Inf')
- $N0 = '-Inf'
- $N1 = exp $N0
- is($N1, 0, '... exp -Inf')
- $N0 = 'NaN'
- $N1 = exp $N0
- is($N1, 'NaN', '... exp NaN')
-.end
-
.sub test_sqrt
$N0 = 'Inf'
$N1 = $N0
@@ -110,260 +76,6 @@
is($N1, 'NaN', '... sqrt -1')
.end
-.sub test_sin
- $N0 = 'Inf'
- $N1 = sin $N0
- is($N1, 'NaN', 'sin: sin Inf')
- $N0 = '-Inf'
- $N1 = sin $N0
- is($N1, 'NaN', '... sin -Inf')
- $N0 = 'NaN'
- $N1 = sin $N0
- is($N1, 'NaN', '... sin NaN')
-.end
-
-.sub test_sinh
- $N0 = 'Inf'
- $N1 = sinh $N0
- is($N1, 'Inf', 'sinh: sinh Inf')
- $N0 = '-Inf'
- $N1 = sinh $N0
- is($N1, '-Inf', '... sinh -Inf')
- $N0 = 'NaN'
- $N1 = sinh $N0
- is($N1, 'NaN', '... sinh NaN')
-.end
-
-.sub test_asin
- $N0 = 'Inf'
- $N1 = asin $N0
- is($N1, 'NaN', 'asin: asin Inf')
- $N0 = '-Inf'
- $N1 = asin $N0
- is($N1, 'NaN', '... asin -Inf')
- $N0 = 'NaN'
- $N1 = asin $N0
- is($N1, 'NaN', '... asin NaN')
- $N0 = '-2'
- $N1 = asin $N0
- is($N1, 'NaN', '... asin -2')
- $N0 = '2'
- $N1 = asin $N0
- is($N1, 'NaN', '... asin 2')
-.end
-
-.sub test_cos
- $N0 = 'Inf'
- $N1 = cos $N0
- is($N1, 'NaN', 'cos: cos Inf')
- $N0 = '-Inf'
- $N1 = cos $N0
- is($N1, 'NaN', '... cos -Inf')
- $N0 = 'NaN'
- $N1 = cos $N0
- is($N1, 'NaN', '... cos NaN')
-.end
-
-.sub test_cosh
- $N0 = 'Inf'
- $N1 = cosh $N0
- is($N1, 'Inf', 'cosh: cosh Inf')
- $N0 = '-Inf'
- $N1 = cosh $N0
- is($N1, 'Inf', '... cosh -Inf')
- $N0 = 'NaN'
- $N1 = cosh $N0
- is($N1, 'NaN', '... cosh NaN')
-.end
-
-.sub test_acos
- $N0 = 'Inf'
- $N1 = acos $N0
- is($N1, 'NaN', 'acos: acos Inf')
- $N0 = '-Inf'
- $N1 = acos $N0
- is($N1, 'NaN', '... acos -Inf')
- $N0 = 'NaN'
- $N1 = acos $N0
- is($N1, 'NaN', '... acos NaN')
- $N0 = '-2'
- $N1 = acos $N0
- is($N1, 'NaN', '... acos -2')
- $N0 = '2'
- $N1 = acos $N0
- is($N1, 'NaN', '... acos 2')
-.end
-
-.sub test_tan
- $N0 = 'Inf'
- $N1 = tan $N0
- is($N1, 'NaN', 'tan: tan Inf')
- $N0 = '-Inf'
- $N1 = tan $N0
- is($N1, 'NaN', '... tan -Inf')
- $N0 = 'NaN'
- $N1 = tan $N0
- is($N1, 'NaN', '... tan NaN')
-.end
-
-.sub test_tanh
- $N0 = 'Inf'
- $N1 = tanh $N0
- is($N1, 1, 'tanh: tanh Inf')
- $N0 = '-Inf'
- $N1 = tanh $N0
- is($N1, -1, '... tanh -Inf')
- $N0 = 'NaN'
- $N1 = tanh $N0
- is($N1, 'NaN', '... tanh NaN')
-.end
-
-.sub test_atan
- $N0 = 'Inf'
- $N1 = atan $N0
- $P1 = new 'Float'
- $P1 = $N1
- is($P1, 1.5707963, 'atan: atan Inf',1e-6)
-
- $N0 = '-Inf'
- $N1 = atan $N0
- $P1 = new 'Float'
- $P1 = $N1
- is($P1, -1.5707963, '... atan -Inf',1e-6)
-
- $N0 = 'NaN'
- $N1 = atan $N0
- is($N1, 'NaN', '... atan NaN')
-.end
-
-.sub test_cot
- $N0 = 'Inf'
- #$N1 = cot $N0
- #is($N1, 'NaN', 'cot: cot Inf')
- todo(0, 'cot Inf', 'cot/coth/acot not implemented for real numbers')
- $N0 = '-Inf'
- #$N1 = cot $N0
- #is($N1, 'NaN', '... cot -Inf')
- todo(0, 'cot -Inf', 'cot/coth/acot not implemented for real numbers')
- $N0 = 'NaN'
- #$N1 = cot $N0
- #is($N1, 'NaN', '... cot NaN')
- todo(0, 'cot NaN', 'cot/coth/acot not implemented for real numbers')
-.end
-
-.sub test_coth
- $N0 = 'Inf'
- #$N1 = coth $N0
- #is($N1, 1, 'coth: coth Inf')
- todo(0, 'coth Inf', 'cot/coth/acot not implemented for real numbers')
- $N0 = '-Inf'
- #$N1 = coth $N0
- #is($N1, -1, '... coth -Inf')
- todo(0, 'coth -Inf', 'cot/coth/acot not implemented for real numbers')
- $N0 = 'NaN'
- #$N1 = coth $N0
- #is($N1, 'NaN', '... coth NaN')
- todo(0, 'coth NaN', 'cot/coth/acot not implemented for real numbers')
-.end
-
-.sub test_acot
- $N0 = 'Inf'
- #$N1 = acot $N0
- #is($N1, 'NaN', 'acot: acot Inf')
- todo(0, 'acot Inf', 'cot/coth/acot not implemented for real numbers')
- $N0 = '-Inf'
- #$N1 = acot $N0
- #is($N1, 'NaN', '... acot -Inf')
- todo(0, 'acot -Inf', 'cot/coth/acot not implemented for real numbers')
- $N0 = 'NaN'
- #$N1 = acot $N0
- #is($N1, 'NaN', '... acot NaN')
- todo(0, 'acot NaN', 'cot/coth/acot not implemented for real numbers')
- $N0 = '-2'
- #$N1 = acot $N0
- #is($N1, 'NaN', '... acot -2')
- todo(0, 'acot -2', 'cot/coth/acot not implemented for real numbers')
- $N0 = '2'
- #$N1 = acot $N0
- #is($N1, 'NaN', '... acot 2')
- todo(0, 'acot 2', 'cot/coth/acot not implemented for real numbers')
-.end
-
-.sub test_sec
- $N0 = 'Inf'
- $N1 = sec $N0
- is($N1, 'NaN', 'sec: sec Inf')
- $N0 = '-Inf'
- $N1 = sec $N0
- is($N1, 'NaN', '... sec -Inf')
- $N0 = 'NaN'
- $N1 = sec $N0
- is($N1, 'NaN', '... sec NaN')
-.end
-
-.sub test_sech
- $N0 = 'Inf'
- $N1 = sech $N0
- is($N1, 0, 'sech: sech Inf')
- $N0 = '-Inf'
- $N1 = sech $N0
- is($N1, 0, '... sech -Inf')
- $N0 = 'NaN'
- $N1 = sech $N0
- is($N1, 'NaN', '... sech NaN')
-.end
-
-.sub test_asec
- $N0 = 'Inf'
- $N1 = asec $N0
- $P1 = new 'Float'
- $P1 = $N1
- is($P1, 1.5707963, 'asec: asec Inf',1e-6)
- $N0 = '-Inf'
- $N1 = asec $N0
- $P1 = $N1
- is($P1, 1.5707963, '... asec -Inf',1e-6)
- $N0 = 'NaN'
- $N1 = asec $N0
- is($N1, 'NaN', 'asec NaN')
-.end
-
-.sub test_ln
- $N0 = 'Inf'
- $N1 = ln $N0
- is($N1, 'Inf', 'ln: ln Inf')
- $N0 = '-Inf'
- $N1 = ln $N0
- is($N1, 'NaN', '... ln Inf')
- $N0 = 'NaN'
- $N1 = ln $N0
- is($N1, 'NaN', '... ln NaN')
-.end
-
-.sub test_log10
- $N0 = 'Inf'
- $N1 = log10 $N0
- is($N1, 'Inf', 'log10: log10 Inf')
- $N0 = '-Inf'
- $N1 = log10 $N0
- is($N1, 'NaN', '... log10 -Inf')
- $N0 = 'NaN'
- $N1 = log10 $N0
- is($N1, 'NaN', '... log10 NaN')
-.end
-
-.sub test_log2
- $N0 = 'Inf'
- $N1 = log2 $N0
- is($N1, 'Inf', 'log2: log2 Inf')
- $N0 = '-Inf'
- $N1 = log2 $N0
- is($N1, 'NaN', '... log2 -Inf')
- $N0 = 'NaN'
- $N1 = log2 $N0
- is($N1, 'NaN', '... log2 -Inf')
-.end
-
.sub test_neg
$N0 = 'Inf'
$N1 = neg $N0
@@ -376,19 +88,6 @@
is($N1, 'NaN', '... neg NaN')
.end
-.sub test_pow
- $N0 = 'Inf'
- pow $N1, $N0, 2
- is($N1, 'Inf', 'pow: Inf ^ 2')
- pow $N1, 2, $N0
- is($N1, 'Inf', '...: 2 ^ Inf')
- $N0 = 'NaN'
- pow $N1, $N0, 2
- is($N1, 'NaN', '...: NaN ^ 2')
- pow $N1, 2, $N0
- is($N1, 'NaN', '...: 2 ^ NaN')
-.end
-
.sub test_mix_nan_inf
$N0 = 'NaN'
$N1 = 'Inf'
@@ -425,19 +124,19 @@
$N0 = 'Inf'
$I0 = floor $N0
#is($I0, 'Inf', 'floor Inf')
- todo(0, 'floor Inf', 'rounding nan/inf gives something like -2147483648')
+ skip(1, 'rounding nan/inf gives something like -2147483648')
$N0 = 'NaN'
$I0 = floor $N0
#is($I0, 'NaN', 'floor Inf')
- todo(0, 'floor NaN', 'rounding nan/inf gives something like -2147483648')
+ skip(1, 'rounding nan/inf gives something like -2147483648')
$N0 = 'Inf'
$I0 = ceil $N0
#is($I0, 'Inf', 'floor Inf')
- todo(0, 'ceil Inf', 'rounding nan/inf gives something like -2147483648')
+ skip(1, 'rounding nan/inf gives something like -2147483648')
$N0 = 'NaN'
$I0 = ceil $N0
#is($I0, 'NaN', 'floor Inf')
- todo(0, 'ceil NaN', 'rounding nan/inf gives something like -2147483648')
+ skip(1, 'rounding nan/inf gives something like -2147483648')
.end
.sub test_nan_complex
@@ -446,7 +145,7 @@
set $P1, "1 + i"
$P1 += $N0
#is($P1, 'NaN', '1+i + NaN')
- todo(0, '1+i + NaN should be NaN')
+ skip(1, '1+i + NaN should be NaN')
.end
.sub test_fdiv_integer_pmc_nan
@@ -456,7 +155,7 @@
$N0 = 'NaN'
fdiv $P1, $P2, $N0
#is($P1, 'NaN', 'fdiv with Integer PMCs and NaN')
- todo(0, 'fdiv with Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')
+ skip(1, 'fdiv/mod do not play nicely with PMCs and NaN')
.end
.sub test_fdiv_float_pmc_nan
@@ -466,7 +165,7 @@
$N0 = 'NaN'
fdiv $P1, $P2, $N0
#is($P1, 'NaN','fdiv with Float PMCs and NaN')
- todo(0,'fdiv with Float PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')
+ skip(1, 'fdiv/mod do not play nicely with PMCs and NaN')
.end
.sub test_fdiv_float_integer_pmc_nan
@@ -476,17 +175,7 @@
$N0 = 'NaN'
fdiv $P1, $P2, $N0
#is($P1, 'NaN', 'fdiv with Float and Integer PMCs and NaN')
- todo(0, 'fdiv with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')
-.end
-
-.sub test_cmod_float_integer_pmc_nan
- $P1 = new 'Float'
- $P2 = new 'Integer'
- $P2 = 1
- $N0 = 'NaN'
- cmod $P1, $P2, $N0
- #is($P1, 'NaN', 'cmod with Float and Integer PMCs and NaN')
- todo(0, 'cmod with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')
+ skip(1, 'fdiv/mod do not play nicely with PMCs and NaN')
.end
.sub test_mod_float_integer_pmc_nan
@@ -496,7 +185,7 @@
$N0 = 'NaN'
mod $P1, $P2, $N0
#is($P1, 'NaN', 'mod with Float and Integer PMCs and NaN')
- todo(0, 'mod with Float and Integer PMCs and NaN', 'fdiv/mod/cmod do not play nicely with PMCs and NaN')
+ skip(1, 'fdiv/mod do not play nicely with PMCs and NaN')
.end
# Local Variables:
Modified: branches/gsoc_instrument/t/op/integer.t
==============================================================================
--- branches/gsoc_instrument/t/op/integer.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/integer.t Sat May 29 11:56:49 2010 (r47109)
@@ -16,7 +16,7 @@
=cut
-.const int TESTS = 159
+.const int TESTS = 150
.sub 'test' :main
.include 'test_more.pir'
@@ -32,7 +32,6 @@
test_div()
test_mod()
mod_negative_zero_rest()
- test_cmod()
test_eq()
test_ne()
test_lt()
@@ -60,9 +59,6 @@
test_fdiv_i_i_i_by_zero()
test_fdiv_i_ic_i_by_zero()
test_fdiv_i_i_ic_by_zero()
- test_cmod_i_i_i_by_zero()
- test_cmod_i_ic_i_by_zero()
- test_cmod_i_i_ic_by_zero()
test_mod_i_i_i_by_zero()
test_mod_i_ic_i_by_zero()
test_mod_i_i_ic_by_zero()
@@ -337,26 +333,6 @@
is($I1, 0, 'mod - negative, zero rest (#36003), -3 mod -3 = 0')
.end
-.sub 'test_cmod'
- $I0 = 5
- $I1 = 3
- $I2 = cmod $I0, $I1
- is($I2, 2, 'cmod_i_i_i')
- is($I0, 5, 'cmod_i_i_i - dividend unchanged')
- is($I1, 3, 'cmod_i_i_i - divisor unchanged')
-
- $I0 = 12
-
- $I1 = cmod $I0, 10
- is($I1, 2, 'cmod_i_i_ic')
-
- $I1 = cmod 14, $I0
- is($I1, 2, 'cmod_i_ic_i')
-
- $I1 = cmod 13, 11
- is($I1, 2, 'cmod_i_ic_ic')
-.end
-
.sub 'test_eq'
$I0 = 0x12345678
$I1 = 0x12345678
@@ -925,52 +901,6 @@
ok($I3, 'fdiv_i_i_ic by zero')
.end
-.sub 'test_cmod_i_i_i_by_zero'
- $I0 = 0
- $I1 = 10
- push_eh test_cmod_i_i_i_by_zero_catch
- $I2 = cmod $I1, $I0
- pop_eh
- $I3 = 0
- goto test_cmod_i_i_i_by_zero_end
-
- test_cmod_i_i_i_by_zero_catch:
- $I3 = 1
-
- test_cmod_i_i_i_by_zero_end:
- ok($I3, 'cmod_i_i_i by zero')
-.end
-
-.sub 'test_cmod_i_ic_i_by_zero'
- $I0 = 0
- push_eh test_cmod_i_ic_i_by_zero_catch
- $I2 = cmod 10, $I0
- pop_eh
- $I3 = 0
- goto test_cmod_i_ic_i_by_zero_end
-
- test_cmod_i_ic_i_by_zero_catch:
- $I3 = 1
-
- test_cmod_i_ic_i_by_zero_end:
- ok($I3, 'cmod_i_ic_i by zero')
-.end
-
-.sub 'test_cmod_i_i_ic_by_zero'
- $I1 = 10
- push_eh test_cmod_i_i_ic_by_zero_catch
- $I2 = cmod $I1, 0
- pop_eh
- $I3 = 0
- goto test_cmod_i_i_ic_by_zero_end
-
- test_cmod_i_i_ic_by_zero_catch:
- $I3 = 1
-
- test_cmod_i_i_ic_by_zero_end:
- ok($I3, 'cmod_i_i_ic by zero')
-.end
-
.sub 'test_mod_i_i_i_by_zero'
$I0 = 0
$I1 = 10
Modified: branches/gsoc_instrument/t/op/interp.t
==============================================================================
--- branches/gsoc_instrument/t/op/interp.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/interp.t Sat May 29 11:56:49 2010 (r47109)
@@ -43,6 +43,7 @@
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', 'runinterp - works with printing' );
+.loadlib 'io_ops'
.sub 'test' :main
.local string actual
.local pmc test_interp
@@ -70,6 +71,7 @@
# the test fail.
pasm_output_like(
<<'CODE', <<'OUTPUT', "restart trace" );
+ .loadlib 'io_ops'
printerr "ok 1\n"
sweepoff
set I0, 1
@@ -89,6 +91,7 @@
pasm_output_is( <<'CODE', 'nada:', 'interp - warnings' );
new P0, 'Undef'
set I0, P0
+ .loadlib 'io_ops'
printerr "nada:"
warningson 1
new P1, 'Undef'
Deleted: branches/gsoc_instrument/t/op/io.t
==============================================================================
--- branches/gsoc_instrument/t/op/io.t Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,178 +0,0 @@
-#!./parrot
-# Copyright (C) 2008, Parrot Foundation.
-# $Id$
-
-=head1 NAME
-
-t/op/io.t - Testing io opcodes
-
-=head1 SYNOPSIS
-
- % prove t/op/io.t
-
-=head1 DESCRIPTION
-
-Tests various io opcodes.
-
-=cut
-
-.const int TESTS = 5
-
-.sub 'main' :main
- .include 'test_more.pir'
-
- plan(TESTS)
-
- open_delegates_to_filehandle_pmc()
- open_null_filename()
- open_null_mode()
- open_pipe_for_reading()
- open_pipe_for_writing()
-.end
-
-.sub open_delegates_to_filehandle_pmc
- load_bytecode 'P6object.pbc'
-
- .local pmc p6meta, interp, classes, classid
- p6meta = get_root_global ["parrot"], "P6metaclass"
- p6meta.'new_class'('Testing')
-
- interp = getinterp
- classes = interp[0]
- classid = classes['Testing']
- $I0 = classes['FileHandle']
- set classes['FileHandle'], classid
-
- $P1 = open '/foo'
- is($P1,42,'open opcode delegates to the open method on the FileHandle PMC')
-
- # replace the original, so we don't break other tests
- set classes['FileHandle'], $I0
-
-.end
-
-.sub 'open_null_filename'
- push_eh open_null_filename_failed
- null $S0
- $P0 = open $S0, 'r'
- nok(1, 'open with null filename')
- .return ()
-
- open_null_filename_failed:
- ok(1, 'open with null filename')
-.end
-
-.sub 'open_null_mode'
- push_eh open_null_mode_failed
- null $S0
- $P0 = open 'some_name', $S0
- nok(1, 'open with null mode')
- .return ()
-
- open_null_mode_failed:
- ok(1, 'open with null mode')
-.end
-
-.sub 'tt661_todo_test' :anon
- # As of r41963, these tests need to be todo'ed at least on Win32. Add new
- # platforms known to fail.
- .include 'sysinfo.pasm'
- $S0 = sysinfo .SYSINFO_PARROT_OS
- if $S0 == 'MSWin32' goto tt661_todo
-
- .return (0)
-
- tt661_todo:
- .return (1)
-.end
-
-.include 'iglobals.pasm'
-
-.sub 'open_pipe_for_reading'
- .local pmc interp
- interp = getinterp
-
- .local pmc conf
- conf = interp[.IGLOBALS_CONFIG_HASH]
-
- .local string command
- command = conf['build_dir']
-
- .local string aux
- aux = conf['slash']
- command .= aux
- aux = conf['test_prog']
- command .= aux
- aux = conf['exe']
- command .= aux
- command .= ' -V'
-
- .local pmc pipe
- pipe = open command, 'rp'
- unless pipe goto open_pipe_for_reading_failed
- .local string line
- line = readline pipe
- line = substr line, 0, 14
- is('This is Parrot', line, 'open pipe for reading')
- .return ()
-
- open_pipe_for_reading_failed:
- nok(1, 'open pipe for reading')
- .return ()
-.end
-
-.sub 'open_pipe_for_writing'
- $I0 = tt661_todo_test()
- if $I0 goto open_pipe_for_writing_todoed
- .local pmc interp
- interp = getinterp
-
- .local pmc conf
- conf = interp[.IGLOBALS_CONFIG_HASH]
-
- .local string command
- command = conf['build_dir']
-
- .local string aux
- aux = conf['slash']
- command .= aux
- .local string filename
- filename .= command
- filename .= 'examples/pasm/cat.pasm'
- aux = conf['test_prog']
- command .= aux
- aux = conf['exe']
- command .= aux
- command .= ' '
- command .= filename
-
- .local pmc pipe
- pipe = open command, 'wp'
- unless pipe goto open_pipe_for_writing_failed
-
- pipe.'puts'("ok 5 - open pipe for writing\n")
- close pipe
- .return ()
-
- open_pipe_for_writing_failed:
- nok(1, 'open pipe for writing')
- .return ()
-
- open_pipe_for_writing_todoed:
- todo(0, 'Unimplemented in this platform, TT #661')
-
-.end
-
-.namespace ["Testing"]
-
-.sub open :method
- .param pmc args :slurpy
- .return(42)
-.end
-
-
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/gsoc_instrument/t/op/number.t
==============================================================================
--- branches/gsoc_instrument/t/op/number.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/number.t Sat May 29 11:56:49 2010 (r47109)
@@ -19,7 +19,7 @@
.sub main :main
.include 'test_more.pir'
- plan(130)
+ plan(126)
test_set_n_nc()
test_set_n()
test_add_n_n_n()
@@ -30,7 +30,6 @@
test_mul_i()
test_div_i()
test_mod_n()
- test_cmod_n()
test_eq_n_ic()
test_eq_nc_ic()
test_ne_n_ic()
@@ -66,9 +65,6 @@
test_exception_fdiv_n_n_n_by_zero()
test_exception_fdiv_n_nc_n_by_zero()
test_exception_fdiv_n_n_nc_by_zero()
- test_exception_cmod_n_n_n_by_zero()
- test_exception_cmod_n_nc_n_by_zero()
- test_exception_cmod_n_n_nc_by_zero()
test_mod_n_n_n_by_zero()
test_mod_n_nc_n_by_zero()
test_mod_n_n_nc_by_zero()
@@ -259,13 +255,6 @@
is( $N2, "-2", 'mod_n' )
.end
-.sub test_cmod_n
- set $N0, 5.000
- set $N1, 3.000
- cmod $N2, $N0, $N1
- is( $N2, "2", 'cmod_n' )
-.end
-
.sub test_eq_n_ic
set $N0, 5.000001
set $N1, 5.000001
@@ -780,31 +769,6 @@
.exception_is( 'Divide by zero' )
.end
-.sub test_exception_cmod_n_n_n_by_zero
- push_eh handler
- set $N0, 0
- set $N1, 10
- cmod $N2, $N1, $N0
- handler:
- .exception_is( 'Divide by zero' )
-.end
-
-.sub test_exception_cmod_n_nc_n_by_zero
- push_eh handler
- set $N0, 0
- cmod $N2, 10, $N0
- handler:
- .exception_is( 'Divide by zero' )
-.end
-
-.sub test_exception_cmod_n_n_nc_by_zero
- push_eh handler
- set $N1, 10
- cmod $N2, $N1, 0
- handler:
- .exception_is( 'Divide by zero' )
-.end
-
.sub test_mod_n_n_n_by_zero
set $N0, 0
set $N1, 10
Modified: branches/gsoc_instrument/t/op/sprintf.t
==============================================================================
--- branches/gsoc_instrument/t/op/sprintf.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/sprintf.t Sat May 29 11:56:49 2010 (r47109)
@@ -59,6 +59,9 @@
.const int TESTS = 308
+.loadlib 'sys_ops'
+.loadlib 'io_ops'
+
.sub main :main
load_bytecode 'Test/Builder.pbc'
.include "iglobals.pasm"
@@ -154,7 +157,8 @@
data_hash = new 'Hash'
data_hash["''"] = ''
data_hash['2**32-1'] = 0xffffffff
- $N0 = pow 2, 38
+ $N0 = data_hash['2**32-1']
+ inc $N0
data_hash['2**38'] = $N0
data_hash["'string'"] = 'string'
Modified: branches/gsoc_instrument/t/op/string.t
==============================================================================
--- branches/gsoc_instrument/t/op/string.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/string.t Sat May 29 11:56:49 2010 (r47109)
@@ -19,7 +19,7 @@
.sub main :main
.include 'test_more.pir'
- plan(339)
+ plan(284)
set_s_s_sc()
test_clone()
@@ -122,21 +122,6 @@
test_find_encoding()
test_assign()
assign_and_globber()
- bands_null_string()
- bands_2()
- bands_3()
- bands_cow()
- bors_null_string()
- bors_2()
- bors_3()
- bors_cow()
- bxors_null_string()
- bxors_2()
- bxors_3()
- bxors_cow()
- bnots_null_string()
- bnots_2()
- bnots_cow()
split_on_empty_string()
split_on_non_empty_string()
test_join()
@@ -1393,246 +1378,6 @@
is( $S5, "JAPH", 'assign & globber' )
.end
-.sub bands_null_string
- null $S1
- set $S2, "abc"
- $S1 = bands $S1, $S2
- null $S3
- is( $S1, $S3, 'ok1' )
-
- set $S1, ""
- $S1 = bands $S1, $S2
- nok( $S1, 'ok2' )
-
- null $S2
- set $S1, "abc"
- $S1 = bands $S1, $S2
- null $S3
- is( $S1, $S3, 'ok3' )
-
- set $S2, ""
- $S1 = bands $S1, $S2
- nok( $S1, 'ok4' )
-.end
-
-.sub bands_2
- set $S1, "abc"
- set $S2, "EE"
- $S1 = bands $S1, $S2
- is( $S1, "A@", 'bands 2' )
- is( $S2, "EE", 'bands 2' )
-.end
-
-.sub bands_3
- set $S1, "abc"
- set $S2, "EE"
- bands $S0, $S1, $S2
- is( $S0, "A@", 'bands 3' )
- is( $S1, "abc", 'bands 3' )
- is( $S2, "EE", 'bands 3' )
-.end
-
-.sub bands_cow
- set $S1, "foo"
- substr $S2, $S1, 0, 3
- $S1 = bands $S1, "bar"
- is( $S2, "foo", 'bands COW' )
-.end
-
-.sub bors_null_string
- null $S1
- null $S2
- $S1 = bors $S1, $S2
- null $S3
- is( $S1, $S3, 'bors NULL string' )
-
- null $S1
- set $S2, ""
- $S1 = bors $S1, $S2
- null $S3
- is( $S1, $S3, 'bors NULL string' )
-
- $S2 = bors $S2, $S1
- is( $S2, $S3, 'bors NULL string' )
-
- null $S1
- set $S2, "def"
- $S1 = bors $S1, $S2
- is( $S1, "def", 'bors NULL string' )
-
- null $S2
- $S1 = bors $S1, $S2
- is( $S1, "def", 'bors NULL string' )
-
- null $S1
- null $S2
- bors $S3, $S1, $S2
- null $S4
- is( $S3, $S4, 'bors NULL string' )
-
- set $S1, ""
- bors $S3, $S1, $S2
- is( $S3, $S4, 'bors NULL string' )
-
- bors $S3, $S2, $S1
- is( $S3, $S4, 'bors NULL string' )
-
- set $S1, "def"
- bors $S3, $S1, $S2
- is( $S3, "def", 'bors NULL string' )
-
- bors $S3, $S2, $S1
- is( $S3, "def", 'bors NULL string' )
-.end
-
-.sub bors_2
- set $S1, "abc"
- set $S2, "EE"
- $S1 = bors $S1, $S2
- is( $S1, "egc", 'bors 2' )
- is( $S2, "EE", 'bors 2' )
-.end
-
-.sub bors_3
- set $S1, "abc"
- set $S2, "EE"
- bors $S0, $S1, $S2
- is( $S0, "egc", 'bors 3' )
- is( $S1, "abc", 'bors 3' )
- is( $S2, "EE", 'bors 3' )
-.end
-
-.sub bors_cow
- set $S1, "foo"
- substr $S2, $S1, 0, 3
- $S1 = bors $S1, "bar"
- is( $S2, "foo", 'bors COW' )
-.end
-
-.sub bxors_null_string
- null $S1
- null $S2
- $S1 = bxors $S1, $S2
- null $S3
- is( $S1, $S3, 'bxors NULL string' )
-
- null $S1
- set $S2, ""
- $S1 = bxors $S1, $S2
- null $S3
- is( $S1, $S3, 'bxors NULL string' )
-
- $S2 = bxors $S2, $S1
- is( $S2, $S3, 'bxors NULL string' )
-
- null $S1
- set $S2, "abc"
- $S1 = bxors $S1, $S2
- is( $S1, "abc", 'bxors NULL string' )
-
- null $S2
- $S1 = bxors $S1, $S2
- is( $S1, "abc", 'bxors NULL string' )
-
- null $S1
- null $S2
- bxors $S3, $S1, $S2
- null $S4
- is( $S3, $S4, 'bxors NULL string' )
-
- set $S1, ""
- bxors $S3, $S1, $S2
- is( $S3, $S4, 'bxors NULL string' )
-
- bxors $S3, $S2, $S1
- is( $S3, $S4, 'bxors NULL string' )
-
- set $S1, "abc"
- bxors $S3, $S1, $S2
- is( $S3, "abc", 'bxors NULL string' )
-
- bxors $S3, $S2, $S1
- is( $S3, "abc", 'bxors NULL string' )
-.end
-
-.sub bxors_2
- set $S1, "a2c"
- set $S2, "Dw"
- $S1 = bxors $S1, $S2
- is( $S1, "%Ec", 'bxors 2' )
- is( $S2, "Dw", 'bxors 2' )
-
- set $S1, "abc"
- set $S2, " X"
- $S1 = bxors $S1, $S2
- is( $S1, "ABCX", 'bxors 2' )
- is( $S2, " X", 'bxors 2' )
-.end
-
-.sub bxors_3
- set $S1, "a2c"
- set $S2, "Dw"
- bxors $S0, $S1, $S2
- is( $S0, "%Ec", 'bxors 3' )
- is( $S1, "a2c", 'bxors 3' )
- is( $S2, "Dw", 'bxors 3' )
-
- set $S1, "abc"
- set $S2, " Y"
- bxors $S0, $S1, $S2
- is( $S0, "ABCY", 'bxors 3' )
- is( $S1, "abc", 'bxors 3' )
- is( $S2, " Y", 'bxors 3' )
-.end
-
-.sub bxors_cow
- set $S1, "foo"
- substr $S2, $S1, 0, 3
- $S1 = bxors $S1, "bar"
- is( $S2, "foo", 'bxors COW' )
-.end
-
-.sub bnots_null_string
- null $S1
- null $S2
- bnots $S1, $S2
- null $S3
- is( $S1, $S3, 'bnots NULL string' )
-
- null $S1
- set $S2, ""
- bnots $S1, $S2
- null $S3
- is( $S1, $S3, 'bnots NULL string' )
-
- bnots $S2, $S1
- is( $S2, $S3, 'bnots NULL string' )
-.end
-
-# This was the previous test used for t/native_pbc/string.t
-.sub bnots_2
- skip( 4, "No unicode yet" )
- # getstdout $P0
- # push $P0, "utf8"
- # set $S1, "a2c"
- # bnots $S2, $S1
- # is( $S1, "a2c", 'bnots 2' )
- # is( $S2, "\xC2\x9E\xC3\x8D\xC2\x9C", 'bnots 2' )
- #
- # bnots $S1, $S1
- # is( $S1, "\xC2\x9E\xC3\x8D\xC2\x9C", 'bnots 2' )
- #
- # bnots $S1, $S1
- # is( $S1, "a2c", 'bnots 2' )
-.end
-
-.sub bnots_cow
- set $S1, "foo"
- substr $S2, $S1, 0, 3
- bnots $S1, $S1
- is( $S2, "foo", 'bnots COW' )
-.end
-
.sub split_on_empty_string
split $P1, "", ""
set $I1, $P1
Modified: branches/gsoc_instrument/t/op/string_cs.t
==============================================================================
--- branches/gsoc_instrument/t/op/string_cs.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/string_cs.t Sat May 29 11:56:49 2010 (r47109)
@@ -411,6 +411,7 @@
SKIP: {
skip( 'no ICU lib', 17 ) unless $PConfig{has_icu};
pir_output_is( <<'CODE', <<"OUTPUT", "unicode downcase" );
+.loadlib 'io_ops'
.sub main :main
set $S0, iso-8859-1:"TÖTSCH"
find_charset $I0, "unicode"
@@ -622,6 +623,7 @@
OUTPUT
pir_output_is( <<'CODE', <<"OUTPUT", "unicode upcase" );
+.loadlib 'io_ops'
.sub main :main
set $S0, iso-8859-1:"tötsch"
find_charset $I0, "unicode"
@@ -638,6 +640,7 @@
OUTPUT
pir_output_is( <<'CODE', <<"OUTPUT", "unicode upcase to combined char" );
+.loadlib 'io_ops'
.sub main :main
set $S1, unicode:"hacek j \u01f0"
upcase $S1, $S1
@@ -668,6 +671,7 @@
# 0x844fb60: 0x005f 0x005f 0x005f 0x004a 0x030c 0x0031 0x0032 0x0000
pir_output_is( <<'CODE', <<"OUTPUT", "unicode upcase to combined char 3.2 bug?" );
+.loadlib 'io_ops'
.sub main :main
set $S1, unicode:"___\u01f0123"
upcase $S1, $S1
@@ -682,6 +686,7 @@
OUTPUT
pir_output_is( <<'CODE', <<"OUTPUT", "unicode titlecase" );
+.loadlib 'io_ops'
.sub main :main
set $S0, iso-8859-1:"tötsch leo"
find_charset $I0, "unicode"
@@ -698,6 +703,7 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "combose combined char" );
+.loadlib 'io_ops'
.sub main :main
set $S1, unicode:"___\u01f0___"
length $I0, $S1
Modified: branches/gsoc_instrument/t/op/stringu.t
==============================================================================
--- branches/gsoc_instrument/t/op/stringu.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/stringu.t Sat May 29 11:56:49 2010 (r47109)
@@ -25,11 +25,12 @@
pir_output_is( <<'CODE', <<OUTPUT, "angstrom" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
chr $S0, 0x212B
- print $P0, $S0
- print $P0, "\n"
+ print $S0
+ print "\n"
end
.end
CODE
@@ -38,8 +39,9 @@
pir_output_is( <<'CODE', <<OUTPUT, "escaped angstrom" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"\x{212b}"
print $S0
print "\n"
@@ -51,8 +53,9 @@
pir_output_is( <<'CODE', <<OUTPUT, "escaped angstrom 2" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{212b}"
print $S0
print "\n"
@@ -64,8 +67,9 @@
pir_output_is( <<'CODE', <<OUTPUT, "escaped angstrom 3" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{212b}-aaaaaa"
print $S0
print "\n"
@@ -77,8 +81,9 @@
pir_output_is( <<'CODE', <<OUTPUT, 'escaped angstrom 3 \uhhhh' );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\u212b-aaaaaa"
print $S0
print "\n"
@@ -90,8 +95,9 @@
pir_output_is( <<'CODE', <<OUTPUT, "MATHEMATICAL BOLD CAPITAL A" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{1d400}-aaaaaa"
print $S0
print "\n"
@@ -103,8 +109,9 @@
pir_output_is( <<'CODE', <<OUTPUT, 'MATHEMATICAL BOLD CAPITAL A \U' );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\U0001d400-aaaaaa"
print $S0
print "\n"
@@ -116,8 +123,9 @@
pir_output_is( <<'CODE', <<OUTPUT, "two upscales" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{212b}-bbbbbb\x{1d400}-cccccc"
print $S0
print "\n"
@@ -133,8 +141,9 @@
pir_output_is( <<'CODE', <<OUTPUT, "two upscales - don't downscale" );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{1d400}-bbbbbb\x{212b}-cccccc"
print $S0
print "\n"
@@ -150,8 +159,9 @@
pir_output_is( <<'CODE', <<OUTPUT, '\cX, \ooo' );
.sub main :main
- getstdout $P0
- $P0.'encoding'("utf8")
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(1)
+ $P1.'encoding'("utf8")
set $S0, "ok 1\cJ"
print $S0
set $S0, "ok 2\012"
Deleted: branches/gsoc_instrument/t/op/sysinfo.t
==============================================================================
--- branches/gsoc_instrument/t/op/sysinfo.t Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,183 +0,0 @@
-#!perl
-# Copyright (C) 2008-2010, Parrot Foundation.
-# $Id$
-
-# initial work by Brad Gilbert b2gills <at> gmail <dot> com
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-
-use Test::More;
-use Config;
-
-use Parrot::Test tests => 14;
-use Parrot::Config;
-
-
-=head1 NAME
-
-t/op/sysinfo.t - System Info
-
-=head1 SYNOPSIS
-
- % prove t/op/sysinfo.t
-
-=head1 DESCRIPTION
-
-Tests for basic system information.
-
-=over 4
-
-=item 1 The size of a platform integer
-
-=item 2 The size of a platform float
-
-=item 3 The size of a platform pointer. (Largest possible data pointer)
-
-=item 4 The OS name
-
-=item 5 The OS version string
-
-=item 6 The OS version number string
-
-=item 7 The CPU architecture
-
-=item 8 The CPU model
-
-=item 9, 10 The min and max INTVAL values
-
-=back
-
-=cut
-
-
-my @setup = (
- { pconfig_key => 'intvalsize',
- pasm_key => 1,
- pir_key => 'SYSINFO_PARROT_INTSIZE',
- desc => 'integer size',
- reg_type => 'I',
- },
- { pconfig_key => 'doublesize',
- pasm_key => 2,
- pir_key => 'SYSINFO_PARROT_FLOATSIZE',
- desc => 'float size',
- reg_type => 'I',
- },
- { pconfig_key => 'ptrsize',
- pasm_key => 3,
- pir_key => 'SYSINFO_PARROT_POINTERSIZE',
- desc => 'pointer size',
- reg_type => 'I',
- },
- { pconfig_key => 'osname',
- pasm_key => 4,
- pir_key => 'SYSINFO_PARROT_OS',
- desc => 'osname',
- reg_type => 'S',
- },
- { pconfig_key => 'cpuarch',
- pasm_key => 7,
- pir_key => 'SYSINFO_CPU_ARCH',
- desc => 'CPU Arch Family',
- reg_type => 'S',
- },
-);
-
-foreach ( @setup ) {
- if ( $_->{reg_type} eq 'I' ) {
- pasm_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "PASM sysinfo $_->{desc}" );
- sysinfo_i_ic I1, $_->{pasm_key}
- print I1
-end
-CODE
- pir_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "PIR sysinfo $_->{desc}" );
-.include 'sysinfo.pasm'
-.sub main :main
- \$I0 = sysinfo .$_->{pir_key}
- print \$I0
-.end
-CODE
- }
- else {
- pasm_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "sysinfo $_->{desc}" );
- sysinfo_s_ic S1, $_->{pasm_key}
- print S1
-end
-CODE
- pir_output_is( <<"CODE", $PConfig{$_->{pconfig_key}}, "PIR sysinfo $_->{desc}" );
-.include 'sysinfo.pasm'
-.sub main :main
- \$S0 = sysinfo .$_->{pir_key}
- print \$S0
-.end
-CODE
- }
-}
-
-SKIP:
-{
- $PConfig{osname} eq 'MSWin32'
- or skip "Tests only meaningful on Win32", 2;
- SKIP:
- {
- eval { require Win32; } or
- skip "requires package Win32 for these tests", 2;
-
- my $osname = Win32::GetOSName();
- $osname = 'WinXP' if $osname =~ m/^WinXP/;
- TODO: {
- local $TODO = "Not Currently Implemented";
- pasm_output_is( <<'CODE', $osname, "sysinfo OS version string" );
- sysinfo_s_ic S1, 5
- print S1
-end
-CODE
-
- my ( $osvername, $major, $minor, $id ) = Win32::GetOSVersion();
-
- pasm_output_is( <<'CODE', "$major.$minor", "sysinfo OS version number string" );
- sysinfo_s_ic S1, 6
- print S1
-end
-CODE
- } # END todo block
- } # END inner SKIP block
-} # END outer SKIP block
-
-SKIP:
-{
- skip "Requires a lot of work to find out the correct answer", 1;
-
- pasm_output_is( <<'CODE', $PConfig{archname}, "sysinfo CPU Model" );
- sysinfo_s_ic S1, 8
- print S1
-end
-CODE
-}
-
-# 9, 10
-
-SKIP:
-{
- skip 'Testing only in some known platforms', 1
- unless $PConfig{osname} eq 'linux';
-
- pir_output_like( <<'CODE', '/^-[1-9][0-9]*\n[1-9][0-9]*\n$/', 'INTVAL min and max values');
-.include 'sysinfo.pasm'
-.sub main :main
- $I0 = sysinfo .SYSINFO_PARROT_INTMIN
- say $I0
- $I0 = sysinfo .SYSINFO_PARROT_INTMAX
- say $I0
-.end
-CODE
-}
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Modified: branches/gsoc_instrument/t/op/time.t
==============================================================================
--- branches/gsoc_instrument/t/op/time.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/op/time.t Sat May 29 11:56:49 2010 (r47109)
@@ -11,7 +11,7 @@
.sub main :main
.include 'test_more.pir'
- plan(29)
+ plan(19)
test_time_i()
test_time_n()
test_sleep_i()
@@ -19,11 +19,6 @@
test_sleep_n()
test_sleep_n_negative()
test_tm_pasm()
- test_gmtime_s_i()
- test_time_n_vs_time_i()
- test_decodetime_p_i()
- test_localtime_s_i()
- test_decodelocaltime_p_i()
.end
.sub test_time_i
@@ -103,67 +98,6 @@
is(.TM_ISDST, 8, "TM_ISDST ok")
.end
-.sub test_gmtime_s_i
- $S0 = gmtime 0
- $I0 = isnull $S0
- is($I0, 0, "gmtime string is not null")
- is($S0, "Thu Jan 1 00:00:00 1970\n", "correct epoch")
- $I1 = length $S0
- is($I1, 25, "string is the correct length")
-.end
-
-.sub test_time_n_vs_time_i
- .local int time_int
- time_int = time
-
- .local num time_float
- time_float = time
-
- # check if time_float is within [time_int - 5;time_int + 5]
- .local int time_int_lower
- time_int_lower = time_int - 5
- if time_float < time_int_lower goto FAIL
- .local int time_int_upper
- time_int_upper = time_int + 5
- if time_float > time_int_upper goto FAIL
-
- ok(1, "time_n value corresponds to time_i value")
- .return()
-
- FAIL:
- ok(0, "time_n value does not correspond to time_t value")
- .return()
-.end
-
-.sub test_decodetime_p_i
- $P0 = decodetime 0
- $I0 = $P0
- is($I0, 9, "decodetime result has 9 values")
- $S0 = typeof $P0
- # TODO: Actually, this should return whatever HLL type replaces
- # FixedIntegerArray. We should test this behavior with a new HLL
- is($S0, "FixedIntegerArray", "decodetime returns the correct PMC type")
-.end
-
-.sub test_localtime_s_i
- $S0 = localtime 0
- $I0 = isnull $S0
- is($I0, 0, "localtime string is not a null string")
- $I0 = length $S0
- is($I0, 25, "localtime string is the correct length")
-.end
-
-.sub test_decodelocaltime_p_i
- $P0 = decodelocaltime 0
- $I0 = $P0
- is($I0, 9, "decodelocaltime result has 9 values")
- $S0 = typeof $P0
- # TODO: Actually, this should return whatever HLL type replaces
- # FixedIntegerArray. We should test this behavior with a new HLL
- is($S0, "FixedIntegerArray", "decodelocaltime returns the correct PMC type")
-.end
-
-
# Local Variables:
# mode: pir
# fill-column: 100
Deleted: branches/gsoc_instrument/t/op/time_old.t
==============================================================================
--- branches/gsoc_instrument/t/op/time_old.t Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,46 +0,0 @@
-#!perl
-# Copyright (C) 2001-2009, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 1;
-
-=head1 NAME
-
-t/op/time.t - Time and Sleep
-
-=head1 SYNOPSIS
-
- % prove t/op/time.t
-
-=head1 DESCRIPTION
-
-Tests the C<time> and C<sleep> operations.
-
-=cut
-
-my $year;
-( undef, undef, undef, undef, undef, $year ) = localtime();
-$year += 1900;
-
-# don't run this test 1 tick before the year changes #'
-
-pasm_output_is( <<'CODE', $year, "decodelocaltime" );
- time I0
- decodelocaltime P0, I0
- .include "tm.pasm"
- set I0, P0[.TM_YEAR]
- print I0
- end
-CODE
-
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Deleted: branches/gsoc_instrument/t/op/trans.t
==============================================================================
--- branches/gsoc_instrument/t/op/trans.t Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,244 +0,0 @@
-#!./parrot
-# Copyright (C) 2001-2010, Parrot Foundation.
-# $Id$
-
-=head1 NAME
-
-t/op/trans.t - Trancendental Mathematical Ops
-
-=head1 SYNOPSIS
-
- % prove t/op/trans.t
-
-=head1 DESCRIPTION
-
-Tests various transcendental operations
-
-=cut
-
-.sub main :main
- .include 'test_more.pir'
- .local num epsilon
- epsilon = _epsilon()
-
- plan(28)
-
- test_sin_n(epsilon)
- test_sin_i(epsilon)
- test_cos_n(epsilon)
- test_cos_i(epsilon)
- test_tan_n(epsilon)
- test_tan_i(epsilon)
- test_sec_n(epsilon)
- test_sec_i(epsilon)
- test_atan_n(epsilon)
- test_atan_i(epsilon)
- test_asin_n(epsilon)
- test_asin_i(epsilon)
- test_acos_n(epsilon)
- test_acos_i(epsilon)
- test_asec_n(epsilon)
- test_asec_i(epsilon)
- test_cosh_n(epsilon)
- test_cosh_i(epsilon)
-.end
-
-.sub _pi
- .return (3.1415926535897)
-.end
-
-.sub _e
- .return (2.7182818459045)
-.end
-
-.sub _epsilon
- .return (0.0001)
-.end
-
-.sub test_sin_n
- .param num epsilon
-
- $N0 = sin 0.0
- is($N0, 0.0, "sin(0.0)", epsilon)
-
- $N0 = sin 1.0
- is($N0, 0.841471, "sin(1.0)", epsilon)
-
- $N1 = _pi()
- $N0 = sin $N1
- is($N0, 0.0, "sin(pi)", epsilon)
-
- $N1 = _pi()
- $N1 = $N1 / 2
- $N0 = sin $N1
- is($N0, 1.0, "sin(pi/2)", epsilon)
-.end
-
-.sub test_sin_i
- .param num epsilon
-
- $N0 = sin 0
- is($N0, 0.0, "sin(0)", epsilon)
-
- $N0 = sin 1
- is($N0, 0.841471, "sin(1)", epsilon)
-.end
-
-.sub test_cos_n
- .param num epsilon
-
- $N0 = cos 0.0
- is($N0, 1.0, "cos(0.0)", epsilon)
-
- $N0 = cos 1.0
- is($N0, 0.540302, "cos(1.0)", epsilon)
-
- $N1 = _pi()
- $N0 = cos $N1
- is($N0, -1.0, "cos(pi)", epsilon)
-
- $N1 = _pi()
- $N1 = $N1 / 2
- $N0 = cos $N1
- is($N0, 0.0, "cos(pi/2)", epsilon)
-.end
-
-.sub test_cos_i
- .param num epsilon
-
- $N0 = cos 0
- is($N0, 1.0, "cos(0)", epsilon)
-
- $N0 = cos 1
- is($N0, 0.540302, "cos(1)", epsilon)
-.end
-
-.sub test_tan_n
- .param num epsilon
-
- $N0 = tan 0.0
- is($N0, 0.0, "tan(0.0)", epsilon)
-
- $N0 = tan 1.0
- is($N0, 1.557408, "tan(1.0)", epsilon)
-.end
-
-.sub test_tan_i
- .param num epsilon
-
- $N0 = tan 0
- is($N0, 0.0, "tan(0)", epsilon)
-
- $N0 = tan 1
- is($N0, 1.557408, "tan(1)", epsilon)
-.end
-
-.sub test_sec_n
- .param num epsilon
-
- $N1 = 1.0
- $N2 = sec $N1
- is($N2, 1.850816, "sec(1.0)", epsilon)
-.end
-
-.sub test_sec_i
- .param num epsilon
-
- $I1 = 1
- $N1 = sec $I1
- is($N1, 1.850816, "sec(1)", epsilon)
-.end
-
-.sub test_atan_n
- .param num epsilon
-
- $N1 = 1.0
- $N2 = atan $N1
- is($N2, 0.785398, "atan(1.0)", epsilon)
-.end
-
-.sub test_atan_i
- .param num epsilon
-
- $I1 = 1
- $N1 = atan $I1
- is($N1, 0.785398, "atan(1)", epsilon)
-.end
-
-.sub test_asin_n
- .param num epsilon
- .local num pi2
- pi2 = _pi()
- pi2 /= 2
-
- $N1 = 1.0
- $N2 = asin $N1
- is($N2, pi2, "asin(1.0)", epsilon)
-.end
-
-.sub test_asin_i
- .param num epsilon
- .local num pi2
- pi2 = _pi()
- pi2 /= 2
-
- $I1 = 1
- $N1 = asin $I1
- is($N1, pi2, "asin(1)", epsilon)
-.end
-
-.sub test_acos_n
- .param num epsilon
-
- $N1 = 1.0
- $N2 = acos $N1
- is($N2, 0.0, "acos(1.0)", epsilon)
-.end
-
-.sub test_acos_i
- .param num epsilon
-
- $I1 = 1
- $N1 = acos $I1
- is($N1, 0.0, "acos(1)", epsilon)
-.end
-
-.sub test_asec_n
- .param num epsilon
-
- $N1 = 1.0
- $N2 = asec $N1
- is($N2, 0.0, "asec(1.0)", epsilon)
-.end
-
-.sub test_asec_i
- .param num epsilon
-
- $I1 = 1
- $N1 = asec $I1
- is($N1, 0.0, "asec(1)", epsilon)
-.end
-
-.sub test_cosh_n
- .param num epsilon
- .local num result
-
- $N1 = 1.0
- $N2 = cosh $N1
- is($N2, 1.543081, "cosh(1.0)", epsilon)
-.end
-
-.sub test_cosh_i
- .param num epsilon
-
- $I1 = 1
- $N1 = cosh $I1
- is($N1, 1.543081, "cosh(1)", epsilon)
-.end
-
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4 ft=pir:
-
Deleted: branches/gsoc_instrument/t/op/trans_old.t
==============================================================================
--- branches/gsoc_instrument/t/op/trans_old.t Sat May 29 11:56:49 2010 (r47108)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,565 +0,0 @@
-#!perl
-# Copyright (C) 2001-2008, Parrot Foundation.
-# $Id$
-
-use strict;
-use warnings;
-use lib qw( . lib ../lib ../../lib );
-use Test::More;
-use Parrot::Test tests => 13;
-use Math::Trig qw( tan sec atan asin acos asec cosh sinh tanh sech );
-
-=head1 NAME
-
-t/op/trans.t - Transcendental Mathematical Ops
-
-=head1 SYNOPSIS
-
- % prove t/op/trans.t
-
-=head1 DESCRIPTION
-
-Tests the transcendental mathematical operations.
-
-=cut
-
-# This defines two macros:
-# fp_eq N, N, LABEL
-# fp_ne N, N, LABEL
-# which will conditionally branch
-# to LABEL if abs(n,n) < epsilon
-
-my $runcore = $ENV{TEST_PROG_ARGS} || '';
-my @bsdtodo = (
- $runcore =~ /--runcore=jit/ && $^O =~ m/bsd/i
- ? ( todo => 'broken under JIT TT #501' )
- : ()
-);
-
-pasm_output_is( <<"CODE", <<OUTPUT, "sinh", @bsdtodo );
- .include 'fp_equality.pasm'
- set N1, 1.0
- sinh N2, N1
- .fp_eq_pasm (N2, 1.175201, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 1
- sinh N2, I1
- .fp_eq_pasm (N2, 1.175201, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "tanh", @bsdtodo );
- .include 'fp_equality.pasm'
- set N1, 1.0
- tanh N2, N1
- .fp_eq_pasm (N2, 0.761594, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 1
- tanh N2, I1
- .fp_eq_pasm (N2, 0.761594, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "sech" );
- .include 'fp_equality.pasm'
- set N1, 1.0
- sech N2, N1
- .fp_eq_pasm (N2, 0.648054, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 1
- sech N2, I1
- .fp_eq_pasm (N2, 0.648054, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-my @jittodo = (
- $runcore =~ /--runcore=jit/
- ? ( todo => 'broken under JIT TT #530' )
- : ()
-);
-pasm_output_is( <<"CODE", <<OUTPUT, 'atan2', @jittodo );
- .include 'fp_equality.pasm'
- set N0, 0.0
- set I0, 0
- set N1, 1.0
- set I1, 1
- set N2, 1.0
- set I2, 1
- set I3, -1
- set N3, -1.0
-
- atan N4, N1, N2
- .fp_eq_pasm (N4, 0.785398, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- atan N4, N1, I2
- .fp_eq_pasm (N4, 0.785398, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- atan N4, I1, N2
- .fp_eq_pasm (N4, 0.785398, EQ3)
- print "not "
-EQ3: print "ok 3\\n"
-
- atan N4, I1, I2
- .fp_eq_pasm (N4, 0.785398, EQ4)
- print "not "
-EQ4: print "ok 4\\n"
-
- atan N4, N3, 1.0
- .fp_eq_pasm (N4, -0.785398, EQ5)
- print "not "
-EQ5: print "ok 5\\n"
-
- atan N4, N1, 0
- .fp_eq_pasm (N4, 1.570796, EQ6)
- print "not "
-EQ6: print "ok 6\\n"
-
- atan N4, I3, 0.0
- .fp_eq_pasm (N4, -1.570796, EQ7)
- print "not "
-EQ7: print "ok 7\\n"
-
- atan N4, I3, -1
- .fp_eq_pasm (N4, -2.356194, EQ8)
- print "not "
-EQ8: print "ok 8\\n"
-
- atan N4, 1.0, N3
- .fp_eq_pasm (N4, 2.356194, EQ9)
- print "not "
-EQ9: print "ok 9\\n"
-
- atan N4, 1.0, I0
- .fp_eq_pasm (N4, 1.570796, EQ10)
- print "not "
-EQ10: print "ok 10\\n"
-
- atan N4, 1, N1
- .fp_eq_pasm (N4, 0.785398, EQ11)
- print "not "
-EQ11: print "ok 11\\n"
-
- atan N4, 1, I1
- .fp_eq_pasm (N4, 0.785398, EQ12)
- print "not "
-EQ12: print "ok 12\\n"
-
- atan N4, 0.0, 1.0
- .fp_eq_pasm (N4, 0.000000, EQ13)
- print "not "
-EQ13: print "ok 13\\n"
-
- atan N4, -1.0, 0
- .fp_eq_pasm (N4, -1.570796, EQ14)
- print "not "
-EQ14: print "ok 14\\n"
-
- atan N4, 1, -1.0
- .fp_eq_pasm (N4, 2.356194, EQ15)
- print "not "
-EQ15: print "ok 15\\n"
-
- atan N4, 0, 1
- .fp_eq_pasm (N4, 0.000000, EQ16)
- print "not "
-EQ16: print "ok 16\\n"
- end
-CODE
-ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-ok 6
-ok 7
-ok 8
-ok 9
-ok 10
-ok 11
-ok 12
-ok 13
-ok 14
-ok 15
-ok 16
-OUTPUT
-
-pasm_output_is( <<"CODE", <<'OUTPUT', 'atan, part 2' );
- .include 'fp_equality.pasm'
- atan N4, -0.0, -0.0
- .fp_eq_pasm (N4, -3.1415926, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
- end
-CODE
-ok 1
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "log2" );
- .include 'fp_equality.pasm'
- set N1, 10.0
- log2 N2, N1
- .fp_eq_pasm (N2, 3.321928, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 10
- log2 N2, I1
- .fp_eq_pasm (N2, 3.321928, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "log10" );
- .include 'fp_equality.pasm'
- set N1, 15.0
- log10 N2, N1
- .fp_eq_pasm (N2, 1.176091, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 15
- log10 N2, I1
- .fp_eq_pasm (N2, 1.176091, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "ln" );
- .include 'fp_equality.pasm'
- set N1, 10.0
- ln N2, N1
- .fp_eq_pasm (N2, 2.302585, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 10
- ln N2, I1
- .fp_eq_pasm (N2, 2.302585, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "exp" );
- .include 'fp_equality.pasm'
- set N1, 10.0
- exp N2, N1
- .fp_eq_pasm (N2, 22026.465795, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 10
- exp N2, I1
- .fp_eq_pasm (N2, 22026.465795, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "pow", @bsdtodo );
- .include 'fp_equality.pasm'
- set N1, 3.0
- set I1, 3
- set N2, 5.0
- set I2, 5
- pow N3, N1, N2
- .fp_eq_pasm (N3, 243.0, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- pow N3, N1, I2
- .fp_eq_pasm (N3, 243.0, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- pow N3, I1, N2
- .fp_eq_pasm (N3, 243.0, EQ3)
- print "not "
-EQ3: print "ok 3\\n"
-
- pow N3, I1, I2
- .fp_eq_pasm (N3, 243.0, EQ4)
- print "not "
-EQ4: print "ok 4\\n"
-
- set N0, 0.0
- set I0, 0
- set N1, 1.0
- set I1, 1
- set N2, 4.0
- set I2, 4
- pow N3, N2, 2.5
- .fp_eq_pasm (N3, 32.0, EQ5)
- print "not "
-EQ5: print "ok 5\\n"
-
- pow N3, N2, -2
- .fp_eq_pasm (N3, 0.0625, EQ6)
- print "not "
-EQ6: print "ok 6\\n"
-
- pow N3, I2, 0.5
- .fp_eq_pasm (N3, 2.0, EQ7)
- print "not "
-EQ7: print "ok 7\\n"
-
- pow N3, I2, 0
- .fp_eq_pasm (N3, 1.0, EQ8)
- print "not "
-EQ8: print "ok 8\\n"
-
- pow N3, 0.0, N2
- .fp_eq_pasm (N3, 0.0, EQ9)
- print "not "
-EQ9: print "ok 9\\n"
-
- pow N3, 2.5, 0.0
- .fp_eq_pasm (N3, 1.0, EQ10)
- print "not "
-EQ10: print "ok 10\\n"
-
- pow N3, 2.5, I2
- .fp_eq_pasm (N3, 39.0625, EQ11)
- print "not "
-EQ11: print "ok 11\\n"
-
- pow N3, 2.0, -4
- .fp_eq_pasm (N3, 0.0625, EQ12)
- print "not "
-EQ12: print "ok 12\\n"
-
- pow N3, 0, N2
- .fp_eq_pasm (N3, 0.0, EQ13)
- print "not "
-EQ13: print "ok 13\\n"
-
- pow N3, 4, -0.5
- .fp_eq_pasm (N3, 0.5, EQ14)
- print "not "
-EQ14: print "ok 14\\n"
-
- pow N3, 4, I2
- .fp_eq_pasm (N3, 256.0, EQ15)
- print "not "
-EQ15: print "ok 15\\n"
-
- pow N3, 4, -1
- .fp_eq_pasm (N3, 0.25, EQ16)
- print "not "
-EQ16: print "ok 16\\n"
- end
-CODE
-ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-ok 6
-ok 7
-ok 8
-ok 9
-ok 10
-ok 11
-ok 12
-ok 13
-ok 14
-ok 15
-ok 16
-OUTPUT
-
-pasm_output_is( <<"CODE", <<OUTPUT, "sqrt" );
- .include 'fp_equality.pasm'
- set N1, 9.0
- sqrt N2, N1
- .fp_eq_pasm (N2, 3.0, EQ1)
- print "not "
-EQ1: print "ok 1\\n"
-
- set I1, 9
- sqrt N2, I1
- .fp_eq_pasm (N2, 3.0, EQ2)
- print "not "
-EQ2: print "ok 2\\n"
-
- end
-CODE
-ok 1
-ok 2
-OUTPUT
-
-pasm_output_is( <<'CODE', <<OUTPUT, "pow_n_n_ic" );
- set N0, 2.0
- pow N1, N0, 0
- print N1
- print "\n"
- pow N1, N0, 1
- print N1
- print "\n"
- pow N1, N0, 2
- print N1
- print "\n"
- pow N1, N0, 3
- print N1
- print "\n"
- pow N1, N0, 4
- print N1
- print "\n"
- pow N1, N0, 5
- print N1
- print "\n"
- pow N1, N0, 6
- print N1
- print "\n"
- pow N1, N0, 7
- print N1
- print "\n"
- pow N1, N0, -1
- print N1
- print "\n"
- pow N1, N0, -2
- print N1
- print "\n"
- pow N1, N0, -3
- print N1
- print "\n"
- pow N1, N0, -4
- print N1
- print "\n"
- pow N1, N0, -5
- end
-CODE
-1
-2
-4
-8
-16
-32
-64
-128
-0.5
-0.25
-0.125
-0.0625
-OUTPUT
-
-pasm_output_is( <<'CODE', <<OUTPUT, "pow_n_n_i" );
- set N0, 2.0
- set I0, 0
- pow N1, N0, I0
- print N1
- print "\n"
- inc I0
- pow N1, N0, I0
- print N1
- print "\n"
- inc I0
- pow N1, N0, I0
- print N1
- print "\n"
- inc I0
- pow N1, N0, I0
- print N1
- print "\n"
- inc I0
- pow N1, N0, I0
- print N1
- print "\n"
- inc I0
- pow N1, N0, I0
- print N1
- print "\n"
- inc I0
- pow N1, N0, I0
- print N1
- print "\n"
- set I0, -1
- pow N1, N0, I0
- print N1
- print "\n"
- dec I0
- pow N1, N0, I0
- print N1
- print "\n"
- dec I0
- pow N1, N0, I0
- print N1
- print "\n"
- dec I0
- pow N1, N0, I0
- print N1
- print "\n"
- dec I0
- pow N1, N0, I0
- print N1
- print "\n"
- dec I0
- pow N1, N0, I0
- print N1
- print "\n"
- end
-CODE
-1
-2
-4
-8
-16
-32
-64
-0.5
-0.25
-0.125
-0.0625
-0.03125
-0.015625
-OUTPUT
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Modified: branches/gsoc_instrument/t/pmc/complex.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/complex.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/complex.t Sat May 29 11:56:49 2010 (r47109)
@@ -21,7 +21,7 @@
.include 'fp_equality.pasm'
.include "iglobals.pasm"
- plan(459)
+ plan(458)
string_parsing()
exception_malformed_string__real_part()
@@ -54,7 +54,6 @@
test_sub()
test_i_sub()
sprintf_with_a_complex()
- e_raised_pi_time_i__plus_1_equal_0()
ln_of_complex_numbers()
exp_of_complex_numbers()
sqrt_of_complex_numbers()
@@ -649,21 +648,6 @@
.sprintf_is( "%.3f%+.3fi", "0+i", "0.000+1.000i" )
.end
-.sub e_raised_pi_time_i__plus_1_equal_0
- .local pmc c, c2, c3
- c = new ['Complex']
- c2 = new ['Complex']
- c3 = new ['Complex']
- # e^(pi * i) + 1 = 0
- $N0 = atan 1
- $N0 *= 4
- c[0] = 0.0
- c[1] = $N0
- c2 = c.'exp'()
- c2 += 1.0
- .sprintf_is( "%.3f%+.3fi", c2, "0.000+0.000i" )
-.end
-
# # The inverse hyperbolic functions are broken wrt -0.0
# # Need to find some formal spec for when to return -0.0.
Modified: branches/gsoc_instrument/t/pmc/eval.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/eval.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/eval.t Sat May 29 11:56:49 2010 (r47109)
@@ -245,6 +245,7 @@
my (undef, $temp2_pbc) = create_tempfile( SUFFIX => '.pbc', UNLINK => 1 );
pir_output_is( <<"CODE", <<'OUTPUT', "eval.get_string" );
+.loadlib 'io_ops'
.sub main :main
.local pmc f1, f2
@@ -320,6 +321,7 @@
close $fh;
pir_output_is( <<"CODE", <<'OUTPUT', "eval.get_string - same file" );
+.loadlib 'io_ops'
.sub main :main
.local pmc f1, f2
.local pmc io, os
@@ -363,6 +365,7 @@
my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
pir_output_is( <<"CODE", <<'OUTPUT', "eval.freeze" );
+.loadlib 'io_ops'
.sub main :main
.local pmc f, e
.local pmc io
@@ -396,6 +399,7 @@
OUTPUT
pir_output_is( <<"CODE", <<'OUTPUT', "eval.thaw", todo => 'TT #1142' );
+.loadlib 'io_ops'
.sub main :main
.local pmc io, e
.local string file
@@ -418,6 +422,7 @@
OUTPUT
pir_output_is( <<"CODE", <<'OUTPUT', "eval.freeze+thaw" );
+.loadlib 'io_ops'
.sub main :main
.local pmc f, e
.local pmc io
Modified: branches/gsoc_instrument/t/pmc/exception-old.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/exception-old.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/exception-old.t Sat May 29 11:56:49 2010 (r47109)
@@ -342,7 +342,7 @@
catch:
.get_results($P1)
say "caught"
- unroll $P1
+ finalize $P1
.return()
.end
Modified: branches/gsoc_instrument/t/pmc/filehandle.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/filehandle.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/filehandle.t Sat May 29 11:56:49 2010 (r47109)
@@ -263,7 +263,7 @@
\$I0 = filehandle.'eof'()
if \$I0 goto end_read_loop
- test_line = readline filehandle
+ test_line = filehandle.'readline'()
if test_line == "" goto end_read_loop
test_line = chomp( test_line )
\$I1 = test_line
@@ -586,7 +586,6 @@
.sub 'main'
.local pmc pipe, conf, interp
.local string cmd
- pipe = new ['FileHandle']
interp = getinterp
conf = interp[.IGLOBALS_CONFIG_HASH]
@@ -601,7 +600,8 @@
aux = conf['exe']
cmd .= aux
- pipe = open cmd, "rp"
+ pipe = new ['FileHandle']
+ pipe.'open'(cmd, "rp")
pipe.'readall'()
pipe.'close'()
print "expect 0 exit status: "
@@ -609,7 +609,8 @@
say $I0
cmd .= ' --this_is_not_a_valid_option'
- pipe = open cmd, "rp"
+ pipe = new ['FileHandle']
+ pipe.'open'(cmd, "rp")
pipe.'readall'()
pipe.'close'()
print "expect 1 exit status: "
Modified: branches/gsoc_instrument/t/pmc/freeze.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/freeze.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/freeze.t Sat May 29 11:56:49 2010 (r47109)
@@ -353,6 +353,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "freeze class" );
+.loadlib 'io_ops'
newclass P10, "Foo"
set S10, P10
print S10
@@ -371,6 +372,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "thaw class into new interpreter" );
+.loadlib 'io_ops'
set S3, "temp.fpmc"
.include "stat.pasm"
stat I0, S3, .STAT_FILESIZE
@@ -414,6 +416,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "freeze class w attr" );
+.loadlib 'io_ops'
newclass P10, "Foo"
addattribute P10, ".aa"
set S10, P10
@@ -433,6 +436,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "thaw class w attr into new interpreter" );
+.loadlib 'io_ops'
set S3, "temp.fpmc"
.include "stat.pasm"
stat I0, S3, .STAT_FILESIZE
@@ -471,6 +475,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "thaw class w attr same interp" );
+.loadlib 'io_ops'
newclass P10, "Foo"
addattribute P10, ".aa"
addattribute P10, ".bb"
@@ -519,6 +524,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "thaw object w attr into same interpreter" );
+.loadlib 'io_ops'
newclass P10, "Foo"
addattribute P10, ".aa"
addattribute P10, ".bb"
@@ -560,6 +566,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', "thaw object w attr into new interpreter" );
+.loadlib 'io_ops'
set S3, "temp.fpmc"
.include "stat.pasm"
stat I0, S3, .STAT_FILESIZE
Modified: branches/gsoc_instrument/t/pmc/integer.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/integer.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/integer.t Sat May 29 11:56:49 2010 (r47109)
@@ -19,7 +19,7 @@
.sub 'test' :main
.include 'test_more.pir'
- plan(62)
+ plan(61)
test_init()
test_basic_math()
test_truthiness_and_definedness()
@@ -321,8 +321,6 @@
is($P2,3)
mod $P2, $P0, $P1
is($P2,0)
- pow $P2, $P0, $P1
- is($P2,36)
.end
Modified: branches/gsoc_instrument/t/pmc/io.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/io.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/io.t Sat May 29 11:56:49 2010 (r47109)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 41;
+use Parrot::Test tests => 45;
use Parrot::Test::Util 'create_tempfile';
use Parrot::Test::Util 'create_tempfile';
@@ -41,108 +41,107 @@
my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
-pasm_output_is( <<"CODE", <<'OUTPUT', "open/close" );
- open P0, "$temp_file", 'w'
- print P0, "a line\\n"
- close P0
- open P0, "$temp_file", 'r'
- read S0, P0, 20
- print S0
- end
+pir_output_is( <<"CODE", <<'OUTPUT', "open/close" );
+.sub main :main
+ \$P0 = new ['FileHandle']
+ \$P0.'open'("$temp_file", 'w')
+ print \$P0, "a line\\n"
+ \$P0.'close'()
+ \$P0.'open'("$temp_file", 'r')
+ \$S0 = \$P0.'read'(20)
+ print \$S0
+.end
CODE
a line
OUTPUT
-pasm_output_is( <<"CODE", <<'OUTPUT', "timely destruction" );
- interpinfo I0, 2 # GC mark runs
- open P0, "$temp_file", 'w'
- needs_destroy P0
- print P0, "a line\\n"
- null P0 # kill it
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction (ops)");
+.loadlib 'io_ops'
+.const string temp_file = '%s'
+.sub main :main
+ interpinfo $I0, 2 # GC mark runs
+ $P0 = open temp_file, 'w'
+ needs_destroy $P0
+ print $P0, "a line\n"
+ null $P0 # kill it
sweep 0 # a lazy GC has to close the PIO
- open P0, "$temp_file", 'r'
- read S0, P0, 20
- print S0
- end
-CODE
-a line
-OUTPUT
-
-# TT #1178
-pir_output_is( <<'CODE', <<'OUTPUT', "get_fd()/fdopen" );
-.sub main :main
- getstdout $P0
- $I0 = $P0.'get_fd'()
- fdopen $P1, $I0, 'w'
- defined $I0, $P1
- unless $I0, nok
- print $P1, "ok\n"
- close $P1
- end
-nok:
- print "fdopen failed\n"
+ $P0 = open temp_file, 'r'
+ $S0 = $P0.'read'(20)
+ print $S0
.end
CODE
-ok
+a line
OUTPUT
-# TT #1178
-pir_output_is( <<'CODE', <<'OUTPUT', 'fdopen - no close' );
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction", todo => 'TT #1659' );
+.const string temp_file = '%s'
.sub main :main
- getstdout $P0
- $I0 = $P0.'get_fd'()
- fdopen $P1, $I0, 'w'
- defined $I0, $P1
- unless $I0, nok
- print $P1, "ok\n"
- end
-nok:
- print "fdopen failed\n"
+ interpinfo $I0, 2 # GC mark runs
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
+ needs_destroy $P0
+ print $P0, "a line\n"
+ null $P0 # kill it
+ sweep 0 # a lazy GC has to close the PIO
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'r')
+ $S0 = $P0.'read'(20)
+ print $S0
.end
CODE
-ok
+a line
OUTPUT
my (undef, $no_such_file) = create_tempfile( UNLINK => 1, OPEN => 0 );
-pasm_output_is( <<"CODE", <<'OUTPUT', "get_bool" );
+pir_output_is( sprintf( <<'CODE', $no_such_file, $temp_file ), <<'OUTPUT', "get_bool" );
+.const string no_such_file = '%s'
+.const string temp_file = '%s'
+
+.sub main :main
push_eh read_non_existent_file
- open P0, "$no_such_file", 'r'
+ $P0 = new ['FileHandle']
+ $P0.'open'(no_such_file, 'r')
- print "Huh: '$no_such_file' exists? - not "
+ print "Huh: '"
+ print no_such_file
+ print "' exists? - not "
ok1:
say "ok 1"
- open P0, "$temp_file", 'w'
- print P0, "a line\\n"
- print P0, "a line\\n"
- close P0
-
- open P0, "$temp_file", 'r'
- if P0, ok2
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
+ $P0.'print'("a line\n")
+ $P0.'print'("a line\n")
+ $P0.'close'()
+
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'r')
+ if $P0, ok2
print "not "
ok2: say "ok 2"
- read S0, P0, 1024
- read S0, P0, 1024
- unless P0, ok3
+ $S0 = $P0.'read'(1024)
+ $S0 = $P0.'read'(1024)
+ unless $P0, ok3
print "not "
ok3: say "ok 3"
- defined I0, P0
- if I0, ok4
+ defined $I0, $P0
+ if $I0, ok4
print "not "
ok4: say "ok 4"
- close P0
- defined I0, P0 # closed file is still defined
- if I0, ok5
+ $P0.'close'()
+ defined $I0, $P0 # closed file is still defined
+ if $I0, ok5
print "not "
ok5: say "ok 5"
- unless P0, ok6 # but false
+ unless $P0, ok6 # but false
print "not "
ok6: say "ok 6"
- end
+ .return ()
read_non_existent_file:
pop_eh
branch ok1
+.end
CODE
ok 1
ok 2
@@ -152,34 +151,71 @@
ok 6
OUTPUT
-pasm_output_is( <<"CODE", <<'OUTPUT', "read on invalid fh should throw exception" );
- new P0, ['FileHandle']
+pir_output_is( <<'CODE', <<'OUTPUT', "read on invalid fh should throw exception (ops)" );
+.loadlib 'io_ops'
+.sub main :main
+ new $P0, ['FileHandle']
push_eh _readline_handler
- readline S0, P0
+ $S0 = readline $P0
print "not "
_readline_handler:
- print "ok 1\\n"
+ print "ok 1\n"
pop_eh
push_eh _read_handler
- read S0, P0, 1
+ $S0 = read $P0, 1
print "not "
_read_handler:
- print "ok 2\\n"
+ print "ok 2\n"
pop_eh
push_eh _print_handler
- print P0, "kill me now\\n"
+ print $P0, "kill me now\n"
print "not "
_print_handler:
- print "ok 3\\n"
+ print "ok 3\n"
pop_eh
- end
+.end
+CODE
+ok 1
+ok 2
+ok 3
+OUTPUT
+
+pir_output_is( <<'CODE', <<'OUTPUT', "read on invalid fh should throw exception" );
+.sub main :main
+ new $P0, ['FileHandle']
+
+ push_eh _readline_handler
+ $S0 = $P0.'readline'()
+ print "not "
+
+_readline_handler:
+ print "ok 1\n"
+ pop_eh
+
+ push_eh _read_handler
+ $S0 = $P0.'read'(1)
+ print "not "
+
+_read_handler:
+ print "ok 2\n"
+ pop_eh
+
+ push_eh _print_handler
+ print $P0, "kill me now\n"
+ print "not "
+
+_print_handler:
+ print "ok 3\n"
+ pop_eh
+
+.end
CODE
ok 1
ok 2
@@ -206,6 +242,7 @@
close $FOO;
pasm_output_is( <<"CODE", <<'OUTPUT', "open and readline" );
+.loadlib 'io_ops'
open P0, "$temp_file"
set S0, ""
set S1, ""
@@ -224,6 +261,7 @@
close $FOO;
pasm_output_is( <<"CODE", <<'OUTPUT', "open and readline, no final newline" );
+.loadlib 'io_ops'
open P0, "$temp_file"
set S0, ""
set S1, ""
@@ -240,6 +278,7 @@
close $FOO;
pasm_output_is( <<"CODE", <<'OUTPUT', "open & print" );
+.loadlib 'io_ops'
set I0, -12
set N0, 2.2
set S0, "Foo"
@@ -268,6 +307,7 @@
# write to file opened for reading
pasm_output_is( <<"CODE", <<'OUTPUT', "3-arg open" );
+.loadlib 'io_ops'
open P1, "$temp_file", 'w'
print P1, "Foobar\\n"
close P1
@@ -297,6 +337,7 @@
OUTPUT
pasm_output_is( <<"CODE", <<'OUTPUT', 'open and close' );
+.loadlib 'io_ops'
open P1, "$temp_file", "w"
print P1, "Hello, World!\\n"
close P1
@@ -311,6 +352,7 @@
OUTPUT
pasm_output_is( <<"CODE", '', 'append' );
+.loadlib 'io_ops'
open P1, "$temp_file", 'wa'
print P1, "Parrot flies\\n"
close P1
@@ -323,6 +365,7 @@
OUTPUT
pasm_output_is( <<"CODE", '', 'write to file' );
+.loadlib 'io_ops'
open P1, "$temp_file", 'w'
print P1, "Parrot overwrites\\n"
close P1
@@ -334,6 +377,7 @@
OUTPUT
pasm_output_is( <<"CODE", '', "Parrot_io_flush on buffer full" );
+.loadlib 'io_ops'
set I0, 0
set I1, 10000
@@ -354,22 +398,25 @@
words
OUTPUT
-pir_output_is( <<"CODE", <<'OUTPUT', "turn off buffering" );
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "turn off buffering" );
+.const string temp_file = '%s'
+
.sub main :main
- open \$P0, "$temp_file", 'w'
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
-# set buffer type
- \$P0.'buffer_type'('unbuffered')
+# set buffer type
+ $P0.'buffer_type'('unbuffered')
-# get buffer type
- \$S0 = \$P0.'buffer_type'()
- print \$S0
- print "\\n"
+# get buffer type
+ $S0 = $P0.'buffer_type'()
+ print $S0
+ print "\n"
- print \$P0, "Howdy World\\n"
+ print $P0, "Howdy World\n"
- close \$P0
- end
+ $P0.'close'()
+ end
.end
CODE
unbuffered
@@ -379,50 +426,54 @@
Howdy World
OUTPUT
-pir_output_is( <<"CODE", <<'OUTPUT', 'I/O buffering' );
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', 'I/O buffering' );
+.const string temp_file = '%s'
+
.sub main
.local string filename
- filename = "$temp_file"
- \$P1 = open filename, 'w'
+ filename = temp_file
+ $P1 = new ['FileHandle']
+ $P1.'open'(filename, 'w')
.local int count, max, nltest
count = 0
max = 10000
LOOP:
if count > max goto DONE
- \$S1 = count
- \$S1 = concat \$S1, " "
- print \$P1, \$S1
+ $S1 = count
+ $S1 = concat $S1, " "
+ print $P1, $S1
inc count
nltest = mod count, 20
if nltest goto LOOP
- print \$P1, "\\n"
+ print $P1, "\n"
goto LOOP
DONE:
- print \$P1, "\\n"
- close \$P1
+ print $P1, "\n"
+ $P1.'close'()
PART_2:
- \$P1 = open filename
- \$I0 = 0
+ $P1 = new ['FileHandle']
+ $P1.'open'(filename)
+ $I0 = 0
LINE:
- \$S1 = readline \$P1
- unless \$S1 goto SUCCESS
- \$S1 = chopn \$S1, 1
+ $S1 = $P1.'readline'()
+ unless $S1 goto SUCCESS
+ $S1 = chopn $S1, 1
NEXT_NR:
- \$I1 = length \$S1
- if \$I1 <= 1 goto LINE
- \$S2 = ""
+ $I1 = length $S1
+ if $I1 <= 1 goto LINE
+ $S2 = ""
SPLIT:
- \$S3 = substr \$S1, 0, 1
- \$S1 = replace \$S1, 0, 1, ""
- if \$S3 == " " goto GOT_NR
- \$S2 = concat \$S2, \$S3
+ $S3 = substr $S1, 0, 1
+ $S1 = replace $S1, 0, 1, ""
+ if $S3 == " " goto GOT_NR
+ $S2 = concat $S2, $S3
goto SPLIT
GOT_NR:
- \$I1 = \$S2
- if \$I0 != \$I1 goto FAILED
- inc \$I0
+ $I1 = $S2
+ if $I0 != $I1 goto FAILED
+ inc $I0
goto NEXT_NR
FAILED:
@@ -440,17 +491,19 @@
# TT #1178
pir_output_is( <<'CODE', <<'OUT', 'standard file descriptors' );
.sub main :main
- getstdin $P0
- $I0 = $P0.'get_fd'()
+ $P99 = getinterp
+ $P0 = $P99.'stdhandle'(0)
+ $I0 = $P0.'get_fd'()
# I0 is 0 on Unix and non-Null on stdio and win32
print "ok 1\n"
- getstdout $P1
+
+ $P1 = $P99.'stdhandle'(1)
$I1 = $P1.'get_fd'()
if $I1, OK_2
print "not "
OK_2:
say "ok 2"
- getstderr $P2
+ $P2 = $P99.'stdhandle'(2)
$I2 = $P2.'get_fd'()
if $I2, OK_3
print "not "
@@ -463,7 +516,8 @@
ok 3
OUT
-pasm_output_is( <<'CODE', <<'OUTPUT', 'printerr' );
+pasm_output_is( <<'CODE', <<'OUTPUT', 'printerr op' );
+.loadlib 'io_ops'
new P0, ['String']
set P0, "This is a test\n"
printerr 10
@@ -481,15 +535,17 @@
This is a test
OUTPUT
-pasm_output_is( <<'CODE', <<'OUTPUT', 'puts method' );
- getstdout P2
- can I0, P2, "puts"
- if I0, ok1
- print "not "
+pir_output_is( <<'CODE', <<'OUTPUT', 'puts method' );
+.sub main :main
+ $P0 = getinterp
+ $P2 = $P0.'stdhandle'(1)
+ can $I0, $P2, "puts"
+ if $I0, ok1
+ print "not "
ok1: print "ok 1\n"
- set_args "0,0", P2, "ok 2\n"
- callmethodcc P2, "puts"
- end
+ set_args "0,0", $P2, "ok 2\n"
+ callmethodcc $P2, "puts"
+.end
CODE
ok 1
ok 2
@@ -501,7 +557,8 @@
.local string s
s = "ok 2\n"
.local pmc io
- io = getstdout
+ $P0 = getinterp
+ io = $P0.'stdhandle'(1)
$I0 = can io, "puts"
if $I0 goto ok1
print "not "
@@ -515,6 +572,7 @@
OUTPUT
pasm_output_is( <<'CODE', <<'OUTPUT', 'callmethod puts' );
+.loadlib 'io_ops'
getstderr P2 # the object
set S0, "puts" # method
set S5, "ok 1\n" # 2nd param
@@ -530,6 +588,7 @@
OUTPUT
pasm_output_is( <<"CODE", <<'OUTPUT', 'seek/tell' );
+.loadlib 'io_ops'
open P0, "$temp_file", 'w'
print P0, "Hello "
tell I0, P0
@@ -547,7 +606,20 @@
Hello Parrot!
OUTPUT
-pasm_error_output_like( <<"CODE", <<'OUTPUT', '32bit seek: exception' );
+pir_error_output_like( sprintf(<<'CODE', $temp_file), <<'OUTPUT', '32bit seek: exception' );
+.const string temp_file = '%s'
+.sub main :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
+ $P0.'seek'(-1, 0)
+ say "error!"
+.end
+CODE
+/seek failed/
+OUTPUT
+
+pasm_error_output_like( <<"CODE", <<'OUTPUT', '32bit seek: exception (ops)' );
+.loadlib 'io_ops'
open P0, "$temp_file", 'w'
seek P0, -1, 0
say "error!"
@@ -556,7 +628,20 @@
/seek failed \(32bit\)/
OUTPUT
-pasm_error_output_like( <<"CODE", <<'OUTPUT', '64bit seek: exception' );
+pir_error_output_like( sprintf(<<'CODE', $temp_file), <<'OUTPUT', '64bit seek: exception' );
+.const string temp_file = '%s'
+.sub main :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
+ $P0.'seek'(-1, -1, 0)
+ say "error!"
+.end
+CODE
+/seek failed/
+OUTPUT
+
+pasm_error_output_like( <<"CODE", <<'OUTPUT', '64bit seek: exception (ops)' );
+.loadlib 'io_ops'
open P0, "$temp_file", 'w'
seek P0, -1, -1, 0
say "error!"
@@ -565,7 +650,33 @@
/seek failed \(64bit\)/
OUTPUT
-pasm_output_is( <<"CODE", <<'OUTPUT', "peek" );
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "peek" );
+.const string temp_file = '%s'
+.sub main :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
+ print $P0, "a line\n"
+ $P0.'close'()
+
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'r')
+ $S0 = $P0.'peek'()
+ print $S0
+ $S1 = $P0.'peek'()
+ print $S1
+ print "\n"
+ $S2 = $P0.'read'(2)
+ $S3 = $P0.'peek'()
+ print $S3
+ print "\n"
+.end
+CODE
+aa
+l
+OUTPUT
+
+pasm_output_is( <<"CODE", <<'OUTPUT', "peek (ops)" );
+.loadlib 'io_ops'
open P0, "$temp_file", 'w'
print P0, "a line\\n"
close P0
@@ -585,7 +696,27 @@
l
OUTPUT
-pasm_output_is( <<"CODE", <<'OUTPUT', "peek on an empty file" );
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "peek on an empty file" );
+.const string temp_file = '%s'
+.sub main :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'w')
+ $P0.'close'()
+
+ $P0 = new ['FileHandle']
+ $P0.'open'(temp_file, 'r')
+ $S0 = $P0.'peek'()
+ eq $S0, "", OK1
+ print "not "
+OK1:
+ say "ok 1"
+.end
+CODE
+ok 1
+OUTPUT
+
+pasm_output_is( <<"CODE", <<'OUTPUT', "peek on an empty file (ops)" );
+.loadlib 'io_ops'
open P0, "$temp_file", 'w'
close P0
open P0, "$temp_file", 'r'
@@ -603,15 +734,17 @@
.sub _main
# Write something into a file
.local pmc out
- out = open "$temp_file", 'w'
+ out = new ['FileHandle']
+ out.'open'("$temp_file", 'w')
print out, "0123456789\\n"
- close out
+ out.'close'()
# read file contents back in
.local pmc in
- in = open "$temp_file", 'r'
+ in = new ['FileHandle']
+ in.'open'("$temp_file", 'r')
.local string from_file
- from_file = read in, 20
+ from_file = in.'read'(20)
# Extract part of the read in file
.local string head_from_file
@@ -629,15 +762,17 @@
.sub _main
# Write something into a file
.local pmc out
- out = open "$temp_file", 'w'
+ out = new ['FileHandle']
+ out.'open'("$temp_file", 'w')
print out, "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ\\n"
- close out
+ out.'close'()
.local pmc in
.local string line
- in = open '$temp_file', 'r'
- line = read in, 50000
- close in
+ in = new ['FileHandle']
+ in.'open'('$temp_file', 'r')
+ line = in.'read'(50000)
+ in.'close'()
.local string sub_1
sub_1 = ''
@@ -663,6 +798,7 @@
OUTPUT
pir_error_output_like( <<'CODE', <<'OUT', 'read on null PMC throws exception');
+.loadlib 'io_ops'
.sub main :main
null $P1
$S0 = read $P1, 1
@@ -678,6 +814,7 @@
close $FOO;
pir_output_is( <<"CODE", <<"OUTPUT", "utf8 read enabled" );
+.loadlib 'io_ops'
.sub main :main
.local pmc pio
.local int len
@@ -712,10 +849,11 @@
.local pmc pio
.local string f
f = '$temp_file'
- pio = open f, 'r'
+ pio = new ['FileHandle']
+ pio.'open'(f, 'r')
pio.'encoding'("utf8")
- \$S0 = readline pio
- close pio
+ \$S0 = pio.'readline'()
+ pio.'close'()
\$I1 = charset \$S0
\$S2 = charsetname \$I1
say \$S2
@@ -735,6 +873,7 @@
OUTPUT
pir_output_is( <<"CODE", <<"OUTPUT", "utf8 read enabled, read parts" );
+.loadlib 'io_ops'
.sub main :main
.local pmc pio
.local int len
@@ -742,13 +881,14 @@
.local string f
f = '$temp_file'
len = stat f, .STAT_FILESIZE
- pio = open f, 'r'
+ pio = new ['FileHandle']
+ pio.'open'(f, 'r')
pio.'encoding'("utf8")
- \$S0 = read pio, 2
+ \$S0 = pio.'read'(2)
len -= 2
- \$S1 = read pio, len
+ \$S1 = pio.'read'(len)
\$S0 .= \$S1
- close pio
+ pio.'close'()
\$I1 = charset \$S0
\$S2 = charsetname \$I1
say \$S2
@@ -775,9 +915,10 @@
line 3
EOS
.local pmc pio, cl
- pio = open "$temp_file", 'w'
+ pio = new ['FileHandle']
+ pio.'open'("$temp_file", 'w')
print pio, \$S0
- close pio
+ pio.'close'()
cl = new ['FileHandle']
\$S1 = cl.'readall'('$temp_file')
if \$S0 == \$S1 goto ok
@@ -797,10 +938,13 @@
line 3
EOS
.local pmc pio, pio2
- pio = open "$temp_file", 'w'
+ pio = new ['FileHandle']
+ pio.'open'("$temp_file", 'w')
print pio, \$S0
- close pio
- pio2 = open "$temp_file", 'r'
+ pio.'close'()
+
+ pio2 = new ['FileHandle']
+ pio2.'open'("$temp_file", 'r')
\$S1 = pio2.'readall'()
if \$S0 == \$S1 goto ok
print "not "
@@ -812,6 +956,7 @@
OUTPUT
pir_error_output_like( <<'CODE', <<"OUTPUT", "stat failed" );
+.loadlib 'io_ops'
.sub main :main
.local pmc pio
.local int len
Modified: branches/gsoc_instrument/t/pmc/nci.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/nci.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/nci.t Sat May 29 11:56:49 2010 (r47109)
@@ -608,24 +608,26 @@
ok 1
OUTPUT
- pasm_output_is( <<'CODE', <<'OUTPUT', "nci_it" );
- loadlib P1, "libnci_test"
+ pir_output_is( <<'CODE', <<'OUTPUT', "nci_it" );
+.loadlib 'io_ops'
+.sub 'main' :main
+ loadlib $P1, "libnci_test"
printerr "loaded\n"
- dlfunc P0, P1, "nci_it", "it"
+ dlfunc $P0, $P1, "nci_it", "it"
printerr "dlfunced\n"
- set S5, "ko\n"
- set_args "0", S5
- invokecc P0
- get_results "0", I5
- ne I5, 2, nok_1
+ set $S5, "ko\n"
+ set_args "0", $S5
+ invokecc $P0
+ get_results "0", $I5
+ ne $I5, 2, nok_1
printerr "ok 2\n"
end
nok_1: printerr "nok 1\n"
- printerr I5
+ printerr $I5
printerr "\n"
end
nok_2: printerr "nok 2\n"
- end
+.end
CODE
loaded
dlfunced
@@ -636,6 +638,7 @@
pir_output_is( <<'CODE', <<'OUTPUT', "nci_it" );
.include "datatypes.pasm"
+.loadlib 'io_ops'
.sub test :main
loadlib $P1, "libnci_test"
Modified: branches/gsoc_instrument/t/pmc/resizablepmcarray.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/resizablepmcarray.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/resizablepmcarray.t Sat May 29 11:56:49 2010 (r47109)
@@ -21,7 +21,7 @@
.include 'fp_equality.pasm'
.include 'test_more.pir'
- plan(129)
+ plan(137)
resize_tests()
negative_array_size()
@@ -39,6 +39,8 @@
get_mro_tests()
push_and_pop()
unshift_and_shift()
+ shift_empty()
+ pop_empty()
multikey_access()
exists_and_defined()
append_tests()
@@ -579,6 +581,74 @@
is(elements, 0, "expectedly empty RPA has 0 elements")
.end
+.sub shift_empty
+ .local pmc pmc_arr
+ pmc_arr = new ['ResizablePMCArray']
+ $I1 = 0
+ push_eh handle_i
+ $I0 = shift pmc_arr
+ inc $I1
+handle_i:
+ pop_eh
+ is($I1, 0, 'shift int from empty RPA throws')
+
+ push_eh handle_n
+ $N0 = shift pmc_arr
+ inc $I1
+handle_n:
+ pop_eh
+ is($I1, 0, 'shift num from empty RPA throws')
+
+ push_eh handle_s
+ $S0 = shift pmc_arr
+ inc $I1
+handle_s:
+ pop_eh
+ is($I1, 0, 'shift string from empty RPA throws')
+
+ push_eh handle_p
+ $P0 = shift pmc_arr
+ inc $I1
+handle_p:
+ pop_eh
+ is($I1, 0, 'shift pmc from empty RPA throws')
+
+.end
+
+.sub pop_empty
+ .local pmc pmc_arr
+ pmc_arr = new ['ResizablePMCArray']
+ $I1 = 0
+ push_eh handle_i
+ $I0 = pop pmc_arr
+ inc $I1
+handle_i:
+ pop_eh
+ is($I1, 0, 'pop int from empty RPA throws')
+
+ push_eh handle_n
+ $N0 = pop pmc_arr
+ inc $I1
+handle_n:
+ pop_eh
+ is($I1, 0, 'pop num from empty RPA throws')
+
+ push_eh handle_s
+ $S0 = pop pmc_arr
+ inc $I1
+handle_s:
+ pop_eh
+ is($I1, 0, 'pop string from empty RPA throws')
+
+ push_eh handle_p
+ $P0 = pop pmc_arr
+ inc $I1
+handle_p:
+ pop_eh
+ is($I1, 0, 'pop pmc from empty RPA throws')
+
+.end
+
## an Integer Matrix, as used by befunge as a playing field
.sub multikey_access
.local pmc matrix, row_in, row_out
Modified: branches/gsoc_instrument/t/pmc/string.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/string.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/string.t Sat May 29 11:56:49 2010 (r47109)
@@ -16,11 +16,10 @@
=cut
-
.sub main :main
.include 'test_more.pir'
- plan(167)
+ plan(120)
set_or_get_strings()
setting_integers()
@@ -37,16 +36,6 @@
test_cmp()
cmp_with_integer()
test_substr()
- bands_null_string()
- test_bands_2()
- test_bands_3()
- bors_null_string()
- test_bors_2()
- test_bors_3()
- bxors_null_string()
- bxors_2()
- bxors_3()
- bnots_null_string()
test_eq_str()
test_ne_str()
check_whether_interface_is_done()
@@ -69,7 +58,6 @@
assign_null_string()
access_keyed()
# END_OF_TESTS
-
.end
.sub set_or_get_strings
@@ -424,268 +412,6 @@
is( $P0, "This is a test\n", 'original is unmodified' )
.end
-.sub bands_null_string
- new $P1, ['String']
- new $P2, ['String']
- new $P3, ['String']
-
- null $S1
- set $P1, $S1
-
- set $S2, "abc"
- set $P2, $S2
-
- bands $P1, $P2
-
- null $S3
- set $P3, $S3
-
- is( $P1, $P3, 'band null, "abc" -> null' )
-
- set $P1, ""
- bands $P1, $P2
- nok( $P1, 'band "", "abc" -> false' )
-
- null $S2
- set $P2, $S2
- set $P1, "abc"
-
- bands $P1, $P2
-
- null $S3
- set $P3, $S3
-
- is( $P1, $P3, 'bands "abc", null -> null' )
-
- set $P2, ""
- bands $P1, $P2
- nok( $P1, 'bans "abc", "" -> false' )
-
-.end
-
-.sub test_bands_2
- new $P1, ['String']
- new $P2, ['String']
- set $P1, "abc"
- set $P2, "EE"
- bands $P1, $P2
- is( $P1, "A@", 'bands "abc", "EE" -> "A@"' )
- is( $P2, "EE", '$2 is unchanged' )
-.end
-
-.sub test_bands_3
- new $P1, ['String']
- new $P2, ['String']
- new $P0, ['String']
- set $P1, "abc"
- set $P2, "EE"
- bands $P0, $P1, $P2
- is( $P0, "A@", 'bands "abc", "EE" -> "A@"' )
- is( $P1, "abc", '$2 is unchanged' )
- is( $P2, "EE", '$3 is unchanged' )
-.end
-
-.sub bors_null_string
- new $P1, ['String']
- new $P2, ['String']
- new $P3, ['String']
-
- null $S1
- null $S2
- set $P1, $S1
- set $P2, $S2
- bors $P1, $P2
- null $S3
- set $P3, $S3
- is( $P1, $P3, 'bors null, null -> null' )
-
- null $S1
- set $P1, $S1
- set $P2, ""
- bors $P1, $P2
- null $S3
- set $P3, $S3
- is( $P1, $P3, 'bors null, "" -> null' )
-
- bors $P2, $P1
- is( $P2, $P3, 'bors "", null -> null' )
-
- null $S1
- set $P1, $S1
- set $P2, "def"
- bors $P1, $P2
- is( $P1, "def", 'bors null, "def" -> "def" / true' )
-
- null $S2
- set $P2, $S2
- bors $P1, $P2
- is( $P1, "def", 'bors "def", null -> "def" / true' )
-
- null $S1
- null $S2
- set $P1, $S1
- set $P2, $S2
- bors $P3, $P1, $P2
- null $S4
- is( $P3, $S4, 'bors null, null -> null' )
-
- set $P1, ""
- bors $P3, $P1, $P2
- is( $P3, $S4, 'bors "", null -> null' )
-
- bors $P3, $P2, $P1
- is( $P3, $S4, 'bors null, "" -> null' )
-
- set $P1, "def"
- bors $P3, $P1, $P2
- is( $P3, "def", 'bors "def", null -> "def"' )
-
- bors $P3, $P2, $P1
- is( $P3, "def", 'bors null, "def" -> "def"' )
-.end
-
-.sub test_bors_2
- new $P1, ['String']
- new $P2, ['String']
- set $P1, "abc"
- set $P2, "EE"
-
- bors $P1, $P2
- is( $P1, "egc", 'bors "abc", "EE" -> "egc"' )
- is( $P2, "EE", '$2 is unchanged' )
-.end
-
-.sub test_bors_3
- new $P1, ['String']
- new $P2, ['String']
- new $P0, ['String']
- set $P1, "abc"
- set $P2, "EE"
-
- bors $P0, $P1, $P2
- is( $P0, "egc", 'bors "abc", "EE" -> "egc"' )
- is( $P1, "abc", '$2 unchanged' )
- is( $P2, "EE", '$3 unchanged' )
-.end
-
-.sub bxors_null_string
- new $P1, ['String']
- new $P2, ['String']
- new $P3, ['String']
- null $S1
- null $S2
- set $P1, $S1
- set $P2, $S2
- bxors $P1, $P2
- null $S3
- is( $P1, $S3, 'bxors null, null -> null' )
-
- null $S1
- set $P1, $S1
- set $P2, ""
- bxors $P1, $P2
- null $S3
- is( $P1, $S3, 'bxors null, "" -> null' )
-
- bxors $P2, $P1
- is( $S2, $S3, 'bxors "", null -> null' )
-
- null $S1
- set $P1, $S1
- set $P2, "abc"
- bxors $P1, $P2
- is( $P1, "abc", 'bxors null, "abc" -> "abc"' )
-
- null $S2
- set $P2, $S2
- bxors $P1, $P2
- is( $P1, "abc", 'bxors "abc", "null, -> "abc"' )
-
- null $S1
- null $S2
- set $P1, $S1
- set $P2, $S2
- bxors $P3, $P1, $P2
- null $S4
- is( $P3, $S4, 'bxors3 null, null -> null' )
-
- set $P1, ""
- bxors $P3, $P1, $P2
- is( $P3, $S4, 'bxors3 "", null -> null' )
-
- bxors $P3, $P2, $P1
- is( $P3, $S4, 'bxors3 null, null -> null' )
-
- set $P1, "abc"
- bxors $P3, $P1, $P2
- is( $P3, "abc", 'bxors3 "abc", null -> "abc"' )
-
- bxors $P3, $P2, $P1
- is( $P3, "abc", 'bxors3 null, "abc" -> "abc"' )
-.end
-
-.sub bxors_2
- new $P1, ['String']
- new $P2, ['String']
- new $P3, ['String']
-
- set $P1, "a2c"
- set $P2, "Dw"
- bxors $P1, $P2
- is( $P1, "%Ec", 'bxors "a2c", "Dw" -> "%Ec"' )
- is( $P2, "Dw", '... $2 unchanged' )
-
- set $P1, "abc"
- set $P2, " X"
- bxors $P1, $P2
- is( $P1, "ABCX", 'bxors "abc", " X" -> "ABCX"' )
- is( $P2, " X", '... $2 unchanged' )
-.end
-
-.sub bxors_3
- new $P1, ['String']
- new $P2, ['String']
- new $P0, ['String']
-
- set $P1, "a2c"
- set $P2, "Dw"
- bxors $P0, $P1, $P2
- is( $P0, "%Ec", 'bxors "a2c", "Dw" -> "%Ec"' )
- is( $P1, "a2c", '... $2 unchanged' )
- is( $P2, "Dw", '... $3 unchanged' )
-
- set $P1, "abc"
- set $P2, " Y"
- bxors $P0, $P1, $P2
- is( $P0, "ABCY", 'bxors "abc", " Y" -> "ABCY"' )
- is( $P1, "abc", '... $2 unchanged' )
- is( $P2, " Y", '... $3 unchanged' )
-.end
-
-.sub bnots_null_string
- new $P1, ['String']
- new $P2, ['String']
- new $P3, ['String']
-
- null $S1
- null $S2
- set $P1, $S1
- set $P2, $S2
- bnots $P1, $P2
- null $S3
- is( $P1, $S3, 'bnots null, null -> null' )
-
- null $S1
- set $P1, $S1
- set $P2, ""
- bnots $P1, $P2
- null $S3
- is( $P1, $S3, 'bnots null, "" -> null' )
-
- bnots $P2, $P1
- is( $S2, $S3, 'bnots "", null -> null' )
-.end
-
.sub test_eq_str
new $P1, ['String']
new $P2, ['String']
Modified: branches/gsoc_instrument/t/pmc/stringbuilder.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/stringbuilder.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/stringbuilder.t Sat May 29 11:56:49 2010 (r47109)
@@ -33,6 +33,8 @@
emit_with_named_args()
emit_with_pos_and_named_args()
+ test_unicode_conversion_tt1665()
+
done_testing()
# END_OF_TESTS
@@ -247,6 +249,29 @@
CODE
.end
+.sub "test_unicode_conversion_tt1665"
+ .local pmc list
+ list = new 'ResizablePMCArray'
+ push list, 195
+ push list, 182
+
+ .local pmc iterator
+ iterator = iter list
+ .local pmc sb
+ sb = new 'StringBuilder'
+ sb = unicode:""
+ loop:
+ unless iterator goto done
+ $P1 = shift iterator
+ $I1 = $P1
+ $S1 = chr $I1
+ sb .= $S1
+ goto loop
+ done:
+ $S0 = sb
+
+ ok( $S0, "Pushing unicode strings doesn't kill StringBuilder")
+.end
# Local Variables:
# mode: pir
Modified: branches/gsoc_instrument/t/pmc/stringhandle.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/stringhandle.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/stringhandle.t Sat May 29 11:56:49 2010 (r47109)
@@ -133,6 +133,7 @@
pir_output_is(
<<'CODE', <<'OUT', 'read opcode' );
+.loadlib 'io_ops'
.sub 'test' :main
$P0 = new ['StringHandle']
$P0.'open'('README', 'w')
@@ -273,7 +274,7 @@
$I0 = stringhandle.'eof'()
if $I0 goto end_read_loop
- test_line = readline stringhandle
+ test_line = stringhandle.'readline'()
if test_line == "" goto end_read_loop
test_line = chomp( test_line )
$I1 = test_line
Modified: branches/gsoc_instrument/t/pmc/sub.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/sub.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/sub.t Sat May 29 11:56:49 2010 (r47109)
@@ -991,6 +991,7 @@
unlink( $l1_pbc, $l2_pbc );
pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const" );
+.loadlib 'trans_ops' # for atan
.sub make_pi :immediate :anon
$N0 = atan 1.0, 1.0
$N0 *= 4
Modified: branches/gsoc_instrument/t/pmc/sys.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/sys.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/sys.t Sat May 29 11:56:49 2010 (r47109)
@@ -31,11 +31,12 @@
.sub _test :main
.local pmc O
- open O, "$temp_pir", 'w'
+ O = new ['FileHandle']
+ O.'open'("$temp_pir", 'w')
print O, ".sub _main :main\\n"
print O, "\tsay \\"Hello, World!\\"\\n"
print O, ".end\\n"
- close O
+ O.'close'()
load_bytecode 'config.pbc'
.local pmc conf_hash
conf_hash = _config()
Modified: branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir
==============================================================================
--- branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir Sat May 29 11:56:49 2010 (r47109)
@@ -7,9 +7,11 @@
# Currently parrot doesn't support system independent PBCs. So, cross your
# fingers and try different filename for binary-dependent tests...
+.loadlib 'io_ops'
+
.sub '_filename'
.local string filename
- filename = 't/native_pbc/number_1.pbc'
+ filename = 't/native_pbc/number.pbc'
.return (filename)
.end
Modified: branches/gsoc_instrument/t/src/extend.t
==============================================================================
--- branches/gsoc_instrument/t/src/extend.t Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/t/src/extend.t Sat May 29 11:56:49 2010 (r47109)
@@ -334,13 +334,13 @@
print $TEMP <<'EOF';
.pcc_sub _sub1:
get_params ""
- printerr "in sub1\n"
+ print "in sub1\n"
set_returns ""
returncc
.pcc_sub _sub2:
get_params "0", P5
- printerr P5
- printerr "in sub2\n"
+ print P5
+ print "in sub2\n"
set_returns ""
returncc
EOF
@@ -471,8 +471,8 @@
print $TEMP <<'EOF';
.sub foo
.param pmc input
- printerr input
- printerr "in sub2\n"
+ print input
+ print "in sub2\n"
$P0 = new "Integer"
$P0 = 42
.return($P0)
@@ -540,9 +540,9 @@
print $TEMP <<'EOF';
.pcc_sub _sub1:
get_params ""
- printerr "in sub1\n"
+ print "in sub1\n"
find_lex P2, "no_such_var"
- printerr "never\n"
+ print "never\n"
returncc
EOF
close $TEMP;
Modified: branches/gsoc_instrument/tools/dev/mk_language_shell.pl
==============================================================================
--- branches/gsoc_instrument/tools/dev/mk_language_shell.pl Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/tools/dev/mk_language_shell.pl Sat May 29 11:56:49 2010 (r47109)
@@ -210,10 +210,11 @@
load_bytecode 'distutils.pbc'
.local int reqsvn
- $P0 = open 'PARROT_REVISION', 'r'
- $S0 = readline $P0
+ $P0 = new 'FileHandle'
+ $P0.'open'('PARROT_REVISION', 'r')
+ $S0 = $P0.'readline'()
reqsvn = $S0
- close $P0
+ $P0.'close'()
.local pmc config
config = get_config()
@@ -227,7 +228,7 @@
$S0 = $I0
$S1 .= $S0
$S1 .= ")\n"
- printerr $S1
+ print $S1
end
L1:
Copied: branches/gsoc_instrument/tools/dev/mk_packfile_pbc (from r47107, trunk/tools/dev/mk_packfile_pbc)
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ branches/gsoc_instrument/tools/dev/mk_packfile_pbc Sat May 29 11:56:49 2010 (r47109, copy of r47107, trunk/tools/dev/mk_packfile_pbc)
@@ -0,0 +1,26 @@
+#!/bin/sh
+
+# sh tools/dev/mk_packfile_pbc
+#
+# generate t/native_pbc/*.pbc for testing Packfile* PMCs.
+
+./parrot -o t/native_pbc/integer.pbc -a - <<EOF
+print 0x10203040
+end
+EOF
+[ $? -le 0 ] && echo "t/native_pbc/integer.pbc updated"
+./parrot -o t/native_pbc/number.pbc t/native_pbc/testdata/number.pasm && echo "t/native_pbc/number.pbc updated"
+./parrot -o t/native_pbc/string.pbc t/native_pbc/testdata/string.pasm && echo "t/native_pbc/string.pbc updated"
+
+./parrot -o t/native_pbc/annotations.pbc - <<EOF
+.sub 'main'
+.annotate "file", "annotations.pir"
+.annotate "creator", "Parrot Foundation"
+.annotate "line", 1
+ say "Hi"
+ say "line"
+.annotate "line", 2
+ .return ()
+.end
+EOF
+
Modified: branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir
==============================================================================
--- branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir Sat May 29 11:56:49 2010 (r47109)
@@ -45,8 +45,10 @@
sigs = 'read_sigs'()
$S0 = 'read_from_opts'('output')
- $P0 = open $S0, 'w'
- setstdout $P0
+ $P0 = new ['FileHandle']
+ $P0.'open'($S0, 'w')
+ $P1 = getinterp
+ $P1.'stdhandle'(1, $P0)
if targ == 'head' goto get_targ
if targ == 'thunks' goto get_targ
@@ -708,7 +710,8 @@
.sub 'read_sigs'
.local pmc stdin, seen, sigs
- stdin = getstdin
+ $P0 = getinterp
+ stdin = $P0.'stdhandle'(0)
seen = new ['Hash']
sigs = new ['ResizablePMCArray']
@@ -735,7 +738,9 @@
$S0 = 'sprintf'(<<'ERROR', full_sig, lineno, $I0)
Ignored signature '%s' on line %d (previously seen on line %d)
ERROR
- printerr $S0
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'($S0)
end_dup_warn:
goto read_loop
unseen:
@@ -758,7 +763,7 @@
.param pmc fh
.local string line
- line = readline fh
+ line = fh.'readline'()
# handle comments
$I0 = index line, '#'
Modified: branches/gsoc_instrument/tools/dev/pbc_to_exe.pir
==============================================================================
--- branches/gsoc_instrument/tools/dev/pbc_to_exe.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/tools/dev/pbc_to_exe.pir Sat May 29 11:56:49 2010 (r47109)
@@ -55,7 +55,8 @@
open_outfile:
.local pmc outfh
- outfh = open cfile, 'w'
+ outfh = new ['FileHandle']
+ outfh.'open'(cfile, 'w')
unless outfh goto err_outfh
print outfh, <<'HEADER'
#include "parrot/parrot.h"
@@ -215,7 +216,8 @@
.sub 'generate_code'
.param string infile
.local pmc ifh
- ifh = open infile, 'r'
+ ifh = new ['FileHandle']
+ ifh.'open'(infile, 'r')
unless ifh goto err_infile
.local pmc codestring
@@ -229,7 +231,7 @@
.local string pbcstring
.local int pbclength
- pbcstring = read ifh, 16384
+ pbcstring = ifh.'read'(16384)
pbclength = length pbcstring
unless pbclength > 0 goto read_done
@@ -251,7 +253,7 @@
goto read_loop
read_done:
- close ifh
+ ifh.'close'()
push codestring, "\n};\n\nconst int bytecode_size = "
$S0 = size
@@ -304,7 +306,8 @@
.sub 'generate_code_gcc'
.param string infile
.local pmc ifh
- ifh = open infile, 'r'
+ ifh = new ['FileHandle']
+ ifh.'open'(infile, 'r')
unless ifh goto err_infile
.local pmc encoding_table
@@ -323,7 +326,7 @@
.local string pbcstring
.local int pbclength
- pbcstring = read ifh, 16384
+ pbcstring = ifh.'read'(16384)
pbclength = length pbcstring
unless pbclength > 0 goto read_done
@@ -346,7 +349,7 @@
goto read_loop
read_done:
- close ifh
+ ifh.'close'()
push codestring, '"'
push codestring, "\n;\n\n"
@@ -430,7 +433,8 @@
rc_contents .= "\"\n"
.local pmc rc_fh
- rc_fh = open rc_path, 'w'
+ rc_fh = new ['FileHandle']
+ rc_fh.'open'(rc_path, 'w')
unless rc_fh goto err_rc_open
print rc_fh, rc_contents
$I0 = rc_fh.'close'()
Modified: branches/gsoc_instrument/tools/util/parrot-config.pir
==============================================================================
--- branches/gsoc_instrument/tools/util/parrot-config.pir Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/tools/util/parrot-config.pir Sat May 29 11:56:49 2010 (r47109)
@@ -88,8 +88,10 @@
end
usage:
$S0 = argv[0]
- printerr $S0
- printerr " [ <config-key> | --dump | --help ]\n"
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(2)
+ $P1.'print'($S0)
+ $P1.'print'(" [ <config-key> | --dump | --help ]\n")
exit 1
.end
Modified: branches/gsoc_instrument/tools/util/perlcritic.conf
==============================================================================
--- branches/gsoc_instrument/tools/util/perlcritic.conf Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/tools/util/perlcritic.conf Sat May 29 11:56:49 2010 (r47109)
@@ -69,7 +69,7 @@
add_themes = parrot
[Bangs::ProhibitFlagComments]
-add_themes = parrot
+add_themes = extra
[Bangs::ProhibitRefProtoOrProto]
add_themes = extra
Modified: branches/gsoc_instrument/tools/util/pgegrep
==============================================================================
--- branches/gsoc_instrument/tools/util/pgegrep Sat May 29 11:55:34 2010 (r47108)
+++ branches/gsoc_instrument/tools/util/pgegrep Sat May 29 11:56:49 2010 (r47109)
@@ -81,6 +81,9 @@
# Readability improved!
.include 'hllmacros.pir'
+# for getstdin and friends
+.loadlib 'io_ops'
+
.sub main :main
.param pmc argv # the script name, then our options.
.local string progname
More information about the parrot-commits
mailing list