[svn:parrot] r47429 - in branches/gsoc_instrument: . compilers/data_json compilers/imcc compilers/opsc compilers/opsc/src/Ops compilers/opsc/src/Ops/Trans compilers/pct compilers/pct/src/PAST compilers/pct/src/PCT compilers/pct/src/POST compilers/pge compilers/tge config/auto config/auto/cpu/i386 config/auto/cpu/ppc config/auto/cpu/sun4 config/auto/cpu/x86_64 config/auto/sizes config/auto/zlib config/gen config/gen/config_pm config/gen/makefiles config/init config/init/hints config/inter docs docs/book/draft docs/book/pct docs/dev docs/pdds examples/embed examples/languages/abc examples/languages/squaak examples/languages/squaak/src/builtins examples/nci examples/pge examples/pir examples/pir/befunge examples/shootout examples/tge/branch ext/nqp-rx ext/nqp-rx/src/stage0 include/parrot include/parrot/oplib lib/Parrot lib/Parrot/Configure/Step lib/Parrot/Harness ports/cygwin ports/debian ports/fedora/2.3.0 ports/suse/2.2.0 runtime/parrot/languages runtime/parrot/librar y runtime/parrot/library/Archive runtime/parrot/library/CGI runtime/parrot/library/Configure runtime/parrot/library/Math runtime/parrot/library/PGE runtime/parrot/library/TAP runtime/parrot/library/Test runtime/parrot/library/Test/Builder src src/call src/dynoplibs src/gc src/interp src/ops src/pmc src/runcore t/codingstd t/compilers/imcc/syn t/compilers/pct t/compilers/tge t/dynoplibs t/native_pbc t/oo t/op t/pmc t/pmc/testlib t/src t/steps/auto t/steps/gen t/steps/init t/steps/init/hints t/steps/inter tools/build tools/dev tools/docs tools/install tools/util
khairul at svn.parrot.org
khairul at svn.parrot.org
Sun Jun 6 16:09:40 UTC 2010
Author: khairul
Date: Sun Jun 6 16:09:33 2010
New Revision: 47429
URL: https://trac.parrot.org/parrot/changeset/47429
Log:
Sync with trunk
Deleted:
branches/gsoc_instrument/config/auto/extra_nci_thunks.pm
branches/gsoc_instrument/t/steps/auto/extra_nci_thunks-01.t
Modified:
branches/gsoc_instrument/ (props changed)
branches/gsoc_instrument/DEPRECATED.pod
branches/gsoc_instrument/MANIFEST
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/imc.h
branches/gsoc_instrument/compilers/imcc/imcc.y
branches/gsoc_instrument/compilers/imcc/imcparser.c
branches/gsoc_instrument/compilers/imcc/imcparser.h
branches/gsoc_instrument/compilers/imcc/parser_util.c
branches/gsoc_instrument/compilers/imcc/pbc.c
branches/gsoc_instrument/compilers/imcc/pcc.c
branches/gsoc_instrument/compilers/imcc/reg_alloc.c
branches/gsoc_instrument/compilers/imcc/symreg.c
branches/gsoc_instrument/compilers/opsc/ops2c.nqp
branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm
branches/gsoc_instrument/compilers/opsc/src/Ops/Trans/C.pm
branches/gsoc_instrument/compilers/pct/Rules.mak (props changed)
branches/gsoc_instrument/compilers/pct/src/PAST/Compiler.pir
branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir
branches/gsoc_instrument/compilers/pct/src/POST/Compiler.pir
branches/gsoc_instrument/compilers/pct/src/POST/Node.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/arch.pm
branches/gsoc_instrument/config/auto/attributes.pm
branches/gsoc_instrument/config/auto/cpu.pm
branches/gsoc_instrument/config/auto/cpu/i386/auto.pm
branches/gsoc_instrument/config/auto/cpu/ppc/auto.pm
branches/gsoc_instrument/config/auto/cpu/sun4/auto.pm
branches/gsoc_instrument/config/auto/cpu/x86_64/auto.pm
branches/gsoc_instrument/config/auto/ctags.pm
branches/gsoc_instrument/config/auto/env.pm
branches/gsoc_instrument/config/auto/gc.pm
branches/gsoc_instrument/config/auto/gcc.pm
branches/gsoc_instrument/config/auto/gettext.pm
branches/gsoc_instrument/config/auto/gmp.pm
branches/gsoc_instrument/config/auto/headers.pm
branches/gsoc_instrument/config/auto/icu.pm
branches/gsoc_instrument/config/auto/inline.pm
branches/gsoc_instrument/config/auto/isreg.pm
branches/gsoc_instrument/config/auto/memalign.pm
branches/gsoc_instrument/config/auto/msvc.pm
branches/gsoc_instrument/config/auto/neg_0.pm
branches/gsoc_instrument/config/auto/opengl.pm
branches/gsoc_instrument/config/auto/pcre.pm
branches/gsoc_instrument/config/auto/readline.pm
branches/gsoc_instrument/config/auto/signal.pm
branches/gsoc_instrument/config/auto/sizes/intval_maxmin_c.in (props changed)
branches/gsoc_instrument/config/auto/snprintf.pm
branches/gsoc_instrument/config/auto/thread.pm
branches/gsoc_instrument/config/auto/warnings.pm
branches/gsoc_instrument/config/auto/zlib/ (props changed)
branches/gsoc_instrument/config/auto/zlib.pm
branches/gsoc_instrument/config/gen/config_pm/config_pir.in
branches/gsoc_instrument/config/gen/makefiles/root.in
branches/gsoc_instrument/config/gen/opengl.pm
branches/gsoc_instrument/config/gen/platform.pm
branches/gsoc_instrument/config/init/defaults.pm
branches/gsoc_instrument/config/init/hints.pm
branches/gsoc_instrument/config/init/hints/darwin.pm
branches/gsoc_instrument/config/init/hints/linux.pm
branches/gsoc_instrument/config/init/optimize.pm
branches/gsoc_instrument/config/inter/libparrot.pm
branches/gsoc_instrument/config/inter/progs.pm
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/dev/c_functions.pod (props changed)
branches/gsoc_instrument/docs/parrotbyte.pod
branches/gsoc_instrument/docs/parrothist.pod
branches/gsoc_instrument/docs/pdds/pdd20_lexical_vars.pod
branches/gsoc_instrument/docs/pdds/pdd21_namespaces.pod
branches/gsoc_instrument/docs/pdds/pdd30_install.pod (props changed)
branches/gsoc_instrument/docs/running.pod
branches/gsoc_instrument/examples/embed/cotorra.c (props changed)
branches/gsoc_instrument/examples/languages/abc/ (props changed)
branches/gsoc_instrument/examples/languages/abc/abc.pir
branches/gsoc_instrument/examples/languages/squaak/ (props changed)
branches/gsoc_instrument/examples/languages/squaak/squaak.pir
branches/gsoc_instrument/examples/languages/squaak/src/builtins/say.pir
branches/gsoc_instrument/examples/nci/xlibtest.pir
branches/gsoc_instrument/examples/pge/demo.pir (contents, props changed)
branches/gsoc_instrument/examples/pir/befunge/befunge.pir
branches/gsoc_instrument/examples/pir/befunge/debug.pir
branches/gsoc_instrument/examples/pir/befunge/io.pir
branches/gsoc_instrument/examples/pir/life.pir
branches/gsoc_instrument/examples/shootout/fasta.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/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/exceptions.h
branches/gsoc_instrument/include/parrot/gc_api.h (contents, 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/packfile.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.pm
branches/gsoc_instrument/lib/Parrot/Configure/Step/List.pm
branches/gsoc_instrument/lib/Parrot/Configure/Step/Test.pm (props changed)
branches/gsoc_instrument/lib/Parrot/H2inc.pm (props changed)
branches/gsoc_instrument/lib/Parrot/Harness/DefaultTests.pm
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/Configure/genfile.pir
branches/gsoc_instrument/runtime/parrot/library/Crow.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/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/parrotlib.pir
branches/gsoc_instrument/src/call/ops.c (props changed)
branches/gsoc_instrument/src/call/pcc.c (props changed)
branches/gsoc_instrument/src/dynoplibs/Rules.in
branches/gsoc_instrument/src/dynoplibs/io.ops
branches/gsoc_instrument/src/exceptions.c
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/ops/bit.ops
branches/gsoc_instrument/src/ops/cmp.ops
branches/gsoc_instrument/src/ops/core.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/object.ops
branches/gsoc_instrument/src/ops/pmc.ops
branches/gsoc_instrument/src/ops/set.ops
branches/gsoc_instrument/src/ops/string.ops
branches/gsoc_instrument/src/ops/sys.ops
branches/gsoc_instrument/src/ops/var.ops
branches/gsoc_instrument/src/packdump.c
branches/gsoc_instrument/src/packfile.c
branches/gsoc_instrument/src/pbc_merge.c
branches/gsoc_instrument/src/pmc/boolean.pmc
branches/gsoc_instrument/src/pmc/exception.pmc
branches/gsoc_instrument/src/pmc/fixedstringarray.pmc
branches/gsoc_instrument/src/pmc/imageio.pmc
branches/gsoc_instrument/src/pmc/orderedhash.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/t/codingstd/c_function_docs.t
branches/gsoc_instrument/t/compilers/imcc/syn/clash.t
branches/gsoc_instrument/t/compilers/imcc/syn/const.t
branches/gsoc_instrument/t/compilers/imcc/syn/errors.t
branches/gsoc_instrument/t/compilers/imcc/syn/tail.t
branches/gsoc_instrument/t/compilers/pct/past.t
branches/gsoc_instrument/t/compilers/pct/post.t
branches/gsoc_instrument/t/compilers/tge/NoneGrammar.tg (props changed)
branches/gsoc_instrument/t/dynoplibs/pmc_pow.t (contents, props changed)
branches/gsoc_instrument/t/dynoplibs/string_pmc_bitwise.t (props changed)
branches/gsoc_instrument/t/dynoplibs/time_old.t (contents, props changed)
branches/gsoc_instrument/t/native_pbc/annotations.pbc
branches/gsoc_instrument/t/native_pbc/integer.pbc
branches/gsoc_instrument/t/native_pbc/integer_1.pbc
branches/gsoc_instrument/t/native_pbc/number.pbc
branches/gsoc_instrument/t/native_pbc/number_1.pbc
branches/gsoc_instrument/t/native_pbc/string.pbc
branches/gsoc_instrument/t/native_pbc/string_1.pbc
branches/gsoc_instrument/t/oo/methods.t
branches/gsoc_instrument/t/oo/root_new.t (props changed)
branches/gsoc_instrument/t/op/arithmetics_pmc.t
branches/gsoc_instrument/t/op/exit.t
branches/gsoc_instrument/t/op/interp.t
branches/gsoc_instrument/t/op/sprintf.t
branches/gsoc_instrument/t/op/string_cs.t
branches/gsoc_instrument/t/op/stringu.t
branches/gsoc_instrument/t/pmc/addrregistry.t
branches/gsoc_instrument/t/pmc/complex.t
branches/gsoc_instrument/t/pmc/eval.t
branches/gsoc_instrument/t/pmc/exporter.t
branches/gsoc_instrument/t/pmc/filehandle.t
branches/gsoc_instrument/t/pmc/fixedintegerarray.t
branches/gsoc_instrument/t/pmc/freeze.t
branches/gsoc_instrument/t/pmc/io.t
branches/gsoc_instrument/t/pmc/lexpad.t
branches/gsoc_instrument/t/pmc/namespace-old.t (props changed)
branches/gsoc_instrument/t/pmc/packfile.t
branches/gsoc_instrument/t/pmc/packfileannotations.t
branches/gsoc_instrument/t/pmc/resizablebooleanarray.t
branches/gsoc_instrument/t/pmc/resizableintegerarray.t
branches/gsoc_instrument/t/pmc/resizablepmcarray.t
branches/gsoc_instrument/t/pmc/stringhandle.t
branches/gsoc_instrument/t/pmc/sub.t
branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir
branches/gsoc_instrument/t/pmc/threads.t
branches/gsoc_instrument/t/src/embed.t (props changed)
branches/gsoc_instrument/t/steps/auto/ctags-01.t
branches/gsoc_instrument/t/steps/auto/gettext-01.t
branches/gsoc_instrument/t/steps/auto/gmp-01.t
branches/gsoc_instrument/t/steps/auto/icu-01.t
branches/gsoc_instrument/t/steps/auto/msvc-01.t
branches/gsoc_instrument/t/steps/auto/neg_0-01.t
branches/gsoc_instrument/t/steps/auto/opengl-01.t
branches/gsoc_instrument/t/steps/auto/pcre-01.t
branches/gsoc_instrument/t/steps/auto/readline-02.t
branches/gsoc_instrument/t/steps/auto/zlib-01.t
branches/gsoc_instrument/t/steps/gen/opengl-01.t
branches/gsoc_instrument/t/steps/gen/platform-01.t
branches/gsoc_instrument/t/steps/init/defaults-01.t
branches/gsoc_instrument/t/steps/init/hints/darwin-01.t
branches/gsoc_instrument/t/steps/init/hints/linux-01.t (contents, props changed)
branches/gsoc_instrument/t/steps/inter/libparrot-01.t
branches/gsoc_instrument/tools/build/h2inc.pl (props changed)
branches/gsoc_instrument/tools/dev/fetch_languages.pl (contents, props changed)
branches/gsoc_instrument/tools/dev/mk_gitignore.pl (props changed)
branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir
branches/gsoc_instrument/tools/docs/filename_and_chapter.pl
branches/gsoc_instrument/tools/install/smoke.pl
branches/gsoc_instrument/tools/util/inc_ver.pir
branches/gsoc_instrument/tools/util/parrot-config.pir
branches/gsoc_instrument/tools/util/perlcritic-cage.conf (props changed)
Modified: branches/gsoc_instrument/DEPRECATED.pod
==============================================================================
--- branches/gsoc_instrument/DEPRECATED.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/DEPRECATED.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -134,18 +134,18 @@
L<https://trac.parrot.org/parrot/ticket/1628>
-=back
+=item logical_* vtables [eligiblie in 2.7]
-=head1 Opcodes
+These can be replaced by C<get_bool> and intval ops unless you're using them for
+things that aren't really logical ops (don't do that!).
-=over 4
+L<https://trac.parrot.org/parrot/ticket/1655>
-=item moved to dynop [eligible in 1.1]
+=back
-Parts or all of: bit.ops, debug.ops, io.ops, math.ops, set.ops
-(the obscure and rarely used parts), sys.ops.
+=head1 Opcodes
-L<https://trac.parrot.org/parrot/ticket/449>
+=over 4
=item get_addr and set_addr [eligible in 1.5]
@@ -239,6 +239,12 @@
L<https://trac.parrot.org/parrot/ticket/1635>
+=item logical PMC ops [eligible in 2.7]
+
+These fall out from the logical vtables deprecation.
+
+L<https://trac.parrot.org/parrot/ticket/1655>
+
=back
=head1 Bytecode
Modified: branches/gsoc_instrument/MANIFEST
==============================================================================
--- branches/gsoc_instrument/MANIFEST Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/MANIFEST Sun Jun 6 16:09:33 2010 (r47429)
@@ -1,7 +1,7 @@
# ex: set ro:
# $Id$
#
-# generated by tools/dev/mk_manifest_and_skip.pl Wed Jun 2 03:05:48 2010 UT
+# generated by tools/dev/mk_manifest_and_skip.pl Mon May 31 01:10:45 2010 UT
#
# See below for documentation on the format of this file.
#
@@ -189,7 +189,6 @@
config/auto/env.pm []
config/auto/env/test_setenv_c.in []
config/auto/env/test_unsetenv_c.in []
-config/auto/extra_nci_thunks.pm []
config/auto/format.pm []
config/auto/frames.pm []
config/auto/frames/test_exec_cygwin_c.in []
@@ -1973,7 +1972,6 @@
t/steps/auto/cpu-01.t [test]
t/steps/auto/ctags-01.t [test]
t/steps/auto/env-01.t [test]
-t/steps/auto/extra_nci_thunks-01.t [test]
t/steps/auto/format-01.t [test]
t/steps/auto/frames-01.t [test]
t/steps/auto/gc-01.t [test]
Modified: branches/gsoc_instrument/PBC_COMPAT
==============================================================================
--- branches/gsoc_instrument/PBC_COMPAT Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/PBC_COMPAT Sun Jun 6 16:09:33 2010 (r47429)
@@ -28,6 +28,7 @@
# please insert tab separated entries at the top of the list
+6.20 2010.05.29 plobsing eliminate unused fixup type 'label'
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
Modified: branches/gsoc_instrument/compilers/imcc/imc.h
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/imc.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/imc.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -186,6 +186,16 @@
/* HEADERIZER BEGIN: compilers/imcc/parser_util.c */
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
+PARROT_EXPORT
+PARROT_CANNOT_RETURN_NULL
+void * imcc_compile_file(PARROT_INTERP,
+ ARGIN(const char *fullname),
+ ARGOUT(STRING **error_message))
+ __attribute__nonnull__(1)
+ __attribute__nonnull__(2)
+ __attribute__nonnull__(3)
+ FUNC_MODIFIES(*error_message);
+
PARROT_WARN_UNUSED_RESULT
int check_op(PARROT_INTERP,
ARGOUT(char *fullname),
@@ -210,20 +220,6 @@
__attribute__nonnull__(4)
FUNC_MODIFIES(*error_message);
-PARROT_CANNOT_RETURN_NULL
-void * IMCC_compile_file(PARROT_INTERP, ARGIN(const char *s))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2);
-
-PARROT_CANNOT_RETURN_NULL
-void * IMCC_compile_file_s(PARROT_INTERP,
- ARGIN(const char *s),
- ARGOUT(STRING **error_message))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3)
- FUNC_MODIFIES(*error_message);
-
PARROT_WARN_UNUSED_RESULT
PARROT_CANNOT_RETURN_NULL
PMC * imcc_compile_pasm(PARROT_INTERP, ARGIN(const char *s))
@@ -335,6 +331,10 @@
FUNC_MODIFIES(*unit)
FUNC_MODIFIES(*r);
+#define ASSERT_ARGS_imcc_compile_file __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+ PARROT_ASSERT_ARG(interp) \
+ , PARROT_ASSERT_ARG(fullname) \
+ , PARROT_ASSERT_ARG(error_message))
#define ASSERT_ARGS_check_op __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(fullname) \
@@ -344,13 +344,6 @@
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(s) \
, PARROT_ASSERT_ARG(error_message))
-#define ASSERT_ARGS_IMCC_compile_file __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(s))
-#define ASSERT_ARGS_IMCC_compile_file_s __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(s) \
- , PARROT_ASSERT_ARG(error_message))
#define ASSERT_ARGS_imcc_compile_pasm __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(s))
Modified: branches/gsoc_instrument/compilers/imcc/imcc.y
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/imcc.y Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/imcc.y Sun Jun 6 16:09:33 2010 (r47429)
@@ -1055,9 +1055,12 @@
do_loadlib(PARROT_INTERP, ARGIN(const char *lib))
{
ASSERT_ARGS(do_loadlib)
- STRING * const s = Parrot_str_unescape(interp, lib + 1, '"', NULL);
- PMC *ignored = Parrot_load_lib(interp, s, NULL);
- UNUSED(ignored);
+ STRING * const s = Parrot_str_unescape(interp, lib + 1, '"', NULL);
+ PMC * const lib_pmc = Parrot_load_lib(interp, s, NULL);
+ if (PMC_IS_NULL(lib_pmc) || !VTABLE_get_bool(interp, lib_pmc)) {
+ IMCC_fataly(interp, EXCEPTION_LIBRARY_ERROR,
+ "loadlib directive could not find library `%S'", s);
+ }
Parrot_register_HLL_lib(interp, s);
}
Modified: branches/gsoc_instrument/compilers/imcc/imcparser.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/imcparser.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/imcparser.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -1136,9 +1136,12 @@
do_loadlib(PARROT_INTERP, ARGIN(const char *lib))
{
ASSERT_ARGS(do_loadlib)
- STRING * const s = Parrot_str_unescape(interp, lib + 1, '"', NULL);
- PMC *ignored = Parrot_load_lib(interp, s, NULL);
- UNUSED(ignored);
+ STRING * const s = Parrot_str_unescape(interp, lib + 1, '"', NULL);
+ PMC * const lib_pmc = Parrot_load_lib(interp, s, NULL);
+ if (PMC_IS_NULL(lib_pmc) || !VTABLE_get_bool(interp, lib_pmc)) {
+ IMCC_fataly(interp, EXCEPTION_LIBRARY_ERROR,
+ "loadlib directive could not find library `%S'", s);
+ }
Parrot_register_HLL_lib(interp, s);
}
@@ -1147,7 +1150,7 @@
/* Line 189 of yacc.c */
-#line 1140 "compilers/imcc/imcparser.c"
+#line 1143 "compilers/imcc/imcparser.c"
/* Enabling traces. */
#ifndef YYDEBUG
@@ -1420,7 +1423,7 @@
{
/* Line 214 of yacc.c */
-#line 1068 "compilers/imcc/imcc.y"
+#line 1071 "compilers/imcc/imcc.y"
IdList * idlist;
int t;
@@ -1431,7 +1434,7 @@
/* Line 214 of yacc.c */
-#line 1424 "compilers/imcc/imcparser.c"
+#line 1427 "compilers/imcc/imcparser.c"
} YYSTYPE;
# define YYSTYPE_IS_TRIVIAL 1
# define yystype YYSTYPE /* obsolescent; will be withdrawn */
@@ -1443,7 +1446,7 @@
/* Line 264 of yacc.c */
-#line 1436 "compilers/imcc/imcparser.c"
+#line 1439 "compilers/imcc/imcparser.c"
#ifdef short
# undef short
@@ -1866,41 +1869,41 @@
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
- 0, 1163, 1163, 1167, 1168, 1172, 1173, 1174, 1180, 1186,
- 1187, 1188, 1189, 1193, 1194, 1203, 1209, 1217, 1229, 1242,
- 1242, 1251, 1251, 1258, 1258, 1267, 1268, 1272, 1273, 1277,
- 1278, 1279, 1280, 1281, 1282, 1283, 1286, 1286, 1295, 1294,
- 1307, 1311, 1324, 1328, 1332, 1332, 1344, 1346, 1350, 1365,
- 1366, 1370, 1370, 1382, 1383, 1392, 1396, 1400, 1391, 1412,
- 1413, 1414, 1427, 1427, 1431, 1456, 1460, 1466, 1475, 1481,
- 1490, 1496, 1505, 1511, 1520, 1528, 1533, 1544, 1547, 1552,
- 1560, 1561, 1562, 1563, 1564, 1575, 1586, 1589, 1591, 1596,
- 1595, 1626, 1627, 1631, 1632, 1636, 1637, 1641, 1642, 1646,
- 1647, 1648, 1649, 1650, 1651, 1652, 1653, 1654, 1655, 1656,
- 1657, 1658, 1659, 1663, 1668, 1672, 1676, 1680, 1684, 1689,
- 1698, 1699, 1711, 1716, 1717, 1725, 1726, 1726, 1738, 1739,
- 1743, 1744, 1745, 1746, 1747, 1748, 1749, 1750, 1755, 1755,
- 1758, 1766, 1766, 1772, 1773, 1778, 1786, 1787, 1792, 1800,
- 1804, 1809, 1808, 1821, 1822, 1826, 1827, 1837, 1842, 1852,
- 1861, 1862, 1874, 1878, 1880, 1881, 1882, 1883, 1884, 1888,
- 1889, 1893, 1894, 1898, 1909, 1910, 1921, 1928, 1937, 1945,
- 1947, 1952, 1953, 1954, 1954, 1967, 1984, 1997, 1997, 2004,
- 2005, 2005, 2011, 2017, 2021, 2033, 2034, 2035, 2036, 2037,
- 2038, 2042, 2043, 2044, 2045, 2049, 2051, 2053, 2055, 2057,
- 2060, 2067, 2066, 2075, 2076, 2077, 2078, 2086, 2087, 2088,
- 2092, 2093, 2094, 2095, 2096, 2097, 2098, 2099, 2100, 2101,
- 2102, 2103, 2104, 2105, 2106, 2107, 2108, 2109, 2110, 2111,
- 2112, 2113, 2114, 2120, 2119, 2131, 2136, 2137, 2138, 2139,
- 2140, 2141, 2142, 2143, 2144, 2145, 2146, 2147, 2148, 2153,
- 2164, 2165, 2166, 2167, 2173, 2187, 2193, 2199, 2205, 2204,
- 2213, 2214, 2224, 2234, 2241, 2246, 2256, 2260, 2261, 2265,
- 2266, 2267, 2270, 2271, 2275, 2279, 2289, 2295, 2305, 2310,
- 2314, 2315, 2319, 2323, 2327, 2334, 2338, 2342, 2349, 2350,
- 2354, 2355, 2356, 2357, 2358, 2359, 2363, 2364, 2368, 2369,
- 2373, 2374, 2378, 2379, 2386, 2393, 2394, 2395, 2399, 2400,
- 2404, 2405, 2409, 2410, 2414, 2415, 2419, 2419, 2431, 2431,
- 2443, 2444, 2452, 2459, 2460, 2461, 2462, 2463, 2467, 2468,
- 2472, 2473, 2474
+ 0, 1166, 1166, 1170, 1171, 1175, 1176, 1177, 1183, 1189,
+ 1190, 1191, 1192, 1196, 1197, 1206, 1212, 1220, 1232, 1245,
+ 1245, 1254, 1254, 1261, 1261, 1270, 1271, 1275, 1276, 1280,
+ 1281, 1282, 1283, 1284, 1285, 1286, 1289, 1289, 1298, 1297,
+ 1310, 1314, 1327, 1331, 1335, 1335, 1347, 1349, 1353, 1368,
+ 1369, 1373, 1373, 1385, 1386, 1395, 1399, 1403, 1394, 1415,
+ 1416, 1417, 1430, 1430, 1434, 1459, 1463, 1469, 1478, 1484,
+ 1493, 1499, 1508, 1514, 1523, 1531, 1536, 1547, 1550, 1555,
+ 1563, 1564, 1565, 1566, 1567, 1578, 1589, 1592, 1594, 1599,
+ 1598, 1629, 1630, 1634, 1635, 1639, 1640, 1644, 1645, 1649,
+ 1650, 1651, 1652, 1653, 1654, 1655, 1656, 1657, 1658, 1659,
+ 1660, 1661, 1662, 1666, 1671, 1675, 1679, 1683, 1687, 1692,
+ 1701, 1702, 1714, 1719, 1720, 1728, 1729, 1729, 1741, 1742,
+ 1746, 1747, 1748, 1749, 1750, 1751, 1752, 1753, 1758, 1758,
+ 1761, 1769, 1769, 1775, 1776, 1781, 1789, 1790, 1795, 1803,
+ 1807, 1812, 1811, 1824, 1825, 1829, 1830, 1840, 1845, 1855,
+ 1864, 1865, 1877, 1881, 1883, 1884, 1885, 1886, 1887, 1891,
+ 1892, 1896, 1897, 1901, 1912, 1913, 1924, 1931, 1940, 1948,
+ 1950, 1955, 1956, 1957, 1957, 1970, 1987, 2000, 2000, 2007,
+ 2008, 2008, 2014, 2020, 2024, 2036, 2037, 2038, 2039, 2040,
+ 2041, 2045, 2046, 2047, 2048, 2052, 2054, 2056, 2058, 2060,
+ 2063, 2070, 2069, 2078, 2079, 2080, 2081, 2089, 2090, 2091,
+ 2095, 2096, 2097, 2098, 2099, 2100, 2101, 2102, 2103, 2104,
+ 2105, 2106, 2107, 2108, 2109, 2110, 2111, 2112, 2113, 2114,
+ 2115, 2116, 2117, 2123, 2122, 2134, 2139, 2140, 2141, 2142,
+ 2143, 2144, 2145, 2146, 2147, 2148, 2149, 2150, 2151, 2156,
+ 2167, 2168, 2169, 2170, 2176, 2190, 2196, 2202, 2208, 2207,
+ 2216, 2217, 2227, 2237, 2244, 2249, 2259, 2263, 2264, 2268,
+ 2269, 2270, 2273, 2274, 2278, 2282, 2292, 2298, 2308, 2313,
+ 2317, 2318, 2322, 2326, 2330, 2337, 2341, 2345, 2352, 2353,
+ 2357, 2358, 2359, 2360, 2361, 2362, 2366, 2367, 2371, 2372,
+ 2376, 2377, 2381, 2382, 2389, 2396, 2397, 2398, 2402, 2403,
+ 2407, 2408, 2412, 2413, 2417, 2418, 2422, 2422, 2434, 2434,
+ 2446, 2447, 2455, 2462, 2463, 2464, 2465, 2466, 2470, 2471,
+ 2475, 2476, 2477
};
#endif
@@ -3260,28 +3263,28 @@
case 2:
/* Line 1464 of yacc.c */
-#line 1163 "compilers/imcc/imcc.y"
+#line 1166 "compilers/imcc/imcc.y"
{ if (yynerrs) YYABORT; (yyval.i) = 0; }
break;
case 5:
/* Line 1464 of yacc.c */
-#line 1172 "compilers/imcc/imcc.y"
+#line 1175 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(1) - (1)].i); }
break;
case 6:
/* Line 1464 of yacc.c */
-#line 1173 "compilers/imcc/imcc.y"
+#line 1176 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(1) - (1)].i); }
break;
case 7:
/* Line 1464 of yacc.c */
-#line 1175 "compilers/imcc/imcc.y"
+#line 1178 "compilers/imcc/imcc.y"
{
(yyval.i) = (yyvsp[(1) - (1)].i);
imc_close_unit(interp, IMCC_INFO(interp)->cur_unit);
@@ -3292,7 +3295,7 @@
case 8:
/* Line 1464 of yacc.c */
-#line 1181 "compilers/imcc/imcc.y"
+#line 1184 "compilers/imcc/imcc.y"
{
(yyval.i) = (yyvsp[(1) - (1)].i);
imc_close_unit(interp, IMCC_INFO(interp)->cur_unit);
@@ -3303,42 +3306,42 @@
case 9:
/* Line 1464 of yacc.c */
-#line 1186 "compilers/imcc/imcc.y"
+#line 1189 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 10:
/* Line 1464 of yacc.c */
-#line 1187 "compilers/imcc/imcc.y"
+#line 1190 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 11:
/* Line 1464 of yacc.c */
-#line 1188 "compilers/imcc/imcc.y"
+#line 1191 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 12:
/* Line 1464 of yacc.c */
-#line 1189 "compilers/imcc/imcc.y"
+#line 1192 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 13:
/* Line 1464 of yacc.c */
-#line 1193 "compilers/imcc/imcc.y"
+#line 1196 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 14:
/* Line 1464 of yacc.c */
-#line 1195 "compilers/imcc/imcc.y"
+#line 1198 "compilers/imcc/imcc.y"
{
(yyval.i) = 0;
do_loadlib(interp, (yyvsp[(2) - (3)].s));
@@ -3349,7 +3352,7 @@
case 15:
/* Line 1464 of yacc.c */
-#line 1204 "compilers/imcc/imcc.y"
+#line 1207 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->line = atoi((yyvsp[(2) - (5)].s));
/* set_filename() frees the STRINGC */
@@ -3360,7 +3363,7 @@
case 16:
/* Line 1464 of yacc.c */
-#line 1210 "compilers/imcc/imcc.y"
+#line 1213 "compilers/imcc/imcc.y"
{
/* set_filename() frees the STRINGC */
set_filename(interp, (yyvsp[(2) - (3)].s));
@@ -3370,7 +3373,7 @@
case 17:
/* Line 1464 of yacc.c */
-#line 1218 "compilers/imcc/imcc.y"
+#line 1221 "compilers/imcc/imcc.y"
{
/* We'll want to store an entry while emitting instructions, so just
* store annotation like it's an instruction. */
@@ -3383,7 +3386,7 @@
case 18:
/* Line 1464 of yacc.c */
-#line 1230 "compilers/imcc/imcc.y"
+#line 1233 "compilers/imcc/imcc.y"
{
STRING * const hll_name = Parrot_str_unescape(interp, (yyvsp[(2) - (2)].s) + 1, '"', NULL);
Parrot_pcc_set_HLL(interp, CURRENT_CONTEXT(interp),
@@ -3398,14 +3401,14 @@
case 19:
/* Line 1464 of yacc.c */
-#line 1242 "compilers/imcc/imcc.y"
+#line 1245 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 20:
/* Line 1464 of yacc.c */
-#line 1243 "compilers/imcc/imcc.y"
+#line 1246 "compilers/imcc/imcc.y"
{
mk_const_ident(interp, (yyvsp[(4) - (6)].s), (yyvsp[(3) - (6)].t), (yyvsp[(6) - (6)].sr), 1);
mem_sys_free((yyvsp[(4) - (6)].s));
@@ -3416,14 +3419,14 @@
case 21:
/* Line 1464 of yacc.c */
-#line 1251 "compilers/imcc/imcc.y"
+#line 1254 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 22:
/* Line 1464 of yacc.c */
-#line 1252 "compilers/imcc/imcc.y"
+#line 1255 "compilers/imcc/imcc.y"
{
(yyval.i) = mk_pmc_const(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(3) - (6)].s), (yyvsp[(4) - (6)].sr), (yyvsp[(6) - (6)].s));
mem_sys_free((yyvsp[(6) - (6)].s));
@@ -3434,14 +3437,14 @@
case 23:
/* Line 1464 of yacc.c */
-#line 1258 "compilers/imcc/imcc.y"
+#line 1261 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 24:
/* Line 1464 of yacc.c */
-#line 1259 "compilers/imcc/imcc.y"
+#line 1262 "compilers/imcc/imcc.y"
{
(yyval.i) = mk_pmc_const_named(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(3) - (6)].s), (yyvsp[(4) - (6)].sr), (yyvsp[(6) - (6)].s));
mem_sys_free((yyvsp[(3) - (6)].s));
@@ -3453,49 +3456,49 @@
case 29:
/* Line 1464 of yacc.c */
-#line 1277 "compilers/imcc/imcc.y"
+#line 1280 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 30:
/* Line 1464 of yacc.c */
-#line 1278 "compilers/imcc/imcc.y"
+#line 1281 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 31:
/* Line 1464 of yacc.c */
-#line 1279 "compilers/imcc/imcc.y"
+#line 1282 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 32:
/* Line 1464 of yacc.c */
-#line 1280 "compilers/imcc/imcc.y"
+#line 1283 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 33:
/* Line 1464 of yacc.c */
-#line 1281 "compilers/imcc/imcc.y"
+#line 1284 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(1) - (1)].i); }
break;
case 36:
/* Line 1464 of yacc.c */
-#line 1286 "compilers/imcc/imcc.y"
+#line 1289 "compilers/imcc/imcc.y"
{ clear_state(interp); }
break;
case 37:
/* Line 1464 of yacc.c */
-#line 1288 "compilers/imcc/imcc.y"
+#line 1291 "compilers/imcc/imcc.y"
{
(yyval.i) = INS(interp, IMCC_INFO(interp)->cur_unit,
(yyvsp[(2) - (3)].s), 0, IMCC_INFO(interp)->regs,
@@ -3507,7 +3510,7 @@
case 38:
/* Line 1464 of yacc.c */
-#line 1295 "compilers/imcc/imcc.y"
+#line 1298 "compilers/imcc/imcc.y"
{
imc_close_unit(interp, IMCC_INFO(interp)->cur_unit);
IMCC_INFO(interp)->cur_unit = imc_open_unit(interp, IMC_PASM);
@@ -3517,7 +3520,7 @@
case 39:
/* Line 1464 of yacc.c */
-#line 1300 "compilers/imcc/imcc.y"
+#line 1303 "compilers/imcc/imcc.y"
{
(yyval.i) = iSUBROUTINE(interp,
IMCC_INFO(interp)->cur_unit,
@@ -3530,7 +3533,7 @@
case 40:
/* Line 1464 of yacc.c */
-#line 1308 "compilers/imcc/imcc.y"
+#line 1311 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "null", 1, (yyvsp[(2) - (2)].sr));
}
@@ -3539,7 +3542,7 @@
case 41:
/* Line 1464 of yacc.c */
-#line 1312 "compilers/imcc/imcc.y"
+#line 1315 "compilers/imcc/imcc.y"
{
char *name = mem_sys_strdup((yyvsp[(2) - (4)].s) + 1);
SymReg *r = mk_pasm_reg(interp, (yyvsp[(4) - (4)].s));
@@ -3557,21 +3560,21 @@
case 42:
/* Line 1464 of yacc.c */
-#line 1324 "compilers/imcc/imcc.y"
+#line 1327 "compilers/imcc/imcc.y"
{ (yyval.i) = 0;}
break;
case 44:
/* Line 1464 of yacc.c */
-#line 1332 "compilers/imcc/imcc.y"
+#line 1335 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->cur_unit = imc_open_unit(interp, IMC_PASM); }
break;
case 45:
/* Line 1464 of yacc.c */
-#line 1335 "compilers/imcc/imcc.y"
+#line 1338 "compilers/imcc/imcc.y"
{
/* if (optimizer_level & OPT_PASM)
imc_compile_unit(interp, IMCC_INFO(interp)->cur_unit);
@@ -3584,7 +3587,7 @@
case 48:
/* Line 1464 of yacc.c */
-#line 1351 "compilers/imcc/imcc.y"
+#line 1354 "compilers/imcc/imcc.y"
{
int re_open = 0;
(yyval.i) = 0;
@@ -3601,21 +3604,21 @@
case 49:
/* Line 1464 of yacc.c */
-#line 1365 "compilers/imcc/imcc.y"
+#line 1368 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(2) - (3)].sr); }
break;
case 50:
/* Line 1464 of yacc.c */
-#line 1366 "compilers/imcc/imcc.y"
+#line 1369 "compilers/imcc/imcc.y"
{ (yyval.sr) = NULL; }
break;
case 51:
/* Line 1464 of yacc.c */
-#line 1370 "compilers/imcc/imcc.y"
+#line 1373 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->nkeys = 0;
}
@@ -3624,7 +3627,7 @@
case 52:
/* Line 1464 of yacc.c */
-#line 1374 "compilers/imcc/imcc.y"
+#line 1377 "compilers/imcc/imcc.y"
{
(yyval.sr) = link_keys(interp,
IMCC_INFO(interp)->nkeys,
@@ -3635,14 +3638,14 @@
case 53:
/* Line 1464 of yacc.c */
-#line 1382 "compilers/imcc/imcc.y"
+#line 1385 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->keys[IMCC_INFO(interp)->nkeys++] = (yyvsp[(1) - (1)].sr); }
break;
case 54:
/* Line 1464 of yacc.c */
-#line 1384 "compilers/imcc/imcc.y"
+#line 1387 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->keys[IMCC_INFO(interp)->nkeys++] = (yyvsp[(3) - (3)].sr);
(yyval.sr) = IMCC_INFO(interp)->keys[0];
@@ -3652,7 +3655,7 @@
case 55:
/* Line 1464 of yacc.c */
-#line 1392 "compilers/imcc/imcc.y"
+#line 1395 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->cur_unit = imc_open_unit(interp, IMC_PCCSUB);
}
@@ -3661,7 +3664,7 @@
case 56:
/* Line 1464 of yacc.c */
-#line 1396 "compilers/imcc/imcc.y"
+#line 1399 "compilers/imcc/imcc.y"
{
iSUBROUTINE(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(3) - (3)].sr));
}
@@ -3670,7 +3673,7 @@
case 57:
/* Line 1464 of yacc.c */
-#line 1400 "compilers/imcc/imcc.y"
+#line 1403 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->cur_call->pcc_sub->pragma = (yyvsp[(5) - (6)].t);
if (!IMCC_INFO(interp)->cur_unit->instructions->symregs[0]->subid) {
@@ -3683,28 +3686,28 @@
case 58:
/* Line 1464 of yacc.c */
-#line 1408 "compilers/imcc/imcc.y"
+#line 1411 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; IMCC_INFO(interp)->cur_call = NULL; }
break;
case 59:
/* Line 1464 of yacc.c */
-#line 1412 "compilers/imcc/imcc.y"
+#line 1415 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 60:
/* Line 1464 of yacc.c */
-#line 1413 "compilers/imcc/imcc.y"
+#line 1416 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 61:
/* Line 1464 of yacc.c */
-#line 1415 "compilers/imcc/imcc.y"
+#line 1418 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->adv_named_id) {
add_pcc_named_param(interp, IMCC_INFO(interp)->cur_call,
@@ -3719,21 +3722,21 @@
case 62:
/* Line 1464 of yacc.c */
-#line 1427 "compilers/imcc/imcc.y"
+#line 1430 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 63:
/* Line 1464 of yacc.c */
-#line 1427 "compilers/imcc/imcc.y"
+#line 1430 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(3) - (3)].sr); IMCC_INFO(interp)->is_def = 0; }
break;
case 64:
/* Line 1464 of yacc.c */
-#line 1432 "compilers/imcc/imcc.y"
+#line 1435 "compilers/imcc/imcc.y"
{
if ((yyvsp[(3) - (3)].t) & VT_OPT_FLAG && (yyvsp[(1) - (3)].t) != 'I') {
const char *type;
@@ -3758,14 +3761,14 @@
case 65:
/* Line 1464 of yacc.c */
-#line 1456 "compilers/imcc/imcc.y"
+#line 1459 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 66:
/* Line 1464 of yacc.c */
-#line 1461 "compilers/imcc/imcc.y"
+#line 1464 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
IMCC_INFO(interp)->cur_unit->outer = mk_sub_address_fromc(interp, (yyvsp[(3) - (4)].s));
@@ -3776,7 +3779,7 @@
case 67:
/* Line 1464 of yacc.c */
-#line 1467 "compilers/imcc/imcc.y"
+#line 1470 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
IMCC_INFO(interp)->cur_unit->outer = mk_const(interp, (yyvsp[(3) - (4)].s), 'S');
@@ -3787,7 +3790,7 @@
case 68:
/* Line 1464 of yacc.c */
-#line 1476 "compilers/imcc/imcc.y"
+#line 1479 "compilers/imcc/imcc.y"
{
(yyval.t) = P_VTABLE;
IMCC_INFO(interp)->cur_unit->vtable_name = NULL;
@@ -3798,7 +3801,7 @@
case 69:
/* Line 1464 of yacc.c */
-#line 1482 "compilers/imcc/imcc.y"
+#line 1485 "compilers/imcc/imcc.y"
{
(yyval.t) = P_VTABLE;
IMCC_INFO(interp)->cur_unit->vtable_name = (yyvsp[(3) - (4)].s);
@@ -3809,7 +3812,7 @@
case 70:
/* Line 1464 of yacc.c */
-#line 1491 "compilers/imcc/imcc.y"
+#line 1494 "compilers/imcc/imcc.y"
{
(yyval.t) = P_METHOD;
IMCC_INFO(interp)->cur_unit->method_name = NULL;
@@ -3820,7 +3823,7 @@
case 71:
/* Line 1464 of yacc.c */
-#line 1497 "compilers/imcc/imcc.y"
+#line 1500 "compilers/imcc/imcc.y"
{
(yyval.t) = P_METHOD;
IMCC_INFO(interp)->cur_unit->method_name = (yyvsp[(3) - (4)].s);
@@ -3831,7 +3834,7 @@
case 72:
/* Line 1464 of yacc.c */
-#line 1506 "compilers/imcc/imcc.y"
+#line 1509 "compilers/imcc/imcc.y"
{
(yyval.t) = P_NSENTRY;
IMCC_INFO(interp)->cur_unit->ns_entry_name = NULL;
@@ -3842,7 +3845,7 @@
case 73:
/* Line 1464 of yacc.c */
-#line 1512 "compilers/imcc/imcc.y"
+#line 1515 "compilers/imcc/imcc.y"
{
(yyval.t) = P_NSENTRY;
IMCC_INFO(interp)->cur_unit->ns_entry_name = (yyvsp[(3) - (4)].s);
@@ -3853,7 +3856,7 @@
case 74:
/* Line 1464 of yacc.c */
-#line 1521 "compilers/imcc/imcc.y"
+#line 1524 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
IMCC_INFO(interp)->cur_unit->instance_of = (yyvsp[(3) - (4)].s);
@@ -3863,7 +3866,7 @@
case 75:
/* Line 1464 of yacc.c */
-#line 1529 "compilers/imcc/imcc.y"
+#line 1532 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
IMCC_INFO(interp)->cur_unit->subid = NULL;
@@ -3873,7 +3876,7 @@
case 76:
/* Line 1464 of yacc.c */
-#line 1534 "compilers/imcc/imcc.y"
+#line 1537 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
IMCC_INFO(interp)->cur_unit->subid = mk_const(interp, (yyvsp[(3) - (4)].s), 'S');
@@ -3885,7 +3888,7 @@
case 77:
/* Line 1464 of yacc.c */
-#line 1544 "compilers/imcc/imcc.y"
+#line 1547 "compilers/imcc/imcc.y"
{
add_pcc_multi(interp, IMCC_INFO(interp)->cur_call, NULL);
}
@@ -3894,7 +3897,7 @@
case 78:
/* Line 1464 of yacc.c */
-#line 1548 "compilers/imcc/imcc.y"
+#line 1551 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
add_pcc_multi(interp, IMCC_INFO(interp)->cur_call, (yyvsp[(3) - (3)].sr));
@@ -3904,7 +3907,7 @@
case 79:
/* Line 1464 of yacc.c */
-#line 1553 "compilers/imcc/imcc.y"
+#line 1556 "compilers/imcc/imcc.y"
{
(yyval.t) = 0;
add_pcc_multi(interp, IMCC_INFO(interp)->cur_call, (yyvsp[(1) - (1)].sr));
@@ -3914,35 +3917,35 @@
case 80:
/* Line 1464 of yacc.c */
-#line 1560 "compilers/imcc/imcc.y"
+#line 1563 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, "INTVAL", 'S'); }
break;
case 81:
/* Line 1464 of yacc.c */
-#line 1561 "compilers/imcc/imcc.y"
+#line 1564 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, "FLOATVAL", 'S'); }
break;
case 82:
/* Line 1464 of yacc.c */
-#line 1562 "compilers/imcc/imcc.y"
+#line 1565 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, "PMC", 'S'); }
break;
case 83:
/* Line 1464 of yacc.c */
-#line 1563 "compilers/imcc/imcc.y"
+#line 1566 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, "STRING", 'S'); }
break;
case 84:
/* Line 1464 of yacc.c */
-#line 1565 "compilers/imcc/imcc.y"
+#line 1568 "compilers/imcc/imcc.y"
{
SymReg *r;
if (strcmp((yyvsp[(1) - (1)].s), "_") != 0)
@@ -3958,7 +3961,7 @@
case 85:
/* Line 1464 of yacc.c */
-#line 1576 "compilers/imcc/imcc.y"
+#line 1579 "compilers/imcc/imcc.y"
{
SymReg *r;
if (strcmp((yyvsp[(1) - (1)].s), "_") != 0)
@@ -3974,14 +3977,14 @@
case 86:
/* Line 1464 of yacc.c */
-#line 1586 "compilers/imcc/imcc.y"
+#line 1589 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(2) - (3)].sr); }
break;
case 89:
/* Line 1464 of yacc.c */
-#line 1596 "compilers/imcc/imcc.y"
+#line 1599 "compilers/imcc/imcc.y"
{
char name[128];
SymReg *r, *r1;
@@ -4008,112 +4011,112 @@
case 90:
/* Line 1464 of yacc.c */
-#line 1622 "compilers/imcc/imcc.y"
+#line 1625 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; IMCC_INFO(interp)->cur_call = NULL; }
break;
case 91:
/* Line 1464 of yacc.c */
-#line 1626 "compilers/imcc/imcc.y"
+#line 1629 "compilers/imcc/imcc.y"
{ (yyval.i) = NULL; IMCC_INFO(interp)->cur_call->pcc_sub->label = 0; }
break;
case 92:
/* Line 1464 of yacc.c */
-#line 1627 "compilers/imcc/imcc.y"
+#line 1630 "compilers/imcc/imcc.y"
{ (yyval.i) = NULL; IMCC_INFO(interp)->cur_call->pcc_sub->label = 1; }
break;
case 93:
/* Line 1464 of yacc.c */
-#line 1631 "compilers/imcc/imcc.y"
+#line 1634 "compilers/imcc/imcc.y"
{ (yyval.i) = NULL; }
break;
case 94:
/* Line 1464 of yacc.c */
-#line 1632 "compilers/imcc/imcc.y"
+#line 1635 "compilers/imcc/imcc.y"
{ (yyval.i) = NULL; IMCC_INFO(interp)->cur_call->pcc_sub->object = (yyvsp[(2) - (3)].sr); }
break;
case 95:
/* Line 1464 of yacc.c */
-#line 1636 "compilers/imcc/imcc.y"
+#line 1639 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 97:
/* Line 1464 of yacc.c */
-#line 1641 "compilers/imcc/imcc.y"
+#line 1644 "compilers/imcc/imcc.y"
{ (yyval.t) = (yyvsp[(1) - (1)].t); }
break;
case 98:
/* Line 1464 of yacc.c */
-#line 1642 "compilers/imcc/imcc.y"
+#line 1645 "compilers/imcc/imcc.y"
{ (yyval.t) = (yyvsp[(1) - (2)].t) | (yyvsp[(2) - (2)].t); }
break;
case 99:
/* Line 1464 of yacc.c */
-#line 1646 "compilers/imcc/imcc.y"
+#line 1649 "compilers/imcc/imcc.y"
{ (yyval.t) = P_LOAD; }
break;
case 100:
/* Line 1464 of yacc.c */
-#line 1647 "compilers/imcc/imcc.y"
+#line 1650 "compilers/imcc/imcc.y"
{ (yyval.t) = P_INIT; }
break;
case 101:
/* Line 1464 of yacc.c */
-#line 1648 "compilers/imcc/imcc.y"
+#line 1651 "compilers/imcc/imcc.y"
{ (yyval.t) = P_MAIN; }
break;
case 102:
/* Line 1464 of yacc.c */
-#line 1649 "compilers/imcc/imcc.y"
+#line 1652 "compilers/imcc/imcc.y"
{ (yyval.t) = P_IMMEDIATE; }
break;
case 103:
/* Line 1464 of yacc.c */
-#line 1650 "compilers/imcc/imcc.y"
+#line 1653 "compilers/imcc/imcc.y"
{ (yyval.t) = P_POSTCOMP; }
break;
case 104:
/* Line 1464 of yacc.c */
-#line 1651 "compilers/imcc/imcc.y"
+#line 1654 "compilers/imcc/imcc.y"
{ (yyval.t) = P_ANON; }
break;
case 105:
/* Line 1464 of yacc.c */
-#line 1652 "compilers/imcc/imcc.y"
+#line 1655 "compilers/imcc/imcc.y"
{ (yyval.t) = P_NEED_LEX; }
break;
case 113:
/* Line 1464 of yacc.c */
-#line 1664 "compilers/imcc/imcc.y"
+#line 1667 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, (yyvsp[(2) - (5)].sr));
add_pcc_cc(IMCC_INFO(interp)->cur_call, (yyvsp[(4) - (5)].sr));
@@ -4123,7 +4126,7 @@
case 114:
/* Line 1464 of yacc.c */
-#line 1669 "compilers/imcc/imcc.y"
+#line 1672 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, (yyvsp[(2) - (3)].sr));
}
@@ -4132,7 +4135,7 @@
case 115:
/* Line 1464 of yacc.c */
-#line 1673 "compilers/imcc/imcc.y"
+#line 1676 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, (yyvsp[(2) - (3)].sr));
}
@@ -4141,7 +4144,7 @@
case 116:
/* Line 1464 of yacc.c */
-#line 1677 "compilers/imcc/imcc.y"
+#line 1680 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, (yyvsp[(2) - (3)].sr));
}
@@ -4150,7 +4153,7 @@
case 117:
/* Line 1464 of yacc.c */
-#line 1681 "compilers/imcc/imcc.y"
+#line 1684 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, mk_const(interp, (yyvsp[(2) - (3)].s), 'S'));
}
@@ -4159,7 +4162,7 @@
case 118:
/* Line 1464 of yacc.c */
-#line 1685 "compilers/imcc/imcc.y"
+#line 1688 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, (yyvsp[(2) - (5)].sr));
add_pcc_cc(IMCC_INFO(interp)->cur_call, (yyvsp[(4) - (5)].sr));
@@ -4169,7 +4172,7 @@
case 119:
/* Line 1464 of yacc.c */
-#line 1690 "compilers/imcc/imcc.y"
+#line 1693 "compilers/imcc/imcc.y"
{
add_pcc_sub(IMCC_INFO(interp)->cur_call, mk_const(interp, (yyvsp[(2) - (5)].s), 'S'));
add_pcc_cc(IMCC_INFO(interp)->cur_call, (yyvsp[(4) - (5)].sr));
@@ -4179,14 +4182,14 @@
case 120:
/* Line 1464 of yacc.c */
-#line 1698 "compilers/imcc/imcc.y"
+#line 1701 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 121:
/* Line 1464 of yacc.c */
-#line 1699 "compilers/imcc/imcc.y"
+#line 1702 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->adv_named_id) {
add_pcc_named_param(interp, IMCC_INFO(interp)->cur_call,
@@ -4201,21 +4204,21 @@
case 122:
/* Line 1464 of yacc.c */
-#line 1711 "compilers/imcc/imcc.y"
+#line 1714 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(2) - (2)].sr); }
break;
case 123:
/* Line 1464 of yacc.c */
-#line 1716 "compilers/imcc/imcc.y"
+#line 1719 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 124:
/* Line 1464 of yacc.c */
-#line 1718 "compilers/imcc/imcc.y"
+#line 1721 "compilers/imcc/imcc.y"
{
if ((yyvsp[(2) - (3)].sr))
add_pcc_result(interp, IMCC_INFO(interp)->cur_call, (yyvsp[(2) - (3)].sr));
@@ -4225,21 +4228,21 @@
case 125:
/* Line 1464 of yacc.c */
-#line 1725 "compilers/imcc/imcc.y"
+#line 1728 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(2) - (3)].sr); (yyval.sr)->type |= (yyvsp[(3) - (3)].t); }
break;
case 126:
/* Line 1464 of yacc.c */
-#line 1726 "compilers/imcc/imcc.y"
+#line 1729 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 127:
/* Line 1464 of yacc.c */
-#line 1727 "compilers/imcc/imcc.y"
+#line 1730 "compilers/imcc/imcc.y"
{
IdList * const l = (yyvsp[(4) - (4)].idlist);
SymReg *ignored;
@@ -4253,91 +4256,91 @@
case 128:
/* Line 1464 of yacc.c */
-#line 1738 "compilers/imcc/imcc.y"
+#line 1741 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 129:
/* Line 1464 of yacc.c */
-#line 1739 "compilers/imcc/imcc.y"
+#line 1742 "compilers/imcc/imcc.y"
{ (yyval.t) = (yyvsp[(1) - (2)].t) | (yyvsp[(2) - (2)].t); }
break;
case 130:
/* Line 1464 of yacc.c */
-#line 1743 "compilers/imcc/imcc.y"
+#line 1746 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_FLAT; }
break;
case 131:
/* Line 1464 of yacc.c */
-#line 1744 "compilers/imcc/imcc.y"
+#line 1747 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_OPTIONAL; }
break;
case 132:
/* Line 1464 of yacc.c */
-#line 1745 "compilers/imcc/imcc.y"
+#line 1748 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_OPT_FLAG; }
break;
case 133:
/* Line 1464 of yacc.c */
-#line 1746 "compilers/imcc/imcc.y"
+#line 1749 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_NAMED; }
break;
case 134:
/* Line 1464 of yacc.c */
-#line 1747 "compilers/imcc/imcc.y"
+#line 1750 "compilers/imcc/imcc.y"
{ adv_named_set(interp, (yyvsp[(3) - (4)].s)); (yyval.t) = VT_NAMED; mem_sys_free((yyvsp[(3) - (4)].s)); }
break;
case 135:
/* Line 1464 of yacc.c */
-#line 1748 "compilers/imcc/imcc.y"
+#line 1751 "compilers/imcc/imcc.y"
{ adv_named_set_u(interp, (yyvsp[(3) - (4)].s)); (yyval.t) = VT_NAMED; mem_sys_free((yyvsp[(3) - (4)].s)); }
break;
case 136:
/* Line 1464 of yacc.c */
-#line 1749 "compilers/imcc/imcc.y"
+#line 1752 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 137:
/* Line 1464 of yacc.c */
-#line 1750 "compilers/imcc/imcc.y"
+#line 1753 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_CALL_SIG; }
break;
case 138:
/* Line 1464 of yacc.c */
-#line 1755 "compilers/imcc/imcc.y"
+#line 1758 "compilers/imcc/imcc.y"
{ begin_return_or_yield(interp, 0); }
break;
case 139:
/* Line 1464 of yacc.c */
-#line 1757 "compilers/imcc/imcc.y"
+#line 1760 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; IMCC_INFO(interp)->asm_state = AsmDefault; }
break;
case 140:
/* Line 1464 of yacc.c */
-#line 1759 "compilers/imcc/imcc.y"
+#line 1762 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->asm_state = AsmDefault;
(yyval.i) = 0;
@@ -4347,28 +4350,28 @@
case 141:
/* Line 1464 of yacc.c */
-#line 1766 "compilers/imcc/imcc.y"
+#line 1769 "compilers/imcc/imcc.y"
{ begin_return_or_yield(interp, 1); }
break;
case 142:
/* Line 1464 of yacc.c */
-#line 1768 "compilers/imcc/imcc.y"
+#line 1771 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; IMCC_INFO(interp)->asm_state = AsmDefault; }
break;
case 143:
/* Line 1464 of yacc.c */
-#line 1772 "compilers/imcc/imcc.y"
+#line 1775 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 144:
/* Line 1464 of yacc.c */
-#line 1774 "compilers/imcc/imcc.y"
+#line 1777 "compilers/imcc/imcc.y"
{
if ((yyvsp[(1) - (2)].sr))
add_pcc_result(interp, IMCC_INFO(interp)->sr_return, (yyvsp[(1) - (2)].sr));
@@ -4378,7 +4381,7 @@
case 145:
/* Line 1464 of yacc.c */
-#line 1779 "compilers/imcc/imcc.y"
+#line 1782 "compilers/imcc/imcc.y"
{
if ((yyvsp[(2) - (3)].sr))
add_pcc_result(interp, IMCC_INFO(interp)->sr_return, (yyvsp[(2) - (3)].sr));
@@ -4388,14 +4391,14 @@
case 146:
/* Line 1464 of yacc.c */
-#line 1786 "compilers/imcc/imcc.y"
+#line 1789 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 147:
/* Line 1464 of yacc.c */
-#line 1788 "compilers/imcc/imcc.y"
+#line 1791 "compilers/imcc/imcc.y"
{
if ((yyvsp[(1) - (2)].sr))
add_pcc_result(interp, IMCC_INFO(interp)->sr_return, (yyvsp[(1) - (2)].sr));
@@ -4405,7 +4408,7 @@
case 148:
/* Line 1464 of yacc.c */
-#line 1793 "compilers/imcc/imcc.y"
+#line 1796 "compilers/imcc/imcc.y"
{
if ((yyvsp[(2) - (3)].sr))
add_pcc_result(interp, IMCC_INFO(interp)->sr_return, (yyvsp[(2) - (3)].sr));
@@ -4415,21 +4418,21 @@
case 149:
/* Line 1464 of yacc.c */
-#line 1800 "compilers/imcc/imcc.y"
+#line 1803 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(2) - (3)].sr); (yyval.sr)->type |= (yyvsp[(3) - (3)].t); }
break;
case 150:
/* Line 1464 of yacc.c */
-#line 1804 "compilers/imcc/imcc.y"
+#line 1807 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(2) - (3)].sr); (yyval.sr)->type |= (yyvsp[(3) - (3)].t); }
break;
case 151:
/* Line 1464 of yacc.c */
-#line 1809 "compilers/imcc/imcc.y"
+#line 1812 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->asm_state == AsmDefault)
begin_return_or_yield(interp, (yyvsp[(1) - (2)].t));
@@ -4439,7 +4442,7 @@
case 152:
/* Line 1464 of yacc.c */
-#line 1814 "compilers/imcc/imcc.y"
+#line 1817 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->asm_state = AsmDefault;
(yyval.t) = 0;
@@ -4449,28 +4452,28 @@
case 153:
/* Line 1464 of yacc.c */
-#line 1821 "compilers/imcc/imcc.y"
+#line 1824 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 154:
/* Line 1464 of yacc.c */
-#line 1822 "compilers/imcc/imcc.y"
+#line 1825 "compilers/imcc/imcc.y"
{ (yyval.t) = 1; }
break;
case 155:
/* Line 1464 of yacc.c */
-#line 1826 "compilers/imcc/imcc.y"
+#line 1829 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 156:
/* Line 1464 of yacc.c */
-#line 1828 "compilers/imcc/imcc.y"
+#line 1831 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->adv_named_id) {
add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return,
@@ -4485,7 +4488,7 @@
case 157:
/* Line 1464 of yacc.c */
-#line 1838 "compilers/imcc/imcc.y"
+#line 1841 "compilers/imcc/imcc.y"
{
SymReg * const name = mk_const(interp, (yyvsp[(1) - (3)].s), 'S');
add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return, name, (yyvsp[(3) - (3)].sr));
@@ -4495,7 +4498,7 @@
case 158:
/* Line 1464 of yacc.c */
-#line 1843 "compilers/imcc/imcc.y"
+#line 1846 "compilers/imcc/imcc.y"
{
if (IMCC_INFO(interp)->adv_named_id) {
add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return,
@@ -4510,7 +4513,7 @@
case 159:
/* Line 1464 of yacc.c */
-#line 1853 "compilers/imcc/imcc.y"
+#line 1856 "compilers/imcc/imcc.y"
{
SymReg * const name = mk_const(interp, (yyvsp[(3) - (5)].s), 'S');
add_pcc_named_return(interp, IMCC_INFO(interp)->sr_return, name, (yyvsp[(5) - (5)].sr));
@@ -4520,63 +4523,63 @@
case 162:
/* Line 1464 of yacc.c */
-#line 1874 "compilers/imcc/imcc.y"
+#line 1877 "compilers/imcc/imcc.y"
{ clear_state(interp); }
break;
case 163:
/* Line 1464 of yacc.c */
-#line 1879 "compilers/imcc/imcc.y"
+#line 1882 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(2) - (2)].i); }
break;
case 164:
/* Line 1464 of yacc.c */
-#line 1880 "compilers/imcc/imcc.y"
+#line 1883 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 165:
/* Line 1464 of yacc.c */
-#line 1881 "compilers/imcc/imcc.y"
+#line 1884 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 166:
/* Line 1464 of yacc.c */
-#line 1882 "compilers/imcc/imcc.y"
+#line 1885 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 167:
/* Line 1464 of yacc.c */
-#line 1883 "compilers/imcc/imcc.y"
+#line 1886 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 168:
/* Line 1464 of yacc.c */
-#line 1884 "compilers/imcc/imcc.y"
+#line 1887 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(1) - (1)].i); }
break;
case 169:
/* Line 1464 of yacc.c */
-#line 1888 "compilers/imcc/imcc.y"
+#line 1891 "compilers/imcc/imcc.y"
{ (yyval.i) = NULL; }
break;
case 173:
/* Line 1464 of yacc.c */
-#line 1899 "compilers/imcc/imcc.y"
+#line 1902 "compilers/imcc/imcc.y"
{
Instruction * const i = iLABEL(interp, IMCC_INFO(interp)->cur_unit, mk_local_label(interp, (yyvsp[(1) - (1)].s)));
mem_sys_free((yyvsp[(1) - (1)].s));
@@ -4587,14 +4590,14 @@
case 174:
/* Line 1464 of yacc.c */
-#line 1909 "compilers/imcc/imcc.y"
+#line 1912 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(2) - (3)].i); }
break;
case 175:
/* Line 1464 of yacc.c */
-#line 1911 "compilers/imcc/imcc.y"
+#line 1914 "compilers/imcc/imcc.y"
{
if (yynerrs >= PARROT_MAX_RECOVER_ERRORS) {
IMCC_warning(interp, "Too many errors. Correct some first.\n");
@@ -4607,7 +4610,7 @@
case 176:
/* Line 1464 of yacc.c */
-#line 1922 "compilers/imcc/imcc.y"
+#line 1925 "compilers/imcc/imcc.y"
{
IdList* const l = (yyvsp[(1) - (1)].idlist);
l->next = NULL;
@@ -4618,7 +4621,7 @@
case 177:
/* Line 1464 of yacc.c */
-#line 1929 "compilers/imcc/imcc.y"
+#line 1932 "compilers/imcc/imcc.y"
{
IdList* const l = (yyvsp[(3) - (3)].idlist);
l->next = (yyvsp[(1) - (3)].idlist);
@@ -4629,7 +4632,7 @@
case 178:
/* Line 1464 of yacc.c */
-#line 1938 "compilers/imcc/imcc.y"
+#line 1941 "compilers/imcc/imcc.y"
{
IdList* const l = mem_gc_allocate_n_zeroed_typed(interp, 1, IdList);
l->id = (yyvsp[(1) - (2)].s);
@@ -4640,14 +4643,14 @@
case 183:
/* Line 1464 of yacc.c */
-#line 1954 "compilers/imcc/imcc.y"
+#line 1957 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 184:
/* Line 1464 of yacc.c */
-#line 1955 "compilers/imcc/imcc.y"
+#line 1958 "compilers/imcc/imcc.y"
{
IdList *l = (yyvsp[(4) - (4)].idlist);
while (l) {
@@ -4665,7 +4668,7 @@
case 185:
/* Line 1464 of yacc.c */
-#line 1968 "compilers/imcc/imcc.y"
+#line 1971 "compilers/imcc/imcc.y"
{
if ((yyvsp[(4) - (4)].sr)->set != 'P') {
mem_sys_free((yyvsp[(2) - (4)].s));
@@ -4687,7 +4690,7 @@
case 186:
/* Line 1464 of yacc.c */
-#line 1985 "compilers/imcc/imcc.y"
+#line 1988 "compilers/imcc/imcc.y"
{
if ((yyvsp[(4) - (4)].sr)->set != 'P') {
mem_sys_free((yyvsp[(2) - (4)].s));
@@ -4705,14 +4708,14 @@
case 187:
/* Line 1464 of yacc.c */
-#line 1997 "compilers/imcc/imcc.y"
+#line 2000 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 188:
/* Line 1464 of yacc.c */
-#line 1998 "compilers/imcc/imcc.y"
+#line 2001 "compilers/imcc/imcc.y"
{
mk_const_ident(interp, (yyvsp[(4) - (6)].s), (yyvsp[(3) - (6)].t), (yyvsp[(6) - (6)].sr), 0);
IMCC_INFO(interp)->is_def = 0;
@@ -4723,14 +4726,14 @@
case 190:
/* Line 1464 of yacc.c */
-#line 2005 "compilers/imcc/imcc.y"
+#line 2008 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->is_def = 1; }
break;
case 191:
/* Line 1464 of yacc.c */
-#line 2006 "compilers/imcc/imcc.y"
+#line 2009 "compilers/imcc/imcc.y"
{
mk_const_ident(interp, (yyvsp[(4) - (6)].s), (yyvsp[(3) - (6)].t), (yyvsp[(6) - (6)].sr), 1);
IMCC_INFO(interp)->is_def = 0;
@@ -4741,7 +4744,7 @@
case 192:
/* Line 1464 of yacc.c */
-#line 2012 "compilers/imcc/imcc.y"
+#line 2015 "compilers/imcc/imcc.y"
{
(yyval.i) = NULL;
IMCC_INFO(interp)->cur_call->pcc_sub->tailcall = 1;
@@ -4752,7 +4755,7 @@
case 193:
/* Line 1464 of yacc.c */
-#line 2018 "compilers/imcc/imcc.y"
+#line 2021 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "branch", 1, (yyvsp[(2) - (2)].sr));
}
@@ -4761,7 +4764,7 @@
case 194:
/* Line 1464 of yacc.c */
-#line 2022 "compilers/imcc/imcc.y"
+#line 2025 "compilers/imcc/imcc.y"
{
(yyval.i) = INS(interp,
IMCC_INFO(interp)->cur_unit,
@@ -4778,98 +4781,98 @@
case 195:
/* Line 1464 of yacc.c */
-#line 2033 "compilers/imcc/imcc.y"
+#line 2036 "compilers/imcc/imcc.y"
{ (yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "null", 1, (yyvsp[(2) - (2)].sr)); }
break;
case 196:
/* Line 1464 of yacc.c */
-#line 2034 "compilers/imcc/imcc.y"
+#line 2037 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; IMCC_INFO(interp)->cur_call = NULL; }
break;
case 197:
/* Line 1464 of yacc.c */
-#line 2035 "compilers/imcc/imcc.y"
+#line 2038 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 200:
/* Line 1464 of yacc.c */
-#line 2038 "compilers/imcc/imcc.y"
+#line 2041 "compilers/imcc/imcc.y"
{ (yyval.i) = 0;}
break;
case 201:
/* Line 1464 of yacc.c */
-#line 2042 "compilers/imcc/imcc.y"
+#line 2045 "compilers/imcc/imcc.y"
{ (yyval.t) = 'I'; }
break;
case 202:
/* Line 1464 of yacc.c */
-#line 2043 "compilers/imcc/imcc.y"
+#line 2046 "compilers/imcc/imcc.y"
{ (yyval.t) = 'N'; }
break;
case 203:
/* Line 1464 of yacc.c */
-#line 2044 "compilers/imcc/imcc.y"
+#line 2047 "compilers/imcc/imcc.y"
{ (yyval.t) = 'S'; }
break;
case 204:
/* Line 1464 of yacc.c */
-#line 2045 "compilers/imcc/imcc.y"
+#line 2048 "compilers/imcc/imcc.y"
{ (yyval.t) = 'P'; }
break;
case 205:
/* Line 1464 of yacc.c */
-#line 2050 "compilers/imcc/imcc.y"
+#line 2053 "compilers/imcc/imcc.y"
{ (yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "set", 2, (yyvsp[(1) - (3)].sr), (yyvsp[(3) - (3)].sr)); }
break;
case 206:
/* Line 1464 of yacc.c */
-#line 2052 "compilers/imcc/imcc.y"
+#line 2055 "compilers/imcc/imcc.y"
{ (yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(3) - (4)].s), 2, (yyvsp[(1) - (4)].sr), (yyvsp[(4) - (4)].sr)); }
break;
case 207:
/* Line 1464 of yacc.c */
-#line 2054 "compilers/imcc/imcc.y"
+#line 2057 "compilers/imcc/imcc.y"
{ (yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(4) - (5)].s), 3, (yyvsp[(1) - (5)].sr), (yyvsp[(3) - (5)].sr), (yyvsp[(5) - (5)].sr)); }
break;
case 208:
/* Line 1464 of yacc.c */
-#line 2056 "compilers/imcc/imcc.y"
+#line 2059 "compilers/imcc/imcc.y"
{ (yyval.i) = iINDEXFETCH(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(1) - (6)].sr), (yyvsp[(3) - (6)].sr), (yyvsp[(5) - (6)].sr)); }
break;
case 209:
/* Line 1464 of yacc.c */
-#line 2058 "compilers/imcc/imcc.y"
+#line 2061 "compilers/imcc/imcc.y"
{ (yyval.i) = iINDEXSET(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(1) - (6)].sr), (yyvsp[(3) - (6)].sr), (yyvsp[(6) - (6)].sr)); }
break;
case 210:
/* Line 1464 of yacc.c */
-#line 2061 "compilers/imcc/imcc.y"
+#line 2064 "compilers/imcc/imcc.y"
{
add_pcc_result(interp, (yyvsp[(3) - (3)].i)->symregs[0], (yyvsp[(1) - (3)].sr));
IMCC_INFO(interp)->cur_call = NULL;
@@ -4880,7 +4883,7 @@
case 211:
/* Line 1464 of yacc.c */
-#line 2067 "compilers/imcc/imcc.y"
+#line 2070 "compilers/imcc/imcc.y"
{
(yyval.i) = IMCC_create_itcall_label(interp);
}
@@ -4889,7 +4892,7 @@
case 212:
/* Line 1464 of yacc.c */
-#line 2071 "compilers/imcc/imcc.y"
+#line 2074 "compilers/imcc/imcc.y"
{
IMCC_itcall_sub(interp, (yyvsp[(6) - (9)].sr));
IMCC_INFO(interp)->cur_call = NULL;
@@ -4899,7 +4902,7 @@
case 216:
/* Line 1464 of yacc.c */
-#line 2079 "compilers/imcc/imcc.y"
+#line 2082 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "null", 1, (yyvsp[(1) - (3)].sr));
}
@@ -4908,189 +4911,189 @@
case 217:
/* Line 1464 of yacc.c */
-#line 2086 "compilers/imcc/imcc.y"
+#line 2089 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"not"; }
break;
case 218:
/* Line 1464 of yacc.c */
-#line 2087 "compilers/imcc/imcc.y"
+#line 2090 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"bnot"; }
break;
case 219:
/* Line 1464 of yacc.c */
-#line 2088 "compilers/imcc/imcc.y"
+#line 2091 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"neg"; }
break;
case 220:
/* Line 1464 of yacc.c */
-#line 2092 "compilers/imcc/imcc.y"
+#line 2095 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"sub"; }
break;
case 221:
/* Line 1464 of yacc.c */
-#line 2093 "compilers/imcc/imcc.y"
+#line 2096 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"add"; }
break;
case 222:
/* Line 1464 of yacc.c */
-#line 2094 "compilers/imcc/imcc.y"
+#line 2097 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"mul"; }
break;
case 223:
/* Line 1464 of yacc.c */
-#line 2095 "compilers/imcc/imcc.y"
+#line 2098 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"div"; }
break;
case 224:
/* Line 1464 of yacc.c */
-#line 2096 "compilers/imcc/imcc.y"
+#line 2099 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"mod"; }
break;
case 225:
/* Line 1464 of yacc.c */
-#line 2097 "compilers/imcc/imcc.y"
+#line 2100 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"fdiv"; }
break;
case 226:
/* Line 1464 of yacc.c */
-#line 2098 "compilers/imcc/imcc.y"
+#line 2101 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"pow"; }
break;
case 227:
/* Line 1464 of yacc.c */
-#line 2099 "compilers/imcc/imcc.y"
+#line 2102 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"concat"; }
break;
case 228:
/* Line 1464 of yacc.c */
-#line 2100 "compilers/imcc/imcc.y"
+#line 2103 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"iseq"; }
break;
case 229:
/* Line 1464 of yacc.c */
-#line 2101 "compilers/imcc/imcc.y"
+#line 2104 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"isne"; }
break;
case 230:
/* Line 1464 of yacc.c */
-#line 2102 "compilers/imcc/imcc.y"
+#line 2105 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"isgt"; }
break;
case 231:
/* Line 1464 of yacc.c */
-#line 2103 "compilers/imcc/imcc.y"
+#line 2106 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"isge"; }
break;
case 232:
/* Line 1464 of yacc.c */
-#line 2104 "compilers/imcc/imcc.y"
+#line 2107 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"islt"; }
break;
case 233:
/* Line 1464 of yacc.c */
-#line 2105 "compilers/imcc/imcc.y"
+#line 2108 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"isle"; }
break;
case 234:
/* Line 1464 of yacc.c */
-#line 2106 "compilers/imcc/imcc.y"
+#line 2109 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"shl"; }
break;
case 235:
/* Line 1464 of yacc.c */
-#line 2107 "compilers/imcc/imcc.y"
+#line 2110 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"shr"; }
break;
case 236:
/* Line 1464 of yacc.c */
-#line 2108 "compilers/imcc/imcc.y"
+#line 2111 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"lsr"; }
break;
case 237:
/* Line 1464 of yacc.c */
-#line 2109 "compilers/imcc/imcc.y"
+#line 2112 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"and"; }
break;
case 238:
/* Line 1464 of yacc.c */
-#line 2110 "compilers/imcc/imcc.y"
+#line 2113 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"or"; }
break;
case 239:
/* Line 1464 of yacc.c */
-#line 2111 "compilers/imcc/imcc.y"
+#line 2114 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"xor"; }
break;
case 240:
/* Line 1464 of yacc.c */
-#line 2112 "compilers/imcc/imcc.y"
+#line 2115 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"band"; }
break;
case 241:
/* Line 1464 of yacc.c */
-#line 2113 "compilers/imcc/imcc.y"
+#line 2116 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"bor"; }
break;
case 242:
/* Line 1464 of yacc.c */
-#line 2114 "compilers/imcc/imcc.y"
+#line 2117 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"bxor"; }
break;
case 243:
/* Line 1464 of yacc.c */
-#line 2120 "compilers/imcc/imcc.y"
+#line 2123 "compilers/imcc/imcc.y"
{
(yyval.i) = IMCC_create_itcall_label(interp);
(yyval.i)->type &= ~ITCALL;
@@ -5101,112 +5104,112 @@
case 244:
/* Line 1464 of yacc.c */
-#line 2125 "compilers/imcc/imcc.y"
+#line 2128 "compilers/imcc/imcc.y"
{ (yyval.i) = 0; }
break;
case 245:
/* Line 1464 of yacc.c */
-#line 2132 "compilers/imcc/imcc.y"
+#line 2135 "compilers/imcc/imcc.y"
{ (yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(2) - (3)].s), 2, (yyvsp[(1) - (3)].sr), (yyvsp[(3) - (3)].sr)); }
break;
case 246:
/* Line 1464 of yacc.c */
-#line 2136 "compilers/imcc/imcc.y"
+#line 2139 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"add"; }
break;
case 247:
/* Line 1464 of yacc.c */
-#line 2137 "compilers/imcc/imcc.y"
+#line 2140 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"sub"; }
break;
case 248:
/* Line 1464 of yacc.c */
-#line 2138 "compilers/imcc/imcc.y"
+#line 2141 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"mul"; }
break;
case 249:
/* Line 1464 of yacc.c */
-#line 2139 "compilers/imcc/imcc.y"
+#line 2142 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"div"; }
break;
case 250:
/* Line 1464 of yacc.c */
-#line 2140 "compilers/imcc/imcc.y"
+#line 2143 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"mod"; }
break;
case 251:
/* Line 1464 of yacc.c */
-#line 2141 "compilers/imcc/imcc.y"
+#line 2144 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"fdiv"; }
break;
case 252:
/* Line 1464 of yacc.c */
-#line 2142 "compilers/imcc/imcc.y"
+#line 2145 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"concat"; }
break;
case 253:
/* Line 1464 of yacc.c */
-#line 2143 "compilers/imcc/imcc.y"
+#line 2146 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"band"; }
break;
case 254:
/* Line 1464 of yacc.c */
-#line 2144 "compilers/imcc/imcc.y"
+#line 2147 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"bor"; }
break;
case 255:
/* Line 1464 of yacc.c */
-#line 2145 "compilers/imcc/imcc.y"
+#line 2148 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"bxor"; }
break;
case 256:
/* Line 1464 of yacc.c */
-#line 2146 "compilers/imcc/imcc.y"
+#line 2149 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"shr"; }
break;
case 257:
/* Line 1464 of yacc.c */
-#line 2147 "compilers/imcc/imcc.y"
+#line 2150 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"shl"; }
break;
case 258:
/* Line 1464 of yacc.c */
-#line 2148 "compilers/imcc/imcc.y"
+#line 2151 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"lsr"; }
break;
case 259:
/* Line 1464 of yacc.c */
-#line 2154 "compilers/imcc/imcc.y"
+#line 2157 "compilers/imcc/imcc.y"
{
(yyval.i) = func_ins(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(1) - (4)].sr), (yyvsp[(3) - (4)].s),
IMCC_INFO(interp) -> regs,
@@ -5219,28 +5222,28 @@
case 260:
/* Line 1464 of yacc.c */
-#line 2164 "compilers/imcc/imcc.y"
+#line 2167 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 261:
/* Line 1464 of yacc.c */
-#line 2165 "compilers/imcc/imcc.y"
+#line 2168 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address_fromc(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 262:
/* Line 1464 of yacc.c */
-#line 2166 "compilers/imcc/imcc.y"
+#line 2169 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address_u(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 263:
/* Line 1464 of yacc.c */
-#line 2168 "compilers/imcc/imcc.y"
+#line 2171 "compilers/imcc/imcc.y"
{
(yyval.sr) = (yyvsp[(1) - (1)].sr);
if ((yyvsp[(1) - (1)].sr)->set != 'P')
@@ -5251,7 +5254,7 @@
case 264:
/* Line 1464 of yacc.c */
-#line 2174 "compilers/imcc/imcc.y"
+#line 2177 "compilers/imcc/imcc.y"
{
/* disallow bareword method names; SREG name constants are fine */
const char * const name = (yyvsp[(3) - (3)].sr)->name;
@@ -5270,7 +5273,7 @@
case 265:
/* Line 1464 of yacc.c */
-#line 2188 "compilers/imcc/imcc.y"
+#line 2191 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->cur_obj = (yyvsp[(1) - (3)].sr);
(yyval.sr) = mk_const(interp, (yyvsp[(3) - (3)].s), 'U');
@@ -5281,7 +5284,7 @@
case 266:
/* Line 1464 of yacc.c */
-#line 2194 "compilers/imcc/imcc.y"
+#line 2197 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->cur_obj = (yyvsp[(1) - (3)].sr);
(yyval.sr) = mk_const(interp, (yyvsp[(3) - (3)].s), 'S');
@@ -5292,14 +5295,14 @@
case 267:
/* Line 1464 of yacc.c */
-#line 2199 "compilers/imcc/imcc.y"
+#line 2202 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->cur_obj = (yyvsp[(1) - (3)].sr); (yyval.sr) = (yyvsp[(3) - (3)].sr); }
break;
case 268:
/* Line 1464 of yacc.c */
-#line 2205 "compilers/imcc/imcc.y"
+#line 2208 "compilers/imcc/imcc.y"
{
(yyval.i) = IMCC_create_itcall_label(interp);
IMCC_itcall_sub(interp, (yyvsp[(1) - (1)].sr));
@@ -5309,21 +5312,21 @@
case 269:
/* Line 1464 of yacc.c */
-#line 2209 "compilers/imcc/imcc.y"
+#line 2212 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(2) - (5)].i); }
break;
case 270:
/* Line 1464 of yacc.c */
-#line 2213 "compilers/imcc/imcc.y"
+#line 2216 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 271:
/* Line 1464 of yacc.c */
-#line 2215 "compilers/imcc/imcc.y"
+#line 2218 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
if (IMCC_INFO(interp)->adv_named_id) {
@@ -5338,7 +5341,7 @@
case 272:
/* Line 1464 of yacc.c */
-#line 2225 "compilers/imcc/imcc.y"
+#line 2228 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
if (IMCC_INFO(interp)->adv_named_id) {
@@ -5353,7 +5356,7 @@
case 273:
/* Line 1464 of yacc.c */
-#line 2235 "compilers/imcc/imcc.y"
+#line 2238 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
add_pcc_named_arg(interp, IMCC_INFO(interp)->cur_call,
@@ -5365,7 +5368,7 @@
case 274:
/* Line 1464 of yacc.c */
-#line 2242 "compilers/imcc/imcc.y"
+#line 2245 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
add_pcc_named_arg_var(interp, IMCC_INFO(interp)->cur_call, (yyvsp[(1) - (3)].sr), (yyvsp[(3) - (3)].sr));
@@ -5375,7 +5378,7 @@
case 275:
/* Line 1464 of yacc.c */
-#line 2247 "compilers/imcc/imcc.y"
+#line 2250 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
add_pcc_named_arg(interp, IMCC_INFO(interp)->cur_call,
@@ -5387,70 +5390,70 @@
case 276:
/* Line 1464 of yacc.c */
-#line 2256 "compilers/imcc/imcc.y"
+#line 2259 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(1) - (2)].sr); (yyval.sr)->type |= (yyvsp[(2) - (2)].t); }
break;
case 277:
/* Line 1464 of yacc.c */
-#line 2260 "compilers/imcc/imcc.y"
+#line 2263 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 278:
/* Line 1464 of yacc.c */
-#line 2261 "compilers/imcc/imcc.y"
+#line 2264 "compilers/imcc/imcc.y"
{ (yyval.t) = (yyvsp[(1) - (2)].t) | (yyvsp[(2) - (2)].t); }
break;
case 279:
/* Line 1464 of yacc.c */
-#line 2265 "compilers/imcc/imcc.y"
+#line 2268 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_FLAT; }
break;
case 280:
/* Line 1464 of yacc.c */
-#line 2266 "compilers/imcc/imcc.y"
+#line 2269 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_NAMED; }
break;
case 281:
/* Line 1464 of yacc.c */
-#line 2267 "compilers/imcc/imcc.y"
+#line 2270 "compilers/imcc/imcc.y"
{ (yyval.t) = VT_CALL_SIG; }
break;
case 282:
/* Line 1464 of yacc.c */
-#line 2270 "compilers/imcc/imcc.y"
+#line 2273 "compilers/imcc/imcc.y"
{ adv_named_set_u(interp, (yyvsp[(3) - (4)].s)); (yyval.t) = 0; }
break;
case 283:
/* Line 1464 of yacc.c */
-#line 2271 "compilers/imcc/imcc.y"
+#line 2274 "compilers/imcc/imcc.y"
{ adv_named_set(interp, (yyvsp[(3) - (4)].s)); (yyval.t) = 0; }
break;
case 284:
/* Line 1464 of yacc.c */
-#line 2275 "compilers/imcc/imcc.y"
+#line 2278 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(1) - (2)].sr); (yyval.sr)->type |= (yyvsp[(2) - (2)].t); }
break;
case 285:
/* Line 1464 of yacc.c */
-#line 2280 "compilers/imcc/imcc.y"
+#line 2283 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
if (IMCC_INFO(interp)->adv_named_id) {
@@ -5465,7 +5468,7 @@
case 286:
/* Line 1464 of yacc.c */
-#line 2290 "compilers/imcc/imcc.y"
+#line 2293 "compilers/imcc/imcc.y"
{
add_pcc_named_result(interp, IMCC_INFO(interp)->cur_call,
mk_const(interp, (yyvsp[(3) - (5)].s), 'S'), (yyvsp[(5) - (5)].sr));
@@ -5476,7 +5479,7 @@
case 287:
/* Line 1464 of yacc.c */
-#line 2296 "compilers/imcc/imcc.y"
+#line 2299 "compilers/imcc/imcc.y"
{
(yyval.sr) = 0;
if (IMCC_INFO(interp)->adv_named_id) {
@@ -5491,7 +5494,7 @@
case 288:
/* Line 1464 of yacc.c */
-#line 2306 "compilers/imcc/imcc.y"
+#line 2309 "compilers/imcc/imcc.y"
{
add_pcc_named_result(interp, IMCC_INFO(interp)->cur_call, mk_const(interp, (yyvsp[(1) - (3)].s), 'S'), (yyvsp[(3) - (3)].sr));
mem_sys_free((yyvsp[(1) - (3)].s));
@@ -5501,28 +5504,28 @@
case 289:
/* Line 1464 of yacc.c */
-#line 2310 "compilers/imcc/imcc.y"
+#line 2313 "compilers/imcc/imcc.y"
{ (yyval.sr) = 0; }
break;
case 290:
/* Line 1464 of yacc.c */
-#line 2314 "compilers/imcc/imcc.y"
+#line 2317 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(1) - (1)].i); }
break;
case 291:
/* Line 1464 of yacc.c */
-#line 2315 "compilers/imcc/imcc.y"
+#line 2318 "compilers/imcc/imcc.y"
{ (yyval.i) = (yyvsp[(1) - (1)].i); }
break;
case 292:
/* Line 1464 of yacc.c */
-#line 2320 "compilers/imcc/imcc.y"
+#line 2323 "compilers/imcc/imcc.y"
{
(yyval.i) =MK_I(interp, IMCC_INFO(interp)->cur_unit, inv_op((yyvsp[(3) - (6)].s)), 3, (yyvsp[(2) - (6)].sr), (yyvsp[(4) - (6)].sr), (yyvsp[(6) - (6)].sr));
}
@@ -5531,7 +5534,7 @@
case 293:
/* Line 1464 of yacc.c */
-#line 2324 "compilers/imcc/imcc.y"
+#line 2327 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "unless_null", 2, (yyvsp[(3) - (5)].sr), (yyvsp[(5) - (5)].sr));
}
@@ -5540,7 +5543,7 @@
case 294:
/* Line 1464 of yacc.c */
-#line 2328 "compilers/imcc/imcc.y"
+#line 2331 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "unless", 2, (yyvsp[(2) - (4)].sr), (yyvsp[(4) - (4)].sr));
}
@@ -5549,7 +5552,7 @@
case 295:
/* Line 1464 of yacc.c */
-#line 2335 "compilers/imcc/imcc.y"
+#line 2338 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "if", 2, (yyvsp[(2) - (4)].sr), (yyvsp[(4) - (4)].sr));
}
@@ -5558,7 +5561,7 @@
case 296:
/* Line 1464 of yacc.c */
-#line 2339 "compilers/imcc/imcc.y"
+#line 2342 "compilers/imcc/imcc.y"
{
(yyval.i) =MK_I(interp, IMCC_INFO(interp)->cur_unit, (yyvsp[(3) - (6)].s), 3, (yyvsp[(2) - (6)].sr), (yyvsp[(4) - (6)].sr), (yyvsp[(6) - (6)].sr));
}
@@ -5567,7 +5570,7 @@
case 297:
/* Line 1464 of yacc.c */
-#line 2343 "compilers/imcc/imcc.y"
+#line 2346 "compilers/imcc/imcc.y"
{
(yyval.i) = MK_I(interp, IMCC_INFO(interp)->cur_unit, "if_null", 2, (yyvsp[(3) - (5)].sr), (yyvsp[(5) - (5)].sr));
}
@@ -5576,91 +5579,91 @@
case 298:
/* Line 1464 of yacc.c */
-#line 2349 "compilers/imcc/imcc.y"
+#line 2352 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 299:
/* Line 1464 of yacc.c */
-#line 2350 "compilers/imcc/imcc.y"
+#line 2353 "compilers/imcc/imcc.y"
{ (yyval.t) = 0; }
break;
case 300:
/* Line 1464 of yacc.c */
-#line 2354 "compilers/imcc/imcc.y"
+#line 2357 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"eq"; }
break;
case 301:
/* Line 1464 of yacc.c */
-#line 2355 "compilers/imcc/imcc.y"
+#line 2358 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"ne"; }
break;
case 302:
/* Line 1464 of yacc.c */
-#line 2356 "compilers/imcc/imcc.y"
+#line 2359 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"gt"; }
break;
case 303:
/* Line 1464 of yacc.c */
-#line 2357 "compilers/imcc/imcc.y"
+#line 2360 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"ge"; }
break;
case 304:
/* Line 1464 of yacc.c */
-#line 2358 "compilers/imcc/imcc.y"
+#line 2361 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"lt"; }
break;
case 305:
/* Line 1464 of yacc.c */
-#line 2359 "compilers/imcc/imcc.y"
+#line 2362 "compilers/imcc/imcc.y"
{ (yyval.s) = (char *)"le"; }
break;
case 308:
/* Line 1464 of yacc.c */
-#line 2368 "compilers/imcc/imcc.y"
+#line 2371 "compilers/imcc/imcc.y"
{ (yyval.sr) = NULL; }
break;
case 309:
/* Line 1464 of yacc.c */
-#line 2369 "compilers/imcc/imcc.y"
+#line 2372 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(1) - (1)].sr); }
break;
case 310:
/* Line 1464 of yacc.c */
-#line 2373 "compilers/imcc/imcc.y"
+#line 2376 "compilers/imcc/imcc.y"
{ (yyval.sr) = IMCC_INFO(interp)->regs[0]; }
break;
case 312:
/* Line 1464 of yacc.c */
-#line 2378 "compilers/imcc/imcc.y"
+#line 2381 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->regs[IMCC_INFO(interp)->nargs++] = (yyvsp[(1) - (1)].sr); }
break;
case 313:
/* Line 1464 of yacc.c */
-#line 2380 "compilers/imcc/imcc.y"
+#line 2383 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp) -> regs[IMCC_INFO(interp)->nargs++] = (yyvsp[(1) - (4)].sr);
IMCC_INFO(interp) -> keyvec |= KEY_BIT(IMCC_INFO(interp)->nargs);
@@ -5672,7 +5675,7 @@
case 314:
/* Line 1464 of yacc.c */
-#line 2387 "compilers/imcc/imcc.y"
+#line 2390 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp) -> regs[IMCC_INFO(interp)->nargs++] = (yyvsp[(2) - (3)].sr);
(yyval.sr) = (yyvsp[(2) - (3)].sr);
@@ -5682,49 +5685,49 @@
case 316:
/* Line 1464 of yacc.c */
-#line 2394 "compilers/imcc/imcc.y"
+#line 2397 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address_fromc(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 317:
/* Line 1464 of yacc.c */
-#line 2395 "compilers/imcc/imcc.y"
+#line 2398 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address_u(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 318:
/* Line 1464 of yacc.c */
-#line 2399 "compilers/imcc/imcc.y"
+#line 2402 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 319:
/* Line 1464 of yacc.c */
-#line 2400 "compilers/imcc/imcc.y"
+#line 2403 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_sub_address(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 320:
/* Line 1464 of yacc.c */
-#line 2404 "compilers/imcc/imcc.y"
+#line 2407 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_label_address(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 321:
/* Line 1464 of yacc.c */
-#line 2405 "compilers/imcc/imcc.y"
+#line 2408 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_label_address(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 326:
/* Line 1464 of yacc.c */
-#line 2419 "compilers/imcc/imcc.y"
+#line 2422 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->nkeys = 0;
}
@@ -5733,7 +5736,7 @@
case 327:
/* Line 1464 of yacc.c */
-#line 2423 "compilers/imcc/imcc.y"
+#line 2426 "compilers/imcc/imcc.y"
{
(yyval.sr) = link_keys(interp,
IMCC_INFO(interp)->nkeys,
@@ -5744,7 +5747,7 @@
case 328:
/* Line 1464 of yacc.c */
-#line 2431 "compilers/imcc/imcc.y"
+#line 2434 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->nkeys = 0;
}
@@ -5753,7 +5756,7 @@
case 329:
/* Line 1464 of yacc.c */
-#line 2435 "compilers/imcc/imcc.y"
+#line 2438 "compilers/imcc/imcc.y"
{
(yyval.sr) = link_keys(interp,
IMCC_INFO(interp)->nkeys,
@@ -5764,14 +5767,14 @@
case 330:
/* Line 1464 of yacc.c */
-#line 2443 "compilers/imcc/imcc.y"
+#line 2446 "compilers/imcc/imcc.y"
{ IMCC_INFO(interp)->keys[IMCC_INFO(interp)->nkeys++] = (yyvsp[(1) - (1)].sr); }
break;
case 331:
/* Line 1464 of yacc.c */
-#line 2445 "compilers/imcc/imcc.y"
+#line 2448 "compilers/imcc/imcc.y"
{
IMCC_INFO(interp)->keys[IMCC_INFO(interp)->nkeys++] = (yyvsp[(3) - (3)].sr);
(yyval.sr) = IMCC_INFO(interp)->keys[0];
@@ -5781,7 +5784,7 @@
case 332:
/* Line 1464 of yacc.c */
-#line 2453 "compilers/imcc/imcc.y"
+#line 2456 "compilers/imcc/imcc.y"
{
(yyval.sr) = (yyvsp[(1) - (1)].sr);
}
@@ -5790,77 +5793,77 @@
case 333:
/* Line 1464 of yacc.c */
-#line 2459 "compilers/imcc/imcc.y"
+#line 2462 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_symreg(interp, (yyvsp[(1) - (1)].s), 'I'); }
break;
case 334:
/* Line 1464 of yacc.c */
-#line 2460 "compilers/imcc/imcc.y"
+#line 2463 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_symreg(interp, (yyvsp[(1) - (1)].s), 'N'); }
break;
case 335:
/* Line 1464 of yacc.c */
-#line 2461 "compilers/imcc/imcc.y"
+#line 2464 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_symreg(interp, (yyvsp[(1) - (1)].s), 'S'); }
break;
case 336:
/* Line 1464 of yacc.c */
-#line 2462 "compilers/imcc/imcc.y"
+#line 2465 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_symreg(interp, (yyvsp[(1) - (1)].s), 'P'); }
break;
case 337:
/* Line 1464 of yacc.c */
-#line 2463 "compilers/imcc/imcc.y"
+#line 2466 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_pasm_reg(interp, (yyvsp[(1) - (1)].s)); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 338:
/* Line 1464 of yacc.c */
-#line 2467 "compilers/imcc/imcc.y"
+#line 2470 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, (yyvsp[(1) - (1)].s), 'S'); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 339:
/* Line 1464 of yacc.c */
-#line 2468 "compilers/imcc/imcc.y"
+#line 2471 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, (yyvsp[(1) - (1)].s), 'U'); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 340:
/* Line 1464 of yacc.c */
-#line 2472 "compilers/imcc/imcc.y"
+#line 2475 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, (yyvsp[(1) - (1)].s), 'I'); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 341:
/* Line 1464 of yacc.c */
-#line 2473 "compilers/imcc/imcc.y"
+#line 2476 "compilers/imcc/imcc.y"
{ (yyval.sr) = mk_const(interp, (yyvsp[(1) - (1)].s), 'N'); mem_sys_free((yyvsp[(1) - (1)].s)); }
break;
case 342:
/* Line 1464 of yacc.c */
-#line 2474 "compilers/imcc/imcc.y"
+#line 2477 "compilers/imcc/imcc.y"
{ (yyval.sr) = (yyvsp[(1) - (1)].sr); }
break;
/* Line 1464 of yacc.c */
-#line 5853 "compilers/imcc/imcparser.c"
+#line 5856 "compilers/imcc/imcparser.c"
default: break;
}
YY_SYMBOL_PRINT ("-> $$ =", yyr1[yyn], &yyval, &yyloc);
@@ -6072,7 +6075,7 @@
/* Line 1684 of yacc.c */
-#line 2480 "compilers/imcc/imcc.y"
+#line 2483 "compilers/imcc/imcc.y"
/* I need this prototype somewhere... */
Modified: branches/gsoc_instrument/compilers/imcc/imcparser.h
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/imcparser.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/imcparser.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -295,7 +295,7 @@
{
/* Line 1685 of yacc.c */
-#line 1068 "compilers/imcc/imcc.y"
+#line 1071 "compilers/imcc/imcc.y"
IdList * idlist;
int t;
Modified: branches/gsoc_instrument/compilers/imcc/parser_util.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/parser_util.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/parser_util.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -47,7 +47,7 @@
/* Don't modify between HEADERIZER BEGIN / HEADERIZER END. Your changes will be lost. */
PARROT_WARN_UNUSED_RESULT
-static int change_op(PARROT_INTERP,
+static int change_op_arg_to_num(PARROT_INTERP,
ARGMOD(IMC_Unit *unit),
ARGMOD(SymReg **r),
int num,
@@ -58,15 +58,6 @@
FUNC_MODIFIES(*unit)
FUNC_MODIFIES(*r);
-PARROT_CANNOT_RETURN_NULL
-static void * imcc_compile_file(PARROT_INTERP,
- ARGIN(const char *fullname),
- ARGOUT(STRING **error_message))
- __attribute__nonnull__(1)
- __attribute__nonnull__(2)
- __attribute__nonnull__(3)
- FUNC_MODIFIES(*error_message);
-
static void imcc_destroy_macro_values(ARGMOD(void *value))
__attribute__nonnull__(1)
FUNC_MODIFIES(*value);
@@ -94,14 +85,10 @@
FUNC_MODIFIES(*unit)
FUNC_MODIFIES(*r);
-#define ASSERT_ARGS_change_op __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
+#define ASSERT_ARGS_change_op_arg_to_num __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(interp) \
, PARROT_ASSERT_ARG(unit) \
, PARROT_ASSERT_ARG(r))
-#define ASSERT_ARGS_imcc_compile_file __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
- PARROT_ASSERT_ARG(interp) \
- , PARROT_ASSERT_ARG(fullname) \
- , PARROT_ASSERT_ARG(error_message))
#define ASSERT_ARGS_imcc_destroy_macro_values __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
PARROT_ASSERT_ARG(value))
#define ASSERT_ARGS_try_rev_cmp __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
@@ -232,6 +219,9 @@
=item C<static Instruction * var_arg_ins(PARROT_INTERP, IMC_Unit *unit, const
char *name, SymReg **r, int n, int emit)>
+Create an C<Instruction> object for an instruction that takes a variable
+number of arguments.
+
=cut
*/
@@ -686,6 +676,8 @@
=item C<PMC * IMCC_compile_pir_s(PARROT_INTERP, const char *s, STRING
**error_message)>
+Compile PIR code from a C string. Returns errors in the <STRING> provided.
+
=cut
*/
@@ -705,6 +697,8 @@
=item C<PMC * IMCC_compile_pasm_s(PARROT_INTERP, const char *s, STRING
**error_message)>
+Compile PASM code from a C string. Returns errors in the <STRING> provided.
+
=cut
*/
@@ -723,6 +717,8 @@
=item C<PMC * imcc_compile_pasm_ex(PARROT_INTERP, const char *s)>
+Compile PASM code from a C string. Throws an exception upon errors.
+
=cut
*/
@@ -748,6 +744,8 @@
=item C<PMC * imcc_compile_pir_ex(PARROT_INTERP, const char *s)>
+Compile PIR code from a C string. Throws an exception upon errors.
+
=cut
*/
@@ -771,8 +769,8 @@
/*
-=item C<static void * imcc_compile_file(PARROT_INTERP, const char *fullname,
-STRING **error_message)>
+=item C<void * imcc_compile_file(PARROT_INTERP, const char *fullname, STRING
+**error_message)>
Compile a file by filename (can be either PASM or IMCC code)
@@ -780,8 +778,9 @@
*/
+PARROT_EXPORT
PARROT_CANNOT_RETURN_NULL
-static void *
+void *
imcc_compile_file(PARROT_INTERP, ARGIN(const char *fullname),
ARGOUT(STRING **error_message))
{
@@ -886,44 +885,6 @@
/*
-=item C<void * IMCC_compile_file(PARROT_INTERP, const char *s)>
-
-Note: This function is provided for backward compatibility. This
-function can go away in future.
-
-=cut
-
-*/
-
-PARROT_CANNOT_RETURN_NULL
-void *
-IMCC_compile_file(PARROT_INTERP, ARGIN(const char *s))
-{
- ASSERT_ARGS(IMCC_compile_file)
- STRING *error_message;
- return imcc_compile_file(interp, s, &error_message);
-}
-
-/*
-
-=item C<void * IMCC_compile_file_s(PARROT_INTERP, const char *s, STRING
-**error_message)>
-
-=cut
-
-*/
-
-PARROT_CANNOT_RETURN_NULL
-void *
-IMCC_compile_file_s(PARROT_INTERP, ARGIN(const char *s),
- ARGOUT(STRING **error_message))
-{
- ASSERT_ARGS(IMCC_compile_file_s)
- return imcc_compile_file(interp, s, error_message);
-}
-
-/*
-
=item C<void register_compilers(PARROT_INTERP)>
Register additional compilers with the interpreter
@@ -948,8 +909,11 @@
/*
-=item C<static int change_op(PARROT_INTERP, IMC_Unit *unit, SymReg **r, int num,
-int emit)>
+=item C<static int change_op_arg_to_num(PARROT_INTERP, IMC_Unit *unit, SymReg
+**r, int num, int emit)>
+
+Change one argument of an op to be numeric in stead of integral. Used when
+integer argument op variants don't exist.
=cut
@@ -957,9 +921,9 @@
PARROT_WARN_UNUSED_RESULT
static int
-change_op(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGMOD(SymReg **r), int num, int emit)
+change_op_arg_to_num(PARROT_INTERP, ARGMOD(IMC_Unit *unit), ARGMOD(SymReg **r), int num, int emit)
{
- ASSERT_ARGS(change_op)
+ ASSERT_ARGS(change_op_arg_to_num)
int changed = 0;
if (r[num]->type & (VTCONST|VT_CONSTP)) {
@@ -1021,44 +985,11 @@
ASSERT_ARGS(try_find_op)
char fullname[64];
int changed = 0;
- /*
- * eq_str, eq_num => eq
- * ...
- */
- if (n == 3 && r[2]->type == VTADDRESS) {
- if (STREQ(name, "eq_str") || STREQ(name, "eq_num")) {
- name = "eq";
- changed = 1;
- }
- else if (STREQ(name, "ne_str") || STREQ(name, "ne_num")) {
- name = "ne";
- changed = 1;
- }
- else if (STREQ(name, "le_str") || STREQ(name, "le_num")) {
- name = "le";
- changed = 1;
- }
- else if (STREQ(name, "lt_str") || STREQ(name, "lt_num")) {
- name = "lt";
- changed = 1;
- }
- else if (STREQ(name, "ge_str") || STREQ(name, "ge_num")) {
- name = "ge";
- changed = 1;
- }
- else if (STREQ(name, "gt_str") || STREQ(name, "gt_num")) {
- name = "gt";
- changed = 1;
- }
- }
- else if (n == 3 && (STREQ(name, "cmp_str") || STREQ(name, "cmp_num"))) {
- name = "cmp";
- changed = 1;
- }
+
if (n == 3 && r[0]->set == 'N') {
if (r[1]->set == 'I') {
const SymReg * const r1 = r[1];
- changed |= change_op(interp, unit, r, 1, emit);
+ changed |= change_op_arg_to_num(interp, unit, r, 1, emit);
/* op Nx, Iy, Iy: reuse generated temp Nz */
if (r[2]->set == 'I' && r[2]->type != VTADDRESS && r[2] == r1)
@@ -1066,20 +997,20 @@
}
if (r[2]->set == 'I' && r[2]->type != VTADDRESS)
- changed |= change_op(interp, unit, r, 2, emit);
+ changed |= change_op_arg_to_num(interp, unit, r, 2, emit);
}
/* handle eq_i_n_ic */
else if (n == 3 && r[1]->set == 'N' && r[0]->set == 'I' &&
r[2]->type == VTADDRESS) {
- changed |= change_op(interp, unit, r, 0, emit);
+ changed |= change_op_arg_to_num(interp, unit, r, 0, emit);
}
else if (n == 2 && r[0]->set == 'N' && r[1]->set == 'I') {
/*
* transcendentals e.g. acos N, I
*/
if (!STREQ(name, "fact"))
- changed = change_op(interp, unit, r, 1, emit);
+ changed = change_op_arg_to_num(interp, unit, r, 1, emit);
}
if (changed) {
@@ -1094,6 +1025,8 @@
=item C<static const char * try_rev_cmp(const char *name, SymReg **r)>
+Try to find a valid op doing the same thing by reversing comparisons.
+
=cut
*/
@@ -1163,6 +1096,8 @@
=item C<void imcc_init(PARROT_INTERP)>
+Initialize IMCC with Parrot by registering it as a PIR and PASM compiler.
+
=cut
*/
@@ -1211,6 +1146,8 @@
=item C<void imcc_destroy(PARROT_INTERP)>
+Deallocate memory associated with IMCC.
+
=cut
*/
Modified: branches/gsoc_instrument/compilers/imcc/pbc.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/pbc.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/pbc.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -736,6 +736,8 @@
=item C<static subs_t * find_sub_by_subid(PARROT_INTERP, const char *lookup,
const subs_t *sym, int *pc)>
+Find the first sub in the current code segment with a given subid.
+
=cut
*/
@@ -985,6 +987,9 @@
=item C<STRING * IMCC_string_from__STRINGC(PARROT_INTERP, char *buf)>
+Creates a Parrot C<STRING> from a string constant found in PIR or PASM. This
+includes cases where charset and/or encoding are specified.
+
=cut
*/
Modified: branches/gsoc_instrument/compilers/imcc/pcc.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/pcc.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/pcc.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -526,6 +526,9 @@
=item C<static int pcc_reg_mov(PARROT_INTERP, unsigned char d, unsigned char s,
void *vinfo)>
+Callback for C<Parrot_register_move>. Inserts move instructions in stead of
+actually moving the registers.
+
=cut
*/
@@ -598,6 +601,8 @@
=item C<static Instruction * move_regs(PARROT_INTERP, IMC_Unit *unit,
Instruction *ins, size_t n, SymReg **dest, SymReg **src)>
+Insert instructions for moving C<n> registers from C<src> to C<dest>.
+
=cut
*/
@@ -720,6 +725,9 @@
=item C<static void insert_tail_call(PARROT_INTERP, IMC_Unit *unit, Instruction
*ins, SymReg *sub, SymReg *meth)>
+Creates and inserts an appropriate tailcall instruction for either a sub call
+or a method call.
+
=cut
*/
Modified: branches/gsoc_instrument/compilers/imcc/reg_alloc.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/reg_alloc.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/reg_alloc.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -229,6 +229,8 @@
=item C<void free_reglist(IMC_Unit *unit)>
+Frees the register list associated with a compilation unit.
+
=cut
*/
@@ -405,6 +407,8 @@
=item C<static void sort_reglist(IMC_Unit *unit)>
+Sort a compilation unit's register list (by line number of first appearance).
+
=cut
*/
@@ -529,6 +533,8 @@
=item C<static void compute_one_du_chain(SymReg *r, IMC_Unit *unit)>
+Compute the DU-chain for one register within the compilation unit.
+
=cut
*/
@@ -691,6 +697,9 @@
=item C<static void vanilla_reg_alloc(PARROT_INTERP, IMC_Unit *unit)>
+Vanilla register allocator - assign every virtual register to an actual
+register.
+
=cut
*/
@@ -745,6 +754,9 @@
=item C<static void allocate_lexicals(PARROT_INTERP, IMC_Unit *unit)>
+Allocate registers for lexical variables. These must have unique registers
+because they are accessible through the LexPad.
+
=cut
*/
Modified: branches/gsoc_instrument/compilers/imcc/symreg.c
==============================================================================
--- branches/gsoc_instrument/compilers/imcc/symreg.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/imcc/symreg.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -824,6 +824,9 @@
=item C<static int int_overflows(const SymReg *r)>
+Determine whether an integer constant would overflow an C<INTVAL>
+register.
+
=cut
*/
Modified: branches/gsoc_instrument/compilers/opsc/ops2c.nqp
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/ops2c.nqp Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/opsc/ops2c.nqp Sun Jun 6 16:09:33 2010 (r47429)
@@ -38,11 +38,6 @@
$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');
@@ -72,15 +67,20 @@
@files.push( $opts<dynamic>);
}
elsif (+$opts == 0 || $opts<help>) {
- say("This is ops2c, part of Parrot build infrastructure.
-usage:
-ops2c --core
-ops2c --dynamic path/to/dynops.ops");
+ say("This is ops2c, part of the Parrot VM's build infrastructure.
+normal options:
+ -c --core generate the C code for core ops (must be run from within Parrot's build directory)
+ -d --dynamic <file.ops> generate the C code for the dynamic ops in a single .ops file
+ -q --quiet don't report any non-error messages
+ -h --help print this usage information
+ -n --no-lines do not print #line directives in generated C code (line numbers are not currently supported)
+
+#debugging options:
+ -g --debug perform all processing but do not write to any files
+");
pir::exit(0);
}
-my $force_regen := ?$opts<force-regen>;
-
if ($opts<no-lines>) {
#TODO: figure out how to generate line numbers
# $emit_lines is currently ignored
Modified: branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/Emitter.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -369,7 +369,8 @@
* This file is generated automatically from '{self<file>}' (and possibly other
* .ops files). by {self<script>}.
*
- * Any changes made here will be lost!
+ * Any changes made here will be lost! To regenerate this file after making
+ * changes to any ops, use the bootstap-ops makefile target.
*
*/
|);
Modified: branches/gsoc_instrument/compilers/opsc/src/Ops/Trans/C.pm
==============================================================================
--- branches/gsoc_instrument/compilers/opsc/src/Ops/Trans/C.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/opsc/src/Ops/Trans/C.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -143,7 +143,7 @@
** Op Function Table:
*/
-static op_func{self.suffix}_t {self.op_func($emitter)}[{self<num_entries>}] = | ~ '{'
+static op_func{self.suffix}_t {self.op_func($emitter)}[{self<num_entries>}] = | ~ '{' ~ "\n"
);
for self<op_func_table> {
Modified: branches/gsoc_instrument/compilers/pct/src/PAST/Compiler.pir
==============================================================================
--- branches/gsoc_instrument/compilers/pct/src/PAST/Compiler.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/pct/src/PAST/Compiler.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -126,54 +126,29 @@
valflags['String'] = 's~*:e'
valflags['Integer'] = 'i+*:'
valflags['Float'] = 'n+*:'
+ valflags['!cconst'] = 'i+*:c'
+ valflags['!except_severity'] = 'i+*:c'
+ valflags['!except_types'] = 'i+*:c'
+ valflags['!iterator'] = 'i+*:c'
+ valflags['!socket'] = 'i+*:c'
set_global '%valflags', valflags
## %!controltypes holds the list of exception types for each
## type of exception handler we support
.local pmc controltypes
controltypes = new 'Hash'
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_RETURN)
- $P0.'push'(.CONTROL_OK)
- $P0.'push'(.CONTROL_BREAK)
- $P0.'push'(.CONTROL_CONTINUE)
- #$P0.'push'(.CONTROL_ERROR)
- $P0.'push'(.CONTROL_TAKE)
- $P0.'push'(.CONTROL_LEAVE)
- $P0.'push'(.CONTROL_LOOP_NEXT)
- $P0.'push'(.CONTROL_LOOP_LAST)
- $P0.'push'(.CONTROL_LOOP_REDO)
- controltypes['CONTROL'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_RETURN)
- controltypes['RETURN'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_OK)
- controltypes['OK'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_BREAK)
- controltypes['BREAK'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_CONTINUE)
- controltypes['CONTINUE'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_ERROR)
- controltypes['ERROR'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_TAKE)
- controltypes['GATHER'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_LEAVE)
- controltypes['LEAVE'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_LOOP_NEXT)
- controltypes['NEXT'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_LOOP_LAST)
- controltypes['LAST'] = $P0
- $P0 = new 'ResizablePMCArray'
- $P0.'push'(.CONTROL_LOOP_REDO)
- controltypes['REDO'] = $P0
+ controltypes['CONTROL'] = '.CONTROL_RETURN, .CONTROL_OK, .CONTROL_BREAK, .CONTROL_CONTINUE, .CONTROL_TAKE, .CONTROL_LEAVE, .CONTROL_EXIT, .CONTROL_LOOP_NEXT, .CONTROL_LOOP_LAST, .CONTROL_LOOP_REDO'
+ controltypes['RETURN'] = '.CONTROL_RETURN'
+ controltypes['OK'] = '.CONTROL_OK'
+ controltypes['BREAK'] = '.CONTROL_BREAK'
+ controltypes['CONTINUE'] = '.CONTROL_CONTINUE'
+ controltypes['ERROR'] = '.CONTROL_ERROR'
+ controltypes['GATHER'] = '.CONTROL_TAKE'
+ controltypes['LEAVE'] = '.CONTROL_LEAVE'
+ controltypes['EXIT'] = '.CONTROL_EXIT'
+ controltypes['NEXT'] = '.CONTROL_NEXT'
+ controltypes['LAST'] = '.CONTROL_LAST'
+ controltypes['REDO'] = '.CONTROL_REDO'
set_global '%!controltypes', controltypes
$P0 = box 11
@@ -206,9 +181,11 @@
blockpast = new 'ResizablePMCArray'
set_global '@?BLOCK', blockpast
have_blockpast:
- null $P0
- set_global '$?SUB', $P0
- .tailcall self.'as_post'(past, 'rtype'=>'v')
+ .lex '@*BLOCKPAST', blockpast
+ null $P99
+ .lex '$*SUB', $P99
+ $P1 = self.'as_post'(past, 'rtype'=>'v')
+ .return ($P1)
.end
=item escape(str)
@@ -649,7 +626,7 @@
.local pmc eh
eh = node.'handlers'()
unless eh, no_eh
- ops = self.'wrap_handlers'(ops,eh,'rtype'=>rtype)
+ ops = self.'wrap_handlers'(ops, eh, 'rtype'=>rtype)
no_eh:
.return (ops)
.end
@@ -723,28 +700,34 @@
unless it, handler_loop_done
node = shift it
- .local pmc ehpir, types, label
+ .local pmc ehpir, label, controltypes, subpost
.local string ehreg, type
$P0 = get_hll_global ['POST'], 'Label'
$S0 = self.'unique'('control_')
label = $P0.'new'('result'=>$S0)
+ subpost = find_dynamic_lex '$*SUB'
+
ehreg = self.'uniquereg'('P')
ops.'push_pirop'('new', ehreg, "'ExceptionHandler'")
ops.'push_pirop'('set_addr', ehreg, label)
- $P0 = get_global '%!controltypes'
+ controltypes = get_global '%!controltypes'
type = node.'handle_types'()
- unless type, no_handle_types
- types = $P0[type]
- unless type, no_handle_types
- ops.'push_pirop'('callmethod', '"handle_types"', ehreg, types :flat)
- no_handle_types:
+ unless type, handle_types_done
+ type = controltypes[type]
+ unless type, handle_types_done
+ $P0 = split ',', type
+ ops.'push_pirop'('callmethod', '"handle_types"', ehreg, $P0 :flat)
+ subpost.'add_directive'('.include "except_types.pasm"')
+ handle_types_done:
type = node.'handle_types_except'()
- unless type, no_handle_types_except
- types = $P0[type]
- unless type, no_handle_types_except
- ops.'push_pirop'('callmethod', '"handle_types_except"', ehreg, types :flat)
- no_handle_types_except:
+ unless type, handle_types_except_done
+ type = controltypes[type]
+ unless type, handle_types_except_done
+ $P0 = split ',', type
+ ops.'push_pirop'('callmethod', '"handle_types_except"', ehreg, $P0 :flat)
+ subpost.'add_directive'('.include "except_types.pasm"')
+ handle_types_except_done:
ops.'push_pirop'('push_eh', ehreg)
# Add one pop_eh for every handler we push_eh
@@ -785,9 +768,9 @@
.param pmc node
.param pmc options :slurpy :named
- ## add current block node to @?BLOCK
+ ## add current block node to @*BLOCKPAST
.local pmc blockpast
- blockpast = get_global '@?BLOCK'
+ blockpast = find_dynamic_lex '@*BLOCKPAST'
unshift blockpast, node
.local string name, pirflags, blocktype
@@ -853,8 +836,8 @@
## determine the outer POST::Sub for the new one
.local pmc outerpost
- outerpost = get_global '$?SUB'
- set_global '$?SUB', bpost
+ outerpost = find_dynamic_lex '$*SUB'
+ .lex '$*SUB', bpost
.local int islexical
islexical = node.'lexical'()
@@ -912,8 +895,9 @@
$S0 = self.'uniquereg'('P')
bpost.'push_pirop'('new', $S0, "'ExceptionHandler'")
bpost.'push_pirop'('set_addr', $S0, ctrllabel)
- bpost.'push_pirop'('callmethod', '"handle_types"', $S0, .CONTROL_RETURN)
+ bpost.'push_pirop'('callmethod', '"handle_types"', $S0, '.CONTROL_RETURN')
bpost.'push_pirop'('push_eh', $S0)
+ bpost.'add_directive'('.include "except_types.pasm"')
children_past:
## all children but last are void context, last returns anything
@@ -930,7 +914,7 @@
unless eh, no_eh
$S0 = options['rtype']
retval = ops[-1]
- ops = self.'wrap_handlers'(ops,eh,'rtype'=>$S0)
+ ops = self.'wrap_handlers'(ops, eh, 'rtype'=>$S0)
goto had_eh
no_eh:
## result of last child is return from block
@@ -985,7 +969,6 @@
loadinit_done:
## restore previous outer scope and symtable
- set_global '$?SUB', outerpost
setattribute self, '%!symtable', outersym
## return block or block result
@@ -1026,7 +1009,7 @@
bpost.'push_pirop'('call', blockreg, arglist :flat, 'result'=>result)
block_done:
- ## remove current block from @?BLOCK
+ ## remove current block from @*BLOCKPAST
$P99 = shift blockpast
.return (bpost)
.end
@@ -1372,11 +1355,14 @@
$P0 = get_hll_global ['POST'], 'Ops'
ops = $P0.'new'()
+ $P0 = find_dynamic_lex '$*SUB'
+ $P0.'add_directive'('.include "except_types.pasm"')
+
.local string handreg
handreg = self.'uniquereg'('P')
ops.'push_pirop'('new', handreg, "'ExceptionHandler'")
ops.'push_pirop'('set_addr', handreg, handlabel)
- ops.'push_pirop'('callmethod', '"handle_types"', handreg, .CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ ops.'push_pirop'('callmethod', '"handle_types"', handreg, '.CONTROL_LOOP_NEXT', '.CONTROL_LOOP_REDO', '.CONTROL_LOOP_LAST')
ops.'push_pirop'('push_eh', handreg)
unless bodyfirst goto bodyfirst_done
@@ -1404,8 +1390,8 @@
ops.'push_pirop'('.get_results (exception)')
$S0 = self.'uniquereg'('P')
ops.'push_pirop'('getattribute', $S0, 'exception', "'type'")
- ops.'push_pirop'('eq', $S0, .CONTROL_LOOP_NEXT, nextlabel)
- ops.'push_pirop'('eq', $S0, .CONTROL_LOOP_REDO, redolabel)
+ ops.'push_pirop'('eq', $S0, '.CONTROL_LOOP_NEXT', nextlabel)
+ ops.'push_pirop'('eq', $S0, '.CONTROL_LOOP_REDO', redolabel)
ops.'push'(donelabel)
ops.'push_pirop'('pop_eh')
.return (ops)
@@ -1643,7 +1629,9 @@
exreg = self.'uniquereg'('P')
extype = concat exreg, "['type']"
ops.'push_pirop'('new', exreg, '"Exception"')
- ops.'push_pirop'('set', extype, .CONTROL_RETURN)
+ ops.'push_pirop'('set', extype, '.CONTROL_RETURN')
+ $P0 = find_dynamic_lex '$*SUB'
+ $P0.'add_directive'('.include "except_types.pasm"')
.local pmc cpast, cpost
cpast = node[0]
@@ -2038,7 +2026,7 @@
.local string blockname
blockname = ''
.local pmc it
- $P0 = get_global '@?BLOCK'
+ $P0 = find_dynamic_lex '@*BLOCKPAST'
it = iter $P0
scope_error_block_loop:
unless it goto scope_error_2
@@ -2108,7 +2096,7 @@
## get the current sub
.local pmc subpost
- subpost = get_global '$?SUB'
+ subpost = find_dynamic_lex '$*SUB'
## determine lexical, register, and parameter names
.local string named, pname, has_pname
@@ -2248,7 +2236,7 @@
# treat it as that type.
.local string name
name = node.'name'()
- $P0 = get_global '@?BLOCK'
+ $P0 = find_dynamic_lex '@*BLOCKPAST'
$P0 = $P0[0]
$P0 = $P0.'symtable'()
unless $P0 goto contextual
@@ -2473,6 +2461,22 @@
value = self.'escape'(value)
escape_done:
+ # See if this is a pasm constant type
+ $I0 = index valflags, 'c'
+ if $I0 < 0 goto const_done
+ # Add the directive for the appropriate .include statement.
+ $S0 = returns
+ $S0 = replace $S0, 0, 1, '.include "'
+ $S0 = concat $S0, '.pasm"'
+ $P0 = find_dynamic_lex '$*SUB'
+ $P0.'add_directive'($S0)
+ # Add a leading dot to the value if one isn't already there.
+ $S0 = substr value, 0, 1
+ if $S0 == '.' goto const_done
+ $P0 = box '.'
+ value = concat $P0, value
+ const_done:
+
.local string rtype
rtype = options['rtype']
$I0 = index valflags, rtype
Modified: branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir
==============================================================================
--- branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/pct/src/PCT/HLLCompiler.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -25,6 +25,7 @@
.namespace [ 'PCT';'HLLCompiler' ]
.include 'cclass.pasm'
+.include 'stdio.pasm'
.sub 'init' :vtable :method
load_bytecode 'config.pir'
@@ -330,7 +331,7 @@
$N1 = time
$N2 = $N1 - $N0
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("Stage '")
$P1.'print'(stagename)
$P1.'print'("': ")
@@ -614,13 +615,13 @@
# on startup show the welcome message
$P0 = self.'commandline_banner'()
$P1 = getinterp
- $P2 = $P1.'stdhandle'(2)
+ $P2 = $P1.'stdhandle'(.PIO_STDERR_FILENO)
$P2.'print'($P0)
.local pmc stdin
.local int has_readline
$P0 = getinterp
- stdin = $P0.'stdhandle'(0)
+ stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
encoding = adverbs['encoding']
if encoding == 'fixed_8' goto interactive_loop
unless encoding goto interactive_loop
@@ -804,6 +805,7 @@
=cut
+.include 'except_severity.pasm'
.sub 'command_line' :method
.param pmc args
.param pmc adverbs :slurpy :named
@@ -849,11 +851,15 @@
$I0 = adverbs['version']
if $I0 goto version
+ .local int can_backtrace
+ can_backtrace = can self, 'backtrace'
+ unless can_backtrace goto no_push_eh
+ push_eh uncaught_exception
+ no_push_eh:
$S0 = adverbs['e']
$I0 = exists adverbs['e']
if $I0 goto eval_line
-
.local pmc result
result = box ''
unless args goto interactive
@@ -872,6 +878,9 @@
result = self.'eval'($S0, '-e', args :flat, adverbs :flat :named)
save_output:
+ unless can_backtrace goto no_pop_eh
+ pop_eh
+ no_pop_eh:
if null result goto end
$I0 = defined result
unless $I0 goto end
@@ -882,7 +891,7 @@
.local string output
.local pmc ofh
$P0 = getinterp
- ofh = $P0.'stdhandle'(1)
+ ofh = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
output = adverbs['output']
if output == '' goto save_output_1
if output == '-' goto save_output_1
@@ -903,6 +912,29 @@
version:
self.'version'()
goto end
+
+ # If we get an uncaught exception in the program and the HLL provides
+ # a backtrace method, we end up here. We pass it the exception object
+ # so it can render a backtrace, unless the severity is exit or warning
+ # in which case it needs special handling.
+ uncaught_exception:
+ .get_results ($P0)
+ pop_eh
+ $P1 = getinterp
+ $P1 = $P1.'stdhandle'(.PIO_STDERR_FILENO)
+ $I0 = $P0['severity']
+ if $I0 == .EXCEPT_EXIT goto do_exit
+ $S0 = self.'backtrace'($P0)
+ print $P1, $S0
+ if $I0 <= .EXCEPT_WARNING goto do_warning
+ exit 1
+ do_exit:
+ $I0 = $P0['exit_code']
+ exit $I0
+ do_warning:
+ $P0 = $P0["resume"]
+ push_eh uncaught_exception # Otherwise we get errors about no handler to delete
+ $P0()
.end
Modified: branches/gsoc_instrument/compilers/pct/src/POST/Compiler.pir
==============================================================================
--- branches/gsoc_instrument/compilers/pct/src/POST/Compiler.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/pct/src/POST/Compiler.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -368,6 +368,11 @@
subpir.'append_format'("\n.HLL %0\n", $P0)
subpir_ns:
subpir.'append_format'("\n.namespace %0\n", nskey)
+ subpir_directives:
+ $S0 = node['directives']
+ unless $S0 goto subpir_decl
+ subpir.'append_format'("%0", $S0)
+ subpir_decl:
$S0 = self.'escape'(name)
subpir.'append_format'(".sub %0 %1\n", $S0, pirflags)
.local pmc paramlist
Modified: branches/gsoc_instrument/compilers/pct/src/POST/Node.pir
==============================================================================
--- branches/gsoc_instrument/compilers/pct/src/POST/Node.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/pct/src/POST/Node.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -291,6 +291,21 @@
.return ()
.end
+
+.sub 'add_directive' :method
+ .param string line
+ .local string dlist
+ dlist = self['directives']
+ $I0 = index dlist, line
+ unless $I0 < 0 goto done
+ dlist = concat dlist, line
+ dlist = concat dlist, "\n"
+ self['directives'] = dlist
+ done:
+ .return ()
+.end
+
+
=back
=head1 AUTHOR
Modified: branches/gsoc_instrument/compilers/tge/tgc.pir
==============================================================================
--- branches/gsoc_instrument/compilers/tge/tgc.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/compilers/tge/tgc.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -25,6 +25,8 @@
=cut
+.include 'stdio.pasm'
+
.sub "main" :main
.param pmc args
.local string prog
@@ -65,7 +67,7 @@
OUTPUT_STDOUT:
$P0 = getinterp
- outfh = $P0.'stdhandle'(1)
+ outfh = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
goto OUTPUT_DONE
OUTPUT_FILE:
@@ -103,7 +105,7 @@
USAGE:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("Usage: ")
$P1.'print'(prog)
$P1.'print'(" [OPTIONS] FILE\n")
@@ -116,13 +118,13 @@
ERR_TOO_FEW_ARGS:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("Error: too few arguments\n\n")
goto USAGE
ERR_NO_INFILE:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("Error: file not found: ")
$P1.'print'(infile)
$P1.'print'("\n\n")
@@ -130,7 +132,7 @@
ERR_NO_OUTFILE:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("Error: file not found: ")
$P1.'print'(outfile)
$P1.'print'("\n\n")
Modified: branches/gsoc_instrument/config/auto/arch.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/arch.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/arch.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -42,8 +42,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
- $verbose and print "\n";
+ $conf->debug("\n");
my $archname = $conf->data->get('archname');
# This was added to convert IA64.ARCHREV_0 on HP-UX, TT #645, TT #653
@@ -51,10 +50,10 @@
my ( $cpuarch, $osname ) = split( /-/, $archname );
- if ($verbose) {
- print "determining operating system and cpu architecture\n";
- print "archname: $archname\n";
- }
+ $conf->debug(
+ "determining operating system and cpu architecture\n",
+ "archname: $archname\n")
+ ;
if ( !defined $osname ) {
( $osname, $cpuarch ) = ( $cpuarch, q{} );
@@ -127,12 +126,11 @@
sub _report_verbose {
my ($conf) = @_;
- my $verbose = $conf->options->get( 'verbose' );
- if ( $verbose ) {
- print "osname: ", $conf->data->get('osname'), "\n";
- print "cpuarch: ", $conf->data->get('cpuarch'), "\n";
- print "platform: ", $conf->data->get('platform'), "\n";
- }
+ $conf->debug(
+ "osname: ", $conf->data->get('osname'), "\n",
+ "cpuarch: ", $conf->data->get('cpuarch'), "\n",
+ "platform: ", $conf->data->get('platform'), "\n",
+ );
return 1;
}
Modified: branches/gsoc_instrument/config/auto/attributes.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/attributes.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/attributes.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -49,21 +49,20 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
- print "\n" if $verbose;
+ $conf->debug("\n");
for my $maybe_attr (@potential_attributes) {
- $self->try_attr( $conf, $maybe_attr, $verbose );
+ $self->try_attr( $conf, $maybe_attr);
}
return 1;
}
sub try_attr {
- my ( $self, $conf, $attr, $verbose ) = @_;
+ my ( $self, $conf, $attr ) = @_;
my $output_file = 'test.cco';
- $verbose and print "trying attribute '$attr'\n";
+ $conf->debug("trying attribute '$attr'\n");
my $cc = $conf->option_or_data('cc');
$conf->cc_gen('config/auto/attributes/test_c.in');
@@ -79,29 +78,29 @@
my $tryflags = "$ccflags -D$attr $disable_warnings";
my $command_line = Parrot::Configure::Utils::_build_compile_command( $cc, $tryflags );
- $verbose and print " ", $command_line, "\n";
+ $conf->debug(" ", $command_line, "\n");
# Don't use cc_build, because failure is expected.
my $exit_code =
Parrot::Configure::Utils::_run_command( $command_line, $output_file, $output_file );
- $verbose and print " exit code: $exit_code\n";
+ $conf->debug(" exit code: $exit_code\n");
$conf->cc_clean();
$conf->data->set( $attr => !$exit_code | 0 );
if ($exit_code) {
unlink $output_file or die "Unable to unlink $output_file: $!";
- $verbose and print "Rejecting bogus attribute: $attr\n";
+ $conf->debug("Rejecting bogus attribute: $attr\n");
return;
}
my $output = Parrot::BuildUtil::slurp_file($output_file);
- $verbose and print " output: $output\n";
+ $conf->debug(" output: $output\n");
if ( $output !~ /error|warning/i ) {
$conf->data->set( ccflags => $tryflags );
my $ccflags = $conf->data->get("ccflags");
- $verbose and print " ccflags: $ccflags\n";
+ $conf->debug(" ccflags: $ccflags\n");
}
unlink $output_file or die "Unable to unlink $output_file: $!";
Modified: branches/gsoc_instrument/config/auto/cpu.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/cpu.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/cpu.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -32,20 +32,18 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
-
$conf->data->add( ' ', TEMP_atomic_o => '' ); # assure a default
my $hints = "auto::cpu::" . $conf->data->get('cpuarch') . "::auto";
- print "\t(cpu hints = '$hints') " if $verbose;
+ $conf->debug("\t(cpu hints = '$hints') ");
eval "use $hints";
unless ($@) {
$hints->runstep( $conf, @_ );
}
else {
- print "(no cpu specific hints)" if $verbose;
+ $conf->debug("(no cpu specific hints)");
}
return 1;
Modified: branches/gsoc_instrument/config/auto/cpu/i386/auto.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/cpu/i386/auto.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/cpu/i386/auto.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -22,21 +22,19 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
-
my @files = qw( test_gcc_cmpxchg_c.in );
for my $f (@files) {
- print " $f " if $verbose;
+ $conf->debug(" $f ");
my ($suffix) = $f =~ /test_(\w+)/;
my $path_f = "config/auto/cpu/i386/$f";
$conf->cc_gen($path_f);
eval { $conf->cc_build("-DPARROT_CONFIG_TEST") };
if ($@) {
- print " $@ " if $verbose;
+ $conf->debug(" $@ ");
}
else {
if ( $conf->cc_run() =~ /ok/ ) {
- _handle_cc_run_ok($conf, $suffix, $path_f, $verbose);
+ _handle_cc_run_ok($conf, $suffix, $path_f);
}
}
$conf->cc_clean();
@@ -45,12 +43,12 @@
}
sub _handle_cc_run_ok {
- my ($conf, $suffix, $path_f, $verbose) = @_;
+ my ($conf, $suffix, $path_f) = @_;
$conf->data->set(
"i386_has_$suffix" => '1',
"HAS_i386_$suffix" => '1',
);
- print " (\U$suffix) " if ($verbose);
+ $conf->debug(" (\U$suffix) ");
$conf->data->add( ' ', TEMP_generated => $path_f );
}
Modified: branches/gsoc_instrument/config/auto/cpu/ppc/auto.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/cpu/ppc/auto.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/cpu/ppc/auto.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,17 +19,15 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
-
my @files = qw( test_gcc_cmpset_c.in );
for my $f (@files) {
- print " $f " if $verbose;
+ $conf->debug(" $f ");
my ($suffix) = $f =~ /test_(\w+)/;
$f = "config/auto/cpu/ppc/$f";
$conf->cc_gen($f);
eval { $conf->cc_build("-DPARROT_CONFIG_TEST") };
if ($@) {
- print " $@ " if $verbose;
+ $conf->debug(" $@ ");
}
else {
if ( $conf->cc_run() =~ /ok/ ) {
@@ -37,7 +35,7 @@
"ppc_has_$suffix" => '1',
"HAS_PPC_$suffix" => '1',
);
- print " (\U$suffix) " if ($verbose);
+ $conf->debug(" (\U$suffix) ");
$conf->data->add( ' ', TEMP_generated => $f );
}
}
Modified: branches/gsoc_instrument/config/auto/cpu/sun4/auto.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/cpu/sun4/auto.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/cpu/sun4/auto.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -40,19 +40,17 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
-
build_asm( $self, $conf );
my @files = qw( test_atomic_c.in );
for my $f (@files) {
- print " $f " if $verbose;
+ $conf->debug(" $f ");
my ($suffix) = $f =~ /test_(\w+)/;
$f = "config/auto/cpu/sun4/$f";
$conf->cc_gen($f);
eval { $conf->cc_build("-DPARROT_CONFIG_TEST", "sparcasm" . $conf->data->get('o') ) };
if ($@) {
- print " $@ " if $verbose;
+ $conf->debug(" $@ ");
}
else {
if ( $conf->cc_run() =~ /ok/ ) {
@@ -60,7 +58,7 @@
"sparc_has_$suffix" => '1',
"HAS_SPARC_$suffix" => '1',
);
- print " (\U$suffix) " if ($verbose);
+ $conf->debug(" (\U$suffix) ");
$conf->data->add( ' ', TEMP_atomic_o => 'src/atomic/sparc_v9.o' );
}
}
Modified: branches/gsoc_instrument/config/auto/cpu/x86_64/auto.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/cpu/x86_64/auto.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/cpu/x86_64/auto.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -20,8 +20,6 @@
my ( $self, $conf ) = @_;
# x86_64 is recently new and has cmpxchg
-
- my $verbose = $conf->options->get('verbose');
my $gcc = $conf->data->get('gccversion');
# when running on gcc, we just define the config item
Modified: branches/gsoc_instrument/config/auto/ctags.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/ctags.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/ctags.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -40,11 +40,10 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get( 'verbose' );
- print "\n" if $verbose;
+ $conf->debug("\n");
my ($ctags, $has_ctags) =
- _probe_for_ctags($conf, [ @ctags_variations ], $verbose);
+ _probe_for_ctags($conf, [ @ctags_variations ]);
$self->_evaluate_ctags($conf, $ctags, $has_ctags);
return 1;
}
@@ -52,12 +51,11 @@
sub _probe_for_ctags {
my $conf = shift;
my $variations_ref = shift;
- my $verbose = shift;
my ($ctags, $has_ctags);
while (defined (my $t = shift(@$variations_ref))) {
my $output = capture_output( $t, '--version' ) || '';
- print $output, "\n" if $verbose;
- $has_ctags = _probe_for_ctags_output($output, $verbose);
+ $conf->debug("$output\n");
+ $has_ctags = _probe_for_ctags_output($conf, $output);
$ctags = $t if $has_ctags;
last if $has_ctags;
}
@@ -65,9 +63,9 @@
}
sub _probe_for_ctags_output {
- my ($output, $verbose) = @_;
+ my ($conf, $output) = @_;
my $has_ctags = ( $output =~ m/Exuberant Ctags/ ) ? 1 : 0;
- print $has_ctags, "\n" if $verbose;
+ $conf->debug("$has_ctags\n");
return $has_ctags;
}
Modified: branches/gsoc_instrument/config/auto/env.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/env.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/env.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -57,26 +57,25 @@
sub _evaluate_env {
my ($self, $conf, $setenv, $unsetenv) = @_;
- my $verbose = $conf->options->get('verbose');
$conf->data->set(
setenv => $setenv,
unsetenv => $unsetenv
);
if ( $setenv && $unsetenv ) {
- print " (both) " if $verbose;
+ $conf->debug(" (both) ");
$self->set_result('both');
}
elsif ($setenv) {
- print " (setenv) " if $verbose;
+ $conf->debug(" (setenv) ");
$self->set_result('setenv');
}
elsif ($unsetenv) {
- print " (unsetenv) " if $verbose;
+ $conf->debug(" (unsetenv) ");
$self->set_result('unsetenv');
}
else {
- print " (no) " if $verbose;
+ $conf->debug(" (no) ");
$self->set_result('no');
}
}
Deleted: branches/gsoc_instrument/config/auto/extra_nci_thunks.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/extra_nci_thunks.pm Sun Jun 6 16:09:33 2010 (r47428)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,54 +0,0 @@
-# Copyright (C) 2010, Parrot Foundation.
-# $Id$
-
-=head1 NAME
-
-config/auto/extra_nci_thunks - Static NCI Frame Building
-
-=head1 DESCRIPTION
-
-If C<--without-extra-nci-thunks> is specified, builds parrot without NCI thunks
-not required by core.
-
-=cut
-
-package auto::extra_nci_thunks;
-
-use strict;
-use warnings;
-
-use base 'Parrot::Configure::Step';
-
-sub _init {
- my $self = shift;
- return {
- description => 'Determine whether to build extra NCI thunks',
- };
-}
-
-sub runstep {
- my ($self, $conf) = @_;
- my $without = $conf->options->get( 'without-extra-nci-thunks' );
-
- if ($without) {
- $conf->data->set( has_extra_nci_thunks => 0 );
- $conf->data->set( HAS_EXTRA_NCI_THUNKS => 0 );
- $self->set_result( 'no' );
- }
- else {
- $conf->data->set( has_extra_nci_thunks => 1 );
- $conf->data->set( HAS_EXTRA_NCI_THUNKS => 1 );
- $self->set_result( 'yes' );
- }
-
- return 1;
-}
-
-1;
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Modified: branches/gsoc_instrument/config/auto/gc.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/gc.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/gc.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -50,7 +50,7 @@
TEMP_gc_o => "src/gc/alloc_resources\$(O)",
gc_flag => '',
);
- print(" ($gc) ") if $conf->options->get('verbose');
+ $conf->debug(" ($gc) ");
return 1;
}
Modified: branches/gsoc_instrument/config/auto/gcc.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/gcc.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/gcc.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -62,9 +62,8 @@
my $minor = $gnucref->{__GNUC_MINOR__};
my $intel = $gnucref->{__INTEL_COMPILER};
- my $verbose = $conf->options->get('verbose');
if ( defined $intel || !defined $major ) {
- print " (no) " if $verbose;
+ $conf->debug(" (no) ");
$self->set_result('no');
$conf->data->set( gccversion => undef );
return 1;
@@ -76,7 +75,7 @@
undef $minor; # Don't use it
}
if ( ! defined $major ) {
- print " (no) " if $verbose;
+ $conf->debug(" (no) ");
$self->set_result('no');
$conf->data->set( gccversion => undef );
return 1;
Modified: branches/gsoc_instrument/config/auto/gettext.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/gettext.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/gettext.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -37,12 +37,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $without ) = $conf->options->get(
- qw|
- verbose
- without-gettext
- |
- );
+ my $without = $conf->options->get( qw| without-gettext | );
if ($without) {
$conf->data->set( has_gettext => 0 );
@@ -66,10 +61,10 @@
my $has_gettext = 0;
if ( !$@ ) {
my $test = $conf->cc_run();
- $has_gettext = $self->_evaluate_cc_run($test, $verbose);
+ $has_gettext = $self->_evaluate_cc_run($conf, $test);
}
if ($has_gettext) {
- _handle_gettext($conf, $verbose, $extra_libs);
+ _handle_gettext($conf, $extra_libs);
}
$conf->data->set( HAS_GETTEXT => $has_gettext );
@@ -77,22 +72,21 @@
}
sub _evaluate_cc_run {
- my $self = shift;
- my ($test, $verbose) = @_;
+ my ($self, $conf, $test) = @_;
my $has_gettext = 0;
if ( $test eq "Hello, world!\n" ) {
$has_gettext = 1;
- print " (yes) " if $verbose;
+ $conf->debug(" (yes) ");
$self->set_result('yes');
}
return $has_gettext;
}
sub _handle_gettext {
- my ($conf, $verbose, $libs) = @_;
+ my ($conf, $libs) = @_;
$conf->data->add( ' ', ccflags => "-DHAS_GETTEXT" );
$conf->data->add( ' ', libs => $libs );
- $verbose and print "\n ccflags: ", $conf->data->get("ccflags"), "\n";
+ $conf->debug("\n ccflags: ", $conf->data->get("ccflags"), "\n");
return 1;
}
Modified: branches/gsoc_instrument/config/auto/gmp.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/gmp.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/gmp.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -43,12 +43,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $without ) = $conf->options->get(
- qw|
- verbose
- without-gmp
- |
- );
+ my $without = $conf->options->get( qw| without-gmp | );
if ($without) {
$conf->data->set( has_gmp => 0 );
@@ -71,7 +66,7 @@
my $has_gmp = 0;
if ( !$@ ) {
my $test = $conf->cc_run();
- $has_gmp = $self->_evaluate_cc_run( $conf, $test, $has_gmp, $verbose );
+ $has_gmp = $self->_evaluate_cc_run( $conf, $test, $has_gmp );
}
if ($has_gmp) {
$conf->data->add( ' ', libs => $extra_libs );
@@ -82,10 +77,10 @@
}
sub _evaluate_cc_run {
- my ($self, $conf, $test, $has_gmp, $verbose) = @_;
+ my ($self, $conf, $test, $has_gmp) = @_;
if ( $test eq $self->{cc_run_expected} ) {
$has_gmp = 1;
- print " (yes) " if $verbose;
+ $conf->debug(" (yes) ");
$self->set_result('yes');
$conf->data->set(
Modified: branches/gsoc_instrument/config/auto/headers.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/headers.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/headers.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -64,7 +64,7 @@
my $flag = "i_$header";
$flag =~ s/\.h$//g;
$flag =~ s/\///g;
- print "$flag: $pass\n" if defined $conf->options->get('verbose');
+ $conf->debug("$flag: $pass\n");
$conf->data->set( $flag => $pass ? 'define' : undef );
}
Modified: branches/gsoc_instrument/config/auto/icu.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/icu.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/icu.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -46,9 +46,8 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $icushared_opt, $icuheaders_opt,
+ my ( $icushared_opt, $icuheaders_opt,
$icuconfig_opt, $without_opt ) = $conf->options->get( qw|
- verbose
icushared
icuheaders
icu-config
@@ -101,21 +100,21 @@
( ! defined($icuheaders) );
my $without = 0;
- ($icuconfig, $autodetect, $without) =
- $self->_handle_autodetect( {
+ ($icuconfig, $autodetect, $without) = $self->_handle_autodetect(
+ $conf,
+ {
icuconfig => $icuconfig,
autodetect => $autodetect,
without => $without,
- verbose => $verbose,
- } );
+ }
+ );
# Inside _handle_autodetect(), $without can be set to 1 by
# _handle_search_for_icu_config(). In that case, we're abandoning our
# attempt to configure with ICU and so may return here.
# 2nd possible return point
if ( $without ) {
$self->_set_no_configure_with_icu($conf, q{no icu-config});
- print "Could not locate an icu-config program\n"
- if $verbose;
+ $conf->debug("Could not locate an icu-config program\n");
return 1;
}
@@ -126,7 +125,6 @@
without => $without,
autodetect => $autodetect,
icuconfig => $icuconfig,
- verbose => $verbose,
icushared => $icushared,
icuheaders => $icuheaders,
},
@@ -137,7 +135,7 @@
return 1;
}
- _verbose_report($verbose, $icuconfig, $icushared, $icuheaders);
+ _verbose_report($conf, $icuconfig, $icushared, $icuheaders);
$icuheaders = $self->_handle_icuconfig_errors( {
icushared => $icushared,
@@ -169,7 +167,6 @@
$conf,
{
ccflags_status => $ccflags_status,
- verbose => $verbose,
icuheaders => $icuheaders,
},
);
@@ -222,8 +219,7 @@
}
sub _handle_search_for_icu_config {
- my $self = shift;
- my $arg = shift;
+ my ($self, $conf, $arg) = @_;
if ( $arg->{ret} ) {
undef $arg->{icuconfig};
$arg->{autodetect} = 0;
@@ -231,40 +227,38 @@
}
else {
$arg->{icuconfig} = $self->{icuconfig_default};
- if ($arg->{verbose}) {
- print "icu-config found... good!\n";
- }
+ $conf->debug("icu-config found... good!\n");
}
return ( $arg->{icuconfig}, $arg->{autodetect}, $arg->{without} );
}
sub _handle_autodetect {
- my $self = shift;
- my $arg = shift;
+ my ($self, $conf, $arg) = @_;
if ( $arg->{autodetect} ) {
if ( ! $arg->{icuconfig} ) {
my ( undef, undef, $ret ) =
capture_output( $self->{icuconfig_default}, "--exists" );
- print "Discovered $self->{icuconfig_default} --exists returns $ret\n"
- if $arg->{verbose};
+ $conf->debug("Discovered $self->{icuconfig_default} --exists returns $ret\n");
($arg->{icuconfig}, $arg->{autodetect}, $arg->{without}) =
- $self->_handle_search_for_icu_config( {
- icuconfig => $arg->{icuconfig},
- autodetect => $arg->{autodetect},
- without => $arg->{without},
- verbose => $arg->{verbose},
- ret => $ret,
- } );
+ $self->_handle_search_for_icu_config(
+ $conf,
+ {
+ icuconfig => $arg->{icuconfig},
+ autodetect => $arg->{autodetect},
+ without => $arg->{without},
+ ret => $ret,
+ }
+ );
}
} # end $autodetect true
else {
- if ($arg->{verbose}) {
- print "Specified an ICU config parameter,\n";
- print "ICU autodetection disabled.\n";
- }
+ $conf->debug(
+ "Specified an ICU config parameter,\n",
+ "ICU autodetection disabled.\n",
+ );
} # end $autodetect false
return ( $arg->{icuconfig}, $arg->{autodetect}, $arg->{without} );
}
@@ -285,28 +279,22 @@
$arg->{icuconfig}
) {
# ldflags
- print "Trying $arg->{icuconfig} with '--ldflags'\n"
- if $arg->{verbose};
+ $conf->debug("Trying $arg->{icuconfig} with '--ldflags'\n");
$icushared = capture_output("$arg->{icuconfig} --ldflags");
chomp $icushared;
- print "icushared: captured $icushared\n"
- if $arg->{verbose};
+ $conf->debug("icushared: captured $icushared\n");
($icushared, $arg->{without}) =
$self->_handle_icushared($icushared, $arg->{without});
- print "For icushared, found $icushared and $arg->{without}\n"
- if $arg->{verbose};
+ $conf->debug("For icushared, found $icushared and $arg->{without}\n");
# location of header files
- print "Trying $arg->{icuconfig} with '--prefix'\n"
- if $arg->{verbose};
+ $conf->debug("Trying $arg->{icuconfig} with '--prefix'\n");
$icuheaders = capture_output("$arg->{icuconfig} --prefix");
chomp($icuheaders);
- print "icuheaders: captured $icuheaders\n"
- if $arg->{verbose};
+ $conf->debug("icuheaders: captured $icuheaders\n");
($icuheaders, $arg->{without}) =
$self->_handle_icuheaders($conf, $icuheaders, $arg->{without});
- print "For icuheaders, found $icuheaders and $arg->{without}\n"
- if $arg->{verbose};
+ $conf->debug("For icuheaders, found $icuheaders and $arg->{without}\n");
}
return ($arg->{without}, $icushared, $icuheaders);
@@ -348,8 +336,8 @@
}
sub _verbose_report {
- my ($verbose, $icuconfig, $icushared, $icuheaders) = @_;
- if ($verbose) {
+ my ($conf, $icuconfig, $icushared, $icuheaders) = @_;
+ if ($conf->options->get('verbose')) {
print "icuconfig: $icuconfig\n" if defined $icuconfig;
print "icushared='$icushared'\n" if defined $icushared;
print "headers='$icuheaders'\n" if defined $icuheaders;
@@ -395,9 +383,7 @@
my $arg = shift;
if ($arg->{ccflags_status}) {
# Ok, we don't need anything more.
- if ($arg->{verbose}) {
- print "Your compiler found the icu headers... good!\n";
- }
+ $conf->debug("Your compiler found the icu headers... good!\n");
}
else {
my $icuheaders = $arg->{icuheaders};
@@ -410,9 +396,7 @@
$icuflags = "-I $arg->{icuheaders}";
}
- if ($arg->{verbose}) {
- print "Adding $icuflags to ccflags for icu headers.\n";
- }
+ $conf->debug( "Adding $icuflags to ccflags for icu headers.\n");
$conf->data->add( ' ', ccflags => $icuflags );
}
}
Modified: branches/gsoc_instrument/config/auto/inline.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/inline.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/inline.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -79,13 +79,12 @@
sub _evaluate_inline {
my ($self, $conf, $test) = @_;
- my $verbose = $conf->options->get(qw(verbose));
if ($test) {
- print " ($test) " if $verbose;
+ $conf->debug(" ($test) ");
$self->set_result('yes');
}
else {
- print " no " if $verbose;
+ $conf->debug(" no ");
$self->set_result('no');
$test = '';
}
Modified: branches/gsoc_instrument/config/auto/isreg.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/isreg.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/isreg.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -63,7 +63,8 @@
my $test;
$test = (! defined $anyerror) ? 1 : 0;
$conf->data->set( isreg => $test );
- print( $test ? " (Yep) " : " (no) " ) if $conf->options->get('verbose');
+ my $test_str = $test ? " (Yep) " : " (no) ";
+ $conf->debug($test_str);
$self->set_result( $test ? 'yes' : 'no' );
return 1;
}
Modified: branches/gsoc_instrument/config/auto/memalign.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/memalign.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/memalign.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -95,7 +95,8 @@
: $test ? 'memalign'
: '';
$conf->data->set( memalign => $f );
- print( $test ? " (Yep:$f) " : " (no) " ) if $conf->options->get('verbose');
+ my $test_str = $test ? " (Yep:$f) " : " (no) ";
+ $conf->debug($test_str);
$self->set_result( $test ? 'yes' : 'no' );
}
Modified: branches/gsoc_instrument/config/auto/msvc.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/msvc.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/msvc.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -33,8 +33,7 @@
my ( $self, $conf ) = ( shift, shift );
if ($conf->data->get('gccversion')) {
- my $verbose = $conf->options->get('verbose');
- print " (skipped) " if $verbose;
+ $conf->debug(" (skipped) ");
$self->set_result('skipped');
$conf->data->set( msvcversion => undef );
return 1;
@@ -57,7 +56,6 @@
sub _evaluate_msvc {
my ($self, $conf, $msvcref) = @_;
- my $verbose = $conf->options->get('verbose');
# Set msvcversion to undef. This will also trigger any hints-file
# callbacks that depend on knowing whether or not we're using Visual C++.
@@ -73,10 +71,10 @@
my $major = int( $msvcref->{_MSC_VER} / 100 );
my $minor = $msvcref->{_MSC_VER} % 100;
- my $status = $self->_handle_not_msvc($conf, $major, $minor, $verbose);
+ my $status = $self->_handle_not_msvc($conf, $major, $minor);
return 1 if $status;
- my $msvcversion = $self->_compose_msvcversion($major, $minor, $verbose);
+ my $msvcversion = $self->_compose_msvcversion($major, $minor);
$conf->data->set( msvcversion => $msvcversion );
@@ -96,10 +94,10 @@
sub _handle_not_msvc {
my $self = shift;
- my ($conf, $major, $minor, $verbose) = @_;
+ my ($conf, $major, $minor) = @_;
my $status;
unless ( defined $major && defined $minor ) {
- print " (no) " if $verbose;
+ $conf->debug(" (no) ");
$self->set_result('no');
$conf->data->set( msvcversion => undef );
$status++;
@@ -109,7 +107,7 @@
sub _compose_msvcversion {
my $self = shift;
- my ($major, $minor, $verbose) = @_;
+ my ($major, $minor) = @_;
my $msvcversion = "$major.$minor";
$self->set_result("yes, $msvcversion");
return $msvcversion;
Modified: branches/gsoc_instrument/config/auto/neg_0.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/neg_0.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/neg_0.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -33,7 +33,6 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose ) = $conf->options->get('verbose');
$conf->cc_gen('config/auto/neg_0/test_c.in');
eval { $conf->cc_build( q{} ); };
my $has_neg_0 = 0;
@@ -43,7 +42,6 @@
$conf,
$test,
$has_neg_0,
- $verbose,
);
}
$conf->cc_clean();
@@ -54,10 +52,11 @@
sub _evaluate_cc_run {
my $self = shift;
- my ($conf, $test, $has_neg_0, $verbose) = @_;
+ my ($conf, $test, $has_neg_0) = @_;
$has_neg_0 = ($test =~ m/^-0/ ? 1 : 0);
$self->set_result( $has_neg_0 ? 'yes' : 'no' );
- print $has_neg_0 ? ' (yes) ' : ' (no) ' if $verbose;
+ my $output = $has_neg_0 ? ' (yes) ' : ' (no) ';
+ $conf->debug($output);
return $has_neg_0;
}
Modified: branches/gsoc_instrument/config/auto/opengl.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/opengl.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/opengl.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -158,12 +158,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $without ) = $conf->options->get(
- qw|
- verbose
- without-opengl
- |
- );
+ my $without = $conf->options->get( qw| without-opengl | );
return $self->_handle_no_opengl($conf) if $without;
@@ -192,15 +187,15 @@
}
else {
my $test = $conf->cc_run();
- return _handle_glut($conf, $extra_libs, $self->_evaluate_cc_run($test, $verbose));
+ return _handle_glut($conf, $extra_libs, $self->_evaluate_cc_run($conf, $test));
}
}
sub _evaluate_cc_run {
- my ($self, $test, $verbose) = @_;
+ my ($self, $conf, $test) = @_;
my ($glut_api_version, $glut_brand) = split ' ', $test;
- print " (yes, $glut_brand API version $glut_api_version) " if $verbose;
+ $conf->debug(" (yes, $glut_brand API version $glut_api_version) ");
$self->set_result("yes, $glut_brand $glut_api_version");
return ($glut_api_version, $glut_brand);
Modified: branches/gsoc_instrument/config/auto/pcre.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/pcre.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/pcre.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -33,12 +33,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $without ) = $conf->options->get(
- qw|
- verbose
- without-pcre
- |
- );
+ my $without = $conf->options->get( qw| without-pcre | );
if ($without) {
$conf->data->set( HAS_PCRE => 0 );
@@ -61,7 +56,7 @@
my $has_pcre = 0;
if ( !$@ ) {
my $test = $conf->cc_run();
- $has_pcre = $self->_evaluate_cc_run($test, $verbose);
+ $has_pcre = $self->_evaluate_cc_run($conf, $test);
}
$conf->data->set( HAS_PCRE => $has_pcre);
@@ -70,12 +65,12 @@
sub _evaluate_cc_run {
my $self = shift;
- my ($test, $verbose) = @_;
+ my ($conf, $test) = @_;
my $has_pcre = 0;
if ( $test =~ /pcre (\d+\.\d+)/ ) {
my $pcre_version = $1;
$has_pcre = 1;
- print " (yes, $pcre_version) " if $verbose;
+ $conf->debug(" (yes, $pcre_version) ");
$self->set_result("yes, $pcre_version");
}
return $has_pcre;
Modified: branches/gsoc_instrument/config/auto/readline.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/readline.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/readline.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -36,8 +36,6 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
-
my $cc = $conf->data->get('cc');
my $osname = $conf->data->get('osname');
@@ -54,7 +52,7 @@
eval { $conf->cc_build( q{}, $extra_libs ) };
if ( !$@ ) {
if ( $conf->cc_run() ) {
- $has_readline = $self->_evaluate_cc_run($verbose);
+ $has_readline = $self->_evaluate_cc_run($conf);
}
_handle_readline($conf, $extra_libs);
}
@@ -71,7 +69,7 @@
eval { $conf->cc_build( q{}, $extra_libs) };
if ( !$@ ) {
if ( $conf->cc_run() ) {
- $has_readline = $self->_evaluate_cc_run($verbose);
+ $has_readline = $self->_evaluate_cc_run($conf);
}
_handle_readline($conf, $extra_libs);
}
@@ -83,9 +81,9 @@
}
sub _evaluate_cc_run {
- my ($self, $verbose) = @_;
+ my ($self, $conf) = @_;
my $has_readline = 1;
- print " (yes) " if $verbose;
+ $conf->debug(" (yes) ");
$self->set_result('yes');
return $has_readline;
}
Modified: branches/gsoc_instrument/config/auto/signal.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/signal.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/signal.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -39,26 +39,24 @@
has_setitimer => undef
);
- my $verbose = $conf->options->get('verbose');
-
$conf->cc_gen('config/auto/signal/test1_c.in');
eval { $conf->cc_build(); };
unless ( $@ || $conf->cc_run() !~ /ok/ ) {
- _handle__sighandler_t($conf, $verbose);
+ _handle__sighandler_t($conf);
}
$conf->cc_clean();
$conf->cc_gen('config/auto/signal/test2_c.in');
eval { $conf->cc_build(); };
unless ( $@ || $conf->cc_run() !~ /ok/ ) {
- _handle_sigaction($conf, $verbose);
+ _handle_sigaction($conf);
}
$conf->cc_clean();
$conf->cc_gen('config/auto/signal/test_itimer_c.in');
eval { $conf->cc_build(); };
unless ( $@ || $conf->cc_run() !~ /ok/ ) {
- _handle_setitimer($conf, $verbose);
+ _handle_setitimer($conf);
}
$conf->cc_clean();
@@ -70,26 +68,26 @@
}
sub _handle__sighandler_t {
- my ($conf, $verbose) = @_;
+ my ($conf) = @_;
$conf->data->set( has___sighandler_t => 'define' );
- print " (__sighandler_t)" if $verbose;
+ $conf->debug(" (__sighandler_t)");
return 1;
}
sub _handle_sigaction {
- my ($conf, $verbose) = @_;
+ my ($conf) = @_;
$conf->data->set( has_sigaction => 'define' );
- print " (sigaction)" if $verbose;
+ $conf->debug(" (sigaction)");
return 1;
}
sub _handle_setitimer {
- my ($conf, $verbose) = @_;
+ my ($conf) = @_;
$conf->data->set(
has_setitimer => 'define',
has_sig_atomic_t => 'define',
);
- print " (setitimer) " if $verbose;
+ $conf->debug(" (setitimer) ");
return 1;
}
Modified: branches/gsoc_instrument/config/auto/snprintf.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/snprintf.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/snprintf.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -56,7 +56,7 @@
elsif ( $res =~ /^old snprintf/ ) {
$conf->data->set( HAS_OLD_SNPRINTF => 1 );
}
- print " ($res) " if $conf->options->get('verbose');
+ $conf->debug(" ($res) ");
return 1;
}
Modified: branches/gsoc_instrument/config/auto/thread.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/thread.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/thread.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -31,12 +31,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $without ) = $conf->options->get(
- qw|
- verbose
- without-threads
- |
- );
+ my $without = $conf->options->get( qw| without-threads |);
if ($without) {
$conf->data->set( HAS_THREADS => 0 );
Modified: branches/gsoc_instrument/config/auto/warnings.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/warnings.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/warnings.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -274,8 +274,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
- print "\n" if $verbose;
+ $conf->debug("\n");
my $compiler = '';
if ( defined $conf->data->get('gccversion') ) {
@@ -289,8 +288,7 @@
}
if ($compiler eq '') {
- print "We do not (yet) probe for warnings for your compiler\n"
- if $verbose;
+ $conf->debug("We do not (yet) probe for warnings for your compiler\n");
$self->set_result('skipped');
return 1;
}
@@ -357,12 +355,10 @@
sub valid_warning {
my ( $self, $conf, $warning ) = @_;
- my $verbose = $conf->options->get('verbose');
-
# This should be using a temp file name.
my $output_file = 'test.cco';
- $verbose and print "trying attribute '$warning'\n";
+ $conf->debug("trying attribute '$warning'\n");
my $cc = $conf->option_or_data('cc');
$conf->cc_gen('config/auto/warnings/test_c.in');
@@ -372,7 +368,7 @@
my $tryflags = "$ccflags $warnings $warning";
my $command_line = Parrot::Configure::Utils::_build_compile_command( $cc, $tryflags );
- $verbose and print ' ', $command_line, "\n";
+ $conf->debug(" ", $command_line, "\n");
# Don't use cc_build, because failure is expected.
my $exit_code = Parrot::Configure::Utils::_run_command(
@@ -390,15 +386,15 @@
my $output = Parrot::BuildUtil::slurp_file($output_file);
unlink $output_file or die "Unable to unlink $output_file: $!";
- $verbose and print " output: $output\n";
+ $conf->debug(" output: $output\n");
if ( $output !~ /\berror|warning|not supported|ignoring (unknown )?option\b/i ) {
push @{$self->{'validated'}}, $warning;
- $verbose and print " valid warning: '$warning'\n";
+ $conf->debug(" valid warning: '$warning'\n");
return 1;
}
else {
- $verbose and print " invalid warning: '$warning'\n";
+ $conf->debug(" invalid warning: '$warning'\n");
return 0;
}
}
Modified: branches/gsoc_instrument/config/auto/zlib.pm
==============================================================================
--- branches/gsoc_instrument/config/auto/zlib.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/auto/zlib.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -32,12 +32,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my ( $verbose, $without ) = $conf->options->get(
- qw|
- verbose
- without-zlib
- |
- );
+ my $without = $conf->options->get( qw| without-zlib | );
if ($without) {
$conf->data->set( has_zlib => 0 );
@@ -60,7 +55,7 @@
my $has_zlib = 0;
if ( !$@ ) {
my $test = $conf->cc_run();
- $has_zlib = $self->_evaluate_cc_run($conf, $test, $has_zlib, $verbose);
+ $has_zlib = $self->_evaluate_cc_run($conf, $test, $has_zlib);
}
$conf->data->set( has_zlib => $has_zlib );
$self->set_result($has_zlib ? 'yes' : 'no');
@@ -70,11 +65,11 @@
sub _evaluate_cc_run {
my $self = shift;
- my ($conf, $test, $has_zlib, $verbose) = @_;
+ my ($conf, $test, $has_zlib) = @_;
if ( $test =~ m/^(\d\.\d\.\d)/ ) {
my $version = $1;
$has_zlib = 1;
- print " (yes) " if $verbose;
+ $conf->debug(" (yes) ");
$self->set_result("yes, $version");
}
return $has_zlib;
Modified: branches/gsoc_instrument/config/gen/config_pm/config_pir.in
==============================================================================
--- branches/gsoc_instrument/config/gen/config_pm/config_pir.in Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/gen/config_pm/config_pir.in Sun Jun 6 16:09:33 2010 (r47429)
@@ -47,19 +47,25 @@
$S0 = concat prefix, "/runtime"
- $P0 = loadlib 'os'
- $P0 = new ['OS']
+ push_eh L1
+ # 'os' is dynop and can be absent at this point.
+ # Treat it as developers mode.
+ $P0 = loadlib 'os'
+ $P0 = new ['OS']
+ pop_eh
+
push_eh file_not_found
# OS.stat throws on file not found
$P0.'stat'($S0)
goto L1
- pop_eh
file_not_found:
+ # Treat it as installed parrot.
conf_file = "@libdir@@versiondir@/include/config.fpmc"
goto L2
L1:
conf_file = prefix . "/runtime/parrot/include/config.fpmc"
L2:
+ pop_eh
.local pmc CONF
CONF = new 'FileHandle'
Modified: branches/gsoc_instrument/config/gen/makefiles/root.in
==============================================================================
--- branches/gsoc_instrument/config/gen/makefiles/root.in Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/gen/makefiles/root.in Sun Jun 6 16:09:33 2010 (r47429)
@@ -619,14 +619,15 @@
$(DYNOPLIBS_TARGETS) \
$(LIBNCI_TEST_SO)
+# We build DYNPMC_TARGET in corevm. It's kinda hack to test t/pmc/threads.t CLONE_LIBRARIES
corevm : \
$(GEN_PM_INCLUDES) \
PARROT_LIBS \
$(PARROT) \
runtime/parrot/include/parrotlib.pbc \
runtime/parrot/include/config.fpmc \
- $(LIBRARY_DIR)/Test/More.pbc \
- $(DYNPMC_TARGETS)
+ $(DYNPMC_TARGETS) \
+ $(LIBRARY_DIR)/Test/More.pbc
$(GEN_LIBRARY) : $(PARROT) $(GEN_PASM_INCLUDES)
@@ -644,7 +645,7 @@
$(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)/Test/More.pbc:
$(LIBRARY_DIR)/Archive/Tar.pbc: $(DYNEXT_DIR)/io_ops$(LOAD_EXT)
@@ -808,6 +809,7 @@
@echo " tags-vi: Create tags for the vi editor."
@echo " tags-emacs: Create tags for the Emacs editor."
@echo " perlcritic: Check Perl code with Perl::Critic."
+ @echo " bootstrap-ops: Generate C code from .ops files."
@echo ""
@echo "Release:"
@echo " release: Create a tarball."
Modified: branches/gsoc_instrument/config/gen/opengl.pm
==============================================================================
--- branches/gsoc_instrument/config/gen/opengl.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/gen/opengl.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -457,8 +457,6 @@
return 1;
}
- my $verbose = $conf->options->get('verbose') || 0;
-
my @include_paths_win32 = grep /\S/ => split /;/ => ($ENV{INCLUDE} || '');
my $osname = $conf->data->get('osname');
@@ -522,22 +520,28 @@
# X freeglut only if DISPLAY is set, otherwise use native w32api GLUT
shift @header_globs if $^O eq 'cygwin' and !$ENV{DISPLAY};
- print "\nChecking for OpenGL headers using the following globs:\n\t",
- join("\n\t", @header_globs), "\n"
- if $verbose;
+ my $globs_str = join("\n\t", @header_globs) . "\n";
+ $conf->debug(
+ "\n",
+ "Checking for OpenGL headers using the following globs:\n",
+ "\t$globs_str"
+ );
my @header_files = sort map {File::Glob::bsd_glob($_)} @header_globs;
my %skip = map {($_ => 1)} @SKIP;
- @header_files = grep {my ($file) = m{([^/]+)$}; !$skip{$file}} @header_files;
-
- print "\nFound the following OpenGL headers:\n\t",
- join("\n\t", @header_files), "\n"
- if $verbose;
-
+ @header_files =
+ grep {my ($file) = m{([^/]+)$}; !$skip{$file}} @header_files;
die "OpenGL enabled and detected, but no OpenGL headers found!"
unless @header_files;
+ my $files_str = join("\n\t", @header_files) . "\n";
+ $conf->debug(
+ "\n",
+ "Found the following OpenGL headers:\n",
+ "\t$files_str\n",
+ );
+
my $autogen_header = <<'HEADER';
# DO NOT EDIT THIS FILE.
#
@@ -550,15 +554,15 @@
$autogen_header .= "# $_\n" foreach @header_files;
- $self->gen_opengl_defines ($conf, \@header_files, $autogen_header, $verbose);
- $self->gen_opengl_wrappers($conf, \@header_files, $autogen_header, $verbose);
+ $self->gen_opengl_defines ($conf, \@header_files, $autogen_header);
+ $self->gen_opengl_wrappers($conf, \@header_files, $autogen_header);
$self->gen_glut_callbacks ($conf);
return 1;
}
sub gen_opengl_defines {
- my ($self, $conf, $header_files, $autogen_header, $verbose) = @_;
+ my ($self, $conf, $header_files, $autogen_header) = @_;
my (%defs, @macros, %non_numeric);
my $max_len = 0;
@@ -590,7 +594,7 @@
}
else {
$non_numeric{$F[1]}++;
- print "\nNon-numeric value for '$F[1]': '$F[2]'\n" if $verbose;
+ $conf->debug("Non-numeric value for '$F[1]': '$F[2]'\n");
}
}
}
@@ -630,7 +634,8 @@
}
sub gen_opengl_wrappers {
- my ($self, $conf, $header_files, $autogen_header, $verbose) = @_;
+ my ($self, $conf, $header_files, $autogen_header) = @_;
+ my $verbose = $conf->options->get('verbose') || 0;
my %IGNORE = map {($_ => 1)} @IGNORE;
@@ -772,7 +777,8 @@
$sigs{$nci_sig}++;
push @{$funcs{$group}}, [$name, $nci_sig];
- print "$group\t$nci_sig\t$return $name($params);\n" if $verbose >= 3;
+ print "$group\t$nci_sig\t$return $name($params);\n"
+ if $verbose >= 3;
}
}
Modified: branches/gsoc_instrument/config/gen/platform.pm
==============================================================================
--- branches/gsoc_instrument/config/gen/platform.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/gen/platform.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -39,35 +39,32 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
- my $generated = $self->_get_generated($conf, $verbose);
-
+ my $generated = $self->_get_generated($conf);
# headers are merged into platform.h
- $self->_set_headers($conf, $verbose, $generated);
+ $self->_set_headers($conf, $generated);
# implementation files are merged into platform.c
- $self->_set_implementations($conf, $verbose, $generated);
+ $self->_set_implementations($conf, $generated);
$self->_handle_asm($conf);
- $self->_set_limits($conf, $verbose);
+ $self->_set_limits($conf);
return 1;
}
sub _get_generated {
- my $self = shift;
- my ($conf, $verbose) = @_;
+ my ($self, $conf) = @_;
my $generated = $conf->data->get('TEMP_generated');
$generated = '' unless defined $generated;
- print " ($generated) " if $verbose;
+ $conf->debug(" ($generated) \n");
return $generated;
}
sub _set_headers {
my $self = shift;
- my ($conf, $verbose, $generated) = @_;
+ my ($conf, $generated) = @_;
my $platform = $conf->data->get('platform');
my @headers = qw/
io.h
@@ -112,7 +109,7 @@
if ( -e $header_file ) {
local $/ = undef;
- print("\t$header_file\n") if $verbose;
+ $conf->debug("\t$header_file\n");
open my $IN_H, "<", "$header_file"
or die "Can't open $header_file: $!";
@@ -144,7 +141,7 @@
for my $h (@headers) {
if ( -e $h ) {
local $/ = undef;
- print("\t$h\n") if $verbose;
+ $conf->debug("\t$h\n");
open my $IN_H, "<", $h or die "Can't open $h: $!";
print {$PLATFORM_H} <<"END_HERE";
/*
@@ -186,7 +183,7 @@
sub _set_implementations {
my $self = shift;
- my ($conf, $verbose, $generated) = @_;
+ my ($conf, $generated) = @_;
my $platform = $conf->data->get('platform');
my @impls = qw/
time.c
@@ -238,7 +235,7 @@
if ( -e $impl_file ) {
local $/ = undef;
- print("\t$impl_file\n") if $verbose;
+ $conf->debug("\t$impl_file\n");
open my $IN_C, "<", $impl_file or die "Can't open $impl_file: $!";
# slurp in the C file
@@ -263,7 +260,7 @@
for my $im (@impls) {
if ( -e $im ) {
local $/ = undef;
- print("\t$im\n") if $verbose;
+ $conf->debug("\t$im\n");
open my $IN_C, "<", $im or die "Can't open $im: $!";
print {$PLATFORM_C} <<"END_HERE";
/*
Modified: branches/gsoc_instrument/config/init/defaults.pm
==============================================================================
--- branches/gsoc_instrument/config/init/defaults.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/init/defaults.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -258,6 +258,13 @@
$conf->data->set( 'archname', $Config{archname});
+ $conf->data->set( has_extra_nci_thunks => 1 );
+ $conf->data->set( HAS_EXTRA_NCI_THUNKS => 1 );
+ if ( $conf->options->get( 'without-extra-nci-thunks' ) ) {
+ $conf->data->set( has_extra_nci_thunks => 0 );
+ $conf->data->set( HAS_EXTRA_NCI_THUNKS => 0 );
+ }
+
# adjust archname, cc and libs for e.g. --m=32
# remember corrected archname - jit.pm was using $Config('archname')
_64_bit_adjustments($conf);
Modified: branches/gsoc_instrument/config/init/hints.pm
==============================================================================
--- branches/gsoc_instrument/config/init/hints.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/init/hints.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -31,8 +31,7 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
- print "\n[ " if $verbose;
+ $conf->debug("\n[ ");
my $hints_used = 0;
my $hints_file;
@@ -46,7 +45,7 @@
if ( -f $hints_file ) {
my $hints_pkg = "init::hints::" . $hints_file_name;
- print "$hints_pkg " if $verbose;
+ $conf->debug("$hints_pkg ");
eval "use $hints_pkg";
die $@ if $@;
@@ -57,7 +56,7 @@
$hints_used++;
$hints_pkg = "init::hints::local";
- print "$hints_pkg " if $verbose;
+ $conf->debug("$hints_pkg ");
eval "use $hints_pkg";
unless ($@) {
@@ -66,14 +65,14 @@
}
}
else {
- print "No $hints_file found. " if $verbose;
+ $conf->debug("No $hints_file found. ");
}
- if ( $hints_used == 0 and $verbose ) {
- print "(no hints) ";
+ if ( $hints_used == 0 ) {
+ $conf->debug("(no hints) ");
}
- print "]" if $verbose;
+ $conf->debug("]");
return 1;
}
Modified: branches/gsoc_instrument/config/init/hints/darwin.pm
==============================================================================
--- branches/gsoc_instrument/config/init/hints/darwin.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/init/hints/darwin.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -25,7 +25,6 @@
my $share_ext = $conf->option_or_data('share_ext');
my $version = $conf->option_or_data('VERSION');
- my $verbose = $conf->options->get('verbose');
# The hash referenced by $flagsref is the list of options that have -arch
# flags added to them implicitly through config/init/defaults.pm when
@@ -35,7 +34,7 @@
# friends. So, it's time to remove all -arch flags set in $conf->data and
# force a single, native architecture to being the default build.
- my $flagsref = _strip_arch_flags($conf, $verbose);
+ my $flagsref = _strip_arch_flags($conf);
# And now, after possibly losing a few undesired compiler and linker
# flags, on to the main Darwin config.
@@ -98,11 +97,11 @@
#################### INTERNAL SUBROUTINES ####################
sub _precheck {
- my ($flag, $stored, $verbose) = @_;
- if ($verbose) {
- print "Checking $flag...\n";
- print "Pre-check: " . ($stored || '(nil)') . "\n";
- }
+ my ($conf, $flag, $stored) = @_;
+ $conf->debug(
+ "Checking $flag...\n",
+ "Pre-check: " . ($stored || '(nil)') . "\n",
+ );
}
sub _strip_arch_flags_engine {
@@ -116,27 +115,26 @@
}
sub _postcheck {
- my ($flagsref, $flag, $verbose) = @_;
- if ($verbose) {
- print "Post-check: ", ( $flagsref->{$flag} or '(nil)' ), "\n";
- }
+ my ($conf, $flagsref, $flag) = @_;
+ my $f = $flagsref->{$flag} || '(nil)';
+ $conf->debug("Post-check: $f\n");
}
sub _strip_arch_flags {
- my ($conf, $verbose) = @_;
+ my ($conf) = @_;
my $flagsref = { map { $_ => '' } @{ $defaults{problem_flags} } };
- print "\nStripping -arch flags due to Apple multi-architecture build problems:\n" if $verbose;
+ $conf->debug("\nStripping -arch flags due to Apple multi-architecture build problems:\n");
for my $flag ( keys %{ $flagsref } ) {
my $stored = $conf->data->get($flag) || '';
- _precheck($flag, $stored, $verbose);
+ _precheck($conf, $flag, $stored);
$flagsref = _strip_arch_flags_engine(
$defaults{architectures}, $stored, $flagsref, $flag
);
- _postcheck($flagsref, $flag, $verbose);
+ _postcheck($conf, $flagsref, $flag);
}
return $flagsref;
}
@@ -167,12 +165,11 @@
sub _probe_for_fink {
my $conf = shift;
- my $verbose = $conf->options->get( 'verbose' );
# Per fink(8), this is location for Fink configuration file, presumably
# regardless of where Fink itself is installed.
my $fink_conf = $defaults{fink_conf};
unless (-f $fink_conf) {
- print "Fink configuration file not located\n" if $verbose;
+ $conf->debug("Fink configuration file not located\n");
return;
}
my $fink_conf_str = Parrot::BuildUtil::slurp_file($fink_conf);
@@ -185,8 +182,7 @@
last;
}
unless (defined $fink_base_dir) {
- print "Fink configuration file defective: no 'Basepath'\n"
- if $verbose;
+ $conf->debug("Fink configuration file defective: no 'Basepath'\n");
return;
}
my $fink_lib_dir = qq{$fink_base_dir/lib};
@@ -196,8 +192,7 @@
push @unlocateables, $dir unless (-d $dir);
}
if (@unlocateables) {
- print "Could not locate Fink directories: @unlocateables\n"
- if $verbose;
+ $conf->debug("Could not locate Fink directories: @unlocateables\n");
return;
}
else {
@@ -212,7 +207,6 @@
sub _probe_for_macports {
my $conf = shift;
- my $verbose = $conf->options->get( 'verbose' );
my $ports_base_dir = $defaults{ports_base_dir};
my $ports_lib_dir = qq{$ports_base_dir/lib};
my $ports_include_dir = qq{$ports_base_dir/include};
@@ -221,8 +215,7 @@
push @unlocateables, $dir unless (-d $dir);
}
if (@unlocateables) {
- print "Could not locate Macports directories: @unlocateables\n"
- if $verbose;
+ $conf->debug("Could not locate Macports directories: @unlocateables\n");
return;
}
else {
@@ -239,7 +232,6 @@
my ($conf, $flagsref, $library) = @_;
my $no_library_option = "darwin_no_$library";
my $title = ucfirst(lc($library));
- my $verbose = $conf->options->get( 'verbose' );
unless ($conf->options->get( $no_library_option ) ) {
my $addl_flags_ref;
if ($library eq 'fink') {
@@ -248,14 +240,14 @@
if ($library eq 'macports') {
$addl_flags_ref = _probe_for_macports($conf);
}
- my $rv = _add_to_flags( $addl_flags_ref, $flagsref, $title, $verbose );
+ my $rv = _add_to_flags( $conf, $addl_flags_ref, $flagsref, $title );
return $rv;
}
return;
}
sub _add_to_flags {
- my ( $addl_flags_ref, $flagsref, $title, $verbose ) = @_;
+ my ( $conf, $addl_flags_ref, $flagsref, $title ) = @_;
if ( defined $addl_flags_ref ) {
foreach my $addl ( keys %{ $addl_flags_ref } ) {
my %seen;
@@ -266,10 +258,10 @@
$flagsref->{$addl} .= " $addl_flags_ref->{$addl}"
unless $seen{ $addl_flags_ref->{$addl} };
}
- print "Probe for $title successful\n" if $verbose;
+ $conf->debug("Probe for $title successful\n");
}
else {
- print "Probe for $title unsuccessful\n" if $verbose;
+ $conf->debug("Probe for $title unsuccessful\n");
}
return 1;
}
Modified: branches/gsoc_instrument/config/init/hints/linux.pm
==============================================================================
--- branches/gsoc_instrument/config/init/hints/linux.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/init/hints/linux.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -15,10 +15,8 @@
my $linkflags = $conf->option_or_data('linkflags');
my $share_ext = $conf->option_or_data('share_ext');
my $version = $conf->option_or_data('VERSION');
- my $verbose;
- $verbose = $conf->options->get('verbose');
- print "\n" if $verbose;
+ $conf->debug("\n");
# should find g++ in most cases
my $link = $conf->data->get('link') || 'c++';
@@ -39,7 +37,7 @@
$ld_share_flags = ' -shared -g -pipe -fexceptions -fPIC';
$cc_shared .= ' -fPIC';
- $ccflags = _handle_icc_ccflags($ccflags, $verbose);
+ $ccflags = _handle_icc_ccflags($conf, $ccflags);
}
elsif ( $cc =~ /suncc/ ) {
@@ -96,7 +94,7 @@
}
sub _handle_icc_ccflags {
- my ($ccflags, $verbose) = @_;
+ my ($conf, $ccflags) = @_;
# enable correct floating point behavior
# which is *not* the default behavior. ahem.
@@ -106,7 +104,7 @@
# for negative zero without this.
$ccflags .= ' -fp-model source';
- $verbose and print " ccflags: $ccflags\n";
+ $conf->debug(" ccflags: $ccflags\n");
return $ccflags;
}
Modified: branches/gsoc_instrument/config/init/optimize.pm
==============================================================================
--- branches/gsoc_instrument/config/init/optimize.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/init/optimize.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -27,16 +27,12 @@
};
}
-our $verbose;
-
sub runstep {
my ( $self, $conf ) = @_;
- $verbose = $conf->options->get( 'verbose' );
- print "\n" if $verbose;
+ $conf->debug("\n");
- print "(optimization options: init::optimize)\n"
- if $verbose;
+ $conf->debug("(optimization options: init::optimize)\n");
# A plain --optimize means use perl5's $Config{optimize}. If an argument
# is given, however, use that instead.
@@ -44,7 +40,7 @@
if (! defined $optimize) {
$self->set_result('no');
- print "(none requested) " if $conf->options->get('verbose');
+ $conf->debug("(none requested) ");
return 1;
}
@@ -68,7 +64,7 @@
# save the options, however we got them.
$conf->data->set( optimize => $options );
- print "optimize options: ", $options, "\n" if $verbose;
+ $conf->debug("optimize options: ", $options, "\n");
# disable debug flags.
$conf->data->set( cc_debug => '' );
Modified: branches/gsoc_instrument/config/inter/libparrot.pm
==============================================================================
--- branches/gsoc_instrument/config/inter/libparrot.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/inter/libparrot.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -46,27 +46,8 @@
# Parrot can't necessarily handle a pre-existing installed shared
# libparrot.so. At this point, we don't know the actual name
# of the shared parrot library. So we try some candidates.
- my @libs = ('libparrot.so');
- my @libpaths = ('/usr/local/lib', '/usr/lib', $conf->data->get('libdir'));
- if ($^O eq 'MSWin32') {
- push @libpaths, (split /;/, $ENV{PATH});
- @libs = ('libparrot.dll', 'libparrot.lib', 'libparrot.dll.a');
- }
- if ($^O eq 'cygwin') {
- @libs = ('libparrot.dll.a');
- }
- if ($^O eq 'darwin'){
- @libs = qw/libparrot.dylib libparrot.a/;
- }
- if (defined $ENV{LD_LIBRARY_PATH}) {
- push @libpaths, (split /:/, $ENV{LD_LIBRARY_PATH});
- }
- if (defined $ENV{LD_RUN_PATH}) {
- push @libpaths, (split /:/, $ENV{LD_RUN_PATH});
- }
- if (defined $ENV{DYLD_LIBRARY_PATH}) {
- push @libpaths, (split /:/, $ENV{DYLD_LIBRARY_PATH});
- }
+ my @libs = get_libs();
+ my @libpaths = get_libpaths($conf);
foreach my $f (@libs) {
foreach my $d (@libpaths) {
my $oldversion = File::Spec->catfile($d, $f);
@@ -164,6 +145,38 @@
return 1;
}
+sub get_libs {
+ my @libs = ('libparrot.so');
+ if ($^O eq 'MSWin32') {
+ @libs = ('libparrot.dll', 'libparrot.lib', 'libparrot.dll.a');
+ }
+ if ($^O eq 'cygwin') {
+ @libs = ('libparrot.dll.a');
+ }
+ if ($^O eq 'darwin'){
+ @libs = qw/libparrot.dylib libparrot.a/;
+ }
+ return @libs;
+}
+
+sub get_libpaths {
+ my $conf = shift;
+ my @libpaths = ('/usr/local/lib', '/usr/lib', $conf->data->get('libdir'));
+ if ($^O eq 'MSWin32') {
+ push @libpaths, (split /;/, $ENV{PATH});
+ }
+ if (defined $ENV{LD_LIBRARY_PATH}) {
+ push @libpaths, (split /:/, $ENV{LD_LIBRARY_PATH});
+ }
+ if (defined $ENV{LD_RUN_PATH}) {
+ push @libpaths, (split /:/, $ENV{LD_RUN_PATH});
+ }
+ if (defined $ENV{DYLD_LIBRARY_PATH}) {
+ push @libpaths, (split /:/, $ENV{DYLD_LIBRARY_PATH});
+ }
+ return @libpaths
+}
+
1;
# Local Variables:
Modified: branches/gsoc_instrument/config/inter/progs.pm
==============================================================================
--- branches/gsoc_instrument/config/inter/progs.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/config/inter/progs.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -100,7 +100,7 @@
if $ask;
$conf->data->set( ccflags => $ccflags );
- $conf->options->get('verbose') and print "\nccflags: $ccflags\n";
+ $conf->debug("\nccflags: $ccflags\n");
$linkflags = $conf->data->get('linkflags');
$linkflags =~ s/-libpath:\S+//g; # TT #854: No idea why.
Modified: branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod
==============================================================================
--- branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/docs/book/draft/chXX_hlls.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -126,9 +126,11 @@
=begin PIR
+ .include 'stdio.pasm'
+
.sub main
$P0 = getinterp
- $P0 = $P0.'stdhandle'(0)
+ $P0 = $P0.'stdhandle'(.PIO_STDIN_FILENO)
$P1 = compreg 'PIR'
loop_top:
Modified: branches/gsoc_instrument/docs/parrotbyte.pod
==============================================================================
--- branches/gsoc_instrument/docs/parrotbyte.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/docs/parrotbyte.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -166,10 +166,7 @@
| label offset |
+----------+----------+----------+----------+
-Fixup type B<0>, known as enum_fixup_label, has a label symbol and an offset
-into the bytecode.
-
-Fixup type B<1>, known as enum_fixup_sub, has a label symbol that is the name
+Fixup type B<enum_fixup_sub>, has a label symbol that is the name
of the "sub" and an offset into the constant table, referencing a Sub, Closure
or Coroutine PMC.
Modified: branches/gsoc_instrument/docs/parrothist.pod
==============================================================================
--- branches/gsoc_instrument/docs/parrothist.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/docs/parrothist.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -104,7 +104,7 @@
chromatic 2.0.0 * 2010-Jan-19 "Inevitable"
darbelo 2.1.0 2010-Feb-16 "As Scheduled"
- coke 2.1.1 2010-Feb-19
+ coke 2.1.1 2010-Feb-19 (bugfix release)
cotto 2.2.0 2010-Mar-16 "Like Clockwork"
Gerd 2.3.0 * 2010-Apr-20 "Samoan Lory"
Modified: branches/gsoc_instrument/docs/pdds/pdd20_lexical_vars.pod
==============================================================================
--- branches/gsoc_instrument/docs/pdds/pdd20_lexical_vars.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/docs/pdds/pdd20_lexical_vars.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -14,7 +14,7 @@
=head2 Synopsis
-=begin PIR
+=begin PIR_INVALID
.sub 'foo'
.lex "$a", $P0
@@ -52,7 +52,7 @@
$P0 = find_lex "x" # SUCCEEDS
.end
-=end PIR
+=end PIR_INVALID
=head2 Description
Modified: branches/gsoc_instrument/docs/pdds/pdd21_namespaces.pod
==============================================================================
--- branches/gsoc_instrument/docs/pdds/pdd21_namespaces.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/docs/pdds/pdd21_namespaces.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -585,7 +585,7 @@
should map roughly to this PIR:
-=begin PIR
+=begin PIR_INVALID
.HLL "Perl5"
.loadlib "perl5_group"
@@ -596,7 +596,7 @@
set_global "$x", $P0
.end
-=end PIR
+=end PIR_INVALID
In this case, the C<main> sub would be tied to Perl 5 by the C<.HLL>
directive, so a Perl 5 namespace would be created.
@@ -613,7 +613,7 @@
these cases, Parrot should create the namespace based on the HLL of the PIR
subroutine that calls the store function.
-=begin PIR
+=begin PIR_INVALID
.HLL "Perl5"
.loadlib "perl5_group"
@@ -635,7 +635,7 @@
set_global $P2, $S0, $P3
.end
-=end PIR
+=end PIR_INVALID
In this case, C<set_global> should see that it was called from "main",
which is in a Perl 5 namespace, so it will create the "Foo" namespace as
Modified: branches/gsoc_instrument/docs/running.pod
==============================================================================
--- branches/gsoc_instrument/docs/running.pod Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/docs/running.pod Sun Jun 6 16:09:33 2010 (r47429)
@@ -169,6 +169,11 @@
Turn on interpreter debug flag. See C<parrot --help-debug> for available flag
bits.
+=item --hash-seed <hexnum>
+
+Sets the hash seed to the provided value. Only useful for debugging
+intermittent failures, and harmful in production.
+
=item --gc-debug
Turn on GC (Garbage Collection) debugging. This imposes some stress on the GC
Modified: branches/gsoc_instrument/examples/languages/abc/abc.pir
==============================================================================
--- branches/gsoc_instrument/examples/languages/abc/abc.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/languages/abc/abc.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -56,8 +56,6 @@
.namespace [ 'abc'; 'Compiler' ]
-.loadlib 'abc_group'
-
.sub '' :anon :load :init
.local pmc abc
$P0 = get_root_global ['parrot'], 'P6metaclass'
Modified: branches/gsoc_instrument/examples/languages/squaak/squaak.pir
==============================================================================
--- branches/gsoc_instrument/examples/languages/squaak/squaak.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/languages/squaak/squaak.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -26,9 +26,6 @@
.namespace [ 'Squaak';'Compiler' ]
-.loadlib 'io_ops'
-.loadlib 'squaak_group'
-
.sub 'onload' :anon :load :init
load_bytecode 'PCT.pbc'
Modified: branches/gsoc_instrument/examples/languages/squaak/src/builtins/say.pir
==============================================================================
--- branches/gsoc_instrument/examples/languages/squaak/src/builtins/say.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/languages/squaak/src/builtins/say.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -24,9 +24,13 @@
.return ()
.end
+.include 'stdio.pasm'
+
.sub 'read'
- $P0 = getstdin
- $S0 = readline $P0
+ .local pmc stdin
+ $P0 = getinterp
+ stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
+ $S0 = stdin.'readline'()
.return ($S0)
.end
Modified: branches/gsoc_instrument/examples/nci/xlibtest.pir
==============================================================================
--- branches/gsoc_instrument/examples/nci/xlibtest.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/nci/xlibtest.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -277,13 +277,14 @@
push_eh newfile
.local pmc handle
- handle = open filename, 'r'
+ handle = new 'FileHandle'
+ handle.'open'(filename, 'r')
pop_eh
push_eh failed
.local string jsonfile
jsonfile = handle.'readall'()
- close handle
+ handle.'close'()
load_language 'data_json'
.local pmc json, jsonobject, jsondata
@@ -322,10 +323,11 @@
.local string jsonfile
jsonfile = _json(jsondata)
.local pmc handle
- handle = open filename, 'w'
+ handle = new 'FileHandle'
+ handle.'open'(filename, 'w')
print handle, jsonfile
print handle, "\n"
- close handle
+ handle.'close'()
.return()
failed:
.local pmc exception
Modified: branches/gsoc_instrument/examples/pge/demo.pir
==============================================================================
--- branches/gsoc_instrument/examples/pge/demo.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/pge/demo.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -2,6 +2,7 @@
# $Id$
.include "errors.pasm"
+.include 'stdio.pasm'
.sub _main
.local string x
.local string pattern
@@ -35,7 +36,7 @@
print "\ninput \"regex <pattern>\", \"glob <pattern>\", \"save <name>\",\n"
print "target string, \"pir\", \"exp\", \"trace\", \"next\"\n"
$P0 = getinterp
- stdin = $P0.'stdhandle'(0)
+ stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
x = stdin.'readline'()
length $I0, x
if $I0 < 1 goto end_demo
Modified: branches/gsoc_instrument/examples/pir/befunge/befunge.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/befunge/befunge.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/pir/befunge/befunge.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -3,6 +3,7 @@
.loadlib 'io_ops'
+.include "stdio.pasm"
.include "debug.pir"
.include "flow.pir"
.include "io.pir"
@@ -17,7 +18,8 @@
# disable buffering on stdout
.local pmc stdout
- getstdout stdout
+ $P0 = getinterp
+ stdout = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
stdout.'buffer_type'("unbuffered")
# parsing argv
Modified: branches/gsoc_instrument/examples/pir/befunge/debug.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/befunge/debug.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/pir/befunge/debug.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -179,8 +179,9 @@
_debug__print_status()
print "bef> "
- $P0 = getstdin
- $S0 = readline $P0
+ $P0 = getinterp
+ $P0 = $P0.'stdhandle'(.PIO_STDIN_FILENO)
+ $S0 = $P0.'readline'()
$S0 = chopn $S0, 1
$I0 = length $S0
Modified: branches/gsoc_instrument/examples/pir/befunge/io.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/befunge/io.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/pir/befunge/io.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -39,8 +39,9 @@
$I0 = length $S0
if $I0 > 0 goto _IO__INPUT_CHAR__SUBSTR
- $P1 = getstdin
- $S0 = readline $P1
+ $P1 = getinterp
+ $P1 = $P1.'stdhandle'(.PIO_STDIN_FILENO)
+ $S0 = $P1.'readline'()
$S0 = chopn $S0, 1
_IO__INPUT_CHAR__SUBSTR:
@@ -71,8 +72,9 @@
len = length $S0
if len > 0 goto _IO__INPUT_INT__PARSE_INPUT
- $P1 = getstdin
- $S0 = readline $P1
+ $P1 = getinterp
+ $P1 = $P1.'stdhandle'(.PIO_STDIN_FILENO)
+ $S0 = $P1.'readline'()
$S0 = chopn $S0, 1
len = length $S0
Modified: branches/gsoc_instrument/examples/pir/life.pir
==============================================================================
--- branches/gsoc_instrument/examples/pir/life.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/pir/life.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -87,7 +87,8 @@
mod $I31,$I0,100
if $I31, skip
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
print $P1, "."
skip:
Modified: branches/gsoc_instrument/examples/shootout/fasta.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/fasta.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/shootout/fasta.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -163,8 +163,9 @@
.local pmc interp, stdout
.local int n
# stdout is linebuffered per default - make it block buffered
+ .include 'stdio.pasm'
interp = getinterp
- stdout = interp.'stdhandle'(1)
+ stdout = interp.'stdhandle'(.PIO_STDOUT_FILENO)
stdout.'buffer_size'(40960)
$I0 = argv
if $I0 > 1 goto argsok
Modified: branches/gsoc_instrument/examples/shootout/regexdna.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/regexdna.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/shootout/regexdna.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -62,7 +62,8 @@
# Read in the file
beginwhile:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(0) # stdin
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDIN_FILENO)
chunk = $P1.'read'(65535)
chunklen = length chunk
unless chunklen goto endwhile
Modified: branches/gsoc_instrument/examples/shootout/revcomp.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/revcomp.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/shootout/revcomp.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -36,8 +36,9 @@
.local pmc stdin, stdout
.local string line, seq
$P0 = getinterp
- stdin = $P0.'stdhandle'(0)
- stdout = $P0.'stdhandle'(1)
+ .include 'stdio.pasm'
+ stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
+ stdout = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
# stdout is linebuffered per default - make it block buffered
stdout.'buffer_size'(8192)
Modified: branches/gsoc_instrument/examples/shootout/sumcol.pir
==============================================================================
--- branches/gsoc_instrument/examples/shootout/sumcol.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/shootout/sumcol.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -12,7 +12,8 @@
.local int count, tmp, linelen
count = 0
interp = getinterp
- stdin = interp.'stdhandle'(0)
+ .include 'stdio.pasm'
+ stdin = interp.'stdhandle'(.PIO_STDIN_FILENO)
beginwhile:
line = stdin.'readline'()
linelen = length line
Modified: branches/gsoc_instrument/examples/tge/branch/transform.pir
==============================================================================
--- branches/gsoc_instrument/examples/tge/branch/transform.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/examples/tge/branch/transform.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -106,7 +106,8 @@
if $I0 == 2 goto fromfile
$P0 = getinterp
- filehandle = $P0.'stdhandle'(0)
+ .include 'stdio.pasm'
+ filehandle = $P0.'stdhandle'(.PIO_STDIN_FILENO)
goto grabline
fromfile:
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/HLL-s0.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -902,7 +902,7 @@
### .include 'gen/hllgrammar-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117579.6042")
+.sub "_block11" :anon :subid("10_1275811471.14938")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Grammar"], "_block13"
capture_lex $P14
@@ -916,101 +916,103 @@
.annotate 'line', 5
get_hll_global $P14, ["HLL";"Grammar"], "_block13"
capture_lex $P14
- $P343 = $P14()
+ $P348 = $P14()
.annotate 'line', 1
- .return ($P343)
- .const 'Sub' $P345 = "104_1275117579.6042"
- .return ($P345)
+ .return ($P348)
+ .const 'Sub' $P350 = "106_1275811471.14938"
+ .return ($P350)
.end
.namespace []
-.sub "" :load :init :subid("post105") :outer("10_1275117579.6042")
+.sub "" :load :init :subid("post107") :outer("10_1275811471.14938")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117579.6042"
+ .const 'Sub' $P12 = "10_1275811471.14938"
.local pmc block
set block, $P12
- $P348 = get_root_global ["parrot"], "P6metaclass"
- $P348."new_class"("HLL::Grammar", "Regex::Cursor" :named("parent"))
+ $P353 = get_root_global ["parrot"], "P6metaclass"
+ $P353."new_class"("HLL::Grammar", "Regex::Cursor" :named("parent"))
.end
.namespace ["HLL";"Grammar"]
-.sub "_block13" :subid("11_1275117579.6042") :outer("10_1275117579.6042")
+.sub "_block13" :subid("11_1275811471.14938") :outer("10_1275811471.14938")
.annotate 'line', 5
- .const 'Sub' $P329 = "101_1275117579.6042"
- capture_lex $P329
- .const 'Sub' $P322 = "99_1275117579.6042"
- capture_lex $P322
- .const 'Sub' $P309 = "96_1275117579.6042"
- capture_lex $P309
- .const 'Sub' $P277 = "91_1275117579.6042"
- capture_lex $P277
- .const 'Sub' $P271 = "89_1275117579.6042"
+ .const 'Sub' $P334 = "103_1275811471.14938"
+ capture_lex $P334
+ .const 'Sub' $P327 = "101_1275811471.14938"
+ capture_lex $P327
+ .const 'Sub' $P314 = "98_1275811471.14938"
+ capture_lex $P314
+ .const 'Sub' $P282 = "93_1275811471.14938"
+ capture_lex $P282
+ .const 'Sub' $P276 = "91_1275811471.14938"
+ capture_lex $P276
+ .const 'Sub' $P271 = "89_1275811471.14938"
capture_lex $P271
- .const 'Sub' $P266 = "87_1275117579.6042"
- capture_lex $P266
- .const 'Sub' $P260 = "85_1275117579.6042"
- capture_lex $P260
- .const 'Sub' $P254 = "83_1275117579.6042"
+ .const 'Sub' $P265 = "87_1275811471.14938"
+ capture_lex $P265
+ .const 'Sub' $P259 = "85_1275811471.14938"
+ capture_lex $P259
+ .const 'Sub' $P254 = "83_1275811471.14938"
capture_lex $P254
- .const 'Sub' $P249 = "81_1275117579.6042"
+ .const 'Sub' $P249 = "81_1275811471.14938"
capture_lex $P249
- .const 'Sub' $P244 = "79_1275117579.6042"
+ .const 'Sub' $P244 = "79_1275811471.14938"
capture_lex $P244
- .const 'Sub' $P239 = "77_1275117579.6042"
+ .const 'Sub' $P239 = "77_1275811471.14938"
capture_lex $P239
- .const 'Sub' $P234 = "75_1275117579.6042"
+ .const 'Sub' $P234 = "75_1275811471.14938"
capture_lex $P234
- .const 'Sub' $P229 = "73_1275117579.6042"
+ .const 'Sub' $P229 = "73_1275811471.14938"
capture_lex $P229
- .const 'Sub' $P224 = "71_1275117579.6042"
+ .const 'Sub' $P224 = "71_1275811471.14938"
capture_lex $P224
- .const 'Sub' $P219 = "69_1275117579.6042"
+ .const 'Sub' $P219 = "69_1275811471.14938"
capture_lex $P219
- .const 'Sub' $P208 = "65_1275117579.6042"
+ .const 'Sub' $P208 = "65_1275811471.14938"
capture_lex $P208
- .const 'Sub' $P195 = "63_1275117579.6042"
+ .const 'Sub' $P195 = "63_1275811471.14938"
capture_lex $P195
- .const 'Sub' $P183 = "61_1275117579.6042"
+ .const 'Sub' $P183 = "61_1275811471.14938"
capture_lex $P183
- .const 'Sub' $P176 = "59_1275117579.6042"
+ .const 'Sub' $P176 = "59_1275811471.14938"
capture_lex $P176
- .const 'Sub' $P167 = "57_1275117579.6042"
+ .const 'Sub' $P167 = "57_1275811471.14938"
capture_lex $P167
- .const 'Sub' $P160 = "55_1275117579.6042"
+ .const 'Sub' $P160 = "55_1275811471.14938"
capture_lex $P160
- .const 'Sub' $P151 = "53_1275117579.6042"
+ .const 'Sub' $P151 = "53_1275811471.14938"
capture_lex $P151
- .const 'Sub' $P144 = "51_1275117579.6042"
+ .const 'Sub' $P144 = "51_1275811471.14938"
capture_lex $P144
- .const 'Sub' $P135 = "49_1275117579.6042"
+ .const 'Sub' $P135 = "49_1275811471.14938"
capture_lex $P135
- .const 'Sub' $P128 = "47_1275117579.6042"
+ .const 'Sub' $P128 = "47_1275811471.14938"
capture_lex $P128
- .const 'Sub' $P121 = "45_1275117579.6042"
+ .const 'Sub' $P121 = "45_1275811471.14938"
capture_lex $P121
- .const 'Sub' $P111 = "43_1275117579.6042"
+ .const 'Sub' $P111 = "43_1275811471.14938"
capture_lex $P111
- .const 'Sub' $P103 = "41_1275117579.6042"
+ .const 'Sub' $P103 = "41_1275811471.14938"
capture_lex $P103
- .const 'Sub' $P93 = "40_1275117579.6042"
+ .const 'Sub' $P93 = "40_1275811471.14938"
capture_lex $P93
- .const 'Sub' $P87 = "38_1275117579.6042"
+ .const 'Sub' $P87 = "38_1275811471.14938"
capture_lex $P87
- .const 'Sub' $P82 = "36_1275117579.6042"
+ .const 'Sub' $P82 = "36_1275811471.14938"
capture_lex $P82
- .const 'Sub' $P74 = "34_1275117579.6042"
+ .const 'Sub' $P74 = "34_1275811471.14938"
capture_lex $P74
- .const 'Sub' $P68 = "32_1275117579.6042"
+ .const 'Sub' $P68 = "32_1275811471.14938"
capture_lex $P68
- .const 'Sub' $P62 = "30_1275117579.6042"
+ .const 'Sub' $P62 = "30_1275811471.14938"
capture_lex $P62
- .const 'Sub' $P56 = "28_1275117579.6042"
+ .const 'Sub' $P56 = "28_1275811471.14938"
capture_lex $P56
- .const 'Sub' $P23 = "14_1275117579.6042"
+ .const 'Sub' $P23 = "14_1275811471.14938"
capture_lex $P23
- .const 'Sub' $P15 = "12_1275117579.6042"
+ .const 'Sub' $P15 = "12_1275811471.14938"
capture_lex $P15
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -1019,17 +1021,17 @@
$P0."ctxsave"()
ctxsave_done:
.annotate 'line', 33
- .const 'Sub' $P329 = "101_1275117579.6042"
- capture_lex $P329
+ .const 'Sub' $P334 = "103_1275811471.14938"
+ capture_lex $P334
.annotate 'line', 5
- .return ($P329)
- .const 'Sub' $P340 = "103_1275117579.6042"
- .return ($P340)
+ .return ($P334)
+ .const 'Sub' $P345 = "105_1275811471.14938"
+ .return ($P345)
.end
.namespace ["HLL";"Grammar"]
-.sub "ws" :subid("12_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "ws" :subid("12_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx16_tgt
.local int rx16_pos
@@ -1043,6 +1045,7 @@
.local pmc match
.lex "$/", match
length rx16_eos, rx16_tgt
+ gt rx16_pos, rx16_eos, rx16_done
set rx16_off, 0
lt rx16_pos, 2, rx16_start
sub rx16_off, rx16_pos, 1
@@ -1113,7 +1116,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__ws" :subid("13_1275117579.6042") :method
+.sub "!PREFIX__ws" :subid("13_1275811471.14938") :method
.annotate 'line', 5
new $P18, "ResizablePMCArray"
push $P18, ""
@@ -1122,7 +1125,7 @@
.namespace ["HLL";"Grammar"]
-.sub "termish" :subid("14_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "termish" :subid("14_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx24_tgt
.local int rx24_pos
@@ -1137,6 +1140,7 @@
.local pmc match
.lex "$/", match
length rx24_eos, rx24_tgt
+ gt rx24_pos, rx24_eos, rx24_done
set rx24_off, 0
lt rx24_pos, 2, rx24_start
sub rx24_off, rx24_pos, 1
@@ -1214,7 +1218,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__termish" :subid("15_1275117579.6042") :method
+.sub "!PREFIX__termish" :subid("15_1275811471.14938") :method
.annotate 'line', 5
new $P26, "ResizablePMCArray"
push $P26, ""
@@ -1223,7 +1227,7 @@
.namespace ["HLL";"Grammar"]
-.sub "term" :subid("16_1275117579.6042") :method
+.sub "term" :subid("16_1275811471.14938") :method
.annotate 'line', 13
$P33 = self."!protoregex"("term")
.return ($P33)
@@ -1231,7 +1235,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__term" :subid("17_1275117579.6042") :method
+.sub "!PREFIX__term" :subid("17_1275811471.14938") :method
.annotate 'line', 13
$P35 = self."!PREFIX__!protoregex"("term")
.return ($P35)
@@ -1239,7 +1243,7 @@
.namespace ["HLL";"Grammar"]
-.sub "infix" :subid("18_1275117579.6042") :method
+.sub "infix" :subid("18_1275811471.14938") :method
.annotate 'line', 14
$P37 = self."!protoregex"("infix")
.return ($P37)
@@ -1247,7 +1251,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__infix" :subid("19_1275117579.6042") :method
+.sub "!PREFIX__infix" :subid("19_1275811471.14938") :method
.annotate 'line', 14
$P39 = self."!PREFIX__!protoregex"("infix")
.return ($P39)
@@ -1255,7 +1259,7 @@
.namespace ["HLL";"Grammar"]
-.sub "prefix" :subid("20_1275117579.6042") :method
+.sub "prefix" :subid("20_1275811471.14938") :method
.annotate 'line', 15
$P41 = self."!protoregex"("prefix")
.return ($P41)
@@ -1263,7 +1267,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__prefix" :subid("21_1275117579.6042") :method
+.sub "!PREFIX__prefix" :subid("21_1275811471.14938") :method
.annotate 'line', 15
$P43 = self."!PREFIX__!protoregex"("prefix")
.return ($P43)
@@ -1271,7 +1275,7 @@
.namespace ["HLL";"Grammar"]
-.sub "postfix" :subid("22_1275117579.6042") :method
+.sub "postfix" :subid("22_1275811471.14938") :method
.annotate 'line', 16
$P45 = self."!protoregex"("postfix")
.return ($P45)
@@ -1279,7 +1283,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postfix" :subid("23_1275117579.6042") :method
+.sub "!PREFIX__postfix" :subid("23_1275811471.14938") :method
.annotate 'line', 16
$P47 = self."!PREFIX__!protoregex"("postfix")
.return ($P47)
@@ -1287,7 +1291,7 @@
.namespace ["HLL";"Grammar"]
-.sub "circumfix" :subid("24_1275117579.6042") :method
+.sub "circumfix" :subid("24_1275811471.14938") :method
.annotate 'line', 17
$P49 = self."!protoregex"("circumfix")
.return ($P49)
@@ -1295,7 +1299,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__circumfix" :subid("25_1275117579.6042") :method
+.sub "!PREFIX__circumfix" :subid("25_1275811471.14938") :method
.annotate 'line', 17
$P51 = self."!PREFIX__!protoregex"("circumfix")
.return ($P51)
@@ -1303,7 +1307,7 @@
.namespace ["HLL";"Grammar"]
-.sub "postcircumfix" :subid("26_1275117579.6042") :method
+.sub "postcircumfix" :subid("26_1275811471.14938") :method
.annotate 'line', 18
$P53 = self."!protoregex"("postcircumfix")
.return ($P53)
@@ -1311,7 +1315,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postcircumfix" :subid("27_1275117579.6042") :method
+.sub "!PREFIX__postcircumfix" :subid("27_1275811471.14938") :method
.annotate 'line', 18
$P55 = self."!PREFIX__!protoregex"("postcircumfix")
.return ($P55)
@@ -1319,7 +1323,7 @@
.namespace ["HLL";"Grammar"]
-.sub "term:sym<circumfix>" :subid("28_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "term:sym<circumfix>" :subid("28_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx57_tgt
.local int rx57_pos
@@ -1333,6 +1337,7 @@
.local pmc match
.lex "$/", match
length rx57_eos, rx57_tgt
+ gt rx57_pos, rx57_eos, rx57_done
set rx57_off, 0
lt rx57_pos, 2, rx57_start
sub rx57_off, rx57_pos, 1
@@ -1377,7 +1382,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__term:sym<circumfix>" :subid("29_1275117579.6042") :method
+.sub "!PREFIX__term:sym<circumfix>" :subid("29_1275811471.14938") :method
.annotate 'line', 5
$P59 = self."!PREFIX__!subrule"("circumfix", "")
new $P60, "ResizablePMCArray"
@@ -1387,7 +1392,7 @@
.namespace ["HLL";"Grammar"]
-.sub "infixish" :subid("30_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "infixish" :subid("30_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx63_tgt
.local int rx63_pos
@@ -1401,6 +1406,7 @@
.local pmc match
.lex "$/", match
length rx63_eos, rx63_tgt
+ gt rx63_pos, rx63_eos, rx63_done
set rx63_off, 0
lt rx63_pos, 2, rx63_start
sub rx63_off, rx63_pos, 1
@@ -1445,9 +1451,9 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__infixish" :subid("31_1275117579.6042") :method
+.sub "!PREFIX__infixish" :subid("31_1275811471.14938") :method
.annotate 'line', 5
- $P65 = self."!PREFIX__!subrule"("OPER=infix", "")
+ $P65 = self."!PREFIX__!subrule"("infix", "")
new $P66, "ResizablePMCArray"
push $P66, $P65
.return ($P66)
@@ -1455,7 +1461,7 @@
.namespace ["HLL";"Grammar"]
-.sub "prefixish" :subid("32_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "prefixish" :subid("32_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx69_tgt
.local int rx69_pos
@@ -1469,6 +1475,7 @@
.local pmc match
.lex "$/", match
length rx69_eos, rx69_tgt
+ gt rx69_pos, rx69_eos, rx69_done
set rx69_off, 0
lt rx69_pos, 2, rx69_start
sub rx69_off, rx69_pos, 1
@@ -1518,9 +1525,9 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__prefixish" :subid("33_1275117579.6042") :method
+.sub "!PREFIX__prefixish" :subid("33_1275811471.14938") :method
.annotate 'line', 5
- $P71 = self."!PREFIX__!subrule"("OPER=prefix", "")
+ $P71 = self."!PREFIX__!subrule"("prefix", "")
new $P72, "ResizablePMCArray"
push $P72, $P71
.return ($P72)
@@ -1528,7 +1535,7 @@
.namespace ["HLL";"Grammar"]
-.sub "postfixish" :subid("34_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "postfixish" :subid("34_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx75_tgt
.local int rx75_pos
@@ -1542,6 +1549,7 @@
.local pmc match
.lex "$/", match
length rx75_eos, rx75_tgt
+ gt rx75_pos, rx75_eos, rx75_done
set rx75_off, 0
lt rx75_pos, 2, rx75_start
sub rx75_off, rx75_pos, 1
@@ -1602,10 +1610,10 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__postfixish" :subid("35_1275117579.6042") :method
+.sub "!PREFIX__postfixish" :subid("35_1275811471.14938") :method
.annotate 'line', 5
- $P77 = self."!PREFIX__!subrule"("OPER=postcircumfix", "")
- $P78 = self."!PREFIX__!subrule"("OPER=postfix", "")
+ $P77 = self."!PREFIX__!subrule"("postcircumfix", "")
+ $P78 = self."!PREFIX__!subrule"("postfix", "")
new $P79, "ResizablePMCArray"
push $P79, $P77
push $P79, $P78
@@ -1614,7 +1622,7 @@
.namespace ["HLL";"Grammar"]
-.sub "nullterm" :subid("36_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "nullterm" :subid("36_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx83_tgt
.local int rx83_pos
@@ -1628,6 +1636,7 @@
.local pmc match
.lex "$/", match
length rx83_eos, rx83_tgt
+ gt rx83_pos, rx83_eos, rx83_done
set rx83_off, 0
lt rx83_pos, 2, rx83_start
sub rx83_off, rx83_pos, 1
@@ -1665,7 +1674,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__nullterm" :subid("37_1275117579.6042") :method
+.sub "!PREFIX__nullterm" :subid("37_1275811471.14938") :method
.annotate 'line', 5
new $P85, "ResizablePMCArray"
push $P85, ""
@@ -1674,7 +1683,7 @@
.namespace ["HLL";"Grammar"]
-.sub "nullterm_alt" :subid("38_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "nullterm_alt" :subid("38_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 5
.local string rx88_tgt
.local int rx88_pos
@@ -1688,6 +1697,7 @@
.local pmc match
.lex "$/", match
length rx88_eos, rx88_tgt
+ gt rx88_pos, rx88_eos, rx88_done
set rx88_off, 0
lt rx88_pos, 2, rx88_start
sub rx88_off, rx88_pos, 1
@@ -1732,9 +1742,9 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__nullterm_alt" :subid("39_1275117579.6042") :method
+.sub "!PREFIX__nullterm_alt" :subid("39_1275811471.14938") :method
.annotate 'line', 5
- $P90 = self."!PREFIX__!subrule"("term", "")
+ $P90 = self."!PREFIX__!subrule"("nullterm", "")
new $P91, "ResizablePMCArray"
push $P91, $P90
.return ($P91)
@@ -1742,11 +1752,12 @@
.namespace ["HLL";"Grammar"]
-.sub "nulltermish" :subid("40_1275117579.6042") :method :outer("11_1275117579.6042")
+.include "except_types.pasm"
+.sub "nulltermish" :subid("40_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
new $P95, 'ExceptionHandler'
set_addr $P95, control_94
- $P95."handle_types"(57)
+ $P95."handle_types"(.CONTROL_RETURN)
push_eh $P95
.lex "self", self
find_lex $P98, "self"
@@ -1769,7 +1780,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_delimited" :subid("41_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_delimited" :subid("41_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx104_tgt
.local int rx104_pos
@@ -1784,6 +1795,7 @@
.local pmc match
.lex "$/", match
length rx104_eos, rx104_tgt
+ gt rx104_pos, rx104_eos, rx104_done
set rx104_off, 0
lt rx104_pos, 2, rx104_start
sub rx104_off, rx104_pos, 1
@@ -1851,7 +1863,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_delimited" :subid("42_1275117579.6042") :method
+.sub "!PREFIX__quote_delimited" :subid("42_1275811471.14938") :method
.annotate 'line', 33
$P106 = self."!PREFIX__!subrule"("starter", "")
new $P107, "ResizablePMCArray"
@@ -1861,7 +1873,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_atom" :subid("43_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_atom" :subid("43_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx112_tgt
.local int rx112_pos
@@ -1875,6 +1887,7 @@
.local pmc match
.lex "$/", match
length rx112_eos, rx112_tgt
+ gt rx112_pos, rx112_eos, rx112_done
set rx112_off, 0
lt rx112_pos, 2, rx112_start
sub rx112_off, rx112_pos, 1
@@ -1952,7 +1965,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_atom" :subid("44_1275117579.6042") :method
+.sub "!PREFIX__quote_atom" :subid("44_1275811471.14938") :method
.annotate 'line', 33
new $P114, "ResizablePMCArray"
push $P114, ""
@@ -1961,7 +1974,7 @@
.namespace ["HLL";"Grammar"]
-.sub "decint" :subid("45_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "decint" :subid("45_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx122_tgt
.local int rx122_pos
@@ -1975,6 +1988,7 @@
.local pmc match
.lex "$/", match
length rx122_eos, rx122_tgt
+ gt rx122_pos, rx122_eos, rx122_done
set rx122_off, 0
lt rx122_pos, 2, rx122_start
sub rx122_off, rx122_pos, 1
@@ -2033,7 +2047,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__decint" :subid("46_1275117579.6042") :method
+.sub "!PREFIX__decint" :subid("46_1275811471.14938") :method
.annotate 'line', 33
new $P124, "ResizablePMCArray"
push $P124, ""
@@ -2042,7 +2056,7 @@
.namespace ["HLL";"Grammar"]
-.sub "decints" :subid("47_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "decints" :subid("47_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx129_tgt
.local int rx129_pos
@@ -2057,6 +2071,7 @@
.local pmc match
.lex "$/", match
length rx129_eos, rx129_tgt
+ gt rx129_pos, rx129_eos, rx129_done
set rx129_off, 0
lt rx129_pos, 2, rx129_start
sub rx129_off, rx129_pos, 1
@@ -2126,7 +2141,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__decints" :subid("48_1275117579.6042") :method
+.sub "!PREFIX__decints" :subid("48_1275811471.14938") :method
.annotate 'line', 33
new $P131, "ResizablePMCArray"
push $P131, ""
@@ -2135,7 +2150,7 @@
.namespace ["HLL";"Grammar"]
-.sub "hexint" :subid("49_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "hexint" :subid("49_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx136_tgt
.local int rx136_pos
@@ -2149,6 +2164,7 @@
.local pmc match
.lex "$/", match
length rx136_eos, rx136_tgt
+ gt rx136_pos, rx136_eos, rx136_done
set rx136_off, 0
lt rx136_pos, 2, rx136_start
sub rx136_off, rx136_pos, 1
@@ -2216,7 +2232,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__hexint" :subid("50_1275117579.6042") :method
+.sub "!PREFIX__hexint" :subid("50_1275811471.14938") :method
.annotate 'line', 33
new $P138, "ResizablePMCArray"
push $P138, ""
@@ -2225,7 +2241,7 @@
.namespace ["HLL";"Grammar"]
-.sub "hexints" :subid("51_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "hexints" :subid("51_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx145_tgt
.local int rx145_pos
@@ -2240,6 +2256,7 @@
.local pmc match
.lex "$/", match
length rx145_eos, rx145_tgt
+ gt rx145_pos, rx145_eos, rx145_done
set rx145_off, 0
lt rx145_pos, 2, rx145_start
sub rx145_off, rx145_pos, 1
@@ -2309,7 +2326,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__hexints" :subid("52_1275117579.6042") :method
+.sub "!PREFIX__hexints" :subid("52_1275811471.14938") :method
.annotate 'line', 33
new $P147, "ResizablePMCArray"
push $P147, ""
@@ -2318,7 +2335,7 @@
.namespace ["HLL";"Grammar"]
-.sub "octint" :subid("53_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "octint" :subid("53_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx152_tgt
.local int rx152_pos
@@ -2332,6 +2349,7 @@
.local pmc match
.lex "$/", match
length rx152_eos, rx152_tgt
+ gt rx152_pos, rx152_eos, rx152_done
set rx152_off, 0
lt rx152_pos, 2, rx152_start
sub rx152_off, rx152_pos, 1
@@ -2399,7 +2417,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__octint" :subid("54_1275117579.6042") :method
+.sub "!PREFIX__octint" :subid("54_1275811471.14938") :method
.annotate 'line', 33
new $P154, "ResizablePMCArray"
push $P154, ""
@@ -2408,7 +2426,7 @@
.namespace ["HLL";"Grammar"]
-.sub "octints" :subid("55_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "octints" :subid("55_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx161_tgt
.local int rx161_pos
@@ -2423,6 +2441,7 @@
.local pmc match
.lex "$/", match
length rx161_eos, rx161_tgt
+ gt rx161_pos, rx161_eos, rx161_done
set rx161_off, 0
lt rx161_pos, 2, rx161_start
sub rx161_off, rx161_pos, 1
@@ -2492,7 +2511,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__octints" :subid("56_1275117579.6042") :method
+.sub "!PREFIX__octints" :subid("56_1275811471.14938") :method
.annotate 'line', 33
new $P163, "ResizablePMCArray"
push $P163, ""
@@ -2501,7 +2520,7 @@
.namespace ["HLL";"Grammar"]
-.sub "binint" :subid("57_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "binint" :subid("57_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx168_tgt
.local int rx168_pos
@@ -2515,6 +2534,7 @@
.local pmc match
.lex "$/", match
length rx168_eos, rx168_tgt
+ gt rx168_pos, rx168_eos, rx168_done
set rx168_off, 0
lt rx168_pos, 2, rx168_start
sub rx168_off, rx168_pos, 1
@@ -2582,7 +2602,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__binint" :subid("58_1275117579.6042") :method
+.sub "!PREFIX__binint" :subid("58_1275811471.14938") :method
.annotate 'line', 33
new $P170, "ResizablePMCArray"
push $P170, ""
@@ -2591,7 +2611,7 @@
.namespace ["HLL";"Grammar"]
-.sub "binints" :subid("59_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "binints" :subid("59_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx177_tgt
.local int rx177_pos
@@ -2606,6 +2626,7 @@
.local pmc match
.lex "$/", match
length rx177_eos, rx177_tgt
+ gt rx177_pos, rx177_eos, rx177_done
set rx177_off, 0
lt rx177_pos, 2, rx177_start
sub rx177_off, rx177_pos, 1
@@ -2675,7 +2696,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__binints" :subid("60_1275117579.6042") :method
+.sub "!PREFIX__binints" :subid("60_1275811471.14938") :method
.annotate 'line', 33
new $P179, "ResizablePMCArray"
push $P179, ""
@@ -2684,7 +2705,7 @@
.namespace ["HLL";"Grammar"]
-.sub "integer" :subid("61_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "integer" :subid("61_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx184_tgt
.local int rx184_pos
@@ -2698,6 +2719,7 @@
.local pmc match
.lex "$/", match
length rx184_eos, rx184_tgt
+ gt rx184_pos, rx184_eos, rx184_done
set rx184_off, 0
lt rx184_pos, 2, rx184_start
sub rx184_off, rx184_pos, 1
@@ -2832,13 +2854,13 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__integer" :subid("62_1275117579.6042") :method
+.sub "!PREFIX__integer" :subid("62_1275811471.14938") :method
.annotate 'line', 33
- $P186 = self."!PREFIX__!subrule"("VALUE=decint", "")
- $P187 = self."!PREFIX__!subrule"("VALUE=decint", "0d")
- $P188 = self."!PREFIX__!subrule"("VALUE=hexint", "0x")
- $P189 = self."!PREFIX__!subrule"("VALUE=octint", "0o")
- $P190 = self."!PREFIX__!subrule"("VALUE=binint", "0b")
+ $P186 = self."!PREFIX__!subrule"("decint", "")
+ $P187 = self."!PREFIX__!subrule"("decint", "0d")
+ $P188 = self."!PREFIX__!subrule"("hexint", "0x")
+ $P189 = self."!PREFIX__!subrule"("octint", "0o")
+ $P190 = self."!PREFIX__!subrule"("binint", "0b")
new $P191, "ResizablePMCArray"
push $P191, $P186
push $P191, $P187
@@ -2850,7 +2872,7 @@
.namespace ["HLL";"Grammar"]
-.sub "dec_number" :subid("63_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "dec_number" :subid("63_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx196_tgt
.local int rx196_pos
@@ -2865,6 +2887,7 @@
.local pmc match
.lex "$/", match
length rx196_eos, rx196_tgt
+ gt rx196_pos, rx196_eos, rx196_done
set rx196_off, 0
lt rx196_pos, 2, rx196_start
sub rx196_off, rx196_pos, 1
@@ -3029,7 +3052,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__dec_number" :subid("64_1275117579.6042") :method
+.sub "!PREFIX__dec_number" :subid("64_1275811471.14938") :method
.annotate 'line', 33
new $P198, "ResizablePMCArray"
push $P198, ""
@@ -3040,7 +3063,7 @@
.namespace ["HLL";"Grammar"]
-.sub "escale" :subid("65_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "escale" :subid("65_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx209_tgt
.local int rx209_pos
@@ -3054,6 +3077,7 @@
.local pmc match
.lex "$/", match
length rx209_eos, rx209_tgt
+ gt rx209_pos, rx209_eos, rx209_done
set rx209_off, 0
lt rx209_pos, 2, rx209_start
sub rx209_off, rx209_pos, 1
@@ -3117,7 +3141,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__escale" :subid("66_1275117579.6042") :method
+.sub "!PREFIX__escale" :subid("66_1275811471.14938") :method
.annotate 'line', 33
new $P211, "ResizablePMCArray"
push $P211, "e"
@@ -3127,7 +3151,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape" :subid("67_1275117579.6042") :method
+.sub "quote_escape" :subid("67_1275811471.14938") :method
.annotate 'line', 79
$P216 = self."!protoregex"("quote_escape")
.return ($P216)
@@ -3135,7 +3159,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape" :subid("68_1275117579.6042") :method
+.sub "!PREFIX__quote_escape" :subid("68_1275811471.14938") :method
.annotate 'line', 79
$P218 = self."!PREFIX__!protoregex"("quote_escape")
.return ($P218)
@@ -3143,7 +3167,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<backslash>" :subid("69_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<backslash>" :subid("69_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx220_tgt
.local int rx220_pos
@@ -3157,6 +3181,7 @@
.local pmc match
.lex "$/", match
length rx220_eos, rx220_tgt
+ gt rx220_pos, rx220_eos, rx220_done
set rx220_off, 0
lt rx220_pos, 2, rx220_start
sub rx220_off, rx220_pos, 1
@@ -3205,7 +3230,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<backslash>" :subid("70_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<backslash>" :subid("70_1275811471.14938") :method
.annotate 'line', 33
new $P222, "ResizablePMCArray"
push $P222, "\\\\"
@@ -3214,7 +3239,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<stopper>" :subid("71_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<stopper>" :subid("71_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx225_tgt
.local int rx225_pos
@@ -3228,6 +3253,7 @@
.local pmc match
.lex "$/", match
length rx225_eos, rx225_tgt
+ gt rx225_pos, rx225_eos, rx225_done
set rx225_off, 0
lt rx225_pos, 2, rx225_start
sub rx225_off, rx225_pos, 1
@@ -3283,7 +3309,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<stopper>" :subid("72_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<stopper>" :subid("72_1275811471.14938") :method
.annotate 'line', 33
new $P227, "ResizablePMCArray"
push $P227, "\\"
@@ -3292,7 +3318,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<bs>" :subid("73_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<bs>" :subid("73_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx230_tgt
.local int rx230_pos
@@ -3306,6 +3332,7 @@
.local pmc match
.lex "$/", match
length rx230_eos, rx230_tgt
+ gt rx230_pos, rx230_eos, rx230_done
set rx230_off, 0
lt rx230_pos, 2, rx230_start
sub rx230_off, rx230_pos, 1
@@ -3354,7 +3381,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<bs>" :subid("74_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<bs>" :subid("74_1275811471.14938") :method
.annotate 'line', 33
new $P232, "ResizablePMCArray"
push $P232, "\\b"
@@ -3363,7 +3390,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<nl>" :subid("75_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<nl>" :subid("75_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx235_tgt
.local int rx235_pos
@@ -3377,6 +3404,7 @@
.local pmc match
.lex "$/", match
length rx235_eos, rx235_tgt
+ gt rx235_pos, rx235_eos, rx235_done
set rx235_off, 0
lt rx235_pos, 2, rx235_start
sub rx235_off, rx235_pos, 1
@@ -3425,7 +3453,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<nl>" :subid("76_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<nl>" :subid("76_1275811471.14938") :method
.annotate 'line', 33
new $P237, "ResizablePMCArray"
push $P237, "\\n"
@@ -3434,7 +3462,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<cr>" :subid("77_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<cr>" :subid("77_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx240_tgt
.local int rx240_pos
@@ -3448,6 +3476,7 @@
.local pmc match
.lex "$/", match
length rx240_eos, rx240_tgt
+ gt rx240_pos, rx240_eos, rx240_done
set rx240_off, 0
lt rx240_pos, 2, rx240_start
sub rx240_off, rx240_pos, 1
@@ -3496,7 +3525,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<cr>" :subid("78_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<cr>" :subid("78_1275811471.14938") :method
.annotate 'line', 33
new $P242, "ResizablePMCArray"
push $P242, "\\r"
@@ -3505,7 +3534,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<tab>" :subid("79_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<tab>" :subid("79_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx245_tgt
.local int rx245_pos
@@ -3519,6 +3548,7 @@
.local pmc match
.lex "$/", match
length rx245_eos, rx245_tgt
+ gt rx245_pos, rx245_eos, rx245_done
set rx245_off, 0
lt rx245_pos, 2, rx245_start
sub rx245_off, rx245_pos, 1
@@ -3567,7 +3597,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<tab>" :subid("80_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<tab>" :subid("80_1275811471.14938") :method
.annotate 'line', 33
new $P247, "ResizablePMCArray"
push $P247, "\\t"
@@ -3576,7 +3606,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<ff>" :subid("81_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<ff>" :subid("81_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx250_tgt
.local int rx250_pos
@@ -3590,6 +3620,7 @@
.local pmc match
.lex "$/", match
length rx250_eos, rx250_tgt
+ gt rx250_pos, rx250_eos, rx250_done
set rx250_off, 0
lt rx250_pos, 2, rx250_start
sub rx250_off, rx250_pos, 1
@@ -3638,7 +3669,7 @@
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<ff>" :subid("82_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<ff>" :subid("82_1275811471.14938") :method
.annotate 'line', 33
new $P252, "ResizablePMCArray"
push $P252, "\\f"
@@ -3647,7 +3678,7 @@
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<hex>" :subid("83_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<esc>" :subid("83_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx255_tgt
.local int rx255_pos
@@ -3656,11 +3687,12 @@
.local int rx255_rep
.local pmc rx255_cur
(rx255_cur, rx255_pos, rx255_tgt) = self."!cursor_start"()
- rx255_cur."!cursor_debug"("START ", "quote_escape:sym<hex>")
+ rx255_cur."!cursor_debug"("START ", "quote_escape:sym<esc>")
.lex unicode:"$\x{a2}", rx255_cur
.local pmc match
.lex "$/", match
length rx255_eos, rx255_tgt
+ gt rx255_pos, rx255_eos, rx255_done
set rx255_off, 0
lt rx255_pos, 2, rx255_start
sub rx255_off, rx255_pos, 1
@@ -3678,57 +3710,21 @@
set_addr $I10, rxscan258_loop
rx255_cur."!mark_push"(0, rx255_pos, $I10)
rxscan258_done:
-.annotate 'line', 89
- # rx literal unicode:"\\x"
+.annotate 'line', 88
+ # rx literal "\\e"
add $I11, rx255_pos, 2
gt $I11, rx255_eos, rx255_fail
sub $I11, rx255_pos, rx255_off
substr $S10, rx255_tgt, $I11, 2
- ne $S10, unicode:"\\x", rx255_fail
+ ne $S10, "\\e", rx255_fail
add rx255_pos, 2
# rx subrule "quotemod_check" subtype=zerowidth negate=
rx255_cur."!cursor_pos"(rx255_pos)
$P10 = rx255_cur."quotemod_check"("b")
unless $P10, rx255_fail
- alt259_0:
-.annotate 'line', 90
- set_addr $I10, alt259_1
- rx255_cur."!mark_push"(0, rx255_pos, $I10)
- # rx subrule "hexint" subtype=capture negate=
- rx255_cur."!cursor_pos"(rx255_pos)
- $P10 = rx255_cur."hexint"()
- unless $P10, rx255_fail
- rx255_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("hexint")
- rx255_pos = $P10."pos"()
- goto alt259_end
- alt259_1:
- # rx literal "["
- add $I11, rx255_pos, 1
- gt $I11, rx255_eos, rx255_fail
- sub $I11, rx255_pos, rx255_off
- substr $S10, rx255_tgt, $I11, 1
- ne $S10, "[", rx255_fail
- add rx255_pos, 1
- # rx subrule "hexints" subtype=capture negate=
- rx255_cur."!cursor_pos"(rx255_pos)
- $P10 = rx255_cur."hexints"()
- unless $P10, rx255_fail
- rx255_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("hexints")
- rx255_pos = $P10."pos"()
- # rx literal "]"
- add $I11, rx255_pos, 1
- gt $I11, rx255_eos, rx255_fail
- sub $I11, rx255_pos, rx255_off
- substr $S10, rx255_tgt, $I11, 1
- ne $S10, "]", rx255_fail
- add rx255_pos, 1
- alt259_end:
-.annotate 'line', 88
# rx pass
- rx255_cur."!cursor_pass"(rx255_pos, "quote_escape:sym<hex>")
- rx255_cur."!cursor_debug"("PASS ", "quote_escape:sym<hex>", " at pos=", rx255_pos)
+ rx255_cur."!cursor_pass"(rx255_pos, "quote_escape:sym<esc>")
+ rx255_cur."!cursor_debug"("PASS ", "quote_escape:sym<esc>", " at pos=", rx255_pos)
.return (rx255_cur)
rx255_fail:
.annotate 'line', 33
@@ -3738,208 +3734,239 @@
jump $I10
rx255_done:
rx255_cur."!cursor_fail"()
- rx255_cur."!cursor_debug"("FAIL ", "quote_escape:sym<hex>")
+ rx255_cur."!cursor_debug"("FAIL ", "quote_escape:sym<esc>")
.return (rx255_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<hex>" :subid("84_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<esc>" :subid("84_1275811471.14938") :method
.annotate 'line', 33
new $P257, "ResizablePMCArray"
- push $P257, unicode:"\\x"
+ push $P257, "\\e"
.return ($P257)
.end
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<oct>" :subid("85_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<hex>" :subid("85_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
- .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 ", "quote_escape:sym<oct>")
- .lex unicode:"$\x{a2}", rx261_cur
+ .local string rx260_tgt
+ .local int rx260_pos
+ .local int rx260_off
+ .local int rx260_eos
+ .local int rx260_rep
+ .local pmc rx260_cur
+ (rx260_cur, rx260_pos, rx260_tgt) = self."!cursor_start"()
+ rx260_cur."!cursor_debug"("START ", "quote_escape:sym<hex>")
+ .lex unicode:"$\x{a2}", rx260_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:
+ length rx260_eos, rx260_tgt
+ gt rx260_pos, rx260_eos, rx260_done
+ set rx260_off, 0
+ lt rx260_pos, 2, rx260_start
+ sub rx260_off, rx260_pos, 1
+ substr rx260_tgt, rx260_tgt, rx260_off
+ rx260_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan264_done
- goto rxscan264_scan
- rxscan264_loop:
- ($P10) = rx261_cur."from"()
+ ne $I10, -1, rxscan263_done
+ goto rxscan263_scan
+ rxscan263_loop:
+ ($P10) = rx260_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', 93
- # rx literal "\\o"
- 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, "\\o", rx261_fail
- add rx261_pos, 2
+ set rx260_pos, $P10
+ ge rx260_pos, rx260_eos, rxscan263_done
+ rxscan263_scan:
+ set_addr $I10, rxscan263_loop
+ rx260_cur."!mark_push"(0, rx260_pos, $I10)
+ rxscan263_done:
+.annotate 'line', 90
+ # rx literal unicode:"\\x"
+ add $I11, rx260_pos, 2
+ gt $I11, rx260_eos, rx260_fail
+ sub $I11, rx260_pos, rx260_off
+ substr $S10, rx260_tgt, $I11, 2
+ ne $S10, unicode:"\\x", rx260_fail
+ add rx260_pos, 2
# rx subrule "quotemod_check" subtype=zerowidth negate=
- rx261_cur."!cursor_pos"(rx261_pos)
- $P10 = rx261_cur."quotemod_check"("b")
- unless $P10, rx261_fail
- alt265_0:
-.annotate 'line', 94
- set_addr $I10, alt265_1
- rx261_cur."!mark_push"(0, rx261_pos, $I10)
- # rx subrule "octint" subtype=capture negate=
- rx261_cur."!cursor_pos"(rx261_pos)
- $P10 = rx261_cur."octint"()
- unless $P10, rx261_fail
- rx261_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("octint")
- rx261_pos = $P10."pos"()
- goto alt265_end
- alt265_1:
+ rx260_cur."!cursor_pos"(rx260_pos)
+ $P10 = rx260_cur."quotemod_check"("b")
+ unless $P10, rx260_fail
+ alt264_0:
+.annotate 'line', 91
+ set_addr $I10, alt264_1
+ rx260_cur."!mark_push"(0, rx260_pos, $I10)
+ # rx subrule "hexint" subtype=capture negate=
+ rx260_cur."!cursor_pos"(rx260_pos)
+ $P10 = rx260_cur."hexint"()
+ unless $P10, rx260_fail
+ rx260_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("hexint")
+ rx260_pos = $P10."pos"()
+ goto alt264_end
+ alt264_1:
# rx literal "["
- add $I11, rx261_pos, 1
- gt $I11, rx261_eos, rx261_fail
- sub $I11, rx261_pos, rx261_off
- substr $S10, rx261_tgt, $I11, 1
- ne $S10, "[", rx261_fail
- add rx261_pos, 1
- # rx subrule "octints" subtype=capture negate=
- rx261_cur."!cursor_pos"(rx261_pos)
- $P10 = rx261_cur."octints"()
- unless $P10, rx261_fail
- rx261_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("octints")
- rx261_pos = $P10."pos"()
+ add $I11, rx260_pos, 1
+ gt $I11, rx260_eos, rx260_fail
+ sub $I11, rx260_pos, rx260_off
+ substr $S10, rx260_tgt, $I11, 1
+ ne $S10, "[", rx260_fail
+ add rx260_pos, 1
+ # rx subrule "hexints" subtype=capture negate=
+ rx260_cur."!cursor_pos"(rx260_pos)
+ $P10 = rx260_cur."hexints"()
+ unless $P10, rx260_fail
+ rx260_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("hexints")
+ rx260_pos = $P10."pos"()
# rx literal "]"
- add $I11, rx261_pos, 1
- gt $I11, rx261_eos, rx261_fail
- sub $I11, rx261_pos, rx261_off
- substr $S10, rx261_tgt, $I11, 1
- ne $S10, "]", rx261_fail
- add rx261_pos, 1
- alt265_end:
-.annotate 'line', 92
+ add $I11, rx260_pos, 1
+ gt $I11, rx260_eos, rx260_fail
+ sub $I11, rx260_pos, rx260_off
+ substr $S10, rx260_tgt, $I11, 1
+ ne $S10, "]", rx260_fail
+ add rx260_pos, 1
+ alt264_end:
+.annotate 'line', 89
# rx pass
- rx261_cur."!cursor_pass"(rx261_pos, "quote_escape:sym<oct>")
- rx261_cur."!cursor_debug"("PASS ", "quote_escape:sym<oct>", " at pos=", rx261_pos)
- .return (rx261_cur)
- rx261_fail:
-.annotate 'line', 33
- (rx261_rep, rx261_pos, $I10, $P10) = rx261_cur."!mark_fail"(0)
- lt rx261_pos, -1, rx261_done
- eq rx261_pos, -1, rx261_fail
+ rx260_cur."!cursor_pass"(rx260_pos, "quote_escape:sym<hex>")
+ rx260_cur."!cursor_debug"("PASS ", "quote_escape:sym<hex>", " at pos=", rx260_pos)
+ .return (rx260_cur)
+ rx260_fail:
+.annotate 'line', 33
+ (rx260_rep, rx260_pos, $I10, $P10) = rx260_cur."!mark_fail"(0)
+ lt rx260_pos, -1, rx260_done
+ eq rx260_pos, -1, rx260_fail
jump $I10
- rx261_done:
- rx261_cur."!cursor_fail"()
- rx261_cur."!cursor_debug"("FAIL ", "quote_escape:sym<oct>")
- .return (rx261_cur)
+ rx260_done:
+ rx260_cur."!cursor_fail"()
+ rx260_cur."!cursor_debug"("FAIL ", "quote_escape:sym<hex>")
+ .return (rx260_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<oct>" :subid("86_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<hex>" :subid("86_1275811471.14938") :method
.annotate 'line', 33
- new $P263, "ResizablePMCArray"
- push $P263, "\\o"
- .return ($P263)
+ new $P262, "ResizablePMCArray"
+ push $P262, unicode:"\\x"
+ .return ($P262)
.end
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<chr>" :subid("87_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<oct>" :subid("87_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
- .local string rx267_tgt
- .local int rx267_pos
- .local int rx267_off
- .local int rx267_eos
- .local int rx267_rep
- .local pmc rx267_cur
- (rx267_cur, rx267_pos, rx267_tgt) = self."!cursor_start"()
- rx267_cur."!cursor_debug"("START ", "quote_escape:sym<chr>")
- .lex unicode:"$\x{a2}", rx267_cur
+ .local string rx266_tgt
+ .local int rx266_pos
+ .local int rx266_off
+ .local int rx266_eos
+ .local int rx266_rep
+ .local pmc rx266_cur
+ (rx266_cur, rx266_pos, rx266_tgt) = self."!cursor_start"()
+ rx266_cur."!cursor_debug"("START ", "quote_escape:sym<oct>")
+ .lex unicode:"$\x{a2}", rx266_cur
.local pmc match
.lex "$/", match
- length rx267_eos, rx267_tgt
- set rx267_off, 0
- lt rx267_pos, 2, rx267_start
- sub rx267_off, rx267_pos, 1
- substr rx267_tgt, rx267_tgt, rx267_off
- rx267_start:
+ length rx266_eos, rx266_tgt
+ gt rx266_pos, rx266_eos, rx266_done
+ set rx266_off, 0
+ lt rx266_pos, 2, rx266_start
+ sub rx266_off, rx266_pos, 1
+ substr rx266_tgt, rx266_tgt, rx266_off
+ rx266_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan270_done
- goto rxscan270_scan
- rxscan270_loop:
- ($P10) = rx267_cur."from"()
+ ne $I10, -1, rxscan269_done
+ goto rxscan269_scan
+ rxscan269_loop:
+ ($P10) = rx266_cur."from"()
inc $P10
- set rx267_pos, $P10
- ge rx267_pos, rx267_eos, rxscan270_done
- rxscan270_scan:
- set_addr $I10, rxscan270_loop
- rx267_cur."!mark_push"(0, rx267_pos, $I10)
- rxscan270_done:
-.annotate 'line', 96
- # rx literal "\\c"
- add $I11, rx267_pos, 2
- gt $I11, rx267_eos, rx267_fail
- sub $I11, rx267_pos, rx267_off
- substr $S10, rx267_tgt, $I11, 2
- ne $S10, "\\c", rx267_fail
- add rx267_pos, 2
+ set rx266_pos, $P10
+ ge rx266_pos, rx266_eos, rxscan269_done
+ rxscan269_scan:
+ set_addr $I10, rxscan269_loop
+ rx266_cur."!mark_push"(0, rx266_pos, $I10)
+ rxscan269_done:
+.annotate 'line', 94
+ # rx literal "\\o"
+ add $I11, rx266_pos, 2
+ gt $I11, rx266_eos, rx266_fail
+ sub $I11, rx266_pos, rx266_off
+ substr $S10, rx266_tgt, $I11, 2
+ ne $S10, "\\o", rx266_fail
+ add rx266_pos, 2
# rx subrule "quotemod_check" subtype=zerowidth negate=
- rx267_cur."!cursor_pos"(rx267_pos)
- $P10 = rx267_cur."quotemod_check"("b")
- unless $P10, rx267_fail
- # rx subrule "charspec" subtype=capture negate=
- rx267_cur."!cursor_pos"(rx267_pos)
- $P10 = rx267_cur."charspec"()
- unless $P10, rx267_fail
- rx267_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("charspec")
- rx267_pos = $P10."pos"()
+ rx266_cur."!cursor_pos"(rx266_pos)
+ $P10 = rx266_cur."quotemod_check"("b")
+ unless $P10, rx266_fail
+ alt270_0:
+.annotate 'line', 95
+ set_addr $I10, alt270_1
+ rx266_cur."!mark_push"(0, rx266_pos, $I10)
+ # rx subrule "octint" subtype=capture negate=
+ rx266_cur."!cursor_pos"(rx266_pos)
+ $P10 = rx266_cur."octint"()
+ unless $P10, rx266_fail
+ rx266_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("octint")
+ rx266_pos = $P10."pos"()
+ goto alt270_end
+ alt270_1:
+ # rx literal "["
+ add $I11, rx266_pos, 1
+ gt $I11, rx266_eos, rx266_fail
+ sub $I11, rx266_pos, rx266_off
+ substr $S10, rx266_tgt, $I11, 1
+ ne $S10, "[", rx266_fail
+ add rx266_pos, 1
+ # rx subrule "octints" subtype=capture negate=
+ rx266_cur."!cursor_pos"(rx266_pos)
+ $P10 = rx266_cur."octints"()
+ unless $P10, rx266_fail
+ rx266_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("octints")
+ rx266_pos = $P10."pos"()
+ # rx literal "]"
+ add $I11, rx266_pos, 1
+ gt $I11, rx266_eos, rx266_fail
+ sub $I11, rx266_pos, rx266_off
+ substr $S10, rx266_tgt, $I11, 1
+ ne $S10, "]", rx266_fail
+ add rx266_pos, 1
+ alt270_end:
+.annotate 'line', 93
# rx pass
- rx267_cur."!cursor_pass"(rx267_pos, "quote_escape:sym<chr>")
- rx267_cur."!cursor_debug"("PASS ", "quote_escape:sym<chr>", " at pos=", rx267_pos)
- .return (rx267_cur)
- rx267_fail:
-.annotate 'line', 33
- (rx267_rep, rx267_pos, $I10, $P10) = rx267_cur."!mark_fail"(0)
- lt rx267_pos, -1, rx267_done
- eq rx267_pos, -1, rx267_fail
+ rx266_cur."!cursor_pass"(rx266_pos, "quote_escape:sym<oct>")
+ rx266_cur."!cursor_debug"("PASS ", "quote_escape:sym<oct>", " at pos=", rx266_pos)
+ .return (rx266_cur)
+ rx266_fail:
+.annotate 'line', 33
+ (rx266_rep, rx266_pos, $I10, $P10) = rx266_cur."!mark_fail"(0)
+ lt rx266_pos, -1, rx266_done
+ eq rx266_pos, -1, rx266_fail
jump $I10
- rx267_done:
- rx267_cur."!cursor_fail"()
- rx267_cur."!cursor_debug"("FAIL ", "quote_escape:sym<chr>")
- .return (rx267_cur)
+ rx266_done:
+ rx266_cur."!cursor_fail"()
+ rx266_cur."!cursor_debug"("FAIL ", "quote_escape:sym<oct>")
+ .return (rx266_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<chr>" :subid("88_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<oct>" :subid("88_1275811471.14938") :method
.annotate 'line', 33
- new $P269, "ResizablePMCArray"
- push $P269, "\\c"
- .return ($P269)
+ new $P268, "ResizablePMCArray"
+ push $P268, "\\o"
+ .return ($P268)
.end
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<0>" :subid("89_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<chr>" :subid("89_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
.local string rx272_tgt
.local int rx272_pos
@@ -3948,11 +3975,12 @@
.local int rx272_rep
.local pmc rx272_cur
(rx272_cur, rx272_pos, rx272_tgt) = self."!cursor_start"()
- rx272_cur."!cursor_debug"("START ", "quote_escape:sym<0>")
+ rx272_cur."!cursor_debug"("START ", "quote_escape:sym<chr>")
.lex unicode:"$\x{a2}", rx272_cur
.local pmc match
.lex "$/", match
length rx272_eos, rx272_tgt
+ gt rx272_pos, rx272_eos, rx272_done
set rx272_off, 0
lt rx272_pos, 2, rx272_start
sub rx272_off, rx272_pos, 1
@@ -3971,41 +3999,27 @@
rx272_cur."!mark_push"(0, rx272_pos, $I10)
rxscan275_done:
.annotate 'line', 97
- # rx literal "\\"
- add $I11, rx272_pos, 1
- gt $I11, rx272_eos, rx272_fail
- sub $I11, rx272_pos, rx272_off
- substr $S10, rx272_tgt, $I11, 1
- ne $S10, "\\", rx272_fail
- add rx272_pos, 1
- # rx subcapture "sym"
- set_addr $I10, rxcap_276_fail
- rx272_cur."!mark_push"(0, rx272_pos, $I10)
- # rx literal "0"
- add $I11, rx272_pos, 1
+ # rx literal "\\c"
+ add $I11, rx272_pos, 2
gt $I11, rx272_eos, rx272_fail
sub $I11, rx272_pos, rx272_off
- substr $S10, rx272_tgt, $I11, 1
- ne $S10, "0", rx272_fail
- add rx272_pos, 1
- set_addr $I10, rxcap_276_fail
- ($I12, $I11) = rx272_cur."!mark_peek"($I10)
- rx272_cur."!cursor_pos"($I11)
- ($P10) = rx272_cur."!cursor_start"()
- $P10."!cursor_pass"(rx272_pos, "")
- rx272_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sym")
- goto rxcap_276_done
- rxcap_276_fail:
- goto rx272_fail
- rxcap_276_done:
+ substr $S10, rx272_tgt, $I11, 2
+ ne $S10, "\\c", rx272_fail
+ add rx272_pos, 2
# rx subrule "quotemod_check" subtype=zerowidth negate=
rx272_cur."!cursor_pos"(rx272_pos)
$P10 = rx272_cur."quotemod_check"("b")
unless $P10, rx272_fail
+ # rx subrule "charspec" subtype=capture negate=
+ rx272_cur."!cursor_pos"(rx272_pos)
+ $P10 = rx272_cur."charspec"()
+ unless $P10, rx272_fail
+ rx272_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("charspec")
+ rx272_pos = $P10."pos"()
# rx pass
- rx272_cur."!cursor_pass"(rx272_pos, "quote_escape:sym<0>")
- rx272_cur."!cursor_debug"("PASS ", "quote_escape:sym<0>", " at pos=", rx272_pos)
+ rx272_cur."!cursor_pass"(rx272_pos, "quote_escape:sym<chr>")
+ rx272_cur."!cursor_debug"("PASS ", "quote_escape:sym<chr>", " at pos=", rx272_pos)
.return (rx272_cur)
rx272_fail:
.annotate 'line', 33
@@ -4015,775 +4029,874 @@
jump $I10
rx272_done:
rx272_cur."!cursor_fail"()
- rx272_cur."!cursor_debug"("FAIL ", "quote_escape:sym<0>")
+ rx272_cur."!cursor_debug"("FAIL ", "quote_escape:sym<chr>")
.return (rx272_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<0>" :subid("90_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<chr>" :subid("90_1275811471.14938") :method
.annotate 'line', 33
new $P274, "ResizablePMCArray"
- push $P274, "\\0"
+ push $P274, "\\c"
.return ($P274)
.end
.namespace ["HLL";"Grammar"]
-.sub "quote_escape:sym<misc>" :subid("91_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "quote_escape:sym<0>" :subid("91_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
- .const 'Sub' $P297 = "95_1275117579.6042"
- capture_lex $P297
- .const 'Sub' $P290 = "94_1275117579.6042"
- capture_lex $P290
- .const 'Sub' $P285 = "93_1275117579.6042"
- capture_lex $P285
- .local string rx278_tgt
- .local int rx278_pos
- .local int rx278_off
- .local int rx278_eos
- .local int rx278_rep
- .local pmc rx278_cur
- (rx278_cur, rx278_pos, rx278_tgt) = self."!cursor_start"()
- rx278_cur."!cursor_debug"("START ", "quote_escape:sym<misc>")
- .lex unicode:"$\x{a2}", rx278_cur
+ .local string rx277_tgt
+ .local int rx277_pos
+ .local int rx277_off
+ .local int rx277_eos
+ .local int rx277_rep
+ .local pmc rx277_cur
+ (rx277_cur, rx277_pos, rx277_tgt) = self."!cursor_start"()
+ rx277_cur."!cursor_debug"("START ", "quote_escape:sym<0>")
+ .lex unicode:"$\x{a2}", rx277_cur
.local pmc match
.lex "$/", match
- length rx278_eos, rx278_tgt
- set rx278_off, 0
- lt rx278_pos, 2, rx278_start
- sub rx278_off, rx278_pos, 1
- substr rx278_tgt, rx278_tgt, rx278_off
- rx278_start:
+ length rx277_eos, rx277_tgt
+ gt rx277_pos, rx277_eos, rx277_done
+ set rx277_off, 0
+ lt rx277_pos, 2, rx277_start
+ sub rx277_off, rx277_pos, 1
+ substr rx277_tgt, rx277_tgt, rx277_off
+ rx277_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan281_done
- goto rxscan281_scan
- rxscan281_loop:
- ($P10) = rx278_cur."from"()
+ ne $I10, -1, rxscan280_done
+ goto rxscan280_scan
+ rxscan280_loop:
+ ($P10) = rx277_cur."from"()
inc $P10
- set rx278_pos, $P10
- ge rx278_pos, rx278_eos, rxscan281_done
- rxscan281_scan:
- set_addr $I10, rxscan281_loop
- rx278_cur."!mark_push"(0, rx278_pos, $I10)
- rxscan281_done:
-.annotate 'line', 99
- rx278_cur."!cursor_pos"(rx278_pos)
- find_lex $P282, unicode:"$\x{a2}"
- $P283 = $P282."MATCH"()
- store_lex "$/", $P283
- .const 'Sub' $P285 = "93_1275117579.6042"
- capture_lex $P285
- $P286 = $P285()
+ set rx277_pos, $P10
+ ge rx277_pos, rx277_eos, rxscan280_done
+ rxscan280_scan:
+ set_addr $I10, rxscan280_loop
+ rx277_cur."!mark_push"(0, rx277_pos, $I10)
+ rxscan280_done:
+.annotate 'line', 98
# rx literal "\\"
- add $I11, rx278_pos, 1
- gt $I11, rx278_eos, rx278_fail
- sub $I11, rx278_pos, rx278_off
- substr $S10, rx278_tgt, $I11, 1
- ne $S10, "\\", rx278_fail
- add rx278_pos, 1
- alt287_0:
+ add $I11, rx277_pos, 1
+ gt $I11, rx277_eos, rx277_fail
+ sub $I11, rx277_pos, rx277_off
+ substr $S10, rx277_tgt, $I11, 1
+ ne $S10, "\\", rx277_fail
+ add rx277_pos, 1
+ # rx subcapture "sym"
+ set_addr $I10, rxcap_281_fail
+ rx277_cur."!mark_push"(0, rx277_pos, $I10)
+ # rx literal "0"
+ add $I11, rx277_pos, 1
+ gt $I11, rx277_eos, rx277_fail
+ sub $I11, rx277_pos, rx277_off
+ substr $S10, rx277_tgt, $I11, 1
+ ne $S10, "0", rx277_fail
+ add rx277_pos, 1
+ set_addr $I10, rxcap_281_fail
+ ($I12, $I11) = rx277_cur."!mark_peek"($I10)
+ rx277_cur."!cursor_pos"($I11)
+ ($P10) = rx277_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx277_pos, "")
+ rx277_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sym")
+ goto rxcap_281_done
+ rxcap_281_fail:
+ goto rx277_fail
+ rxcap_281_done:
+ # rx subrule "quotemod_check" subtype=zerowidth negate=
+ rx277_cur."!cursor_pos"(rx277_pos)
+ $P10 = rx277_cur."quotemod_check"("b")
+ unless $P10, rx277_fail
+ # rx pass
+ rx277_cur."!cursor_pass"(rx277_pos, "quote_escape:sym<0>")
+ rx277_cur."!cursor_debug"("PASS ", "quote_escape:sym<0>", " at pos=", rx277_pos)
+ .return (rx277_cur)
+ rx277_fail:
+.annotate 'line', 33
+ (rx277_rep, rx277_pos, $I10, $P10) = rx277_cur."!mark_fail"(0)
+ lt rx277_pos, -1, rx277_done
+ eq rx277_pos, -1, rx277_fail
+ jump $I10
+ rx277_done:
+ rx277_cur."!cursor_fail"()
+ rx277_cur."!cursor_debug"("FAIL ", "quote_escape:sym<0>")
+ .return (rx277_cur)
+ .return ()
+.end
+
+
+.namespace ["HLL";"Grammar"]
+.sub "!PREFIX__quote_escape:sym<0>" :subid("92_1275811471.14938") :method
+.annotate 'line', 33
+ new $P279, "ResizablePMCArray"
+ push $P279, "\\0"
+ .return ($P279)
+.end
+
+
+.namespace ["HLL";"Grammar"]
+.sub "quote_escape:sym<misc>" :subid("93_1275811471.14938") :method :outer("11_1275811471.14938")
+.annotate 'line', 33
+ .const 'Sub' $P302 = "97_1275811471.14938"
+ capture_lex $P302
+ .const 'Sub' $P295 = "96_1275811471.14938"
+ capture_lex $P295
+ .const 'Sub' $P290 = "95_1275811471.14938"
+ capture_lex $P290
+ .local string rx283_tgt
+ .local int rx283_pos
+ .local int rx283_off
+ .local int rx283_eos
+ .local int rx283_rep
+ .local pmc rx283_cur
+ (rx283_cur, rx283_pos, rx283_tgt) = self."!cursor_start"()
+ rx283_cur."!cursor_debug"("START ", "quote_escape:sym<misc>")
+ .lex unicode:"$\x{a2}", rx283_cur
+ .local pmc match
+ .lex "$/", match
+ length rx283_eos, rx283_tgt
+ gt rx283_pos, rx283_eos, rx283_done
+ set rx283_off, 0
+ lt rx283_pos, 2, rx283_start
+ sub rx283_off, rx283_pos, 1
+ substr rx283_tgt, rx283_tgt, rx283_off
+ rx283_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan286_done
+ goto rxscan286_scan
+ rxscan286_loop:
+ ($P10) = rx283_cur."from"()
+ inc $P10
+ set rx283_pos, $P10
+ ge rx283_pos, rx283_eos, rxscan286_done
+ rxscan286_scan:
+ set_addr $I10, rxscan286_loop
+ rx283_cur."!mark_push"(0, rx283_pos, $I10)
+ rxscan286_done:
.annotate 'line', 100
- set_addr $I10, alt287_1
- rx278_cur."!mark_push"(0, rx278_pos, $I10)
+ rx283_cur."!cursor_pos"(rx283_pos)
+ find_lex $P287, unicode:"$\x{a2}"
+ $P288 = $P287."MATCH"()
+ store_lex "$/", $P288
+ .const 'Sub' $P290 = "95_1275811471.14938"
+ capture_lex $P290
+ $P291 = $P290()
+ # rx literal "\\"
+ add $I11, rx283_pos, 1
+ gt $I11, rx283_eos, rx283_fail
+ sub $I11, rx283_pos, rx283_off
+ substr $S10, rx283_tgt, $I11, 1
+ ne $S10, "\\", rx283_fail
+ add rx283_pos, 1
+ alt292_0:
.annotate 'line', 101
- # rx subrule "quotemod_check" subtype=zerowidth negate=
- rx278_cur."!cursor_pos"(rx278_pos)
- $P10 = rx278_cur."quotemod_check"("b")
- unless $P10, rx278_fail
- alt288_0:
+ set_addr $I10, alt292_1
+ rx283_cur."!mark_push"(0, rx283_pos, $I10)
.annotate 'line', 102
- set_addr $I10, alt288_1
- rx278_cur."!mark_push"(0, rx278_pos, $I10)
+ # rx subrule "quotemod_check" subtype=zerowidth negate=
+ rx283_cur."!cursor_pos"(rx283_pos)
+ $P10 = rx283_cur."quotemod_check"("b")
+ unless $P10, rx283_fail
+ alt293_0:
.annotate 'line', 103
- # rx subrule $P290 subtype=capture negate=
- rx278_cur."!cursor_pos"(rx278_pos)
- .const 'Sub' $P290 = "94_1275117579.6042"
- capture_lex $P290
- $P10 = rx278_cur.$P290()
- unless $P10, rx278_fail
- rx278_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("textqq")
- rx278_pos = $P10."pos"()
- goto alt288_end
- alt288_1:
+ set_addr $I10, alt293_1
+ rx283_cur."!mark_push"(0, rx283_pos, $I10)
.annotate 'line', 104
+ # rx subrule $P295 subtype=capture negate=
+ rx283_cur."!cursor_pos"(rx283_pos)
+ .const 'Sub' $P295 = "96_1275811471.14938"
+ capture_lex $P295
+ $P10 = rx283_cur.$P295()
+ unless $P10, rx283_fail
+ rx283_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("textqq")
+ rx283_pos = $P10."pos"()
+ goto alt293_end
+ alt293_1:
+.annotate 'line', 105
# rx subcapture "x"
- set_addr $I10, rxcap_293_fail
- rx278_cur."!mark_push"(0, rx278_pos, $I10)
+ set_addr $I10, rxcap_298_fail
+ rx283_cur."!mark_push"(0, rx283_pos, $I10)
# rx charclass w
- ge rx278_pos, rx278_eos, rx278_fail
- sub $I10, rx278_pos, rx278_off
- is_cclass $I11, 8192, rx278_tgt, $I10
- unless $I11, rx278_fail
- inc rx278_pos
- set_addr $I10, rxcap_293_fail
- ($I12, $I11) = rx278_cur."!mark_peek"($I10)
- rx278_cur."!cursor_pos"($I11)
- ($P10) = rx278_cur."!cursor_start"()
- $P10."!cursor_pass"(rx278_pos, "")
- rx278_cur."!mark_push"(0, -1, 0, $P10)
+ ge rx283_pos, rx283_eos, rx283_fail
+ sub $I10, rx283_pos, rx283_off
+ is_cclass $I11, 8192, rx283_tgt, $I10
+ unless $I11, rx283_fail
+ inc rx283_pos
+ set_addr $I10, rxcap_298_fail
+ ($I12, $I11) = rx283_cur."!mark_peek"($I10)
+ rx283_cur."!cursor_pos"($I11)
+ ($P10) = rx283_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx283_pos, "")
+ rx283_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("x")
- goto rxcap_293_done
- rxcap_293_fail:
- goto rx278_fail
- rxcap_293_done:
- rx278_cur."!cursor_pos"(rx278_pos)
- find_lex $P294, unicode:"$\x{a2}"
- $P295 = $P294."MATCH"()
- store_lex "$/", $P295
- .const 'Sub' $P297 = "95_1275117579.6042"
- capture_lex $P297
- $P307 = $P297()
- alt288_end:
-.annotate 'line', 101
- goto alt287_end
- alt287_1:
-.annotate 'line', 106
+ goto rxcap_298_done
+ rxcap_298_fail:
+ goto rx283_fail
+ rxcap_298_done:
+ rx283_cur."!cursor_pos"(rx283_pos)
+ find_lex $P299, unicode:"$\x{a2}"
+ $P300 = $P299."MATCH"()
+ store_lex "$/", $P300
+ .const 'Sub' $P302 = "97_1275811471.14938"
+ capture_lex $P302
+ $P312 = $P302()
+ alt293_end:
+.annotate 'line', 102
+ goto alt292_end
+ alt292_1:
+.annotate 'line', 107
# rx subcapture "textq"
- set_addr $I10, rxcap_308_fail
- rx278_cur."!mark_push"(0, rx278_pos, $I10)
+ set_addr $I10, rxcap_313_fail
+ rx283_cur."!mark_push"(0, rx283_pos, $I10)
# rx charclass .
- ge rx278_pos, rx278_eos, rx278_fail
- inc rx278_pos
- set_addr $I10, rxcap_308_fail
- ($I12, $I11) = rx278_cur."!mark_peek"($I10)
- rx278_cur."!cursor_pos"($I11)
- ($P10) = rx278_cur."!cursor_start"()
- $P10."!cursor_pass"(rx278_pos, "")
- rx278_cur."!mark_push"(0, -1, 0, $P10)
+ ge rx283_pos, rx283_eos, rx283_fail
+ inc rx283_pos
+ set_addr $I10, rxcap_313_fail
+ ($I12, $I11) = rx283_cur."!mark_peek"($I10)
+ rx283_cur."!cursor_pos"($I11)
+ ($P10) = rx283_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx283_pos, "")
+ rx283_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("textq")
- goto rxcap_308_done
- rxcap_308_fail:
- goto rx278_fail
- rxcap_308_done:
- alt287_end:
-.annotate 'line', 98
+ goto rxcap_313_done
+ rxcap_313_fail:
+ goto rx283_fail
+ rxcap_313_done:
+ alt292_end:
+.annotate 'line', 99
# rx pass
- rx278_cur."!cursor_pass"(rx278_pos, "quote_escape:sym<misc>")
- rx278_cur."!cursor_debug"("PASS ", "quote_escape:sym<misc>", " at pos=", rx278_pos)
- .return (rx278_cur)
- rx278_fail:
-.annotate 'line', 33
- (rx278_rep, rx278_pos, $I10, $P10) = rx278_cur."!mark_fail"(0)
- lt rx278_pos, -1, rx278_done
- eq rx278_pos, -1, rx278_fail
+ rx283_cur."!cursor_pass"(rx283_pos, "quote_escape:sym<misc>")
+ rx283_cur."!cursor_debug"("PASS ", "quote_escape:sym<misc>", " at pos=", rx283_pos)
+ .return (rx283_cur)
+ rx283_fail:
+.annotate 'line', 33
+ (rx283_rep, rx283_pos, $I10, $P10) = rx283_cur."!mark_fail"(0)
+ lt rx283_pos, -1, rx283_done
+ eq rx283_pos, -1, rx283_fail
jump $I10
- rx278_done:
- rx278_cur."!cursor_fail"()
- rx278_cur."!cursor_debug"("FAIL ", "quote_escape:sym<misc>")
- .return (rx278_cur)
+ rx283_done:
+ rx283_cur."!cursor_fail"()
+ rx283_cur."!cursor_debug"("FAIL ", "quote_escape:sym<misc>")
+ .return (rx283_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<misc>" :subid("92_1275117579.6042") :method
+.sub "!PREFIX__quote_escape:sym<misc>" :subid("94_1275811471.14938") :method
.annotate 'line', 33
- new $P280, "ResizablePMCArray"
- push $P280, ""
- .return ($P280)
+ new $P285, "ResizablePMCArray"
+ push $P285, ""
+ .return ($P285)
.end
.namespace ["HLL";"Grammar"]
-.sub "_block284" :anon :subid("93_1275117579.6042") :outer("91_1275117579.6042")
-.annotate 'line', 99
+.sub "_block289" :anon :subid("95_1275811471.14938") :outer("93_1275811471.14938")
+.annotate 'line', 100
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "_block289" :anon :subid("94_1275117579.6042") :method :outer("91_1275117579.6042")
-.annotate 'line', 103
- .local string rx291_tgt
- .local int rx291_pos
- .local int rx291_off
- .local int rx291_eos
- .local int rx291_rep
- .local pmc rx291_cur
- (rx291_cur, rx291_pos, rx291_tgt) = self."!cursor_start"()
- rx291_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx291_cur
+.sub "_block294" :anon :subid("96_1275811471.14938") :method :outer("93_1275811471.14938")
+.annotate 'line', 104
+ .local string rx296_tgt
+ .local int rx296_pos
+ .local int rx296_off
+ .local int rx296_eos
+ .local int rx296_rep
+ .local pmc rx296_cur
+ (rx296_cur, rx296_pos, rx296_tgt) = self."!cursor_start"()
+ rx296_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx296_cur
.local pmc match
.lex "$/", match
- length rx291_eos, rx291_tgt
- set rx291_off, 0
- lt rx291_pos, 2, rx291_start
- sub rx291_off, rx291_pos, 1
- substr rx291_tgt, rx291_tgt, rx291_off
- rx291_start:
+ length rx296_eos, rx296_tgt
+ gt rx296_pos, rx296_eos, rx296_done
+ set rx296_off, 0
+ lt rx296_pos, 2, rx296_start
+ sub rx296_off, rx296_pos, 1
+ substr rx296_tgt, rx296_tgt, rx296_off
+ rx296_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan292_done
- goto rxscan292_scan
- rxscan292_loop:
- ($P10) = rx291_cur."from"()
+ ne $I10, -1, rxscan297_done
+ goto rxscan297_scan
+ rxscan297_loop:
+ ($P10) = rx296_cur."from"()
inc $P10
- set rx291_pos, $P10
- ge rx291_pos, rx291_eos, rxscan292_done
- rxscan292_scan:
- set_addr $I10, rxscan292_loop
- rx291_cur."!mark_push"(0, rx291_pos, $I10)
- rxscan292_done:
+ set rx296_pos, $P10
+ ge rx296_pos, rx296_eos, rxscan297_done
+ rxscan297_scan:
+ set_addr $I10, rxscan297_loop
+ rx296_cur."!mark_push"(0, rx296_pos, $I10)
+ rxscan297_done:
# rx charclass W
- ge rx291_pos, rx291_eos, rx291_fail
- sub $I10, rx291_pos, rx291_off
- is_cclass $I11, 8192, rx291_tgt, $I10
- if $I11, rx291_fail
- inc rx291_pos
+ ge rx296_pos, rx296_eos, rx296_fail
+ sub $I10, rx296_pos, rx296_off
+ is_cclass $I11, 8192, rx296_tgt, $I10
+ if $I11, rx296_fail
+ inc rx296_pos
# rx pass
- rx291_cur."!cursor_pass"(rx291_pos, "")
- rx291_cur."!cursor_debug"("PASS ", "", " at pos=", rx291_pos)
- .return (rx291_cur)
- rx291_fail:
- (rx291_rep, rx291_pos, $I10, $P10) = rx291_cur."!mark_fail"(0)
- lt rx291_pos, -1, rx291_done
- eq rx291_pos, -1, rx291_fail
+ rx296_cur."!cursor_pass"(rx296_pos, "")
+ rx296_cur."!cursor_debug"("PASS ", "", " at pos=", rx296_pos)
+ .return (rx296_cur)
+ rx296_fail:
+ (rx296_rep, rx296_pos, $I10, $P10) = rx296_cur."!mark_fail"(0)
+ lt rx296_pos, -1, rx296_done
+ eq rx296_pos, -1, rx296_fail
jump $I10
- rx291_done:
- rx291_cur."!cursor_fail"()
- rx291_cur."!cursor_debug"("FAIL ", "")
- .return (rx291_cur)
+ rx296_done:
+ rx296_cur."!cursor_fail"()
+ rx296_cur."!cursor_debug"("FAIL ", "")
+ .return (rx296_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "_block296" :anon :subid("95_1275117579.6042") :outer("91_1275117579.6042")
-.annotate 'line', 104
- find_lex $P298, "$/"
- $P299 = $P298."CURSOR"()
- new $P300, "String"
- assign $P300, "Unrecognized backslash sequence: '\\"
- find_lex $P301, "$/"
- unless_null $P301, vivify_106
- $P301 = root_new ['parrot';'Hash']
- vivify_106:
- set $P302, $P301["x"]
- unless_null $P302, vivify_107
- new $P302, "Undef"
- vivify_107:
- $S303 = $P302."Str"()
- concat $P304, $P300, $S303
- concat $P305, $P304, "'"
- $P306 = $P299."panic"($P305)
- .return ($P306)
+.sub "_block301" :anon :subid("97_1275811471.14938") :outer("93_1275811471.14938")
+.annotate 'line', 105
+ find_lex $P303, "$/"
+ $P304 = $P303."CURSOR"()
+ new $P305, "String"
+ assign $P305, "Unrecognized backslash sequence: '\\"
+ find_lex $P306, "$/"
+ unless_null $P306, vivify_108
+ $P306 = root_new ['parrot';'Hash']
+ vivify_108:
+ set $P307, $P306["x"]
+ unless_null $P307, vivify_109
+ new $P307, "Undef"
+ vivify_109:
+ $S308 = $P307."Str"()
+ concat $P309, $P305, $S308
+ concat $P310, $P309, "'"
+ $P311 = $P304."panic"($P310)
+ .return ($P311)
.end
.namespace ["HLL";"Grammar"]
-.sub "charname" :subid("96_1275117579.6042") :method :outer("11_1275117579.6042")
-.annotate 'line', 33
- .const 'Sub' $P319 = "98_1275117579.6042"
- capture_lex $P319
- .local string rx310_tgt
- .local int rx310_pos
- .local int rx310_off
- .local int rx310_eos
- .local int rx310_rep
- .local pmc rx310_cur
- (rx310_cur, rx310_pos, rx310_tgt) = self."!cursor_start"()
- rx310_cur."!cursor_debug"("START ", "charname")
- .lex unicode:"$\x{a2}", rx310_cur
+.sub "charname" :subid("98_1275811471.14938") :method :outer("11_1275811471.14938")
+.annotate 'line', 33
+ .const 'Sub' $P324 = "100_1275811471.14938"
+ capture_lex $P324
+ .local string rx315_tgt
+ .local int rx315_pos
+ .local int rx315_off
+ .local int rx315_eos
+ .local int rx315_rep
+ .local pmc rx315_cur
+ (rx315_cur, rx315_pos, rx315_tgt) = self."!cursor_start"()
+ rx315_cur."!cursor_debug"("START ", "charname")
+ .lex unicode:"$\x{a2}", rx315_cur
.local pmc match
.lex "$/", match
- length rx310_eos, rx310_tgt
- set rx310_off, 0
- lt rx310_pos, 2, rx310_start
- sub rx310_off, rx310_pos, 1
- substr rx310_tgt, rx310_tgt, rx310_off
- rx310_start:
+ length rx315_eos, rx315_tgt
+ gt rx315_pos, rx315_eos, rx315_done
+ set rx315_off, 0
+ lt rx315_pos, 2, rx315_start
+ sub rx315_off, rx315_pos, 1
+ substr rx315_tgt, rx315_tgt, rx315_off
+ rx315_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan314_done
- goto rxscan314_scan
- rxscan314_loop:
- ($P10) = rx310_cur."from"()
+ ne $I10, -1, rxscan319_done
+ goto rxscan319_scan
+ rxscan319_loop:
+ ($P10) = rx315_cur."from"()
inc $P10
- set rx310_pos, $P10
- ge rx310_pos, rx310_eos, rxscan314_done
- rxscan314_scan:
- set_addr $I10, rxscan314_loop
- rx310_cur."!mark_push"(0, rx310_pos, $I10)
- rxscan314_done:
- alt315_0:
-.annotate 'line', 110
- set_addr $I10, alt315_1
- rx310_cur."!mark_push"(0, rx310_pos, $I10)
+ set rx315_pos, $P10
+ ge rx315_pos, rx315_eos, rxscan319_done
+ rxscan319_scan:
+ set_addr $I10, rxscan319_loop
+ rx315_cur."!mark_push"(0, rx315_pos, $I10)
+ rxscan319_done:
+ alt320_0:
.annotate 'line', 111
+ set_addr $I10, alt320_1
+ rx315_cur."!mark_push"(0, rx315_pos, $I10)
+.annotate 'line', 112
# rx subrule "integer" subtype=capture negate=
- rx310_cur."!cursor_pos"(rx310_pos)
- $P10 = rx310_cur."integer"()
- unless $P10, rx310_fail
- rx310_cur."!mark_push"(0, -1, 0, $P10)
+ rx315_cur."!cursor_pos"(rx315_pos)
+ $P10 = rx315_cur."integer"()
+ unless $P10, rx315_fail
+ rx315_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("integer")
- rx310_pos = $P10."pos"()
- goto alt315_end
- alt315_1:
-.annotate 'line', 112
+ rx315_pos = $P10."pos"()
+ goto alt320_end
+ alt320_1:
+.annotate 'line', 113
# rx enumcharlist negate=0
- ge rx310_pos, rx310_eos, rx310_fail
- sub $I10, rx310_pos, rx310_off
- substr $S10, rx310_tgt, $I10, 1
+ ge rx315_pos, rx315_eos, rx315_fail
+ sub $I10, rx315_pos, rx315_off
+ substr $S10, rx315_tgt, $I10, 1
index $I11, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ", $S10
- lt $I11, 0, rx310_fail
- inc rx310_pos
- # rx rxquantf316 ** 0..*
- set_addr $I10, rxquantf316_loop
- rx310_cur."!mark_push"(0, rx310_pos, $I10)
- goto rxquantf316_done
- rxquantf316_loop:
+ lt $I11, 0, rx315_fail
+ inc rx315_pos
+ # rx rxquantf321 ** 0..*
+ set_addr $I10, rxquantf321_loop
+ rx315_cur."!mark_push"(0, rx315_pos, $I10)
+ goto rxquantf321_done
+ rxquantf321_loop:
# rx enumcharlist negate=1
- ge rx310_pos, rx310_eos, rx310_fail
- sub $I10, rx310_pos, rx310_off
- substr $S10, rx310_tgt, $I10, 1
+ ge rx315_pos, rx315_eos, rx315_fail
+ sub $I10, rx315_pos, rx315_off
+ substr $S10, rx315_tgt, $I10, 1
index $I11, "],#", $S10
- ge $I11, 0, rx310_fail
- inc rx310_pos
- set_addr $I10, rxquantf316_loop
- rx310_cur."!mark_push"($I317, rx310_pos, $I10)
- rxquantf316_done:
+ ge $I11, 0, rx315_fail
+ inc rx315_pos
+ set_addr $I10, rxquantf321_loop
+ rx315_cur."!mark_push"($I322, rx315_pos, $I10)
+ rxquantf321_done:
# rx enumcharlist negate=0
- ge rx310_pos, rx310_eos, rx310_fail
- sub $I10, rx310_pos, rx310_off
- substr $S10, rx310_tgt, $I10, 1
+ ge rx315_pos, rx315_eos, rx315_fail
+ sub $I10, rx315_pos, rx315_off
+ substr $S10, rx315_tgt, $I10, 1
index $I11, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ)", $S10
- lt $I11, 0, rx310_fail
- inc rx310_pos
-.annotate 'line', 113
+ lt $I11, 0, rx315_fail
+ inc rx315_pos
+.annotate 'line', 114
# rx subrule "before" subtype=zerowidth negate=
- rx310_cur."!cursor_pos"(rx310_pos)
- .const 'Sub' $P319 = "98_1275117579.6042"
- capture_lex $P319
- $P10 = rx310_cur."before"($P319)
- unless $P10, rx310_fail
- alt315_end:
-.annotate 'line', 110
+ rx315_cur."!cursor_pos"(rx315_pos)
+ .const 'Sub' $P324 = "100_1275811471.14938"
+ capture_lex $P324
+ $P10 = rx315_cur."before"($P324)
+ unless $P10, rx315_fail
+ alt320_end:
+.annotate 'line', 111
# rx pass
- rx310_cur."!cursor_pass"(rx310_pos, "charname")
- rx310_cur."!cursor_debug"("PASS ", "charname", " at pos=", rx310_pos)
- .return (rx310_cur)
- rx310_fail:
-.annotate 'line', 33
- (rx310_rep, rx310_pos, $I10, $P10) = rx310_cur."!mark_fail"(0)
- lt rx310_pos, -1, rx310_done
- eq rx310_pos, -1, rx310_fail
+ rx315_cur."!cursor_pass"(rx315_pos, "charname")
+ rx315_cur."!cursor_debug"("PASS ", "charname", " at pos=", rx315_pos)
+ .return (rx315_cur)
+ rx315_fail:
+.annotate 'line', 33
+ (rx315_rep, rx315_pos, $I10, $P10) = rx315_cur."!mark_fail"(0)
+ lt rx315_pos, -1, rx315_done
+ eq rx315_pos, -1, rx315_fail
jump $I10
- rx310_done:
- rx310_cur."!cursor_fail"()
- rx310_cur."!cursor_debug"("FAIL ", "charname")
- .return (rx310_cur)
+ rx315_done:
+ rx315_cur."!cursor_fail"()
+ rx315_cur."!cursor_debug"("FAIL ", "charname")
+ .return (rx315_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charname" :subid("97_1275117579.6042") :method
-.annotate 'line', 33
- $P312 = self."!PREFIX__!subrule"("integer", "")
- new $P313, "ResizablePMCArray"
- push $P313, "Z"
- push $P313, "Y"
- push $P313, "X"
- push $P313, "W"
- push $P313, "V"
- push $P313, "U"
- push $P313, "T"
- push $P313, "S"
- push $P313, "R"
- push $P313, "Q"
- push $P313, "P"
- push $P313, "O"
- push $P313, "N"
- push $P313, "M"
- push $P313, "L"
- push $P313, "K"
- push $P313, "J"
- push $P313, "I"
- push $P313, "H"
- push $P313, "G"
- push $P313, "F"
- push $P313, "E"
- push $P313, "D"
- push $P313, "C"
- push $P313, "B"
- push $P313, "A"
- push $P313, "z"
- push $P313, "y"
- push $P313, "x"
- push $P313, "w"
- push $P313, "v"
- push $P313, "u"
- push $P313, "t"
- push $P313, "s"
- push $P313, "r"
- push $P313, "q"
- push $P313, "p"
- push $P313, "o"
- push $P313, "n"
- push $P313, "m"
- push $P313, "l"
- push $P313, "k"
- push $P313, "j"
- push $P313, "i"
- push $P313, "h"
- push $P313, "g"
- push $P313, "f"
- push $P313, "e"
- push $P313, "d"
- push $P313, "c"
- push $P313, "b"
- push $P313, "a"
- push $P313, $P312
- .return ($P313)
+.sub "!PREFIX__charname" :subid("99_1275811471.14938") :method
+.annotate 'line', 33
+ $P317 = self."!PREFIX__!subrule"("integer", "")
+ new $P318, "ResizablePMCArray"
+ push $P318, "Z"
+ push $P318, "Y"
+ push $P318, "X"
+ push $P318, "W"
+ push $P318, "V"
+ push $P318, "U"
+ push $P318, "T"
+ push $P318, "S"
+ push $P318, "R"
+ push $P318, "Q"
+ push $P318, "P"
+ push $P318, "O"
+ push $P318, "N"
+ push $P318, "M"
+ push $P318, "L"
+ push $P318, "K"
+ push $P318, "J"
+ push $P318, "I"
+ push $P318, "H"
+ push $P318, "G"
+ push $P318, "F"
+ push $P318, "E"
+ push $P318, "D"
+ push $P318, "C"
+ push $P318, "B"
+ push $P318, "A"
+ push $P318, "z"
+ push $P318, "y"
+ push $P318, "x"
+ push $P318, "w"
+ push $P318, "v"
+ push $P318, "u"
+ push $P318, "t"
+ push $P318, "s"
+ push $P318, "r"
+ push $P318, "q"
+ push $P318, "p"
+ push $P318, "o"
+ push $P318, "n"
+ push $P318, "m"
+ push $P318, "l"
+ push $P318, "k"
+ push $P318, "j"
+ push $P318, "i"
+ push $P318, "h"
+ push $P318, "g"
+ push $P318, "f"
+ push $P318, "e"
+ push $P318, "d"
+ push $P318, "c"
+ push $P318, "b"
+ push $P318, "a"
+ push $P318, $P317
+ .return ($P318)
.end
.namespace ["HLL";"Grammar"]
-.sub "_block318" :anon :subid("98_1275117579.6042") :method :outer("96_1275117579.6042")
-.annotate 'line', 113
- .local string rx320_tgt
- .local int rx320_pos
- .local int rx320_off
- .local int rx320_eos
- .local int rx320_rep
- .local pmc rx320_cur
- (rx320_cur, rx320_pos, rx320_tgt) = self."!cursor_start"()
- rx320_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx320_cur
+.sub "_block323" :anon :subid("100_1275811471.14938") :method :outer("98_1275811471.14938")
+.annotate 'line', 114
+ .local string rx325_tgt
+ .local int rx325_pos
+ .local int rx325_off
+ .local int rx325_eos
+ .local int rx325_rep
+ .local pmc rx325_cur
+ (rx325_cur, rx325_pos, rx325_tgt) = self."!cursor_start"()
+ rx325_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx325_cur
.local pmc match
.lex "$/", match
- length rx320_eos, rx320_tgt
- set rx320_off, 0
- lt rx320_pos, 2, rx320_start
- sub rx320_off, rx320_pos, 1
- substr rx320_tgt, rx320_tgt, rx320_off
- rx320_start:
+ length rx325_eos, rx325_tgt
+ gt rx325_pos, rx325_eos, rx325_done
+ set rx325_off, 0
+ lt rx325_pos, 2, rx325_start
+ sub rx325_off, rx325_pos, 1
+ substr rx325_tgt, rx325_tgt, rx325_off
+ rx325_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan321_done
- goto rxscan321_scan
- rxscan321_loop:
- ($P10) = rx320_cur."from"()
+ ne $I10, -1, rxscan326_done
+ goto rxscan326_scan
+ rxscan326_loop:
+ ($P10) = rx325_cur."from"()
inc $P10
- set rx320_pos, $P10
- ge rx320_pos, rx320_eos, rxscan321_done
- rxscan321_scan:
- set_addr $I10, rxscan321_loop
- rx320_cur."!mark_push"(0, rx320_pos, $I10)
- rxscan321_done:
+ set rx325_pos, $P10
+ ge rx325_pos, rx325_eos, rxscan326_done
+ rxscan326_scan:
+ set_addr $I10, rxscan326_loop
+ rx325_cur."!mark_push"(0, rx325_pos, $I10)
+ rxscan326_done:
# rx charclass_q s r 0..-1
- sub $I10, rx320_pos, rx320_off
- find_not_cclass $I11, 32, rx320_tgt, $I10, rx320_eos
- add rx320_pos, rx320_off, $I11
+ sub $I10, rx325_pos, rx325_off
+ find_not_cclass $I11, 32, rx325_tgt, $I10, rx325_eos
+ add rx325_pos, rx325_off, $I11
# rx enumcharlist negate=0
- ge rx320_pos, rx320_eos, rx320_fail
- sub $I10, rx320_pos, rx320_off
- substr $S10, rx320_tgt, $I10, 1
+ ge rx325_pos, rx325_eos, rx325_fail
+ sub $I10, rx325_pos, rx325_off
+ substr $S10, rx325_tgt, $I10, 1
index $I11, "],#", $S10
- lt $I11, 0, rx320_fail
- inc rx320_pos
+ lt $I11, 0, rx325_fail
+ inc rx325_pos
# rx pass
- rx320_cur."!cursor_pass"(rx320_pos, "")
- rx320_cur."!cursor_debug"("PASS ", "", " at pos=", rx320_pos)
- .return (rx320_cur)
- rx320_fail:
- (rx320_rep, rx320_pos, $I10, $P10) = rx320_cur."!mark_fail"(0)
- lt rx320_pos, -1, rx320_done
- eq rx320_pos, -1, rx320_fail
+ rx325_cur."!cursor_pass"(rx325_pos, "")
+ rx325_cur."!cursor_debug"("PASS ", "", " at pos=", rx325_pos)
+ .return (rx325_cur)
+ rx325_fail:
+ (rx325_rep, rx325_pos, $I10, $P10) = rx325_cur."!mark_fail"(0)
+ lt rx325_pos, -1, rx325_done
+ eq rx325_pos, -1, rx325_fail
jump $I10
- rx320_done:
- rx320_cur."!cursor_fail"()
- rx320_cur."!cursor_debug"("FAIL ", "")
- .return (rx320_cur)
+ rx325_done:
+ rx325_cur."!cursor_fail"()
+ rx325_cur."!cursor_debug"("FAIL ", "")
+ .return (rx325_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "charnames" :subid("99_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "charnames" :subid("101_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
- .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 ", "charnames")
- rx323_cur."!cursor_caparray"("charname")
- .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 ", "charnames")
+ rx328_cur."!cursor_caparray"("charname")
+ .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
+ gt rx328_pos, rx328_eos, rx328_done
+ 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', 115
- # rx rxquantr327 ** 1..*
- set_addr $I328, rxquantr327_done
- rx323_cur."!mark_push"(0, -1, $I328)
- rxquantr327_loop:
+ 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', 116
+ # rx rxquantr332 ** 1..*
+ set_addr $I333, rxquantr332_done
+ rx328_cur."!mark_push"(0, -1, $I333)
+ rxquantr332_loop:
# rx subrule "ws" subtype=method negate=
- rx323_cur."!cursor_pos"(rx323_pos)
- $P10 = rx323_cur."ws"()
- unless $P10, rx323_fail
- rx323_pos = $P10."pos"()
+ rx328_cur."!cursor_pos"(rx328_pos)
+ $P10 = rx328_cur."ws"()
+ unless $P10, rx328_fail
+ rx328_pos = $P10."pos"()
# rx subrule "charname" subtype=capture negate=
- rx323_cur."!cursor_pos"(rx323_pos)
- $P10 = rx323_cur."charname"()
- unless $P10, rx323_fail
- rx323_cur."!mark_push"(0, -1, 0, $P10)
+ rx328_cur."!cursor_pos"(rx328_pos)
+ $P10 = rx328_cur."charname"()
+ unless $P10, rx328_fail
+ rx328_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("charname")
- 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"()
- (rx323_rep) = rx323_cur."!mark_commit"($I328)
- rx323_cur."!mark_push"(rx323_rep, rx323_pos, $I328)
+ rx328_cur."!cursor_pos"(rx328_pos)
+ $P10 = rx328_cur."ws"()
+ unless $P10, rx328_fail
+ rx328_pos = $P10."pos"()
+ (rx328_rep) = rx328_cur."!mark_commit"($I333)
+ rx328_cur."!mark_push"(rx328_rep, rx328_pos, $I333)
# rx literal ","
- add $I11, rx323_pos, 1
- gt $I11, rx323_eos, rx323_fail
- sub $I11, rx323_pos, rx323_off
- substr $S10, rx323_tgt, $I11, 1
- ne $S10, ",", rx323_fail
- add rx323_pos, 1
- goto rxquantr327_loop
- rxquantr327_done:
+ add $I11, rx328_pos, 1
+ gt $I11, rx328_eos, rx328_fail
+ sub $I11, rx328_pos, rx328_off
+ substr $S10, rx328_tgt, $I11, 1
+ ne $S10, ",", rx328_fail
+ add rx328_pos, 1
+ goto rxquantr332_loop
+ rxquantr332_done:
# rx pass
- rx323_cur."!cursor_pass"(rx323_pos, "charnames")
- rx323_cur."!cursor_debug"("PASS ", "charnames", " at pos=", rx323_pos)
- .return (rx323_cur)
- rx323_fail:
-.annotate 'line', 33
- (rx323_rep, rx323_pos, $I10, $P10) = rx323_cur."!mark_fail"(0)
- lt rx323_pos, -1, rx323_done
- eq rx323_pos, -1, rx323_fail
+ rx328_cur."!cursor_pass"(rx328_pos, "charnames")
+ rx328_cur."!cursor_debug"("PASS ", "charnames", " at pos=", rx328_pos)
+ .return (rx328_cur)
+ rx328_fail:
+.annotate 'line', 33
+ (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 ", "charnames")
- .return (rx323_cur)
+ rx328_done:
+ rx328_cur."!cursor_fail"()
+ rx328_cur."!cursor_debug"("FAIL ", "charnames")
+ .return (rx328_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charnames" :subid("100_1275117579.6042") :method
+.sub "!PREFIX__charnames" :subid("102_1275811471.14938") :method
.annotate 'line', 33
- new $P325, "ResizablePMCArray"
- push $P325, ""
- .return ($P325)
+ new $P330, "ResizablePMCArray"
+ push $P330, ""
+ .return ($P330)
.end
.namespace ["HLL";"Grammar"]
-.sub "charspec" :subid("101_1275117579.6042") :method :outer("11_1275117579.6042")
+.sub "charspec" :subid("103_1275811471.14938") :method :outer("11_1275811471.14938")
.annotate 'line', 33
- .local string rx330_tgt
- .local int rx330_pos
- .local int rx330_off
- .local int rx330_eos
- .local int rx330_rep
- .local pmc rx330_cur
- (rx330_cur, rx330_pos, rx330_tgt) = self."!cursor_start"()
- rx330_cur."!cursor_debug"("START ", "charspec")
- .lex unicode:"$\x{a2}", rx330_cur
+ .local string rx335_tgt
+ .local int rx335_pos
+ .local int rx335_off
+ .local int rx335_eos
+ .local int rx335_rep
+ .local pmc rx335_cur
+ (rx335_cur, rx335_pos, rx335_tgt) = self."!cursor_start"()
+ rx335_cur."!cursor_debug"("START ", "charspec")
+ .lex unicode:"$\x{a2}", rx335_cur
.local pmc match
.lex "$/", match
- length rx330_eos, rx330_tgt
- set rx330_off, 0
- lt rx330_pos, 2, rx330_start
- sub rx330_off, rx330_pos, 1
- substr rx330_tgt, rx330_tgt, rx330_off
- rx330_start:
+ length rx335_eos, rx335_tgt
+ gt rx335_pos, rx335_eos, rx335_done
+ set rx335_off, 0
+ lt rx335_pos, 2, rx335_start
+ sub rx335_off, rx335_pos, 1
+ substr rx335_tgt, rx335_tgt, rx335_off
+ rx335_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan335_done
- goto rxscan335_scan
- rxscan335_loop:
- ($P10) = rx330_cur."from"()
+ ne $I10, -1, rxscan340_done
+ goto rxscan340_scan
+ rxscan340_loop:
+ ($P10) = rx335_cur."from"()
inc $P10
- set rx330_pos, $P10
- ge rx330_pos, rx330_eos, rxscan335_done
- rxscan335_scan:
- set_addr $I10, rxscan335_loop
- rx330_cur."!mark_push"(0, rx330_pos, $I10)
- rxscan335_done:
- alt336_0:
-.annotate 'line', 117
- set_addr $I10, alt336_1
- rx330_cur."!mark_push"(0, rx330_pos, $I10)
+ set rx335_pos, $P10
+ ge rx335_pos, rx335_eos, rxscan340_done
+ rxscan340_scan:
+ set_addr $I10, rxscan340_loop
+ rx335_cur."!mark_push"(0, rx335_pos, $I10)
+ rxscan340_done:
+ alt341_0:
.annotate 'line', 118
+ set_addr $I10, alt341_1
+ rx335_cur."!mark_push"(0, rx335_pos, $I10)
+.annotate 'line', 119
# rx literal "["
- add $I11, rx330_pos, 1
- gt $I11, rx330_eos, rx330_fail
- sub $I11, rx330_pos, rx330_off
- substr $S10, rx330_tgt, $I11, 1
- ne $S10, "[", rx330_fail
- add rx330_pos, 1
+ add $I11, rx335_pos, 1
+ gt $I11, rx335_eos, rx335_fail
+ sub $I11, rx335_pos, rx335_off
+ substr $S10, rx335_tgt, $I11, 1
+ ne $S10, "[", rx335_fail
+ add rx335_pos, 1
# rx subrule "charnames" subtype=capture negate=
- rx330_cur."!cursor_pos"(rx330_pos)
- $P10 = rx330_cur."charnames"()
- unless $P10, rx330_fail
- rx330_cur."!mark_push"(0, -1, 0, $P10)
+ rx335_cur."!cursor_pos"(rx335_pos)
+ $P10 = rx335_cur."charnames"()
+ unless $P10, rx335_fail
+ rx335_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("charnames")
- rx330_pos = $P10."pos"()
+ rx335_pos = $P10."pos"()
# rx literal "]"
- add $I11, rx330_pos, 1
- gt $I11, rx330_eos, rx330_fail
- sub $I11, rx330_pos, rx330_off
- substr $S10, rx330_tgt, $I11, 1
- ne $S10, "]", rx330_fail
- add rx330_pos, 1
- goto alt336_end
- alt336_1:
- set_addr $I10, alt336_2
- rx330_cur."!mark_push"(0, rx330_pos, $I10)
-.annotate 'line', 119
+ add $I11, rx335_pos, 1
+ gt $I11, rx335_eos, rx335_fail
+ sub $I11, rx335_pos, rx335_off
+ substr $S10, rx335_tgt, $I11, 1
+ ne $S10, "]", rx335_fail
+ add rx335_pos, 1
+ goto alt341_end
+ alt341_1:
+ set_addr $I10, alt341_2
+ rx335_cur."!mark_push"(0, rx335_pos, $I10)
+.annotate 'line', 120
# rx charclass_q d r 1..-1
- sub $I10, rx330_pos, rx330_off
- find_not_cclass $I11, 8, rx330_tgt, $I10, rx330_eos
+ sub $I10, rx335_pos, rx335_off
+ find_not_cclass $I11, 8, rx335_tgt, $I10, rx335_eos
add $I12, $I10, 1
- lt $I11, $I12, rx330_fail
- add rx330_pos, rx330_off, $I11
- # rx rxquantr337 ** 0..*
- set_addr $I338, rxquantr337_done
- rx330_cur."!mark_push"(0, rx330_pos, $I338)
- rxquantr337_loop:
+ lt $I11, $I12, rx335_fail
+ add rx335_pos, rx335_off, $I11
+ # rx rxquantr342 ** 0..*
+ set_addr $I343, rxquantr342_done
+ rx335_cur."!mark_push"(0, rx335_pos, $I343)
+ rxquantr342_loop:
# rx literal "_"
- add $I11, rx330_pos, 1
- gt $I11, rx330_eos, rx330_fail
- sub $I11, rx330_pos, rx330_off
- substr $S10, rx330_tgt, $I11, 1
- ne $S10, "_", rx330_fail
- add rx330_pos, 1
+ add $I11, rx335_pos, 1
+ gt $I11, rx335_eos, rx335_fail
+ sub $I11, rx335_pos, rx335_off
+ substr $S10, rx335_tgt, $I11, 1
+ ne $S10, "_", rx335_fail
+ add rx335_pos, 1
# rx charclass_q d r 1..-1
- sub $I10, rx330_pos, rx330_off
- find_not_cclass $I11, 8, rx330_tgt, $I10, rx330_eos
+ sub $I10, rx335_pos, rx335_off
+ find_not_cclass $I11, 8, rx335_tgt, $I10, rx335_eos
add $I12, $I10, 1
- lt $I11, $I12, rx330_fail
- add rx330_pos, rx330_off, $I11
- (rx330_rep) = rx330_cur."!mark_commit"($I338)
- rx330_cur."!mark_push"(rx330_rep, rx330_pos, $I338)
- goto rxquantr337_loop
- rxquantr337_done:
- goto alt336_end
- alt336_2:
- set_addr $I10, alt336_3
- rx330_cur."!mark_push"(0, rx330_pos, $I10)
-.annotate 'line', 120
+ lt $I11, $I12, rx335_fail
+ add rx335_pos, rx335_off, $I11
+ (rx335_rep) = rx335_cur."!mark_commit"($I343)
+ rx335_cur."!mark_push"(rx335_rep, rx335_pos, $I343)
+ goto rxquantr342_loop
+ rxquantr342_done:
+ goto alt341_end
+ alt341_2:
+ set_addr $I10, alt341_3
+ rx335_cur."!mark_push"(0, rx335_pos, $I10)
+.annotate 'line', 121
# rx enumcharlist negate=0
- ge rx330_pos, rx330_eos, rx330_fail
- sub $I10, rx330_pos, rx330_off
- substr $S10, rx330_tgt, $I10, 1
+ ge rx335_pos, rx335_eos, rx335_fail
+ sub $I10, rx335_pos, rx335_off
+ substr $S10, rx335_tgt, $I10, 1
index $I11, "?@ABCDEFGHIJKLMNOPQRSTUVWXYZ", $S10
- lt $I11, 0, rx330_fail
- inc rx330_pos
- goto alt336_end
- alt336_3:
-.annotate 'line', 121
+ lt $I11, 0, rx335_fail
+ inc rx335_pos
+ goto alt341_end
+ alt341_3:
+.annotate 'line', 122
# rx subrule "panic" subtype=method negate=
- rx330_cur."!cursor_pos"(rx330_pos)
- $P10 = rx330_cur."panic"("Unrecognized \\c character")
- unless $P10, rx330_fail
- rx330_pos = $P10."pos"()
- alt336_end:
-.annotate 'line', 116
+ rx335_cur."!cursor_pos"(rx335_pos)
+ $P10 = rx335_cur."panic"("Unrecognized \\c character")
+ unless $P10, rx335_fail
+ rx335_pos = $P10."pos"()
+ alt341_end:
+.annotate 'line', 117
# rx pass
- rx330_cur."!cursor_pass"(rx330_pos, "charspec")
- rx330_cur."!cursor_debug"("PASS ", "charspec", " at pos=", rx330_pos)
- .return (rx330_cur)
- rx330_fail:
-.annotate 'line', 33
- (rx330_rep, rx330_pos, $I10, $P10) = rx330_cur."!mark_fail"(0)
- lt rx330_pos, -1, rx330_done
- eq rx330_pos, -1, rx330_fail
+ rx335_cur."!cursor_pass"(rx335_pos, "charspec")
+ rx335_cur."!cursor_debug"("PASS ", "charspec", " at pos=", rx335_pos)
+ .return (rx335_cur)
+ rx335_fail:
+.annotate 'line', 33
+ (rx335_rep, rx335_pos, $I10, $P10) = rx335_cur."!mark_fail"(0)
+ lt rx335_pos, -1, rx335_done
+ eq rx335_pos, -1, rx335_fail
jump $I10
- rx330_done:
- rx330_cur."!cursor_fail"()
- rx330_cur."!cursor_debug"("FAIL ", "charspec")
- .return (rx330_cur)
+ rx335_done:
+ rx335_cur."!cursor_fail"()
+ rx335_cur."!cursor_debug"("FAIL ", "charspec")
+ .return (rx335_cur)
.return ()
.end
.namespace ["HLL";"Grammar"]
-.sub "!PREFIX__charspec" :subid("102_1275117579.6042") :method
-.annotate 'line', 33
- $P332 = self."!PREFIX__!subrule"("", "")
- $P333 = self."!PREFIX__!subrule"("charnames", "[")
- new $P334, "ResizablePMCArray"
- push $P334, $P332
- push $P334, "Z"
- push $P334, "Y"
- push $P334, "X"
- push $P334, "W"
- push $P334, "V"
- push $P334, "U"
- push $P334, "T"
- push $P334, "S"
- push $P334, "R"
- push $P334, "Q"
- push $P334, "P"
- push $P334, "O"
- push $P334, "N"
- push $P334, "M"
- push $P334, "L"
- push $P334, "K"
- push $P334, "J"
- push $P334, "I"
- push $P334, "H"
- push $P334, "G"
- push $P334, "F"
- push $P334, "E"
- push $P334, "D"
- push $P334, "C"
- push $P334, "B"
- push $P334, "A"
- push $P334, "@"
- push $P334, "?"
- push $P334, ""
- push $P334, $P333
- .return ($P334)
+.sub "!PREFIX__charspec" :subid("104_1275811471.14938") :method
+.annotate 'line', 33
+ $P337 = self."!PREFIX__!subrule"("panic", "")
+ $P338 = self."!PREFIX__!subrule"("charnames", "[")
+ new $P339, "ResizablePMCArray"
+ push $P339, $P337
+ push $P339, "Z"
+ push $P339, "Y"
+ push $P339, "X"
+ push $P339, "W"
+ push $P339, "V"
+ push $P339, "U"
+ push $P339, "T"
+ push $P339, "S"
+ push $P339, "R"
+ push $P339, "Q"
+ push $P339, "P"
+ push $P339, "O"
+ push $P339, "N"
+ push $P339, "M"
+ push $P339, "L"
+ push $P339, "K"
+ push $P339, "J"
+ push $P339, "I"
+ push $P339, "H"
+ push $P339, "G"
+ push $P339, "F"
+ push $P339, "E"
+ push $P339, "D"
+ push $P339, "C"
+ push $P339, "B"
+ push $P339, "A"
+ push $P339, "@"
+ push $P339, "?"
+ push $P339, ""
+ push $P339, $P338
+ .return ($P339)
.end
.namespace ["HLL";"Grammar"]
-.sub "_block339" :load :anon :subid("103_1275117579.6042")
+.sub "_block344" :load :anon :subid("105_1275811471.14938")
.annotate 'line', 5
- .const 'Sub' $P341 = "11_1275117579.6042"
- $P342 = $P341()
- .return ($P342)
+ .const 'Sub' $P346 = "11_1275811471.14938"
+ $P347 = $P346()
+ .return ($P347)
.end
.namespace []
-.sub "_block344" :load :anon :subid("104_1275117579.6042")
+.sub "_block349" :load :anon :subid("106_1275811471.14938")
.annotate 'line', 1
- .const 'Sub' $P346 = "10_1275117579.6042"
- $P347 = $P346()
- .return ($P347)
+ .const 'Sub' $P351 = "10_1275811471.14938"
+ $P352 = $P351()
+ .return ($P352)
.end
### .include 'gen/hllgrammar-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117587.37325")
+.sub "_block11" :anon :subid("10_1275811473.30481")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Actions"], "_block13"
capture_lex $P14
@@ -4797,93 +4910,95 @@
.annotate 'line', 3
get_hll_global $P14, ["HLL";"Actions"], "_block13"
capture_lex $P14
- $P620 = $P14()
+ $P627 = $P14()
.annotate 'line', 1
- .return ($P620)
- .const 'Sub' $P622 = "54_1275117587.37325"
- .return ($P622)
+ .return ($P627)
+ .const 'Sub' $P629 = "55_1275811473.30481"
+ .return ($P629)
.end
.namespace []
-.sub "" :load :init :subid("post55") :outer("10_1275117587.37325")
+.sub "" :load :init :subid("post56") :outer("10_1275811473.30481")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117587.37325"
+ .const 'Sub' $P12 = "10_1275811473.30481"
.local pmc block
set block, $P12
- $P625 = get_root_global ["parrot"], "P6metaclass"
- $P625."new_class"("HLL::Actions")
+ $P632 = get_root_global ["parrot"], "P6metaclass"
+ $P632."new_class"("HLL::Actions")
.end
.namespace ["HLL";"Actions"]
-.sub "_block13" :subid("11_1275117587.37325") :outer("10_1275117587.37325")
+.sub "_block13" :subid("11_1275811473.30481") :outer("10_1275811473.30481")
.annotate 'line', 3
- .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"
+ .const 'Sub' $P605 = "53_1275811473.30481"
+ capture_lex $P605
+ .const 'Sub' $P580 = "51_1275811473.30481"
+ capture_lex $P580
+ .const 'Sub' $P550 = "50_1275811473.30481"
+ capture_lex $P550
+ .const 'Sub' $P531 = "49_1275811473.30481"
+ capture_lex $P531
+ .const 'Sub' $P524 = "48_1275811473.30481"
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"
+ .const 'Sub' $P514 = "47_1275811473.30481"
+ capture_lex $P514
+ .const 'Sub' $P497 = "46_1275811473.30481"
+ capture_lex $P497
+ .const 'Sub' $P480 = "45_1275811473.30481"
+ capture_lex $P480
+ .const 'Sub' $P473 = "44_1275811473.30481"
capture_lex $P473
- .const 'Sub' $P466 = "43_1275117587.37325"
+ .const 'Sub' $P466 = "43_1275811473.30481"
capture_lex $P466
- .const 'Sub' $P459 = "42_1275117587.37325"
+ .const 'Sub' $P459 = "42_1275811473.30481"
capture_lex $P459
- .const 'Sub' $P452 = "41_1275117587.37325"
+ .const 'Sub' $P452 = "41_1275811473.30481"
capture_lex $P452
- .const 'Sub' $P445 = "40_1275117587.37325"
+ .const 'Sub' $P445 = "40_1275811473.30481"
capture_lex $P445
- .const 'Sub' $P438 = "39_1275117587.37325"
+ .const 'Sub' $P438 = "39_1275811473.30481"
capture_lex $P438
- .const 'Sub' $P428 = "38_1275117587.37325"
+ .const 'Sub' $P428 = "38_1275811473.30481"
capture_lex $P428
- .const 'Sub' $P421 = "37_1275117587.37325"
+ .const 'Sub' $P421 = "37_1275811473.30481"
capture_lex $P421
- .const 'Sub' $P405 = "36_1275117587.37325"
+ .const 'Sub' $P405 = "36_1275811473.30481"
capture_lex $P405
- .const 'Sub' $P330 = "34_1275117587.37325"
+ .const 'Sub' $P330 = "34_1275811473.30481"
capture_lex $P330
- .const 'Sub' $P267 = "31_1275117587.37325"
+ .const 'Sub' $P267 = "31_1275811473.30481"
capture_lex $P267
- .const 'Sub' $P258 = "30_1275117587.37325"
+ .const 'Sub' $P258 = "30_1275811473.30481"
capture_lex $P258
- .const 'Sub' $P249 = "29_1275117587.37325"
+ .const 'Sub' $P249 = "29_1275811473.30481"
capture_lex $P249
- .const 'Sub' $P240 = "28_1275117587.37325"
+ .const 'Sub' $P240 = "28_1275811473.30481"
capture_lex $P240
- .const 'Sub' $P231 = "27_1275117587.37325"
+ .const 'Sub' $P231 = "27_1275811473.30481"
capture_lex $P231
- .const 'Sub' $P222 = "26_1275117587.37325"
+ .const 'Sub' $P222 = "26_1275811473.30481"
capture_lex $P222
- .const 'Sub' $P212 = "25_1275117587.37325"
+ .const 'Sub' $P212 = "25_1275811473.30481"
capture_lex $P212
- .const 'Sub' $P202 = "24_1275117587.37325"
+ .const 'Sub' $P202 = "24_1275811473.30481"
capture_lex $P202
- .const 'Sub' $P194 = "23_1275117587.37325"
+ .const 'Sub' $P194 = "23_1275811473.30481"
capture_lex $P194
- .const 'Sub' $P184 = "22_1275117587.37325"
+ .const 'Sub' $P184 = "22_1275811473.30481"
capture_lex $P184
- .const 'Sub' $P174 = "21_1275117587.37325"
+ .const 'Sub' $P174 = "21_1275811473.30481"
capture_lex $P174
- .const 'Sub' $P73 = "18_1275117587.37325"
+ .const 'Sub' $P73 = "18_1275811473.30481"
capture_lex $P73
- .const 'Sub' $P35 = "15_1275117587.37325"
+ .const 'Sub' $P35 = "15_1275811473.30481"
capture_lex $P35
- .const 'Sub' $P28 = "14_1275117587.37325"
+ .const 'Sub' $P28 = "14_1275811473.30481"
capture_lex $P28
- .const 'Sub' $P22 = "13_1275117587.37325"
+ .const 'Sub' $P22 = "13_1275811473.30481"
capture_lex $P22
- .const 'Sub' $P15 = "12_1275117587.37325"
+ .const 'Sub' $P15 = "12_1275811473.30481"
capture_lex $P15
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -4891,24 +5006,25 @@
unless $I0 goto ctxsave_done
$P0."ctxsave"()
ctxsave_done:
-.annotate 'line', 224
- .const 'Sub' $P598 = "52_1275117587.37325"
- newclosure $P615, $P598
+.annotate 'line', 225
+ .const 'Sub' $P605 = "53_1275811473.30481"
+ newclosure $P622, $P605
.annotate 'line', 3
- .return ($P615)
- .const 'Sub' $P617 = "53_1275117587.37325"
- .return ($P617)
+ .return ($P622)
+ .const 'Sub' $P624 = "54_1275811473.30481"
+ .return ($P624)
.end
.namespace ["HLL";"Actions"]
-.sub "string_to_int" :subid("12_1275117587.37325") :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "string_to_int" :subid("12_1275811473.30481") :outer("11_1275811473.30481")
.param pmc param_18
.param pmc param_19
.annotate 'line', 3
new $P17, 'ExceptionHandler'
set_addr $P17, control_16
- $P17."handle_types"(57)
+ $P17."handle_types"(.CONTROL_RETURN)
push_eh $P17
.lex "$src", param_18
.lex "$base", param_19
@@ -4955,12 +5071,13 @@
.namespace ["HLL";"Actions"]
-.sub "ints_to_string" :subid("13_1275117587.37325") :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "ints_to_string" :subid("13_1275811473.30481") :outer("11_1275811473.30481")
.param pmc param_25
.annotate 'line', 37
new $P24, 'ExceptionHandler'
set_addr $P24, control_23
- $P24."handle_types"(57)
+ $P24."handle_types"(.CONTROL_RETURN)
push_eh $P24
.lex "$ints", param_25
.annotate 'line', 38
@@ -4996,11 +5113,12 @@
.namespace ["HLL";"Actions"]
-.sub "CTXSAVE" :subid("14_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "CTXSAVE" :subid("14_1275811473.30481") :method :outer("11_1275811473.30481")
.annotate 'line', 62
new $P30, 'ExceptionHandler'
set_addr $P30, control_29
- $P30."handle_types"(57)
+ $P30."handle_types"(.CONTROL_RETURN)
push_eh $P30
.lex "self", self
.annotate 'line', 63
@@ -5025,14 +5143,15 @@
.namespace ["HLL";"Actions"]
-.sub "SET_BLOCK_OUTER_CTX" :subid("15_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "SET_BLOCK_OUTER_CTX" :subid("15_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_38
.annotate 'line', 76
- .const 'Sub' $P48 = "16_1275117587.37325"
+ .const 'Sub' $P48 = "16_1275811473.30481"
capture_lex $P48
new $P37, 'ExceptionHandler'
set_addr $P37, control_36
- $P37."handle_types"(57)
+ $P37."handle_types"(.CONTROL_RETURN)
push_eh $P37
.lex "self", self
.lex "$block", param_38
@@ -5040,20 +5159,20 @@
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
+ get_hll_global $P40, "%COMPILING"
+ unless_null $P40, vivify_58
die "Contextual %*COMPILING not found"
+ vivify_58:
vivify_57:
- vivify_56:
set $P41, $P40["%?OPTIONS"]
- unless_null $P41, vivify_58
+ unless_null $P41, vivify_59
$P41 = root_new ['parrot';'Hash']
- vivify_58:
+ vivify_59:
set $P42, $P41["outer_ctx"]
- unless_null $P42, vivify_59
+ unless_null $P42, vivify_60
new $P42, "Undef"
- vivify_59:
+ vivify_60:
store_lex "$outer_ctx", $P42
.annotate 'line', 78
find_lex $P45, "$outer_ctx"
@@ -5063,7 +5182,7 @@
set $P43, $I46
goto if_44_end
if_44:
- .const 'Sub' $P48 = "16_1275117587.37325"
+ .const 'Sub' $P48 = "16_1275811473.30481"
capture_lex $P48
$P71 = $P48()
set $P43, $P71
@@ -5079,9 +5198,10 @@
.namespace ["HLL";"Actions"]
-.sub "_block47" :anon :subid("16_1275117587.37325") :outer("15_1275117587.37325")
+.include "except_types.pasm"
+.sub "_block47" :anon :subid("16_1275811473.30481") :outer("15_1275811473.30481")
.annotate 'line', 78
- .const 'Sub' $P62 = "17_1275117587.37325"
+ .const 'Sub' $P62 = "17_1275811473.30481"
capture_lex $P62
.annotate 'line', 79
$P49 = root_new ['parrot';'ResizablePMCArray']
@@ -5101,17 +5221,17 @@
find_lex $P57, "$outer_ctx"
$P58 = $P57."lexpad_full"()
defined $I59, $P58
- unless $I59, for_undef_60
+ unless $I59, for_undef_61
iter $P56, $P58
new $P69, 'ExceptionHandler'
set_addr $P69, loop68_handler
- $P69."handle_types"(64, 66, 65)
+ $P69."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P69
loop68_test:
unless $P56, loop68_done
shift $P60, $P56
loop68_redo:
- .const 'Sub' $P62 = "17_1275117587.37325"
+ .const 'Sub' $P62 = "17_1275811473.30481"
capture_lex $P62
$P62($P60)
loop68_next:
@@ -5120,18 +5240,18 @@
.local pmc exception
.get_results (exception)
getattribute $P70, exception, 'type'
- eq $P70, 64, loop68_next
- eq $P70, 66, loop68_redo
+ eq $P70, .CONTROL_LOOP_NEXT, loop68_next
+ eq $P70, .CONTROL_LOOP_REDO, loop68_redo
loop68_done:
pop_eh
- for_undef_60:
+ for_undef_61:
.annotate 'line', 78
.return ($P56)
.end
.namespace ["HLL";"Actions"]
-.sub "_block61" :anon :subid("17_1275117587.37325") :outer("16_1275117587.37325")
+.sub "_block61" :anon :subid("17_1275811473.30481") :outer("16_1275811473.30481")
.param pmc param_63
.annotate 'line', 82
.lex "$_", param_63
@@ -5146,25 +5266,26 @@
.namespace ["HLL";"Actions"]
-.sub "EXPR" :subid("18_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "EXPR" :subid("18_1275811473.30481") :method :outer("11_1275811473.30481")
.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"
+ .const 'Sub' $P156 = "20_1275811473.30481"
capture_lex $P156
- .const 'Sub' $P123 = "19_1275117587.37325"
+ .const 'Sub' $P123 = "19_1275811473.30481"
capture_lex $P123
new $P75, 'ExceptionHandler'
set_addr $P75, control_74
- $P75."handle_types"(57)
+ $P75."handle_types"(.CONTROL_RETURN)
push_eh $P75
.lex "self", self
.lex "$/", param_76
- if has_param_77, optparam_61
+ if has_param_77, optparam_62
new $P78, "Undef"
set param_77, $P78
- optparam_61:
+ optparam_62:
.lex "$key", param_77
.annotate 'line', 91
new $P79, "Undef"
@@ -5173,7 +5294,7 @@
find_lex $P81, "$key"
if $P81, unless_80_end
new $P82, "Exception"
- set $P82['type'], 57
+ set $P82['type'], .CONTROL_RETURN
new $P83, "Integer"
assign $P83, 0
setattribute $P82, 'payload', $P83
@@ -5186,13 +5307,13 @@
defined $I88, $P84
if $I88, default_87
find_lex $P89, "$/"
- unless_null $P89, vivify_62
+ unless_null $P89, vivify_63
$P89 = root_new ['parrot';'Hash']
- vivify_62:
+ vivify_63:
set $P90, $P89["OPER"]
- unless_null $P90, vivify_63
+ unless_null $P90, vivify_64
new $P90, "Undef"
- vivify_63:
+ vivify_64:
$P91 = $P90."ast"()
set $P84, $P91
default_87:
@@ -5207,57 +5328,57 @@
store_lex "$past", $P96
.annotate 'line', 94
find_lex $P98, "$/"
- unless_null $P98, vivify_64
+ unless_null $P98, vivify_65
$P98 = root_new ['parrot';'Hash']
- vivify_64:
+ vivify_65:
set $P99, $P98["OPER"]
- unless_null $P99, vivify_65
+ unless_null $P99, vivify_66
$P99 = root_new ['parrot';'Hash']
- vivify_65:
+ vivify_66:
set $P100, $P99["O"]
- unless_null $P100, vivify_66
+ unless_null $P100, vivify_67
$P100 = root_new ['parrot';'Hash']
- vivify_66:
+ vivify_67:
set $P101, $P100["pasttype"]
- unless_null $P101, vivify_67
+ unless_null $P101, vivify_68
new $P101, "Undef"
- vivify_67:
+ vivify_68:
if $P101, if_97
.annotate 'line', 95
find_lex $P109, "$/"
- unless_null $P109, vivify_68
+ unless_null $P109, vivify_69
$P109 = root_new ['parrot';'Hash']
- vivify_68:
+ vivify_69:
set $P110, $P109["OPER"]
- unless_null $P110, vivify_69
+ unless_null $P110, vivify_70
$P110 = root_new ['parrot';'Hash']
- vivify_69:
+ vivify_70:
set $P111, $P110["O"]
- unless_null $P111, vivify_70
+ unless_null $P111, vivify_71
$P111 = root_new ['parrot';'Hash']
- vivify_70:
+ vivify_71:
set $P112, $P111["pirop"]
- unless_null $P112, vivify_71
+ unless_null $P112, vivify_72
new $P112, "Undef"
- vivify_71:
+ vivify_72:
unless $P112, if_108_end
find_lex $P113, "$past"
find_lex $P114, "$/"
- unless_null $P114, vivify_72
+ unless_null $P114, vivify_73
$P114 = root_new ['parrot';'Hash']
- vivify_72:
+ vivify_73:
set $P115, $P114["OPER"]
- unless_null $P115, vivify_73
+ unless_null $P115, vivify_74
$P115 = root_new ['parrot';'Hash']
- vivify_73:
+ vivify_74:
set $P116, $P115["O"]
- unless_null $P116, vivify_74
+ unless_null $P116, vivify_75
$P116 = root_new ['parrot';'Hash']
- vivify_74:
+ vivify_75:
set $P117, $P116["pirop"]
- unless_null $P117, vivify_75
+ unless_null $P117, vivify_76
new $P117, "Undef"
- vivify_75:
+ vivify_76:
set $S118, $P117
$P113."pirop"($S118)
if_108_end:
@@ -5266,21 +5387,21 @@
.annotate 'line', 94
find_lex $P102, "$past"
find_lex $P103, "$/"
- unless_null $P103, vivify_76
+ unless_null $P103, vivify_77
$P103 = root_new ['parrot';'Hash']
- vivify_76:
+ vivify_77:
set $P104, $P103["OPER"]
- unless_null $P104, vivify_77
+ unless_null $P104, vivify_78
$P104 = root_new ['parrot';'Hash']
- vivify_77:
+ vivify_78:
set $P105, $P104["O"]
- unless_null $P105, vivify_78
+ unless_null $P105, vivify_79
$P105 = root_new ['parrot';'Hash']
- vivify_78:
+ vivify_79:
set $P106, $P105["pasttype"]
- unless_null $P106, vivify_79
+ unless_null $P106, vivify_80
new $P106, "Undef"
- vivify_79:
+ vivify_80:
set $S107, $P106
$P102."pasttype"($S107)
if_97_end:
@@ -5288,7 +5409,7 @@
find_lex $P120, "$past"
$P121 = $P120."name"()
if $P121, unless_119_end
- .const 'Sub' $P123 = "19_1275117587.37325"
+ .const 'Sub' $P123 = "19_1275811473.30481"
capture_lex $P123
$P123()
unless_119_end:
@@ -5302,17 +5423,17 @@
find_lex $P151, "$/"
$P152 = $P151."list"()
defined $I153, $P152
- unless $I153, for_undef_83
+ unless $I153, for_undef_84
iter $P150, $P152
new $P168, 'ExceptionHandler'
set_addr $P168, loop167_handler
- $P168."handle_types"(64, 66, 65)
+ $P168."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P168
loop167_test:
unless $P150, loop167_done
shift $P154, $P150
loop167_redo:
- .const 'Sub' $P156 = "20_1275117587.37325"
+ .const 'Sub' $P156 = "20_1275811473.30481"
capture_lex $P156
$P156($P154)
loop167_next:
@@ -5321,24 +5442,24 @@
.local pmc exception
.get_results (exception)
getattribute $P169, exception, 'type'
- eq $P169, 64, loop167_next
- eq $P169, 66, loop167_redo
+ eq $P169, .CONTROL_LOOP_NEXT, loop167_next
+ eq $P169, .CONTROL_LOOP_REDO, loop167_redo
loop167_done:
pop_eh
- for_undef_83:
+ for_undef_84:
.annotate 'line', 108
goto if_142_end
if_142:
.annotate 'line', 107
find_lex $P146, "$past"
find_lex $P147, "$/"
- unless_null $P147, vivify_84
+ unless_null $P147, vivify_85
$P147 = root_new ['parrot';'ResizablePMCArray']
- vivify_84:
+ vivify_85:
set $P148, $P147[0]
- unless_null $P148, vivify_85
+ unless_null $P148, vivify_86
new $P148, "Undef"
- vivify_85:
+ vivify_86:
$P149 = $P148."ast"()
$P146."unshift"($P149)
if_142_end:
@@ -5357,7 +5478,7 @@
.namespace ["HLL";"Actions"]
-.sub "_block122" :anon :subid("19_1275117587.37325") :outer("18_1275117587.37325")
+.sub "_block122" :anon :subid("19_1275811473.30481") :outer("18_1275811473.30481")
.annotate 'line', 98
new $P124, "Undef"
.lex "$name", $P124
@@ -5380,17 +5501,17 @@
concat $P131, $P130, ":<"
.annotate 'line', 103
find_lex $P132, "$/"
- unless_null $P132, vivify_80
+ unless_null $P132, vivify_81
$P132 = root_new ['parrot';'Hash']
- vivify_80:
+ vivify_81:
set $P133, $P132["OPER"]
- unless_null $P133, vivify_81
+ unless_null $P133, vivify_82
$P133 = root_new ['parrot';'Hash']
- vivify_81:
+ vivify_82:
set $P134, $P133["sym"]
- unless_null $P134, vivify_82
+ unless_null $P134, vivify_83
new $P134, "Undef"
- vivify_82:
+ vivify_83:
concat $P135, $P131, $P134
concat $P136, $P135, ">"
store_lex "$name", $P136
@@ -5407,7 +5528,7 @@
.namespace ["HLL";"Actions"]
-.sub "_block155" :anon :subid("20_1275117587.37325") :outer("18_1275117587.37325")
+.sub "_block155" :anon :subid("20_1275811473.30481") :outer("18_1275811473.30481")
.param pmc param_157
.annotate 'line', 109
.lex "$_", param_157
@@ -5430,24 +5551,25 @@
.namespace ["HLL";"Actions"]
-.sub "term:sym<circumfix>" :subid("21_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "term:sym<circumfix>" :subid("21_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_177
.annotate 'line', 114
new $P176, 'ExceptionHandler'
set_addr $P176, control_175
- $P176."handle_types"(57)
+ $P176."handle_types"(.CONTROL_RETURN)
push_eh $P176
.lex "self", self
.lex "$/", param_177
find_lex $P178, "$/"
find_lex $P179, "$/"
- unless_null $P179, vivify_86
+ unless_null $P179, vivify_87
$P179 = root_new ['parrot';'Hash']
- vivify_86:
+ vivify_87:
set $P180, $P179["circumfix"]
- unless_null $P180, vivify_87
+ unless_null $P180, vivify_88
new $P180, "Undef"
- vivify_87:
+ vivify_88:
$P181 = $P180."ast"()
$P182 = $P178."!make"($P181)
.return ($P182)
@@ -5460,24 +5582,25 @@
.namespace ["HLL";"Actions"]
-.sub "termish" :subid("22_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "termish" :subid("22_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_187
.annotate 'line', 116
new $P186, 'ExceptionHandler'
set_addr $P186, control_185
- $P186."handle_types"(57)
+ $P186."handle_types"(.CONTROL_RETURN)
push_eh $P186
.lex "self", self
.lex "$/", param_187
find_lex $P188, "$/"
find_lex $P189, "$/"
- unless_null $P189, vivify_88
+ unless_null $P189, vivify_89
$P189 = root_new ['parrot';'Hash']
- vivify_88:
+ vivify_89:
set $P190, $P189["term"]
- unless_null $P190, vivify_89
+ unless_null $P190, vivify_90
new $P190, "Undef"
- vivify_89:
+ vivify_90:
$P191 = $P190."ast"()
$P192 = $P188."!make"($P191)
.return ($P192)
@@ -5490,12 +5613,13 @@
.namespace ["HLL";"Actions"]
-.sub "nullterm" :subid("23_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "nullterm" :subid("23_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_197
.annotate 'line', 117
new $P196, 'ExceptionHandler'
set_addr $P196, control_195
- $P196."handle_types"(57)
+ $P196."handle_types"(.CONTROL_RETURN)
push_eh $P196
.lex "self", self
.lex "$/", param_197
@@ -5512,24 +5636,25 @@
.namespace ["HLL";"Actions"]
-.sub "nullterm_alt" :subid("24_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "nullterm_alt" :subid("24_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_205
.annotate 'line', 118
new $P204, 'ExceptionHandler'
set_addr $P204, control_203
- $P204."handle_types"(57)
+ $P204."handle_types"(.CONTROL_RETURN)
push_eh $P204
.lex "self", self
.lex "$/", param_205
find_lex $P206, "$/"
find_lex $P207, "$/"
- unless_null $P207, vivify_90
+ unless_null $P207, vivify_91
$P207 = root_new ['parrot';'Hash']
- vivify_90:
+ vivify_91:
set $P208, $P207["term"]
- unless_null $P208, vivify_91
+ unless_null $P208, vivify_92
new $P208, "Undef"
- vivify_91:
+ vivify_92:
$P209 = $P208."ast"()
$P210 = $P206."!make"($P209)
.return ($P210)
@@ -5542,24 +5667,25 @@
.namespace ["HLL";"Actions"]
-.sub "integer" :subid("25_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "integer" :subid("25_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_215
.annotate 'line', 120
new $P214, 'ExceptionHandler'
set_addr $P214, control_213
- $P214."handle_types"(57)
+ $P214."handle_types"(.CONTROL_RETURN)
push_eh $P214
.lex "self", self
.lex "$/", param_215
find_lex $P216, "$/"
find_lex $P217, "$/"
- unless_null $P217, vivify_92
+ unless_null $P217, vivify_93
$P217 = root_new ['parrot';'Hash']
- vivify_92:
+ vivify_93:
set $P218, $P217["VALUE"]
- unless_null $P218, vivify_93
+ unless_null $P218, vivify_94
new $P218, "Undef"
- vivify_93:
+ vivify_94:
$P219 = $P218."ast"()
$P220 = $P216."!make"($P219)
.return ($P220)
@@ -5572,12 +5698,13 @@
.namespace ["HLL";"Actions"]
-.sub "dec_number" :subid("26_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "dec_number" :subid("26_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_225
.annotate 'line', 122
new $P224, 'ExceptionHandler'
set_addr $P224, control_223
- $P224."handle_types"(57)
+ $P224."handle_types"(.CONTROL_RETURN)
push_eh $P224
.lex "self", self
.lex "$/", param_225
@@ -5595,12 +5722,13 @@
.namespace ["HLL";"Actions"]
-.sub "decint" :subid("27_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "decint" :subid("27_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_234
.annotate 'line', 124
new $P233, 'ExceptionHandler'
set_addr $P233, control_232
- $P233."handle_types"(57)
+ $P233."handle_types"(.CONTROL_RETURN)
push_eh $P233
.lex "self", self
.lex "$/", param_234
@@ -5618,12 +5746,13 @@
.namespace ["HLL";"Actions"]
-.sub "hexint" :subid("28_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "hexint" :subid("28_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_243
.annotate 'line', 125
new $P242, 'ExceptionHandler'
set_addr $P242, control_241
- $P242."handle_types"(57)
+ $P242."handle_types"(.CONTROL_RETURN)
push_eh $P242
.lex "self", self
.lex "$/", param_243
@@ -5641,12 +5770,13 @@
.namespace ["HLL";"Actions"]
-.sub "octint" :subid("29_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "octint" :subid("29_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_252
.annotate 'line', 126
new $P251, 'ExceptionHandler'
set_addr $P251, control_250
- $P251."handle_types"(57)
+ $P251."handle_types"(.CONTROL_RETURN)
push_eh $P251
.lex "self", self
.lex "$/", param_252
@@ -5664,12 +5794,13 @@
.namespace ["HLL";"Actions"]
-.sub "binint" :subid("30_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "binint" :subid("30_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_261
.annotate 'line', 127
new $P260, 'ExceptionHandler'
set_addr $P260, control_259
- $P260."handle_types"(57)
+ $P260."handle_types"(.CONTROL_RETURN)
push_eh $P260
.lex "self", self
.lex "$/", param_261
@@ -5687,14 +5818,15 @@
.namespace ["HLL";"Actions"]
-.sub "quote_EXPR" :subid("31_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_EXPR" :subid("31_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_270
.annotate 'line', 129
- .const 'Sub' $P286 = "32_1275117587.37325"
+ .const 'Sub' $P286 = "32_1275811473.30481"
capture_lex $P286
new $P269, 'ExceptionHandler'
set_addr $P269, control_268
- $P269."handle_types"(57)
+ $P269."handle_types"(.CONTROL_RETURN)
push_eh $P269
.lex "self", self
.lex "$/", param_270
@@ -5702,13 +5834,13 @@
new $P271, "Undef"
.lex "$past", $P271
find_lex $P272, "$/"
- unless_null $P272, vivify_94
+ unless_null $P272, vivify_95
$P272 = root_new ['parrot';'Hash']
- vivify_94:
+ vivify_95:
set $P273, $P272["quote_delimited"]
- unless_null $P273, vivify_95
+ unless_null $P273, vivify_96
new $P273, "Undef"
- vivify_95:
+ vivify_96:
$P274 = $P273."ast"()
store_lex "$past", $P274
.annotate 'line', 131
@@ -5722,7 +5854,7 @@
$P282 = $P280."ACCEPTS"($P281)
if $P282, if_279
.annotate 'line', 135
- .const 'Sub' $P286 = "32_1275117587.37325"
+ .const 'Sub' $P286 = "32_1275811473.30481"
capture_lex $P286
$P286()
goto if_279_end
@@ -5761,9 +5893,10 @@
.namespace ["HLL";"Actions"]
-.sub "_block285" :anon :subid("32_1275117587.37325") :outer("31_1275117587.37325")
+.include "except_types.pasm"
+.sub "_block285" :anon :subid("32_1275811473.30481") :outer("31_1275811473.30481")
.annotate 'line', 135
- .const 'Sub' $P305 = "33_1275117587.37325"
+ .const 'Sub' $P305 = "33_1275811473.30481"
capture_lex $P305
.annotate 'line', 136
$P287 = root_new ['parrot';'ResizablePMCArray']
@@ -5780,13 +5913,13 @@
if $I296, if_293
.annotate 'line', 142
find_lex $P313, "@words"
- unless_null $P313, vivify_96
+ unless_null $P313, vivify_97
$P313 = root_new ['parrot';'ResizablePMCArray']
- vivify_96:
+ vivify_97:
set $P314, $P313[0]
- unless_null $P314, vivify_97
+ unless_null $P314, vivify_98
new $P314, "Undef"
- vivify_97:
+ vivify_98:
set $S315, $P314
new $P316, 'String'
set $P316, $S315
@@ -5804,17 +5937,17 @@
.annotate 'line', 139
find_lex $P301, "@words"
defined $I302, $P301
- unless $I302, for_undef_98
+ unless $I302, for_undef_99
iter $P300, $P301
new $P311, 'ExceptionHandler'
set_addr $P311, loop310_handler
- $P311."handle_types"(64, 66, 65)
+ $P311."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P311
loop310_test:
unless $P300, loop310_done
shift $P303, $P300
loop310_redo:
- .const 'Sub' $P305 = "33_1275117587.37325"
+ .const 'Sub' $P305 = "33_1275811473.30481"
capture_lex $P305
$P305($P303)
loop310_next:
@@ -5823,11 +5956,11 @@
.local pmc exception
.get_results (exception)
getattribute $P312, exception, 'type'
- eq $P312, 64, loop310_next
- eq $P312, 66, loop310_redo
+ eq $P312, .CONTROL_LOOP_NEXT, loop310_next
+ eq $P312, .CONTROL_LOOP_REDO, loop310_redo
loop310_done:
pop_eh
- for_undef_98:
+ for_undef_99:
.annotate 'line', 137
set $P292, $P300
if_293_end:
@@ -5837,7 +5970,7 @@
.namespace ["HLL";"Actions"]
-.sub "_block304" :anon :subid("33_1275117587.37325") :outer("32_1275117587.37325")
+.sub "_block304" :anon :subid("33_1275811473.30481") :outer("32_1275811473.30481")
.param pmc param_306
.annotate 'line', 139
.lex "$_", param_306
@@ -5849,14 +5982,15 @@
.namespace ["HLL";"Actions"]
-.sub "quote_delimited" :subid("34_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_delimited" :subid("34_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_333
.annotate 'line', 152
- .const 'Sub' $P345 = "35_1275117587.37325"
+ .const 'Sub' $P345 = "35_1275811473.30481"
capture_lex $P345
new $P332, 'ExceptionHandler'
set_addr $P332, control_331
- $P332."handle_types"(57)
+ $P332."handle_types"(.CONTROL_RETURN)
push_eh $P332
.lex "self", self
.lex "$/", param_333
@@ -5877,25 +6011,25 @@
store_lex "$lastlit", $P338
.annotate 'line', 155
find_lex $P340, "$/"
- unless_null $P340, vivify_99
+ unless_null $P340, vivify_100
$P340 = root_new ['parrot';'Hash']
- vivify_99:
+ vivify_100:
set $P341, $P340["quote_atom"]
- unless_null $P341, vivify_100
+ unless_null $P341, vivify_101
new $P341, "Undef"
- vivify_100:
+ vivify_101:
defined $I342, $P341
- unless $I342, for_undef_101
+ unless $I342, for_undef_102
iter $P339, $P341
new $P378, 'ExceptionHandler'
set_addr $P378, loop377_handler
- $P378."handle_types"(64, 66, 65)
+ $P378."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P378
loop377_test:
unless $P339, loop377_done
shift $P343, $P339
loop377_redo:
- .const 'Sub' $P345 = "35_1275117587.37325"
+ .const 'Sub' $P345 = "35_1275811473.30481"
capture_lex $P345
$P345($P343)
loop377_next:
@@ -5904,11 +6038,11 @@
.local pmc exception
.get_results (exception)
getattribute $P379, exception, 'type'
- eq $P379, 64, loop377_next
- eq $P379, 66, loop377_redo
+ eq $P379, .CONTROL_LOOP_NEXT, loop377_next
+ eq $P379, .CONTROL_LOOP_REDO, loop377_redo
loop377_done:
pop_eh
- for_undef_101:
+ for_undef_102:
.annotate 'line', 169
find_lex $P381, "$lastlit"
set $S382, $P381
@@ -5934,7 +6068,7 @@
.annotate 'line', 171
new $P399, 'ExceptionHandler'
set_addr $P399, loop398_handler
- $P399."handle_types"(64, 66, 65)
+ $P399."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P399
loop398_test:
find_lex $P392, "@parts"
@@ -5954,8 +6088,8 @@
.local pmc exception
.get_results (exception)
getattribute $P400, exception, 'type'
- eq $P400, 64, loop398_next
- eq $P400, 66, loop398_redo
+ eq $P400, .CONTROL_LOOP_NEXT, loop398_next
+ eq $P400, .CONTROL_LOOP_REDO, loop398_redo
loop398_done:
pop_eh
.annotate 'line', 174
@@ -5973,7 +6107,7 @@
.namespace ["HLL";"Actions"]
-.sub "_block344" :anon :subid("35_1275117587.37325") :outer("34_1275117587.37325")
+.sub "_block344" :anon :subid("35_1275811473.30481") :outer("34_1275811473.30481")
.param pmc param_347
.annotate 'line', 156
new $P346, "Undef"
@@ -6042,25 +6176,26 @@
.namespace ["HLL";"Actions"]
-.sub "quote_atom" :subid("36_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_atom" :subid("36_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_408
.annotate 'line', 177
new $P407, 'ExceptionHandler'
set_addr $P407, control_406
- $P407."handle_types"(57)
+ $P407."handle_types"(.CONTROL_RETURN)
push_eh $P407
.lex "self", self
.lex "$/", param_408
.annotate 'line', 178
find_lex $P409, "$/"
find_lex $P412, "$/"
- unless_null $P412, vivify_102
+ unless_null $P412, vivify_103
$P412 = root_new ['parrot';'Hash']
- vivify_102:
+ vivify_103:
set $P413, $P412["quote_escape"]
- unless_null $P413, vivify_103
+ unless_null $P413, vivify_104
new $P413, "Undef"
- vivify_103:
+ vivify_104:
if $P413, if_411
find_lex $P417, "$/"
set $S418, $P417
@@ -6069,13 +6204,13 @@
goto if_411_end
if_411:
find_lex $P414, "$/"
- unless_null $P414, vivify_104
+ unless_null $P414, vivify_105
$P414 = root_new ['parrot';'Hash']
- vivify_104:
+ vivify_105:
set $P415, $P414["quote_escape"]
- unless_null $P415, vivify_105
+ unless_null $P415, vivify_106
new $P415, "Undef"
- vivify_105:
+ vivify_106:
$P416 = $P415."ast"()
set $P410, $P416
if_411_end:
@@ -6091,12 +6226,13 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<backslash>" :subid("37_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<backslash>" :subid("37_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_424
.annotate 'line', 181
new $P423, 'ExceptionHandler'
set_addr $P423, control_422
- $P423."handle_types"(57)
+ $P423."handle_types"(.CONTROL_RETURN)
push_eh $P423
.lex "self", self
.lex "$/", param_424
@@ -6112,24 +6248,25 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<stopper>" :subid("38_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<stopper>" :subid("38_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_431
.annotate 'line', 182
new $P430, 'ExceptionHandler'
set_addr $P430, control_429
- $P430."handle_types"(57)
+ $P430."handle_types"(.CONTROL_RETURN)
push_eh $P430
.lex "self", self
.lex "$/", param_431
find_lex $P432, "$/"
find_lex $P433, "$/"
- unless_null $P433, vivify_106
+ unless_null $P433, vivify_107
$P433 = root_new ['parrot';'Hash']
- vivify_106:
+ vivify_107:
set $P434, $P433["stopper"]
- unless_null $P434, vivify_107
+ unless_null $P434, vivify_108
new $P434, "Undef"
- vivify_107:
+ vivify_108:
set $S435, $P434
$P436 = $P432."!make"($S435)
.return ($P436)
@@ -6142,12 +6279,13 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<bs>" :subid("39_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<bs>" :subid("39_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_441
.annotate 'line', 184
new $P440, 'ExceptionHandler'
set_addr $P440, control_439
- $P440."handle_types"(57)
+ $P440."handle_types"(.CONTROL_RETURN)
push_eh $P440
.lex "self", self
.lex "$/", param_441
@@ -6163,12 +6301,13 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<nl>" :subid("40_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<nl>" :subid("40_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_448
.annotate 'line', 185
new $P447, 'ExceptionHandler'
set_addr $P447, control_446
- $P447."handle_types"(57)
+ $P447."handle_types"(.CONTROL_RETURN)
push_eh $P447
.lex "self", self
.lex "$/", param_448
@@ -6184,12 +6323,13 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<cr>" :subid("41_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<cr>" :subid("41_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_455
.annotate 'line', 186
new $P454, 'ExceptionHandler'
set_addr $P454, control_453
- $P454."handle_types"(57)
+ $P454."handle_types"(.CONTROL_RETURN)
push_eh $P454
.lex "self", self
.lex "$/", param_455
@@ -6205,12 +6345,13 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<tab>" :subid("42_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<tab>" :subid("42_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_462
.annotate 'line', 187
new $P461, 'ExceptionHandler'
set_addr $P461, control_460
- $P461."handle_types"(57)
+ $P461."handle_types"(.CONTROL_RETURN)
push_eh $P461
.lex "self", self
.lex "$/", param_462
@@ -6226,12 +6367,13 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<ff>" :subid("43_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<ff>" :subid("43_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_469
.annotate 'line', 188
new $P468, 'ExceptionHandler'
set_addr $P468, control_467
- $P468."handle_types"(57)
+ $P468."handle_types"(.CONTROL_RETURN)
push_eh $P468
.lex "self", self
.lex "$/", param_469
@@ -6247,169 +6389,171 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<hex>" :subid("44_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<esc>" :subid("44_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_476
-.annotate 'line', 190
+.annotate 'line', 189
new $P475, 'ExceptionHandler'
set_addr $P475, control_474
- $P475."handle_types"(57)
+ $P475."handle_types"(.CONTROL_RETURN)
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
+ $P478 = $P477."!make"("\e")
+ .return ($P478)
+ control_474:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P479, exception, "payload"
+ .return ($P479)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.include "except_types.pasm"
+.sub "quote_escape:sym<hex>" :subid("45_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_483
+.annotate 'line', 191
+ new $P482, 'ExceptionHandler'
+ set_addr $P482, control_481
+ $P482."handle_types"(.CONTROL_RETURN)
+ push_eh $P482
+ .lex "self", self
+ .lex "$/", param_483
+.annotate 'line', 192
find_lex $P484, "$/"
- unless_null $P484, vivify_110
- $P484 = root_new ['parrot';'Hash']
+ find_lex $P487, "$/"
+ unless_null $P487, vivify_109
+ $P487 = root_new ['parrot';'Hash']
+ vivify_109:
+ set $P488, $P487["hexint"]
+ unless_null $P488, vivify_110
+ new $P488, "Undef"
vivify_110:
- set $P485, $P484["hexints"]
- unless_null $P485, vivify_111
- $P485 = root_new ['parrot';'Hash']
+ if $P488, if_486
+ find_lex $P491, "$/"
+ unless_null $P491, vivify_111
+ $P491 = root_new ['parrot';'Hash']
vivify_111:
- set $P486, $P485["hexint"]
- unless_null $P486, vivify_112
- new $P486, "Undef"
+ set $P492, $P491["hexints"]
+ unless_null $P492, vivify_112
+ $P492 = root_new ['parrot';'Hash']
vivify_112:
- set $P478, $P486
- goto if_479_end
- if_479:
- find_lex $P482, "$/"
- unless_null $P482, vivify_113
- $P482 = root_new ['parrot';'Hash']
+ set $P493, $P492["hexint"]
+ unless_null $P493, vivify_113
+ new $P493, "Undef"
vivify_113:
- set $P483, $P482["hexint"]
- unless_null $P483, vivify_114
- new $P483, "Undef"
+ set $P485, $P493
+ goto if_486_end
+ if_486:
+ find_lex $P489, "$/"
+ unless_null $P489, vivify_114
+ $P489 = root_new ['parrot';'Hash']
vivify_114:
- set $P478, $P483
- if_479_end:
- $P487 = "ints_to_string"($P478)
- $P488 = $P477."!make"($P487)
-.annotate 'line', 190
- .return ($P488)
- control_474:
+ set $P490, $P489["hexint"]
+ unless_null $P490, vivify_115
+ new $P490, "Undef"
+ vivify_115:
+ set $P485, $P490
+ if_486_end:
+ $P494 = "ints_to_string"($P485)
+ $P495 = $P484."!make"($P494)
+.annotate 'line', 191
+ .return ($P495)
+ control_481:
.local pmc exception
.get_results (exception)
- getattribute $P489, exception, "payload"
- .return ($P489)
+ getattribute $P496, exception, "payload"
+ .return ($P496)
.end
.namespace ["HLL";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "quote_escape:sym<oct>" :subid("46_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_500
.annotate 'line', 195
- find_lex $P494, "$/"
- find_lex $P497, "$/"
- unless_null $P497, vivify_115
- $P497 = root_new ['parrot';'Hash']
- vivify_115:
- set $P498, $P497["octint"]
- unless_null $P498, vivify_116
- new $P498, "Undef"
- vivify_116:
- if $P498, if_496
+ new $P499, 'ExceptionHandler'
+ set_addr $P499, control_498
+ $P499."handle_types"(.CONTROL_RETURN)
+ push_eh $P499
+ .lex "self", self
+ .lex "$/", param_500
+.annotate 'line', 196
find_lex $P501, "$/"
- unless_null $P501, vivify_117
- $P501 = root_new ['parrot';'Hash']
+ find_lex $P504, "$/"
+ unless_null $P504, vivify_116
+ $P504 = root_new ['parrot';'Hash']
+ vivify_116:
+ set $P505, $P504["octint"]
+ unless_null $P505, vivify_117
+ new $P505, "Undef"
vivify_117:
- set $P502, $P501["octints"]
- unless_null $P502, vivify_118
- $P502 = root_new ['parrot';'Hash']
+ if $P505, if_503
+ find_lex $P508, "$/"
+ unless_null $P508, vivify_118
+ $P508 = root_new ['parrot';'Hash']
vivify_118:
- set $P503, $P502["octint"]
- unless_null $P503, vivify_119
- new $P503, "Undef"
+ set $P509, $P508["octints"]
+ unless_null $P509, vivify_119
+ $P509 = root_new ['parrot';'Hash']
vivify_119:
- set $P495, $P503
- goto if_496_end
- if_496:
- find_lex $P499, "$/"
- unless_null $P499, vivify_120
- $P499 = root_new ['parrot';'Hash']
+ set $P510, $P509["octint"]
+ unless_null $P510, vivify_120
+ new $P510, "Undef"
vivify_120:
- set $P500, $P499["octint"]
- unless_null $P500, vivify_121
- new $P500, "Undef"
+ set $P502, $P510
+ goto if_503_end
+ if_503:
+ find_lex $P506, "$/"
+ unless_null $P506, vivify_121
+ $P506 = root_new ['parrot';'Hash']
vivify_121:
- set $P495, $P500
- if_496_end:
- $P504 = "ints_to_string"($P495)
- $P505 = $P494."!make"($P504)
-.annotate 'line', 194
- .return ($P505)
- control_491:
+ set $P507, $P506["octint"]
+ unless_null $P507, vivify_122
+ new $P507, "Undef"
+ vivify_122:
+ set $P502, $P507
+ if_503_end:
+ $P511 = "ints_to_string"($P502)
+ $P512 = $P501."!make"($P511)
+.annotate 'line', 195
+ .return ($P512)
+ control_498:
.local pmc exception
.get_results (exception)
- getattribute $P506, exception, "payload"
- .return ($P506)
+ getattribute $P513, exception, "payload"
+ .return ($P513)
.end
.namespace ["HLL";"Actions"]
-.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_510
+.include "except_types.pasm"
+.sub "quote_escape:sym<chr>" :subid("47_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_517
.annotate 'line', 199
- find_lex $P511, "$/"
- find_lex $P512, "$/"
- unless_null $P512, vivify_122
- $P512 = root_new ['parrot';'Hash']
- vivify_122:
- set $P513, $P512["charspec"]
- unless_null $P513, vivify_123
- new $P513, "Undef"
+ new $P516, 'ExceptionHandler'
+ set_addr $P516, control_515
+ $P516."handle_types"(.CONTROL_RETURN)
+ push_eh $P516
+ .lex "self", self
+ .lex "$/", param_517
+.annotate 'line', 200
+ find_lex $P518, "$/"
+ find_lex $P519, "$/"
+ unless_null $P519, vivify_123
+ $P519 = root_new ['parrot';'Hash']
vivify_123:
- $P514 = $P513."ast"()
- $P515 = $P511."!make"($P514)
-.annotate 'line', 198
- .return ($P515)
- control_508:
- .local pmc exception
- .get_results (exception)
- getattribute $P516, exception, "payload"
- .return ($P516)
-.end
-
-
-.namespace ["HLL";"Actions"]
-.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
+ set $P520, $P519["charspec"]
+ unless_null $P520, vivify_124
+ new $P520, "Undef"
+ vivify_124:
+ $P521 = $P520."ast"()
+ $P522 = $P518."!make"($P521)
+.annotate 'line', 199
.return ($P522)
- control_518:
+ control_515:
.local pmc exception
.get_results (exception)
getattribute $P523, exception, "payload"
@@ -6418,287 +6562,315 @@
.namespace ["HLL";"Actions"]
-.sub "quote_escape:sym<misc>" :subid("48_1275117587.37325") :method :outer("11_1275117587.37325")
+.include "except_types.pasm"
+.sub "quote_escape:sym<0>" :subid("48_1275811473.30481") :method :outer("11_1275811473.30481")
.param pmc param_527
-.annotate 'line', 206
+.annotate 'line', 203
new $P526, 'ExceptionHandler'
set_addr $P526, control_525
- $P526."handle_types"(57)
+ $P526."handle_types"(.CONTROL_RETURN)
push_eh $P526
.lex "self", self
.lex "$/", param_527
-.annotate 'line', 207
+.annotate 'line', 204
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"
- vivify_125:
- if $P532, if_530
+ $P529 = $P528."!make"(unicode:"\x{0}")
+.annotate 'line', 203
+ .return ($P529)
+ control_525:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P530, exception, "payload"
+ .return ($P530)
+.end
+
+
+.namespace ["HLL";"Actions"]
+.include "except_types.pasm"
+.sub "quote_escape:sym<misc>" :subid("49_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_534
+.annotate 'line', 207
+ new $P533, 'ExceptionHandler'
+ set_addr $P533, control_532
+ $P533."handle_types"(.CONTROL_RETURN)
+ push_eh $P533
+ .lex "self", self
+ .lex "$/", param_534
+.annotate 'line', 208
+ find_lex $P535, "$/"
find_lex $P538, "$/"
- unless_null $P538, vivify_126
+ unless_null $P538, vivify_125
$P538 = root_new ['parrot';'Hash']
- vivify_126:
- set $P539, $P538["textqq"]
- unless_null $P539, vivify_127
+ vivify_125:
+ set $P539, $P538["textq"]
+ unless_null $P539, vivify_126
new $P539, "Undef"
+ vivify_126:
+ if $P539, if_537
+ find_lex $P545, "$/"
+ unless_null $P545, vivify_127
+ $P545 = root_new ['parrot';'Hash']
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']
+ set $P546, $P545["textqq"]
+ unless_null $P546, vivify_128
+ new $P546, "Undef"
vivify_128:
- set $P535, $P534["textq"]
- unless_null $P535, vivify_129
- new $P535, "Undef"
+ $P547 = $P546."Str"()
+ set $P536, $P547
+ goto if_537_end
+ if_537:
+ new $P540, "String"
+ assign $P540, "\\"
+ find_lex $P541, "$/"
+ unless_null $P541, vivify_129
+ $P541 = root_new ['parrot';'Hash']
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:
+ set $P542, $P541["textq"]
+ unless_null $P542, vivify_130
+ new $P542, "Undef"
+ vivify_130:
+ $S543 = $P542."Str"()
+ concat $P544, $P540, $S543
+ set $P536, $P544
+ if_537_end:
+ $P548 = $P535."!make"($P536)
+.annotate 'line', 207
+ .return ($P548)
+ control_532:
.local pmc exception
.get_results (exception)
- getattribute $P542, exception, "payload"
- .return ($P542)
+ getattribute $P549, exception, "payload"
+ .return ($P549)
.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
+.include "except_types.pasm"
+.sub "charname" :subid("50_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_553
.annotate 'line', 211
- new $P547, "Undef"
- .lex "$codepoint", $P547
+ new $P552, 'ExceptionHandler'
+ set_addr $P552, control_551
+ $P552."handle_types"(.CONTROL_RETURN)
+ push_eh $P552
+ .lex "self", self
+ .lex "$/", param_553
.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
+ new $P554, "Undef"
+ .lex "$codepoint", $P554
.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']
+ find_lex $P557, "$/"
+ unless_null $P557, vivify_131
+ $P557 = root_new ['parrot';'Hash']
+ vivify_131:
+ set $P558, $P557["integer"]
+ unless_null $P558, vivify_132
+ new $P558, "Undef"
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
+ if $P558, if_556
.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:
+ set $S563, $P562
+ find_codepoint $I564, $S563
+ new $P555, 'Integer'
+ set $P555, $I564
+.annotate 'line', 213
+ goto if_556_end
+ if_556:
+ find_lex $P559, "$/"
+ unless_null $P559, vivify_133
+ $P559 = root_new ['parrot';'Hash']
+ vivify_133:
+ set $P560, $P559["integer"]
+ unless_null $P560, vivify_134
+ new $P560, "Undef"
+ vivify_134:
+ $P561 = $P560."ast"()
+ set $P555, $P561
+ if_556_end:
+ store_lex "$codepoint", $P555
.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:
+ find_lex $P566, "$codepoint"
+ set $N567, $P566
+ islt $I568, $N567, 0.0
+ unless $I568, if_565_end
+ find_lex $P569, "$/"
+ $P570 = $P569."CURSOR"()
+ new $P571, 'String'
+ set $P571, "Unrecognized character name "
+ find_lex $P572, "$/"
+ concat $P573, $P571, $P572
+ $P570."panic"($P573)
+ if_565_end:
+.annotate 'line', 216
+ find_lex $P574, "$/"
+ find_lex $P575, "$codepoint"
+ set $I576, $P575
+ chr $S577, $I576
+ $P578 = $P574."!make"($S577)
+.annotate 'line', 211
+ .return ($P578)
+ control_551:
.local pmc exception
.get_results (exception)
- getattribute $P572, exception, "payload"
- .return ($P572)
+ getattribute $P579, exception, "payload"
+ .return ($P579)
.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
+.include "except_types.pasm"
+.sub "charnames" :subid("51_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_583
.annotate 'line', 219
- new $P577, "Undef"
- .lex "$str", $P577
- new $P578, "String"
- assign $P578, ""
- store_lex "$str", $P578
+ .const 'Sub' $P592 = "52_1275811473.30481"
+ capture_lex $P592
+ new $P582, 'ExceptionHandler'
+ set_addr $P582, control_581
+ $P582."handle_types"(.CONTROL_RETURN)
+ push_eh $P582
+ .lex "self", self
+ .lex "$/", param_583
.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"
+ new $P584, "Undef"
+ .lex "$str", $P584
+ new $P585, "String"
+ assign $P585, ""
+ store_lex "$str", $P585
+.annotate 'line', 221
+ find_lex $P587, "$/"
+ unless_null $P587, vivify_135
+ $P587 = root_new ['parrot';'Hash']
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:
+ set $P588, $P587["charname"]
+ unless_null $P588, vivify_136
+ new $P588, "Undef"
+ vivify_136:
+ defined $I589, $P588
+ unless $I589, for_undef_137
+ iter $P586, $P588
+ new $P599, 'ExceptionHandler'
+ set_addr $P599, loop598_handler
+ $P599."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P599
+ loop598_test:
+ unless $P586, loop598_done
+ shift $P590, $P586
+ loop598_redo:
+ .const 'Sub' $P592 = "52_1275811473.30481"
+ capture_lex $P592
+ $P592($P590)
+ loop598_next:
+ goto loop598_test
+ loop598_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P600, exception, 'type'
+ eq $P600, .CONTROL_LOOP_NEXT, loop598_next
+ eq $P600, .CONTROL_LOOP_REDO, loop598_redo
+ loop598_done:
pop_eh
- for_undef_136:
-.annotate 'line', 221
- find_lex $P594, "$/"
- find_lex $P595, "$str"
- $P596 = $P594."!make"($P595)
-.annotate 'line', 218
- .return ($P596)
- control_574:
+ for_undef_137:
+.annotate 'line', 222
+ find_lex $P601, "$/"
+ find_lex $P602, "$str"
+ $P603 = $P601."!make"($P602)
+.annotate 'line', 219
+ .return ($P603)
+ control_581:
.local pmc exception
.get_results (exception)
- getattribute $P597, exception, "payload"
- .return ($P597)
+ getattribute $P604, exception, "payload"
+ .return ($P604)
.end
.namespace ["HLL";"Actions"]
-.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)
+.sub "_block591" :anon :subid("52_1275811473.30481") :outer("51_1275811473.30481")
+ .param pmc param_593
+.annotate 'line', 221
+ .lex "$_", param_593
+ find_lex $P594, "$str"
+ find_lex $P595, "$_"
+ $S596 = $P595."ast"()
+ concat $P597, $P594, $S596
+ store_lex "$str", $P597
+ .return ($P597)
.end
.namespace ["HLL";"Actions"]
-.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_601
+.include "except_types.pasm"
+.sub "charspec" :subid("53_1275811473.30481") :method :outer("11_1275811473.30481")
+ .param pmc param_608
.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"
+ new $P607, 'ExceptionHandler'
+ set_addr $P607, control_606
+ $P607."handle_types"(.CONTROL_RETURN)
+ push_eh $P607
+ .lex "self", self
+ .lex "$/", param_608
+.annotate 'line', 226
+ find_lex $P609, "$/"
+ find_lex $P612, "$/"
+ unless_null $P612, vivify_138
+ $P612 = root_new ['parrot';'Hash']
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']
+ set $P613, $P612["charnames"]
+ unless_null $P613, vivify_139
+ new $P613, "Undef"
vivify_139:
- set $P608, $P607["charnames"]
- unless_null $P608, vivify_140
- new $P608, "Undef"
+ if $P613, if_611
+ find_lex $P617, "$/"
+ $I618 = "string_to_int"($P617, 10)
+ chr $S619, $I618
+ new $P610, 'String'
+ set $P610, $S619
+ goto if_611_end
+ if_611:
+ find_lex $P614, "$/"
+ unless_null $P614, vivify_140
+ $P614 = root_new ['parrot';'Hash']
vivify_140:
- $P609 = $P608."ast"()
- set $P603, $P609
- if_604_end:
- $P613 = $P602."!make"($P603)
-.annotate 'line', 224
- .return ($P613)
- control_599:
+ set $P615, $P614["charnames"]
+ unless_null $P615, vivify_141
+ new $P615, "Undef"
+ vivify_141:
+ $P616 = $P615."ast"()
+ set $P610, $P616
+ if_611_end:
+ $P620 = $P609."!make"($P610)
+.annotate 'line', 225
+ .return ($P620)
+ control_606:
.local pmc exception
.get_results (exception)
- getattribute $P614, exception, "payload"
- .return ($P614)
+ getattribute $P621, exception, "payload"
+ .return ($P621)
.end
.namespace ["HLL";"Actions"]
-.sub "_block616" :load :anon :subid("53_1275117587.37325")
+.sub "_block623" :load :anon :subid("54_1275811473.30481")
.annotate 'line', 3
- .const 'Sub' $P618 = "11_1275117587.37325"
- $P619 = $P618()
- .return ($P619)
+ .const 'Sub' $P625 = "11_1275811473.30481"
+ $P626 = $P625()
+ .return ($P626)
.end
.namespace []
-.sub "_block621" :load :anon :subid("54_1275117587.37325")
+.sub "_block628" :load :anon :subid("55_1275811473.30481")
.annotate 'line', 1
- .const 'Sub' $P623 = "10_1275117587.37325"
- $P624 = $P623()
- .return ($P624)
+ .const 'Sub' $P630 = "10_1275811473.30481"
+ $P631 = $P630()
+ .return ($P631)
.end
### .include 'gen/hllcompiler.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117592.29966")
+.sub "_block11" :anon :subid("10_1275811474.72541")
.annotate 'line', 0
get_hll_global $P14, ["HLL";"Compiler"], "_block13"
capture_lex $P14
@@ -6715,15 +6887,15 @@
$P492 = $P14()
.annotate 'line', 1
.return ($P492)
- .const 'Sub' $P494 = "35_1275117592.29966"
+ .const 'Sub' $P494 = "35_1275811474.72541"
.return ($P494)
.end
.namespace []
-.sub "" :load :init :subid("post36") :outer("10_1275117592.29966")
+.sub "" :load :init :subid("post36") :outer("10_1275811474.72541")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117592.29966"
+ .const 'Sub' $P12 = "10_1275811474.72541"
.local pmc block
set block, $P12
.annotate 'line', 2
@@ -6737,36 +6909,36 @@
.namespace ["HLL";"Compiler"]
-.sub "_block13" :subid("11_1275117592.29966") :outer("10_1275117592.29966")
+.sub "_block13" :subid("11_1275811474.72541") :outer("10_1275811474.72541")
.annotate 'line', 6
- .const 'Sub' $P484 = "34_1275117592.29966"
+ .const 'Sub' $P484 = "34_1275811474.72541"
capture_lex $P484
- .const 'Sub' $P442 = "32_1275117592.29966"
+ .const 'Sub' $P442 = "32_1275811474.72541"
capture_lex $P442
- .const 'Sub' $P298 = "26_1275117592.29966"
+ .const 'Sub' $P298 = "26_1275811474.72541"
capture_lex $P298
- .const 'Sub' $P283 = "25_1275117592.29966"
+ .const 'Sub' $P283 = "25_1275811474.72541"
capture_lex $P283
- .const 'Sub' $P188 = "20_1275117592.29966"
+ .const 'Sub' $P188 = "20_1275811474.72541"
capture_lex $P188
- .const 'Sub' $P153 = "18_1275117592.29966"
+ .const 'Sub' $P153 = "18_1275811474.72541"
capture_lex $P153
- .const 'Sub' $P138 = "17_1275117592.29966"
+ .const 'Sub' $P138 = "17_1275811474.72541"
capture_lex $P138
- .const 'Sub' $P122 = "16_1275117592.29966"
+ .const 'Sub' $P122 = "16_1275811474.72541"
capture_lex $P122
- .const 'Sub' $P33 = "13_1275117592.29966"
+ .const 'Sub' $P33 = "13_1275811474.72541"
capture_lex $P33
- .const 'Sub' $P15 = "12_1275117592.29966"
+ .const 'Sub' $P15 = "12_1275811474.72541"
capture_lex $P15
.annotate 'line', 14
- .const 'Sub' $P15 = "12_1275117592.29966"
+ .const 'Sub' $P15 = "12_1275811474.72541"
newclosure $P31, $P15
.lex "value_type", $P31
.annotate 'line', 10
find_lex $P32, "value_type"
.annotate 'line', 163
- .const 'Sub' $P484 = "34_1275117592.29966"
+ .const 'Sub' $P484 = "34_1275811474.72541"
newclosure $P490, $P484
.annotate 'line', 6
.return ($P490)
@@ -6774,7 +6946,7 @@
.namespace ["HLL";"Compiler"]
-.sub "" :load :init :subid("post37") :outer("11_1275117592.29966")
+.sub "" :load :init :subid("post37") :outer("11_1275811474.72541")
.annotate 'line', 6
get_hll_global $P14, ["HLL";"Compiler"], "_block13"
.local pmc block
@@ -6786,12 +6958,13 @@
.namespace ["HLL";"Compiler"]
-.sub "value_type" :subid("12_1275117592.29966") :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "value_type" :subid("12_1275811474.72541") :outer("11_1275811474.72541")
.param pmc param_18
.annotate 'line', 14
new $P17, 'ExceptionHandler'
set_addr $P17, control_16
- $P17."handle_types"(57)
+ $P17."handle_types"(.CONTROL_RETURN)
push_eh $P17
.lex "$value", param_18
.annotate 'line', 15
@@ -6830,19 +7003,20 @@
.namespace ["HLL";"Compiler"]
-.sub "get_exports" :subid("13_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "get_exports" :subid("13_1275811474.72541") :method :outer("11_1275811474.72541")
.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_1275117592.29966"
+ .const 'Sub' $P105 = "15_1275811474.72541"
capture_lex $P105
- .const 'Sub' $P84 = "14_1275117592.29966"
+ .const 'Sub' $P84 = "14_1275811474.72541"
capture_lex $P84
new $P35, 'ExceptionHandler'
set_addr $P35, control_34
- $P35."handle_types"(57)
+ $P35."handle_types"(.CONTROL_RETURN)
push_eh $P35
.lex "self", self
.lex "$module", param_36
@@ -6938,13 +7112,13 @@
iter $P100, $P101
new $P118, 'ExceptionHandler'
set_addr $P118, loop117_handler
- $P118."handle_types"(64, 66, 65)
+ $P118."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P118
loop117_test:
unless $P100, loop117_done
shift $P103, $P100
loop117_redo:
- .const 'Sub' $P105 = "15_1275117592.29966"
+ .const 'Sub' $P105 = "15_1275811474.72541"
capture_lex $P105
$P105($P103)
loop117_next:
@@ -6953,8 +7127,8 @@
.local pmc exception
.get_results (exception)
getattribute $P119, exception, 'type'
- eq $P119, 64, loop117_next
- eq $P119, 66, loop117_redo
+ eq $P119, .CONTROL_LOOP_NEXT, loop117_next
+ eq $P119, .CONTROL_LOOP_REDO, loop117_redo
loop117_done:
pop_eh
for_undef_42:
@@ -6968,13 +7142,13 @@
iter $P79, $P80
new $P98, 'ExceptionHandler'
set_addr $P98, loop97_handler
- $P98."handle_types"(64, 66, 65)
+ $P98."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P98
loop97_test:
unless $P79, loop97_done
shift $P82, $P79
loop97_redo:
- .const 'Sub' $P84 = "14_1275117592.29966"
+ .const 'Sub' $P84 = "14_1275811474.72541"
capture_lex $P84
$P84($P82)
loop97_next:
@@ -6983,8 +7157,8 @@
.local pmc exception
.get_results (exception)
getattribute $P99, exception, 'type'
- eq $P99, 64, loop97_next
- eq $P99, 66, loop97_redo
+ eq $P99, .CONTROL_LOOP_NEXT, loop97_next
+ eq $P99, .CONTROL_LOOP_REDO, loop97_redo
loop97_done:
pop_eh
for_undef_45:
@@ -7002,7 +7176,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block104" :anon :subid("15_1275117592.29966") :outer("13_1275117592.29966")
+.sub "_block104" :anon :subid("15_1275811474.72541") :outer("13_1275811474.72541")
.param pmc param_107
.annotate 'line', 40
new $P106, "Undef"
@@ -7034,7 +7208,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block83" :anon :subid("14_1275117592.29966") :outer("13_1275117592.29966")
+.sub "_block83" :anon :subid("14_1275811474.72541") :outer("13_1275811474.72541")
.param pmc param_86
.annotate 'line', 34
new $P85, "Undef"
@@ -7073,12 +7247,13 @@
.namespace ["HLL";"Compiler"]
-.sub "get_module" :subid("16_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "get_module" :subid("16_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_125
.annotate 'line', 47
new $P124, 'ExceptionHandler'
set_addr $P124, control_123
- $P124."handle_types"(57)
+ $P124."handle_types"(.CONTROL_RETURN)
push_eh $P124
.lex "self", self
.lex "$name", param_125
@@ -7113,13 +7288,14 @@
.namespace ["HLL";"Compiler"]
-.sub "language" :subid("17_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "language" :subid("17_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_141 :optional
.param int has_param_141 :opt_flag
.annotate 'line', 53
new $P140, 'ExceptionHandler'
set_addr $P140, control_139
- $P140."handle_types"(57)
+ $P140."handle_types"(.CONTROL_RETURN)
push_eh $P140
.lex "self", self
if has_param_141, optparam_51
@@ -7157,14 +7333,15 @@
.namespace ["HLL";"Compiler"]
-.sub "load_module" :subid("18_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "load_module" :subid("18_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_156
.annotate 'line', 61
- .const 'Sub' $P166 = "19_1275117592.29966"
+ .const 'Sub' $P166 = "19_1275811474.72541"
capture_lex $P166
new $P155, 'ExceptionHandler'
set_addr $P155, control_154
- $P155."handle_types"(57)
+ $P155."handle_types"(.CONTROL_RETURN)
push_eh $P155
.lex "self", self
.lex "$name", param_156
@@ -7187,7 +7364,7 @@
assign $P164, 0
store_lex "$loaded", $P164
.annotate 'line', 64
- .const 'Sub' $P166 = "19_1275117592.29966"
+ .const 'Sub' $P166 = "19_1275811474.72541"
capture_lex $P166
$P166()
.annotate 'line', 65
@@ -7216,11 +7393,12 @@
.namespace ["HLL";"Compiler"]
-.sub "_block165" :anon :subid("19_1275117592.29966") :outer("18_1275117592.29966")
+.include "except_types.pasm"
+.sub "_block165" :anon :subid("19_1275811474.72541") :outer("18_1275811474.72541")
.annotate 'line', 64
new $P173, 'ExceptionHandler'
set_addr $P173, control_172
- $P173."handle_types_except"(57, 58, 59, 60, 62, 63, 64, 65, 66)
+ $P173."handle_types_except"(.CONTROL_RETURN, .CONTROL_OK, .CONTROL_BREAK, .CONTROL_CONTINUE, .CONTROL_TAKE, .CONTROL_LEAVE, .CONTROL_EXIT, .CONTROL_LOOP_NEXT, .CONTROL_LOOP_LAST, .CONTROL_LOOP_REDO)
push_eh $P173
find_lex $P167, "$base"
concat $P168, $P167, ".pbc"
@@ -7249,15 +7427,16 @@
.namespace ["HLL";"Compiler"]
-.sub "import" :subid("20_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "import" :subid("20_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_191
.param pmc param_192
.annotate 'line', 69
- .const 'Sub' $P198 = "21_1275117592.29966"
+ .const 'Sub' $P198 = "21_1275811474.72541"
capture_lex $P198
new $P190, 'ExceptionHandler'
set_addr $P190, control_189
- $P190."handle_types"(57)
+ $P190."handle_types"(.CONTROL_RETURN)
push_eh $P190
.lex "self", self
.lex "$target", param_191
@@ -7269,13 +7448,13 @@
iter $P193, $P194
new $P280, 'ExceptionHandler'
set_addr $P280, loop279_handler
- $P280."handle_types"(64, 66, 65)
+ $P280."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P280
loop279_test:
unless $P193, loop279_done
shift $P196, $P193
loop279_redo:
- .const 'Sub' $P198 = "21_1275117592.29966"
+ .const 'Sub' $P198 = "21_1275811474.72541"
capture_lex $P198
$P198($P196)
loop279_next:
@@ -7284,8 +7463,8 @@
.local pmc exception
.get_results (exception)
getattribute $P281, exception, 'type'
- eq $P281, 64, loop279_next
- eq $P281, 66, loop279_redo
+ eq $P281, .CONTROL_LOOP_NEXT, loop279_next
+ eq $P281, .CONTROL_LOOP_REDO, loop279_redo
loop279_done:
pop_eh
for_undef_53:
@@ -7300,14 +7479,15 @@
.namespace ["HLL";"Compiler"]
-.sub "_block197" :anon :subid("21_1275117592.29966") :outer("20_1275117592.29966")
+.include "except_types.pasm"
+.sub "_block197" :anon :subid("21_1275811474.72541") :outer("20_1275811474.72541")
.param pmc param_201
.annotate 'line', 70
- .const 'Sub' $P268 = "24_1275117592.29966"
+ .const 'Sub' $P268 = "24_1275811474.72541"
capture_lex $P268
- .const 'Sub' $P248 = "23_1275117592.29966"
+ .const 'Sub' $P248 = "23_1275811474.72541"
capture_lex $P248
- .const 'Sub' $P219 = "22_1275117592.29966"
+ .const 'Sub' $P219 = "22_1275811474.72541"
capture_lex $P219
.annotate 'line', 71
new $P199, "Undef"
@@ -7349,13 +7529,13 @@
iter $P263, $P264
new $P277, 'ExceptionHandler'
set_addr $P277, loop276_handler
- $P277."handle_types"(64, 66, 65)
+ $P277."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P277
loop276_test:
unless $P263, loop276_done
shift $P266, $P263
loop276_redo:
- .const 'Sub' $P268 = "24_1275117592.29966"
+ .const 'Sub' $P268 = "24_1275811474.72541"
capture_lex $P268
$P268($P266)
loop276_next:
@@ -7364,8 +7544,8 @@
.local pmc exception
.get_results (exception)
getattribute $P278, exception, 'type'
- eq $P278, 64, loop276_next
- eq $P278, 66, loop276_redo
+ eq $P278, .CONTROL_LOOP_NEXT, loop276_next
+ eq $P278, .CONTROL_LOOP_REDO, loop276_redo
loop276_done:
pop_eh
for_undef_54:
@@ -7381,13 +7561,13 @@
iter $P243, $P244
new $P261, 'ExceptionHandler'
set_addr $P261, loop260_handler
- $P261."handle_types"(64, 66, 65)
+ $P261."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P261
loop260_test:
unless $P243, loop260_done
shift $P246, $P243
loop260_redo:
- .const 'Sub' $P248 = "23_1275117592.29966"
+ .const 'Sub' $P248 = "23_1275811474.72541"
capture_lex $P248
$P248($P246)
loop260_next:
@@ -7396,8 +7576,8 @@
.local pmc exception
.get_results (exception)
getattribute $P262, exception, 'type'
- eq $P262, 64, loop260_next
- eq $P262, 66, loop260_redo
+ eq $P262, .CONTROL_LOOP_NEXT, loop260_next
+ eq $P262, .CONTROL_LOOP_REDO, loop260_redo
loop260_done:
pop_eh
for_undef_56:
@@ -7415,13 +7595,13 @@
iter $P214, $P215
new $P233, 'ExceptionHandler'
set_addr $P233, loop232_handler
- $P233."handle_types"(64, 66, 65)
+ $P233."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P233
loop232_test:
unless $P214, loop232_done
shift $P217, $P214
loop232_redo:
- .const 'Sub' $P219 = "22_1275117592.29966"
+ .const 'Sub' $P219 = "22_1275811474.72541"
capture_lex $P219
$P219($P217)
loop232_next:
@@ -7430,8 +7610,8 @@
.local pmc exception
.get_results (exception)
getattribute $P234, exception, 'type'
- eq $P234, 64, loop232_next
- eq $P234, 66, loop232_redo
+ eq $P234, .CONTROL_LOOP_NEXT, loop232_next
+ eq $P234, .CONTROL_LOOP_REDO, loop232_redo
loop232_done:
pop_eh
for_undef_57:
@@ -7444,7 +7624,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block267" :anon :subid("24_1275117592.29966") :outer("21_1275117592.29966")
+.sub "_block267" :anon :subid("24_1275811474.72541") :outer("21_1275811474.72541")
.param pmc param_269
.annotate 'line', 80
.lex "$_", param_269
@@ -7464,7 +7644,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block247" :anon :subid("23_1275117592.29966") :outer("21_1275117592.29966")
+.sub "_block247" :anon :subid("23_1275811474.72541") :outer("21_1275811474.72541")
.param pmc param_249
.annotate 'line', 77
.lex "$_", param_249
@@ -7484,7 +7664,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block218" :anon :subid("22_1275117592.29966") :outer("21_1275117592.29966")
+.sub "_block218" :anon :subid("22_1275811474.72541") :outer("21_1275811474.72541")
.param pmc param_220
.annotate 'line', 74
.lex "$_", param_220
@@ -7505,12 +7685,13 @@
.namespace ["HLL";"Compiler"]
-.sub "autoprint" :subid("25_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "autoprint" :subid("25_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_286
.annotate 'line', 85
new $P285, 'ExceptionHandler'
set_addr $P285, control_284
- $P285."handle_types"(57)
+ $P285."handle_types"(.CONTROL_RETURN)
push_eh $P285
.lex "self", self
.lex "$value", param_286
@@ -7548,14 +7729,15 @@
.namespace ["HLL";"Compiler"]
-.sub "interactive" :subid("26_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "interactive" :subid("26_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_301 :slurpy :named
.annotate 'line', 90
- .const 'Sub' $P331 = "27_1275117592.29966"
+ .const 'Sub' $P331 = "27_1275811474.72541"
capture_lex $P331
new $P300, 'ExceptionHandler'
set_addr $P300, control_299
- $P300."handle_types"(57)
+ $P300."handle_types"(.CONTROL_RETURN)
push_eh $P300
.lex "self", self
.lex "%adverbs", param_301
@@ -7626,14 +7808,14 @@
.annotate 'line', 101
new $P439, 'ExceptionHandler'
set_addr $P439, loop438_handler
- $P439."handle_types"(64, 66, 65)
+ $P439."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P439
loop438_test:
new $P329, "Integer"
assign $P329, 1
unless $P329, loop438_done
loop438_redo:
- .const 'Sub' $P331 = "27_1275117592.29966"
+ .const 'Sub' $P331 = "27_1275811474.72541"
capture_lex $P331
$P331()
loop438_next:
@@ -7642,8 +7824,8 @@
.local pmc exception
.get_results (exception)
getattribute $P440, exception, 'type'
- eq $P440, 64, loop438_next
- eq $P440, 66, loop438_redo
+ eq $P440, .CONTROL_LOOP_NEXT, loop438_next
+ eq $P440, .CONTROL_LOOP_REDO, loop438_redo
loop438_done:
pop_eh
.annotate 'line', 90
@@ -7657,9 +7839,10 @@
.namespace ["HLL";"Compiler"]
-.sub "_block330" :anon :subid("27_1275117592.29966") :outer("26_1275117592.29966")
+.include "except_types.pasm"
+.sub "_block330" :anon :subid("27_1275811474.72541") :outer("26_1275811474.72541")
.annotate 'line', 101
- .const 'Sub' $P367 = "28_1275117592.29966"
+ .const 'Sub' $P367 = "28_1275811474.72541"
capture_lex $P367
.annotate 'line', 104
new $P332, "Undef"
@@ -7691,10 +7874,8 @@
.annotate 'line', 102
find_lex $P340, "$stdin"
if $P340, unless_339_end
-.include "except_types.pasm"
- $P341 = new "Exception"
- $P341["type"] = .CONTROL_LOOP_LAST
- throw $P341
+ set $I341, .CONTROL_LOOP_LAST
+ die 0, $I341
unless_339_end:
.annotate 'line', 104
find_lex $P343, "self"
@@ -7717,10 +7898,8 @@
find_lex $P353, "$code"
isnull $I354, $P353
unless $I354, if_352_end
-.include "except_types.pasm"
- $P355 = new "Exception"
- $P355["type"] = .CONTROL_LOOP_LAST
- throw $P355
+ set $I355, .CONTROL_LOOP_LAST
+ die 0, $I355
if_352_end:
.annotate 'line', 110
getinterp $P356
@@ -7745,7 +7924,7 @@
set $P363, $P365
goto if_364_end
if_364:
- .const 'Sub' $P367 = "28_1275117592.29966"
+ .const 'Sub' $P367 = "28_1275811474.72541"
capture_lex $P367
$P437 = $P367()
set $P363, $P437
@@ -7756,11 +7935,12 @@
.namespace ["HLL";"Compiler"]
-.sub "_block366" :anon :subid("28_1275117592.29966") :outer("27_1275117592.29966")
+.include "except_types.pasm"
+.sub "_block366" :anon :subid("28_1275811474.72541") :outer("27_1275811474.72541")
.annotate 'line', 116
- .const 'Sub' $P405 = "31_1275117592.29966"
+ .const 'Sub' $P405 = "31_1275811474.72541"
capture_lex $P405
- .const 'Sub' $P373 = "29_1275117592.29966"
+ .const 'Sub' $P373 = "29_1275811474.72541"
capture_lex $P373
.annotate 'line', 118
new $P368, "Undef"
@@ -7771,7 +7951,7 @@
store_lex "$code", $P370
find_lex $P371, "$output"
.annotate 'line', 119
- .const 'Sub' $P373 = "29_1275117592.29966"
+ .const 'Sub' $P373 = "29_1275811474.72541"
capture_lex $P373
$P373()
.annotate 'line', 126
@@ -7798,13 +7978,13 @@
iter $P399, $P401
new $P413, 'ExceptionHandler'
set_addr $P413, loop412_handler
- $P413."handle_types"(64, 66, 65)
+ $P413."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P413
loop412_test:
unless $P399, loop412_done
shift $P403, $P399
loop412_redo:
- .const 'Sub' $P405 = "31_1275117592.29966"
+ .const 'Sub' $P405 = "31_1275811474.72541"
capture_lex $P405
$P405($P403)
loop412_next:
@@ -7813,8 +7993,8 @@
.local pmc exception
.get_results (exception)
getattribute $P414, exception, 'type'
- eq $P414, 64, loop412_next
- eq $P414, 66, loop412_redo
+ eq $P414, .CONTROL_LOOP_NEXT, loop412_next
+ eq $P414, .CONTROL_LOOP_REDO, loop412_redo
loop412_done:
pop_eh
for_undef_72:
@@ -7823,10 +8003,8 @@
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
+ set $I418, .CONTROL_LOOP_NEXT
+ die 0, $I418
if_415_end:
.annotate 'line', 133
find_lex $P421, "$target"
@@ -7870,13 +8048,14 @@
.namespace ["HLL";"Compiler"]
-.sub "_block372" :anon :subid("29_1275117592.29966") :outer("28_1275117592.29966")
+.include "except_types.pasm"
+.sub "_block372" :anon :subid("29_1275811474.72541") :outer("28_1275811474.72541")
.annotate 'line', 119
- .const 'Sub' $P385 = "30_1275117592.29966"
+ .const 'Sub' $P385 = "30_1275811474.72541"
capture_lex $P385
new $P381, 'ExceptionHandler'
set_addr $P381, control_380
- $P381."handle_types_except"(57, 58, 59, 60, 62, 63, 64, 65, 66)
+ $P381."handle_types_except"(.CONTROL_RETURN, .CONTROL_OK, .CONTROL_BREAK, .CONTROL_CONTINUE, .CONTROL_TAKE, .CONTROL_LEAVE, .CONTROL_EXIT, .CONTROL_LOOP_NEXT, .CONTROL_LOOP_LAST, .CONTROL_LOOP_REDO)
push_eh $P381
.annotate 'line', 120
find_lex $P374, "self"
@@ -7892,7 +8071,7 @@
.annotate 'line', 121
.local pmc exception
.get_results (exception)
- .const 'Sub' $P385 = "30_1275117592.29966"
+ .const 'Sub' $P385 = "30_1275811474.72541"
newclosure $P393, $P385
$P393(exception)
new $P394, 'Integer'
@@ -7911,7 +8090,8 @@
.namespace ["HLL";"Compiler"]
-.sub "_block384" :anon :subid("30_1275117592.29966") :outer("29_1275117592.29966")
+.include "except_types.pasm"
+.sub "_block384" :anon :subid("30_1275811474.72541") :outer("29_1275811474.72541")
.param pmc param_386
.annotate 'line', 121
.lex "$_", param_386
@@ -7925,17 +8105,15 @@
concat $P391, $P390, "\n"
print $P391
.annotate 'line', 123
-.include "except_types.pasm"
- $P392 = new "Exception"
- $P392["type"] = .CONTROL_LOOP_NEXT
- throw $P392
+ set $I392, .CONTROL_LOOP_NEXT
+ die 0, $I392
.annotate 'line', 121
- .return ($P392)
+ .return ()
.end
.namespace ["HLL";"Compiler"]
-.sub "_block404" :anon :subid("31_1275117592.29966") :outer("28_1275117592.29966")
+.sub "_block404" :anon :subid("31_1275811474.72541") :outer("28_1275811474.72541")
.param pmc param_406
.annotate 'line', 127
.lex "$_", param_406
@@ -7956,16 +8134,17 @@
.namespace ["HLL";"Compiler"]
-.sub "eval" :subid("32_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "eval" :subid("32_1275811474.72541") :method :outer("11_1275811474.72541")
.param pmc param_445
.param pmc param_446 :slurpy
.param pmc param_447 :slurpy :named
.annotate 'line', 144
- .const 'Sub' $P466 = "33_1275117592.29966"
+ .const 'Sub' $P466 = "33_1275811474.72541"
capture_lex $P466
new $P444, 'ExceptionHandler'
set_addr $P444, control_443
- $P444."handle_types"(57)
+ $P444."handle_types"(.CONTROL_RETURN)
push_eh $P444
.lex "self", self
.lex "$code", param_445
@@ -8008,7 +8187,7 @@
set $P455, $I464
if_456_end:
unless $P455, if_454_end
- .const 'Sub' $P466 = "33_1275117592.29966"
+ .const 'Sub' $P466 = "33_1275811474.72541"
capture_lex $P466
$P466()
if_454_end:
@@ -8025,7 +8204,7 @@
.namespace ["HLL";"Compiler"]
-.sub "_block465" :anon :subid("33_1275117592.29966") :outer("32_1275117592.29966")
+.sub "_block465" :anon :subid("33_1275811474.72541") :outer("32_1275811474.72541")
.annotate 'line', 150
new $P467, "Undef"
.lex "$outer_ctx", $P467
@@ -8078,11 +8257,12 @@
.namespace ["HLL";"Compiler"]
-.sub "ctxsave" :subid("34_1275117592.29966") :method :outer("11_1275117592.29966")
+.include "except_types.pasm"
+.sub "ctxsave" :subid("34_1275811474.72541") :method :outer("11_1275811474.72541")
.annotate 'line', 163
new $P486, 'ExceptionHandler'
set_addr $P486, control_485
- $P486."handle_types"(57)
+ $P486."handle_types"(.CONTROL_RETURN)
push_eh $P486
.lex "self", self
.annotate 'line', 165
@@ -8106,9 +8286,9 @@
.namespace []
-.sub "_block493" :load :anon :subid("35_1275117592.29966")
+.sub "_block493" :load :anon :subid("35_1275811474.72541")
.annotate 'line', 1
- .const 'Sub' $P495 = "10_1275117592.29966"
+ .const 'Sub' $P495 = "10_1275811474.72541"
$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 Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/NQP-s0.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -15,7 +15,7 @@
### .include 'gen/nqp-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117591.97262")
+.sub "_block11" :anon :subid("10_1275811487.95429")
.annotate 'line', 0
get_hll_global $P14, ["NQP";"Grammar"], "_block13"
capture_lex $P14
@@ -29,327 +29,333 @@
.annotate 'line', 4
get_hll_global $P14, ["NQP";"Grammar"], "_block13"
capture_lex $P14
- $P1379 = $P14()
+ $P1424 = $P14()
.annotate 'line', 1
- .return ($P1379)
- .const 'Sub' $P1381 = "354_1275117591.97262"
- .return ($P1381)
+ .return ($P1424)
+ .const 'Sub' $P1426 = "363_1275811487.95429"
+ .return ($P1426)
.end
.namespace []
-.sub "" :load :init :subid("post355") :outer("10_1275117591.97262")
+.sub "" :load :init :subid("post364") :outer("10_1275811487.95429")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117591.97262"
+ .const 'Sub' $P12 = "10_1275811487.95429"
.local pmc block
set block, $P12
- $P1384 = get_root_global ["parrot"], "P6metaclass"
- $P1384."new_class"("NQP::Grammar", "HLL::Grammar" :named("parent"))
+ $P1429 = get_root_global ["parrot"], "P6metaclass"
+ $P1429."new_class"("NQP::Grammar", "HLL::Grammar" :named("parent"))
.end
.namespace ["NQP";"Grammar"]
-.sub "_block13" :subid("11_1275117591.97262") :outer("10_1275117591.97262")
+.sub "_block13" :subid("11_1275811487.95429") :outer("10_1275811487.95429")
.annotate 'line', 4
- 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"
+ get_hll_global $P1340, ["NQP";"Regex"], "_block1339"
+ capture_lex $P1340
+ .const 'Sub' $P1326 = "340_1275811487.95429"
+ capture_lex $P1326
+ .const 'Sub' $P1320 = "338_1275811487.95429"
+ capture_lex $P1320
+ .const 'Sub' $P1314 = "336_1275811487.95429"
+ capture_lex $P1314
+ .const 'Sub' $P1308 = "334_1275811487.95429"
+ capture_lex $P1308
+ .const 'Sub' $P1302 = "332_1275811487.95429"
+ capture_lex $P1302
+ .const 'Sub' $P1296 = "330_1275811487.95429"
+ capture_lex $P1296
+ .const 'Sub' $P1289 = "328_1275811487.95429"
+ capture_lex $P1289
+ .const 'Sub' $P1282 = "326_1275811487.95429"
+ capture_lex $P1282
+ .const 'Sub' $P1275 = "324_1275811487.95429"
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"
+ .const 'Sub' $P1268 = "322_1275811487.95429"
+ capture_lex $P1268
+ .const 'Sub' $P1262 = "320_1275811487.95429"
+ capture_lex $P1262
+ .const 'Sub' $P1255 = "318_1275811487.95429"
+ capture_lex $P1255
+ .const 'Sub' $P1248 = "316_1275811487.95429"
+ capture_lex $P1248
+ .const 'Sub' $P1241 = "314_1275811487.95429"
+ capture_lex $P1241
+ .const 'Sub' $P1234 = "312_1275811487.95429"
+ capture_lex $P1234
+ .const 'Sub' $P1227 = "310_1275811487.95429"
+ capture_lex $P1227
+ .const 'Sub' $P1220 = "308_1275811487.95429"
+ capture_lex $P1220
+ .const 'Sub' $P1213 = "306_1275811487.95429"
+ capture_lex $P1213
+ .const 'Sub' $P1206 = "304_1275811487.95429"
+ capture_lex $P1206
+ .const 'Sub' $P1199 = "302_1275811487.95429"
+ capture_lex $P1199
+ .const 'Sub' $P1192 = "300_1275811487.95429"
+ capture_lex $P1192
+ .const 'Sub' $P1185 = "298_1275811487.95429"
+ capture_lex $P1185
+ .const 'Sub' $P1178 = "296_1275811487.95429"
+ capture_lex $P1178
+ .const 'Sub' $P1171 = "294_1275811487.95429"
+ capture_lex $P1171
+ .const 'Sub' $P1164 = "292_1275811487.95429"
+ capture_lex $P1164
+ .const 'Sub' $P1157 = "290_1275811487.95429"
+ capture_lex $P1157
+ .const 'Sub' $P1150 = "288_1275811487.95429"
+ capture_lex $P1150
+ .const 'Sub' $P1143 = "286_1275811487.95429"
+ capture_lex $P1143
+ .const 'Sub' $P1136 = "284_1275811487.95429"
+ capture_lex $P1136
+ .const 'Sub' $P1129 = "282_1275811487.95429"
+ capture_lex $P1129
+ .const 'Sub' $P1122 = "280_1275811487.95429"
+ capture_lex $P1122
+ .const 'Sub' $P1115 = "278_1275811487.95429"
+ capture_lex $P1115
+ .const 'Sub' $P1108 = "276_1275811487.95429"
+ capture_lex $P1108
+ .const 'Sub' $P1101 = "274_1275811487.95429"
+ capture_lex $P1101
+ .const 'Sub' $P1094 = "272_1275811487.95429"
+ capture_lex $P1094
+ .const 'Sub' $P1087 = "270_1275811487.95429"
+ capture_lex $P1087
+ .const 'Sub' $P1080 = "268_1275811487.95429"
+ capture_lex $P1080
+ .const 'Sub' $P1074 = "266_1275811487.95429"
+ capture_lex $P1074
+ .const 'Sub' $P1067 = "264_1275811487.95429"
+ capture_lex $P1067
+ .const 'Sub' $P1060 = "262_1275811487.95429"
+ capture_lex $P1060
+ .const 'Sub' $P1053 = "260_1275811487.95429"
+ capture_lex $P1053
+ .const 'Sub' $P1046 = "258_1275811487.95429"
+ capture_lex $P1046
+ .const 'Sub' $P1039 = "256_1275811487.95429"
+ capture_lex $P1039
+ .const 'Sub' $P1032 = "254_1275811487.95429"
+ capture_lex $P1032
+ .const 'Sub' $P1025 = "252_1275811487.95429"
+ capture_lex $P1025
+ .const 'Sub' $P1019 = "250_1275811487.95429"
+ capture_lex $P1019
+ .const 'Sub' $P1013 = "248_1275811487.95429"
+ capture_lex $P1013
+ .const 'Sub' $P1008 = "246_1275811487.95429"
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' $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_1275117591.97262"
- capture_lex $P941
- .const 'Sub' $P934 = "227_1275117591.97262"
+ .const 'Sub' $P1002 = "244_1275811487.95429"
+ capture_lex $P1002
+ .const 'Sub' $P996 = "242_1275811487.95429"
+ capture_lex $P996
+ .const 'Sub' $P991 = "240_1275811487.95429"
+ capture_lex $P991
+ .const 'Sub' $P986 = "238_1275811487.95429"
+ capture_lex $P986
+ .const 'Sub' $P978 = "236_1275811487.95429"
+ capture_lex $P978
+ .const 'Sub' $P970 = "234_1275811487.95429"
+ capture_lex $P970
+ .const 'Sub' $P965 = "232_1275811487.95429"
+ capture_lex $P965
+ .const 'Sub' $P960 = "230_1275811487.95429"
+ capture_lex $P960
+ .const 'Sub' $P955 = "228_1275811487.95429"
+ capture_lex $P955
+ .const 'Sub' $P947 = "226_1275811487.95429"
+ capture_lex $P947
+ .const 'Sub' $P939 = "224_1275811487.95429"
+ capture_lex $P939
+ .const 'Sub' $P934 = "222_1275811487.95429"
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_1275117591.97262"
- capture_lex $P916
- .const 'Sub' $P911 = "219_1275117591.97262"
- capture_lex $P911
- .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_1275117591.97262"
- capture_lex $P885
- .const 'Sub' $P880 = "209_1275117591.97262"
- capture_lex $P880
- .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"
+ .const 'Sub' $P929 = "220_1275811487.95429"
+ capture_lex $P929
+ .const 'Sub' $P924 = "218_1275811487.95429"
+ capture_lex $P924
+ .const 'Sub' $P918 = "216_1275811487.95429"
+ capture_lex $P918
+ .const 'Sub' $P912 = "214_1275811487.95429"
+ capture_lex $P912
+ .const 'Sub' $P906 = "212_1275811487.95429"
+ capture_lex $P906
+ .const 'Sub' $P900 = "210_1275811487.95429"
+ capture_lex $P900
+ .const 'Sub' $P894 = "208_1275811487.95429"
+ capture_lex $P894
+ .const 'Sub' $P889 = "206_1275811487.95429"
+ capture_lex $P889
+ .const 'Sub' $P884 = "204_1275811487.95429"
+ capture_lex $P884
+ .const 'Sub' $P871 = "200_1275811487.95429"
+ capture_lex $P871
+ .const 'Sub' $P863 = "198_1275811487.95429"
+ capture_lex $P863
+ .const 'Sub' $P857 = "196_1275811487.95429"
+ capture_lex $P857
+ .const 'Sub' $P850 = "194_1275811487.95429"
capture_lex $P850
- .const 'Sub' $P845 = "197_1275117591.97262"
- capture_lex $P845
- .const 'Sub' $P840 = "195_1275117591.97262"
- capture_lex $P840
- .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"
+ .const 'Sub' $P844 = "192_1275811487.95429"
+ capture_lex $P844
+ .const 'Sub' $P836 = "190_1275811487.95429"
+ capture_lex $P836
+ .const 'Sub' $P828 = "188_1275811487.95429"
+ capture_lex $P828
+ .const 'Sub' $P822 = "186_1275811487.95429"
+ capture_lex $P822
+ .const 'Sub' $P816 = "184_1275811487.95429"
+ capture_lex $P816
+ .const 'Sub' $P801 = "180_1275811487.95429"
+ capture_lex $P801
+ .const 'Sub' $P763 = "178_1275811487.95429"
+ capture_lex $P763
+ .const 'Sub' $P754 = "176_1275811487.95429"
+ capture_lex $P754
+ .const 'Sub' $P748 = "174_1275811487.95429"
+ capture_lex $P748
+ .const 'Sub' $P738 = "172_1275811487.95429"
+ capture_lex $P738
+ .const 'Sub' $P724 = "170_1275811487.95429"
+ capture_lex $P724
+ .const 'Sub' $P715 = "168_1275811487.95429"
+ capture_lex $P715
+ .const 'Sub' $P707 = "166_1275811487.95429"
+ capture_lex $P707
+ .const 'Sub' $P697 = "164_1275811487.95429"
+ capture_lex $P697
+ .const 'Sub' $P673 = "160_1275811487.95429"
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"
+ .const 'Sub' $P648 = "158_1275811487.95429"
+ capture_lex $P648
+ .const 'Sub' $P641 = "156_1275811487.95429"
+ capture_lex $P641
+ .const 'Sub' $P634 = "154_1275811487.95429"
+ capture_lex $P634
+ .const 'Sub' $P624 = "150_1275811487.95429"
+ capture_lex $P624
+ .const 'Sub' $P616 = "148_1275811487.95429"
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' $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' $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' $P237 = "52_1275117591.97262"
- capture_lex $P237
- .const 'Sub' $P232 = "50_1275117591.97262"
- capture_lex $P232
- .const 'Sub' $P227 = "48_1275117591.97262"
- capture_lex $P227
- .const 'Sub' $P219 = "46_1275117591.97262"
- capture_lex $P219
- .const 'Sub' $P212 = "44_1275117591.97262"
- capture_lex $P212
- .const 'Sub' $P206 = "42_1275117591.97262"
- capture_lex $P206
- .const 'Sub' $P198 = "40_1275117591.97262"
- capture_lex $P198
- .const 'Sub' $P192 = "38_1275117591.97262"
- capture_lex $P192
- .const 'Sub' $P186 = "36_1275117591.97262"
- capture_lex $P186
- .const 'Sub' $P170 = "33_1275117591.97262"
- capture_lex $P170
- .const 'Sub' $P157 = "31_1275117591.97262"
- capture_lex $P157
- .const 'Sub' $P150 = "29_1275117591.97262"
- capture_lex $P150
- .const 'Sub' $P100 = "26_1275117591.97262"
- capture_lex $P100
- .const 'Sub' $P82 = "23_1275117591.97262"
- capture_lex $P82
- .const 'Sub' $P68 = "21_1275117591.97262"
- capture_lex $P68
- .const 'Sub' $P54 = "19_1275117591.97262"
- capture_lex $P54
- .const 'Sub' $P46 = "17_1275117591.97262"
- capture_lex $P46
- .const 'Sub' $P39 = "15_1275117591.97262"
- capture_lex $P39
- .const 'Sub' $P33 = "13_1275117591.97262"
- capture_lex $P33
- .const 'Sub' $P15 = "12_1275117591.97262"
+ .const 'Sub' $P610 = "146_1275811487.95429"
+ capture_lex $P610
+ .const 'Sub' $P597 = "144_1275811487.95429"
+ capture_lex $P597
+ .const 'Sub' $P590 = "142_1275811487.95429"
+ capture_lex $P590
+ .const 'Sub' $P583 = "140_1275811487.95429"
+ capture_lex $P583
+ .const 'Sub' $P576 = "138_1275811487.95429"
+ capture_lex $P576
+ .const 'Sub' $P548 = "134_1275811487.95429"
+ capture_lex $P548
+ .const 'Sub' $P539 = "132_1275811487.95429"
+ capture_lex $P539
+ .const 'Sub' $P532 = "130_1275811487.95429"
+ capture_lex $P532
+ .const 'Sub' $P523 = "126_1275811487.95429"
+ capture_lex $P523
+ .const 'Sub' $P518 = "124_1275811487.95429"
+ capture_lex $P518
+ .const 'Sub' $P506 = "122_1275811487.95429"
+ capture_lex $P506
+ .const 'Sub' $P494 = "120_1275811487.95429"
+ capture_lex $P494
+ .const 'Sub' $P486 = "118_1275811487.95429"
+ capture_lex $P486
+ .const 'Sub' $P481 = "116_1275811487.95429"
+ capture_lex $P481
+ .const 'Sub' $P475 = "114_1275811487.95429"
+ capture_lex $P475
+ .const 'Sub' $P469 = "112_1275811487.95429"
+ capture_lex $P469
+ .const 'Sub' $P459 = "109_1275811487.95429"
+ capture_lex $P459
+ .const 'Sub' $P453 = "107_1275811487.95429"
+ capture_lex $P453
+ .const 'Sub' $P447 = "105_1275811487.95429"
+ capture_lex $P447
+ .const 'Sub' $P441 = "103_1275811487.95429"
+ capture_lex $P441
+ .const 'Sub' $P435 = "101_1275811487.95429"
+ capture_lex $P435
+ .const 'Sub' $P429 = "99_1275811487.95429"
+ capture_lex $P429
+ .const 'Sub' $P423 = "97_1275811487.95429"
+ capture_lex $P423
+ .const 'Sub' $P414 = "95_1275811487.95429"
+ capture_lex $P414
+ .const 'Sub' $P405 = "93_1275811487.95429"
+ capture_lex $P405
+ .const 'Sub' $P392 = "89_1275811487.95429"
+ capture_lex $P392
+ .const 'Sub' $P383 = "87_1275811487.95429"
+ capture_lex $P383
+ .const 'Sub' $P373 = "83_1275811487.95429"
+ capture_lex $P373
+ .const 'Sub' $P366 = "81_1275811487.95429"
+ capture_lex $P366
+ .const 'Sub' $P359 = "79_1275811487.95429"
+ capture_lex $P359
+ .const 'Sub' $P347 = "75_1275811487.95429"
+ capture_lex $P347
+ .const 'Sub' $P339 = "73_1275811487.95429"
+ capture_lex $P339
+ .const 'Sub' $P331 = "71_1275811487.95429"
+ capture_lex $P331
+ .const 'Sub' $P311 = "69_1275811487.95429"
+ capture_lex $P311
+ .const 'Sub' $P302 = "67_1275811487.95429"
+ capture_lex $P302
+ .const 'Sub' $P284 = "64_1275811487.95429"
+ capture_lex $P284
+ .const 'Sub' $P264 = "62_1275811487.95429"
+ capture_lex $P264
+ .const 'Sub' $P255 = "58_1275811487.95429"
+ capture_lex $P255
+ .const 'Sub' $P250 = "56_1275811487.95429"
+ capture_lex $P250
+ .const 'Sub' $P241 = "52_1275811487.95429"
+ capture_lex $P241
+ .const 'Sub' $P236 = "50_1275811487.95429"
+ capture_lex $P236
+ .const 'Sub' $P231 = "48_1275811487.95429"
+ capture_lex $P231
+ .const 'Sub' $P223 = "46_1275811487.95429"
+ capture_lex $P223
+ .const 'Sub' $P216 = "44_1275811487.95429"
+ capture_lex $P216
+ .const 'Sub' $P210 = "42_1275811487.95429"
+ capture_lex $P210
+ .const 'Sub' $P202 = "40_1275811487.95429"
+ capture_lex $P202
+ .const 'Sub' $P196 = "38_1275811487.95429"
+ capture_lex $P196
+ .const 'Sub' $P190 = "36_1275811487.95429"
+ capture_lex $P190
+ .const 'Sub' $P174 = "33_1275811487.95429"
+ capture_lex $P174
+ .const 'Sub' $P159 = "31_1275811487.95429"
+ capture_lex $P159
+ .const 'Sub' $P152 = "29_1275811487.95429"
+ capture_lex $P152
+ .const 'Sub' $P102 = "26_1275811487.95429"
+ capture_lex $P102
+ .const 'Sub' $P84 = "23_1275811487.95429"
+ capture_lex $P84
+ .const 'Sub' $P70 = "21_1275811487.95429"
+ capture_lex $P70
+ .const 'Sub' $P56 = "19_1275811487.95429"
+ capture_lex $P56
+ .const 'Sub' $P48 = "17_1275811487.95429"
+ capture_lex $P48
+ .const 'Sub' $P41 = "15_1275811487.95429"
+ capture_lex $P41
+ .const 'Sub' $P35 = "13_1275811487.95429"
+ capture_lex $P35
+ .const 'Sub' $P15 = "12_1275811487.95429"
capture_lex $P15
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -357,80 +363,81 @@
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', 563
+ get_hll_global $P1340, ["NQP";"Regex"], "_block1339"
+ capture_lex $P1340
+ $P1403 = $P1340()
.annotate 'line', 4
- .return ($P1358)
- .const 'Sub' $P1360 = "353_1275117591.97262"
- .return ($P1360)
+ .return ($P1403)
+ .const 'Sub' $P1405 = "362_1275811487.95429"
+ .return ($P1405)
.end
.namespace ["NQP";"Grammar"]
-.sub "" :load :init :subid("post356") :outer("11_1275117591.97262")
+.sub "" :load :init :subid("post365") :outer("11_1275811487.95429")
.annotate 'line', 4
get_hll_global $P14, ["NQP";"Grammar"], "_block13"
.local pmc block
set block, $P14
-.annotate 'line', 434
- get_hll_global $P1363, ["NQP"], "Grammar"
- $P1363."O"(":prec<y=>, :assoc<unary>", "%methodop")
-.annotate 'line', 435
- get_hll_global $P1364, ["NQP"], "Grammar"
- $P1364."O"(":prec<x=>, :assoc<unary>", "%autoincrement")
-.annotate 'line', 436
- get_hll_global $P1365, ["NQP"], "Grammar"
- $P1365."O"(":prec<w=>, :assoc<left>", "%exponentiation")
-.annotate 'line', 437
- get_hll_global $P1366, ["NQP"], "Grammar"
- $P1366."O"(":prec<v=>, :assoc<unary>", "%symbolic_unary")
-.annotate 'line', 438
- get_hll_global $P1367, ["NQP"], "Grammar"
- $P1367."O"(":prec<u=>, :assoc<left>", "%multiplicative")
-.annotate 'line', 439
- get_hll_global $P1368, ["NQP"], "Grammar"
- $P1368."O"(":prec<t=>, :assoc<left>", "%additive")
-.annotate 'line', 440
- get_hll_global $P1369, ["NQP"], "Grammar"
- $P1369."O"(":prec<r=>, :assoc<left>", "%concatenation")
-.annotate 'line', 441
- get_hll_global $P1370, ["NQP"], "Grammar"
- $P1370."O"(":prec<m=>, :assoc<left>", "%relational")
-.annotate 'line', 442
- get_hll_global $P1371, ["NQP"], "Grammar"
- $P1371."O"(":prec<l=>, :assoc<left>", "%tight_and")
-.annotate 'line', 443
- get_hll_global $P1372, ["NQP"], "Grammar"
- $P1372."O"(":prec<k=>, :assoc<left>", "%tight_or")
-.annotate 'line', 444
- get_hll_global $P1373, ["NQP"], "Grammar"
- $P1373."O"(":prec<j=>, :assoc<right>", "%conditional")
-.annotate 'line', 445
- get_hll_global $P1374, ["NQP"], "Grammar"
- $P1374."O"(":prec<i=>, :assoc<right>", "%assignment")
-.annotate 'line', 446
- 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")
+ get_hll_global $P1408, ["NQP"], "Grammar"
+ $P1408."O"(":prec<y=>, :assoc<unary>", "%methodop")
.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"))
+ get_hll_global $P1409, ["NQP"], "Grammar"
+ $P1409."O"(":prec<x=>, :assoc<unary>", "%autoincrement")
+.annotate 'line', 449
+ get_hll_global $P1410, ["NQP"], "Grammar"
+ $P1410."O"(":prec<w=>, :assoc<left>", "%exponentiation")
+.annotate 'line', 450
+ get_hll_global $P1411, ["NQP"], "Grammar"
+ $P1411."O"(":prec<v=>, :assoc<unary>", "%symbolic_unary")
+.annotate 'line', 451
+ get_hll_global $P1412, ["NQP"], "Grammar"
+ $P1412."O"(":prec<u=>, :assoc<left>", "%multiplicative")
+.annotate 'line', 452
+ get_hll_global $P1413, ["NQP"], "Grammar"
+ $P1413."O"(":prec<t=>, :assoc<left>", "%additive")
+.annotate 'line', 453
+ get_hll_global $P1414, ["NQP"], "Grammar"
+ $P1414."O"(":prec<r=>, :assoc<left>", "%concatenation")
+.annotate 'line', 454
+ get_hll_global $P1415, ["NQP"], "Grammar"
+ $P1415."O"(":prec<m=>, :assoc<left>", "%relational")
+.annotate 'line', 455
+ get_hll_global $P1416, ["NQP"], "Grammar"
+ $P1416."O"(":prec<l=>, :assoc<left>", "%tight_and")
+.annotate 'line', 456
+ get_hll_global $P1417, ["NQP"], "Grammar"
+ $P1417."O"(":prec<k=>, :assoc<left>", "%tight_or")
+.annotate 'line', 457
+ get_hll_global $P1418, ["NQP"], "Grammar"
+ $P1418."O"(":prec<j=>, :assoc<right>", "%conditional")
+.annotate 'line', 458
+ get_hll_global $P1419, ["NQP"], "Grammar"
+ $P1419."O"(":prec<i=>, :assoc<right>", "%assignment")
+.annotate 'line', 459
+ get_hll_global $P1420, ["NQP"], "Grammar"
+ $P1420."O"(":prec<g=>, :assoc<list>, :nextterm<nulltermish>", "%comma")
+.annotate 'line', 460
+ get_hll_global $P1421, ["NQP"], "Grammar"
+ $P1421."O"(":prec<f=>, :assoc<list>", "%list_infix")
+.annotate 'line', 461
+ get_hll_global $P1422, ["NQP"], "Grammar"
+ $P1422."O"(":prec<e=>, :assoc<unary>", "%list_prefix")
+.annotate 'line', 446
+ $P1423 = get_root_global ["parrot"], "P6metaclass"
+ $P1423."new_class"("NQP::Regex", "Regex::P6Regex::Grammar" :named("parent"))
.end
.namespace ["NQP";"Grammar"]
-.sub "TOP" :subid("12_1275117591.97262") :method :outer("11_1275117591.97262")
+.include "except_types.pasm"
+.sub "TOP" :subid("12_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
new $P17, 'ExceptionHandler'
set_addr $P17, control_16
- $P17."handle_types"(57)
+ $P17."handle_types"(.CONTROL_RETURN)
push_eh $P17
.lex "self", self
.annotate 'line', 5
@@ -439,6757 +446,6794 @@
.annotate 'line', 10
new $P19, "Undef"
.lex "$*SCOPE", $P19
+.annotate 'line', 11
+ new $P20, "Undef"
+ .lex "$*MULTINESS", $P20
.annotate 'line', 4
- find_lex $P20, "%*LANG"
- unless_null $P20, vivify_357
- get_hll_global $P20, "%LANG"
- unless_null $P20, vivify_358
+ find_lex $P21, "%*LANG"
+ unless_null $P21, vivify_366
+ get_hll_global $P21, "%LANG"
+ unless_null $P21, vivify_367
die "Contextual %*LANG not found"
- vivify_358:
- vivify_357:
+ vivify_367:
+ vivify_366:
.annotate 'line', 6
- get_hll_global $P21, ["NQP"], "Regex"
- find_lex $P22, "%*LANG"
- unless_null $P22, vivify_359
- get_hll_global $P22, "%LANG"
- unless_null $P22, vivify_360
+ get_hll_global $P22, ["NQP"], "Regex"
+ find_lex $P23, "%*LANG"
+ unless_null $P23, vivify_368
+ get_hll_global $P23, "%LANG"
+ unless_null $P23, vivify_369
die "Contextual %*LANG not found"
- vivify_360:
- store_lex "%*LANG", $P22
- vivify_359:
- set $P22["Regex"], $P21
+ vivify_369:
+ store_lex "%*LANG", $P23
+ vivify_368:
+ set $P23["Regex"], $P22
.annotate 'line', 7
- get_hll_global $P23, ["NQP"], "RegexActions"
- find_lex $P24, "%*LANG"
- unless_null $P24, vivify_361
- get_hll_global $P24, "%LANG"
- unless_null $P24, vivify_362
+ get_hll_global $P24, ["NQP"], "RegexActions"
+ find_lex $P25, "%*LANG"
+ unless_null $P25, vivify_370
+ get_hll_global $P25, "%LANG"
+ unless_null $P25, vivify_371
die "Contextual %*LANG not found"
- vivify_362:
- store_lex "%*LANG", $P24
- vivify_361:
- set $P24["Regex-actions"], $P23
+ vivify_371:
+ store_lex "%*LANG", $P25
+ vivify_370:
+ set $P25["Regex-actions"], $P24
.annotate 'line', 8
- get_hll_global $P25, ["NQP"], "Grammar"
- find_lex $P26, "%*LANG"
- unless_null $P26, vivify_363
- get_hll_global $P26, "%LANG"
- unless_null $P26, vivify_364
+ get_hll_global $P26, ["NQP"], "Grammar"
+ find_lex $P27, "%*LANG"
+ unless_null $P27, vivify_372
+ get_hll_global $P27, "%LANG"
+ unless_null $P27, vivify_373
die "Contextual %*LANG not found"
- vivify_364:
- store_lex "%*LANG", $P26
- vivify_363:
- set $P26["MAIN"], $P25
+ vivify_373:
+ store_lex "%*LANG", $P27
+ vivify_372:
+ set $P27["MAIN"], $P26
.annotate 'line', 9
- get_hll_global $P27, ["NQP"], "Actions"
- find_lex $P28, "%*LANG"
- unless_null $P28, vivify_365
- get_hll_global $P28, "%LANG"
- unless_null $P28, vivify_366
+ get_hll_global $P28, ["NQP"], "Actions"
+ find_lex $P29, "%*LANG"
+ unless_null $P29, vivify_374
+ get_hll_global $P29, "%LANG"
+ unless_null $P29, vivify_375
die "Contextual %*LANG not found"
- vivify_366:
- store_lex "%*LANG", $P28
- vivify_365:
- set $P28["MAIN-actions"], $P27
+ vivify_375:
+ store_lex "%*LANG", $P29
+ vivify_374:
+ set $P29["MAIN-actions"], $P28
.annotate 'line', 10
- new $P29, "String"
- assign $P29, ""
- store_lex "$*SCOPE", $P29
+ new $P30, "String"
+ assign $P30, ""
+ store_lex "$*SCOPE", $P30
.annotate 'line', 11
- find_lex $P30, "self"
- $P31 = $P30."comp_unit"()
+ new $P31, "String"
+ assign $P31, ""
+ store_lex "$*MULTINESS", $P31
+.annotate 'line', 12
+ find_lex $P32, "self"
+ $P33 = $P32."comp_unit"()
.annotate 'line', 4
- .return ($P31)
+ .return ($P33)
control_16:
.local pmc exception
.get_results (exception)
- getattribute $P32, exception, "payload"
- .return ($P32)
+ getattribute $P34, exception, "payload"
+ .return ($P34)
.end
.namespace ["NQP";"Grammar"]
-.sub "identifier" :subid("13_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "identifier" :subid("13_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx34_tgt
- .local int rx34_pos
- .local int rx34_off
- .local int rx34_eos
- .local int rx34_rep
- .local pmc rx34_cur
- (rx34_cur, rx34_pos, rx34_tgt) = self."!cursor_start"()
- rx34_cur."!cursor_debug"("START ", "identifier")
- .lex unicode:"$\x{a2}", rx34_cur
- .local pmc match
- .lex "$/", match
- length rx34_eos, rx34_tgt
- set rx34_off, 0
- lt rx34_pos, 2, rx34_start
- sub rx34_off, rx34_pos, 1
- substr rx34_tgt, rx34_tgt, rx34_off
- rx34_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan38_done
- goto rxscan38_scan
- rxscan38_loop:
- ($P10) = rx34_cur."from"()
- inc $P10
- set rx34_pos, $P10
- ge rx34_pos, rx34_eos, rxscan38_done
- rxscan38_scan:
- set_addr $I10, rxscan38_loop
- rx34_cur."!mark_push"(0, rx34_pos, $I10)
- rxscan38_done:
-.annotate 'line', 16
+ .local string rx36_tgt
+ .local int rx36_pos
+ .local int rx36_off
+ .local int rx36_eos
+ .local int rx36_rep
+ .local pmc rx36_cur
+ (rx36_cur, rx36_pos, rx36_tgt) = self."!cursor_start"()
+ rx36_cur."!cursor_debug"("START ", "identifier")
+ .lex unicode:"$\x{a2}", rx36_cur
+ .local pmc match
+ .lex "$/", match
+ length rx36_eos, rx36_tgt
+ gt rx36_pos, rx36_eos, rx36_done
+ set rx36_off, 0
+ lt rx36_pos, 2, rx36_start
+ sub rx36_off, rx36_pos, 1
+ substr rx36_tgt, rx36_tgt, rx36_off
+ rx36_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan40_done
+ goto rxscan40_scan
+ rxscan40_loop:
+ ($P10) = rx36_cur."from"()
+ inc $P10
+ set rx36_pos, $P10
+ ge rx36_pos, rx36_eos, rxscan40_done
+ rxscan40_scan:
+ set_addr $I10, rxscan40_loop
+ rx36_cur."!mark_push"(0, rx36_pos, $I10)
+ rxscan40_done:
+.annotate 'line', 17
# rx subrule "ident" subtype=capture negate=
- rx34_cur."!cursor_pos"(rx34_pos)
- $P10 = rx34_cur."ident"()
- unless $P10, rx34_fail
- rx34_cur."!mark_push"(0, -1, 0, $P10)
+ rx36_cur."!cursor_pos"(rx36_pos)
+ $P10 = rx36_cur."ident"()
+ unless $P10, rx36_fail
+ rx36_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("ident")
- rx34_pos = $P10."pos"()
+ rx36_pos = $P10."pos"()
# rx pass
- rx34_cur."!cursor_pass"(rx34_pos, "identifier")
- rx34_cur."!cursor_debug"("PASS ", "identifier", " at pos=", rx34_pos)
- .return (rx34_cur)
- rx34_fail:
+ rx36_cur."!cursor_pass"(rx36_pos, "identifier")
+ rx36_cur."!cursor_debug"("PASS ", "identifier", " at pos=", rx36_pos)
+ .return (rx36_cur)
+ rx36_fail:
.annotate 'line', 4
- (rx34_rep, rx34_pos, $I10, $P10) = rx34_cur."!mark_fail"(0)
- lt rx34_pos, -1, rx34_done
- eq rx34_pos, -1, rx34_fail
+ (rx36_rep, rx36_pos, $I10, $P10) = rx36_cur."!mark_fail"(0)
+ lt rx36_pos, -1, rx36_done
+ eq rx36_pos, -1, rx36_fail
jump $I10
- rx34_done:
- rx34_cur."!cursor_fail"()
- rx34_cur."!cursor_debug"("FAIL ", "identifier")
- .return (rx34_cur)
+ rx36_done:
+ rx36_cur."!cursor_fail"()
+ rx36_cur."!cursor_debug"("FAIL ", "identifier")
+ .return (rx36_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__identifier" :subid("14_1275117591.97262") :method
+.sub "!PREFIX__identifier" :subid("14_1275811487.95429") :method
.annotate 'line', 4
- $P36 = self."!PREFIX__!subrule"("ident", "")
- new $P37, "ResizablePMCArray"
- push $P37, $P36
- .return ($P37)
+ $P38 = self."!PREFIX__!subrule"("ident", "")
+ new $P39, "ResizablePMCArray"
+ push $P39, $P38
+ .return ($P39)
.end
.namespace ["NQP";"Grammar"]
-.sub "name" :subid("15_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "name" :subid("15_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx40_tgt
- .local int rx40_pos
- .local int rx40_off
- .local int rx40_eos
- .local int rx40_rep
- .local pmc rx40_cur
- (rx40_cur, rx40_pos, rx40_tgt) = self."!cursor_start"()
- rx40_cur."!cursor_debug"("START ", "name")
- rx40_cur."!cursor_caparray"("identifier")
- .lex unicode:"$\x{a2}", rx40_cur
+ .local string rx42_tgt
+ .local int rx42_pos
+ .local int rx42_off
+ .local int rx42_eos
+ .local int rx42_rep
+ .local pmc rx42_cur
+ (rx42_cur, rx42_pos, rx42_tgt) = self."!cursor_start"()
+ rx42_cur."!cursor_debug"("START ", "name")
+ rx42_cur."!cursor_caparray"("identifier")
+ .lex unicode:"$\x{a2}", rx42_cur
.local pmc match
.lex "$/", match
- length rx40_eos, rx40_tgt
- set rx40_off, 0
- lt rx40_pos, 2, rx40_start
- sub rx40_off, rx40_pos, 1
- substr rx40_tgt, rx40_tgt, rx40_off
- rx40_start:
+ length rx42_eos, rx42_tgt
+ gt rx42_pos, rx42_eos, rx42_done
+ set rx42_off, 0
+ lt rx42_pos, 2, rx42_start
+ sub rx42_off, rx42_pos, 1
+ substr rx42_tgt, rx42_tgt, rx42_off
+ rx42_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan43_done
- goto rxscan43_scan
- rxscan43_loop:
- ($P10) = rx40_cur."from"()
+ ne $I10, -1, rxscan45_done
+ goto rxscan45_scan
+ rxscan45_loop:
+ ($P10) = rx42_cur."from"()
inc $P10
- set rx40_pos, $P10
- ge rx40_pos, rx40_eos, rxscan43_done
- rxscan43_scan:
- set_addr $I10, rxscan43_loop
- rx40_cur."!mark_push"(0, rx40_pos, $I10)
- rxscan43_done:
-.annotate 'line', 18
- # rx rxquantr44 ** 1..*
- set_addr $I45, rxquantr44_done
- rx40_cur."!mark_push"(0, -1, $I45)
- rxquantr44_loop:
+ set rx42_pos, $P10
+ ge rx42_pos, rx42_eos, rxscan45_done
+ rxscan45_scan:
+ set_addr $I10, rxscan45_loop
+ rx42_cur."!mark_push"(0, rx42_pos, $I10)
+ rxscan45_done:
+.annotate 'line', 19
+ # rx rxquantr46 ** 1..*
+ set_addr $I47, rxquantr46_done
+ rx42_cur."!mark_push"(0, -1, $I47)
+ rxquantr46_loop:
# rx subrule "identifier" subtype=capture negate=
- rx40_cur."!cursor_pos"(rx40_pos)
- $P10 = rx40_cur."identifier"()
- unless $P10, rx40_fail
- rx40_cur."!mark_push"(0, -1, 0, $P10)
+ rx42_cur."!cursor_pos"(rx42_pos)
+ $P10 = rx42_cur."identifier"()
+ unless $P10, rx42_fail
+ rx42_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx40_pos = $P10."pos"()
- (rx40_rep) = rx40_cur."!mark_commit"($I45)
- rx40_cur."!mark_push"(rx40_rep, rx40_pos, $I45)
+ rx42_pos = $P10."pos"()
+ (rx42_rep) = rx42_cur."!mark_commit"($I47)
+ rx42_cur."!mark_push"(rx42_rep, rx42_pos, $I47)
# rx literal "::"
- add $I11, rx40_pos, 2
- gt $I11, rx40_eos, rx40_fail
- sub $I11, rx40_pos, rx40_off
- substr $S10, rx40_tgt, $I11, 2
- ne $S10, "::", rx40_fail
- add rx40_pos, 2
- goto rxquantr44_loop
- rxquantr44_done:
+ add $I11, rx42_pos, 2
+ gt $I11, rx42_eos, rx42_fail
+ sub $I11, rx42_pos, rx42_off
+ substr $S10, rx42_tgt, $I11, 2
+ ne $S10, "::", rx42_fail
+ add rx42_pos, 2
+ goto rxquantr46_loop
+ rxquantr46_done:
# rx pass
- rx40_cur."!cursor_pass"(rx40_pos, "name")
- rx40_cur."!cursor_debug"("PASS ", "name", " at pos=", rx40_pos)
- .return (rx40_cur)
- rx40_fail:
+ rx42_cur."!cursor_pass"(rx42_pos, "name")
+ rx42_cur."!cursor_debug"("PASS ", "name", " at pos=", rx42_pos)
+ .return (rx42_cur)
+ rx42_fail:
.annotate 'line', 4
- (rx40_rep, rx40_pos, $I10, $P10) = rx40_cur."!mark_fail"(0)
- lt rx40_pos, -1, rx40_done
- eq rx40_pos, -1, rx40_fail
+ (rx42_rep, rx42_pos, $I10, $P10) = rx42_cur."!mark_fail"(0)
+ lt rx42_pos, -1, rx42_done
+ eq rx42_pos, -1, rx42_fail
jump $I10
- rx40_done:
- rx40_cur."!cursor_fail"()
- rx40_cur."!cursor_debug"("FAIL ", "name")
- .return (rx40_cur)
+ rx42_done:
+ rx42_cur."!cursor_fail"()
+ rx42_cur."!cursor_debug"("FAIL ", "name")
+ .return (rx42_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__name" :subid("16_1275117591.97262") :method
+.sub "!PREFIX__name" :subid("16_1275811487.95429") :method
.annotate 'line', 4
- new $P42, "ResizablePMCArray"
- push $P42, ""
- .return ($P42)
+ new $P44, "ResizablePMCArray"
+ push $P44, ""
+ .return ($P44)
.end
.namespace ["NQP";"Grammar"]
-.sub "deflongname" :subid("17_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "deflongname" :subid("17_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx47_tgt
- .local int rx47_pos
- .local int rx47_off
- .local int rx47_eos
- .local int rx47_rep
- .local pmc rx47_cur
- (rx47_cur, rx47_pos, rx47_tgt) = self."!cursor_start"()
- rx47_cur."!cursor_debug"("START ", "deflongname")
- rx47_cur."!cursor_caparray"("colonpair")
- .lex unicode:"$\x{a2}", rx47_cur
+ .local string rx49_tgt
+ .local int rx49_pos
+ .local int rx49_off
+ .local int rx49_eos
+ .local int rx49_rep
+ .local pmc rx49_cur
+ (rx49_cur, rx49_pos, rx49_tgt) = self."!cursor_start"()
+ rx49_cur."!cursor_debug"("START ", "deflongname")
+ rx49_cur."!cursor_caparray"("colonpair")
+ .lex unicode:"$\x{a2}", rx49_cur
.local pmc match
.lex "$/", match
- length rx47_eos, rx47_tgt
- set rx47_off, 0
- lt rx47_pos, 2, rx47_start
- sub rx47_off, rx47_pos, 1
- substr rx47_tgt, rx47_tgt, rx47_off
- rx47_start:
+ length rx49_eos, rx49_tgt
+ gt rx49_pos, rx49_eos, rx49_done
+ set rx49_off, 0
+ lt rx49_pos, 2, rx49_start
+ sub rx49_off, rx49_pos, 1
+ substr rx49_tgt, rx49_tgt, rx49_off
+ rx49_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan51_done
- goto rxscan51_scan
- rxscan51_loop:
- ($P10) = rx47_cur."from"()
+ ne $I10, -1, rxscan53_done
+ goto rxscan53_scan
+ rxscan53_loop:
+ ($P10) = rx49_cur."from"()
inc $P10
- set rx47_pos, $P10
- ge rx47_pos, rx47_eos, rxscan51_done
- rxscan51_scan:
- set_addr $I10, rxscan51_loop
- rx47_cur."!mark_push"(0, rx47_pos, $I10)
- rxscan51_done:
-.annotate 'line', 21
+ set rx49_pos, $P10
+ ge rx49_pos, rx49_eos, rxscan53_done
+ rxscan53_scan:
+ set_addr $I10, rxscan53_loop
+ rx49_cur."!mark_push"(0, rx49_pos, $I10)
+ rxscan53_done:
+.annotate 'line', 22
# rx subrule "identifier" subtype=capture negate=
- rx47_cur."!cursor_pos"(rx47_pos)
- $P10 = rx47_cur."identifier"()
- unless $P10, rx47_fail
- rx47_cur."!mark_push"(0, -1, 0, $P10)
+ rx49_cur."!cursor_pos"(rx49_pos)
+ $P10 = rx49_cur."identifier"()
+ unless $P10, rx49_fail
+ rx49_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx47_pos = $P10."pos"()
- # rx rxquantr52 ** 0..1
- set_addr $I53, rxquantr52_done
- rx47_cur."!mark_push"(0, rx47_pos, $I53)
- rxquantr52_loop:
+ rx49_pos = $P10."pos"()
+ # rx rxquantr54 ** 0..1
+ set_addr $I55, rxquantr54_done
+ rx49_cur."!mark_push"(0, rx49_pos, $I55)
+ rxquantr54_loop:
# rx subrule "colonpair" subtype=capture negate=
- rx47_cur."!cursor_pos"(rx47_pos)
- $P10 = rx47_cur."colonpair"()
- unless $P10, rx47_fail
- rx47_cur."!mark_push"(0, -1, 0, $P10)
+ rx49_cur."!cursor_pos"(rx49_pos)
+ $P10 = rx49_cur."colonpair"()
+ unless $P10, rx49_fail
+ rx49_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("colonpair")
- rx47_pos = $P10."pos"()
- (rx47_rep) = rx47_cur."!mark_commit"($I53)
- rxquantr52_done:
-.annotate 'line', 20
+ rx49_pos = $P10."pos"()
+ (rx49_rep) = rx49_cur."!mark_commit"($I55)
+ rxquantr54_done:
+.annotate 'line', 21
# rx pass
- rx47_cur."!cursor_pass"(rx47_pos, "deflongname")
- rx47_cur."!cursor_debug"("PASS ", "deflongname", " at pos=", rx47_pos)
- .return (rx47_cur)
- rx47_fail:
+ rx49_cur."!cursor_pass"(rx49_pos, "deflongname")
+ rx49_cur."!cursor_debug"("PASS ", "deflongname", " at pos=", rx49_pos)
+ .return (rx49_cur)
+ rx49_fail:
.annotate 'line', 4
- (rx47_rep, rx47_pos, $I10, $P10) = rx47_cur."!mark_fail"(0)
- lt rx47_pos, -1, rx47_done
- eq rx47_pos, -1, rx47_fail
+ (rx49_rep, rx49_pos, $I10, $P10) = rx49_cur."!mark_fail"(0)
+ lt rx49_pos, -1, rx49_done
+ eq rx49_pos, -1, rx49_fail
jump $I10
- rx47_done:
- rx47_cur."!cursor_fail"()
- rx47_cur."!cursor_debug"("FAIL ", "deflongname")
- .return (rx47_cur)
+ rx49_done:
+ rx49_cur."!cursor_fail"()
+ rx49_cur."!cursor_debug"("FAIL ", "deflongname")
+ .return (rx49_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__deflongname" :subid("18_1275117591.97262") :method
+.sub "!PREFIX__deflongname" :subid("18_1275811487.95429") :method
.annotate 'line', 4
- $P49 = self."!PREFIX__!subrule"("identifier", "")
- new $P50, "ResizablePMCArray"
- push $P50, $P49
- .return ($P50)
+ $P51 = self."!PREFIX__!subrule"("identifier", "")
+ new $P52, "ResizablePMCArray"
+ push $P52, $P51
+ .return ($P52)
.end
.namespace ["NQP";"Grammar"]
-.sub "ENDSTMT" :subid("19_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "ENDSTMT" :subid("19_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx55_tgt
- .local int rx55_pos
- .local int rx55_off
- .local int rx55_eos
- .local int rx55_rep
- .local pmc rx55_cur
- (rx55_cur, rx55_pos, rx55_tgt) = self."!cursor_start"()
- rx55_cur."!cursor_debug"("START ", "ENDSTMT")
- .lex unicode:"$\x{a2}", rx55_cur
+ .local string rx57_tgt
+ .local int rx57_pos
+ .local int rx57_off
+ .local int rx57_eos
+ .local int rx57_rep
+ .local pmc rx57_cur
+ (rx57_cur, rx57_pos, rx57_tgt) = self."!cursor_start"()
+ rx57_cur."!cursor_debug"("START ", "ENDSTMT")
+ .lex unicode:"$\x{a2}", rx57_cur
.local pmc match
.lex "$/", match
- length rx55_eos, rx55_tgt
- set rx55_off, 0
- lt rx55_pos, 2, rx55_start
- sub rx55_off, rx55_pos, 1
- substr rx55_tgt, rx55_tgt, rx55_off
- rx55_start:
+ length rx57_eos, rx57_tgt
+ gt rx57_pos, rx57_eos, rx57_done
+ set rx57_off, 0
+ lt rx57_pos, 2, rx57_start
+ sub rx57_off, rx57_pos, 1
+ substr rx57_tgt, rx57_tgt, rx57_off
+ rx57_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan58_done
- goto rxscan58_scan
- rxscan58_loop:
- ($P10) = rx55_cur."from"()
+ ne $I10, -1, rxscan60_done
+ goto rxscan60_scan
+ rxscan60_loop:
+ ($P10) = rx57_cur."from"()
inc $P10
- set rx55_pos, $P10
- ge rx55_pos, rx55_eos, rxscan58_done
- rxscan58_scan:
- set_addr $I10, rxscan58_loop
- rx55_cur."!mark_push"(0, rx55_pos, $I10)
- rxscan58_done:
-.annotate 'line', 28
- # rx rxquantr59 ** 0..1
- set_addr $I67, rxquantr59_done
- rx55_cur."!mark_push"(0, rx55_pos, $I67)
- rxquantr59_loop:
- alt60_0:
-.annotate 'line', 25
- set_addr $I10, alt60_1
- rx55_cur."!mark_push"(0, rx55_pos, $I10)
-.annotate 'line', 26
- # rx rxquantr61 ** 0..*
- set_addr $I62, rxquantr61_done
- rx55_cur."!mark_push"(0, rx55_pos, $I62)
+ set rx57_pos, $P10
+ ge rx57_pos, rx57_eos, rxscan60_done
+ rxscan60_scan:
+ set_addr $I10, rxscan60_loop
+ rx57_cur."!mark_push"(0, rx57_pos, $I10)
+ rxscan60_done:
+.annotate 'line', 29
+ # rx rxquantr61 ** 0..1
+ set_addr $I69, rxquantr61_done
+ rx57_cur."!mark_push"(0, rx57_pos, $I69)
rxquantr61_loop:
+ alt62_0:
+.annotate 'line', 26
+ set_addr $I10, alt62_1
+ rx57_cur."!mark_push"(0, rx57_pos, $I10)
+.annotate 'line', 27
+ # rx rxquantr63 ** 0..*
+ set_addr $I64, rxquantr63_done
+ rx57_cur."!mark_push"(0, rx57_pos, $I64)
+ rxquantr63_loop:
# rx enumcharlist negate=0
- ge rx55_pos, rx55_eos, rx55_fail
- sub $I10, rx55_pos, rx55_off
- substr $S10, rx55_tgt, $I10, 1
+ ge rx57_pos, rx57_eos, rx57_fail
+ sub $I10, rx57_pos, rx57_off
+ substr $S10, rx57_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, rx55_fail
- inc rx55_pos
- (rx55_rep) = rx55_cur."!mark_commit"($I62)
- rx55_cur."!mark_push"(rx55_rep, rx55_pos, $I62)
- goto rxquantr61_loop
- rxquantr61_done:
+ lt $I11, 0, rx57_fail
+ inc rx57_pos
+ (rx57_rep) = rx57_cur."!mark_commit"($I64)
+ rx57_cur."!mark_push"(rx57_rep, rx57_pos, $I64)
+ goto rxquantr63_loop
+ rxquantr63_done:
# rxanchor eol
- sub $I10, rx55_pos, rx55_off
- is_cclass $I11, 4096, rx55_tgt, $I10
- if $I11, rxanchor63_done
- ne rx55_pos, rx55_eos, rx55_fail
- eq rx55_pos, 0, rxanchor63_done
+ sub $I10, rx57_pos, rx57_off
+ is_cclass $I11, 4096, rx57_tgt, $I10
+ if $I11, rxanchor65_done
+ ne rx57_pos, rx57_eos, rx57_fail
+ eq rx57_pos, 0, rxanchor65_done
dec $I10
- is_cclass $I11, 4096, rx55_tgt, $I10
- if $I11, rx55_fail
- rxanchor63_done:
- # rx subrule "ws" subtype=method negate=
- rx55_cur."!cursor_pos"(rx55_pos)
- $P10 = rx55_cur."ws"()
- unless $P10, rx55_fail
- rx55_pos = $P10."pos"()
+ is_cclass $I11, 4096, rx57_tgt, $I10
+ if $I11, rx57_fail
+ rxanchor65_done:
+ # rx subrule "ws" subtype=method negate=
+ rx57_cur."!cursor_pos"(rx57_pos)
+ $P10 = rx57_cur."ws"()
+ unless $P10, rx57_fail
+ rx57_pos = $P10."pos"()
# rx subrule "MARKER" subtype=zerowidth negate=
- rx55_cur."!cursor_pos"(rx55_pos)
- $P10 = rx55_cur."MARKER"("endstmt")
- unless $P10, rx55_fail
- goto alt60_end
- alt60_1:
-.annotate 'line', 27
- # rx rxquantr64 ** 0..1
- set_addr $I65, rxquantr64_done
- rx55_cur."!mark_push"(0, rx55_pos, $I65)
- rxquantr64_loop:
+ rx57_cur."!cursor_pos"(rx57_pos)
+ $P10 = rx57_cur."MARKER"("endstmt")
+ unless $P10, rx57_fail
+ goto alt62_end
+ alt62_1:
+.annotate 'line', 28
+ # rx rxquantr66 ** 0..1
+ set_addr $I67, rxquantr66_done
+ rx57_cur."!mark_push"(0, rx57_pos, $I67)
+ rxquantr66_loop:
# rx subrule "unv" subtype=method negate=
- rx55_cur."!cursor_pos"(rx55_pos)
- $P10 = rx55_cur."unv"()
- unless $P10, rx55_fail
- rx55_pos = $P10."pos"()
- (rx55_rep) = rx55_cur."!mark_commit"($I65)
- rxquantr64_done:
+ rx57_cur."!cursor_pos"(rx57_pos)
+ $P10 = rx57_cur."unv"()
+ unless $P10, rx57_fail
+ rx57_pos = $P10."pos"()
+ (rx57_rep) = rx57_cur."!mark_commit"($I67)
+ rxquantr66_done:
# rxanchor eol
- sub $I10, rx55_pos, rx55_off
- is_cclass $I11, 4096, rx55_tgt, $I10
- if $I11, rxanchor66_done
- ne rx55_pos, rx55_eos, rx55_fail
- eq rx55_pos, 0, rxanchor66_done
+ sub $I10, rx57_pos, rx57_off
+ is_cclass $I11, 4096, rx57_tgt, $I10
+ if $I11, rxanchor68_done
+ ne rx57_pos, rx57_eos, rx57_fail
+ eq rx57_pos, 0, rxanchor68_done
dec $I10
- is_cclass $I11, 4096, rx55_tgt, $I10
- if $I11, rx55_fail
- rxanchor66_done:
- # rx subrule "ws" subtype=method negate=
- rx55_cur."!cursor_pos"(rx55_pos)
- $P10 = rx55_cur."ws"()
- unless $P10, rx55_fail
- rx55_pos = $P10."pos"()
+ is_cclass $I11, 4096, rx57_tgt, $I10
+ if $I11, rx57_fail
+ rxanchor68_done:
+ # rx subrule "ws" subtype=method negate=
+ rx57_cur."!cursor_pos"(rx57_pos)
+ $P10 = rx57_cur."ws"()
+ unless $P10, rx57_fail
+ rx57_pos = $P10."pos"()
# rx subrule "MARKER" subtype=zerowidth negate=
- rx55_cur."!cursor_pos"(rx55_pos)
- $P10 = rx55_cur."MARKER"("endstmt")
- unless $P10, rx55_fail
- alt60_end:
-.annotate 'line', 28
- (rx55_rep) = rx55_cur."!mark_commit"($I67)
- rxquantr59_done:
-.annotate 'line', 24
+ rx57_cur."!cursor_pos"(rx57_pos)
+ $P10 = rx57_cur."MARKER"("endstmt")
+ unless $P10, rx57_fail
+ alt62_end:
+.annotate 'line', 29
+ (rx57_rep) = rx57_cur."!mark_commit"($I69)
+ rxquantr61_done:
+.annotate 'line', 25
# rx pass
- rx55_cur."!cursor_pass"(rx55_pos, "ENDSTMT")
- rx55_cur."!cursor_debug"("PASS ", "ENDSTMT", " at pos=", rx55_pos)
- .return (rx55_cur)
- rx55_fail:
+ rx57_cur."!cursor_pass"(rx57_pos, "ENDSTMT")
+ rx57_cur."!cursor_debug"("PASS ", "ENDSTMT", " at pos=", rx57_pos)
+ .return (rx57_cur)
+ rx57_fail:
.annotate 'line', 4
- (rx55_rep, rx55_pos, $I10, $P10) = rx55_cur."!mark_fail"(0)
- lt rx55_pos, -1, rx55_done
- eq rx55_pos, -1, rx55_fail
+ (rx57_rep, rx57_pos, $I10, $P10) = rx57_cur."!mark_fail"(0)
+ lt rx57_pos, -1, rx57_done
+ eq rx57_pos, -1, rx57_fail
jump $I10
- rx55_done:
- rx55_cur."!cursor_fail"()
- rx55_cur."!cursor_debug"("FAIL ", "ENDSTMT")
- .return (rx55_cur)
+ rx57_done:
+ rx57_cur."!cursor_fail"()
+ rx57_cur."!cursor_debug"("FAIL ", "ENDSTMT")
+ .return (rx57_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__ENDSTMT" :subid("20_1275117591.97262") :method
+.sub "!PREFIX__ENDSTMT" :subid("20_1275811487.95429") :method
.annotate 'line', 4
- new $P57, "ResizablePMCArray"
- push $P57, ""
- .return ($P57)
+ new $P59, "ResizablePMCArray"
+ push $P59, ""
+ .return ($P59)
.end
.namespace ["NQP";"Grammar"]
-.sub "ws" :subid("21_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "ws" :subid("21_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx69_tgt
- .local int rx69_pos
- .local int rx69_off
- .local int rx69_eos
- .local int rx69_rep
- .local pmc rx69_cur
- (rx69_cur, rx69_pos, rx69_tgt) = self."!cursor_start"()
- rx69_cur."!cursor_debug"("START ", "ws")
- .lex unicode:"$\x{a2}", rx69_cur
- .local pmc match
- .lex "$/", match
- length rx69_eos, rx69_tgt
- set rx69_off, 0
- lt rx69_pos, 2, rx69_start
- sub rx69_off, rx69_pos, 1
- substr rx69_tgt, rx69_tgt, rx69_off
- rx69_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan72_done
- goto rxscan72_scan
- rxscan72_loop:
- ($P10) = rx69_cur."from"()
- inc $P10
- set rx69_pos, $P10
- ge rx69_pos, rx69_eos, rxscan72_done
- rxscan72_scan:
- set_addr $I10, rxscan72_loop
- rx69_cur."!mark_push"(0, rx69_pos, $I10)
- rxscan72_done:
- alt73_0:
-.annotate 'line', 31
- set_addr $I10, alt73_1
- rx69_cur."!mark_push"(0, rx69_pos, $I10)
+ .local string rx71_tgt
+ .local int rx71_pos
+ .local int rx71_off
+ .local int rx71_eos
+ .local int rx71_rep
+ .local pmc rx71_cur
+ (rx71_cur, rx71_pos, rx71_tgt) = self."!cursor_start"()
+ rx71_cur."!cursor_debug"("START ", "ws")
+ .lex unicode:"$\x{a2}", rx71_cur
+ .local pmc match
+ .lex "$/", match
+ length rx71_eos, rx71_tgt
+ gt rx71_pos, rx71_eos, rx71_done
+ set rx71_off, 0
+ lt rx71_pos, 2, rx71_start
+ sub rx71_off, rx71_pos, 1
+ substr rx71_tgt, rx71_tgt, rx71_off
+ rx71_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan74_done
+ goto rxscan74_scan
+ rxscan74_loop:
+ ($P10) = rx71_cur."from"()
+ inc $P10
+ set rx71_pos, $P10
+ ge rx71_pos, rx71_eos, rxscan74_done
+ rxscan74_scan:
+ set_addr $I10, rxscan74_loop
+ rx71_cur."!mark_push"(0, rx71_pos, $I10)
+ rxscan74_done:
+ alt75_0:
.annotate 'line', 32
- # rx subrule "MARKED" subtype=zerowidth negate=
- rx69_cur."!cursor_pos"(rx69_pos)
- $P10 = rx69_cur."MARKED"("ws")
- unless $P10, rx69_fail
- goto alt73_end
- alt73_1:
+ set_addr $I10, alt75_1
+ rx71_cur."!mark_push"(0, rx71_pos, $I10)
.annotate 'line', 33
- # rx subrule "ww" subtype=zerowidth negate=1
- rx69_cur."!cursor_pos"(rx69_pos)
- $P10 = rx69_cur."ww"()
- if $P10, rx69_fail
-.annotate 'line', 38
- # rx rxquantr74 ** 0..*
- set_addr $I81, rxquantr74_done
- rx69_cur."!mark_push"(0, rx69_pos, $I81)
- rxquantr74_loop:
- alt75_0:
+ # rx subrule "MARKED" subtype=zerowidth negate=
+ rx71_cur."!cursor_pos"(rx71_pos)
+ $P10 = rx71_cur."MARKED"("ws")
+ unless $P10, rx71_fail
+ goto alt75_end
+ alt75_1:
.annotate 'line', 34
- set_addr $I10, alt75_1
- rx69_cur."!mark_push"(0, rx69_pos, $I10)
- # rx rxquantr76 ** 1..*
- set_addr $I77, rxquantr76_done
- rx69_cur."!mark_push"(0, -1, $I77)
+ # rx subrule "ww" subtype=zerowidth negate=1
+ rx71_cur."!cursor_pos"(rx71_pos)
+ $P10 = rx71_cur."ww"()
+ if $P10, rx71_fail
+.annotate 'line', 39
+ # rx rxquantr76 ** 0..*
+ set_addr $I83, rxquantr76_done
+ rx71_cur."!mark_push"(0, rx71_pos, $I83)
rxquantr76_loop:
+ alt77_0:
+.annotate 'line', 35
+ set_addr $I10, alt77_1
+ rx71_cur."!mark_push"(0, rx71_pos, $I10)
+ # rx rxquantr78 ** 1..*
+ set_addr $I79, rxquantr78_done
+ rx71_cur."!mark_push"(0, -1, $I79)
+ rxquantr78_loop:
# rx enumcharlist negate=0
- ge rx69_pos, rx69_eos, rx69_fail
- sub $I10, rx69_pos, rx69_off
- substr $S10, rx69_tgt, $I10, 1
+ ge rx71_pos, rx71_eos, rx71_fail
+ sub $I10, rx71_pos, rx71_off
+ substr $S10, rx71_tgt, $I10, 1
index $I11, unicode:"\n\x{b}\f\r\x{85}\u2028\u2029", $S10
- lt $I11, 0, rx69_fail
- inc rx69_pos
- (rx69_rep) = rx69_cur."!mark_commit"($I77)
- rx69_cur."!mark_push"(rx69_rep, rx69_pos, $I77)
- goto rxquantr76_loop
- rxquantr76_done:
- goto alt75_end
- alt75_1:
- set_addr $I10, alt75_2
- rx69_cur."!mark_push"(0, rx69_pos, $I10)
-.annotate 'line', 35
+ lt $I11, 0, rx71_fail
+ inc rx71_pos
+ (rx71_rep) = rx71_cur."!mark_commit"($I79)
+ rx71_cur."!mark_push"(rx71_rep, rx71_pos, $I79)
+ goto rxquantr78_loop
+ rxquantr78_done:
+ goto alt77_end
+ alt77_1:
+ set_addr $I10, alt77_2
+ rx71_cur."!mark_push"(0, rx71_pos, $I10)
+.annotate 'line', 36
# rx literal "#"
- add $I11, rx69_pos, 1
- gt $I11, rx69_eos, rx69_fail
- sub $I11, rx69_pos, rx69_off
- substr $S10, rx69_tgt, $I11, 1
- ne $S10, "#", rx69_fail
- add rx69_pos, 1
+ add $I11, rx71_pos, 1
+ gt $I11, rx71_eos, rx71_fail
+ sub $I11, rx71_pos, rx71_off
+ substr $S10, rx71_tgt, $I11, 1
+ ne $S10, "#", rx71_fail
+ add rx71_pos, 1
# rx charclass_q N r 0..-1
- sub $I10, rx69_pos, rx69_off
- find_cclass $I11, 4096, rx69_tgt, $I10, rx69_eos
- add rx69_pos, rx69_off, $I11
- goto alt75_end
- alt75_2:
- set_addr $I10, alt75_3
- rx69_cur."!mark_push"(0, rx69_pos, $I10)
-.annotate 'line', 36
+ sub $I10, rx71_pos, rx71_off
+ find_cclass $I11, 4096, rx71_tgt, $I10, rx71_eos
+ add rx71_pos, rx71_off, $I11
+ goto alt77_end
+ alt77_2:
+ set_addr $I10, alt77_3
+ rx71_cur."!mark_push"(0, rx71_pos, $I10)
+.annotate 'line', 37
# rxanchor bol
- eq rx69_pos, 0, rxanchor78_done
- ge rx69_pos, rx69_eos, rx69_fail
- sub $I10, rx69_pos, rx69_off
+ eq rx71_pos, 0, rxanchor80_done
+ ge rx71_pos, rx71_eos, rx71_fail
+ sub $I10, rx71_pos, rx71_off
dec $I10
- is_cclass $I11, 4096, rx69_tgt, $I10
- unless $I11, rx69_fail
- rxanchor78_done:
+ is_cclass $I11, 4096, rx71_tgt, $I10
+ unless $I11, rx71_fail
+ rxanchor80_done:
# rx subrule "pod_comment" subtype=method negate=
- rx69_cur."!cursor_pos"(rx69_pos)
- $P10 = rx69_cur."pod_comment"()
- unless $P10, rx69_fail
- rx69_pos = $P10."pos"()
- goto alt75_end
- alt75_3:
-.annotate 'line', 37
- # rx rxquantr79 ** 1..*
- set_addr $I80, rxquantr79_done
- rx69_cur."!mark_push"(0, -1, $I80)
- rxquantr79_loop:
+ rx71_cur."!cursor_pos"(rx71_pos)
+ $P10 = rx71_cur."pod_comment"()
+ unless $P10, rx71_fail
+ rx71_pos = $P10."pos"()
+ goto alt77_end
+ alt77_3:
+.annotate 'line', 38
+ # rx rxquantr81 ** 1..*
+ set_addr $I82, rxquantr81_done
+ rx71_cur."!mark_push"(0, -1, $I82)
+ rxquantr81_loop:
# rx enumcharlist negate=0
- ge rx69_pos, rx69_eos, rx69_fail
- sub $I10, rx69_pos, rx69_off
- substr $S10, rx69_tgt, $I10, 1
+ ge rx71_pos, rx71_eos, rx71_fail
+ sub $I10, rx71_pos, rx71_off
+ substr $S10, rx71_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, rx69_fail
- inc rx69_pos
- (rx69_rep) = rx69_cur."!mark_commit"($I80)
- rx69_cur."!mark_push"(rx69_rep, rx69_pos, $I80)
- goto rxquantr79_loop
- rxquantr79_done:
- alt75_end:
-.annotate 'line', 38
- (rx69_rep) = rx69_cur."!mark_commit"($I81)
- rx69_cur."!mark_push"(rx69_rep, rx69_pos, $I81)
- goto rxquantr74_loop
- rxquantr74_done:
+ lt $I11, 0, rx71_fail
+ inc rx71_pos
+ (rx71_rep) = rx71_cur."!mark_commit"($I82)
+ rx71_cur."!mark_push"(rx71_rep, rx71_pos, $I82)
+ goto rxquantr81_loop
+ rxquantr81_done:
+ alt77_end:
.annotate 'line', 39
+ (rx71_rep) = rx71_cur."!mark_commit"($I83)
+ rx71_cur."!mark_push"(rx71_rep, rx71_pos, $I83)
+ goto rxquantr76_loop
+ rxquantr76_done:
+.annotate 'line', 40
# rx subrule "MARKER" subtype=zerowidth negate=
- rx69_cur."!cursor_pos"(rx69_pos)
- $P10 = rx69_cur."MARKER"("ws")
- unless $P10, rx69_fail
- alt73_end:
-.annotate 'line', 31
+ rx71_cur."!cursor_pos"(rx71_pos)
+ $P10 = rx71_cur."MARKER"("ws")
+ unless $P10, rx71_fail
+ alt75_end:
+.annotate 'line', 32
# rx pass
- rx69_cur."!cursor_pass"(rx69_pos, "ws")
- rx69_cur."!cursor_debug"("PASS ", "ws", " at pos=", rx69_pos)
- .return (rx69_cur)
- rx69_fail:
+ rx71_cur."!cursor_pass"(rx71_pos, "ws")
+ rx71_cur."!cursor_debug"("PASS ", "ws", " at pos=", rx71_pos)
+ .return (rx71_cur)
+ rx71_fail:
.annotate 'line', 4
- (rx69_rep, rx69_pos, $I10, $P10) = rx69_cur."!mark_fail"(0)
- lt rx69_pos, -1, rx69_done
- eq rx69_pos, -1, rx69_fail
+ (rx71_rep, rx71_pos, $I10, $P10) = rx71_cur."!mark_fail"(0)
+ lt rx71_pos, -1, rx71_done
+ eq rx71_pos, -1, rx71_fail
jump $I10
- rx69_done:
- rx69_cur."!cursor_fail"()
- rx69_cur."!cursor_debug"("FAIL ", "ws")
- .return (rx69_cur)
+ rx71_done:
+ rx71_cur."!cursor_fail"()
+ rx71_cur."!cursor_debug"("FAIL ", "ws")
+ .return (rx71_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__ws" :subid("22_1275117591.97262") :method
+.sub "!PREFIX__ws" :subid("22_1275811487.95429") :method
.annotate 'line', 4
- new $P71, "ResizablePMCArray"
- push $P71, ""
- push $P71, ""
- .return ($P71)
+ new $P73, "ResizablePMCArray"
+ push $P73, ""
+ push $P73, ""
+ .return ($P73)
.end
.namespace ["NQP";"Grammar"]
-.sub "unv" :subid("23_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "unv" :subid("23_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .const 'Sub' $P90 = "25_1275117591.97262"
- capture_lex $P90
- .local string rx83_tgt
- .local int rx83_pos
- .local int rx83_off
- .local int rx83_eos
- .local int rx83_rep
- .local pmc rx83_cur
- (rx83_cur, rx83_pos, rx83_tgt) = self."!cursor_start"()
- rx83_cur."!cursor_debug"("START ", "unv")
- .lex unicode:"$\x{a2}", rx83_cur
+ .const 'Sub' $P92 = "25_1275811487.95429"
+ capture_lex $P92
+ .local string rx85_tgt
+ .local int rx85_pos
+ .local int rx85_off
+ .local int rx85_eos
+ .local int rx85_rep
+ .local pmc rx85_cur
+ (rx85_cur, rx85_pos, rx85_tgt) = self."!cursor_start"()
+ rx85_cur."!cursor_debug"("START ", "unv")
+ .lex unicode:"$\x{a2}", rx85_cur
.local pmc match
.lex "$/", match
- length rx83_eos, rx83_tgt
- set rx83_off, 0
- lt rx83_pos, 2, rx83_start
- sub rx83_off, rx83_pos, 1
- substr rx83_tgt, rx83_tgt, rx83_off
- rx83_start:
+ length rx85_eos, rx85_tgt
+ gt rx85_pos, rx85_eos, rx85_done
+ set rx85_off, 0
+ lt rx85_pos, 2, rx85_start
+ sub rx85_off, rx85_pos, 1
+ substr rx85_tgt, rx85_tgt, rx85_off
+ rx85_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan86_done
- goto rxscan86_scan
- rxscan86_loop:
- ($P10) = rx83_cur."from"()
+ ne $I10, -1, rxscan88_done
+ goto rxscan88_scan
+ rxscan88_loop:
+ ($P10) = rx85_cur."from"()
inc $P10
- set rx83_pos, $P10
- ge rx83_pos, rx83_eos, rxscan86_done
- rxscan86_scan:
- set_addr $I10, rxscan86_loop
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
- rxscan86_done:
- alt87_0:
-.annotate 'line', 44
- set_addr $I10, alt87_1
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
+ set rx85_pos, $P10
+ ge rx85_pos, rx85_eos, rxscan88_done
+ rxscan88_scan:
+ set_addr $I10, rxscan88_loop
+ rx85_cur."!mark_push"(0, rx85_pos, $I10)
+ rxscan88_done:
+ alt89_0:
.annotate 'line', 45
+ set_addr $I10, alt89_1
+ rx85_cur."!mark_push"(0, rx85_pos, $I10)
+.annotate 'line', 46
# rxanchor bol
- eq rx83_pos, 0, rxanchor88_done
- ge rx83_pos, rx83_eos, rx83_fail
- sub $I10, rx83_pos, rx83_off
+ eq rx85_pos, 0, rxanchor90_done
+ ge rx85_pos, rx85_eos, rx85_fail
+ sub $I10, rx85_pos, rx85_off
dec $I10
- is_cclass $I11, 4096, rx83_tgt, $I10
- unless $I11, rx83_fail
- rxanchor88_done:
+ is_cclass $I11, 4096, rx85_tgt, $I10
+ unless $I11, rx85_fail
+ rxanchor90_done:
# rx subrule "before" subtype=zerowidth negate=
- rx83_cur."!cursor_pos"(rx83_pos)
- .const 'Sub' $P90 = "25_1275117591.97262"
- capture_lex $P90
- $P10 = rx83_cur."before"($P90)
- unless $P10, rx83_fail
+ rx85_cur."!cursor_pos"(rx85_pos)
+ .const 'Sub' $P92 = "25_1275811487.95429"
+ capture_lex $P92
+ $P10 = rx85_cur."before"($P92)
+ unless $P10, rx85_fail
# rx subrule "pod_comment" subtype=method negate=
- rx83_cur."!cursor_pos"(rx83_pos)
- $P10 = rx83_cur."pod_comment"()
- unless $P10, rx83_fail
- rx83_pos = $P10."pos"()
- goto alt87_end
- alt87_1:
- set_addr $I10, alt87_2
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
-.annotate 'line', 46
- # rx rxquantr96 ** 0..*
- set_addr $I97, rxquantr96_done
- rx83_cur."!mark_push"(0, rx83_pos, $I97)
- rxquantr96_loop:
- # rx enumcharlist negate=0
- ge rx83_pos, rx83_eos, rx83_fail
- sub $I10, rx83_pos, rx83_off
- substr $S10, rx83_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, rx83_fail
- inc rx83_pos
- (rx83_rep) = rx83_cur."!mark_commit"($I97)
- rx83_cur."!mark_push"(rx83_rep, rx83_pos, $I97)
- goto rxquantr96_loop
- rxquantr96_done:
- # rx literal "#"
- add $I11, rx83_pos, 1
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 1
- ne $S10, "#", rx83_fail
- add rx83_pos, 1
- # rx charclass_q N r 0..-1
- sub $I10, rx83_pos, rx83_off
- find_cclass $I11, 4096, rx83_tgt, $I10, rx83_eos
- add rx83_pos, rx83_off, $I11
- goto alt87_end
- alt87_2:
+ rx85_cur."!cursor_pos"(rx85_pos)
+ $P10 = rx85_cur."pod_comment"()
+ unless $P10, rx85_fail
+ rx85_pos = $P10."pos"()
+ goto alt89_end
+ alt89_1:
+ set_addr $I10, alt89_2
+ rx85_cur."!mark_push"(0, rx85_pos, $I10)
.annotate 'line', 47
- # rx rxquantr98 ** 1..*
+ # rx rxquantr98 ** 0..*
set_addr $I99, rxquantr98_done
- rx83_cur."!mark_push"(0, -1, $I99)
+ rx85_cur."!mark_push"(0, rx85_pos, $I99)
rxquantr98_loop:
# rx enumcharlist negate=0
- ge rx83_pos, rx83_eos, rx83_fail
- sub $I10, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I10, 1
+ ge rx85_pos, rx85_eos, rx85_fail
+ sub $I10, rx85_pos, rx85_off
+ substr $S10, rx85_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, rx83_fail
- inc rx83_pos
- (rx83_rep) = rx83_cur."!mark_commit"($I99)
- rx83_cur."!mark_push"(rx83_rep, rx83_pos, $I99)
+ lt $I11, 0, rx85_fail
+ inc rx85_pos
+ (rx85_rep) = rx85_cur."!mark_commit"($I99)
+ rx85_cur."!mark_push"(rx85_rep, rx85_pos, $I99)
goto rxquantr98_loop
rxquantr98_done:
- alt87_end:
-.annotate 'line', 42
+ # rx literal "#"
+ add $I11, rx85_pos, 1
+ gt $I11, rx85_eos, rx85_fail
+ sub $I11, rx85_pos, rx85_off
+ substr $S10, rx85_tgt, $I11, 1
+ ne $S10, "#", rx85_fail
+ add rx85_pos, 1
+ # rx charclass_q N r 0..-1
+ sub $I10, rx85_pos, rx85_off
+ find_cclass $I11, 4096, rx85_tgt, $I10, rx85_eos
+ add rx85_pos, rx85_off, $I11
+ goto alt89_end
+ alt89_2:
+.annotate 'line', 48
+ # rx rxquantr100 ** 1..*
+ set_addr $I101, rxquantr100_done
+ rx85_cur."!mark_push"(0, -1, $I101)
+ rxquantr100_loop:
+ # rx enumcharlist negate=0
+ ge rx85_pos, rx85_eos, rx85_fail
+ sub $I10, rx85_pos, rx85_off
+ substr $S10, rx85_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, rx85_fail
+ inc rx85_pos
+ (rx85_rep) = rx85_cur."!mark_commit"($I101)
+ rx85_cur."!mark_push"(rx85_rep, rx85_pos, $I101)
+ goto rxquantr100_loop
+ rxquantr100_done:
+ alt89_end:
+.annotate 'line', 43
# rx pass
- rx83_cur."!cursor_pass"(rx83_pos, "unv")
- rx83_cur."!cursor_debug"("PASS ", "unv", " at pos=", rx83_pos)
- .return (rx83_cur)
- rx83_fail:
+ rx85_cur."!cursor_pass"(rx85_pos, "unv")
+ rx85_cur."!cursor_debug"("PASS ", "unv", " at pos=", rx85_pos)
+ .return (rx85_cur)
+ rx85_fail:
.annotate 'line', 4
- (rx83_rep, rx83_pos, $I10, $P10) = rx83_cur."!mark_fail"(0)
- lt rx83_pos, -1, rx83_done
- eq rx83_pos, -1, rx83_fail
+ (rx85_rep, rx85_pos, $I10, $P10) = rx85_cur."!mark_fail"(0)
+ lt rx85_pos, -1, rx85_done
+ eq rx85_pos, -1, rx85_fail
jump $I10
- rx83_done:
- rx83_cur."!cursor_fail"()
- rx83_cur."!cursor_debug"("FAIL ", "unv")
- .return (rx83_cur)
+ rx85_done:
+ rx85_cur."!cursor_fail"()
+ rx85_cur."!cursor_debug"("FAIL ", "unv")
+ .return (rx85_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__unv" :subid("24_1275117591.97262") :method
+.sub "!PREFIX__unv" :subid("24_1275811487.95429") :method
.annotate 'line', 4
- new $P85, "ResizablePMCArray"
- push $P85, ""
- push $P85, ""
- push $P85, ""
- .return ($P85)
+ new $P87, "ResizablePMCArray"
+ push $P87, ""
+ push $P87, ""
+ push $P87, ""
+ .return ($P87)
.end
.namespace ["NQP";"Grammar"]
-.sub "_block89" :anon :subid("25_1275117591.97262") :method :outer("23_1275117591.97262")
-.annotate 'line', 45
- .local string rx91_tgt
- .local int rx91_pos
- .local int rx91_off
- .local int rx91_eos
- .local int rx91_rep
- .local pmc rx91_cur
- (rx91_cur, rx91_pos, rx91_tgt) = self."!cursor_start"()
- rx91_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx91_cur
- .local pmc match
- .lex "$/", match
- length rx91_eos, rx91_tgt
- set rx91_off, 0
- lt rx91_pos, 2, rx91_start
- sub rx91_off, rx91_pos, 1
- substr rx91_tgt, rx91_tgt, rx91_off
- rx91_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan92_done
- goto rxscan92_scan
- rxscan92_loop:
- ($P10) = rx91_cur."from"()
- inc $P10
- set rx91_pos, $P10
- ge rx91_pos, rx91_eos, rxscan92_done
- rxscan92_scan:
- set_addr $I10, rxscan92_loop
- rx91_cur."!mark_push"(0, rx91_pos, $I10)
- rxscan92_done:
- # rx rxquantr93 ** 0..*
- set_addr $I94, rxquantr93_done
- rx91_cur."!mark_push"(0, rx91_pos, $I94)
- rxquantr93_loop:
+.sub "_block91" :anon :subid("25_1275811487.95429") :method :outer("23_1275811487.95429")
+.annotate 'line', 46
+ .local string rx93_tgt
+ .local int rx93_pos
+ .local int rx93_off
+ .local int rx93_eos
+ .local int rx93_rep
+ .local pmc rx93_cur
+ (rx93_cur, rx93_pos, rx93_tgt) = self."!cursor_start"()
+ rx93_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx93_cur
+ .local pmc match
+ .lex "$/", match
+ length rx93_eos, rx93_tgt
+ gt rx93_pos, rx93_eos, rx93_done
+ set rx93_off, 0
+ lt rx93_pos, 2, rx93_start
+ sub rx93_off, rx93_pos, 1
+ substr rx93_tgt, rx93_tgt, rx93_off
+ rx93_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan94_done
+ goto rxscan94_scan
+ rxscan94_loop:
+ ($P10) = rx93_cur."from"()
+ inc $P10
+ set rx93_pos, $P10
+ ge rx93_pos, rx93_eos, rxscan94_done
+ rxscan94_scan:
+ set_addr $I10, rxscan94_loop
+ rx93_cur."!mark_push"(0, rx93_pos, $I10)
+ rxscan94_done:
+ # rx rxquantr95 ** 0..*
+ set_addr $I96, rxquantr95_done
+ rx93_cur."!mark_push"(0, rx93_pos, $I96)
+ rxquantr95_loop:
# rx enumcharlist negate=0
- ge rx91_pos, rx91_eos, rx91_fail
- sub $I10, rx91_pos, rx91_off
- substr $S10, rx91_tgt, $I10, 1
+ ge rx93_pos, rx93_eos, rx93_fail
+ sub $I10, rx93_pos, rx93_off
+ substr $S10, rx93_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, rx91_fail
- inc rx91_pos
- (rx91_rep) = rx91_cur."!mark_commit"($I94)
- rx91_cur."!mark_push"(rx91_rep, rx91_pos, $I94)
- goto rxquantr93_loop
- rxquantr93_done:
+ lt $I11, 0, rx93_fail
+ inc rx93_pos
+ (rx93_rep) = rx93_cur."!mark_commit"($I96)
+ rx93_cur."!mark_push"(rx93_rep, rx93_pos, $I96)
+ goto rxquantr95_loop
+ rxquantr95_done:
# rx literal "="
- add $I11, rx91_pos, 1
- gt $I11, rx91_eos, rx91_fail
- sub $I11, rx91_pos, rx91_off
- substr $S10, rx91_tgt, $I11, 1
- ne $S10, "=", rx91_fail
- add rx91_pos, 1
- alt95_0:
- set_addr $I10, alt95_1
- rx91_cur."!mark_push"(0, rx91_pos, $I10)
+ add $I11, rx93_pos, 1
+ gt $I11, rx93_eos, rx93_fail
+ sub $I11, rx93_pos, rx93_off
+ substr $S10, rx93_tgt, $I11, 1
+ ne $S10, "=", rx93_fail
+ add rx93_pos, 1
+ alt97_0:
+ set_addr $I10, alt97_1
+ rx93_cur."!mark_push"(0, rx93_pos, $I10)
# rx charclass w
- ge rx91_pos, rx91_eos, rx91_fail
- sub $I10, rx91_pos, rx91_off
- is_cclass $I11, 8192, rx91_tgt, $I10
- unless $I11, rx91_fail
- inc rx91_pos
- goto alt95_end
- alt95_1:
+ ge rx93_pos, rx93_eos, rx93_fail
+ sub $I10, rx93_pos, rx93_off
+ is_cclass $I11, 8192, rx93_tgt, $I10
+ unless $I11, rx93_fail
+ inc rx93_pos
+ goto alt97_end
+ alt97_1:
# rx literal "\\"
- add $I11, rx91_pos, 1
- gt $I11, rx91_eos, rx91_fail
- sub $I11, rx91_pos, rx91_off
- substr $S10, rx91_tgt, $I11, 1
- ne $S10, "\\", rx91_fail
- add rx91_pos, 1
- alt95_end:
- # rx pass
- rx91_cur."!cursor_pass"(rx91_pos, "")
- rx91_cur."!cursor_debug"("PASS ", "", " at pos=", rx91_pos)
- .return (rx91_cur)
- rx91_fail:
- (rx91_rep, rx91_pos, $I10, $P10) = rx91_cur."!mark_fail"(0)
- lt rx91_pos, -1, rx91_done
- eq rx91_pos, -1, rx91_fail
- jump $I10
- rx91_done:
- rx91_cur."!cursor_fail"()
- rx91_cur."!cursor_debug"("FAIL ", "")
- .return (rx91_cur)
+ add $I11, rx93_pos, 1
+ gt $I11, rx93_eos, rx93_fail
+ sub $I11, rx93_pos, rx93_off
+ substr $S10, rx93_tgt, $I11, 1
+ ne $S10, "\\", rx93_fail
+ add rx93_pos, 1
+ alt97_end:
+ # rx pass
+ rx93_cur."!cursor_pass"(rx93_pos, "")
+ rx93_cur."!cursor_debug"("PASS ", "", " at pos=", rx93_pos)
+ .return (rx93_cur)
+ rx93_fail:
+ (rx93_rep, rx93_pos, $I10, $P10) = rx93_cur."!mark_fail"(0)
+ lt rx93_pos, -1, rx93_done
+ eq rx93_pos, -1, rx93_fail
+ jump $I10
+ rx93_done:
+ rx93_cur."!cursor_fail"()
+ rx93_cur."!cursor_debug"("FAIL ", "")
+ .return (rx93_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "pod_comment" :subid("26_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .const 'Sub' $P141 = "28_1275117591.97262"
- capture_lex $P141
- .local string rx101_tgt
- .local int rx101_pos
- .local int rx101_off
- .local int rx101_eos
- .local int rx101_rep
- .local pmc rx101_cur
- (rx101_cur, rx101_pos, rx101_tgt) = self."!cursor_start"()
- rx101_cur."!cursor_debug"("START ", "pod_comment")
- .lex unicode:"$\x{a2}", rx101_cur
- .local pmc match
- .lex "$/", match
- length rx101_eos, rx101_tgt
- set rx101_off, 0
- lt rx101_pos, 2, rx101_start
- sub rx101_off, rx101_pos, 1
- substr rx101_tgt, rx101_tgt, rx101_off
- rx101_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan104_done
- goto rxscan104_scan
- rxscan104_loop:
- ($P10) = rx101_cur."from"()
- inc $P10
- set rx101_pos, $P10
- ge rx101_pos, rx101_eos, rxscan104_done
- rxscan104_scan:
- set_addr $I10, rxscan104_loop
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
- rxscan104_done:
-.annotate 'line', 52
+.sub "pod_comment" :subid("26_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .const 'Sub' $P143 = "28_1275811487.95429"
+ capture_lex $P143
+ .local string rx103_tgt
+ .local int rx103_pos
+ .local int rx103_off
+ .local int rx103_eos
+ .local int rx103_rep
+ .local pmc rx103_cur
+ (rx103_cur, rx103_pos, rx103_tgt) = self."!cursor_start"()
+ rx103_cur."!cursor_debug"("START ", "pod_comment")
+ .lex unicode:"$\x{a2}", rx103_cur
+ .local pmc match
+ .lex "$/", match
+ length rx103_eos, rx103_tgt
+ gt rx103_pos, rx103_eos, rx103_done
+ set rx103_off, 0
+ lt rx103_pos, 2, rx103_start
+ sub rx103_off, rx103_pos, 1
+ substr rx103_tgt, rx103_tgt, rx103_off
+ rx103_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan106_done
+ goto rxscan106_scan
+ rxscan106_loop:
+ ($P10) = rx103_cur."from"()
+ inc $P10
+ set rx103_pos, $P10
+ ge rx103_pos, rx103_eos, rxscan106_done
+ rxscan106_scan:
+ set_addr $I10, rxscan106_loop
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ rxscan106_done:
+.annotate 'line', 53
# rxanchor bol
- eq rx101_pos, 0, rxanchor105_done
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
+ eq rx103_pos, 0, rxanchor107_done
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
dec $I10
- is_cclass $I11, 4096, rx101_tgt, $I10
- unless $I11, rx101_fail
- rxanchor105_done:
- # rx rxquantr106 ** 0..*
- set_addr $I107, rxquantr106_done
- rx101_cur."!mark_push"(0, rx101_pos, $I107)
- rxquantr106_loop:
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ rxanchor107_done:
+ # rx rxquantr108 ** 0..*
+ set_addr $I109, rxquantr108_done
+ rx103_cur."!mark_push"(0, rx103_pos, $I109)
+ rxquantr108_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I107)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I107)
- goto rxquantr106_loop
- rxquantr106_done:
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I109)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I109)
+ goto rxquantr108_loop
+ rxquantr108_done:
# rx literal "="
- add $I11, rx101_pos, 1
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 1
- ne $S10, "=", rx101_fail
- add rx101_pos, 1
- alt108_0:
-.annotate 'line', 53
- set_addr $I10, alt108_1
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
+ add $I11, rx103_pos, 1
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 1
+ ne $S10, "=", rx103_fail
+ add rx103_pos, 1
+ alt110_0:
.annotate 'line', 54
+ set_addr $I10, alt110_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+.annotate 'line', 55
# rx literal "begin"
- add $I11, rx101_pos, 5
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 5
- ne $S10, "begin", rx101_fail
- add rx101_pos, 5
- # rx rxquantr109 ** 1..*
- set_addr $I110, rxquantr109_done
- rx101_cur."!mark_push"(0, -1, $I110)
- rxquantr109_loop:
+ add $I11, rx103_pos, 5
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 5
+ ne $S10, "begin", rx103_fail
+ add rx103_pos, 5
+ # rx rxquantr111 ** 1..*
+ set_addr $I112, rxquantr111_done
+ rx103_cur."!mark_push"(0, -1, $I112)
+ rxquantr111_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I110)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I110)
- goto rxquantr109_loop
- rxquantr109_done:
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I112)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I112)
+ goto rxquantr111_loop
+ rxquantr111_done:
# rx literal "END"
- add $I11, rx101_pos, 3
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 3
- ne $S10, "END", rx101_fail
- add rx101_pos, 3
+ add $I11, rx103_pos, 3
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 3
+ ne $S10, "END", rx103_fail
+ add rx103_pos, 3
# rxanchor rwb
- le rx101_pos, 0, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 8192, rx101_tgt, $I10
- if $I11, rx101_fail
+ le rx103_pos, 0, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ if $I11, rx103_fail
dec $I10
- is_cclass $I11, 8192, rx101_tgt, $I10
- unless $I11, rx101_fail
- alt111_0:
-.annotate 'line', 55
- set_addr $I10, alt111_1
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
- # rx rxquantf112 ** 0..*
- set_addr $I10, rxquantf112_loop
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
- goto rxquantf112_done
- rxquantf112_loop:
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ alt113_0:
+.annotate 'line', 56
+ set_addr $I10, alt113_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ # rx rxquantf114 ** 0..*
+ set_addr $I10, rxquantf114_loop
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ goto rxquantf114_done
+ rxquantf114_loop:
# rx charclass .
- ge rx101_pos, rx101_eos, rx101_fail
- inc rx101_pos
- set_addr $I10, rxquantf112_loop
- rx101_cur."!mark_push"($I113, rx101_pos, $I10)
- rxquantf112_done:
+ ge rx103_pos, rx103_eos, rx103_fail
+ inc rx103_pos
+ set_addr $I10, rxquantf114_loop
+ rx103_cur."!mark_push"($I115, rx103_pos, $I10)
+ rxquantf114_done:
# rx charclass nl
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 4096, rx101_tgt, $I10
- unless $I11, rx101_fail
- substr $S10, rx101_tgt, $I10, 2
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ substr $S10, rx103_tgt, $I10, 2
iseq $I11, $S10, "\r\n"
- add rx101_pos, $I11
- inc rx101_pos
- # rx rxquantr114 ** 0..*
- set_addr $I115, rxquantr114_done
- rx101_cur."!mark_push"(0, rx101_pos, $I115)
- rxquantr114_loop:
- # rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I115)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I115)
- goto rxquantr114_loop
- rxquantr114_done:
- # rx literal "=end"
- add $I11, rx101_pos, 4
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 4
- ne $S10, "=end", rx101_fail
- add rx101_pos, 4
- # rx rxquantr116 ** 1..*
+ add rx103_pos, $I11
+ inc rx103_pos
+ # rx rxquantr116 ** 0..*
set_addr $I117, rxquantr116_done
- rx101_cur."!mark_push"(0, -1, $I117)
+ rx103_cur."!mark_push"(0, rx103_pos, $I117)
rxquantr116_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I117)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I117)
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I117)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I117)
goto rxquantr116_loop
rxquantr116_done:
+ # rx literal "=end"
+ add $I11, rx103_pos, 4
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 4
+ ne $S10, "=end", rx103_fail
+ add rx103_pos, 4
+ # rx rxquantr118 ** 1..*
+ set_addr $I119, rxquantr118_done
+ rx103_cur."!mark_push"(0, -1, $I119)
+ rxquantr118_loop:
+ # rx enumcharlist negate=0
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I119)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I119)
+ goto rxquantr118_loop
+ rxquantr118_done:
# rx literal "END"
- add $I11, rx101_pos, 3
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 3
- ne $S10, "END", rx101_fail
- add rx101_pos, 3
+ add $I11, rx103_pos, 3
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 3
+ ne $S10, "END", rx103_fail
+ add rx103_pos, 3
# rxanchor rwb
- le rx101_pos, 0, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 8192, rx101_tgt, $I10
- if $I11, rx101_fail
+ le rx103_pos, 0, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ if $I11, rx103_fail
dec $I10
- is_cclass $I11, 8192, rx101_tgt, $I10
- unless $I11, rx101_fail
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ unless $I11, rx103_fail
# rx charclass_q N r 0..-1
- sub $I10, rx101_pos, rx101_off
- find_cclass $I11, 4096, rx101_tgt, $I10, rx101_eos
- add rx101_pos, rx101_off, $I11
- goto alt111_end
- alt111_1:
+ sub $I10, rx103_pos, rx103_off
+ find_cclass $I11, 4096, rx103_tgt, $I10, rx103_eos
+ add rx103_pos, rx103_off, $I11
+ goto alt113_end
+ alt113_1:
# rx charclass_q . r 0..-1
- sub $I10, rx101_pos, rx101_off
- find_not_cclass $I11, 65535, rx101_tgt, $I10, rx101_eos
- add rx101_pos, rx101_off, $I11
- alt111_end:
-.annotate 'line', 54
- goto alt108_end
- alt108_1:
- set_addr $I10, alt108_2
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
-.annotate 'line', 56
+ sub $I10, rx103_pos, rx103_off
+ find_not_cclass $I11, 65535, rx103_tgt, $I10, rx103_eos
+ add rx103_pos, rx103_off, $I11
+ alt113_end:
+.annotate 'line', 55
+ goto alt110_end
+ alt110_1:
+ set_addr $I10, alt110_2
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+.annotate 'line', 57
# rx literal "begin"
- add $I11, rx101_pos, 5
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 5
- ne $S10, "begin", rx101_fail
- add rx101_pos, 5
- # rx rxquantr118 ** 1..*
- set_addr $I119, rxquantr118_done
- rx101_cur."!mark_push"(0, -1, $I119)
- rxquantr118_loop:
+ add $I11, rx103_pos, 5
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 5
+ ne $S10, "begin", rx103_fail
+ add rx103_pos, 5
+ # rx rxquantr120 ** 1..*
+ set_addr $I121, rxquantr120_done
+ rx103_cur."!mark_push"(0, -1, $I121)
+ rxquantr120_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I119)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I119)
- goto rxquantr118_loop
- rxquantr118_done:
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I121)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I121)
+ goto rxquantr120_loop
+ rxquantr120_done:
# rx subrule "identifier" subtype=capture negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."identifier"()
- unless $P10, rx101_fail
- rx101_cur."!mark_push"(0, -1, 0, $P10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."identifier"()
+ unless $P10, rx103_fail
+ rx103_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx101_pos = $P10."pos"()
- alt120_0:
-.annotate 'line', 57
- set_addr $I10, alt120_1
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
+ rx103_pos = $P10."pos"()
+ alt122_0:
.annotate 'line', 58
- # rx rxquantf121 ** 0..*
- set_addr $I10, rxquantf121_loop
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
- goto rxquantf121_done
- rxquantf121_loop:
+ set_addr $I10, alt122_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+.annotate 'line', 59
+ # rx rxquantf123 ** 0..*
+ set_addr $I10, rxquantf123_loop
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ goto rxquantf123_done
+ rxquantf123_loop:
# rx charclass .
- ge rx101_pos, rx101_eos, rx101_fail
- inc rx101_pos
- set_addr $I10, rxquantf121_loop
- rx101_cur."!mark_push"($I122, rx101_pos, $I10)
- rxquantf121_done:
+ ge rx103_pos, rx103_eos, rx103_fail
+ inc rx103_pos
+ set_addr $I10, rxquantf123_loop
+ rx103_cur."!mark_push"($I124, rx103_pos, $I10)
+ rxquantf123_done:
# rx charclass nl
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 4096, rx101_tgt, $I10
- unless $I11, rx101_fail
- substr $S10, rx101_tgt, $I10, 2
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ substr $S10, rx103_tgt, $I10, 2
iseq $I11, $S10, "\r\n"
- add rx101_pos, $I11
- inc rx101_pos
- # rx rxquantr123 ** 0..*
- set_addr $I124, rxquantr123_done
- rx101_cur."!mark_push"(0, rx101_pos, $I124)
- rxquantr123_loop:
- # rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I124)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I124)
- goto rxquantr123_loop
- rxquantr123_done:
- # rx literal "=end"
- add $I11, rx101_pos, 4
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 4
- ne $S10, "=end", rx101_fail
- add rx101_pos, 4
- # rx rxquantr125 ** 1..*
+ add rx103_pos, $I11
+ inc rx103_pos
+ # rx rxquantr125 ** 0..*
set_addr $I126, rxquantr125_done
- rx101_cur."!mark_push"(0, -1, $I126)
+ rx103_cur."!mark_push"(0, rx103_pos, $I126)
rxquantr125_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I126)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I126)
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I126)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I126)
goto rxquantr125_loop
rxquantr125_done:
+ # rx literal "=end"
+ add $I11, rx103_pos, 4
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 4
+ ne $S10, "=end", rx103_fail
+ add rx103_pos, 4
+ # rx rxquantr127 ** 1..*
+ set_addr $I128, rxquantr127_done
+ rx103_cur."!mark_push"(0, -1, $I128)
+ rxquantr127_loop:
+ # rx enumcharlist negate=0
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I128)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I128)
+ goto rxquantr127_loop
+ rxquantr127_done:
# rx subrule "!BACKREF" subtype=method negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."!BACKREF"("identifier")
- unless $P10, rx101_fail
- rx101_pos = $P10."pos"()
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."!BACKREF"("identifier")
+ unless $P10, rx103_fail
+ rx103_pos = $P10."pos"()
# rxanchor rwb
- le rx101_pos, 0, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 8192, rx101_tgt, $I10
- if $I11, rx101_fail
+ le rx103_pos, 0, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ if $I11, rx103_fail
dec $I10
- is_cclass $I11, 8192, rx101_tgt, $I10
- unless $I11, rx101_fail
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ unless $I11, rx103_fail
# rx charclass_q N r 0..-1
- sub $I10, rx101_pos, rx101_off
- find_cclass $I11, 4096, rx101_tgt, $I10, rx101_eos
- add rx101_pos, rx101_off, $I11
- goto alt120_end
- alt120_1:
-.annotate 'line', 59
+ sub $I10, rx103_pos, rx103_off
+ find_cclass $I11, 4096, rx103_tgt, $I10, rx103_eos
+ add rx103_pos, rx103_off, $I11
+ goto alt122_end
+ alt122_1:
+.annotate 'line', 60
# rx subrule "panic" subtype=method negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."panic"("=begin without matching =end")
- unless $P10, rx101_fail
- rx101_pos = $P10."pos"()
- alt120_end:
-.annotate 'line', 56
- goto alt108_end
- alt108_2:
- set_addr $I10, alt108_3
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
-.annotate 'line', 61
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."panic"("=begin without matching =end")
+ unless $P10, rx103_fail
+ rx103_pos = $P10."pos"()
+ alt122_end:
+.annotate 'line', 57
+ goto alt110_end
+ alt110_2:
+ set_addr $I10, alt110_3
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+.annotate 'line', 62
# rx literal "begin"
- add $I11, rx101_pos, 5
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 5
- ne $S10, "begin", rx101_fail
- add rx101_pos, 5
+ add $I11, rx103_pos, 5
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 5
+ ne $S10, "begin", rx103_fail
+ add rx103_pos, 5
# rxanchor rwb
- le rx101_pos, 0, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 8192, rx101_tgt, $I10
- if $I11, rx101_fail
+ le rx103_pos, 0, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ if $I11, rx103_fail
dec $I10
- is_cclass $I11, 8192, rx101_tgt, $I10
- unless $I11, rx101_fail
- # rx rxquantr128 ** 0..*
- set_addr $I129, rxquantr128_done
- rx101_cur."!mark_push"(0, rx101_pos, $I129)
- rxquantr128_loop:
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ # rx rxquantr130 ** 0..*
+ set_addr $I131, rxquantr130_done
+ rx103_cur."!mark_push"(0, rx103_pos, $I131)
+ rxquantr130_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I129)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I129)
- goto rxquantr128_loop
- rxquantr128_done:
- alt130_0:
-.annotate 'line', 62
- set_addr $I10, alt130_1
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I131)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I131)
+ goto rxquantr130_loop
+ rxquantr130_done:
+ alt132_0:
+.annotate 'line', 63
+ set_addr $I10, alt132_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
# rxanchor eol
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 4096, rx101_tgt, $I10
- if $I11, rxanchor131_done
- ne rx101_pos, rx101_eos, rx101_fail
- eq rx101_pos, 0, rxanchor131_done
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ if $I11, rxanchor133_done
+ ne rx103_pos, rx103_eos, rx103_fail
+ eq rx103_pos, 0, rxanchor133_done
dec $I10
- is_cclass $I11, 4096, rx101_tgt, $I10
- if $I11, rx101_fail
- rxanchor131_done:
- goto alt130_end
- alt130_1:
- set_addr $I10, alt130_2
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ if $I11, rx103_fail
+ rxanchor133_done:
+ goto alt132_end
+ alt132_1:
+ set_addr $I10, alt132_2
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
# rx literal "#"
- add $I11, rx101_pos, 1
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 1
- ne $S10, "#", rx101_fail
- add rx101_pos, 1
- goto alt130_end
- alt130_2:
+ add $I11, rx103_pos, 1
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 1
+ ne $S10, "#", rx103_fail
+ add rx103_pos, 1
+ goto alt132_end
+ alt132_2:
# rx subrule "panic" subtype=method negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."panic"("Unrecognized token after =begin")
- unless $P10, rx101_fail
- rx101_pos = $P10."pos"()
- alt130_end:
- alt132_0:
-.annotate 'line', 63
- set_addr $I10, alt132_1
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."panic"("Unrecognized token after =begin")
+ unless $P10, rx103_fail
+ rx103_pos = $P10."pos"()
+ alt132_end:
+ alt134_0:
.annotate 'line', 64
- # rx rxquantf133 ** 0..*
- set_addr $I10, rxquantf133_loop
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
- goto rxquantf133_done
- rxquantf133_loop:
+ set_addr $I10, alt134_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+.annotate 'line', 65
+ # rx rxquantf135 ** 0..*
+ set_addr $I10, rxquantf135_loop
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ goto rxquantf135_done
+ rxquantf135_loop:
# rx charclass .
- ge rx101_pos, rx101_eos, rx101_fail
- inc rx101_pos
- set_addr $I10, rxquantf133_loop
- rx101_cur."!mark_push"($I134, rx101_pos, $I10)
- rxquantf133_done:
+ ge rx103_pos, rx103_eos, rx103_fail
+ inc rx103_pos
+ set_addr $I10, rxquantf135_loop
+ rx103_cur."!mark_push"($I136, rx103_pos, $I10)
+ rxquantf135_done:
# rx charclass nl
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 4096, rx101_tgt, $I10
- unless $I11, rx101_fail
- substr $S10, rx101_tgt, $I10, 2
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ substr $S10, rx103_tgt, $I10, 2
iseq $I11, $S10, "\r\n"
- add rx101_pos, $I11
- inc rx101_pos
- # rx rxquantr135 ** 0..*
- set_addr $I136, rxquantr135_done
- rx101_cur."!mark_push"(0, rx101_pos, $I136)
- rxquantr135_loop:
+ add rx103_pos, $I11
+ inc rx103_pos
+ # rx rxquantr137 ** 0..*
+ set_addr $I138, rxquantr137_done
+ rx103_cur."!mark_push"(0, rx103_pos, $I138)
+ rxquantr137_loop:
# rx enumcharlist negate=0
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I10, 1
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ substr $S10, rx103_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, rx101_fail
- inc rx101_pos
- (rx101_rep) = rx101_cur."!mark_commit"($I136)
- rx101_cur."!mark_push"(rx101_rep, rx101_pos, $I136)
- goto rxquantr135_loop
- rxquantr135_done:
+ lt $I11, 0, rx103_fail
+ inc rx103_pos
+ (rx103_rep) = rx103_cur."!mark_commit"($I138)
+ rx103_cur."!mark_push"(rx103_rep, rx103_pos, $I138)
+ goto rxquantr137_loop
+ rxquantr137_done:
# rx literal "=end"
- add $I11, rx101_pos, 4
- gt $I11, rx101_eos, rx101_fail
- sub $I11, rx101_pos, rx101_off
- substr $S10, rx101_tgt, $I11, 4
- ne $S10, "=end", rx101_fail
- add rx101_pos, 4
+ add $I11, rx103_pos, 4
+ gt $I11, rx103_eos, rx103_fail
+ sub $I11, rx103_pos, rx103_off
+ substr $S10, rx103_tgt, $I11, 4
+ ne $S10, "=end", rx103_fail
+ add rx103_pos, 4
# rxanchor rwb
- le rx101_pos, 0, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 8192, rx101_tgt, $I10
- if $I11, rx101_fail
+ le rx103_pos, 0, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ if $I11, rx103_fail
dec $I10
- is_cclass $I11, 8192, rx101_tgt, $I10
- unless $I11, rx101_fail
+ is_cclass $I11, 8192, rx103_tgt, $I10
+ unless $I11, rx103_fail
# rx charclass_q N r 0..-1
- sub $I10, rx101_pos, rx101_off
- find_cclass $I11, 4096, rx101_tgt, $I10, rx101_eos
- add rx101_pos, rx101_off, $I11
- goto alt132_end
- alt132_1:
-.annotate 'line', 65
+ sub $I10, rx103_pos, rx103_off
+ find_cclass $I11, 4096, rx103_tgt, $I10, rx103_eos
+ add rx103_pos, rx103_off, $I11
+ goto alt134_end
+ alt134_1:
+.annotate 'line', 66
# rx subrule "panic" subtype=method negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."panic"("=begin without matching =end")
- unless $P10, rx101_fail
- rx101_pos = $P10."pos"()
- alt132_end:
-.annotate 'line', 61
- goto alt108_end
- alt108_3:
- set_addr $I10, alt108_4
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
-.annotate 'line', 67
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."panic"("=begin without matching =end")
+ unless $P10, rx103_fail
+ rx103_pos = $P10."pos"()
+ alt134_end:
+.annotate 'line', 62
+ goto alt110_end
+ alt110_3:
+ set_addr $I10, alt110_4
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+.annotate 'line', 68
# rx subrule "identifier" subtype=capture negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."identifier"()
- unless $P10, rx101_fail
- rx101_cur."!mark_push"(0, -1, 0, $P10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."identifier"()
+ unless $P10, rx103_fail
+ rx103_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx101_pos = $P10."pos"()
-.annotate 'line', 68
- # rx rxquantf137 ** 0..*
- set_addr $I10, rxquantf137_loop
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
- goto rxquantf137_done
- rxquantf137_loop:
+ rx103_pos = $P10."pos"()
+.annotate 'line', 69
+ # rx rxquantf139 ** 0..*
+ set_addr $I10, rxquantf139_loop
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ goto rxquantf139_done
+ rxquantf139_loop:
# rx charclass .
- ge rx101_pos, rx101_eos, rx101_fail
- inc rx101_pos
- set_addr $I10, rxquantf137_loop
- rx101_cur."!mark_push"($I138, rx101_pos, $I10)
- rxquantf137_done:
+ ge rx103_pos, rx103_eos, rx103_fail
+ inc rx103_pos
+ set_addr $I10, rxquantf139_loop
+ rx103_cur."!mark_push"($I140, rx103_pos, $I10)
+ rxquantf139_done:
# rxanchor bol
- eq rx101_pos, 0, rxanchor139_done
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
+ eq rx103_pos, 0, rxanchor141_done
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
dec $I10
- is_cclass $I11, 4096, rx101_tgt, $I10
- unless $I11, rx101_fail
- rxanchor139_done:
+ is_cclass $I11, 4096, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ rxanchor141_done:
# rx subrule "before" subtype=zerowidth negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- .const 'Sub' $P141 = "28_1275117591.97262"
- capture_lex $P141
- $P10 = rx101_cur."before"($P141)
- unless $P10, rx101_fail
-.annotate 'line', 67
- goto alt108_end
- alt108_4:
- alt149_0:
-.annotate 'line', 74
- set_addr $I10, alt149_1
- rx101_cur."!mark_push"(0, rx101_pos, $I10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ .const 'Sub' $P143 = "28_1275811487.95429"
+ capture_lex $P143
+ $P10 = rx103_cur."before"($P143)
+ unless $P10, rx103_fail
+.annotate 'line', 68
+ goto alt110_end
+ alt110_4:
+ alt151_0:
+.annotate 'line', 75
+ set_addr $I10, alt151_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
# rx charclass s
- ge rx101_pos, rx101_eos, rx101_fail
- sub $I10, rx101_pos, rx101_off
- is_cclass $I11, 32, rx101_tgt, $I10
- unless $I11, rx101_fail
- inc rx101_pos
- goto alt149_end
- alt149_1:
+ ge rx103_pos, rx103_eos, rx103_fail
+ sub $I10, rx103_pos, rx103_off
+ is_cclass $I11, 32, rx103_tgt, $I10
+ unless $I11, rx103_fail
+ inc rx103_pos
+ goto alt151_end
+ alt151_1:
# rx subrule "panic" subtype=method negate=
- rx101_cur."!cursor_pos"(rx101_pos)
- $P10 = rx101_cur."panic"("Illegal pod directive")
- unless $P10, rx101_fail
- rx101_pos = $P10."pos"()
- alt149_end:
-.annotate 'line', 75
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."panic"("Illegal pod directive")
+ unless $P10, rx103_fail
+ rx103_pos = $P10."pos"()
+ alt151_end:
+.annotate 'line', 76
# rx charclass_q N r 0..-1
- sub $I10, rx101_pos, rx101_off
- find_cclass $I11, 4096, rx101_tgt, $I10, rx101_eos
- add rx101_pos, rx101_off, $I11
- alt108_end:
-.annotate 'line', 51
+ sub $I10, rx103_pos, rx103_off
+ find_cclass $I11, 4096, rx103_tgt, $I10, rx103_eos
+ add rx103_pos, rx103_off, $I11
+ alt110_end:
+.annotate 'line', 52
# rx pass
- rx101_cur."!cursor_pass"(rx101_pos, "pod_comment")
- rx101_cur."!cursor_debug"("PASS ", "pod_comment", " at pos=", rx101_pos)
- .return (rx101_cur)
- rx101_fail:
+ rx103_cur."!cursor_pass"(rx103_pos, "pod_comment")
+ rx103_cur."!cursor_debug"("PASS ", "pod_comment", " at pos=", rx103_pos)
+ .return (rx103_cur)
+ rx103_fail:
.annotate 'line', 4
- (rx101_rep, rx101_pos, $I10, $P10) = rx101_cur."!mark_fail"(0)
- lt rx101_pos, -1, rx101_done
- eq rx101_pos, -1, rx101_fail
+ (rx103_rep, rx103_pos, $I10, $P10) = rx103_cur."!mark_fail"(0)
+ lt rx103_pos, -1, rx103_done
+ eq rx103_pos, -1, rx103_fail
jump $I10
- rx101_done:
- rx101_cur."!cursor_fail"()
- rx101_cur."!cursor_debug"("FAIL ", "pod_comment")
- .return (rx101_cur)
+ rx103_done:
+ rx103_cur."!cursor_fail"()
+ rx103_cur."!cursor_debug"("FAIL ", "pod_comment")
+ .return (rx103_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__pod_comment" :subid("27_1275117591.97262") :method
+.sub "!PREFIX__pod_comment" :subid("27_1275811487.95429") :method
.annotate 'line', 4
- new $P103, "ResizablePMCArray"
- push $P103, ""
- .return ($P103)
+ new $P105, "ResizablePMCArray"
+ push $P105, ""
+ .return ($P105)
.end
.namespace ["NQP";"Grammar"]
-.sub "_block140" :anon :subid("28_1275117591.97262") :method :outer("26_1275117591.97262")
-.annotate 'line', 68
- .local string rx142_tgt
- .local int rx142_pos
- .local int rx142_off
- .local int rx142_eos
- .local int rx142_rep
- .local pmc rx142_cur
- (rx142_cur, rx142_pos, rx142_tgt) = self."!cursor_start"()
- rx142_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx142_cur
- .local pmc match
- .lex "$/", match
- length rx142_eos, rx142_tgt
- set rx142_off, 0
- lt rx142_pos, 2, rx142_start
- sub rx142_off, rx142_pos, 1
- substr rx142_tgt, rx142_tgt, rx142_off
- rx142_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan143_done
- goto rxscan143_scan
- rxscan143_loop:
- ($P10) = rx142_cur."from"()
- inc $P10
- set rx142_pos, $P10
- ge rx142_pos, rx142_eos, rxscan143_done
- rxscan143_scan:
- set_addr $I10, rxscan143_loop
- rx142_cur."!mark_push"(0, rx142_pos, $I10)
- rxscan143_done:
- # rx rxquantr144 ** 0..*
- set_addr $I145, rxquantr144_done
- rx142_cur."!mark_push"(0, rx142_pos, $I145)
- rxquantr144_loop:
+.sub "_block142" :anon :subid("28_1275811487.95429") :method :outer("26_1275811487.95429")
+.annotate 'line', 69
+ .local string rx144_tgt
+ .local int rx144_pos
+ .local int rx144_off
+ .local int rx144_eos
+ .local int rx144_rep
+ .local pmc rx144_cur
+ (rx144_cur, rx144_pos, rx144_tgt) = self."!cursor_start"()
+ rx144_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx144_cur
+ .local pmc match
+ .lex "$/", match
+ length rx144_eos, rx144_tgt
+ gt rx144_pos, rx144_eos, rx144_done
+ set rx144_off, 0
+ lt rx144_pos, 2, rx144_start
+ sub rx144_off, rx144_pos, 1
+ substr rx144_tgt, rx144_tgt, rx144_off
+ rx144_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan145_done
+ goto rxscan145_scan
+ rxscan145_loop:
+ ($P10) = rx144_cur."from"()
+ inc $P10
+ set rx144_pos, $P10
+ ge rx144_pos, rx144_eos, rxscan145_done
+ rxscan145_scan:
+ set_addr $I10, rxscan145_loop
+ rx144_cur."!mark_push"(0, rx144_pos, $I10)
+ rxscan145_done:
+ # rx rxquantr146 ** 0..*
+ set_addr $I147, rxquantr146_done
+ rx144_cur."!mark_push"(0, rx144_pos, $I147)
+ rxquantr146_loop:
# rx enumcharlist negate=0
- ge rx142_pos, rx142_eos, rx142_fail
- sub $I10, rx142_pos, rx142_off
- substr $S10, rx142_tgt, $I10, 1
+ ge rx144_pos, rx144_eos, rx144_fail
+ sub $I10, rx144_pos, rx144_off
+ substr $S10, rx144_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, rx142_fail
- inc rx142_pos
- (rx142_rep) = rx142_cur."!mark_commit"($I145)
- rx142_cur."!mark_push"(rx142_rep, rx142_pos, $I145)
- goto rxquantr144_loop
- rxquantr144_done:
- alt146_0:
- set_addr $I10, alt146_1
- rx142_cur."!mark_push"(0, rx142_pos, $I10)
-.annotate 'line', 69
+ lt $I11, 0, rx144_fail
+ inc rx144_pos
+ (rx144_rep) = rx144_cur."!mark_commit"($I147)
+ rx144_cur."!mark_push"(rx144_rep, rx144_pos, $I147)
+ goto rxquantr146_loop
+ rxquantr146_done:
+ alt148_0:
+ set_addr $I10, alt148_1
+ rx144_cur."!mark_push"(0, rx144_pos, $I10)
+.annotate 'line', 70
# rx literal "="
- add $I11, rx142_pos, 1
- gt $I11, rx142_eos, rx142_fail
- sub $I11, rx142_pos, rx142_off
- substr $S10, rx142_tgt, $I11, 1
- ne $S10, "=", rx142_fail
- add rx142_pos, 1
+ add $I11, rx144_pos, 1
+ gt $I11, rx144_eos, rx144_fail
+ sub $I11, rx144_pos, rx144_off
+ substr $S10, rx144_tgt, $I11, 1
+ ne $S10, "=", rx144_fail
+ add rx144_pos, 1
+.annotate 'line', 72
+ # rx rxquantr149 ** 0..1
+ set_addr $I150, rxquantr149_done
+ rx144_cur."!mark_push"(0, rx144_pos, $I150)
+ rxquantr149_loop:
.annotate 'line', 71
- # rx rxquantr147 ** 0..1
- set_addr $I148, rxquantr147_done
- rx142_cur."!mark_push"(0, rx142_pos, $I148)
- rxquantr147_loop:
-.annotate 'line', 70
# rx literal "cut"
- add $I11, rx142_pos, 3
- gt $I11, rx142_eos, rx142_fail
- sub $I11, rx142_pos, rx142_off
- substr $S10, rx142_tgt, $I11, 3
- ne $S10, "cut", rx142_fail
- add rx142_pos, 3
+ add $I11, rx144_pos, 3
+ gt $I11, rx144_eos, rx144_fail
+ sub $I11, rx144_pos, rx144_off
+ substr $S10, rx144_tgt, $I11, 3
+ ne $S10, "cut", rx144_fail
+ add rx144_pos, 3
# rxanchor rwb
- le rx142_pos, 0, rx142_fail
- sub $I10, rx142_pos, rx142_off
- is_cclass $I11, 8192, rx142_tgt, $I10
- if $I11, rx142_fail
+ le rx144_pos, 0, rx144_fail
+ sub $I10, rx144_pos, rx144_off
+ is_cclass $I11, 8192, rx144_tgt, $I10
+ if $I11, rx144_fail
dec $I10
- is_cclass $I11, 8192, rx142_tgt, $I10
- unless $I11, rx142_fail
-.annotate 'line', 71
- # rx subrule "panic" subtype=method negate=
- rx142_cur."!cursor_pos"(rx142_pos)
- $P10 = rx142_cur."panic"("Obsolete pod format, please use =begin/=end instead")
- unless $P10, rx142_fail
- rx142_pos = $P10."pos"()
- (rx142_rep) = rx142_cur."!mark_commit"($I148)
- rxquantr147_done:
-.annotate 'line', 68
- goto alt146_end
- alt146_1:
+ is_cclass $I11, 8192, rx144_tgt, $I10
+ unless $I11, rx144_fail
.annotate 'line', 72
+ # rx subrule "panic" subtype=method negate=
+ rx144_cur."!cursor_pos"(rx144_pos)
+ $P10 = rx144_cur."panic"("Obsolete pod format, please use =begin/=end instead")
+ unless $P10, rx144_fail
+ rx144_pos = $P10."pos"()
+ (rx144_rep) = rx144_cur."!mark_commit"($I150)
+ rxquantr149_done:
+.annotate 'line', 69
+ goto alt148_end
+ alt148_1:
+.annotate 'line', 73
# rx charclass nl
- ge rx142_pos, rx142_eos, rx142_fail
- sub $I10, rx142_pos, rx142_off
- is_cclass $I11, 4096, rx142_tgt, $I10
- unless $I11, rx142_fail
- substr $S10, rx142_tgt, $I10, 2
+ ge rx144_pos, rx144_eos, rx144_fail
+ sub $I10, rx144_pos, rx144_off
+ is_cclass $I11, 4096, rx144_tgt, $I10
+ unless $I11, rx144_fail
+ substr $S10, rx144_tgt, $I10, 2
iseq $I11, $S10, "\r\n"
- add rx142_pos, $I11
- inc rx142_pos
- alt146_end:
-.annotate 'line', 68
+ add rx144_pos, $I11
+ inc rx144_pos
+ alt148_end:
+.annotate 'line', 69
# rx pass
- rx142_cur."!cursor_pass"(rx142_pos, "")
- rx142_cur."!cursor_debug"("PASS ", "", " at pos=", rx142_pos)
- .return (rx142_cur)
- rx142_fail:
- (rx142_rep, rx142_pos, $I10, $P10) = rx142_cur."!mark_fail"(0)
- lt rx142_pos, -1, rx142_done
- eq rx142_pos, -1, rx142_fail
- jump $I10
- rx142_done:
- rx142_cur."!cursor_fail"()
- rx142_cur."!cursor_debug"("FAIL ", "")
- .return (rx142_cur)
+ rx144_cur."!cursor_pass"(rx144_pos, "")
+ rx144_cur."!cursor_debug"("PASS ", "", " at pos=", rx144_pos)
+ .return (rx144_cur)
+ rx144_fail:
+ (rx144_rep, rx144_pos, $I10, $P10) = rx144_cur."!mark_fail"(0)
+ lt rx144_pos, -1, rx144_done
+ eq rx144_pos, -1, rx144_fail
+ jump $I10
+ rx144_done:
+ rx144_cur."!cursor_fail"()
+ rx144_cur."!cursor_debug"("FAIL ", "")
+ .return (rx144_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "comp_unit" :subid("29_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .local string rx151_tgt
- .local int rx151_pos
- .local int rx151_off
- .local int rx151_eos
- .local int rx151_rep
- .local pmc rx151_cur
- (rx151_cur, rx151_pos, rx151_tgt) = self."!cursor_start"()
- rx151_cur."!cursor_debug"("START ", "comp_unit")
- .lex unicode:"$\x{a2}", rx151_cur
- .local pmc match
- .lex "$/", match
- length rx151_eos, rx151_tgt
- set rx151_off, 0
- lt rx151_pos, 2, rx151_start
- sub rx151_off, rx151_pos, 1
- substr rx151_tgt, rx151_tgt, rx151_off
- rx151_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan155_done
- goto rxscan155_scan
- rxscan155_loop:
- ($P10) = rx151_cur."from"()
- inc $P10
- set rx151_pos, $P10
- ge rx151_pos, rx151_eos, rxscan155_done
- rxscan155_scan:
- set_addr $I10, rxscan155_loop
- rx151_cur."!mark_push"(0, rx151_pos, $I10)
- rxscan155_done:
-.annotate 'line', 83
- # rx subrule "newpad" subtype=method negate=
- rx151_cur."!cursor_pos"(rx151_pos)
- $P10 = rx151_cur."newpad"()
- unless $P10, rx151_fail
- rx151_pos = $P10."pos"()
+.sub "comp_unit" :subid("29_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx153_tgt
+ .local int rx153_pos
+ .local int rx153_off
+ .local int rx153_eos
+ .local int rx153_rep
+ .local pmc rx153_cur
+ (rx153_cur, rx153_pos, rx153_tgt) = self."!cursor_start"()
+ rx153_cur."!cursor_debug"("START ", "comp_unit")
+ .lex unicode:"$\x{a2}", rx153_cur
+ .local pmc match
+ .lex "$/", match
+ length rx153_eos, rx153_tgt
+ gt rx153_pos, rx153_eos, rx153_done
+ set rx153_off, 0
+ lt rx153_pos, 2, rx153_start
+ sub rx153_off, rx153_pos, 1
+ substr rx153_tgt, rx153_tgt, rx153_off
+ rx153_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan157_done
+ goto rxscan157_scan
+ rxscan157_loop:
+ ($P10) = rx153_cur."from"()
+ inc $P10
+ set rx153_pos, $P10
+ ge rx153_pos, rx153_eos, rxscan157_done
+ rxscan157_scan:
+ set_addr $I10, rxscan157_loop
+ rx153_cur."!mark_push"(0, rx153_pos, $I10)
+ rxscan157_done:
.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"()
+ # rx subrule "newpad" subtype=method negate=
+ rx153_cur."!cursor_pos"(rx153_pos)
+ $P10 = rx153_cur."newpad"()
+ unless $P10, rx153_fail
+ rx153_pos = $P10."pos"()
.annotate 'line', 85
+ # rx subrule "outerctx" subtype=method negate=
+ rx153_cur."!cursor_pos"(rx153_pos)
+ $P10 = rx153_cur."outerctx"()
+ unless $P10, rx153_fail
+ rx153_pos = $P10."pos"()
+.annotate 'line', 86
# rx subrule "statementlist" subtype=capture negate=
- rx151_cur."!cursor_pos"(rx151_pos)
- $P10 = rx151_cur."statementlist"()
- unless $P10, rx151_fail
- rx151_cur."!mark_push"(0, -1, 0, $P10)
+ rx153_cur."!cursor_pos"(rx153_pos)
+ $P10 = rx153_cur."statementlist"()
+ unless $P10, rx153_fail
+ rx153_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statementlist")
- rx151_pos = $P10."pos"()
- alt156_0:
-.annotate 'line', 86
- set_addr $I10, alt156_1
- rx151_cur."!mark_push"(0, rx151_pos, $I10)
+ rx153_pos = $P10."pos"()
+ alt158_0:
+.annotate 'line', 87
+ set_addr $I10, alt158_1
+ rx153_cur."!mark_push"(0, rx153_pos, $I10)
# rxanchor eos
- ne rx151_pos, rx151_eos, rx151_fail
- goto alt156_end
- alt156_1:
+ ne rx153_pos, rx153_eos, rx153_fail
+ goto alt158_end
+ alt158_1:
# rx subrule "panic" subtype=method negate=
- rx151_cur."!cursor_pos"(rx151_pos)
- $P10 = rx151_cur."panic"("Confused")
- unless $P10, rx151_fail
- rx151_pos = $P10."pos"()
- alt156_end:
-.annotate 'line', 82
+ rx153_cur."!cursor_pos"(rx153_pos)
+ $P10 = rx153_cur."panic"("Confused")
+ unless $P10, rx153_fail
+ rx153_pos = $P10."pos"()
+ alt158_end:
+.annotate 'line', 83
# rx pass
- rx151_cur."!cursor_pass"(rx151_pos, "comp_unit")
- rx151_cur."!cursor_debug"("PASS ", "comp_unit", " at pos=", rx151_pos)
- .return (rx151_cur)
- rx151_fail:
+ rx153_cur."!cursor_pass"(rx153_pos, "comp_unit")
+ rx153_cur."!cursor_debug"("PASS ", "comp_unit", " at pos=", rx153_pos)
+ .return (rx153_cur)
+ rx153_fail:
.annotate 'line', 4
- (rx151_rep, rx151_pos, $I10, $P10) = rx151_cur."!mark_fail"(0)
- lt rx151_pos, -1, rx151_done
- eq rx151_pos, -1, rx151_fail
+ (rx153_rep, rx153_pos, $I10, $P10) = rx153_cur."!mark_fail"(0)
+ lt rx153_pos, -1, rx153_done
+ eq rx153_pos, -1, rx153_fail
jump $I10
- rx151_done:
- rx151_cur."!cursor_fail"()
- rx151_cur."!cursor_debug"("FAIL ", "comp_unit")
- .return (rx151_cur)
+ rx153_done:
+ rx153_cur."!cursor_fail"()
+ rx153_cur."!cursor_debug"("FAIL ", "comp_unit")
+ .return (rx153_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__comp_unit" :subid("30_1275117591.97262") :method
+.sub "!PREFIX__comp_unit" :subid("30_1275811487.95429") :method
.annotate 'line', 4
- $P153 = self."!PREFIX__!subrule"("", "")
- new $P154, "ResizablePMCArray"
- push $P154, $P153
- .return ($P154)
+ $P155 = self."!PREFIX__!subrule"("newpad", "")
+ new $P156, "ResizablePMCArray"
+ push $P156, $P155
+ .return ($P156)
.end
.namespace ["NQP";"Grammar"]
-.sub "statementlist" :subid("31_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statementlist" :subid("31_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx158_tgt
- .local int rx158_pos
- .local int rx158_off
- .local int rx158_eos
- .local int rx158_rep
- .local pmc rx158_cur
- (rx158_cur, rx158_pos, rx158_tgt) = self."!cursor_start"()
- rx158_cur."!cursor_debug"("START ", "statementlist")
- rx158_cur."!cursor_caparray"("statement")
- .lex unicode:"$\x{a2}", rx158_cur
+ .local string rx160_tgt
+ .local int rx160_pos
+ .local int rx160_off
+ .local int rx160_eos
+ .local int rx160_rep
+ .local pmc rx160_cur
+ (rx160_cur, rx160_pos, rx160_tgt) = self."!cursor_start"()
+ rx160_cur."!cursor_debug"("START ", "statementlist")
+ rx160_cur."!cursor_caparray"("statement")
+ .lex unicode:"$\x{a2}", rx160_cur
.local pmc match
.lex "$/", match
- length rx158_eos, rx158_tgt
- set rx158_off, 0
- lt rx158_pos, 2, rx158_start
- sub rx158_off, rx158_pos, 1
- substr rx158_tgt, rx158_tgt, rx158_off
- rx158_start:
+ length rx160_eos, rx160_tgt
+ gt rx160_pos, rx160_eos, rx160_done
+ set rx160_off, 0
+ lt rx160_pos, 2, rx160_start
+ sub rx160_off, rx160_pos, 1
+ substr rx160_tgt, rx160_tgt, rx160_off
+ rx160_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan161_done
- goto rxscan161_scan
- rxscan161_loop:
- ($P10) = rx158_cur."from"()
+ ne $I10, -1, rxscan165_done
+ goto rxscan165_scan
+ rxscan165_loop:
+ ($P10) = rx160_cur."from"()
inc $P10
- set rx158_pos, $P10
- ge rx158_pos, rx158_eos, rxscan161_done
- rxscan161_scan:
- set_addr $I10, rxscan161_loop
- rx158_cur."!mark_push"(0, rx158_pos, $I10)
- rxscan161_done:
- alt162_0:
-.annotate 'line', 89
- set_addr $I10, alt162_1
- rx158_cur."!mark_push"(0, rx158_pos, $I10)
+ set rx160_pos, $P10
+ ge rx160_pos, rx160_eos, rxscan165_done
+ rxscan165_scan:
+ set_addr $I10, rxscan165_loop
+ rx160_cur."!mark_push"(0, rx160_pos, $I10)
+ rxscan165_done:
+ alt166_0:
.annotate 'line', 90
+ set_addr $I10, alt166_1
+ rx160_cur."!mark_push"(0, rx160_pos, $I10)
+.annotate 'line', 91
# rx subrule "ws" subtype=method negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."ws"()
- unless $P10, rx158_fail
- rx158_pos = $P10."pos"()
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."ws"()
+ unless $P10, rx160_fail
+ rx160_pos = $P10."pos"()
# rxanchor eos
- ne rx158_pos, rx158_eos, rx158_fail
+ ne rx160_pos, rx160_eos, rx160_fail
# rx subrule "ws" subtype=method negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."ws"()
- unless $P10, rx158_fail
- rx158_pos = $P10."pos"()
- goto alt162_end
- alt162_1:
-.annotate 'line', 91
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."ws"()
+ unless $P10, rx160_fail
+ rx160_pos = $P10."pos"()
+ goto alt166_end
+ alt166_1:
+.annotate 'line', 92
# rx subrule "ws" subtype=method negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."ws"()
- unless $P10, rx158_fail
- rx158_pos = $P10."pos"()
- # rx rxquantr166 ** 0..*
- set_addr $I168, rxquantr166_done
- rx158_cur."!mark_push"(0, rx158_pos, $I168)
- rxquantr166_loop:
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."ws"()
+ unless $P10, rx160_fail
+ rx160_pos = $P10."pos"()
+ # rx rxquantr170 ** 0..*
+ set_addr $I172, rxquantr170_done
+ rx160_cur."!mark_push"(0, rx160_pos, $I172)
+ rxquantr170_loop:
# rx subrule "statement" subtype=capture negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."statement"()
- unless $P10, rx158_fail
- rx158_cur."!mark_push"(0, -1, 0, $P10)
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."statement"()
+ unless $P10, rx160_fail
+ rx160_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement")
- rx158_pos = $P10."pos"()
+ rx160_pos = $P10."pos"()
# rx subrule "eat_terminator" subtype=method negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."eat_terminator"()
- unless $P10, rx158_fail
- rx158_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."ws"()
- unless $P10, rx158_fail
- rx158_pos = $P10."pos"()
- (rx158_rep) = rx158_cur."!mark_commit"($I168)
- rx158_cur."!mark_push"(rx158_rep, rx158_pos, $I168)
- goto rxquantr166_loop
- rxquantr166_done:
- # rx subrule "ws" subtype=method negate=
- rx158_cur."!cursor_pos"(rx158_pos)
- $P10 = rx158_cur."ws"()
- unless $P10, rx158_fail
- rx158_pos = $P10."pos"()
- alt162_end:
-.annotate 'line', 89
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."eat_terminator"()
+ unless $P10, rx160_fail
+ rx160_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."ws"()
+ unless $P10, rx160_fail
+ rx160_pos = $P10."pos"()
+ (rx160_rep) = rx160_cur."!mark_commit"($I172)
+ rx160_cur."!mark_push"(rx160_rep, rx160_pos, $I172)
+ goto rxquantr170_loop
+ rxquantr170_done:
+ # rx subrule "ws" subtype=method negate=
+ rx160_cur."!cursor_pos"(rx160_pos)
+ $P10 = rx160_cur."ws"()
+ unless $P10, rx160_fail
+ rx160_pos = $P10."pos"()
+ alt166_end:
+.annotate 'line', 90
# rx pass
- rx158_cur."!cursor_pass"(rx158_pos, "statementlist")
- rx158_cur."!cursor_debug"("PASS ", "statementlist", " at pos=", rx158_pos)
- .return (rx158_cur)
- rx158_fail:
+ rx160_cur."!cursor_pass"(rx160_pos, "statementlist")
+ rx160_cur."!cursor_debug"("PASS ", "statementlist", " at pos=", rx160_pos)
+ .return (rx160_cur)
+ rx160_fail:
.annotate 'line', 4
- (rx158_rep, rx158_pos, $I10, $P10) = rx158_cur."!mark_fail"(0)
- lt rx158_pos, -1, rx158_done
- eq rx158_pos, -1, rx158_fail
+ (rx160_rep, rx160_pos, $I10, $P10) = rx160_cur."!mark_fail"(0)
+ lt rx160_pos, -1, rx160_done
+ eq rx160_pos, -1, rx160_fail
jump $I10
- rx158_done:
- rx158_cur."!cursor_fail"()
- rx158_cur."!cursor_debug"("FAIL ", "statementlist")
- .return (rx158_cur)
+ rx160_done:
+ rx160_cur."!cursor_fail"()
+ rx160_cur."!cursor_debug"("FAIL ", "statementlist")
+ .return (rx160_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statementlist" :subid("32_1275117591.97262") :method
+.sub "!PREFIX__statementlist" :subid("32_1275811487.95429") :method
.annotate 'line', 4
- new $P160, "ResizablePMCArray"
- push $P160, ""
- push $P160, ""
- .return ($P160)
+ $P162 = self."!PREFIX__!subrule"("ws", "")
+ $P163 = self."!PREFIX__!subrule"("ws", "")
+ new $P164, "ResizablePMCArray"
+ push $P164, $P162
+ push $P164, $P163
+ .return ($P164)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement" :subid("33_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement" :subid("33_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .const 'Sub' $P176 = "35_1275117591.97262"
- capture_lex $P176
- .local string rx171_tgt
- .local int rx171_pos
- .local int rx171_off
- .local int rx171_eos
- .local int rx171_rep
- .local pmc rx171_cur
- (rx171_cur, rx171_pos, rx171_tgt) = self."!cursor_start"()
- rx171_cur."!cursor_debug"("START ", "statement")
- rx171_cur."!cursor_caparray"("statement_mod_loop", "statement_mod_cond")
- .lex unicode:"$\x{a2}", rx171_cur
- .local pmc match
- .lex "$/", match
- length rx171_eos, rx171_tgt
- set rx171_off, 0
- lt rx171_pos, 2, rx171_start
- sub rx171_off, rx171_pos, 1
- substr rx171_tgt, rx171_tgt, rx171_off
- rx171_start:
+ .const 'Sub' $P180 = "35_1275811487.95429"
+ capture_lex $P180
+ .local string rx175_tgt
+ .local int rx175_pos
+ .local int rx175_off
+ .local int rx175_eos
+ .local int rx175_rep
+ .local pmc rx175_cur
+ (rx175_cur, rx175_pos, rx175_tgt) = self."!cursor_start"()
+ rx175_cur."!cursor_debug"("START ", "statement")
+ rx175_cur."!cursor_caparray"("statement_mod_loop", "statement_mod_cond")
+ .lex unicode:"$\x{a2}", rx175_cur
+ .local pmc match
+ .lex "$/", match
+ length rx175_eos, rx175_tgt
+ gt rx175_pos, rx175_eos, rx175_done
+ set rx175_off, 0
+ lt rx175_pos, 2, rx175_start
+ sub rx175_off, rx175_pos, 1
+ substr rx175_tgt, rx175_tgt, rx175_off
+ rx175_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan174_done
- goto rxscan174_scan
- rxscan174_loop:
- ($P10) = rx171_cur."from"()
+ ne $I10, -1, rxscan178_done
+ goto rxscan178_scan
+ rxscan178_loop:
+ ($P10) = rx175_cur."from"()
inc $P10
- set rx171_pos, $P10
- ge rx171_pos, rx171_eos, rxscan174_done
- rxscan174_scan:
- set_addr $I10, rxscan174_loop
- rx171_cur."!mark_push"(0, rx171_pos, $I10)
- rxscan174_done:
-.annotate 'line', 95
- # rx subrule "before" subtype=zerowidth negate=1
- rx171_cur."!cursor_pos"(rx171_pos)
- .const 'Sub' $P176 = "35_1275117591.97262"
- capture_lex $P176
- $P10 = rx171_cur."before"($P176)
- if $P10, rx171_fail
- alt180_0:
+ set rx175_pos, $P10
+ ge rx175_pos, rx175_eos, rxscan178_done
+ rxscan178_scan:
+ set_addr $I10, rxscan178_loop
+ rx175_cur."!mark_push"(0, rx175_pos, $I10)
+ rxscan178_done:
.annotate 'line', 96
- set_addr $I10, alt180_1
- rx171_cur."!mark_push"(0, rx171_pos, $I10)
+ # rx subrule "before" subtype=zerowidth negate=1
+ rx175_cur."!cursor_pos"(rx175_pos)
+ .const 'Sub' $P180 = "35_1275811487.95429"
+ capture_lex $P180
+ $P10 = rx175_cur."before"($P180)
+ if $P10, rx175_fail
+ alt184_0:
.annotate 'line', 97
+ set_addr $I10, alt184_1
+ rx175_cur."!mark_push"(0, rx175_pos, $I10)
+.annotate 'line', 98
# rx subrule "statement_control" subtype=capture negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."statement_control"()
- unless $P10, rx171_fail
- rx171_cur."!mark_push"(0, -1, 0, $P10)
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."statement_control"()
+ unless $P10, rx175_fail
+ rx175_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement_control")
- rx171_pos = $P10."pos"()
- goto alt180_end
- alt180_1:
-.annotate 'line', 98
+ rx175_pos = $P10."pos"()
+ goto alt184_end
+ alt184_1:
+.annotate 'line', 99
# rx subrule "EXPR" subtype=capture negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."EXPR"()
- unless $P10, rx171_fail
- rx171_cur."!mark_push"(0, -1, 0, $P10)
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."EXPR"()
+ unless $P10, rx175_fail
+ rx175_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx171_pos = $P10."pos"()
+ rx175_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."ws"()
- unless $P10, rx171_fail
- rx171_pos = $P10."pos"()
-.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', 99
- set_addr $I10, alt182_1
- rx171_cur."!mark_push"(0, rx171_pos, $I10)
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."ws"()
+ unless $P10, rx175_fail
+ rx175_pos = $P10."pos"()
+.annotate 'line', 104
+ # rx rxquantr185 ** 0..1
+ set_addr $I189, rxquantr185_done
+ rx175_cur."!mark_push"(0, rx175_pos, $I189)
+ rxquantr185_loop:
+ alt186_0:
.annotate 'line', 100
- # rx subrule "MARKED" subtype=zerowidth negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."MARKED"("endstmt")
- unless $P10, rx171_fail
- goto alt182_end
- alt182_1:
- set_addr $I10, alt182_2
- rx171_cur."!mark_push"(0, rx171_pos, $I10)
+ set_addr $I10, alt186_1
+ rx175_cur."!mark_push"(0, rx175_pos, $I10)
.annotate 'line', 101
+ # rx subrule "MARKED" subtype=zerowidth negate=
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."MARKED"("endstmt")
+ unless $P10, rx175_fail
+ goto alt186_end
+ alt186_1:
+ set_addr $I10, alt186_2
+ rx175_cur."!mark_push"(0, rx175_pos, $I10)
+.annotate 'line', 102
# rx subrule "statement_mod_cond" subtype=capture negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."statement_mod_cond"()
- unless $P10, rx171_fail
- rx171_cur."!mark_push"(0, -1, 0, $P10)
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."statement_mod_cond"()
+ unless $P10, rx175_fail
+ rx175_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement_mod_cond")
- rx171_pos = $P10."pos"()
- # rx rxquantr183 ** 0..1
- set_addr $I184, rxquantr183_done
- rx171_cur."!mark_push"(0, rx171_pos, $I184)
- rxquantr183_loop:
+ rx175_pos = $P10."pos"()
+ # rx rxquantr187 ** 0..1
+ set_addr $I188, rxquantr187_done
+ rx175_cur."!mark_push"(0, rx175_pos, $I188)
+ rxquantr187_loop:
# rx subrule "statement_mod_loop" subtype=capture negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."statement_mod_loop"()
- unless $P10, rx171_fail
- rx171_cur."!mark_push"(0, -1, 0, $P10)
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."statement_mod_loop"()
+ unless $P10, rx175_fail
+ rx175_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement_mod_loop")
- rx171_pos = $P10."pos"()
- (rx171_rep) = rx171_cur."!mark_commit"($I184)
- rxquantr183_done:
- goto alt182_end
- alt182_2:
-.annotate 'line', 102
+ rx175_pos = $P10."pos"()
+ (rx175_rep) = rx175_cur."!mark_commit"($I188)
+ rxquantr187_done:
+ goto alt186_end
+ alt186_2:
+.annotate 'line', 103
# rx subrule "statement_mod_loop" subtype=capture negate=
- rx171_cur."!cursor_pos"(rx171_pos)
- $P10 = rx171_cur."statement_mod_loop"()
- unless $P10, rx171_fail
- rx171_cur."!mark_push"(0, -1, 0, $P10)
+ rx175_cur."!cursor_pos"(rx175_pos)
+ $P10 = rx175_cur."statement_mod_loop"()
+ unless $P10, rx175_fail
+ rx175_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement_mod_loop")
- rx171_pos = $P10."pos"()
- alt182_end:
-.annotate 'line', 103
- (rx171_rep) = rx171_cur."!mark_commit"($I185)
- rxquantr181_done:
- alt180_end:
-.annotate 'line', 94
+ rx175_pos = $P10."pos"()
+ alt186_end:
+.annotate 'line', 104
+ (rx175_rep) = rx175_cur."!mark_commit"($I189)
+ rxquantr185_done:
+ alt184_end:
+.annotate 'line', 95
# rx pass
- rx171_cur."!cursor_pass"(rx171_pos, "statement")
- rx171_cur."!cursor_debug"("PASS ", "statement", " at pos=", rx171_pos)
- .return (rx171_cur)
- rx171_fail:
+ rx175_cur."!cursor_pass"(rx175_pos, "statement")
+ rx175_cur."!cursor_debug"("PASS ", "statement", " at pos=", rx175_pos)
+ .return (rx175_cur)
+ rx175_fail:
.annotate 'line', 4
- (rx171_rep, rx171_pos, $I10, $P10) = rx171_cur."!mark_fail"(0)
- lt rx171_pos, -1, rx171_done
- eq rx171_pos, -1, rx171_fail
+ (rx175_rep, rx175_pos, $I10, $P10) = rx175_cur."!mark_fail"(0)
+ lt rx175_pos, -1, rx175_done
+ eq rx175_pos, -1, rx175_fail
jump $I10
- rx171_done:
- rx171_cur."!cursor_fail"()
- rx171_cur."!cursor_debug"("FAIL ", "statement")
- .return (rx171_cur)
+ rx175_done:
+ rx175_cur."!cursor_fail"()
+ rx175_cur."!cursor_debug"("FAIL ", "statement")
+ .return (rx175_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement" :subid("34_1275117591.97262") :method
+.sub "!PREFIX__statement" :subid("34_1275811487.95429") :method
.annotate 'line', 4
- new $P173, "ResizablePMCArray"
- push $P173, ""
- .return ($P173)
+ new $P177, "ResizablePMCArray"
+ push $P177, ""
+ .return ($P177)
.end
.namespace ["NQP";"Grammar"]
-.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
- .local int rx177_eos
- .local int rx177_rep
- .local pmc rx177_cur
- (rx177_cur, rx177_pos, rx177_tgt) = self."!cursor_start"()
- rx177_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx177_cur
- .local pmc match
- .lex "$/", match
- length rx177_eos, rx177_tgt
- set rx177_off, 0
- lt rx177_pos, 2, rx177_start
- sub rx177_off, rx177_pos, 1
- substr rx177_tgt, rx177_tgt, rx177_off
- rx177_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan178_done
- goto rxscan178_scan
- rxscan178_loop:
- ($P10) = rx177_cur."from"()
- inc $P10
- set rx177_pos, $P10
- ge rx177_pos, rx177_eos, rxscan178_done
- rxscan178_scan:
- set_addr $I10, rxscan178_loop
- rx177_cur."!mark_push"(0, rx177_pos, $I10)
- rxscan178_done:
- alt179_0:
- set_addr $I10, alt179_1
- rx177_cur."!mark_push"(0, rx177_pos, $I10)
+.sub "_block179" :anon :subid("35_1275811487.95429") :method :outer("33_1275811487.95429")
+.annotate 'line', 96
+ .local string rx181_tgt
+ .local int rx181_pos
+ .local int rx181_off
+ .local int rx181_eos
+ .local int rx181_rep
+ .local pmc rx181_cur
+ (rx181_cur, rx181_pos, rx181_tgt) = self."!cursor_start"()
+ rx181_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx181_cur
+ .local pmc match
+ .lex "$/", match
+ length rx181_eos, rx181_tgt
+ gt rx181_pos, rx181_eos, rx181_done
+ set rx181_off, 0
+ lt rx181_pos, 2, rx181_start
+ sub rx181_off, rx181_pos, 1
+ substr rx181_tgt, rx181_tgt, rx181_off
+ rx181_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan182_done
+ goto rxscan182_scan
+ rxscan182_loop:
+ ($P10) = rx181_cur."from"()
+ inc $P10
+ set rx181_pos, $P10
+ ge rx181_pos, rx181_eos, rxscan182_done
+ rxscan182_scan:
+ set_addr $I10, rxscan182_loop
+ rx181_cur."!mark_push"(0, rx181_pos, $I10)
+ rxscan182_done:
+ alt183_0:
+ set_addr $I10, alt183_1
+ rx181_cur."!mark_push"(0, rx181_pos, $I10)
# rx enumcharlist negate=0
- ge rx177_pos, rx177_eos, rx177_fail
- sub $I10, rx177_pos, rx177_off
- substr $S10, rx177_tgt, $I10, 1
+ ge rx181_pos, rx181_eos, rx181_fail
+ sub $I10, rx181_pos, rx181_off
+ substr $S10, rx181_tgt, $I10, 1
index $I11, "])}", $S10
- lt $I11, 0, rx177_fail
- inc rx177_pos
- goto alt179_end
- alt179_1:
+ lt $I11, 0, rx181_fail
+ inc rx181_pos
+ goto alt183_end
+ alt183_1:
# rxanchor eos
- ne rx177_pos, rx177_eos, rx177_fail
- alt179_end:
+ ne rx181_pos, rx181_eos, rx181_fail
+ alt183_end:
# rx pass
- rx177_cur."!cursor_pass"(rx177_pos, "")
- rx177_cur."!cursor_debug"("PASS ", "", " at pos=", rx177_pos)
- .return (rx177_cur)
- rx177_fail:
- (rx177_rep, rx177_pos, $I10, $P10) = rx177_cur."!mark_fail"(0)
- lt rx177_pos, -1, rx177_done
- eq rx177_pos, -1, rx177_fail
- jump $I10
- rx177_done:
- rx177_cur."!cursor_fail"()
- rx177_cur."!cursor_debug"("FAIL ", "")
- .return (rx177_cur)
+ rx181_cur."!cursor_pass"(rx181_pos, "")
+ rx181_cur."!cursor_debug"("PASS ", "", " at pos=", rx181_pos)
+ .return (rx181_cur)
+ rx181_fail:
+ (rx181_rep, rx181_pos, $I10, $P10) = rx181_cur."!mark_fail"(0)
+ lt rx181_pos, -1, rx181_done
+ eq rx181_pos, -1, rx181_fail
+ jump $I10
+ rx181_done:
+ rx181_cur."!cursor_fail"()
+ rx181_cur."!cursor_debug"("FAIL ", "")
+ .return (rx181_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "eat_terminator" :subid("36_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .local string rx187_tgt
- .local int rx187_pos
- .local int rx187_off
- .local int rx187_eos
- .local int rx187_rep
- .local pmc rx187_cur
- (rx187_cur, rx187_pos, rx187_tgt) = self."!cursor_start"()
- rx187_cur."!cursor_debug"("START ", "eat_terminator")
- .lex unicode:"$\x{a2}", rx187_cur
- .local pmc match
- .lex "$/", match
- length rx187_eos, rx187_tgt
- set rx187_off, 0
- lt rx187_pos, 2, rx187_start
- sub rx187_off, rx187_pos, 1
- substr rx187_tgt, rx187_tgt, rx187_off
- rx187_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan190_done
- goto rxscan190_scan
- rxscan190_loop:
- ($P10) = rx187_cur."from"()
- inc $P10
- set rx187_pos, $P10
- ge rx187_pos, rx187_eos, rxscan190_done
- rxscan190_scan:
- set_addr $I10, rxscan190_loop
- rx187_cur."!mark_push"(0, rx187_pos, $I10)
- rxscan190_done:
- alt191_0:
-.annotate 'line', 107
- set_addr $I10, alt191_1
- rx187_cur."!mark_push"(0, rx187_pos, $I10)
+.sub "eat_terminator" :subid("36_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx191_tgt
+ .local int rx191_pos
+ .local int rx191_off
+ .local int rx191_eos
+ .local int rx191_rep
+ .local pmc rx191_cur
+ (rx191_cur, rx191_pos, rx191_tgt) = self."!cursor_start"()
+ rx191_cur."!cursor_debug"("START ", "eat_terminator")
+ .lex unicode:"$\x{a2}", rx191_cur
+ .local pmc match
+ .lex "$/", match
+ length rx191_eos, rx191_tgt
+ gt rx191_pos, rx191_eos, rx191_done
+ set rx191_off, 0
+ lt rx191_pos, 2, rx191_start
+ sub rx191_off, rx191_pos, 1
+ substr rx191_tgt, rx191_tgt, rx191_off
+ rx191_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan194_done
+ goto rxscan194_scan
+ rxscan194_loop:
+ ($P10) = rx191_cur."from"()
+ inc $P10
+ set rx191_pos, $P10
+ ge rx191_pos, rx191_eos, rxscan194_done
+ rxscan194_scan:
+ set_addr $I10, rxscan194_loop
+ rx191_cur."!mark_push"(0, rx191_pos, $I10)
+ rxscan194_done:
+ alt195_0:
.annotate 'line', 108
- # rx literal ";"
- add $I11, rx187_pos, 1
- gt $I11, rx187_eos, rx187_fail
- sub $I11, rx187_pos, rx187_off
- substr $S10, rx187_tgt, $I11, 1
- ne $S10, ";", rx187_fail
- add rx187_pos, 1
- goto alt191_end
- alt191_1:
- set_addr $I10, alt191_2
- rx187_cur."!mark_push"(0, rx187_pos, $I10)
+ set_addr $I10, alt195_1
+ rx191_cur."!mark_push"(0, rx191_pos, $I10)
.annotate 'line', 109
- # rx subrule "MARKED" subtype=zerowidth negate=
- rx187_cur."!cursor_pos"(rx187_pos)
- $P10 = rx187_cur."MARKED"("endstmt")
- unless $P10, rx187_fail
- goto alt191_end
- alt191_2:
- set_addr $I10, alt191_3
- rx187_cur."!mark_push"(0, rx187_pos, $I10)
+ # rx literal ";"
+ add $I11, rx191_pos, 1
+ gt $I11, rx191_eos, rx191_fail
+ sub $I11, rx191_pos, rx191_off
+ substr $S10, rx191_tgt, $I11, 1
+ ne $S10, ";", rx191_fail
+ add rx191_pos, 1
+ goto alt195_end
+ alt195_1:
+ set_addr $I10, alt195_2
+ rx191_cur."!mark_push"(0, rx191_pos, $I10)
.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:
+ # rx subrule "MARKED" subtype=zerowidth negate=
+ rx191_cur."!cursor_pos"(rx191_pos)
+ $P10 = rx191_cur."MARKED"("endstmt")
+ unless $P10, rx191_fail
+ goto alt195_end
+ alt195_2:
+ set_addr $I10, alt195_3
+ rx191_cur."!mark_push"(0, rx191_pos, $I10)
.annotate 'line', 111
+ # rx subrule "terminator" subtype=zerowidth negate=
+ rx191_cur."!cursor_pos"(rx191_pos)
+ $P10 = rx191_cur."terminator"()
+ unless $P10, rx191_fail
+ goto alt195_end
+ alt195_3:
+.annotate 'line', 112
# rxanchor eos
- ne rx187_pos, rx187_eos, rx187_fail
- alt191_end:
-.annotate 'line', 107
+ ne rx191_pos, rx191_eos, rx191_fail
+ alt195_end:
+.annotate 'line', 108
# rx pass
- rx187_cur."!cursor_pass"(rx187_pos, "eat_terminator")
- rx187_cur."!cursor_debug"("PASS ", "eat_terminator", " at pos=", rx187_pos)
- .return (rx187_cur)
- rx187_fail:
+ rx191_cur."!cursor_pass"(rx191_pos, "eat_terminator")
+ rx191_cur."!cursor_debug"("PASS ", "eat_terminator", " at pos=", rx191_pos)
+ .return (rx191_cur)
+ rx191_fail:
.annotate 'line', 4
- (rx187_rep, rx187_pos, $I10, $P10) = rx187_cur."!mark_fail"(0)
- lt rx187_pos, -1, rx187_done
- eq rx187_pos, -1, rx187_fail
+ (rx191_rep, rx191_pos, $I10, $P10) = rx191_cur."!mark_fail"(0)
+ lt rx191_pos, -1, rx191_done
+ eq rx191_pos, -1, rx191_fail
jump $I10
- rx187_done:
- rx187_cur."!cursor_fail"()
- rx187_cur."!cursor_debug"("FAIL ", "eat_terminator")
- .return (rx187_cur)
+ rx191_done:
+ rx191_cur."!cursor_fail"()
+ rx191_cur."!cursor_debug"("FAIL ", "eat_terminator")
+ .return (rx191_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__eat_terminator" :subid("37_1275117591.97262") :method
+.sub "!PREFIX__eat_terminator" :subid("37_1275811487.95429") :method
.annotate 'line', 4
- new $P189, "ResizablePMCArray"
- push $P189, ""
- push $P189, ""
- push $P189, ""
- push $P189, ";"
- .return ($P189)
+ new $P193, "ResizablePMCArray"
+ push $P193, ""
+ push $P193, ""
+ push $P193, ""
+ push $P193, ";"
+ .return ($P193)
.end
.namespace ["NQP";"Grammar"]
-.sub "xblock" :subid("38_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "xblock" :subid("38_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx193_tgt
- .local int rx193_pos
- .local int rx193_off
- .local int rx193_eos
- .local int rx193_rep
- .local pmc rx193_cur
- (rx193_cur, rx193_pos, rx193_tgt) = self."!cursor_start"()
- rx193_cur."!cursor_debug"("START ", "xblock")
- .lex unicode:"$\x{a2}", rx193_cur
+ .local string rx197_tgt
+ .local int rx197_pos
+ .local int rx197_off
+ .local int rx197_eos
+ .local int rx197_rep
+ .local pmc rx197_cur
+ (rx197_cur, rx197_pos, rx197_tgt) = self."!cursor_start"()
+ rx197_cur."!cursor_debug"("START ", "xblock")
+ .lex unicode:"$\x{a2}", rx197_cur
.local pmc match
.lex "$/", match
- length rx193_eos, rx193_tgt
- set rx193_off, 0
- lt rx193_pos, 2, rx193_start
- sub rx193_off, rx193_pos, 1
- substr rx193_tgt, rx193_tgt, rx193_off
- rx193_start:
+ length rx197_eos, rx197_tgt
+ gt rx197_pos, rx197_eos, rx197_done
+ set rx197_off, 0
+ lt rx197_pos, 2, rx197_start
+ sub rx197_off, rx197_pos, 1
+ substr rx197_tgt, rx197_tgt, rx197_off
+ rx197_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan197_done
- goto rxscan197_scan
- rxscan197_loop:
- ($P10) = rx193_cur."from"()
+ ne $I10, -1, rxscan201_done
+ goto rxscan201_scan
+ rxscan201_loop:
+ ($P10) = rx197_cur."from"()
inc $P10
- set rx193_pos, $P10
- ge rx193_pos, rx193_eos, rxscan197_done
- rxscan197_scan:
- set_addr $I10, rxscan197_loop
- rx193_cur."!mark_push"(0, rx193_pos, $I10)
- rxscan197_done:
-.annotate 'line', 115
+ set rx197_pos, $P10
+ ge rx197_pos, rx197_eos, rxscan201_done
+ rxscan201_scan:
+ set_addr $I10, rxscan201_loop
+ rx197_cur."!mark_push"(0, rx197_pos, $I10)
+ rxscan201_done:
+.annotate 'line', 116
# rx subrule "EXPR" subtype=capture negate=
- rx193_cur."!cursor_pos"(rx193_pos)
- $P10 = rx193_cur."EXPR"()
- unless $P10, rx193_fail
- rx193_cur."!mark_push"(0, -1, 0, $P10)
+ rx197_cur."!cursor_pos"(rx197_pos)
+ $P10 = rx197_cur."EXPR"()
+ unless $P10, rx197_fail
+ rx197_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx193_pos = $P10."pos"()
+ rx197_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx193_cur."!cursor_pos"(rx193_pos)
- $P10 = rx193_cur."ws"()
- unless $P10, rx193_fail
- rx193_pos = $P10."pos"()
+ rx197_cur."!cursor_pos"(rx197_pos)
+ $P10 = rx197_cur."ws"()
+ unless $P10, rx197_fail
+ rx197_pos = $P10."pos"()
# rx subrule "pblock" subtype=capture negate=
- rx193_cur."!cursor_pos"(rx193_pos)
- $P10 = rx193_cur."pblock"()
- unless $P10, rx193_fail
- rx193_cur."!mark_push"(0, -1, 0, $P10)
+ rx197_cur."!cursor_pos"(rx197_pos)
+ $P10 = rx197_cur."pblock"()
+ unless $P10, rx197_fail
+ rx197_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pblock")
- rx193_pos = $P10."pos"()
-.annotate 'line', 114
+ rx197_pos = $P10."pos"()
+.annotate 'line', 115
# rx pass
- rx193_cur."!cursor_pass"(rx193_pos, "xblock")
- rx193_cur."!cursor_debug"("PASS ", "xblock", " at pos=", rx193_pos)
- .return (rx193_cur)
- rx193_fail:
+ rx197_cur."!cursor_pass"(rx197_pos, "xblock")
+ rx197_cur."!cursor_debug"("PASS ", "xblock", " at pos=", rx197_pos)
+ .return (rx197_cur)
+ rx197_fail:
.annotate 'line', 4
- (rx193_rep, rx193_pos, $I10, $P10) = rx193_cur."!mark_fail"(0)
- lt rx193_pos, -1, rx193_done
- eq rx193_pos, -1, rx193_fail
+ (rx197_rep, rx197_pos, $I10, $P10) = rx197_cur."!mark_fail"(0)
+ lt rx197_pos, -1, rx197_done
+ eq rx197_pos, -1, rx197_fail
jump $I10
- rx193_done:
- rx193_cur."!cursor_fail"()
- rx193_cur."!cursor_debug"("FAIL ", "xblock")
- .return (rx193_cur)
+ rx197_done:
+ rx197_cur."!cursor_fail"()
+ rx197_cur."!cursor_debug"("FAIL ", "xblock")
+ .return (rx197_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__xblock" :subid("39_1275117591.97262") :method
+.sub "!PREFIX__xblock" :subid("39_1275811487.95429") :method
.annotate 'line', 4
- $P195 = self."!PREFIX__!subrule"("EXPR", "")
- new $P196, "ResizablePMCArray"
- push $P196, $P195
- .return ($P196)
+ $P199 = self."!PREFIX__!subrule"("EXPR", "")
+ new $P200, "ResizablePMCArray"
+ push $P200, $P199
+ .return ($P200)
.end
.namespace ["NQP";"Grammar"]
-.sub "pblock" :subid("40_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "pblock" :subid("40_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx199_tgt
- .local int rx199_pos
- .local int rx199_off
- .local int rx199_eos
- .local int rx199_rep
- .local pmc rx199_cur
- (rx199_cur, rx199_pos, rx199_tgt) = self."!cursor_start"()
- rx199_cur."!cursor_debug"("START ", "pblock")
- .lex unicode:"$\x{a2}", rx199_cur
+ .local string rx203_tgt
+ .local int rx203_pos
+ .local int rx203_off
+ .local int rx203_eos
+ .local int rx203_rep
+ .local pmc rx203_cur
+ (rx203_cur, rx203_pos, rx203_tgt) = self."!cursor_start"()
+ rx203_cur."!cursor_debug"("START ", "pblock")
+ .lex unicode:"$\x{a2}", rx203_cur
.local pmc match
.lex "$/", match
- length rx199_eos, rx199_tgt
- set rx199_off, 0
- lt rx199_pos, 2, rx199_start
- sub rx199_off, rx199_pos, 1
- substr rx199_tgt, rx199_tgt, rx199_off
- rx199_start:
+ length rx203_eos, rx203_tgt
+ gt rx203_pos, rx203_eos, rx203_done
+ set rx203_off, 0
+ lt rx203_pos, 2, rx203_start
+ sub rx203_off, rx203_pos, 1
+ substr rx203_tgt, rx203_tgt, rx203_off
+ rx203_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan204_done
- goto rxscan204_scan
- rxscan204_loop:
- ($P10) = rx199_cur."from"()
+ ne $I10, -1, rxscan208_done
+ goto rxscan208_scan
+ rxscan208_loop:
+ ($P10) = rx203_cur."from"()
inc $P10
- set rx199_pos, $P10
- ge rx199_pos, rx199_eos, rxscan204_done
- rxscan204_scan:
- set_addr $I10, rxscan204_loop
- rx199_cur."!mark_push"(0, rx199_pos, $I10)
- rxscan204_done:
- alt205_0:
-.annotate 'line', 118
- set_addr $I10, alt205_1
- rx199_cur."!mark_push"(0, rx199_pos, $I10)
+ set rx203_pos, $P10
+ ge rx203_pos, rx203_eos, rxscan208_done
+ rxscan208_scan:
+ set_addr $I10, rxscan208_loop
+ rx203_cur."!mark_push"(0, rx203_pos, $I10)
+ rxscan208_done:
+ alt209_0:
.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"()
+ set_addr $I10, alt209_1
+ rx203_cur."!mark_push"(0, rx203_pos, $I10)
.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"()
+ # rx subrule "lambda" subtype=method negate=
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."lambda"()
+ unless $P10, rx203_fail
+ rx203_pos = $P10."pos"()
.annotate 'line', 121
+ # rx subrule "newpad" subtype=method negate=
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."newpad"()
+ unless $P10, rx203_fail
+ rx203_pos = $P10."pos"()
+.annotate 'line', 122
# rx subrule "signature" subtype=capture negate=
- rx199_cur."!cursor_pos"(rx199_pos)
- $P10 = rx199_cur."signature"()
- unless $P10, rx199_fail
- rx199_cur."!mark_push"(0, -1, 0, $P10)
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."signature"()
+ unless $P10, rx203_fail
+ rx203_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
- rx199_pos = $P10."pos"()
-.annotate 'line', 122
+ rx203_pos = $P10."pos"()
+.annotate 'line', 123
# rx subrule "blockoid" subtype=capture negate=
- rx199_cur."!cursor_pos"(rx199_pos)
- $P10 = rx199_cur."blockoid"()
- unless $P10, rx199_fail
- rx199_cur."!mark_push"(0, -1, 0, $P10)
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."blockoid"()
+ unless $P10, rx203_fail
+ rx203_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
- rx199_pos = $P10."pos"()
-.annotate 'line', 119
- goto alt205_end
- alt205_1:
- set_addr $I10, alt205_2
- rx199_cur."!mark_push"(0, rx199_pos, $I10)
-.annotate 'line', 123
+ rx203_pos = $P10."pos"()
+.annotate 'line', 120
+ goto alt209_end
+ alt209_1:
+ set_addr $I10, alt209_2
+ rx203_cur."!mark_push"(0, rx203_pos, $I10)
+.annotate 'line', 124
# rx enumcharlist negate=0 zerowidth
- ge rx199_pos, rx199_eos, rx199_fail
- sub $I10, rx199_pos, rx199_off
- substr $S10, rx199_tgt, $I10, 1
+ ge rx203_pos, rx203_eos, rx203_fail
+ sub $I10, rx203_pos, rx203_off
+ substr $S10, rx203_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx199_fail
-.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"()
+ lt $I11, 0, rx203_fail
.annotate 'line', 125
+ # rx subrule "newpad" subtype=method negate=
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."newpad"()
+ unless $P10, rx203_fail
+ rx203_pos = $P10."pos"()
+.annotate 'line', 126
# rx subrule "blockoid" subtype=capture negate=
- rx199_cur."!cursor_pos"(rx199_pos)
- $P10 = rx199_cur."blockoid"()
- unless $P10, rx199_fail
- rx199_cur."!mark_push"(0, -1, 0, $P10)
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."blockoid"()
+ unless $P10, rx203_fail
+ rx203_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
- rx199_pos = $P10."pos"()
-.annotate 'line', 123
- goto alt205_end
- alt205_2:
-.annotate 'line', 126
+ rx203_pos = $P10."pos"()
+.annotate 'line', 124
+ goto alt209_end
+ alt209_2:
+.annotate 'line', 127
# 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', 118
+ rx203_cur."!cursor_pos"(rx203_pos)
+ $P10 = rx203_cur."panic"("Missing block")
+ unless $P10, rx203_fail
+ rx203_pos = $P10."pos"()
+ alt209_end:
+.annotate 'line', 119
# rx pass
- rx199_cur."!cursor_pass"(rx199_pos, "pblock")
- rx199_cur."!cursor_debug"("PASS ", "pblock", " at pos=", rx199_pos)
- .return (rx199_cur)
- rx199_fail:
+ rx203_cur."!cursor_pass"(rx203_pos, "pblock")
+ rx203_cur."!cursor_debug"("PASS ", "pblock", " at pos=", rx203_pos)
+ .return (rx203_cur)
+ rx203_fail:
.annotate 'line', 4
- (rx199_rep, rx199_pos, $I10, $P10) = rx199_cur."!mark_fail"(0)
- lt rx199_pos, -1, rx199_done
- eq rx199_pos, -1, rx199_fail
+ (rx203_rep, rx203_pos, $I10, $P10) = rx203_cur."!mark_fail"(0)
+ lt rx203_pos, -1, rx203_done
+ eq rx203_pos, -1, rx203_fail
jump $I10
- rx199_done:
- rx199_cur."!cursor_fail"()
- rx199_cur."!cursor_debug"("FAIL ", "pblock")
- .return (rx199_cur)
+ rx203_done:
+ rx203_cur."!cursor_fail"()
+ rx203_cur."!cursor_debug"("FAIL ", "pblock")
+ .return (rx203_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__pblock" :subid("41_1275117591.97262") :method
+.sub "!PREFIX__pblock" :subid("41_1275811487.95429") :method
.annotate 'line', 4
- $P201 = self."!PREFIX__!subrule"("", "")
- $P202 = self."!PREFIX__!subrule"("", "")
- new $P203, "ResizablePMCArray"
- push $P203, $P201
- push $P203, "{"
- push $P203, $P202
- .return ($P203)
+ $P205 = self."!PREFIX__!subrule"("panic", "")
+ $P206 = self."!PREFIX__!subrule"("lambda", "")
+ new $P207, "ResizablePMCArray"
+ push $P207, $P205
+ push $P207, "{"
+ push $P207, $P206
+ .return ($P207)
.end
.namespace ["NQP";"Grammar"]
-.sub "lambda" :subid("42_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "lambda" :subid("42_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx207_tgt
- .local int rx207_pos
- .local int rx207_off
- .local int rx207_eos
- .local int rx207_rep
- .local pmc rx207_cur
- (rx207_cur, rx207_pos, rx207_tgt) = self."!cursor_start"()
- rx207_cur."!cursor_debug"("START ", "lambda")
- .lex unicode:"$\x{a2}", rx207_cur
+ .local string rx211_tgt
+ .local int rx211_pos
+ .local int rx211_off
+ .local int rx211_eos
+ .local int rx211_rep
+ .local pmc rx211_cur
+ (rx211_cur, rx211_pos, rx211_tgt) = self."!cursor_start"()
+ rx211_cur."!cursor_debug"("START ", "lambda")
+ .lex unicode:"$\x{a2}", rx211_cur
.local pmc match
.lex "$/", match
- length rx207_eos, rx207_tgt
- set rx207_off, 0
- lt rx207_pos, 2, rx207_start
- sub rx207_off, rx207_pos, 1
- substr rx207_tgt, rx207_tgt, rx207_off
- rx207_start:
+ length rx211_eos, rx211_tgt
+ gt rx211_pos, rx211_eos, rx211_done
+ set rx211_off, 0
+ lt rx211_pos, 2, rx211_start
+ sub rx211_off, rx211_pos, 1
+ substr rx211_tgt, rx211_tgt, rx211_off
+ rx211_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan210_done
- goto rxscan210_scan
- rxscan210_loop:
- ($P10) = rx207_cur."from"()
+ ne $I10, -1, rxscan214_done
+ goto rxscan214_scan
+ rxscan214_loop:
+ ($P10) = rx211_cur."from"()
inc $P10
- set rx207_pos, $P10
- ge rx207_pos, rx207_eos, rxscan210_done
- rxscan210_scan:
- set_addr $I10, rxscan210_loop
- rx207_cur."!mark_push"(0, rx207_pos, $I10)
- rxscan210_done:
- alt211_0:
-.annotate 'line', 129
- set_addr $I10, alt211_1
- rx207_cur."!mark_push"(0, rx207_pos, $I10)
+ set rx211_pos, $P10
+ ge rx211_pos, rx211_eos, rxscan214_done
+ rxscan214_scan:
+ set_addr $I10, rxscan214_loop
+ rx211_cur."!mark_push"(0, rx211_pos, $I10)
+ rxscan214_done:
+ alt215_0:
+.annotate 'line', 130
+ set_addr $I10, alt215_1
+ rx211_cur."!mark_push"(0, rx211_pos, $I10)
# rx literal "->"
- add $I11, rx207_pos, 2
- gt $I11, rx207_eos, rx207_fail
- sub $I11, rx207_pos, rx207_off
- substr $S10, rx207_tgt, $I11, 2
- ne $S10, "->", rx207_fail
- add rx207_pos, 2
- goto alt211_end
- alt211_1:
+ add $I11, rx211_pos, 2
+ gt $I11, rx211_eos, rx211_fail
+ sub $I11, rx211_pos, rx211_off
+ substr $S10, rx211_tgt, $I11, 2
+ ne $S10, "->", rx211_fail
+ add rx211_pos, 2
+ goto alt215_end
+ alt215_1:
# rx literal "<->"
- add $I11, rx207_pos, 3
- gt $I11, rx207_eos, rx207_fail
- sub $I11, rx207_pos, rx207_off
- substr $S10, rx207_tgt, $I11, 3
- ne $S10, "<->", rx207_fail
- add rx207_pos, 3
- alt211_end:
+ add $I11, rx211_pos, 3
+ gt $I11, rx211_eos, rx211_fail
+ sub $I11, rx211_pos, rx211_off
+ substr $S10, rx211_tgt, $I11, 3
+ ne $S10, "<->", rx211_fail
+ add rx211_pos, 3
+ alt215_end:
# rx pass
- rx207_cur."!cursor_pass"(rx207_pos, "lambda")
- rx207_cur."!cursor_debug"("PASS ", "lambda", " at pos=", rx207_pos)
- .return (rx207_cur)
- rx207_fail:
+ rx211_cur."!cursor_pass"(rx211_pos, "lambda")
+ rx211_cur."!cursor_debug"("PASS ", "lambda", " at pos=", rx211_pos)
+ .return (rx211_cur)
+ rx211_fail:
.annotate 'line', 4
- (rx207_rep, rx207_pos, $I10, $P10) = rx207_cur."!mark_fail"(0)
- lt rx207_pos, -1, rx207_done
- eq rx207_pos, -1, rx207_fail
+ (rx211_rep, rx211_pos, $I10, $P10) = rx211_cur."!mark_fail"(0)
+ lt rx211_pos, -1, rx211_done
+ eq rx211_pos, -1, rx211_fail
jump $I10
- rx207_done:
- rx207_cur."!cursor_fail"()
- rx207_cur."!cursor_debug"("FAIL ", "lambda")
- .return (rx207_cur)
+ rx211_done:
+ rx211_cur."!cursor_fail"()
+ rx211_cur."!cursor_debug"("FAIL ", "lambda")
+ .return (rx211_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__lambda" :subid("43_1275117591.97262") :method
+.sub "!PREFIX__lambda" :subid("43_1275811487.95429") :method
.annotate 'line', 4
- new $P209, "ResizablePMCArray"
- push $P209, "<->"
- push $P209, "->"
- .return ($P209)
+ new $P213, "ResizablePMCArray"
+ push $P213, "<->"
+ push $P213, "->"
+ .return ($P213)
.end
.namespace ["NQP";"Grammar"]
-.sub "block" :subid("44_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "block" :subid("44_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx213_tgt
- .local int rx213_pos
- .local int rx213_off
- .local int rx213_eos
- .local int rx213_rep
- .local pmc rx213_cur
- (rx213_cur, rx213_pos, rx213_tgt) = self."!cursor_start"()
- rx213_cur."!cursor_debug"("START ", "block")
- .lex unicode:"$\x{a2}", rx213_cur
+ .local string rx217_tgt
+ .local int rx217_pos
+ .local int rx217_off
+ .local int rx217_eos
+ .local int rx217_rep
+ .local pmc rx217_cur
+ (rx217_cur, rx217_pos, rx217_tgt) = self."!cursor_start"()
+ rx217_cur."!cursor_debug"("START ", "block")
+ .lex unicode:"$\x{a2}", rx217_cur
.local pmc match
.lex "$/", match
- length rx213_eos, rx213_tgt
- set rx213_off, 0
- lt rx213_pos, 2, rx213_start
- sub rx213_off, rx213_pos, 1
- substr rx213_tgt, rx213_tgt, rx213_off
- rx213_start:
+ length rx217_eos, rx217_tgt
+ gt rx217_pos, rx217_eos, rx217_done
+ set rx217_off, 0
+ lt rx217_pos, 2, rx217_start
+ sub rx217_off, rx217_pos, 1
+ substr rx217_tgt, rx217_tgt, rx217_off
+ rx217_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan217_done
- goto rxscan217_scan
- rxscan217_loop:
- ($P10) = rx213_cur."from"()
+ ne $I10, -1, rxscan221_done
+ goto rxscan221_scan
+ rxscan221_loop:
+ ($P10) = rx217_cur."from"()
inc $P10
- set rx213_pos, $P10
- ge rx213_pos, rx213_eos, rxscan217_done
- rxscan217_scan:
- set_addr $I10, rxscan217_loop
- rx213_cur."!mark_push"(0, rx213_pos, $I10)
- rxscan217_done:
- alt218_0:
-.annotate 'line', 132
- set_addr $I10, alt218_1
- rx213_cur."!mark_push"(0, rx213_pos, $I10)
+ set rx217_pos, $P10
+ ge rx217_pos, rx217_eos, rxscan221_done
+ rxscan221_scan:
+ set_addr $I10, rxscan221_loop
+ rx217_cur."!mark_push"(0, rx217_pos, $I10)
+ rxscan221_done:
+ alt222_0:
+.annotate 'line', 133
+ set_addr $I10, alt222_1
+ rx217_cur."!mark_push"(0, rx217_pos, $I10)
# rx enumcharlist negate=0 zerowidth
- ge rx213_pos, rx213_eos, rx213_fail
- sub $I10, rx213_pos, rx213_off
- substr $S10, rx213_tgt, $I10, 1
+ ge rx217_pos, rx217_eos, rx217_fail
+ sub $I10, rx217_pos, rx217_off
+ substr $S10, rx217_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx213_fail
- goto alt218_end
- alt218_1:
+ lt $I11, 0, rx217_fail
+ goto alt222_end
+ alt222_1:
# rx subrule "panic" subtype=method negate=
- rx213_cur."!cursor_pos"(rx213_pos)
- $P10 = rx213_cur."panic"("Missing block")
- unless $P10, rx213_fail
- rx213_pos = $P10."pos"()
- alt218_end:
-.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"()
+ rx217_cur."!cursor_pos"(rx217_pos)
+ $P10 = rx217_cur."panic"("Missing block")
+ unless $P10, rx217_fail
+ rx217_pos = $P10."pos"()
+ alt222_end:
.annotate 'line', 134
+ # rx subrule "newpad" subtype=method negate=
+ rx217_cur."!cursor_pos"(rx217_pos)
+ $P10 = rx217_cur."newpad"()
+ unless $P10, rx217_fail
+ rx217_pos = $P10."pos"()
+.annotate 'line', 135
# rx subrule "blockoid" subtype=capture negate=
- rx213_cur."!cursor_pos"(rx213_pos)
- $P10 = rx213_cur."blockoid"()
- unless $P10, rx213_fail
- rx213_cur."!mark_push"(0, -1, 0, $P10)
+ rx217_cur."!cursor_pos"(rx217_pos)
+ $P10 = rx217_cur."blockoid"()
+ unless $P10, rx217_fail
+ rx217_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
- rx213_pos = $P10."pos"()
-.annotate 'line', 131
+ rx217_pos = $P10."pos"()
+.annotate 'line', 132
# rx pass
- rx213_cur."!cursor_pass"(rx213_pos, "block")
- rx213_cur."!cursor_debug"("PASS ", "block", " at pos=", rx213_pos)
- .return (rx213_cur)
- rx213_fail:
+ rx217_cur."!cursor_pass"(rx217_pos, "block")
+ rx217_cur."!cursor_debug"("PASS ", "block", " at pos=", rx217_pos)
+ .return (rx217_cur)
+ rx217_fail:
.annotate 'line', 4
- (rx213_rep, rx213_pos, $I10, $P10) = rx213_cur."!mark_fail"(0)
- lt rx213_pos, -1, rx213_done
- eq rx213_pos, -1, rx213_fail
+ (rx217_rep, rx217_pos, $I10, $P10) = rx217_cur."!mark_fail"(0)
+ lt rx217_pos, -1, rx217_done
+ eq rx217_pos, -1, rx217_fail
jump $I10
- rx213_done:
- rx213_cur."!cursor_fail"()
- rx213_cur."!cursor_debug"("FAIL ", "block")
- .return (rx213_cur)
+ rx217_done:
+ rx217_cur."!cursor_fail"()
+ rx217_cur."!cursor_debug"("FAIL ", "block")
+ .return (rx217_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__block" :subid("45_1275117591.97262") :method
+.sub "!PREFIX__block" :subid("45_1275811487.95429") :method
.annotate 'line', 4
- $P215 = self."!PREFIX__!subrule"("", "")
- new $P216, "ResizablePMCArray"
- push $P216, $P215
- push $P216, "{"
- .return ($P216)
+ $P219 = self."!PREFIX__!subrule"("panic", "")
+ new $P220, "ResizablePMCArray"
+ push $P220, $P219
+ push $P220, "{"
+ .return ($P220)
.end
.namespace ["NQP";"Grammar"]
-.sub "blockoid" :subid("46_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "blockoid" :subid("46_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx220_tgt
- .local int rx220_pos
- .local int rx220_off
- .local int rx220_eos
- .local int rx220_rep
- .local pmc rx220_cur
- (rx220_cur, rx220_pos, rx220_tgt) = self."!cursor_start"()
- rx220_cur."!cursor_debug"("START ", "blockoid")
- .lex unicode:"$\x{a2}", rx220_cur
+ .local string rx224_tgt
+ .local int rx224_pos
+ .local int rx224_off
+ .local int rx224_eos
+ .local int rx224_rep
+ .local pmc rx224_cur
+ (rx224_cur, rx224_pos, rx224_tgt) = self."!cursor_start"()
+ rx224_cur."!cursor_debug"("START ", "blockoid")
+ .lex unicode:"$\x{a2}", rx224_cur
.local pmc match
.lex "$/", match
- length rx220_eos, rx220_tgt
- set rx220_off, 0
- lt rx220_pos, 2, rx220_start
- sub rx220_off, rx220_pos, 1
- substr rx220_tgt, rx220_tgt, rx220_off
- rx220_start:
+ length rx224_eos, rx224_tgt
+ gt rx224_pos, rx224_eos, rx224_done
+ set rx224_off, 0
+ lt rx224_pos, 2, rx224_start
+ sub rx224_off, rx224_pos, 1
+ substr rx224_tgt, rx224_tgt, rx224_off
+ rx224_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan224_done
- goto rxscan224_scan
- rxscan224_loop:
- ($P10) = rx220_cur."from"()
+ ne $I10, -1, rxscan228_done
+ goto rxscan228_scan
+ rxscan228_loop:
+ ($P10) = rx224_cur."from"()
inc $P10
- set rx220_pos, $P10
- ge rx220_pos, rx220_eos, rxscan224_done
- rxscan224_scan:
- set_addr $I10, rxscan224_loop
- rx220_cur."!mark_push"(0, rx220_pos, $I10)
- rxscan224_done:
-.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"()
+ set rx224_pos, $P10
+ ge rx224_pos, rx224_eos, rxscan228_done
+ rxscan228_scan:
+ set_addr $I10, rxscan228_loop
+ rx224_cur."!mark_push"(0, rx224_pos, $I10)
+ rxscan228_done:
.annotate 'line', 139
+ # rx subrule "finishpad" subtype=method negate=
+ rx224_cur."!cursor_pos"(rx224_pos)
+ $P10 = rx224_cur."finishpad"()
+ unless $P10, rx224_fail
+ rx224_pos = $P10."pos"()
+.annotate 'line', 140
# rx literal "{"
- add $I11, rx220_pos, 1
- gt $I11, rx220_eos, rx220_fail
- sub $I11, rx220_pos, rx220_off
- substr $S10, rx220_tgt, $I11, 1
- ne $S10, "{", rx220_fail
- add rx220_pos, 1
+ add $I11, rx224_pos, 1
+ gt $I11, rx224_eos, rx224_fail
+ sub $I11, rx224_pos, rx224_off
+ substr $S10, rx224_tgt, $I11, 1
+ ne $S10, "{", rx224_fail
+ add rx224_pos, 1
# rx subrule "statementlist" subtype=capture negate=
- rx220_cur."!cursor_pos"(rx220_pos)
- $P10 = rx220_cur."statementlist"()
- unless $P10, rx220_fail
- rx220_cur."!mark_push"(0, -1, 0, $P10)
+ rx224_cur."!cursor_pos"(rx224_pos)
+ $P10 = rx224_cur."statementlist"()
+ unless $P10, rx224_fail
+ rx224_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statementlist")
- rx220_pos = $P10."pos"()
- alt225_0:
- set_addr $I10, alt225_1
- rx220_cur."!mark_push"(0, rx220_pos, $I10)
+ rx224_pos = $P10."pos"()
+ alt229_0:
+ set_addr $I10, alt229_1
+ rx224_cur."!mark_push"(0, rx224_pos, $I10)
# rx literal "}"
- add $I11, rx220_pos, 1
- gt $I11, rx220_eos, rx220_fail
- sub $I11, rx220_pos, rx220_off
- substr $S10, rx220_tgt, $I11, 1
- ne $S10, "}", rx220_fail
- add rx220_pos, 1
- goto alt225_end
- alt225_1:
+ add $I11, rx224_pos, 1
+ gt $I11, rx224_eos, rx224_fail
+ sub $I11, rx224_pos, rx224_off
+ substr $S10, rx224_tgt, $I11, 1
+ ne $S10, "}", rx224_fail
+ add rx224_pos, 1
+ goto alt229_end
+ alt229_1:
# rx subrule "FAILGOAL" subtype=method negate=
- rx220_cur."!cursor_pos"(rx220_pos)
- $P10 = rx220_cur."FAILGOAL"("'}'")
- unless $P10, rx220_fail
- rx220_pos = $P10."pos"()
- alt225_end:
-.annotate 'line', 140
+ rx224_cur."!cursor_pos"(rx224_pos)
+ $P10 = rx224_cur."FAILGOAL"("'}'")
+ unless $P10, rx224_fail
+ rx224_pos = $P10."pos"()
+ alt229_end:
+.annotate 'line', 141
# rx subrule "ENDSTMT" subtype=zerowidth negate=
- rx220_cur."!cursor_pos"(rx220_pos)
- $P10 = rx220_cur."ENDSTMT"()
- unless $P10, rx220_fail
-.annotate 'line', 137
+ rx224_cur."!cursor_pos"(rx224_pos)
+ $P10 = rx224_cur."ENDSTMT"()
+ unless $P10, rx224_fail
+.annotate 'line', 138
# rx pass
- rx220_cur."!cursor_pass"(rx220_pos, "blockoid")
- rx220_cur."!cursor_debug"("PASS ", "blockoid", " at pos=", rx220_pos)
- .return (rx220_cur)
- rx220_fail:
+ rx224_cur."!cursor_pass"(rx224_pos, "blockoid")
+ rx224_cur."!cursor_debug"("PASS ", "blockoid", " at pos=", rx224_pos)
+ .return (rx224_cur)
+ rx224_fail:
.annotate 'line', 4
- (rx220_rep, rx220_pos, $I10, $P10) = rx220_cur."!mark_fail"(0)
- lt rx220_pos, -1, rx220_done
- eq rx220_pos, -1, rx220_fail
+ (rx224_rep, rx224_pos, $I10, $P10) = rx224_cur."!mark_fail"(0)
+ lt rx224_pos, -1, rx224_done
+ eq rx224_pos, -1, rx224_fail
jump $I10
- rx220_done:
- rx220_cur."!cursor_fail"()
- rx220_cur."!cursor_debug"("FAIL ", "blockoid")
- .return (rx220_cur)
+ rx224_done:
+ rx224_cur."!cursor_fail"()
+ rx224_cur."!cursor_debug"("FAIL ", "blockoid")
+ .return (rx224_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__blockoid" :subid("47_1275117591.97262") :method
+.sub "!PREFIX__blockoid" :subid("47_1275811487.95429") :method
.annotate 'line', 4
- $P222 = self."!PREFIX__!subrule"("", "")
- new $P223, "ResizablePMCArray"
- push $P223, $P222
- .return ($P223)
+ $P226 = self."!PREFIX__!subrule"("finishpad", "")
+ new $P227, "ResizablePMCArray"
+ push $P227, $P226
+ .return ($P227)
.end
.namespace ["NQP";"Grammar"]
-.sub "newpad" :subid("48_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "newpad" :subid("48_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx228_tgt
- .local int rx228_pos
- .local int rx228_off
- .local int rx228_eos
- .local int rx228_rep
- .local pmc rx228_cur
- (rx228_cur, rx228_pos, rx228_tgt) = self."!cursor_start"()
- rx228_cur."!cursor_debug"("START ", "newpad")
- .lex unicode:"$\x{a2}", rx228_cur
+ .local string rx232_tgt
+ .local int rx232_pos
+ .local int rx232_off
+ .local int rx232_eos
+ .local int rx232_rep
+ .local pmc rx232_cur
+ (rx232_cur, rx232_pos, rx232_tgt) = self."!cursor_start"()
+ rx232_cur."!cursor_debug"("START ", "newpad")
+ .lex unicode:"$\x{a2}", rx232_cur
.local pmc match
.lex "$/", match
- length rx228_eos, rx228_tgt
- set rx228_off, 0
- lt rx228_pos, 2, rx228_start
- sub rx228_off, rx228_pos, 1
- substr rx228_tgt, rx228_tgt, rx228_off
- rx228_start:
+ length rx232_eos, rx232_tgt
+ gt rx232_pos, rx232_eos, rx232_done
+ set rx232_off, 0
+ lt rx232_pos, 2, rx232_start
+ sub rx232_off, rx232_pos, 1
+ substr rx232_tgt, rx232_tgt, rx232_off
+ rx232_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan231_done
- goto rxscan231_scan
- rxscan231_loop:
- ($P10) = rx228_cur."from"()
+ ne $I10, -1, rxscan235_done
+ goto rxscan235_scan
+ rxscan235_loop:
+ ($P10) = rx232_cur."from"()
inc $P10
- set rx228_pos, $P10
- ge rx228_pos, rx228_eos, rxscan231_done
- rxscan231_scan:
- set_addr $I10, rxscan231_loop
- rx228_cur."!mark_push"(0, rx228_pos, $I10)
- rxscan231_done:
-.annotate 'line', 143
+ set rx232_pos, $P10
+ ge rx232_pos, rx232_eos, rxscan235_done
+ rxscan235_scan:
+ set_addr $I10, rxscan235_loop
+ rx232_cur."!mark_push"(0, rx232_pos, $I10)
+ rxscan235_done:
+.annotate 'line', 144
# rx pass
- rx228_cur."!cursor_pass"(rx228_pos, "newpad")
- rx228_cur."!cursor_debug"("PASS ", "newpad", " at pos=", rx228_pos)
- .return (rx228_cur)
- rx228_fail:
+ rx232_cur."!cursor_pass"(rx232_pos, "newpad")
+ rx232_cur."!cursor_debug"("PASS ", "newpad", " at pos=", rx232_pos)
+ .return (rx232_cur)
+ rx232_fail:
.annotate 'line', 4
- (rx228_rep, rx228_pos, $I10, $P10) = rx228_cur."!mark_fail"(0)
- lt rx228_pos, -1, rx228_done
- eq rx228_pos, -1, rx228_fail
+ (rx232_rep, rx232_pos, $I10, $P10) = rx232_cur."!mark_fail"(0)
+ lt rx232_pos, -1, rx232_done
+ eq rx232_pos, -1, rx232_fail
jump $I10
- rx228_done:
- rx228_cur."!cursor_fail"()
- rx228_cur."!cursor_debug"("FAIL ", "newpad")
- .return (rx228_cur)
+ rx232_done:
+ rx232_cur."!cursor_fail"()
+ rx232_cur."!cursor_debug"("FAIL ", "newpad")
+ .return (rx232_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__newpad" :subid("49_1275117591.97262") :method
+.sub "!PREFIX__newpad" :subid("49_1275811487.95429") :method
.annotate 'line', 4
- new $P230, "ResizablePMCArray"
- push $P230, ""
- .return ($P230)
+ new $P234, "ResizablePMCArray"
+ push $P234, ""
+ .return ($P234)
.end
.namespace ["NQP";"Grammar"]
-.sub "outerctx" :subid("50_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "outerctx" :subid("50_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx233_tgt
- .local int rx233_pos
- .local int rx233_off
- .local int rx233_eos
- .local int rx233_rep
- .local pmc rx233_cur
- (rx233_cur, rx233_pos, rx233_tgt) = self."!cursor_start"()
- rx233_cur."!cursor_debug"("START ", "outerctx")
- .lex unicode:"$\x{a2}", rx233_cur
+ .local string rx237_tgt
+ .local int rx237_pos
+ .local int rx237_off
+ .local int rx237_eos
+ .local int rx237_rep
+ .local pmc rx237_cur
+ (rx237_cur, rx237_pos, rx237_tgt) = self."!cursor_start"()
+ rx237_cur."!cursor_debug"("START ", "outerctx")
+ .lex unicode:"$\x{a2}", rx237_cur
.local pmc match
.lex "$/", match
- length rx233_eos, rx233_tgt
- set rx233_off, 0
- lt rx233_pos, 2, rx233_start
- sub rx233_off, rx233_pos, 1
- substr rx233_tgt, rx233_tgt, rx233_off
- rx233_start:
+ length rx237_eos, rx237_tgt
+ gt rx237_pos, rx237_eos, rx237_done
+ set rx237_off, 0
+ lt rx237_pos, 2, rx237_start
+ sub rx237_off, rx237_pos, 1
+ substr rx237_tgt, rx237_tgt, rx237_off
+ rx237_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan236_done
- goto rxscan236_scan
- rxscan236_loop:
- ($P10) = rx233_cur."from"()
+ ne $I10, -1, rxscan240_done
+ goto rxscan240_scan
+ rxscan240_loop:
+ ($P10) = rx237_cur."from"()
inc $P10
- set rx233_pos, $P10
- ge rx233_pos, rx233_eos, rxscan236_done
- rxscan236_scan:
- set_addr $I10, rxscan236_loop
- rx233_cur."!mark_push"(0, rx233_pos, $I10)
- rxscan236_done:
-.annotate 'line', 144
+ set rx237_pos, $P10
+ ge rx237_pos, rx237_eos, rxscan240_done
+ rxscan240_scan:
+ set_addr $I10, rxscan240_loop
+ rx237_cur."!mark_push"(0, rx237_pos, $I10)
+ rxscan240_done:
+.annotate 'line', 145
# rx pass
- rx233_cur."!cursor_pass"(rx233_pos, "outerctx")
- rx233_cur."!cursor_debug"("PASS ", "outerctx", " at pos=", rx233_pos)
- .return (rx233_cur)
- rx233_fail:
+ rx237_cur."!cursor_pass"(rx237_pos, "outerctx")
+ rx237_cur."!cursor_debug"("PASS ", "outerctx", " at pos=", rx237_pos)
+ .return (rx237_cur)
+ rx237_fail:
.annotate 'line', 4
- (rx233_rep, rx233_pos, $I10, $P10) = rx233_cur."!mark_fail"(0)
- lt rx233_pos, -1, rx233_done
- eq rx233_pos, -1, rx233_fail
+ (rx237_rep, rx237_pos, $I10, $P10) = rx237_cur."!mark_fail"(0)
+ lt rx237_pos, -1, rx237_done
+ eq rx237_pos, -1, rx237_fail
jump $I10
- rx233_done:
- rx233_cur."!cursor_fail"()
- rx233_cur."!cursor_debug"("FAIL ", "outerctx")
- .return (rx233_cur)
+ rx237_done:
+ rx237_cur."!cursor_fail"()
+ rx237_cur."!cursor_debug"("FAIL ", "outerctx")
+ .return (rx237_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__outerctx" :subid("51_1275117591.97262") :method
+.sub "!PREFIX__outerctx" :subid("51_1275811487.95429") :method
.annotate 'line', 4
- new $P235, "ResizablePMCArray"
- push $P235, ""
- .return ($P235)
+ new $P239, "ResizablePMCArray"
+ push $P239, ""
+ .return ($P239)
.end
.namespace ["NQP";"Grammar"]
-.sub "finishpad" :subid("52_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "finishpad" :subid("52_1275811487.95429") :method :outer("11_1275811487.95429")
.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 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 ", "finishpad")
+ .lex unicode:"$\x{a2}", rx242_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:
+ length rx242_eos, rx242_tgt
+ gt rx242_pos, rx242_eos, rx242_done
+ 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, rxscan241_done
- goto rxscan241_scan
- rxscan241_loop:
- ($P10) = rx238_cur."from"()
+ ne $I10, -1, rxscan245_done
+ goto rxscan245_scan
+ rxscan245_loop:
+ ($P10) = rx242_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
+ 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:
+.annotate 'line', 146
# rx pass
- rx238_cur."!cursor_pass"(rx238_pos, "finishpad")
- rx238_cur."!cursor_debug"("PASS ", "finishpad", " at pos=", rx238_pos)
- .return (rx238_cur)
- rx238_fail:
+ rx242_cur."!cursor_pass"(rx242_pos, "finishpad")
+ rx242_cur."!cursor_debug"("PASS ", "finishpad", " at pos=", rx242_pos)
+ .return (rx242_cur)
+ rx242_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
+ (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
- rx238_done:
- rx238_cur."!cursor_fail"()
- rx238_cur."!cursor_debug"("FAIL ", "finishpad")
- .return (rx238_cur)
+ rx242_done:
+ rx242_cur."!cursor_fail"()
+ rx242_cur."!cursor_debug"("FAIL ", "finishpad")
+ .return (rx242_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__finishpad" :subid("53_1275117591.97262") :method
+.sub "!PREFIX__finishpad" :subid("53_1275811487.95429") :method
.annotate 'line', 4
- new $P240, "ResizablePMCArray"
- push $P240, ""
- .return ($P240)
+ new $P244, "ResizablePMCArray"
+ push $P244, ""
+ .return ($P244)
.end
.namespace ["NQP";"Grammar"]
-.sub "terminator" :subid("54_1275117591.97262") :method
-.annotate 'line', 147
- $P243 = self."!protoregex"("terminator")
- .return ($P243)
+.sub "terminator" :subid("54_1275811487.95429") :method
+.annotate 'line', 148
+ $P247 = self."!protoregex"("terminator")
+ .return ($P247)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__terminator" :subid("55_1275117591.97262") :method
-.annotate 'line', 147
- $P245 = self."!PREFIX__!protoregex"("terminator")
- .return ($P245)
+.sub "!PREFIX__terminator" :subid("55_1275811487.95429") :method
+.annotate 'line', 148
+ $P249 = self."!PREFIX__!protoregex"("terminator")
+ .return ($P249)
.end
.namespace ["NQP";"Grammar"]
-.sub "terminator:sym<;>" :subid("56_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "terminator:sym<;>" :subid("56_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx247_tgt
- .local int rx247_pos
- .local int rx247_off
- .local int rx247_eos
- .local int rx247_rep
- .local pmc rx247_cur
- (rx247_cur, rx247_pos, rx247_tgt) = self."!cursor_start"()
- rx247_cur."!cursor_debug"("START ", "terminator:sym<;>")
- .lex unicode:"$\x{a2}", rx247_cur
- .local pmc match
- .lex "$/", match
- length rx247_eos, rx247_tgt
- set rx247_off, 0
- lt rx247_pos, 2, rx247_start
- sub rx247_off, rx247_pos, 1
- substr rx247_tgt, rx247_tgt, rx247_off
- rx247_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan250_done
- goto rxscan250_scan
- rxscan250_loop:
- ($P10) = rx247_cur."from"()
- inc $P10
- set rx247_pos, $P10
- ge rx247_pos, rx247_eos, rxscan250_done
- rxscan250_scan:
- set_addr $I10, rxscan250_loop
- rx247_cur."!mark_push"(0, rx247_pos, $I10)
- rxscan250_done:
-.annotate 'line', 149
+ .local string rx251_tgt
+ .local int rx251_pos
+ .local int rx251_off
+ .local int rx251_eos
+ .local int rx251_rep
+ .local pmc rx251_cur
+ (rx251_cur, rx251_pos, rx251_tgt) = self."!cursor_start"()
+ rx251_cur."!cursor_debug"("START ", "terminator:sym<;>")
+ .lex unicode:"$\x{a2}", rx251_cur
+ .local pmc match
+ .lex "$/", match
+ length rx251_eos, rx251_tgt
+ gt rx251_pos, rx251_eos, rx251_done
+ set rx251_off, 0
+ lt rx251_pos, 2, rx251_start
+ sub rx251_off, rx251_pos, 1
+ substr rx251_tgt, rx251_tgt, rx251_off
+ rx251_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan254_done
+ goto rxscan254_scan
+ rxscan254_loop:
+ ($P10) = rx251_cur."from"()
+ inc $P10
+ set rx251_pos, $P10
+ ge rx251_pos, rx251_eos, rxscan254_done
+ rxscan254_scan:
+ set_addr $I10, rxscan254_loop
+ rx251_cur."!mark_push"(0, rx251_pos, $I10)
+ rxscan254_done:
+.annotate 'line', 150
# rx enumcharlist negate=0 zerowidth
- ge rx247_pos, rx247_eos, rx247_fail
- sub $I10, rx247_pos, rx247_off
- substr $S10, rx247_tgt, $I10, 1
+ ge rx251_pos, rx251_eos, rx251_fail
+ sub $I10, rx251_pos, rx251_off
+ substr $S10, rx251_tgt, $I10, 1
index $I11, ";", $S10
- lt $I11, 0, rx247_fail
+ lt $I11, 0, rx251_fail
# rx pass
- rx247_cur."!cursor_pass"(rx247_pos, "terminator:sym<;>")
- rx247_cur."!cursor_debug"("PASS ", "terminator:sym<;>", " at pos=", rx247_pos)
- .return (rx247_cur)
- rx247_fail:
+ rx251_cur."!cursor_pass"(rx251_pos, "terminator:sym<;>")
+ rx251_cur."!cursor_debug"("PASS ", "terminator:sym<;>", " at pos=", rx251_pos)
+ .return (rx251_cur)
+ rx251_fail:
.annotate 'line', 4
- (rx247_rep, rx247_pos, $I10, $P10) = rx247_cur."!mark_fail"(0)
- lt rx247_pos, -1, rx247_done
- eq rx247_pos, -1, rx247_fail
+ (rx251_rep, rx251_pos, $I10, $P10) = rx251_cur."!mark_fail"(0)
+ lt rx251_pos, -1, rx251_done
+ eq rx251_pos, -1, rx251_fail
jump $I10
- rx247_done:
- rx247_cur."!cursor_fail"()
- rx247_cur."!cursor_debug"("FAIL ", "terminator:sym<;>")
- .return (rx247_cur)
+ rx251_done:
+ rx251_cur."!cursor_fail"()
+ rx251_cur."!cursor_debug"("FAIL ", "terminator:sym<;>")
+ .return (rx251_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__terminator:sym<;>" :subid("57_1275117591.97262") :method
+.sub "!PREFIX__terminator:sym<;>" :subid("57_1275811487.95429") :method
.annotate 'line', 4
- new $P249, "ResizablePMCArray"
- push $P249, ";"
- .return ($P249)
+ new $P253, "ResizablePMCArray"
+ push $P253, ";"
+ .return ($P253)
.end
.namespace ["NQP";"Grammar"]
-.sub "terminator:sym<}>" :subid("58_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "terminator:sym<}>" :subid("58_1275811487.95429") :method :outer("11_1275811487.95429")
.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
+ .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 ", "terminator:sym<}>")
+ .lex unicode:"$\x{a2}", rx256_cur
+ .local pmc match
+ .lex "$/", match
+ length rx256_eos, rx256_tgt
+ gt rx256_pos, rx256_eos, rx256_done
+ 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', 151
# rx enumcharlist negate=0 zerowidth
- ge rx252_pos, rx252_eos, rx252_fail
- sub $I10, rx252_pos, rx252_off
- substr $S10, rx252_tgt, $I10, 1
+ ge rx256_pos, rx256_eos, rx256_fail
+ sub $I10, rx256_pos, rx256_off
+ substr $S10, rx256_tgt, $I10, 1
index $I11, "}", $S10
- lt $I11, 0, rx252_fail
+ lt $I11, 0, rx256_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:
+ rx256_cur."!cursor_pass"(rx256_pos, "terminator:sym<}>")
+ rx256_cur."!cursor_debug"("PASS ", "terminator:sym<}>", " at pos=", rx256_pos)
+ .return (rx256_cur)
+ rx256_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
+ (rx256_rep, rx256_pos, $I10, $P10) = rx256_cur."!mark_fail"(0)
+ lt rx256_pos, -1, rx256_done
+ eq rx256_pos, -1, rx256_fail
jump $I10
- rx252_done:
- rx252_cur."!cursor_fail"()
- rx252_cur."!cursor_debug"("FAIL ", "terminator:sym<}>")
- .return (rx252_cur)
+ rx256_done:
+ rx256_cur."!cursor_fail"()
+ rx256_cur."!cursor_debug"("FAIL ", "terminator:sym<}>")
+ .return (rx256_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__terminator:sym<}>" :subid("59_1275117591.97262") :method
+.sub "!PREFIX__terminator:sym<}>" :subid("59_1275811487.95429") :method
.annotate 'line', 4
- new $P254, "ResizablePMCArray"
- push $P254, "}"
- .return ($P254)
+ new $P258, "ResizablePMCArray"
+ push $P258, "}"
+ .return ($P258)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control" :subid("60_1275117591.97262") :method
-.annotate 'line', 154
- $P257 = self."!protoregex"("statement_control")
- .return ($P257)
+.sub "statement_control" :subid("60_1275811487.95429") :method
+.annotate 'line', 155
+ $P261 = self."!protoregex"("statement_control")
+ .return ($P261)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control" :subid("61_1275117591.97262") :method
-.annotate 'line', 154
- $P259 = self."!PREFIX__!protoregex"("statement_control")
- .return ($P259)
+.sub "!PREFIX__statement_control" :subid("61_1275811487.95429") :method
+.annotate 'line', 155
+ $P263 = self."!PREFIX__!protoregex"("statement_control")
+ .return ($P263)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<if>" :subid("62_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_control:sym<if>" :subid("62_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx265_tgt
+ .local int rx265_pos
+ .local int rx265_off
+ .local int rx265_eos
+ .local int rx265_rep
+ .local pmc rx265_cur
+ (rx265_cur, rx265_pos, rx265_tgt) = self."!cursor_start"()
+ rx265_cur."!cursor_debug"("START ", "statement_control:sym<if>")
+ rx265_cur."!cursor_caparray"("else", "xblock")
+ .lex unicode:"$\x{a2}", rx265_cur
+ .local pmc match
+ .lex "$/", match
+ length rx265_eos, rx265_tgt
+ gt rx265_pos, rx265_eos, rx265_done
+ set rx265_off, 0
+ lt rx265_pos, 2, rx265_start
+ sub rx265_off, rx265_pos, 1
+ substr rx265_tgt, rx265_tgt, rx265_off
+ rx265_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan268_done
+ goto rxscan268_scan
+ rxscan268_loop:
+ ($P10) = rx265_cur."from"()
+ inc $P10
+ set rx265_pos, $P10
+ ge rx265_pos, rx265_eos, rxscan268_done
+ rxscan268_scan:
+ set_addr $I10, rxscan268_loop
+ rx265_cur."!mark_push"(0, rx265_pos, $I10)
+ rxscan268_done:
+.annotate 'line', 158
# rx subcapture "sym"
- set_addr $I10, rxcap_265_fail
- rx261_cur."!mark_push"(0, rx261_pos, $I10)
+ set_addr $I10, rxcap_269_fail
+ rx265_cur."!mark_push"(0, rx265_pos, $I10)
# rx literal "if"
- 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)
+ add $I11, rx265_pos, 2
+ gt $I11, rx265_eos, rx265_fail
+ sub $I11, rx265_pos, rx265_off
+ substr $S10, rx265_tgt, $I11, 2
+ ne $S10, "if", rx265_fail
+ add rx265_pos, 2
+ set_addr $I10, rxcap_269_fail
+ ($I12, $I11) = rx265_cur."!mark_peek"($I10)
+ rx265_cur."!cursor_pos"($I11)
+ ($P10) = rx265_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx265_pos, "")
+ rx265_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_265_done
- rxcap_265_fail:
- goto rx261_fail
- rxcap_265_done:
+ goto rxcap_269_done
+ rxcap_269_fail:
+ goto rx265_fail
+ rxcap_269_done:
# rx charclass s
- 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
+ ge rx265_pos, rx265_eos, rx265_fail
+ sub $I10, rx265_pos, rx265_off
+ is_cclass $I11, 32, rx265_tgt, $I10
+ unless $I11, rx265_fail
+ inc rx265_pos
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
+.annotate 'line', 159
# rx subrule "xblock" subtype=capture negate=
- rx261_cur."!cursor_pos"(rx261_pos)
- $P10 = rx261_cur."xblock"()
- unless $P10, rx261_fail
- rx261_cur."!mark_push"(0, -1, 0, $P10)
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."xblock"()
+ unless $P10, rx265_fail
+ rx265_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx261_pos = $P10."pos"()
+ rx265_pos = $P10."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', 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"()
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
+.annotate 'line', 160
+ # rx rxquantr272 ** 0..*
+ set_addr $I276, rxquantr272_done
+ rx265_cur."!mark_push"(0, rx265_pos, $I276)
+ rxquantr272_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
# rx literal "elsif"
- 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
+ add $I11, rx265_pos, 5
+ gt $I11, rx265_eos, rx265_fail
+ sub $I11, rx265_pos, rx265_off
+ substr $S10, rx265_tgt, $I11, 5
+ ne $S10, "elsif", rx265_fail
+ add rx265_pos, 5
# rx charclass s
- 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"()
+ ge rx265_pos, rx265_eos, rx265_fail
+ sub $I10, rx265_pos, rx265_off
+ is_cclass $I11, 32, rx265_tgt, $I10
+ unless $I11, rx265_fail
+ inc rx265_pos
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
# rx subrule "xblock" subtype=capture negate=
- rx261_cur."!cursor_pos"(rx261_pos)
- $P10 = rx261_cur."xblock"()
- unless $P10, rx261_fail
- rx261_cur."!mark_push"(0, -1, 0, $P10)
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."xblock"()
+ unless $P10, rx265_fail
+ rx265_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx261_pos = $P10."pos"()
+ rx265_pos = $P10."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"()
- (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"()
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
+ (rx265_rep) = rx265_cur."!mark_commit"($I276)
+ rx265_cur."!mark_push"(rx265_rep, rx265_pos, $I276)
+ goto rxquantr272_loop
+ rxquantr272_done:
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
+.annotate 'line', 161
+ # rx rxquantr278 ** 0..1
+ set_addr $I282, rxquantr278_done
+ rx265_cur."!mark_push"(0, rx265_pos, $I282)
+ rxquantr278_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
# rx literal "else"
- 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
+ add $I11, rx265_pos, 4
+ gt $I11, rx265_eos, rx265_fail
+ sub $I11, rx265_pos, rx265_off
+ substr $S10, rx265_tgt, $I11, 4
+ ne $S10, "else", rx265_fail
+ add rx265_pos, 4
# rx charclass s
- 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"()
+ ge rx265_pos, rx265_eos, rx265_fail
+ sub $I10, rx265_pos, rx265_off
+ is_cclass $I11, 32, rx265_tgt, $I10
+ unless $I11, rx265_fail
+ inc rx265_pos
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
# rx subrule "pblock" subtype=capture negate=
- rx261_cur."!cursor_pos"(rx261_pos)
- $P10 = rx261_cur."pblock"()
- unless $P10, rx261_fail
- rx261_cur."!mark_push"(0, -1, 0, $P10)
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."pblock"()
+ unless $P10, rx265_fail
+ rx265_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("else")
- rx261_pos = $P10."pos"()
+ rx265_pos = $P10."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"()
- (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
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
+ (rx265_rep) = rx265_cur."!mark_commit"($I282)
+ rxquantr278_done:
+ # rx subrule "ws" subtype=method negate=
+ rx265_cur."!cursor_pos"(rx265_pos)
+ $P10 = rx265_cur."ws"()
+ unless $P10, rx265_fail
+ rx265_pos = $P10."pos"()
+.annotate 'line', 157
# rx pass
- 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:
+ rx265_cur."!cursor_pass"(rx265_pos, "statement_control:sym<if>")
+ rx265_cur."!cursor_debug"("PASS ", "statement_control:sym<if>", " at pos=", rx265_pos)
+ .return (rx265_cur)
+ rx265_fail:
.annotate 'line', 4
- (rx261_rep, rx261_pos, $I10, $P10) = rx261_cur."!mark_fail"(0)
- lt rx261_pos, -1, rx261_done
- eq rx261_pos, -1, rx261_fail
+ (rx265_rep, rx265_pos, $I10, $P10) = rx265_cur."!mark_fail"(0)
+ lt rx265_pos, -1, rx265_done
+ eq rx265_pos, -1, rx265_fail
jump $I10
- rx261_done:
- rx261_cur."!cursor_fail"()
- rx261_cur."!cursor_debug"("FAIL ", "statement_control:sym<if>")
- .return (rx261_cur)
+ rx265_done:
+ rx265_cur."!cursor_fail"()
+ rx265_cur."!cursor_debug"("FAIL ", "statement_control:sym<if>")
+ .return (rx265_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<if>" :subid("63_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<if>" :subid("63_1275811487.95429") :method
.annotate 'line', 4
- new $P263, "ResizablePMCArray"
- push $P263, "if"
- .return ($P263)
+ new $P267, "ResizablePMCArray"
+ push $P267, "if"
+ .return ($P267)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<unless>" :subid("64_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_control:sym<unless>" :subid("64_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan284_done
- goto rxscan284_scan
- rxscan284_loop:
- ($P10) = rx281_cur."from"()
- inc $P10
- 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
+ .const 'Sub' $P295 = "66_1275811487.95429"
+ capture_lex $P295
+ .local string rx285_tgt
+ .local int rx285_pos
+ .local int rx285_off
+ .local int rx285_eos
+ .local int rx285_rep
+ .local pmc rx285_cur
+ (rx285_cur, rx285_pos, rx285_tgt) = self."!cursor_start"()
+ rx285_cur."!cursor_debug"("START ", "statement_control:sym<unless>")
+ .lex unicode:"$\x{a2}", rx285_cur
+ .local pmc match
+ .lex "$/", match
+ length rx285_eos, rx285_tgt
+ gt rx285_pos, rx285_eos, rx285_done
+ set rx285_off, 0
+ lt rx285_pos, 2, rx285_start
+ sub rx285_off, rx285_pos, 1
+ substr rx285_tgt, rx285_tgt, rx285_off
+ rx285_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan288_done
+ goto rxscan288_scan
+ rxscan288_loop:
+ ($P10) = rx285_cur."from"()
+ inc $P10
+ set rx285_pos, $P10
+ ge rx285_pos, rx285_eos, rxscan288_done
+ rxscan288_scan:
+ set_addr $I10, rxscan288_loop
+ rx285_cur."!mark_push"(0, rx285_pos, $I10)
+ rxscan288_done:
+.annotate 'line', 165
# rx subcapture "sym"
- set_addr $I10, rxcap_285_fail
- rx281_cur."!mark_push"(0, rx281_pos, $I10)
+ set_addr $I10, rxcap_289_fail
+ rx285_cur."!mark_push"(0, rx285_pos, $I10)
# rx literal "unless"
- 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)
+ add $I11, rx285_pos, 6
+ gt $I11, rx285_eos, rx285_fail
+ sub $I11, rx285_pos, rx285_off
+ substr $S10, rx285_tgt, $I11, 6
+ ne $S10, "unless", rx285_fail
+ add rx285_pos, 6
+ set_addr $I10, rxcap_289_fail
+ ($I12, $I11) = rx285_cur."!mark_peek"($I10)
+ rx285_cur."!cursor_pos"($I11)
+ ($P10) = rx285_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx285_pos, "")
+ rx285_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_285_done
- rxcap_285_fail:
- goto rx281_fail
- rxcap_285_done:
+ goto rxcap_289_done
+ rxcap_289_fail:
+ goto rx285_fail
+ rxcap_289_done:
# rx charclass s
- 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
+ ge rx285_pos, rx285_eos, rx285_fail
+ sub $I10, rx285_pos, rx285_off
+ is_cclass $I11, 32, rx285_tgt, $I10
+ unless $I11, rx285_fail
+ inc rx285_pos
+ # rx subrule "ws" subtype=method negate=
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
+.annotate 'line', 166
# rx subrule "xblock" subtype=capture negate=
- rx281_cur."!cursor_pos"(rx281_pos)
- $P10 = rx281_cur."xblock"()
- unless $P10, rx281_fail
- rx281_cur."!mark_push"(0, -1, 0, $P10)
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."xblock"()
+ unless $P10, rx285_fail
+ rx285_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- 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_0:
-.annotate 'line', 166
- set_addr $I10, alt288_1
- rx281_cur."!mark_push"(0, rx281_pos, $I10)
+ rx285_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"()
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
+ alt292_0:
+.annotate 'line', 167
+ set_addr $I10, alt292_1
+ rx285_cur."!mark_push"(0, rx285_pos, $I10)
+ # rx subrule "ws" subtype=method negate=
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
# rx subrule "before" subtype=zerowidth negate=1
- 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"()
+ rx285_cur."!cursor_pos"(rx285_pos)
+ .const 'Sub' $P295 = "66_1275811487.95429"
+ capture_lex $P295
+ $P10 = rx285_cur."before"($P295)
+ if $P10, rx285_fail
+ # rx subrule "ws" subtype=method negate=
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
+ goto alt292_end
+ alt292_1:
+ # rx subrule "ws" subtype=method negate=
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- 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
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."panic"("unless does not take \"else\", please rewrite using \"if\"")
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
+ alt292_end:
+ # rx subrule "ws" subtype=method negate=
+ rx285_cur."!cursor_pos"(rx285_pos)
+ $P10 = rx285_cur."ws"()
+ unless $P10, rx285_fail
+ rx285_pos = $P10."pos"()
+.annotate 'line', 164
# rx pass
- 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:
+ rx285_cur."!cursor_pass"(rx285_pos, "statement_control:sym<unless>")
+ rx285_cur."!cursor_debug"("PASS ", "statement_control:sym<unless>", " at pos=", rx285_pos)
+ .return (rx285_cur)
+ rx285_fail:
.annotate 'line', 4
- (rx281_rep, rx281_pos, $I10, $P10) = rx281_cur."!mark_fail"(0)
- lt rx281_pos, -1, rx281_done
- eq rx281_pos, -1, rx281_fail
+ (rx285_rep, rx285_pos, $I10, $P10) = rx285_cur."!mark_fail"(0)
+ lt rx285_pos, -1, rx285_done
+ eq rx285_pos, -1, rx285_fail
jump $I10
- rx281_done:
- rx281_cur."!cursor_fail"()
- rx281_cur."!cursor_debug"("FAIL ", "statement_control:sym<unless>")
- .return (rx281_cur)
+ rx285_done:
+ rx285_cur."!cursor_fail"()
+ rx285_cur."!cursor_debug"("FAIL ", "statement_control:sym<unless>")
+ .return (rx285_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<unless>" :subid("65_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<unless>" :subid("65_1275811487.95429") :method
.annotate 'line', 4
- new $P283, "ResizablePMCArray"
- push $P283, "unless"
- .return ($P283)
+ new $P287, "ResizablePMCArray"
+ push $P287, "unless"
+ .return ($P287)
.end
.namespace ["NQP";"Grammar"]
-.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:
+.sub "_block294" :anon :subid("66_1275811487.95429") :method :outer("64_1275811487.95429")
+.annotate 'line', 167
+ .local string rx296_tgt
+ .local int rx296_pos
+ .local int rx296_off
+ .local int rx296_eos
+ .local int rx296_rep
+ .local pmc rx296_cur
+ (rx296_cur, rx296_pos, rx296_tgt) = self."!cursor_start"()
+ rx296_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx296_cur
+ .local pmc match
+ .lex "$/", match
+ length rx296_eos, rx296_tgt
+ gt rx296_pos, rx296_eos, rx296_done
+ set rx296_off, 0
+ lt rx296_pos, 2, rx296_start
+ sub rx296_off, rx296_pos, 1
+ substr rx296_tgt, rx296_tgt, rx296_off
+ rx296_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan297_done
+ goto rxscan297_scan
+ rxscan297_loop:
+ ($P10) = rx296_cur."from"()
+ inc $P10
+ set rx296_pos, $P10
+ ge rx296_pos, rx296_eos, rxscan297_done
+ rxscan297_scan:
+ set_addr $I10, rxscan297_loop
+ rx296_cur."!mark_push"(0, rx296_pos, $I10)
+ rxscan297_done:
# rx literal "else"
- 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)
+ add $I11, rx296_pos, 4
+ gt $I11, rx296_eos, rx296_fail
+ sub $I11, rx296_pos, rx296_off
+ substr $S10, rx296_tgt, $I11, 4
+ ne $S10, "else", rx296_fail
+ add rx296_pos, 4
+ # rx pass
+ rx296_cur."!cursor_pass"(rx296_pos, "")
+ rx296_cur."!cursor_debug"("PASS ", "", " at pos=", rx296_pos)
+ .return (rx296_cur)
+ rx296_fail:
+ (rx296_rep, rx296_pos, $I10, $P10) = rx296_cur."!mark_fail"(0)
+ lt rx296_pos, -1, rx296_done
+ eq rx296_pos, -1, rx296_fail
+ jump $I10
+ rx296_done:
+ rx296_cur."!cursor_fail"()
+ rx296_cur."!cursor_debug"("FAIL ", "")
+ .return (rx296_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "statement_control:sym<while>" :subid("67_1275811487.95429") :method :outer("11_1275811487.95429")
+.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<while>")
+ .lex unicode:"$\x{a2}", rx303_cur
+ .local pmc match
+ .lex "$/", match
+ length rx303_eos, rx303_tgt
+ gt rx303_pos, rx303_eos, rx303_done
+ 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:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan306_done
+ goto rxscan306_scan
+ rxscan306_loop:
+ ($P10) = rx303_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', 171
# rx subcapture "sym"
- 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)
+ set_addr $I10, rxcap_308_fail
+ rx303_cur."!mark_push"(0, rx303_pos, $I10)
+ alt307_0:
+ set_addr $I10, alt307_1
+ rx303_cur."!mark_push"(0, rx303_pos, $I10)
# rx literal "while"
- 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:
+ 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 alt307_end
+ alt307_1:
# rx literal "until"
- 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)
+ 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
+ alt307_end:
+ set_addr $I10, rxcap_308_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)
$P10."!cursor_names"("sym")
- goto rxcap_304_done
- rxcap_304_fail:
- goto rx299_fail
- rxcap_304_done:
+ goto rxcap_308_done
+ rxcap_308_fail:
+ goto rx303_fail
+ rxcap_308_done:
# rx charclass s
- 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
+ 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"()
+.annotate 'line', 172
# rx subrule "xblock" subtype=capture negate=
- rx299_cur."!cursor_pos"(rx299_pos)
- $P10 = rx299_cur."xblock"()
- unless $P10, rx299_fail
- rx299_cur."!mark_push"(0, -1, 0, $P10)
+ rx303_cur."!cursor_pos"(rx303_pos)
+ $P10 = rx303_cur."xblock"()
+ unless $P10, rx303_fail
+ rx303_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx299_pos = $P10."pos"()
+ rx303_pos = $P10."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', 169
+ rx303_cur."!cursor_pos"(rx303_pos)
+ $P10 = rx303_cur."ws"()
+ unless $P10, rx303_fail
+ rx303_pos = $P10."pos"()
+.annotate 'line', 170
# rx pass
- 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:
+ rx303_cur."!cursor_pass"(rx303_pos, "statement_control:sym<while>")
+ rx303_cur."!cursor_debug"("PASS ", "statement_control:sym<while>", " at pos=", rx303_pos)
+ .return (rx303_cur)
+ rx303_fail:
.annotate 'line', 4
- (rx299_rep, rx299_pos, $I10, $P10) = rx299_cur."!mark_fail"(0)
- lt rx299_pos, -1, rx299_done
- eq rx299_pos, -1, rx299_fail
+ (rx303_rep, rx303_pos, $I10, $P10) = rx303_cur."!mark_fail"(0)
+ lt rx303_pos, -1, rx303_done
+ eq rx303_pos, -1, rx303_fail
jump $I10
- rx299_done:
- rx299_cur."!cursor_fail"()
- rx299_cur."!cursor_debug"("FAIL ", "statement_control:sym<while>")
- .return (rx299_cur)
+ rx303_done:
+ rx303_cur."!cursor_fail"()
+ rx303_cur."!cursor_debug"("FAIL ", "statement_control:sym<while>")
+ .return (rx303_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<while>" :subid("68_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<while>" :subid("68_1275811487.95429") :method
.annotate 'line', 4
- new $P301, "ResizablePMCArray"
- push $P301, "until"
- push $P301, "while"
- .return ($P301)
+ new $P305, "ResizablePMCArray"
+ push $P305, "until"
+ push $P305, "while"
+ .return ($P305)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<repeat>" :subid("69_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_control:sym<repeat>" :subid("69_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx312_tgt
+ .local int rx312_pos
+ .local int rx312_off
+ .local int rx312_eos
+ .local int rx312_rep
+ .local pmc rx312_cur
+ (rx312_cur, rx312_pos, rx312_tgt) = self."!cursor_start"()
+ rx312_cur."!cursor_debug"("START ", "statement_control:sym<repeat>")
+ .lex unicode:"$\x{a2}", rx312_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx312_eos, rx312_tgt
+ gt rx312_pos, rx312_eos, rx312_done
+ set rx312_off, 0
+ lt rx312_pos, 2, rx312_start
+ sub rx312_off, rx312_pos, 1
+ substr rx312_tgt, rx312_tgt, rx312_off
+ rx312_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan311_done
- goto rxscan311_scan
- rxscan311_loop:
- ($P10) = rx308_cur."from"()
+ ne $I10, -1, rxscan315_done
+ goto rxscan315_scan
+ rxscan315_loop:
+ ($P10) = rx312_cur."from"()
inc $P10
- 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
+ set rx312_pos, $P10
+ ge rx312_pos, rx312_eos, rxscan315_done
+ rxscan315_scan:
+ set_addr $I10, rxscan315_loop
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
+ rxscan315_done:
+.annotate 'line', 176
# rx subcapture "sym"
- set_addr $I10, rxcap_312_fail
- rx308_cur."!mark_push"(0, rx308_pos, $I10)
+ set_addr $I10, rxcap_316_fail
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
# rx literal "repeat"
- 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)
+ add $I11, rx312_pos, 6
+ gt $I11, rx312_eos, rx312_fail
+ sub $I11, rx312_pos, rx312_off
+ substr $S10, rx312_tgt, $I11, 6
+ ne $S10, "repeat", rx312_fail
+ add rx312_pos, 6
+ set_addr $I10, rxcap_316_fail
+ ($I12, $I11) = rx312_cur."!mark_peek"($I10)
+ rx312_cur."!cursor_pos"($I11)
+ ($P10) = rx312_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx312_pos, "")
+ rx312_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_312_done
- rxcap_312_fail:
- goto rx308_fail
- rxcap_312_done:
+ goto rxcap_316_done
+ rxcap_316_fail:
+ goto rx312_fail
+ rxcap_316_done:
# rx charclass s
- 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)
+ ge rx312_pos, rx312_eos, rx312_fail
+ sub $I10, rx312_pos, rx312_off
+ is_cclass $I11, 32, rx312_tgt, $I10
+ unless $I11, rx312_fail
+ inc rx312_pos
+ # rx subrule "ws" subtype=method negate=
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
+ alt318_0:
.annotate 'line', 177
+ set_addr $I10, alt318_1
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
+.annotate 'line', 178
# rx subrule "ws" subtype=method negate=
- rx308_cur."!cursor_pos"(rx308_pos)
- $P10 = rx308_cur."ws"()
- unless $P10, rx308_fail
- rx308_pos = $P10."pos"()
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
# rx subcapture "wu"
- 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)
+ set_addr $I10, rxcap_321_fail
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
+ alt320_0:
+ set_addr $I10, alt320_1
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
# rx literal "while"
- 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:
+ add $I11, rx312_pos, 5
+ gt $I11, rx312_eos, rx312_fail
+ sub $I11, rx312_pos, rx312_off
+ substr $S10, rx312_tgt, $I11, 5
+ ne $S10, "while", rx312_fail
+ add rx312_pos, 5
+ goto alt320_end
+ alt320_1:
# rx literal "until"
- 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)
+ add $I11, rx312_pos, 5
+ gt $I11, rx312_eos, rx312_fail
+ sub $I11, rx312_pos, rx312_off
+ substr $S10, rx312_tgt, $I11, 5
+ ne $S10, "until", rx312_fail
+ add rx312_pos, 5
+ alt320_end:
+ set_addr $I10, rxcap_321_fail
+ ($I12, $I11) = rx312_cur."!mark_peek"($I10)
+ rx312_cur."!cursor_pos"($I11)
+ ($P10) = rx312_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx312_pos, "")
+ rx312_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("wu")
- goto rxcap_317_done
- rxcap_317_fail:
- goto rx308_fail
- rxcap_317_done:
+ goto rxcap_321_done
+ rxcap_321_fail:
+ goto rx312_fail
+ rxcap_321_done:
# rx charclass s
- 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"()
+ ge rx312_pos, rx312_eos, rx312_fail
+ sub $I10, rx312_pos, rx312_off
+ is_cclass $I11, 32, rx312_tgt, $I10
+ unless $I11, rx312_fail
+ inc rx312_pos
+ # rx subrule "ws" subtype=method negate=
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
# rx subrule "xblock" subtype=capture negate=
- rx308_cur."!cursor_pos"(rx308_pos)
- $P10 = rx308_cur."xblock"()
- unless $P10, rx308_fail
- rx308_cur."!mark_push"(0, -1, 0, $P10)
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."xblock"()
+ unless $P10, rx312_fail
+ rx312_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx308_pos = $P10."pos"()
+ rx312_pos = $P10."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"()
- goto alt314_end
- alt314_1:
-.annotate 'line', 178
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
+ goto alt318_end
+ alt318_1:
+.annotate 'line', 179
# rx subrule "ws" subtype=method negate=
- rx308_cur."!cursor_pos"(rx308_pos)
- $P10 = rx308_cur."ws"()
- unless $P10, rx308_fail
- rx308_pos = $P10."pos"()
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
# rx subrule "pblock" subtype=capture negate=
- rx308_cur."!cursor_pos"(rx308_pos)
- $P10 = rx308_cur."pblock"()
- unless $P10, rx308_fail
- rx308_cur."!mark_push"(0, -1, 0, $P10)
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."pblock"()
+ unless $P10, rx312_fail
+ rx312_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pblock")
- rx308_pos = $P10."pos"()
+ rx312_pos = $P10."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"()
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
# rx subcapture "wu"
- 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)
+ set_addr $I10, rxcap_327_fail
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
+ alt326_0:
+ set_addr $I10, alt326_1
+ rx312_cur."!mark_push"(0, rx312_pos, $I10)
# rx literal "while"
- 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:
+ add $I11, rx312_pos, 5
+ gt $I11, rx312_eos, rx312_fail
+ sub $I11, rx312_pos, rx312_off
+ substr $S10, rx312_tgt, $I11, 5
+ ne $S10, "while", rx312_fail
+ add rx312_pos, 5
+ goto alt326_end
+ alt326_1:
# rx literal "until"
- 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)
+ add $I11, rx312_pos, 5
+ gt $I11, rx312_eos, rx312_fail
+ sub $I11, rx312_pos, rx312_off
+ substr $S10, rx312_tgt, $I11, 5
+ ne $S10, "until", rx312_fail
+ add rx312_pos, 5
+ alt326_end:
+ set_addr $I10, rxcap_327_fail
+ ($I12, $I11) = rx312_cur."!mark_peek"($I10)
+ rx312_cur."!cursor_pos"($I11)
+ ($P10) = rx312_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx312_pos, "")
+ rx312_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("wu")
- goto rxcap_323_done
- rxcap_323_fail:
- goto rx308_fail
- rxcap_323_done:
+ goto rxcap_327_done
+ rxcap_327_fail:
+ goto rx312_fail
+ rxcap_327_done:
# rx charclass s
- 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"()
+ ge rx312_pos, rx312_eos, rx312_fail
+ sub $I10, rx312_pos, rx312_off
+ is_cclass $I11, 32, rx312_tgt, $I10
+ unless $I11, rx312_fail
+ inc rx312_pos
+ # rx subrule "ws" subtype=method negate=
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx308_cur."!cursor_pos"(rx308_pos)
- $P10 = rx308_cur."EXPR"()
- unless $P10, rx308_fail
- rx308_cur."!mark_push"(0, -1, 0, $P10)
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."EXPR"()
+ unless $P10, rx312_fail
+ rx312_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx308_pos = $P10."pos"()
+ rx312_pos = $P10."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_end:
-.annotate 'line', 179
- # rx subrule "ws" subtype=method negate=
- rx308_cur."!cursor_pos"(rx308_pos)
- $P10 = rx308_cur."ws"()
- unless $P10, rx308_fail
- rx308_pos = $P10."pos"()
-.annotate 'line', 174
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
+ alt318_end:
+.annotate 'line', 180
+ # rx subrule "ws" subtype=method negate=
+ rx312_cur."!cursor_pos"(rx312_pos)
+ $P10 = rx312_cur."ws"()
+ unless $P10, rx312_fail
+ rx312_pos = $P10."pos"()
+.annotate 'line', 175
# rx pass
- 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:
+ rx312_cur."!cursor_pass"(rx312_pos, "statement_control:sym<repeat>")
+ rx312_cur."!cursor_debug"("PASS ", "statement_control:sym<repeat>", " at pos=", rx312_pos)
+ .return (rx312_cur)
+ rx312_fail:
.annotate 'line', 4
- (rx308_rep, rx308_pos, $I10, $P10) = rx308_cur."!mark_fail"(0)
- lt rx308_pos, -1, rx308_done
- eq rx308_pos, -1, rx308_fail
+ (rx312_rep, rx312_pos, $I10, $P10) = rx312_cur."!mark_fail"(0)
+ lt rx312_pos, -1, rx312_done
+ eq rx312_pos, -1, rx312_fail
jump $I10
- rx308_done:
- rx308_cur."!cursor_fail"()
- rx308_cur."!cursor_debug"("FAIL ", "statement_control:sym<repeat>")
- .return (rx308_cur)
+ rx312_done:
+ rx312_cur."!cursor_fail"()
+ rx312_cur."!cursor_debug"("FAIL ", "statement_control:sym<repeat>")
+ .return (rx312_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<repeat>" :subid("70_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<repeat>" :subid("70_1275811487.95429") :method
.annotate 'line', 4
- new $P310, "ResizablePMCArray"
- push $P310, "repeat"
- .return ($P310)
+ new $P314, "ResizablePMCArray"
+ push $P314, "repeat"
+ .return ($P314)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<for>" :subid("71_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_control:sym<for>" :subid("71_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx332_tgt
+ .local int rx332_pos
+ .local int rx332_off
+ .local int rx332_eos
+ .local int rx332_rep
+ .local pmc rx332_cur
+ (rx332_cur, rx332_pos, rx332_tgt) = self."!cursor_start"()
+ rx332_cur."!cursor_debug"("START ", "statement_control:sym<for>")
+ .lex unicode:"$\x{a2}", rx332_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx332_eos, rx332_tgt
+ gt rx332_pos, rx332_eos, rx332_done
+ set rx332_off, 0
+ lt rx332_pos, 2, rx332_start
+ sub rx332_off, rx332_pos, 1
+ substr rx332_tgt, rx332_tgt, rx332_off
+ rx332_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan331_done
- goto rxscan331_scan
- rxscan331_loop:
- ($P10) = rx328_cur."from"()
+ ne $I10, -1, rxscan335_done
+ goto rxscan335_scan
+ rxscan335_loop:
+ ($P10) = rx332_cur."from"()
inc $P10
- 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
+ set rx332_pos, $P10
+ ge rx332_pos, rx332_eos, rxscan335_done
+ rxscan335_scan:
+ set_addr $I10, rxscan335_loop
+ rx332_cur."!mark_push"(0, rx332_pos, $I10)
+ rxscan335_done:
+.annotate 'line', 184
# rx subcapture "sym"
- set_addr $I10, rxcap_332_fail
- rx328_cur."!mark_push"(0, rx328_pos, $I10)
+ set_addr $I10, rxcap_336_fail
+ rx332_cur."!mark_push"(0, rx332_pos, $I10)
# rx literal "for"
- 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)
+ add $I11, rx332_pos, 3
+ gt $I11, rx332_eos, rx332_fail
+ sub $I11, rx332_pos, rx332_off
+ substr $S10, rx332_tgt, $I11, 3
+ ne $S10, "for", rx332_fail
+ add rx332_pos, 3
+ set_addr $I10, rxcap_336_fail
+ ($I12, $I11) = rx332_cur."!mark_peek"($I10)
+ rx332_cur."!cursor_pos"($I11)
+ ($P10) = rx332_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx332_pos, "")
+ rx332_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_332_done
- rxcap_332_fail:
- goto rx328_fail
- rxcap_332_done:
+ goto rxcap_336_done
+ rxcap_336_fail:
+ goto rx332_fail
+ rxcap_336_done:
# rx charclass s
- 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
+ ge rx332_pos, rx332_eos, rx332_fail
+ sub $I10, rx332_pos, rx332_off
+ is_cclass $I11, 32, rx332_tgt, $I10
+ unless $I11, rx332_fail
+ inc rx332_pos
+ # rx subrule "ws" subtype=method negate=
+ rx332_cur."!cursor_pos"(rx332_pos)
+ $P10 = rx332_cur."ws"()
+ unless $P10, rx332_fail
+ rx332_pos = $P10."pos"()
+.annotate 'line', 185
# rx subrule "xblock" subtype=capture negate=
- rx328_cur."!cursor_pos"(rx328_pos)
- $P10 = rx328_cur."xblock"()
- unless $P10, rx328_fail
- rx328_cur."!mark_push"(0, -1, 0, $P10)
+ rx332_cur."!cursor_pos"(rx332_pos)
+ $P10 = rx332_cur."xblock"()
+ unless $P10, rx332_fail
+ rx332_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("xblock")
- rx328_pos = $P10."pos"()
+ rx332_pos = $P10."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', 182
+ rx332_cur."!cursor_pos"(rx332_pos)
+ $P10 = rx332_cur."ws"()
+ unless $P10, rx332_fail
+ rx332_pos = $P10."pos"()
+.annotate 'line', 183
# rx pass
- 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:
+ rx332_cur."!cursor_pass"(rx332_pos, "statement_control:sym<for>")
+ rx332_cur."!cursor_debug"("PASS ", "statement_control:sym<for>", " at pos=", rx332_pos)
+ .return (rx332_cur)
+ rx332_fail:
.annotate 'line', 4
- (rx328_rep, rx328_pos, $I10, $P10) = rx328_cur."!mark_fail"(0)
- lt rx328_pos, -1, rx328_done
- eq rx328_pos, -1, rx328_fail
+ (rx332_rep, rx332_pos, $I10, $P10) = rx332_cur."!mark_fail"(0)
+ lt rx332_pos, -1, rx332_done
+ eq rx332_pos, -1, rx332_fail
jump $I10
- rx328_done:
- rx328_cur."!cursor_fail"()
- rx328_cur."!cursor_debug"("FAIL ", "statement_control:sym<for>")
- .return (rx328_cur)
+ rx332_done:
+ rx332_cur."!cursor_fail"()
+ rx332_cur."!cursor_debug"("FAIL ", "statement_control:sym<for>")
+ .return (rx332_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<for>" :subid("72_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<for>" :subid("72_1275811487.95429") :method
.annotate 'line', 4
- new $P330, "ResizablePMCArray"
- push $P330, "for"
- .return ($P330)
+ new $P334, "ResizablePMCArray"
+ push $P334, "for"
+ .return ($P334)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<CATCH>" :subid("73_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_control:sym<CATCH>" :subid("73_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx340_tgt
+ .local int rx340_pos
+ .local int rx340_off
+ .local int rx340_eos
+ .local int rx340_rep
+ .local pmc rx340_cur
+ (rx340_cur, rx340_pos, rx340_tgt) = self."!cursor_start"()
+ rx340_cur."!cursor_debug"("START ", "statement_control:sym<CATCH>")
+ .lex unicode:"$\x{a2}", rx340_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:
+ length rx340_eos, rx340_tgt
+ gt rx340_pos, rx340_eos, rx340_done
+ set rx340_off, 0
+ lt rx340_pos, 2, rx340_start
+ sub rx340_off, rx340_pos, 1
+ substr rx340_tgt, rx340_tgt, rx340_off
+ rx340_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan339_done
- goto rxscan339_scan
- rxscan339_loop:
- ($P10) = rx336_cur."from"()
+ ne $I10, -1, rxscan343_done
+ goto rxscan343_scan
+ rxscan343_loop:
+ ($P10) = rx340_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
+ set rx340_pos, $P10
+ ge rx340_pos, rx340_eos, rxscan343_done
+ rxscan343_scan:
+ set_addr $I10, rxscan343_loop
+ rx340_cur."!mark_push"(0, rx340_pos, $I10)
+ rxscan343_done:
+.annotate 'line', 189
# rx subcapture "sym"
- set_addr $I10, rxcap_340_fail
- rx336_cur."!mark_push"(0, rx336_pos, $I10)
+ set_addr $I10, rxcap_344_fail
+ rx340_cur."!mark_push"(0, rx340_pos, $I10)
# rx literal "CATCH"
- 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)
+ add $I11, rx340_pos, 5
+ gt $I11, rx340_eos, rx340_fail
+ sub $I11, rx340_pos, rx340_off
+ substr $S10, rx340_tgt, $I11, 5
+ ne $S10, "CATCH", rx340_fail
+ add rx340_pos, 5
+ set_addr $I10, rxcap_344_fail
+ ($I12, $I11) = rx340_cur."!mark_peek"($I10)
+ rx340_cur."!cursor_pos"($I11)
+ ($P10) = rx340_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx340_pos, "")
+ rx340_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_340_done
- rxcap_340_fail:
- goto rx336_fail
- rxcap_340_done:
+ goto rxcap_344_done
+ rxcap_344_fail:
+ goto rx340_fail
+ rxcap_344_done:
# rx charclass s
- 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
+ ge rx340_pos, rx340_eos, rx340_fail
+ sub $I10, rx340_pos, rx340_off
+ is_cclass $I11, 32, rx340_tgt, $I10
+ unless $I11, rx340_fail
+ inc rx340_pos
+ # rx subrule "ws" subtype=method negate=
+ rx340_cur."!cursor_pos"(rx340_pos)
+ $P10 = rx340_cur."ws"()
+ unless $P10, rx340_fail
+ rx340_pos = $P10."pos"()
+.annotate 'line', 190
# rx subrule "block" subtype=capture negate=
- rx336_cur."!cursor_pos"(rx336_pos)
- $P10 = rx336_cur."block"()
- unless $P10, rx336_fail
- rx336_cur."!mark_push"(0, -1, 0, $P10)
+ rx340_cur."!cursor_pos"(rx340_pos)
+ $P10 = rx340_cur."block"()
+ unless $P10, rx340_fail
+ rx340_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx336_pos = $P10."pos"()
+ rx340_pos = $P10."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', 187
+ rx340_cur."!cursor_pos"(rx340_pos)
+ $P10 = rx340_cur."ws"()
+ unless $P10, rx340_fail
+ rx340_pos = $P10."pos"()
+.annotate 'line', 188
# rx pass
- 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:
+ rx340_cur."!cursor_pass"(rx340_pos, "statement_control:sym<CATCH>")
+ rx340_cur."!cursor_debug"("PASS ", "statement_control:sym<CATCH>", " at pos=", rx340_pos)
+ .return (rx340_cur)
+ rx340_fail:
.annotate 'line', 4
- (rx336_rep, rx336_pos, $I10, $P10) = rx336_cur."!mark_fail"(0)
- lt rx336_pos, -1, rx336_done
- eq rx336_pos, -1, rx336_fail
+ (rx340_rep, rx340_pos, $I10, $P10) = rx340_cur."!mark_fail"(0)
+ lt rx340_pos, -1, rx340_done
+ eq rx340_pos, -1, rx340_fail
jump $I10
- rx336_done:
- rx336_cur."!cursor_fail"()
- rx336_cur."!cursor_debug"("FAIL ", "statement_control:sym<CATCH>")
- .return (rx336_cur)
+ rx340_done:
+ rx340_cur."!cursor_fail"()
+ rx340_cur."!cursor_debug"("FAIL ", "statement_control:sym<CATCH>")
+ .return (rx340_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<CATCH>" :subid("74_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<CATCH>" :subid("74_1275811487.95429") :method
.annotate 'line', 4
- new $P338, "ResizablePMCArray"
- push $P338, "CATCH"
- .return ($P338)
+ new $P342, "ResizablePMCArray"
+ push $P342, "CATCH"
+ .return ($P342)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_control:sym<CONTROL>" :subid("75_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_control:sym<CONTROL>" :subid("75_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx348_tgt
+ .local int rx348_pos
+ .local int rx348_off
+ .local int rx348_eos
+ .local int rx348_rep
+ .local pmc rx348_cur
+ (rx348_cur, rx348_pos, rx348_tgt) = self."!cursor_start"()
+ rx348_cur."!cursor_debug"("START ", "statement_control:sym<CONTROL>")
+ .lex unicode:"$\x{a2}", rx348_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx348_eos, rx348_tgt
+ gt rx348_pos, rx348_eos, rx348_done
+ set rx348_off, 0
+ lt rx348_pos, 2, rx348_start
+ sub rx348_off, rx348_pos, 1
+ substr rx348_tgt, rx348_tgt, rx348_off
+ rx348_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan347_done
- goto rxscan347_scan
- rxscan347_loop:
- ($P10) = rx344_cur."from"()
+ ne $I10, -1, rxscan351_done
+ goto rxscan351_scan
+ rxscan351_loop:
+ ($P10) = rx348_cur."from"()
inc $P10
- 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
+ set rx348_pos, $P10
+ ge rx348_pos, rx348_eos, rxscan351_done
+ rxscan351_scan:
+ set_addr $I10, rxscan351_loop
+ rx348_cur."!mark_push"(0, rx348_pos, $I10)
+ rxscan351_done:
+.annotate 'line', 194
# rx subcapture "sym"
- set_addr $I10, rxcap_348_fail
- rx344_cur."!mark_push"(0, rx344_pos, $I10)
+ set_addr $I10, rxcap_352_fail
+ rx348_cur."!mark_push"(0, rx348_pos, $I10)
# rx literal "CONTROL"
- 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)
+ add $I11, rx348_pos, 7
+ gt $I11, rx348_eos, rx348_fail
+ sub $I11, rx348_pos, rx348_off
+ substr $S10, rx348_tgt, $I11, 7
+ ne $S10, "CONTROL", rx348_fail
+ add rx348_pos, 7
+ set_addr $I10, rxcap_352_fail
+ ($I12, $I11) = rx348_cur."!mark_peek"($I10)
+ rx348_cur."!cursor_pos"($I11)
+ ($P10) = rx348_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx348_pos, "")
+ rx348_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_348_done
- rxcap_348_fail:
- goto rx344_fail
- rxcap_348_done:
+ goto rxcap_352_done
+ rxcap_352_fail:
+ goto rx348_fail
+ rxcap_352_done:
# rx charclass s
- 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
+ ge rx348_pos, rx348_eos, rx348_fail
+ sub $I10, rx348_pos, rx348_off
+ is_cclass $I11, 32, rx348_tgt, $I10
+ unless $I11, rx348_fail
+ inc rx348_pos
+ # rx subrule "ws" subtype=method negate=
+ rx348_cur."!cursor_pos"(rx348_pos)
+ $P10 = rx348_cur."ws"()
+ unless $P10, rx348_fail
+ rx348_pos = $P10."pos"()
+.annotate 'line', 195
# rx subrule "block" subtype=capture negate=
- rx344_cur."!cursor_pos"(rx344_pos)
- $P10 = rx344_cur."block"()
- unless $P10, rx344_fail
- rx344_cur."!mark_push"(0, -1, 0, $P10)
+ rx348_cur."!cursor_pos"(rx348_pos)
+ $P10 = rx348_cur."block"()
+ unless $P10, rx348_fail
+ rx348_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx344_pos = $P10."pos"()
+ rx348_pos = $P10."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', 192
+ rx348_cur."!cursor_pos"(rx348_pos)
+ $P10 = rx348_cur."ws"()
+ unless $P10, rx348_fail
+ rx348_pos = $P10."pos"()
+.annotate 'line', 193
# rx pass
- 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:
+ rx348_cur."!cursor_pass"(rx348_pos, "statement_control:sym<CONTROL>")
+ rx348_cur."!cursor_debug"("PASS ", "statement_control:sym<CONTROL>", " at pos=", rx348_pos)
+ .return (rx348_cur)
+ rx348_fail:
.annotate 'line', 4
- (rx344_rep, rx344_pos, $I10, $P10) = rx344_cur."!mark_fail"(0)
- lt rx344_pos, -1, rx344_done
- eq rx344_pos, -1, rx344_fail
+ (rx348_rep, rx348_pos, $I10, $P10) = rx348_cur."!mark_fail"(0)
+ lt rx348_pos, -1, rx348_done
+ eq rx348_pos, -1, rx348_fail
jump $I10
- rx344_done:
- rx344_cur."!cursor_fail"()
- rx344_cur."!cursor_debug"("FAIL ", "statement_control:sym<CONTROL>")
- .return (rx344_cur)
+ rx348_done:
+ rx348_cur."!cursor_fail"()
+ rx348_cur."!cursor_debug"("FAIL ", "statement_control:sym<CONTROL>")
+ .return (rx348_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_control:sym<CONTROL>" :subid("76_1275117591.97262") :method
+.sub "!PREFIX__statement_control:sym<CONTROL>" :subid("76_1275811487.95429") :method
.annotate 'line', 4
- new $P346, "ResizablePMCArray"
- push $P346, "CONTROL"
- .return ($P346)
+ new $P350, "ResizablePMCArray"
+ push $P350, "CONTROL"
+ .return ($P350)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_prefix" :subid("77_1275117591.97262") :method
-.annotate 'line', 197
- $P352 = self."!protoregex"("statement_prefix")
- .return ($P352)
+.sub "statement_prefix" :subid("77_1275811487.95429") :method
+.annotate 'line', 198
+ $P356 = self."!protoregex"("statement_prefix")
+ .return ($P356)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_prefix" :subid("78_1275117591.97262") :method
-.annotate 'line', 197
- $P354 = self."!PREFIX__!protoregex"("statement_prefix")
- .return ($P354)
+.sub "!PREFIX__statement_prefix" :subid("78_1275811487.95429") :method
+.annotate 'line', 198
+ $P358 = self."!PREFIX__!protoregex"("statement_prefix")
+ .return ($P358)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_prefix:sym<INIT>" :subid("79_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_prefix:sym<INIT>" :subid("79_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx360_tgt
+ .local int rx360_pos
+ .local int rx360_off
+ .local int rx360_eos
+ .local int rx360_rep
+ .local pmc rx360_cur
+ (rx360_cur, rx360_pos, rx360_tgt) = self."!cursor_start"()
+ rx360_cur."!cursor_debug"("START ", "statement_prefix:sym<INIT>")
+ .lex unicode:"$\x{a2}", rx360_cur
+ .local pmc match
+ .lex "$/", match
+ length rx360_eos, rx360_tgt
+ gt rx360_pos, rx360_eos, rx360_done
+ set rx360_off, 0
+ lt rx360_pos, 2, rx360_start
+ sub rx360_off, rx360_pos, 1
+ substr rx360_tgt, rx360_tgt, rx360_off
+ rx360_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan364_done
+ goto rxscan364_scan
+ rxscan364_loop:
+ ($P10) = rx360_cur."from"()
+ inc $P10
+ set rx360_pos, $P10
+ ge rx360_pos, rx360_eos, rxscan364_done
+ rxscan364_scan:
+ set_addr $I10, rxscan364_loop
+ rx360_cur."!mark_push"(0, rx360_pos, $I10)
+ rxscan364_done:
+.annotate 'line', 199
# rx subcapture "sym"
- set_addr $I10, rxcap_361_fail
- rx356_cur."!mark_push"(0, rx356_pos, $I10)
+ set_addr $I10, rxcap_365_fail
+ rx360_cur."!mark_push"(0, rx360_pos, $I10)
# rx literal "INIT"
- 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)
+ add $I11, rx360_pos, 4
+ gt $I11, rx360_eos, rx360_fail
+ sub $I11, rx360_pos, rx360_off
+ substr $S10, rx360_tgt, $I11, 4
+ ne $S10, "INIT", rx360_fail
+ add rx360_pos, 4
+ set_addr $I10, rxcap_365_fail
+ ($I12, $I11) = rx360_cur."!mark_peek"($I10)
+ rx360_cur."!cursor_pos"($I11)
+ ($P10) = rx360_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx360_pos, "")
+ rx360_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_361_done
- rxcap_361_fail:
- goto rx356_fail
- rxcap_361_done:
+ goto rxcap_365_done
+ rxcap_365_fail:
+ goto rx360_fail
+ rxcap_365_done:
# rx subrule "blorst" subtype=capture negate=
- rx356_cur."!cursor_pos"(rx356_pos)
- $P10 = rx356_cur."blorst"()
- unless $P10, rx356_fail
- rx356_cur."!mark_push"(0, -1, 0, $P10)
+ rx360_cur."!cursor_pos"(rx360_pos)
+ $P10 = rx360_cur."blorst"()
+ unless $P10, rx360_fail
+ rx360_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blorst")
- rx356_pos = $P10."pos"()
+ rx360_pos = $P10."pos"()
# rx pass
- 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:
+ rx360_cur."!cursor_pass"(rx360_pos, "statement_prefix:sym<INIT>")
+ rx360_cur."!cursor_debug"("PASS ", "statement_prefix:sym<INIT>", " at pos=", rx360_pos)
+ .return (rx360_cur)
+ rx360_fail:
.annotate 'line', 4
- (rx356_rep, rx356_pos, $I10, $P10) = rx356_cur."!mark_fail"(0)
- lt rx356_pos, -1, rx356_done
- eq rx356_pos, -1, rx356_fail
+ (rx360_rep, rx360_pos, $I10, $P10) = rx360_cur."!mark_fail"(0)
+ lt rx360_pos, -1, rx360_done
+ eq rx360_pos, -1, rx360_fail
jump $I10
- rx356_done:
- rx356_cur."!cursor_fail"()
- rx356_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<INIT>")
- .return (rx356_cur)
+ rx360_done:
+ rx360_cur."!cursor_fail"()
+ rx360_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<INIT>")
+ .return (rx360_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_prefix:sym<INIT>" :subid("80_1275117591.97262") :method
+.sub "!PREFIX__statement_prefix:sym<INIT>" :subid("80_1275811487.95429") :method
.annotate 'line', 4
- $P358 = self."!PREFIX__!subrule"("blorst", "INIT")
- new $P359, "ResizablePMCArray"
- push $P359, $P358
- .return ($P359)
+ $P362 = self."!PREFIX__!subrule"("blorst", "INIT")
+ new $P363, "ResizablePMCArray"
+ push $P363, $P362
+ .return ($P363)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_prefix:sym<try>" :subid("81_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_prefix:sym<try>" :subid("81_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx367_tgt
+ .local int rx367_pos
+ .local int rx367_off
+ .local int rx367_eos
+ .local int rx367_rep
+ .local pmc rx367_cur
+ (rx367_cur, rx367_pos, rx367_tgt) = self."!cursor_start"()
+ rx367_cur."!cursor_debug"("START ", "statement_prefix:sym<try>")
+ .lex unicode:"$\x{a2}", rx367_cur
+ .local pmc match
+ .lex "$/", match
+ length rx367_eos, rx367_tgt
+ gt rx367_pos, rx367_eos, rx367_done
+ set rx367_off, 0
+ lt rx367_pos, 2, rx367_start
+ sub rx367_off, rx367_pos, 1
+ substr rx367_tgt, rx367_tgt, rx367_off
+ rx367_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan371_done
+ goto rxscan371_scan
+ rxscan371_loop:
+ ($P10) = rx367_cur."from"()
+ inc $P10
+ set rx367_pos, $P10
+ ge rx367_pos, rx367_eos, rxscan371_done
+ rxscan371_scan:
+ set_addr $I10, rxscan371_loop
+ rx367_cur."!mark_push"(0, rx367_pos, $I10)
+ rxscan371_done:
+.annotate 'line', 202
# rx subcapture "sym"
- set_addr $I10, rxcap_368_fail
- rx363_cur."!mark_push"(0, rx363_pos, $I10)
+ set_addr $I10, rxcap_372_fail
+ rx367_cur."!mark_push"(0, rx367_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)
+ add $I11, rx367_pos, 3
+ gt $I11, rx367_eos, rx367_fail
+ sub $I11, rx367_pos, rx367_off
+ substr $S10, rx367_tgt, $I11, 3
+ ne $S10, "try", rx367_fail
+ add rx367_pos, 3
+ set_addr $I10, rxcap_372_fail
+ ($I12, $I11) = rx367_cur."!mark_peek"($I10)
+ rx367_cur."!cursor_pos"($I11)
+ ($P10) = rx367_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx367_pos, "")
+ rx367_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
+ goto rxcap_372_done
+ rxcap_372_fail:
+ goto rx367_fail
+ rxcap_372_done:
+.annotate 'line', 203
# rx subrule "blorst" subtype=capture negate=
- rx363_cur."!cursor_pos"(rx363_pos)
- $P10 = rx363_cur."blorst"()
- unless $P10, rx363_fail
- rx363_cur."!mark_push"(0, -1, 0, $P10)
+ rx367_cur."!cursor_pos"(rx367_pos)
+ $P10 = rx367_cur."blorst"()
+ unless $P10, rx367_fail
+ rx367_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blorst")
- rx363_pos = $P10."pos"()
-.annotate 'line', 200
+ rx367_pos = $P10."pos"()
+.annotate 'line', 201
# rx pass
- 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:
+ rx367_cur."!cursor_pass"(rx367_pos, "statement_prefix:sym<try>")
+ rx367_cur."!cursor_debug"("PASS ", "statement_prefix:sym<try>", " at pos=", rx367_pos)
+ .return (rx367_cur)
+ rx367_fail:
.annotate 'line', 4
- (rx363_rep, rx363_pos, $I10, $P10) = rx363_cur."!mark_fail"(0)
- lt rx363_pos, -1, rx363_done
- eq rx363_pos, -1, rx363_fail
+ (rx367_rep, rx367_pos, $I10, $P10) = rx367_cur."!mark_fail"(0)
+ lt rx367_pos, -1, rx367_done
+ eq rx367_pos, -1, rx367_fail
jump $I10
- rx363_done:
- rx363_cur."!cursor_fail"()
- rx363_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<try>")
- .return (rx363_cur)
+ rx367_done:
+ rx367_cur."!cursor_fail"()
+ rx367_cur."!cursor_debug"("FAIL ", "statement_prefix:sym<try>")
+ .return (rx367_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_prefix:sym<try>" :subid("82_1275117591.97262") :method
+.sub "!PREFIX__statement_prefix:sym<try>" :subid("82_1275811487.95429") :method
.annotate 'line', 4
- $P365 = self."!PREFIX__!subrule"("blorst", "try")
- new $P366, "ResizablePMCArray"
- push $P366, $P365
- .return ($P366)
+ $P369 = self."!PREFIX__!subrule"("blorst", "try")
+ new $P370, "ResizablePMCArray"
+ push $P370, $P369
+ .return ($P370)
.end
.namespace ["NQP";"Grammar"]
-.sub "blorst" :subid("83_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "blorst" :subid("83_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx374_tgt
+ .local int rx374_pos
+ .local int rx374_off
+ .local int rx374_eos
+ .local int rx374_rep
+ .local pmc rx374_cur
+ (rx374_cur, rx374_pos, rx374_tgt) = self."!cursor_start"()
+ rx374_cur."!cursor_debug"("START ", "blorst")
+ .lex unicode:"$\x{a2}", rx374_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx374_eos, rx374_tgt
+ gt rx374_pos, rx374_eos, rx374_done
+ set rx374_off, 0
+ lt rx374_pos, 2, rx374_start
+ sub rx374_off, rx374_pos, 1
+ substr rx374_tgt, rx374_tgt, rx374_off
+ rx374_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan373_done
- goto rxscan373_scan
- rxscan373_loop:
- ($P10) = rx370_cur."from"()
+ ne $I10, -1, rxscan377_done
+ goto rxscan377_scan
+ rxscan377_loop:
+ ($P10) = rx374_cur."from"()
inc $P10
- 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
+ set rx374_pos, $P10
+ ge rx374_pos, rx374_eos, rxscan377_done
+ rxscan377_scan:
+ set_addr $I10, rxscan377_loop
+ rx374_cur."!mark_push"(0, rx374_pos, $I10)
+ rxscan377_done:
+.annotate 'line', 207
# rx charclass s
- 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)
+ ge rx374_pos, rx374_eos, rx374_fail
+ sub $I10, rx374_pos, rx374_off
+ is_cclass $I11, 32, rx374_tgt, $I10
+ unless $I11, rx374_fail
+ inc rx374_pos
+ # rx subrule "ws" subtype=method negate=
+ rx374_cur."!cursor_pos"(rx374_pos)
+ $P10 = rx374_cur."ws"()
+ unless $P10, rx374_fail
+ rx374_pos = $P10."pos"()
+ alt378_0:
+ set_addr $I10, alt378_1
+ rx374_cur."!mark_push"(0, rx374_pos, $I10)
# rx enumcharlist negate=0 zerowidth
- ge rx370_pos, rx370_eos, rx370_fail
- sub $I10, rx370_pos, rx370_off
- substr $S10, rx370_tgt, $I10, 1
+ ge rx374_pos, rx374_eos, rx374_fail
+ sub $I10, rx374_pos, rx374_off
+ substr $S10, rx374_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx370_fail
+ lt $I11, 0, rx374_fail
# rx subrule "block" subtype=capture negate=
- rx370_cur."!cursor_pos"(rx370_pos)
- $P10 = rx370_cur."block"()
- unless $P10, rx370_fail
- rx370_cur."!mark_push"(0, -1, 0, $P10)
+ rx374_cur."!cursor_pos"(rx374_pos)
+ $P10 = rx374_cur."block"()
+ unless $P10, rx374_fail
+ rx374_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx370_pos = $P10."pos"()
- goto alt374_end
- alt374_1:
+ rx374_pos = $P10."pos"()
+ goto alt378_end
+ alt378_1:
# rx subrule "statement" subtype=capture negate=
- rx370_cur."!cursor_pos"(rx370_pos)
- $P10 = rx370_cur."statement"()
- unless $P10, rx370_fail
- rx370_cur."!mark_push"(0, -1, 0, $P10)
+ rx374_cur."!cursor_pos"(rx374_pos)
+ $P10 = rx374_cur."statement"()
+ unless $P10, rx374_fail
+ rx374_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement")
- rx370_pos = $P10."pos"()
- alt374_end:
-.annotate 'line', 205
+ rx374_pos = $P10."pos"()
+ alt378_end:
+.annotate 'line', 206
# rx pass
- rx370_cur."!cursor_pass"(rx370_pos, "blorst")
- rx370_cur."!cursor_debug"("PASS ", "blorst", " at pos=", rx370_pos)
- .return (rx370_cur)
- rx370_fail:
+ rx374_cur."!cursor_pass"(rx374_pos, "blorst")
+ rx374_cur."!cursor_debug"("PASS ", "blorst", " at pos=", rx374_pos)
+ .return (rx374_cur)
+ rx374_fail:
.annotate 'line', 4
- (rx370_rep, rx370_pos, $I10, $P10) = rx370_cur."!mark_fail"(0)
- lt rx370_pos, -1, rx370_done
- eq rx370_pos, -1, rx370_fail
+ (rx374_rep, rx374_pos, $I10, $P10) = rx374_cur."!mark_fail"(0)
+ lt rx374_pos, -1, rx374_done
+ eq rx374_pos, -1, rx374_fail
jump $I10
- rx370_done:
- rx370_cur."!cursor_fail"()
- rx370_cur."!cursor_debug"("FAIL ", "blorst")
- .return (rx370_cur)
+ rx374_done:
+ rx374_cur."!cursor_fail"()
+ rx374_cur."!cursor_debug"("FAIL ", "blorst")
+ .return (rx374_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__blorst" :subid("84_1275117591.97262") :method
+.sub "!PREFIX__blorst" :subid("84_1275811487.95429") :method
.annotate 'line', 4
- new $P372, "ResizablePMCArray"
- push $P372, ""
- .return ($P372)
+ new $P376, "ResizablePMCArray"
+ push $P376, ""
+ .return ($P376)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_cond" :subid("85_1275117591.97262") :method
-.annotate 'line', 211
- $P376 = self."!protoregex"("statement_mod_cond")
- .return ($P376)
+.sub "statement_mod_cond" :subid("85_1275811487.95429") :method
+.annotate 'line', 212
+ $P380 = self."!protoregex"("statement_mod_cond")
+ .return ($P380)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_cond" :subid("86_1275117591.97262") :method
-.annotate 'line', 211
- $P378 = self."!PREFIX__!protoregex"("statement_mod_cond")
- .return ($P378)
+.sub "!PREFIX__statement_mod_cond" :subid("86_1275811487.95429") :method
+.annotate 'line', 212
+ $P382 = self."!PREFIX__!protoregex"("statement_mod_cond")
+ .return ($P382)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_cond:sym<if>" :subid("87_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .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
+.sub "statement_mod_cond:sym<if>" :subid("87_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx384_tgt
+ .local int rx384_pos
+ .local int rx384_off
+ .local int rx384_eos
+ .local int rx384_rep
+ .local pmc rx384_cur
+ (rx384_cur, rx384_pos, rx384_tgt) = self."!cursor_start"()
+ rx384_cur."!cursor_debug"("START ", "statement_mod_cond:sym<if>")
+ .lex unicode:"$\x{a2}", rx384_cur
+ .local pmc match
+ .lex "$/", match
+ length rx384_eos, rx384_tgt
+ gt rx384_pos, rx384_eos, rx384_done
+ set rx384_off, 0
+ lt rx384_pos, 2, rx384_start
+ sub rx384_off, rx384_pos, 1
+ substr rx384_tgt, rx384_tgt, rx384_off
+ rx384_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan388_done
+ goto rxscan388_scan
+ rxscan388_loop:
+ ($P10) = rx384_cur."from"()
+ inc $P10
+ set rx384_pos, $P10
+ ge rx384_pos, rx384_eos, rxscan388_done
+ rxscan388_scan:
+ set_addr $I10, rxscan388_loop
+ rx384_cur."!mark_push"(0, rx384_pos, $I10)
+ rxscan388_done:
+.annotate 'line', 214
# rx subcapture "sym"
- set_addr $I10, rxcap_384_fail
- rx380_cur."!mark_push"(0, rx380_pos, $I10)
+ set_addr $I10, rxcap_389_fail
+ rx384_cur."!mark_push"(0, rx384_pos, $I10)
# rx literal "if"
- 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)
+ add $I11, rx384_pos, 2
+ gt $I11, rx384_eos, rx384_fail
+ sub $I11, rx384_pos, rx384_off
+ substr $S10, rx384_tgt, $I11, 2
+ ne $S10, "if", rx384_fail
+ add rx384_pos, 2
+ set_addr $I10, rxcap_389_fail
+ ($I12, $I11) = rx384_cur."!mark_peek"($I10)
+ rx384_cur."!cursor_pos"($I11)
+ ($P10) = rx384_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx384_pos, "")
+ rx384_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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"()
+ goto rxcap_389_done
+ rxcap_389_fail:
+ goto rx384_fail
+ rxcap_389_done:
+ # rx subrule "ws" subtype=method negate=
+ rx384_cur."!cursor_pos"(rx384_pos)
+ $P10 = rx384_cur."ws"()
+ unless $P10, rx384_fail
+ rx384_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx380_cur."!cursor_pos"(rx380_pos)
- $P10 = rx380_cur."EXPR"()
- unless $P10, rx380_fail
- rx380_cur."!mark_push"(0, -1, 0, $P10)
+ rx384_cur."!cursor_pos"(rx384_pos)
+ $P10 = rx384_cur."EXPR"()
+ unless $P10, rx384_fail
+ rx384_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx380_pos = $P10."pos"()
+ rx384_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx380_cur."!cursor_pos"(rx380_pos)
- $P10 = rx380_cur."ws"()
- unless $P10, rx380_fail
- rx380_pos = $P10."pos"()
+ rx384_cur."!cursor_pos"(rx384_pos)
+ $P10 = rx384_cur."ws"()
+ unless $P10, rx384_fail
+ rx384_pos = $P10."pos"()
# rx pass
- 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:
+ rx384_cur."!cursor_pass"(rx384_pos, "statement_mod_cond:sym<if>")
+ rx384_cur."!cursor_debug"("PASS ", "statement_mod_cond:sym<if>", " at pos=", rx384_pos)
+ .return (rx384_cur)
+ rx384_fail:
.annotate 'line', 4
- (rx380_rep, rx380_pos, $I10, $P10) = rx380_cur."!mark_fail"(0)
- lt rx380_pos, -1, rx380_done
- eq rx380_pos, -1, rx380_fail
+ (rx384_rep, rx384_pos, $I10, $P10) = rx384_cur."!mark_fail"(0)
+ lt rx384_pos, -1, rx384_done
+ eq rx384_pos, -1, rx384_fail
jump $I10
- rx380_done:
- rx380_cur."!cursor_fail"()
- rx380_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<if>")
- .return (rx380_cur)
+ rx384_done:
+ rx384_cur."!cursor_fail"()
+ rx384_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<if>")
+ .return (rx384_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_cond:sym<if>" :subid("88_1275117591.97262") :method
+.sub "!PREFIX__statement_mod_cond:sym<if>" :subid("88_1275811487.95429") :method
.annotate 'line', 4
- new $P382, "ResizablePMCArray"
- push $P382, "if"
- .return ($P382)
+ $P386 = self."!PREFIX__!subrule"("ws", "if")
+ new $P387, "ResizablePMCArray"
+ push $P387, $P386
+ .return ($P387)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_cond:sym<unless>" :subid("89_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_mod_cond:sym<unless>" :subid("89_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan391_done
- goto rxscan391_scan
- rxscan391_loop:
- ($P10) = rx388_cur."from"()
- inc $P10
- 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
+ .local string rx393_tgt
+ .local int rx393_pos
+ .local int rx393_off
+ .local int rx393_eos
+ .local int rx393_rep
+ .local pmc rx393_cur
+ (rx393_cur, rx393_pos, rx393_tgt) = self."!cursor_start"()
+ rx393_cur."!cursor_debug"("START ", "statement_mod_cond:sym<unless>")
+ .lex unicode:"$\x{a2}", rx393_cur
+ .local pmc match
+ .lex "$/", match
+ length rx393_eos, rx393_tgt
+ gt rx393_pos, rx393_eos, rx393_done
+ set rx393_off, 0
+ lt rx393_pos, 2, rx393_start
+ sub rx393_off, rx393_pos, 1
+ substr rx393_tgt, rx393_tgt, rx393_off
+ rx393_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan397_done
+ goto rxscan397_scan
+ rxscan397_loop:
+ ($P10) = rx393_cur."from"()
+ inc $P10
+ set rx393_pos, $P10
+ ge rx393_pos, rx393_eos, rxscan397_done
+ rxscan397_scan:
+ set_addr $I10, rxscan397_loop
+ rx393_cur."!mark_push"(0, rx393_pos, $I10)
+ rxscan397_done:
+.annotate 'line', 215
# rx subcapture "sym"
- set_addr $I10, rxcap_392_fail
- rx388_cur."!mark_push"(0, rx388_pos, $I10)
+ set_addr $I10, rxcap_398_fail
+ rx393_cur."!mark_push"(0, rx393_pos, $I10)
# rx literal "unless"
- 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)
+ add $I11, rx393_pos, 6
+ gt $I11, rx393_eos, rx393_fail
+ sub $I11, rx393_pos, rx393_off
+ substr $S10, rx393_tgt, $I11, 6
+ ne $S10, "unless", rx393_fail
+ add rx393_pos, 6
+ set_addr $I10, rxcap_398_fail
+ ($I12, $I11) = rx393_cur."!mark_peek"($I10)
+ rx393_cur."!cursor_pos"($I11)
+ ($P10) = rx393_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx393_pos, "")
+ rx393_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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"()
+ goto rxcap_398_done
+ rxcap_398_fail:
+ goto rx393_fail
+ rxcap_398_done:
+ # rx subrule "ws" subtype=method negate=
+ rx393_cur."!cursor_pos"(rx393_pos)
+ $P10 = rx393_cur."ws"()
+ unless $P10, rx393_fail
+ rx393_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx388_cur."!cursor_pos"(rx388_pos)
- $P10 = rx388_cur."EXPR"()
- unless $P10, rx388_fail
- rx388_cur."!mark_push"(0, -1, 0, $P10)
+ rx393_cur."!cursor_pos"(rx393_pos)
+ $P10 = rx393_cur."EXPR"()
+ unless $P10, rx393_fail
+ rx393_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx388_pos = $P10."pos"()
+ rx393_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx388_cur."!cursor_pos"(rx388_pos)
- $P10 = rx388_cur."ws"()
- unless $P10, rx388_fail
- rx388_pos = $P10."pos"()
+ rx393_cur."!cursor_pos"(rx393_pos)
+ $P10 = rx393_cur."ws"()
+ unless $P10, rx393_fail
+ rx393_pos = $P10."pos"()
# rx pass
- 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:
+ rx393_cur."!cursor_pass"(rx393_pos, "statement_mod_cond:sym<unless>")
+ rx393_cur."!cursor_debug"("PASS ", "statement_mod_cond:sym<unless>", " at pos=", rx393_pos)
+ .return (rx393_cur)
+ rx393_fail:
.annotate 'line', 4
- (rx388_rep, rx388_pos, $I10, $P10) = rx388_cur."!mark_fail"(0)
- lt rx388_pos, -1, rx388_done
- eq rx388_pos, -1, rx388_fail
+ (rx393_rep, rx393_pos, $I10, $P10) = rx393_cur."!mark_fail"(0)
+ lt rx393_pos, -1, rx393_done
+ eq rx393_pos, -1, rx393_fail
jump $I10
- rx388_done:
- rx388_cur."!cursor_fail"()
- rx388_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<unless>")
- .return (rx388_cur)
+ rx393_done:
+ rx393_cur."!cursor_fail"()
+ rx393_cur."!cursor_debug"("FAIL ", "statement_mod_cond:sym<unless>")
+ .return (rx393_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_cond:sym<unless>" :subid("90_1275117591.97262") :method
+.sub "!PREFIX__statement_mod_cond:sym<unless>" :subid("90_1275811487.95429") :method
.annotate 'line', 4
- new $P390, "ResizablePMCArray"
- push $P390, "unless"
- .return ($P390)
+ $P395 = self."!PREFIX__!subrule"("ws", "unless")
+ new $P396, "ResizablePMCArray"
+ push $P396, $P395
+ .return ($P396)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_loop" :subid("91_1275117591.97262") :method
-.annotate 'line', 216
- $P396 = self."!protoregex"("statement_mod_loop")
- .return ($P396)
+.sub "statement_mod_loop" :subid("91_1275811487.95429") :method
+.annotate 'line', 217
+ $P402 = self."!protoregex"("statement_mod_loop")
+ .return ($P402)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_loop" :subid("92_1275117591.97262") :method
-.annotate 'line', 216
- $P398 = self."!PREFIX__!protoregex"("statement_mod_loop")
- .return ($P398)
+.sub "!PREFIX__statement_mod_loop" :subid("92_1275811487.95429") :method
+.annotate 'line', 217
+ $P404 = self."!PREFIX__!protoregex"("statement_mod_loop")
+ .return ($P404)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_loop:sym<while>" :subid("93_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .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
+.sub "statement_mod_loop:sym<while>" :subid("93_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx406_tgt
+ .local int rx406_pos
+ .local int rx406_off
+ .local int rx406_eos
+ .local int rx406_rep
+ .local pmc rx406_cur
+ (rx406_cur, rx406_pos, rx406_tgt) = self."!cursor_start"()
+ rx406_cur."!cursor_debug"("START ", "statement_mod_loop:sym<while>")
+ .lex unicode:"$\x{a2}", rx406_cur
+ .local pmc match
+ .lex "$/", match
+ length rx406_eos, rx406_tgt
+ gt rx406_pos, rx406_eos, rx406_done
+ set rx406_off, 0
+ lt rx406_pos, 2, rx406_start
+ sub rx406_off, rx406_pos, 1
+ substr rx406_tgt, rx406_tgt, rx406_off
+ rx406_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan410_done
+ goto rxscan410_scan
+ rxscan410_loop:
+ ($P10) = rx406_cur."from"()
+ inc $P10
+ set rx406_pos, $P10
+ ge rx406_pos, rx406_eos, rxscan410_done
+ rxscan410_scan:
+ set_addr $I10, rxscan410_loop
+ rx406_cur."!mark_push"(0, rx406_pos, $I10)
+ rxscan410_done:
+.annotate 'line', 219
# rx subcapture "sym"
- set_addr $I10, rxcap_404_fail
- rx400_cur."!mark_push"(0, rx400_pos, $I10)
+ set_addr $I10, rxcap_411_fail
+ rx406_cur."!mark_push"(0, rx406_pos, $I10)
# rx literal "while"
- 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)
+ add $I11, rx406_pos, 5
+ gt $I11, rx406_eos, rx406_fail
+ sub $I11, rx406_pos, rx406_off
+ substr $S10, rx406_tgt, $I11, 5
+ ne $S10, "while", rx406_fail
+ add rx406_pos, 5
+ set_addr $I10, rxcap_411_fail
+ ($I12, $I11) = rx406_cur."!mark_peek"($I10)
+ rx406_cur."!cursor_pos"($I11)
+ ($P10) = rx406_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx406_pos, "")
+ rx406_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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"()
+ goto rxcap_411_done
+ rxcap_411_fail:
+ goto rx406_fail
+ rxcap_411_done:
+ # rx subrule "ws" subtype=method negate=
+ rx406_cur."!cursor_pos"(rx406_pos)
+ $P10 = rx406_cur."ws"()
+ unless $P10, rx406_fail
+ rx406_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx400_cur."!cursor_pos"(rx400_pos)
- $P10 = rx400_cur."EXPR"()
- unless $P10, rx400_fail
- rx400_cur."!mark_push"(0, -1, 0, $P10)
+ rx406_cur."!cursor_pos"(rx406_pos)
+ $P10 = rx406_cur."EXPR"()
+ unless $P10, rx406_fail
+ rx406_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx400_pos = $P10."pos"()
+ rx406_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx400_cur."!cursor_pos"(rx400_pos)
- $P10 = rx400_cur."ws"()
- unless $P10, rx400_fail
- rx400_pos = $P10."pos"()
+ rx406_cur."!cursor_pos"(rx406_pos)
+ $P10 = rx406_cur."ws"()
+ unless $P10, rx406_fail
+ rx406_pos = $P10."pos"()
# rx pass
- 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:
+ rx406_cur."!cursor_pass"(rx406_pos, "statement_mod_loop:sym<while>")
+ rx406_cur."!cursor_debug"("PASS ", "statement_mod_loop:sym<while>", " at pos=", rx406_pos)
+ .return (rx406_cur)
+ rx406_fail:
.annotate 'line', 4
- (rx400_rep, rx400_pos, $I10, $P10) = rx400_cur."!mark_fail"(0)
- lt rx400_pos, -1, rx400_done
- eq rx400_pos, -1, rx400_fail
+ (rx406_rep, rx406_pos, $I10, $P10) = rx406_cur."!mark_fail"(0)
+ lt rx406_pos, -1, rx406_done
+ eq rx406_pos, -1, rx406_fail
jump $I10
- rx400_done:
- rx400_cur."!cursor_fail"()
- rx400_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<while>")
- .return (rx400_cur)
+ rx406_done:
+ rx406_cur."!cursor_fail"()
+ rx406_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<while>")
+ .return (rx406_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_loop:sym<while>" :subid("94_1275117591.97262") :method
+.sub "!PREFIX__statement_mod_loop:sym<while>" :subid("94_1275811487.95429") :method
.annotate 'line', 4
- new $P402, "ResizablePMCArray"
- push $P402, "while"
- .return ($P402)
+ $P408 = self."!PREFIX__!subrule"("ws", "while")
+ new $P409, "ResizablePMCArray"
+ push $P409, $P408
+ .return ($P409)
.end
.namespace ["NQP";"Grammar"]
-.sub "statement_mod_loop:sym<until>" :subid("95_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "statement_mod_loop:sym<until>" :subid("95_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan411_done
- goto rxscan411_scan
- rxscan411_loop:
- ($P10) = rx408_cur."from"()
- inc $P10
- 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
+ .local string rx415_tgt
+ .local int rx415_pos
+ .local int rx415_off
+ .local int rx415_eos
+ .local int rx415_rep
+ .local pmc rx415_cur
+ (rx415_cur, rx415_pos, rx415_tgt) = self."!cursor_start"()
+ rx415_cur."!cursor_debug"("START ", "statement_mod_loop:sym<until>")
+ .lex unicode:"$\x{a2}", rx415_cur
+ .local pmc match
+ .lex "$/", match
+ length rx415_eos, rx415_tgt
+ gt rx415_pos, rx415_eos, rx415_done
+ set rx415_off, 0
+ lt rx415_pos, 2, rx415_start
+ sub rx415_off, rx415_pos, 1
+ substr rx415_tgt, rx415_tgt, rx415_off
+ rx415_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan419_done
+ goto rxscan419_scan
+ rxscan419_loop:
+ ($P10) = rx415_cur."from"()
+ inc $P10
+ set rx415_pos, $P10
+ ge rx415_pos, rx415_eos, rxscan419_done
+ rxscan419_scan:
+ set_addr $I10, rxscan419_loop
+ rx415_cur."!mark_push"(0, rx415_pos, $I10)
+ rxscan419_done:
+.annotate 'line', 220
# rx subcapture "sym"
- set_addr $I10, rxcap_412_fail
- rx408_cur."!mark_push"(0, rx408_pos, $I10)
+ set_addr $I10, rxcap_420_fail
+ rx415_cur."!mark_push"(0, rx415_pos, $I10)
# rx literal "until"
- 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)
+ add $I11, rx415_pos, 5
+ gt $I11, rx415_eos, rx415_fail
+ sub $I11, rx415_pos, rx415_off
+ substr $S10, rx415_tgt, $I11, 5
+ ne $S10, "until", rx415_fail
+ add rx415_pos, 5
+ set_addr $I10, rxcap_420_fail
+ ($I12, $I11) = rx415_cur."!mark_peek"($I10)
+ rx415_cur."!cursor_pos"($I11)
+ ($P10) = rx415_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx415_pos, "")
+ rx415_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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"()
+ goto rxcap_420_done
+ rxcap_420_fail:
+ goto rx415_fail
+ rxcap_420_done:
+ # rx subrule "ws" subtype=method negate=
+ rx415_cur."!cursor_pos"(rx415_pos)
+ $P10 = rx415_cur."ws"()
+ unless $P10, rx415_fail
+ rx415_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx408_cur."!cursor_pos"(rx408_pos)
- $P10 = rx408_cur."EXPR"()
- unless $P10, rx408_fail
- rx408_cur."!mark_push"(0, -1, 0, $P10)
+ rx415_cur."!cursor_pos"(rx415_pos)
+ $P10 = rx415_cur."EXPR"()
+ unless $P10, rx415_fail
+ rx415_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cond")
- rx408_pos = $P10."pos"()
+ rx415_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx408_cur."!cursor_pos"(rx408_pos)
- $P10 = rx408_cur."ws"()
- unless $P10, rx408_fail
- rx408_pos = $P10."pos"()
+ rx415_cur."!cursor_pos"(rx415_pos)
+ $P10 = rx415_cur."ws"()
+ unless $P10, rx415_fail
+ rx415_pos = $P10."pos"()
# rx pass
- 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:
+ rx415_cur."!cursor_pass"(rx415_pos, "statement_mod_loop:sym<until>")
+ rx415_cur."!cursor_debug"("PASS ", "statement_mod_loop:sym<until>", " at pos=", rx415_pos)
+ .return (rx415_cur)
+ rx415_fail:
.annotate 'line', 4
- (rx408_rep, rx408_pos, $I10, $P10) = rx408_cur."!mark_fail"(0)
- lt rx408_pos, -1, rx408_done
- eq rx408_pos, -1, rx408_fail
+ (rx415_rep, rx415_pos, $I10, $P10) = rx415_cur."!mark_fail"(0)
+ lt rx415_pos, -1, rx415_done
+ eq rx415_pos, -1, rx415_fail
jump $I10
- rx408_done:
- rx408_cur."!cursor_fail"()
- rx408_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<until>")
- .return (rx408_cur)
+ rx415_done:
+ rx415_cur."!cursor_fail"()
+ rx415_cur."!cursor_debug"("FAIL ", "statement_mod_loop:sym<until>")
+ .return (rx415_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__statement_mod_loop:sym<until>" :subid("96_1275117591.97262") :method
+.sub "!PREFIX__statement_mod_loop:sym<until>" :subid("96_1275811487.95429") :method
.annotate 'line', 4
- new $P410, "ResizablePMCArray"
- push $P410, "until"
- .return ($P410)
+ $P417 = self."!PREFIX__!subrule"("ws", "until")
+ new $P418, "ResizablePMCArray"
+ push $P418, $P417
+ .return ($P418)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<fatarrow>" :subid("97_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<fatarrow>" :subid("97_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx424_tgt
+ .local int rx424_pos
+ .local int rx424_off
+ .local int rx424_eos
+ .local int rx424_rep
+ .local pmc rx424_cur
+ (rx424_cur, rx424_pos, rx424_tgt) = self."!cursor_start"()
+ rx424_cur."!cursor_debug"("START ", "term:sym<fatarrow>")
+ .lex unicode:"$\x{a2}", rx424_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx424_eos, rx424_tgt
+ gt rx424_pos, rx424_eos, rx424_done
+ set rx424_off, 0
+ lt rx424_pos, 2, rx424_start
+ sub rx424_off, rx424_pos, 1
+ substr rx424_tgt, rx424_tgt, rx424_off
+ rx424_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan420_done
- goto rxscan420_scan
- rxscan420_loop:
- ($P10) = rx416_cur."from"()
+ ne $I10, -1, rxscan428_done
+ goto rxscan428_scan
+ rxscan428_loop:
+ ($P10) = rx424_cur."from"()
inc $P10
- 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
+ set rx424_pos, $P10
+ ge rx424_pos, rx424_eos, rxscan428_done
+ rxscan428_scan:
+ set_addr $I10, rxscan428_loop
+ rx424_cur."!mark_push"(0, rx424_pos, $I10)
+ rxscan428_done:
+.annotate 'line', 224
# rx subrule "fatarrow" subtype=capture negate=
- rx416_cur."!cursor_pos"(rx416_pos)
- $P10 = rx416_cur."fatarrow"()
- unless $P10, rx416_fail
- rx416_cur."!mark_push"(0, -1, 0, $P10)
+ rx424_cur."!cursor_pos"(rx424_pos)
+ $P10 = rx424_cur."fatarrow"()
+ unless $P10, rx424_fail
+ rx424_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("fatarrow")
- rx416_pos = $P10."pos"()
+ rx424_pos = $P10."pos"()
# rx pass
- 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:
+ rx424_cur."!cursor_pass"(rx424_pos, "term:sym<fatarrow>")
+ rx424_cur."!cursor_debug"("PASS ", "term:sym<fatarrow>", " at pos=", rx424_pos)
+ .return (rx424_cur)
+ rx424_fail:
.annotate 'line', 4
- (rx416_rep, rx416_pos, $I10, $P10) = rx416_cur."!mark_fail"(0)
- lt rx416_pos, -1, rx416_done
- eq rx416_pos, -1, rx416_fail
+ (rx424_rep, rx424_pos, $I10, $P10) = rx424_cur."!mark_fail"(0)
+ lt rx424_pos, -1, rx424_done
+ eq rx424_pos, -1, rx424_fail
jump $I10
- rx416_done:
- rx416_cur."!cursor_fail"()
- rx416_cur."!cursor_debug"("FAIL ", "term:sym<fatarrow>")
- .return (rx416_cur)
+ rx424_done:
+ rx424_cur."!cursor_fail"()
+ rx424_cur."!cursor_debug"("FAIL ", "term:sym<fatarrow>")
+ .return (rx424_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<fatarrow>" :subid("98_1275117591.97262") :method
+.sub "!PREFIX__term:sym<fatarrow>" :subid("98_1275811487.95429") :method
.annotate 'line', 4
- $P418 = self."!PREFIX__!subrule"("fatarrow", "")
- new $P419, "ResizablePMCArray"
- push $P419, $P418
- .return ($P419)
+ $P426 = self."!PREFIX__!subrule"("fatarrow", "")
+ new $P427, "ResizablePMCArray"
+ push $P427, $P426
+ .return ($P427)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<colonpair>" :subid("99_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<colonpair>" :subid("99_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan426_done
- goto rxscan426_scan
- rxscan426_loop:
- ($P10) = rx422_cur."from"()
- inc $P10
- 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
+ .local string rx430_tgt
+ .local int rx430_pos
+ .local int rx430_off
+ .local int rx430_eos
+ .local int rx430_rep
+ .local pmc rx430_cur
+ (rx430_cur, rx430_pos, rx430_tgt) = self."!cursor_start"()
+ rx430_cur."!cursor_debug"("START ", "term:sym<colonpair>")
+ .lex unicode:"$\x{a2}", rx430_cur
+ .local pmc match
+ .lex "$/", match
+ length rx430_eos, rx430_tgt
+ gt rx430_pos, rx430_eos, rx430_done
+ set rx430_off, 0
+ lt rx430_pos, 2, rx430_start
+ sub rx430_off, rx430_pos, 1
+ substr rx430_tgt, rx430_tgt, rx430_off
+ rx430_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan434_done
+ goto rxscan434_scan
+ rxscan434_loop:
+ ($P10) = rx430_cur."from"()
+ inc $P10
+ set rx430_pos, $P10
+ ge rx430_pos, rx430_eos, rxscan434_done
+ rxscan434_scan:
+ set_addr $I10, rxscan434_loop
+ rx430_cur."!mark_push"(0, rx430_pos, $I10)
+ rxscan434_done:
+.annotate 'line', 225
# rx subrule "colonpair" subtype=capture negate=
- rx422_cur."!cursor_pos"(rx422_pos)
- $P10 = rx422_cur."colonpair"()
- unless $P10, rx422_fail
- rx422_cur."!mark_push"(0, -1, 0, $P10)
+ rx430_cur."!cursor_pos"(rx430_pos)
+ $P10 = rx430_cur."colonpair"()
+ unless $P10, rx430_fail
+ rx430_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("colonpair")
- rx422_pos = $P10."pos"()
+ rx430_pos = $P10."pos"()
# rx pass
- 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:
+ rx430_cur."!cursor_pass"(rx430_pos, "term:sym<colonpair>")
+ rx430_cur."!cursor_debug"("PASS ", "term:sym<colonpair>", " at pos=", rx430_pos)
+ .return (rx430_cur)
+ rx430_fail:
.annotate 'line', 4
- (rx422_rep, rx422_pos, $I10, $P10) = rx422_cur."!mark_fail"(0)
- lt rx422_pos, -1, rx422_done
- eq rx422_pos, -1, rx422_fail
+ (rx430_rep, rx430_pos, $I10, $P10) = rx430_cur."!mark_fail"(0)
+ lt rx430_pos, -1, rx430_done
+ eq rx430_pos, -1, rx430_fail
jump $I10
- rx422_done:
- rx422_cur."!cursor_fail"()
- rx422_cur."!cursor_debug"("FAIL ", "term:sym<colonpair>")
- .return (rx422_cur)
+ rx430_done:
+ rx430_cur."!cursor_fail"()
+ rx430_cur."!cursor_debug"("FAIL ", "term:sym<colonpair>")
+ .return (rx430_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<colonpair>" :subid("100_1275117591.97262") :method
+.sub "!PREFIX__term:sym<colonpair>" :subid("100_1275811487.95429") :method
.annotate 'line', 4
- $P424 = self."!PREFIX__!subrule"("colonpair", "")
- new $P425, "ResizablePMCArray"
- push $P425, $P424
- .return ($P425)
+ $P432 = self."!PREFIX__!subrule"("colonpair", "")
+ new $P433, "ResizablePMCArray"
+ push $P433, $P432
+ .return ($P433)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<variable>" :subid("101_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<variable>" :subid("101_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx436_tgt
+ .local int rx436_pos
+ .local int rx436_off
+ .local int rx436_eos
+ .local int rx436_rep
+ .local pmc rx436_cur
+ (rx436_cur, rx436_pos, rx436_tgt) = self."!cursor_start"()
+ rx436_cur."!cursor_debug"("START ", "term:sym<variable>")
+ .lex unicode:"$\x{a2}", rx436_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx436_eos, rx436_tgt
+ gt rx436_pos, rx436_eos, rx436_done
+ set rx436_off, 0
+ lt rx436_pos, 2, rx436_start
+ sub rx436_off, rx436_pos, 1
+ substr rx436_tgt, rx436_tgt, rx436_off
+ rx436_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan432_done
- goto rxscan432_scan
- rxscan432_loop:
- ($P10) = rx428_cur."from"()
+ ne $I10, -1, rxscan440_done
+ goto rxscan440_scan
+ rxscan440_loop:
+ ($P10) = rx436_cur."from"()
inc $P10
- 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
+ set rx436_pos, $P10
+ ge rx436_pos, rx436_eos, rxscan440_done
+ rxscan440_scan:
+ set_addr $I10, rxscan440_loop
+ rx436_cur."!mark_push"(0, rx436_pos, $I10)
+ rxscan440_done:
+.annotate 'line', 226
# rx subrule "variable" subtype=capture negate=
- rx428_cur."!cursor_pos"(rx428_pos)
- $P10 = rx428_cur."variable"()
- unless $P10, rx428_fail
- rx428_cur."!mark_push"(0, -1, 0, $P10)
+ rx436_cur."!cursor_pos"(rx436_pos)
+ $P10 = rx436_cur."variable"()
+ unless $P10, rx436_fail
+ rx436_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("variable")
- rx428_pos = $P10."pos"()
+ rx436_pos = $P10."pos"()
# rx pass
- 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:
+ rx436_cur."!cursor_pass"(rx436_pos, "term:sym<variable>")
+ rx436_cur."!cursor_debug"("PASS ", "term:sym<variable>", " at pos=", rx436_pos)
+ .return (rx436_cur)
+ rx436_fail:
.annotate 'line', 4
- (rx428_rep, rx428_pos, $I10, $P10) = rx428_cur."!mark_fail"(0)
- lt rx428_pos, -1, rx428_done
- eq rx428_pos, -1, rx428_fail
+ (rx436_rep, rx436_pos, $I10, $P10) = rx436_cur."!mark_fail"(0)
+ lt rx436_pos, -1, rx436_done
+ eq rx436_pos, -1, rx436_fail
jump $I10
- rx428_done:
- rx428_cur."!cursor_fail"()
- rx428_cur."!cursor_debug"("FAIL ", "term:sym<variable>")
- .return (rx428_cur)
+ rx436_done:
+ rx436_cur."!cursor_fail"()
+ rx436_cur."!cursor_debug"("FAIL ", "term:sym<variable>")
+ .return (rx436_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<variable>" :subid("102_1275117591.97262") :method
+.sub "!PREFIX__term:sym<variable>" :subid("102_1275811487.95429") :method
.annotate 'line', 4
- $P430 = self."!PREFIX__!subrule"("variable", "")
- new $P431, "ResizablePMCArray"
- push $P431, $P430
- .return ($P431)
+ $P438 = self."!PREFIX__!subrule"("variable", "")
+ new $P439, "ResizablePMCArray"
+ push $P439, $P438
+ .return ($P439)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<package_declarator>" :subid("103_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<package_declarator>" :subid("103_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx442_tgt
+ .local int rx442_pos
+ .local int rx442_off
+ .local int rx442_eos
+ .local int rx442_rep
+ .local pmc rx442_cur
+ (rx442_cur, rx442_pos, rx442_tgt) = self."!cursor_start"()
+ rx442_cur."!cursor_debug"("START ", "term:sym<package_declarator>")
+ .lex unicode:"$\x{a2}", rx442_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx442_eos, rx442_tgt
+ gt rx442_pos, rx442_eos, rx442_done
+ set rx442_off, 0
+ lt rx442_pos, 2, rx442_start
+ sub rx442_off, rx442_pos, 1
+ substr rx442_tgt, rx442_tgt, rx442_off
+ rx442_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan438_done
- goto rxscan438_scan
- rxscan438_loop:
- ($P10) = rx434_cur."from"()
+ ne $I10, -1, rxscan446_done
+ goto rxscan446_scan
+ rxscan446_loop:
+ ($P10) = rx442_cur."from"()
inc $P10
- 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
+ set rx442_pos, $P10
+ ge rx442_pos, rx442_eos, rxscan446_done
+ rxscan446_scan:
+ set_addr $I10, rxscan446_loop
+ rx442_cur."!mark_push"(0, rx442_pos, $I10)
+ rxscan446_done:
+.annotate 'line', 227
# rx subrule "package_declarator" subtype=capture negate=
- rx434_cur."!cursor_pos"(rx434_pos)
- $P10 = rx434_cur."package_declarator"()
- unless $P10, rx434_fail
- rx434_cur."!mark_push"(0, -1, 0, $P10)
+ rx442_cur."!cursor_pos"(rx442_pos)
+ $P10 = rx442_cur."package_declarator"()
+ unless $P10, rx442_fail
+ rx442_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("package_declarator")
- rx434_pos = $P10."pos"()
+ rx442_pos = $P10."pos"()
# rx pass
- 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:
+ rx442_cur."!cursor_pass"(rx442_pos, "term:sym<package_declarator>")
+ rx442_cur."!cursor_debug"("PASS ", "term:sym<package_declarator>", " at pos=", rx442_pos)
+ .return (rx442_cur)
+ rx442_fail:
.annotate 'line', 4
- (rx434_rep, rx434_pos, $I10, $P10) = rx434_cur."!mark_fail"(0)
- lt rx434_pos, -1, rx434_done
- eq rx434_pos, -1, rx434_fail
+ (rx442_rep, rx442_pos, $I10, $P10) = rx442_cur."!mark_fail"(0)
+ lt rx442_pos, -1, rx442_done
+ eq rx442_pos, -1, rx442_fail
jump $I10
- rx434_done:
- rx434_cur."!cursor_fail"()
- rx434_cur."!cursor_debug"("FAIL ", "term:sym<package_declarator>")
- .return (rx434_cur)
+ rx442_done:
+ rx442_cur."!cursor_fail"()
+ rx442_cur."!cursor_debug"("FAIL ", "term:sym<package_declarator>")
+ .return (rx442_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<package_declarator>" :subid("104_1275117591.97262") :method
+.sub "!PREFIX__term:sym<package_declarator>" :subid("104_1275811487.95429") :method
.annotate 'line', 4
- $P436 = self."!PREFIX__!subrule"("package_declarator", "")
- new $P437, "ResizablePMCArray"
- push $P437, $P436
- .return ($P437)
+ $P444 = self."!PREFIX__!subrule"("package_declarator", "")
+ new $P445, "ResizablePMCArray"
+ push $P445, $P444
+ .return ($P445)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<scope_declarator>" :subid("105_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<scope_declarator>" :subid("105_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx448_tgt
+ .local int rx448_pos
+ .local int rx448_off
+ .local int rx448_eos
+ .local int rx448_rep
+ .local pmc rx448_cur
+ (rx448_cur, rx448_pos, rx448_tgt) = self."!cursor_start"()
+ rx448_cur."!cursor_debug"("START ", "term:sym<scope_declarator>")
+ .lex unicode:"$\x{a2}", rx448_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx448_eos, rx448_tgt
+ gt rx448_pos, rx448_eos, rx448_done
+ set rx448_off, 0
+ lt rx448_pos, 2, rx448_start
+ sub rx448_off, rx448_pos, 1
+ substr rx448_tgt, rx448_tgt, rx448_off
+ rx448_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan444_done
- goto rxscan444_scan
- rxscan444_loop:
- ($P10) = rx440_cur."from"()
+ ne $I10, -1, rxscan452_done
+ goto rxscan452_scan
+ rxscan452_loop:
+ ($P10) = rx448_cur."from"()
inc $P10
- 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
+ set rx448_pos, $P10
+ ge rx448_pos, rx448_eos, rxscan452_done
+ rxscan452_scan:
+ set_addr $I10, rxscan452_loop
+ rx448_cur."!mark_push"(0, rx448_pos, $I10)
+ rxscan452_done:
+.annotate 'line', 228
# rx subrule "scope_declarator" subtype=capture negate=
- rx440_cur."!cursor_pos"(rx440_pos)
- $P10 = rx440_cur."scope_declarator"()
- unless $P10, rx440_fail
- rx440_cur."!mark_push"(0, -1, 0, $P10)
+ rx448_cur."!cursor_pos"(rx448_pos)
+ $P10 = rx448_cur."scope_declarator"()
+ unless $P10, rx448_fail
+ rx448_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scope_declarator")
- rx440_pos = $P10."pos"()
+ rx448_pos = $P10."pos"()
# rx pass
- 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:
+ rx448_cur."!cursor_pass"(rx448_pos, "term:sym<scope_declarator>")
+ rx448_cur."!cursor_debug"("PASS ", "term:sym<scope_declarator>", " at pos=", rx448_pos)
+ .return (rx448_cur)
+ rx448_fail:
.annotate 'line', 4
- (rx440_rep, rx440_pos, $I10, $P10) = rx440_cur."!mark_fail"(0)
- lt rx440_pos, -1, rx440_done
- eq rx440_pos, -1, rx440_fail
+ (rx448_rep, rx448_pos, $I10, $P10) = rx448_cur."!mark_fail"(0)
+ lt rx448_pos, -1, rx448_done
+ eq rx448_pos, -1, rx448_fail
jump $I10
- rx440_done:
- rx440_cur."!cursor_fail"()
- rx440_cur."!cursor_debug"("FAIL ", "term:sym<scope_declarator>")
- .return (rx440_cur)
+ rx448_done:
+ rx448_cur."!cursor_fail"()
+ rx448_cur."!cursor_debug"("FAIL ", "term:sym<scope_declarator>")
+ .return (rx448_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<scope_declarator>" :subid("106_1275117591.97262") :method
+.sub "!PREFIX__term:sym<scope_declarator>" :subid("106_1275811487.95429") :method
.annotate 'line', 4
- $P442 = self."!PREFIX__!subrule"("scope_declarator", "")
- new $P443, "ResizablePMCArray"
- push $P443, $P442
- .return ($P443)
+ $P450 = self."!PREFIX__!subrule"("scope_declarator", "")
+ new $P451, "ResizablePMCArray"
+ push $P451, $P450
+ .return ($P451)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<routine_declarator>" :subid("107_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<routine_declarator>" :subid("107_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx454_tgt
+ .local int rx454_pos
+ .local int rx454_off
+ .local int rx454_eos
+ .local int rx454_rep
+ .local pmc rx454_cur
+ (rx454_cur, rx454_pos, rx454_tgt) = self."!cursor_start"()
+ rx454_cur."!cursor_debug"("START ", "term:sym<routine_declarator>")
+ .lex unicode:"$\x{a2}", rx454_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx454_eos, rx454_tgt
+ gt rx454_pos, rx454_eos, rx454_done
+ set rx454_off, 0
+ lt rx454_pos, 2, rx454_start
+ sub rx454_off, rx454_pos, 1
+ substr rx454_tgt, rx454_tgt, rx454_off
+ rx454_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan450_done
- goto rxscan450_scan
- rxscan450_loop:
- ($P10) = rx446_cur."from"()
+ ne $I10, -1, rxscan458_done
+ goto rxscan458_scan
+ rxscan458_loop:
+ ($P10) = rx454_cur."from"()
inc $P10
- 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
+ set rx454_pos, $P10
+ ge rx454_pos, rx454_eos, rxscan458_done
+ rxscan458_scan:
+ set_addr $I10, rxscan458_loop
+ rx454_cur."!mark_push"(0, rx454_pos, $I10)
+ rxscan458_done:
+.annotate 'line', 229
# rx subrule "routine_declarator" subtype=capture negate=
- rx446_cur."!cursor_pos"(rx446_pos)
- $P10 = rx446_cur."routine_declarator"()
- unless $P10, rx446_fail
- rx446_cur."!mark_push"(0, -1, 0, $P10)
+ rx454_cur."!cursor_pos"(rx454_pos)
+ $P10 = rx454_cur."routine_declarator"()
+ unless $P10, rx454_fail
+ rx454_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("routine_declarator")
- rx446_pos = $P10."pos"()
+ rx454_pos = $P10."pos"()
# rx pass
- 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:
+ rx454_cur."!cursor_pass"(rx454_pos, "term:sym<routine_declarator>")
+ rx454_cur."!cursor_debug"("PASS ", "term:sym<routine_declarator>", " at pos=", rx454_pos)
+ .return (rx454_cur)
+ rx454_fail:
.annotate 'line', 4
- (rx446_rep, rx446_pos, $I10, $P10) = rx446_cur."!mark_fail"(0)
- lt rx446_pos, -1, rx446_done
- eq rx446_pos, -1, rx446_fail
+ (rx454_rep, rx454_pos, $I10, $P10) = rx454_cur."!mark_fail"(0)
+ lt rx454_pos, -1, rx454_done
+ eq rx454_pos, -1, rx454_fail
jump $I10
- rx446_done:
- rx446_cur."!cursor_fail"()
- rx446_cur."!cursor_debug"("FAIL ", "term:sym<routine_declarator>")
- .return (rx446_cur)
+ rx454_done:
+ rx454_cur."!cursor_fail"()
+ rx454_cur."!cursor_debug"("FAIL ", "term:sym<routine_declarator>")
+ .return (rx454_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<routine_declarator>" :subid("108_1275117591.97262") :method
+.sub "!PREFIX__term:sym<routine_declarator>" :subid("108_1275811487.95429") :method
.annotate 'line', 4
- $P448 = self."!PREFIX__!subrule"("routine_declarator", "")
- new $P449, "ResizablePMCArray"
- push $P449, $P448
- .return ($P449)
+ $P456 = self."!PREFIX__!subrule"("routine_declarator", "")
+ new $P457, "ResizablePMCArray"
+ push $P457, $P456
+ .return ($P457)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<regex_declarator>" :subid("109_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<multi_declarator>" :subid("109_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .const 'Sub' $P465 = "111_1275811487.95429"
+ capture_lex $P465
+ .local string rx460_tgt
+ .local int rx460_pos
+ .local int rx460_off
+ .local int rx460_eos
+ .local int rx460_rep
+ .local pmc rx460_cur
+ (rx460_cur, rx460_pos, rx460_tgt) = self."!cursor_start"()
+ rx460_cur."!cursor_debug"("START ", "term:sym<multi_declarator>")
+ .lex unicode:"$\x{a2}", rx460_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx460_eos, rx460_tgt
+ gt rx460_pos, rx460_eos, rx460_done
+ set rx460_off, 0
+ lt rx460_pos, 2, rx460_start
+ sub rx460_off, rx460_pos, 1
+ substr rx460_tgt, rx460_tgt, rx460_off
+ rx460_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan456_done
- goto rxscan456_scan
- rxscan456_loop:
- ($P10) = rx452_cur."from"()
+ ne $I10, -1, rxscan463_done
+ goto rxscan463_scan
+ rxscan463_loop:
+ ($P10) = rx460_cur."from"()
inc $P10
- 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
+ set rx460_pos, $P10
+ ge rx460_pos, rx460_eos, rxscan463_done
+ rxscan463_scan:
+ set_addr $I10, rxscan463_loop
+ rx460_cur."!mark_push"(0, rx460_pos, $I10)
+ rxscan463_done:
+.annotate 'line', 230
+ # rx subrule "before" subtype=zerowidth negate=
+ rx460_cur."!cursor_pos"(rx460_pos)
+ .const 'Sub' $P465 = "111_1275811487.95429"
+ capture_lex $P465
+ $P10 = rx460_cur."before"($P465)
+ unless $P10, rx460_fail
+ # rx subrule "multi_declarator" subtype=capture negate=
+ rx460_cur."!cursor_pos"(rx460_pos)
+ $P10 = rx460_cur."multi_declarator"()
+ unless $P10, rx460_fail
+ rx460_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("multi_declarator")
+ rx460_pos = $P10."pos"()
+ # rx pass
+ rx460_cur."!cursor_pass"(rx460_pos, "term:sym<multi_declarator>")
+ rx460_cur."!cursor_debug"("PASS ", "term:sym<multi_declarator>", " at pos=", rx460_pos)
+ .return (rx460_cur)
+ rx460_fail:
+.annotate 'line', 4
+ (rx460_rep, rx460_pos, $I10, $P10) = rx460_cur."!mark_fail"(0)
+ lt rx460_pos, -1, rx460_done
+ eq rx460_pos, -1, rx460_fail
+ jump $I10
+ rx460_done:
+ rx460_cur."!cursor_fail"()
+ rx460_cur."!cursor_debug"("FAIL ", "term:sym<multi_declarator>")
+ .return (rx460_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__term:sym<multi_declarator>" :subid("110_1275811487.95429") :method
+.annotate 'line', 4
+ new $P462, "ResizablePMCArray"
+ push $P462, ""
+ .return ($P462)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "_block464" :anon :subid("111_1275811487.95429") :method :outer("109_1275811487.95429")
+.annotate 'line', 230
+ .local string rx466_tgt
+ .local int rx466_pos
+ .local int rx466_off
+ .local int rx466_eos
+ .local int rx466_rep
+ .local pmc rx466_cur
+ (rx466_cur, rx466_pos, rx466_tgt) = self."!cursor_start"()
+ rx466_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx466_cur
+ .local pmc match
+ .lex "$/", match
+ length rx466_eos, rx466_tgt
+ gt rx466_pos, rx466_eos, rx466_done
+ set rx466_off, 0
+ lt rx466_pos, 2, rx466_start
+ sub rx466_off, rx466_pos, 1
+ substr rx466_tgt, rx466_tgt, rx466_off
+ rx466_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan467_done
+ goto rxscan467_scan
+ rxscan467_loop:
+ ($P10) = rx466_cur."from"()
+ inc $P10
+ set rx466_pos, $P10
+ ge rx466_pos, rx466_eos, rxscan467_done
+ rxscan467_scan:
+ set_addr $I10, rxscan467_loop
+ rx466_cur."!mark_push"(0, rx466_pos, $I10)
+ rxscan467_done:
+ alt468_0:
+ set_addr $I10, alt468_1
+ rx466_cur."!mark_push"(0, rx466_pos, $I10)
+ # rx literal "multi"
+ add $I11, rx466_pos, 5
+ gt $I11, rx466_eos, rx466_fail
+ sub $I11, rx466_pos, rx466_off
+ substr $S10, rx466_tgt, $I11, 5
+ ne $S10, "multi", rx466_fail
+ add rx466_pos, 5
+ goto alt468_end
+ alt468_1:
+ set_addr $I10, alt468_2
+ rx466_cur."!mark_push"(0, rx466_pos, $I10)
+ # rx literal "proto"
+ add $I11, rx466_pos, 5
+ gt $I11, rx466_eos, rx466_fail
+ sub $I11, rx466_pos, rx466_off
+ substr $S10, rx466_tgt, $I11, 5
+ ne $S10, "proto", rx466_fail
+ add rx466_pos, 5
+ goto alt468_end
+ alt468_2:
+ # rx literal "only"
+ add $I11, rx466_pos, 4
+ gt $I11, rx466_eos, rx466_fail
+ sub $I11, rx466_pos, rx466_off
+ substr $S10, rx466_tgt, $I11, 4
+ ne $S10, "only", rx466_fail
+ add rx466_pos, 4
+ alt468_end:
+ # rx pass
+ rx466_cur."!cursor_pass"(rx466_pos, "")
+ rx466_cur."!cursor_debug"("PASS ", "", " at pos=", rx466_pos)
+ .return (rx466_cur)
+ rx466_fail:
+ (rx466_rep, rx466_pos, $I10, $P10) = rx466_cur."!mark_fail"(0)
+ lt rx466_pos, -1, rx466_done
+ eq rx466_pos, -1, rx466_fail
+ jump $I10
+ rx466_done:
+ rx466_cur."!cursor_fail"()
+ rx466_cur."!cursor_debug"("FAIL ", "")
+ .return (rx466_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "term:sym<regex_declarator>" :subid("112_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx470_tgt
+ .local int rx470_pos
+ .local int rx470_off
+ .local int rx470_eos
+ .local int rx470_rep
+ .local pmc rx470_cur
+ (rx470_cur, rx470_pos, rx470_tgt) = self."!cursor_start"()
+ rx470_cur."!cursor_debug"("START ", "term:sym<regex_declarator>")
+ .lex unicode:"$\x{a2}", rx470_cur
+ .local pmc match
+ .lex "$/", match
+ length rx470_eos, rx470_tgt
+ gt rx470_pos, rx470_eos, rx470_done
+ set rx470_off, 0
+ lt rx470_pos, 2, rx470_start
+ sub rx470_off, rx470_pos, 1
+ substr rx470_tgt, rx470_tgt, rx470_off
+ rx470_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan474_done
+ goto rxscan474_scan
+ rxscan474_loop:
+ ($P10) = rx470_cur."from"()
+ inc $P10
+ set rx470_pos, $P10
+ ge rx470_pos, rx470_eos, rxscan474_done
+ rxscan474_scan:
+ set_addr $I10, rxscan474_loop
+ rx470_cur."!mark_push"(0, rx470_pos, $I10)
+ rxscan474_done:
+.annotate 'line', 231
# rx subrule "regex_declarator" subtype=capture negate=
- rx452_cur."!cursor_pos"(rx452_pos)
- $P10 = rx452_cur."regex_declarator"()
- unless $P10, rx452_fail
- rx452_cur."!mark_push"(0, -1, 0, $P10)
+ rx470_cur."!cursor_pos"(rx470_pos)
+ $P10 = rx470_cur."regex_declarator"()
+ unless $P10, rx470_fail
+ rx470_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("regex_declarator")
- rx452_pos = $P10."pos"()
+ rx470_pos = $P10."pos"()
# rx pass
- 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:
+ rx470_cur."!cursor_pass"(rx470_pos, "term:sym<regex_declarator>")
+ rx470_cur."!cursor_debug"("PASS ", "term:sym<regex_declarator>", " at pos=", rx470_pos)
+ .return (rx470_cur)
+ rx470_fail:
.annotate 'line', 4
- (rx452_rep, rx452_pos, $I10, $P10) = rx452_cur."!mark_fail"(0)
- lt rx452_pos, -1, rx452_done
- eq rx452_pos, -1, rx452_fail
+ (rx470_rep, rx470_pos, $I10, $P10) = rx470_cur."!mark_fail"(0)
+ lt rx470_pos, -1, rx470_done
+ eq rx470_pos, -1, rx470_fail
jump $I10
- rx452_done:
- rx452_cur."!cursor_fail"()
- rx452_cur."!cursor_debug"("FAIL ", "term:sym<regex_declarator>")
- .return (rx452_cur)
+ rx470_done:
+ rx470_cur."!cursor_fail"()
+ rx470_cur."!cursor_debug"("FAIL ", "term:sym<regex_declarator>")
+ .return (rx470_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<regex_declarator>" :subid("110_1275117591.97262") :method
+.sub "!PREFIX__term:sym<regex_declarator>" :subid("113_1275811487.95429") :method
.annotate 'line', 4
- $P454 = self."!PREFIX__!subrule"("regex_declarator", "")
- new $P455, "ResizablePMCArray"
- push $P455, $P454
- .return ($P455)
+ $P472 = self."!PREFIX__!subrule"("regex_declarator", "")
+ new $P473, "ResizablePMCArray"
+ push $P473, $P472
+ .return ($P473)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<statement_prefix>" :subid("111_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<statement_prefix>" :subid("114_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx476_tgt
+ .local int rx476_pos
+ .local int rx476_off
+ .local int rx476_eos
+ .local int rx476_rep
+ .local pmc rx476_cur
+ (rx476_cur, rx476_pos, rx476_tgt) = self."!cursor_start"()
+ rx476_cur."!cursor_debug"("START ", "term:sym<statement_prefix>")
+ .lex unicode:"$\x{a2}", rx476_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx476_eos, rx476_tgt
+ gt rx476_pos, rx476_eos, rx476_done
+ set rx476_off, 0
+ lt rx476_pos, 2, rx476_start
+ sub rx476_off, rx476_pos, 1
+ substr rx476_tgt, rx476_tgt, rx476_off
+ rx476_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan462_done
- goto rxscan462_scan
- rxscan462_loop:
- ($P10) = rx458_cur."from"()
+ ne $I10, -1, rxscan480_done
+ goto rxscan480_scan
+ rxscan480_loop:
+ ($P10) = rx476_cur."from"()
inc $P10
- set rx458_pos, $P10
- ge rx458_pos, rx458_eos, rxscan462_done
- rxscan462_scan:
- set_addr $I10, rxscan462_loop
- rx458_cur."!mark_push"(0, rx458_pos, $I10)
- rxscan462_done:
-.annotate 'line', 230
+ set rx476_pos, $P10
+ ge rx476_pos, rx476_eos, rxscan480_done
+ rxscan480_scan:
+ set_addr $I10, rxscan480_loop
+ rx476_cur."!mark_push"(0, rx476_pos, $I10)
+ rxscan480_done:
+.annotate 'line', 232
# 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)
+ rx476_cur."!cursor_pos"(rx476_pos)
+ $P10 = rx476_cur."statement_prefix"()
+ unless $P10, rx476_fail
+ rx476_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement_prefix")
- rx458_pos = $P10."pos"()
+ rx476_pos = $P10."pos"()
# rx pass
- 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:
+ rx476_cur."!cursor_pass"(rx476_pos, "term:sym<statement_prefix>")
+ rx476_cur."!cursor_debug"("PASS ", "term:sym<statement_prefix>", " at pos=", rx476_pos)
+ .return (rx476_cur)
+ rx476_fail:
.annotate 'line', 4
- (rx458_rep, rx458_pos, $I10, $P10) = rx458_cur."!mark_fail"(0)
- lt rx458_pos, -1, rx458_done
- eq rx458_pos, -1, rx458_fail
+ (rx476_rep, rx476_pos, $I10, $P10) = rx476_cur."!mark_fail"(0)
+ lt rx476_pos, -1, rx476_done
+ eq rx476_pos, -1, rx476_fail
jump $I10
- rx458_done:
- rx458_cur."!cursor_fail"()
- rx458_cur."!cursor_debug"("FAIL ", "term:sym<statement_prefix>")
- .return (rx458_cur)
+ rx476_done:
+ rx476_cur."!cursor_fail"()
+ rx476_cur."!cursor_debug"("FAIL ", "term:sym<statement_prefix>")
+ .return (rx476_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<statement_prefix>" :subid("112_1275117591.97262") :method
+.sub "!PREFIX__term:sym<statement_prefix>" :subid("115_1275811487.95429") :method
.annotate 'line', 4
- $P460 = self."!PREFIX__!subrule"("statement_prefix", "")
- new $P461, "ResizablePMCArray"
- push $P461, $P460
- .return ($P461)
+ $P478 = self."!PREFIX__!subrule"("statement_prefix", "")
+ new $P479, "ResizablePMCArray"
+ push $P479, $P478
+ .return ($P479)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<lambda>" :subid("113_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<lambda>" :subid("116_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx464_tgt
- .local int rx464_pos
- .local int rx464_off
- .local int rx464_eos
- .local int rx464_rep
- .local pmc rx464_cur
- (rx464_cur, rx464_pos, rx464_tgt) = self."!cursor_start"()
- rx464_cur."!cursor_debug"("START ", "term:sym<lambda>")
- .lex unicode:"$\x{a2}", rx464_cur
+ .local string rx482_tgt
+ .local int rx482_pos
+ .local int rx482_off
+ .local int rx482_eos
+ .local int rx482_rep
+ .local pmc rx482_cur
+ (rx482_cur, rx482_pos, rx482_tgt) = self."!cursor_start"()
+ rx482_cur."!cursor_debug"("START ", "term:sym<lambda>")
+ .lex unicode:"$\x{a2}", rx482_cur
.local pmc match
.lex "$/", match
- length rx464_eos, rx464_tgt
- set rx464_off, 0
- lt rx464_pos, 2, rx464_start
- sub rx464_off, rx464_pos, 1
- substr rx464_tgt, rx464_tgt, rx464_off
- rx464_start:
+ length rx482_eos, rx482_tgt
+ gt rx482_pos, rx482_eos, rx482_done
+ set rx482_off, 0
+ lt rx482_pos, 2, rx482_start
+ sub rx482_off, rx482_pos, 1
+ substr rx482_tgt, rx482_tgt, rx482_off
+ rx482_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan467_done
- goto rxscan467_scan
- rxscan467_loop:
- ($P10) = rx464_cur."from"()
+ ne $I10, -1, rxscan485_done
+ goto rxscan485_scan
+ rxscan485_loop:
+ ($P10) = rx482_cur."from"()
inc $P10
- set rx464_pos, $P10
- ge rx464_pos, rx464_eos, rxscan467_done
- rxscan467_scan:
- set_addr $I10, rxscan467_loop
- rx464_cur."!mark_push"(0, rx464_pos, $I10)
- rxscan467_done:
-.annotate 'line', 231
+ set rx482_pos, $P10
+ ge rx482_pos, rx482_eos, rxscan485_done
+ rxscan485_scan:
+ set_addr $I10, rxscan485_loop
+ rx482_cur."!mark_push"(0, rx482_pos, $I10)
+ rxscan485_done:
+.annotate 'line', 233
# rx subrule "lambda" subtype=zerowidth negate=
- rx464_cur."!cursor_pos"(rx464_pos)
- $P10 = rx464_cur."lambda"()
- unless $P10, rx464_fail
+ rx482_cur."!cursor_pos"(rx482_pos)
+ $P10 = rx482_cur."lambda"()
+ unless $P10, rx482_fail
# rx subrule "pblock" subtype=capture negate=
- rx464_cur."!cursor_pos"(rx464_pos)
- $P10 = rx464_cur."pblock"()
- unless $P10, rx464_fail
- rx464_cur."!mark_push"(0, -1, 0, $P10)
+ rx482_cur."!cursor_pos"(rx482_pos)
+ $P10 = rx482_cur."pblock"()
+ unless $P10, rx482_fail
+ rx482_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pblock")
- rx464_pos = $P10."pos"()
+ rx482_pos = $P10."pos"()
# rx pass
- 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:
+ rx482_cur."!cursor_pass"(rx482_pos, "term:sym<lambda>")
+ rx482_cur."!cursor_debug"("PASS ", "term:sym<lambda>", " at pos=", rx482_pos)
+ .return (rx482_cur)
+ rx482_fail:
.annotate 'line', 4
- (rx464_rep, rx464_pos, $I10, $P10) = rx464_cur."!mark_fail"(0)
- lt rx464_pos, -1, rx464_done
- eq rx464_pos, -1, rx464_fail
+ (rx482_rep, rx482_pos, $I10, $P10) = rx482_cur."!mark_fail"(0)
+ lt rx482_pos, -1, rx482_done
+ eq rx482_pos, -1, rx482_fail
jump $I10
- rx464_done:
- rx464_cur."!cursor_fail"()
- rx464_cur."!cursor_debug"("FAIL ", "term:sym<lambda>")
- .return (rx464_cur)
+ rx482_done:
+ rx482_cur."!cursor_fail"()
+ rx482_cur."!cursor_debug"("FAIL ", "term:sym<lambda>")
+ .return (rx482_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<lambda>" :subid("114_1275117591.97262") :method
+.sub "!PREFIX__term:sym<lambda>" :subid("117_1275811487.95429") :method
.annotate 'line', 4
- new $P466, "ResizablePMCArray"
- push $P466, ""
- .return ($P466)
+ new $P484, "ResizablePMCArray"
+ push $P484, ""
+ .return ($P484)
.end
.namespace ["NQP";"Grammar"]
-.sub "fatarrow" :subid("115_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "fatarrow" :subid("118_1275811487.95429") :method :outer("11_1275811487.95429")
.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 string rx487_tgt
+ .local int rx487_pos
+ .local int rx487_off
+ .local int rx487_eos
+ .local int rx487_rep
+ .local pmc rx487_cur
+ (rx487_cur, rx487_pos, rx487_tgt) = self."!cursor_start"()
+ rx487_cur."!cursor_debug"("START ", "fatarrow")
+ .lex unicode:"$\x{a2}", rx487_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:
+ length rx487_eos, rx487_tgt
+ gt rx487_pos, rx487_eos, rx487_done
+ set rx487_off, 0
+ lt rx487_pos, 2, rx487_start
+ sub rx487_off, rx487_pos, 1
+ substr rx487_tgt, rx487_tgt, rx487_off
+ rx487_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan473_done
- goto rxscan473_scan
- rxscan473_loop:
- ($P10) = rx469_cur."from"()
+ ne $I10, -1, rxscan491_done
+ goto rxscan491_scan
+ rxscan491_loop:
+ ($P10) = rx487_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
+ set rx487_pos, $P10
+ ge rx487_pos, rx487_eos, rxscan491_done
+ rxscan491_scan:
+ set_addr $I10, rxscan491_loop
+ rx487_cur."!mark_push"(0, rx487_pos, $I10)
+ rxscan491_done:
+.annotate 'line', 236
# 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)
+ rx487_cur."!cursor_pos"(rx487_pos)
+ $P10 = rx487_cur."identifier"()
+ unless $P10, rx487_fail
+ rx487_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:
+ rx487_pos = $P10."pos"()
+ # rx rxquantr492 ** 0..*
+ set_addr $I493, rxquantr492_done
+ rx487_cur."!mark_push"(0, rx487_pos, $I493)
+ rxquantr492_loop:
# rx enumcharlist negate=0
- ge rx469_pos, rx469_eos, rx469_fail
- sub $I10, rx469_pos, rx469_off
- substr $S10, rx469_tgt, $I10, 1
+ ge rx487_pos, rx487_eos, rx487_fail
+ sub $I10, rx487_pos, rx487_off
+ substr $S10, rx487_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:
+ lt $I11, 0, rx487_fail
+ inc rx487_pos
+ (rx487_rep) = rx487_cur."!mark_commit"($I493)
+ rx487_cur."!mark_push"(rx487_rep, rx487_pos, $I493)
+ goto rxquantr492_loop
+ rxquantr492_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"()
+ add $I11, rx487_pos, 2
+ gt $I11, rx487_eos, rx487_fail
+ sub $I11, rx487_pos, rx487_off
+ substr $S10, rx487_tgt, $I11, 2
+ ne $S10, "=>", rx487_fail
+ add rx487_pos, 2
+ # rx subrule "ws" subtype=method negate=
+ rx487_cur."!cursor_pos"(rx487_pos)
+ $P10 = rx487_cur."ws"()
+ unless $P10, rx487_fail
+ rx487_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)
+ rx487_cur."!cursor_pos"(rx487_pos)
+ $P10 = rx487_cur."EXPR"("i=")
+ unless $P10, rx487_fail
+ rx487_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("val")
- rx469_pos = $P10."pos"()
-.annotate 'line', 233
+ rx487_pos = $P10."pos"()
+.annotate 'line', 235
# rx pass
- rx469_cur."!cursor_pass"(rx469_pos, "fatarrow")
- rx469_cur."!cursor_debug"("PASS ", "fatarrow", " at pos=", rx469_pos)
- .return (rx469_cur)
- rx469_fail:
+ rx487_cur."!cursor_pass"(rx487_pos, "fatarrow")
+ rx487_cur."!cursor_debug"("PASS ", "fatarrow", " at pos=", rx487_pos)
+ .return (rx487_cur)
+ rx487_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
+ (rx487_rep, rx487_pos, $I10, $P10) = rx487_cur."!mark_fail"(0)
+ lt rx487_pos, -1, rx487_done
+ eq rx487_pos, -1, rx487_fail
jump $I10
- rx469_done:
- rx469_cur."!cursor_fail"()
- rx469_cur."!cursor_debug"("FAIL ", "fatarrow")
- .return (rx469_cur)
+ rx487_done:
+ rx487_cur."!cursor_fail"()
+ rx487_cur."!cursor_debug"("FAIL ", "fatarrow")
+ .return (rx487_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__fatarrow" :subid("116_1275117591.97262") :method
+.sub "!PREFIX__fatarrow" :subid("119_1275811487.95429") :method
.annotate 'line', 4
- $P471 = self."!PREFIX__!subrule"("key", "")
- new $P472, "ResizablePMCArray"
- push $P472, $P471
- .return ($P472)
+ $P489 = self."!PREFIX__!subrule"("identifier", "")
+ new $P490, "ResizablePMCArray"
+ push $P490, $P489
+ .return ($P490)
.end
.namespace ["NQP";"Grammar"]
-.sub "colonpair" :subid("117_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "colonpair" :subid("120_1275811487.95429") :method :outer("11_1275811487.95429")
.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 string rx495_tgt
+ .local int rx495_pos
+ .local int rx495_off
+ .local int rx495_eos
+ .local int rx495_rep
+ .local pmc rx495_cur
+ (rx495_cur, rx495_pos, rx495_tgt) = self."!cursor_start"()
+ rx495_cur."!cursor_debug"("START ", "colonpair")
+ rx495_cur."!cursor_caparray"("circumfix")
+ .lex unicode:"$\x{a2}", rx495_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:
+ length rx495_eos, rx495_tgt
+ gt rx495_pos, rx495_eos, rx495_done
+ set rx495_off, 0
+ lt rx495_pos, 2, rx495_start
+ sub rx495_off, rx495_pos, 1
+ substr rx495_tgt, rx495_tgt, rx495_off
+ rx495_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan483_done
- goto rxscan483_scan
- rxscan483_loop:
- ($P10) = rx477_cur."from"()
+ ne $I10, -1, rxscan501_done
+ goto rxscan501_scan
+ rxscan501_loop:
+ ($P10) = rx495_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)
+ set rx495_pos, $P10
+ ge rx495_pos, rx495_eos, rxscan501_done
+ rxscan501_scan:
+ set_addr $I10, rxscan501_loop
+ rx495_cur."!mark_push"(0, rx495_pos, $I10)
+ rxscan501_done:
.annotate 'line', 240
+ # rx literal ":"
+ add $I11, rx495_pos, 1
+ gt $I11, rx495_eos, rx495_fail
+ sub $I11, rx495_pos, rx495_off
+ substr $S10, rx495_tgt, $I11, 1
+ ne $S10, ":", rx495_fail
+ add rx495_pos, 1
+ alt502_0:
+.annotate 'line', 241
+ set_addr $I10, alt502_1
+ rx495_cur."!mark_push"(0, rx495_pos, $I10)
+.annotate 'line', 242
# rx subcapture "not"
- set_addr $I10, rxcap_485_fail
- rx477_cur."!mark_push"(0, rx477_pos, $I10)
+ set_addr $I10, rxcap_503_fail
+ rx495_cur."!mark_push"(0, rx495_pos, $I10)
# 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
- 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)
+ add $I11, rx495_pos, 1
+ gt $I11, rx495_eos, rx495_fail
+ sub $I11, rx495_pos, rx495_off
+ substr $S10, rx495_tgt, $I11, 1
+ ne $S10, "!", rx495_fail
+ add rx495_pos, 1
+ set_addr $I10, rxcap_503_fail
+ ($I12, $I11) = rx495_cur."!mark_peek"($I10)
+ rx495_cur."!cursor_pos"($I11)
+ ($P10) = rx495_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx495_pos, "")
+ rx495_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("not")
- goto rxcap_485_done
- rxcap_485_fail:
- goto rx477_fail
- rxcap_485_done:
+ goto rxcap_503_done
+ rxcap_503_fail:
+ goto rx495_fail
+ rxcap_503_done:
# rx subrule "identifier" subtype=capture negate=
- rx477_cur."!cursor_pos"(rx477_pos)
- $P10 = rx477_cur."identifier"()
- unless $P10, rx477_fail
- rx477_cur."!mark_push"(0, -1, 0, $P10)
+ rx495_cur."!cursor_pos"(rx495_pos)
+ $P10 = rx495_cur."identifier"()
+ unless $P10, rx495_fail
+ rx495_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- 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
+ rx495_pos = $P10."pos"()
+ goto alt502_end
+ alt502_1:
+ set_addr $I10, alt502_2
+ rx495_cur."!mark_push"(0, rx495_pos, $I10)
+.annotate 'line', 243
# rx subrule "identifier" subtype=capture negate=
- rx477_cur."!cursor_pos"(rx477_pos)
- $P10 = rx477_cur."identifier"()
- unless $P10, rx477_fail
- rx477_cur."!mark_push"(0, -1, 0, $P10)
+ rx495_cur."!cursor_pos"(rx495_pos)
+ $P10 = rx495_cur."identifier"()
+ unless $P10, rx495_fail
+ rx495_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx477_pos = $P10."pos"()
- # rx rxquantr486 ** 0..1
- set_addr $I487, rxquantr486_done
- rx477_cur."!mark_push"(0, rx477_pos, $I487)
- rxquantr486_loop:
+ rx495_pos = $P10."pos"()
+ # rx rxquantr504 ** 0..1
+ set_addr $I505, rxquantr504_done
+ rx495_cur."!mark_push"(0, rx495_pos, $I505)
+ rxquantr504_loop:
# rx subrule "circumfix" subtype=capture negate=
- rx477_cur."!cursor_pos"(rx477_pos)
- $P10 = rx477_cur."circumfix"()
- unless $P10, rx477_fail
- rx477_cur."!mark_push"(0, -1, 0, $P10)
+ rx495_cur."!cursor_pos"(rx495_pos)
+ $P10 = rx495_cur."circumfix"()
+ unless $P10, rx495_fail
+ rx495_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("circumfix")
- rx477_pos = $P10."pos"()
- (rx477_rep) = rx477_cur."!mark_commit"($I487)
- rxquantr486_done:
- goto alt484_end
- alt484_2:
-.annotate 'line', 242
+ rx495_pos = $P10."pos"()
+ (rx495_rep) = rx495_cur."!mark_commit"($I505)
+ rxquantr504_done:
+ goto alt502_end
+ alt502_2:
+.annotate 'line', 244
# rx subrule "circumfix" subtype=capture negate=
- rx477_cur."!cursor_pos"(rx477_pos)
- $P10 = rx477_cur."circumfix"()
- unless $P10, rx477_fail
- rx477_cur."!mark_push"(0, -1, 0, $P10)
+ rx495_cur."!cursor_pos"(rx495_pos)
+ $P10 = rx495_cur."circumfix"()
+ unless $P10, rx495_fail
+ rx495_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("circumfix")
- 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)
+ rx495_pos = $P10."pos"()
+ alt502_end:
+.annotate 'line', 239
+ # rx pass
+ rx495_cur."!cursor_pass"(rx495_pos, "colonpair")
+ rx495_cur."!cursor_debug"("PASS ", "colonpair", " at pos=", rx495_pos)
+ .return (rx495_cur)
+ rx495_fail:
+.annotate 'line', 4
+ (rx495_rep, rx495_pos, $I10, $P10) = rx495_cur."!mark_fail"(0)
+ lt rx495_pos, -1, rx495_done
+ eq rx495_pos, -1, rx495_fail
+ jump $I10
+ rx495_done:
+ rx495_cur."!cursor_fail"()
+ rx495_cur."!cursor_debug"("FAIL ", "colonpair")
+ .return (rx495_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "!PREFIX__colonpair" :subid("121_1275811487.95429") :method
+.annotate 'line', 4
+ $P497 = self."!PREFIX__!subrule"("circumfix", ":")
+ $P498 = self."!PREFIX__!subrule"("identifier", ":")
+ $P499 = self."!PREFIX__!subrule"("identifier", ":!")
+ new $P500, "ResizablePMCArray"
+ push $P500, $P497
+ push $P500, $P498
+ push $P500, $P499
+ .return ($P500)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "variable" :subid("122_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx507_tgt
+ .local int rx507_pos
+ .local int rx507_off
+ .local int rx507_eos
+ .local int rx507_rep
+ .local pmc rx507_cur
+ (rx507_cur, rx507_pos, rx507_tgt) = self."!cursor_start"()
+ rx507_cur."!cursor_debug"("START ", "variable")
+ rx507_cur."!cursor_caparray"("twigil")
+ .lex unicode:"$\x{a2}", rx507_cur
+ .local pmc match
+ .lex "$/", match
+ length rx507_eos, rx507_tgt
+ gt rx507_pos, rx507_eos, rx507_done
+ set rx507_off, 0
+ lt rx507_pos, 2, rx507_start
+ sub rx507_off, rx507_pos, 1
+ substr rx507_tgt, rx507_tgt, rx507_off
+ rx507_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan512_done
+ goto rxscan512_scan
+ rxscan512_loop:
+ ($P10) = rx507_cur."from"()
+ inc $P10
+ set rx507_pos, $P10
+ ge rx507_pos, rx507_eos, rxscan512_done
+ rxscan512_scan:
+ set_addr $I10, rxscan512_loop
+ rx507_cur."!mark_push"(0, rx507_pos, $I10)
+ rxscan512_done:
+ alt513_0:
+.annotate 'line', 248
+ set_addr $I10, alt513_1
+ rx507_cur."!mark_push"(0, rx507_pos, $I10)
+.annotate 'line', 249
# rx subrule "sigil" subtype=capture negate=
- rx489_cur."!cursor_pos"(rx489_pos)
- $P10 = rx489_cur."sigil"()
- unless $P10, rx489_fail
- rx489_cur."!mark_push"(0, -1, 0, $P10)
+ rx507_cur."!cursor_pos"(rx507_pos)
+ $P10 = rx507_cur."sigil"()
+ unless $P10, rx507_fail
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- rx489_pos = $P10."pos"()
- # rx rxquantr496 ** 0..1
- set_addr $I497, rxquantr496_done
- rx489_cur."!mark_push"(0, rx489_pos, $I497)
- rxquantr496_loop:
+ rx507_pos = $P10."pos"()
+ # rx rxquantr514 ** 0..1
+ set_addr $I515, rxquantr514_done
+ rx507_cur."!mark_push"(0, rx507_pos, $I515)
+ rxquantr514_loop:
# rx subrule "twigil" subtype=capture negate=
- rx489_cur."!cursor_pos"(rx489_pos)
- $P10 = rx489_cur."twigil"()
- unless $P10, rx489_fail
- rx489_cur."!mark_push"(0, -1, 0, $P10)
+ rx507_cur."!cursor_pos"(rx507_pos)
+ $P10 = rx507_cur."twigil"()
+ unless $P10, rx507_fail
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("twigil")
- rx489_pos = $P10."pos"()
- (rx489_rep) = rx489_cur."!mark_commit"($I497)
- rxquantr496_done:
+ rx507_pos = $P10."pos"()
+ (rx507_rep) = rx507_cur."!mark_commit"($I515)
+ rxquantr514_done:
# rx subrule "name" subtype=capture negate=
- rx489_cur."!cursor_pos"(rx489_pos)
- $P10 = rx489_cur."name"()
- unless $P10, rx489_fail
- rx489_cur."!mark_push"(0, -1, 0, $P10)
+ rx507_cur."!cursor_pos"(rx507_pos)
+ $P10 = rx507_cur."name"()
+ unless $P10, rx507_fail
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("desigilname")
- 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
+ rx507_pos = $P10."pos"()
+ goto alt513_end
+ alt513_1:
+ set_addr $I10, alt513_2
+ rx507_cur."!mark_push"(0, rx507_pos, $I10)
+.annotate 'line', 250
# rx subrule "sigil" subtype=capture negate=
- rx489_cur."!cursor_pos"(rx489_pos)
- $P10 = rx489_cur."sigil"()
- unless $P10, rx489_fail
- rx489_cur."!mark_push"(0, -1, 0, $P10)
+ rx507_cur."!cursor_pos"(rx507_pos)
+ $P10 = rx507_cur."sigil"()
+ unless $P10, rx507_fail
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- rx489_pos = $P10."pos"()
+ rx507_pos = $P10."pos"()
# rx enumcharlist negate=0 zerowidth
- ge rx489_pos, rx489_eos, rx489_fail
- sub $I10, rx489_pos, rx489_off
- substr $S10, rx489_tgt, $I10, 1
+ ge rx507_pos, rx507_eos, rx507_fail
+ sub $I10, rx507_pos, rx507_off
+ substr $S10, rx507_tgt, $I10, 1
index $I11, "<[", $S10
- lt $I11, 0, rx489_fail
+ lt $I11, 0, rx507_fail
# rx subrule "postcircumfix" subtype=capture negate=
- rx489_cur."!cursor_pos"(rx489_pos)
- $P10 = rx489_cur."postcircumfix"()
- unless $P10, rx489_fail
- rx489_cur."!mark_push"(0, -1, 0, $P10)
+ rx507_cur."!cursor_pos"(rx507_pos)
+ $P10 = rx507_cur."postcircumfix"()
+ unless $P10, rx507_fail
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("postcircumfix")
- rx489_pos = $P10."pos"()
- goto alt495_end
- alt495_2:
-.annotate 'line', 249
+ rx507_pos = $P10."pos"()
+ goto alt513_end
+ alt513_2:
+.annotate 'line', 251
# rx subcapture "sigil"
- set_addr $I10, rxcap_498_fail
- rx489_cur."!mark_push"(0, rx489_pos, $I10)
+ set_addr $I10, rxcap_516_fail
+ rx507_cur."!mark_push"(0, rx507_pos, $I10)
# rx literal "$"
- 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)
+ add $I11, rx507_pos, 1
+ gt $I11, rx507_eos, rx507_fail
+ sub $I11, rx507_pos, rx507_off
+ substr $S10, rx507_tgt, $I11, 1
+ ne $S10, "$", rx507_fail
+ add rx507_pos, 1
+ set_addr $I10, rxcap_516_fail
+ ($I12, $I11) = rx507_cur."!mark_peek"($I10)
+ rx507_cur."!cursor_pos"($I11)
+ ($P10) = rx507_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx507_pos, "")
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- goto rxcap_498_done
- rxcap_498_fail:
- goto rx489_fail
- rxcap_498_done:
+ goto rxcap_516_done
+ rxcap_516_fail:
+ goto rx507_fail
+ rxcap_516_done:
# rx subcapture "desigilname"
- set_addr $I10, rxcap_499_fail
- rx489_cur."!mark_push"(0, rx489_pos, $I10)
+ set_addr $I10, rxcap_517_fail
+ rx507_cur."!mark_push"(0, rx507_pos, $I10)
# rx enumcharlist negate=0
- ge rx489_pos, rx489_eos, rx489_fail
- sub $I10, rx489_pos, rx489_off
- substr $S10, rx489_tgt, $I10, 1
+ ge rx507_pos, rx507_eos, rx507_fail
+ sub $I10, rx507_pos, rx507_off
+ substr $S10, rx507_tgt, $I10, 1
index $I11, "/_!", $S10
- 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)
+ lt $I11, 0, rx507_fail
+ inc rx507_pos
+ set_addr $I10, rxcap_517_fail
+ ($I12, $I11) = rx507_cur."!mark_peek"($I10)
+ rx507_cur."!cursor_pos"($I11)
+ ($P10) = rx507_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx507_pos, "")
+ rx507_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("desigilname")
- goto rxcap_499_done
- rxcap_499_fail:
- goto rx489_fail
- rxcap_499_done:
- alt495_end:
-.annotate 'line', 246
+ goto rxcap_517_done
+ rxcap_517_fail:
+ goto rx507_fail
+ rxcap_517_done:
+ alt513_end:
+.annotate 'line', 248
# rx pass
- rx489_cur."!cursor_pass"(rx489_pos, "variable")
- rx489_cur."!cursor_debug"("PASS ", "variable", " at pos=", rx489_pos)
- .return (rx489_cur)
- rx489_fail:
+ rx507_cur."!cursor_pass"(rx507_pos, "variable")
+ rx507_cur."!cursor_debug"("PASS ", "variable", " at pos=", rx507_pos)
+ .return (rx507_cur)
+ rx507_fail:
.annotate 'line', 4
- (rx489_rep, rx489_pos, $I10, $P10) = rx489_cur."!mark_fail"(0)
- lt rx489_pos, -1, rx489_done
- eq rx489_pos, -1, rx489_fail
+ (rx507_rep, rx507_pos, $I10, $P10) = rx507_cur."!mark_fail"(0)
+ lt rx507_pos, -1, rx507_done
+ eq rx507_pos, -1, rx507_fail
jump $I10
- rx489_done:
- rx489_cur."!cursor_fail"()
- rx489_cur."!cursor_debug"("FAIL ", "variable")
- .return (rx489_cur)
+ rx507_done:
+ rx507_cur."!cursor_fail"()
+ rx507_cur."!cursor_debug"("FAIL ", "variable")
+ .return (rx507_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__variable" :subid("120_1275117591.97262") :method
+.sub "!PREFIX__variable" :subid("123_1275811487.95429") :method
.annotate 'line', 4
- $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)
+ $P509 = self."!PREFIX__!subrule"("sigil", "")
+ $P510 = self."!PREFIX__!subrule"("sigil", "")
+ new $P511, "ResizablePMCArray"
+ push $P511, "$!"
+ push $P511, "$_"
+ push $P511, "$/"
+ push $P511, $P509
+ push $P511, $P510
+ .return ($P511)
.end
.namespace ["NQP";"Grammar"]
-.sub "sigil" :subid("121_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "sigil" :subid("124_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx501_tgt
- .local int rx501_pos
- .local int rx501_off
- .local int rx501_eos
- .local int rx501_rep
- .local pmc rx501_cur
- (rx501_cur, rx501_pos, rx501_tgt) = self."!cursor_start"()
- rx501_cur."!cursor_debug"("START ", "sigil")
- .lex unicode:"$\x{a2}", rx501_cur
- .local pmc match
- .lex "$/", match
- length rx501_eos, rx501_tgt
- set rx501_off, 0
- lt rx501_pos, 2, rx501_start
- sub rx501_off, rx501_pos, 1
- substr rx501_tgt, rx501_tgt, rx501_off
- rx501_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan504_done
- goto rxscan504_scan
- rxscan504_loop:
- ($P10) = rx501_cur."from"()
- inc $P10
- set rx501_pos, $P10
- ge rx501_pos, rx501_eos, rxscan504_done
- rxscan504_scan:
- set_addr $I10, rxscan504_loop
- rx501_cur."!mark_push"(0, rx501_pos, $I10)
- rxscan504_done:
-.annotate 'line', 252
+ .local string rx519_tgt
+ .local int rx519_pos
+ .local int rx519_off
+ .local int rx519_eos
+ .local int rx519_rep
+ .local pmc rx519_cur
+ (rx519_cur, rx519_pos, rx519_tgt) = self."!cursor_start"()
+ rx519_cur."!cursor_debug"("START ", "sigil")
+ .lex unicode:"$\x{a2}", rx519_cur
+ .local pmc match
+ .lex "$/", match
+ length rx519_eos, rx519_tgt
+ gt rx519_pos, rx519_eos, rx519_done
+ set rx519_off, 0
+ lt rx519_pos, 2, rx519_start
+ sub rx519_off, rx519_pos, 1
+ substr rx519_tgt, rx519_tgt, rx519_off
+ rx519_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan522_done
+ goto rxscan522_scan
+ rxscan522_loop:
+ ($P10) = rx519_cur."from"()
+ inc $P10
+ set rx519_pos, $P10
+ ge rx519_pos, rx519_eos, rxscan522_done
+ rxscan522_scan:
+ set_addr $I10, rxscan522_loop
+ rx519_cur."!mark_push"(0, rx519_pos, $I10)
+ rxscan522_done:
+.annotate 'line', 254
# rx enumcharlist negate=0
- ge rx501_pos, rx501_eos, rx501_fail
- sub $I10, rx501_pos, rx501_off
- substr $S10, rx501_tgt, $I10, 1
+ ge rx519_pos, rx519_eos, rx519_fail
+ sub $I10, rx519_pos, rx519_off
+ substr $S10, rx519_tgt, $I10, 1
index $I11, "$@%&", $S10
- lt $I11, 0, rx501_fail
- inc rx501_pos
+ lt $I11, 0, rx519_fail
+ inc rx519_pos
# rx pass
- rx501_cur."!cursor_pass"(rx501_pos, "sigil")
- rx501_cur."!cursor_debug"("PASS ", "sigil", " at pos=", rx501_pos)
- .return (rx501_cur)
- rx501_fail:
+ rx519_cur."!cursor_pass"(rx519_pos, "sigil")
+ rx519_cur."!cursor_debug"("PASS ", "sigil", " at pos=", rx519_pos)
+ .return (rx519_cur)
+ rx519_fail:
.annotate 'line', 4
- (rx501_rep, rx501_pos, $I10, $P10) = rx501_cur."!mark_fail"(0)
- lt rx501_pos, -1, rx501_done
- eq rx501_pos, -1, rx501_fail
+ (rx519_rep, rx519_pos, $I10, $P10) = rx519_cur."!mark_fail"(0)
+ lt rx519_pos, -1, rx519_done
+ eq rx519_pos, -1, rx519_fail
jump $I10
- rx501_done:
- rx501_cur."!cursor_fail"()
- rx501_cur."!cursor_debug"("FAIL ", "sigil")
- .return (rx501_cur)
+ rx519_done:
+ rx519_cur."!cursor_fail"()
+ rx519_cur."!cursor_debug"("FAIL ", "sigil")
+ .return (rx519_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__sigil" :subid("122_1275117591.97262") :method
+.sub "!PREFIX__sigil" :subid("125_1275811487.95429") :method
.annotate 'line', 4
- new $P503, "ResizablePMCArray"
- push $P503, "&"
- push $P503, "%"
- push $P503, "@"
- push $P503, "$"
- .return ($P503)
+ new $P521, "ResizablePMCArray"
+ push $P521, "&"
+ push $P521, "%"
+ push $P521, "@"
+ push $P521, "$"
+ .return ($P521)
.end
.namespace ["NQP";"Grammar"]
-.sub "twigil" :subid("123_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "twigil" :subid("126_1275811487.95429") :method :outer("11_1275811487.95429")
.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 string rx524_tgt
+ .local int rx524_pos
+ .local int rx524_off
+ .local int rx524_eos
+ .local int rx524_rep
+ .local pmc rx524_cur
+ (rx524_cur, rx524_pos, rx524_tgt) = self."!cursor_start"()
+ rx524_cur."!cursor_debug"("START ", "twigil")
+ .lex unicode:"$\x{a2}", rx524_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:
+ length rx524_eos, rx524_tgt
+ gt rx524_pos, rx524_eos, rx524_done
+ set rx524_off, 0
+ lt rx524_pos, 2, rx524_start
+ sub rx524_off, rx524_pos, 1
+ substr rx524_tgt, rx524_tgt, rx524_off
+ rx524_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan509_done
- goto rxscan509_scan
- rxscan509_loop:
- ($P10) = rx506_cur."from"()
+ ne $I10, -1, rxscan527_done
+ goto rxscan527_scan
+ rxscan527_loop:
+ ($P10) = rx524_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
+ set rx524_pos, $P10
+ ge rx524_pos, rx524_eos, rxscan527_done
+ rxscan527_scan:
+ set_addr $I10, rxscan527_loop
+ rx524_cur."!mark_push"(0, rx524_pos, $I10)
+ rxscan527_done:
+.annotate 'line', 256
# rx enumcharlist negate=0
- ge rx506_pos, rx506_eos, rx506_fail
- sub $I10, rx506_pos, rx506_off
- substr $S10, rx506_tgt, $I10, 1
+ ge rx524_pos, rx524_eos, rx524_fail
+ sub $I10, rx524_pos, rx524_off
+ substr $S10, rx524_tgt, $I10, 1
index $I11, "*!?", $S10
- lt $I11, 0, rx506_fail
- inc rx506_pos
+ lt $I11, 0, rx524_fail
+ inc rx524_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:
+ rx524_cur."!cursor_pass"(rx524_pos, "twigil")
+ rx524_cur."!cursor_debug"("PASS ", "twigil", " at pos=", rx524_pos)
+ .return (rx524_cur)
+ rx524_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
+ (rx524_rep, rx524_pos, $I10, $P10) = rx524_cur."!mark_fail"(0)
+ lt rx524_pos, -1, rx524_done
+ eq rx524_pos, -1, rx524_fail
jump $I10
- rx506_done:
- rx506_cur."!cursor_fail"()
- rx506_cur."!cursor_debug"("FAIL ", "twigil")
- .return (rx506_cur)
+ rx524_done:
+ rx524_cur."!cursor_fail"()
+ rx524_cur."!cursor_debug"("FAIL ", "twigil")
+ .return (rx524_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__twigil" :subid("124_1275117591.97262") :method
+.sub "!PREFIX__twigil" :subid("127_1275811487.95429") :method
.annotate 'line', 4
- new $P508, "ResizablePMCArray"
- push $P508, "?"
- push $P508, "!"
- push $P508, "*"
- .return ($P508)
+ new $P526, "ResizablePMCArray"
+ push $P526, "?"
+ push $P526, "!"
+ push $P526, "*"
+ .return ($P526)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_declarator" :subid("125_1275117591.97262") :method
-.annotate 'line', 256
- $P511 = self."!protoregex"("package_declarator")
- .return ($P511)
+.sub "package_declarator" :subid("128_1275811487.95429") :method
+.annotate 'line', 258
+ $P529 = self."!protoregex"("package_declarator")
+ .return ($P529)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_declarator" :subid("126_1275117591.97262") :method
-.annotate 'line', 256
- $P513 = self."!PREFIX__!protoregex"("package_declarator")
- .return ($P513)
+.sub "!PREFIX__package_declarator" :subid("129_1275811487.95429") :method
+.annotate 'line', 258
+ $P531 = self."!PREFIX__!protoregex"("package_declarator")
+ .return ($P531)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_declarator:sym<module>" :subid("127_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "package_declarator:sym<module>" :subid("130_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx533_tgt
+ .local int rx533_pos
+ .local int rx533_off
+ .local int rx533_eos
+ .local int rx533_rep
+ .local pmc rx533_cur
+ (rx533_cur, rx533_pos, rx533_tgt) = self."!cursor_start"()
+ rx533_cur."!cursor_debug"("START ", "package_declarator:sym<module>")
+ .lex unicode:"$\x{a2}", rx533_cur
+ .local pmc match
+ .lex "$/", match
+ length rx533_eos, rx533_tgt
+ gt rx533_pos, rx533_eos, rx533_done
+ set rx533_off, 0
+ lt rx533_pos, 2, rx533_start
+ sub rx533_off, rx533_pos, 1
+ substr rx533_tgt, rx533_tgt, rx533_off
+ rx533_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan537_done
+ goto rxscan537_scan
+ rxscan537_loop:
+ ($P10) = rx533_cur."from"()
+ inc $P10
+ set rx533_pos, $P10
+ ge rx533_pos, rx533_eos, rxscan537_done
+ rxscan537_scan:
+ set_addr $I10, rxscan537_loop
+ rx533_cur."!mark_push"(0, rx533_pos, $I10)
+ rxscan537_done:
+.annotate 'line', 259
# rx subcapture "sym"
- set_addr $I10, rxcap_520_fail
- rx515_cur."!mark_push"(0, rx515_pos, $I10)
+ set_addr $I10, rxcap_538_fail
+ rx533_cur."!mark_push"(0, rx533_pos, $I10)
# rx literal "module"
- 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)
+ add $I11, rx533_pos, 6
+ gt $I11, rx533_eos, rx533_fail
+ sub $I11, rx533_pos, rx533_off
+ substr $S10, rx533_tgt, $I11, 6
+ ne $S10, "module", rx533_fail
+ add rx533_pos, 6
+ set_addr $I10, rxcap_538_fail
+ ($I12, $I11) = rx533_cur."!mark_peek"($I10)
+ rx533_cur."!cursor_pos"($I11)
+ ($P10) = rx533_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx533_pos, "")
+ rx533_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_520_done
- rxcap_520_fail:
- goto rx515_fail
- rxcap_520_done:
+ goto rxcap_538_done
+ rxcap_538_fail:
+ goto rx533_fail
+ rxcap_538_done:
# rx subrule "package_def" subtype=capture negate=
- rx515_cur."!cursor_pos"(rx515_pos)
- $P10 = rx515_cur."package_def"()
- unless $P10, rx515_fail
- rx515_cur."!mark_push"(0, -1, 0, $P10)
+ rx533_cur."!cursor_pos"(rx533_pos)
+ $P10 = rx533_cur."package_def"()
+ unless $P10, rx533_fail
+ rx533_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("package_def")
- rx515_pos = $P10."pos"()
+ rx533_pos = $P10."pos"()
# rx pass
- 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:
+ rx533_cur."!cursor_pass"(rx533_pos, "package_declarator:sym<module>")
+ rx533_cur."!cursor_debug"("PASS ", "package_declarator:sym<module>", " at pos=", rx533_pos)
+ .return (rx533_cur)
+ rx533_fail:
.annotate 'line', 4
- (rx515_rep, rx515_pos, $I10, $P10) = rx515_cur."!mark_fail"(0)
- lt rx515_pos, -1, rx515_done
- eq rx515_pos, -1, rx515_fail
+ (rx533_rep, rx533_pos, $I10, $P10) = rx533_cur."!mark_fail"(0)
+ lt rx533_pos, -1, rx533_done
+ eq rx533_pos, -1, rx533_fail
jump $I10
- rx515_done:
- rx515_cur."!cursor_fail"()
- rx515_cur."!cursor_debug"("FAIL ", "package_declarator:sym<module>")
- .return (rx515_cur)
+ rx533_done:
+ rx533_cur."!cursor_fail"()
+ rx533_cur."!cursor_debug"("FAIL ", "package_declarator:sym<module>")
+ .return (rx533_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_declarator:sym<module>" :subid("128_1275117591.97262") :method
+.sub "!PREFIX__package_declarator:sym<module>" :subid("131_1275811487.95429") :method
.annotate 'line', 4
- $P517 = self."!PREFIX__!subrule"("package_def", "module")
- new $P518, "ResizablePMCArray"
- push $P518, $P517
- .return ($P518)
+ $P535 = self."!PREFIX__!subrule"("package_def", "module")
+ new $P536, "ResizablePMCArray"
+ push $P536, $P535
+ .return ($P536)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_declarator:sym<class>" :subid("129_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "package_declarator:sym<class>" :subid("132_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx540_tgt
+ .local int rx540_pos
+ .local int rx540_off
+ .local int rx540_eos
+ .local int rx540_rep
+ .local pmc rx540_cur
+ (rx540_cur, rx540_pos, rx540_tgt) = self."!cursor_start"()
+ rx540_cur."!cursor_debug"("START ", "package_declarator:sym<class>")
+ .lex unicode:"$\x{a2}", rx540_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:
+ length rx540_eos, rx540_tgt
+ gt rx540_pos, rx540_eos, rx540_done
+ set rx540_off, 0
+ lt rx540_pos, 2, rx540_start
+ sub rx540_off, rx540_pos, 1
+ substr rx540_tgt, rx540_tgt, rx540_off
+ rx540_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan527_done
- goto rxscan527_scan
- rxscan527_loop:
- ($P10) = rx522_cur."from"()
+ ne $I10, -1, rxscan545_done
+ goto rxscan545_scan
+ rxscan545_loop:
+ ($P10) = rx540_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
+ set rx540_pos, $P10
+ ge rx540_pos, rx540_eos, rxscan545_done
+ rxscan545_scan:
+ set_addr $I10, rxscan545_loop
+ rx540_cur."!mark_push"(0, rx540_pos, $I10)
+ rxscan545_done:
+.annotate 'line', 260
# rx subcapture "sym"
- 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)
+ set_addr $I10, rxcap_547_fail
+ rx540_cur."!mark_push"(0, rx540_pos, $I10)
+ alt546_0:
+ set_addr $I10, alt546_1
+ rx540_cur."!mark_push"(0, rx540_pos, $I10)
# rx literal "class"
- 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:
+ add $I11, rx540_pos, 5
+ gt $I11, rx540_eos, rx540_fail
+ sub $I11, rx540_pos, rx540_off
+ substr $S10, rx540_tgt, $I11, 5
+ ne $S10, "class", rx540_fail
+ add rx540_pos, 5
+ goto alt546_end
+ alt546_1:
# rx literal "grammar"
- 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)
+ add $I11, rx540_pos, 7
+ gt $I11, rx540_eos, rx540_fail
+ sub $I11, rx540_pos, rx540_off
+ substr $S10, rx540_tgt, $I11, 7
+ ne $S10, "grammar", rx540_fail
+ add rx540_pos, 7
+ alt546_end:
+ set_addr $I10, rxcap_547_fail
+ ($I12, $I11) = rx540_cur."!mark_peek"($I10)
+ rx540_cur."!cursor_pos"($I11)
+ ($P10) = rx540_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx540_pos, "")
+ rx540_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_529_done
- rxcap_529_fail:
- goto rx522_fail
- rxcap_529_done:
+ goto rxcap_547_done
+ rxcap_547_fail:
+ goto rx540_fail
+ rxcap_547_done:
# rx subrule "package_def" subtype=capture negate=
- rx522_cur."!cursor_pos"(rx522_pos)
- $P10 = rx522_cur."package_def"()
- unless $P10, rx522_fail
- rx522_cur."!mark_push"(0, -1, 0, $P10)
+ rx540_cur."!cursor_pos"(rx540_pos)
+ $P10 = rx540_cur."package_def"()
+ unless $P10, rx540_fail
+ rx540_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("package_def")
- rx522_pos = $P10."pos"()
+ rx540_pos = $P10."pos"()
# rx pass
- 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:
+ rx540_cur."!cursor_pass"(rx540_pos, "package_declarator:sym<class>")
+ rx540_cur."!cursor_debug"("PASS ", "package_declarator:sym<class>", " at pos=", rx540_pos)
+ .return (rx540_cur)
+ rx540_fail:
.annotate 'line', 4
- (rx522_rep, rx522_pos, $I10, $P10) = rx522_cur."!mark_fail"(0)
- lt rx522_pos, -1, rx522_done
- eq rx522_pos, -1, rx522_fail
+ (rx540_rep, rx540_pos, $I10, $P10) = rx540_cur."!mark_fail"(0)
+ lt rx540_pos, -1, rx540_done
+ eq rx540_pos, -1, rx540_fail
jump $I10
- rx522_done:
- rx522_cur."!cursor_fail"()
- rx522_cur."!cursor_debug"("FAIL ", "package_declarator:sym<class>")
- .return (rx522_cur)
+ rx540_done:
+ rx540_cur."!cursor_fail"()
+ rx540_cur."!cursor_debug"("FAIL ", "package_declarator:sym<class>")
+ .return (rx540_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_declarator:sym<class>" :subid("130_1275117591.97262") :method
+.sub "!PREFIX__package_declarator:sym<class>" :subid("133_1275811487.95429") :method
.annotate 'line', 4
- $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)
+ $P542 = self."!PREFIX__!subrule"("package_def", "grammar")
+ $P543 = self."!PREFIX__!subrule"("package_def", "class")
+ new $P544, "ResizablePMCArray"
+ push $P544, $P542
+ push $P544, $P543
+ .return ($P544)
.end
.namespace ["NQP";"Grammar"]
-.sub "package_def" :subid("131_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "package_def" :subid("134_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan534_done
- goto rxscan534_scan
- rxscan534_loop:
- ($P10) = rx531_cur."from"()
- inc $P10
- 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
+ .local string rx549_tgt
+ .local int rx549_pos
+ .local int rx549_off
+ .local int rx549_eos
+ .local int rx549_rep
+ .local pmc rx549_cur
+ (rx549_cur, rx549_pos, rx549_tgt) = self."!cursor_start"()
+ rx549_cur."!cursor_debug"("START ", "package_def")
+ rx549_cur."!cursor_caparray"("parent")
+ .lex unicode:"$\x{a2}", rx549_cur
+ .local pmc match
+ .lex "$/", match
+ length rx549_eos, rx549_tgt
+ gt rx549_pos, rx549_eos, rx549_done
+ set rx549_off, 0
+ lt rx549_pos, 2, rx549_start
+ sub rx549_off, rx549_pos, 1
+ substr rx549_tgt, rx549_tgt, rx549_off
+ rx549_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan553_done
+ goto rxscan553_scan
+ rxscan553_loop:
+ ($P10) = rx549_cur."from"()
+ inc $P10
+ set rx549_pos, $P10
+ ge rx549_pos, rx549_eos, rxscan553_done
+ rxscan553_scan:
+ set_addr $I10, rxscan553_loop
+ rx549_cur."!mark_push"(0, rx549_pos, $I10)
+ rxscan553_done:
+.annotate 'line', 262
# 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', 261
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+.annotate 'line', 263
# rx subrule "name" subtype=capture negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."name"()
- unless $P10, rx531_fail
- rx531_cur."!mark_push"(0, -1, 0, $P10)
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."name"()
+ unless $P10, rx549_fail
+ rx549_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- rx531_pos = $P10."pos"()
+ rx549_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"()
-.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"()
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+.annotate 'line', 264
+ # rx rxquantr556 ** 0..1
+ set_addr $I560, rxquantr556_done
+ rx549_cur."!mark_push"(0, rx549_pos, $I560)
+ rxquantr556_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx literal "is"
- 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"()
+ add $I11, rx549_pos, 2
+ gt $I11, rx549_eos, rx549_fail
+ sub $I11, rx549_pos, rx549_off
+ substr $S10, rx549_tgt, $I11, 2
+ ne $S10, "is", rx549_fail
+ add rx549_pos, 2
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx subrule "name" subtype=capture negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."name"()
- unless $P10, rx531_fail
- rx531_cur."!mark_push"(0, -1, 0, $P10)
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."name"()
+ unless $P10, rx549_fail
+ rx549_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("parent")
- rx531_pos = $P10."pos"()
+ rx549_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"()
- (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
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+ (rx549_rep) = rx549_cur."!mark_commit"($I560)
+ rxquantr556_done:
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+ alt562_0:
+.annotate 'line', 265
+ set_addr $I10, alt562_1
+ rx549_cur."!mark_push"(0, rx549_pos, $I10)
+.annotate 'line', 266
# rx subrule "ws" subtype=method negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."ws"()
- unless $P10, rx531_fail
- rx531_pos = $P10."pos"()
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx literal ";"
- 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"()
+ add $I11, rx549_pos, 1
+ gt $I11, rx549_eos, rx549_fail
+ sub $I11, rx549_pos, rx549_off
+ substr $S10, rx549_tgt, $I11, 1
+ ne $S10, ";", rx549_fail
+ add rx549_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx subrule "comp_unit" subtype=capture negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."comp_unit"()
- unless $P10, rx531_fail
- rx531_cur."!mark_push"(0, -1, 0, $P10)
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."comp_unit"()
+ unless $P10, rx549_fail
+ rx549_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("comp_unit")
- rx531_pos = $P10."pos"()
+ rx549_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"()
- goto alt543_end
- alt543_1:
- set_addr $I10, alt543_2
- rx531_cur."!mark_push"(0, rx531_pos, $I10)
-.annotate 'line', 265
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+ goto alt562_end
+ alt562_1:
+ set_addr $I10, alt562_2
+ rx549_cur."!mark_push"(0, rx549_pos, $I10)
+.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"()
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx enumcharlist negate=0 zerowidth
- ge rx531_pos, rx531_eos, rx531_fail
- sub $I10, rx531_pos, rx531_off
- substr $S10, rx531_tgt, $I10, 1
+ ge rx549_pos, rx549_eos, rx549_fail
+ sub $I10, rx549_pos, rx549_off
+ substr $S10, rx549_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx531_fail
+ lt $I11, 0, rx549_fail
# rx subrule "ws" subtype=method negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."ws"()
- unless $P10, rx531_fail
- rx531_pos = $P10."pos"()
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx subrule "block" subtype=capture negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."block"()
- unless $P10, rx531_fail
- rx531_cur."!mark_push"(0, -1, 0, $P10)
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."block"()
+ unless $P10, rx549_fail
+ rx549_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx531_pos = $P10."pos"()
+ rx549_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"()
- goto alt543_end
- alt543_2:
-.annotate 'line', 266
- # rx subrule "ws" subtype=method negate=
- rx531_cur."!cursor_pos"(rx531_pos)
- $P10 = rx531_cur."ws"()
- unless $P10, rx531_fail
- rx531_pos = $P10."pos"()
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+ goto alt562_end
+ alt562_2:
+.annotate 'line', 268
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- 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
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."panic"("Malformed package declaration")
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+ alt562_end:
+.annotate 'line', 269
+ # rx subrule "ws" subtype=method negate=
+ rx549_cur."!cursor_pos"(rx549_pos)
+ $P10 = rx549_cur."ws"()
+ unless $P10, rx549_fail
+ rx549_pos = $P10."pos"()
+.annotate 'line', 262
# rx pass
- rx531_cur."!cursor_pass"(rx531_pos, "package_def")
- rx531_cur."!cursor_debug"("PASS ", "package_def", " at pos=", rx531_pos)
- .return (rx531_cur)
- rx531_fail:
+ rx549_cur."!cursor_pass"(rx549_pos, "package_def")
+ rx549_cur."!cursor_debug"("PASS ", "package_def", " at pos=", rx549_pos)
+ .return (rx549_cur)
+ rx549_fail:
.annotate 'line', 4
- (rx531_rep, rx531_pos, $I10, $P10) = rx531_cur."!mark_fail"(0)
- lt rx531_pos, -1, rx531_done
- eq rx531_pos, -1, rx531_fail
+ (rx549_rep, rx549_pos, $I10, $P10) = rx549_cur."!mark_fail"(0)
+ lt rx549_pos, -1, rx549_done
+ eq rx549_pos, -1, rx549_fail
jump $I10
- rx531_done:
- rx531_cur."!cursor_fail"()
- rx531_cur."!cursor_debug"("FAIL ", "package_def")
- .return (rx531_cur)
+ rx549_done:
+ rx549_cur."!cursor_fail"()
+ rx549_cur."!cursor_debug"("FAIL ", "package_def")
+ .return (rx549_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__package_def" :subid("132_1275117591.97262") :method
+.sub "!PREFIX__package_def" :subid("135_1275811487.95429") :method
.annotate 'line', 4
- new $P533, "ResizablePMCArray"
- push $P533, ""
- .return ($P533)
+ $P551 = self."!PREFIX__!subrule"("ws", "")
+ new $P552, "ResizablePMCArray"
+ push $P552, $P551
+ .return ($P552)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator" :subid("133_1275117591.97262") :method
-.annotate 'line', 270
- $P554 = self."!protoregex"("scope_declarator")
- .return ($P554)
+.sub "scope_declarator" :subid("136_1275811487.95429") :method
+.annotate 'line', 272
+ $P573 = self."!protoregex"("scope_declarator")
+ .return ($P573)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator" :subid("134_1275117591.97262") :method
-.annotate 'line', 270
- $P556 = self."!PREFIX__!protoregex"("scope_declarator")
- .return ($P556)
+.sub "!PREFIX__scope_declarator" :subid("137_1275811487.95429") :method
+.annotate 'line', 272
+ $P575 = self."!PREFIX__!protoregex"("scope_declarator")
+ .return ($P575)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator:sym<my>" :subid("135_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "scope_declarator:sym<my>" :subid("138_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx577_tgt
+ .local int rx577_pos
+ .local int rx577_off
+ .local int rx577_eos
+ .local int rx577_rep
+ .local pmc rx577_cur
+ (rx577_cur, rx577_pos, rx577_tgt) = self."!cursor_start"()
+ rx577_cur."!cursor_debug"("START ", "scope_declarator:sym<my>")
+ .lex unicode:"$\x{a2}", rx577_cur
+ .local pmc match
+ .lex "$/", match
+ length rx577_eos, rx577_tgt
+ gt rx577_pos, rx577_eos, rx577_done
+ set rx577_off, 0
+ lt rx577_pos, 2, rx577_start
+ sub rx577_off, rx577_pos, 1
+ substr rx577_tgt, rx577_tgt, rx577_off
+ rx577_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan581_done
+ goto rxscan581_scan
+ rxscan581_loop:
+ ($P10) = rx577_cur."from"()
+ inc $P10
+ set rx577_pos, $P10
+ ge rx577_pos, rx577_eos, rxscan581_done
+ rxscan581_scan:
+ set_addr $I10, rxscan581_loop
+ rx577_cur."!mark_push"(0, rx577_pos, $I10)
+ rxscan581_done:
+.annotate 'line', 273
# rx subcapture "sym"
- set_addr $I10, rxcap_563_fail
- rx558_cur."!mark_push"(0, rx558_pos, $I10)
+ set_addr $I10, rxcap_582_fail
+ rx577_cur."!mark_push"(0, rx577_pos, $I10)
# rx literal "my"
- 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)
+ add $I11, rx577_pos, 2
+ gt $I11, rx577_eos, rx577_fail
+ sub $I11, rx577_pos, rx577_off
+ substr $S10, rx577_tgt, $I11, 2
+ ne $S10, "my", rx577_fail
+ add rx577_pos, 2
+ set_addr $I10, rxcap_582_fail
+ ($I12, $I11) = rx577_cur."!mark_peek"($I10)
+ rx577_cur."!cursor_pos"($I11)
+ ($P10) = rx577_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx577_pos, "")
+ rx577_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_563_done
- rxcap_563_fail:
- goto rx558_fail
- rxcap_563_done:
+ goto rxcap_582_done
+ rxcap_582_fail:
+ goto rx577_fail
+ rxcap_582_done:
# rx subrule "scoped" subtype=capture negate=
- rx558_cur."!cursor_pos"(rx558_pos)
- $P10 = rx558_cur."scoped"("my")
- unless $P10, rx558_fail
- rx558_cur."!mark_push"(0, -1, 0, $P10)
+ rx577_cur."!cursor_pos"(rx577_pos)
+ $P10 = rx577_cur."scoped"("my")
+ unless $P10, rx577_fail
+ rx577_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scoped")
- rx558_pos = $P10."pos"()
+ rx577_pos = $P10."pos"()
# rx pass
- 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:
+ rx577_cur."!cursor_pass"(rx577_pos, "scope_declarator:sym<my>")
+ rx577_cur."!cursor_debug"("PASS ", "scope_declarator:sym<my>", " at pos=", rx577_pos)
+ .return (rx577_cur)
+ rx577_fail:
.annotate 'line', 4
- (rx558_rep, rx558_pos, $I10, $P10) = rx558_cur."!mark_fail"(0)
- lt rx558_pos, -1, rx558_done
- eq rx558_pos, -1, rx558_fail
+ (rx577_rep, rx577_pos, $I10, $P10) = rx577_cur."!mark_fail"(0)
+ lt rx577_pos, -1, rx577_done
+ eq rx577_pos, -1, rx577_fail
jump $I10
- rx558_done:
- rx558_cur."!cursor_fail"()
- rx558_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<my>")
- .return (rx558_cur)
+ rx577_done:
+ rx577_cur."!cursor_fail"()
+ rx577_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<my>")
+ .return (rx577_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator:sym<my>" :subid("136_1275117591.97262") :method
+.sub "!PREFIX__scope_declarator:sym<my>" :subid("139_1275811487.95429") :method
.annotate 'line', 4
- $P560 = self."!PREFIX__!subrule"("scoped", "my")
- new $P561, "ResizablePMCArray"
- push $P561, $P560
- .return ($P561)
+ $P579 = self."!PREFIX__!subrule"("scoped", "my")
+ new $P580, "ResizablePMCArray"
+ push $P580, $P579
+ .return ($P580)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator:sym<our>" :subid("137_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "scope_declarator:sym<our>" :subid("140_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx584_tgt
+ .local int rx584_pos
+ .local int rx584_off
+ .local int rx584_eos
+ .local int rx584_rep
+ .local pmc rx584_cur
+ (rx584_cur, rx584_pos, rx584_tgt) = self."!cursor_start"()
+ rx584_cur."!cursor_debug"("START ", "scope_declarator:sym<our>")
+ .lex unicode:"$\x{a2}", rx584_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:
+ length rx584_eos, rx584_tgt
+ gt rx584_pos, rx584_eos, rx584_done
+ set rx584_off, 0
+ lt rx584_pos, 2, rx584_start
+ sub rx584_off, rx584_pos, 1
+ substr rx584_tgt, rx584_tgt, rx584_off
+ rx584_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan569_done
- goto rxscan569_scan
- rxscan569_loop:
- ($P10) = rx565_cur."from"()
+ ne $I10, -1, rxscan588_done
+ goto rxscan588_scan
+ rxscan588_loop:
+ ($P10) = rx584_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
+ set rx584_pos, $P10
+ ge rx584_pos, rx584_eos, rxscan588_done
+ rxscan588_scan:
+ set_addr $I10, rxscan588_loop
+ rx584_cur."!mark_push"(0, rx584_pos, $I10)
+ rxscan588_done:
+.annotate 'line', 274
# rx subcapture "sym"
- set_addr $I10, rxcap_570_fail
- rx565_cur."!mark_push"(0, rx565_pos, $I10)
+ set_addr $I10, rxcap_589_fail
+ rx584_cur."!mark_push"(0, rx584_pos, $I10)
# rx literal "our"
- 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)
+ add $I11, rx584_pos, 3
+ gt $I11, rx584_eos, rx584_fail
+ sub $I11, rx584_pos, rx584_off
+ substr $S10, rx584_tgt, $I11, 3
+ ne $S10, "our", rx584_fail
+ add rx584_pos, 3
+ set_addr $I10, rxcap_589_fail
+ ($I12, $I11) = rx584_cur."!mark_peek"($I10)
+ rx584_cur."!cursor_pos"($I11)
+ ($P10) = rx584_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx584_pos, "")
+ rx584_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_570_done
- rxcap_570_fail:
- goto rx565_fail
- rxcap_570_done:
+ goto rxcap_589_done
+ rxcap_589_fail:
+ goto rx584_fail
+ rxcap_589_done:
# rx subrule "scoped" subtype=capture negate=
- rx565_cur."!cursor_pos"(rx565_pos)
- $P10 = rx565_cur."scoped"("our")
- unless $P10, rx565_fail
- rx565_cur."!mark_push"(0, -1, 0, $P10)
+ rx584_cur."!cursor_pos"(rx584_pos)
+ $P10 = rx584_cur."scoped"("our")
+ unless $P10, rx584_fail
+ rx584_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scoped")
- rx565_pos = $P10."pos"()
+ rx584_pos = $P10."pos"()
# rx pass
- 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:
+ rx584_cur."!cursor_pass"(rx584_pos, "scope_declarator:sym<our>")
+ rx584_cur."!cursor_debug"("PASS ", "scope_declarator:sym<our>", " at pos=", rx584_pos)
+ .return (rx584_cur)
+ rx584_fail:
.annotate 'line', 4
- (rx565_rep, rx565_pos, $I10, $P10) = rx565_cur."!mark_fail"(0)
- lt rx565_pos, -1, rx565_done
- eq rx565_pos, -1, rx565_fail
+ (rx584_rep, rx584_pos, $I10, $P10) = rx584_cur."!mark_fail"(0)
+ lt rx584_pos, -1, rx584_done
+ eq rx584_pos, -1, rx584_fail
jump $I10
- rx565_done:
- rx565_cur."!cursor_fail"()
- rx565_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<our>")
- .return (rx565_cur)
+ rx584_done:
+ rx584_cur."!cursor_fail"()
+ rx584_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<our>")
+ .return (rx584_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator:sym<our>" :subid("138_1275117591.97262") :method
+.sub "!PREFIX__scope_declarator:sym<our>" :subid("141_1275811487.95429") :method
.annotate 'line', 4
- $P567 = self."!PREFIX__!subrule"("scoped", "our")
- new $P568, "ResizablePMCArray"
- push $P568, $P567
- .return ($P568)
+ $P586 = self."!PREFIX__!subrule"("scoped", "our")
+ new $P587, "ResizablePMCArray"
+ push $P587, $P586
+ .return ($P587)
.end
.namespace ["NQP";"Grammar"]
-.sub "scope_declarator:sym<has>" :subid("139_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "scope_declarator:sym<has>" :subid("142_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan576_done
- goto rxscan576_scan
- rxscan576_loop:
- ($P10) = rx572_cur."from"()
- inc $P10
- 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
+ .local string rx591_tgt
+ .local int rx591_pos
+ .local int rx591_off
+ .local int rx591_eos
+ .local int rx591_rep
+ .local pmc rx591_cur
+ (rx591_cur, rx591_pos, rx591_tgt) = self."!cursor_start"()
+ rx591_cur."!cursor_debug"("START ", "scope_declarator:sym<has>")
+ .lex unicode:"$\x{a2}", rx591_cur
+ .local pmc match
+ .lex "$/", match
+ length rx591_eos, rx591_tgt
+ gt rx591_pos, rx591_eos, rx591_done
+ set rx591_off, 0
+ lt rx591_pos, 2, rx591_start
+ sub rx591_off, rx591_pos, 1
+ substr rx591_tgt, rx591_tgt, rx591_off
+ rx591_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan595_done
+ goto rxscan595_scan
+ rxscan595_loop:
+ ($P10) = rx591_cur."from"()
+ inc $P10
+ set rx591_pos, $P10
+ ge rx591_pos, rx591_eos, rxscan595_done
+ rxscan595_scan:
+ set_addr $I10, rxscan595_loop
+ rx591_cur."!mark_push"(0, rx591_pos, $I10)
+ rxscan595_done:
+.annotate 'line', 275
# rx subcapture "sym"
- set_addr $I10, rxcap_577_fail
- rx572_cur."!mark_push"(0, rx572_pos, $I10)
+ set_addr $I10, rxcap_596_fail
+ rx591_cur."!mark_push"(0, rx591_pos, $I10)
# rx literal "has"
- 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)
+ add $I11, rx591_pos, 3
+ gt $I11, rx591_eos, rx591_fail
+ sub $I11, rx591_pos, rx591_off
+ substr $S10, rx591_tgt, $I11, 3
+ ne $S10, "has", rx591_fail
+ add rx591_pos, 3
+ set_addr $I10, rxcap_596_fail
+ ($I12, $I11) = rx591_cur."!mark_peek"($I10)
+ rx591_cur."!cursor_pos"($I11)
+ ($P10) = rx591_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx591_pos, "")
+ rx591_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_577_done
- rxcap_577_fail:
- goto rx572_fail
- rxcap_577_done:
+ goto rxcap_596_done
+ rxcap_596_fail:
+ goto rx591_fail
+ rxcap_596_done:
# rx subrule "scoped" subtype=capture negate=
- rx572_cur."!cursor_pos"(rx572_pos)
- $P10 = rx572_cur."scoped"("has")
- unless $P10, rx572_fail
- rx572_cur."!mark_push"(0, -1, 0, $P10)
+ rx591_cur."!cursor_pos"(rx591_pos)
+ $P10 = rx591_cur."scoped"("has")
+ unless $P10, rx591_fail
+ rx591_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("scoped")
- rx572_pos = $P10."pos"()
+ rx591_pos = $P10."pos"()
# rx pass
- 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:
+ rx591_cur."!cursor_pass"(rx591_pos, "scope_declarator:sym<has>")
+ rx591_cur."!cursor_debug"("PASS ", "scope_declarator:sym<has>", " at pos=", rx591_pos)
+ .return (rx591_cur)
+ rx591_fail:
.annotate 'line', 4
- (rx572_rep, rx572_pos, $I10, $P10) = rx572_cur."!mark_fail"(0)
- lt rx572_pos, -1, rx572_done
- eq rx572_pos, -1, rx572_fail
+ (rx591_rep, rx591_pos, $I10, $P10) = rx591_cur."!mark_fail"(0)
+ lt rx591_pos, -1, rx591_done
+ eq rx591_pos, -1, rx591_fail
jump $I10
- rx572_done:
- rx572_cur."!cursor_fail"()
- rx572_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<has>")
- .return (rx572_cur)
+ rx591_done:
+ rx591_cur."!cursor_fail"()
+ rx591_cur."!cursor_debug"("FAIL ", "scope_declarator:sym<has>")
+ .return (rx591_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scope_declarator:sym<has>" :subid("140_1275117591.97262") :method
+.sub "!PREFIX__scope_declarator:sym<has>" :subid("143_1275811487.95429") :method
.annotate 'line', 4
- $P574 = self."!PREFIX__!subrule"("scoped", "has")
- new $P575, "ResizablePMCArray"
- push $P575, $P574
- .return ($P575)
+ $P593 = self."!PREFIX__!subrule"("scoped", "has")
+ new $P594, "ResizablePMCArray"
+ push $P594, $P593
+ .return ($P594)
.end
.namespace ["NQP";"Grammar"]
-.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 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=
- 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")
- rx580_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- rx580_cur."!cursor_pos"(rx580_pos)
- $P10 = rx580_cur."ws"()
- unless $P10, rx580_fail
- rx580_pos = $P10."pos"()
- goto alt584_end
- alt584_1:
+.sub "scoped" :subid("144_1275811487.95429") :method :outer("11_1275811487.95429")
+ .param pmc param_598
.annotate 'line', 277
- # 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 rxquantr588 ** 1..*
- set_addr $I589, rxquantr588_done
- rx580_cur."!mark_push"(0, -1, $I589)
- rxquantr588_loop:
- # rx subrule "typename" subtype=capture negate=
- 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")
- 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=
- 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")
- rx580_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- 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
- 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
- (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
- rx580_done:
- rx580_cur."!cursor_fail"()
- rx580_cur."!cursor_debug"("FAIL ", "scoped")
- .return (rx580_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__scoped" :subid("142_1275117591.97262") :method
-.annotate 'line', 4
- new $P582, "ResizablePMCArray"
- push $P582, ""
- push $P582, ""
- .return ($P582)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "typename" :subid("143_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .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 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, rxscan597_done
- goto rxscan597_scan
- rxscan597_loop:
- ($P10) = rx593_cur."from"()
- inc $P10
- 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=
- 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")
- rx593_pos = $P10."pos"()
- # rx pass
- 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
- (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
- rx593_done:
- rx593_cur."!cursor_fail"()
- rx593_cur."!cursor_debug"("FAIL ", "typename")
- .return (rx593_cur)
- .return ()
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__typename" :subid("144_1275117591.97262") :method
-.annotate 'line', 4
- $P595 = self."!PREFIX__!subrule"("name", "")
- new $P596, "ResizablePMCArray"
- push $P596, $P595
- .return ($P596)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.sub "declarator" :subid("145_1275117591.97262") :method :outer("11_1275117591.97262")
+ .lex "$*SCOPE", param_598
.annotate 'line', 4
.local string rx599_tgt
.local int rx599_pos
@@ -7198,11 +7242,12 @@
.local int rx599_rep
.local pmc rx599_cur
(rx599_cur, rx599_pos, rx599_tgt) = self."!cursor_start"()
- rx599_cur."!cursor_debug"("START ", "declarator")
+ rx599_cur."!cursor_debug"("START ", "scoped")
.lex unicode:"$\x{a2}", rx599_cur
.local pmc match
.lex "$/", match
length rx599_eos, rx599_tgt
+ gt rx599_pos, rx599_eos, rx599_done
set rx599_off, 0
lt rx599_pos, 2, rx599_start
sub rx599_off, rx599_pos, 1
@@ -7221,32 +7266,52 @@
rx599_cur."!mark_push"(0, rx599_pos, $I10)
rxscan604_done:
alt605_0:
-.annotate 'line', 282
+.annotate 'line', 277
set_addr $I10, alt605_1
rx599_cur."!mark_push"(0, rx599_pos, $I10)
-.annotate 'line', 283
- # rx subrule "variable_declarator" subtype=capture negate=
+.annotate 'line', 278
+ # rx subrule "ws" subtype=method negate=
rx599_cur."!cursor_pos"(rx599_pos)
- $P10 = rx599_cur."variable_declarator"()
+ $P10 = rx599_cur."ws"()
+ unless $P10, rx599_fail
+ rx599_pos = $P10."pos"()
+ # rx subrule "declarator" subtype=capture negate=
+ rx599_cur."!cursor_pos"(rx599_pos)
+ $P10 = rx599_cur."declarator"()
unless $P10, rx599_fail
rx599_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("variable_declarator")
+ $P10."!cursor_names"("declarator")
+ rx599_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx599_cur."!cursor_pos"(rx599_pos)
+ $P10 = rx599_cur."ws"()
+ unless $P10, rx599_fail
rx599_pos = $P10."pos"()
goto alt605_end
alt605_1:
-.annotate 'line', 284
- # rx subrule "routine_declarator" subtype=capture negate=
+.annotate 'line', 279
+ # rx subrule "ws" subtype=method negate=
+ rx599_cur."!cursor_pos"(rx599_pos)
+ $P10 = rx599_cur."ws"()
+ unless $P10, rx599_fail
+ rx599_pos = $P10."pos"()
+ # rx subrule "multi_declarator" subtype=capture negate=
rx599_cur."!cursor_pos"(rx599_pos)
- $P10 = rx599_cur."routine_declarator"()
+ $P10 = rx599_cur."multi_declarator"()
unless $P10, rx599_fail
rx599_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("routine_declarator")
+ $P10."!cursor_names"("multi_declarator")
+ rx599_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx599_cur."!cursor_pos"(rx599_pos)
+ $P10 = rx599_cur."ws"()
+ unless $P10, rx599_fail
rx599_pos = $P10."pos"()
alt605_end:
-.annotate 'line', 282
+.annotate 'line', 277
# rx pass
- rx599_cur."!cursor_pass"(rx599_pos, "declarator")
- rx599_cur."!cursor_debug"("PASS ", "declarator", " at pos=", rx599_pos)
+ rx599_cur."!cursor_pass"(rx599_pos, "scoped")
+ rx599_cur."!cursor_debug"("PASS ", "scoped", " at pos=", rx599_pos)
.return (rx599_cur)
rx599_fail:
.annotate 'line', 4
@@ -7256,17 +7321,17 @@
jump $I10
rx599_done:
rx599_cur."!cursor_fail"()
- rx599_cur."!cursor_debug"("FAIL ", "declarator")
+ rx599_cur."!cursor_debug"("FAIL ", "scoped")
.return (rx599_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__declarator" :subid("146_1275117591.97262") :method
+.sub "!PREFIX__scoped" :subid("145_1275811487.95429") :method
.annotate 'line', 4
- $P601 = self."!PREFIX__!subrule"("routine_declarator", "")
- $P602 = self."!PREFIX__!subrule"("variable_declarator", "")
+ $P601 = self."!PREFIX__!subrule"("ws", "")
+ $P602 = self."!PREFIX__!subrule"("ws", "")
new $P603, "ResizablePMCArray"
push $P603, $P601
push $P603, $P602
@@ -7275,91 +7340,76 @@
.namespace ["NQP";"Grammar"]
-.sub "variable_declarator" :subid("147_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "typename" :subid("146_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan611_done
- goto rxscan611_scan
- rxscan611_loop:
- ($P10) = rx607_cur."from"()
- inc $P10
- 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=
- 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")
- rx607_pos = $P10."pos"()
+ .local string rx611_tgt
+ .local int rx611_pos
+ .local int rx611_off
+ .local int rx611_eos
+ .local int rx611_rep
+ .local pmc rx611_cur
+ (rx611_cur, rx611_pos, rx611_tgt) = self."!cursor_start"()
+ rx611_cur."!cursor_debug"("START ", "typename")
+ .lex unicode:"$\x{a2}", rx611_cur
+ .local pmc match
+ .lex "$/", match
+ length rx611_eos, rx611_tgt
+ gt rx611_pos, rx611_eos, rx611_done
+ set rx611_off, 0
+ lt rx611_pos, 2, rx611_start
+ sub rx611_off, rx611_pos, 1
+ substr rx611_tgt, rx611_tgt, rx611_off
+ rx611_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan615_done
+ goto rxscan615_scan
+ rxscan615_loop:
+ ($P10) = rx611_cur."from"()
+ inc $P10
+ set rx611_pos, $P10
+ ge rx611_pos, rx611_eos, rxscan615_done
+ rxscan615_scan:
+ set_addr $I10, rxscan615_loop
+ rx611_cur."!mark_push"(0, rx611_pos, $I10)
+ rxscan615_done:
+.annotate 'line', 282
+ # rx subrule "name" subtype=capture negate=
+ rx611_cur."!cursor_pos"(rx611_pos)
+ $P10 = rx611_cur."name"()
+ unless $P10, rx611_fail
+ rx611_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("name")
+ rx611_pos = $P10."pos"()
# rx pass
- rx607_cur."!cursor_pass"(rx607_pos, "variable_declarator")
- rx607_cur."!cursor_debug"("PASS ", "variable_declarator", " at pos=", rx607_pos)
- .return (rx607_cur)
- rx607_fail:
+ rx611_cur."!cursor_pass"(rx611_pos, "typename")
+ rx611_cur."!cursor_debug"("PASS ", "typename", " at pos=", rx611_pos)
+ .return (rx611_cur)
+ rx611_fail:
.annotate 'line', 4
- (rx607_rep, rx607_pos, $I10, $P10) = rx607_cur."!mark_fail"(0)
- lt rx607_pos, -1, rx607_done
- eq rx607_pos, -1, rx607_fail
+ (rx611_rep, rx611_pos, $I10, $P10) = rx611_cur."!mark_fail"(0)
+ lt rx611_pos, -1, rx611_done
+ eq rx611_pos, -1, rx611_fail
jump $I10
- rx607_done:
- rx607_cur."!cursor_fail"()
- rx607_cur."!cursor_debug"("FAIL ", "variable_declarator")
- .return (rx607_cur)
+ rx611_done:
+ rx611_cur."!cursor_fail"()
+ rx611_cur."!cursor_debug"("FAIL ", "typename")
+ .return (rx611_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__variable_declarator" :subid("148_1275117591.97262") :method
+.sub "!PREFIX__typename" :subid("147_1275811487.95429") :method
.annotate 'line', 4
- $P609 = self."!PREFIX__!subrule"("variable", "")
- new $P610, "ResizablePMCArray"
- push $P610, $P609
- .return ($P610)
-.end
-
-
-.namespace ["NQP";"Grammar"]
-.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("150_1275117591.97262") :method
-.annotate 'line', 289
- $P615 = self."!PREFIX__!protoregex"("routine_declarator")
- .return ($P615)
+ $P613 = self."!PREFIX__!subrule"("name", "")
+ new $P614, "ResizablePMCArray"
+ push $P614, $P613
+ .return ($P614)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_declarator:sym<sub>" :subid("151_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "declarator" :subid("148_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
.local string rx617_tgt
.local int rx617_pos
@@ -7368,60 +7418,56 @@
.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>")
+ rx617_cur."!cursor_debug"("START ", "declarator")
.lex unicode:"$\x{a2}", rx617_cur
.local pmc match
.lex "$/", match
length rx617_eos, rx617_tgt
+ gt rx617_pos, rx617_eos, rx617_done
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:
+ ne $I10, -1, rxscan622_done
+ goto rxscan622_scan
+ rxscan622_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
+ ge rx617_pos, rx617_eos, rxscan622_done
+ rxscan622_scan:
+ set_addr $I10, rxscan622_loop
rx617_cur."!mark_push"(0, rx617_pos, $I10)
- rxscan621_done:
-.annotate 'line', 290
- # rx subcapture "sym"
- set_addr $I10, rxcap_622_fail
+ rxscan622_done:
+ alt623_0:
+.annotate 'line', 284
+ set_addr $I10, alt623_1
rx617_cur."!mark_push"(0, rx617_pos, $I10)
- # rx literal "sub"
- 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, "")
+.annotate 'line', 285
+ # rx subrule "variable_declarator" subtype=capture negate=
+ rx617_cur."!cursor_pos"(rx617_pos)
+ $P10 = rx617_cur."variable_declarator"()
+ unless $P10, rx617_fail
rx617_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sym")
- goto rxcap_622_done
- rxcap_622_fail:
- goto rx617_fail
- rxcap_622_done:
- # rx subrule "routine_def" subtype=capture negate=
+ $P10."!cursor_names"("variable_declarator")
+ rx617_pos = $P10."pos"()
+ goto alt623_end
+ alt623_1:
+.annotate 'line', 286
+ # rx subrule "routine_declarator" subtype=capture negate=
rx617_cur."!cursor_pos"(rx617_pos)
- $P10 = rx617_cur."routine_def"()
+ $P10 = rx617_cur."routine_declarator"()
unless $P10, rx617_fail
rx617_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("routine_def")
+ $P10."!cursor_names"("routine_declarator")
rx617_pos = $P10."pos"()
+ alt623_end:
+.annotate 'line', 284
# rx pass
- rx617_cur."!cursor_pass"(rx617_pos, "routine_declarator:sym<sub>")
- rx617_cur."!cursor_debug"("PASS ", "routine_declarator:sym<sub>", " at pos=", rx617_pos)
+ rx617_cur."!cursor_pass"(rx617_pos, "declarator")
+ rx617_cur."!cursor_debug"("PASS ", "declarator", " at pos=", rx617_pos)
.return (rx617_cur)
rx617_fail:
.annotate 'line', 4
@@ -7431,508 +7477,509 @@
jump $I10
rx617_done:
rx617_cur."!cursor_fail"()
- rx617_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<sub>")
+ rx617_cur."!cursor_debug"("FAIL ", "declarator")
.return (rx617_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_declarator:sym<sub>" :subid("152_1275117591.97262") :method
+.sub "!PREFIX__declarator" :subid("149_1275811487.95429") :method
+.annotate 'line', 4
+ $P619 = self."!PREFIX__!subrule"("routine_declarator", "")
+ $P620 = self."!PREFIX__!subrule"("variable_declarator", "")
+ new $P621, "ResizablePMCArray"
+ push $P621, $P619
+ push $P621, $P620
+ .return ($P621)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "variable_declarator" :subid("150_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx625_tgt
+ .local int rx625_pos
+ .local int rx625_off
+ .local int rx625_eos
+ .local int rx625_rep
+ .local pmc rx625_cur
+ (rx625_cur, rx625_pos, rx625_tgt) = self."!cursor_start"()
+ rx625_cur."!cursor_debug"("START ", "variable_declarator")
+ .lex unicode:"$\x{a2}", rx625_cur
+ .local pmc match
+ .lex "$/", match
+ length rx625_eos, rx625_tgt
+ gt rx625_pos, rx625_eos, rx625_done
+ set rx625_off, 0
+ lt rx625_pos, 2, rx625_start
+ sub rx625_off, rx625_pos, 1
+ substr rx625_tgt, rx625_tgt, rx625_off
+ rx625_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan629_done
+ goto rxscan629_scan
+ rxscan629_loop:
+ ($P10) = rx625_cur."from"()
+ inc $P10
+ set rx625_pos, $P10
+ ge rx625_pos, rx625_eos, rxscan629_done
+ rxscan629_scan:
+ set_addr $I10, rxscan629_loop
+ rx625_cur."!mark_push"(0, rx625_pos, $I10)
+ rxscan629_done:
+.annotate 'line', 289
+ # rx subrule "variable" subtype=capture negate=
+ rx625_cur."!cursor_pos"(rx625_pos)
+ $P10 = rx625_cur."variable"()
+ unless $P10, rx625_fail
+ rx625_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("variable")
+ rx625_pos = $P10."pos"()
+ # rx pass
+ rx625_cur."!cursor_pass"(rx625_pos, "variable_declarator")
+ rx625_cur."!cursor_debug"("PASS ", "variable_declarator", " at pos=", rx625_pos)
+ .return (rx625_cur)
+ rx625_fail:
+.annotate 'line', 4
+ (rx625_rep, rx625_pos, $I10, $P10) = rx625_cur."!mark_fail"(0)
+ lt rx625_pos, -1, rx625_done
+ eq rx625_pos, -1, rx625_fail
+ jump $I10
+ rx625_done:
+ rx625_cur."!cursor_fail"()
+ rx625_cur."!cursor_debug"("FAIL ", "variable_declarator")
+ .return (rx625_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__variable_declarator" :subid("151_1275811487.95429") :method
.annotate 'line', 4
- $P619 = self."!PREFIX__!subrule"("routine_def", "sub")
- new $P620, "ResizablePMCArray"
- push $P620, $P619
- .return ($P620)
+ $P627 = self."!PREFIX__!subrule"("variable", "")
+ new $P628, "ResizablePMCArray"
+ push $P628, $P627
+ .return ($P628)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_declarator:sym<method>" :subid("153_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .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:
+.sub "routine_declarator" :subid("152_1275811487.95429") :method
.annotate 'line', 291
+ $P631 = self."!protoregex"("routine_declarator")
+ .return ($P631)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__routine_declarator" :subid("153_1275811487.95429") :method
+.annotate 'line', 291
+ $P633 = self."!PREFIX__!protoregex"("routine_declarator")
+ .return ($P633)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "routine_declarator:sym<sub>" :subid("154_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx635_tgt
+ .local int rx635_pos
+ .local int rx635_off
+ .local int rx635_eos
+ .local int rx635_rep
+ .local pmc rx635_cur
+ (rx635_cur, rx635_pos, rx635_tgt) = self."!cursor_start"()
+ rx635_cur."!cursor_debug"("START ", "routine_declarator:sym<sub>")
+ .lex unicode:"$\x{a2}", rx635_cur
+ .local pmc match
+ .lex "$/", match
+ length rx635_eos, rx635_tgt
+ gt rx635_pos, rx635_eos, rx635_done
+ set rx635_off, 0
+ lt rx635_pos, 2, rx635_start
+ sub rx635_off, rx635_pos, 1
+ substr rx635_tgt, rx635_tgt, rx635_off
+ rx635_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan639_done
+ goto rxscan639_scan
+ rxscan639_loop:
+ ($P10) = rx635_cur."from"()
+ inc $P10
+ set rx635_pos, $P10
+ ge rx635_pos, rx635_eos, rxscan639_done
+ rxscan639_scan:
+ set_addr $I10, rxscan639_loop
+ rx635_cur."!mark_push"(0, rx635_pos, $I10)
+ rxscan639_done:
+.annotate 'line', 292
# rx subcapture "sym"
- set_addr $I10, rxcap_629_fail
- rx624_cur."!mark_push"(0, rx624_pos, $I10)
- # rx literal "method"
- 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)
+ set_addr $I10, rxcap_640_fail
+ rx635_cur."!mark_push"(0, rx635_pos, $I10)
+ # rx literal "sub"
+ add $I11, rx635_pos, 3
+ gt $I11, rx635_eos, rx635_fail
+ sub $I11, rx635_pos, rx635_off
+ substr $S10, rx635_tgt, $I11, 3
+ ne $S10, "sub", rx635_fail
+ add rx635_pos, 3
+ set_addr $I10, rxcap_640_fail
+ ($I12, $I11) = rx635_cur."!mark_peek"($I10)
+ rx635_cur."!cursor_pos"($I11)
+ ($P10) = rx635_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx635_pos, "")
+ rx635_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_629_done
- rxcap_629_fail:
- goto rx624_fail
- rxcap_629_done:
- # rx subrule "method_def" subtype=capture negate=
- 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")
- rx624_pos = $P10."pos"()
+ goto rxcap_640_done
+ rxcap_640_fail:
+ goto rx635_fail
+ rxcap_640_done:
+ # rx subrule "routine_def" subtype=capture negate=
+ rx635_cur."!cursor_pos"(rx635_pos)
+ $P10 = rx635_cur."routine_def"()
+ unless $P10, rx635_fail
+ rx635_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("routine_def")
+ rx635_pos = $P10."pos"()
# rx pass
- 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:
+ rx635_cur."!cursor_pass"(rx635_pos, "routine_declarator:sym<sub>")
+ rx635_cur."!cursor_debug"("PASS ", "routine_declarator:sym<sub>", " at pos=", rx635_pos)
+ .return (rx635_cur)
+ rx635_fail:
.annotate 'line', 4
- (rx624_rep, rx624_pos, $I10, $P10) = rx624_cur."!mark_fail"(0)
- lt rx624_pos, -1, rx624_done
- eq rx624_pos, -1, rx624_fail
+ (rx635_rep, rx635_pos, $I10, $P10) = rx635_cur."!mark_fail"(0)
+ lt rx635_pos, -1, rx635_done
+ eq rx635_pos, -1, rx635_fail
jump $I10
- rx624_done:
- rx624_cur."!cursor_fail"()
- rx624_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<method>")
- .return (rx624_cur)
+ rx635_done:
+ rx635_cur."!cursor_fail"()
+ rx635_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<sub>")
+ .return (rx635_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_declarator:sym<method>" :subid("154_1275117591.97262") :method
+.sub "!PREFIX__routine_declarator:sym<sub>" :subid("155_1275811487.95429") :method
.annotate 'line', 4
- $P626 = self."!PREFIX__!subrule"("method_def", "method")
- new $P627, "ResizablePMCArray"
- push $P627, $P626
- .return ($P627)
+ $P637 = self."!PREFIX__!subrule"("routine_def", "sub")
+ new $P638, "ResizablePMCArray"
+ push $P638, $P637
+ .return ($P638)
.end
.namespace ["NQP";"Grammar"]
-.sub "routine_def" :subid("155_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "routine_declarator:sym<method>" :subid("156_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx642_tgt
+ .local int rx642_pos
+ .local int rx642_off
+ .local int rx642_eos
+ .local int rx642_rep
+ .local pmc rx642_cur
+ (rx642_cur, rx642_pos, rx642_tgt) = self."!cursor_start"()
+ rx642_cur."!cursor_debug"("START ", "routine_declarator:sym<method>")
+ .lex unicode:"$\x{a2}", rx642_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx642_eos, rx642_tgt
+ gt rx642_pos, rx642_eos, rx642_done
+ set rx642_off, 0
+ lt rx642_pos, 2, rx642_start
+ sub rx642_off, rx642_pos, 1
+ substr rx642_tgt, rx642_tgt, rx642_off
+ rx642_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan634_done
- goto rxscan634_scan
- rxscan634_loop:
- ($P10) = rx631_cur."from"()
+ ne $I10, -1, rxscan646_done
+ goto rxscan646_scan
+ rxscan646_loop:
+ ($P10) = rx642_cur."from"()
inc $P10
- 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=
- 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_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, 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_640_done
- rxcap_640_fail:
- goto rx631_fail
- rxcap_640_done:
- # rx subrule "deflongname" subtype=capture negate=
- 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")
- 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"()
- (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=
- 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=
- rx631_cur."!cursor_pos"(rx631_pos)
- $P10 = rx631_cur."ws"()
- unless $P10, rx631_fail
- rx631_pos = $P10."pos"()
- # rx literal "("
- 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=
- 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")
- 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"()
- # rx literal ")"
- 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=
- rx631_cur."!cursor_pos"(rx631_pos)
- $P10 = rx631_cur."ws"()
- unless $P10, rx631_fail
- rx631_pos = $P10."pos"()
- # rx subrule "panic" subtype=method negate=
- 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=
- 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")
- 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"()
+ set rx642_pos, $P10
+ ge rx642_pos, rx642_eos, rxscan646_done
+ rxscan646_scan:
+ set_addr $I10, rxscan646_loop
+ rx642_cur."!mark_push"(0, rx642_pos, $I10)
+ rxscan646_done:
.annotate 'line', 293
+ # rx subcapture "sym"
+ set_addr $I10, rxcap_647_fail
+ rx642_cur."!mark_push"(0, rx642_pos, $I10)
+ # rx literal "method"
+ add $I11, rx642_pos, 6
+ gt $I11, rx642_eos, rx642_fail
+ sub $I11, rx642_pos, rx642_off
+ substr $S10, rx642_tgt, $I11, 6
+ ne $S10, "method", rx642_fail
+ add rx642_pos, 6
+ set_addr $I10, rxcap_647_fail
+ ($I12, $I11) = rx642_cur."!mark_peek"($I10)
+ rx642_cur."!cursor_pos"($I11)
+ ($P10) = rx642_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx642_pos, "")
+ rx642_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sym")
+ goto rxcap_647_done
+ rxcap_647_fail:
+ goto rx642_fail
+ rxcap_647_done:
+ # rx subrule "method_def" subtype=capture negate=
+ rx642_cur."!cursor_pos"(rx642_pos)
+ $P10 = rx642_cur."method_def"()
+ unless $P10, rx642_fail
+ rx642_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("method_def")
+ rx642_pos = $P10."pos"()
# rx pass
- rx631_cur."!cursor_pass"(rx631_pos, "routine_def")
- rx631_cur."!cursor_debug"("PASS ", "routine_def", " at pos=", rx631_pos)
- .return (rx631_cur)
- rx631_fail:
+ rx642_cur."!cursor_pass"(rx642_pos, "routine_declarator:sym<method>")
+ rx642_cur."!cursor_debug"("PASS ", "routine_declarator:sym<method>", " at pos=", rx642_pos)
+ .return (rx642_cur)
+ rx642_fail:
.annotate 'line', 4
- (rx631_rep, rx631_pos, $I10, $P10) = rx631_cur."!mark_fail"(0)
- lt rx631_pos, -1, rx631_done
- eq rx631_pos, -1, rx631_fail
+ (rx642_rep, rx642_pos, $I10, $P10) = rx642_cur."!mark_fail"(0)
+ lt rx642_pos, -1, rx642_done
+ eq rx642_pos, -1, rx642_fail
jump $I10
- rx631_done:
- rx631_cur."!cursor_fail"()
- rx631_cur."!cursor_debug"("FAIL ", "routine_def")
- .return (rx631_cur)
+ rx642_done:
+ rx642_cur."!cursor_fail"()
+ rx642_cur."!cursor_debug"("FAIL ", "routine_declarator:sym<method>")
+ .return (rx642_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__routine_def" :subid("156_1275117591.97262") :method
+.sub "!PREFIX__routine_declarator:sym<method>" :subid("157_1275811487.95429") :method
.annotate 'line', 4
- new $P633, "ResizablePMCArray"
- push $P633, ""
- .return ($P633)
+ $P644 = self."!PREFIX__!subrule"("method_def", "method")
+ new $P645, "ResizablePMCArray"
+ push $P645, $P644
+ .return ($P645)
.end
.namespace ["NQP";"Grammar"]
-.sub "method_def" :subid("157_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "routine_def" :subid("158_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan658_done
- goto rxscan658_scan
- rxscan658_loop:
- ($P10) = rx655_cur."from"()
- inc $P10
- 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
+ .local string rx649_tgt
+ .local int rx649_pos
+ .local int rx649_off
+ .local int rx649_eos
+ .local int rx649_rep
+ .local pmc rx649_cur
+ (rx649_cur, rx649_pos, rx649_tgt) = self."!cursor_start"()
+ rx649_cur."!cursor_debug"("START ", "routine_def")
+ rx649_cur."!cursor_caparray"("deflongname", "sigil")
+ .lex unicode:"$\x{a2}", rx649_cur
+ .local pmc match
+ .lex "$/", match
+ length rx649_eos, rx649_tgt
+ gt rx649_pos, rx649_eos, rx649_done
+ set rx649_off, 0
+ lt rx649_pos, 2, rx649_start
+ sub rx649_off, rx649_pos, 1
+ substr rx649_tgt, rx649_tgt, rx649_off
+ rx649_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan653_done
+ goto rxscan653_scan
+ rxscan653_loop:
+ ($P10) = rx649_cur."from"()
+ inc $P10
+ set rx649_pos, $P10
+ ge rx649_pos, rx649_eos, rxscan653_done
+ rxscan653_scan:
+ set_addr $I10, rxscan653_loop
+ rx649_cur."!mark_push"(0, rx649_pos, $I10)
+ rxscan653_done:
+.annotate 'line', 295
# 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', 302
- # rx rxquantr660 ** 0..1
- set_addr $I661, rxquantr660_done
- rx655_cur."!mark_push"(0, rx655_pos, $I661)
- rxquantr660_loop:
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+.annotate 'line', 296
+ # rx rxquantr655 ** 0..1
+ set_addr $I661, rxquantr655_done
+ rx649_cur."!mark_push"(0, rx649_pos, $I661)
+ rxquantr655_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+ # rx subcapture "sigil"
+ set_addr $I10, rxcap_659_fail
+ rx649_cur."!mark_push"(0, rx649_pos, $I10)
+ # rx rxquantr657 ** 0..1
+ set_addr $I658, rxquantr657_done
+ rx649_cur."!mark_push"(0, rx649_pos, $I658)
+ rxquantr657_loop:
+ # rx literal "&"
+ add $I11, rx649_pos, 1
+ gt $I11, rx649_eos, rx649_fail
+ sub $I11, rx649_pos, rx649_off
+ substr $S10, rx649_tgt, $I11, 1
+ ne $S10, "&", rx649_fail
+ add rx649_pos, 1
+ (rx649_rep) = rx649_cur."!mark_commit"($I658)
+ rxquantr657_done:
+ set_addr $I10, rxcap_659_fail
+ ($I12, $I11) = rx649_cur."!mark_peek"($I10)
+ rx649_cur."!cursor_pos"($I11)
+ ($P10) = rx649_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx649_pos, "")
+ rx649_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sigil")
+ goto rxcap_659_done
+ rxcap_659_fail:
+ goto rx649_fail
+ rxcap_659_done:
# rx subrule "deflongname" subtype=capture negate=
- rx655_cur."!cursor_pos"(rx655_pos)
- $P10 = rx655_cur."deflongname"()
- unless $P10, rx655_fail
- rx655_cur."!mark_push"(0, -1, 0, $P10)
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."deflongname"()
+ unless $P10, rx649_fail
+ rx649_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- 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
+ rx649_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+ (rx649_rep) = rx649_cur."!mark_commit"($I661)
+ rxquantr655_done:
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+.annotate 'line', 297
# rx subrule "newpad" subtype=method negate=
- 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"()
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."newpad"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
alt664_0:
-.annotate 'line', 304
+.annotate 'line', 298
set_addr $I10, alt664_1
- rx655_cur."!mark_push"(0, rx655_pos, $I10)
+ rx649_cur."!mark_push"(0, rx649_pos, $I10)
# rx subrule "ws" subtype=method negate=
- rx655_cur."!cursor_pos"(rx655_pos)
- $P10 = rx655_cur."ws"()
- unless $P10, rx655_fail
- rx655_pos = $P10."pos"()
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
# rx literal "("
- 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"()
+ add $I11, rx649_pos, 1
+ gt $I11, rx649_eos, rx649_fail
+ sub $I11, rx649_pos, rx649_off
+ substr $S10, rx649_tgt, $I11, 1
+ ne $S10, "(", rx649_fail
+ add rx649_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
# rx subrule "signature" subtype=capture negate=
- rx655_cur."!cursor_pos"(rx655_pos)
- $P10 = rx655_cur."signature"()
- unless $P10, rx655_fail
- rx655_cur."!mark_push"(0, -1, 0, $P10)
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."signature"()
+ unless $P10, rx649_fail
+ rx649_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
- rx655_pos = $P10."pos"()
+ rx649_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"()
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
# rx literal ")"
- 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"()
+ add $I11, rx649_pos, 1
+ gt $I11, rx649_eos, rx649_fail
+ sub $I11, rx649_pos, rx649_off
+ substr $S10, rx649_tgt, $I11, 1
+ ne $S10, ")", rx649_fail
+ add rx649_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
goto alt664_end
alt664_1:
-.annotate 'line', 305
+.annotate 'line', 299
# rx subrule "ws" subtype=method negate=
- rx655_cur."!cursor_pos"(rx655_pos)
- $P10 = rx655_cur."ws"()
- unless $P10, rx655_fail
- rx655_pos = $P10."pos"()
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- 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"()
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."panic"("Routine declaration requires a signature")
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_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
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+.annotate 'line', 300
# rx subrule "blockoid" subtype=capture negate=
- rx655_cur."!cursor_pos"(rx655_pos)
- $P10 = rx655_cur."blockoid"()
- unless $P10, rx655_fail
- rx655_cur."!mark_push"(0, -1, 0, $P10)
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."blockoid"()
+ unless $P10, rx649_fail
+ rx649_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("blockoid")
- rx655_pos = $P10."pos"()
+ rx649_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"()
-.annotate 'line', 301
+ rx649_cur."!cursor_pos"(rx649_pos)
+ $P10 = rx649_cur."ws"()
+ unless $P10, rx649_fail
+ rx649_pos = $P10."pos"()
+.annotate 'line', 295
# rx pass
- rx655_cur."!cursor_pass"(rx655_pos, "method_def")
- rx655_cur."!cursor_debug"("PASS ", "method_def", " at pos=", rx655_pos)
- .return (rx655_cur)
- rx655_fail:
+ rx649_cur."!cursor_pass"(rx649_pos, "routine_def")
+ rx649_cur."!cursor_debug"("PASS ", "routine_def", " at pos=", rx649_pos)
+ .return (rx649_cur)
+ rx649_fail:
.annotate 'line', 4
- (rx655_rep, rx655_pos, $I10, $P10) = rx655_cur."!mark_fail"(0)
- lt rx655_pos, -1, rx655_done
- eq rx655_pos, -1, rx655_fail
+ (rx649_rep, rx649_pos, $I10, $P10) = rx649_cur."!mark_fail"(0)
+ lt rx649_pos, -1, rx649_done
+ eq rx649_pos, -1, rx649_fail
jump $I10
- rx655_done:
- rx655_cur."!cursor_fail"()
- rx655_cur."!cursor_debug"("FAIL ", "method_def")
- .return (rx655_cur)
+ rx649_done:
+ rx649_cur."!cursor_fail"()
+ rx649_cur."!cursor_debug"("FAIL ", "routine_def")
+ .return (rx649_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__method_def" :subid("158_1275117591.97262") :method
+.sub "!PREFIX__routine_def" :subid("159_1275811487.95429") :method
.annotate 'line', 4
- new $P657, "ResizablePMCArray"
- push $P657, ""
- .return ($P657)
+ $P651 = self."!PREFIX__!subrule"("ws", "")
+ new $P652, "ResizablePMCArray"
+ push $P652, $P651
+ .return ($P652)
.end
.namespace ["NQP";"Grammar"]
-.sub "signature" :subid("159_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "method_def" :subid("160_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
.local string rx674_tgt
.local int rx674_pos
@@ -7941,71 +7988,152 @@
.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")
+ rx674_cur."!cursor_debug"("START ", "method_def")
+ rx674_cur."!cursor_caparray"("deflongname")
.lex unicode:"$\x{a2}", rx674_cur
.local pmc match
.lex "$/", match
length rx674_eos, rx674_tgt
+ gt rx674_pos, rx674_eos, rx674_done
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, rxscan677_done
- goto rxscan677_scan
- rxscan677_loop:
+ ne $I10, -1, rxscan678_done
+ goto rxscan678_scan
+ rxscan678_loop:
($P10) = rx674_cur."from"()
inc $P10
set rx674_pos, $P10
- ge rx674_pos, rx674_eos, rxscan677_done
- rxscan677_scan:
- set_addr $I10, rxscan677_loop
+ ge rx674_pos, rx674_eos, rxscan678_done
+ rxscan678_scan:
+ set_addr $I10, rxscan678_loop
rx674_cur."!mark_push"(0, rx674_pos, $I10)
- rxscan677_done:
-.annotate 'line', 309
- # rx rxquantr678 ** 0..1
- set_addr $I681, rxquantr678_done
+ rxscan678_done:
+.annotate 'line', 303
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+.annotate 'line', 304
+ # rx rxquantr680 ** 0..1
+ set_addr $I681, rxquantr680_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:
+ rxquantr680_loop:
+ # rx subrule "deflongname" subtype=capture negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."deflongname"()
+ unless $P10, rx674_fail
+ rx674_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("deflongname")
+ rx674_pos = $P10."pos"()
+ (rx674_rep) = rx674_cur."!mark_commit"($I681)
+ rxquantr680_done:
# 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=
+.annotate 'line', 305
+ # rx subrule "newpad" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."newpad"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+ alt684_0:
+.annotate 'line', 306
+ set_addr $I10, alt684_1
+ rx674_cur."!mark_push"(0, rx674_pos, $I10)
+ # 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 literal "("
+ 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
+ # 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 "signature" subtype=capture negate=
rx674_cur."!cursor_pos"(rx674_pos)
- $P10 = rx674_cur."parameter"()
+ $P10 = rx674_cur."signature"()
unless $P10, rx674_fail
rx674_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("parameter")
+ $P10."!cursor_names"("signature")
rx674_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
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 ","
+ # rx literal ")"
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
+ ne $S10, ")", rx674_fail
add rx674_pos, 1
- goto rxquantr679_loop
- rxquantr679_done:
- (rx674_rep) = rx674_cur."!mark_commit"($I681)
- rxquantr678_done:
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+ goto alt684_end
+ alt684_1:
+.annotate 'line', 307
+ # 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 "panic" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."panic"("Routine declaration requires a signature")
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+ alt684_end:
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+.annotate 'line', 308
+ # rx subrule "blockoid" subtype=capture negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."blockoid"()
+ unless $P10, rx674_fail
+ rx674_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("blockoid")
+ rx674_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx674_cur."!cursor_pos"(rx674_pos)
+ $P10 = rx674_cur."ws"()
+ unless $P10, rx674_fail
+ rx674_pos = $P10."pos"()
+.annotate 'line', 303
# rx pass
- rx674_cur."!cursor_pass"(rx674_pos, "signature")
- rx674_cur."!cursor_debug"("PASS ", "signature", " at pos=", rx674_pos)
+ rx674_cur."!cursor_pass"(rx674_pos, "method_def")
+ rx674_cur."!cursor_debug"("PASS ", "method_def", " at pos=", rx674_pos)
.return (rx674_cur)
rx674_fail:
.annotate 'line', 4
@@ -8015,8876 +8143,9297 @@
jump $I10
rx674_done:
rx674_cur."!cursor_fail"()
- rx674_cur."!cursor_debug"("FAIL ", "signature")
+ rx674_cur."!cursor_debug"("FAIL ", "method_def")
.return (rx674_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__signature" :subid("160_1275117591.97262") :method
+.sub "!PREFIX__method_def" :subid("161_1275811487.95429") :method
.annotate 'line', 4
- new $P676, "ResizablePMCArray"
- push $P676, ""
- .return ($P676)
+ $P676 = self."!PREFIX__!subrule"("ws", "")
+ new $P677, "ResizablePMCArray"
+ push $P677, $P676
+ .return ($P677)
.end
.namespace ["NQP";"Grammar"]
-.sub "parameter" :subid("161_1275117591.97262") :method :outer("11_1275117591.97262")
-.annotate 'line', 4
- .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 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, rxscan686_done
- goto rxscan686_scan
- rxscan686_loop:
- ($P10) = rx683_cur."from"()
- inc $P10
- 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=
- 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")
- rx683_pos = $P10."pos"()
- # rx subrule "ws" subtype=method negate=
- 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:
+.sub "multi_declarator" :subid("162_1275811487.95429") :method
+.annotate 'line', 311
+ $P694 = self."!protoregex"("multi_declarator")
+ .return ($P694)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__multi_declarator" :subid("163_1275811487.95429") :method
+.annotate 'line', 311
+ $P696 = self."!PREFIX__!protoregex"("multi_declarator")
+ .return ($P696)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "multi_declarator:sym<multi>" :subid("164_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 313
+ new $P698, "Undef"
+ .lex "$*MULTINESS", $P698
+.annotate 'line', 4
+ .local string rx699_tgt
+ .local int rx699_pos
+ .local int rx699_off
+ .local int rx699_eos
+ .local int rx699_rep
+ .local pmc rx699_cur
+ (rx699_cur, rx699_pos, rx699_tgt) = self."!cursor_start"()
+ rx699_cur."!cursor_debug"("START ", "multi_declarator:sym<multi>")
+ .lex unicode:"$\x{a2}", rx699_cur
+ .local pmc match
+ .lex "$/", match
+ length rx699_eos, rx699_tgt
+ gt rx699_pos, rx699_eos, rx699_done
+ set rx699_off, 0
+ lt rx699_pos, 2, rx699_start
+ sub rx699_off, rx699_pos, 1
+ substr rx699_tgt, rx699_tgt, rx699_off
+ rx699_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan703_done
+ goto rxscan703_scan
+ rxscan703_loop:
+ ($P10) = rx699_cur."from"()
+ inc $P10
+ set rx699_pos, $P10
+ ge rx699_pos, rx699_eos, rxscan703_done
+ rxscan703_scan:
+ set_addr $I10, rxscan703_loop
+ rx699_cur."!mark_push"(0, rx699_pos, $I10)
+ rxscan703_done:
.annotate 'line', 313
- set_addr $I10, alt689_1
- rx683_cur."!mark_push"(0, rx683_pos, $I10)
+ rx699_cur."!cursor_pos"(rx699_pos)
+ new $P704, "String"
+ assign $P704, "multi"
+ store_lex "$*MULTINESS", $P704
.annotate 'line', 314
- # rx subcapture "quant"
- set_addr $I10, rxcap_690_fail
- rx683_cur."!mark_push"(0, rx683_pos, $I10)
- # rx literal "*"
- 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_690_done
- rxcap_690_fail:
- goto rx683_fail
- rxcap_690_done:
- # rx subrule "param_var" subtype=capture negate=
- 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")
- rx683_pos = $P10."pos"()
- goto alt689_end
- alt689_1:
- alt691_0:
+ # rx subcapture "sym"
+ set_addr $I10, rxcap_705_fail
+ rx699_cur."!mark_push"(0, rx699_pos, $I10)
+ # rx literal "multi"
+ add $I11, rx699_pos, 5
+ gt $I11, rx699_eos, rx699_fail
+ sub $I11, rx699_pos, rx699_off
+ substr $S10, rx699_tgt, $I11, 5
+ ne $S10, "multi", rx699_fail
+ add rx699_pos, 5
+ set_addr $I10, rxcap_705_fail
+ ($I12, $I11) = rx699_cur."!mark_peek"($I10)
+ rx699_cur."!cursor_pos"($I11)
+ ($P10) = rx699_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx699_pos, "")
+ rx699_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sym")
+ goto rxcap_705_done
+ rxcap_705_fail:
+ goto rx699_fail
+ rxcap_705_done:
.annotate 'line', 315
- set_addr $I10, alt691_1
- rx683_cur."!mark_push"(0, rx683_pos, $I10)
- # rx subrule "param_var" subtype=capture negate=
- 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")
- rx683_pos = $P10."pos"()
- goto alt691_end
- alt691_1:
- # rx subrule "named_param" subtype=capture negate=
- 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")
- rx683_pos = $P10."pos"()
- alt691_end:
- # rx subcapture "quant"
- 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, 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, 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_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=
- 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")
- rx683_pos = $P10."pos"()
- (rx683_rep) = rx683_cur."!mark_commit"($I695)
- rxquantr694_done:
-.annotate 'line', 311
+ # rx subrule "ws" subtype=method negate=
+ rx699_cur."!cursor_pos"(rx699_pos)
+ $P10 = rx699_cur."ws"()
+ unless $P10, rx699_fail
+ rx699_pos = $P10."pos"()
+ alt706_0:
+ set_addr $I10, alt706_1
+ rx699_cur."!mark_push"(0, rx699_pos, $I10)
+ # rx subrule "declarator" subtype=capture negate=
+ rx699_cur."!cursor_pos"(rx699_pos)
+ $P10 = rx699_cur."declarator"()
+ unless $P10, rx699_fail
+ rx699_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("declarator")
+ rx699_pos = $P10."pos"()
+ goto alt706_end
+ alt706_1:
+ set_addr $I10, alt706_2
+ rx699_cur."!mark_push"(0, rx699_pos, $I10)
+ # rx subrule "routine_def" subtype=capture negate=
+ rx699_cur."!cursor_pos"(rx699_pos)
+ $P10 = rx699_cur."routine_def"()
+ unless $P10, rx699_fail
+ rx699_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("routine_def")
+ rx699_pos = $P10."pos"()
+ goto alt706_end
+ alt706_2:
+ # rx subrule "panic" subtype=method negate=
+ rx699_cur."!cursor_pos"(rx699_pos)
+ $P10 = rx699_cur."panic"("Malformed multi")
+ unless $P10, rx699_fail
+ rx699_pos = $P10."pos"()
+ alt706_end:
+.annotate 'line', 312
# rx pass
- rx683_cur."!cursor_pass"(rx683_pos, "parameter")
- rx683_cur."!cursor_debug"("PASS ", "parameter", " at pos=", rx683_pos)
- .return (rx683_cur)
- rx683_fail:
+ rx699_cur."!cursor_pass"(rx699_pos, "multi_declarator:sym<multi>")
+ rx699_cur."!cursor_debug"("PASS ", "multi_declarator:sym<multi>", " at pos=", rx699_pos)
+ .return (rx699_cur)
+ rx699_fail:
.annotate 'line', 4
- (rx683_rep, rx683_pos, $I10, $P10) = rx683_cur."!mark_fail"(0)
- lt rx683_pos, -1, rx683_done
- eq rx683_pos, -1, rx683_fail
+ (rx699_rep, rx699_pos, $I10, $P10) = rx699_cur."!mark_fail"(0)
+ lt rx699_pos, -1, rx699_done
+ eq rx699_pos, -1, rx699_fail
jump $I10
- rx683_done:
- rx683_cur."!cursor_fail"()
- rx683_cur."!cursor_debug"("FAIL ", "parameter")
- .return (rx683_cur)
+ rx699_done:
+ rx699_cur."!cursor_fail"()
+ rx699_cur."!cursor_debug"("FAIL ", "multi_declarator:sym<multi>")
+ .return (rx699_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__parameter" :subid("162_1275117591.97262") :method
+.sub "!PREFIX__multi_declarator:sym<multi>" :subid("165_1275811487.95429") :method
.annotate 'line', 4
- new $P685, "ResizablePMCArray"
- push $P685, ""
- .return ($P685)
+ $P701 = self."!PREFIX__!subrule"("ws", "multi")
+ new $P702, "ResizablePMCArray"
+ push $P702, $P701
+ .return ($P702)
.end
.namespace ["NQP";"Grammar"]
-.sub "param_var" :subid("163_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "multi_declarator:sym<null>" :subid("166_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 318
+ new $P708, "Undef"
+ .lex "$*MULTINESS", $P708
.annotate 'line', 4
- .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 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, rxscan701_done
- goto rxscan701_scan
- rxscan701_loop:
- ($P10) = rx697_cur."from"()
- inc $P10
- 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=
- 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")
- 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=
- 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")
- 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=
- 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")
- rx697_pos = $P10."pos"()
- goto alt704_end
- alt704_1:
- # rx subcapture "name"
- set_addr $I10, rxcap_705_fail
- rx697_cur."!mark_push"(0, rx697_pos, $I10)
- # rx enumcharlist negate=0
- 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, 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_705_done
- rxcap_705_fail:
- goto rx697_fail
- rxcap_705_done:
- alt704_end:
-.annotate 'line', 320
+ .local string rx709_tgt
+ .local int rx709_pos
+ .local int rx709_off
+ .local int rx709_eos
+ .local int rx709_rep
+ .local pmc rx709_cur
+ (rx709_cur, rx709_pos, rx709_tgt) = self."!cursor_start"()
+ rx709_cur."!cursor_debug"("START ", "multi_declarator:sym<null>")
+ .lex unicode:"$\x{a2}", rx709_cur
+ .local pmc match
+ .lex "$/", match
+ length rx709_eos, rx709_tgt
+ gt rx709_pos, rx709_eos, rx709_done
+ set rx709_off, 0
+ lt rx709_pos, 2, rx709_start
+ sub rx709_off, rx709_pos, 1
+ substr rx709_tgt, rx709_tgt, rx709_off
+ rx709_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan713_done
+ goto rxscan713_scan
+ rxscan713_loop:
+ ($P10) = rx709_cur."from"()
+ inc $P10
+ set rx709_pos, $P10
+ ge rx709_pos, rx709_eos, rxscan713_done
+ rxscan713_scan:
+ set_addr $I10, rxscan713_loop
+ rx709_cur."!mark_push"(0, rx709_pos, $I10)
+ rxscan713_done:
+.annotate 'line', 318
+ rx709_cur."!cursor_pos"(rx709_pos)
+ new $P714, "String"
+ assign $P714, ""
+ store_lex "$*MULTINESS", $P714
+.annotate 'line', 319
+ # rx subrule "declarator" subtype=capture negate=
+ rx709_cur."!cursor_pos"(rx709_pos)
+ $P10 = rx709_cur."declarator"()
+ unless $P10, rx709_fail
+ rx709_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("declarator")
+ rx709_pos = $P10."pos"()
+.annotate 'line', 317
# rx pass
- rx697_cur."!cursor_pass"(rx697_pos, "param_var")
- rx697_cur."!cursor_debug"("PASS ", "param_var", " at pos=", rx697_pos)
- .return (rx697_cur)
- rx697_fail:
+ rx709_cur."!cursor_pass"(rx709_pos, "multi_declarator:sym<null>")
+ rx709_cur."!cursor_debug"("PASS ", "multi_declarator:sym<null>", " at pos=", rx709_pos)
+ .return (rx709_cur)
+ rx709_fail:
.annotate 'line', 4
- (rx697_rep, rx697_pos, $I10, $P10) = rx697_cur."!mark_fail"(0)
- lt rx697_pos, -1, rx697_done
- eq rx697_pos, -1, rx697_fail
+ (rx709_rep, rx709_pos, $I10, $P10) = rx709_cur."!mark_fail"(0)
+ lt rx709_pos, -1, rx709_done
+ eq rx709_pos, -1, rx709_fail
jump $I10
- rx697_done:
- rx697_cur."!cursor_fail"()
- rx697_cur."!cursor_debug"("FAIL ", "param_var")
- .return (rx697_cur)
+ rx709_done:
+ rx709_cur."!cursor_fail"()
+ rx709_cur."!cursor_debug"("FAIL ", "multi_declarator:sym<null>")
+ .return (rx709_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__param_var" :subid("164_1275117591.97262") :method
+.sub "!PREFIX__multi_declarator:sym<null>" :subid("167_1275811487.95429") :method
.annotate 'line', 4
- $P699 = self."!PREFIX__!subrule"("sigil", "")
- new $P700, "ResizablePMCArray"
- push $P700, $P699
- .return ($P700)
+ $P711 = self."!PREFIX__!subrule"("declarator", "")
+ new $P712, "ResizablePMCArray"
+ push $P712, $P711
+ .return ($P712)
.end
.namespace ["NQP";"Grammar"]
-.sub "named_param" :subid("165_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "signature" :subid("168_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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 ", "signature")
+ rx716_cur."!cursor_caparray"("parameter")
+ .lex unicode:"$\x{a2}", rx716_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx716_eos, rx716_tgt
+ gt rx716_pos, rx716_eos, rx716_done
+ 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, rxscan711_done
- goto rxscan711_scan
- rxscan711_loop:
- ($P10) = rx707_cur."from"()
+ ne $I10, -1, rxscan719_done
+ goto rxscan719_scan
+ rxscan719_loop:
+ ($P10) = rx716_cur."from"()
inc $P10
- 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, 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=
- 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")
- rx707_pos = $P10."pos"()
-.annotate 'line', 325
+ 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', 322
+ # rx rxquantr720 ** 0..1
+ set_addr $I723, rxquantr720_done
+ rx716_cur."!mark_push"(0, rx716_pos, $I723)
+ rxquantr720_loop:
+ # rx rxquantr721 ** 1..*
+ set_addr $I722, rxquantr721_done
+ rx716_cur."!mark_push"(0, -1, $I722)
+ rxquantr721_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"()
+ # rx subrule "parameter" subtype=capture negate=
+ rx716_cur."!cursor_pos"(rx716_pos)
+ $P10 = rx716_cur."parameter"()
+ unless $P10, rx716_fail
+ rx716_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("parameter")
+ 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"()
+ (rx716_rep) = rx716_cur."!mark_commit"($I722)
+ rx716_cur."!mark_push"(rx716_rep, rx716_pos, $I722)
+ # 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
+ goto rxquantr721_loop
+ rxquantr721_done:
+ (rx716_rep) = rx716_cur."!mark_commit"($I723)
+ rxquantr720_done:
# rx pass
- rx707_cur."!cursor_pass"(rx707_pos, "named_param")
- rx707_cur."!cursor_debug"("PASS ", "named_param", " at pos=", rx707_pos)
- .return (rx707_cur)
- rx707_fail:
+ rx716_cur."!cursor_pass"(rx716_pos, "signature")
+ rx716_cur."!cursor_debug"("PASS ", "signature", " at pos=", rx716_pos)
+ .return (rx716_cur)
+ rx716_fail:
.annotate 'line', 4
- (rx707_rep, rx707_pos, $I10, $P10) = rx707_cur."!mark_fail"(0)
- lt rx707_pos, -1, rx707_done
- eq rx707_pos, -1, rx707_fail
+ (rx716_rep, rx716_pos, $I10, $P10) = rx716_cur."!mark_fail"(0)
+ lt rx716_pos, -1, rx716_done
+ eq rx716_pos, -1, rx716_fail
jump $I10
- rx707_done:
- rx707_cur."!cursor_fail"()
- rx707_cur."!cursor_debug"("FAIL ", "named_param")
- .return (rx707_cur)
+ rx716_done:
+ rx716_cur."!cursor_fail"()
+ rx716_cur."!cursor_debug"("FAIL ", "signature")
+ .return (rx716_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__named_param" :subid("166_1275117591.97262") :method
+.sub "!PREFIX__signature" :subid("169_1275811487.95429") :method
.annotate 'line', 4
- $P709 = self."!PREFIX__!subrule"("param_var", ":")
- new $P710, "ResizablePMCArray"
- push $P710, $P709
- .return ($P710)
+ new $P718, "ResizablePMCArray"
+ push $P718, ""
+ .return ($P718)
.end
.namespace ["NQP";"Grammar"]
-.sub "default_value" :subid("167_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "parameter" :subid("170_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx725_tgt
+ .local int rx725_pos
+ .local int rx725_off
+ .local int rx725_eos
+ .local int rx725_rep
+ .local pmc rx725_cur
+ (rx725_cur, rx725_pos, rx725_tgt) = self."!cursor_start"()
+ rx725_cur."!cursor_debug"("START ", "parameter")
+ rx725_cur."!cursor_caparray"("default_value", "typename")
+ .lex unicode:"$\x{a2}", rx725_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:
+ length rx725_eos, rx725_tgt
+ gt rx725_pos, rx725_eos, rx725_done
+ set rx725_off, 0
+ lt rx725_pos, 2, rx725_start
+ sub rx725_off, rx725_pos, 1
+ substr rx725_tgt, rx725_tgt, rx725_off
+ rx725_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan716_done
- goto rxscan716_scan
- rxscan716_loop:
- ($P10) = rx713_cur."from"()
+ ne $I10, -1, rxscan728_done
+ goto rxscan728_scan
+ rxscan728_loop:
+ ($P10) = rx725_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=
- rx713_cur."!cursor_pos"(rx713_pos)
- $P10 = rx713_cur."ws"()
- unless $P10, rx713_fail
- rx713_pos = $P10."pos"()
- # rx literal "="
- 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=
- 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")
- rx713_pos = $P10."pos"()
+ set rx725_pos, $P10
+ ge rx725_pos, rx725_eos, rxscan728_done
+ rxscan728_scan:
+ set_addr $I10, rxscan728_loop
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+ rxscan728_done:
+.annotate 'line', 325
+ # rx rxquantr729 ** 0..*
+ set_addr $I730, rxquantr729_done
+ rx725_cur."!mark_push"(0, rx725_pos, $I730)
+ rxquantr729_loop:
+ # rx subrule "typename" subtype=capture negate=
+ rx725_cur."!cursor_pos"(rx725_pos)
+ $P10 = rx725_cur."typename"()
+ unless $P10, rx725_fail
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("typename")
+ rx725_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx713_cur."!cursor_pos"(rx713_pos)
- $P10 = rx713_cur."ws"()
- unless $P10, rx713_fail
- rx713_pos = $P10."pos"()
+ rx725_cur."!cursor_pos"(rx725_pos)
+ $P10 = rx725_cur."ws"()
+ unless $P10, rx725_fail
+ rx725_pos = $P10."pos"()
+ (rx725_rep) = rx725_cur."!mark_commit"($I730)
+ rx725_cur."!mark_push"(rx725_rep, rx725_pos, $I730)
+ goto rxquantr729_loop
+ rxquantr729_done:
+ alt731_0:
+.annotate 'line', 326
+ set_addr $I10, alt731_1
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+.annotate 'line', 327
+ # rx subcapture "quant"
+ set_addr $I10, rxcap_732_fail
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+ # rx literal "*"
+ add $I11, rx725_pos, 1
+ gt $I11, rx725_eos, rx725_fail
+ sub $I11, rx725_pos, rx725_off
+ substr $S10, rx725_tgt, $I11, 1
+ ne $S10, "*", rx725_fail
+ add rx725_pos, 1
+ set_addr $I10, rxcap_732_fail
+ ($I12, $I11) = rx725_cur."!mark_peek"($I10)
+ rx725_cur."!cursor_pos"($I11)
+ ($P10) = rx725_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx725_pos, "")
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("quant")
+ goto rxcap_732_done
+ rxcap_732_fail:
+ goto rx725_fail
+ rxcap_732_done:
+ # rx subrule "param_var" subtype=capture negate=
+ rx725_cur."!cursor_pos"(rx725_pos)
+ $P10 = rx725_cur."param_var"()
+ unless $P10, rx725_fail
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("param_var")
+ rx725_pos = $P10."pos"()
+ goto alt731_end
+ alt731_1:
+ alt733_0:
+.annotate 'line', 328
+ set_addr $I10, alt733_1
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+ # rx subrule "param_var" subtype=capture negate=
+ rx725_cur."!cursor_pos"(rx725_pos)
+ $P10 = rx725_cur."param_var"()
+ unless $P10, rx725_fail
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("param_var")
+ rx725_pos = $P10."pos"()
+ goto alt733_end
+ alt733_1:
+ # rx subrule "named_param" subtype=capture negate=
+ rx725_cur."!cursor_pos"(rx725_pos)
+ $P10 = rx725_cur."named_param"()
+ unless $P10, rx725_fail
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("named_param")
+ rx725_pos = $P10."pos"()
+ alt733_end:
+ # rx subcapture "quant"
+ set_addr $I10, rxcap_735_fail
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+ alt734_0:
+ set_addr $I10, alt734_1
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+ # rx literal "?"
+ add $I11, rx725_pos, 1
+ gt $I11, rx725_eos, rx725_fail
+ sub $I11, rx725_pos, rx725_off
+ substr $S10, rx725_tgt, $I11, 1
+ ne $S10, "?", rx725_fail
+ add rx725_pos, 1
+ goto alt734_end
+ alt734_1:
+ set_addr $I10, alt734_2
+ rx725_cur."!mark_push"(0, rx725_pos, $I10)
+ # rx literal "!"
+ add $I11, rx725_pos, 1
+ gt $I11, rx725_eos, rx725_fail
+ sub $I11, rx725_pos, rx725_off
+ substr $S10, rx725_tgt, $I11, 1
+ ne $S10, "!", rx725_fail
+ add rx725_pos, 1
+ goto alt734_end
+ alt734_2:
+ alt734_end:
+ set_addr $I10, rxcap_735_fail
+ ($I12, $I11) = rx725_cur."!mark_peek"($I10)
+ rx725_cur."!cursor_pos"($I11)
+ ($P10) = rx725_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx725_pos, "")
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("quant")
+ goto rxcap_735_done
+ rxcap_735_fail:
+ goto rx725_fail
+ rxcap_735_done:
+ alt731_end:
+.annotate 'line', 330
+ # rx rxquantr736 ** 0..1
+ set_addr $I737, rxquantr736_done
+ rx725_cur."!mark_push"(0, rx725_pos, $I737)
+ rxquantr736_loop:
+ # rx subrule "default_value" subtype=capture negate=
+ rx725_cur."!cursor_pos"(rx725_pos)
+ $P10 = rx725_cur."default_value"()
+ unless $P10, rx725_fail
+ rx725_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("default_value")
+ rx725_pos = $P10."pos"()
+ (rx725_rep) = rx725_cur."!mark_commit"($I737)
+ rxquantr736_done:
+.annotate 'line', 324
# rx pass
- rx713_cur."!cursor_pass"(rx713_pos, "default_value")
- rx713_cur."!cursor_debug"("PASS ", "default_value", " at pos=", rx713_pos)
- .return (rx713_cur)
- rx713_fail:
+ rx725_cur."!cursor_pass"(rx725_pos, "parameter")
+ rx725_cur."!cursor_debug"("PASS ", "parameter", " at pos=", rx725_pos)
+ .return (rx725_cur)
+ rx725_fail:
.annotate 'line', 4
- (rx713_rep, rx713_pos, $I10, $P10) = rx713_cur."!mark_fail"(0)
- lt rx713_pos, -1, rx713_done
- eq rx713_pos, -1, rx713_fail
+ (rx725_rep, rx725_pos, $I10, $P10) = rx725_cur."!mark_fail"(0)
+ lt rx725_pos, -1, rx725_done
+ eq rx725_pos, -1, rx725_fail
jump $I10
- rx713_done:
- rx713_cur."!cursor_fail"()
- rx713_cur."!cursor_debug"("FAIL ", "default_value")
- .return (rx713_cur)
+ rx725_done:
+ rx725_cur."!cursor_fail"()
+ rx725_cur."!cursor_debug"("FAIL ", "parameter")
+ .return (rx725_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__default_value" :subid("168_1275117591.97262") :method
+.sub "!PREFIX__parameter" :subid("171_1275811487.95429") :method
.annotate 'line', 4
- new $P715, "ResizablePMCArray"
- push $P715, ""
- .return ($P715)
+ new $P727, "ResizablePMCArray"
+ push $P727, ""
+ .return ($P727)
.end
.namespace ["NQP";"Grammar"]
-.sub "regex_declarator" :subid("169_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "param_var" :subid("172_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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=
- 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)
+ .local string rx739_tgt
+ .local int rx739_pos
+ .local int rx739_off
+ .local int rx739_eos
+ .local int rx739_rep
+ .local pmc rx739_cur
+ (rx739_cur, rx739_pos, rx739_tgt) = self."!cursor_start"()
+ rx739_cur."!cursor_debug"("START ", "param_var")
+ rx739_cur."!cursor_caparray"("twigil")
+ .lex unicode:"$\x{a2}", rx739_cur
+ .local pmc match
+ .lex "$/", match
+ length rx739_eos, rx739_tgt
+ gt rx739_pos, rx739_eos, rx739_done
+ set rx739_off, 0
+ lt rx739_pos, 2, rx739_start
+ sub rx739_off, rx739_pos, 1
+ substr rx739_tgt, rx739_tgt, rx739_off
+ rx739_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan743_done
+ goto rxscan743_scan
+ rxscan743_loop:
+ ($P10) = rx739_cur."from"()
+ inc $P10
+ set rx739_pos, $P10
+ ge rx739_pos, rx739_eos, rxscan743_done
+ rxscan743_scan:
+ set_addr $I10, rxscan743_loop
+ rx739_cur."!mark_push"(0, rx739_pos, $I10)
+ rxscan743_done:
+.annotate 'line', 334
+ # rx subrule "sigil" subtype=capture negate=
+ rx739_cur."!cursor_pos"(rx739_pos)
+ $P10 = rx739_cur."sigil"()
+ unless $P10, rx739_fail
+ rx739_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sigil")
+ rx739_pos = $P10."pos"()
+ # rx rxquantr744 ** 0..1
+ set_addr $I745, rxquantr744_done
+ rx739_cur."!mark_push"(0, rx739_pos, $I745)
+ rxquantr744_loop:
+ # rx subrule "twigil" subtype=capture negate=
+ rx739_cur."!cursor_pos"(rx739_pos)
+ $P10 = rx739_cur."twigil"()
+ unless $P10, rx739_fail
+ rx739_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("twigil")
+ rx739_pos = $P10."pos"()
+ (rx739_rep) = rx739_cur."!mark_commit"($I745)
+ rxquantr744_done:
+ alt746_0:
+.annotate 'line', 335
+ set_addr $I10, alt746_1
+ rx739_cur."!mark_push"(0, rx739_pos, $I10)
+ # rx subrule "ident" subtype=capture negate=
+ rx739_cur."!cursor_pos"(rx739_pos)
+ $P10 = rx739_cur."ident"()
+ unless $P10, rx739_fail
+ rx739_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("name")
+ rx739_pos = $P10."pos"()
+ goto alt746_end
+ alt746_1:
+ # rx subcapture "name"
+ set_addr $I10, rxcap_747_fail
+ rx739_cur."!mark_push"(0, rx739_pos, $I10)
+ # rx enumcharlist negate=0
+ ge rx739_pos, rx739_eos, rx739_fail
+ sub $I10, rx739_pos, rx739_off
+ substr $S10, rx739_tgt, $I10, 1
+ index $I11, "/!", $S10
+ lt $I11, 0, rx739_fail
+ inc rx739_pos
+ set_addr $I10, rxcap_747_fail
+ ($I12, $I11) = rx739_cur."!mark_peek"($I10)
+ rx739_cur."!cursor_pos"($I11)
+ ($P10) = rx739_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx739_pos, "")
+ rx739_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("name")
+ goto rxcap_747_done
+ rxcap_747_fail:
+ goto rx739_fail
+ rxcap_747_done:
+ alt746_end:
.annotate 'line', 333
+ # rx pass
+ rx739_cur."!cursor_pass"(rx739_pos, "param_var")
+ rx739_cur."!cursor_debug"("PASS ", "param_var", " at pos=", rx739_pos)
+ .return (rx739_cur)
+ rx739_fail:
+.annotate 'line', 4
+ (rx739_rep, rx739_pos, $I10, $P10) = rx739_cur."!mark_fail"(0)
+ lt rx739_pos, -1, rx739_done
+ eq rx739_pos, -1, rx739_fail
+ jump $I10
+ rx739_done:
+ rx739_cur."!cursor_fail"()
+ rx739_cur."!cursor_debug"("FAIL ", "param_var")
+ .return (rx739_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__param_var" :subid("173_1275811487.95429") :method
+.annotate 'line', 4
+ $P741 = self."!PREFIX__!subrule"("sigil", "")
+ new $P742, "ResizablePMCArray"
+ push $P742, $P741
+ .return ($P742)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "named_param" :subid("174_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx749_tgt
+ .local int rx749_pos
+ .local int rx749_off
+ .local int rx749_eos
+ .local int rx749_rep
+ .local pmc rx749_cur
+ (rx749_cur, rx749_pos, rx749_tgt) = self."!cursor_start"()
+ rx749_cur."!cursor_debug"("START ", "named_param")
+ .lex unicode:"$\x{a2}", rx749_cur
+ .local pmc match
+ .lex "$/", match
+ length rx749_eos, rx749_tgt
+ gt rx749_pos, rx749_eos, rx749_done
+ set rx749_off, 0
+ lt rx749_pos, 2, rx749_start
+ sub rx749_off, rx749_pos, 1
+ substr rx749_tgt, rx749_tgt, rx749_off
+ rx749_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan753_done
+ goto rxscan753_scan
+ rxscan753_loop:
+ ($P10) = rx749_cur."from"()
+ inc $P10
+ set rx749_pos, $P10
+ ge rx749_pos, rx749_eos, rxscan753_done
+ rxscan753_scan:
+ set_addr $I10, rxscan753_loop
+ rx749_cur."!mark_push"(0, rx749_pos, $I10)
+ rxscan753_done:
+.annotate 'line', 339
+ # rx literal ":"
+ add $I11, rx749_pos, 1
+ gt $I11, rx749_eos, rx749_fail
+ sub $I11, rx749_pos, rx749_off
+ substr $S10, rx749_tgt, $I11, 1
+ ne $S10, ":", rx749_fail
+ add rx749_pos, 1
+ # rx subrule "param_var" subtype=capture negate=
+ rx749_cur."!cursor_pos"(rx749_pos)
+ $P10 = rx749_cur."param_var"()
+ unless $P10, rx749_fail
+ rx749_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("param_var")
+ rx749_pos = $P10."pos"()
+.annotate 'line', 338
+ # rx pass
+ rx749_cur."!cursor_pass"(rx749_pos, "named_param")
+ rx749_cur."!cursor_debug"("PASS ", "named_param", " at pos=", rx749_pos)
+ .return (rx749_cur)
+ rx749_fail:
+.annotate 'line', 4
+ (rx749_rep, rx749_pos, $I10, $P10) = rx749_cur."!mark_fail"(0)
+ lt rx749_pos, -1, rx749_done
+ eq rx749_pos, -1, rx749_fail
+ jump $I10
+ rx749_done:
+ rx749_cur."!cursor_fail"()
+ rx749_cur."!cursor_debug"("FAIL ", "named_param")
+ .return (rx749_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__named_param" :subid("175_1275811487.95429") :method
+.annotate 'line', 4
+ $P751 = self."!PREFIX__!subrule"("param_var", ":")
+ new $P752, "ResizablePMCArray"
+ push $P752, $P751
+ .return ($P752)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "default_value" :subid("176_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx755_tgt
+ .local int rx755_pos
+ .local int rx755_off
+ .local int rx755_eos
+ .local int rx755_rep
+ .local pmc rx755_cur
+ (rx755_cur, rx755_pos, rx755_tgt) = self."!cursor_start"()
+ rx755_cur."!cursor_debug"("START ", "default_value")
+ .lex unicode:"$\x{a2}", rx755_cur
+ .local pmc match
+ .lex "$/", match
+ length rx755_eos, rx755_tgt
+ gt rx755_pos, rx755_eos, rx755_done
+ set rx755_off, 0
+ lt rx755_pos, 2, rx755_start
+ sub rx755_off, rx755_pos, 1
+ substr rx755_tgt, rx755_tgt, rx755_off
+ rx755_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan759_done
+ goto rxscan759_scan
+ rxscan759_loop:
+ ($P10) = rx755_cur."from"()
+ inc $P10
+ set rx755_pos, $P10
+ ge rx755_pos, rx755_eos, rxscan759_done
+ rxscan759_scan:
+ set_addr $I10, rxscan759_loop
+ rx755_cur."!mark_push"(0, rx755_pos, $I10)
+ rxscan759_done:
+.annotate 'line', 342
+ # rx subrule "ws" subtype=method negate=
+ rx755_cur."!cursor_pos"(rx755_pos)
+ $P10 = rx755_cur."ws"()
+ unless $P10, rx755_fail
+ rx755_pos = $P10."pos"()
+ # rx literal "="
+ add $I11, rx755_pos, 1
+ gt $I11, rx755_eos, rx755_fail
+ sub $I11, rx755_pos, rx755_off
+ substr $S10, rx755_tgt, $I11, 1
+ ne $S10, "=", rx755_fail
+ add rx755_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx755_cur."!cursor_pos"(rx755_pos)
+ $P10 = rx755_cur."ws"()
+ unless $P10, rx755_fail
+ rx755_pos = $P10."pos"()
+ # rx subrule "EXPR" subtype=capture negate=
+ rx755_cur."!cursor_pos"(rx755_pos)
+ $P10 = rx755_cur."EXPR"("i=")
+ unless $P10, rx755_fail
+ rx755_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("EXPR")
+ rx755_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx755_cur."!cursor_pos"(rx755_pos)
+ $P10 = rx755_cur."ws"()
+ unless $P10, rx755_fail
+ rx755_pos = $P10."pos"()
+ # rx pass
+ rx755_cur."!cursor_pass"(rx755_pos, "default_value")
+ rx755_cur."!cursor_debug"("PASS ", "default_value", " at pos=", rx755_pos)
+ .return (rx755_cur)
+ rx755_fail:
+.annotate 'line', 4
+ (rx755_rep, rx755_pos, $I10, $P10) = rx755_cur."!mark_fail"(0)
+ lt rx755_pos, -1, rx755_done
+ eq rx755_pos, -1, rx755_fail
+ jump $I10
+ rx755_done:
+ rx755_cur."!cursor_fail"()
+ rx755_cur."!cursor_debug"("FAIL ", "default_value")
+ .return (rx755_cur)
+ .return ()
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "!PREFIX__default_value" :subid("177_1275811487.95429") :method
+.annotate 'line', 4
+ $P757 = self."!PREFIX__!subrule"("ws", "")
+ new $P758, "ResizablePMCArray"
+ push $P758, $P757
+ .return ($P758)
+.end
+
+
+.namespace ["NQP";"Grammar"]
+.sub "regex_declarator" :subid("178_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 4
+ .local string rx764_tgt
+ .local int rx764_pos
+ .local int rx764_off
+ .local int rx764_eos
+ .local int rx764_rep
+ .local pmc rx764_cur
+ (rx764_cur, rx764_pos, rx764_tgt) = self."!cursor_start"()
+ rx764_cur."!cursor_debug"("START ", "regex_declarator")
+ rx764_cur."!cursor_caparray"("signature")
+ .lex unicode:"$\x{a2}", rx764_cur
+ .local pmc match
+ .lex "$/", match
+ length rx764_eos, rx764_tgt
+ gt rx764_pos, rx764_eos, rx764_done
+ set rx764_off, 0
+ lt rx764_pos, 2, rx764_start
+ sub rx764_off, rx764_pos, 1
+ substr rx764_tgt, rx764_tgt, rx764_off
+ rx764_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan768_done
+ goto rxscan768_scan
+ rxscan768_loop:
+ ($P10) = rx764_cur."from"()
+ inc $P10
+ set rx764_pos, $P10
+ ge rx764_pos, rx764_eos, rxscan768_done
+ rxscan768_scan:
+ set_addr $I10, rxscan768_loop
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
+ rxscan768_done:
+.annotate 'line', 344
# rx subrule "ws" subtype=method negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."ws"()
- unless $P10, rx721_fail
- rx721_pos = $P10."pos"()
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ alt770_0:
+.annotate 'line', 345
+ set_addr $I10, alt770_1
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
+.annotate 'line', 346
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx subcapture "proto"
- set_addr $I10, rxcap_728_fail
- rx721_cur."!mark_push"(0, rx721_pos, $I10)
+ set_addr $I10, rxcap_772_fail
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
# rx literal "proto"
- 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)
+ add $I11, rx764_pos, 5
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 5
+ ne $S10, "proto", rx764_fail
+ add rx764_pos, 5
+ set_addr $I10, rxcap_772_fail
+ ($I12, $I11) = rx764_cur."!mark_peek"($I10)
+ rx764_cur."!cursor_pos"($I11)
+ ($P10) = rx764_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx764_pos, "")
+ rx764_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("proto")
- 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)
+ goto rxcap_772_done
+ rxcap_772_fail:
+ goto rx764_fail
+ rxcap_772_done:
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ alt774_0:
+ set_addr $I10, alt774_1
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
# rx literal "regex"
- 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)
+ add $I11, rx764_pos, 5
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 5
+ ne $S10, "regex", rx764_fail
+ add rx764_pos, 5
+ goto alt774_end
+ alt774_1:
+ set_addr $I10, alt774_2
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
# rx literal "token"
- 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:
+ add $I11, rx764_pos, 5
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 5
+ ne $S10, "token", rx764_fail
+ add rx764_pos, 5
+ goto alt774_end
+ alt774_2:
# rx literal "rule"
- 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
+ add $I11, rx764_pos, 4
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 4
+ ne $S10, "rule", rx764_fail
+ add rx764_pos, 4
+ alt774_end:
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 347
# rx subrule "deflongname" subtype=capture negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."deflongname"()
- unless $P10, rx721_fail
- rx721_cur."!mark_push"(0, -1, 0, $P10)
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."deflongname"()
+ unless $P10, rx764_fail
+ rx764_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- rx721_pos = $P10."pos"()
+ rx764_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_0:
-.annotate 'line', 335
- set_addr $I10, alt733_1
- rx721_cur."!mark_push"(0, rx721_pos, $I10)
-.annotate 'line', 336
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ alt777_0:
+.annotate 'line', 348
+ set_addr $I10, alt777_1
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
+.annotate 'line', 349
# rx subrule "ws" subtype=method negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."ws"()
- unless $P10, rx721_fail
- rx721_pos = $P10."pos"()
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx literal "{"
- 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"()
+ add $I11, rx764_pos, 1
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 1
+ ne $S10, "{", rx764_fail
+ add rx764_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx literal "<...>"
- 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"()
+ add $I11, rx764_pos, 5
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 5
+ ne $S10, "<...>", rx764_fail
+ add rx764_pos, 5
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx literal "}"
- 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
+ add $I11, rx764_pos, 1
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 1
+ ne $S10, "}", rx764_fail
+ add rx764_pos, 1
# rx subrule "ENDSTMT" subtype=zerowidth negate=
- 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
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ENDSTMT"()
+ unless $P10, rx764_fail
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ goto alt777_end
+ alt777_1:
+.annotate 'line', 350
# rx subrule "ws" subtype=method negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."ws"()
- unless $P10, rx721_fail
- rx721_pos = $P10."pos"()
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx subrule "panic" subtype=method negate=
- 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
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."panic"("Proto regex body must be <...>")
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ alt777_end:
+.annotate 'line', 351
# 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', 333
- goto alt726_end
- alt726_1:
-.annotate 'line', 339
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 346
+ goto alt770_end
+ alt770_1:
+.annotate 'line', 352
# rx subrule "ws" subtype=method negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."ws"()
- unless $P10, rx721_fail
- rx721_pos = $P10."pos"()
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx subcapture "sym"
- 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)
+ set_addr $I10, rxcap_787_fail
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
+ alt786_0:
+ set_addr $I10, alt786_1
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
# rx literal "regex"
- 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)
+ add $I11, rx764_pos, 5
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 5
+ ne $S10, "regex", rx764_fail
+ add rx764_pos, 5
+ goto alt786_end
+ alt786_1:
+ set_addr $I10, alt786_2
+ rx764_cur."!mark_push"(0, rx764_pos, $I10)
# rx literal "token"
- 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:
+ add $I11, rx764_pos, 5
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 5
+ ne $S10, "token", rx764_fail
+ add rx764_pos, 5
+ goto alt786_end
+ alt786_2:
# rx literal "rule"
- 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)
+ add $I11, rx764_pos, 4
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 4
+ ne $S10, "rule", rx764_fail
+ add rx764_pos, 4
+ alt786_end:
+ set_addr $I10, rxcap_787_fail
+ ($I12, $I11) = rx764_cur."!mark_peek"($I10)
+ rx764_cur."!cursor_pos"($I11)
+ ($P10) = rx764_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx764_pos, "")
+ rx764_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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
+ goto rxcap_787_done
+ rxcap_787_fail:
+ goto rx764_fail
+ rxcap_787_done:
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 353
# rx subrule "deflongname" subtype=capture negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."deflongname"()
- unless $P10, rx721_fail
- rx721_cur."!mark_push"(0, -1, 0, $P10)
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."deflongname"()
+ unless $P10, rx764_fail
+ rx764_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("deflongname")
- rx721_pos = $P10."pos"()
+ rx764_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', 341
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 354
# rx subrule "newpad" subtype=method negate=
- 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"()
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."newpad"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 355
+ # rx rxquantr791 ** 0..1
+ set_addr $I796, rxquantr791_done
+ rx764_cur."!mark_push"(0, rx764_pos, $I796)
+ rxquantr791_loop:
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx literal "("
- 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"()
+ add $I11, rx764_pos, 1
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 1
+ ne $S10, "(", rx764_fail
+ add rx764_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx subrule "signature" subtype=capture negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."signature"()
- unless $P10, rx721_fail
- rx721_cur."!mark_push"(0, -1, 0, $P10)
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."signature"()
+ unless $P10, rx764_fail
+ rx764_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("signature")
- rx721_pos = $P10."pos"()
+ rx764_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"()
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
# rx literal ")"
- 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
+ add $I11, rx764_pos, 1
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 1
+ ne $S10, ")", rx764_fail
+ add rx764_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ (rx764_rep) = rx764_cur."!mark_commit"($I796)
+ rxquantr791_done:
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 356
# rx reduce name="regex_declarator" key="open"
- rx721_cur."!cursor_pos"(rx721_pos)
- rx721_cur."!reduce"("regex_declarator", "open")
+ rx764_cur."!cursor_pos"(rx764_pos)
+ rx764_cur."!reduce"("regex_declarator", "open")
# 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', 344
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 357
# rx literal "{"
- 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
+ add $I11, rx764_pos, 1
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 1
+ ne $S10, "{", rx764_fail
+ add rx764_pos, 1
# rx subrule "LANG" subtype=capture negate=
- rx721_cur."!cursor_pos"(rx721_pos)
- $P10 = rx721_cur."LANG"("Regex", "nibbler")
- unless $P10, rx721_fail
- rx721_cur."!mark_push"(0, -1, 0, $P10)
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."LANG"("Regex", "nibbler")
+ unless $P10, rx764_fail
+ rx764_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("p6regex")
- rx721_pos = $P10."pos"()
+ rx764_pos = $P10."pos"()
# rx literal "}"
- 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
+ add $I11, rx764_pos, 1
+ gt $I11, rx764_eos, rx764_fail
+ sub $I11, rx764_pos, rx764_off
+ substr $S10, rx764_tgt, $I11, 1
+ ne $S10, "}", rx764_fail
+ add rx764_pos, 1
# rx subrule "ENDSTMT" subtype=zerowidth negate=
- 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
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ENDSTMT"()
+ unless $P10, rx764_fail
+ # rx subrule "ws" subtype=method negate=
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+ alt770_end:
+.annotate 'line', 358
# 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
+ rx764_cur."!cursor_pos"(rx764_pos)
+ $P10 = rx764_cur."ws"()
+ unless $P10, rx764_fail
+ rx764_pos = $P10."pos"()
+.annotate 'line', 344
# rx pass
- rx721_cur."!cursor_pass"(rx721_pos, "regex_declarator")
- rx721_cur."!cursor_debug"("PASS ", "regex_declarator", " at pos=", rx721_pos)
- .return (rx721_cur)
- rx721_fail:
+ rx764_cur."!cursor_pass"(rx764_pos, "regex_declarator")
+ rx764_cur."!cursor_debug"("PASS ", "regex_declarator", " at pos=", rx764_pos)
+ .return (rx764_cur)
+ rx764_fail:
.annotate 'line', 4
- (rx721_rep, rx721_pos, $I10, $P10) = rx721_cur."!mark_fail"(0)
- lt rx721_pos, -1, rx721_done
- eq rx721_pos, -1, rx721_fail
+ (rx764_rep, rx764_pos, $I10, $P10) = rx764_cur."!mark_fail"(0)
+ lt rx764_pos, -1, rx764_done
+ eq rx764_pos, -1, rx764_fail
jump $I10
- rx721_done:
- rx721_cur."!cursor_fail"()
- rx721_cur."!cursor_debug"("FAIL ", "regex_declarator")
- .return (rx721_cur)
+ rx764_done:
+ rx764_cur."!cursor_fail"()
+ rx764_cur."!cursor_debug"("FAIL ", "regex_declarator")
+ .return (rx764_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__regex_declarator" :subid("170_1275117591.97262") :method
+.sub "!PREFIX__regex_declarator" :subid("179_1275811487.95429") :method
.annotate 'line', 4
- new $P723, "ResizablePMCArray"
- push $P723, ""
- .return ($P723)
+ $P766 = self."!PREFIX__!subrule"("ws", "")
+ new $P767, "ResizablePMCArray"
+ push $P767, $P766
+ .return ($P767)
.end
.namespace ["NQP";"Grammar"]
-.sub "dotty" :subid("171_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "dotty" :subid("180_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .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 ", "dotty")
+ rx802_cur."!cursor_caparray"("args")
+ .lex unicode:"$\x{a2}", rx802_cur
+ .local pmc match
+ .lex "$/", match
+ length rx802_eos, rx802_tgt
+ gt rx802_pos, rx802_eos, rx802_done
+ 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:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan806_done
+ goto rxscan806_scan
+ rxscan806_loop:
+ ($P10) = rx802_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', 362
# rx literal "."
- 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)
+ add $I11, rx802_pos, 1
+ gt $I11, rx802_eos, rx802_fail
+ sub $I11, rx802_pos, rx802_off
+ substr $S10, rx802_tgt, $I11, 1
+ ne $S10, ".", rx802_fail
+ add rx802_pos, 1
+ alt807_0:
+.annotate 'line', 363
+ set_addr $I10, alt807_1
+ rx802_cur."!mark_push"(0, rx802_pos, $I10)
# rx subrule "identifier" subtype=capture negate=
- rx758_cur."!cursor_pos"(rx758_pos)
- $P10 = rx758_cur."identifier"()
- unless $P10, rx758_fail
- rx758_cur."!mark_push"(0, -1, 0, $P10)
+ rx802_cur."!cursor_pos"(rx802_pos)
+ $P10 = rx802_cur."identifier"()
+ unless $P10, rx802_fail
+ rx802_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("longname=identifier")
- rx758_pos = $P10."pos"()
- goto alt763_end
- alt763_1:
-.annotate 'line', 351
+ rx802_pos = $P10."pos"()
+ goto alt807_end
+ alt807_1:
+.annotate 'line', 364
# rx enumcharlist negate=0 zerowidth
- ge rx758_pos, rx758_eos, rx758_fail
- sub $I10, rx758_pos, rx758_off
- substr $S10, rx758_tgt, $I10, 1
+ ge rx802_pos, rx802_eos, rx802_fail
+ sub $I10, rx802_pos, rx802_off
+ substr $S10, rx802_tgt, $I10, 1
index $I11, "'\"", $S10
- lt $I11, 0, rx758_fail
+ lt $I11, 0, rx802_fail
# rx subrule "quote" subtype=capture negate=
- rx758_cur."!cursor_pos"(rx758_pos)
- $P10 = rx758_cur."quote"()
- unless $P10, rx758_fail
- rx758_cur."!mark_push"(0, -1, 0, $P10)
+ rx802_cur."!cursor_pos"(rx802_pos)
+ $P10 = rx802_cur."quote"()
+ unless $P10, rx802_fail
+ rx802_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote")
- rx758_pos = $P10."pos"()
- alt764_0:
-.annotate 'line', 352
- set_addr $I10, alt764_1
- rx758_cur."!mark_push"(0, rx758_pos, $I10)
+ rx802_pos = $P10."pos"()
+ alt808_0:
+.annotate 'line', 365
+ set_addr $I10, alt808_1
+ rx802_cur."!mark_push"(0, rx802_pos, $I10)
# rx enumcharlist negate=0 zerowidth
- ge rx758_pos, rx758_eos, rx758_fail
- sub $I10, rx758_pos, rx758_off
- substr $S10, rx758_tgt, $I10, 1
+ ge rx802_pos, rx802_eos, rx802_fail
+ sub $I10, rx802_pos, rx802_off
+ substr $S10, rx802_tgt, $I10, 1
index $I11, "(", $S10
- lt $I11, 0, rx758_fail
- goto alt764_end
- alt764_1:
+ lt $I11, 0, rx802_fail
+ goto alt808_end
+ alt808_1:
# rx subrule "panic" subtype=method negate=
- 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
+ rx802_cur."!cursor_pos"(rx802_pos)
+ $P10 = rx802_cur."panic"("Quoted method name requires parenthesized arguments")
+ unless $P10, rx802_fail
+ rx802_pos = $P10."pos"()
+ alt808_end:
+ alt807_end:
+.annotate 'line', 371
+ # rx rxquantr809 ** 0..1
+ set_addr $I811, rxquantr809_done
+ rx802_cur."!mark_push"(0, rx802_pos, $I811)
+ rxquantr809_loop:
+ alt810_0:
+.annotate 'line', 368
+ set_addr $I10, alt810_1
+ rx802_cur."!mark_push"(0, rx802_pos, $I10)
+.annotate 'line', 369
# rx enumcharlist negate=0 zerowidth
- ge rx758_pos, rx758_eos, rx758_fail
- sub $I10, rx758_pos, rx758_off
- substr $S10, rx758_tgt, $I10, 1
+ ge rx802_pos, rx802_eos, rx802_fail
+ sub $I10, rx802_pos, rx802_off
+ substr $S10, rx802_tgt, $I10, 1
index $I11, "(", $S10
- lt $I11, 0, rx758_fail
+ lt $I11, 0, rx802_fail
# rx subrule "args" subtype=capture negate=
- rx758_cur."!cursor_pos"(rx758_pos)
- $P10 = rx758_cur."args"()
- unless $P10, rx758_fail
- rx758_cur."!mark_push"(0, -1, 0, $P10)
+ rx802_cur."!cursor_pos"(rx802_pos)
+ $P10 = rx802_cur."args"()
+ unless $P10, rx802_fail
+ rx802_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx758_pos = $P10."pos"()
- goto alt766_end
- alt766_1:
-.annotate 'line', 357
+ rx802_pos = $P10."pos"()
+ goto alt810_end
+ alt810_1:
+.annotate 'line', 370
# rx literal ":"
- 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
+ add $I11, rx802_pos, 1
+ gt $I11, rx802_eos, rx802_fail
+ sub $I11, rx802_pos, rx802_off
+ substr $S10, rx802_tgt, $I11, 1
+ ne $S10, ":", rx802_fail
+ add rx802_pos, 1
# rx charclass s
- 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
+ ge rx802_pos, rx802_eos, rx802_fail
+ sub $I10, rx802_pos, rx802_off
+ is_cclass $I11, 32, rx802_tgt, $I10
+ unless $I11, rx802_fail
+ inc rx802_pos
# rx subrule "arglist" subtype=capture negate=
- rx758_cur."!cursor_pos"(rx758_pos)
- $P10 = rx758_cur."arglist"()
- unless $P10, rx758_fail
- rx758_cur."!mark_push"(0, -1, 0, $P10)
+ rx802_cur."!cursor_pos"(rx802_pos)
+ $P10 = rx802_cur."arglist"()
+ unless $P10, rx802_fail
+ rx802_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx758_pos = $P10."pos"()
- alt766_end:
-.annotate 'line', 358
- (rx758_rep) = rx758_cur."!mark_commit"($I767)
- rxquantr765_done:
-.annotate 'line', 348
+ rx802_pos = $P10."pos"()
+ alt810_end:
+.annotate 'line', 371
+ (rx802_rep) = rx802_cur."!mark_commit"($I811)
+ rxquantr809_done:
+.annotate 'line', 361
# rx pass
- rx758_cur."!cursor_pass"(rx758_pos, "dotty")
- rx758_cur."!cursor_debug"("PASS ", "dotty", " at pos=", rx758_pos)
- .return (rx758_cur)
- rx758_fail:
+ rx802_cur."!cursor_pass"(rx802_pos, "dotty")
+ rx802_cur."!cursor_debug"("PASS ", "dotty", " at pos=", rx802_pos)
+ .return (rx802_cur)
+ rx802_fail:
.annotate 'line', 4
- (rx758_rep, rx758_pos, $I10, $P10) = rx758_cur."!mark_fail"(0)
- lt rx758_pos, -1, rx758_done
- eq rx758_pos, -1, rx758_fail
+ (rx802_rep, rx802_pos, $I10, $P10) = rx802_cur."!mark_fail"(0)
+ lt rx802_pos, -1, rx802_done
+ eq rx802_pos, -1, rx802_fail
jump $I10
- rx758_done:
- rx758_cur."!cursor_fail"()
- rx758_cur."!cursor_debug"("FAIL ", "dotty")
- .return (rx758_cur)
+ rx802_done:
+ rx802_cur."!cursor_fail"()
+ rx802_cur."!cursor_debug"("FAIL ", "dotty")
+ .return (rx802_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__dotty" :subid("172_1275117591.97262") :method
+.sub "!PREFIX__dotty" :subid("181_1275811487.95429") :method
.annotate 'line', 4
- $P760 = self."!PREFIX__!subrule"("longname=identifier", ".")
- new $P761, "ResizablePMCArray"
- push $P761, "'"
- push $P761, "\""
- push $P761, $P760
- .return ($P761)
+ $P804 = self."!PREFIX__!subrule"("identifier", ".")
+ new $P805, "ResizablePMCArray"
+ push $P805, "'"
+ push $P805, "\""
+ push $P805, $P804
+ .return ($P805)
.end
.namespace ["NQP";"Grammar"]
-.sub "term" :subid("173_1275117591.97262") :method
-.annotate 'line', 362
- $P769 = self."!protoregex"("term")
- .return ($P769)
+.sub "term" :subid("182_1275811487.95429") :method
+.annotate 'line', 375
+ $P813 = self."!protoregex"("term")
+ .return ($P813)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term" :subid("174_1275117591.97262") :method
-.annotate 'line', 362
- $P771 = self."!PREFIX__!protoregex"("term")
- .return ($P771)
+.sub "!PREFIX__term" :subid("183_1275811487.95429") :method
+.annotate 'line', 375
+ $P815 = self."!PREFIX__!protoregex"("term")
+ .return ($P815)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<self>" :subid("175_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<self>" :subid("184_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx817_tgt
+ .local int rx817_pos
+ .local int rx817_off
+ .local int rx817_eos
+ .local int rx817_rep
+ .local pmc rx817_cur
+ (rx817_cur, rx817_pos, rx817_tgt) = self."!cursor_start"()
+ rx817_cur."!cursor_debug"("START ", "term:sym<self>")
+ .lex unicode:"$\x{a2}", rx817_cur
+ .local pmc match
+ .lex "$/", match
+ length rx817_eos, rx817_tgt
+ gt rx817_pos, rx817_eos, rx817_done
+ set rx817_off, 0
+ lt rx817_pos, 2, rx817_start
+ sub rx817_off, rx817_pos, 1
+ substr rx817_tgt, rx817_tgt, rx817_off
+ rx817_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan820_done
+ goto rxscan820_scan
+ rxscan820_loop:
+ ($P10) = rx817_cur."from"()
+ inc $P10
+ set rx817_pos, $P10
+ ge rx817_pos, rx817_eos, rxscan820_done
+ rxscan820_scan:
+ set_addr $I10, rxscan820_loop
+ rx817_cur."!mark_push"(0, rx817_pos, $I10)
+ rxscan820_done:
+.annotate 'line', 377
# rx subcapture "sym"
- set_addr $I10, rxcap_777_fail
- rx773_cur."!mark_push"(0, rx773_pos, $I10)
+ set_addr $I10, rxcap_821_fail
+ rx817_cur."!mark_push"(0, rx817_pos, $I10)
# rx literal "self"
- 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)
+ add $I11, rx817_pos, 4
+ gt $I11, rx817_eos, rx817_fail
+ sub $I11, rx817_pos, rx817_off
+ substr $S10, rx817_tgt, $I11, 4
+ ne $S10, "self", rx817_fail
+ add rx817_pos, 4
+ set_addr $I10, rxcap_821_fail
+ ($I12, $I11) = rx817_cur."!mark_peek"($I10)
+ rx817_cur."!cursor_pos"($I11)
+ ($P10) = rx817_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx817_pos, "")
+ rx817_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_777_done
- rxcap_777_fail:
- goto rx773_fail
- rxcap_777_done:
+ goto rxcap_821_done
+ rxcap_821_fail:
+ goto rx817_fail
+ rxcap_821_done:
# rxanchor rwb
- le rx773_pos, 0, rx773_fail
- sub $I10, rx773_pos, rx773_off
- is_cclass $I11, 8192, rx773_tgt, $I10
- if $I11, rx773_fail
+ le rx817_pos, 0, rx817_fail
+ sub $I10, rx817_pos, rx817_off
+ is_cclass $I11, 8192, rx817_tgt, $I10
+ if $I11, rx817_fail
dec $I10
- is_cclass $I11, 8192, rx773_tgt, $I10
- unless $I11, rx773_fail
+ is_cclass $I11, 8192, rx817_tgt, $I10
+ unless $I11, rx817_fail
# rx pass
- 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:
+ rx817_cur."!cursor_pass"(rx817_pos, "term:sym<self>")
+ rx817_cur."!cursor_debug"("PASS ", "term:sym<self>", " at pos=", rx817_pos)
+ .return (rx817_cur)
+ rx817_fail:
.annotate 'line', 4
- (rx773_rep, rx773_pos, $I10, $P10) = rx773_cur."!mark_fail"(0)
- lt rx773_pos, -1, rx773_done
- eq rx773_pos, -1, rx773_fail
+ (rx817_rep, rx817_pos, $I10, $P10) = rx817_cur."!mark_fail"(0)
+ lt rx817_pos, -1, rx817_done
+ eq rx817_pos, -1, rx817_fail
jump $I10
- rx773_done:
- rx773_cur."!cursor_fail"()
- rx773_cur."!cursor_debug"("FAIL ", "term:sym<self>")
- .return (rx773_cur)
+ rx817_done:
+ rx817_cur."!cursor_fail"()
+ rx817_cur."!cursor_debug"("FAIL ", "term:sym<self>")
+ .return (rx817_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<self>" :subid("176_1275117591.97262") :method
+.sub "!PREFIX__term:sym<self>" :subid("185_1275811487.95429") :method
.annotate 'line', 4
- new $P775, "ResizablePMCArray"
- push $P775, "self"
- .return ($P775)
+ new $P819, "ResizablePMCArray"
+ push $P819, "self"
+ .return ($P819)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<identifier>" :subid("177_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<identifier>" :subid("186_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan783_done
- goto rxscan783_scan
- rxscan783_loop:
- ($P10) = rx779_cur."from"()
- inc $P10
- 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
+ .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 ", "term:sym<identifier>")
+ .lex unicode:"$\x{a2}", rx823_cur
+ .local pmc match
+ .lex "$/", match
+ length rx823_eos, rx823_tgt
+ gt rx823_pos, rx823_eos, rx823_done
+ 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:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan827_done
+ goto rxscan827_scan
+ rxscan827_loop:
+ ($P10) = rx823_cur."from"()
+ inc $P10
+ set rx823_pos, $P10
+ ge rx823_pos, rx823_eos, rxscan827_done
+ rxscan827_scan:
+ set_addr $I10, rxscan827_loop
+ rx823_cur."!mark_push"(0, rx823_pos, $I10)
+ rxscan827_done:
+.annotate 'line', 380
# rx subrule "identifier" subtype=capture negate=
- rx779_cur."!cursor_pos"(rx779_pos)
- $P10 = rx779_cur."identifier"()
- unless $P10, rx779_fail
- rx779_cur."!mark_push"(0, -1, 0, $P10)
+ rx823_cur."!cursor_pos"(rx823_pos)
+ $P10 = rx823_cur."identifier"()
+ unless $P10, rx823_fail
+ rx823_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("identifier")
- rx779_pos = $P10."pos"()
+ rx823_pos = $P10."pos"()
# rx enumcharlist negate=0 zerowidth
- ge rx779_pos, rx779_eos, rx779_fail
- sub $I10, rx779_pos, rx779_off
- substr $S10, rx779_tgt, $I10, 1
+ ge rx823_pos, rx823_eos, rx823_fail
+ sub $I10, rx823_pos, rx823_off
+ substr $S10, rx823_tgt, $I10, 1
index $I11, "(", $S10
- lt $I11, 0, rx779_fail
+ lt $I11, 0, rx823_fail
# rx subrule "args" subtype=capture negate=
- rx779_cur."!cursor_pos"(rx779_pos)
- $P10 = rx779_cur."args"()
- unless $P10, rx779_fail
- rx779_cur."!mark_push"(0, -1, 0, $P10)
+ rx823_cur."!cursor_pos"(rx823_pos)
+ $P10 = rx823_cur."args"()
+ unless $P10, rx823_fail
+ rx823_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx779_pos = $P10."pos"()
-.annotate 'line', 366
+ rx823_pos = $P10."pos"()
+.annotate 'line', 379
# rx pass
- 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:
+ rx823_cur."!cursor_pass"(rx823_pos, "term:sym<identifier>")
+ rx823_cur."!cursor_debug"("PASS ", "term:sym<identifier>", " at pos=", rx823_pos)
+ .return (rx823_cur)
+ rx823_fail:
.annotate 'line', 4
- (rx779_rep, rx779_pos, $I10, $P10) = rx779_cur."!mark_fail"(0)
- lt rx779_pos, -1, rx779_done
- eq rx779_pos, -1, rx779_fail
+ (rx823_rep, rx823_pos, $I10, $P10) = rx823_cur."!mark_fail"(0)
+ lt rx823_pos, -1, rx823_done
+ eq rx823_pos, -1, rx823_fail
jump $I10
- rx779_done:
- rx779_cur."!cursor_fail"()
- rx779_cur."!cursor_debug"("FAIL ", "term:sym<identifier>")
- .return (rx779_cur)
+ rx823_done:
+ rx823_cur."!cursor_fail"()
+ rx823_cur."!cursor_debug"("FAIL ", "term:sym<identifier>")
+ .return (rx823_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<identifier>" :subid("178_1275117591.97262") :method
+.sub "!PREFIX__term:sym<identifier>" :subid("187_1275811487.95429") :method
.annotate 'line', 4
- $P781 = self."!PREFIX__!subrule"("identifier", "")
- new $P782, "ResizablePMCArray"
- push $P782, $P781
- .return ($P782)
+ $P825 = self."!PREFIX__!subrule"("identifier", "")
+ new $P826, "ResizablePMCArray"
+ push $P826, $P825
+ .return ($P826)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<name>" :subid("179_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<name>" :subid("188_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx829_tgt
+ .local int rx829_pos
+ .local int rx829_off
+ .local int rx829_eos
+ .local int rx829_rep
+ .local pmc rx829_cur
+ (rx829_cur, rx829_pos, rx829_tgt) = self."!cursor_start"()
+ rx829_cur."!cursor_debug"("START ", "term:sym<name>")
+ rx829_cur."!cursor_caparray"("args")
+ .lex unicode:"$\x{a2}", rx829_cur
+ .local pmc match
+ .lex "$/", match
+ length rx829_eos, rx829_tgt
+ gt rx829_pos, rx829_eos, rx829_done
+ set rx829_off, 0
+ lt rx829_pos, 2, rx829_start
+ sub rx829_off, rx829_pos, 1
+ substr rx829_tgt, rx829_tgt, rx829_off
+ rx829_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan833_done
+ goto rxscan833_scan
+ rxscan833_loop:
+ ($P10) = rx829_cur."from"()
+ inc $P10
+ set rx829_pos, $P10
+ ge rx829_pos, rx829_eos, rxscan833_done
+ rxscan833_scan:
+ set_addr $I10, rxscan833_loop
+ rx829_cur."!mark_push"(0, rx829_pos, $I10)
+ rxscan833_done:
+.annotate 'line', 384
# rx subrule "name" subtype=capture negate=
- rx785_cur."!cursor_pos"(rx785_pos)
- $P10 = rx785_cur."name"()
- unless $P10, rx785_fail
- rx785_cur."!mark_push"(0, -1, 0, $P10)
+ rx829_cur."!cursor_pos"(rx829_pos)
+ $P10 = rx829_cur."name"()
+ unless $P10, rx829_fail
+ rx829_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- rx785_pos = $P10."pos"()
- # rx rxquantr790 ** 0..1
- set_addr $I791, rxquantr790_done
- rx785_cur."!mark_push"(0, rx785_pos, $I791)
- rxquantr790_loop:
+ rx829_pos = $P10."pos"()
+ # rx rxquantr834 ** 0..1
+ set_addr $I835, rxquantr834_done
+ rx829_cur."!mark_push"(0, rx829_pos, $I835)
+ rxquantr834_loop:
# rx subrule "args" subtype=capture negate=
- rx785_cur."!cursor_pos"(rx785_pos)
- $P10 = rx785_cur."args"()
- unless $P10, rx785_fail
- rx785_cur."!mark_push"(0, -1, 0, $P10)
+ rx829_cur."!cursor_pos"(rx829_pos)
+ $P10 = rx829_cur."args"()
+ unless $P10, rx829_fail
+ rx829_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx785_pos = $P10."pos"()
- (rx785_rep) = rx785_cur."!mark_commit"($I791)
- rxquantr790_done:
-.annotate 'line', 370
+ rx829_pos = $P10."pos"()
+ (rx829_rep) = rx829_cur."!mark_commit"($I835)
+ rxquantr834_done:
+.annotate 'line', 383
# rx pass
- 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:
+ rx829_cur."!cursor_pass"(rx829_pos, "term:sym<name>")
+ rx829_cur."!cursor_debug"("PASS ", "term:sym<name>", " at pos=", rx829_pos)
+ .return (rx829_cur)
+ rx829_fail:
.annotate 'line', 4
- (rx785_rep, rx785_pos, $I10, $P10) = rx785_cur."!mark_fail"(0)
- lt rx785_pos, -1, rx785_done
- eq rx785_pos, -1, rx785_fail
+ (rx829_rep, rx829_pos, $I10, $P10) = rx829_cur."!mark_fail"(0)
+ lt rx829_pos, -1, rx829_done
+ eq rx829_pos, -1, rx829_fail
jump $I10
- rx785_done:
- rx785_cur."!cursor_fail"()
- rx785_cur."!cursor_debug"("FAIL ", "term:sym<name>")
- .return (rx785_cur)
+ rx829_done:
+ rx829_cur."!cursor_fail"()
+ rx829_cur."!cursor_debug"("FAIL ", "term:sym<name>")
+ .return (rx829_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<name>" :subid("180_1275117591.97262") :method
+.sub "!PREFIX__term:sym<name>" :subid("189_1275811487.95429") :method
.annotate 'line', 4
- $P787 = self."!PREFIX__!subrule"("name", "")
- new $P788, "ResizablePMCArray"
- push $P788, $P787
- .return ($P788)
+ $P831 = self."!PREFIX__!subrule"("name", "")
+ new $P832, "ResizablePMCArray"
+ push $P832, $P831
+ .return ($P832)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<pir::op>" :subid("181_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<pir::op>" :subid("190_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx837_tgt
+ .local int rx837_pos
+ .local int rx837_off
+ .local int rx837_eos
+ .local int rx837_rep
+ .local pmc rx837_cur
+ (rx837_cur, rx837_pos, rx837_tgt) = self."!cursor_start"()
+ rx837_cur."!cursor_debug"("START ", "term:sym<pir::op>")
+ rx837_cur."!cursor_caparray"("args")
+ .lex unicode:"$\x{a2}", rx837_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx837_eos, rx837_tgt
+ gt rx837_pos, rx837_eos, rx837_done
+ set rx837_off, 0
+ lt rx837_pos, 2, rx837_start
+ sub rx837_off, rx837_pos, 1
+ substr rx837_tgt, rx837_tgt, rx837_off
+ rx837_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan796_done
- goto rxscan796_scan
- rxscan796_loop:
- ($P10) = rx793_cur."from"()
+ ne $I10, -1, rxscan840_done
+ goto rxscan840_scan
+ rxscan840_loop:
+ ($P10) = rx837_cur."from"()
inc $P10
- 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
+ set rx837_pos, $P10
+ ge rx837_pos, rx837_eos, rxscan840_done
+ rxscan840_scan:
+ set_addr $I10, rxscan840_loop
+ rx837_cur."!mark_push"(0, rx837_pos, $I10)
+ rxscan840_done:
+.annotate 'line', 388
# rx literal "pir::"
- 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
+ add $I11, rx837_pos, 5
+ gt $I11, rx837_eos, rx837_fail
+ sub $I11, rx837_pos, rx837_off
+ substr $S10, rx837_tgt, $I11, 5
+ ne $S10, "pir::", rx837_fail
+ add rx837_pos, 5
# rx subcapture "op"
- set_addr $I10, rxcap_797_fail
- rx793_cur."!mark_push"(0, rx793_pos, $I10)
+ set_addr $I10, rxcap_841_fail
+ rx837_cur."!mark_push"(0, rx837_pos, $I10)
# rx charclass_q w r 1..-1
- sub $I10, rx793_pos, rx793_off
- find_not_cclass $I11, 8192, rx793_tgt, $I10, rx793_eos
+ sub $I10, rx837_pos, rx837_off
+ find_not_cclass $I11, 8192, rx837_tgt, $I10, rx837_eos
add $I12, $I10, 1
- 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)
+ lt $I11, $I12, rx837_fail
+ add rx837_pos, rx837_off, $I11
+ set_addr $I10, rxcap_841_fail
+ ($I12, $I11) = rx837_cur."!mark_peek"($I10)
+ rx837_cur."!cursor_pos"($I11)
+ ($P10) = rx837_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx837_pos, "")
+ rx837_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("op")
- 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:
+ goto rxcap_841_done
+ rxcap_841_fail:
+ goto rx837_fail
+ rxcap_841_done:
+ # rx rxquantr842 ** 0..1
+ set_addr $I843, rxquantr842_done
+ rx837_cur."!mark_push"(0, rx837_pos, $I843)
+ rxquantr842_loop:
# rx subrule "args" subtype=capture negate=
- rx793_cur."!cursor_pos"(rx793_pos)
- $P10 = rx793_cur."args"()
- unless $P10, rx793_fail
- rx793_cur."!mark_push"(0, -1, 0, $P10)
+ rx837_cur."!cursor_pos"(rx837_pos)
+ $P10 = rx837_cur."args"()
+ unless $P10, rx837_fail
+ rx837_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("args")
- rx793_pos = $P10."pos"()
- (rx793_rep) = rx793_cur."!mark_commit"($I799)
- rxquantr798_done:
-.annotate 'line', 374
+ rx837_pos = $P10."pos"()
+ (rx837_rep) = rx837_cur."!mark_commit"($I843)
+ rxquantr842_done:
+.annotate 'line', 387
# rx pass
- 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:
+ rx837_cur."!cursor_pass"(rx837_pos, "term:sym<pir::op>")
+ rx837_cur."!cursor_debug"("PASS ", "term:sym<pir::op>", " at pos=", rx837_pos)
+ .return (rx837_cur)
+ rx837_fail:
.annotate 'line', 4
- (rx793_rep, rx793_pos, $I10, $P10) = rx793_cur."!mark_fail"(0)
- lt rx793_pos, -1, rx793_done
- eq rx793_pos, -1, rx793_fail
+ (rx837_rep, rx837_pos, $I10, $P10) = rx837_cur."!mark_fail"(0)
+ lt rx837_pos, -1, rx837_done
+ eq rx837_pos, -1, rx837_fail
jump $I10
- rx793_done:
- rx793_cur."!cursor_fail"()
- rx793_cur."!cursor_debug"("FAIL ", "term:sym<pir::op>")
- .return (rx793_cur)
+ rx837_done:
+ rx837_cur."!cursor_fail"()
+ rx837_cur."!cursor_debug"("FAIL ", "term:sym<pir::op>")
+ .return (rx837_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<pir::op>" :subid("182_1275117591.97262") :method
+.sub "!PREFIX__term:sym<pir::op>" :subid("191_1275811487.95429") :method
.annotate 'line', 4
- new $P795, "ResizablePMCArray"
- push $P795, "pir::"
- .return ($P795)
+ new $P839, "ResizablePMCArray"
+ push $P839, "pir::"
+ .return ($P839)
.end
.namespace ["NQP";"Grammar"]
-.sub "args" :subid("183_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "args" :subid("192_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan805_done
- goto rxscan805_scan
- rxscan805_loop:
- ($P10) = rx801_cur."from"()
- inc $P10
- 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
+ .local string rx845_tgt
+ .local int rx845_pos
+ .local int rx845_off
+ .local int rx845_eos
+ .local int rx845_rep
+ .local pmc rx845_cur
+ (rx845_cur, rx845_pos, rx845_tgt) = self."!cursor_start"()
+ rx845_cur."!cursor_debug"("START ", "args")
+ .lex unicode:"$\x{a2}", rx845_cur
+ .local pmc match
+ .lex "$/", match
+ length rx845_eos, rx845_tgt
+ gt rx845_pos, rx845_eos, rx845_done
+ set rx845_off, 0
+ lt rx845_pos, 2, rx845_start
+ sub rx845_off, rx845_pos, 1
+ substr rx845_tgt, rx845_tgt, rx845_off
+ rx845_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan849_done
+ goto rxscan849_scan
+ rxscan849_loop:
+ ($P10) = rx845_cur."from"()
+ inc $P10
+ set rx845_pos, $P10
+ ge rx845_pos, rx845_eos, rxscan849_done
+ rxscan849_scan:
+ set_addr $I10, rxscan849_loop
+ rx845_cur."!mark_push"(0, rx845_pos, $I10)
+ rxscan849_done:
+.annotate 'line', 392
# rx literal "("
- 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
+ add $I11, rx845_pos, 1
+ gt $I11, rx845_eos, rx845_fail
+ sub $I11, rx845_pos, rx845_off
+ substr $S10, rx845_tgt, $I11, 1
+ ne $S10, "(", rx845_fail
+ add rx845_pos, 1
# rx subrule "arglist" subtype=capture negate=
- rx801_cur."!cursor_pos"(rx801_pos)
- $P10 = rx801_cur."arglist"()
- unless $P10, rx801_fail
- rx801_cur."!mark_push"(0, -1, 0, $P10)
+ rx845_cur."!cursor_pos"(rx845_pos)
+ $P10 = rx845_cur."arglist"()
+ unless $P10, rx845_fail
+ rx845_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx801_pos = $P10."pos"()
+ rx845_pos = $P10."pos"()
# rx literal ")"
- 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
+ add $I11, rx845_pos, 1
+ gt $I11, rx845_eos, rx845_fail
+ sub $I11, rx845_pos, rx845_off
+ substr $S10, rx845_tgt, $I11, 1
+ ne $S10, ")", rx845_fail
+ add rx845_pos, 1
# rx pass
- rx801_cur."!cursor_pass"(rx801_pos, "args")
- rx801_cur."!cursor_debug"("PASS ", "args", " at pos=", rx801_pos)
- .return (rx801_cur)
- rx801_fail:
+ rx845_cur."!cursor_pass"(rx845_pos, "args")
+ rx845_cur."!cursor_debug"("PASS ", "args", " at pos=", rx845_pos)
+ .return (rx845_cur)
+ rx845_fail:
.annotate 'line', 4
- (rx801_rep, rx801_pos, $I10, $P10) = rx801_cur."!mark_fail"(0)
- lt rx801_pos, -1, rx801_done
- eq rx801_pos, -1, rx801_fail
+ (rx845_rep, rx845_pos, $I10, $P10) = rx845_cur."!mark_fail"(0)
+ lt rx845_pos, -1, rx845_done
+ eq rx845_pos, -1, rx845_fail
jump $I10
- rx801_done:
- rx801_cur."!cursor_fail"()
- rx801_cur."!cursor_debug"("FAIL ", "args")
- .return (rx801_cur)
+ rx845_done:
+ rx845_cur."!cursor_fail"()
+ rx845_cur."!cursor_debug"("FAIL ", "args")
+ .return (rx845_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__args" :subid("184_1275117591.97262") :method
+.sub "!PREFIX__args" :subid("193_1275811487.95429") :method
.annotate 'line', 4
- $P803 = self."!PREFIX__!subrule"("arglist", "(")
- new $P804, "ResizablePMCArray"
- push $P804, $P803
- .return ($P804)
+ $P847 = self."!PREFIX__!subrule"("arglist", "(")
+ new $P848, "ResizablePMCArray"
+ push $P848, $P847
+ .return ($P848)
.end
.namespace ["NQP";"Grammar"]
-.sub "arglist" :subid("185_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "arglist" :subid("194_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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 ", "arglist")
+ .lex unicode:"$\x{a2}", rx851_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx851_eos, rx851_tgt
+ gt rx851_pos, rx851_eos, rx851_done
+ 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, rxscan811_done
- goto rxscan811_scan
- rxscan811_loop:
- ($P10) = rx807_cur."from"()
+ ne $I10, -1, rxscan855_done
+ goto rxscan855_scan
+ rxscan855_loop:
+ ($P10) = rx851_cur."from"()
inc $P10
- 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
+ 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', 396
# 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
+ rx851_cur."!cursor_pos"(rx851_pos)
+ $P10 = rx851_cur."ws"()
+ unless $P10, rx851_fail
+ rx851_pos = $P10."pos"()
+ alt856_0:
+.annotate 'line', 397
+ set_addr $I10, alt856_1
+ rx851_cur."!mark_push"(0, rx851_pos, $I10)
+.annotate 'line', 398
# rx subrule "EXPR" subtype=capture negate=
- rx807_cur."!cursor_pos"(rx807_pos)
- $P10 = rx807_cur."EXPR"("f=")
- unless $P10, rx807_fail
- rx807_cur."!mark_push"(0, -1, 0, $P10)
+ rx851_cur."!cursor_pos"(rx851_pos)
+ $P10 = rx851_cur."EXPR"("f=")
+ unless $P10, rx851_fail
+ rx851_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx807_pos = $P10."pos"()
- goto alt812_end
- alt812_1:
- alt812_end:
-.annotate 'line', 382
+ rx851_pos = $P10."pos"()
+ goto alt856_end
+ alt856_1:
+ alt856_end:
+.annotate 'line', 395
# rx pass
- rx807_cur."!cursor_pass"(rx807_pos, "arglist")
- rx807_cur."!cursor_debug"("PASS ", "arglist", " at pos=", rx807_pos)
- .return (rx807_cur)
- rx807_fail:
+ rx851_cur."!cursor_pass"(rx851_pos, "arglist")
+ rx851_cur."!cursor_debug"("PASS ", "arglist", " at pos=", rx851_pos)
+ .return (rx851_cur)
+ rx851_fail:
.annotate 'line', 4
- (rx807_rep, rx807_pos, $I10, $P10) = rx807_cur."!mark_fail"(0)
- lt rx807_pos, -1, rx807_done
- eq rx807_pos, -1, rx807_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
- rx807_done:
- rx807_cur."!cursor_fail"()
- rx807_cur."!cursor_debug"("FAIL ", "arglist")
- .return (rx807_cur)
+ rx851_done:
+ rx851_cur."!cursor_fail"()
+ rx851_cur."!cursor_debug"("FAIL ", "arglist")
+ .return (rx851_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__arglist" :subid("186_1275117591.97262") :method
+.sub "!PREFIX__arglist" :subid("195_1275811487.95429") :method
.annotate 'line', 4
- $P809 = self."!PREFIX__!subrule"("", "")
- new $P810, "ResizablePMCArray"
- push $P810, $P809
- .return ($P810)
+ $P853 = self."!PREFIX__!subrule"("ws", "")
+ new $P854, "ResizablePMCArray"
+ push $P854, $P853
+ .return ($P854)
.end
.namespace ["NQP";"Grammar"]
-.sub "term:sym<value>" :subid("187_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "term:sym<value>" :subid("196_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan818_done
- goto rxscan818_scan
- rxscan818_loop:
- ($P10) = rx814_cur."from"()
- inc $P10
- 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
+ .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 ", "term:sym<value>")
+ .lex unicode:"$\x{a2}", rx858_cur
+ .local pmc match
+ .lex "$/", match
+ length rx858_eos, rx858_tgt
+ gt rx858_pos, rx858_eos, rx858_done
+ 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', 404
# rx subrule "value" subtype=capture negate=
- rx814_cur."!cursor_pos"(rx814_pos)
- $P10 = rx814_cur."value"()
- unless $P10, rx814_fail
- rx814_cur."!mark_push"(0, -1, 0, $P10)
+ rx858_cur."!cursor_pos"(rx858_pos)
+ $P10 = rx858_cur."value"()
+ unless $P10, rx858_fail
+ rx858_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("value")
- rx814_pos = $P10."pos"()
+ rx858_pos = $P10."pos"()
# rx pass
- 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:
+ rx858_cur."!cursor_pass"(rx858_pos, "term:sym<value>")
+ rx858_cur."!cursor_debug"("PASS ", "term:sym<value>", " at pos=", rx858_pos)
+ .return (rx858_cur)
+ rx858_fail:
.annotate 'line', 4
- (rx814_rep, rx814_pos, $I10, $P10) = rx814_cur."!mark_fail"(0)
- lt rx814_pos, -1, rx814_done
- eq rx814_pos, -1, rx814_fail
+ (rx858_rep, rx858_pos, $I10, $P10) = rx858_cur."!mark_fail"(0)
+ lt rx858_pos, -1, rx858_done
+ eq rx858_pos, -1, rx858_fail
jump $I10
- rx814_done:
- rx814_cur."!cursor_fail"()
- rx814_cur."!cursor_debug"("FAIL ", "term:sym<value>")
- .return (rx814_cur)
+ rx858_done:
+ rx858_cur."!cursor_fail"()
+ rx858_cur."!cursor_debug"("FAIL ", "term:sym<value>")
+ .return (rx858_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<value>" :subid("188_1275117591.97262") :method
+.sub "!PREFIX__term:sym<value>" :subid("197_1275811487.95429") :method
.annotate 'line', 4
- $P816 = self."!PREFIX__!subrule"("value", "")
- new $P817, "ResizablePMCArray"
- push $P817, $P816
- .return ($P817)
+ $P860 = self."!PREFIX__!subrule"("value", "")
+ new $P861, "ResizablePMCArray"
+ push $P861, $P860
+ .return ($P861)
.end
.namespace ["NQP";"Grammar"]
-.sub "value" :subid("189_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "value" :subid("198_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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 ", "value")
+ .lex unicode:"$\x{a2}", rx864_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx864_eos, rx864_tgt
+ gt rx864_pos, rx864_eos, rx864_done
+ 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:
$I10 = self.'from'()
- ne $I10, -1, rxscan825_done
- goto rxscan825_scan
- rxscan825_loop:
- ($P10) = rx820_cur."from"()
+ ne $I10, -1, rxscan869_done
+ goto rxscan869_scan
+ rxscan869_loop:
+ ($P10) = rx864_cur."from"()
inc $P10
- 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
+ set rx864_pos, $P10
+ ge rx864_pos, rx864_eos, rxscan869_done
+ rxscan869_scan:
+ set_addr $I10, rxscan869_loop
+ rx864_cur."!mark_push"(0, rx864_pos, $I10)
+ rxscan869_done:
+ alt870_0:
+.annotate 'line', 406
+ set_addr $I10, alt870_1
+ rx864_cur."!mark_push"(0, rx864_pos, $I10)
+.annotate 'line', 407
# rx subrule "quote" subtype=capture negate=
- rx820_cur."!cursor_pos"(rx820_pos)
- $P10 = rx820_cur."quote"()
- unless $P10, rx820_fail
- rx820_cur."!mark_push"(0, -1, 0, $P10)
+ rx864_cur."!cursor_pos"(rx864_pos)
+ $P10 = rx864_cur."quote"()
+ unless $P10, rx864_fail
+ rx864_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote")
- rx820_pos = $P10."pos"()
- goto alt826_end
- alt826_1:
-.annotate 'line', 395
+ rx864_pos = $P10."pos"()
+ goto alt870_end
+ alt870_1:
+.annotate 'line', 408
# rx subrule "number" subtype=capture negate=
- rx820_cur."!cursor_pos"(rx820_pos)
- $P10 = rx820_cur."number"()
- unless $P10, rx820_fail
- rx820_cur."!mark_push"(0, -1, 0, $P10)
+ rx864_cur."!cursor_pos"(rx864_pos)
+ $P10 = rx864_cur."number"()
+ unless $P10, rx864_fail
+ rx864_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("number")
- rx820_pos = $P10."pos"()
- alt826_end:
-.annotate 'line', 393
+ rx864_pos = $P10."pos"()
+ alt870_end:
+.annotate 'line', 406
# rx pass
- rx820_cur."!cursor_pass"(rx820_pos, "value")
- rx820_cur."!cursor_debug"("PASS ", "value", " at pos=", rx820_pos)
- .return (rx820_cur)
- rx820_fail:
+ rx864_cur."!cursor_pass"(rx864_pos, "value")
+ rx864_cur."!cursor_debug"("PASS ", "value", " at pos=", rx864_pos)
+ .return (rx864_cur)
+ rx864_fail:
.annotate 'line', 4
- (rx820_rep, rx820_pos, $I10, $P10) = rx820_cur."!mark_fail"(0)
- lt rx820_pos, -1, rx820_done
- eq rx820_pos, -1, rx820_fail
+ (rx864_rep, rx864_pos, $I10, $P10) = rx864_cur."!mark_fail"(0)
+ lt rx864_pos, -1, rx864_done
+ eq rx864_pos, -1, rx864_fail
jump $I10
- rx820_done:
- rx820_cur."!cursor_fail"()
- rx820_cur."!cursor_debug"("FAIL ", "value")
- .return (rx820_cur)
+ rx864_done:
+ rx864_cur."!cursor_fail"()
+ rx864_cur."!cursor_debug"("FAIL ", "value")
+ .return (rx864_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__value" :subid("190_1275117591.97262") :method
+.sub "!PREFIX__value" :subid("199_1275811487.95429") :method
.annotate 'line', 4
- $P822 = self."!PREFIX__!subrule"("number", "")
- $P823 = self."!PREFIX__!subrule"("quote", "")
- new $P824, "ResizablePMCArray"
- push $P824, $P822
- push $P824, $P823
- .return ($P824)
+ $P866 = self."!PREFIX__!subrule"("number", "")
+ $P867 = self."!PREFIX__!subrule"("quote", "")
+ new $P868, "ResizablePMCArray"
+ push $P868, $P866
+ push $P868, $P867
+ .return ($P868)
.end
.namespace ["NQP";"Grammar"]
-.sub "number" :subid("191_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "number" :subid("200_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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, rxscan831_done
- goto rxscan831_scan
- rxscan831_loop:
- ($P10) = rx828_cur."from"()
- inc $P10
- 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
+ .local string rx872_tgt
+ .local int rx872_pos
+ .local int rx872_off
+ .local int rx872_eos
+ .local int rx872_rep
+ .local pmc rx872_cur
+ (rx872_cur, rx872_pos, rx872_tgt) = self."!cursor_start"()
+ rx872_cur."!cursor_debug"("START ", "number")
+ .lex unicode:"$\x{a2}", rx872_cur
+ .local pmc match
+ .lex "$/", match
+ length rx872_eos, rx872_tgt
+ gt rx872_pos, rx872_eos, rx872_done
+ set rx872_off, 0
+ lt rx872_pos, 2, rx872_start
+ sub rx872_off, rx872_pos, 1
+ substr rx872_tgt, rx872_tgt, rx872_off
+ rx872_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan875_done
+ goto rxscan875_scan
+ rxscan875_loop:
+ ($P10) = rx872_cur."from"()
+ inc $P10
+ set rx872_pos, $P10
+ ge rx872_pos, rx872_eos, rxscan875_done
+ rxscan875_scan:
+ set_addr $I10, rxscan875_loop
+ rx872_cur."!mark_push"(0, rx872_pos, $I10)
+ rxscan875_done:
+.annotate 'line', 412
# rx subcapture "sign"
- 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:
+ set_addr $I10, rxcap_878_fail
+ rx872_cur."!mark_push"(0, rx872_pos, $I10)
+ # rx rxquantr876 ** 0..1
+ set_addr $I877, rxquantr876_done
+ rx872_cur."!mark_push"(0, rx872_pos, $I877)
+ rxquantr876_loop:
# rx enumcharlist negate=0
- ge rx828_pos, rx828_eos, rx828_fail
- sub $I10, rx828_pos, rx828_off
- substr $S10, rx828_tgt, $I10, 1
+ ge rx872_pos, rx872_eos, rx872_fail
+ sub $I10, rx872_pos, rx872_off
+ substr $S10, rx872_tgt, $I10, 1
index $I11, "+-", $S10
- 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)
+ lt $I11, 0, rx872_fail
+ inc rx872_pos
+ (rx872_rep) = rx872_cur."!mark_commit"($I877)
+ rxquantr876_done:
+ set_addr $I10, rxcap_878_fail
+ ($I12, $I11) = rx872_cur."!mark_peek"($I10)
+ rx872_cur."!cursor_pos"($I11)
+ ($P10) = rx872_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx872_pos, "")
+ rx872_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sign")
- 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)
+ goto rxcap_878_done
+ rxcap_878_fail:
+ goto rx872_fail
+ rxcap_878_done:
+ alt879_0:
+.annotate 'line', 413
+ set_addr $I10, alt879_1
+ rx872_cur."!mark_push"(0, rx872_pos, $I10)
# rx subrule "dec_number" subtype=capture negate=
- rx828_cur."!cursor_pos"(rx828_pos)
- $P10 = rx828_cur."dec_number"()
- unless $P10, rx828_fail
- rx828_cur."!mark_push"(0, -1, 0, $P10)
+ rx872_cur."!cursor_pos"(rx872_pos)
+ $P10 = rx872_cur."dec_number"()
+ unless $P10, rx872_fail
+ rx872_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("dec_number")
- rx828_pos = $P10."pos"()
- goto alt835_end
- alt835_1:
+ rx872_pos = $P10."pos"()
+ goto alt879_end
+ alt879_1:
# rx subrule "integer" subtype=capture negate=
- rx828_cur."!cursor_pos"(rx828_pos)
- $P10 = rx828_cur."integer"()
- unless $P10, rx828_fail
- rx828_cur."!mark_push"(0, -1, 0, $P10)
+ rx872_cur."!cursor_pos"(rx872_pos)
+ $P10 = rx872_cur."integer"()
+ unless $P10, rx872_fail
+ rx872_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("integer")
- rx828_pos = $P10."pos"()
- alt835_end:
-.annotate 'line', 398
+ rx872_pos = $P10."pos"()
+ alt879_end:
+.annotate 'line', 411
# rx pass
- rx828_cur."!cursor_pass"(rx828_pos, "number")
- rx828_cur."!cursor_debug"("PASS ", "number", " at pos=", rx828_pos)
- .return (rx828_cur)
- rx828_fail:
+ rx872_cur."!cursor_pass"(rx872_pos, "number")
+ rx872_cur."!cursor_debug"("PASS ", "number", " at pos=", rx872_pos)
+ .return (rx872_cur)
+ rx872_fail:
.annotate 'line', 4
- (rx828_rep, rx828_pos, $I10, $P10) = rx828_cur."!mark_fail"(0)
- lt rx828_pos, -1, rx828_done
- eq rx828_pos, -1, rx828_fail
+ (rx872_rep, rx872_pos, $I10, $P10) = rx872_cur."!mark_fail"(0)
+ lt rx872_pos, -1, rx872_done
+ eq rx872_pos, -1, rx872_fail
jump $I10
- rx828_done:
- rx828_cur."!cursor_fail"()
- rx828_cur."!cursor_debug"("FAIL ", "number")
- .return (rx828_cur)
+ rx872_done:
+ rx872_cur."!cursor_fail"()
+ rx872_cur."!cursor_debug"("FAIL ", "number")
+ .return (rx872_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__number" :subid("192_1275117591.97262") :method
+.sub "!PREFIX__number" :subid("201_1275811487.95429") :method
.annotate 'line', 4
- new $P830, "ResizablePMCArray"
- push $P830, ""
- .return ($P830)
+ new $P874, "ResizablePMCArray"
+ push $P874, ""
+ .return ($P874)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote" :subid("193_1275117591.97262") :method
-.annotate 'line', 403
- $P837 = self."!protoregex"("quote")
- .return ($P837)
+.sub "quote" :subid("202_1275811487.95429") :method
+.annotate 'line', 416
+ $P881 = self."!protoregex"("quote")
+ .return ($P881)
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote" :subid("194_1275117591.97262") :method
-.annotate 'line', 403
- $P839 = self."!PREFIX__!protoregex"("quote")
- .return ($P839)
+.sub "!PREFIX__quote" :subid("203_1275811487.95429") :method
+.annotate 'line', 416
+ $P883 = self."!PREFIX__!protoregex"("quote")
+ .return ($P883)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<apos>" :subid("195_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym<apos>" :subid("204_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx841_tgt
- .local int rx841_pos
- .local int rx841_off
- .local int rx841_eos
- .local int rx841_rep
- .local pmc rx841_cur
- (rx841_cur, rx841_pos, rx841_tgt) = self."!cursor_start"()
- rx841_cur."!cursor_debug"("START ", "quote:sym<apos>")
- .lex unicode:"$\x{a2}", rx841_cur
- .local pmc match
- .lex "$/", match
- length rx841_eos, rx841_tgt
- set rx841_off, 0
- lt rx841_pos, 2, rx841_start
- sub rx841_off, rx841_pos, 1
- substr rx841_tgt, rx841_tgt, rx841_off
- rx841_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan844_done
- goto rxscan844_scan
- rxscan844_loop:
- ($P10) = rx841_cur."from"()
- inc $P10
- set rx841_pos, $P10
- ge rx841_pos, rx841_eos, rxscan844_done
- rxscan844_scan:
- set_addr $I10, rxscan844_loop
- rx841_cur."!mark_push"(0, rx841_pos, $I10)
- rxscan844_done:
-.annotate 'line', 404
+ .local string rx885_tgt
+ .local int rx885_pos
+ .local int rx885_off
+ .local int rx885_eos
+ .local int rx885_rep
+ .local pmc rx885_cur
+ (rx885_cur, rx885_pos, rx885_tgt) = self."!cursor_start"()
+ rx885_cur."!cursor_debug"("START ", "quote:sym<apos>")
+ .lex unicode:"$\x{a2}", rx885_cur
+ .local pmc match
+ .lex "$/", match
+ length rx885_eos, rx885_tgt
+ gt rx885_pos, rx885_eos, rx885_done
+ set rx885_off, 0
+ lt rx885_pos, 2, rx885_start
+ sub rx885_off, rx885_pos, 1
+ substr rx885_tgt, rx885_tgt, rx885_off
+ rx885_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan888_done
+ goto rxscan888_scan
+ rxscan888_loop:
+ ($P10) = rx885_cur."from"()
+ inc $P10
+ set rx885_pos, $P10
+ ge rx885_pos, rx885_eos, rxscan888_done
+ rxscan888_scan:
+ set_addr $I10, rxscan888_loop
+ rx885_cur."!mark_push"(0, rx885_pos, $I10)
+ rxscan888_done:
+.annotate 'line', 417
# rx enumcharlist negate=0 zerowidth
- ge rx841_pos, rx841_eos, rx841_fail
- sub $I10, rx841_pos, rx841_off
- substr $S10, rx841_tgt, $I10, 1
+ ge rx885_pos, rx885_eos, rx885_fail
+ sub $I10, rx885_pos, rx885_off
+ substr $S10, rx885_tgt, $I10, 1
index $I11, "'", $S10
- lt $I11, 0, rx841_fail
+ lt $I11, 0, rx885_fail
# rx subrule "quote_EXPR" subtype=capture negate=
- rx841_cur."!cursor_pos"(rx841_pos)
- $P10 = rx841_cur."quote_EXPR"(":q")
- unless $P10, rx841_fail
- rx841_cur."!mark_push"(0, -1, 0, $P10)
+ rx885_cur."!cursor_pos"(rx885_pos)
+ $P10 = rx885_cur."quote_EXPR"(":q")
+ unless $P10, rx885_fail
+ rx885_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx841_pos = $P10."pos"()
+ rx885_pos = $P10."pos"()
# rx pass
- 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:
+ rx885_cur."!cursor_pass"(rx885_pos, "quote:sym<apos>")
+ rx885_cur."!cursor_debug"("PASS ", "quote:sym<apos>", " at pos=", rx885_pos)
+ .return (rx885_cur)
+ rx885_fail:
.annotate 'line', 4
- (rx841_rep, rx841_pos, $I10, $P10) = rx841_cur."!mark_fail"(0)
- lt rx841_pos, -1, rx841_done
- eq rx841_pos, -1, rx841_fail
+ (rx885_rep, rx885_pos, $I10, $P10) = rx885_cur."!mark_fail"(0)
+ lt rx885_pos, -1, rx885_done
+ eq rx885_pos, -1, rx885_fail
jump $I10
- rx841_done:
- rx841_cur."!cursor_fail"()
- rx841_cur."!cursor_debug"("FAIL ", "quote:sym<apos>")
- .return (rx841_cur)
+ rx885_done:
+ rx885_cur."!cursor_fail"()
+ rx885_cur."!cursor_debug"("FAIL ", "quote:sym<apos>")
+ .return (rx885_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<apos>" :subid("196_1275117591.97262") :method
+.sub "!PREFIX__quote:sym<apos>" :subid("205_1275811487.95429") :method
.annotate 'line', 4
- new $P843, "ResizablePMCArray"
- push $P843, "'"
- .return ($P843)
+ new $P887, "ResizablePMCArray"
+ push $P887, "'"
+ .return ($P887)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<dblq>" :subid("197_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym<dblq>" :subid("206_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx846_tgt
- .local int rx846_pos
- .local int rx846_off
- .local int rx846_eos
- .local int rx846_rep
- .local pmc rx846_cur
- (rx846_cur, rx846_pos, rx846_tgt) = self."!cursor_start"()
- rx846_cur."!cursor_debug"("START ", "quote:sym<dblq>")
- .lex unicode:"$\x{a2}", rx846_cur
+ .local string rx890_tgt
+ .local int rx890_pos
+ .local int rx890_off
+ .local int rx890_eos
+ .local int rx890_rep
+ .local pmc rx890_cur
+ (rx890_cur, rx890_pos, rx890_tgt) = self."!cursor_start"()
+ rx890_cur."!cursor_debug"("START ", "quote:sym<dblq>")
+ .lex unicode:"$\x{a2}", rx890_cur
.local pmc match
.lex "$/", match
- length rx846_eos, rx846_tgt
- set rx846_off, 0
- lt rx846_pos, 2, rx846_start
- sub rx846_off, rx846_pos, 1
- substr rx846_tgt, rx846_tgt, rx846_off
- rx846_start:
+ length rx890_eos, rx890_tgt
+ gt rx890_pos, rx890_eos, rx890_done
+ set rx890_off, 0
+ lt rx890_pos, 2, rx890_start
+ sub rx890_off, rx890_pos, 1
+ substr rx890_tgt, rx890_tgt, rx890_off
+ rx890_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan849_done
- goto rxscan849_scan
- rxscan849_loop:
- ($P10) = rx846_cur."from"()
+ ne $I10, -1, rxscan893_done
+ goto rxscan893_scan
+ rxscan893_loop:
+ ($P10) = rx890_cur."from"()
inc $P10
- set rx846_pos, $P10
- ge rx846_pos, rx846_eos, rxscan849_done
- rxscan849_scan:
- set_addr $I10, rxscan849_loop
- rx846_cur."!mark_push"(0, rx846_pos, $I10)
- rxscan849_done:
-.annotate 'line', 405
+ set rx890_pos, $P10
+ ge rx890_pos, rx890_eos, rxscan893_done
+ rxscan893_scan:
+ set_addr $I10, rxscan893_loop
+ rx890_cur."!mark_push"(0, rx890_pos, $I10)
+ rxscan893_done:
+.annotate 'line', 418
# rx enumcharlist negate=0 zerowidth
- ge rx846_pos, rx846_eos, rx846_fail
- sub $I10, rx846_pos, rx846_off
- substr $S10, rx846_tgt, $I10, 1
+ ge rx890_pos, rx890_eos, rx890_fail
+ sub $I10, rx890_pos, rx890_off
+ substr $S10, rx890_tgt, $I10, 1
index $I11, "\"", $S10
- lt $I11, 0, rx846_fail
+ lt $I11, 0, rx890_fail
# rx subrule "quote_EXPR" subtype=capture negate=
- rx846_cur."!cursor_pos"(rx846_pos)
- $P10 = rx846_cur."quote_EXPR"(":qq")
- unless $P10, rx846_fail
- rx846_cur."!mark_push"(0, -1, 0, $P10)
+ rx890_cur."!cursor_pos"(rx890_pos)
+ $P10 = rx890_cur."quote_EXPR"(":qq")
+ unless $P10, rx890_fail
+ rx890_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx846_pos = $P10."pos"()
+ rx890_pos = $P10."pos"()
# rx pass
- 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:
+ rx890_cur."!cursor_pass"(rx890_pos, "quote:sym<dblq>")
+ rx890_cur."!cursor_debug"("PASS ", "quote:sym<dblq>", " at pos=", rx890_pos)
+ .return (rx890_cur)
+ rx890_fail:
.annotate 'line', 4
- (rx846_rep, rx846_pos, $I10, $P10) = rx846_cur."!mark_fail"(0)
- lt rx846_pos, -1, rx846_done
- eq rx846_pos, -1, rx846_fail
+ (rx890_rep, rx890_pos, $I10, $P10) = rx890_cur."!mark_fail"(0)
+ lt rx890_pos, -1, rx890_done
+ eq rx890_pos, -1, rx890_fail
jump $I10
- rx846_done:
- rx846_cur."!cursor_fail"()
- rx846_cur."!cursor_debug"("FAIL ", "quote:sym<dblq>")
- .return (rx846_cur)
+ rx890_done:
+ rx890_cur."!cursor_fail"()
+ rx890_cur."!cursor_debug"("FAIL ", "quote:sym<dblq>")
+ .return (rx890_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<dblq>" :subid("198_1275117591.97262") :method
+.sub "!PREFIX__quote:sym<dblq>" :subid("207_1275811487.95429") :method
.annotate 'line', 4
- new $P848, "ResizablePMCArray"
- push $P848, "\""
- .return ($P848)
+ new $P892, "ResizablePMCArray"
+ push $P892, "\""
+ .return ($P892)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<q>" :subid("199_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym<q>" :subid("208_1275811487.95429") :method :outer("11_1275811487.95429")
.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 string rx895_tgt
+ .local int rx895_pos
+ .local int rx895_off
+ .local int rx895_eos
+ .local int rx895_rep
+ .local pmc rx895_cur
+ (rx895_cur, rx895_pos, rx895_tgt) = self."!cursor_start"()
+ rx895_cur."!cursor_debug"("START ", "quote:sym<q>")
+ .lex unicode:"$\x{a2}", rx895_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:
+ length rx895_eos, rx895_tgt
+ gt rx895_pos, rx895_eos, rx895_done
+ set rx895_off, 0
+ lt rx895_pos, 2, rx895_start
+ sub rx895_off, rx895_pos, 1
+ substr rx895_tgt, rx895_tgt, rx895_off
+ rx895_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan855_done
- goto rxscan855_scan
- rxscan855_loop:
- ($P10) = rx851_cur."from"()
+ ne $I10, -1, rxscan899_done
+ goto rxscan899_scan
+ rxscan899_loop:
+ ($P10) = rx895_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
+ set rx895_pos, $P10
+ ge rx895_pos, rx895_eos, rxscan899_done
+ rxscan899_scan:
+ set_addr $I10, rxscan899_loop
+ rx895_cur."!mark_push"(0, rx895_pos, $I10)
+ rxscan899_done:
+.annotate 'line', 419
# 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
+ add $I11, rx895_pos, 1
+ gt $I11, rx895_eos, rx895_fail
+ sub $I11, rx895_pos, rx895_off
+ substr $S10, rx895_tgt, $I11, 1
+ ne $S10, "q", rx895_fail
+ add rx895_pos, 1
# rxanchor rwb
- le rx851_pos, 0, rx851_fail
- sub $I10, rx851_pos, rx851_off
- is_cclass $I11, 8192, rx851_tgt, $I10
- if $I11, rx851_fail
+ le rx895_pos, 0, rx895_fail
+ sub $I10, rx895_pos, rx895_off
+ is_cclass $I11, 8192, rx895_tgt, $I10
+ if $I11, rx895_fail
dec $I10
- is_cclass $I11, 8192, rx851_tgt, $I10
- unless $I11, rx851_fail
+ is_cclass $I11, 8192, rx895_tgt, $I10
+ unless $I11, rx895_fail
# rx enumcharlist negate=1 zerowidth
- ge rx851_pos, rx851_eos, rx851_fail
- sub $I10, rx851_pos, rx851_off
- substr $S10, rx851_tgt, $I10, 1
+ ge rx895_pos, rx895_eos, rx895_fail
+ sub $I10, rx895_pos, rx895_off
+ substr $S10, rx895_tgt, $I10, 1
index $I11, "(", $S10
- ge $I11, 0, rx851_fail
+ ge $I11, 0, rx895_fail
# rx subrule "ws" subtype=method negate=
- rx851_cur."!cursor_pos"(rx851_pos)
- $P10 = rx851_cur."ws"()
- unless $P10, rx851_fail
- rx851_pos = $P10."pos"()
+ rx895_cur."!cursor_pos"(rx895_pos)
+ $P10 = rx895_cur."ws"()
+ unless $P10, rx895_fail
+ rx895_pos = $P10."pos"()
# rx subrule "quote_EXPR" subtype=capture negate=
- rx851_cur."!cursor_pos"(rx851_pos)
- $P10 = rx851_cur."quote_EXPR"(":q")
- unless $P10, rx851_fail
- rx851_cur."!mark_push"(0, -1, 0, $P10)
+ rx895_cur."!cursor_pos"(rx895_pos)
+ $P10 = rx895_cur."quote_EXPR"(":q")
+ unless $P10, rx895_fail
+ rx895_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx851_pos = $P10."pos"()
+ rx895_pos = $P10."pos"()
# rx pass
- 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:
+ rx895_cur."!cursor_pass"(rx895_pos, "quote:sym<q>")
+ rx895_cur."!cursor_debug"("PASS ", "quote:sym<q>", " at pos=", rx895_pos)
+ .return (rx895_cur)
+ rx895_fail:
.annotate 'line', 4
- (rx851_rep, rx851_pos, $I10, $P10) = rx851_cur."!mark_fail"(0)
- lt rx851_pos, -1, rx851_done
- eq rx851_pos, -1, rx851_fail
+ (rx895_rep, rx895_pos, $I10, $P10) = rx895_cur."!mark_fail"(0)
+ lt rx895_pos, -1, rx895_done
+ eq rx895_pos, -1, rx895_fail
jump $I10
- rx851_done:
- rx851_cur."!cursor_fail"()
- rx851_cur."!cursor_debug"("FAIL ", "quote:sym<q>")
- .return (rx851_cur)
+ rx895_done:
+ rx895_cur."!cursor_fail"()
+ rx895_cur."!cursor_debug"("FAIL ", "quote:sym<q>")
+ .return (rx895_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<q>" :subid("200_1275117591.97262") :method
+.sub "!PREFIX__quote:sym<q>" :subid("209_1275811487.95429") :method
.annotate 'line', 4
- $P853 = self."!PREFIX__!subrule"("", "q")
- new $P854, "ResizablePMCArray"
- push $P854, $P853
- .return ($P854)
+ $P897 = self."!PREFIX__!subrule"("ws", "q")
+ new $P898, "ResizablePMCArray"
+ push $P898, $P897
+ .return ($P898)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<qq>" :subid("201_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym<qq>" :subid("210_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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
+ .local string rx901_tgt
+ .local int rx901_pos
+ .local int rx901_off
+ .local int rx901_eos
+ .local int rx901_rep
+ .local pmc rx901_cur
+ (rx901_cur, rx901_pos, rx901_tgt) = self."!cursor_start"()
+ rx901_cur."!cursor_debug"("START ", "quote:sym<qq>")
+ .lex unicode:"$\x{a2}", rx901_cur
+ .local pmc match
+ .lex "$/", match
+ length rx901_eos, rx901_tgt
+ gt rx901_pos, rx901_eos, rx901_done
+ set rx901_off, 0
+ lt rx901_pos, 2, rx901_start
+ sub rx901_off, rx901_pos, 1
+ substr rx901_tgt, rx901_tgt, rx901_off
+ rx901_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan905_done
+ goto rxscan905_scan
+ rxscan905_loop:
+ ($P10) = rx901_cur."from"()
+ inc $P10
+ set rx901_pos, $P10
+ ge rx901_pos, rx901_eos, rxscan905_done
+ rxscan905_scan:
+ set_addr $I10, rxscan905_loop
+ rx901_cur."!mark_push"(0, rx901_pos, $I10)
+ rxscan905_done:
+.annotate 'line', 420
# 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
+ add $I11, rx901_pos, 2
+ gt $I11, rx901_eos, rx901_fail
+ sub $I11, rx901_pos, rx901_off
+ substr $S10, rx901_tgt, $I11, 2
+ ne $S10, "qq", rx901_fail
+ add rx901_pos, 2
# rxanchor rwb
- le rx857_pos, 0, rx857_fail
- sub $I10, rx857_pos, rx857_off
- is_cclass $I11, 8192, rx857_tgt, $I10
- if $I11, rx857_fail
+ le rx901_pos, 0, rx901_fail
+ sub $I10, rx901_pos, rx901_off
+ is_cclass $I11, 8192, rx901_tgt, $I10
+ if $I11, rx901_fail
dec $I10
- is_cclass $I11, 8192, rx857_tgt, $I10
- unless $I11, rx857_fail
+ is_cclass $I11, 8192, rx901_tgt, $I10
+ unless $I11, rx901_fail
# rx enumcharlist negate=1 zerowidth
- ge rx857_pos, rx857_eos, rx857_fail
- sub $I10, rx857_pos, rx857_off
- substr $S10, rx857_tgt, $I10, 1
+ ge rx901_pos, rx901_eos, rx901_fail
+ sub $I10, rx901_pos, rx901_off
+ substr $S10, rx901_tgt, $I10, 1
index $I11, "(", $S10
- ge $I11, 0, rx857_fail
+ ge $I11, 0, rx901_fail
# rx subrule "ws" subtype=method negate=
- rx857_cur."!cursor_pos"(rx857_pos)
- $P10 = rx857_cur."ws"()
- unless $P10, rx857_fail
- rx857_pos = $P10."pos"()
+ rx901_cur."!cursor_pos"(rx901_pos)
+ $P10 = rx901_cur."ws"()
+ unless $P10, rx901_fail
+ rx901_pos = $P10."pos"()
# rx subrule "quote_EXPR" subtype=capture negate=
- rx857_cur."!cursor_pos"(rx857_pos)
- $P10 = rx857_cur."quote_EXPR"(":qq")
- unless $P10, rx857_fail
- rx857_cur."!mark_push"(0, -1, 0, $P10)
+ rx901_cur."!cursor_pos"(rx901_pos)
+ $P10 = rx901_cur."quote_EXPR"(":qq")
+ unless $P10, rx901_fail
+ rx901_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx857_pos = $P10."pos"()
+ rx901_pos = $P10."pos"()
# rx pass
- 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:
+ rx901_cur."!cursor_pass"(rx901_pos, "quote:sym<qq>")
+ rx901_cur."!cursor_debug"("PASS ", "quote:sym<qq>", " at pos=", rx901_pos)
+ .return (rx901_cur)
+ rx901_fail:
.annotate 'line', 4
- (rx857_rep, rx857_pos, $I10, $P10) = rx857_cur."!mark_fail"(0)
- lt rx857_pos, -1, rx857_done
- eq rx857_pos, -1, rx857_fail
+ (rx901_rep, rx901_pos, $I10, $P10) = rx901_cur."!mark_fail"(0)
+ lt rx901_pos, -1, rx901_done
+ eq rx901_pos, -1, rx901_fail
jump $I10
- rx857_done:
- rx857_cur."!cursor_fail"()
- rx857_cur."!cursor_debug"("FAIL ", "quote:sym<qq>")
- .return (rx857_cur)
+ rx901_done:
+ rx901_cur."!cursor_fail"()
+ rx901_cur."!cursor_debug"("FAIL ", "quote:sym<qq>")
+ .return (rx901_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<qq>" :subid("202_1275117591.97262") :method
+.sub "!PREFIX__quote:sym<qq>" :subid("211_1275811487.95429") :method
.annotate 'line', 4
- $P859 = self."!PREFIX__!subrule"("", "qq")
- new $P860, "ResizablePMCArray"
- push $P860, $P859
- .return ($P860)
+ $P903 = self."!PREFIX__!subrule"("ws", "qq")
+ new $P904, "ResizablePMCArray"
+ push $P904, $P903
+ .return ($P904)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<Q>" :subid("203_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym<Q>" :subid("212_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 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 ", "quote:sym<Q>")
+ .lex unicode:"$\x{a2}", rx907_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx907_eos, rx907_tgt
+ gt rx907_pos, rx907_eos, rx907_done
+ 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, rxscan867_done
- goto rxscan867_scan
- rxscan867_loop:
- ($P10) = rx863_cur."from"()
+ ne $I10, -1, rxscan911_done
+ goto rxscan911_scan
+ rxscan911_loop:
+ ($P10) = rx907_cur."from"()
inc $P10
- 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
+ set rx907_pos, $P10
+ ge rx907_pos, rx907_eos, rxscan911_done
+ rxscan911_scan:
+ set_addr $I10, rxscan911_loop
+ rx907_cur."!mark_push"(0, rx907_pos, $I10)
+ rxscan911_done:
+.annotate 'line', 421
# 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
+ add $I11, rx907_pos, 1
+ gt $I11, rx907_eos, rx907_fail
+ sub $I11, rx907_pos, rx907_off
+ substr $S10, rx907_tgt, $I11, 1
+ ne $S10, "Q", rx907_fail
+ add rx907_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
+ le rx907_pos, 0, rx907_fail
+ sub $I10, rx907_pos, rx907_off
+ is_cclass $I11, 8192, rx907_tgt, $I10
+ if $I11, rx907_fail
dec $I10
- is_cclass $I11, 8192, rx863_tgt, $I10
- unless $I11, rx863_fail
+ is_cclass $I11, 8192, rx907_tgt, $I10
+ unless $I11, rx907_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
+ ge rx907_pos, rx907_eos, rx907_fail
+ sub $I10, rx907_pos, rx907_off
+ substr $S10, rx907_tgt, $I10, 1
index $I11, "(", $S10
- ge $I11, 0, rx863_fail
+ ge $I11, 0, rx907_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"()
+ rx907_cur."!cursor_pos"(rx907_pos)
+ $P10 = rx907_cur."ws"()
+ unless $P10, rx907_fail
+ rx907_pos = $P10."pos"()
# rx subrule "quote_EXPR" subtype=capture negate=
- rx863_cur."!cursor_pos"(rx863_pos)
- $P10 = rx863_cur."quote_EXPR"()
- unless $P10, rx863_fail
- rx863_cur."!mark_push"(0, -1, 0, $P10)
+ rx907_cur."!cursor_pos"(rx907_pos)
+ $P10 = rx907_cur."quote_EXPR"()
+ unless $P10, rx907_fail
+ rx907_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx863_pos = $P10."pos"()
+ rx907_pos = $P10."pos"()
# rx pass
- 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:
+ rx907_cur."!cursor_pass"(rx907_pos, "quote:sym<Q>")
+ rx907_cur."!cursor_debug"("PASS ", "quote:sym<Q>", " at pos=", rx907_pos)
+ .return (rx907_cur)
+ rx907_fail:
.annotate 'line', 4
- (rx863_rep, rx863_pos, $I10, $P10) = rx863_cur."!mark_fail"(0)
- lt rx863_pos, -1, rx863_done
- eq rx863_pos, -1, rx863_fail
+ (rx907_rep, rx907_pos, $I10, $P10) = rx907_cur."!mark_fail"(0)
+ lt rx907_pos, -1, rx907_done
+ eq rx907_pos, -1, rx907_fail
jump $I10
- rx863_done:
- rx863_cur."!cursor_fail"()
- rx863_cur."!cursor_debug"("FAIL ", "quote:sym<Q>")
- .return (rx863_cur)
+ rx907_done:
+ rx907_cur."!cursor_fail"()
+ rx907_cur."!cursor_debug"("FAIL ", "quote:sym<Q>")
+ .return (rx907_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<Q>" :subid("204_1275117591.97262") :method
+.sub "!PREFIX__quote:sym<Q>" :subid("213_1275811487.95429") :method
.annotate 'line', 4
- $P865 = self."!PREFIX__!subrule"("", "Q")
- new $P866, "ResizablePMCArray"
- push $P866, $P865
- .return ($P866)
+ $P909 = self."!PREFIX__!subrule"("ws", "Q")
+ new $P910, "ResizablePMCArray"
+ push $P910, $P909
+ .return ($P910)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym<Q:PIR>" :subid("205_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym<Q:PIR>" :subid("214_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx913_tgt
+ .local int rx913_pos
+ .local int rx913_off
+ .local int rx913_eos
+ .local int rx913_rep
+ .local pmc rx913_cur
+ (rx913_cur, rx913_pos, rx913_tgt) = self."!cursor_start"()
+ rx913_cur."!cursor_debug"("START ", "quote:sym<Q:PIR>")
+ .lex unicode:"$\x{a2}", rx913_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx913_eos, rx913_tgt
+ gt rx913_pos, rx913_eos, rx913_done
+ set rx913_off, 0
+ lt rx913_pos, 2, rx913_start
+ sub rx913_off, rx913_pos, 1
+ substr rx913_tgt, rx913_tgt, rx913_off
+ rx913_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan873_done
- goto rxscan873_scan
- rxscan873_loop:
- ($P10) = rx869_cur."from"()
+ ne $I10, -1, rxscan917_done
+ goto rxscan917_scan
+ rxscan917_loop:
+ ($P10) = rx913_cur."from"()
inc $P10
- 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
+ set rx913_pos, $P10
+ ge rx913_pos, rx913_eos, rxscan917_done
+ rxscan917_scan:
+ set_addr $I10, rxscan917_loop
+ rx913_cur."!mark_push"(0, rx913_pos, $I10)
+ rxscan917_done:
+.annotate 'line', 422
# 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"()
+ add $I11, rx913_pos, 5
+ gt $I11, rx913_eos, rx913_fail
+ sub $I11, rx913_pos, rx913_off
+ substr $S10, rx913_tgt, $I11, 5
+ ne $S10, "Q:PIR", rx913_fail
+ add rx913_pos, 5
+ # rx subrule "ws" subtype=method negate=
+ rx913_cur."!cursor_pos"(rx913_pos)
+ $P10 = rx913_cur."ws"()
+ unless $P10, rx913_fail
+ rx913_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)
+ rx913_cur."!cursor_pos"(rx913_pos)
+ $P10 = rx913_cur."quote_EXPR"()
+ unless $P10, rx913_fail
+ rx913_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx869_pos = $P10."pos"()
+ rx913_pos = $P10."pos"()
# rx pass
- 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:
+ rx913_cur."!cursor_pass"(rx913_pos, "quote:sym<Q:PIR>")
+ rx913_cur."!cursor_debug"("PASS ", "quote:sym<Q:PIR>", " at pos=", rx913_pos)
+ .return (rx913_cur)
+ rx913_fail:
.annotate 'line', 4
- (rx869_rep, rx869_pos, $I10, $P10) = rx869_cur."!mark_fail"(0)
- lt rx869_pos, -1, rx869_done
- eq rx869_pos, -1, rx869_fail
+ (rx913_rep, rx913_pos, $I10, $P10) = rx913_cur."!mark_fail"(0)
+ lt rx913_pos, -1, rx913_done
+ eq rx913_pos, -1, rx913_fail
jump $I10
- rx869_done:
- rx869_cur."!cursor_fail"()
- rx869_cur."!cursor_debug"("FAIL ", "quote:sym<Q:PIR>")
- .return (rx869_cur)
+ rx913_done:
+ rx913_cur."!cursor_fail"()
+ rx913_cur."!cursor_debug"("FAIL ", "quote:sym<Q:PIR>")
+ .return (rx913_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym<Q:PIR>" :subid("206_1275117591.97262") :method
+.sub "!PREFIX__quote:sym<Q:PIR>" :subid("215_1275811487.95429") :method
.annotate 'line', 4
- $P871 = self."!PREFIX__!subrule"("", "Q:PIR")
- new $P872, "ResizablePMCArray"
- push $P872, $P871
- .return ($P872)
+ $P915 = self."!PREFIX__!subrule"("ws", "Q:PIR")
+ new $P916, "ResizablePMCArray"
+ push $P916, $P915
+ .return ($P916)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote:sym</ />" :subid("207_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote:sym</ />" :subid("216_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx919_tgt
+ .local int rx919_pos
+ .local int rx919_off
+ .local int rx919_eos
+ .local int rx919_rep
+ .local pmc rx919_cur
+ (rx919_cur, rx919_pos, rx919_tgt) = self."!cursor_start"()
+ rx919_cur."!cursor_debug"("START ", "quote:sym</ />")
+ .lex unicode:"$\x{a2}", rx919_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx919_eos, rx919_tgt
+ gt rx919_pos, rx919_eos, rx919_done
+ set rx919_off, 0
+ lt rx919_pos, 2, rx919_start
+ sub rx919_off, rx919_pos, 1
+ substr rx919_tgt, rx919_tgt, rx919_off
+ rx919_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan879_done
- goto rxscan879_scan
- rxscan879_loop:
- ($P10) = rx875_cur."from"()
+ ne $I10, -1, rxscan923_done
+ goto rxscan923_scan
+ rxscan923_loop:
+ ($P10) = rx919_cur."from"()
inc $P10
- set rx875_pos, $P10
- ge rx875_pos, rx875_eos, rxscan879_done
- rxscan879_scan:
- set_addr $I10, rxscan879_loop
- rx875_cur."!mark_push"(0, rx875_pos, $I10)
- rxscan879_done:
-.annotate 'line', 411
+ set rx919_pos, $P10
+ ge rx919_pos, rx919_eos, rxscan923_done
+ rxscan923_scan:
+ set_addr $I10, rxscan923_loop
+ rx919_cur."!mark_push"(0, rx919_pos, $I10)
+ rxscan923_done:
+.annotate 'line', 424
# 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
+ add $I11, rx919_pos, 1
+ gt $I11, rx919_eos, rx919_fail
+ sub $I11, rx919_pos, rx919_off
+ substr $S10, rx919_tgt, $I11, 1
+ ne $S10, "/", rx919_fail
+ add rx919_pos, 1
+.annotate 'line', 425
# 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
+ rx919_cur."!cursor_pos"(rx919_pos)
+ $P10 = rx919_cur."newpad"()
+ unless $P10, rx919_fail
+ rx919_pos = $P10."pos"()
+.annotate 'line', 426
# rx reduce name="quote:sym</ />" key="open"
- rx875_cur."!cursor_pos"(rx875_pos)
- rx875_cur."!reduce"("quote:sym</ />", "open")
-.annotate 'line', 414
+ rx919_cur."!cursor_pos"(rx919_pos)
+ rx919_cur."!reduce"("quote:sym</ />", "open")
+.annotate 'line', 427
# 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)
+ rx919_cur."!cursor_pos"(rx919_pos)
+ $P10 = rx919_cur."LANG"("Regex", "nibbler")
+ unless $P10, rx919_fail
+ rx919_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("p6regex")
- rx875_pos = $P10."pos"()
-.annotate 'line', 415
+ rx919_pos = $P10."pos"()
+.annotate 'line', 428
# 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
+ add $I11, rx919_pos, 1
+ gt $I11, rx919_eos, rx919_fail
+ sub $I11, rx919_pos, rx919_off
+ substr $S10, rx919_tgt, $I11, 1
+ ne $S10, "/", rx919_fail
+ add rx919_pos, 1
+.annotate 'line', 423
# rx pass
- rx875_cur."!cursor_pass"(rx875_pos, "quote:sym</ />")
- rx875_cur."!cursor_debug"("PASS ", "quote:sym</ />", " at pos=", rx875_pos)
- .return (rx875_cur)
- rx875_fail:
+ rx919_cur."!cursor_pass"(rx919_pos, "quote:sym</ />")
+ rx919_cur."!cursor_debug"("PASS ", "quote:sym</ />", " at pos=", rx919_pos)
+ .return (rx919_cur)
+ rx919_fail:
.annotate 'line', 4
- (rx875_rep, rx875_pos, $I10, $P10) = rx875_cur."!mark_fail"(0)
- lt rx875_pos, -1, rx875_done
- eq rx875_pos, -1, rx875_fail
+ (rx919_rep, rx919_pos, $I10, $P10) = rx919_cur."!mark_fail"(0)
+ lt rx919_pos, -1, rx919_done
+ eq rx919_pos, -1, rx919_fail
jump $I10
- rx875_done:
- rx875_cur."!cursor_fail"()
- rx875_cur."!cursor_debug"("FAIL ", "quote:sym</ />")
- .return (rx875_cur)
+ rx919_done:
+ rx919_cur."!cursor_fail"()
+ rx919_cur."!cursor_debug"("FAIL ", "quote:sym</ />")
+ .return (rx919_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote:sym</ />" :subid("208_1275117591.97262") :method
+.sub "!PREFIX__quote:sym</ />" :subid("217_1275811487.95429") :method
.annotate 'line', 4
- $P877 = self."!PREFIX__!subrule"("", "/")
- new $P878, "ResizablePMCArray"
- push $P878, $P877
- .return ($P878)
+ $P921 = self."!PREFIX__!subrule"("newpad", "/")
+ new $P922, "ResizablePMCArray"
+ push $P922, $P921
+ .return ($P922)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote_escape:sym<$>" :subid("209_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote_escape:sym<$>" :subid("218_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx881_tgt
- .local int rx881_pos
- .local int rx881_off
- .local int rx881_eos
- .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<$>")
- .lex unicode:"$\x{a2}", rx881_cur
+ .local string rx925_tgt
+ .local int rx925_pos
+ .local int rx925_off
+ .local int rx925_eos
+ .local int rx925_rep
+ .local pmc rx925_cur
+ (rx925_cur, rx925_pos, rx925_tgt) = self."!cursor_start"()
+ rx925_cur."!cursor_debug"("START ", "quote_escape:sym<$>")
+ .lex unicode:"$\x{a2}", rx925_cur
.local pmc match
.lex "$/", match
- length rx881_eos, rx881_tgt
- set rx881_off, 0
- lt rx881_pos, 2, rx881_start
- sub rx881_off, rx881_pos, 1
- substr rx881_tgt, rx881_tgt, rx881_off
- rx881_start:
+ length rx925_eos, rx925_tgt
+ gt rx925_pos, rx925_eos, rx925_done
+ set rx925_off, 0
+ lt rx925_pos, 2, rx925_start
+ sub rx925_off, rx925_pos, 1
+ substr rx925_tgt, rx925_tgt, rx925_off
+ rx925_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan884_done
- goto rxscan884_scan
- rxscan884_loop:
- ($P10) = rx881_cur."from"()
+ ne $I10, -1, rxscan928_done
+ goto rxscan928_scan
+ rxscan928_loop:
+ ($P10) = rx925_cur."from"()
inc $P10
- set rx881_pos, $P10
- ge rx881_pos, rx881_eos, rxscan884_done
- rxscan884_scan:
- set_addr $I10, rxscan884_loop
- rx881_cur."!mark_push"(0, rx881_pos, $I10)
- rxscan884_done:
-.annotate 'line', 418
+ set rx925_pos, $P10
+ ge rx925_pos, rx925_eos, rxscan928_done
+ rxscan928_scan:
+ set_addr $I10, rxscan928_loop
+ rx925_cur."!mark_push"(0, rx925_pos, $I10)
+ rxscan928_done:
+.annotate 'line', 431
# rx enumcharlist negate=0 zerowidth
- ge rx881_pos, rx881_eos, rx881_fail
- sub $I10, rx881_pos, rx881_off
- substr $S10, rx881_tgt, $I10, 1
+ ge rx925_pos, rx925_eos, rx925_fail
+ sub $I10, rx925_pos, rx925_off
+ substr $S10, rx925_tgt, $I10, 1
index $I11, "$", $S10
- lt $I11, 0, rx881_fail
+ lt $I11, 0, rx925_fail
# rx subrule "quotemod_check" subtype=zerowidth negate=
- rx881_cur."!cursor_pos"(rx881_pos)
- $P10 = rx881_cur."quotemod_check"("s")
- unless $P10, rx881_fail
+ rx925_cur."!cursor_pos"(rx925_pos)
+ $P10 = rx925_cur."quotemod_check"("s")
+ unless $P10, rx925_fail
# rx subrule "variable" subtype=capture negate=
- rx881_cur."!cursor_pos"(rx881_pos)
- $P10 = rx881_cur."variable"()
- unless $P10, rx881_fail
- rx881_cur."!mark_push"(0, -1, 0, $P10)
+ rx925_cur."!cursor_pos"(rx925_pos)
+ $P10 = rx925_cur."variable"()
+ unless $P10, rx925_fail
+ rx925_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("variable")
- rx881_pos = $P10."pos"()
+ rx925_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)
- .return (rx881_cur)
- rx881_fail:
+ rx925_cur."!cursor_pass"(rx925_pos, "quote_escape:sym<$>")
+ rx925_cur."!cursor_debug"("PASS ", "quote_escape:sym<$>", " at pos=", rx925_pos)
+ .return (rx925_cur)
+ rx925_fail:
.annotate 'line', 4
- (rx881_rep, rx881_pos, $I10, $P10) = rx881_cur."!mark_fail"(0)
- lt rx881_pos, -1, rx881_done
- eq rx881_pos, -1, rx881_fail
+ (rx925_rep, rx925_pos, $I10, $P10) = rx925_cur."!mark_fail"(0)
+ lt rx925_pos, -1, rx925_done
+ eq rx925_pos, -1, rx925_fail
jump $I10
- rx881_done:
- rx881_cur."!cursor_fail"()
- rx881_cur."!cursor_debug"("FAIL ", "quote_escape:sym<$>")
- .return (rx881_cur)
+ rx925_done:
+ rx925_cur."!cursor_fail"()
+ rx925_cur."!cursor_debug"("FAIL ", "quote_escape:sym<$>")
+ .return (rx925_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<$>" :subid("210_1275117591.97262") :method
+.sub "!PREFIX__quote_escape:sym<$>" :subid("219_1275811487.95429") :method
.annotate 'line', 4
- new $P883, "ResizablePMCArray"
- push $P883, "$"
- .return ($P883)
+ new $P927, "ResizablePMCArray"
+ push $P927, "$"
+ .return ($P927)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote_escape:sym<{ }>" :subid("211_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote_escape:sym<{ }>" :subid("220_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx886_tgt
- .local int rx886_pos
- .local int rx886_off
- .local int rx886_eos
- .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<{ }>")
- .lex unicode:"$\x{a2}", rx886_cur
- .local pmc match
- .lex "$/", match
- length rx886_eos, rx886_tgt
- set rx886_off, 0
- lt rx886_pos, 2, rx886_start
- sub rx886_off, rx886_pos, 1
- substr rx886_tgt, rx886_tgt, rx886_off
- rx886_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan889_done
- goto rxscan889_scan
- rxscan889_loop:
- ($P10) = rx886_cur."from"()
- inc $P10
- set rx886_pos, $P10
- ge rx886_pos, rx886_eos, rxscan889_done
- rxscan889_scan:
- set_addr $I10, rxscan889_loop
- rx886_cur."!mark_push"(0, rx886_pos, $I10)
- rxscan889_done:
-.annotate 'line', 419
+ .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 ", "quote_escape:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx930_cur
+ .local pmc match
+ .lex "$/", match
+ length rx930_eos, rx930_tgt
+ gt rx930_pos, rx930_eos, rx930_done
+ 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:
+.annotate 'line', 432
# rx enumcharlist negate=0 zerowidth
- ge rx886_pos, rx886_eos, rx886_fail
- sub $I10, rx886_pos, rx886_off
- substr $S10, rx886_tgt, $I10, 1
+ ge rx930_pos, rx930_eos, rx930_fail
+ sub $I10, rx930_pos, rx930_off
+ substr $S10, rx930_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx886_fail
+ lt $I11, 0, rx930_fail
# rx subrule "quotemod_check" subtype=zerowidth negate=
- rx886_cur."!cursor_pos"(rx886_pos)
- $P10 = rx886_cur."quotemod_check"("c")
- unless $P10, rx886_fail
+ rx930_cur."!cursor_pos"(rx930_pos)
+ $P10 = rx930_cur."quotemod_check"("c")
+ unless $P10, rx930_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)
+ rx930_cur."!cursor_pos"(rx930_pos)
+ $P10 = rx930_cur."block"()
+ unless $P10, rx930_fail
+ rx930_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx886_pos = $P10."pos"()
+ rx930_pos = $P10."pos"()
# rx pass
- 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:
+ rx930_cur."!cursor_pass"(rx930_pos, "quote_escape:sym<{ }>")
+ rx930_cur."!cursor_debug"("PASS ", "quote_escape:sym<{ }>", " at pos=", rx930_pos)
+ .return (rx930_cur)
+ rx930_fail:
.annotate 'line', 4
- (rx886_rep, rx886_pos, $I10, $P10) = rx886_cur."!mark_fail"(0)
- lt rx886_pos, -1, rx886_done
- eq rx886_pos, -1, rx886_fail
+ (rx930_rep, rx930_pos, $I10, $P10) = rx930_cur."!mark_fail"(0)
+ lt rx930_pos, -1, rx930_done
+ eq rx930_pos, -1, rx930_fail
jump $I10
- rx886_done:
- rx886_cur."!cursor_fail"()
- rx886_cur."!cursor_debug"("FAIL ", "quote_escape:sym<{ }>")
- .return (rx886_cur)
+ rx930_done:
+ rx930_cur."!cursor_fail"()
+ rx930_cur."!cursor_debug"("FAIL ", "quote_escape:sym<{ }>")
+ .return (rx930_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<{ }>" :subid("212_1275117591.97262") :method
+.sub "!PREFIX__quote_escape:sym<{ }>" :subid("221_1275811487.95429") :method
.annotate 'line', 4
- new $P888, "ResizablePMCArray"
- push $P888, "{"
- .return ($P888)
+ new $P932, "ResizablePMCArray"
+ push $P932, "{"
+ .return ($P932)
.end
.namespace ["NQP";"Grammar"]
-.sub "quote_escape:sym<esc>" :subid("213_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "quote_escape:sym<esc>" :subid("222_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx891_tgt
- .local int rx891_pos
- .local int rx891_off
- .local int rx891_eos
- .local int rx891_rep
- .local pmc rx891_cur
- (rx891_cur, rx891_pos, rx891_tgt) = self."!cursor_start"()
- rx891_cur."!cursor_debug"("START ", "quote_escape:sym<esc>")
- .lex unicode:"$\x{a2}", rx891_cur
+ .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 ", "quote_escape:sym<esc>")
+ .lex unicode:"$\x{a2}", rx935_cur
.local pmc match
.lex "$/", match
- length rx891_eos, rx891_tgt
- set rx891_off, 0
- lt rx891_pos, 2, rx891_start
- sub rx891_off, rx891_pos, 1
- substr rx891_tgt, rx891_tgt, rx891_off
- rx891_start:
+ length rx935_eos, rx935_tgt
+ gt rx935_pos, rx935_eos, rx935_done
+ 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, rxscan894_done
- goto rxscan894_scan
- rxscan894_loop:
- ($P10) = rx891_cur."from"()
+ ne $I10, -1, rxscan938_done
+ goto rxscan938_scan
+ rxscan938_loop:
+ ($P10) = rx935_cur."from"()
inc $P10
- set rx891_pos, $P10
- ge rx891_pos, rx891_eos, rxscan894_done
- rxscan894_scan:
- set_addr $I10, rxscan894_loop
- rx891_cur."!mark_push"(0, rx891_pos, $I10)
- rxscan894_done:
-.annotate 'line', 420
+ 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', 433
# 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, 2
- ne $S10, "\\e", rx891_fail
- add rx891_pos, 2
+ add $I11, rx935_pos, 2
+ gt $I11, rx935_eos, rx935_fail
+ sub $I11, rx935_pos, rx935_off
+ substr $S10, rx935_tgt, $I11, 2
+ ne $S10, "\\e", rx935_fail
+ add rx935_pos, 2
# rx subrule "quotemod_check" subtype=zerowidth negate=
- rx891_cur."!cursor_pos"(rx891_pos)
- $P10 = rx891_cur."quotemod_check"("b")
- unless $P10, rx891_fail
+ rx935_cur."!cursor_pos"(rx935_pos)
+ $P10 = rx935_cur."quotemod_check"("b")
+ unless $P10, rx935_fail
# rx pass
- 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:
+ rx935_cur."!cursor_pass"(rx935_pos, "quote_escape:sym<esc>")
+ rx935_cur."!cursor_debug"("PASS ", "quote_escape:sym<esc>", " at pos=", rx935_pos)
+ .return (rx935_cur)
+ rx935_fail:
.annotate 'line', 4
- (rx891_rep, rx891_pos, $I10, $P10) = rx891_cur."!mark_fail"(0)
- lt rx891_pos, -1, rx891_done
- eq rx891_pos, -1, rx891_fail
+ (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
- rx891_done:
- rx891_cur."!cursor_fail"()
- rx891_cur."!cursor_debug"("FAIL ", "quote_escape:sym<esc>")
- .return (rx891_cur)
+ rx935_done:
+ rx935_cur."!cursor_fail"()
+ rx935_cur."!cursor_debug"("FAIL ", "quote_escape:sym<esc>")
+ .return (rx935_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__quote_escape:sym<esc>" :subid("214_1275117591.97262") :method
+.sub "!PREFIX__quote_escape:sym<esc>" :subid("223_1275811487.95429") :method
.annotate 'line', 4
- new $P893, "ResizablePMCArray"
- push $P893, "\\e"
- .return ($P893)
+ new $P937, "ResizablePMCArray"
+ push $P937, "\\e"
+ .return ($P937)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<( )>" :subid("215_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "circumfix:sym<( )>" :subid("224_1275811487.95429") :method :outer("11_1275811487.95429")
.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
+ .local string rx940_tgt
+ .local int rx940_pos
+ .local int rx940_off
+ .local int rx940_eos
+ .local int rx940_rep
+ .local pmc rx940_cur
+ (rx940_cur, rx940_pos, rx940_tgt) = self."!cursor_start"()
+ rx940_cur."!cursor_debug"("START ", "circumfix:sym<( )>")
+ rx940_cur."!cursor_caparray"("EXPR")
+ .lex unicode:"$\x{a2}", rx940_cur
+ .local pmc match
+ .lex "$/", match
+ length rx940_eos, rx940_tgt
+ gt rx940_pos, rx940_eos, rx940_done
+ set rx940_off, 0
+ lt rx940_pos, 2, rx940_start
+ sub rx940_off, rx940_pos, 1
+ substr rx940_tgt, rx940_tgt, rx940_off
+ rx940_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan944_done
+ goto rxscan944_scan
+ rxscan944_loop:
+ ($P10) = rx940_cur."from"()
+ inc $P10
+ set rx940_pos, $P10
+ ge rx940_pos, rx940_eos, rxscan944_done
+ rxscan944_scan:
+ set_addr $I10, rxscan944_loop
+ rx940_cur."!mark_push"(0, rx940_pos, $I10)
+ rxscan944_done:
+.annotate 'line', 435
# 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:
+ add $I11, rx940_pos, 1
+ gt $I11, rx940_eos, rx940_fail
+ sub $I11, rx940_pos, rx940_off
+ substr $S10, rx940_tgt, $I11, 1
+ ne $S10, "(", rx940_fail
+ add rx940_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx940_cur."!cursor_pos"(rx940_pos)
+ $P10 = rx940_cur."ws"()
+ unless $P10, rx940_fail
+ rx940_pos = $P10."pos"()
+ # rx rxquantr945 ** 0..1
+ set_addr $I946, rxquantr945_done
+ rx940_cur."!mark_push"(0, rx940_pos, $I946)
+ rxquantr945_loop:
# rx subrule "EXPR" subtype=capture negate=
- rx896_cur."!cursor_pos"(rx896_pos)
- $P10 = rx896_cur."EXPR"()
- unless $P10, rx896_fail
- rx896_cur."!mark_push"(0, -1, 0, $P10)
+ rx940_cur."!cursor_pos"(rx940_pos)
+ $P10 = rx940_cur."EXPR"()
+ unless $P10, rx940_fail
+ rx940_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx896_pos = $P10."pos"()
- (rx896_rep) = rx896_cur."!mark_commit"($I902)
- rxquantr901_done:
+ rx940_pos = $P10."pos"()
+ (rx940_rep) = rx940_cur."!mark_commit"($I946)
+ rxquantr945_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
+ add $I11, rx940_pos, 1
+ gt $I11, rx940_eos, rx940_fail
+ sub $I11, rx940_pos, rx940_off
+ substr $S10, rx940_tgt, $I11, 1
+ ne $S10, ")", rx940_fail
+ add rx940_pos, 1
# rx pass
- rx896_cur."!cursor_pass"(rx896_pos, "circumfix:sym<( )>")
- rx896_cur."!cursor_debug"("PASS ", "circumfix:sym<( )>", " at pos=", rx896_pos)
- .return (rx896_cur)
- rx896_fail:
+ rx940_cur."!cursor_pass"(rx940_pos, "circumfix:sym<( )>")
+ rx940_cur."!cursor_debug"("PASS ", "circumfix:sym<( )>", " at pos=", rx940_pos)
+ .return (rx940_cur)
+ rx940_fail:
.annotate 'line', 4
- (rx896_rep, rx896_pos, $I10, $P10) = rx896_cur."!mark_fail"(0)
- lt rx896_pos, -1, rx896_done
- eq rx896_pos, -1, rx896_fail
+ (rx940_rep, rx940_pos, $I10, $P10) = rx940_cur."!mark_fail"(0)
+ lt rx940_pos, -1, rx940_done
+ eq rx940_pos, -1, rx940_fail
jump $I10
- rx896_done:
- rx896_cur."!cursor_fail"()
- rx896_cur."!cursor_debug"("FAIL ", "circumfix:sym<( )>")
- .return (rx896_cur)
+ rx940_done:
+ rx940_cur."!cursor_fail"()
+ rx940_cur."!cursor_debug"("FAIL ", "circumfix:sym<( )>")
+ .return (rx940_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<( )>" :subid("216_1275117591.97262") :method
+.sub "!PREFIX__circumfix:sym<( )>" :subid("225_1275811487.95429") :method
.annotate 'line', 4
- $P898 = self."!PREFIX__!subrule"("", "(")
- new $P899, "ResizablePMCArray"
- push $P899, $P898
- .return ($P899)
+ $P942 = self."!PREFIX__!subrule"("ws", "(")
+ new $P943, "ResizablePMCArray"
+ push $P943, $P942
+ .return ($P943)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<[ ]>" :subid("217_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "circumfix:sym<[ ]>" :subid("226_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .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 string rx948_tgt
+ .local int rx948_pos
+ .local int rx948_off
+ .local int rx948_eos
+ .local int rx948_rep
+ .local pmc rx948_cur
+ (rx948_cur, rx948_pos, rx948_tgt) = self."!cursor_start"()
+ rx948_cur."!cursor_debug"("START ", "circumfix:sym<[ ]>")
+ rx948_cur."!cursor_caparray"("EXPR")
+ .lex unicode:"$\x{a2}", rx948_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:
+ length rx948_eos, rx948_tgt
+ gt rx948_pos, rx948_eos, rx948_done
+ set rx948_off, 0
+ lt rx948_pos, 2, rx948_start
+ sub rx948_off, rx948_pos, 1
+ substr rx948_tgt, rx948_tgt, rx948_off
+ rx948_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan908_done
- goto rxscan908_scan
- rxscan908_loop:
- ($P10) = rx904_cur."from"()
+ ne $I10, -1, rxscan952_done
+ goto rxscan952_scan
+ rxscan952_loop:
+ ($P10) = rx948_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
+ set rx948_pos, $P10
+ ge rx948_pos, rx948_eos, rxscan952_done
+ rxscan952_scan:
+ set_addr $I10, rxscan952_loop
+ rx948_cur."!mark_push"(0, rx948_pos, $I10)
+ rxscan952_done:
+.annotate 'line', 436
# 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:
+ add $I11, rx948_pos, 1
+ gt $I11, rx948_eos, rx948_fail
+ sub $I11, rx948_pos, rx948_off
+ substr $S10, rx948_tgt, $I11, 1
+ ne $S10, "[", rx948_fail
+ add rx948_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx948_cur."!cursor_pos"(rx948_pos)
+ $P10 = rx948_cur."ws"()
+ unless $P10, rx948_fail
+ rx948_pos = $P10."pos"()
+ # rx rxquantr953 ** 0..1
+ set_addr $I954, rxquantr953_done
+ rx948_cur."!mark_push"(0, rx948_pos, $I954)
+ rxquantr953_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)
+ rx948_cur."!cursor_pos"(rx948_pos)
+ $P10 = rx948_cur."EXPR"()
+ unless $P10, rx948_fail
+ rx948_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx904_pos = $P10."pos"()
- (rx904_rep) = rx904_cur."!mark_commit"($I910)
- rxquantr909_done:
+ rx948_pos = $P10."pos"()
+ (rx948_rep) = rx948_cur."!mark_commit"($I954)
+ rxquantr953_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
+ add $I11, rx948_pos, 1
+ gt $I11, rx948_eos, rx948_fail
+ sub $I11, rx948_pos, rx948_off
+ substr $S10, rx948_tgt, $I11, 1
+ ne $S10, "]", rx948_fail
+ add rx948_pos, 1
# rx pass
- rx904_cur."!cursor_pass"(rx904_pos, "circumfix:sym<[ ]>")
- rx904_cur."!cursor_debug"("PASS ", "circumfix:sym<[ ]>", " at pos=", rx904_pos)
- .return (rx904_cur)
- rx904_fail:
+ rx948_cur."!cursor_pass"(rx948_pos, "circumfix:sym<[ ]>")
+ rx948_cur."!cursor_debug"("PASS ", "circumfix:sym<[ ]>", " at pos=", rx948_pos)
+ .return (rx948_cur)
+ rx948_fail:
.annotate 'line', 4
- (rx904_rep, rx904_pos, $I10, $P10) = rx904_cur."!mark_fail"(0)
- lt rx904_pos, -1, rx904_done
- eq rx904_pos, -1, rx904_fail
+ (rx948_rep, rx948_pos, $I10, $P10) = rx948_cur."!mark_fail"(0)
+ lt rx948_pos, -1, rx948_done
+ eq rx948_pos, -1, rx948_fail
jump $I10
- rx904_done:
- rx904_cur."!cursor_fail"()
- rx904_cur."!cursor_debug"("FAIL ", "circumfix:sym<[ ]>")
- .return (rx904_cur)
+ rx948_done:
+ rx948_cur."!cursor_fail"()
+ rx948_cur."!cursor_debug"("FAIL ", "circumfix:sym<[ ]>")
+ .return (rx948_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<[ ]>" :subid("218_1275117591.97262") :method
+.sub "!PREFIX__circumfix:sym<[ ]>" :subid("227_1275811487.95429") :method
.annotate 'line', 4
- $P906 = self."!PREFIX__!subrule"("", "[")
- new $P907, "ResizablePMCArray"
- push $P907, $P906
- .return ($P907)
+ $P950 = self."!PREFIX__!subrule"("ws", "[")
+ new $P951, "ResizablePMCArray"
+ push $P951, $P950
+ .return ($P951)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<ang>" :subid("219_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "circumfix:sym<ang>" :subid("228_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx912_tgt
- .local int rx912_pos
- .local int rx912_off
- .local int rx912_eos
- .local int rx912_rep
- .local pmc rx912_cur
- (rx912_cur, rx912_pos, rx912_tgt) = self."!cursor_start"()
- rx912_cur."!cursor_debug"("START ", "circumfix:sym<ang>")
- .lex unicode:"$\x{a2}", rx912_cur
+ .local string rx956_tgt
+ .local int rx956_pos
+ .local int rx956_off
+ .local int rx956_eos
+ .local int rx956_rep
+ .local pmc rx956_cur
+ (rx956_cur, rx956_pos, rx956_tgt) = self."!cursor_start"()
+ rx956_cur."!cursor_debug"("START ", "circumfix:sym<ang>")
+ .lex unicode:"$\x{a2}", rx956_cur
.local pmc match
.lex "$/", match
- length rx912_eos, rx912_tgt
- set rx912_off, 0
- lt rx912_pos, 2, rx912_start
- sub rx912_off, rx912_pos, 1
- substr rx912_tgt, rx912_tgt, rx912_off
- rx912_start:
+ length rx956_eos, rx956_tgt
+ gt rx956_pos, rx956_eos, rx956_done
+ set rx956_off, 0
+ lt rx956_pos, 2, rx956_start
+ sub rx956_off, rx956_pos, 1
+ substr rx956_tgt, rx956_tgt, rx956_off
+ rx956_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan915_done
- goto rxscan915_scan
- rxscan915_loop:
- ($P10) = rx912_cur."from"()
+ ne $I10, -1, rxscan959_done
+ goto rxscan959_scan
+ rxscan959_loop:
+ ($P10) = rx956_cur."from"()
inc $P10
- set rx912_pos, $P10
- ge rx912_pos, rx912_eos, rxscan915_done
- rxscan915_scan:
- set_addr $I10, rxscan915_loop
- rx912_cur."!mark_push"(0, rx912_pos, $I10)
- rxscan915_done:
-.annotate 'line', 424
+ set rx956_pos, $P10
+ ge rx956_pos, rx956_eos, rxscan959_done
+ rxscan959_scan:
+ set_addr $I10, rxscan959_loop
+ rx956_cur."!mark_push"(0, rx956_pos, $I10)
+ rxscan959_done:
+.annotate 'line', 437
# rx enumcharlist negate=0 zerowidth
- ge rx912_pos, rx912_eos, rx912_fail
- sub $I10, rx912_pos, rx912_off
- substr $S10, rx912_tgt, $I10, 1
+ ge rx956_pos, rx956_eos, rx956_fail
+ sub $I10, rx956_pos, rx956_off
+ substr $S10, rx956_tgt, $I10, 1
index $I11, "<", $S10
- lt $I11, 0, rx912_fail
+ lt $I11, 0, rx956_fail
# rx subrule "quote_EXPR" subtype=capture negate=
- rx912_cur."!cursor_pos"(rx912_pos)
- $P10 = rx912_cur."quote_EXPR"(":q", ":w")
- unless $P10, rx912_fail
- rx912_cur."!mark_push"(0, -1, 0, $P10)
+ rx956_cur."!cursor_pos"(rx956_pos)
+ $P10 = rx956_cur."quote_EXPR"(":q", ":w")
+ unless $P10, rx956_fail
+ rx956_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx912_pos = $P10."pos"()
+ rx956_pos = $P10."pos"()
# rx pass
- 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:
+ rx956_cur."!cursor_pass"(rx956_pos, "circumfix:sym<ang>")
+ rx956_cur."!cursor_debug"("PASS ", "circumfix:sym<ang>", " at pos=", rx956_pos)
+ .return (rx956_cur)
+ rx956_fail:
.annotate 'line', 4
- (rx912_rep, rx912_pos, $I10, $P10) = rx912_cur."!mark_fail"(0)
- lt rx912_pos, -1, rx912_done
- eq rx912_pos, -1, rx912_fail
+ (rx956_rep, rx956_pos, $I10, $P10) = rx956_cur."!mark_fail"(0)
+ lt rx956_pos, -1, rx956_done
+ eq rx956_pos, -1, rx956_fail
jump $I10
- rx912_done:
- rx912_cur."!cursor_fail"()
- rx912_cur."!cursor_debug"("FAIL ", "circumfix:sym<ang>")
- .return (rx912_cur)
+ rx956_done:
+ rx956_cur."!cursor_fail"()
+ rx956_cur."!cursor_debug"("FAIL ", "circumfix:sym<ang>")
+ .return (rx956_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<ang>" :subid("220_1275117591.97262") :method
+.sub "!PREFIX__circumfix:sym<ang>" :subid("229_1275811487.95429") :method
.annotate 'line', 4
- new $P914, "ResizablePMCArray"
- push $P914, "<"
- .return ($P914)
+ new $P958, "ResizablePMCArray"
+ push $P958, "<"
+ .return ($P958)
.end
.namespace ["NQP";"Grammar"]
-.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("221_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("230_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx917_tgt
- .local int rx917_pos
- .local int rx917_off
- .local int rx917_eos
- .local int rx917_rep
- .local pmc rx917_cur
- (rx917_cur, rx917_pos, rx917_tgt) = self."!cursor_start"()
- rx917_cur."!cursor_debug"("START ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
- .lex unicode:"$\x{a2}", rx917_cur
- .local pmc match
- .lex "$/", match
- length rx917_eos, rx917_tgt
- set rx917_off, 0
- lt rx917_pos, 2, rx917_start
- sub rx917_off, rx917_pos, 1
- substr rx917_tgt, rx917_tgt, rx917_off
- rx917_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan920_done
- goto rxscan920_scan
- rxscan920_loop:
- ($P10) = rx917_cur."from"()
- inc $P10
- set rx917_pos, $P10
- ge rx917_pos, rx917_eos, rxscan920_done
- rxscan920_scan:
- set_addr $I10, rxscan920_loop
- rx917_cur."!mark_push"(0, rx917_pos, $I10)
- rxscan920_done:
-.annotate 'line', 425
+ .local string rx961_tgt
+ .local int rx961_pos
+ .local int rx961_off
+ .local int rx961_eos
+ .local int rx961_rep
+ .local pmc rx961_cur
+ (rx961_cur, rx961_pos, rx961_tgt) = self."!cursor_start"()
+ rx961_cur."!cursor_debug"("START ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
+ .lex unicode:"$\x{a2}", rx961_cur
+ .local pmc match
+ .lex "$/", match
+ length rx961_eos, rx961_tgt
+ gt rx961_pos, rx961_eos, rx961_done
+ set rx961_off, 0
+ lt rx961_pos, 2, rx961_start
+ sub rx961_off, rx961_pos, 1
+ substr rx961_tgt, rx961_tgt, rx961_off
+ rx961_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan964_done
+ goto rxscan964_scan
+ rxscan964_loop:
+ ($P10) = rx961_cur."from"()
+ inc $P10
+ set rx961_pos, $P10
+ ge rx961_pos, rx961_eos, rxscan964_done
+ rxscan964_scan:
+ set_addr $I10, rxscan964_loop
+ rx961_cur."!mark_push"(0, rx961_pos, $I10)
+ rxscan964_done:
+.annotate 'line', 438
# rx enumcharlist negate=0 zerowidth
- ge rx917_pos, rx917_eos, rx917_fail
- sub $I10, rx917_pos, rx917_off
- substr $S10, rx917_tgt, $I10, 1
+ ge rx961_pos, rx961_eos, rx961_fail
+ sub $I10, rx961_pos, rx961_off
+ substr $S10, rx961_tgt, $I10, 1
index $I11, unicode:"\x{ab}", $S10
- lt $I11, 0, rx917_fail
+ lt $I11, 0, rx961_fail
# rx subrule "quote_EXPR" subtype=capture negate=
- rx917_cur."!cursor_pos"(rx917_pos)
- $P10 = rx917_cur."quote_EXPR"(":qq", ":w")
- unless $P10, rx917_fail
- rx917_cur."!mark_push"(0, -1, 0, $P10)
+ rx961_cur."!cursor_pos"(rx961_pos)
+ $P10 = rx961_cur."quote_EXPR"(":qq", ":w")
+ unless $P10, rx961_fail
+ rx961_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx917_pos = $P10."pos"()
+ rx961_pos = $P10."pos"()
# rx pass
- 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:
+ rx961_cur."!cursor_pass"(rx961_pos, unicode:"circumfix:sym<\x{ab} \x{bb}>")
+ rx961_cur."!cursor_debug"("PASS ", unicode:"circumfix:sym<\x{ab} \x{bb}>", " at pos=", rx961_pos)
+ .return (rx961_cur)
+ rx961_fail:
.annotate 'line', 4
- (rx917_rep, rx917_pos, $I10, $P10) = rx917_cur."!mark_fail"(0)
- lt rx917_pos, -1, rx917_done
- eq rx917_pos, -1, rx917_fail
+ (rx961_rep, rx961_pos, $I10, $P10) = rx961_cur."!mark_fail"(0)
+ lt rx961_pos, -1, rx961_done
+ eq rx961_pos, -1, rx961_fail
jump $I10
- rx917_done:
- rx917_cur."!cursor_fail"()
- rx917_cur."!cursor_debug"("FAIL ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
- .return (rx917_cur)
+ rx961_done:
+ rx961_cur."!cursor_fail"()
+ rx961_cur."!cursor_debug"("FAIL ", unicode:"circumfix:sym<\x{ab} \x{bb}>")
+ .return (rx961_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub unicode:"!PREFIX__circumfix:sym<\x{ab} \x{bb}>" :subid("222_1275117591.97262") :method
+.sub unicode:"!PREFIX__circumfix:sym<\x{ab} \x{bb}>" :subid("231_1275811487.95429") :method
.annotate 'line', 4
- new $P919, "ResizablePMCArray"
- push $P919, unicode:"\x{ab}"
- .return ($P919)
+ new $P963, "ResizablePMCArray"
+ push $P963, unicode:"\x{ab}"
+ .return ($P963)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<{ }>" :subid("223_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "circumfix:sym<{ }>" :subid("232_1275811487.95429") :method :outer("11_1275811487.95429")
.annotate 'line', 4
- .local string rx922_tgt
- .local int rx922_pos
- .local int rx922_off
- .local int rx922_eos
- .local int rx922_rep
- .local pmc rx922_cur
- (rx922_cur, rx922_pos, rx922_tgt) = self."!cursor_start"()
- rx922_cur."!cursor_debug"("START ", "circumfix:sym<{ }>")
- .lex unicode:"$\x{a2}", rx922_cur
+ .local string rx966_tgt
+ .local int rx966_pos
+ .local int rx966_off
+ .local int rx966_eos
+ .local int rx966_rep
+ .local pmc rx966_cur
+ (rx966_cur, rx966_pos, rx966_tgt) = self."!cursor_start"()
+ rx966_cur."!cursor_debug"("START ", "circumfix:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx966_cur
.local pmc match
.lex "$/", match
- length rx922_eos, rx922_tgt
- set rx922_off, 0
- lt rx922_pos, 2, rx922_start
- sub rx922_off, rx922_pos, 1
- substr rx922_tgt, rx922_tgt, rx922_off
- rx922_start:
+ length rx966_eos, rx966_tgt
+ gt rx966_pos, rx966_eos, rx966_done
+ set rx966_off, 0
+ lt rx966_pos, 2, rx966_start
+ sub rx966_off, rx966_pos, 1
+ substr rx966_tgt, rx966_tgt, rx966_off
+ rx966_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan925_done
- goto rxscan925_scan
- rxscan925_loop:
- ($P10) = rx922_cur."from"()
+ ne $I10, -1, rxscan969_done
+ goto rxscan969_scan
+ rxscan969_loop:
+ ($P10) = rx966_cur."from"()
inc $P10
- set rx922_pos, $P10
- ge rx922_pos, rx922_eos, rxscan925_done
- rxscan925_scan:
- set_addr $I10, rxscan925_loop
- rx922_cur."!mark_push"(0, rx922_pos, $I10)
- rxscan925_done:
-.annotate 'line', 426
+ set rx966_pos, $P10
+ ge rx966_pos, rx966_eos, rxscan969_done
+ rxscan969_scan:
+ set_addr $I10, rxscan969_loop
+ rx966_cur."!mark_push"(0, rx966_pos, $I10)
+ rxscan969_done:
+.annotate 'line', 439
# rx enumcharlist negate=0 zerowidth
- ge rx922_pos, rx922_eos, rx922_fail
- sub $I10, rx922_pos, rx922_off
- substr $S10, rx922_tgt, $I10, 1
+ ge rx966_pos, rx966_eos, rx966_fail
+ sub $I10, rx966_pos, rx966_off
+ substr $S10, rx966_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx922_fail
+ lt $I11, 0, rx966_fail
# rx subrule "pblock" subtype=capture negate=
- rx922_cur."!cursor_pos"(rx922_pos)
- $P10 = rx922_cur."pblock"()
- unless $P10, rx922_fail
- rx922_cur."!mark_push"(0, -1, 0, $P10)
+ rx966_cur."!cursor_pos"(rx966_pos)
+ $P10 = rx966_cur."pblock"()
+ unless $P10, rx966_fail
+ rx966_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pblock")
- rx922_pos = $P10."pos"()
+ rx966_pos = $P10."pos"()
# rx pass
- rx922_cur."!cursor_pass"(rx922_pos, "circumfix:sym<{ }>")
- rx922_cur."!cursor_debug"("PASS ", "circumfix:sym<{ }>", " at pos=", rx922_pos)
- .return (rx922_cur)
- rx922_fail:
+ rx966_cur."!cursor_pass"(rx966_pos, "circumfix:sym<{ }>")
+ rx966_cur."!cursor_debug"("PASS ", "circumfix:sym<{ }>", " at pos=", rx966_pos)
+ .return (rx966_cur)
+ rx966_fail:
.annotate 'line', 4
- (rx922_rep, rx922_pos, $I10, $P10) = rx922_cur."!mark_fail"(0)
- lt rx922_pos, -1, rx922_done
- eq rx922_pos, -1, rx922_fail
+ (rx966_rep, rx966_pos, $I10, $P10) = rx966_cur."!mark_fail"(0)
+ lt rx966_pos, -1, rx966_done
+ eq rx966_pos, -1, rx966_fail
jump $I10
- rx922_done:
- rx922_cur."!cursor_fail"()
- rx922_cur."!cursor_debug"("FAIL ", "circumfix:sym<{ }>")
- .return (rx922_cur)
+ rx966_done:
+ rx966_cur."!cursor_fail"()
+ rx966_cur."!cursor_debug"("FAIL ", "circumfix:sym<{ }>")
+ .return (rx966_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<{ }>" :subid("224_1275117591.97262") :method
+.sub "!PREFIX__circumfix:sym<{ }>" :subid("233_1275811487.95429") :method
.annotate 'line', 4
- new $P924, "ResizablePMCArray"
- push $P924, "{"
- .return ($P924)
+ new $P968, "ResizablePMCArray"
+ push $P968, "{"
+ .return ($P968)
.end
.namespace ["NQP";"Grammar"]
-.sub "circumfix:sym<sigil>" :subid("225_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "circumfix:sym<sigil>" :subid("234_1275811487.95429") :method :outer("11_1275811487.95429")
.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
+ .local string rx971_tgt
+ .local int rx971_pos
+ .local int rx971_off
+ .local int rx971_eos
+ .local int rx971_rep
+ .local pmc rx971_cur
+ (rx971_cur, rx971_pos, rx971_tgt) = self."!cursor_start"()
+ rx971_cur."!cursor_debug"("START ", "circumfix:sym<sigil>")
+ .lex unicode:"$\x{a2}", rx971_cur
+ .local pmc match
+ .lex "$/", match
+ length rx971_eos, rx971_tgt
+ gt rx971_pos, rx971_eos, rx971_done
+ set rx971_off, 0
+ lt rx971_pos, 2, rx971_start
+ sub rx971_off, rx971_pos, 1
+ substr rx971_tgt, rx971_tgt, rx971_off
+ rx971_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan975_done
+ goto rxscan975_scan
+ rxscan975_loop:
+ ($P10) = rx971_cur."from"()
+ inc $P10
+ set rx971_pos, $P10
+ ge rx971_pos, rx971_eos, rxscan975_done
+ rxscan975_scan:
+ set_addr $I10, rxscan975_loop
+ rx971_cur."!mark_push"(0, rx971_pos, $I10)
+ rxscan975_done:
+.annotate 'line', 440
# 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)
+ rx971_cur."!cursor_pos"(rx971_pos)
+ $P10 = rx971_cur."sigil"()
+ unless $P10, rx971_fail
+ rx971_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sigil")
- rx927_pos = $P10."pos"()
+ rx971_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
+ add $I11, rx971_pos, 1
+ gt $I11, rx971_eos, rx971_fail
+ sub $I11, rx971_pos, rx971_off
+ substr $S10, rx971_tgt, $I11, 1
+ ne $S10, "(", rx971_fail
+ add rx971_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)
+ rx971_cur."!cursor_pos"(rx971_pos)
+ $P10 = rx971_cur."semilist"()
+ unless $P10, rx971_fail
+ rx971_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)
+ rx971_pos = $P10."pos"()
+ alt976_0:
+ set_addr $I10, alt976_1
+ rx971_cur."!mark_push"(0, rx971_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:
+ add $I11, rx971_pos, 1
+ gt $I11, rx971_eos, rx971_fail
+ sub $I11, rx971_pos, rx971_off
+ substr $S10, rx971_tgt, $I11, 1
+ ne $S10, ")", rx971_fail
+ add rx971_pos, 1
+ goto alt976_end
+ alt976_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:
+ rx971_cur."!cursor_pos"(rx971_pos)
+ $P10 = rx971_cur."FAILGOAL"("')'")
+ unless $P10, rx971_fail
+ rx971_pos = $P10."pos"()
+ alt976_end:
# rx pass
- 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:
+ rx971_cur."!cursor_pass"(rx971_pos, "circumfix:sym<sigil>")
+ rx971_cur."!cursor_debug"("PASS ", "circumfix:sym<sigil>", " at pos=", rx971_pos)
+ .return (rx971_cur)
+ rx971_fail:
.annotate 'line', 4
- (rx927_rep, rx927_pos, $I10, $P10) = rx927_cur."!mark_fail"(0)
- lt rx927_pos, -1, rx927_done
- eq rx927_pos, -1, rx927_fail
+ (rx971_rep, rx971_pos, $I10, $P10) = rx971_cur."!mark_fail"(0)
+ lt rx971_pos, -1, rx971_done
+ eq rx971_pos, -1, rx971_fail
jump $I10
- rx927_done:
- rx927_cur."!cursor_fail"()
- rx927_cur."!cursor_debug"("FAIL ", "circumfix:sym<sigil>")
- .return (rx927_cur)
+ rx971_done:
+ rx971_cur."!cursor_fail"()
+ rx971_cur."!cursor_debug"("FAIL ", "circumfix:sym<sigil>")
+ .return (rx971_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__circumfix:sym<sigil>" :subid("226_1275117591.97262") :method
+.sub "!PREFIX__circumfix:sym<sigil>" :subid("235_1275811487.95429") :method
.annotate 'line', 4
- $P929 = self."!PREFIX__!subrule"("sigil", "")
- new $P930, "ResizablePMCArray"
- push $P930, $P929
- .return ($P930)
+ $P973 = self."!PREFIX__!subrule"("sigil", "")
+ new $P974, "ResizablePMCArray"
+ push $P974, $P973
+ .return ($P974)
.end
.namespace ["NQP";"Grammar"]
-.sub "semilist" :subid("227_1275117591.97262") :method :outer("11_1275117591.97262")
+.sub "semilist" :subid("236_1275811487.95429") :method :outer("11_1275811487.95429")
.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 string rx979_tgt
+ .local int rx979_pos
+ .local int rx979_off
+ .local int rx979_eos
+ .local int rx979_rep
+ .local pmc rx979_cur
+ (rx979_cur, rx979_pos, rx979_tgt) = self."!cursor_start"()
+ rx979_cur."!cursor_debug"("START ", "semilist")
+ .lex unicode:"$\x{a2}", rx979_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx979_eos, rx979_tgt
+ gt rx979_pos, rx979_eos, rx979_done
+ set rx979_off, 0
+ lt rx979_pos, 2, rx979_start
+ sub rx979_off, rx979_pos, 1
+ substr rx979_tgt, rx979_tgt, rx979_off
+ rx979_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan938_done
- goto rxscan938_scan
- rxscan938_loop:
- ($P10) = rx935_cur."from"()
+ ne $I10, -1, rxscan983_done
+ goto rxscan983_scan
+ rxscan983_loop:
+ ($P10) = rx979_cur."from"()
inc $P10
- 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
+ set rx979_pos, $P10
+ ge rx979_pos, rx979_eos, rxscan983_done
+ rxscan983_scan:
+ set_addr $I10, rxscan983_loop
+ rx979_cur."!mark_push"(0, rx979_pos, $I10)
+ rxscan983_done:
+.annotate 'line', 442
# rx subrule "ws" subtype=method negate=
- rx935_cur."!cursor_pos"(rx935_pos)
- $P10 = rx935_cur."ws"()
- unless $P10, rx935_fail
- rx935_pos = $P10."pos"()
+ rx979_cur."!cursor_pos"(rx979_pos)
+ $P10 = rx979_cur."ws"()
+ unless $P10, rx979_fail
+ rx979_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)
+ rx979_cur."!cursor_pos"(rx979_pos)
+ $P10 = rx979_cur."statement"()
+ unless $P10, rx979_fail
+ rx979_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement")
- rx935_pos = $P10."pos"()
+ rx979_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"()
+ rx979_cur."!cursor_pos"(rx979_pos)
+ $P10 = rx979_cur."ws"()
+ unless $P10, rx979_fail
+ rx979_pos = $P10."pos"()
# rx pass
- rx935_cur."!cursor_pass"(rx935_pos, "semilist")
- rx935_cur."!cursor_debug"("PASS ", "semilist", " at pos=", rx935_pos)
- .return (rx935_cur)
- rx935_fail:
+ rx979_cur."!cursor_pass"(rx979_pos, "semilist")
+ rx979_cur."!cursor_debug"("PASS ", "semilist", " at pos=", rx979_pos)
+ .return (rx979_cur)
+ rx979_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
+ (rx979_rep, rx979_pos, $I10, $P10) = rx979_cur."!mark_fail"(0)
+ lt rx979_pos, -1, rx979_done
+ eq rx979_pos, -1, rx979_fail
jump $I10
- rx935_done:
- rx935_cur."!cursor_fail"()
- rx935_cur."!cursor_debug"("FAIL ", "semilist")
- .return (rx935_cur)
+ rx979_done:
+ rx979_cur."!cursor_fail"()
+ rx979_cur."!cursor_debug"("FAIL ", "semilist")
+ .return (rx979_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__semilist" :subid("228_1275117591.97262") :method
+.sub "!PREFIX__semilist" :subid("237_1275811487.95429") :method
.annotate 'line', 4
- new $P937, "ResizablePMCArray"
- push $P937, ""
- .return ($P937)
+ $P981 = self."!PREFIX__!subrule"("ws", "")
+ new $P982, "ResizablePMCArray"
+ push $P982, $P981
+ .return ($P982)
.end
.namespace ["NQP";"Grammar"]
-.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
- .local int rx942_eos
- .local int rx942_rep
- .local pmc rx942_cur
- (rx942_cur, rx942_pos, rx942_tgt) = self."!cursor_start"()
- rx942_cur."!cursor_debug"("START ", "infixish")
- .lex unicode:"$\x{a2}", rx942_cur
- .local pmc match
- .lex "$/", match
- length rx942_eos, rx942_tgt
- set rx942_off, 0
- lt rx942_pos, 2, rx942_start
- sub rx942_off, rx942_pos, 1
- substr rx942_tgt, rx942_tgt, rx942_off
- rx942_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan945_done
- goto rxscan945_scan
- rxscan945_loop:
- ($P10) = rx942_cur."from"()
- inc $P10
- set rx942_pos, $P10
- ge rx942_pos, rx942_eos, rxscan945_done
- rxscan945_scan:
- set_addr $I10, rxscan945_loop
- rx942_cur."!mark_push"(0, rx942_pos, $I10)
- rxscan945_done:
-.annotate 'line', 452
+.sub "infixish" :subid("238_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx987_tgt
+ .local int rx987_pos
+ .local int rx987_off
+ .local int rx987_eos
+ .local int rx987_rep
+ .local pmc rx987_cur
+ (rx987_cur, rx987_pos, rx987_tgt) = self."!cursor_start"()
+ rx987_cur."!cursor_debug"("START ", "infixish")
+ .lex unicode:"$\x{a2}", rx987_cur
+ .local pmc match
+ .lex "$/", match
+ length rx987_eos, rx987_tgt
+ gt rx987_pos, rx987_eos, rx987_done
+ set rx987_off, 0
+ lt rx987_pos, 2, rx987_start
+ sub rx987_off, rx987_pos, 1
+ substr rx987_tgt, rx987_tgt, rx987_off
+ rx987_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan990_done
+ goto rxscan990_scan
+ rxscan990_loop:
+ ($P10) = rx987_cur."from"()
+ inc $P10
+ set rx987_pos, $P10
+ ge rx987_pos, rx987_eos, rxscan990_done
+ rxscan990_scan:
+ set_addr $I10, rxscan990_loop
+ rx987_cur."!mark_push"(0, rx987_pos, $I10)
+ rxscan990_done:
+.annotate 'line', 465
# rx subrule "infixstopper" subtype=zerowidth negate=1
- rx942_cur."!cursor_pos"(rx942_pos)
- $P10 = rx942_cur."infixstopper"()
- if $P10, rx942_fail
+ rx987_cur."!cursor_pos"(rx987_pos)
+ $P10 = rx987_cur."infixstopper"()
+ if $P10, rx987_fail
# rx subrule "infix" subtype=capture negate=
- rx942_cur."!cursor_pos"(rx942_pos)
- $P10 = rx942_cur."infix"()
- unless $P10, rx942_fail
- rx942_cur."!mark_push"(0, -1, 0, $P10)
+ rx987_cur."!cursor_pos"(rx987_pos)
+ $P10 = rx987_cur."infix"()
+ unless $P10, rx987_fail
+ rx987_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("OPER=infix")
- rx942_pos = $P10."pos"()
+ rx987_pos = $P10."pos"()
# rx pass
- rx942_cur."!cursor_pass"(rx942_pos, "infixish")
- rx942_cur."!cursor_debug"("PASS ", "infixish", " at pos=", rx942_pos)
- .return (rx942_cur)
- rx942_fail:
-.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
+ rx987_cur."!cursor_pass"(rx987_pos, "infixish")
+ rx987_cur."!cursor_debug"("PASS ", "infixish", " at pos=", rx987_pos)
+ .return (rx987_cur)
+ rx987_fail:
+.annotate 'line', 446
+ (rx987_rep, rx987_pos, $I10, $P10) = rx987_cur."!mark_fail"(0)
+ lt rx987_pos, -1, rx987_done
+ eq rx987_pos, -1, rx987_fail
jump $I10
- rx942_done:
- rx942_cur."!cursor_fail"()
- rx942_cur."!cursor_debug"("FAIL ", "infixish")
- .return (rx942_cur)
+ rx987_done:
+ rx987_cur."!cursor_fail"()
+ rx987_cur."!cursor_debug"("FAIL ", "infixish")
+ .return (rx987_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infixish" :subid("230_1275117591.97262") :method
-.annotate 'line', 433
- new $P944, "ResizablePMCArray"
- push $P944, ""
- .return ($P944)
+.sub "!PREFIX__infixish" :subid("239_1275811487.95429") :method
+.annotate 'line', 446
+ new $P989, "ResizablePMCArray"
+ push $P989, ""
+ .return ($P989)
.end
.namespace ["NQP";"Grammar"]
-.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
- .local int rx947_eos
- .local int rx947_rep
- .local pmc rx947_cur
- (rx947_cur, rx947_pos, rx947_tgt) = self."!cursor_start"()
- rx947_cur."!cursor_debug"("START ", "infixstopper")
- .lex unicode:"$\x{a2}", rx947_cur
- .local pmc match
- .lex "$/", match
- length rx947_eos, rx947_tgt
- set rx947_off, 0
- lt rx947_pos, 2, rx947_start
- sub rx947_off, rx947_pos, 1
- substr rx947_tgt, rx947_tgt, rx947_off
- rx947_start:
- $I10 = self.'from'()
- 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, rxscan950_done
- rxscan950_scan:
- set_addr $I10, rxscan950_loop
- rx947_cur."!mark_push"(0, rx947_pos, $I10)
- rxscan950_done:
-.annotate 'line', 453
+.sub "infixstopper" :subid("240_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx992_tgt
+ .local int rx992_pos
+ .local int rx992_off
+ .local int rx992_eos
+ .local int rx992_rep
+ .local pmc rx992_cur
+ (rx992_cur, rx992_pos, rx992_tgt) = self."!cursor_start"()
+ rx992_cur."!cursor_debug"("START ", "infixstopper")
+ .lex unicode:"$\x{a2}", rx992_cur
+ .local pmc match
+ .lex "$/", match
+ length rx992_eos, rx992_tgt
+ gt rx992_pos, rx992_eos, rx992_done
+ set rx992_off, 0
+ lt rx992_pos, 2, rx992_start
+ sub rx992_off, rx992_pos, 1
+ substr rx992_tgt, rx992_tgt, rx992_off
+ rx992_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan995_done
+ goto rxscan995_scan
+ rxscan995_loop:
+ ($P10) = rx992_cur."from"()
+ inc $P10
+ set rx992_pos, $P10
+ ge rx992_pos, rx992_eos, rxscan995_done
+ rxscan995_scan:
+ set_addr $I10, rxscan995_loop
+ rx992_cur."!mark_push"(0, rx992_pos, $I10)
+ rxscan995_done:
+.annotate 'line', 466
# rx subrule "lambda" subtype=zerowidth negate=
- rx947_cur."!cursor_pos"(rx947_pos)
- $P10 = rx947_cur."lambda"()
- unless $P10, rx947_fail
- # rx pass
- rx947_cur."!cursor_pass"(rx947_pos, "infixstopper")
- rx947_cur."!cursor_debug"("PASS ", "infixstopper", " at pos=", rx947_pos)
- .return (rx947_cur)
- rx947_fail:
-.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
+ rx992_cur."!cursor_pos"(rx992_pos)
+ $P10 = rx992_cur."lambda"()
+ unless $P10, rx992_fail
+ # rx pass
+ rx992_cur."!cursor_pass"(rx992_pos, "infixstopper")
+ rx992_cur."!cursor_debug"("PASS ", "infixstopper", " at pos=", rx992_pos)
+ .return (rx992_cur)
+ rx992_fail:
+.annotate 'line', 446
+ (rx992_rep, rx992_pos, $I10, $P10) = rx992_cur."!mark_fail"(0)
+ lt rx992_pos, -1, rx992_done
+ eq rx992_pos, -1, rx992_fail
jump $I10
- rx947_done:
- rx947_cur."!cursor_fail"()
- rx947_cur."!cursor_debug"("FAIL ", "infixstopper")
- .return (rx947_cur)
+ rx992_done:
+ rx992_cur."!cursor_fail"()
+ rx992_cur."!cursor_debug"("FAIL ", "infixstopper")
+ .return (rx992_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infixstopper" :subid("232_1275117591.97262") :method
-.annotate 'line', 433
- new $P949, "ResizablePMCArray"
- push $P949, ""
- .return ($P949)
+.sub "!PREFIX__infixstopper" :subid("241_1275811487.95429") :method
+.annotate 'line', 446
+ new $P994, "ResizablePMCArray"
+ push $P994, ""
+ .return ($P994)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "postcircumfix:sym<[ ]>" :subid("242_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .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 ", "postcircumfix:sym<[ ]>")
+ .lex unicode:"$\x{a2}", rx997_cur
+ .local pmc match
+ .lex "$/", match
+ length rx997_eos, rx997_tgt
+ gt rx997_pos, rx997_eos, rx997_done
+ 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', 469
# 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"()
+ add $I11, rx997_pos, 1
+ gt $I11, rx997_eos, rx997_fail
+ sub $I11, rx997_pos, rx997_off
+ substr $S10, rx997_tgt, $I11, 1
+ ne $S10, "[", rx997_fail
+ add rx997_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx997_cur."!cursor_pos"(rx997_pos)
+ $P10 = rx997_cur."ws"()
+ unless $P10, rx997_fail
+ rx997_pos = $P10."pos"()
# rx subrule "EXPR" subtype=capture negate=
- rx952_cur."!cursor_pos"(rx952_pos)
- $P10 = rx952_cur."EXPR"()
- unless $P10, rx952_fail
- rx952_cur."!mark_push"(0, -1, 0, $P10)
+ rx997_cur."!cursor_pos"(rx997_pos)
+ $P10 = rx997_cur."EXPR"()
+ unless $P10, rx997_fail
+ rx997_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx952_pos = $P10."pos"()
+ rx997_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
+ add $I11, rx997_pos, 1
+ gt $I11, rx997_eos, rx997_fail
+ sub $I11, rx997_pos, rx997_off
+ substr $S10, rx997_tgt, $I11, 1
+ ne $S10, "]", rx997_fail
+ add rx997_pos, 1
+.annotate 'line', 470
# rx subrule "O" subtype=capture negate=
- rx952_cur."!cursor_pos"(rx952_pos)
- $P10 = rx952_cur."O"("%methodop")
- unless $P10, rx952_fail
- rx952_cur."!mark_push"(0, -1, 0, $P10)
+ rx997_cur."!cursor_pos"(rx997_pos)
+ $P10 = rx997_cur."O"("%methodop")
+ unless $P10, rx997_fail
+ rx997_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx952_pos = $P10."pos"()
-.annotate 'line', 455
+ rx997_pos = $P10."pos"()
+.annotate 'line', 468
# rx pass
- 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
+ rx997_cur."!cursor_pass"(rx997_pos, "postcircumfix:sym<[ ]>")
+ rx997_cur."!cursor_debug"("PASS ", "postcircumfix:sym<[ ]>", " at pos=", rx997_pos)
+ .return (rx997_cur)
+ rx997_fail:
+.annotate 'line', 446
+ (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
- rx952_done:
- rx952_cur."!cursor_fail"()
- rx952_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<[ ]>")
- .return (rx952_cur)
+ rx997_done:
+ rx997_cur."!cursor_fail"()
+ rx997_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<[ ]>")
+ .return (rx997_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<[ ]>" :subid("234_1275117591.97262") :method
-.annotate 'line', 433
- $P954 = self."!PREFIX__!subrule"("", "[")
- new $P955, "ResizablePMCArray"
- push $P955, $P954
- .return ($P955)
+.sub "!PREFIX__postcircumfix:sym<[ ]>" :subid("243_1275811487.95429") :method
+.annotate 'line', 446
+ $P999 = self."!PREFIX__!subrule"("ws", "[")
+ new $P1000, "ResizablePMCArray"
+ push $P1000, $P999
+ .return ($P1000)
.end
.namespace ["NQP";"Grammar"]
-.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) = rx958_cur."from"()
- inc $P10
- set rx958_pos, $P10
- ge rx958_pos, rx958_eos, rxscan962_done
- rxscan962_scan:
- set_addr $I10, rxscan962_loop
- rx958_cur."!mark_push"(0, rx958_pos, $I10)
- rxscan962_done:
-.annotate 'line', 461
+.sub "postcircumfix:sym<{ }>" :subid("244_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1003_tgt
+ .local int rx1003_pos
+ .local int rx1003_off
+ .local int rx1003_eos
+ .local int rx1003_rep
+ .local pmc rx1003_cur
+ (rx1003_cur, rx1003_pos, rx1003_tgt) = self."!cursor_start"()
+ rx1003_cur."!cursor_debug"("START ", "postcircumfix:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx1003_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1003_eos, rx1003_tgt
+ gt rx1003_pos, rx1003_eos, rx1003_done
+ set rx1003_off, 0
+ lt rx1003_pos, 2, rx1003_start
+ sub rx1003_off, rx1003_pos, 1
+ substr rx1003_tgt, rx1003_tgt, rx1003_off
+ rx1003_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1007_done
+ goto rxscan1007_scan
+ rxscan1007_loop:
+ ($P10) = rx1003_cur."from"()
+ inc $P10
+ set rx1003_pos, $P10
+ ge rx1003_pos, rx1003_eos, rxscan1007_done
+ rxscan1007_scan:
+ set_addr $I10, rxscan1007_loop
+ rx1003_cur."!mark_push"(0, rx1003_pos, $I10)
+ rxscan1007_done:
+.annotate 'line', 474
# 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"()
+ add $I11, rx1003_pos, 1
+ gt $I11, rx1003_eos, rx1003_fail
+ sub $I11, rx1003_pos, rx1003_off
+ substr $S10, rx1003_tgt, $I11, 1
+ ne $S10, "{", rx1003_fail
+ add rx1003_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx1003_cur."!cursor_pos"(rx1003_pos)
+ $P10 = rx1003_cur."ws"()
+ unless $P10, rx1003_fail
+ rx1003_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)
+ rx1003_cur."!cursor_pos"(rx1003_pos)
+ $P10 = rx1003_cur."EXPR"()
+ unless $P10, rx1003_fail
+ rx1003_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx958_pos = $P10."pos"()
+ rx1003_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
+ add $I11, rx1003_pos, 1
+ gt $I11, rx1003_eos, rx1003_fail
+ sub $I11, rx1003_pos, rx1003_off
+ substr $S10, rx1003_tgt, $I11, 1
+ ne $S10, "}", rx1003_fail
+ add rx1003_pos, 1
+.annotate 'line', 475
# rx subrule "O" subtype=capture negate=
- rx958_cur."!cursor_pos"(rx958_pos)
- $P10 = rx958_cur."O"("%methodop")
- unless $P10, rx958_fail
- rx958_cur."!mark_push"(0, -1, 0, $P10)
+ rx1003_cur."!cursor_pos"(rx1003_pos)
+ $P10 = rx1003_cur."O"("%methodop")
+ unless $P10, rx1003_fail
+ rx1003_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx958_pos = $P10."pos"()
-.annotate 'line', 460
+ rx1003_pos = $P10."pos"()
+.annotate 'line', 473
# rx pass
- 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
+ rx1003_cur."!cursor_pass"(rx1003_pos, "postcircumfix:sym<{ }>")
+ rx1003_cur."!cursor_debug"("PASS ", "postcircumfix:sym<{ }>", " at pos=", rx1003_pos)
+ .return (rx1003_cur)
+ rx1003_fail:
+.annotate 'line', 446
+ (rx1003_rep, rx1003_pos, $I10, $P10) = rx1003_cur."!mark_fail"(0)
+ lt rx1003_pos, -1, rx1003_done
+ eq rx1003_pos, -1, rx1003_fail
jump $I10
- rx958_done:
- rx958_cur."!cursor_fail"()
- rx958_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<{ }>")
- .return (rx958_cur)
+ rx1003_done:
+ rx1003_cur."!cursor_fail"()
+ rx1003_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<{ }>")
+ .return (rx1003_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<{ }>" :subid("236_1275117591.97262") :method
-.annotate 'line', 433
- $P960 = self."!PREFIX__!subrule"("", "{")
- new $P961, "ResizablePMCArray"
- push $P961, $P960
- .return ($P961)
+.sub "!PREFIX__postcircumfix:sym<{ }>" :subid("245_1275811487.95429") :method
+.annotate 'line', 446
+ $P1005 = self."!PREFIX__!subrule"("ws", "{")
+ new $P1006, "ResizablePMCArray"
+ push $P1006, $P1005
+ .return ($P1006)
.end
.namespace ["NQP";"Grammar"]
-.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
- .local int rx964_eos
- .local int rx964_rep
- .local pmc rx964_cur
- (rx964_cur, rx964_pos, rx964_tgt) = self."!cursor_start"()
- rx964_cur."!cursor_debug"("START ", "postcircumfix:sym<ang>")
- .lex unicode:"$\x{a2}", rx964_cur
- .local pmc match
- .lex "$/", match
- length rx964_eos, rx964_tgt
- set rx964_off, 0
- lt rx964_pos, 2, rx964_start
- sub rx964_off, rx964_pos, 1
- substr rx964_tgt, rx964_tgt, rx964_off
- rx964_start:
- $I10 = self.'from'()
- 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, rxscan967_done
- rxscan967_scan:
- set_addr $I10, rxscan967_loop
- rx964_cur."!mark_push"(0, rx964_pos, $I10)
- rxscan967_done:
-.annotate 'line', 466
+.sub "postcircumfix:sym<ang>" :subid("246_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .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 ", "postcircumfix:sym<ang>")
+ .lex unicode:"$\x{a2}", rx1009_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1009_eos, rx1009_tgt
+ gt rx1009_pos, rx1009_eos, rx1009_done
+ 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, rxscan1012_done
+ goto rxscan1012_scan
+ rxscan1012_loop:
+ ($P10) = rx1009_cur."from"()
+ inc $P10
+ set rx1009_pos, $P10
+ ge rx1009_pos, rx1009_eos, rxscan1012_done
+ rxscan1012_scan:
+ set_addr $I10, rxscan1012_loop
+ rx1009_cur."!mark_push"(0, rx1009_pos, $I10)
+ rxscan1012_done:
+.annotate 'line', 479
# rx enumcharlist negate=0 zerowidth
- ge rx964_pos, rx964_eos, rx964_fail
- sub $I10, rx964_pos, rx964_off
- substr $S10, rx964_tgt, $I10, 1
+ ge rx1009_pos, rx1009_eos, rx1009_fail
+ sub $I10, rx1009_pos, rx1009_off
+ substr $S10, rx1009_tgt, $I10, 1
index $I11, "<", $S10
- lt $I11, 0, rx964_fail
+ lt $I11, 0, rx1009_fail
# rx subrule "quote_EXPR" subtype=capture negate=
- rx964_cur."!cursor_pos"(rx964_pos)
- $P10 = rx964_cur."quote_EXPR"(":q")
- unless $P10, rx964_fail
- rx964_cur."!mark_push"(0, -1, 0, $P10)
+ rx1009_cur."!cursor_pos"(rx1009_pos)
+ $P10 = rx1009_cur."quote_EXPR"(":q")
+ unless $P10, rx1009_fail
+ rx1009_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
- rx964_pos = $P10."pos"()
-.annotate 'line', 467
+ rx1009_pos = $P10."pos"()
+.annotate 'line', 480
# rx subrule "O" subtype=capture negate=
- rx964_cur."!cursor_pos"(rx964_pos)
- $P10 = rx964_cur."O"("%methodop")
- unless $P10, rx964_fail
- rx964_cur."!mark_push"(0, -1, 0, $P10)
+ rx1009_cur."!cursor_pos"(rx1009_pos)
+ $P10 = rx1009_cur."O"("%methodop")
+ unless $P10, rx1009_fail
+ rx1009_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx964_pos = $P10."pos"()
-.annotate 'line', 465
+ rx1009_pos = $P10."pos"()
+.annotate 'line', 478
# rx pass
- 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', 433
- (rx964_rep, rx964_pos, $I10, $P10) = rx964_cur."!mark_fail"(0)
- lt rx964_pos, -1, rx964_done
- eq rx964_pos, -1, rx964_fail
+ rx1009_cur."!cursor_pass"(rx1009_pos, "postcircumfix:sym<ang>")
+ rx1009_cur."!cursor_debug"("PASS ", "postcircumfix:sym<ang>", " at pos=", rx1009_pos)
+ .return (rx1009_cur)
+ rx1009_fail:
+.annotate 'line', 446
+ (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
- rx964_done:
- rx964_cur."!cursor_fail"()
- rx964_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<ang>")
- .return (rx964_cur)
+ rx1009_done:
+ rx1009_cur."!cursor_fail"()
+ rx1009_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<ang>")
+ .return (rx1009_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<ang>" :subid("238_1275117591.97262") :method
-.annotate 'line', 433
- new $P966, "ResizablePMCArray"
- push $P966, "<"
- .return ($P966)
+.sub "!PREFIX__postcircumfix:sym<ang>" :subid("247_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1011, "ResizablePMCArray"
+ push $P1011, "<"
+ .return ($P1011)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "postcircumfix:sym<( )>" :subid("248_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1014_tgt
+ .local int rx1014_pos
+ .local int rx1014_off
+ .local int rx1014_eos
+ .local int rx1014_rep
+ .local pmc rx1014_cur
+ (rx1014_cur, rx1014_pos, rx1014_tgt) = self."!cursor_start"()
+ rx1014_cur."!cursor_debug"("START ", "postcircumfix:sym<( )>")
+ .lex unicode:"$\x{a2}", rx1014_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1014_eos, rx1014_tgt
+ gt rx1014_pos, rx1014_eos, rx1014_done
+ set rx1014_off, 0
+ lt rx1014_pos, 2, rx1014_start
+ sub rx1014_off, rx1014_pos, 1
+ substr rx1014_tgt, rx1014_tgt, rx1014_off
+ rx1014_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1018_done
+ goto rxscan1018_scan
+ rxscan1018_loop:
+ ($P10) = rx1014_cur."from"()
+ inc $P10
+ set rx1014_pos, $P10
+ ge rx1014_pos, rx1014_eos, rxscan1018_done
+ rxscan1018_scan:
+ set_addr $I10, rxscan1018_loop
+ rx1014_cur."!mark_push"(0, rx1014_pos, $I10)
+ rxscan1018_done:
+.annotate 'line', 484
# 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"()
+ add $I11, rx1014_pos, 1
+ gt $I11, rx1014_eos, rx1014_fail
+ sub $I11, rx1014_pos, rx1014_off
+ substr $S10, rx1014_tgt, $I11, 1
+ ne $S10, "(", rx1014_fail
+ add rx1014_pos, 1
+ # rx subrule "ws" subtype=method negate=
+ rx1014_cur."!cursor_pos"(rx1014_pos)
+ $P10 = rx1014_cur."ws"()
+ unless $P10, rx1014_fail
+ rx1014_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)
+ rx1014_cur."!cursor_pos"(rx1014_pos)
+ $P10 = rx1014_cur."arglist"()
+ unless $P10, rx1014_fail
+ rx1014_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx969_pos = $P10."pos"()
+ rx1014_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
+ add $I11, rx1014_pos, 1
+ gt $I11, rx1014_eos, rx1014_fail
+ sub $I11, rx1014_pos, rx1014_off
+ substr $S10, rx1014_tgt, $I11, 1
+ ne $S10, ")", rx1014_fail
+ add rx1014_pos, 1
+.annotate 'line', 485
# rx subrule "O" subtype=capture negate=
- rx969_cur."!cursor_pos"(rx969_pos)
- $P10 = rx969_cur."O"("%methodop")
- unless $P10, rx969_fail
- rx969_cur."!mark_push"(0, -1, 0, $P10)
+ rx1014_cur."!cursor_pos"(rx1014_pos)
+ $P10 = rx1014_cur."O"("%methodop")
+ unless $P10, rx1014_fail
+ rx1014_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx969_pos = $P10."pos"()
-.annotate 'line', 470
+ rx1014_pos = $P10."pos"()
+.annotate 'line', 483
# rx pass
- 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
+ rx1014_cur."!cursor_pass"(rx1014_pos, "postcircumfix:sym<( )>")
+ rx1014_cur."!cursor_debug"("PASS ", "postcircumfix:sym<( )>", " at pos=", rx1014_pos)
+ .return (rx1014_cur)
+ rx1014_fail:
+.annotate 'line', 446
+ (rx1014_rep, rx1014_pos, $I10, $P10) = rx1014_cur."!mark_fail"(0)
+ lt rx1014_pos, -1, rx1014_done
+ eq rx1014_pos, -1, rx1014_fail
jump $I10
- rx969_done:
- rx969_cur."!cursor_fail"()
- rx969_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<( )>")
- .return (rx969_cur)
+ rx1014_done:
+ rx1014_cur."!cursor_fail"()
+ rx1014_cur."!cursor_debug"("FAIL ", "postcircumfix:sym<( )>")
+ .return (rx1014_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__postcircumfix:sym<( )>" :subid("240_1275117591.97262") :method
-.annotate 'line', 433
- $P971 = self."!PREFIX__!subrule"("", "(")
- new $P972, "ResizablePMCArray"
- push $P972, $P971
- .return ($P972)
+.sub "!PREFIX__postcircumfix:sym<( )>" :subid("249_1275811487.95429") :method
+.annotate 'line', 446
+ $P1016 = self."!PREFIX__!subrule"("ws", "(")
+ new $P1017, "ResizablePMCArray"
+ push $P1017, $P1016
+ .return ($P1017)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "postfix:sym<.>" :subid("250_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1020_tgt
+ .local int rx1020_pos
+ .local int rx1020_off
+ .local int rx1020_eos
+ .local int rx1020_rep
+ .local pmc rx1020_cur
+ (rx1020_cur, rx1020_pos, rx1020_tgt) = self."!cursor_start"()
+ rx1020_cur."!cursor_debug"("START ", "postfix:sym<.>")
+ .lex unicode:"$\x{a2}", rx1020_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1020_eos, rx1020_tgt
+ gt rx1020_pos, rx1020_eos, rx1020_done
+ set rx1020_off, 0
+ lt rx1020_pos, 2, rx1020_start
+ sub rx1020_off, rx1020_pos, 1
+ substr rx1020_tgt, rx1020_tgt, rx1020_off
+ rx1020_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1024_done
+ goto rxscan1024_scan
+ rxscan1024_loop:
+ ($P10) = rx1020_cur."from"()
+ inc $P10
+ set rx1020_pos, $P10
+ ge rx1020_pos, rx1020_eos, rxscan1024_done
+ rxscan1024_scan:
+ set_addr $I10, rxscan1024_loop
+ rx1020_cur."!mark_push"(0, rx1020_pos, $I10)
+ rxscan1024_done:
+.annotate 'line', 488
# 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)
+ rx1020_cur."!cursor_pos"(rx1020_pos)
+ $P10 = rx1020_cur."dotty"()
+ unless $P10, rx1020_fail
+ rx1020_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("dotty")
- rx975_pos = $P10."pos"()
+ rx1020_pos = $P10."pos"()
# rx subrule "O" subtype=capture negate=
- rx975_cur."!cursor_pos"(rx975_pos)
- $P10 = rx975_cur."O"("%methodop")
- unless $P10, rx975_fail
- rx975_cur."!mark_push"(0, -1, 0, $P10)
+ rx1020_cur."!cursor_pos"(rx1020_pos)
+ $P10 = rx1020_cur."O"("%methodop")
+ unless $P10, rx1020_fail
+ rx1020_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx975_pos = $P10."pos"()
+ rx1020_pos = $P10."pos"()
# rx pass
- 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
+ rx1020_cur."!cursor_pass"(rx1020_pos, "postfix:sym<.>")
+ rx1020_cur."!cursor_debug"("PASS ", "postfix:sym<.>", " at pos=", rx1020_pos)
+ .return (rx1020_cur)
+ rx1020_fail:
+.annotate 'line', 446
+ (rx1020_rep, rx1020_pos, $I10, $P10) = rx1020_cur."!mark_fail"(0)
+ lt rx1020_pos, -1, rx1020_done
+ eq rx1020_pos, -1, rx1020_fail
jump $I10
- rx975_done:
- rx975_cur."!cursor_fail"()
- rx975_cur."!cursor_debug"("FAIL ", "postfix:sym<.>")
- .return (rx975_cur)
+ rx1020_done:
+ rx1020_cur."!cursor_fail"()
+ rx1020_cur."!cursor_debug"("FAIL ", "postfix:sym<.>")
+ .return (rx1020_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__postfix:sym<.>" :subid("251_1275811487.95429") :method
+.annotate 'line', 446
+ $P1022 = self."!PREFIX__!subrule"("dotty", "")
+ new $P1023, "ResizablePMCArray"
+ push $P1023, $P1022
+ .return ($P1023)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<++>" :subid("252_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1026_tgt
+ .local int rx1026_pos
+ .local int rx1026_off
+ .local int rx1026_eos
+ .local int rx1026_rep
+ .local pmc rx1026_cur
+ (rx1026_cur, rx1026_pos, rx1026_tgt) = self."!cursor_start"()
+ rx1026_cur."!cursor_debug"("START ", "prefix:sym<++>")
+ .lex unicode:"$\x{a2}", rx1026_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1026_eos, rx1026_tgt
+ gt rx1026_pos, rx1026_eos, rx1026_done
+ set rx1026_off, 0
+ lt rx1026_pos, 2, rx1026_start
+ sub rx1026_off, rx1026_pos, 1
+ substr rx1026_tgt, rx1026_tgt, rx1026_off
+ rx1026_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1030_done
+ goto rxscan1030_scan
+ rxscan1030_loop:
+ ($P10) = rx1026_cur."from"()
+ inc $P10
+ set rx1026_pos, $P10
+ ge rx1026_pos, rx1026_eos, rxscan1030_done
+ rxscan1030_scan:
+ set_addr $I10, rxscan1030_loop
+ rx1026_cur."!mark_push"(0, rx1026_pos, $I10)
+ rxscan1030_done:
+.annotate 'line', 490
# rx subcapture "sym"
- set_addr $I10, rxcap_986_fail
- rx981_cur."!mark_push"(0, rx981_pos, $I10)
+ set_addr $I10, rxcap_1031_fail
+ rx1026_cur."!mark_push"(0, rx1026_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)
+ add $I11, rx1026_pos, 2
+ gt $I11, rx1026_eos, rx1026_fail
+ sub $I11, rx1026_pos, rx1026_off
+ substr $S10, rx1026_tgt, $I11, 2
+ ne $S10, "++", rx1026_fail
+ add rx1026_pos, 2
+ set_addr $I10, rxcap_1031_fail
+ ($I12, $I11) = rx1026_cur."!mark_peek"($I10)
+ rx1026_cur."!cursor_pos"($I11)
+ ($P10) = rx1026_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1026_pos, "")
+ rx1026_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_986_done
- rxcap_986_fail:
- goto rx981_fail
- rxcap_986_done:
+ goto rxcap_1031_done
+ rxcap_1031_fail:
+ goto rx1026_fail
+ rxcap_1031_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1026_cur."!cursor_pos"(rx1026_pos)
+ $P10 = rx1026_cur."O"("%autoincrement, :pirop<inc>")
+ unless $P10, rx1026_fail
+ rx1026_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx981_pos = $P10."pos"()
+ rx1026_pos = $P10."pos"()
# rx pass
- 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
+ rx1026_cur."!cursor_pass"(rx1026_pos, "prefix:sym<++>")
+ rx1026_cur."!cursor_debug"("PASS ", "prefix:sym<++>", " at pos=", rx1026_pos)
+ .return (rx1026_cur)
+ rx1026_fail:
+.annotate 'line', 446
+ (rx1026_rep, rx1026_pos, $I10, $P10) = rx1026_cur."!mark_fail"(0)
+ lt rx1026_pos, -1, rx1026_done
+ eq rx1026_pos, -1, rx1026_fail
jump $I10
- rx981_done:
- rx981_cur."!cursor_fail"()
- rx981_cur."!cursor_debug"("FAIL ", "prefix:sym<++>")
- .return (rx981_cur)
+ rx1026_done:
+ rx1026_cur."!cursor_fail"()
+ rx1026_cur."!cursor_debug"("FAIL ", "prefix:sym<++>")
+ .return (rx1026_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__prefix:sym<++>" :subid("253_1275811487.95429") :method
+.annotate 'line', 446
+ $P1028 = self."!PREFIX__!subrule"("O", "++")
+ new $P1029, "ResizablePMCArray"
+ push $P1029, $P1028
+ .return ($P1029)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<-->" :subid("254_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1033_tgt
+ .local int rx1033_pos
+ .local int rx1033_off
+ .local int rx1033_eos
+ .local int rx1033_rep
+ .local pmc rx1033_cur
+ (rx1033_cur, rx1033_pos, rx1033_tgt) = self."!cursor_start"()
+ rx1033_cur."!cursor_debug"("START ", "prefix:sym<-->")
+ .lex unicode:"$\x{a2}", rx1033_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1033_eos, rx1033_tgt
+ gt rx1033_pos, rx1033_eos, rx1033_done
+ set rx1033_off, 0
+ lt rx1033_pos, 2, rx1033_start
+ sub rx1033_off, rx1033_pos, 1
+ substr rx1033_tgt, rx1033_tgt, rx1033_off
+ rx1033_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1037_done
+ goto rxscan1037_scan
+ rxscan1037_loop:
+ ($P10) = rx1033_cur."from"()
+ inc $P10
+ set rx1033_pos, $P10
+ ge rx1033_pos, rx1033_eos, rxscan1037_done
+ rxscan1037_scan:
+ set_addr $I10, rxscan1037_loop
+ rx1033_cur."!mark_push"(0, rx1033_pos, $I10)
+ rxscan1037_done:
+.annotate 'line', 491
# rx subcapture "sym"
- set_addr $I10, rxcap_993_fail
- rx988_cur."!mark_push"(0, rx988_pos, $I10)
+ set_addr $I10, rxcap_1038_fail
+ rx1033_cur."!mark_push"(0, rx1033_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)
+ add $I11, rx1033_pos, 2
+ gt $I11, rx1033_eos, rx1033_fail
+ sub $I11, rx1033_pos, rx1033_off
+ substr $S10, rx1033_tgt, $I11, 2
+ ne $S10, "--", rx1033_fail
+ add rx1033_pos, 2
+ set_addr $I10, rxcap_1038_fail
+ ($I12, $I11) = rx1033_cur."!mark_peek"($I10)
+ rx1033_cur."!cursor_pos"($I11)
+ ($P10) = rx1033_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1033_pos, "")
+ rx1033_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_993_done
- rxcap_993_fail:
- goto rx988_fail
- rxcap_993_done:
+ goto rxcap_1038_done
+ rxcap_1038_fail:
+ goto rx1033_fail
+ rxcap_1038_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1033_cur."!cursor_pos"(rx1033_pos)
+ $P10 = rx1033_cur."O"("%autoincrement, :pirop<dec>")
+ unless $P10, rx1033_fail
+ rx1033_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx988_pos = $P10."pos"()
+ rx1033_pos = $P10."pos"()
# rx pass
- 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
+ rx1033_cur."!cursor_pass"(rx1033_pos, "prefix:sym<-->")
+ rx1033_cur."!cursor_debug"("PASS ", "prefix:sym<-->", " at pos=", rx1033_pos)
+ .return (rx1033_cur)
+ rx1033_fail:
+.annotate 'line', 446
+ (rx1033_rep, rx1033_pos, $I10, $P10) = rx1033_cur."!mark_fail"(0)
+ lt rx1033_pos, -1, rx1033_done
+ eq rx1033_pos, -1, rx1033_fail
jump $I10
- rx988_done:
- rx988_cur."!cursor_fail"()
- rx988_cur."!cursor_debug"("FAIL ", "prefix:sym<-->")
- .return (rx988_cur)
+ rx1033_done:
+ rx1033_cur."!cursor_fail"()
+ rx1033_cur."!cursor_debug"("FAIL ", "prefix:sym<-->")
+ .return (rx1033_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__prefix:sym<-->" :subid("255_1275811487.95429") :method
+.annotate 'line', 446
+ $P1035 = self."!PREFIX__!subrule"("O", "--")
+ new $P1036, "ResizablePMCArray"
+ push $P1036, $P1035
+ .return ($P1036)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "postfix:sym<++>" :subid("256_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1040_tgt
+ .local int rx1040_pos
+ .local int rx1040_off
+ .local int rx1040_eos
+ .local int rx1040_rep
+ .local pmc rx1040_cur
+ (rx1040_cur, rx1040_pos, rx1040_tgt) = self."!cursor_start"()
+ rx1040_cur."!cursor_debug"("START ", "postfix:sym<++>")
+ .lex unicode:"$\x{a2}", rx1040_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1040_eos, rx1040_tgt
+ gt rx1040_pos, rx1040_eos, rx1040_done
+ set rx1040_off, 0
+ lt rx1040_pos, 2, rx1040_start
+ sub rx1040_off, rx1040_pos, 1
+ substr rx1040_tgt, rx1040_tgt, rx1040_off
+ rx1040_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1044_done
+ goto rxscan1044_scan
+ rxscan1044_loop:
+ ($P10) = rx1040_cur."from"()
+ inc $P10
+ set rx1040_pos, $P10
+ ge rx1040_pos, rx1040_eos, rxscan1044_done
+ rxscan1044_scan:
+ set_addr $I10, rxscan1044_loop
+ rx1040_cur."!mark_push"(0, rx1040_pos, $I10)
+ rxscan1044_done:
+.annotate 'line', 494
# rx subcapture "sym"
- set_addr $I10, rxcap_1000_fail
- rx995_cur."!mark_push"(0, rx995_pos, $I10)
+ set_addr $I10, rxcap_1045_fail
+ rx1040_cur."!mark_push"(0, rx1040_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)
+ add $I11, rx1040_pos, 2
+ gt $I11, rx1040_eos, rx1040_fail
+ sub $I11, rx1040_pos, rx1040_off
+ substr $S10, rx1040_tgt, $I11, 2
+ ne $S10, "++", rx1040_fail
+ add rx1040_pos, 2
+ set_addr $I10, rxcap_1045_fail
+ ($I12, $I11) = rx1040_cur."!mark_peek"($I10)
+ rx1040_cur."!cursor_pos"($I11)
+ ($P10) = rx1040_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1040_pos, "")
+ rx1040_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1000_done
- rxcap_1000_fail:
- goto rx995_fail
- rxcap_1000_done:
+ goto rxcap_1045_done
+ rxcap_1045_fail:
+ goto rx1040_fail
+ rxcap_1045_done:
# rx subrule "O" subtype=capture negate=
- rx995_cur."!cursor_pos"(rx995_pos)
- $P10 = rx995_cur."O"("%autoincrement")
- unless $P10, rx995_fail
- rx995_cur."!mark_push"(0, -1, 0, $P10)
+ rx1040_cur."!cursor_pos"(rx1040_pos)
+ $P10 = rx1040_cur."O"("%autoincrement")
+ unless $P10, rx1040_fail
+ rx1040_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx995_pos = $P10."pos"()
+ rx1040_pos = $P10."pos"()
# rx pass
- 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
+ rx1040_cur."!cursor_pass"(rx1040_pos, "postfix:sym<++>")
+ rx1040_cur."!cursor_debug"("PASS ", "postfix:sym<++>", " at pos=", rx1040_pos)
+ .return (rx1040_cur)
+ rx1040_fail:
+.annotate 'line', 446
+ (rx1040_rep, rx1040_pos, $I10, $P10) = rx1040_cur."!mark_fail"(0)
+ lt rx1040_pos, -1, rx1040_done
+ eq rx1040_pos, -1, rx1040_fail
jump $I10
- rx995_done:
- rx995_cur."!cursor_fail"()
- rx995_cur."!cursor_debug"("FAIL ", "postfix:sym<++>")
- .return (rx995_cur)
+ rx1040_done:
+ rx1040_cur."!cursor_fail"()
+ rx1040_cur."!cursor_debug"("FAIL ", "postfix:sym<++>")
+ .return (rx1040_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__postfix:sym<++>" :subid("257_1275811487.95429") :method
+.annotate 'line', 446
+ $P1042 = self."!PREFIX__!subrule"("O", "++")
+ new $P1043, "ResizablePMCArray"
+ push $P1043, $P1042
+ .return ($P1043)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "postfix:sym<-->" :subid("258_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1047_tgt
+ .local int rx1047_pos
+ .local int rx1047_off
+ .local int rx1047_eos
+ .local int rx1047_rep
+ .local pmc rx1047_cur
+ (rx1047_cur, rx1047_pos, rx1047_tgt) = self."!cursor_start"()
+ rx1047_cur."!cursor_debug"("START ", "postfix:sym<-->")
+ .lex unicode:"$\x{a2}", rx1047_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1047_eos, rx1047_tgt
+ gt rx1047_pos, rx1047_eos, rx1047_done
+ set rx1047_off, 0
+ lt rx1047_pos, 2, rx1047_start
+ sub rx1047_off, rx1047_pos, 1
+ substr rx1047_tgt, rx1047_tgt, rx1047_off
+ rx1047_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1051_done
+ goto rxscan1051_scan
+ rxscan1051_loop:
+ ($P10) = rx1047_cur."from"()
+ inc $P10
+ set rx1047_pos, $P10
+ ge rx1047_pos, rx1047_eos, rxscan1051_done
+ rxscan1051_scan:
+ set_addr $I10, rxscan1051_loop
+ rx1047_cur."!mark_push"(0, rx1047_pos, $I10)
+ rxscan1051_done:
+.annotate 'line', 495
# rx subcapture "sym"
- set_addr $I10, rxcap_1007_fail
- rx1002_cur."!mark_push"(0, rx1002_pos, $I10)
+ set_addr $I10, rxcap_1052_fail
+ rx1047_cur."!mark_push"(0, rx1047_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)
+ add $I11, rx1047_pos, 2
+ gt $I11, rx1047_eos, rx1047_fail
+ sub $I11, rx1047_pos, rx1047_off
+ substr $S10, rx1047_tgt, $I11, 2
+ ne $S10, "--", rx1047_fail
+ add rx1047_pos, 2
+ set_addr $I10, rxcap_1052_fail
+ ($I12, $I11) = rx1047_cur."!mark_peek"($I10)
+ rx1047_cur."!cursor_pos"($I11)
+ ($P10) = rx1047_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1047_pos, "")
+ rx1047_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1007_done
- rxcap_1007_fail:
- goto rx1002_fail
- rxcap_1007_done:
+ goto rxcap_1052_done
+ rxcap_1052_fail:
+ goto rx1047_fail
+ rxcap_1052_done:
# rx subrule "O" subtype=capture negate=
- rx1002_cur."!cursor_pos"(rx1002_pos)
- $P10 = rx1002_cur."O"("%autoincrement")
- unless $P10, rx1002_fail
- rx1002_cur."!mark_push"(0, -1, 0, $P10)
+ rx1047_cur."!cursor_pos"(rx1047_pos)
+ $P10 = rx1047_cur."O"("%autoincrement")
+ unless $P10, rx1047_fail
+ rx1047_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1002_pos = $P10."pos"()
+ rx1047_pos = $P10."pos"()
# rx pass
- 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
+ rx1047_cur."!cursor_pass"(rx1047_pos, "postfix:sym<-->")
+ rx1047_cur."!cursor_debug"("PASS ", "postfix:sym<-->", " at pos=", rx1047_pos)
+ .return (rx1047_cur)
+ rx1047_fail:
+.annotate 'line', 446
+ (rx1047_rep, rx1047_pos, $I10, $P10) = rx1047_cur."!mark_fail"(0)
+ lt rx1047_pos, -1, rx1047_done
+ eq rx1047_pos, -1, rx1047_fail
jump $I10
- rx1002_done:
- rx1002_cur."!cursor_fail"()
- rx1002_cur."!cursor_debug"("FAIL ", "postfix:sym<-->")
- .return (rx1002_cur)
+ rx1047_done:
+ rx1047_cur."!cursor_fail"()
+ rx1047_cur."!cursor_debug"("FAIL ", "postfix:sym<-->")
+ .return (rx1047_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__postfix:sym<-->" :subid("259_1275811487.95429") :method
+.annotate 'line', 446
+ $P1049 = self."!PREFIX__!subrule"("O", "--")
+ new $P1050, "ResizablePMCArray"
+ push $P1050, $P1049
+ .return ($P1050)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<**>" :subid("260_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1054_tgt
+ .local int rx1054_pos
+ .local int rx1054_off
+ .local int rx1054_eos
+ .local int rx1054_rep
+ .local pmc rx1054_cur
+ (rx1054_cur, rx1054_pos, rx1054_tgt) = self."!cursor_start"()
+ rx1054_cur."!cursor_debug"("START ", "infix:sym<**>")
+ .lex unicode:"$\x{a2}", rx1054_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1054_eos, rx1054_tgt
+ gt rx1054_pos, rx1054_eos, rx1054_done
+ set rx1054_off, 0
+ lt rx1054_pos, 2, rx1054_start
+ sub rx1054_off, rx1054_pos, 1
+ substr rx1054_tgt, rx1054_tgt, rx1054_off
+ rx1054_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1058_done
+ goto rxscan1058_scan
+ rxscan1058_loop:
+ ($P10) = rx1054_cur."from"()
+ inc $P10
+ set rx1054_pos, $P10
+ ge rx1054_pos, rx1054_eos, rxscan1058_done
+ rxscan1058_scan:
+ set_addr $I10, rxscan1058_loop
+ rx1054_cur."!mark_push"(0, rx1054_pos, $I10)
+ rxscan1058_done:
+.annotate 'line', 497
# rx subcapture "sym"
- set_addr $I10, rxcap_1014_fail
- rx1009_cur."!mark_push"(0, rx1009_pos, $I10)
+ set_addr $I10, rxcap_1059_fail
+ rx1054_cur."!mark_push"(0, rx1054_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)
+ add $I11, rx1054_pos, 2
+ gt $I11, rx1054_eos, rx1054_fail
+ sub $I11, rx1054_pos, rx1054_off
+ substr $S10, rx1054_tgt, $I11, 2
+ ne $S10, "**", rx1054_fail
+ add rx1054_pos, 2
+ set_addr $I10, rxcap_1059_fail
+ ($I12, $I11) = rx1054_cur."!mark_peek"($I10)
+ rx1054_cur."!cursor_pos"($I11)
+ ($P10) = rx1054_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1054_pos, "")
+ rx1054_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1014_done
- rxcap_1014_fail:
- goto rx1009_fail
- rxcap_1014_done:
+ goto rxcap_1059_done
+ rxcap_1059_fail:
+ goto rx1054_fail
+ rxcap_1059_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1054_cur."!cursor_pos"(rx1054_pos)
+ $P10 = rx1054_cur."O"("%exponentiation, :pirop<pow>")
+ unless $P10, rx1054_fail
+ rx1054_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1009_pos = $P10."pos"()
+ rx1054_pos = $P10."pos"()
# rx pass
- 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
+ rx1054_cur."!cursor_pass"(rx1054_pos, "infix:sym<**>")
+ rx1054_cur."!cursor_debug"("PASS ", "infix:sym<**>", " at pos=", rx1054_pos)
+ .return (rx1054_cur)
+ rx1054_fail:
+.annotate 'line', 446
+ (rx1054_rep, rx1054_pos, $I10, $P10) = rx1054_cur."!mark_fail"(0)
+ lt rx1054_pos, -1, rx1054_done
+ eq rx1054_pos, -1, rx1054_fail
jump $I10
- rx1009_done:
- rx1009_cur."!cursor_fail"()
- rx1009_cur."!cursor_debug"("FAIL ", "infix:sym<**>")
- .return (rx1009_cur)
+ rx1054_done:
+ rx1054_cur."!cursor_fail"()
+ rx1054_cur."!cursor_debug"("FAIL ", "infix:sym<**>")
+ .return (rx1054_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<**>" :subid("261_1275811487.95429") :method
+.annotate 'line', 446
+ $P1056 = self."!PREFIX__!subrule"("O", "**")
+ new $P1057, "ResizablePMCArray"
+ push $P1057, $P1056
+ .return ($P1057)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<+>" :subid("262_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1061_tgt
+ .local int rx1061_pos
+ .local int rx1061_off
+ .local int rx1061_eos
+ .local int rx1061_rep
+ .local pmc rx1061_cur
+ (rx1061_cur, rx1061_pos, rx1061_tgt) = self."!cursor_start"()
+ rx1061_cur."!cursor_debug"("START ", "prefix:sym<+>")
+ .lex unicode:"$\x{a2}", rx1061_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1061_eos, rx1061_tgt
+ gt rx1061_pos, rx1061_eos, rx1061_done
+ set rx1061_off, 0
+ lt rx1061_pos, 2, rx1061_start
+ sub rx1061_off, rx1061_pos, 1
+ substr rx1061_tgt, rx1061_tgt, rx1061_off
+ rx1061_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1065_done
+ goto rxscan1065_scan
+ rxscan1065_loop:
+ ($P10) = rx1061_cur."from"()
+ inc $P10
+ set rx1061_pos, $P10
+ ge rx1061_pos, rx1061_eos, rxscan1065_done
+ rxscan1065_scan:
+ set_addr $I10, rxscan1065_loop
+ rx1061_cur."!mark_push"(0, rx1061_pos, $I10)
+ rxscan1065_done:
+.annotate 'line', 499
# rx subcapture "sym"
- set_addr $I10, rxcap_1021_fail
- rx1016_cur."!mark_push"(0, rx1016_pos, $I10)
+ set_addr $I10, rxcap_1066_fail
+ rx1061_cur."!mark_push"(0, rx1061_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)
+ add $I11, rx1061_pos, 1
+ gt $I11, rx1061_eos, rx1061_fail
+ sub $I11, rx1061_pos, rx1061_off
+ substr $S10, rx1061_tgt, $I11, 1
+ ne $S10, "+", rx1061_fail
+ add rx1061_pos, 1
+ set_addr $I10, rxcap_1066_fail
+ ($I12, $I11) = rx1061_cur."!mark_peek"($I10)
+ rx1061_cur."!cursor_pos"($I11)
+ ($P10) = rx1061_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1061_pos, "")
+ rx1061_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1021_done
- rxcap_1021_fail:
- goto rx1016_fail
- rxcap_1021_done:
+ goto rxcap_1066_done
+ rxcap_1066_fail:
+ goto rx1061_fail
+ rxcap_1066_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1061_cur."!cursor_pos"(rx1061_pos)
+ $P10 = rx1061_cur."O"("%symbolic_unary, :pirop<set N*>")
+ unless $P10, rx1061_fail
+ rx1061_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1016_pos = $P10."pos"()
+ rx1061_pos = $P10."pos"()
# rx pass
- 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
+ rx1061_cur."!cursor_pass"(rx1061_pos, "prefix:sym<+>")
+ rx1061_cur."!cursor_debug"("PASS ", "prefix:sym<+>", " at pos=", rx1061_pos)
+ .return (rx1061_cur)
+ rx1061_fail:
+.annotate 'line', 446
+ (rx1061_rep, rx1061_pos, $I10, $P10) = rx1061_cur."!mark_fail"(0)
+ lt rx1061_pos, -1, rx1061_done
+ eq rx1061_pos, -1, rx1061_fail
jump $I10
- rx1016_done:
- rx1016_cur."!cursor_fail"()
- rx1016_cur."!cursor_debug"("FAIL ", "prefix:sym<+>")
- .return (rx1016_cur)
+ rx1061_done:
+ rx1061_cur."!cursor_fail"()
+ rx1061_cur."!cursor_debug"("FAIL ", "prefix:sym<+>")
+ .return (rx1061_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__prefix:sym<+>" :subid("263_1275811487.95429") :method
+.annotate 'line', 446
+ $P1063 = self."!PREFIX__!subrule"("O", "+")
+ new $P1064, "ResizablePMCArray"
+ push $P1064, $P1063
+ .return ($P1064)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<~>" :subid("264_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1068_tgt
+ .local int rx1068_pos
+ .local int rx1068_off
+ .local int rx1068_eos
+ .local int rx1068_rep
+ .local pmc rx1068_cur
+ (rx1068_cur, rx1068_pos, rx1068_tgt) = self."!cursor_start"()
+ rx1068_cur."!cursor_debug"("START ", "prefix:sym<~>")
+ .lex unicode:"$\x{a2}", rx1068_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1068_eos, rx1068_tgt
+ gt rx1068_pos, rx1068_eos, rx1068_done
+ set rx1068_off, 0
+ lt rx1068_pos, 2, rx1068_start
+ sub rx1068_off, rx1068_pos, 1
+ substr rx1068_tgt, rx1068_tgt, rx1068_off
+ rx1068_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1072_done
+ goto rxscan1072_scan
+ rxscan1072_loop:
+ ($P10) = rx1068_cur."from"()
+ inc $P10
+ set rx1068_pos, $P10
+ ge rx1068_pos, rx1068_eos, rxscan1072_done
+ rxscan1072_scan:
+ set_addr $I10, rxscan1072_loop
+ rx1068_cur."!mark_push"(0, rx1068_pos, $I10)
+ rxscan1072_done:
+.annotate 'line', 500
# rx subcapture "sym"
- set_addr $I10, rxcap_1028_fail
- rx1023_cur."!mark_push"(0, rx1023_pos, $I10)
+ set_addr $I10, rxcap_1073_fail
+ rx1068_cur."!mark_push"(0, rx1068_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)
+ add $I11, rx1068_pos, 1
+ gt $I11, rx1068_eos, rx1068_fail
+ sub $I11, rx1068_pos, rx1068_off
+ substr $S10, rx1068_tgt, $I11, 1
+ ne $S10, "~", rx1068_fail
+ add rx1068_pos, 1
+ set_addr $I10, rxcap_1073_fail
+ ($I12, $I11) = rx1068_cur."!mark_peek"($I10)
+ rx1068_cur."!cursor_pos"($I11)
+ ($P10) = rx1068_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1068_pos, "")
+ rx1068_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1028_done
- rxcap_1028_fail:
- goto rx1023_fail
- rxcap_1028_done:
+ goto rxcap_1073_done
+ rxcap_1073_fail:
+ goto rx1068_fail
+ rxcap_1073_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)
+ rx1068_cur."!cursor_pos"(rx1068_pos)
+ $P10 = rx1068_cur."O"("%symbolic_unary, :pirop<set S*>")
+ unless $P10, rx1068_fail
+ rx1068_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1023_pos = $P10."pos"()
+ rx1068_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
+ rx1068_cur."!cursor_pass"(rx1068_pos, "prefix:sym<~>")
+ rx1068_cur."!cursor_debug"("PASS ", "prefix:sym<~>", " at pos=", rx1068_pos)
+ .return (rx1068_cur)
+ rx1068_fail:
+.annotate 'line', 446
+ (rx1068_rep, rx1068_pos, $I10, $P10) = rx1068_cur."!mark_fail"(0)
+ lt rx1068_pos, -1, rx1068_done
+ eq rx1068_pos, -1, rx1068_fail
jump $I10
- rx1023_done:
- rx1023_cur."!cursor_fail"()
- rx1023_cur."!cursor_debug"("FAIL ", "prefix:sym<~>")
- .return (rx1023_cur)
+ rx1068_done:
+ rx1068_cur."!cursor_fail"()
+ rx1068_cur."!cursor_debug"("FAIL ", "prefix:sym<~>")
+ .return (rx1068_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)
+.sub "!PREFIX__prefix:sym<~>" :subid("265_1275811487.95429") :method
+.annotate 'line', 446
+ $P1070 = self."!PREFIX__!subrule"("O", "~")
+ new $P1071, "ResizablePMCArray"
+ push $P1071, $P1070
+ .return ($P1071)
.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
+.sub "prefix:sym<->" :subid("266_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1075_tgt
+ .local int rx1075_pos
+ .local int rx1075_off
+ .local int rx1075_eos
+ .local int rx1075_rep
+ .local pmc rx1075_cur
+ (rx1075_cur, rx1075_pos, rx1075_tgt) = self."!cursor_start"()
+ rx1075_cur."!cursor_debug"("START ", "prefix:sym<->")
+ .lex unicode:"$\x{a2}", rx1075_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1075_eos, rx1075_tgt
+ gt rx1075_pos, rx1075_eos, rx1075_done
+ set rx1075_off, 0
+ lt rx1075_pos, 2, rx1075_start
+ sub rx1075_off, rx1075_pos, 1
+ substr rx1075_tgt, rx1075_tgt, rx1075_off
+ rx1075_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1078_done
+ goto rxscan1078_scan
+ rxscan1078_loop:
+ ($P10) = rx1075_cur."from"()
+ inc $P10
+ set rx1075_pos, $P10
+ ge rx1075_pos, rx1075_eos, rxscan1078_done
+ rxscan1078_scan:
+ set_addr $I10, rxscan1078_loop
+ rx1075_cur."!mark_push"(0, rx1075_pos, $I10)
+ rxscan1078_done:
+.annotate 'line', 501
# rx subcapture "sym"
- set_addr $I10, rxcap_1034_fail
- rx1030_cur."!mark_push"(0, rx1030_pos, $I10)
+ set_addr $I10, rxcap_1079_fail
+ rx1075_cur."!mark_push"(0, rx1075_pos, $I10)
# rx literal "-"
- 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)
+ add $I11, rx1075_pos, 1
+ gt $I11, rx1075_eos, rx1075_fail
+ sub $I11, rx1075_pos, rx1075_off
+ substr $S10, rx1075_tgt, $I11, 1
+ ne $S10, "-", rx1075_fail
+ add rx1075_pos, 1
+ set_addr $I10, rxcap_1079_fail
+ ($I12, $I11) = rx1075_cur."!mark_peek"($I10)
+ rx1075_cur."!cursor_pos"($I11)
+ ($P10) = rx1075_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1075_pos, "")
+ rx1075_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1034_done
- rxcap_1034_fail:
- goto rx1030_fail
- rxcap_1034_done:
+ goto rxcap_1079_done
+ rxcap_1079_fail:
+ goto rx1075_fail
+ rxcap_1079_done:
# rx enumcharlist negate=1 zerowidth
- ge rx1030_pos, rx1030_eos, rx1030_fail
- sub $I10, rx1030_pos, rx1030_off
- substr $S10, rx1030_tgt, $I10, 1
+ ge rx1075_pos, rx1075_eos, rx1075_fail
+ sub $I10, rx1075_pos, rx1075_off
+ substr $S10, rx1075_tgt, $I10, 1
index $I11, ">", $S10
- ge $I11, 0, rx1030_fail
+ ge $I11, 0, rx1075_fail
# rx subrule "number" subtype=zerowidth negate=1
- rx1030_cur."!cursor_pos"(rx1030_pos)
- $P10 = rx1030_cur."number"()
- if $P10, rx1030_fail
+ rx1075_cur."!cursor_pos"(rx1075_pos)
+ $P10 = rx1075_cur."number"()
+ if $P10, rx1075_fail
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1075_cur."!cursor_pos"(rx1075_pos)
+ $P10 = rx1075_cur."O"("%symbolic_unary, :pirop<neg>")
+ unless $P10, rx1075_fail
+ rx1075_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1030_pos = $P10."pos"()
+ rx1075_pos = $P10."pos"()
# rx pass
- 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
+ rx1075_cur."!cursor_pass"(rx1075_pos, "prefix:sym<->")
+ rx1075_cur."!cursor_debug"("PASS ", "prefix:sym<->", " at pos=", rx1075_pos)
+ .return (rx1075_cur)
+ rx1075_fail:
+.annotate 'line', 446
+ (rx1075_rep, rx1075_pos, $I10, $P10) = rx1075_cur."!mark_fail"(0)
+ lt rx1075_pos, -1, rx1075_done
+ eq rx1075_pos, -1, rx1075_fail
jump $I10
- rx1030_done:
- rx1030_cur."!cursor_fail"()
- rx1030_cur."!cursor_debug"("FAIL ", "prefix:sym<->")
- .return (rx1030_cur)
+ rx1075_done:
+ rx1075_cur."!cursor_fail"()
+ rx1075_cur."!cursor_debug"("FAIL ", "prefix:sym<->")
+ .return (rx1075_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<->" :subid("258_1275117591.97262") :method
-.annotate 'line', 433
- new $P1032, "ResizablePMCArray"
- push $P1032, "-"
- .return ($P1032)
+.sub "!PREFIX__prefix:sym<->" :subid("267_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1077, "ResizablePMCArray"
+ push $P1077, "-"
+ .return ($P1077)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<?>" :subid("268_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1081_tgt
+ .local int rx1081_pos
+ .local int rx1081_off
+ .local int rx1081_eos
+ .local int rx1081_rep
+ .local pmc rx1081_cur
+ (rx1081_cur, rx1081_pos, rx1081_tgt) = self."!cursor_start"()
+ rx1081_cur."!cursor_debug"("START ", "prefix:sym<?>")
+ .lex unicode:"$\x{a2}", rx1081_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1081_eos, rx1081_tgt
+ gt rx1081_pos, rx1081_eos, rx1081_done
+ set rx1081_off, 0
+ lt rx1081_pos, 2, rx1081_start
+ sub rx1081_off, rx1081_pos, 1
+ substr rx1081_tgt, rx1081_tgt, rx1081_off
+ rx1081_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1085_done
+ goto rxscan1085_scan
+ rxscan1085_loop:
+ ($P10) = rx1081_cur."from"()
+ inc $P10
+ set rx1081_pos, $P10
+ ge rx1081_pos, rx1081_eos, rxscan1085_done
+ rxscan1085_scan:
+ set_addr $I10, rxscan1085_loop
+ rx1081_cur."!mark_push"(0, rx1081_pos, $I10)
+ rxscan1085_done:
+.annotate 'line', 502
# rx subcapture "sym"
- set_addr $I10, rxcap_1041_fail
- rx1036_cur."!mark_push"(0, rx1036_pos, $I10)
+ set_addr $I10, rxcap_1086_fail
+ rx1081_cur."!mark_push"(0, rx1081_pos, $I10)
# rx literal "?"
- 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)
+ add $I11, rx1081_pos, 1
+ gt $I11, rx1081_eos, rx1081_fail
+ sub $I11, rx1081_pos, rx1081_off
+ substr $S10, rx1081_tgt, $I11, 1
+ ne $S10, "?", rx1081_fail
+ add rx1081_pos, 1
+ set_addr $I10, rxcap_1086_fail
+ ($I12, $I11) = rx1081_cur."!mark_peek"($I10)
+ rx1081_cur."!cursor_pos"($I11)
+ ($P10) = rx1081_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1081_pos, "")
+ rx1081_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1041_done
- rxcap_1041_fail:
- goto rx1036_fail
- rxcap_1041_done:
+ goto rxcap_1086_done
+ rxcap_1086_fail:
+ goto rx1081_fail
+ rxcap_1086_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1081_cur."!cursor_pos"(rx1081_pos)
+ $P10 = rx1081_cur."O"("%symbolic_unary, :pirop<istrue>")
+ unless $P10, rx1081_fail
+ rx1081_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1036_pos = $P10."pos"()
+ rx1081_pos = $P10."pos"()
# rx pass
- 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
+ rx1081_cur."!cursor_pass"(rx1081_pos, "prefix:sym<?>")
+ rx1081_cur."!cursor_debug"("PASS ", "prefix:sym<?>", " at pos=", rx1081_pos)
+ .return (rx1081_cur)
+ rx1081_fail:
+.annotate 'line', 446
+ (rx1081_rep, rx1081_pos, $I10, $P10) = rx1081_cur."!mark_fail"(0)
+ lt rx1081_pos, -1, rx1081_done
+ eq rx1081_pos, -1, rx1081_fail
jump $I10
- rx1036_done:
- rx1036_cur."!cursor_fail"()
- rx1036_cur."!cursor_debug"("FAIL ", "prefix:sym<?>")
- .return (rx1036_cur)
+ rx1081_done:
+ rx1081_cur."!cursor_fail"()
+ rx1081_cur."!cursor_debug"("FAIL ", "prefix:sym<?>")
+ .return (rx1081_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__prefix:sym<?>" :subid("269_1275811487.95429") :method
+.annotate 'line', 446
+ $P1083 = self."!PREFIX__!subrule"("O", "?")
+ new $P1084, "ResizablePMCArray"
+ push $P1084, $P1083
+ .return ($P1084)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<!>" :subid("270_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1088_tgt
+ .local int rx1088_pos
+ .local int rx1088_off
+ .local int rx1088_eos
+ .local int rx1088_rep
+ .local pmc rx1088_cur
+ (rx1088_cur, rx1088_pos, rx1088_tgt) = self."!cursor_start"()
+ rx1088_cur."!cursor_debug"("START ", "prefix:sym<!>")
+ .lex unicode:"$\x{a2}", rx1088_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1088_eos, rx1088_tgt
+ gt rx1088_pos, rx1088_eos, rx1088_done
+ set rx1088_off, 0
+ lt rx1088_pos, 2, rx1088_start
+ sub rx1088_off, rx1088_pos, 1
+ substr rx1088_tgt, rx1088_tgt, rx1088_off
+ rx1088_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1092_done
+ goto rxscan1092_scan
+ rxscan1092_loop:
+ ($P10) = rx1088_cur."from"()
+ inc $P10
+ set rx1088_pos, $P10
+ ge rx1088_pos, rx1088_eos, rxscan1092_done
+ rxscan1092_scan:
+ set_addr $I10, rxscan1092_loop
+ rx1088_cur."!mark_push"(0, rx1088_pos, $I10)
+ rxscan1092_done:
+.annotate 'line', 503
# rx subcapture "sym"
- set_addr $I10, rxcap_1048_fail
- rx1043_cur."!mark_push"(0, rx1043_pos, $I10)
+ set_addr $I10, rxcap_1093_fail
+ rx1088_cur."!mark_push"(0, rx1088_pos, $I10)
# rx literal "!"
- 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)
+ add $I11, rx1088_pos, 1
+ gt $I11, rx1088_eos, rx1088_fail
+ sub $I11, rx1088_pos, rx1088_off
+ substr $S10, rx1088_tgt, $I11, 1
+ ne $S10, "!", rx1088_fail
+ add rx1088_pos, 1
+ set_addr $I10, rxcap_1093_fail
+ ($I12, $I11) = rx1088_cur."!mark_peek"($I10)
+ rx1088_cur."!cursor_pos"($I11)
+ ($P10) = rx1088_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1088_pos, "")
+ rx1088_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1048_done
- rxcap_1048_fail:
- goto rx1043_fail
- rxcap_1048_done:
+ goto rxcap_1093_done
+ rxcap_1093_fail:
+ goto rx1088_fail
+ rxcap_1093_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1088_cur."!cursor_pos"(rx1088_pos)
+ $P10 = rx1088_cur."O"("%symbolic_unary, :pirop<isfalse>")
+ unless $P10, rx1088_fail
+ rx1088_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1043_pos = $P10."pos"()
+ rx1088_pos = $P10."pos"()
# rx pass
- 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
+ rx1088_cur."!cursor_pass"(rx1088_pos, "prefix:sym<!>")
+ rx1088_cur."!cursor_debug"("PASS ", "prefix:sym<!>", " at pos=", rx1088_pos)
+ .return (rx1088_cur)
+ rx1088_fail:
+.annotate 'line', 446
+ (rx1088_rep, rx1088_pos, $I10, $P10) = rx1088_cur."!mark_fail"(0)
+ lt rx1088_pos, -1, rx1088_done
+ eq rx1088_pos, -1, rx1088_fail
jump $I10
- rx1043_done:
- rx1043_cur."!cursor_fail"()
- rx1043_cur."!cursor_debug"("FAIL ", "prefix:sym<!>")
- .return (rx1043_cur)
+ rx1088_done:
+ rx1088_cur."!cursor_fail"()
+ rx1088_cur."!cursor_debug"("FAIL ", "prefix:sym<!>")
+ .return (rx1088_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__prefix:sym<!>" :subid("271_1275811487.95429") :method
+.annotate 'line', 446
+ $P1090 = self."!PREFIX__!subrule"("O", "!")
+ new $P1091, "ResizablePMCArray"
+ push $P1091, $P1090
+ .return ($P1091)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<|>" :subid("272_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1095_tgt
+ .local int rx1095_pos
+ .local int rx1095_off
+ .local int rx1095_eos
+ .local int rx1095_rep
+ .local pmc rx1095_cur
+ (rx1095_cur, rx1095_pos, rx1095_tgt) = self."!cursor_start"()
+ rx1095_cur."!cursor_debug"("START ", "prefix:sym<|>")
+ .lex unicode:"$\x{a2}", rx1095_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1095_eos, rx1095_tgt
+ gt rx1095_pos, rx1095_eos, rx1095_done
+ set rx1095_off, 0
+ lt rx1095_pos, 2, rx1095_start
+ sub rx1095_off, rx1095_pos, 1
+ substr rx1095_tgt, rx1095_tgt, rx1095_off
+ rx1095_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1099_done
+ goto rxscan1099_scan
+ rxscan1099_loop:
+ ($P10) = rx1095_cur."from"()
+ inc $P10
+ set rx1095_pos, $P10
+ ge rx1095_pos, rx1095_eos, rxscan1099_done
+ rxscan1099_scan:
+ set_addr $I10, rxscan1099_loop
+ rx1095_cur."!mark_push"(0, rx1095_pos, $I10)
+ rxscan1099_done:
+.annotate 'line', 504
# rx subcapture "sym"
- set_addr $I10, rxcap_1055_fail
- rx1050_cur."!mark_push"(0, rx1050_pos, $I10)
+ set_addr $I10, rxcap_1100_fail
+ rx1095_cur."!mark_push"(0, rx1095_pos, $I10)
# rx literal "|"
- 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)
+ add $I11, rx1095_pos, 1
+ gt $I11, rx1095_eos, rx1095_fail
+ sub $I11, rx1095_pos, rx1095_off
+ substr $S10, rx1095_tgt, $I11, 1
+ ne $S10, "|", rx1095_fail
+ add rx1095_pos, 1
+ set_addr $I10, rxcap_1100_fail
+ ($I12, $I11) = rx1095_cur."!mark_peek"($I10)
+ rx1095_cur."!cursor_pos"($I11)
+ ($P10) = rx1095_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1095_pos, "")
+ rx1095_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1055_done
- rxcap_1055_fail:
- goto rx1050_fail
- rxcap_1055_done:
+ goto rxcap_1100_done
+ rxcap_1100_fail:
+ goto rx1095_fail
+ rxcap_1100_done:
# rx subrule "O" subtype=capture negate=
- rx1050_cur."!cursor_pos"(rx1050_pos)
- $P10 = rx1050_cur."O"("%symbolic_unary")
- unless $P10, rx1050_fail
- rx1050_cur."!mark_push"(0, -1, 0, $P10)
+ rx1095_cur."!cursor_pos"(rx1095_pos)
+ $P10 = rx1095_cur."O"("%symbolic_unary")
+ unless $P10, rx1095_fail
+ rx1095_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1050_pos = $P10."pos"()
+ rx1095_pos = $P10."pos"()
# rx pass
- 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
+ rx1095_cur."!cursor_pass"(rx1095_pos, "prefix:sym<|>")
+ rx1095_cur."!cursor_debug"("PASS ", "prefix:sym<|>", " at pos=", rx1095_pos)
+ .return (rx1095_cur)
+ rx1095_fail:
+.annotate 'line', 446
+ (rx1095_rep, rx1095_pos, $I10, $P10) = rx1095_cur."!mark_fail"(0)
+ lt rx1095_pos, -1, rx1095_done
+ eq rx1095_pos, -1, rx1095_fail
jump $I10
- rx1050_done:
- rx1050_cur."!cursor_fail"()
- rx1050_cur."!cursor_debug"("FAIL ", "prefix:sym<|>")
- .return (rx1050_cur)
+ rx1095_done:
+ rx1095_cur."!cursor_fail"()
+ rx1095_cur."!cursor_debug"("FAIL ", "prefix:sym<|>")
+ .return (rx1095_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__prefix:sym<|>" :subid("273_1275811487.95429") :method
+.annotate 'line', 446
+ $P1097 = self."!PREFIX__!subrule"("O", "|")
+ new $P1098, "ResizablePMCArray"
+ push $P1098, $P1097
+ .return ($P1098)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<*>" :subid("274_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1102_tgt
+ .local int rx1102_pos
+ .local int rx1102_off
+ .local int rx1102_eos
+ .local int rx1102_rep
+ .local pmc rx1102_cur
+ (rx1102_cur, rx1102_pos, rx1102_tgt) = self."!cursor_start"()
+ rx1102_cur."!cursor_debug"("START ", "infix:sym<*>")
+ .lex unicode:"$\x{a2}", rx1102_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1102_eos, rx1102_tgt
+ gt rx1102_pos, rx1102_eos, rx1102_done
+ set rx1102_off, 0
+ lt rx1102_pos, 2, rx1102_start
+ sub rx1102_off, rx1102_pos, 1
+ substr rx1102_tgt, rx1102_tgt, rx1102_off
+ rx1102_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1106_done
+ goto rxscan1106_scan
+ rxscan1106_loop:
+ ($P10) = rx1102_cur."from"()
+ inc $P10
+ set rx1102_pos, $P10
+ ge rx1102_pos, rx1102_eos, rxscan1106_done
+ rxscan1106_scan:
+ set_addr $I10, rxscan1106_loop
+ rx1102_cur."!mark_push"(0, rx1102_pos, $I10)
+ rxscan1106_done:
+.annotate 'line', 506
# rx subcapture "sym"
- set_addr $I10, rxcap_1062_fail
- rx1057_cur."!mark_push"(0, rx1057_pos, $I10)
+ set_addr $I10, rxcap_1107_fail
+ rx1102_cur."!mark_push"(0, rx1102_pos, $I10)
# rx literal "*"
- 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)
+ add $I11, rx1102_pos, 1
+ gt $I11, rx1102_eos, rx1102_fail
+ sub $I11, rx1102_pos, rx1102_off
+ substr $S10, rx1102_tgt, $I11, 1
+ ne $S10, "*", rx1102_fail
+ add rx1102_pos, 1
+ set_addr $I10, rxcap_1107_fail
+ ($I12, $I11) = rx1102_cur."!mark_peek"($I10)
+ rx1102_cur."!cursor_pos"($I11)
+ ($P10) = rx1102_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1102_pos, "")
+ rx1102_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1062_done
- rxcap_1062_fail:
- goto rx1057_fail
- rxcap_1062_done:
+ goto rxcap_1107_done
+ rxcap_1107_fail:
+ goto rx1102_fail
+ rxcap_1107_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1102_cur."!cursor_pos"(rx1102_pos)
+ $P10 = rx1102_cur."O"("%multiplicative, :pirop<mul>")
+ unless $P10, rx1102_fail
+ rx1102_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1057_pos = $P10."pos"()
+ rx1102_pos = $P10."pos"()
# rx pass
- 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
+ rx1102_cur."!cursor_pass"(rx1102_pos, "infix:sym<*>")
+ rx1102_cur."!cursor_debug"("PASS ", "infix:sym<*>", " at pos=", rx1102_pos)
+ .return (rx1102_cur)
+ rx1102_fail:
+.annotate 'line', 446
+ (rx1102_rep, rx1102_pos, $I10, $P10) = rx1102_cur."!mark_fail"(0)
+ lt rx1102_pos, -1, rx1102_done
+ eq rx1102_pos, -1, rx1102_fail
jump $I10
- rx1057_done:
- rx1057_cur."!cursor_fail"()
- rx1057_cur."!cursor_debug"("FAIL ", "infix:sym<*>")
- .return (rx1057_cur)
+ rx1102_done:
+ rx1102_cur."!cursor_fail"()
+ rx1102_cur."!cursor_debug"("FAIL ", "infix:sym<*>")
+ .return (rx1102_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<*>" :subid("275_1275811487.95429") :method
+.annotate 'line', 446
+ $P1104 = self."!PREFIX__!subrule"("O", "*")
+ new $P1105, "ResizablePMCArray"
+ push $P1105, $P1104
+ .return ($P1105)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym</>" :subid("276_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1109_tgt
+ .local int rx1109_pos
+ .local int rx1109_off
+ .local int rx1109_eos
+ .local int rx1109_rep
+ .local pmc rx1109_cur
+ (rx1109_cur, rx1109_pos, rx1109_tgt) = self."!cursor_start"()
+ rx1109_cur."!cursor_debug"("START ", "infix:sym</>")
+ .lex unicode:"$\x{a2}", rx1109_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1109_eos, rx1109_tgt
+ gt rx1109_pos, rx1109_eos, rx1109_done
+ set rx1109_off, 0
+ lt rx1109_pos, 2, rx1109_start
+ sub rx1109_off, rx1109_pos, 1
+ substr rx1109_tgt, rx1109_tgt, rx1109_off
+ rx1109_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1113_done
+ goto rxscan1113_scan
+ rxscan1113_loop:
+ ($P10) = rx1109_cur."from"()
+ inc $P10
+ set rx1109_pos, $P10
+ ge rx1109_pos, rx1109_eos, rxscan1113_done
+ rxscan1113_scan:
+ set_addr $I10, rxscan1113_loop
+ rx1109_cur."!mark_push"(0, rx1109_pos, $I10)
+ rxscan1113_done:
+.annotate 'line', 507
# rx subcapture "sym"
- set_addr $I10, rxcap_1069_fail
- rx1064_cur."!mark_push"(0, rx1064_pos, $I10)
+ set_addr $I10, rxcap_1114_fail
+ rx1109_cur."!mark_push"(0, rx1109_pos, $I10)
# rx literal "/"
- 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)
+ add $I11, rx1109_pos, 1
+ gt $I11, rx1109_eos, rx1109_fail
+ sub $I11, rx1109_pos, rx1109_off
+ substr $S10, rx1109_tgt, $I11, 1
+ ne $S10, "/", rx1109_fail
+ add rx1109_pos, 1
+ set_addr $I10, rxcap_1114_fail
+ ($I12, $I11) = rx1109_cur."!mark_peek"($I10)
+ rx1109_cur."!cursor_pos"($I11)
+ ($P10) = rx1109_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1109_pos, "")
+ rx1109_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1069_done
- rxcap_1069_fail:
- goto rx1064_fail
- rxcap_1069_done:
+ goto rxcap_1114_done
+ rxcap_1114_fail:
+ goto rx1109_fail
+ rxcap_1114_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1109_cur."!cursor_pos"(rx1109_pos)
+ $P10 = rx1109_cur."O"("%multiplicative, :pirop<div>")
+ unless $P10, rx1109_fail
+ rx1109_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1064_pos = $P10."pos"()
+ rx1109_pos = $P10."pos"()
# rx pass
- 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
+ rx1109_cur."!cursor_pass"(rx1109_pos, "infix:sym</>")
+ rx1109_cur."!cursor_debug"("PASS ", "infix:sym</>", " at pos=", rx1109_pos)
+ .return (rx1109_cur)
+ rx1109_fail:
+.annotate 'line', 446
+ (rx1109_rep, rx1109_pos, $I10, $P10) = rx1109_cur."!mark_fail"(0)
+ lt rx1109_pos, -1, rx1109_done
+ eq rx1109_pos, -1, rx1109_fail
jump $I10
- rx1064_done:
- rx1064_cur."!cursor_fail"()
- rx1064_cur."!cursor_debug"("FAIL ", "infix:sym</>")
- .return (rx1064_cur)
+ rx1109_done:
+ rx1109_cur."!cursor_fail"()
+ rx1109_cur."!cursor_debug"("FAIL ", "infix:sym</>")
+ .return (rx1109_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym</>" :subid("277_1275811487.95429") :method
+.annotate 'line', 446
+ $P1111 = self."!PREFIX__!subrule"("O", "/")
+ new $P1112, "ResizablePMCArray"
+ push $P1112, $P1111
+ .return ($P1112)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<%>" :subid("278_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1116_tgt
+ .local int rx1116_pos
+ .local int rx1116_off
+ .local int rx1116_eos
+ .local int rx1116_rep
+ .local pmc rx1116_cur
+ (rx1116_cur, rx1116_pos, rx1116_tgt) = self."!cursor_start"()
+ rx1116_cur."!cursor_debug"("START ", "infix:sym<%>")
+ .lex unicode:"$\x{a2}", rx1116_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1116_eos, rx1116_tgt
+ gt rx1116_pos, rx1116_eos, rx1116_done
+ set rx1116_off, 0
+ lt rx1116_pos, 2, rx1116_start
+ sub rx1116_off, rx1116_pos, 1
+ substr rx1116_tgt, rx1116_tgt, rx1116_off
+ rx1116_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1120_done
+ goto rxscan1120_scan
+ rxscan1120_loop:
+ ($P10) = rx1116_cur."from"()
+ inc $P10
+ set rx1116_pos, $P10
+ ge rx1116_pos, rx1116_eos, rxscan1120_done
+ rxscan1120_scan:
+ set_addr $I10, rxscan1120_loop
+ rx1116_cur."!mark_push"(0, rx1116_pos, $I10)
+ rxscan1120_done:
+.annotate 'line', 508
# rx subcapture "sym"
- set_addr $I10, rxcap_1076_fail
- rx1071_cur."!mark_push"(0, rx1071_pos, $I10)
+ set_addr $I10, rxcap_1121_fail
+ rx1116_cur."!mark_push"(0, rx1116_pos, $I10)
# rx literal "%"
- 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)
+ add $I11, rx1116_pos, 1
+ gt $I11, rx1116_eos, rx1116_fail
+ sub $I11, rx1116_pos, rx1116_off
+ substr $S10, rx1116_tgt, $I11, 1
+ ne $S10, "%", rx1116_fail
+ add rx1116_pos, 1
+ set_addr $I10, rxcap_1121_fail
+ ($I12, $I11) = rx1116_cur."!mark_peek"($I10)
+ rx1116_cur."!cursor_pos"($I11)
+ ($P10) = rx1116_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1116_pos, "")
+ rx1116_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1076_done
- rxcap_1076_fail:
- goto rx1071_fail
- rxcap_1076_done:
+ goto rxcap_1121_done
+ rxcap_1121_fail:
+ goto rx1116_fail
+ rxcap_1121_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1116_cur."!cursor_pos"(rx1116_pos)
+ $P10 = rx1116_cur."O"("%multiplicative, :pirop<mod>")
+ unless $P10, rx1116_fail
+ rx1116_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1071_pos = $P10."pos"()
+ rx1116_pos = $P10."pos"()
# rx pass
- 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
+ rx1116_cur."!cursor_pass"(rx1116_pos, "infix:sym<%>")
+ rx1116_cur."!cursor_debug"("PASS ", "infix:sym<%>", " at pos=", rx1116_pos)
+ .return (rx1116_cur)
+ rx1116_fail:
+.annotate 'line', 446
+ (rx1116_rep, rx1116_pos, $I10, $P10) = rx1116_cur."!mark_fail"(0)
+ lt rx1116_pos, -1, rx1116_done
+ eq rx1116_pos, -1, rx1116_fail
jump $I10
- rx1071_done:
- rx1071_cur."!cursor_fail"()
- rx1071_cur."!cursor_debug"("FAIL ", "infix:sym<%>")
- .return (rx1071_cur)
+ rx1116_done:
+ rx1116_cur."!cursor_fail"()
+ rx1116_cur."!cursor_debug"("FAIL ", "infix:sym<%>")
+ .return (rx1116_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<%>" :subid("279_1275811487.95429") :method
+.annotate 'line', 446
+ $P1118 = self."!PREFIX__!subrule"("O", "%")
+ new $P1119, "ResizablePMCArray"
+ push $P1119, $P1118
+ .return ($P1119)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<+>" :subid("280_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1123_tgt
+ .local int rx1123_pos
+ .local int rx1123_off
+ .local int rx1123_eos
+ .local int rx1123_rep
+ .local pmc rx1123_cur
+ (rx1123_cur, rx1123_pos, rx1123_tgt) = self."!cursor_start"()
+ rx1123_cur."!cursor_debug"("START ", "infix:sym<+>")
+ .lex unicode:"$\x{a2}", rx1123_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1123_eos, rx1123_tgt
+ gt rx1123_pos, rx1123_eos, rx1123_done
+ set rx1123_off, 0
+ lt rx1123_pos, 2, rx1123_start
+ sub rx1123_off, rx1123_pos, 1
+ substr rx1123_tgt, rx1123_tgt, rx1123_off
+ rx1123_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1127_done
+ goto rxscan1127_scan
+ rxscan1127_loop:
+ ($P10) = rx1123_cur."from"()
+ inc $P10
+ set rx1123_pos, $P10
+ ge rx1123_pos, rx1123_eos, rxscan1127_done
+ rxscan1127_scan:
+ set_addr $I10, rxscan1127_loop
+ rx1123_cur."!mark_push"(0, rx1123_pos, $I10)
+ rxscan1127_done:
+.annotate 'line', 510
# rx subcapture "sym"
- set_addr $I10, rxcap_1083_fail
- rx1078_cur."!mark_push"(0, rx1078_pos, $I10)
+ set_addr $I10, rxcap_1128_fail
+ rx1123_cur."!mark_push"(0, rx1123_pos, $I10)
# rx literal "+"
- 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)
+ add $I11, rx1123_pos, 1
+ gt $I11, rx1123_eos, rx1123_fail
+ sub $I11, rx1123_pos, rx1123_off
+ substr $S10, rx1123_tgt, $I11, 1
+ ne $S10, "+", rx1123_fail
+ add rx1123_pos, 1
+ set_addr $I10, rxcap_1128_fail
+ ($I12, $I11) = rx1123_cur."!mark_peek"($I10)
+ rx1123_cur."!cursor_pos"($I11)
+ ($P10) = rx1123_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1123_pos, "")
+ rx1123_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1083_done
- rxcap_1083_fail:
- goto rx1078_fail
- rxcap_1083_done:
+ goto rxcap_1128_done
+ rxcap_1128_fail:
+ goto rx1123_fail
+ rxcap_1128_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1123_cur."!cursor_pos"(rx1123_pos)
+ $P10 = rx1123_cur."O"("%additive, :pirop<add>")
+ unless $P10, rx1123_fail
+ rx1123_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1078_pos = $P10."pos"()
+ rx1123_pos = $P10."pos"()
# rx pass
- 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
+ rx1123_cur."!cursor_pass"(rx1123_pos, "infix:sym<+>")
+ rx1123_cur."!cursor_debug"("PASS ", "infix:sym<+>", " at pos=", rx1123_pos)
+ .return (rx1123_cur)
+ rx1123_fail:
+.annotate 'line', 446
+ (rx1123_rep, rx1123_pos, $I10, $P10) = rx1123_cur."!mark_fail"(0)
+ lt rx1123_pos, -1, rx1123_done
+ eq rx1123_pos, -1, rx1123_fail
jump $I10
- rx1078_done:
- rx1078_cur."!cursor_fail"()
- rx1078_cur."!cursor_debug"("FAIL ", "infix:sym<+>")
- .return (rx1078_cur)
+ rx1123_done:
+ rx1123_cur."!cursor_fail"()
+ rx1123_cur."!cursor_debug"("FAIL ", "infix:sym<+>")
+ .return (rx1123_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<+>" :subid("281_1275811487.95429") :method
+.annotate 'line', 446
+ $P1125 = self."!PREFIX__!subrule"("O", "+")
+ new $P1126, "ResizablePMCArray"
+ push $P1126, $P1125
+ .return ($P1126)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<->" :subid("282_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1130_tgt
+ .local int rx1130_pos
+ .local int rx1130_off
+ .local int rx1130_eos
+ .local int rx1130_rep
+ .local pmc rx1130_cur
+ (rx1130_cur, rx1130_pos, rx1130_tgt) = self."!cursor_start"()
+ rx1130_cur."!cursor_debug"("START ", "infix:sym<->")
+ .lex unicode:"$\x{a2}", rx1130_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1130_eos, rx1130_tgt
+ gt rx1130_pos, rx1130_eos, rx1130_done
+ set rx1130_off, 0
+ lt rx1130_pos, 2, rx1130_start
+ sub rx1130_off, rx1130_pos, 1
+ substr rx1130_tgt, rx1130_tgt, rx1130_off
+ rx1130_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1134_done
+ goto rxscan1134_scan
+ rxscan1134_loop:
+ ($P10) = rx1130_cur."from"()
+ inc $P10
+ set rx1130_pos, $P10
+ ge rx1130_pos, rx1130_eos, rxscan1134_done
+ rxscan1134_scan:
+ set_addr $I10, rxscan1134_loop
+ rx1130_cur."!mark_push"(0, rx1130_pos, $I10)
+ rxscan1134_done:
+.annotate 'line', 511
# rx subcapture "sym"
- set_addr $I10, rxcap_1090_fail
- rx1085_cur."!mark_push"(0, rx1085_pos, $I10)
+ set_addr $I10, rxcap_1135_fail
+ rx1130_cur."!mark_push"(0, rx1130_pos, $I10)
# rx literal "-"
- 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)
+ add $I11, rx1130_pos, 1
+ gt $I11, rx1130_eos, rx1130_fail
+ sub $I11, rx1130_pos, rx1130_off
+ substr $S10, rx1130_tgt, $I11, 1
+ ne $S10, "-", rx1130_fail
+ add rx1130_pos, 1
+ set_addr $I10, rxcap_1135_fail
+ ($I12, $I11) = rx1130_cur."!mark_peek"($I10)
+ rx1130_cur."!cursor_pos"($I11)
+ ($P10) = rx1130_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1130_pos, "")
+ rx1130_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1090_done
- rxcap_1090_fail:
- goto rx1085_fail
- rxcap_1090_done:
+ goto rxcap_1135_done
+ rxcap_1135_fail:
+ goto rx1130_fail
+ rxcap_1135_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1130_cur."!cursor_pos"(rx1130_pos)
+ $P10 = rx1130_cur."O"("%additive, :pirop<sub>")
+ unless $P10, rx1130_fail
+ rx1130_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1085_pos = $P10."pos"()
+ rx1130_pos = $P10."pos"()
# rx pass
- 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
+ rx1130_cur."!cursor_pass"(rx1130_pos, "infix:sym<->")
+ rx1130_cur."!cursor_debug"("PASS ", "infix:sym<->", " at pos=", rx1130_pos)
+ .return (rx1130_cur)
+ rx1130_fail:
+.annotate 'line', 446
+ (rx1130_rep, rx1130_pos, $I10, $P10) = rx1130_cur."!mark_fail"(0)
+ lt rx1130_pos, -1, rx1130_done
+ eq rx1130_pos, -1, rx1130_fail
jump $I10
- rx1085_done:
- rx1085_cur."!cursor_fail"()
- rx1085_cur."!cursor_debug"("FAIL ", "infix:sym<->")
- .return (rx1085_cur)
+ rx1130_done:
+ rx1130_cur."!cursor_fail"()
+ rx1130_cur."!cursor_debug"("FAIL ", "infix:sym<->")
+ .return (rx1130_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<->" :subid("283_1275811487.95429") :method
+.annotate 'line', 446
+ $P1132 = self."!PREFIX__!subrule"("O", "-")
+ new $P1133, "ResizablePMCArray"
+ push $P1133, $P1132
+ .return ($P1133)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<~>" :subid("284_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1137_tgt
+ .local int rx1137_pos
+ .local int rx1137_off
+ .local int rx1137_eos
+ .local int rx1137_rep
+ .local pmc rx1137_cur
+ (rx1137_cur, rx1137_pos, rx1137_tgt) = self."!cursor_start"()
+ rx1137_cur."!cursor_debug"("START ", "infix:sym<~>")
+ .lex unicode:"$\x{a2}", rx1137_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1137_eos, rx1137_tgt
+ gt rx1137_pos, rx1137_eos, rx1137_done
+ set rx1137_off, 0
+ lt rx1137_pos, 2, rx1137_start
+ sub rx1137_off, rx1137_pos, 1
+ substr rx1137_tgt, rx1137_tgt, rx1137_off
+ rx1137_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1141_done
+ goto rxscan1141_scan
+ rxscan1141_loop:
+ ($P10) = rx1137_cur."from"()
+ inc $P10
+ set rx1137_pos, $P10
+ ge rx1137_pos, rx1137_eos, rxscan1141_done
+ rxscan1141_scan:
+ set_addr $I10, rxscan1141_loop
+ rx1137_cur."!mark_push"(0, rx1137_pos, $I10)
+ rxscan1141_done:
+.annotate 'line', 513
# rx subcapture "sym"
- set_addr $I10, rxcap_1097_fail
- rx1092_cur."!mark_push"(0, rx1092_pos, $I10)
+ set_addr $I10, rxcap_1142_fail
+ rx1137_cur."!mark_push"(0, rx1137_pos, $I10)
# rx literal "~"
- 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)
+ add $I11, rx1137_pos, 1
+ gt $I11, rx1137_eos, rx1137_fail
+ sub $I11, rx1137_pos, rx1137_off
+ substr $S10, rx1137_tgt, $I11, 1
+ ne $S10, "~", rx1137_fail
+ add rx1137_pos, 1
+ set_addr $I10, rxcap_1142_fail
+ ($I12, $I11) = rx1137_cur."!mark_peek"($I10)
+ rx1137_cur."!cursor_pos"($I11)
+ ($P10) = rx1137_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1137_pos, "")
+ rx1137_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1097_done
- rxcap_1097_fail:
- goto rx1092_fail
- rxcap_1097_done:
+ goto rxcap_1142_done
+ rxcap_1142_fail:
+ goto rx1137_fail
+ rxcap_1142_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1137_cur."!cursor_pos"(rx1137_pos)
+ $P10 = rx1137_cur."O"("%concatenation , :pirop<concat>")
+ unless $P10, rx1137_fail
+ rx1137_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1092_pos = $P10."pos"()
+ rx1137_pos = $P10."pos"()
# rx pass
- 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
+ rx1137_cur."!cursor_pass"(rx1137_pos, "infix:sym<~>")
+ rx1137_cur."!cursor_debug"("PASS ", "infix:sym<~>", " at pos=", rx1137_pos)
+ .return (rx1137_cur)
+ rx1137_fail:
+.annotate 'line', 446
+ (rx1137_rep, rx1137_pos, $I10, $P10) = rx1137_cur."!mark_fail"(0)
+ lt rx1137_pos, -1, rx1137_done
+ eq rx1137_pos, -1, rx1137_fail
jump $I10
- rx1092_done:
- rx1092_cur."!cursor_fail"()
- rx1092_cur."!cursor_debug"("FAIL ", "infix:sym<~>")
- .return (rx1092_cur)
+ rx1137_done:
+ rx1137_cur."!cursor_fail"()
+ rx1137_cur."!cursor_debug"("FAIL ", "infix:sym<~>")
+ .return (rx1137_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<~>" :subid("285_1275811487.95429") :method
+.annotate 'line', 446
+ $P1139 = self."!PREFIX__!subrule"("O", "~")
+ new $P1140, "ResizablePMCArray"
+ push $P1140, $P1139
+ .return ($P1140)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<==>" :subid("286_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1144_tgt
+ .local int rx1144_pos
+ .local int rx1144_off
+ .local int rx1144_eos
+ .local int rx1144_rep
+ .local pmc rx1144_cur
+ (rx1144_cur, rx1144_pos, rx1144_tgt) = self."!cursor_start"()
+ rx1144_cur."!cursor_debug"("START ", "infix:sym<==>")
+ .lex unicode:"$\x{a2}", rx1144_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1144_eos, rx1144_tgt
+ gt rx1144_pos, rx1144_eos, rx1144_done
+ set rx1144_off, 0
+ lt rx1144_pos, 2, rx1144_start
+ sub rx1144_off, rx1144_pos, 1
+ substr rx1144_tgt, rx1144_tgt, rx1144_off
+ rx1144_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1148_done
+ goto rxscan1148_scan
+ rxscan1148_loop:
+ ($P10) = rx1144_cur."from"()
+ inc $P10
+ set rx1144_pos, $P10
+ ge rx1144_pos, rx1144_eos, rxscan1148_done
+ rxscan1148_scan:
+ set_addr $I10, rxscan1148_loop
+ rx1144_cur."!mark_push"(0, rx1144_pos, $I10)
+ rxscan1148_done:
+.annotate 'line', 515
# rx subcapture "sym"
- set_addr $I10, rxcap_1104_fail
- rx1099_cur."!mark_push"(0, rx1099_pos, $I10)
+ set_addr $I10, rxcap_1149_fail
+ rx1144_cur."!mark_push"(0, rx1144_pos, $I10)
# rx literal "=="
- 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)
+ add $I11, rx1144_pos, 2
+ gt $I11, rx1144_eos, rx1144_fail
+ sub $I11, rx1144_pos, rx1144_off
+ substr $S10, rx1144_tgt, $I11, 2
+ ne $S10, "==", rx1144_fail
+ add rx1144_pos, 2
+ set_addr $I10, rxcap_1149_fail
+ ($I12, $I11) = rx1144_cur."!mark_peek"($I10)
+ rx1144_cur."!cursor_pos"($I11)
+ ($P10) = rx1144_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1144_pos, "")
+ rx1144_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1104_done
- rxcap_1104_fail:
- goto rx1099_fail
- rxcap_1104_done:
+ goto rxcap_1149_done
+ rxcap_1149_fail:
+ goto rx1144_fail
+ rxcap_1149_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1144_cur."!cursor_pos"(rx1144_pos)
+ $P10 = rx1144_cur."O"("%relational, :pirop<iseq INn>")
+ unless $P10, rx1144_fail
+ rx1144_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1099_pos = $P10."pos"()
+ rx1144_pos = $P10."pos"()
# rx pass
- 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
+ rx1144_cur."!cursor_pass"(rx1144_pos, "infix:sym<==>")
+ rx1144_cur."!cursor_debug"("PASS ", "infix:sym<==>", " at pos=", rx1144_pos)
+ .return (rx1144_cur)
+ rx1144_fail:
+.annotate 'line', 446
+ (rx1144_rep, rx1144_pos, $I10, $P10) = rx1144_cur."!mark_fail"(0)
+ lt rx1144_pos, -1, rx1144_done
+ eq rx1144_pos, -1, rx1144_fail
jump $I10
- rx1099_done:
- rx1099_cur."!cursor_fail"()
- rx1099_cur."!cursor_debug"("FAIL ", "infix:sym<==>")
- .return (rx1099_cur)
+ rx1144_done:
+ rx1144_cur."!cursor_fail"()
+ rx1144_cur."!cursor_debug"("FAIL ", "infix:sym<==>")
+ .return (rx1144_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<==>" :subid("287_1275811487.95429") :method
+.annotate 'line', 446
+ $P1146 = self."!PREFIX__!subrule"("O", "==")
+ new $P1147, "ResizablePMCArray"
+ push $P1147, $P1146
+ .return ($P1147)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<!=>" :subid("288_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1151_tgt
+ .local int rx1151_pos
+ .local int rx1151_off
+ .local int rx1151_eos
+ .local int rx1151_rep
+ .local pmc rx1151_cur
+ (rx1151_cur, rx1151_pos, rx1151_tgt) = self."!cursor_start"()
+ rx1151_cur."!cursor_debug"("START ", "infix:sym<!=>")
+ .lex unicode:"$\x{a2}", rx1151_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1151_eos, rx1151_tgt
+ gt rx1151_pos, rx1151_eos, rx1151_done
+ set rx1151_off, 0
+ lt rx1151_pos, 2, rx1151_start
+ sub rx1151_off, rx1151_pos, 1
+ substr rx1151_tgt, rx1151_tgt, rx1151_off
+ rx1151_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1155_done
+ goto rxscan1155_scan
+ rxscan1155_loop:
+ ($P10) = rx1151_cur."from"()
+ inc $P10
+ set rx1151_pos, $P10
+ ge rx1151_pos, rx1151_eos, rxscan1155_done
+ rxscan1155_scan:
+ set_addr $I10, rxscan1155_loop
+ rx1151_cur."!mark_push"(0, rx1151_pos, $I10)
+ rxscan1155_done:
+.annotate 'line', 516
# rx subcapture "sym"
- set_addr $I10, rxcap_1111_fail
- rx1106_cur."!mark_push"(0, rx1106_pos, $I10)
+ set_addr $I10, rxcap_1156_fail
+ rx1151_cur."!mark_push"(0, rx1151_pos, $I10)
# rx literal "!="
- 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)
+ add $I11, rx1151_pos, 2
+ gt $I11, rx1151_eos, rx1151_fail
+ sub $I11, rx1151_pos, rx1151_off
+ substr $S10, rx1151_tgt, $I11, 2
+ ne $S10, "!=", rx1151_fail
+ add rx1151_pos, 2
+ set_addr $I10, rxcap_1156_fail
+ ($I12, $I11) = rx1151_cur."!mark_peek"($I10)
+ rx1151_cur."!cursor_pos"($I11)
+ ($P10) = rx1151_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1151_pos, "")
+ rx1151_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1111_done
- rxcap_1111_fail:
- goto rx1106_fail
- rxcap_1111_done:
+ goto rxcap_1156_done
+ rxcap_1156_fail:
+ goto rx1151_fail
+ rxcap_1156_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1151_cur."!cursor_pos"(rx1151_pos)
+ $P10 = rx1151_cur."O"("%relational, :pirop<isne INn>")
+ unless $P10, rx1151_fail
+ rx1151_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1106_pos = $P10."pos"()
+ rx1151_pos = $P10."pos"()
# rx pass
- 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
+ rx1151_cur."!cursor_pass"(rx1151_pos, "infix:sym<!=>")
+ rx1151_cur."!cursor_debug"("PASS ", "infix:sym<!=>", " at pos=", rx1151_pos)
+ .return (rx1151_cur)
+ rx1151_fail:
+.annotate 'line', 446
+ (rx1151_rep, rx1151_pos, $I10, $P10) = rx1151_cur."!mark_fail"(0)
+ lt rx1151_pos, -1, rx1151_done
+ eq rx1151_pos, -1, rx1151_fail
jump $I10
- rx1106_done:
- rx1106_cur."!cursor_fail"()
- rx1106_cur."!cursor_debug"("FAIL ", "infix:sym<!=>")
- .return (rx1106_cur)
+ rx1151_done:
+ rx1151_cur."!cursor_fail"()
+ rx1151_cur."!cursor_debug"("FAIL ", "infix:sym<!=>")
+ .return (rx1151_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<!=>" :subid("289_1275811487.95429") :method
+.annotate 'line', 446
+ $P1153 = self."!PREFIX__!subrule"("O", "!=")
+ new $P1154, "ResizablePMCArray"
+ push $P1154, $P1153
+ .return ($P1154)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<<=>" :subid("290_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1158_tgt
+ .local int rx1158_pos
+ .local int rx1158_off
+ .local int rx1158_eos
+ .local int rx1158_rep
+ .local pmc rx1158_cur
+ (rx1158_cur, rx1158_pos, rx1158_tgt) = self."!cursor_start"()
+ rx1158_cur."!cursor_debug"("START ", "infix:sym<<=>")
+ .lex unicode:"$\x{a2}", rx1158_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1158_eos, rx1158_tgt
+ gt rx1158_pos, rx1158_eos, rx1158_done
+ set rx1158_off, 0
+ lt rx1158_pos, 2, rx1158_start
+ sub rx1158_off, rx1158_pos, 1
+ substr rx1158_tgt, rx1158_tgt, rx1158_off
+ rx1158_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1162_done
+ goto rxscan1162_scan
+ rxscan1162_loop:
+ ($P10) = rx1158_cur."from"()
+ inc $P10
+ set rx1158_pos, $P10
+ ge rx1158_pos, rx1158_eos, rxscan1162_done
+ rxscan1162_scan:
+ set_addr $I10, rxscan1162_loop
+ rx1158_cur."!mark_push"(0, rx1158_pos, $I10)
+ rxscan1162_done:
+.annotate 'line', 517
# rx subcapture "sym"
- set_addr $I10, rxcap_1118_fail
- rx1113_cur."!mark_push"(0, rx1113_pos, $I10)
+ set_addr $I10, rxcap_1163_fail
+ rx1158_cur."!mark_push"(0, rx1158_pos, $I10)
# rx literal "<="
- 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)
+ add $I11, rx1158_pos, 2
+ gt $I11, rx1158_eos, rx1158_fail
+ sub $I11, rx1158_pos, rx1158_off
+ substr $S10, rx1158_tgt, $I11, 2
+ ne $S10, "<=", rx1158_fail
+ add rx1158_pos, 2
+ set_addr $I10, rxcap_1163_fail
+ ($I12, $I11) = rx1158_cur."!mark_peek"($I10)
+ rx1158_cur."!cursor_pos"($I11)
+ ($P10) = rx1158_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1158_pos, "")
+ rx1158_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1118_done
- rxcap_1118_fail:
- goto rx1113_fail
- rxcap_1118_done:
+ goto rxcap_1163_done
+ rxcap_1163_fail:
+ goto rx1158_fail
+ rxcap_1163_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1158_cur."!cursor_pos"(rx1158_pos)
+ $P10 = rx1158_cur."O"("%relational, :pirop<isle INn>")
+ unless $P10, rx1158_fail
+ rx1158_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1113_pos = $P10."pos"()
+ rx1158_pos = $P10."pos"()
# rx pass
- 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
+ rx1158_cur."!cursor_pass"(rx1158_pos, "infix:sym<<=>")
+ rx1158_cur."!cursor_debug"("PASS ", "infix:sym<<=>", " at pos=", rx1158_pos)
+ .return (rx1158_cur)
+ rx1158_fail:
+.annotate 'line', 446
+ (rx1158_rep, rx1158_pos, $I10, $P10) = rx1158_cur."!mark_fail"(0)
+ lt rx1158_pos, -1, rx1158_done
+ eq rx1158_pos, -1, rx1158_fail
jump $I10
- rx1113_done:
- rx1113_cur."!cursor_fail"()
- rx1113_cur."!cursor_debug"("FAIL ", "infix:sym<<=>")
- .return (rx1113_cur)
+ rx1158_done:
+ rx1158_cur."!cursor_fail"()
+ rx1158_cur."!cursor_debug"("FAIL ", "infix:sym<<=>")
+ .return (rx1158_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<<=>" :subid("291_1275811487.95429") :method
+.annotate 'line', 446
+ $P1160 = self."!PREFIX__!subrule"("O", "<=")
+ new $P1161, "ResizablePMCArray"
+ push $P1161, $P1160
+ .return ($P1161)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<>=>" :subid("292_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1165_tgt
+ .local int rx1165_pos
+ .local int rx1165_off
+ .local int rx1165_eos
+ .local int rx1165_rep
+ .local pmc rx1165_cur
+ (rx1165_cur, rx1165_pos, rx1165_tgt) = self."!cursor_start"()
+ rx1165_cur."!cursor_debug"("START ", "infix:sym<>=>")
+ .lex unicode:"$\x{a2}", rx1165_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1165_eos, rx1165_tgt
+ gt rx1165_pos, rx1165_eos, rx1165_done
+ set rx1165_off, 0
+ lt rx1165_pos, 2, rx1165_start
+ sub rx1165_off, rx1165_pos, 1
+ substr rx1165_tgt, rx1165_tgt, rx1165_off
+ rx1165_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1169_done
+ goto rxscan1169_scan
+ rxscan1169_loop:
+ ($P10) = rx1165_cur."from"()
+ inc $P10
+ set rx1165_pos, $P10
+ ge rx1165_pos, rx1165_eos, rxscan1169_done
+ rxscan1169_scan:
+ set_addr $I10, rxscan1169_loop
+ rx1165_cur."!mark_push"(0, rx1165_pos, $I10)
+ rxscan1169_done:
+.annotate 'line', 518
# rx subcapture "sym"
- set_addr $I10, rxcap_1125_fail
- rx1120_cur."!mark_push"(0, rx1120_pos, $I10)
+ set_addr $I10, rxcap_1170_fail
+ rx1165_cur."!mark_push"(0, rx1165_pos, $I10)
# rx literal ">="
- 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)
+ add $I11, rx1165_pos, 2
+ gt $I11, rx1165_eos, rx1165_fail
+ sub $I11, rx1165_pos, rx1165_off
+ substr $S10, rx1165_tgt, $I11, 2
+ ne $S10, ">=", rx1165_fail
+ add rx1165_pos, 2
+ set_addr $I10, rxcap_1170_fail
+ ($I12, $I11) = rx1165_cur."!mark_peek"($I10)
+ rx1165_cur."!cursor_pos"($I11)
+ ($P10) = rx1165_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1165_pos, "")
+ rx1165_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1125_done
- rxcap_1125_fail:
- goto rx1120_fail
- rxcap_1125_done:
+ goto rxcap_1170_done
+ rxcap_1170_fail:
+ goto rx1165_fail
+ rxcap_1170_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1165_cur."!cursor_pos"(rx1165_pos)
+ $P10 = rx1165_cur."O"("%relational, :pirop<isge INn>")
+ unless $P10, rx1165_fail
+ rx1165_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1120_pos = $P10."pos"()
+ rx1165_pos = $P10."pos"()
# rx pass
- 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
+ rx1165_cur."!cursor_pass"(rx1165_pos, "infix:sym<>=>")
+ rx1165_cur."!cursor_debug"("PASS ", "infix:sym<>=>", " at pos=", rx1165_pos)
+ .return (rx1165_cur)
+ rx1165_fail:
+.annotate 'line', 446
+ (rx1165_rep, rx1165_pos, $I10, $P10) = rx1165_cur."!mark_fail"(0)
+ lt rx1165_pos, -1, rx1165_done
+ eq rx1165_pos, -1, rx1165_fail
jump $I10
- rx1120_done:
- rx1120_cur."!cursor_fail"()
- rx1120_cur."!cursor_debug"("FAIL ", "infix:sym<>=>")
- .return (rx1120_cur)
+ rx1165_done:
+ rx1165_cur."!cursor_fail"()
+ rx1165_cur."!cursor_debug"("FAIL ", "infix:sym<>=>")
+ .return (rx1165_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<>=>" :subid("293_1275811487.95429") :method
+.annotate 'line', 446
+ $P1167 = self."!PREFIX__!subrule"("O", ">=")
+ new $P1168, "ResizablePMCArray"
+ push $P1168, $P1167
+ .return ($P1168)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<<>" :subid("294_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1172_tgt
+ .local int rx1172_pos
+ .local int rx1172_off
+ .local int rx1172_eos
+ .local int rx1172_rep
+ .local pmc rx1172_cur
+ (rx1172_cur, rx1172_pos, rx1172_tgt) = self."!cursor_start"()
+ rx1172_cur."!cursor_debug"("START ", "infix:sym<<>")
+ .lex unicode:"$\x{a2}", rx1172_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1172_eos, rx1172_tgt
+ gt rx1172_pos, rx1172_eos, rx1172_done
+ set rx1172_off, 0
+ lt rx1172_pos, 2, rx1172_start
+ sub rx1172_off, rx1172_pos, 1
+ substr rx1172_tgt, rx1172_tgt, rx1172_off
+ rx1172_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1176_done
+ goto rxscan1176_scan
+ rxscan1176_loop:
+ ($P10) = rx1172_cur."from"()
+ inc $P10
+ set rx1172_pos, $P10
+ ge rx1172_pos, rx1172_eos, rxscan1176_done
+ rxscan1176_scan:
+ set_addr $I10, rxscan1176_loop
+ rx1172_cur."!mark_push"(0, rx1172_pos, $I10)
+ rxscan1176_done:
+.annotate 'line', 519
# rx subcapture "sym"
- set_addr $I10, rxcap_1132_fail
- rx1127_cur."!mark_push"(0, rx1127_pos, $I10)
+ set_addr $I10, rxcap_1177_fail
+ rx1172_cur."!mark_push"(0, rx1172_pos, $I10)
# rx literal "<"
- 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)
+ add $I11, rx1172_pos, 1
+ gt $I11, rx1172_eos, rx1172_fail
+ sub $I11, rx1172_pos, rx1172_off
+ substr $S10, rx1172_tgt, $I11, 1
+ ne $S10, "<", rx1172_fail
+ add rx1172_pos, 1
+ set_addr $I10, rxcap_1177_fail
+ ($I12, $I11) = rx1172_cur."!mark_peek"($I10)
+ rx1172_cur."!cursor_pos"($I11)
+ ($P10) = rx1172_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1172_pos, "")
+ rx1172_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1132_done
- rxcap_1132_fail:
- goto rx1127_fail
- rxcap_1132_done:
+ goto rxcap_1177_done
+ rxcap_1177_fail:
+ goto rx1172_fail
+ rxcap_1177_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1172_cur."!cursor_pos"(rx1172_pos)
+ $P10 = rx1172_cur."O"("%relational, :pirop<islt INn>")
+ unless $P10, rx1172_fail
+ rx1172_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1127_pos = $P10."pos"()
+ rx1172_pos = $P10."pos"()
# rx pass
- 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
+ rx1172_cur."!cursor_pass"(rx1172_pos, "infix:sym<<>")
+ rx1172_cur."!cursor_debug"("PASS ", "infix:sym<<>", " at pos=", rx1172_pos)
+ .return (rx1172_cur)
+ rx1172_fail:
+.annotate 'line', 446
+ (rx1172_rep, rx1172_pos, $I10, $P10) = rx1172_cur."!mark_fail"(0)
+ lt rx1172_pos, -1, rx1172_done
+ eq rx1172_pos, -1, rx1172_fail
jump $I10
- rx1127_done:
- rx1127_cur."!cursor_fail"()
- rx1127_cur."!cursor_debug"("FAIL ", "infix:sym<<>")
- .return (rx1127_cur)
+ rx1172_done:
+ rx1172_cur."!cursor_fail"()
+ rx1172_cur."!cursor_debug"("FAIL ", "infix:sym<<>")
+ .return (rx1172_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<<>" :subid("295_1275811487.95429") :method
+.annotate 'line', 446
+ $P1174 = self."!PREFIX__!subrule"("O", "<")
+ new $P1175, "ResizablePMCArray"
+ push $P1175, $P1174
+ .return ($P1175)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<>>" :subid("296_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1179_tgt
+ .local int rx1179_pos
+ .local int rx1179_off
+ .local int rx1179_eos
+ .local int rx1179_rep
+ .local pmc rx1179_cur
+ (rx1179_cur, rx1179_pos, rx1179_tgt) = self."!cursor_start"()
+ rx1179_cur."!cursor_debug"("START ", "infix:sym<>>")
+ .lex unicode:"$\x{a2}", rx1179_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1179_eos, rx1179_tgt
+ gt rx1179_pos, rx1179_eos, rx1179_done
+ set rx1179_off, 0
+ lt rx1179_pos, 2, rx1179_start
+ sub rx1179_off, rx1179_pos, 1
+ substr rx1179_tgt, rx1179_tgt, rx1179_off
+ rx1179_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1183_done
+ goto rxscan1183_scan
+ rxscan1183_loop:
+ ($P10) = rx1179_cur."from"()
+ inc $P10
+ set rx1179_pos, $P10
+ ge rx1179_pos, rx1179_eos, rxscan1183_done
+ rxscan1183_scan:
+ set_addr $I10, rxscan1183_loop
+ rx1179_cur."!mark_push"(0, rx1179_pos, $I10)
+ rxscan1183_done:
+.annotate 'line', 520
# rx subcapture "sym"
- set_addr $I10, rxcap_1139_fail
- rx1134_cur."!mark_push"(0, rx1134_pos, $I10)
+ set_addr $I10, rxcap_1184_fail
+ rx1179_cur."!mark_push"(0, rx1179_pos, $I10)
# rx literal ">"
- 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)
+ add $I11, rx1179_pos, 1
+ gt $I11, rx1179_eos, rx1179_fail
+ sub $I11, rx1179_pos, rx1179_off
+ substr $S10, rx1179_tgt, $I11, 1
+ ne $S10, ">", rx1179_fail
+ add rx1179_pos, 1
+ set_addr $I10, rxcap_1184_fail
+ ($I12, $I11) = rx1179_cur."!mark_peek"($I10)
+ rx1179_cur."!cursor_pos"($I11)
+ ($P10) = rx1179_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1179_pos, "")
+ rx1179_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1139_done
- rxcap_1139_fail:
- goto rx1134_fail
- rxcap_1139_done:
+ goto rxcap_1184_done
+ rxcap_1184_fail:
+ goto rx1179_fail
+ rxcap_1184_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1179_cur."!cursor_pos"(rx1179_pos)
+ $P10 = rx1179_cur."O"("%relational, :pirop<isgt INn>")
+ unless $P10, rx1179_fail
+ rx1179_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1134_pos = $P10."pos"()
+ rx1179_pos = $P10."pos"()
# rx pass
- 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
+ rx1179_cur."!cursor_pass"(rx1179_pos, "infix:sym<>>")
+ rx1179_cur."!cursor_debug"("PASS ", "infix:sym<>>", " at pos=", rx1179_pos)
+ .return (rx1179_cur)
+ rx1179_fail:
+.annotate 'line', 446
+ (rx1179_rep, rx1179_pos, $I10, $P10) = rx1179_cur."!mark_fail"(0)
+ lt rx1179_pos, -1, rx1179_done
+ eq rx1179_pos, -1, rx1179_fail
jump $I10
- rx1134_done:
- rx1134_cur."!cursor_fail"()
- rx1134_cur."!cursor_debug"("FAIL ", "infix:sym<>>")
- .return (rx1134_cur)
+ rx1179_done:
+ rx1179_cur."!cursor_fail"()
+ rx1179_cur."!cursor_debug"("FAIL ", "infix:sym<>>")
+ .return (rx1179_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<>>" :subid("297_1275811487.95429") :method
+.annotate 'line', 446
+ $P1181 = self."!PREFIX__!subrule"("O", ">")
+ new $P1182, "ResizablePMCArray"
+ push $P1182, $P1181
+ .return ($P1182)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<eq>" :subid("298_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1186_tgt
+ .local int rx1186_pos
+ .local int rx1186_off
+ .local int rx1186_eos
+ .local int rx1186_rep
+ .local pmc rx1186_cur
+ (rx1186_cur, rx1186_pos, rx1186_tgt) = self."!cursor_start"()
+ rx1186_cur."!cursor_debug"("START ", "infix:sym<eq>")
+ .lex unicode:"$\x{a2}", rx1186_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1186_eos, rx1186_tgt
+ gt rx1186_pos, rx1186_eos, rx1186_done
+ set rx1186_off, 0
+ lt rx1186_pos, 2, rx1186_start
+ sub rx1186_off, rx1186_pos, 1
+ substr rx1186_tgt, rx1186_tgt, rx1186_off
+ rx1186_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1190_done
+ goto rxscan1190_scan
+ rxscan1190_loop:
+ ($P10) = rx1186_cur."from"()
+ inc $P10
+ set rx1186_pos, $P10
+ ge rx1186_pos, rx1186_eos, rxscan1190_done
+ rxscan1190_scan:
+ set_addr $I10, rxscan1190_loop
+ rx1186_cur."!mark_push"(0, rx1186_pos, $I10)
+ rxscan1190_done:
+.annotate 'line', 521
# rx subcapture "sym"
- set_addr $I10, rxcap_1146_fail
- rx1141_cur."!mark_push"(0, rx1141_pos, $I10)
+ set_addr $I10, rxcap_1191_fail
+ rx1186_cur."!mark_push"(0, rx1186_pos, $I10)
# rx literal "eq"
- 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)
+ add $I11, rx1186_pos, 2
+ gt $I11, rx1186_eos, rx1186_fail
+ sub $I11, rx1186_pos, rx1186_off
+ substr $S10, rx1186_tgt, $I11, 2
+ ne $S10, "eq", rx1186_fail
+ add rx1186_pos, 2
+ set_addr $I10, rxcap_1191_fail
+ ($I12, $I11) = rx1186_cur."!mark_peek"($I10)
+ rx1186_cur."!cursor_pos"($I11)
+ ($P10) = rx1186_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1186_pos, "")
+ rx1186_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1146_done
- rxcap_1146_fail:
- goto rx1141_fail
- rxcap_1146_done:
+ goto rxcap_1191_done
+ rxcap_1191_fail:
+ goto rx1186_fail
+ rxcap_1191_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1186_cur."!cursor_pos"(rx1186_pos)
+ $P10 = rx1186_cur."O"("%relational, :pirop<iseq ISs>")
+ unless $P10, rx1186_fail
+ rx1186_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1141_pos = $P10."pos"()
+ rx1186_pos = $P10."pos"()
# rx pass
- 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
+ rx1186_cur."!cursor_pass"(rx1186_pos, "infix:sym<eq>")
+ rx1186_cur."!cursor_debug"("PASS ", "infix:sym<eq>", " at pos=", rx1186_pos)
+ .return (rx1186_cur)
+ rx1186_fail:
+.annotate 'line', 446
+ (rx1186_rep, rx1186_pos, $I10, $P10) = rx1186_cur."!mark_fail"(0)
+ lt rx1186_pos, -1, rx1186_done
+ eq rx1186_pos, -1, rx1186_fail
jump $I10
- rx1141_done:
- rx1141_cur."!cursor_fail"()
- rx1141_cur."!cursor_debug"("FAIL ", "infix:sym<eq>")
- .return (rx1141_cur)
+ rx1186_done:
+ rx1186_cur."!cursor_fail"()
+ rx1186_cur."!cursor_debug"("FAIL ", "infix:sym<eq>")
+ .return (rx1186_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<eq>" :subid("299_1275811487.95429") :method
+.annotate 'line', 446
+ $P1188 = self."!PREFIX__!subrule"("O", "eq")
+ new $P1189, "ResizablePMCArray"
+ push $P1189, $P1188
+ .return ($P1189)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<ne>" :subid("300_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1193_tgt
+ .local int rx1193_pos
+ .local int rx1193_off
+ .local int rx1193_eos
+ .local int rx1193_rep
+ .local pmc rx1193_cur
+ (rx1193_cur, rx1193_pos, rx1193_tgt) = self."!cursor_start"()
+ rx1193_cur."!cursor_debug"("START ", "infix:sym<ne>")
+ .lex unicode:"$\x{a2}", rx1193_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1193_eos, rx1193_tgt
+ gt rx1193_pos, rx1193_eos, rx1193_done
+ set rx1193_off, 0
+ lt rx1193_pos, 2, rx1193_start
+ sub rx1193_off, rx1193_pos, 1
+ substr rx1193_tgt, rx1193_tgt, rx1193_off
+ rx1193_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1197_done
+ goto rxscan1197_scan
+ rxscan1197_loop:
+ ($P10) = rx1193_cur."from"()
+ inc $P10
+ set rx1193_pos, $P10
+ ge rx1193_pos, rx1193_eos, rxscan1197_done
+ rxscan1197_scan:
+ set_addr $I10, rxscan1197_loop
+ rx1193_cur."!mark_push"(0, rx1193_pos, $I10)
+ rxscan1197_done:
+.annotate 'line', 522
# rx subcapture "sym"
- set_addr $I10, rxcap_1153_fail
- rx1148_cur."!mark_push"(0, rx1148_pos, $I10)
+ set_addr $I10, rxcap_1198_fail
+ rx1193_cur."!mark_push"(0, rx1193_pos, $I10)
# rx literal "ne"
- 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)
+ add $I11, rx1193_pos, 2
+ gt $I11, rx1193_eos, rx1193_fail
+ sub $I11, rx1193_pos, rx1193_off
+ substr $S10, rx1193_tgt, $I11, 2
+ ne $S10, "ne", rx1193_fail
+ add rx1193_pos, 2
+ set_addr $I10, rxcap_1198_fail
+ ($I12, $I11) = rx1193_cur."!mark_peek"($I10)
+ rx1193_cur."!cursor_pos"($I11)
+ ($P10) = rx1193_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1193_pos, "")
+ rx1193_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1153_done
- rxcap_1153_fail:
- goto rx1148_fail
- rxcap_1153_done:
+ goto rxcap_1198_done
+ rxcap_1198_fail:
+ goto rx1193_fail
+ rxcap_1198_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1193_cur."!cursor_pos"(rx1193_pos)
+ $P10 = rx1193_cur."O"("%relational, :pirop<isne ISs>")
+ unless $P10, rx1193_fail
+ rx1193_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1148_pos = $P10."pos"()
+ rx1193_pos = $P10."pos"()
# rx pass
- 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
+ rx1193_cur."!cursor_pass"(rx1193_pos, "infix:sym<ne>")
+ rx1193_cur."!cursor_debug"("PASS ", "infix:sym<ne>", " at pos=", rx1193_pos)
+ .return (rx1193_cur)
+ rx1193_fail:
+.annotate 'line', 446
+ (rx1193_rep, rx1193_pos, $I10, $P10) = rx1193_cur."!mark_fail"(0)
+ lt rx1193_pos, -1, rx1193_done
+ eq rx1193_pos, -1, rx1193_fail
jump $I10
- rx1148_done:
- rx1148_cur."!cursor_fail"()
- rx1148_cur."!cursor_debug"("FAIL ", "infix:sym<ne>")
- .return (rx1148_cur)
+ rx1193_done:
+ rx1193_cur."!cursor_fail"()
+ rx1193_cur."!cursor_debug"("FAIL ", "infix:sym<ne>")
+ .return (rx1193_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<ne>" :subid("301_1275811487.95429") :method
+.annotate 'line', 446
+ $P1195 = self."!PREFIX__!subrule"("O", "ne")
+ new $P1196, "ResizablePMCArray"
+ push $P1196, $P1195
+ .return ($P1196)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<le>" :subid("302_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1200_tgt
+ .local int rx1200_pos
+ .local int rx1200_off
+ .local int rx1200_eos
+ .local int rx1200_rep
+ .local pmc rx1200_cur
+ (rx1200_cur, rx1200_pos, rx1200_tgt) = self."!cursor_start"()
+ rx1200_cur."!cursor_debug"("START ", "infix:sym<le>")
+ .lex unicode:"$\x{a2}", rx1200_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1200_eos, rx1200_tgt
+ gt rx1200_pos, rx1200_eos, rx1200_done
+ set rx1200_off, 0
+ lt rx1200_pos, 2, rx1200_start
+ sub rx1200_off, rx1200_pos, 1
+ substr rx1200_tgt, rx1200_tgt, rx1200_off
+ rx1200_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1204_done
+ goto rxscan1204_scan
+ rxscan1204_loop:
+ ($P10) = rx1200_cur."from"()
+ inc $P10
+ set rx1200_pos, $P10
+ ge rx1200_pos, rx1200_eos, rxscan1204_done
+ rxscan1204_scan:
+ set_addr $I10, rxscan1204_loop
+ rx1200_cur."!mark_push"(0, rx1200_pos, $I10)
+ rxscan1204_done:
+.annotate 'line', 523
# rx subcapture "sym"
- set_addr $I10, rxcap_1160_fail
- rx1155_cur."!mark_push"(0, rx1155_pos, $I10)
+ set_addr $I10, rxcap_1205_fail
+ rx1200_cur."!mark_push"(0, rx1200_pos, $I10)
# rx literal "le"
- 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)
+ add $I11, rx1200_pos, 2
+ gt $I11, rx1200_eos, rx1200_fail
+ sub $I11, rx1200_pos, rx1200_off
+ substr $S10, rx1200_tgt, $I11, 2
+ ne $S10, "le", rx1200_fail
+ add rx1200_pos, 2
+ set_addr $I10, rxcap_1205_fail
+ ($I12, $I11) = rx1200_cur."!mark_peek"($I10)
+ rx1200_cur."!cursor_pos"($I11)
+ ($P10) = rx1200_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1200_pos, "")
+ rx1200_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1160_done
- rxcap_1160_fail:
- goto rx1155_fail
- rxcap_1160_done:
+ goto rxcap_1205_done
+ rxcap_1205_fail:
+ goto rx1200_fail
+ rxcap_1205_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1200_cur."!cursor_pos"(rx1200_pos)
+ $P10 = rx1200_cur."O"("%relational, :pirop<isle ISs>")
+ unless $P10, rx1200_fail
+ rx1200_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1155_pos = $P10."pos"()
+ rx1200_pos = $P10."pos"()
# rx pass
- 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
+ rx1200_cur."!cursor_pass"(rx1200_pos, "infix:sym<le>")
+ rx1200_cur."!cursor_debug"("PASS ", "infix:sym<le>", " at pos=", rx1200_pos)
+ .return (rx1200_cur)
+ rx1200_fail:
+.annotate 'line', 446
+ (rx1200_rep, rx1200_pos, $I10, $P10) = rx1200_cur."!mark_fail"(0)
+ lt rx1200_pos, -1, rx1200_done
+ eq rx1200_pos, -1, rx1200_fail
jump $I10
- rx1155_done:
- rx1155_cur."!cursor_fail"()
- rx1155_cur."!cursor_debug"("FAIL ", "infix:sym<le>")
- .return (rx1155_cur)
+ rx1200_done:
+ rx1200_cur."!cursor_fail"()
+ rx1200_cur."!cursor_debug"("FAIL ", "infix:sym<le>")
+ .return (rx1200_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<le>" :subid("303_1275811487.95429") :method
+.annotate 'line', 446
+ $P1202 = self."!PREFIX__!subrule"("O", "le")
+ new $P1203, "ResizablePMCArray"
+ push $P1203, $P1202
+ .return ($P1203)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<ge>" :subid("304_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1207_tgt
+ .local int rx1207_pos
+ .local int rx1207_off
+ .local int rx1207_eos
+ .local int rx1207_rep
+ .local pmc rx1207_cur
+ (rx1207_cur, rx1207_pos, rx1207_tgt) = self."!cursor_start"()
+ rx1207_cur."!cursor_debug"("START ", "infix:sym<ge>")
+ .lex unicode:"$\x{a2}", rx1207_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1207_eos, rx1207_tgt
+ gt rx1207_pos, rx1207_eos, rx1207_done
+ set rx1207_off, 0
+ lt rx1207_pos, 2, rx1207_start
+ sub rx1207_off, rx1207_pos, 1
+ substr rx1207_tgt, rx1207_tgt, rx1207_off
+ rx1207_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1211_done
+ goto rxscan1211_scan
+ rxscan1211_loop:
+ ($P10) = rx1207_cur."from"()
+ inc $P10
+ set rx1207_pos, $P10
+ ge rx1207_pos, rx1207_eos, rxscan1211_done
+ rxscan1211_scan:
+ set_addr $I10, rxscan1211_loop
+ rx1207_cur."!mark_push"(0, rx1207_pos, $I10)
+ rxscan1211_done:
+.annotate 'line', 524
# rx subcapture "sym"
- set_addr $I10, rxcap_1167_fail
- rx1162_cur."!mark_push"(0, rx1162_pos, $I10)
+ set_addr $I10, rxcap_1212_fail
+ rx1207_cur."!mark_push"(0, rx1207_pos, $I10)
# rx literal "ge"
- 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)
+ add $I11, rx1207_pos, 2
+ gt $I11, rx1207_eos, rx1207_fail
+ sub $I11, rx1207_pos, rx1207_off
+ substr $S10, rx1207_tgt, $I11, 2
+ ne $S10, "ge", rx1207_fail
+ add rx1207_pos, 2
+ set_addr $I10, rxcap_1212_fail
+ ($I12, $I11) = rx1207_cur."!mark_peek"($I10)
+ rx1207_cur."!cursor_pos"($I11)
+ ($P10) = rx1207_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1207_pos, "")
+ rx1207_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1167_done
- rxcap_1167_fail:
- goto rx1162_fail
- rxcap_1167_done:
+ goto rxcap_1212_done
+ rxcap_1212_fail:
+ goto rx1207_fail
+ rxcap_1212_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1207_cur."!cursor_pos"(rx1207_pos)
+ $P10 = rx1207_cur."O"("%relational, :pirop<isge ISs>")
+ unless $P10, rx1207_fail
+ rx1207_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1162_pos = $P10."pos"()
+ rx1207_pos = $P10."pos"()
# rx pass
- 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
+ rx1207_cur."!cursor_pass"(rx1207_pos, "infix:sym<ge>")
+ rx1207_cur."!cursor_debug"("PASS ", "infix:sym<ge>", " at pos=", rx1207_pos)
+ .return (rx1207_cur)
+ rx1207_fail:
+.annotate 'line', 446
+ (rx1207_rep, rx1207_pos, $I10, $P10) = rx1207_cur."!mark_fail"(0)
+ lt rx1207_pos, -1, rx1207_done
+ eq rx1207_pos, -1, rx1207_fail
jump $I10
- rx1162_done:
- rx1162_cur."!cursor_fail"()
- rx1162_cur."!cursor_debug"("FAIL ", "infix:sym<ge>")
- .return (rx1162_cur)
+ rx1207_done:
+ rx1207_cur."!cursor_fail"()
+ rx1207_cur."!cursor_debug"("FAIL ", "infix:sym<ge>")
+ .return (rx1207_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<ge>" :subid("305_1275811487.95429") :method
+.annotate 'line', 446
+ $P1209 = self."!PREFIX__!subrule"("O", "ge")
+ new $P1210, "ResizablePMCArray"
+ push $P1210, $P1209
+ .return ($P1210)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<lt>" :subid("306_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1214_tgt
+ .local int rx1214_pos
+ .local int rx1214_off
+ .local int rx1214_eos
+ .local int rx1214_rep
+ .local pmc rx1214_cur
+ (rx1214_cur, rx1214_pos, rx1214_tgt) = self."!cursor_start"()
+ rx1214_cur."!cursor_debug"("START ", "infix:sym<lt>")
+ .lex unicode:"$\x{a2}", rx1214_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1214_eos, rx1214_tgt
+ gt rx1214_pos, rx1214_eos, rx1214_done
+ set rx1214_off, 0
+ lt rx1214_pos, 2, rx1214_start
+ sub rx1214_off, rx1214_pos, 1
+ substr rx1214_tgt, rx1214_tgt, rx1214_off
+ rx1214_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1218_done
+ goto rxscan1218_scan
+ rxscan1218_loop:
+ ($P10) = rx1214_cur."from"()
+ inc $P10
+ set rx1214_pos, $P10
+ ge rx1214_pos, rx1214_eos, rxscan1218_done
+ rxscan1218_scan:
+ set_addr $I10, rxscan1218_loop
+ rx1214_cur."!mark_push"(0, rx1214_pos, $I10)
+ rxscan1218_done:
+.annotate 'line', 525
# rx subcapture "sym"
- set_addr $I10, rxcap_1174_fail
- rx1169_cur."!mark_push"(0, rx1169_pos, $I10)
+ set_addr $I10, rxcap_1219_fail
+ rx1214_cur."!mark_push"(0, rx1214_pos, $I10)
# rx literal "lt"
- 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)
+ add $I11, rx1214_pos, 2
+ gt $I11, rx1214_eos, rx1214_fail
+ sub $I11, rx1214_pos, rx1214_off
+ substr $S10, rx1214_tgt, $I11, 2
+ ne $S10, "lt", rx1214_fail
+ add rx1214_pos, 2
+ set_addr $I10, rxcap_1219_fail
+ ($I12, $I11) = rx1214_cur."!mark_peek"($I10)
+ rx1214_cur."!cursor_pos"($I11)
+ ($P10) = rx1214_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1214_pos, "")
+ rx1214_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1174_done
- rxcap_1174_fail:
- goto rx1169_fail
- rxcap_1174_done:
+ goto rxcap_1219_done
+ rxcap_1219_fail:
+ goto rx1214_fail
+ rxcap_1219_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1214_cur."!cursor_pos"(rx1214_pos)
+ $P10 = rx1214_cur."O"("%relational, :pirop<islt ISs>")
+ unless $P10, rx1214_fail
+ rx1214_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1169_pos = $P10."pos"()
+ rx1214_pos = $P10."pos"()
# rx pass
- 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
+ rx1214_cur."!cursor_pass"(rx1214_pos, "infix:sym<lt>")
+ rx1214_cur."!cursor_debug"("PASS ", "infix:sym<lt>", " at pos=", rx1214_pos)
+ .return (rx1214_cur)
+ rx1214_fail:
+.annotate 'line', 446
+ (rx1214_rep, rx1214_pos, $I10, $P10) = rx1214_cur."!mark_fail"(0)
+ lt rx1214_pos, -1, rx1214_done
+ eq rx1214_pos, -1, rx1214_fail
jump $I10
- rx1169_done:
- rx1169_cur."!cursor_fail"()
- rx1169_cur."!cursor_debug"("FAIL ", "infix:sym<lt>")
- .return (rx1169_cur)
+ rx1214_done:
+ rx1214_cur."!cursor_fail"()
+ rx1214_cur."!cursor_debug"("FAIL ", "infix:sym<lt>")
+ .return (rx1214_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<lt>" :subid("307_1275811487.95429") :method
+.annotate 'line', 446
+ $P1216 = self."!PREFIX__!subrule"("O", "lt")
+ new $P1217, "ResizablePMCArray"
+ push $P1217, $P1216
+ .return ($P1217)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<gt>" :subid("308_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1221_tgt
+ .local int rx1221_pos
+ .local int rx1221_off
+ .local int rx1221_eos
+ .local int rx1221_rep
+ .local pmc rx1221_cur
+ (rx1221_cur, rx1221_pos, rx1221_tgt) = self."!cursor_start"()
+ rx1221_cur."!cursor_debug"("START ", "infix:sym<gt>")
+ .lex unicode:"$\x{a2}", rx1221_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1221_eos, rx1221_tgt
+ gt rx1221_pos, rx1221_eos, rx1221_done
+ set rx1221_off, 0
+ lt rx1221_pos, 2, rx1221_start
+ sub rx1221_off, rx1221_pos, 1
+ substr rx1221_tgt, rx1221_tgt, rx1221_off
+ rx1221_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1225_done
+ goto rxscan1225_scan
+ rxscan1225_loop:
+ ($P10) = rx1221_cur."from"()
+ inc $P10
+ set rx1221_pos, $P10
+ ge rx1221_pos, rx1221_eos, rxscan1225_done
+ rxscan1225_scan:
+ set_addr $I10, rxscan1225_loop
+ rx1221_cur."!mark_push"(0, rx1221_pos, $I10)
+ rxscan1225_done:
+.annotate 'line', 526
# rx subcapture "sym"
- set_addr $I10, rxcap_1181_fail
- rx1176_cur."!mark_push"(0, rx1176_pos, $I10)
+ set_addr $I10, rxcap_1226_fail
+ rx1221_cur."!mark_push"(0, rx1221_pos, $I10)
# rx literal "gt"
- 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)
+ add $I11, rx1221_pos, 2
+ gt $I11, rx1221_eos, rx1221_fail
+ sub $I11, rx1221_pos, rx1221_off
+ substr $S10, rx1221_tgt, $I11, 2
+ ne $S10, "gt", rx1221_fail
+ add rx1221_pos, 2
+ set_addr $I10, rxcap_1226_fail
+ ($I12, $I11) = rx1221_cur."!mark_peek"($I10)
+ rx1221_cur."!cursor_pos"($I11)
+ ($P10) = rx1221_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1221_pos, "")
+ rx1221_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1181_done
- rxcap_1181_fail:
- goto rx1176_fail
- rxcap_1181_done:
+ goto rxcap_1226_done
+ rxcap_1226_fail:
+ goto rx1221_fail
+ rxcap_1226_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1221_cur."!cursor_pos"(rx1221_pos)
+ $P10 = rx1221_cur."O"("%relational, :pirop<isgt ISs>")
+ unless $P10, rx1221_fail
+ rx1221_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1176_pos = $P10."pos"()
+ rx1221_pos = $P10."pos"()
# rx pass
- 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
+ rx1221_cur."!cursor_pass"(rx1221_pos, "infix:sym<gt>")
+ rx1221_cur."!cursor_debug"("PASS ", "infix:sym<gt>", " at pos=", rx1221_pos)
+ .return (rx1221_cur)
+ rx1221_fail:
+.annotate 'line', 446
+ (rx1221_rep, rx1221_pos, $I10, $P10) = rx1221_cur."!mark_fail"(0)
+ lt rx1221_pos, -1, rx1221_done
+ eq rx1221_pos, -1, rx1221_fail
jump $I10
- rx1176_done:
- rx1176_cur."!cursor_fail"()
- rx1176_cur."!cursor_debug"("FAIL ", "infix:sym<gt>")
- .return (rx1176_cur)
+ rx1221_done:
+ rx1221_cur."!cursor_fail"()
+ rx1221_cur."!cursor_debug"("FAIL ", "infix:sym<gt>")
+ .return (rx1221_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<gt>" :subid("309_1275811487.95429") :method
+.annotate 'line', 446
+ $P1223 = self."!PREFIX__!subrule"("O", "gt")
+ new $P1224, "ResizablePMCArray"
+ push $P1224, $P1223
+ .return ($P1224)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<=:=>" :subid("310_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1228_tgt
+ .local int rx1228_pos
+ .local int rx1228_off
+ .local int rx1228_eos
+ .local int rx1228_rep
+ .local pmc rx1228_cur
+ (rx1228_cur, rx1228_pos, rx1228_tgt) = self."!cursor_start"()
+ rx1228_cur."!cursor_debug"("START ", "infix:sym<=:=>")
+ .lex unicode:"$\x{a2}", rx1228_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1228_eos, rx1228_tgt
+ gt rx1228_pos, rx1228_eos, rx1228_done
+ set rx1228_off, 0
+ lt rx1228_pos, 2, rx1228_start
+ sub rx1228_off, rx1228_pos, 1
+ substr rx1228_tgt, rx1228_tgt, rx1228_off
+ rx1228_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1232_done
+ goto rxscan1232_scan
+ rxscan1232_loop:
+ ($P10) = rx1228_cur."from"()
+ inc $P10
+ set rx1228_pos, $P10
+ ge rx1228_pos, rx1228_eos, rxscan1232_done
+ rxscan1232_scan:
+ set_addr $I10, rxscan1232_loop
+ rx1228_cur."!mark_push"(0, rx1228_pos, $I10)
+ rxscan1232_done:
+.annotate 'line', 527
# rx subcapture "sym"
- set_addr $I10, rxcap_1188_fail
- rx1183_cur."!mark_push"(0, rx1183_pos, $I10)
+ set_addr $I10, rxcap_1233_fail
+ rx1228_cur."!mark_push"(0, rx1228_pos, $I10)
# rx literal "=:="
- 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)
+ add $I11, rx1228_pos, 3
+ gt $I11, rx1228_eos, rx1228_fail
+ sub $I11, rx1228_pos, rx1228_off
+ substr $S10, rx1228_tgt, $I11, 3
+ ne $S10, "=:=", rx1228_fail
+ add rx1228_pos, 3
+ set_addr $I10, rxcap_1233_fail
+ ($I12, $I11) = rx1228_cur."!mark_peek"($I10)
+ rx1228_cur."!cursor_pos"($I11)
+ ($P10) = rx1228_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1228_pos, "")
+ rx1228_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1188_done
- rxcap_1188_fail:
- goto rx1183_fail
- rxcap_1188_done:
+ goto rxcap_1233_done
+ rxcap_1233_fail:
+ goto rx1228_fail
+ rxcap_1233_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1228_cur."!cursor_pos"(rx1228_pos)
+ $P10 = rx1228_cur."O"("%relational, :pirop<issame>")
+ unless $P10, rx1228_fail
+ rx1228_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1183_pos = $P10."pos"()
+ rx1228_pos = $P10."pos"()
# rx pass
- 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
+ rx1228_cur."!cursor_pass"(rx1228_pos, "infix:sym<=:=>")
+ rx1228_cur."!cursor_debug"("PASS ", "infix:sym<=:=>", " at pos=", rx1228_pos)
+ .return (rx1228_cur)
+ rx1228_fail:
+.annotate 'line', 446
+ (rx1228_rep, rx1228_pos, $I10, $P10) = rx1228_cur."!mark_fail"(0)
+ lt rx1228_pos, -1, rx1228_done
+ eq rx1228_pos, -1, rx1228_fail
jump $I10
- rx1183_done:
- rx1183_cur."!cursor_fail"()
- rx1183_cur."!cursor_debug"("FAIL ", "infix:sym<=:=>")
- .return (rx1183_cur)
+ rx1228_done:
+ rx1228_cur."!cursor_fail"()
+ rx1228_cur."!cursor_debug"("FAIL ", "infix:sym<=:=>")
+ .return (rx1228_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<=:=>" :subid("311_1275811487.95429") :method
+.annotate 'line', 446
+ $P1230 = self."!PREFIX__!subrule"("O", "=:=")
+ new $P1231, "ResizablePMCArray"
+ push $P1231, $P1230
+ .return ($P1231)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<~~>" :subid("312_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1235_tgt
+ .local int rx1235_pos
+ .local int rx1235_off
+ .local int rx1235_eos
+ .local int rx1235_rep
+ .local pmc rx1235_cur
+ (rx1235_cur, rx1235_pos, rx1235_tgt) = self."!cursor_start"()
+ rx1235_cur."!cursor_debug"("START ", "infix:sym<~~>")
+ .lex unicode:"$\x{a2}", rx1235_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1235_eos, rx1235_tgt
+ gt rx1235_pos, rx1235_eos, rx1235_done
+ set rx1235_off, 0
+ lt rx1235_pos, 2, rx1235_start
+ sub rx1235_off, rx1235_pos, 1
+ substr rx1235_tgt, rx1235_tgt, rx1235_off
+ rx1235_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1239_done
+ goto rxscan1239_scan
+ rxscan1239_loop:
+ ($P10) = rx1235_cur."from"()
+ inc $P10
+ set rx1235_pos, $P10
+ ge rx1235_pos, rx1235_eos, rxscan1239_done
+ rxscan1239_scan:
+ set_addr $I10, rxscan1239_loop
+ rx1235_cur."!mark_push"(0, rx1235_pos, $I10)
+ rxscan1239_done:
+.annotate 'line', 528
# rx subcapture "sym"
- set_addr $I10, rxcap_1195_fail
- rx1190_cur."!mark_push"(0, rx1190_pos, $I10)
+ set_addr $I10, rxcap_1240_fail
+ rx1235_cur."!mark_push"(0, rx1235_pos, $I10)
# rx literal "~~"
- 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)
+ add $I11, rx1235_pos, 2
+ gt $I11, rx1235_eos, rx1235_fail
+ sub $I11, rx1235_pos, rx1235_off
+ substr $S10, rx1235_tgt, $I11, 2
+ ne $S10, "~~", rx1235_fail
+ add rx1235_pos, 2
+ set_addr $I10, rxcap_1240_fail
+ ($I12, $I11) = rx1235_cur."!mark_peek"($I10)
+ rx1235_cur."!cursor_pos"($I11)
+ ($P10) = rx1235_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1235_pos, "")
+ rx1235_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1195_done
- rxcap_1195_fail:
- goto rx1190_fail
- rxcap_1195_done:
+ goto rxcap_1240_done
+ rxcap_1240_fail:
+ goto rx1235_fail
+ rxcap_1240_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1235_cur."!cursor_pos"(rx1235_pos)
+ $P10 = rx1235_cur."O"("%relational, :reducecheck<smartmatch>")
+ unless $P10, rx1235_fail
+ rx1235_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1190_pos = $P10."pos"()
+ rx1235_pos = $P10."pos"()
# rx pass
- 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
+ rx1235_cur."!cursor_pass"(rx1235_pos, "infix:sym<~~>")
+ rx1235_cur."!cursor_debug"("PASS ", "infix:sym<~~>", " at pos=", rx1235_pos)
+ .return (rx1235_cur)
+ rx1235_fail:
+.annotate 'line', 446
+ (rx1235_rep, rx1235_pos, $I10, $P10) = rx1235_cur."!mark_fail"(0)
+ lt rx1235_pos, -1, rx1235_done
+ eq rx1235_pos, -1, rx1235_fail
jump $I10
- rx1190_done:
- rx1190_cur."!cursor_fail"()
- rx1190_cur."!cursor_debug"("FAIL ", "infix:sym<~~>")
- .return (rx1190_cur)
+ rx1235_done:
+ rx1235_cur."!cursor_fail"()
+ rx1235_cur."!cursor_debug"("FAIL ", "infix:sym<~~>")
+ .return (rx1235_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<~~>" :subid("313_1275811487.95429") :method
+.annotate 'line', 446
+ $P1237 = self."!PREFIX__!subrule"("O", "~~")
+ new $P1238, "ResizablePMCArray"
+ push $P1238, $P1237
+ .return ($P1238)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<&&>" :subid("314_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1242_tgt
+ .local int rx1242_pos
+ .local int rx1242_off
+ .local int rx1242_eos
+ .local int rx1242_rep
+ .local pmc rx1242_cur
+ (rx1242_cur, rx1242_pos, rx1242_tgt) = self."!cursor_start"()
+ rx1242_cur."!cursor_debug"("START ", "infix:sym<&&>")
+ .lex unicode:"$\x{a2}", rx1242_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1242_eos, rx1242_tgt
+ gt rx1242_pos, rx1242_eos, rx1242_done
+ set rx1242_off, 0
+ lt rx1242_pos, 2, rx1242_start
+ sub rx1242_off, rx1242_pos, 1
+ substr rx1242_tgt, rx1242_tgt, rx1242_off
+ rx1242_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1246_done
+ goto rxscan1246_scan
+ rxscan1246_loop:
+ ($P10) = rx1242_cur."from"()
+ inc $P10
+ set rx1242_pos, $P10
+ ge rx1242_pos, rx1242_eos, rxscan1246_done
+ rxscan1246_scan:
+ set_addr $I10, rxscan1246_loop
+ rx1242_cur."!mark_push"(0, rx1242_pos, $I10)
+ rxscan1246_done:
+.annotate 'line', 530
# rx subcapture "sym"
- set_addr $I10, rxcap_1202_fail
- rx1197_cur."!mark_push"(0, rx1197_pos, $I10)
+ set_addr $I10, rxcap_1247_fail
+ rx1242_cur."!mark_push"(0, rx1242_pos, $I10)
# rx literal "&&"
- 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)
+ add $I11, rx1242_pos, 2
+ gt $I11, rx1242_eos, rx1242_fail
+ sub $I11, rx1242_pos, rx1242_off
+ substr $S10, rx1242_tgt, $I11, 2
+ ne $S10, "&&", rx1242_fail
+ add rx1242_pos, 2
+ set_addr $I10, rxcap_1247_fail
+ ($I12, $I11) = rx1242_cur."!mark_peek"($I10)
+ rx1242_cur."!cursor_pos"($I11)
+ ($P10) = rx1242_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1242_pos, "")
+ rx1242_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1202_done
- rxcap_1202_fail:
- goto rx1197_fail
- rxcap_1202_done:
+ goto rxcap_1247_done
+ rxcap_1247_fail:
+ goto rx1242_fail
+ rxcap_1247_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1242_cur."!cursor_pos"(rx1242_pos)
+ $P10 = rx1242_cur."O"("%tight_and, :pasttype<if>")
+ unless $P10, rx1242_fail
+ rx1242_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1197_pos = $P10."pos"()
+ rx1242_pos = $P10."pos"()
# rx pass
- 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
+ rx1242_cur."!cursor_pass"(rx1242_pos, "infix:sym<&&>")
+ rx1242_cur."!cursor_debug"("PASS ", "infix:sym<&&>", " at pos=", rx1242_pos)
+ .return (rx1242_cur)
+ rx1242_fail:
+.annotate 'line', 446
+ (rx1242_rep, rx1242_pos, $I10, $P10) = rx1242_cur."!mark_fail"(0)
+ lt rx1242_pos, -1, rx1242_done
+ eq rx1242_pos, -1, rx1242_fail
jump $I10
- rx1197_done:
- rx1197_cur."!cursor_fail"()
- rx1197_cur."!cursor_debug"("FAIL ", "infix:sym<&&>")
- .return (rx1197_cur)
+ rx1242_done:
+ rx1242_cur."!cursor_fail"()
+ rx1242_cur."!cursor_debug"("FAIL ", "infix:sym<&&>")
+ .return (rx1242_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<&&>" :subid("315_1275811487.95429") :method
+.annotate 'line', 446
+ $P1244 = self."!PREFIX__!subrule"("O", "&&")
+ new $P1245, "ResizablePMCArray"
+ push $P1245, $P1244
+ .return ($P1245)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<||>" :subid("316_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1249_tgt
+ .local int rx1249_pos
+ .local int rx1249_off
+ .local int rx1249_eos
+ .local int rx1249_rep
+ .local pmc rx1249_cur
+ (rx1249_cur, rx1249_pos, rx1249_tgt) = self."!cursor_start"()
+ rx1249_cur."!cursor_debug"("START ", "infix:sym<||>")
+ .lex unicode:"$\x{a2}", rx1249_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1249_eos, rx1249_tgt
+ gt rx1249_pos, rx1249_eos, rx1249_done
+ set rx1249_off, 0
+ lt rx1249_pos, 2, rx1249_start
+ sub rx1249_off, rx1249_pos, 1
+ substr rx1249_tgt, rx1249_tgt, rx1249_off
+ rx1249_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1253_done
+ goto rxscan1253_scan
+ rxscan1253_loop:
+ ($P10) = rx1249_cur."from"()
+ inc $P10
+ set rx1249_pos, $P10
+ ge rx1249_pos, rx1249_eos, rxscan1253_done
+ rxscan1253_scan:
+ set_addr $I10, rxscan1253_loop
+ rx1249_cur."!mark_push"(0, rx1249_pos, $I10)
+ rxscan1253_done:
+.annotate 'line', 532
# rx subcapture "sym"
- set_addr $I10, rxcap_1209_fail
- rx1204_cur."!mark_push"(0, rx1204_pos, $I10)
+ set_addr $I10, rxcap_1254_fail
+ rx1249_cur."!mark_push"(0, rx1249_pos, $I10)
# rx literal "||"
- 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)
+ add $I11, rx1249_pos, 2
+ gt $I11, rx1249_eos, rx1249_fail
+ sub $I11, rx1249_pos, rx1249_off
+ substr $S10, rx1249_tgt, $I11, 2
+ ne $S10, "||", rx1249_fail
+ add rx1249_pos, 2
+ set_addr $I10, rxcap_1254_fail
+ ($I12, $I11) = rx1249_cur."!mark_peek"($I10)
+ rx1249_cur."!cursor_pos"($I11)
+ ($P10) = rx1249_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1249_pos, "")
+ rx1249_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1209_done
- rxcap_1209_fail:
- goto rx1204_fail
- rxcap_1209_done:
+ goto rxcap_1254_done
+ rxcap_1254_fail:
+ goto rx1249_fail
+ rxcap_1254_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1249_cur."!cursor_pos"(rx1249_pos)
+ $P10 = rx1249_cur."O"("%tight_or, :pasttype<unless>")
+ unless $P10, rx1249_fail
+ rx1249_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1204_pos = $P10."pos"()
+ rx1249_pos = $P10."pos"()
# rx pass
- 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
+ rx1249_cur."!cursor_pass"(rx1249_pos, "infix:sym<||>")
+ rx1249_cur."!cursor_debug"("PASS ", "infix:sym<||>", " at pos=", rx1249_pos)
+ .return (rx1249_cur)
+ rx1249_fail:
+.annotate 'line', 446
+ (rx1249_rep, rx1249_pos, $I10, $P10) = rx1249_cur."!mark_fail"(0)
+ lt rx1249_pos, -1, rx1249_done
+ eq rx1249_pos, -1, rx1249_fail
jump $I10
- rx1204_done:
- rx1204_cur."!cursor_fail"()
- rx1204_cur."!cursor_debug"("FAIL ", "infix:sym<||>")
- .return (rx1204_cur)
+ rx1249_done:
+ rx1249_cur."!cursor_fail"()
+ rx1249_cur."!cursor_debug"("FAIL ", "infix:sym<||>")
+ .return (rx1249_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<||>" :subid("317_1275811487.95429") :method
+.annotate 'line', 446
+ $P1251 = self."!PREFIX__!subrule"("O", "||")
+ new $P1252, "ResizablePMCArray"
+ push $P1252, $P1251
+ .return ($P1252)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<//>" :subid("318_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1256_tgt
+ .local int rx1256_pos
+ .local int rx1256_off
+ .local int rx1256_eos
+ .local int rx1256_rep
+ .local pmc rx1256_cur
+ (rx1256_cur, rx1256_pos, rx1256_tgt) = self."!cursor_start"()
+ rx1256_cur."!cursor_debug"("START ", "infix:sym<//>")
+ .lex unicode:"$\x{a2}", rx1256_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1256_eos, rx1256_tgt
+ gt rx1256_pos, rx1256_eos, rx1256_done
+ set rx1256_off, 0
+ lt rx1256_pos, 2, rx1256_start
+ sub rx1256_off, rx1256_pos, 1
+ substr rx1256_tgt, rx1256_tgt, rx1256_off
+ rx1256_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1260_done
+ goto rxscan1260_scan
+ rxscan1260_loop:
+ ($P10) = rx1256_cur."from"()
+ inc $P10
+ set rx1256_pos, $P10
+ ge rx1256_pos, rx1256_eos, rxscan1260_done
+ rxscan1260_scan:
+ set_addr $I10, rxscan1260_loop
+ rx1256_cur."!mark_push"(0, rx1256_pos, $I10)
+ rxscan1260_done:
+.annotate 'line', 533
# rx subcapture "sym"
- set_addr $I10, rxcap_1216_fail
- rx1211_cur."!mark_push"(0, rx1211_pos, $I10)
+ set_addr $I10, rxcap_1261_fail
+ rx1256_cur."!mark_push"(0, rx1256_pos, $I10)
# rx literal "//"
- 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)
+ add $I11, rx1256_pos, 2
+ gt $I11, rx1256_eos, rx1256_fail
+ sub $I11, rx1256_pos, rx1256_off
+ substr $S10, rx1256_tgt, $I11, 2
+ ne $S10, "//", rx1256_fail
+ add rx1256_pos, 2
+ set_addr $I10, rxcap_1261_fail
+ ($I12, $I11) = rx1256_cur."!mark_peek"($I10)
+ rx1256_cur."!cursor_pos"($I11)
+ ($P10) = rx1256_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1256_pos, "")
+ rx1256_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1216_done
- rxcap_1216_fail:
- goto rx1211_fail
- rxcap_1216_done:
+ goto rxcap_1261_done
+ rxcap_1261_fail:
+ goto rx1256_fail
+ rxcap_1261_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1256_cur."!cursor_pos"(rx1256_pos)
+ $P10 = rx1256_cur."O"("%tight_or, :pasttype<def_or>")
+ unless $P10, rx1256_fail
+ rx1256_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1211_pos = $P10."pos"()
+ rx1256_pos = $P10."pos"()
# rx pass
- 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
+ rx1256_cur."!cursor_pass"(rx1256_pos, "infix:sym<//>")
+ rx1256_cur."!cursor_debug"("PASS ", "infix:sym<//>", " at pos=", rx1256_pos)
+ .return (rx1256_cur)
+ rx1256_fail:
+.annotate 'line', 446
+ (rx1256_rep, rx1256_pos, $I10, $P10) = rx1256_cur."!mark_fail"(0)
+ lt rx1256_pos, -1, rx1256_done
+ eq rx1256_pos, -1, rx1256_fail
jump $I10
- rx1211_done:
- rx1211_cur."!cursor_fail"()
- rx1211_cur."!cursor_debug"("FAIL ", "infix:sym<//>")
- .return (rx1211_cur)
+ rx1256_done:
+ rx1256_cur."!cursor_fail"()
+ rx1256_cur."!cursor_debug"("FAIL ", "infix:sym<//>")
+ .return (rx1256_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<//>" :subid("319_1275811487.95429") :method
+.annotate 'line', 446
+ $P1258 = self."!PREFIX__!subrule"("O", "//")
+ new $P1259, "ResizablePMCArray"
+ push $P1259, $P1258
+ .return ($P1259)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<?? !!>" :subid("320_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1263_tgt
+ .local int rx1263_pos
+ .local int rx1263_off
+ .local int rx1263_eos
+ .local int rx1263_rep
+ .local pmc rx1263_cur
+ (rx1263_cur, rx1263_pos, rx1263_tgt) = self."!cursor_start"()
+ rx1263_cur."!cursor_debug"("START ", "infix:sym<?? !!>")
+ .lex unicode:"$\x{a2}", rx1263_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1263_eos, rx1263_tgt
+ gt rx1263_pos, rx1263_eos, rx1263_done
+ set rx1263_off, 0
+ lt rx1263_pos, 2, rx1263_start
+ sub rx1263_off, rx1263_pos, 1
+ substr rx1263_tgt, rx1263_tgt, rx1263_off
+ rx1263_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1267_done
+ goto rxscan1267_scan
+ rxscan1267_loop:
+ ($P10) = rx1263_cur."from"()
+ inc $P10
+ set rx1263_pos, $P10
+ ge rx1263_pos, rx1263_eos, rxscan1267_done
+ rxscan1267_scan:
+ set_addr $I10, rxscan1267_loop
+ rx1263_cur."!mark_push"(0, rx1263_pos, $I10)
+ rxscan1267_done:
+.annotate 'line', 536
# rx literal "??"
- 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
+ add $I11, rx1263_pos, 2
+ gt $I11, rx1263_eos, rx1263_fail
+ sub $I11, rx1263_pos, rx1263_off
+ substr $S10, rx1263_tgt, $I11, 2
+ ne $S10, "??", rx1263_fail
+ add rx1263_pos, 2
+.annotate 'line', 537
# rx subrule "ws" subtype=method negate=
- rx1218_cur."!cursor_pos"(rx1218_pos)
- $P10 = rx1218_cur."ws"()
- unless $P10, rx1218_fail
- rx1218_pos = $P10."pos"()
-.annotate 'line', 525
+ rx1263_cur."!cursor_pos"(rx1263_pos)
+ $P10 = rx1263_cur."ws"()
+ unless $P10, rx1263_fail
+ rx1263_pos = $P10."pos"()
+.annotate 'line', 538
# rx subrule "EXPR" subtype=capture negate=
- rx1218_cur."!cursor_pos"(rx1218_pos)
- $P10 = rx1218_cur."EXPR"("i=")
- unless $P10, rx1218_fail
- rx1218_cur."!mark_push"(0, -1, 0, $P10)
+ rx1263_cur."!cursor_pos"(rx1263_pos)
+ $P10 = rx1263_cur."EXPR"("i=")
+ unless $P10, rx1263_fail
+ rx1263_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx1218_pos = $P10."pos"()
-.annotate 'line', 526
+ rx1263_pos = $P10."pos"()
+.annotate 'line', 539
# rx literal "!!"
- 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
+ add $I11, rx1263_pos, 2
+ gt $I11, rx1263_eos, rx1263_fail
+ sub $I11, rx1263_pos, rx1263_off
+ substr $S10, rx1263_tgt, $I11, 2
+ ne $S10, "!!", rx1263_fail
+ add rx1263_pos, 2
+.annotate 'line', 540
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1263_cur."!cursor_pos"(rx1263_pos)
+ $P10 = rx1263_cur."O"("%conditional, :reducecheck<ternary>, :pasttype<if>")
+ unless $P10, rx1263_fail
+ rx1263_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1218_pos = $P10."pos"()
-.annotate 'line', 522
+ rx1263_pos = $P10."pos"()
+.annotate 'line', 535
# rx pass
- 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
+ rx1263_cur."!cursor_pass"(rx1263_pos, "infix:sym<?? !!>")
+ rx1263_cur."!cursor_debug"("PASS ", "infix:sym<?? !!>", " at pos=", rx1263_pos)
+ .return (rx1263_cur)
+ rx1263_fail:
+.annotate 'line', 446
+ (rx1263_rep, rx1263_pos, $I10, $P10) = rx1263_cur."!mark_fail"(0)
+ lt rx1263_pos, -1, rx1263_done
+ eq rx1263_pos, -1, rx1263_fail
jump $I10
- rx1218_done:
- rx1218_cur."!cursor_fail"()
- rx1218_cur."!cursor_debug"("FAIL ", "infix:sym<?? !!>")
- .return (rx1218_cur)
+ rx1263_done:
+ rx1263_cur."!cursor_fail"()
+ rx1263_cur."!cursor_debug"("FAIL ", "infix:sym<?? !!>")
+ .return (rx1263_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<?? !!>" :subid("312_1275117591.97262") :method
-.annotate 'line', 433
- $P1220 = self."!PREFIX__!subrule"("", "??")
- new $P1221, "ResizablePMCArray"
- push $P1221, $P1220
- .return ($P1221)
+.sub "!PREFIX__infix:sym<?? !!>" :subid("321_1275811487.95429") :method
+.annotate 'line', 446
+ $P1265 = self."!PREFIX__!subrule"("ws", "??")
+ new $P1266, "ResizablePMCArray"
+ push $P1266, $P1265
+ .return ($P1266)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<=>" :subid("322_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1269_tgt
+ .local int rx1269_pos
+ .local int rx1269_off
+ .local int rx1269_eos
+ .local int rx1269_rep
+ .local pmc rx1269_cur
+ (rx1269_cur, rx1269_pos, rx1269_tgt) = self."!cursor_start"()
+ rx1269_cur."!cursor_debug"("START ", "infix:sym<=>")
+ .lex unicode:"$\x{a2}", rx1269_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1269_eos, rx1269_tgt
+ gt rx1269_pos, rx1269_eos, rx1269_done
+ set rx1269_off, 0
+ lt rx1269_pos, 2, rx1269_start
+ sub rx1269_off, rx1269_pos, 1
+ substr rx1269_tgt, rx1269_tgt, rx1269_off
+ rx1269_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1273_done
+ goto rxscan1273_scan
+ rxscan1273_loop:
+ ($P10) = rx1269_cur."from"()
+ inc $P10
+ set rx1269_pos, $P10
+ ge rx1269_pos, rx1269_eos, rxscan1273_done
+ rxscan1273_scan:
+ set_addr $I10, rxscan1273_loop
+ rx1269_cur."!mark_push"(0, rx1269_pos, $I10)
+ rxscan1273_done:
+.annotate 'line', 544
# rx subcapture "sym"
- set_addr $I10, rxcap_1229_fail
- rx1224_cur."!mark_push"(0, rx1224_pos, $I10)
+ set_addr $I10, rxcap_1274_fail
+ rx1269_cur."!mark_push"(0, rx1269_pos, $I10)
# rx literal "="
- 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)
+ add $I11, rx1269_pos, 1
+ gt $I11, rx1269_eos, rx1269_fail
+ sub $I11, rx1269_pos, rx1269_off
+ substr $S10, rx1269_tgt, $I11, 1
+ ne $S10, "=", rx1269_fail
+ add rx1269_pos, 1
+ set_addr $I10, rxcap_1274_fail
+ ($I12, $I11) = rx1269_cur."!mark_peek"($I10)
+ rx1269_cur."!cursor_pos"($I11)
+ ($P10) = rx1269_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1269_pos, "")
+ rx1269_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1229_done
- rxcap_1229_fail:
- goto rx1224_fail
- rxcap_1229_done:
+ goto rxcap_1274_done
+ rxcap_1274_fail:
+ goto rx1269_fail
+ rxcap_1274_done:
# rx subrule "panic" subtype=method negate=
- 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
+ rx1269_cur."!cursor_pos"(rx1269_pos)
+ $P10 = rx1269_cur."panic"("Assignment (\"=\") not supported in NQP, use \":=\" instead")
+ unless $P10, rx1269_fail
+ rx1269_pos = $P10."pos"()
+.annotate 'line', 543
+ # rx pass
+ rx1269_cur."!cursor_pass"(rx1269_pos, "infix:sym<=>")
+ rx1269_cur."!cursor_debug"("PASS ", "infix:sym<=>", " at pos=", rx1269_pos)
+ .return (rx1269_cur)
+ rx1269_fail:
+.annotate 'line', 446
+ (rx1269_rep, rx1269_pos, $I10, $P10) = rx1269_cur."!mark_fail"(0)
+ lt rx1269_pos, -1, rx1269_done
+ eq rx1269_pos, -1, rx1269_fail
jump $I10
- rx1224_done:
- rx1224_cur."!cursor_fail"()
- rx1224_cur."!cursor_debug"("FAIL ", "infix:sym<=>")
- .return (rx1224_cur)
+ rx1269_done:
+ rx1269_cur."!cursor_fail"()
+ rx1269_cur."!cursor_debug"("FAIL ", "infix:sym<=>")
+ .return (rx1269_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__infix:sym<=>" :subid("314_1275117591.97262") :method
-.annotate 'line', 433
- $P1226 = self."!PREFIX__!subrule"("", "=")
- new $P1227, "ResizablePMCArray"
- push $P1227, $P1226
- .return ($P1227)
+.sub "!PREFIX__infix:sym<=>" :subid("323_1275811487.95429") :method
+.annotate 'line', 446
+ $P1271 = self."!PREFIX__!subrule"("panic", "=")
+ new $P1272, "ResizablePMCArray"
+ push $P1272, $P1271
+ .return ($P1272)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<:=>" :subid("324_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .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 ", "infix:sym<:=>")
+ .lex unicode:"$\x{a2}", rx1276_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1276_eos, rx1276_tgt
+ gt rx1276_pos, rx1276_eos, rx1276_done
+ 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, rxscan1280_done
+ goto rxscan1280_scan
+ rxscan1280_loop:
+ ($P10) = rx1276_cur."from"()
+ inc $P10
+ set rx1276_pos, $P10
+ ge rx1276_pos, rx1276_eos, rxscan1280_done
+ rxscan1280_scan:
+ set_addr $I10, rxscan1280_loop
+ rx1276_cur."!mark_push"(0, rx1276_pos, $I10)
+ rxscan1280_done:
+.annotate 'line', 546
# rx subcapture "sym"
- set_addr $I10, rxcap_1236_fail
- rx1231_cur."!mark_push"(0, rx1231_pos, $I10)
+ set_addr $I10, rxcap_1281_fail
+ rx1276_cur."!mark_push"(0, rx1276_pos, $I10)
# rx literal ":="
- 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)
+ add $I11, rx1276_pos, 2
+ gt $I11, rx1276_eos, rx1276_fail
+ sub $I11, rx1276_pos, rx1276_off
+ substr $S10, rx1276_tgt, $I11, 2
+ ne $S10, ":=", rx1276_fail
+ add rx1276_pos, 2
+ set_addr $I10, rxcap_1281_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_1236_done
- rxcap_1236_fail:
- goto rx1231_fail
- rxcap_1236_done:
+ goto rxcap_1281_done
+ rxcap_1281_fail:
+ goto rx1276_fail
+ rxcap_1281_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1276_cur."!cursor_pos"(rx1276_pos)
+ $P10 = rx1276_cur."O"("%assignment, :pasttype<bind>")
+ unless $P10, rx1276_fail
+ rx1276_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1231_pos = $P10."pos"()
+ rx1276_pos = $P10."pos"()
# rx pass
- 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
+ rx1276_cur."!cursor_pass"(rx1276_pos, "infix:sym<:=>")
+ rx1276_cur."!cursor_debug"("PASS ", "infix:sym<:=>", " at pos=", rx1276_pos)
+ .return (rx1276_cur)
+ rx1276_fail:
+.annotate 'line', 446
+ (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
- rx1231_done:
- rx1231_cur."!cursor_fail"()
- rx1231_cur."!cursor_debug"("FAIL ", "infix:sym<:=>")
- .return (rx1231_cur)
+ rx1276_done:
+ rx1276_cur."!cursor_fail"()
+ rx1276_cur."!cursor_debug"("FAIL ", "infix:sym<:=>")
+ .return (rx1276_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<:=>" :subid("325_1275811487.95429") :method
+.annotate 'line', 446
+ $P1278 = self."!PREFIX__!subrule"("O", ":=")
+ new $P1279, "ResizablePMCArray"
+ push $P1279, $P1278
+ .return ($P1279)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<::=>" :subid("326_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1283_tgt
+ .local int rx1283_pos
+ .local int rx1283_off
+ .local int rx1283_eos
+ .local int rx1283_rep
+ .local pmc rx1283_cur
+ (rx1283_cur, rx1283_pos, rx1283_tgt) = self."!cursor_start"()
+ rx1283_cur."!cursor_debug"("START ", "infix:sym<::=>")
+ .lex unicode:"$\x{a2}", rx1283_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1283_eos, rx1283_tgt
+ gt rx1283_pos, rx1283_eos, rx1283_done
+ set rx1283_off, 0
+ lt rx1283_pos, 2, rx1283_start
+ sub rx1283_off, rx1283_pos, 1
+ substr rx1283_tgt, rx1283_tgt, rx1283_off
+ rx1283_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1287_done
+ goto rxscan1287_scan
+ rxscan1287_loop:
+ ($P10) = rx1283_cur."from"()
+ inc $P10
+ set rx1283_pos, $P10
+ ge rx1283_pos, rx1283_eos, rxscan1287_done
+ rxscan1287_scan:
+ set_addr $I10, rxscan1287_loop
+ rx1283_cur."!mark_push"(0, rx1283_pos, $I10)
+ rxscan1287_done:
+.annotate 'line', 547
# rx subcapture "sym"
- set_addr $I10, rxcap_1243_fail
- rx1238_cur."!mark_push"(0, rx1238_pos, $I10)
+ set_addr $I10, rxcap_1288_fail
+ rx1283_cur."!mark_push"(0, rx1283_pos, $I10)
# rx literal "::="
- 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)
+ add $I11, rx1283_pos, 3
+ gt $I11, rx1283_eos, rx1283_fail
+ sub $I11, rx1283_pos, rx1283_off
+ substr $S10, rx1283_tgt, $I11, 3
+ ne $S10, "::=", rx1283_fail
+ add rx1283_pos, 3
+ set_addr $I10, rxcap_1288_fail
+ ($I12, $I11) = rx1283_cur."!mark_peek"($I10)
+ rx1283_cur."!cursor_pos"($I11)
+ ($P10) = rx1283_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1283_pos, "")
+ rx1283_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1243_done
- rxcap_1243_fail:
- goto rx1238_fail
- rxcap_1243_done:
+ goto rxcap_1288_done
+ rxcap_1288_fail:
+ goto rx1283_fail
+ rxcap_1288_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1283_cur."!cursor_pos"(rx1283_pos)
+ $P10 = rx1283_cur."O"("%assignment, :pasttype<bind>")
+ unless $P10, rx1283_fail
+ rx1283_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1238_pos = $P10."pos"()
+ rx1283_pos = $P10."pos"()
# rx pass
- 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
+ rx1283_cur."!cursor_pass"(rx1283_pos, "infix:sym<::=>")
+ rx1283_cur."!cursor_debug"("PASS ", "infix:sym<::=>", " at pos=", rx1283_pos)
+ .return (rx1283_cur)
+ rx1283_fail:
+.annotate 'line', 446
+ (rx1283_rep, rx1283_pos, $I10, $P10) = rx1283_cur."!mark_fail"(0)
+ lt rx1283_pos, -1, rx1283_done
+ eq rx1283_pos, -1, rx1283_fail
jump $I10
- rx1238_done:
- rx1238_cur."!cursor_fail"()
- rx1238_cur."!cursor_debug"("FAIL ", "infix:sym<::=>")
- .return (rx1238_cur)
+ rx1283_done:
+ rx1283_cur."!cursor_fail"()
+ rx1283_cur."!cursor_debug"("FAIL ", "infix:sym<::=>")
+ .return (rx1283_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<::=>" :subid("327_1275811487.95429") :method
+.annotate 'line', 446
+ $P1285 = self."!PREFIX__!subrule"("O", "::=")
+ new $P1286, "ResizablePMCArray"
+ push $P1286, $P1285
+ .return ($P1286)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "infix:sym<,>" :subid("328_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1290_tgt
+ .local int rx1290_pos
+ .local int rx1290_off
+ .local int rx1290_eos
+ .local int rx1290_rep
+ .local pmc rx1290_cur
+ (rx1290_cur, rx1290_pos, rx1290_tgt) = self."!cursor_start"()
+ rx1290_cur."!cursor_debug"("START ", "infix:sym<,>")
+ .lex unicode:"$\x{a2}", rx1290_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1290_eos, rx1290_tgt
+ gt rx1290_pos, rx1290_eos, rx1290_done
+ set rx1290_off, 0
+ lt rx1290_pos, 2, rx1290_start
+ sub rx1290_off, rx1290_pos, 1
+ substr rx1290_tgt, rx1290_tgt, rx1290_off
+ rx1290_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1294_done
+ goto rxscan1294_scan
+ rxscan1294_loop:
+ ($P10) = rx1290_cur."from"()
+ inc $P10
+ set rx1290_pos, $P10
+ ge rx1290_pos, rx1290_eos, rxscan1294_done
+ rxscan1294_scan:
+ set_addr $I10, rxscan1294_loop
+ rx1290_cur."!mark_push"(0, rx1290_pos, $I10)
+ rxscan1294_done:
+.annotate 'line', 549
# rx subcapture "sym"
- set_addr $I10, rxcap_1250_fail
- rx1245_cur."!mark_push"(0, rx1245_pos, $I10)
+ set_addr $I10, rxcap_1295_fail
+ rx1290_cur."!mark_push"(0, rx1290_pos, $I10)
# rx literal ","
- 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)
+ add $I11, rx1290_pos, 1
+ gt $I11, rx1290_eos, rx1290_fail
+ sub $I11, rx1290_pos, rx1290_off
+ substr $S10, rx1290_tgt, $I11, 1
+ ne $S10, ",", rx1290_fail
+ add rx1290_pos, 1
+ set_addr $I10, rxcap_1295_fail
+ ($I12, $I11) = rx1290_cur."!mark_peek"($I10)
+ rx1290_cur."!cursor_pos"($I11)
+ ($P10) = rx1290_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1290_pos, "")
+ rx1290_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1250_done
- rxcap_1250_fail:
- goto rx1245_fail
- rxcap_1250_done:
+ goto rxcap_1295_done
+ rxcap_1295_fail:
+ goto rx1290_fail
+ rxcap_1295_done:
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1290_cur."!cursor_pos"(rx1290_pos)
+ $P10 = rx1290_cur."O"("%comma, :pasttype<list>")
+ unless $P10, rx1290_fail
+ rx1290_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1245_pos = $P10."pos"()
+ rx1290_pos = $P10."pos"()
# rx pass
- 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
+ rx1290_cur."!cursor_pass"(rx1290_pos, "infix:sym<,>")
+ rx1290_cur."!cursor_debug"("PASS ", "infix:sym<,>", " at pos=", rx1290_pos)
+ .return (rx1290_cur)
+ rx1290_fail:
+.annotate 'line', 446
+ (rx1290_rep, rx1290_pos, $I10, $P10) = rx1290_cur."!mark_fail"(0)
+ lt rx1290_pos, -1, rx1290_done
+ eq rx1290_pos, -1, rx1290_fail
jump $I10
- rx1245_done:
- rx1245_cur."!cursor_fail"()
- rx1245_cur."!cursor_debug"("FAIL ", "infix:sym<,>")
- .return (rx1245_cur)
+ rx1290_done:
+ rx1290_cur."!cursor_fail"()
+ rx1290_cur."!cursor_debug"("FAIL ", "infix:sym<,>")
+ .return (rx1290_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.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)
+.sub "!PREFIX__infix:sym<,>" :subid("329_1275811487.95429") :method
+.annotate 'line', 446
+ $P1292 = self."!PREFIX__!subrule"("O", ",")
+ new $P1293, "ResizablePMCArray"
+ push $P1293, $P1292
+ .return ($P1293)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<return>" :subid("330_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .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 ", "prefix:sym<return>")
+ .lex unicode:"$\x{a2}", rx1297_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1297_eos, rx1297_tgt
+ gt rx1297_pos, rx1297_eos, rx1297_done
+ 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', 551
# rx subcapture "sym"
- set_addr $I10, rxcap_1256_fail
- rx1252_cur."!mark_push"(0, rx1252_pos, $I10)
+ set_addr $I10, rxcap_1301_fail
+ rx1297_cur."!mark_push"(0, rx1297_pos, $I10)
# rx literal "return"
- 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)
+ add $I11, rx1297_pos, 6
+ gt $I11, rx1297_eos, rx1297_fail
+ sub $I11, rx1297_pos, rx1297_off
+ substr $S10, rx1297_tgt, $I11, 6
+ ne $S10, "return", rx1297_fail
+ add rx1297_pos, 6
+ set_addr $I10, rxcap_1301_fail
+ ($I12, $I11) = rx1297_cur."!mark_peek"($I10)
+ rx1297_cur."!cursor_pos"($I11)
+ ($P10) = rx1297_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1297_pos, "")
+ rx1297_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1256_done
- rxcap_1256_fail:
- goto rx1252_fail
- rxcap_1256_done:
+ goto rxcap_1301_done
+ rxcap_1301_fail:
+ goto rx1297_fail
+ rxcap_1301_done:
# rx charclass s
- 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
+ ge rx1297_pos, rx1297_eos, rx1297_fail
+ sub $I10, rx1297_pos, rx1297_off
+ is_cclass $I11, 32, rx1297_tgt, $I10
+ unless $I11, rx1297_fail
+ inc rx1297_pos
# rx subrule "O" subtype=capture negate=
- 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)
+ rx1297_cur."!cursor_pos"(rx1297_pos)
+ $P10 = rx1297_cur."O"("%list_prefix, :pasttype<return>")
+ unless $P10, rx1297_fail
+ rx1297_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1252_pos = $P10."pos"()
+ rx1297_pos = $P10."pos"()
# rx pass
- 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
+ rx1297_cur."!cursor_pass"(rx1297_pos, "prefix:sym<return>")
+ rx1297_cur."!cursor_debug"("PASS ", "prefix:sym<return>", " at pos=", rx1297_pos)
+ .return (rx1297_cur)
+ rx1297_fail:
+.annotate 'line', 446
+ (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
- rx1252_done:
- rx1252_cur."!cursor_fail"()
- rx1252_cur."!cursor_debug"("FAIL ", "prefix:sym<return>")
- .return (rx1252_cur)
- .return ()
+ rx1297_done:
+ rx1297_cur."!cursor_fail"()
+ rx1297_cur."!cursor_debug"("FAIL ", "prefix:sym<return>")
+ .return (rx1297_cur)
+ .return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<return>" :subid("322_1275117591.97262") :method
-.annotate 'line', 433
- new $P1254, "ResizablePMCArray"
- push $P1254, "return"
- .return ($P1254)
+.sub "!PREFIX__prefix:sym<return>" :subid("331_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1299, "ResizablePMCArray"
+ push $P1299, "return"
+ .return ($P1299)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "prefix:sym<make>" :subid("332_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .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 ", "prefix:sym<make>")
+ .lex unicode:"$\x{a2}", rx1303_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1303_eos, rx1303_tgt
+ gt rx1303_pos, rx1303_eos, rx1303_done
+ 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, rxscan1306_done
+ goto rxscan1306_scan
+ rxscan1306_loop:
+ ($P10) = rx1303_cur."from"()
+ inc $P10
+ set rx1303_pos, $P10
+ ge rx1303_pos, rx1303_eos, rxscan1306_done
+ rxscan1306_scan:
+ set_addr $I10, rxscan1306_loop
+ rx1303_cur."!mark_push"(0, rx1303_pos, $I10)
+ rxscan1306_done:
+.annotate 'line', 552
# rx subcapture "sym"
- set_addr $I10, rxcap_1262_fail
- rx1258_cur."!mark_push"(0, rx1258_pos, $I10)
+ set_addr $I10, rxcap_1307_fail
+ rx1303_cur."!mark_push"(0, rx1303_pos, $I10)
# rx literal "make"
- 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)
+ add $I11, rx1303_pos, 4
+ gt $I11, rx1303_eos, rx1303_fail
+ sub $I11, rx1303_pos, rx1303_off
+ substr $S10, rx1303_tgt, $I11, 4
+ ne $S10, "make", rx1303_fail
+ add rx1303_pos, 4
+ set_addr $I10, rxcap_1307_fail
+ ($I12, $I11) = rx1303_cur."!mark_peek"($I10)
+ rx1303_cur."!cursor_pos"($I11)
+ ($P10) = rx1303_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1303_pos, "")
+ rx1303_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_1262_done
- rxcap_1262_fail:
- goto rx1258_fail
- rxcap_1262_done:
+ goto rxcap_1307_done
+ rxcap_1307_fail:
+ goto rx1303_fail
+ rxcap_1307_done:
# rx charclass s
- 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
+ ge rx1303_pos, rx1303_eos, rx1303_fail
+ sub $I10, rx1303_pos, rx1303_off
+ is_cclass $I11, 32, rx1303_tgt, $I10
+ unless $I11, rx1303_fail
+ inc rx1303_pos
# rx subrule "O" subtype=capture negate=
- rx1258_cur."!cursor_pos"(rx1258_pos)
- $P10 = rx1258_cur."O"("%list_prefix")
- unless $P10, rx1258_fail
- rx1258_cur."!mark_push"(0, -1, 0, $P10)
+ rx1303_cur."!cursor_pos"(rx1303_pos)
+ $P10 = rx1303_cur."O"("%list_prefix")
+ unless $P10, rx1303_fail
+ rx1303_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("O")
- rx1258_pos = $P10."pos"()
+ rx1303_pos = $P10."pos"()
# rx pass
- 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
+ rx1303_cur."!cursor_pass"(rx1303_pos, "prefix:sym<make>")
+ rx1303_cur."!cursor_debug"("PASS ", "prefix:sym<make>", " at pos=", rx1303_pos)
+ .return (rx1303_cur)
+ rx1303_fail:
+.annotate 'line', 446
+ (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
- rx1258_done:
- rx1258_cur."!cursor_fail"()
- rx1258_cur."!cursor_debug"("FAIL ", "prefix:sym<make>")
- .return (rx1258_cur)
+ rx1303_done:
+ rx1303_cur."!cursor_fail"()
+ rx1303_cur."!cursor_debug"("FAIL ", "prefix:sym<make>")
+ .return (rx1303_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__prefix:sym<make>" :subid("324_1275117591.97262") :method
-.annotate 'line', 433
- new $P1260, "ResizablePMCArray"
- push $P1260, "make"
- .return ($P1260)
+.sub "!PREFIX__prefix:sym<make>" :subid("333_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1305, "ResizablePMCArray"
+ push $P1305, "make"
+ .return ($P1305)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "term:sym<last>" :subid("334_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1309_tgt
+ .local int rx1309_pos
+ .local int rx1309_off
+ .local int rx1309_eos
+ .local int rx1309_rep
+ .local pmc rx1309_cur
+ (rx1309_cur, rx1309_pos, rx1309_tgt) = self."!cursor_start"()
+ rx1309_cur."!cursor_debug"("START ", "term:sym<last>")
+ .lex unicode:"$\x{a2}", rx1309_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1309_eos, rx1309_tgt
+ gt rx1309_pos, rx1309_eos, rx1309_done
+ set rx1309_off, 0
+ lt rx1309_pos, 2, rx1309_start
+ sub rx1309_off, rx1309_pos, 1
+ substr rx1309_tgt, rx1309_tgt, rx1309_off
+ rx1309_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1312_done
+ goto rxscan1312_scan
+ rxscan1312_loop:
+ ($P10) = rx1309_cur."from"()
+ inc $P10
+ set rx1309_pos, $P10
+ ge rx1309_pos, rx1309_eos, rxscan1312_done
+ rxscan1312_scan:
+ set_addr $I10, rxscan1312_loop
+ rx1309_cur."!mark_push"(0, rx1309_pos, $I10)
+ rxscan1312_done:
+.annotate 'line', 553
# rx subcapture "sym"
- set_addr $I10, rxcap_1268_fail
- rx1264_cur."!mark_push"(0, rx1264_pos, $I10)
+ set_addr $I10, rxcap_1313_fail
+ rx1309_cur."!mark_push"(0, rx1309_pos, $I10)
# rx literal "last"
- 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)
+ add $I11, rx1309_pos, 4
+ gt $I11, rx1309_eos, rx1309_fail
+ sub $I11, rx1309_pos, rx1309_off
+ substr $S10, rx1309_tgt, $I11, 4
+ ne $S10, "last", rx1309_fail
+ add rx1309_pos, 4
+ set_addr $I10, rxcap_1313_fail
+ ($I12, $I11) = rx1309_cur."!mark_peek"($I10)
+ rx1309_cur."!cursor_pos"($I11)
+ ($P10) = rx1309_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1309_pos, "")
+ rx1309_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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
+ goto rxcap_1313_done
+ rxcap_1313_fail:
+ goto rx1309_fail
+ rxcap_1313_done:
+ # rx pass
+ rx1309_cur."!cursor_pass"(rx1309_pos, "term:sym<last>")
+ rx1309_cur."!cursor_debug"("PASS ", "term:sym<last>", " at pos=", rx1309_pos)
+ .return (rx1309_cur)
+ rx1309_fail:
+.annotate 'line', 446
+ (rx1309_rep, rx1309_pos, $I10, $P10) = rx1309_cur."!mark_fail"(0)
+ lt rx1309_pos, -1, rx1309_done
+ eq rx1309_pos, -1, rx1309_fail
jump $I10
- rx1264_done:
- rx1264_cur."!cursor_fail"()
- rx1264_cur."!cursor_debug"("FAIL ", "term:sym<last>")
- .return (rx1264_cur)
+ rx1309_done:
+ rx1309_cur."!cursor_fail"()
+ rx1309_cur."!cursor_debug"("FAIL ", "term:sym<last>")
+ .return (rx1309_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<last>" :subid("326_1275117591.97262") :method
-.annotate 'line', 433
- new $P1266, "ResizablePMCArray"
- push $P1266, "last"
- .return ($P1266)
+.sub "!PREFIX__term:sym<last>" :subid("335_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1311, "ResizablePMCArray"
+ push $P1311, "last"
+ .return ($P1311)
.end
.namespace ["NQP";"Grammar"]
-.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:
+.sub "term:sym<next>" :subid("336_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1315_tgt
+ .local int rx1315_pos
+ .local int rx1315_off
+ .local int rx1315_eos
+ .local int rx1315_rep
+ .local pmc rx1315_cur
+ (rx1315_cur, rx1315_pos, rx1315_tgt) = self."!cursor_start"()
+ rx1315_cur."!cursor_debug"("START ", "term:sym<next>")
+ .lex unicode:"$\x{a2}", rx1315_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1315_eos, rx1315_tgt
+ gt rx1315_pos, rx1315_eos, rx1315_done
+ set rx1315_off, 0
+ lt rx1315_pos, 2, rx1315_start
+ sub rx1315_off, rx1315_pos, 1
+ substr rx1315_tgt, rx1315_tgt, rx1315_off
+ rx1315_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan1273_done
- goto rxscan1273_scan
- rxscan1273_loop:
- ($P10) = rx1270_cur."from"()
+ ne $I10, -1, rxscan1318_done
+ goto rxscan1318_scan
+ rxscan1318_loop:
+ ($P10) = rx1315_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
+ set rx1315_pos, $P10
+ ge rx1315_pos, rx1315_eos, rxscan1318_done
+ rxscan1318_scan:
+ set_addr $I10, rxscan1318_loop
+ rx1315_cur."!mark_push"(0, rx1315_pos, $I10)
+ rxscan1318_done:
+.annotate 'line', 554
# rx subcapture "sym"
- set_addr $I10, rxcap_1274_fail
- rx1270_cur."!mark_push"(0, rx1270_pos, $I10)
+ set_addr $I10, rxcap_1319_fail
+ rx1315_cur."!mark_push"(0, rx1315_pos, $I10)
# rx literal "next"
- 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)
+ add $I11, rx1315_pos, 4
+ gt $I11, rx1315_eos, rx1315_fail
+ sub $I11, rx1315_pos, rx1315_off
+ substr $S10, rx1315_tgt, $I11, 4
+ ne $S10, "next", rx1315_fail
+ add rx1315_pos, 4
+ set_addr $I10, rxcap_1319_fail
+ ($I12, $I11) = rx1315_cur."!mark_peek"($I10)
+ rx1315_cur."!cursor_pos"($I11)
+ ($P10) = rx1315_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1315_pos, "")
+ rx1315_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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
+ goto rxcap_1319_done
+ rxcap_1319_fail:
+ goto rx1315_fail
+ rxcap_1319_done:
+ # rx pass
+ rx1315_cur."!cursor_pass"(rx1315_pos, "term:sym<next>")
+ rx1315_cur."!cursor_debug"("PASS ", "term:sym<next>", " at pos=", rx1315_pos)
+ .return (rx1315_cur)
+ rx1315_fail:
+.annotate 'line', 446
+ (rx1315_rep, rx1315_pos, $I10, $P10) = rx1315_cur."!mark_fail"(0)
+ lt rx1315_pos, -1, rx1315_done
+ eq rx1315_pos, -1, rx1315_fail
jump $I10
- rx1270_done:
- rx1270_cur."!cursor_fail"()
- rx1270_cur."!cursor_debug"("FAIL ", "term:sym<next>")
- .return (rx1270_cur)
+ rx1315_done:
+ rx1315_cur."!cursor_fail"()
+ rx1315_cur."!cursor_debug"("FAIL ", "term:sym<next>")
+ .return (rx1315_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<next>" :subid("328_1275117591.97262") :method
-.annotate 'line', 433
- new $P1272, "ResizablePMCArray"
- push $P1272, "next"
- .return ($P1272)
+.sub "!PREFIX__term:sym<next>" :subid("337_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1317, "ResizablePMCArray"
+ push $P1317, "next"
+ .return ($P1317)
.end
.namespace ["NQP";"Grammar"]
-.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
+.sub "term:sym<redo>" :subid("338_1275811487.95429") :method :outer("11_1275811487.95429")
+.annotate 'line', 446
+ .local string rx1321_tgt
+ .local int rx1321_pos
+ .local int rx1321_off
+ .local int rx1321_eos
+ .local int rx1321_rep
+ .local pmc rx1321_cur
+ (rx1321_cur, rx1321_pos, rx1321_tgt) = self."!cursor_start"()
+ rx1321_cur."!cursor_debug"("START ", "term:sym<redo>")
+ .lex unicode:"$\x{a2}", rx1321_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1321_eos, rx1321_tgt
+ gt rx1321_pos, rx1321_eos, rx1321_done
+ set rx1321_off, 0
+ lt rx1321_pos, 2, rx1321_start
+ sub rx1321_off, rx1321_pos, 1
+ substr rx1321_tgt, rx1321_tgt, rx1321_off
+ rx1321_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1324_done
+ goto rxscan1324_scan
+ rxscan1324_loop:
+ ($P10) = rx1321_cur."from"()
+ inc $P10
+ set rx1321_pos, $P10
+ ge rx1321_pos, rx1321_eos, rxscan1324_done
+ rxscan1324_scan:
+ set_addr $I10, rxscan1324_loop
+ rx1321_cur."!mark_push"(0, rx1321_pos, $I10)
+ rxscan1324_done:
+.annotate 'line', 555
# rx subcapture "sym"
- set_addr $I10, rxcap_1280_fail
- rx1276_cur."!mark_push"(0, rx1276_pos, $I10)
+ set_addr $I10, rxcap_1325_fail
+ rx1321_cur."!mark_push"(0, rx1321_pos, $I10)
# rx literal "redo"
- 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)
+ add $I11, rx1321_pos, 4
+ gt $I11, rx1321_eos, rx1321_fail
+ sub $I11, rx1321_pos, rx1321_off
+ substr $S10, rx1321_tgt, $I11, 4
+ ne $S10, "redo", rx1321_fail
+ add rx1321_pos, 4
+ set_addr $I10, rxcap_1325_fail
+ ($I12, $I11) = rx1321_cur."!mark_peek"($I10)
+ rx1321_cur."!cursor_pos"($I11)
+ ($P10) = rx1321_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1321_pos, "")
+ rx1321_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- 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
+ goto rxcap_1325_done
+ rxcap_1325_fail:
+ goto rx1321_fail
+ rxcap_1325_done:
+ # rx pass
+ rx1321_cur."!cursor_pass"(rx1321_pos, "term:sym<redo>")
+ rx1321_cur."!cursor_debug"("PASS ", "term:sym<redo>", " at pos=", rx1321_pos)
+ .return (rx1321_cur)
+ rx1321_fail:
+.annotate 'line', 446
+ (rx1321_rep, rx1321_pos, $I10, $P10) = rx1321_cur."!mark_fail"(0)
+ lt rx1321_pos, -1, rx1321_done
+ eq rx1321_pos, -1, rx1321_fail
jump $I10
- rx1276_done:
- rx1276_cur."!cursor_fail"()
- rx1276_cur."!cursor_debug"("FAIL ", "term:sym<redo>")
- .return (rx1276_cur)
+ rx1321_done:
+ rx1321_cur."!cursor_fail"()
+ rx1321_cur."!cursor_debug"("FAIL ", "term:sym<redo>")
+ .return (rx1321_cur)
.return ()
.end
.namespace ["NQP";"Grammar"]
-.sub "!PREFIX__term:sym<redo>" :subid("330_1275117591.97262") :method
-.annotate 'line', 433
- new $P1278, "ResizablePMCArray"
- push $P1278, "redo"
- .return ($P1278)
+.sub "!PREFIX__term:sym<redo>" :subid("339_1275811487.95429") :method
+.annotate 'line', 446
+ new $P1323, "ResizablePMCArray"
+ push $P1323, "redo"
+ .return ($P1323)
.end
.namespace ["NQP";"Grammar"]
-.sub "smartmatch" :subid("331_1275117591.97262") :method :outer("11_1275117591.97262")
- .param pmc param_1284
-.annotate 'line', 544
- new $P1283, 'ExceptionHandler'
- set_addr $P1283, control_1282
- $P1283."handle_types"(57)
- push_eh $P1283
+.include "except_types.pasm"
+.sub "smartmatch" :subid("340_1275811487.95429") :method :outer("11_1275811487.95429")
+ .param pmc param_1329
+.annotate 'line', 557
+ new $P1328, 'ExceptionHandler'
+ set_addr $P1328, control_1327
+ $P1328."handle_types"(.CONTROL_RETURN)
+ push_eh $P1328
.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:
- store_lex "$t", $P1287
- find_lex $P1288, "$/"
- unless_null $P1288, vivify_369
- $P1288 = root_new ['parrot';'ResizablePMCArray']
- vivify_369:
- set $P1289, $P1288[1]
- unless_null $P1289, vivify_370
- new $P1289, "Undef"
- vivify_370:
- find_lex $P1290, "$/"
- unless_null $P1290, vivify_371
- $P1290 = root_new ['parrot';'ResizablePMCArray']
- store_lex "$/", $P1290
- vivify_371:
- 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 $P1292[1], $P1291
-.annotate 'line', 544
- .return ($P1291)
- control_1282:
+ .lex "$/", param_1329
+.annotate 'line', 559
+ new $P1330, "Undef"
+ .lex "$t", $P1330
+ find_lex $P1331, "$/"
+ unless_null $P1331, vivify_376
+ $P1331 = root_new ['parrot';'ResizablePMCArray']
+ vivify_376:
+ set $P1332, $P1331[0]
+ unless_null $P1332, vivify_377
+ new $P1332, "Undef"
+ vivify_377:
+ store_lex "$t", $P1332
+ find_lex $P1333, "$/"
+ unless_null $P1333, vivify_378
+ $P1333 = root_new ['parrot';'ResizablePMCArray']
+ vivify_378:
+ set $P1334, $P1333[1]
+ unless_null $P1334, vivify_379
+ new $P1334, "Undef"
+ vivify_379:
+ find_lex $P1335, "$/"
+ unless_null $P1335, vivify_380
+ $P1335 = root_new ['parrot';'ResizablePMCArray']
+ store_lex "$/", $P1335
+ vivify_380:
+ set $P1335[0], $P1334
+ find_lex $P1336, "$t"
+ find_lex $P1337, "$/"
+ unless_null $P1337, vivify_381
+ $P1337 = root_new ['parrot';'ResizablePMCArray']
+ store_lex "$/", $P1337
+ vivify_381:
+ set $P1337[1], $P1336
+.annotate 'line', 557
+ .return ($P1336)
+ control_1327:
.local pmc exception
.get_results (exception)
- getattribute $P1293, exception, "payload"
- .return ($P1293)
+ getattribute $P1338, exception, "payload"
+ .return ($P1338)
.end
.namespace ["NQP";"Regex"]
-.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' $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)
+.sub "_block1339" :subid("341_1275811487.95429") :outer("11_1275811487.95429")
+.annotate 'line', 563
+ .const 'Sub' $P1397 = "360_1275811487.95429"
+ capture_lex $P1397
+ .const 'Sub' $P1392 = "358_1275811487.95429"
+ capture_lex $P1392
+ .const 'Sub' $P1379 = "355_1275811487.95429"
+ capture_lex $P1379
+ .const 'Sub' $P1369 = "352_1275811487.95429"
+ capture_lex $P1369
+ .const 'Sub' $P1364 = "350_1275811487.95429"
+ capture_lex $P1364
+ .const 'Sub' $P1355 = "347_1275811487.95429"
+ capture_lex $P1355
+ .const 'Sub' $P1350 = "345_1275811487.95429"
+ capture_lex $P1350
+ .const 'Sub' $P1341 = "342_1275811487.95429"
+ capture_lex $P1341
+ .const 'Sub' $P1397 = "360_1275811487.95429"
+ capture_lex $P1397
+ .return ($P1397)
.end
.namespace ["NQP";"Regex"]
-.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:
+.sub "metachar:sym<:my>" :subid("342_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .const 'Sub' $P1347 = "344_1275811487.95429"
+ capture_lex $P1347
+ .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 ", "metachar:sym<:my>")
+ .lex unicode:"$\x{a2}", rx1342_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1342_eos, rx1342_tgt
+ gt rx1342_pos, rx1342_eos, rx1342_done
+ 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, rxscan1300_done
- goto rxscan1300_scan
- rxscan1300_loop:
- ($P10) = rx1297_cur."from"()
+ ne $I10, -1, rxscan1345_done
+ goto rxscan1345_scan
+ rxscan1345_loop:
+ ($P10) = rx1342_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
+ set rx1342_pos, $P10
+ ge rx1342_pos, rx1342_eos, rxscan1345_done
+ rxscan1345_scan:
+ set_addr $I10, rxscan1345_loop
+ rx1342_cur."!mark_push"(0, rx1342_pos, $I10)
+ rxscan1345_done:
+.annotate 'line', 565
# rx literal ":"
- 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
+ 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 subrule "before" subtype=zerowidth negate=
- rx1297_cur."!cursor_pos"(rx1297_pos)
- .const 'Sub' $P1302 = "335_1275117591.97262"
- capture_lex $P1302
- $P10 = rx1297_cur."before"($P1302)
- unless $P10, rx1297_fail
+ rx1342_cur."!cursor_pos"(rx1342_pos)
+ .const 'Sub' $P1347 = "344_1275811487.95429"
+ capture_lex $P1347
+ $P10 = rx1342_cur."before"($P1347)
+ unless $P10, rx1342_fail
# rx subrule "LANG" subtype=capture negate=
- rx1297_cur."!cursor_pos"(rx1297_pos)
- $P10 = rx1297_cur."LANG"("MAIN", "statement")
- unless $P10, rx1297_fail
- rx1297_cur."!mark_push"(0, -1, 0, $P10)
+ rx1342_cur."!cursor_pos"(rx1342_pos)
+ $P10 = rx1342_cur."LANG"("MAIN", "statement")
+ unless $P10, rx1342_fail
+ rx1342_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("statement")
- rx1297_pos = $P10."pos"()
+ rx1342_pos = $P10."pos"()
# rx subrule "ws" subtype=method negate=
- rx1297_cur."!cursor_pos"(rx1297_pos)
- $P10 = rx1297_cur."ws"()
- unless $P10, rx1297_fail
- rx1297_pos = $P10."pos"()
+ rx1342_cur."!cursor_pos"(rx1342_pos)
+ $P10 = rx1342_cur."ws"()
+ unless $P10, rx1342_fail
+ rx1342_pos = $P10."pos"()
# rx literal ";"
- 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
+ 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
+.annotate 'line', 564
# 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)
+ rx1342_cur."!cursor_pass"(rx1342_pos, "metachar:sym<:my>")
+ rx1342_cur."!cursor_debug"("PASS ", "metachar:sym<:my>", " at pos=", rx1342_pos)
+ .return (rx1342_cur)
+ rx1342_fail:
+.annotate 'line', 563
+ (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 ", "metachar:sym<:my>")
+ .return (rx1342_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<:my>" :subid("334_1275117591.97262") :method
-.annotate 'line', 550
- new $P1299, "ResizablePMCArray"
- push $P1299, ":"
- .return ($P1299)
+.sub "!PREFIX__metachar:sym<:my>" :subid("343_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1344, "ResizablePMCArray"
+ push $P1344, ":"
+ .return ($P1344)
.end
.namespace ["NQP";"Regex"]
-.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
+.sub "_block1346" :anon :subid("344_1275811487.95429") :method :outer("342_1275811487.95429")
+.annotate 'line', 565
+ .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 ", "")
+ .lex unicode:"$\x{a2}", rx1348_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) = rx1303_cur."from"()
+ length rx1348_eos, rx1348_tgt
+ gt rx1348_pos, rx1348_eos, rx1348_done
+ 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, rxscan1349_done
+ goto rxscan1349_scan
+ rxscan1349_loop:
+ ($P10) = rx1348_cur."from"()
inc $P10
- set rx1303_pos, $P10
- ge rx1303_pos, rx1303_eos, rxscan1304_done
- rxscan1304_scan:
- set_addr $I10, rxscan1304_loop
- rx1303_cur."!mark_push"(0, rx1303_pos, $I10)
- rxscan1304_done:
+ set rx1348_pos, $P10
+ ge rx1348_pos, rx1348_eos, rxscan1349_done
+ rxscan1349_scan:
+ set_addr $I10, rxscan1349_loop
+ rx1348_cur."!mark_push"(0, rx1348_pos, $I10)
+ rxscan1349_done:
# 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
+ add $I11, rx1348_pos, 2
+ gt $I11, rx1348_eos, rx1348_fail
+ sub $I11, rx1348_pos, rx1348_off
+ substr $S10, rx1348_tgt, $I11, 2
+ ne $S10, "my", rx1348_fail
+ add rx1348_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
+ rx1348_cur."!cursor_pass"(rx1348_pos, "")
+ rx1348_cur."!cursor_debug"("PASS ", "", " at pos=", rx1348_pos)
+ .return (rx1348_cur)
+ rx1348_fail:
+ (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
- rx1303_done:
- rx1303_cur."!cursor_fail"()
- rx1303_cur."!cursor_debug"("FAIL ", "")
- .return (rx1303_cur)
+ rx1348_done:
+ rx1348_cur."!cursor_fail"()
+ rx1348_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1348_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.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) = rx1306_cur."from"()
- inc $P10
- set rx1306_pos, $P10
- ge rx1306_pos, rx1306_eos, rxscan1309_done
- rxscan1309_scan:
- set_addr $I10, rxscan1309_loop
- rx1306_cur."!mark_push"(0, rx1306_pos, $I10)
- rxscan1309_done:
-.annotate 'line', 556
+.sub "metachar:sym<{ }>" :subid("345_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .local string rx1351_tgt
+ .local int rx1351_pos
+ .local int rx1351_off
+ .local int rx1351_eos
+ .local int rx1351_rep
+ .local pmc rx1351_cur
+ (rx1351_cur, rx1351_pos, rx1351_tgt) = self."!cursor_start"()
+ rx1351_cur."!cursor_debug"("START ", "metachar:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx1351_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1351_eos, rx1351_tgt
+ gt rx1351_pos, rx1351_eos, rx1351_done
+ set rx1351_off, 0
+ lt rx1351_pos, 2, rx1351_start
+ sub rx1351_off, rx1351_pos, 1
+ substr rx1351_tgt, rx1351_tgt, rx1351_off
+ rx1351_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1354_done
+ goto rxscan1354_scan
+ rxscan1354_loop:
+ ($P10) = rx1351_cur."from"()
+ inc $P10
+ set rx1351_pos, $P10
+ ge rx1351_pos, rx1351_eos, rxscan1354_done
+ rxscan1354_scan:
+ set_addr $I10, rxscan1354_loop
+ rx1351_cur."!mark_push"(0, rx1351_pos, $I10)
+ rxscan1354_done:
+.annotate 'line', 569
# rx enumcharlist negate=0 zerowidth
- ge rx1306_pos, rx1306_eos, rx1306_fail
- sub $I10, rx1306_pos, rx1306_off
- substr $S10, rx1306_tgt, $I10, 1
+ ge rx1351_pos, rx1351_eos, rx1351_fail
+ sub $I10, rx1351_pos, rx1351_off
+ substr $S10, rx1351_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx1306_fail
+ lt $I11, 0, rx1351_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)
+ rx1351_cur."!cursor_pos"(rx1351_pos)
+ $P10 = rx1351_cur."codeblock"()
+ unless $P10, rx1351_fail
+ rx1351_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("codeblock")
- rx1306_pos = $P10."pos"()
-.annotate 'line', 555
+ rx1351_pos = $P10."pos"()
+.annotate 'line', 568
# 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)
+ rx1351_cur."!cursor_pass"(rx1351_pos, "metachar:sym<{ }>")
+ rx1351_cur."!cursor_debug"("PASS ", "metachar:sym<{ }>", " at pos=", rx1351_pos)
+ .return (rx1351_cur)
+ rx1351_fail:
+.annotate 'line', 563
+ (rx1351_rep, rx1351_pos, $I10, $P10) = rx1351_cur."!mark_fail"(0)
+ lt rx1351_pos, -1, rx1351_done
+ eq rx1351_pos, -1, rx1351_fail
+ jump $I10
+ rx1351_done:
+ rx1351_cur."!cursor_fail"()
+ rx1351_cur."!cursor_debug"("FAIL ", "metachar:sym<{ }>")
+ .return (rx1351_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<{ }>" :subid("337_1275117591.97262") :method
-.annotate 'line', 550
- new $P1308, "ResizablePMCArray"
- push $P1308, "{"
- .return ($P1308)
+.sub "!PREFIX__metachar:sym<{ }>" :subid("346_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1353, "ResizablePMCArray"
+ push $P1353, "{"
+ .return ($P1353)
.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
- .local int rx1311_eos
- .local int rx1311_rep
- .local pmc rx1311_cur
- (rx1311_cur, rx1311_pos, rx1311_tgt) = self."!cursor_start"()
- rx1311_cur."!cursor_debug"("START ", "metachar:sym<nqpvar>")
- .lex unicode:"$\x{a2}", rx1311_cur
- .local pmc match
- .lex "$/", match
- length rx1311_eos, rx1311_tgt
- set rx1311_off, 0
- lt rx1311_pos, 2, rx1311_start
- sub rx1311_off, rx1311_pos, 1
- substr rx1311_tgt, rx1311_tgt, rx1311_off
- rx1311_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan1314_done
- goto rxscan1314_scan
- rxscan1314_loop:
- ($P10) = rx1311_cur."from"()
- inc $P10
- set rx1311_pos, $P10
- ge rx1311_pos, rx1311_eos, rxscan1314_done
- rxscan1314_scan:
- set_addr $I10, rxscan1314_loop
- rx1311_cur."!mark_push"(0, rx1311_pos, $I10)
- rxscan1314_done:
-.annotate 'line', 560
+.sub "metachar:sym<nqpvar>" :subid("347_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .const 'Sub' $P1361 = "349_1275811487.95429"
+ capture_lex $P1361
+ .local string rx1356_tgt
+ .local int rx1356_pos
+ .local int rx1356_off
+ .local int rx1356_eos
+ .local int rx1356_rep
+ .local pmc rx1356_cur
+ (rx1356_cur, rx1356_pos, rx1356_tgt) = self."!cursor_start"()
+ rx1356_cur."!cursor_debug"("START ", "metachar:sym<nqpvar>")
+ .lex unicode:"$\x{a2}", rx1356_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1356_eos, rx1356_tgt
+ gt rx1356_pos, rx1356_eos, rx1356_done
+ set rx1356_off, 0
+ lt rx1356_pos, 2, rx1356_start
+ sub rx1356_off, rx1356_pos, 1
+ substr rx1356_tgt, rx1356_tgt, rx1356_off
+ rx1356_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1359_done
+ goto rxscan1359_scan
+ rxscan1359_loop:
+ ($P10) = rx1356_cur."from"()
+ inc $P10
+ set rx1356_pos, $P10
+ ge rx1356_pos, rx1356_eos, rxscan1359_done
+ rxscan1359_scan:
+ set_addr $I10, rxscan1359_loop
+ rx1356_cur."!mark_push"(0, rx1356_pos, $I10)
+ rxscan1359_done:
+.annotate 'line', 573
# rx enumcharlist negate=0 zerowidth
- ge rx1311_pos, rx1311_eos, rx1311_fail
- sub $I10, rx1311_pos, rx1311_off
- substr $S10, rx1311_tgt, $I10, 1
+ ge rx1356_pos, rx1356_eos, rx1356_fail
+ sub $I10, rx1356_pos, rx1356_off
+ substr $S10, rx1356_tgt, $I10, 1
index $I11, "$@", $S10
- lt $I11, 0, rx1311_fail
+ lt $I11, 0, rx1356_fail
# rx subrule "before" subtype=zerowidth negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- .const 'Sub' $P1316 = "340_1275117591.97262"
- capture_lex $P1316
- $P10 = rx1311_cur."before"($P1316)
- unless $P10, rx1311_fail
+ rx1356_cur."!cursor_pos"(rx1356_pos)
+ .const 'Sub' $P1361 = "349_1275811487.95429"
+ capture_lex $P1361
+ $P10 = rx1356_cur."before"($P1361)
+ unless $P10, rx1356_fail
# rx subrule "LANG" subtype=capture negate=
- rx1311_cur."!cursor_pos"(rx1311_pos)
- $P10 = rx1311_cur."LANG"("MAIN", "variable")
- unless $P10, rx1311_fail
- rx1311_cur."!mark_push"(0, -1, 0, $P10)
+ rx1356_cur."!cursor_pos"(rx1356_pos)
+ $P10 = rx1356_cur."LANG"("MAIN", "variable")
+ unless $P10, rx1356_fail
+ rx1356_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("var")
- rx1311_pos = $P10."pos"()
-.annotate 'line', 559
+ rx1356_pos = $P10."pos"()
+.annotate 'line', 572
# rx pass
- 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', 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<nqpvar>")
- .return (rx1311_cur)
+ rx1356_cur."!cursor_pass"(rx1356_pos, "metachar:sym<nqpvar>")
+ rx1356_cur."!cursor_debug"("PASS ", "metachar:sym<nqpvar>", " at pos=", rx1356_pos)
+ .return (rx1356_cur)
+ rx1356_fail:
+.annotate 'line', 563
+ (rx1356_rep, rx1356_pos, $I10, $P10) = rx1356_cur."!mark_fail"(0)
+ lt rx1356_pos, -1, rx1356_done
+ eq rx1356_pos, -1, rx1356_fail
+ jump $I10
+ rx1356_done:
+ rx1356_cur."!cursor_fail"()
+ rx1356_cur."!cursor_debug"("FAIL ", "metachar:sym<nqpvar>")
+ .return (rx1356_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__metachar:sym<nqpvar>" :subid("339_1275117591.97262") :method
-.annotate 'line', 550
- new $P1313, "ResizablePMCArray"
- push $P1313, "$"
- push $P1313, "@"
- .return ($P1313)
+.sub "!PREFIX__metachar:sym<nqpvar>" :subid("348_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1358, "ResizablePMCArray"
+ push $P1358, "$"
+ push $P1358, "@"
+ .return ($P1358)
.end
.namespace ["NQP";"Regex"]
-.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:
+.sub "_block1360" :anon :subid("349_1275811487.95429") :method :outer("347_1275811487.95429")
+.annotate 'line', 573
+ .local string rx1362_tgt
+ .local int rx1362_pos
+ .local int rx1362_off
+ .local int rx1362_eos
+ .local int rx1362_rep
+ .local pmc rx1362_cur
+ (rx1362_cur, rx1362_pos, rx1362_tgt) = self."!cursor_start"()
+ rx1362_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx1362_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1362_eos, rx1362_tgt
+ gt rx1362_pos, rx1362_eos, rx1362_done
+ set rx1362_off, 0
+ lt rx1362_pos, 2, rx1362_start
+ sub rx1362_off, rx1362_pos, 1
+ substr rx1362_tgt, rx1362_tgt, rx1362_off
+ rx1362_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1363_done
+ goto rxscan1363_scan
+ rxscan1363_loop:
+ ($P10) = rx1362_cur."from"()
+ inc $P10
+ set rx1362_pos, $P10
+ ge rx1362_pos, rx1362_eos, rxscan1363_done
+ rxscan1363_scan:
+ set_addr $I10, rxscan1363_loop
+ rx1362_cur."!mark_push"(0, rx1362_pos, $I10)
+ rxscan1363_done:
# rx charclass .
- ge rx1317_pos, rx1317_eos, rx1317_fail
- inc rx1317_pos
+ ge rx1362_pos, rx1362_eos, rx1362_fail
+ inc rx1362_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)
+ ge rx1362_pos, rx1362_eos, rx1362_fail
+ sub $I10, rx1362_pos, rx1362_off
+ is_cclass $I11, 8192, rx1362_tgt, $I10
+ unless $I11, rx1362_fail
+ inc rx1362_pos
+ # rx pass
+ rx1362_cur."!cursor_pass"(rx1362_pos, "")
+ rx1362_cur."!cursor_debug"("PASS ", "", " at pos=", rx1362_pos)
+ .return (rx1362_cur)
+ rx1362_fail:
+ (rx1362_rep, rx1362_pos, $I10, $P10) = rx1362_cur."!mark_fail"(0)
+ lt rx1362_pos, -1, rx1362_done
+ eq rx1362_pos, -1, rx1362_fail
+ jump $I10
+ rx1362_done:
+ rx1362_cur."!cursor_fail"()
+ rx1362_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1362_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) = rx1320_cur."from"()
- inc $P10
- set rx1320_pos, $P10
- ge rx1320_pos, rx1320_eos, rxscan1323_done
- rxscan1323_scan:
- set_addr $I10, rxscan1323_loop
- rx1320_cur."!mark_push"(0, rx1320_pos, $I10)
- rxscan1323_done:
-.annotate 'line', 564
+.sub "assertion:sym<{ }>" :subid("350_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .local string rx1365_tgt
+ .local int rx1365_pos
+ .local int rx1365_off
+ .local int rx1365_eos
+ .local int rx1365_rep
+ .local pmc rx1365_cur
+ (rx1365_cur, rx1365_pos, rx1365_tgt) = self."!cursor_start"()
+ rx1365_cur."!cursor_debug"("START ", "assertion:sym<{ }>")
+ .lex unicode:"$\x{a2}", rx1365_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1365_eos, rx1365_tgt
+ gt rx1365_pos, rx1365_eos, rx1365_done
+ set rx1365_off, 0
+ lt rx1365_pos, 2, rx1365_start
+ sub rx1365_off, rx1365_pos, 1
+ substr rx1365_tgt, rx1365_tgt, rx1365_off
+ rx1365_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1368_done
+ goto rxscan1368_scan
+ rxscan1368_loop:
+ ($P10) = rx1365_cur."from"()
+ inc $P10
+ set rx1365_pos, $P10
+ ge rx1365_pos, rx1365_eos, rxscan1368_done
+ rxscan1368_scan:
+ set_addr $I10, rxscan1368_loop
+ rx1365_cur."!mark_push"(0, rx1365_pos, $I10)
+ rxscan1368_done:
+.annotate 'line', 577
# rx enumcharlist negate=0 zerowidth
- ge rx1320_pos, rx1320_eos, rx1320_fail
- sub $I10, rx1320_pos, rx1320_off
- substr $S10, rx1320_tgt, $I10, 1
+ ge rx1365_pos, rx1365_eos, rx1365_fail
+ sub $I10, rx1365_pos, rx1365_off
+ substr $S10, rx1365_tgt, $I10, 1
index $I11, "{", $S10
- lt $I11, 0, rx1320_fail
+ lt $I11, 0, rx1365_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)
+ rx1365_cur."!cursor_pos"(rx1365_pos)
+ $P10 = rx1365_cur."codeblock"()
+ unless $P10, rx1365_fail
+ rx1365_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("codeblock")
- rx1320_pos = $P10."pos"()
-.annotate 'line', 563
+ rx1365_pos = $P10."pos"()
+.annotate 'line', 576
# 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)
+ rx1365_cur."!cursor_pass"(rx1365_pos, "assertion:sym<{ }>")
+ rx1365_cur."!cursor_debug"("PASS ", "assertion:sym<{ }>", " at pos=", rx1365_pos)
+ .return (rx1365_cur)
+ rx1365_fail:
+.annotate 'line', 563
+ (rx1365_rep, rx1365_pos, $I10, $P10) = rx1365_cur."!mark_fail"(0)
+ lt rx1365_pos, -1, rx1365_done
+ eq rx1365_pos, -1, rx1365_fail
+ jump $I10
+ rx1365_done:
+ rx1365_cur."!cursor_fail"()
+ rx1365_cur."!cursor_debug"("FAIL ", "assertion:sym<{ }>")
+ .return (rx1365_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<{ }>" :subid("342_1275117591.97262") :method
-.annotate 'line', 550
- new $P1322, "ResizablePMCArray"
- push $P1322, "{"
- .return ($P1322)
+.sub "!PREFIX__assertion:sym<{ }>" :subid("351_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1367, "ResizablePMCArray"
+ push $P1367, "{"
+ .return ($P1367)
.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
+.sub "assertion:sym<?{ }>" :subid("352_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .const 'Sub' $P1375 = "354_1275811487.95429"
+ capture_lex $P1375
+ .local string rx1370_tgt
+ .local int rx1370_pos
+ .local int rx1370_off
+ .local int rx1370_eos
+ .local int rx1370_rep
+ .local pmc rx1370_cur
+ (rx1370_cur, rx1370_pos, rx1370_tgt) = self."!cursor_start"()
+ rx1370_cur."!cursor_debug"("START ", "assertion:sym<?{ }>")
+ .lex unicode:"$\x{a2}", rx1370_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1370_eos, rx1370_tgt
+ gt rx1370_pos, rx1370_eos, rx1370_done
+ set rx1370_off, 0
+ lt rx1370_pos, 2, rx1370_start
+ sub rx1370_off, rx1370_pos, 1
+ substr rx1370_tgt, rx1370_tgt, rx1370_off
+ rx1370_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1373_done
+ goto rxscan1373_scan
+ rxscan1373_loop:
+ ($P10) = rx1370_cur."from"()
+ inc $P10
+ set rx1370_pos, $P10
+ ge rx1370_pos, rx1370_eos, rxscan1373_done
+ rxscan1373_scan:
+ set_addr $I10, rxscan1373_loop
+ rx1370_cur."!mark_push"(0, rx1370_pos, $I10)
+ rxscan1373_done:
+.annotate 'line', 581
# rx subcapture "zw"
- set_addr $I10, rxcap_1333_fail
- rx1325_cur."!mark_push"(0, rx1325_pos, $I10)
+ set_addr $I10, rxcap_1378_fail
+ rx1370_cur."!mark_push"(0, rx1370_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
+ ge rx1370_pos, rx1370_eos, rx1370_fail
+ sub $I10, rx1370_pos, rx1370_off
+ substr $S10, rx1370_tgt, $I10, 1
index $I11, "?!", $S10
- lt $I11, 0, rx1325_fail
- inc rx1325_pos
+ lt $I11, 0, rx1370_fail
+ inc rx1370_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)
+ rx1370_cur."!cursor_pos"(rx1370_pos)
+ .const 'Sub' $P1375 = "354_1275811487.95429"
+ capture_lex $P1375
+ $P10 = rx1370_cur."before"($P1375)
+ unless $P10, rx1370_fail
+ set_addr $I10, rxcap_1378_fail
+ ($I12, $I11) = rx1370_cur."!mark_peek"($I10)
+ rx1370_cur."!cursor_pos"($I11)
+ ($P10) = rx1370_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1370_pos, "")
+ rx1370_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("zw")
- goto rxcap_1333_done
- rxcap_1333_fail:
- goto rx1325_fail
- rxcap_1333_done:
+ goto rxcap_1378_done
+ rxcap_1378_fail:
+ goto rx1370_fail
+ rxcap_1378_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)
+ rx1370_cur."!cursor_pos"(rx1370_pos)
+ $P10 = rx1370_cur."codeblock"()
+ unless $P10, rx1370_fail
+ rx1370_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("codeblock")
- rx1325_pos = $P10."pos"()
-.annotate 'line', 567
+ rx1370_pos = $P10."pos"()
+.annotate 'line', 580
# 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)
+ rx1370_cur."!cursor_pass"(rx1370_pos, "assertion:sym<?{ }>")
+ rx1370_cur."!cursor_debug"("PASS ", "assertion:sym<?{ }>", " at pos=", rx1370_pos)
+ .return (rx1370_cur)
+ rx1370_fail:
+.annotate 'line', 563
+ (rx1370_rep, rx1370_pos, $I10, $P10) = rx1370_cur."!mark_fail"(0)
+ lt rx1370_pos, -1, rx1370_done
+ eq rx1370_pos, -1, rx1370_fail
+ jump $I10
+ rx1370_done:
+ rx1370_cur."!cursor_fail"()
+ rx1370_cur."!cursor_debug"("FAIL ", "assertion:sym<?{ }>")
+ .return (rx1370_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<?{ }>" :subid("344_1275117591.97262") :method
-.annotate 'line', 550
- new $P1327, "ResizablePMCArray"
- push $P1327, "!"
- push $P1327, "?"
- .return ($P1327)
+.sub "!PREFIX__assertion:sym<?{ }>" :subid("353_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1372, "ResizablePMCArray"
+ push $P1372, "!"
+ push $P1372, "?"
+ .return ($P1372)
.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
- .local int rx1331_eos
- .local int rx1331_rep
- .local pmc rx1331_cur
- (rx1331_cur, rx1331_pos, rx1331_tgt) = self."!cursor_start"()
- rx1331_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx1331_cur
- .local pmc match
- .lex "$/", match
- length rx1331_eos, rx1331_tgt
- set rx1331_off, 0
- lt rx1331_pos, 2, rx1331_start
- sub rx1331_off, rx1331_pos, 1
- substr rx1331_tgt, rx1331_tgt, rx1331_off
- rx1331_start:
- $I10 = self.'from'()
- 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, rxscan1332_done
- rxscan1332_scan:
- set_addr $I10, rxscan1332_loop
- rx1331_cur."!mark_push"(0, rx1331_pos, $I10)
- rxscan1332_done:
+.sub "_block1374" :anon :subid("354_1275811487.95429") :method :outer("352_1275811487.95429")
+.annotate 'line', 581
+ .local string rx1376_tgt
+ .local int rx1376_pos
+ .local int rx1376_off
+ .local int rx1376_eos
+ .local int rx1376_rep
+ .local pmc rx1376_cur
+ (rx1376_cur, rx1376_pos, rx1376_tgt) = self."!cursor_start"()
+ rx1376_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx1376_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1376_eos, rx1376_tgt
+ gt rx1376_pos, rx1376_eos, rx1376_done
+ set rx1376_off, 0
+ lt rx1376_pos, 2, rx1376_start
+ sub rx1376_off, rx1376_pos, 1
+ substr rx1376_tgt, rx1376_tgt, rx1376_off
+ rx1376_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1377_done
+ goto rxscan1377_scan
+ rxscan1377_loop:
+ ($P10) = rx1376_cur."from"()
+ inc $P10
+ set rx1376_pos, $P10
+ ge rx1376_pos, rx1376_eos, rxscan1377_done
+ rxscan1377_scan:
+ set_addr $I10, rxscan1377_loop
+ rx1376_cur."!mark_push"(0, rx1376_pos, $I10)
+ rxscan1377_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, "")
- rx1331_cur."!cursor_debug"("PASS ", "", " at pos=", rx1331_pos)
- .return (rx1331_cur)
- rx1331_fail:
- (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 ", "")
- .return (rx1331_cur)
+ add $I11, rx1376_pos, 1
+ gt $I11, rx1376_eos, rx1376_fail
+ sub $I11, rx1376_pos, rx1376_off
+ substr $S10, rx1376_tgt, $I11, 1
+ ne $S10, "{", rx1376_fail
+ add rx1376_pos, 1
+ # rx pass
+ rx1376_cur."!cursor_pass"(rx1376_pos, "")
+ rx1376_cur."!cursor_debug"("PASS ", "", " at pos=", rx1376_pos)
+ .return (rx1376_cur)
+ rx1376_fail:
+ (rx1376_rep, rx1376_pos, $I10, $P10) = rx1376_cur."!mark_fail"(0)
+ lt rx1376_pos, -1, rx1376_done
+ eq rx1376_pos, -1, rx1376_fail
+ jump $I10
+ rx1376_done:
+ rx1376_cur."!cursor_fail"()
+ rx1376_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1376_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.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
+.sub "assertion:sym<name>" :subid("355_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .const 'Sub' $P1388 = "357_1275811487.95429"
+ capture_lex $P1388
+ .local string rx1380_tgt
+ .local int rx1380_pos
+ .local int rx1380_off
+ .local int rx1380_eos
+ .local int rx1380_rep
+ .local pmc rx1380_cur
+ (rx1380_cur, rx1380_pos, rx1380_tgt) = self."!cursor_start"()
+ rx1380_cur."!cursor_debug"("START ", "assertion:sym<name>")
+ rx1380_cur."!cursor_caparray"("nibbler", "arglist", "assertion")
+ .lex unicode:"$\x{a2}", rx1380_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1380_eos, rx1380_tgt
+ gt rx1380_pos, rx1380_eos, rx1380_done
+ set rx1380_off, 0
+ lt rx1380_pos, 2, rx1380_start
+ sub rx1380_off, rx1380_pos, 1
+ substr rx1380_tgt, rx1380_tgt, rx1380_off
+ rx1380_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1383_done
+ goto rxscan1383_scan
+ rxscan1383_loop:
+ ($P10) = rx1380_cur."from"()
+ inc $P10
+ set rx1380_pos, $P10
+ ge rx1380_pos, rx1380_eos, rxscan1383_done
+ rxscan1383_scan:
+ set_addr $I10, rxscan1383_loop
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I10)
+ rxscan1383_done:
+.annotate 'line', 585
# rx subcapture "longname"
- set_addr $I10, rxcap_1339_fail
- rx1335_cur."!mark_push"(0, rx1335_pos, $I10)
+ set_addr $I10, rxcap_1384_fail
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I10)
# rx charclass_q w r 1..-1
- sub $I10, rx1335_pos, rx1335_off
- find_not_cclass $I11, 8192, rx1335_tgt, $I10, rx1335_eos
+ sub $I10, rx1380_pos, rx1380_off
+ find_not_cclass $I11, 8192, rx1380_tgt, $I10, rx1380_eos
add $I12, $I10, 1
- 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)
+ lt $I11, $I12, rx1380_fail
+ add rx1380_pos, rx1380_off, $I11
+ set_addr $I10, rxcap_1384_fail
+ ($I12, $I11) = rx1380_cur."!mark_peek"($I10)
+ rx1380_cur."!cursor_pos"($I11)
+ ($P10) = rx1380_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx1380_pos, "")
+ rx1380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("longname")
- 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
+ goto rxcap_1384_done
+ rxcap_1384_fail:
+ goto rx1380_fail
+ rxcap_1384_done:
+.annotate 'line', 592
+ # rx rxquantr1385 ** 0..1
+ set_addr $I1391, rxquantr1385_done
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I1391)
+ rxquantr1385_loop:
+ alt1386_0:
+.annotate 'line', 586
+ set_addr $I10, alt1386_1
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I10)
+.annotate 'line', 587
# rx subrule "before" subtype=zerowidth negate=
- 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
+ rx1380_cur."!cursor_pos"(rx1380_pos)
+ .const 'Sub' $P1388 = "357_1275811487.95429"
+ capture_lex $P1388
+ $P10 = rx1380_cur."before"($P1388)
+ unless $P10, rx1380_fail
+ goto alt1386_end
+ alt1386_1:
+ set_addr $I10, alt1386_2
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I10)
+.annotate 'line', 588
# rx literal "="
- 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
+ add $I11, rx1380_pos, 1
+ gt $I11, rx1380_eos, rx1380_fail
+ sub $I11, rx1380_pos, rx1380_off
+ substr $S10, rx1380_tgt, $I11, 1
+ ne $S10, "=", rx1380_fail
+ add rx1380_pos, 1
# rx subrule "assertion" subtype=capture negate=
- rx1335_cur."!cursor_pos"(rx1335_pos)
- $P10 = rx1335_cur."assertion"()
- unless $P10, rx1335_fail
- rx1335_cur."!mark_push"(0, -1, 0, $P10)
+ rx1380_cur."!cursor_pos"(rx1380_pos)
+ $P10 = rx1380_cur."assertion"()
+ unless $P10, rx1380_fail
+ rx1380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- 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
+ rx1380_pos = $P10."pos"()
+ goto alt1386_end
+ alt1386_2:
+ set_addr $I10, alt1386_3
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I10)
+.annotate 'line', 589
# rx literal ":"
- 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
+ add $I11, rx1380_pos, 1
+ gt $I11, rx1380_eos, rx1380_fail
+ sub $I11, rx1380_pos, rx1380_off
+ substr $S10, rx1380_tgt, $I11, 1
+ ne $S10, ":", rx1380_fail
+ add rx1380_pos, 1
# rx subrule "arglist" subtype=capture negate=
- rx1335_cur."!cursor_pos"(rx1335_pos)
- $P10 = rx1335_cur."arglist"()
- unless $P10, rx1335_fail
- rx1335_cur."!mark_push"(0, -1, 0, $P10)
+ rx1380_cur."!cursor_pos"(rx1380_pos)
+ $P10 = rx1380_cur."arglist"()
+ unless $P10, rx1380_fail
+ rx1380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- 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
+ rx1380_pos = $P10."pos"()
+ goto alt1386_end
+ alt1386_3:
+ set_addr $I10, alt1386_4
+ rx1380_cur."!mark_push"(0, rx1380_pos, $I10)
+.annotate 'line', 590
# rx literal "("
- 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
+ add $I11, rx1380_pos, 1
+ gt $I11, rx1380_eos, rx1380_fail
+ sub $I11, rx1380_pos, rx1380_off
+ substr $S10, rx1380_tgt, $I11, 1
+ ne $S10, "(", rx1380_fail
+ add rx1380_pos, 1
# rx subrule "LANG" subtype=capture negate=
- rx1335_cur."!cursor_pos"(rx1335_pos)
- $P10 = rx1335_cur."LANG"("MAIN", "arglist")
- unless $P10, rx1335_fail
- rx1335_cur."!mark_push"(0, -1, 0, $P10)
+ rx1380_cur."!cursor_pos"(rx1380_pos)
+ $P10 = rx1380_cur."LANG"("MAIN", "arglist")
+ unless $P10, rx1380_fail
+ rx1380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx1335_pos = $P10."pos"()
+ rx1380_pos = $P10."pos"()
# rx literal ")"
- 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
+ add $I11, rx1380_pos, 1
+ gt $I11, rx1380_eos, rx1380_fail
+ sub $I11, rx1380_pos, rx1380_off
+ substr $S10, rx1380_tgt, $I11, 1
+ ne $S10, ")", rx1380_fail
+ add rx1380_pos, 1
+ goto alt1386_end
+ alt1386_4:
+.annotate 'line', 591
# rx subrule "normspace" subtype=method negate=
- rx1335_cur."!cursor_pos"(rx1335_pos)
- $P10 = rx1335_cur."normspace"()
- unless $P10, rx1335_fail
- rx1335_pos = $P10."pos"()
+ rx1380_cur."!cursor_pos"(rx1380_pos)
+ $P10 = rx1380_cur."normspace"()
+ unless $P10, rx1380_fail
+ rx1380_pos = $P10."pos"()
# rx subrule "nibbler" subtype=capture negate=
- rx1335_cur."!cursor_pos"(rx1335_pos)
- $P10 = rx1335_cur."nibbler"()
- unless $P10, rx1335_fail
- rx1335_cur."!mark_push"(0, -1, 0, $P10)
+ rx1380_cur."!cursor_pos"(rx1380_pos)
+ $P10 = rx1380_cur."nibbler"()
+ unless $P10, rx1380_fail
+ rx1380_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("nibbler")
- rx1335_pos = $P10."pos"()
- alt1341_end:
-.annotate 'line', 579
- (rx1335_rep) = rx1335_cur."!mark_commit"($I1346)
- rxquantr1340_done:
-.annotate 'line', 571
- # rx pass
- 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)
+ rx1380_pos = $P10."pos"()
+ alt1386_end:
+.annotate 'line', 592
+ (rx1380_rep) = rx1380_cur."!mark_commit"($I1391)
+ rxquantr1385_done:
+.annotate 'line', 584
+ # rx pass
+ rx1380_cur."!cursor_pass"(rx1380_pos, "assertion:sym<name>")
+ rx1380_cur."!cursor_debug"("PASS ", "assertion:sym<name>", " at pos=", rx1380_pos)
+ .return (rx1380_cur)
+ rx1380_fail:
+.annotate 'line', 563
+ (rx1380_rep, rx1380_pos, $I10, $P10) = rx1380_cur."!mark_fail"(0)
+ lt rx1380_pos, -1, rx1380_done
+ eq rx1380_pos, -1, rx1380_fail
+ jump $I10
+ rx1380_done:
+ rx1380_cur."!cursor_fail"()
+ rx1380_cur."!cursor_debug"("FAIL ", "assertion:sym<name>")
+ .return (rx1380_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<name>" :subid("347_1275117591.97262") :method
-.annotate 'line', 550
- new $P1337, "ResizablePMCArray"
- push $P1337, ""
- .return ($P1337)
+.sub "!PREFIX__assertion:sym<name>" :subid("356_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1382, "ResizablePMCArray"
+ push $P1382, ""
+ .return ($P1382)
.end
.namespace ["NQP";"Regex"]
-.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:
+.sub "_block1387" :anon :subid("357_1275811487.95429") :method :outer("355_1275811487.95429")
+.annotate 'line', 587
+ .local string rx1389_tgt
+ .local int rx1389_pos
+ .local int rx1389_off
+ .local int rx1389_eos
+ .local int rx1389_rep
+ .local pmc rx1389_cur
+ (rx1389_cur, rx1389_pos, rx1389_tgt) = self."!cursor_start"()
+ rx1389_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx1389_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1389_eos, rx1389_tgt
+ gt rx1389_pos, rx1389_eos, rx1389_done
+ set rx1389_off, 0
+ lt rx1389_pos, 2, rx1389_start
+ sub rx1389_off, rx1389_pos, 1
+ substr rx1389_tgt, rx1389_tgt, rx1389_off
+ rx1389_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1390_done
+ goto rxscan1390_scan
+ rxscan1390_loop:
+ ($P10) = rx1389_cur."from"()
+ inc $P10
+ set rx1389_pos, $P10
+ ge rx1389_pos, rx1389_eos, rxscan1390_done
+ rxscan1390_scan:
+ set_addr $I10, rxscan1390_loop
+ rx1389_cur."!mark_push"(0, rx1389_pos, $I10)
+ rxscan1390_done:
# rx literal ">"
- 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)
+ add $I11, rx1389_pos, 1
+ gt $I11, rx1389_eos, rx1389_fail
+ sub $I11, rx1389_pos, rx1389_off
+ substr $S10, rx1389_tgt, $I11, 1
+ ne $S10, ">", rx1389_fail
+ add rx1389_pos, 1
+ # rx pass
+ rx1389_cur."!cursor_pass"(rx1389_pos, "")
+ rx1389_cur."!cursor_debug"("PASS ", "", " at pos=", rx1389_pos)
+ .return (rx1389_cur)
+ rx1389_fail:
+ (rx1389_rep, rx1389_pos, $I10, $P10) = rx1389_cur."!mark_fail"(0)
+ lt rx1389_pos, -1, rx1389_done
+ eq rx1389_pos, -1, rx1389_fail
+ jump $I10
+ rx1389_done:
+ rx1389_cur."!cursor_fail"()
+ rx1389_cur."!cursor_debug"("FAIL ", "")
+ .return (rx1389_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.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
+.sub "assertion:sym<var>" :subid("358_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .local string rx1393_tgt
+ .local int rx1393_pos
+ .local int rx1393_off
+ .local int rx1393_eos
+ .local int rx1393_rep
+ .local pmc rx1393_cur
+ (rx1393_cur, rx1393_pos, rx1393_tgt) = self."!cursor_start"()
+ rx1393_cur."!cursor_debug"("START ", "assertion:sym<var>")
+ .lex unicode:"$\x{a2}", rx1393_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1393_eos, rx1393_tgt
+ gt rx1393_pos, rx1393_eos, rx1393_done
+ set rx1393_off, 0
+ lt rx1393_pos, 2, rx1393_start
+ sub rx1393_off, rx1393_pos, 1
+ substr rx1393_tgt, rx1393_tgt, rx1393_off
+ rx1393_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1396_done
+ goto rxscan1396_scan
+ rxscan1396_loop:
+ ($P10) = rx1393_cur."from"()
+ inc $P10
+ set rx1393_pos, $P10
+ ge rx1393_pos, rx1393_eos, rxscan1396_done
+ rxscan1396_scan:
+ set_addr $I10, rxscan1396_loop
+ rx1393_cur."!mark_push"(0, rx1393_pos, $I10)
+ rxscan1396_done:
+.annotate 'line', 596
# rx enumcharlist negate=0 zerowidth
- ge rx1348_pos, rx1348_eos, rx1348_fail
- sub $I10, rx1348_pos, rx1348_off
- substr $S10, rx1348_tgt, $I10, 1
+ ge rx1393_pos, rx1393_eos, rx1393_fail
+ sub $I10, rx1393_pos, rx1393_off
+ substr $S10, rx1393_tgt, $I10, 1
index $I11, "$@", $S10
- lt $I11, 0, rx1348_fail
+ lt $I11, 0, rx1393_fail
# rx subrule "LANG" subtype=capture negate=
- rx1348_cur."!cursor_pos"(rx1348_pos)
- $P10 = rx1348_cur."LANG"("MAIN", "variable")
- unless $P10, rx1348_fail
- rx1348_cur."!mark_push"(0, -1, 0, $P10)
+ rx1393_cur."!cursor_pos"(rx1393_pos)
+ $P10 = rx1393_cur."LANG"("MAIN", "variable")
+ unless $P10, rx1393_fail
+ rx1393_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("var")
- rx1348_pos = $P10."pos"()
-.annotate 'line', 582
+ rx1393_pos = $P10."pos"()
+.annotate 'line', 595
# rx pass
- 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)
+ rx1393_cur."!cursor_pass"(rx1393_pos, "assertion:sym<var>")
+ rx1393_cur."!cursor_debug"("PASS ", "assertion:sym<var>", " at pos=", rx1393_pos)
+ .return (rx1393_cur)
+ rx1393_fail:
+.annotate 'line', 563
+ (rx1393_rep, rx1393_pos, $I10, $P10) = rx1393_cur."!mark_fail"(0)
+ lt rx1393_pos, -1, rx1393_done
+ eq rx1393_pos, -1, rx1393_fail
+ jump $I10
+ rx1393_done:
+ rx1393_cur."!cursor_fail"()
+ rx1393_cur."!cursor_debug"("FAIL ", "assertion:sym<var>")
+ .return (rx1393_cur)
.return ()
.end
.namespace ["NQP";"Regex"]
-.sub "!PREFIX__assertion:sym<var>" :subid("350_1275117591.97262") :method
-.annotate 'line', 550
- new $P1350, "ResizablePMCArray"
- push $P1350, "$"
- push $P1350, "@"
- .return ($P1350)
+.sub "!PREFIX__assertion:sym<var>" :subid("359_1275811487.95429") :method
+.annotate 'line', 563
+ new $P1395, "ResizablePMCArray"
+ push $P1395, "$"
+ push $P1395, "@"
+ .return ($P1395)
.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
+.sub "codeblock" :subid("360_1275811487.95429") :method :outer("341_1275811487.95429")
+.annotate 'line', 563
+ .local string rx1398_tgt
+ .local int rx1398_pos
+ .local int rx1398_off
+ .local int rx1398_eos
+ .local int rx1398_rep
+ .local pmc rx1398_cur
+ (rx1398_cur, rx1398_pos, rx1398_tgt) = self."!cursor_start"()
+ rx1398_cur."!cursor_debug"("START ", "codeblock")
+ .lex unicode:"$\x{a2}", rx1398_cur
+ .local pmc match
+ .lex "$/", match
+ length rx1398_eos, rx1398_tgt
+ gt rx1398_pos, rx1398_eos, rx1398_done
+ set rx1398_off, 0
+ lt rx1398_pos, 2, rx1398_start
+ sub rx1398_off, rx1398_pos, 1
+ substr rx1398_tgt, rx1398_tgt, rx1398_off
+ rx1398_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan1402_done
+ goto rxscan1402_scan
+ rxscan1402_loop:
+ ($P10) = rx1398_cur."from"()
+ inc $P10
+ set rx1398_pos, $P10
+ ge rx1398_pos, rx1398_eos, rxscan1402_done
+ rxscan1402_scan:
+ set_addr $I10, rxscan1402_loop
+ rx1398_cur."!mark_push"(0, rx1398_pos, $I10)
+ rxscan1402_done:
+.annotate 'line', 600
# 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)
+ rx1398_cur."!cursor_pos"(rx1398_pos)
+ $P10 = rx1398_cur."LANG"("MAIN", "pblock")
+ unless $P10, rx1398_fail
+ rx1398_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("block")
- rx1353_pos = $P10."pos"()
-.annotate 'line', 586
+ rx1398_pos = $P10."pos"()
+.annotate 'line', 599
# 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)
+ rx1398_cur."!cursor_pass"(rx1398_pos, "codeblock")
+ rx1398_cur."!cursor_debug"("PASS ", "codeblock", " at pos=", rx1398_pos)
+ .return (rx1398_cur)
+ rx1398_fail:
+.annotate 'line', 563
+ (rx1398_rep, rx1398_pos, $I10, $P10) = rx1398_cur."!mark_fail"(0)
+ lt rx1398_pos, -1, rx1398_done
+ eq rx1398_pos, -1, rx1398_fail
+ jump $I10
+ rx1398_done:
+ rx1398_cur."!cursor_fail"()
+ rx1398_cur."!cursor_debug"("FAIL ", "codeblock")
+ .return (rx1398_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)
+.sub "!PREFIX__codeblock" :subid("361_1275811487.95429") :method
+.annotate 'line', 563
+ $P1400 = self."!PREFIX__!subrule"("LANG", "")
+ new $P1401, "ResizablePMCArray"
+ push $P1401, $P1400
+ .return ($P1401)
.end
.namespace ["NQP";"Grammar"]
-.sub "_block1359" :load :anon :subid("353_1275117591.97262")
+.sub "_block1404" :load :anon :subid("362_1275811487.95429")
.annotate 'line', 4
- .const 'Sub' $P1361 = "11_1275117591.97262"
- $P1362 = $P1361()
- .return ($P1362)
+ .const 'Sub' $P1406 = "11_1275811487.95429"
+ $P1407 = $P1406()
+ .return ($P1407)
.end
.namespace []
-.sub "_block1380" :load :anon :subid("354_1275117591.97262")
+.sub "_block1425" :load :anon :subid("363_1275811487.95429")
.annotate 'line', 1
- .const 'Sub' $P1382 = "10_1275117591.97262"
- $P1383 = $P1382()
- .return ($P1383)
+ .const 'Sub' $P1427 = "10_1275811487.95429"
+ $P1428 = $P1427()
+ .return ($P1428)
.end
### .include 'gen/nqp-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117616.72633")
+.sub "_block11" :anon :subid("10_1275811497.55064")
.annotate 'line', 0
get_hll_global $P14, ["NQP";"Actions"], "_block13"
capture_lex $P14
@@ -16898,263 +17447,267 @@
.annotate 'line', 3
get_hll_global $P14, ["NQP";"Actions"], "_block13"
capture_lex $P14
- $P2323 = $P14()
+ $P2424 = $P14()
.annotate 'line', 1
- .return ($P2323)
- .const 'Sub' $P2325 = "137_1275117616.72633"
- .return ($P2325)
+ .return ($P2424)
+ .const 'Sub' $P2426 = "143_1275811497.55064"
+ .return ($P2426)
.end
.namespace []
-.sub "" :load :init :subid("post138") :outer("10_1275117616.72633")
+.sub "" :load :init :subid("post144") :outer("10_1275811497.55064")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117616.72633"
+ .const 'Sub' $P12 = "10_1275811497.55064"
.local pmc block
set block, $P12
- $P2328 = get_root_global ["parrot"], "P6metaclass"
- $P2328."new_class"("NQP::Actions", "HLL::Actions" :named("parent"))
+ $P2429 = get_root_global ["parrot"], "P6metaclass"
+ $P2429."new_class"("NQP::Actions", "HLL::Actions" :named("parent"))
.end
.namespace ["NQP";"Actions"]
-.sub "_block13" :subid("11_1275117616.72633") :outer("10_1275117616.72633")
+.sub "_block13" :subid("11_1275811497.55064") :outer("10_1275811497.55064")
.annotate 'line', 3
- .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 = "123_1275117616.72633"
- capture_lex $P2171
- .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' $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' $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"
+ .const 'Sub' $P2420 = "142_1275811497.55064"
+ capture_lex $P2420
+ get_hll_global $P2303, ["NQP";"RegexActions"], "_block2302"
+ capture_lex $P2303
+ .const 'Sub' $P2292 = "132_1275811497.55064"
+ capture_lex $P2292
+ .const 'Sub' $P2285 = "131_1275811497.55064"
+ capture_lex $P2285
+ .const 'Sub' $P2278 = "130_1275811497.55064"
+ capture_lex $P2278
+ .const 'Sub' $P2271 = "129_1275811497.55064"
+ capture_lex $P2271
+ .const 'Sub' $P2258 = "128_1275811497.55064"
+ capture_lex $P2258
+ .const 'Sub' $P2248 = "127_1275811497.55064"
+ capture_lex $P2248
+ .const 'Sub' $P2238 = "126_1275811497.55064"
+ capture_lex $P2238
+ .const 'Sub' $P2228 = "125_1275811497.55064"
+ capture_lex $P2228
+ .const 'Sub' $P2221 = "124_1275811497.55064"
+ capture_lex $P2221
+ .const 'Sub' $P2207 = "123_1275811497.55064"
+ capture_lex $P2207
+ .const 'Sub' $P2197 = "122_1275811497.55064"
+ capture_lex $P2197
+ .const 'Sub' $P2160 = "121_1275811497.55064"
+ capture_lex $P2160
+ .const 'Sub' $P2146 = "120_1275811497.55064"
+ capture_lex $P2146
+ .const 'Sub' $P2136 = "119_1275811497.55064"
+ capture_lex $P2136
+ .const 'Sub' $P2126 = "118_1275811497.55064"
+ capture_lex $P2126
+ .const 'Sub' $P2116 = "117_1275811497.55064"
+ capture_lex $P2116
+ .const 'Sub' $P2106 = "116_1275811497.55064"
+ capture_lex $P2106
+ .const 'Sub' $P2096 = "115_1275811497.55064"
+ capture_lex $P2096
+ .const 'Sub' $P2068 = "114_1275811497.55064"
+ capture_lex $P2068
+ .const 'Sub' $P2051 = "113_1275811497.55064"
+ capture_lex $P2051
+ .const 'Sub' $P2041 = "112_1275811497.55064"
+ capture_lex $P2041
+ .const 'Sub' $P2028 = "111_1275811497.55064"
+ capture_lex $P2028
+ .const 'Sub' $P2015 = "110_1275811497.55064"
+ capture_lex $P2015
+ .const 'Sub' $P2002 = "109_1275811497.55064"
+ capture_lex $P2002
+ .const 'Sub' $P1992 = "108_1275811497.55064"
+ capture_lex $P1992
+ .const 'Sub' $P1963 = "107_1275811497.55064"
+ capture_lex $P1963
+ .const 'Sub' $P1939 = "106_1275811497.55064"
+ capture_lex $P1939
+ .const 'Sub' $P1929 = "105_1275811497.55064"
+ capture_lex $P1929
+ .const 'Sub' $P1919 = "104_1275811497.55064"
+ capture_lex $P1919
+ .const 'Sub' $P1892 = "103_1275811497.55064"
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' $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_1275117616.72633"
- capture_lex $P181
- .const 'Sub' $P171 = "20_1275117616.72633"
- capture_lex $P171
- .const 'Sub' $P151 = "19_1275117616.72633"
+ .const 'Sub' $P1874 = "102_1275811497.55064"
+ capture_lex $P1874
+ .const 'Sub' $P1864 = "101_1275811497.55064"
+ capture_lex $P1864
+ .const 'Sub' $P1760 = "98_1275811497.55064"
+ capture_lex $P1760
+ .const 'Sub' $P1750 = "97_1275811497.55064"
+ capture_lex $P1750
+ .const 'Sub' $P1721 = "96_1275811497.55064"
+ capture_lex $P1721
+ .const 'Sub' $P1679 = "95_1275811497.55064"
+ capture_lex $P1679
+ .const 'Sub' $P1663 = "94_1275811497.55064"
+ capture_lex $P1663
+ .const 'Sub' $P1654 = "93_1275811497.55064"
+ capture_lex $P1654
+ .const 'Sub' $P1622 = "92_1275811497.55064"
+ capture_lex $P1622
+ .const 'Sub' $P1523 = "89_1275811497.55064"
+ capture_lex $P1523
+ .const 'Sub' $P1506 = "88_1275811497.55064"
+ capture_lex $P1506
+ .const 'Sub' $P1486 = "87_1275811497.55064"
+ capture_lex $P1486
+ .const 'Sub' $P1374 = "84_1275811497.55064"
+ capture_lex $P1374
+ .const 'Sub' $P1317 = "80_1275811497.55064"
+ capture_lex $P1317
+ .const 'Sub' $P1277 = "78_1275811497.55064"
+ capture_lex $P1277
+ .const 'Sub' $P1227 = "76_1275811497.55064"
+ capture_lex $P1227
+ .const 'Sub' $P1217 = "75_1275811497.55064"
+ capture_lex $P1217
+ .const 'Sub' $P1207 = "74_1275811497.55064"
+ capture_lex $P1207
+ .const 'Sub' $P1136 = "72_1275811497.55064"
+ capture_lex $P1136
+ .const 'Sub' $P1126 = "71_1275811497.55064"
+ capture_lex $P1126
+ .const 'Sub' $P1109 = "70_1275811497.55064"
+ capture_lex $P1109
+ .const 'Sub' $P1092 = "69_1275811497.55064"
+ capture_lex $P1092
+ .const 'Sub' $P1075 = "68_1275811497.55064"
+ capture_lex $P1075
+ .const 'Sub' $P1065 = "67_1275811497.55064"
+ capture_lex $P1065
+ .const 'Sub' $P1055 = "66_1275811497.55064"
+ capture_lex $P1055
+ .const 'Sub' $P1045 = "65_1275811497.55064"
+ capture_lex $P1045
+ .const 'Sub' $P1021 = "64_1275811497.55064"
+ capture_lex $P1021
+ .const 'Sub' $P968 = "63_1275811497.55064"
+ capture_lex $P968
+ .const 'Sub' $P958 = "62_1275811497.55064"
+ capture_lex $P958
+ .const 'Sub' $P869 = "60_1275811497.55064"
+ capture_lex $P869
+ .const 'Sub' $P843 = "59_1275811497.55064"
+ capture_lex $P843
+ .const 'Sub' $P827 = "58_1275811497.55064"
+ capture_lex $P827
+ .const 'Sub' $P817 = "57_1275811497.55064"
+ capture_lex $P817
+ .const 'Sub' $P807 = "56_1275811497.55064"
+ capture_lex $P807
+ .const 'Sub' $P797 = "55_1275811497.55064"
+ capture_lex $P797
+ .const 'Sub' $P787 = "54_1275811497.55064"
+ capture_lex $P787
+ .const 'Sub' $P777 = "53_1275811497.55064"
+ capture_lex $P777
+ .const 'Sub' $P767 = "52_1275811497.55064"
+ capture_lex $P767
+ .const 'Sub' $P757 = "51_1275811497.55064"
+ capture_lex $P757
+ .const 'Sub' $P747 = "50_1275811497.55064"
+ capture_lex $P747
+ .const 'Sub' $P737 = "49_1275811497.55064"
+ capture_lex $P737
+ .const 'Sub' $P727 = "48_1275811497.55064"
+ capture_lex $P727
+ .const 'Sub' $P717 = "47_1275811497.55064"
+ capture_lex $P717
+ .const 'Sub' $P707 = "46_1275811497.55064"
+ capture_lex $P707
+ .const 'Sub' $P697 = "45_1275811497.55064"
+ capture_lex $P697
+ .const 'Sub' $P679 = "44_1275811497.55064"
+ capture_lex $P679
+ .const 'Sub' $P644 = "43_1275811497.55064"
+ capture_lex $P644
+ .const 'Sub' $P628 = "42_1275811497.55064"
+ capture_lex $P628
+ .const 'Sub' $P607 = "41_1275811497.55064"
+ capture_lex $P607
+ .const 'Sub' $P587 = "40_1275811497.55064"
+ capture_lex $P587
+ .const 'Sub' $P574 = "39_1275811497.55064"
+ capture_lex $P574
+ .const 'Sub' $P548 = "38_1275811497.55064"
+ capture_lex $P548
+ .const 'Sub' $P512 = "37_1275811497.55064"
+ capture_lex $P512
+ .const 'Sub' $P495 = "36_1275811497.55064"
+ capture_lex $P495
+ .const 'Sub' $P481 = "35_1275811497.55064"
+ capture_lex $P481
+ .const 'Sub' $P428 = "33_1275811497.55064"
+ capture_lex $P428
+ .const 'Sub' $P417 = "32_1275811497.55064"
+ capture_lex $P417
+ .const 'Sub' $P404 = "31_1275811497.55064"
+ capture_lex $P404
+ .const 'Sub' $P384 = "30_1275811497.55064"
+ capture_lex $P384
+ .const 'Sub' $P374 = "29_1275811497.55064"
+ capture_lex $P374
+ .const 'Sub' $P364 = "28_1275811497.55064"
+ capture_lex $P364
+ .const 'Sub' $P348 = "27_1275811497.55064"
+ capture_lex $P348
+ .const 'Sub' $P288 = "25_1275811497.55064"
+ capture_lex $P288
+ .const 'Sub' $P245 = "23_1275811497.55064"
+ capture_lex $P245
+ .const 'Sub' $P213 = "22_1275811497.55064"
+ capture_lex $P213
+ .const 'Sub' $P180 = "21_1275811497.55064"
+ capture_lex $P180
+ .const 'Sub' $P170 = "20_1275811497.55064"
+ capture_lex $P170
+ .const 'Sub' $P151 = "19_1275811497.55064"
capture_lex $P151
- .const 'Sub' $P100 = "18_1275117616.72633"
+ .const 'Sub' $P100 = "18_1275811497.55064"
capture_lex $P100
- .const 'Sub' $P84 = "17_1275117616.72633"
+ .const 'Sub' $P84 = "17_1275811497.55064"
capture_lex $P84
- .const 'Sub' $P63 = "16_1275117616.72633"
+ .const 'Sub' $P63 = "16_1275811497.55064"
capture_lex $P63
- .const 'Sub' $P27 = "13_1275117616.72633"
+ .const 'Sub' $P27 = "13_1275811497.55064"
capture_lex $P27
- .const 'Sub' $P16 = "12_1275117616.72633"
+ .const 'Sub' $P16 = "12_1275811497.55064"
capture_lex $P16
get_global $P15, "@BLOCK"
- unless_null $P15, vivify_141
+ unless_null $P15, vivify_147
$P15 = root_new ['parrot';'ResizablePMCArray']
set_global "@BLOCK", $P15
- vivify_141:
+ vivify_147:
.annotate 'line', 9
- .const 'Sub' $P16 = "12_1275117616.72633"
+ .const 'Sub' $P16 = "12_1275811497.55064"
newclosure $P26, $P16
.lex "xblock_immediate", $P26
.annotate 'line', 14
- .const 'Sub' $P27 = "13_1275117616.72633"
+ .const 'Sub' $P27 = "13_1275811497.55064"
newclosure $P62, $P27
.lex "block_immediate", $P62
.annotate 'line', 24
- .const 'Sub' $P63 = "16_1275117616.72633"
+ .const 'Sub' $P63 = "16_1275811497.55064"
newclosure $P83, $P63
.lex "vivitype", $P83
.annotate 'line', 43
- .const 'Sub' $P84 = "17_1275117616.72633"
+ .const 'Sub' $P84 = "17_1275811497.55064"
newclosure $P99, $P84
.lex "colonpair_str", $P99
.annotate 'line', 213
- .const 'Sub' $P100 = "18_1275117616.72633"
+ .const 'Sub' $P100 = "18_1275811497.55064"
newclosure $P150, $P100
.lex "push_block_handler", $P150
-.annotate 'line', 797
- .const 'Sub' $P151 = "19_1275117616.72633"
- newclosure $P166, $P151
- .lex "control", $P166
+.annotate 'line', 822
+ .const 'Sub' $P151 = "19_1275811497.55064"
+ newclosure $P165, $P151
+ .lex "control", $P165
.annotate 'line', 3
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -17162,82 +17715,83 @@
unless $I0 goto ctxsave_done
$P0."ctxsave"()
ctxsave_done:
- get_global $P167, "@BLOCK"
+ get_global $P166, "@BLOCK"
.annotate 'line', 5
- find_lex $P168, "xblock_immediate"
- find_lex $P169, "block_immediate"
- find_lex $P170, "vivitype"
+ find_lex $P167, "xblock_immediate"
+ find_lex $P168, "block_immediate"
+ find_lex $P169, "vivitype"
.annotate 'line', 35
- find_lex $P213, "colonpair_str"
+ find_lex $P212, "colonpair_str"
.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()
+ find_lex $P627, "push_block_handler"
+.annotate 'line', 813
+ find_lex $P2270, "control"
+.annotate 'line', 840
+ get_hll_global $P2303, ["NQP";"RegexActions"], "_block2302"
+ capture_lex $P2303
+ $P2414 = $P2303()
.annotate 'line', 3
- .return ($P2313)
- .const 'Sub' $P2315 = "135_1275117616.72633"
- .return ($P2315)
+ .return ($P2414)
+ .const 'Sub' $P2416 = "141_1275811497.55064"
+ .return ($P2416)
.end
.namespace ["NQP";"Actions"]
-.sub "" :load :init :subid("post139") :outer("11_1275117616.72633")
+.sub "" :load :init :subid("post145") :outer("11_1275811497.55064")
.annotate 'line', 3
get_hll_global $P14, ["NQP";"Actions"], "_block13"
.local pmc block
set block, $P14
.annotate 'line', 5
- .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"))
+ .const 'Sub' $P2420 = "142_1275811497.55064"
+ capture_lex $P2420
+ $P2420()
+ $P2423 = get_root_global ["parrot"], "P6metaclass"
+ $P2423."new_class"("NQP::RegexActions", "Regex::P6Regex::Actions" :named("parent"))
.end
.namespace ["NQP";"Actions"]
-.sub "_block2318" :anon :subid("136_1275117616.72633") :outer("11_1275117616.72633")
+.sub "_block2419" :anon :subid("142_1275811497.55064") :outer("11_1275811497.55064")
.annotate 'line', 6
- get_global $P2320, "@BLOCK"
- unless_null $P2320, vivify_140
- $P2320 = root_new ['parrot';'ResizablePMCArray']
- set_global "@BLOCK", $P2320
- vivify_140:
- $P2321 = new ['ResizablePMCArray']
- set_global "@BLOCK", $P2321
+ get_global $P2421, "@BLOCK"
+ unless_null $P2421, vivify_146
+ $P2421 = root_new ['parrot';'ResizablePMCArray']
+ set_global "@BLOCK", $P2421
+ vivify_146:
+ $P2422 = new ['ResizablePMCArray']
+ set_global "@BLOCK", $P2422
.annotate 'line', 5
- .return ($P2321)
+ .return ($P2422)
.end
.namespace ["NQP";"Actions"]
-.sub "xblock_immediate" :subid("12_1275117616.72633") :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "xblock_immediate" :subid("12_1275811497.55064") :outer("11_1275811497.55064")
.param pmc param_19
.annotate 'line', 9
new $P18, 'ExceptionHandler'
set_addr $P18, control_17
- $P18."handle_types"(57)
+ $P18."handle_types"(.CONTROL_RETURN)
push_eh $P18
.lex "$xblock", param_19
.annotate 'line', 10
find_lex $P20, "$xblock"
- unless_null $P20, vivify_142
+ unless_null $P20, vivify_148
$P20 = root_new ['parrot';'ResizablePMCArray']
- vivify_142:
+ vivify_148:
set $P21, $P20[1]
- unless_null $P21, vivify_143
+ unless_null $P21, vivify_149
new $P21, "Undef"
- vivify_143:
+ vivify_149:
$P22 = "block_immediate"($P21)
find_lex $P23, "$xblock"
- unless_null $P23, vivify_144
+ unless_null $P23, vivify_150
$P23 = root_new ['parrot';'ResizablePMCArray']
store_lex "$xblock", $P23
- vivify_144:
+ vivify_150:
set $P23[1], $P22
find_lex $P24, "$xblock"
.annotate 'line', 9
@@ -17251,14 +17805,15 @@
.namespace ["NQP";"Actions"]
-.sub "block_immediate" :subid("13_1275117616.72633") :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "block_immediate" :subid("13_1275811497.55064") :outer("11_1275811497.55064")
.param pmc param_30
.annotate 'line', 14
- .const 'Sub' $P40 = "14_1275117616.72633"
+ .const 'Sub' $P40 = "14_1275811497.55064"
capture_lex $P40
new $P29, 'ExceptionHandler'
set_addr $P29, control_28
- $P29."handle_types"(57)
+ $P29."handle_types"(.CONTROL_RETURN)
push_eh $P29
.lex "$block", param_30
.annotate 'line', 15
@@ -17276,7 +17831,7 @@
set $P33, $P38
unless_34_end:
if $P33, unless_32_end
- .const 'Sub' $P40 = "14_1275117616.72633"
+ .const 'Sub' $P40 = "14_1275811497.55064"
capture_lex $P40
$P40()
unless_32_end:
@@ -17292,9 +17847,10 @@
.namespace ["NQP";"Actions"]
-.sub "_block39" :anon :subid("14_1275117616.72633") :outer("13_1275117616.72633")
+.include "except_types.pasm"
+.sub "_block39" :anon :subid("14_1275811497.55064") :outer("13_1275811497.55064")
.annotate 'line', 16
- .const 'Sub' $P51 = "15_1275117616.72633"
+ .const 'Sub' $P51 = "15_1275811497.55064"
capture_lex $P51
.annotate 'line', 17
new $P41, "Undef"
@@ -17307,17 +17863,17 @@
find_lex $P46, "$block"
$P47 = $P46."list"()
defined $I48, $P47
- unless $I48, for_undef_145
+ unless $I48, for_undef_151
iter $P45, $P47
new $P57, 'ExceptionHandler'
set_addr $P57, loop56_handler
- $P57."handle_types"(64, 66, 65)
+ $P57."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P57
loop56_test:
unless $P45, loop56_done
shift $P49, $P45
loop56_redo:
- .const 'Sub' $P51 = "15_1275117616.72633"
+ .const 'Sub' $P51 = "15_1275811497.55064"
capture_lex $P51
$P51($P49)
loop56_next:
@@ -17326,11 +17882,11 @@
.local pmc exception
.get_results (exception)
getattribute $P58, exception, 'type'
- eq $P58, 64, loop56_next
- eq $P58, 66, loop56_redo
+ eq $P58, .CONTROL_LOOP_NEXT, loop56_next
+ eq $P58, .CONTROL_LOOP_REDO, loop56_redo
loop56_done:
pop_eh
- for_undef_145:
+ for_undef_151:
.annotate 'line', 19
find_lex $P59, "$stmts"
store_lex "$block", $P59
@@ -17340,7 +17896,7 @@
.namespace ["NQP";"Actions"]
-.sub "_block50" :anon :subid("15_1275117616.72633") :outer("14_1275117616.72633")
+.sub "_block50" :anon :subid("15_1275811497.55064") :outer("14_1275811497.55064")
.param pmc param_52
.annotate 'line', 18
.lex "$_", param_52
@@ -17352,12 +17908,13 @@
.namespace ["NQP";"Actions"]
-.sub "vivitype" :subid("16_1275117616.72633") :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "vivitype" :subid("16_1275811497.55064") :outer("11_1275811497.55064")
.param pmc param_66
.annotate 'line', 24
new $P65, 'ExceptionHandler'
set_addr $P65, control_64
- $P65."handle_types"(57)
+ $P65."handle_types"(.CONTROL_RETURN)
push_eh $P65
.lex "$sigil", param_66
.annotate 'line', 25
@@ -17400,12 +17957,13 @@
.namespace ["NQP";"Actions"]
-.sub "colonpair_str" :subid("17_1275117616.72633") :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "colonpair_str" :subid("17_1275811497.55064") :outer("11_1275811497.55064")
.param pmc param_87
.annotate 'line', 43
new $P86, 'ExceptionHandler'
set_addr $P86, control_85
- $P86."handle_types"(57)
+ $P86."handle_types"(.CONTROL_RETURN)
push_eh $P86
.lex "$ast", param_87
.annotate 'line', 44
@@ -17438,36 +17996,37 @@
.namespace ["NQP";"Actions"]
-.sub "push_block_handler" :subid("18_1275117616.72633") :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "push_block_handler" :subid("18_1275811497.55064") :outer("11_1275811497.55064")
.param pmc param_103
.param pmc param_104
.annotate 'line', 213
new $P102, 'ExceptionHandler'
set_addr $P102, control_101
- $P102."handle_types"(57)
+ $P102."handle_types"(.CONTROL_RETURN)
push_eh $P102
.lex "$/", param_103
.lex "$block", param_104
.annotate 'line', 214
get_global $P106, "@BLOCK"
- unless_null $P106, vivify_146
+ unless_null $P106, vivify_152
$P106 = root_new ['parrot';'ResizablePMCArray']
- vivify_146:
+ vivify_152:
set $P107, $P106[0]
- unless_null $P107, vivify_147
+ unless_null $P107, vivify_153
new $P107, "Undef"
- vivify_147:
+ vivify_153:
$P108 = $P107."handlers"()
if $P108, unless_105_end
.annotate 'line', 215
get_global $P109, "@BLOCK"
- unless_null $P109, vivify_148
+ unless_null $P109, vivify_154
$P109 = root_new ['parrot';'ResizablePMCArray']
- vivify_148:
+ vivify_154:
set $P110, $P109[0]
- unless_null $P110, vivify_149
+ unless_null $P110, vivify_155
new $P110, "Undef"
- vivify_149:
+ vivify_155:
new $P111, "ResizablePMCArray"
$P110."handlers"($P111)
unless_105_end:
@@ -17508,13 +18067,13 @@
$P128."blocktype"("declaration")
.annotate 'line', 230
get_global $P129, "@BLOCK"
- unless_null $P129, vivify_150
+ unless_null $P129, vivify_156
$P129 = root_new ['parrot';'ResizablePMCArray']
- vivify_150:
+ vivify_156:
set $P130, $P129[0]
- unless_null $P130, vivify_151
+ unless_null $P130, vivify_157
new $P130, "Undef"
- vivify_151:
+ vivify_157:
$P131 = $P130."handlers"()
.annotate 'line', 231
get_hll_global $P132, ["PAST"], "Control"
@@ -17555,4299 +18114,4379 @@
.namespace ["NQP";"Actions"]
-.sub "control" :subid("19_1275117616.72633") :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "control" :subid("19_1275811497.55064") :outer("11_1275811497.55064")
.param pmc param_154
.param pmc param_155
-.annotate 'line', 797
+.annotate 'line', 822
new $P153, 'ExceptionHandler'
set_addr $P153, control_152
- $P153."handle_types"(57)
+ $P153."handle_types"(.CONTROL_RETURN)
push_eh $P153
.lex "$/", param_154
- .lex "$id", param_155
-.annotate 'line', 798
+ .lex "$type", param_155
+.annotate 'line', 823
find_lex $P156, "$/"
get_hll_global $P157, ["PAST"], "Op"
find_lex $P158, "$/"
-.annotate 'line', 804
- new $P159, "String"
- assign $P159, " %r[\"type\"] = "
- find_lex $P160, "$id"
- concat $P161, $P159, $P160
- new $P162, "ResizablePMCArray"
- push $P162, ".include \"except_types.pasm\""
- push $P162, " %r = new \"Exception\""
- push $P162, $P161
- push $P162, " throw %r"
- $P163 = $P157."new"($P158 :named("node"), "inline" :named("pasttype"), $P162 :named("inline"))
-.annotate 'line', 798
- $P164 = $P156."!make"($P163)
-.annotate 'line', 797
- .return ($P164)
+.annotate 'line', 827
+ get_hll_global $P159, ["PAST"], "Val"
+ find_lex $P160, "$type"
+ $P161 = $P159."new"($P160 :named("value"), "!except_types" :named("returns"))
+ $P162 = $P157."new"(0, $P161, $P158 :named("node"), "die__vii" :named("pirop"))
+.annotate 'line', 823
+ $P163 = $P156."!make"($P162)
+.annotate 'line', 822
+ .return ($P163)
control_152:
.local pmc exception
.get_results (exception)
- getattribute $P165, exception, "payload"
- .return ($P165)
+ getattribute $P164, exception, "payload"
+ .return ($P164)
.end
.namespace ["NQP";"Actions"]
-.sub "TOP" :subid("20_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_174
+.include "except_types.pasm"
+.sub "TOP" :subid("20_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_173
.annotate 'line', 33
- new $P173, 'ExceptionHandler'
- set_addr $P173, control_172
- $P173."handle_types"(57)
- push_eh $P173
+ new $P172, 'ExceptionHandler'
+ set_addr $P172, control_171
+ $P172."handle_types"(.CONTROL_RETURN)
+ push_eh $P172
.lex "self", self
- .lex "$/", param_174
+ .lex "$/", param_173
+ find_lex $P174, "$/"
find_lex $P175, "$/"
- find_lex $P176, "$/"
- unless_null $P176, vivify_152
- $P176 = root_new ['parrot';'Hash']
- vivify_152:
- set $P177, $P176["comp_unit"]
- unless_null $P177, vivify_153
- new $P177, "Undef"
- vivify_153:
- $P178 = $P177."ast"()
- $P179 = $P175."!make"($P178)
- .return ($P179)
- control_172:
+ unless_null $P175, vivify_158
+ $P175 = root_new ['parrot';'Hash']
+ vivify_158:
+ set $P176, $P175["comp_unit"]
+ unless_null $P176, vivify_159
+ new $P176, "Undef"
+ vivify_159:
+ $P177 = $P176."ast"()
+ $P178 = $P174."!make"($P177)
+ .return ($P178)
+ control_171:
.local pmc exception
.get_results (exception)
- getattribute $P180, exception, "payload"
- .return ($P180)
+ getattribute $P179, exception, "payload"
+ .return ($P179)
.end
.namespace ["NQP";"Actions"]
-.sub "deflongname" :subid("21_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_184
+.include "except_types.pasm"
+.sub "deflongname" :subid("21_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_183
.annotate 'line', 35
- new $P183, 'ExceptionHandler'
- set_addr $P183, control_182
- $P183."handle_types"(57)
- push_eh $P183
+ new $P182, 'ExceptionHandler'
+ set_addr $P182, control_181
+ $P182."handle_types"(.CONTROL_RETURN)
+ push_eh $P182
.lex "self", self
- .lex "$/", param_184
+ .lex "$/", param_183
.annotate 'line', 36
- find_lex $P185, "$/"
-.annotate 'line', 37
- find_lex $P188, "$/"
- unless_null $P188, vivify_154
- $P188 = root_new ['parrot';'Hash']
- vivify_154:
- set $P189, $P188["colonpair"]
- unless_null $P189, vivify_155
- new $P189, "Undef"
- vivify_155:
- if $P189, if_187
-.annotate 'line', 39
- find_lex $P209, "$/"
- set $S210, $P209
- new $P186, 'String'
- set $P186, $S210
+ find_lex $P184, "$/"
.annotate 'line', 37
- goto if_187_end
- if_187:
- find_lex $P190, "$/"
- unless_null $P190, vivify_156
- $P190 = root_new ['parrot';'Hash']
- vivify_156:
- set $P191, $P190["identifier"]
- unless_null $P191, vivify_157
- new $P191, "Undef"
- vivify_157:
- set $S192, $P191
- new $P193, 'String'
- set $P193, $S192
- concat $P194, $P193, ":"
- find_lex $P195, "$/"
- unless_null $P195, vivify_158
- $P195 = root_new ['parrot';'Hash']
- vivify_158:
- set $P196, $P195["colonpair"]
- unless_null $P196, vivify_159
- $P196 = root_new ['parrot';'ResizablePMCArray']
- vivify_159:
- set $P197, $P196[0]
- unless_null $P197, vivify_160
- new $P197, "Undef"
+ find_lex $P187, "$/"
+ unless_null $P187, vivify_160
+ $P187 = root_new ['parrot';'Hash']
vivify_160:
- $P198 = $P197."ast"()
- $S199 = $P198."named"()
- concat $P200, $P194, $S199
- concat $P201, $P200, "<"
-.annotate 'line', 38
- find_lex $P202, "$/"
- unless_null $P202, vivify_161
- $P202 = root_new ['parrot';'Hash']
+ set $P188, $P187["colonpair"]
+ unless_null $P188, vivify_161
+ new $P188, "Undef"
vivify_161:
- set $P203, $P202["colonpair"]
- unless_null $P203, vivify_162
- $P203 = root_new ['parrot';'ResizablePMCArray']
+ if $P188, if_186
+.annotate 'line', 39
+ find_lex $P208, "$/"
+ set $S209, $P208
+ new $P185, 'String'
+ set $P185, $S209
+.annotate 'line', 37
+ goto if_186_end
+ if_186:
+ find_lex $P189, "$/"
+ unless_null $P189, vivify_162
+ $P189 = root_new ['parrot';'Hash']
vivify_162:
- set $P204, $P203[0]
- unless_null $P204, vivify_163
- new $P204, "Undef"
+ set $P190, $P189["identifier"]
+ unless_null $P190, vivify_163
+ new $P190, "Undef"
vivify_163:
- $P205 = $P204."ast"()
- $S206 = "colonpair_str"($P205)
- concat $P207, $P201, $S206
- concat $P208, $P207, ">"
- set $P186, $P208
- if_187_end:
+ set $S191, $P190
+ new $P192, 'String'
+ set $P192, $S191
+ concat $P193, $P192, ":"
+ find_lex $P194, "$/"
+ unless_null $P194, vivify_164
+ $P194 = root_new ['parrot';'Hash']
+ vivify_164:
+ set $P195, $P194["colonpair"]
+ unless_null $P195, vivify_165
+ $P195 = root_new ['parrot';'ResizablePMCArray']
+ vivify_165:
+ set $P196, $P195[0]
+ unless_null $P196, vivify_166
+ new $P196, "Undef"
+ vivify_166:
+ $P197 = $P196."ast"()
+ $S198 = $P197."named"()
+ concat $P199, $P193, $S198
+ concat $P200, $P199, "<"
+.annotate 'line', 38
+ find_lex $P201, "$/"
+ unless_null $P201, vivify_167
+ $P201 = root_new ['parrot';'Hash']
+ vivify_167:
+ set $P202, $P201["colonpair"]
+ unless_null $P202, vivify_168
+ $P202 = root_new ['parrot';'ResizablePMCArray']
+ vivify_168:
+ set $P203, $P202[0]
+ unless_null $P203, vivify_169
+ new $P203, "Undef"
+ vivify_169:
+ $P204 = $P203."ast"()
+ $S205 = "colonpair_str"($P204)
+ concat $P206, $P200, $S205
+ concat $P207, $P206, ">"
+ set $P185, $P207
+ if_186_end:
.annotate 'line', 37
- $P211 = $P185."!make"($P186)
+ $P210 = $P184."!make"($P185)
.annotate 'line', 35
- .return ($P211)
- control_182:
+ .return ($P210)
+ control_181:
.local pmc exception
.get_results (exception)
- getattribute $P212, exception, "payload"
- .return ($P212)
+ getattribute $P211, exception, "payload"
+ .return ($P211)
.end
.namespace ["NQP";"Actions"]
-.sub "comp_unit" :subid("22_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_217
+.include "except_types.pasm"
+.sub "comp_unit" :subid("22_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_216
.annotate 'line', 49
- new $P216, 'ExceptionHandler'
- set_addr $P216, control_215
- $P216."handle_types"(57)
- push_eh $P216
+ new $P215, 'ExceptionHandler'
+ set_addr $P215, control_214
+ $P215."handle_types"(.CONTROL_RETURN)
+ push_eh $P215
.lex "self", self
- .lex "$/", param_217
+ .lex "$/", param_216
.annotate 'line', 50
- new $P218, "Undef"
- .lex "$mainline", $P218
+ new $P217, "Undef"
+ .lex "$mainline", $P217
.annotate 'line', 51
- new $P219, "Undef"
- .lex "$unit", $P219
+ new $P218, "Undef"
+ .lex "$unit", $P218
.annotate 'line', 50
- find_lex $P220, "$/"
- unless_null $P220, vivify_164
- $P220 = root_new ['parrot';'Hash']
- vivify_164:
- set $P221, $P220["statementlist"]
- unless_null $P221, vivify_165
- new $P221, "Undef"
- vivify_165:
- $P222 = $P221."ast"()
- store_lex "$mainline", $P222
+ find_lex $P219, "$/"
+ unless_null $P219, vivify_170
+ $P219 = root_new ['parrot';'Hash']
+ vivify_170:
+ set $P220, $P219["statementlist"]
+ unless_null $P220, vivify_171
+ new $P220, "Undef"
+ vivify_171:
+ $P221 = $P220."ast"()
+ store_lex "$mainline", $P221
.annotate 'line', 51
- get_global $P223, "@BLOCK"
- $P224 = $P223."shift"()
- store_lex "$unit", $P224
+ get_global $P222, "@BLOCK"
+ $P223 = $P222."shift"()
+ store_lex "$unit", $P223
.annotate 'line', 55
- find_lex $P225, "$unit"
- find_lex $P226, "self"
- $P227 = $P226."CTXSAVE"()
- $P225."push"($P227)
+ find_lex $P224, "$unit"
+ find_lex $P225, "self"
+ $P226 = $P225."CTXSAVE"()
+ $P224."push"($P226)
.annotate 'line', 60
- find_lex $P228, "$unit"
+ find_lex $P227, "$unit"
.annotate 'line', 61
- get_hll_global $P229, ["PAST"], "Op"
- find_lex $P230, "$mainline"
- $P231 = $P229."new"($P230, "return" :named("pirop"))
- $P228."push"($P231)
+ get_hll_global $P228, ["PAST"], "Op"
+ find_lex $P229, "$mainline"
+ $P230 = $P228."new"($P229, "return" :named("pirop"))
+ $P227."push"($P230)
.annotate 'line', 66
- find_lex $P232, "$unit"
+ find_lex $P231, "$unit"
.annotate 'line', 67
- get_hll_global $P233, ["PAST"], "Block"
+ get_hll_global $P232, ["PAST"], "Block"
.annotate 'line', 69
- 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"))
+ get_hll_global $P233, ["PAST"], "Op"
+ get_hll_global $P234, ["PAST"], "Val"
+ find_lex $P235, "$unit"
+ $P236 = $P234."new"($P235 :named("value"))
+ $P237 = $P233."new"($P236, "call" :named("pasttype"))
+ $P238 = $P232."new"($P237, ":load" :named("pirflags"), 0 :named("lexical"), "" :named("namespace"))
.annotate 'line', 67
- $P232."push"($P239)
+ $P231."push"($P238)
.annotate 'line', 72
- find_lex $P240, "$unit"
- find_lex $P241, "$/"
- $P240."node"($P241)
+ find_lex $P239, "$unit"
+ find_lex $P240, "$/"
+ $P239."node"($P240)
.annotate 'line', 73
- find_lex $P242, "$/"
- find_lex $P243, "$unit"
- $P244 = $P242."!make"($P243)
+ find_lex $P241, "$/"
+ find_lex $P242, "$unit"
+ $P243 = $P241."!make"($P242)
.annotate 'line', 49
- .return ($P244)
- control_215:
+ .return ($P243)
+ control_214:
.local pmc exception
.get_results (exception)
- getattribute $P245, exception, "payload"
- .return ($P245)
+ getattribute $P244, exception, "payload"
+ .return ($P244)
.end
.namespace ["NQP";"Actions"]
-.sub "statementlist" :subid("23_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_249
+.include "except_types.pasm"
+.sub "statementlist" :subid("23_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_248
.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
+ .const 'Sub' $P262 = "24_1275811497.55064"
+ capture_lex $P262
+ new $P247, 'ExceptionHandler'
+ set_addr $P247, control_246
+ $P247."handle_types"(.CONTROL_RETURN)
+ push_eh $P247
.lex "self", self
- .lex "$/", param_249
+ .lex "$/", param_248
.annotate 'line', 77
- new $P250, "Undef"
- .lex "$past", $P250
- get_hll_global $P251, ["PAST"], "Stmts"
- find_lex $P252, "$/"
- $P253 = $P251."new"($P252 :named("node"))
- store_lex "$past", $P253
+ new $P249, "Undef"
+ .lex "$past", $P249
+ get_hll_global $P250, ["PAST"], "Stmts"
+ find_lex $P251, "$/"
+ $P252 = $P250."new"($P251 :named("node"))
+ store_lex "$past", $P252
.annotate 'line', 78
- find_lex $P255, "$/"
- unless_null $P255, vivify_166
- $P255 = root_new ['parrot';'Hash']
- vivify_166:
- set $P256, $P255["statement"]
- unless_null $P256, vivify_167
- new $P256, "Undef"
- vivify_167:
- unless $P256, if_254_end
+ find_lex $P254, "$/"
+ unless_null $P254, vivify_172
+ $P254 = root_new ['parrot';'Hash']
+ vivify_172:
+ set $P255, $P254["statement"]
+ unless_null $P255, vivify_173
+ new $P255, "Undef"
+ vivify_173:
+ unless $P255, if_253_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 $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:
+ find_lex $P257, "$/"
+ unless_null $P257, vivify_174
+ $P257 = root_new ['parrot';'Hash']
+ vivify_174:
+ set $P258, $P257["statement"]
+ unless_null $P258, vivify_175
+ new $P258, "Undef"
+ vivify_175:
+ defined $I259, $P258
+ unless $I259, for_undef_176
+ iter $P256, $P258
+ new $P282, 'ExceptionHandler'
+ set_addr $P282, loop281_handler
+ $P282."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P282
+ loop281_test:
+ unless $P256, loop281_done
+ shift $P260, $P256
+ loop281_redo:
+ .const 'Sub' $P262 = "24_1275811497.55064"
+ capture_lex $P262
+ $P262($P260)
+ loop281_next:
+ goto loop281_test
+ loop281_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P283, exception, 'type'
+ eq $P283, .CONTROL_LOOP_NEXT, loop281_next
+ eq $P283, .CONTROL_LOOP_REDO, loop281_redo
+ loop281_done:
pop_eh
- for_undef_170:
- if_254_end:
+ for_undef_176:
+ if_253_end:
.annotate 'line', 86
- find_lex $P285, "$/"
- find_lex $P286, "$past"
- $P287 = $P285."!make"($P286)
+ find_lex $P284, "$/"
+ find_lex $P285, "$past"
+ $P286 = $P284."!make"($P285)
.annotate 'line', 76
- .return ($P287)
- control_247:
+ .return ($P286)
+ control_246:
.local pmc exception
.get_results (exception)
- getattribute $P288, exception, "payload"
- .return ($P288)
+ getattribute $P287, exception, "payload"
+ .return ($P287)
.end
.namespace ["NQP";"Actions"]
-.sub "_block262" :anon :subid("24_1275117616.72633") :outer("23_1275117616.72633")
- .param pmc param_265
+.sub "_block261" :anon :subid("24_1275811497.55064") :outer("23_1275811497.55064")
+ .param pmc param_264
.annotate 'line', 80
- new $P264, "Undef"
- .lex "$ast", $P264
- .lex "$_", param_265
- find_lex $P266, "$_"
- $P267 = $P266."ast"()
- store_lex "$ast", $P267
+ new $P263, "Undef"
+ .lex "$ast", $P263
+ .lex "$_", param_264
+ find_lex $P265, "$_"
+ $P266 = $P265."ast"()
+ store_lex "$ast", $P266
.annotate 'line', 81
- find_lex $P269, "$ast"
- unless_null $P269, vivify_171
- $P269 = root_new ['parrot';'Hash']
- vivify_171:
- set $P270, $P269["sink"]
- unless_null $P270, vivify_172
- new $P270, "Undef"
- vivify_172:
- defined $I271, $P270
- unless $I271, if_268_end
- find_lex $P272, "$ast"
- unless_null $P272, vivify_173
- $P272 = root_new ['parrot';'Hash']
- vivify_173:
- set $P273, $P272["sink"]
- unless_null $P273, vivify_174
- new $P273, "Undef"
- vivify_174:
- store_lex "$ast", $P273
- if_268_end:
+ find_lex $P268, "$ast"
+ unless_null $P268, vivify_177
+ $P268 = root_new ['parrot';'Hash']
+ vivify_177:
+ set $P269, $P268["sink"]
+ unless_null $P269, vivify_178
+ new $P269, "Undef"
+ vivify_178:
+ defined $I270, $P269
+ unless $I270, if_267_end
+ find_lex $P271, "$ast"
+ unless_null $P271, vivify_179
+ $P271 = root_new ['parrot';'Hash']
+ vivify_179:
+ set $P272, $P271["sink"]
+ unless_null $P272, vivify_180
+ new $P272, "Undef"
+ vivify_180:
+ store_lex "$ast", $P272
+ if_267_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 $P276, if_274_end
- find_lex $P277, "$ast"
- $P278 = "block_immediate"($P277)
- store_lex "$ast", $P278
- if_274_end:
+ find_lex $P274, "$ast"
+ unless_null $P274, vivify_181
+ $P274 = root_new ['parrot';'Hash']
+ vivify_181:
+ set $P275, $P274["bareblock"]
+ unless_null $P275, vivify_182
+ new $P275, "Undef"
+ vivify_182:
+ unless $P275, if_273_end
+ find_lex $P276, "$ast"
+ $P277 = "block_immediate"($P276)
+ store_lex "$ast", $P277
+ if_273_end:
.annotate 'line', 83
- find_lex $P279, "$past"
- find_lex $P280, "$ast"
- $P281 = $P279."push"($P280)
+ find_lex $P278, "$past"
+ find_lex $P279, "$ast"
+ $P280 = $P278."push"($P279)
.annotate 'line', 79
- .return ($P281)
+ .return ($P280)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "statement" :subid("25_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_291
+ .param pmc param_292 :optional
+ .param int has_param_292 :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_293
+ .const 'Sub' $P300 = "26_1275811497.55064"
+ capture_lex $P300
+ new $P290, 'ExceptionHandler'
+ set_addr $P290, control_289
+ $P290."handle_types"(.CONTROL_RETURN)
+ push_eh $P290
+ .lex "self", self
+ .lex "$/", param_291
+ if has_param_292, optparam_183
+ new $P293, "Undef"
+ set param_292, $P293
+ optparam_183:
+ .lex "$key", param_292
.annotate 'line', 90
- new $P295, "Undef"
- .lex "$past", $P295
+ new $P294, "Undef"
+ .lex "$past", $P294
.annotate 'line', 89
- find_lex $P296, "$past"
+ find_lex $P295, "$past"
.annotate 'line', 91
- find_lex $P298, "$/"
- unless_null $P298, vivify_178
- $P298 = root_new ['parrot';'Hash']
- vivify_178:
- set $P299, $P298["EXPR"]
- unless_null $P299, vivify_179
- new $P299, "Undef"
- vivify_179:
- if $P299, if_297
+ find_lex $P297, "$/"
+ unless_null $P297, vivify_184
+ $P297 = root_new ['parrot';'Hash']
+ vivify_184:
+ set $P298, $P297["EXPR"]
+ unless_null $P298, vivify_185
+ new $P298, "Undef"
+ vivify_185:
+ if $P298, if_296
.annotate 'line', 102
- find_lex $P339, "$/"
- unless_null $P339, vivify_180
- $P339 = root_new ['parrot';'Hash']
- vivify_180:
- set $P340, $P339["statement_control"]
- unless_null $P340, vivify_181
- new $P340, "Undef"
- vivify_181:
- if $P340, if_338
+ find_lex $P338, "$/"
+ unless_null $P338, vivify_186
+ $P338 = root_new ['parrot';'Hash']
+ vivify_186:
+ set $P339, $P338["statement_control"]
+ unless_null $P339, vivify_187
+ new $P339, "Undef"
+ vivify_187:
+ if $P339, if_337
.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 $P342, $P341["statement_control"]
- unless_null $P342, vivify_183
- new $P342, "Undef"
- vivify_183:
- $P343 = $P342."ast"()
+ new $P343, "Integer"
+ assign $P343, 0
store_lex "$past", $P343
- if_338_end:
- goto if_297_end
- if_297:
+ goto if_337_end
+ if_337:
+.annotate 'line', 102
+ find_lex $P340, "$/"
+ unless_null $P340, vivify_188
+ $P340 = root_new ['parrot';'Hash']
+ vivify_188:
+ set $P341, $P340["statement_control"]
+ unless_null $P341, vivify_189
+ new $P341, "Undef"
+ vivify_189:
+ $P342 = $P341."ast"()
+ store_lex "$past", $P342
+ if_337_end:
+ goto if_296_end
+ if_296:
.annotate 'line', 91
- .const 'Sub' $P301 = "26_1275117616.72633"
- capture_lex $P301
- $P301()
- if_297_end:
+ .const 'Sub' $P300 = "26_1275811497.55064"
+ capture_lex $P300
+ $P300()
+ if_296_end:
.annotate 'line', 104
- find_lex $P345, "$/"
- find_lex $P346, "$past"
- $P347 = $P345."!make"($P346)
+ find_lex $P344, "$/"
+ find_lex $P345, "$past"
+ $P346 = $P344."!make"($P345)
.annotate 'line', 89
- .return ($P347)
- control_290:
+ .return ($P346)
+ control_289:
.local pmc exception
.get_results (exception)
- getattribute $P348, exception, "payload"
- .return ($P348)
+ getattribute $P347, exception, "payload"
+ .return ($P347)
.end
.namespace ["NQP";"Actions"]
-.sub "_block300" :anon :subid("26_1275117616.72633") :outer("25_1275117616.72633")
+.sub "_block299" :anon :subid("26_1275811497.55064") :outer("25_1275811497.55064")
.annotate 'line', 92
- new $P302, "Undef"
- .lex "$mc", $P302
+ new $P301, "Undef"
+ .lex "$mc", $P301
.annotate 'line', 93
- new $P303, "Undef"
- .lex "$ml", $P303
+ new $P302, "Undef"
+ .lex "$ml", $P302
.annotate 'line', 92
- find_lex $P304, "$/"
- unless_null $P304, vivify_184
- $P304 = root_new ['parrot';'Hash']
- vivify_184:
- set $P305, $P304["statement_mod_cond"]
- unless_null $P305, vivify_185
- $P305 = root_new ['parrot';'ResizablePMCArray']
- vivify_185:
- set $P306, $P305[0]
- unless_null $P306, vivify_186
- new $P306, "Undef"
- vivify_186:
- store_lex "$mc", $P306
-.annotate 'line', 93
- find_lex $P307, "$/"
- 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']
+ find_lex $P303, "$/"
+ unless_null $P303, vivify_190
+ $P303 = root_new ['parrot';'Hash']
vivify_190:
- set $P311, $P310["EXPR"]
- unless_null $P311, vivify_191
- new $P311, "Undef"
+ set $P304, $P303["statement_mod_cond"]
+ unless_null $P304, vivify_191
+ $P304 = root_new ['parrot';'ResizablePMCArray']
vivify_191:
- $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']
+ set $P305, $P304[0]
+ unless_null $P305, vivify_192
+ new $P305, "Undef"
vivify_192:
- set $P317, $P316["cond"]
- unless_null $P317, vivify_193
- new $P317, "Undef"
+ store_lex "$mc", $P305
+.annotate 'line', 93
+ find_lex $P306, "$/"
+ unless_null $P306, vivify_193
+ $P306 = root_new ['parrot';'Hash']
vivify_193:
- $P318 = $P317."ast"()
- find_lex $P319, "$past"
- find_lex $P320, "$mc"
- unless_null $P320, vivify_194
- $P320 = root_new ['parrot';'Hash']
+ set $P307, $P306["statement_mod_loop"]
+ unless_null $P307, vivify_194
+ $P307 = root_new ['parrot';'ResizablePMCArray']
vivify_194:
- set $P321, $P320["sym"]
- unless_null $P321, vivify_195
- new $P321, "Undef"
+ set $P308, $P307[0]
+ unless_null $P308, vivify_195
+ new $P308, "Undef"
vivify_195:
- 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']
+ store_lex "$ml", $P308
+.annotate 'line', 94
+ find_lex $P309, "$/"
+ unless_null $P309, vivify_196
+ $P309 = root_new ['parrot';'Hash']
vivify_196:
- set $P330, $P329["cond"]
- unless_null $P330, vivify_197
- new $P330, "Undef"
+ set $P310, $P309["EXPR"]
+ unless_null $P310, vivify_197
+ new $P310, "Undef"
vivify_197:
- $P331 = $P330."ast"()
- find_lex $P332, "$past"
- find_lex $P333, "$ml"
- unless_null $P333, vivify_198
- $P333 = root_new ['parrot';'Hash']
+ $P311 = $P310."ast"()
+ store_lex "$past", $P311
+.annotate 'line', 95
+ find_lex $P313, "$mc"
+ unless $P313, if_312_end
+.annotate 'line', 96
+ get_hll_global $P314, ["PAST"], "Op"
+ find_lex $P315, "$mc"
+ unless_null $P315, vivify_198
+ $P315 = root_new ['parrot';'Hash']
vivify_198:
- set $P334, $P333["sym"]
- unless_null $P334, vivify_199
- new $P334, "Undef"
+ set $P316, $P315["cond"]
+ unless_null $P316, vivify_199
+ new $P316, "Undef"
vivify_199:
- set $S335, $P334
- find_lex $P336, "$/"
- $P337 = $P328."new"($P331, $P332, $S335 :named("pasttype"), $P336 :named("node"))
- store_lex "$past", $P337
+ $P317 = $P316."ast"()
+ find_lex $P318, "$past"
+ find_lex $P319, "$mc"
+ unless_null $P319, vivify_200
+ $P319 = root_new ['parrot';'Hash']
+ vivify_200:
+ set $P320, $P319["sym"]
+ unless_null $P320, vivify_201
+ new $P320, "Undef"
+ vivify_201:
+ set $S321, $P320
+ find_lex $P322, "$/"
+ $P323 = $P314."new"($P317, $P318, $S321 :named("pasttype"), $P322 :named("node"))
+ store_lex "$past", $P323
+ if_312_end:
+.annotate 'line', 98
+ find_lex $P326, "$ml"
+ if $P326, if_325
+ set $P324, $P326
+ goto if_325_end
+ if_325:
+.annotate 'line', 99
+ get_hll_global $P327, ["PAST"], "Op"
+ find_lex $P328, "$ml"
+ unless_null $P328, vivify_202
+ $P328 = root_new ['parrot';'Hash']
+ vivify_202:
+ set $P329, $P328["cond"]
+ unless_null $P329, vivify_203
+ new $P329, "Undef"
+ vivify_203:
+ $P330 = $P329."ast"()
+ find_lex $P331, "$past"
+ find_lex $P332, "$ml"
+ unless_null $P332, vivify_204
+ $P332 = root_new ['parrot';'Hash']
+ vivify_204:
+ set $P333, $P332["sym"]
+ unless_null $P333, vivify_205
+ new $P333, "Undef"
+ vivify_205:
+ set $S334, $P333
+ find_lex $P335, "$/"
+ $P336 = $P327."new"($P330, $P331, $S334 :named("pasttype"), $P335 :named("node"))
+ store_lex "$past", $P336
.annotate 'line', 98
- set $P325, $P337
- if_326_end:
+ set $P324, $P336
+ if_325_end:
.annotate 'line', 91
- .return ($P325)
+ .return ($P324)
.end
.namespace ["NQP";"Actions"]
-.sub "xblock" :subid("27_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_352
+.include "except_types.pasm"
+.sub "xblock" :subid("27_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_351
.annotate 'line', 107
- new $P351, 'ExceptionHandler'
- set_addr $P351, control_350
- $P351."handle_types"(57)
- push_eh $P351
+ new $P350, 'ExceptionHandler'
+ set_addr $P350, control_349
+ $P350."handle_types"(.CONTROL_RETURN)
+ push_eh $P350
.lex "self", self
- .lex "$/", param_352
+ .lex "$/", param_351
.annotate 'line', 108
- find_lex $P353, "$/"
- get_hll_global $P354, ["PAST"], "Op"
- find_lex $P355, "$/"
- unless_null $P355, vivify_200
- $P355 = root_new ['parrot';'Hash']
- vivify_200:
- set $P356, $P355["EXPR"]
- unless_null $P356, vivify_201
- new $P356, "Undef"
- vivify_201:
- $P357 = $P356."ast"()
- find_lex $P358, "$/"
- 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)
+ find_lex $P352, "$/"
+ get_hll_global $P353, ["PAST"], "Op"
+ find_lex $P354, "$/"
+ unless_null $P354, vivify_206
+ $P354 = root_new ['parrot';'Hash']
+ vivify_206:
+ set $P355, $P354["EXPR"]
+ unless_null $P355, vivify_207
+ new $P355, "Undef"
+ vivify_207:
+ $P356 = $P355."ast"()
+ find_lex $P357, "$/"
+ unless_null $P357, vivify_208
+ $P357 = root_new ['parrot';'Hash']
+ vivify_208:
+ set $P358, $P357["pblock"]
+ unless_null $P358, vivify_209
+ new $P358, "Undef"
+ vivify_209:
+ $P359 = $P358."ast"()
+ find_lex $P360, "$/"
+ $P361 = $P353."new"($P356, $P359, "if" :named("pasttype"), $P360 :named("node"))
+ $P362 = $P352."!make"($P361)
.annotate 'line', 107
- .return ($P363)
- control_350:
+ .return ($P362)
+ control_349:
.local pmc exception
.get_results (exception)
- getattribute $P364, exception, "payload"
- .return ($P364)
+ getattribute $P363, exception, "payload"
+ .return ($P363)
.end
.namespace ["NQP";"Actions"]
-.sub "pblock" :subid("28_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_368
+.include "except_types.pasm"
+.sub "pblock" :subid("28_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_367
.annotate 'line', 111
- new $P367, 'ExceptionHandler'
- set_addr $P367, control_366
- $P367."handle_types"(57)
- push_eh $P367
+ new $P366, 'ExceptionHandler'
+ set_addr $P366, control_365
+ $P366."handle_types"(.CONTROL_RETURN)
+ push_eh $P366
.lex "self", self
- .lex "$/", param_368
+ .lex "$/", param_367
.annotate 'line', 112
+ find_lex $P368, "$/"
find_lex $P369, "$/"
- find_lex $P370, "$/"
- unless_null $P370, vivify_204
- $P370 = root_new ['parrot';'Hash']
- vivify_204:
- set $P371, $P370["blockoid"]
- unless_null $P371, vivify_205
- new $P371, "Undef"
- vivify_205:
- $P372 = $P371."ast"()
- $P373 = $P369."!make"($P372)
+ unless_null $P369, vivify_210
+ $P369 = root_new ['parrot';'Hash']
+ vivify_210:
+ set $P370, $P369["blockoid"]
+ unless_null $P370, vivify_211
+ new $P370, "Undef"
+ vivify_211:
+ $P371 = $P370."ast"()
+ $P372 = $P368."!make"($P371)
.annotate 'line', 111
- .return ($P373)
- control_366:
+ .return ($P372)
+ control_365:
.local pmc exception
.get_results (exception)
- getattribute $P374, exception, "payload"
- .return ($P374)
+ getattribute $P373, exception, "payload"
+ .return ($P373)
.end
.namespace ["NQP";"Actions"]
-.sub "block" :subid("29_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_378
+.include "except_types.pasm"
+.sub "block" :subid("29_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_377
.annotate 'line', 115
- new $P377, 'ExceptionHandler'
- set_addr $P377, control_376
- $P377."handle_types"(57)
- push_eh $P377
+ new $P376, 'ExceptionHandler'
+ set_addr $P376, control_375
+ $P376."handle_types"(.CONTROL_RETURN)
+ push_eh $P376
.lex "self", self
- .lex "$/", param_378
+ .lex "$/", param_377
.annotate 'line', 116
+ find_lex $P378, "$/"
find_lex $P379, "$/"
- find_lex $P380, "$/"
- unless_null $P380, vivify_206
- $P380 = root_new ['parrot';'Hash']
- vivify_206:
- set $P381, $P380["blockoid"]
- unless_null $P381, vivify_207
- new $P381, "Undef"
- vivify_207:
- $P382 = $P381."ast"()
- $P383 = $P379."!make"($P382)
+ unless_null $P379, vivify_212
+ $P379 = root_new ['parrot';'Hash']
+ vivify_212:
+ set $P380, $P379["blockoid"]
+ unless_null $P380, vivify_213
+ new $P380, "Undef"
+ vivify_213:
+ $P381 = $P380."ast"()
+ $P382 = $P378."!make"($P381)
.annotate 'line', 115
- .return ($P383)
- control_376:
+ .return ($P382)
+ control_375:
.local pmc exception
.get_results (exception)
- getattribute $P384, exception, "payload"
- .return ($P384)
+ getattribute $P383, exception, "payload"
+ .return ($P383)
.end
.namespace ["NQP";"Actions"]
-.sub "blockoid" :subid("30_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_388
+.include "except_types.pasm"
+.sub "blockoid" :subid("30_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_387
.annotate 'line', 119
- new $P387, 'ExceptionHandler'
- set_addr $P387, control_386
- $P387."handle_types"(57)
- push_eh $P387
+ new $P386, 'ExceptionHandler'
+ set_addr $P386, control_385
+ $P386."handle_types"(.CONTROL_RETURN)
+ push_eh $P386
.lex "self", self
- .lex "$/", param_388
+ .lex "$/", param_387
.annotate 'line', 120
- new $P389, "Undef"
- .lex "$past", $P389
+ new $P388, "Undef"
+ .lex "$past", $P388
.annotate 'line', 121
- new $P390, "Undef"
- .lex "$BLOCK", $P390
+ new $P389, "Undef"
+ .lex "$BLOCK", $P389
.annotate 'line', 120
- 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
+ find_lex $P390, "$/"
+ unless_null $P390, vivify_214
+ $P390 = root_new ['parrot';'Hash']
+ vivify_214:
+ set $P391, $P390["statementlist"]
+ unless_null $P391, vivify_215
+ new $P391, "Undef"
+ vivify_215:
+ $P392 = $P391."ast"()
+ store_lex "$past", $P392
.annotate 'line', 121
- get_global $P394, "@BLOCK"
- $P395 = $P394."shift"()
- store_lex "$BLOCK", $P395
+ get_global $P393, "@BLOCK"
+ $P394 = $P393."shift"()
+ store_lex "$BLOCK", $P394
.annotate 'line', 122
- find_lex $P396, "$BLOCK"
- find_lex $P397, "$past"
- $P396."push"($P397)
+ find_lex $P395, "$BLOCK"
+ find_lex $P396, "$past"
+ $P395."push"($P396)
.annotate 'line', 123
- find_lex $P398, "$BLOCK"
- find_lex $P399, "$/"
- $P398."node"($P399)
+ find_lex $P397, "$BLOCK"
+ find_lex $P398, "$/"
+ $P397."node"($P398)
.annotate 'line', 124
- find_lex $P400, "$BLOCK"
- $P400."closure"(1)
+ find_lex $P399, "$BLOCK"
+ $P399."closure"(1)
.annotate 'line', 125
- find_lex $P401, "$/"
- find_lex $P402, "$BLOCK"
- $P403 = $P401."!make"($P402)
+ find_lex $P400, "$/"
+ find_lex $P401, "$BLOCK"
+ $P402 = $P400."!make"($P401)
.annotate 'line', 119
- .return ($P403)
- control_386:
+ .return ($P402)
+ control_385:
.local pmc exception
.get_results (exception)
- getattribute $P404, exception, "payload"
- .return ($P404)
+ getattribute $P403, exception, "payload"
+ .return ($P403)
.end
.namespace ["NQP";"Actions"]
-.sub "newpad" :subid("31_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_408
+.include "except_types.pasm"
+.sub "newpad" :subid("31_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_407
.annotate 'line', 128
- new $P407, 'ExceptionHandler'
- set_addr $P407, control_406
- $P407."handle_types"(57)
- push_eh $P407
+ new $P406, 'ExceptionHandler'
+ set_addr $P406, control_405
+ $P406."handle_types"(.CONTROL_RETURN)
+ push_eh $P406
.lex "self", self
- .lex "$/", param_408
+ .lex "$/", param_407
.annotate 'line', 129
- get_global $P409, "@BLOCK"
- unless_null $P409, vivify_210
- $P409 = root_new ['parrot';'ResizablePMCArray']
- set_global "@BLOCK", $P409
- vivify_210:
+ get_global $P408, "@BLOCK"
+ unless_null $P408, vivify_216
+ $P408 = root_new ['parrot';'ResizablePMCArray']
+ set_global "@BLOCK", $P408
+ vivify_216:
.annotate 'line', 128
- get_global $P410, "@BLOCK"
+ get_global $P409, "@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)
+ get_global $P410, "@BLOCK"
+ get_hll_global $P411, ["PAST"], "Block"
+ get_hll_global $P412, ["PAST"], "Stmts"
+ $P413 = $P412."new"()
+ $P414 = $P411."new"($P413)
+ $P415 = $P410."unshift"($P414)
.annotate 'line', 128
- .return ($P416)
- control_406:
+ .return ($P415)
+ control_405:
.local pmc exception
.get_results (exception)
- getattribute $P417, exception, "payload"
- .return ($P417)
+ getattribute $P416, exception, "payload"
+ .return ($P416)
.end
.namespace ["NQP";"Actions"]
-.sub "outerctx" :subid("32_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_421
+.include "except_types.pasm"
+.sub "outerctx" :subid("32_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_420
.annotate 'line', 133
- new $P420, 'ExceptionHandler'
- set_addr $P420, control_419
- $P420."handle_types"(57)
- push_eh $P420
+ new $P419, 'ExceptionHandler'
+ set_addr $P419, control_418
+ $P419."handle_types"(.CONTROL_RETURN)
+ push_eh $P419
.lex "self", self
- .lex "$/", param_421
+ .lex "$/", param_420
.annotate 'line', 134
- get_global $P422, "@BLOCK"
- unless_null $P422, vivify_211
- $P422 = root_new ['parrot';'ResizablePMCArray']
- set_global "@BLOCK", $P422
- vivify_211:
+ get_global $P421, "@BLOCK"
+ unless_null $P421, vivify_217
+ $P421 = root_new ['parrot';'ResizablePMCArray']
+ set_global "@BLOCK", $P421
+ vivify_217:
.annotate 'line', 133
- get_global $P423, "@BLOCK"
+ get_global $P422, "@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:
- $P427 = $P424."SET_BLOCK_OUTER_CTX"($P426)
+ find_lex $P423, "self"
+ get_global $P424, "@BLOCK"
+ unless_null $P424, vivify_218
+ $P424 = root_new ['parrot';'ResizablePMCArray']
+ vivify_218:
+ set $P425, $P424[0]
+ unless_null $P425, vivify_219
+ new $P425, "Undef"
+ vivify_219:
+ $P426 = $P423."SET_BLOCK_OUTER_CTX"($P425)
.annotate 'line', 133
- .return ($P427)
- control_419:
+ .return ($P426)
+ control_418:
.local pmc exception
.get_results (exception)
- getattribute $P428, exception, "payload"
- .return ($P428)
+ getattribute $P427, exception, "payload"
+ .return ($P427)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<if>" :subid("33_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_432
+.include "except_types.pasm"
+.sub "statement_control:sym<if>" :subid("33_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_431
.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
+ .const 'Sub' $P459 = "34_1275811497.55064"
+ capture_lex $P459
+ new $P430, 'ExceptionHandler'
+ set_addr $P430, control_429
+ $P430."handle_types"(.CONTROL_RETURN)
+ push_eh $P430
.lex "self", self
- .lex "$/", param_432
+ .lex "$/", param_431
.annotate 'line', 141
- new $P433, "Undef"
- .lex "$count", $P433
+ new $P432, "Undef"
+ .lex "$count", $P432
.annotate 'line', 142
- new $P434, "Undef"
- .lex "$past", $P434
+ new $P433, "Undef"
+ .lex "$past", $P433
.annotate 'line', 141
- find_lex $P435, "$/"
- unless_null $P435, vivify_214
- $P435 = root_new ['parrot';'Hash']
- vivify_214:
- set $P436, $P435["xblock"]
- unless_null $P436, vivify_215
- new $P436, "Undef"
- vivify_215:
- 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 $P443, $P442["xblock"]
- unless_null $P443, vivify_217
- $P443 = root_new ['parrot';'ResizablePMCArray']
- vivify_217:
- set $P444, $P443[$I441]
- unless_null $P444, vivify_218
- new $P444, "Undef"
- vivify_218:
- $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 $P449, $P448["else"]
- unless_null $P449, vivify_220
- new $P449, "Undef"
+ find_lex $P434, "$/"
+ unless_null $P434, vivify_220
+ $P434 = root_new ['parrot';'Hash']
vivify_220:
- unless $P449, if_447_end
-.annotate 'line', 144
- find_lex $P450, "$past"
- find_lex $P451, "$/"
- unless_null $P451, vivify_221
- $P451 = root_new ['parrot';'Hash']
+ set $P435, $P434["xblock"]
+ unless_null $P435, vivify_221
+ new $P435, "Undef"
vivify_221:
- set $P452, $P451["else"]
- unless_null $P452, vivify_222
- $P452 = root_new ['parrot';'ResizablePMCArray']
+ set $N436, $P435
+ new $P437, 'Float'
+ set $P437, $N436
+ sub $P438, $P437, 1
+ store_lex "$count", $P438
+.annotate 'line', 142
+ find_lex $P439, "$count"
+ set $I440, $P439
+ find_lex $P441, "$/"
+ unless_null $P441, vivify_222
+ $P441 = root_new ['parrot';'Hash']
vivify_222:
- set $P453, $P452[0]
- unless_null $P453, vivify_223
- new $P453, "Undef"
+ set $P442, $P441["xblock"]
+ unless_null $P442, vivify_223
+ $P442 = root_new ['parrot';'ResizablePMCArray']
vivify_223:
- $P454 = $P453."ast"()
- $P455 = "block_immediate"($P454)
- $P450."push"($P455)
- if_447_end:
+ set $P443, $P442[$I440]
+ unless_null $P443, vivify_224
+ new $P443, "Undef"
+ vivify_224:
+ $P444 = $P443."ast"()
+ $P445 = "xblock_immediate"($P444)
+ store_lex "$past", $P445
+.annotate 'line', 143
+ find_lex $P447, "$/"
+ unless_null $P447, vivify_225
+ $P447 = root_new ['parrot';'Hash']
+ vivify_225:
+ set $P448, $P447["else"]
+ unless_null $P448, vivify_226
+ new $P448, "Undef"
+ vivify_226:
+ unless $P448, if_446_end
+.annotate 'line', 144
+ find_lex $P449, "$past"
+ find_lex $P450, "$/"
+ unless_null $P450, vivify_227
+ $P450 = root_new ['parrot';'Hash']
+ vivify_227:
+ set $P451, $P450["else"]
+ unless_null $P451, vivify_228
+ $P451 = root_new ['parrot';'ResizablePMCArray']
+ vivify_228:
+ set $P452, $P451[0]
+ unless_null $P452, vivify_229
+ new $P452, "Undef"
+ vivify_229:
+ $P453 = $P452."ast"()
+ $P454 = "block_immediate"($P453)
+ $P449."push"($P454)
+ if_446_end:
.annotate 'line', 147
- 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:
+ new $P475, 'ExceptionHandler'
+ set_addr $P475, loop474_handler
+ $P475."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P475
+ loop474_test:
+ find_lex $P455, "$count"
+ set $N456, $P455
+ isgt $I457, $N456, 0.0
+ unless $I457, loop474_done
+ loop474_redo:
+ .const 'Sub' $P459 = "34_1275811497.55064"
+ capture_lex $P459
+ $P459()
+ loop474_next:
+ goto loop474_test
+ loop474_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P476, exception, 'type'
+ eq $P476, .CONTROL_LOOP_NEXT, loop474_next
+ eq $P476, .CONTROL_LOOP_REDO, loop474_redo
+ loop474_done:
pop_eh
.annotate 'line', 153
- find_lex $P478, "$/"
- find_lex $P479, "$past"
- $P480 = $P478."!make"($P479)
+ find_lex $P477, "$/"
+ find_lex $P478, "$past"
+ $P479 = $P477."!make"($P478)
.annotate 'line', 140
- .return ($P480)
- control_430:
+ .return ($P479)
+ control_429:
.local pmc exception
.get_results (exception)
- getattribute $P481, exception, "payload"
- .return ($P481)
+ getattribute $P480, exception, "payload"
+ .return ($P480)
.end
.namespace ["NQP";"Actions"]
-.sub "_block459" :anon :subid("34_1275117616.72633") :outer("33_1275117616.72633")
+.sub "_block458" :anon :subid("34_1275811497.55064") :outer("33_1275811497.55064")
.annotate 'line', 149
- new $P461, "Undef"
- .lex "$else", $P461
+ new $P460, "Undef"
+ .lex "$else", $P460
.annotate 'line', 147
- find_lex $P462, "$count"
- clone $P463, $P462
- dec $P462
+ find_lex $P461, "$count"
+ clone $P462, $P461
+ dec $P461
.annotate 'line', 149
- find_lex $P464, "$past"
- store_lex "$else", $P464
+ find_lex $P463, "$past"
+ store_lex "$else", $P463
.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
+ find_lex $P464, "$count"
+ set $I465, $P464
+ find_lex $P466, "$/"
+ unless_null $P466, vivify_230
+ $P466 = root_new ['parrot';'Hash']
+ vivify_230:
+ set $P467, $P466["xblock"]
+ unless_null $P467, vivify_231
+ $P467 = root_new ['parrot';'ResizablePMCArray']
+ vivify_231:
+ set $P468, $P467[$I465]
+ unless_null $P468, vivify_232
+ new $P468, "Undef"
+ vivify_232:
+ $P469 = $P468."ast"()
+ $P470 = "xblock_immediate"($P469)
+ store_lex "$past", $P470
.annotate 'line', 151
- find_lex $P472, "$past"
- find_lex $P473, "$else"
- $P474 = $P472."push"($P473)
+ find_lex $P471, "$past"
+ find_lex $P472, "$else"
+ $P473 = $P471."push"($P472)
.annotate 'line', 147
- .return ($P474)
+ .return ($P473)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<unless>" :subid("35_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_485
+.include "except_types.pasm"
+.sub "statement_control:sym<unless>" :subid("35_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_484
.annotate 'line', 156
- new $P484, 'ExceptionHandler'
- set_addr $P484, control_483
- $P484."handle_types"(57)
- push_eh $P484
+ new $P483, 'ExceptionHandler'
+ set_addr $P483, control_482
+ $P483."handle_types"(.CONTROL_RETURN)
+ push_eh $P483
.lex "self", self
- .lex "$/", param_485
+ .lex "$/", param_484
.annotate 'line', 157
- new $P486, "Undef"
- .lex "$past", $P486
- find_lex $P487, "$/"
- unless_null $P487, vivify_227
- $P487 = root_new ['parrot';'Hash']
- vivify_227:
- set $P488, $P487["xblock"]
- unless_null $P488, vivify_228
- new $P488, "Undef"
- vivify_228:
- $P489 = $P488."ast"()
- $P490 = "xblock_immediate"($P489)
- store_lex "$past", $P490
+ new $P485, "Undef"
+ .lex "$past", $P485
+ find_lex $P486, "$/"
+ unless_null $P486, vivify_233
+ $P486 = root_new ['parrot';'Hash']
+ vivify_233:
+ set $P487, $P486["xblock"]
+ unless_null $P487, vivify_234
+ new $P487, "Undef"
+ vivify_234:
+ $P488 = $P487."ast"()
+ $P489 = "xblock_immediate"($P488)
+ store_lex "$past", $P489
.annotate 'line', 158
- find_lex $P491, "$past"
- $P491."pasttype"("unless")
+ find_lex $P490, "$past"
+ $P490."pasttype"("unless")
.annotate 'line', 159
- find_lex $P492, "$/"
- find_lex $P493, "$past"
- $P494 = $P492."!make"($P493)
+ find_lex $P491, "$/"
+ find_lex $P492, "$past"
+ $P493 = $P491."!make"($P492)
.annotate 'line', 156
- .return ($P494)
- control_483:
+ .return ($P493)
+ control_482:
.local pmc exception
.get_results (exception)
- getattribute $P495, exception, "payload"
- .return ($P495)
+ getattribute $P494, exception, "payload"
+ .return ($P494)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<while>" :subid("36_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_499
+.include "except_types.pasm"
+.sub "statement_control:sym<while>" :subid("36_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_498
.annotate 'line', 162
- new $P498, 'ExceptionHandler'
- set_addr $P498, control_497
- $P498."handle_types"(57)
- push_eh $P498
+ new $P497, 'ExceptionHandler'
+ set_addr $P497, control_496
+ $P497."handle_types"(.CONTROL_RETURN)
+ push_eh $P497
.lex "self", self
- .lex "$/", param_499
+ .lex "$/", param_498
.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
+ new $P499, "Undef"
+ .lex "$past", $P499
+ find_lex $P500, "$/"
+ unless_null $P500, vivify_235
+ $P500 = root_new ['parrot';'Hash']
+ vivify_235:
+ set $P501, $P500["xblock"]
+ unless_null $P501, vivify_236
+ new $P501, "Undef"
+ vivify_236:
+ $P502 = $P501."ast"()
+ $P503 = "xblock_immediate"($P502)
+ store_lex "$past", $P503
.annotate 'line', 164
- find_lex $P505, "$past"
- find_lex $P506, "$/"
- unless_null $P506, vivify_231
- $P506 = root_new ['parrot';'Hash']
- vivify_231:
- set $P507, $P506["sym"]
- unless_null $P507, vivify_232
- new $P507, "Undef"
- vivify_232:
- set $S508, $P507
- $P505."pasttype"($S508)
+ find_lex $P504, "$past"
+ find_lex $P505, "$/"
+ unless_null $P505, vivify_237
+ $P505 = root_new ['parrot';'Hash']
+ vivify_237:
+ set $P506, $P505["sym"]
+ unless_null $P506, vivify_238
+ new $P506, "Undef"
+ vivify_238:
+ set $S507, $P506
+ $P504."pasttype"($S507)
.annotate 'line', 165
- find_lex $P509, "$/"
- find_lex $P510, "$past"
- $P511 = $P509."!make"($P510)
+ find_lex $P508, "$/"
+ find_lex $P509, "$past"
+ $P510 = $P508."!make"($P509)
.annotate 'line', 162
- .return ($P511)
- control_497:
+ .return ($P510)
+ control_496:
.local pmc exception
.get_results (exception)
- getattribute $P512, exception, "payload"
- .return ($P512)
+ getattribute $P511, exception, "payload"
+ .return ($P511)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<repeat>" :subid("37_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_516
+.include "except_types.pasm"
+.sub "statement_control:sym<repeat>" :subid("37_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_515
.annotate 'line', 168
- new $P515, 'ExceptionHandler'
- set_addr $P515, control_514
- $P515."handle_types"(57)
- push_eh $P515
+ new $P514, 'ExceptionHandler'
+ set_addr $P514, control_513
+ $P514."handle_types"(.CONTROL_RETURN)
+ push_eh $P514
.lex "self", self
- .lex "$/", param_516
+ .lex "$/", param_515
.annotate 'line', 169
- new $P517, "Undef"
- .lex "$pasttype", $P517
+ new $P516, "Undef"
+ .lex "$pasttype", $P516
.annotate 'line', 170
- new $P518, "Undef"
- .lex "$past", $P518
+ new $P517, "Undef"
+ .lex "$past", $P517
.annotate 'line', 169
- new $P519, "String"
- assign $P519, "repeat_"
- find_lex $P520, "$/"
- unless_null $P520, vivify_233
- $P520 = root_new ['parrot';'Hash']
- vivify_233:
- set $P521, $P520["wu"]
- unless_null $P521, vivify_234
- new $P521, "Undef"
- vivify_234:
- 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:
- set $P527, $P526["xblock"]
- unless_null $P527, vivify_236
- new $P527, "Undef"
- vivify_236:
- 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:
- set $P536, $P535["EXPR"]
- unless_null $P536, vivify_238
- new $P536, "Undef"
- vivify_238:
- $P537 = $P536."ast"()
- find_lex $P538, "$/"
- unless_null $P538, vivify_239
- $P538 = root_new ['parrot';'Hash']
+ new $P518, "String"
+ assign $P518, "repeat_"
+ find_lex $P519, "$/"
+ unless_null $P519, vivify_239
+ $P519 = root_new ['parrot';'Hash']
vivify_239:
- set $P539, $P538["pblock"]
- unless_null $P539, vivify_240
- new $P539, "Undef"
+ set $P520, $P519["wu"]
+ unless_null $P520, vivify_240
+ new $P520, "Undef"
vivify_240:
- $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
- goto if_525_end
- if_525:
-.annotate 'line', 172
- find_lex $P528, "$/"
- unless_null $P528, vivify_241
- $P528 = root_new ['parrot';'Hash']
+ set $S521, $P520
+ concat $P522, $P518, $S521
+ store_lex "$pasttype", $P522
+ find_lex $P523, "$past"
+.annotate 'line', 171
+ find_lex $P525, "$/"
+ unless_null $P525, vivify_241
+ $P525 = root_new ['parrot';'Hash']
vivify_241:
- set $P529, $P528["xblock"]
- unless_null $P529, vivify_242
- new $P529, "Undef"
+ set $P526, $P525["xblock"]
+ unless_null $P526, vivify_242
+ new $P526, "Undef"
vivify_242:
- $P530 = $P529."ast"()
- $P531 = "xblock_immediate"($P530)
- store_lex "$past", $P531
+ if $P526, if_524
+.annotate 'line', 176
+ get_hll_global $P533, ["PAST"], "Op"
+ find_lex $P534, "$/"
+ unless_null $P534, vivify_243
+ $P534 = root_new ['parrot';'Hash']
+ vivify_243:
+ set $P535, $P534["EXPR"]
+ unless_null $P535, vivify_244
+ new $P535, "Undef"
+ vivify_244:
+ $P536 = $P535."ast"()
+ find_lex $P537, "$/"
+ unless_null $P537, vivify_245
+ $P537 = root_new ['parrot';'Hash']
+ vivify_245:
+ set $P538, $P537["pblock"]
+ unless_null $P538, vivify_246
+ new $P538, "Undef"
+ vivify_246:
+ $P539 = $P538."ast"()
+ $P540 = "block_immediate"($P539)
+ find_lex $P541, "$pasttype"
+ find_lex $P542, "$/"
+ $P543 = $P533."new"($P536, $P540, $P541 :named("pasttype"), $P542 :named("node"))
+ store_lex "$past", $P543
+.annotate 'line', 175
+ goto if_524_end
+ if_524:
+.annotate 'line', 172
+ find_lex $P527, "$/"
+ unless_null $P527, vivify_247
+ $P527 = root_new ['parrot';'Hash']
+ vivify_247:
+ set $P528, $P527["xblock"]
+ unless_null $P528, vivify_248
+ new $P528, "Undef"
+ vivify_248:
+ $P529 = $P528."ast"()
+ $P530 = "xblock_immediate"($P529)
+ store_lex "$past", $P530
.annotate 'line', 173
- find_lex $P532, "$past"
- find_lex $P533, "$pasttype"
- $P532."pasttype"($P533)
- if_525_end:
+ find_lex $P531, "$past"
+ find_lex $P532, "$pasttype"
+ $P531."pasttype"($P532)
+ if_524_end:
.annotate 'line', 179
- find_lex $P545, "$/"
- find_lex $P546, "$past"
- $P547 = $P545."!make"($P546)
+ find_lex $P544, "$/"
+ find_lex $P545, "$past"
+ $P546 = $P544."!make"($P545)
.annotate 'line', 168
- .return ($P547)
- control_514:
+ .return ($P546)
+ control_513:
.local pmc exception
.get_results (exception)
- getattribute $P548, exception, "payload"
- .return ($P548)
+ getattribute $P547, exception, "payload"
+ .return ($P547)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<for>" :subid("38_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_552
+.include "except_types.pasm"
+.sub "statement_control:sym<for>" :subid("38_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_551
.annotate 'line', 182
- new $P551, 'ExceptionHandler'
- set_addr $P551, control_550
- $P551."handle_types"(57)
- push_eh $P551
+ new $P550, 'ExceptionHandler'
+ set_addr $P550, control_549
+ $P550."handle_types"(.CONTROL_RETURN)
+ push_eh $P550
.lex "self", self
- .lex "$/", param_552
+ .lex "$/", param_551
.annotate 'line', 183
- new $P553, "Undef"
- .lex "$past", $P553
+ new $P552, "Undef"
+ .lex "$past", $P552
.annotate 'line', 185
- new $P554, "Undef"
- .lex "$block", $P554
+ new $P553, "Undef"
+ .lex "$block", $P553
.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
+ find_lex $P554, "$/"
+ unless_null $P554, vivify_249
+ $P554 = root_new ['parrot';'Hash']
+ vivify_249:
+ set $P555, $P554["xblock"]
+ unless_null $P555, vivify_250
+ new $P555, "Undef"
+ vivify_250:
+ $P556 = $P555."ast"()
+ store_lex "$past", $P556
.annotate 'line', 184
- find_lex $P558, "$past"
- $P558."pasttype"("for")
+ find_lex $P557, "$past"
+ $P557."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:
- store_lex "$block", $P560
+ find_lex $P558, "$past"
+ unless_null $P558, vivify_251
+ $P558 = root_new ['parrot';'ResizablePMCArray']
+ vivify_251:
+ set $P559, $P558[1]
+ unless_null $P559, vivify_252
+ new $P559, "Undef"
+ vivify_252:
+ store_lex "$block", $P559
.annotate 'line', 186
- find_lex $P562, "$block"
- $P563 = $P562."arity"()
- if $P563, unless_561_end
+ find_lex $P561, "$block"
+ $P562 = $P561."arity"()
+ if $P562, unless_560_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)
+ find_lex $P563, "$block"
+ unless_null $P563, vivify_253
+ $P563 = root_new ['parrot';'ResizablePMCArray']
+ vivify_253:
+ set $P564, $P563[0]
+ unless_null $P564, vivify_254
+ new $P564, "Undef"
+ vivify_254:
+ get_hll_global $P565, ["PAST"], "Var"
+ $P566 = $P565."new"("$_" :named("name"), "parameter" :named("scope"))
+ $P564."push"($P566)
.annotate 'line', 188
- find_lex $P568, "$block"
- $P568."symbol"("$_", "lexical" :named("scope"))
+ find_lex $P567, "$block"
+ $P567."symbol"("$_", "lexical" :named("scope"))
.annotate 'line', 189
- find_lex $P569, "$block"
- $P569."arity"(1)
- unless_561_end:
+ find_lex $P568, "$block"
+ $P568."arity"(1)
+ unless_560_end:
.annotate 'line', 191
- find_lex $P570, "$block"
- $P570."blocktype"("immediate")
+ find_lex $P569, "$block"
+ $P569."blocktype"("immediate")
.annotate 'line', 192
- find_lex $P571, "$/"
- find_lex $P572, "$past"
- $P573 = $P571."!make"($P572)
+ find_lex $P570, "$/"
+ find_lex $P571, "$past"
+ $P572 = $P570."!make"($P571)
.annotate 'line', 182
- .return ($P573)
- control_550:
+ .return ($P572)
+ control_549:
.local pmc exception
.get_results (exception)
- getattribute $P574, exception, "payload"
- .return ($P574)
+ getattribute $P573, exception, "payload"
+ .return ($P573)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<return>" :subid("39_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_578
+.include "except_types.pasm"
+.sub "statement_control:sym<return>" :subid("39_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_577
.annotate 'line', 195
- new $P577, 'ExceptionHandler'
- set_addr $P577, control_576
- $P577."handle_types"(57)
- push_eh $P577
+ new $P576, 'ExceptionHandler'
+ set_addr $P576, control_575
+ $P576."handle_types"(.CONTROL_RETURN)
+ push_eh $P576
.lex "self", self
- .lex "$/", param_578
+ .lex "$/", param_577
.annotate 'line', 196
- find_lex $P579, "$/"
- get_hll_global $P580, ["PAST"], "Op"
- find_lex $P581, "$/"
- unless_null $P581, vivify_249
- $P581 = root_new ['parrot';'Hash']
- vivify_249:
- set $P582, $P581["EXPR"]
- unless_null $P582, vivify_250
- new $P582, "Undef"
- vivify_250:
- $P583 = $P582."ast"()
- find_lex $P584, "$/"
- $P585 = $P580."new"($P583, "return" :named("pasttype"), $P584 :named("node"))
- $P586 = $P579."!make"($P585)
+ find_lex $P578, "$/"
+ get_hll_global $P579, ["PAST"], "Op"
+ find_lex $P580, "$/"
+ unless_null $P580, vivify_255
+ $P580 = root_new ['parrot';'Hash']
+ vivify_255:
+ set $P581, $P580["EXPR"]
+ unless_null $P581, vivify_256
+ new $P581, "Undef"
+ vivify_256:
+ $P582 = $P581."ast"()
+ find_lex $P583, "$/"
+ $P584 = $P579."new"($P582, "return" :named("pasttype"), $P583 :named("node"))
+ $P585 = $P578."!make"($P584)
.annotate 'line', 195
- .return ($P586)
- control_576:
+ .return ($P585)
+ control_575:
.local pmc exception
.get_results (exception)
- getattribute $P587, exception, "payload"
- .return ($P587)
+ getattribute $P586, exception, "payload"
+ .return ($P586)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<CATCH>" :subid("40_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_591
+.include "except_types.pasm"
+.sub "statement_control:sym<CATCH>" :subid("40_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_590
.annotate 'line', 199
- new $P590, 'ExceptionHandler'
- set_addr $P590, control_589
- $P590."handle_types"(57)
- push_eh $P590
+ new $P589, 'ExceptionHandler'
+ set_addr $P589, control_588
+ $P589."handle_types"(.CONTROL_RETURN)
+ push_eh $P589
.lex "self", self
- .lex "$/", param_591
+ .lex "$/", param_590
.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
+ new $P591, "Undef"
+ .lex "$block", $P591
+ find_lex $P592, "$/"
+ unless_null $P592, vivify_257
+ $P592 = root_new ['parrot';'Hash']
+ vivify_257:
+ set $P593, $P592["block"]
+ unless_null $P593, vivify_258
+ new $P593, "Undef"
+ vivify_258:
+ $P594 = $P593."ast"()
+ store_lex "$block", $P594
.annotate 'line', 201
- find_lex $P596, "$/"
- find_lex $P597, "$block"
- "push_block_handler"($P596, $P597)
+ find_lex $P595, "$/"
+ find_lex $P596, "$block"
+ "push_block_handler"($P595, $P596)
.annotate 'line', 202
- get_global $P598, "@BLOCK"
- unless_null $P598, vivify_253
- $P598 = root_new ['parrot';'ResizablePMCArray']
- vivify_253:
- set $P599, $P598[0]
- unless_null $P599, vivify_254
- new $P599, "Undef"
- vivify_254:
- $P600 = $P599."handlers"()
- set $P601, $P600[0]
- unless_null $P601, vivify_255
- new $P601, "Undef"
- vivify_255:
- $P601."handle_types_except"("CONTROL")
+ get_global $P597, "@BLOCK"
+ unless_null $P597, vivify_259
+ $P597 = root_new ['parrot';'ResizablePMCArray']
+ vivify_259:
+ set $P598, $P597[0]
+ unless_null $P598, vivify_260
+ new $P598, "Undef"
+ vivify_260:
+ $P599 = $P598."handlers"()
+ set $P600, $P599[0]
+ unless_null $P600, vivify_261
+ new $P600, "Undef"
+ vivify_261:
+ $P600."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)
+ find_lex $P601, "$/"
+ get_hll_global $P602, ["PAST"], "Stmts"
+ find_lex $P603, "$/"
+ $P604 = $P602."new"($P603 :named("node"))
+ $P605 = $P601."!make"($P604)
.annotate 'line', 199
- .return ($P606)
- control_589:
+ .return ($P605)
+ control_588:
.local pmc exception
.get_results (exception)
- getattribute $P607, exception, "payload"
- .return ($P607)
+ getattribute $P606, exception, "payload"
+ .return ($P606)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_control:sym<CONTROL>" :subid("41_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_611
+.include "except_types.pasm"
+.sub "statement_control:sym<CONTROL>" :subid("41_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_610
.annotate 'line', 206
- new $P610, 'ExceptionHandler'
- set_addr $P610, control_609
- $P610."handle_types"(57)
- push_eh $P610
+ new $P609, 'ExceptionHandler'
+ set_addr $P609, control_608
+ $P609."handle_types"(.CONTROL_RETURN)
+ push_eh $P609
.lex "self", self
- .lex "$/", param_611
+ .lex "$/", param_610
.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
+ new $P611, "Undef"
+ .lex "$block", $P611
+ find_lex $P612, "$/"
+ unless_null $P612, vivify_262
+ $P612 = root_new ['parrot';'Hash']
+ vivify_262:
+ set $P613, $P612["block"]
+ unless_null $P613, vivify_263
+ new $P613, "Undef"
+ vivify_263:
+ $P614 = $P613."ast"()
+ store_lex "$block", $P614
.annotate 'line', 208
- find_lex $P616, "$/"
- find_lex $P617, "$block"
- "push_block_handler"($P616, $P617)
+ find_lex $P615, "$/"
+ find_lex $P616, "$block"
+ "push_block_handler"($P615, $P616)
.annotate 'line', 209
- get_global $P618, "@BLOCK"
- unless_null $P618, vivify_258
- $P618 = root_new ['parrot';'ResizablePMCArray']
- vivify_258:
- set $P619, $P618[0]
- unless_null $P619, vivify_259
- new $P619, "Undef"
- vivify_259:
- $P620 = $P619."handlers"()
- set $P621, $P620[0]
- unless_null $P621, vivify_260
- new $P621, "Undef"
- vivify_260:
- $P621."handle_types"("CONTROL")
+ get_global $P617, "@BLOCK"
+ unless_null $P617, vivify_264
+ $P617 = root_new ['parrot';'ResizablePMCArray']
+ vivify_264:
+ set $P618, $P617[0]
+ unless_null $P618, vivify_265
+ new $P618, "Undef"
+ vivify_265:
+ $P619 = $P618."handlers"()
+ set $P620, $P619[0]
+ unless_null $P620, vivify_266
+ new $P620, "Undef"
+ vivify_266:
+ $P620."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)
+ find_lex $P621, "$/"
+ get_hll_global $P622, ["PAST"], "Stmts"
+ find_lex $P623, "$/"
+ $P624 = $P622."new"($P623 :named("node"))
+ $P625 = $P621."!make"($P624)
.annotate 'line', 206
- .return ($P626)
- control_609:
+ .return ($P625)
+ control_608:
.local pmc exception
.get_results (exception)
- getattribute $P627, exception, "payload"
- .return ($P627)
+ getattribute $P626, exception, "payload"
+ .return ($P626)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_prefix:sym<INIT>" :subid("42_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_632
+.include "except_types.pasm"
+.sub "statement_prefix:sym<INIT>" :subid("42_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_631
.annotate 'line', 250
- new $P631, 'ExceptionHandler'
- set_addr $P631, control_630
- $P631."handle_types"(57)
- push_eh $P631
+ new $P630, 'ExceptionHandler'
+ set_addr $P630, control_629
+ $P630."handle_types"(.CONTROL_RETURN)
+ push_eh $P630
.lex "self", self
- .lex "$/", param_632
+ .lex "$/", param_631
.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_263
- $P636 = root_new ['parrot';'Hash']
- vivify_263:
- set $P637, $P636["blorst"]
- unless_null $P637, vivify_264
- new $P637, "Undef"
- vivify_264:
- $P638 = $P637."ast"()
- $P635."push"($P638)
+ get_global $P632, "@BLOCK"
+ unless_null $P632, vivify_267
+ $P632 = root_new ['parrot';'ResizablePMCArray']
+ vivify_267:
+ set $P633, $P632[0]
+ unless_null $P633, vivify_268
+ new $P633, "Undef"
+ vivify_268:
+ $P634 = $P633."loadinit"()
+ find_lex $P635, "$/"
+ unless_null $P635, vivify_269
+ $P635 = root_new ['parrot';'Hash']
+ vivify_269:
+ set $P636, $P635["blorst"]
+ unless_null $P636, vivify_270
+ new $P636, "Undef"
+ vivify_270:
+ $P637 = $P636."ast"()
+ $P634."push"($P637)
.annotate 'line', 252
- find_lex $P639, "$/"
- get_hll_global $P640, ["PAST"], "Stmts"
- find_lex $P641, "$/"
- $P642 = $P640."new"($P641 :named("node"))
- $P643 = $P639."!make"($P642)
+ find_lex $P638, "$/"
+ get_hll_global $P639, ["PAST"], "Stmts"
+ find_lex $P640, "$/"
+ $P641 = $P639."new"($P640 :named("node"))
+ $P642 = $P638."!make"($P641)
.annotate 'line', 250
- .return ($P643)
- control_630:
+ .return ($P642)
+ control_629:
.local pmc exception
.get_results (exception)
- getattribute $P644, exception, "payload"
- .return ($P644)
+ getattribute $P643, exception, "payload"
+ .return ($P643)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_prefix:sym<try>" :subid("43_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_648
+.include "except_types.pasm"
+.sub "statement_prefix:sym<try>" :subid("43_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_647
.annotate 'line', 255
- new $P647, 'ExceptionHandler'
- set_addr $P647, control_646
- $P647."handle_types"(57)
- push_eh $P647
+ new $P646, 'ExceptionHandler'
+ set_addr $P646, control_645
+ $P646."handle_types"(.CONTROL_RETURN)
+ push_eh $P646
.lex "self", self
- .lex "$/", param_648
+ .lex "$/", param_647
.annotate 'line', 256
- new $P649, "Undef"
- .lex "$past", $P649
- find_lex $P650, "$/"
- unless_null $P650, vivify_265
- $P650 = root_new ['parrot';'Hash']
- vivify_265:
- set $P651, $P650["blorst"]
- unless_null $P651, vivify_266
- new $P651, "Undef"
- vivify_266:
- $P652 = $P651."ast"()
- store_lex "$past", $P652
+ new $P648, "Undef"
+ .lex "$past", $P648
+ find_lex $P649, "$/"
+ unless_null $P649, vivify_271
+ $P649 = root_new ['parrot';'Hash']
+ vivify_271:
+ set $P650, $P649["blorst"]
+ unless_null $P650, vivify_272
+ new $P650, "Undef"
+ vivify_272:
+ $P651 = $P650."ast"()
+ store_lex "$past", $P651
.annotate 'line', 257
- find_lex $P654, "$past"
- $S655 = $P654."WHAT"()
- isne $I656, $S655, "PAST::Block()"
- unless $I656, if_653_end
+ find_lex $P653, "$past"
+ $S654 = $P653."WHAT"()
+ isne $I655, $S654, "PAST::Block()"
+ unless $I655, if_652_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:
+ get_hll_global $P656, ["PAST"], "Block"
+ find_lex $P657, "$past"
+ find_lex $P658, "$/"
+ $P659 = $P656."new"($P657, "immediate" :named("blocktype"), $P658 :named("node"))
+ store_lex "$past", $P659
+ if_652_end:
.annotate 'line', 260
- find_lex $P662, "$past"
- $P663 = $P662."handlers"()
- if $P663, unless_661_end
+ find_lex $P661, "$past"
+ $P662 = $P661."handlers"()
+ if $P662, unless_660_end
.annotate 'line', 261
- find_lex $P664, "$past"
- get_hll_global $P665, ["PAST"], "Control"
+ find_lex $P663, "$past"
+ get_hll_global $P664, ["PAST"], "Control"
.annotate 'line', 263
- get_hll_global $P666, ["PAST"], "Stmts"
+ get_hll_global $P665, ["PAST"], "Stmts"
.annotate 'line', 264
- get_hll_global $P667, ["PAST"], "Op"
+ get_hll_global $P666, ["PAST"], "Op"
.annotate 'line', 265
- get_hll_global $P668, ["PAST"], "Var"
+ get_hll_global $P667, ["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"))
+ get_hll_global $P668, ["PAST"], "Var"
+ $P669 = $P668."new"("register" :named("scope"), "exception" :named("name"))
+ $P670 = $P667."new"($P669, "handled", "keyed" :named("scope"))
.annotate 'line', 265
- $P672 = $P667."new"($P671, 1, "bind" :named("pasttype"))
+ $P671 = $P666."new"($P670, 1, "bind" :named("pasttype"))
.annotate 'line', 264
- $P673 = $P666."new"($P672)
+ $P672 = $P665."new"($P671)
.annotate 'line', 263
- $P674 = $P665."new"($P673, "CONTROL" :named("handle_types_except"))
+ $P673 = $P664."new"($P672, "CONTROL" :named("handle_types_except"))
.annotate 'line', 261
- new $P675, "ResizablePMCArray"
- push $P675, $P674
- $P664."handlers"($P675)
- unless_661_end:
+ new $P674, "ResizablePMCArray"
+ push $P674, $P673
+ $P663."handlers"($P674)
+ unless_660_end:
.annotate 'line', 275
- find_lex $P676, "$/"
- find_lex $P677, "$past"
- $P678 = $P676."!make"($P677)
+ find_lex $P675, "$/"
+ find_lex $P676, "$past"
+ $P677 = $P675."!make"($P676)
.annotate 'line', 255
- .return ($P678)
- control_646:
+ .return ($P677)
+ control_645:
.local pmc exception
.get_results (exception)
- getattribute $P679, exception, "payload"
- .return ($P679)
+ getattribute $P678, exception, "payload"
+ .return ($P678)
.end
.namespace ["NQP";"Actions"]
-.sub "blorst" :subid("44_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_683
+.include "except_types.pasm"
+.sub "blorst" :subid("44_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_682
.annotate 'line', 278
- new $P682, 'ExceptionHandler'
- set_addr $P682, control_681
- $P682."handle_types"(57)
- push_eh $P682
+ new $P681, 'ExceptionHandler'
+ set_addr $P681, control_680
+ $P681."handle_types"(.CONTROL_RETURN)
+ push_eh $P681
.lex "self", self
- .lex "$/", param_683
+ .lex "$/", param_682
.annotate 'line', 279
- find_lex $P684, "$/"
+ find_lex $P683, "$/"
.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
+ find_lex $P686, "$/"
+ unless_null $P686, vivify_273
+ $P686 = root_new ['parrot';'Hash']
+ vivify_273:
+ set $P687, $P686["block"]
+ unless_null $P687, vivify_274
+ new $P687, "Undef"
+ vivify_274:
+ if $P687, if_685
.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
+ find_lex $P692, "$/"
+ unless_null $P692, vivify_275
+ $P692 = root_new ['parrot';'Hash']
+ vivify_275:
+ set $P693, $P692["statement"]
+ unless_null $P693, vivify_276
+ new $P693, "Undef"
+ vivify_276:
+ $P694 = $P693."ast"()
+ set $P684, $P694
.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)
+ goto if_685_end
+ if_685:
+ find_lex $P688, "$/"
+ unless_null $P688, vivify_277
+ $P688 = root_new ['parrot';'Hash']
+ vivify_277:
+ set $P689, $P688["block"]
+ unless_null $P689, vivify_278
+ new $P689, "Undef"
+ vivify_278:
+ $P690 = $P689."ast"()
+ $P691 = "block_immediate"($P690)
+ set $P684, $P691
+ if_685_end:
+ $P695 = $P683."!make"($P684)
.annotate 'line', 278
- .return ($P696)
- control_681:
+ .return ($P695)
+ control_680:
.local pmc exception
.get_results (exception)
- getattribute $P697, exception, "payload"
- .return ($P697)
+ getattribute $P696, exception, "payload"
+ .return ($P696)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_cond:sym<if>" :subid("45_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_701
+.include "except_types.pasm"
+.sub "statement_mod_cond:sym<if>" :subid("45_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_700
.annotate 'line', 286
- new $P700, 'ExceptionHandler'
- set_addr $P700, control_699
- $P700."handle_types"(57)
- push_eh $P700
+ new $P699, 'ExceptionHandler'
+ set_addr $P699, control_698
+ $P699."handle_types"(.CONTROL_RETURN)
+ push_eh $P699
.lex "self", self
- .lex "$/", param_701
+ .lex "$/", param_700
+ find_lex $P701, "$/"
find_lex $P702, "$/"
- find_lex $P703, "$/"
- unless_null $P703, vivify_273
- $P703 = root_new ['parrot';'Hash']
- vivify_273:
- 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:
+ unless_null $P702, vivify_279
+ $P702 = root_new ['parrot';'Hash']
+ vivify_279:
+ set $P703, $P702["cond"]
+ unless_null $P703, vivify_280
+ new $P703, "Undef"
+ vivify_280:
+ $P704 = $P703."ast"()
+ $P705 = $P701."!make"($P704)
+ .return ($P705)
+ control_698:
.local pmc exception
.get_results (exception)
- getattribute $P707, exception, "payload"
- .return ($P707)
+ getattribute $P706, exception, "payload"
+ .return ($P706)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_cond:sym<unless>" :subid("46_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_711
+.include "except_types.pasm"
+.sub "statement_mod_cond:sym<unless>" :subid("46_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_710
.annotate 'line', 287
- new $P710, 'ExceptionHandler'
- set_addr $P710, control_709
- $P710."handle_types"(57)
- push_eh $P710
+ new $P709, 'ExceptionHandler'
+ set_addr $P709, control_708
+ $P709."handle_types"(.CONTROL_RETURN)
+ push_eh $P709
.lex "self", self
- .lex "$/", param_711
+ .lex "$/", param_710
+ find_lex $P711, "$/"
find_lex $P712, "$/"
- find_lex $P713, "$/"
- unless_null $P713, vivify_275
- $P713 = root_new ['parrot';'Hash']
- vivify_275:
- 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:
+ unless_null $P712, vivify_281
+ $P712 = root_new ['parrot';'Hash']
+ vivify_281:
+ set $P713, $P712["cond"]
+ unless_null $P713, vivify_282
+ new $P713, "Undef"
+ vivify_282:
+ $P714 = $P713."ast"()
+ $P715 = $P711."!make"($P714)
+ .return ($P715)
+ control_708:
.local pmc exception
.get_results (exception)
- getattribute $P717, exception, "payload"
- .return ($P717)
+ getattribute $P716, exception, "payload"
+ .return ($P716)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_loop:sym<while>" :subid("47_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_721
+.include "except_types.pasm"
+.sub "statement_mod_loop:sym<while>" :subid("47_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_720
.annotate 'line', 289
- new $P720, 'ExceptionHandler'
- set_addr $P720, control_719
- $P720."handle_types"(57)
- push_eh $P720
+ new $P719, 'ExceptionHandler'
+ set_addr $P719, control_718
+ $P719."handle_types"(.CONTROL_RETURN)
+ push_eh $P719
.lex "self", self
- .lex "$/", param_721
+ .lex "$/", param_720
+ find_lex $P721, "$/"
find_lex $P722, "$/"
- find_lex $P723, "$/"
- unless_null $P723, vivify_277
- $P723 = root_new ['parrot';'Hash']
- vivify_277:
- 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:
+ unless_null $P722, vivify_283
+ $P722 = root_new ['parrot';'Hash']
+ vivify_283:
+ set $P723, $P722["cond"]
+ unless_null $P723, vivify_284
+ new $P723, "Undef"
+ vivify_284:
+ $P724 = $P723."ast"()
+ $P725 = $P721."!make"($P724)
+ .return ($P725)
+ control_718:
.local pmc exception
.get_results (exception)
- getattribute $P727, exception, "payload"
- .return ($P727)
+ getattribute $P726, exception, "payload"
+ .return ($P726)
.end
.namespace ["NQP";"Actions"]
-.sub "statement_mod_loop:sym<until>" :subid("48_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_731
+.include "except_types.pasm"
+.sub "statement_mod_loop:sym<until>" :subid("48_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_730
.annotate 'line', 290
- new $P730, 'ExceptionHandler'
- set_addr $P730, control_729
- $P730."handle_types"(57)
- push_eh $P730
+ new $P729, 'ExceptionHandler'
+ set_addr $P729, control_728
+ $P729."handle_types"(.CONTROL_RETURN)
+ push_eh $P729
.lex "self", self
- .lex "$/", param_731
+ .lex "$/", param_730
+ find_lex $P731, "$/"
find_lex $P732, "$/"
- find_lex $P733, "$/"
- unless_null $P733, vivify_279
- $P733 = root_new ['parrot';'Hash']
- vivify_279:
- 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:
+ unless_null $P732, vivify_285
+ $P732 = root_new ['parrot';'Hash']
+ vivify_285:
+ set $P733, $P732["cond"]
+ unless_null $P733, vivify_286
+ new $P733, "Undef"
+ vivify_286:
+ $P734 = $P733."ast"()
+ $P735 = $P731."!make"($P734)
+ .return ($P735)
+ control_728:
.local pmc exception
.get_results (exception)
- getattribute $P737, exception, "payload"
- .return ($P737)
+ getattribute $P736, exception, "payload"
+ .return ($P736)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<fatarrow>" :subid("49_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_741
+.include "except_types.pasm"
+.sub "term:sym<fatarrow>" :subid("49_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_740
.annotate 'line', 294
- new $P740, 'ExceptionHandler'
- set_addr $P740, control_739
- $P740."handle_types"(57)
- push_eh $P740
+ new $P739, 'ExceptionHandler'
+ set_addr $P739, control_738
+ $P739."handle_types"(.CONTROL_RETURN)
+ push_eh $P739
.lex "self", self
- .lex "$/", param_741
+ .lex "$/", param_740
+ find_lex $P741, "$/"
find_lex $P742, "$/"
- find_lex $P743, "$/"
- unless_null $P743, vivify_281
- $P743 = root_new ['parrot';'Hash']
- vivify_281:
- 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:
+ unless_null $P742, vivify_287
+ $P742 = root_new ['parrot';'Hash']
+ vivify_287:
+ set $P743, $P742["fatarrow"]
+ unless_null $P743, vivify_288
+ new $P743, "Undef"
+ vivify_288:
+ $P744 = $P743."ast"()
+ $P745 = $P741."!make"($P744)
+ .return ($P745)
+ control_738:
.local pmc exception
.get_results (exception)
- getattribute $P747, exception, "payload"
- .return ($P747)
+ getattribute $P746, exception, "payload"
+ .return ($P746)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<colonpair>" :subid("50_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_751
+.include "except_types.pasm"
+.sub "term:sym<colonpair>" :subid("50_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_750
.annotate 'line', 295
- new $P750, 'ExceptionHandler'
- set_addr $P750, control_749
- $P750."handle_types"(57)
- push_eh $P750
+ new $P749, 'ExceptionHandler'
+ set_addr $P749, control_748
+ $P749."handle_types"(.CONTROL_RETURN)
+ push_eh $P749
.lex "self", self
- .lex "$/", param_751
+ .lex "$/", param_750
+ find_lex $P751, "$/"
find_lex $P752, "$/"
- find_lex $P753, "$/"
- unless_null $P753, vivify_283
- $P753 = root_new ['parrot';'Hash']
- vivify_283:
- 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:
+ unless_null $P752, vivify_289
+ $P752 = root_new ['parrot';'Hash']
+ vivify_289:
+ set $P753, $P752["colonpair"]
+ unless_null $P753, vivify_290
+ new $P753, "Undef"
+ vivify_290:
+ $P754 = $P753."ast"()
+ $P755 = $P751."!make"($P754)
+ .return ($P755)
+ control_748:
.local pmc exception
.get_results (exception)
- getattribute $P757, exception, "payload"
- .return ($P757)
+ getattribute $P756, exception, "payload"
+ .return ($P756)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<variable>" :subid("51_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_761
+.include "except_types.pasm"
+.sub "term:sym<variable>" :subid("51_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_760
.annotate 'line', 296
- new $P760, 'ExceptionHandler'
- set_addr $P760, control_759
- $P760."handle_types"(57)
- push_eh $P760
+ new $P759, 'ExceptionHandler'
+ set_addr $P759, control_758
+ $P759."handle_types"(.CONTROL_RETURN)
+ push_eh $P759
.lex "self", self
- .lex "$/", param_761
+ .lex "$/", param_760
+ find_lex $P761, "$/"
find_lex $P762, "$/"
- find_lex $P763, "$/"
- unless_null $P763, vivify_285
- $P763 = root_new ['parrot';'Hash']
- vivify_285:
- 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:
+ unless_null $P762, vivify_291
+ $P762 = root_new ['parrot';'Hash']
+ vivify_291:
+ set $P763, $P762["variable"]
+ unless_null $P763, vivify_292
+ new $P763, "Undef"
+ vivify_292:
+ $P764 = $P763."ast"()
+ $P765 = $P761."!make"($P764)
+ .return ($P765)
+ control_758:
.local pmc exception
.get_results (exception)
- getattribute $P767, exception, "payload"
- .return ($P767)
+ getattribute $P766, exception, "payload"
+ .return ($P766)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<package_declarator>" :subid("52_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_771
+.include "except_types.pasm"
+.sub "term:sym<package_declarator>" :subid("52_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_770
.annotate 'line', 297
- new $P770, 'ExceptionHandler'
- set_addr $P770, control_769
- $P770."handle_types"(57)
- push_eh $P770
+ new $P769, 'ExceptionHandler'
+ set_addr $P769, control_768
+ $P769."handle_types"(.CONTROL_RETURN)
+ push_eh $P769
.lex "self", self
- .lex "$/", param_771
+ .lex "$/", param_770
+ find_lex $P771, "$/"
find_lex $P772, "$/"
- find_lex $P773, "$/"
- unless_null $P773, vivify_287
- $P773 = root_new ['parrot';'Hash']
- vivify_287:
- 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:
+ unless_null $P772, vivify_293
+ $P772 = root_new ['parrot';'Hash']
+ vivify_293:
+ set $P773, $P772["package_declarator"]
+ unless_null $P773, vivify_294
+ new $P773, "Undef"
+ vivify_294:
+ $P774 = $P773."ast"()
+ $P775 = $P771."!make"($P774)
+ .return ($P775)
+ control_768:
.local pmc exception
.get_results (exception)
- getattribute $P777, exception, "payload"
- .return ($P777)
+ getattribute $P776, exception, "payload"
+ .return ($P776)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<scope_declarator>" :subid("53_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_781
+.include "except_types.pasm"
+.sub "term:sym<scope_declarator>" :subid("53_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_780
.annotate 'line', 298
- new $P780, 'ExceptionHandler'
- set_addr $P780, control_779
- $P780."handle_types"(57)
- push_eh $P780
+ new $P779, 'ExceptionHandler'
+ set_addr $P779, control_778
+ $P779."handle_types"(.CONTROL_RETURN)
+ push_eh $P779
.lex "self", self
- .lex "$/", param_781
+ .lex "$/", param_780
+ find_lex $P781, "$/"
find_lex $P782, "$/"
- find_lex $P783, "$/"
- unless_null $P783, vivify_289
- $P783 = root_new ['parrot';'Hash']
- vivify_289:
- 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:
+ unless_null $P782, vivify_295
+ $P782 = root_new ['parrot';'Hash']
+ vivify_295:
+ set $P783, $P782["scope_declarator"]
+ unless_null $P783, vivify_296
+ new $P783, "Undef"
+ vivify_296:
+ $P784 = $P783."ast"()
+ $P785 = $P781."!make"($P784)
+ .return ($P785)
+ control_778:
.local pmc exception
.get_results (exception)
- getattribute $P787, exception, "payload"
- .return ($P787)
+ getattribute $P786, exception, "payload"
+ .return ($P786)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<routine_declarator>" :subid("54_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_791
+.include "except_types.pasm"
+.sub "term:sym<routine_declarator>" :subid("54_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_790
.annotate 'line', 299
- new $P790, 'ExceptionHandler'
- set_addr $P790, control_789
- $P790."handle_types"(57)
- push_eh $P790
+ new $P789, 'ExceptionHandler'
+ set_addr $P789, control_788
+ $P789."handle_types"(.CONTROL_RETURN)
+ push_eh $P789
.lex "self", self
- .lex "$/", param_791
+ .lex "$/", param_790
+ find_lex $P791, "$/"
find_lex $P792, "$/"
- find_lex $P793, "$/"
- unless_null $P793, vivify_291
- $P793 = root_new ['parrot';'Hash']
- vivify_291:
- 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:
+ unless_null $P792, vivify_297
+ $P792 = root_new ['parrot';'Hash']
+ vivify_297:
+ set $P793, $P792["routine_declarator"]
+ unless_null $P793, vivify_298
+ new $P793, "Undef"
+ vivify_298:
+ $P794 = $P793."ast"()
+ $P795 = $P791."!make"($P794)
+ .return ($P795)
+ control_788:
.local pmc exception
.get_results (exception)
- getattribute $P797, exception, "payload"
- .return ($P797)
+ getattribute $P796, exception, "payload"
+ .return ($P796)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<regex_declarator>" :subid("55_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_801
+.include "except_types.pasm"
+.sub "term:sym<regex_declarator>" :subid("55_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_800
.annotate 'line', 300
- new $P800, 'ExceptionHandler'
- set_addr $P800, control_799
- $P800."handle_types"(57)
- push_eh $P800
+ new $P799, 'ExceptionHandler'
+ set_addr $P799, control_798
+ $P799."handle_types"(.CONTROL_RETURN)
+ push_eh $P799
.lex "self", self
- .lex "$/", param_801
+ .lex "$/", param_800
+ find_lex $P801, "$/"
find_lex $P802, "$/"
- find_lex $P803, "$/"
- unless_null $P803, vivify_293
- $P803 = root_new ['parrot';'Hash']
- vivify_293:
- 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:
+ unless_null $P802, vivify_299
+ $P802 = root_new ['parrot';'Hash']
+ vivify_299:
+ set $P803, $P802["regex_declarator"]
+ unless_null $P803, vivify_300
+ new $P803, "Undef"
+ vivify_300:
+ $P804 = $P803."ast"()
+ $P805 = $P801."!make"($P804)
+ .return ($P805)
+ control_798:
.local pmc exception
.get_results (exception)
- getattribute $P807, exception, "payload"
- .return ($P807)
+ getattribute $P806, exception, "payload"
+ .return ($P806)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<statement_prefix>" :subid("56_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_811
+.include "except_types.pasm"
+.sub "term:sym<statement_prefix>" :subid("56_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_810
.annotate 'line', 301
- new $P810, 'ExceptionHandler'
- set_addr $P810, control_809
- $P810."handle_types"(57)
- push_eh $P810
+ new $P809, 'ExceptionHandler'
+ set_addr $P809, control_808
+ $P809."handle_types"(.CONTROL_RETURN)
+ push_eh $P809
.lex "self", self
- .lex "$/", param_811
+ .lex "$/", param_810
+ find_lex $P811, "$/"
find_lex $P812, "$/"
- find_lex $P813, "$/"
- unless_null $P813, vivify_295
- $P813 = root_new ['parrot';'Hash']
- vivify_295:
- 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:
+ unless_null $P812, vivify_301
+ $P812 = root_new ['parrot';'Hash']
+ vivify_301:
+ set $P813, $P812["statement_prefix"]
+ unless_null $P813, vivify_302
+ new $P813, "Undef"
+ vivify_302:
+ $P814 = $P813."ast"()
+ $P815 = $P811."!make"($P814)
+ .return ($P815)
+ control_808:
.local pmc exception
.get_results (exception)
- getattribute $P817, exception, "payload"
- .return ($P817)
+ getattribute $P816, exception, "payload"
+ .return ($P816)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<lambda>" :subid("57_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_821
+.include "except_types.pasm"
+.sub "term:sym<lambda>" :subid("57_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_820
.annotate 'line', 302
- new $P820, 'ExceptionHandler'
- set_addr $P820, control_819
- $P820."handle_types"(57)
- push_eh $P820
+ new $P819, 'ExceptionHandler'
+ set_addr $P819, control_818
+ $P819."handle_types"(.CONTROL_RETURN)
+ push_eh $P819
.lex "self", self
- .lex "$/", param_821
+ .lex "$/", param_820
+ find_lex $P821, "$/"
find_lex $P822, "$/"
- find_lex $P823, "$/"
- unless_null $P823, vivify_297
- $P823 = root_new ['parrot';'Hash']
- vivify_297:
- set $P824, $P823["pblock"]
- unless_null $P824, vivify_298
- new $P824, "Undef"
- vivify_298:
- $P825 = $P824."ast"()
- $P826 = $P822."!make"($P825)
- .return ($P826)
- control_819:
+ unless_null $P822, vivify_303
+ $P822 = root_new ['parrot';'Hash']
+ vivify_303:
+ set $P823, $P822["pblock"]
+ unless_null $P823, vivify_304
+ new $P823, "Undef"
+ vivify_304:
+ $P824 = $P823."ast"()
+ $P825 = $P821."!make"($P824)
+ .return ($P825)
+ control_818:
.local pmc exception
.get_results (exception)
- getattribute $P827, exception, "payload"
- .return ($P827)
+ getattribute $P826, exception, "payload"
+ .return ($P826)
.end
.namespace ["NQP";"Actions"]
-.sub "fatarrow" :subid("58_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_831
+.include "except_types.pasm"
+.sub "fatarrow" :subid("58_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_830
.annotate 'line', 304
- new $P830, 'ExceptionHandler'
- set_addr $P830, control_829
- $P830."handle_types"(57)
- push_eh $P830
+ new $P829, 'ExceptionHandler'
+ set_addr $P829, control_828
+ $P829."handle_types"(.CONTROL_RETURN)
+ push_eh $P829
.lex "self", self
- .lex "$/", param_831
+ .lex "$/", param_830
.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"
- vivify_300:
- $P835 = $P834."ast"()
- store_lex "$past", $P835
+ new $P831, "Undef"
+ .lex "$past", $P831
+ find_lex $P832, "$/"
+ unless_null $P832, vivify_305
+ $P832 = root_new ['parrot';'Hash']
+ vivify_305:
+ set $P833, $P832["val"]
+ unless_null $P833, vivify_306
+ new $P833, "Undef"
+ vivify_306:
+ $P834 = $P833."ast"()
+ store_lex "$past", $P834
.annotate 'line', 306
- find_lex $P836, "$past"
- find_lex $P837, "$/"
- unless_null $P837, vivify_301
- $P837 = root_new ['parrot';'Hash']
- vivify_301:
- set $P838, $P837["key"]
- unless_null $P838, vivify_302
- new $P838, "Undef"
- vivify_302:
- $P839 = $P838."Str"()
- $P836."named"($P839)
+ find_lex $P835, "$past"
+ find_lex $P836, "$/"
+ unless_null $P836, vivify_307
+ $P836 = root_new ['parrot';'Hash']
+ vivify_307:
+ set $P837, $P836["key"]
+ unless_null $P837, vivify_308
+ new $P837, "Undef"
+ vivify_308:
+ $P838 = $P837."Str"()
+ $P835."named"($P838)
.annotate 'line', 307
- find_lex $P840, "$/"
- find_lex $P841, "$past"
- $P842 = $P840."!make"($P841)
+ find_lex $P839, "$/"
+ find_lex $P840, "$past"
+ $P841 = $P839."!make"($P840)
.annotate 'line', 304
- .return ($P842)
- control_829:
+ .return ($P841)
+ control_828:
.local pmc exception
.get_results (exception)
- getattribute $P843, exception, "payload"
- .return ($P843)
+ getattribute $P842, exception, "payload"
+ .return ($P842)
.end
.namespace ["NQP";"Actions"]
-.sub "colonpair" :subid("59_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_847
+.include "except_types.pasm"
+.sub "colonpair" :subid("59_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_846
.annotate 'line', 310
- new $P846, 'ExceptionHandler'
- set_addr $P846, control_845
- $P846."handle_types"(57)
- push_eh $P846
+ new $P845, 'ExceptionHandler'
+ set_addr $P845, control_844
+ $P845."handle_types"(.CONTROL_RETURN)
+ push_eh $P845
.lex "self", self
- .lex "$/", param_847
+ .lex "$/", param_846
.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
+ new $P847, "Undef"
+ .lex "$past", $P847
.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"
+ find_lex $P850, "$/"
+ unless_null $P850, vivify_309
+ $P850 = root_new ['parrot';'Hash']
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_310
- $P863 = root_new ['parrot';'Hash']
+ set $P851, $P850["circumfix"]
+ unless_null $P851, vivify_310
+ new $P851, "Undef"
vivify_310:
- set $P864, $P863["identifier"]
- unless_null $P864, vivify_311
- new $P864, "Undef"
+ if $P851, if_849
+.annotate 'line', 313
+ get_hll_global $P856, ["PAST"], "Val"
+ find_lex $P857, "$/"
+ unless_null $P857, vivify_311
+ $P857 = root_new ['parrot';'Hash']
vivify_311:
- set $S865, $P864
- $P862."named"($S865)
+ set $P858, $P857["not"]
+ unless_null $P858, vivify_312
+ new $P858, "Undef"
+ vivify_312:
+ isfalse $I859, $P858
+ $P860 = $P856."new"($I859 :named("value"))
+ set $P848, $P860
+.annotate 'line', 312
+ goto if_849_end
+ if_849:
+ find_lex $P852, "$/"
+ unless_null $P852, vivify_313
+ $P852 = root_new ['parrot';'Hash']
+ vivify_313:
+ set $P853, $P852["circumfix"]
+ unless_null $P853, vivify_314
+ $P853 = root_new ['parrot';'ResizablePMCArray']
+ vivify_314:
+ set $P854, $P853[0]
+ unless_null $P854, vivify_315
+ new $P854, "Undef"
+ vivify_315:
+ $P855 = $P854."ast"()
+ set $P848, $P855
+ if_849_end:
+ store_lex "$past", $P848
+.annotate 'line', 314
+ find_lex $P861, "$past"
+ find_lex $P862, "$/"
+ unless_null $P862, vivify_316
+ $P862 = root_new ['parrot';'Hash']
+ vivify_316:
+ set $P863, $P862["identifier"]
+ unless_null $P863, vivify_317
+ new $P863, "Undef"
+ vivify_317:
+ set $S864, $P863
+ $P861."named"($S864)
.annotate 'line', 315
- find_lex $P866, "$/"
- find_lex $P867, "$past"
- $P868 = $P866."!make"($P867)
+ find_lex $P865, "$/"
+ find_lex $P866, "$past"
+ $P867 = $P865."!make"($P866)
.annotate 'line', 310
- .return ($P868)
- control_845:
+ .return ($P867)
+ control_844:
.local pmc exception
.get_results (exception)
- getattribute $P869, exception, "payload"
- .return ($P869)
+ getattribute $P868, exception, "payload"
+ .return ($P868)
.end
.namespace ["NQP";"Actions"]
-.sub "variable" :subid("60_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_873
+.include "except_types.pasm"
+.sub "variable" :subid("60_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_872
.annotate 'line', 318
- .const 'Sub' $P886 = "61_1275117616.72633"
- capture_lex $P886
- new $P872, 'ExceptionHandler'
- set_addr $P872, control_871
- $P872."handle_types"(57)
- push_eh $P872
+ .const 'Sub' $P885 = "61_1275811497.55064"
+ capture_lex $P885
+ new $P871, 'ExceptionHandler'
+ set_addr $P871, control_870
+ $P871."handle_types"(.CONTROL_RETURN)
+ push_eh $P871
.lex "self", self
- .lex "$/", param_873
+ .lex "$/", param_872
.annotate 'line', 319
- new $P874, "Undef"
- .lex "$past", $P874
+ new $P873, "Undef"
+ .lex "$past", $P873
.annotate 'line', 318
- find_lex $P875, "$past"
+ find_lex $P874, "$past"
.annotate 'line', 320
- 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
+ find_lex $P876, "$/"
+ unless_null $P876, vivify_318
+ $P876 = root_new ['parrot';'Hash']
+ vivify_318:
+ set $P877, $P876["postcircumfix"]
+ unless_null $P877, vivify_319
+ new $P877, "Undef"
+ vivify_319:
+ if $P877, if_875
.annotate 'line', 324
- .const 'Sub' $P886 = "61_1275117616.72633"
- capture_lex $P886
- $P886()
- goto if_876_end
- if_876:
+ .const 'Sub' $P885 = "61_1275811497.55064"
+ capture_lex $P885
+ $P885()
+ goto if_875_end
+ if_875:
.annotate 'line', 321
- 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
+ find_lex $P878, "$/"
+ unless_null $P878, vivify_336
+ $P878 = root_new ['parrot';'Hash']
+ vivify_336:
+ set $P879, $P878["postcircumfix"]
+ unless_null $P879, vivify_337
+ new $P879, "Undef"
+ vivify_337:
+ $P880 = $P879."ast"()
+ store_lex "$past", $P880
.annotate 'line', 322
- find_lex $P882, "$past"
- get_hll_global $P883, ["PAST"], "Var"
- $P884 = $P883."new"("$/" :named("name"))
- $P882."unshift"($P884)
- if_876_end:
+ find_lex $P881, "$past"
+ get_hll_global $P882, ["PAST"], "Var"
+ $P883 = $P882."new"("$/" :named("name"))
+ $P881."unshift"($P883)
+ if_875_end:
.annotate 'line', 353
- find_lex $P955, "$/"
- find_lex $P956, "$past"
- $P957 = $P955."!make"($P956)
+ find_lex $P954, "$/"
+ find_lex $P955, "$past"
+ $P956 = $P954."!make"($P955)
.annotate 'line', 318
- .return ($P957)
- control_871:
+ .return ($P956)
+ control_870:
.local pmc exception
.get_results (exception)
- getattribute $P958, exception, "payload"
- .return ($P958)
+ getattribute $P957, exception, "payload"
+ .return ($P957)
.end
.namespace ["NQP";"Actions"]
-.sub "_block885" :anon :subid("61_1275117616.72633") :outer("60_1275117616.72633")
+.sub "_block884" :anon :subid("61_1275811497.55064") :outer("60_1275811497.55064")
.annotate 'line', 325
- $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
+ $P886 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@name", $P886
+ get_hll_global $P887, ["NQP"], "Compiler"
+ find_lex $P888, "$/"
+ set $S889, $P888
+ $P890 = $P887."parse_name"($S889)
+ store_lex "@name", $P890
.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
+ get_hll_global $P891, ["PAST"], "Var"
+ find_lex $P892, "@name"
+ $P893 = $P892."pop"()
+ set $S894, $P893
+ $P895 = $P891."new"($S894 :named("name"))
+ store_lex "$past", $P895
.annotate 'line', 327
- find_lex $P898, "@name"
- unless $P898, if_897_end
+ find_lex $P897, "@name"
+ unless $P897, if_896_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
- new $P901, "Undef"
- vivify_315:
- set $S902, $P901
- iseq $I903, $S902, "GLOBAL"
- unless $I903, if_899_end
- find_lex $P904, "@name"
- $P904."shift"()
- if_899_end:
+ find_lex $P899, "@name"
+ unless_null $P899, vivify_320
+ $P899 = root_new ['parrot';'ResizablePMCArray']
+ vivify_320:
+ set $P900, $P899[0]
+ unless_null $P900, vivify_321
+ new $P900, "Undef"
+ vivify_321:
+ set $S901, $P900
+ iseq $I902, $S901, "GLOBAL"
+ unless $I902, if_898_end
+ find_lex $P903, "@name"
+ $P903."shift"()
+ if_898_end:
.annotate 'line', 329
- find_lex $P905, "$past"
- find_lex $P906, "@name"
- $P905."namespace"($P906)
+ find_lex $P904, "$past"
+ find_lex $P905, "@name"
+ $P904."namespace"($P905)
.annotate 'line', 330
- find_lex $P907, "$past"
- $P907."scope"("package")
+ find_lex $P906, "$past"
+ $P906."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 $P910, $P909["sigil"]
- unless_null $P910, vivify_317
- new $P910, "Undef"
- vivify_317:
- $P911 = "vivitype"($P910)
- $P908."viviself"($P911)
+ find_lex $P907, "$past"
+ find_lex $P908, "$/"
+ unless_null $P908, vivify_322
+ $P908 = root_new ['parrot';'Hash']
+ vivify_322:
+ set $P909, $P908["sigil"]
+ unless_null $P909, vivify_323
+ new $P909, "Undef"
+ vivify_323:
+ $P910 = "vivitype"($P909)
+ $P907."viviself"($P910)
.annotate 'line', 332
- find_lex $P912, "$past"
- $P912."lvalue"(1)
- if_897_end:
+ find_lex $P911, "$past"
+ $P911."lvalue"(1)
+ if_896_end:
.annotate 'line', 334
- find_lex $P915, "$/"
- unless_null $P915, vivify_318
- $P915 = root_new ['parrot';'Hash']
- vivify_318:
- set $P916, $P915["twigil"]
- unless_null $P916, vivify_319
- $P916 = root_new ['parrot';'ResizablePMCArray']
- vivify_319:
- set $P917, $P916[0]
- unless_null $P917, vivify_320
- new $P917, "Undef"
- vivify_320:
- set $S918, $P917
- iseq $I919, $S918, "*"
- if $I919, if_914
+ find_lex $P914, "$/"
+ unless_null $P914, vivify_324
+ $P914 = root_new ['parrot';'Hash']
+ vivify_324:
+ set $P915, $P914["twigil"]
+ unless_null $P915, vivify_325
+ $P915 = root_new ['parrot';'ResizablePMCArray']
+ vivify_325:
+ set $P916, $P915[0]
+ unless_null $P916, vivify_326
+ new $P916, "Undef"
+ vivify_326:
+ set $S917, $P916
+ iseq $I918, $S917, "*"
+ if $I918, if_913
.annotate 'line', 347
- find_lex $P941, "$/"
- unless_null $P941, vivify_321
- $P941 = root_new ['parrot';'Hash']
- vivify_321:
- set $P942, $P941["twigil"]
- unless_null $P942, vivify_322
- $P942 = root_new ['parrot';'ResizablePMCArray']
- vivify_322:
- set $P943, $P942[0]
- unless_null $P943, vivify_323
- new $P943, "Undef"
- vivify_323:
- set $S944, $P943
- iseq $I945, $S944, "!"
- if $I945, if_940
- new $P939, 'Integer'
- set $P939, $I945
- goto if_940_end
- if_940:
+ find_lex $P940, "$/"
+ unless_null $P940, vivify_327
+ $P940 = root_new ['parrot';'Hash']
+ vivify_327:
+ set $P941, $P940["twigil"]
+ unless_null $P941, vivify_328
+ $P941 = root_new ['parrot';'ResizablePMCArray']
+ vivify_328:
+ set $P942, $P941[0]
+ unless_null $P942, vivify_329
+ new $P942, "Undef"
+ vivify_329:
+ set $S943, $P942
+ iseq $I944, $S943, "!"
+ if $I944, if_939
+ new $P938, 'Integer'
+ set $P938, $I944
+ goto if_939_end
+ if_939:
.annotate 'line', 348
- find_lex $P946, "$past"
- get_hll_global $P947, ["PAST"], "Var"
- $P948 = $P947."new"("self" :named("name"))
- $P946."push"($P948)
+ find_lex $P945, "$past"
+ get_hll_global $P946, ["PAST"], "Var"
+ $P947 = $P946."new"("self" :named("name"))
+ $P945."push"($P947)
.annotate 'line', 349
- find_lex $P949, "$past"
- $P949."scope"("attribute")
+ find_lex $P948, "$past"
+ $P948."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 $P952, $P951["sigil"]
- unless_null $P952, vivify_325
- new $P952, "Undef"
- vivify_325:
- $P953 = "vivitype"($P952)
- $P954 = $P950."viviself"($P953)
+ find_lex $P949, "$past"
+ find_lex $P950, "$/"
+ unless_null $P950, vivify_330
+ $P950 = root_new ['parrot';'Hash']
+ vivify_330:
+ set $P951, $P950["sigil"]
+ unless_null $P951, vivify_331
+ new $P951, "Undef"
+ vivify_331:
+ $P952 = "vivitype"($P951)
+ $P953 = $P949."viviself"($P952)
.annotate 'line', 347
- set $P939, $P954
- if_940_end:
- set $P913, $P939
+ set $P938, $P953
+ if_939_end:
+ set $P912, $P938
.annotate 'line', 334
- goto if_914_end
- if_914:
+ goto if_913_end
+ if_913:
.annotate 'line', 335
- find_lex $P920, "$past"
- $P920."scope"("contextual")
+ find_lex $P919, "$past"
+ $P919."scope"("contextual")
.annotate 'line', 336
- find_lex $P921, "$past"
+ find_lex $P920, "$past"
.annotate 'line', 337
- get_hll_global $P922, ["PAST"], "Var"
+ get_hll_global $P921, ["PAST"], "Var"
.annotate 'line', 339
- find_lex $P923, "$/"
- unless_null $P923, vivify_326
- $P923 = root_new ['parrot';'Hash']
- vivify_326:
- 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
+ find_lex $P922, "$/"
+ unless_null $P922, vivify_332
+ $P922 = root_new ['parrot';'Hash']
+ vivify_332:
+ set $P923, $P922["sigil"]
+ unless_null $P923, vivify_333
+ new $P923, "Undef"
+ vivify_333:
+ set $S924, $P923
+ new $P925, 'String'
+ set $P925, $S924
+ find_lex $P926, "$/"
+ unless_null $P926, vivify_334
+ $P926 = root_new ['parrot';'Hash']
+ vivify_334:
+ set $P927, $P926["desigilname"]
+ unless_null $P927, vivify_335
+ new $P927, "Undef"
+ vivify_335:
+ concat $P928, $P925, $P927
.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"))
+ get_hll_global $P929, ["PAST"], "Op"
+ new $P930, "String"
+ assign $P930, "Contextual "
+ find_lex $P931, "$/"
+ set $S932, $P931
+ concat $P933, $P930, $S932
+ concat $P934, $P933, " not found"
+ $P935 = $P929."new"($P934, "die" :named("pirop"))
+ $P936 = $P921."new"("package" :named("scope"), "" :named("namespace"), $P928 :named("name"), $P935 :named("viviself"))
.annotate 'line', 337
- $P938 = $P921."viviself"($P937)
+ $P937 = $P920."viviself"($P936)
.annotate 'line', 334
- set $P913, $P938
- if_914_end:
+ set $P912, $P937
+ if_913_end:
.annotate 'line', 324
- .return ($P913)
+ .return ($P912)
.end
.namespace ["NQP";"Actions"]
-.sub "package_declarator:sym<module>" :subid("62_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_962
+.include "except_types.pasm"
+.sub "package_declarator:sym<module>" :subid("62_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_961
.annotate 'line', 356
- new $P961, 'ExceptionHandler'
- set_addr $P961, control_960
- $P961."handle_types"(57)
- push_eh $P961
+ new $P960, 'ExceptionHandler'
+ set_addr $P960, control_959
+ $P960."handle_types"(.CONTROL_RETURN)
+ push_eh $P960
.lex "self", self
- .lex "$/", param_962
+ .lex "$/", param_961
+ find_lex $P962, "$/"
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:
+ unless_null $P963, vivify_338
+ $P963 = root_new ['parrot';'Hash']
+ vivify_338:
+ set $P964, $P963["package_def"]
+ unless_null $P964, vivify_339
+ new $P964, "Undef"
+ vivify_339:
+ $P965 = $P964."ast"()
+ $P966 = $P962."!make"($P965)
+ .return ($P966)
+ control_959:
.local pmc exception
.get_results (exception)
- getattribute $P968, exception, "payload"
- .return ($P968)
+ getattribute $P967, exception, "payload"
+ .return ($P967)
.end
.namespace ["NQP";"Actions"]
-.sub "package_declarator:sym<class>" :subid("63_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_972
+.include "except_types.pasm"
+.sub "package_declarator:sym<class>" :subid("63_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_971
.annotate 'line', 357
- new $P971, 'ExceptionHandler'
- set_addr $P971, control_970
- $P971."handle_types"(57)
- push_eh $P971
+ new $P970, 'ExceptionHandler'
+ set_addr $P970, control_969
+ $P970."handle_types"(.CONTROL_RETURN)
+ push_eh $P970
.lex "self", self
- .lex "$/", param_972
+ .lex "$/", param_971
.annotate 'line', 358
- new $P973, "Undef"
- .lex "$past", $P973
+ new $P972, "Undef"
+ .lex "$past", $P972
.annotate 'line', 359
- new $P974, "Undef"
- .lex "$classinit", $P974
+ new $P973, "Undef"
+ .lex "$classinit", $P973
.annotate 'line', 368
- new $P975, "Undef"
- .lex "$parent", $P975
+ new $P974, "Undef"
+ .lex "$parent", $P974
.annotate 'line', 358
- find_lex $P976, "$/"
- unless_null $P976, vivify_334
- $P976 = root_new ['parrot';'Hash']
- vivify_334:
- set $P977, $P976["package_def"]
- unless_null $P977, vivify_335
- new $P977, "Undef"
- vivify_335:
- $P978 = $P977."ast"()
- store_lex "$past", $P978
+ find_lex $P975, "$/"
+ unless_null $P975, vivify_340
+ $P975 = root_new ['parrot';'Hash']
+ vivify_340:
+ set $P976, $P975["package_def"]
+ unless_null $P976, vivify_341
+ new $P976, "Undef"
+ vivify_341:
+ $P977 = $P976."ast"()
+ store_lex "$past", $P977
.annotate 'line', 360
- get_hll_global $P979, ["PAST"], "Op"
+ get_hll_global $P978, ["PAST"], "Op"
.annotate 'line', 361
- get_hll_global $P980, ["PAST"], "Op"
- $P981 = $P980."new"(" %r = get_root_global [\"parrot\"], \"P6metaclass\"" :named("inline"))
+ get_hll_global $P979, ["PAST"], "Op"
+ $P980 = $P979."new"(" %r = get_root_global [\"parrot\"], \"P6metaclass\"" :named("inline"))
.annotate 'line', 364
- find_lex $P982, "$/"
- unless_null $P982, vivify_336
+ find_lex $P981, "$/"
+ unless_null $P981, vivify_342
+ $P981 = root_new ['parrot';'Hash']
+ vivify_342:
+ set $P982, $P981["package_def"]
+ unless_null $P982, vivify_343
$P982 = root_new ['parrot';'Hash']
- vivify_336:
- set $P983, $P982["package_def"]
- unless_null $P983, vivify_337
- $P983 = root_new ['parrot';'Hash']
- vivify_337:
- set $P984, $P983["name"]
- unless_null $P984, vivify_338
- new $P984, "Undef"
- vivify_338:
- set $S985, $P984
- $P986 = $P979."new"($P981, $S985, "new_class" :named("name"), "callmethod" :named("pasttype"))
+ vivify_343:
+ set $P983, $P982["name"]
+ unless_null $P983, vivify_344
+ new $P983, "Undef"
+ vivify_344:
+ set $S984, $P983
+ $P985 = $P978."new"($P980, $S984, "new_class" :named("name"), "callmethod" :named("pasttype"))
.annotate 'line', 360
- store_lex "$classinit", $P986
+ store_lex "$classinit", $P985
.annotate 'line', 368
- find_lex $P989, "$/"
- unless_null $P989, vivify_339
+ find_lex $P988, "$/"
+ unless_null $P988, vivify_345
+ $P988 = root_new ['parrot';'Hash']
+ vivify_345:
+ set $P989, $P988["package_def"]
+ unless_null $P989, vivify_346
$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 $P991, $P990["parent"]
- unless_null $P991, vivify_341
- $P991 = root_new ['parrot';'ResizablePMCArray']
- vivify_341:
- set $P992, $P991[0]
- unless_null $P992, vivify_342
- new $P992, "Undef"
- vivify_342:
- set $S993, $P992
- unless $S993, unless_988
- new $P987, 'String'
- set $P987, $S993
- goto unless_988_end
- unless_988:
+ vivify_346:
+ set $P990, $P989["parent"]
+ unless_null $P990, vivify_347
+ $P990 = root_new ['parrot';'ResizablePMCArray']
+ vivify_347:
+ set $P991, $P990[0]
+ unless_null $P991, vivify_348
+ new $P991, "Undef"
+ vivify_348:
+ set $S992, $P991
+ unless $S992, unless_987
+ new $P986, 'String'
+ set $P986, $S992
+ goto unless_987_end
+ unless_987:
.annotate 'line', 369
- find_lex $P996, "$/"
- unless_null $P996, vivify_343
- $P996 = root_new ['parrot';'Hash']
- vivify_343:
- set $P997, $P996["sym"]
- unless_null $P997, vivify_344
- new $P997, "Undef"
- vivify_344:
- 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:
+ find_lex $P995, "$/"
+ unless_null $P995, vivify_349
+ $P995 = root_new ['parrot';'Hash']
+ vivify_349:
+ set $P996, $P995["sym"]
+ unless_null $P996, vivify_350
+ new $P996, "Undef"
+ vivify_350:
+ set $S997, $P996
+ iseq $I998, $S997, "grammar"
+ if $I998, if_994
new $P1000, "String"
- assign $P1000, "Regex::Cursor"
- set $P994, $P1000
- if_995_end:
- set $P987, $P994
- unless_988_end:
- store_lex "$parent", $P987
+ assign $P1000, ""
+ set $P993, $P1000
+ goto if_994_end
+ if_994:
+ new $P999, "String"
+ assign $P999, "Regex::Cursor"
+ set $P993, $P999
+ if_994_end:
+ set $P986, $P993
+ unless_987_end:
+ store_lex "$parent", $P986
.annotate 'line', 370
- find_lex $P1003, "$parent"
- unless $P1003, if_1002_end
+ find_lex $P1002, "$parent"
+ unless $P1002, if_1001_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:
+ find_lex $P1003, "$classinit"
+ get_hll_global $P1004, ["PAST"], "Val"
+ find_lex $P1005, "$parent"
+ $P1006 = $P1004."new"($P1005 :named("value"), "parent" :named("named"))
+ $P1003."push"($P1006)
+ if_1001_end:
.annotate 'line', 373
- find_lex $P1009, "$past"
- unless_null $P1009, vivify_345
- $P1009 = root_new ['parrot';'Hash']
- vivify_345:
- set $P1010, $P1009["attributes"]
- unless_null $P1010, vivify_346
- new $P1010, "Undef"
- vivify_346:
- unless $P1010, if_1008_end
+ find_lex $P1008, "$past"
+ unless_null $P1008, vivify_351
+ $P1008 = root_new ['parrot';'Hash']
+ vivify_351:
+ set $P1009, $P1008["attributes"]
+ unless_null $P1009, vivify_352
+ new $P1009, "Undef"
+ vivify_352:
+ unless $P1009, if_1007_end
.annotate 'line', 374
- find_lex $P1011, "$classinit"
- find_lex $P1012, "$past"
- unless_null $P1012, vivify_347
- $P1012 = root_new ['parrot';'Hash']
- vivify_347:
- set $P1013, $P1012["attributes"]
- unless_null $P1013, vivify_348
- new $P1013, "Undef"
- vivify_348:
- $P1011."push"($P1013)
- if_1008_end:
+ find_lex $P1010, "$classinit"
+ find_lex $P1011, "$past"
+ unless_null $P1011, vivify_353
+ $P1011 = root_new ['parrot';'Hash']
+ vivify_353:
+ set $P1012, $P1011["attributes"]
+ unless_null $P1012, vivify_354
+ new $P1012, "Undef"
+ vivify_354:
+ $P1010."push"($P1012)
+ if_1007_end:
.annotate 'line', 376
- get_global $P1014, "@BLOCK"
- unless_null $P1014, vivify_349
- $P1014 = root_new ['parrot';'ResizablePMCArray']
- vivify_349:
- set $P1015, $P1014[0]
- unless_null $P1015, vivify_350
- new $P1015, "Undef"
- vivify_350:
- $P1016 = $P1015."loadinit"()
- find_lex $P1017, "$classinit"
- $P1016."push"($P1017)
+ get_global $P1013, "@BLOCK"
+ unless_null $P1013, vivify_355
+ $P1013 = root_new ['parrot';'ResizablePMCArray']
+ vivify_355:
+ set $P1014, $P1013[0]
+ unless_null $P1014, vivify_356
+ new $P1014, "Undef"
+ vivify_356:
+ $P1015 = $P1014."loadinit"()
+ find_lex $P1016, "$classinit"
+ $P1015."push"($P1016)
.annotate 'line', 377
- find_lex $P1018, "$/"
- find_lex $P1019, "$past"
- $P1020 = $P1018."!make"($P1019)
+ find_lex $P1017, "$/"
+ find_lex $P1018, "$past"
+ $P1019 = $P1017."!make"($P1018)
.annotate 'line', 357
- .return ($P1020)
- control_970:
+ .return ($P1019)
+ control_969:
.local pmc exception
.get_results (exception)
- getattribute $P1021, exception, "payload"
- .return ($P1021)
+ getattribute $P1020, exception, "payload"
+ .return ($P1020)
.end
.namespace ["NQP";"Actions"]
-.sub "package_def" :subid("64_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1025
+.include "except_types.pasm"
+.sub "package_def" :subid("64_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1024
.annotate 'line', 380
- new $P1024, 'ExceptionHandler'
- set_addr $P1024, control_1023
- $P1024."handle_types"(57)
- push_eh $P1024
+ new $P1023, 'ExceptionHandler'
+ set_addr $P1023, control_1022
+ $P1023."handle_types"(.CONTROL_RETURN)
+ push_eh $P1023
.lex "self", self
- .lex "$/", param_1025
+ .lex "$/", param_1024
.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']
+ new $P1025, "Undef"
+ .lex "$past", $P1025
+ find_lex $P1028, "$/"
+ unless_null $P1028, vivify_357
+ $P1028 = root_new ['parrot';'Hash']
vivify_357:
- set $P1039, $P1038["name"]
- unless_null $P1039, vivify_358
- $P1039 = root_new ['parrot';'Hash']
+ set $P1029, $P1028["block"]
+ unless_null $P1029, vivify_358
+ new $P1029, "Undef"
vivify_358:
- set $P1040, $P1039["identifier"]
- unless_null $P1040, vivify_359
- new $P1040, "Undef"
+ if $P1029, if_1027
+ find_lex $P1033, "$/"
+ unless_null $P1033, vivify_359
+ $P1033 = root_new ['parrot';'Hash']
vivify_359:
- $P1037."namespace"($P1040)
+ set $P1034, $P1033["comp_unit"]
+ unless_null $P1034, vivify_360
+ new $P1034, "Undef"
+ vivify_360:
+ $P1035 = $P1034."ast"()
+ set $P1026, $P1035
+ goto if_1027_end
+ if_1027:
+ find_lex $P1030, "$/"
+ unless_null $P1030, vivify_361
+ $P1030 = root_new ['parrot';'Hash']
+ vivify_361:
+ set $P1031, $P1030["block"]
+ unless_null $P1031, vivify_362
+ new $P1031, "Undef"
+ vivify_362:
+ $P1032 = $P1031."ast"()
+ set $P1026, $P1032
+ if_1027_end:
+ store_lex "$past", $P1026
+.annotate 'line', 382
+ find_lex $P1036, "$past"
+ find_lex $P1037, "$/"
+ unless_null $P1037, vivify_363
+ $P1037 = root_new ['parrot';'Hash']
+ vivify_363:
+ set $P1038, $P1037["name"]
+ unless_null $P1038, vivify_364
+ $P1038 = root_new ['parrot';'Hash']
+ vivify_364:
+ set $P1039, $P1038["identifier"]
+ unless_null $P1039, vivify_365
+ new $P1039, "Undef"
+ vivify_365:
+ $P1036."namespace"($P1039)
.annotate 'line', 383
- find_lex $P1041, "$past"
- $P1041."blocktype"("immediate")
+ find_lex $P1040, "$past"
+ $P1040."blocktype"("immediate")
.annotate 'line', 384
- find_lex $P1042, "$/"
- find_lex $P1043, "$past"
- $P1044 = $P1042."!make"($P1043)
+ find_lex $P1041, "$/"
+ find_lex $P1042, "$past"
+ $P1043 = $P1041."!make"($P1042)
.annotate 'line', 380
- .return ($P1044)
- control_1023:
+ .return ($P1043)
+ control_1022:
.local pmc exception
.get_results (exception)
- getattribute $P1045, exception, "payload"
- .return ($P1045)
+ getattribute $P1044, exception, "payload"
+ .return ($P1044)
.end
.namespace ["NQP";"Actions"]
-.sub "scope_declarator:sym<my>" :subid("65_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1049
+.include "except_types.pasm"
+.sub "scope_declarator:sym<my>" :subid("65_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1048
.annotate 'line', 387
- new $P1048, 'ExceptionHandler'
- set_addr $P1048, control_1047
- $P1048."handle_types"(57)
- push_eh $P1048
+ new $P1047, 'ExceptionHandler'
+ set_addr $P1047, control_1046
+ $P1047."handle_types"(.CONTROL_RETURN)
+ push_eh $P1047
.lex "self", self
- .lex "$/", param_1049
+ .lex "$/", param_1048
+ find_lex $P1049, "$/"
find_lex $P1050, "$/"
- find_lex $P1051, "$/"
- unless_null $P1051, vivify_360
- $P1051 = root_new ['parrot';'Hash']
- vivify_360:
- 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:
+ unless_null $P1050, vivify_366
+ $P1050 = root_new ['parrot';'Hash']
+ vivify_366:
+ set $P1051, $P1050["scoped"]
+ unless_null $P1051, vivify_367
+ new $P1051, "Undef"
+ vivify_367:
+ $P1052 = $P1051."ast"()
+ $P1053 = $P1049."!make"($P1052)
+ .return ($P1053)
+ control_1046:
.local pmc exception
.get_results (exception)
- getattribute $P1055, exception, "payload"
- .return ($P1055)
+ getattribute $P1054, exception, "payload"
+ .return ($P1054)
.end
.namespace ["NQP";"Actions"]
-.sub "scope_declarator:sym<our>" :subid("66_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1059
+.include "except_types.pasm"
+.sub "scope_declarator:sym<our>" :subid("66_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1058
.annotate 'line', 388
- new $P1058, 'ExceptionHandler'
- set_addr $P1058, control_1057
- $P1058."handle_types"(57)
- push_eh $P1058
+ new $P1057, 'ExceptionHandler'
+ set_addr $P1057, control_1056
+ $P1057."handle_types"(.CONTROL_RETURN)
+ push_eh $P1057
.lex "self", self
- .lex "$/", param_1059
+ .lex "$/", param_1058
+ find_lex $P1059, "$/"
find_lex $P1060, "$/"
- find_lex $P1061, "$/"
- unless_null $P1061, vivify_362
- $P1061 = root_new ['parrot';'Hash']
- vivify_362:
- 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:
+ unless_null $P1060, vivify_368
+ $P1060 = root_new ['parrot';'Hash']
+ vivify_368:
+ set $P1061, $P1060["scoped"]
+ unless_null $P1061, vivify_369
+ new $P1061, "Undef"
+ vivify_369:
+ $P1062 = $P1061."ast"()
+ $P1063 = $P1059."!make"($P1062)
+ .return ($P1063)
+ control_1056:
.local pmc exception
.get_results (exception)
- getattribute $P1065, exception, "payload"
- .return ($P1065)
+ getattribute $P1064, exception, "payload"
+ .return ($P1064)
.end
.namespace ["NQP";"Actions"]
-.sub "scope_declarator:sym<has>" :subid("67_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1069
+.include "except_types.pasm"
+.sub "scope_declarator:sym<has>" :subid("67_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1068
.annotate 'line', 389
- new $P1068, 'ExceptionHandler'
- set_addr $P1068, control_1067
- $P1068."handle_types"(57)
- push_eh $P1068
+ new $P1067, 'ExceptionHandler'
+ set_addr $P1067, control_1066
+ $P1067."handle_types"(.CONTROL_RETURN)
+ push_eh $P1067
.lex "self", self
- .lex "$/", param_1069
+ .lex "$/", param_1068
+ find_lex $P1069, "$/"
find_lex $P1070, "$/"
- find_lex $P1071, "$/"
- unless_null $P1071, vivify_364
- $P1071 = root_new ['parrot';'Hash']
- vivify_364:
- 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:
+ unless_null $P1070, vivify_370
+ $P1070 = root_new ['parrot';'Hash']
+ vivify_370:
+ set $P1071, $P1070["scoped"]
+ unless_null $P1071, vivify_371
+ new $P1071, "Undef"
+ vivify_371:
+ $P1072 = $P1071."ast"()
+ $P1073 = $P1069."!make"($P1072)
+ .return ($P1073)
+ control_1066:
.local pmc exception
.get_results (exception)
- getattribute $P1075, exception, "payload"
- .return ($P1075)
+ getattribute $P1074, exception, "payload"
+ .return ($P1074)
.end
.namespace ["NQP";"Actions"]
-.sub "scoped" :subid("68_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1079
+.include "except_types.pasm"
+.sub "scoped" :subid("68_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1078
.annotate 'line', 391
- new $P1078, 'ExceptionHandler'
- set_addr $P1078, control_1077
- $P1078."handle_types"(57)
- push_eh $P1078
+ new $P1077, 'ExceptionHandler'
+ set_addr $P1077, control_1076
+ $P1077."handle_types"(.CONTROL_RETURN)
+ push_eh $P1077
.lex "self", self
- .lex "$/", param_1079
+ .lex "$/", param_1078
.annotate 'line', 392
- find_lex $P1080, "$/"
- find_lex $P1081, "$/"
- unless_null $P1081, vivify_366
- $P1081 = root_new ['parrot';'Hash']
- vivify_366:
- set $P1082, $P1081["declarator"]
- unless_null $P1082, vivify_367
- new $P1082, "Undef"
- vivify_367:
- $P1083 = $P1082."ast"()
- $P1084 = $P1080."!make"($P1083)
-.annotate 'line', 391
- .return ($P1084)
- control_1077:
- .local pmc exception
- .get_results (exception)
- getattribute $P1085, exception, "payload"
- .return ($P1085)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "declarator" :subid("69_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1089
-.annotate 'line', 395
- new $P1088, 'ExceptionHandler'
- set_addr $P1088, control_1087
- $P1088."handle_types"(57)
- push_eh $P1088
- .lex "self", self
- .lex "$/", param_1089
-.annotate 'line', 396
- 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:
- $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']
+ find_lex $P1079, "$/"
+.annotate 'line', 393
+ find_lex $P1082, "$/"
+ unless_null $P1082, vivify_372
+ $P1082 = root_new ['parrot';'Hash']
vivify_372:
- set $P1096, $P1095["routine_declarator"]
- unless_null $P1096, vivify_373
- new $P1096, "Undef"
+ set $P1083, $P1082["declarator"]
+ unless_null $P1083, vivify_373
+ new $P1083, "Undef"
vivify_373:
- $P1097 = $P1096."ast"()
- set $P1091, $P1097
- if_1092_end:
- $P1101 = $P1090."!make"($P1091)
-.annotate 'line', 395
- .return ($P1101)
- control_1087:
+ if $P1083, if_1081
+.annotate 'line', 394
+ find_lex $P1087, "$/"
+ unless_null $P1087, vivify_374
+ $P1087 = root_new ['parrot';'Hash']
+ vivify_374:
+ set $P1088, $P1087["multi_declarator"]
+ unless_null $P1088, vivify_375
+ new $P1088, "Undef"
+ vivify_375:
+ $P1089 = $P1088."ast"()
+ set $P1080, $P1089
+.annotate 'line', 393
+ goto if_1081_end
+ if_1081:
+ find_lex $P1084, "$/"
+ unless_null $P1084, vivify_376
+ $P1084 = root_new ['parrot';'Hash']
+ vivify_376:
+ set $P1085, $P1084["declarator"]
+ unless_null $P1085, vivify_377
+ new $P1085, "Undef"
+ vivify_377:
+ $P1086 = $P1085."ast"()
+ set $P1080, $P1086
+ if_1081_end:
+ $P1090 = $P1079."!make"($P1080)
+.annotate 'line', 391
+ .return ($P1090)
+ control_1076:
.local pmc exception
.get_results (exception)
- getattribute $P1102, exception, "payload"
- .return ($P1102)
+ getattribute $P1091, exception, "payload"
+ .return ($P1091)
.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
+.include "except_types.pasm"
+.sub "declarator" :subid("69_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1095
+.annotate 'line', 397
+ new $P1094, 'ExceptionHandler'
+ set_addr $P1094, control_1093
+ $P1094."handle_types"(.CONTROL_RETURN)
+ push_eh $P1094
.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 $P1112, $P1111["variable"]
- unless_null $P1112, vivify_375
- new $P1112, "Undef"
- vivify_375:
- $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 $P1115, $P1114["variable"]
- unless_null $P1115, vivify_377
- $P1115 = root_new ['parrot';'Hash']
- vivify_377:
- set $P1116, $P1115["sigil"]
- unless_null $P1116, vivify_378
- new $P1116, "Undef"
+ .lex "$/", param_1095
+.annotate 'line', 398
+ find_lex $P1096, "$/"
+.annotate 'line', 399
+ find_lex $P1099, "$/"
+ unless_null $P1099, vivify_378
+ $P1099 = root_new ['parrot';'Hash']
vivify_378:
- store_lex "$sigil", $P1116
-.annotate 'line', 404
- 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']
+ set $P1100, $P1099["routine_declarator"]
+ unless_null $P1100, vivify_379
+ new $P1100, "Undef"
vivify_379:
- set $P1120, $P1119[0]
- unless_null $P1120, vivify_380
- new $P1120, "Undef"
+ if $P1100, if_1098
+.annotate 'line', 400
+ find_lex $P1104, "$/"
+ unless_null $P1104, vivify_380
+ $P1104 = root_new ['parrot';'Hash']
vivify_380:
- store_lex "$BLOCK", $P1120
-.annotate 'line', 406
- 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:
+ set $P1105, $P1104["variable_declarator"]
+ unless_null $P1105, vivify_381
+ new $P1105, "Undef"
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 $P1136, $P1135["attributes"]
- unless_null $P1136, vivify_388
- new $P1136, "Undef"
- vivify_388:
- 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:
+ $P1106 = $P1105."ast"()
+ set $P1097, $P1106
+.annotate 'line', 399
+ goto if_1098_end
+ if_1098:
+ find_lex $P1101, "$/"
+ unless_null $P1101, vivify_382
+ $P1101 = root_new ['parrot';'Hash']
+ vivify_382:
+ set $P1102, $P1101["routine_declarator"]
+ unless_null $P1102, vivify_383
+ new $P1102, "Undef"
+ vivify_383:
+ $P1103 = $P1102."ast"()
+ set $P1097, $P1103
+ if_1098_end:
+ $P1107 = $P1096."!make"($P1097)
+.annotate 'line', 397
+ .return ($P1107)
+ control_1093:
.local pmc exception
.get_results (exception)
- getattribute $P1173, exception, "payload"
- .return ($P1173)
+ getattribute $P1108, exception, "payload"
+ .return ($P1108)
.end
.namespace ["NQP";"Actions"]
-.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"
+.include "except_types.pasm"
+.sub "multi_declarator:sym<multi>" :subid("70_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1112
+.annotate 'line', 403
+ new $P1111, 'ExceptionHandler'
+ set_addr $P1111, control_1110
+ $P1111."handle_types"(.CONTROL_RETURN)
+ push_eh $P1111
+ .lex "self", self
+ .lex "$/", param_1112
+ find_lex $P1113, "$/"
+ find_lex $P1116, "$/"
+ unless_null $P1116, vivify_384
+ $P1116 = root_new ['parrot';'Hash']
vivify_384:
- vivify_383:
- 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
- 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']
+ set $P1117, $P1116["declarator"]
+ unless_null $P1117, vivify_385
+ new $P1117, "Undef"
vivify_385:
- set $P1167, $P1166[0]
- unless_null $P1167, vivify_386
- new $P1167, "Undef"
+ if $P1117, if_1115
+ find_lex $P1121, "$/"
+ unless_null $P1121, vivify_386
+ $P1121 = root_new ['parrot';'Hash']
vivify_386:
- find_lex $P1168, "$decl"
- $P1169 = $P1167."push"($P1168)
-.annotate 'line', 418
- .return ($P1169)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.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:
- 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:
+ set $P1122, $P1121["routine_def"]
+ unless_null $P1122, vivify_387
+ new $P1122, "Undef"
+ vivify_387:
+ $P1123 = $P1122."ast"()
+ set $P1114, $P1123
+ goto if_1115_end
+ if_1115:
+ find_lex $P1118, "$/"
+ unless_null $P1118, vivify_388
+ $P1118 = root_new ['parrot';'Hash']
+ vivify_388:
+ set $P1119, $P1118["declarator"]
+ unless_null $P1119, vivify_389
+ new $P1119, "Undef"
+ vivify_389:
+ $P1120 = $P1119."ast"()
+ set $P1114, $P1120
+ if_1115_end:
+ $P1124 = $P1113."!make"($P1114)
+ .return ($P1124)
+ control_1110:
.local pmc exception
.get_results (exception)
- getattribute $P1183, exception, "payload"
- .return ($P1183)
+ getattribute $P1125, exception, "payload"
+ .return ($P1125)
.end
.namespace ["NQP";"Actions"]
-.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:
- set $P1190, $P1189["method_def"]
- unless_null $P1190, vivify_395
- new $P1190, "Undef"
- vivify_395:
- $P1191 = $P1190."ast"()
- $P1192 = $P1188."!make"($P1191)
- .return ($P1192)
- control_1185:
+.include "except_types.pasm"
+.sub "multi_declarator:sym<null>" :subid("71_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1129
+.annotate 'line', 404
+ new $P1128, 'ExceptionHandler'
+ set_addr $P1128, control_1127
+ $P1128."handle_types"(.CONTROL_RETURN)
+ push_eh $P1128
+ .lex "self", self
+ .lex "$/", param_1129
+ find_lex $P1130, "$/"
+ find_lex $P1131, "$/"
+ unless_null $P1131, vivify_390
+ $P1131 = root_new ['parrot';'Hash']
+ vivify_390:
+ set $P1132, $P1131["declarator"]
+ unless_null $P1132, vivify_391
+ new $P1132, "Undef"
+ vivify_391:
+ $P1133 = $P1132."ast"()
+ $P1134 = $P1130."!make"($P1133)
+ .return ($P1134)
+ control_1127:
.local pmc exception
.get_results (exception)
- getattribute $P1193, exception, "payload"
- .return ($P1193)
+ getattribute $P1135, exception, "payload"
+ .return ($P1135)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "variable_declarator" :subid("72_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1139
+.annotate 'line', 407
+ .const 'Sub' $P1179 = "73_1275811497.55064"
+ capture_lex $P1179
+ new $P1138, 'ExceptionHandler'
+ set_addr $P1138, control_1137
+ $P1138."handle_types"(.CONTROL_RETURN)
+ push_eh $P1138
.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']
+ .lex "$/", param_1139
+.annotate 'line', 408
+ new $P1140, "Undef"
+ .lex "$past", $P1140
+.annotate 'line', 409
+ new $P1141, "Undef"
+ .lex "$sigil", $P1141
+.annotate 'line', 410
+ new $P1142, "Undef"
+ .lex "$name", $P1142
+.annotate 'line', 411
+ new $P1143, "Undef"
+ .lex "$BLOCK", $P1143
+.annotate 'line', 408
+ find_lex $P1144, "$/"
+ unless_null $P1144, vivify_392
+ $P1144 = root_new ['parrot';'Hash']
+ vivify_392:
+ set $P1145, $P1144["variable"]
+ unless_null $P1145, vivify_393
+ new $P1145, "Undef"
+ vivify_393:
+ $P1146 = $P1145."ast"()
+ store_lex "$past", $P1146
+.annotate 'line', 409
+ find_lex $P1147, "$/"
+ unless_null $P1147, vivify_394
+ $P1147 = root_new ['parrot';'Hash']
+ vivify_394:
+ set $P1148, $P1147["variable"]
+ unless_null $P1148, vivify_395
+ $P1148 = root_new ['parrot';'Hash']
+ vivify_395:
+ set $P1149, $P1148["sigil"]
+ unless_null $P1149, vivify_396
+ new $P1149, "Undef"
vivify_396:
- set $P1200, $P1199["blockoid"]
- unless_null $P1200, vivify_397
- new $P1200, "Undef"
+ store_lex "$sigil", $P1149
+.annotate 'line', 410
+ find_lex $P1150, "$past"
+ $P1151 = $P1150."name"()
+ store_lex "$name", $P1151
+.annotate 'line', 411
+ get_global $P1152, "@BLOCK"
+ unless_null $P1152, vivify_397
+ $P1152 = root_new ['parrot';'ResizablePMCArray']
vivify_397:
- $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']
+ set $P1153, $P1152[0]
+ unless_null $P1153, vivify_398
+ new $P1153, "Undef"
vivify_398:
- set $P1206, $P1205["deflongname"]
- unless_null $P1206, vivify_399
- new $P1206, "Undef"
+ store_lex "$BLOCK", $P1153
+.annotate 'line', 412
+ find_lex $P1155, "$BLOCK"
+ find_lex $P1156, "$name"
+ $P1157 = $P1155."symbol"($P1156)
+ unless $P1157, if_1154_end
+.annotate 'line', 413
+ find_lex $P1158, "$/"
+ $P1159 = $P1158."CURSOR"()
+ find_lex $P1160, "$name"
+ $P1159."panic"("Redeclaration of symbol ", $P1160)
+ if_1154_end:
+.annotate 'line', 415
+ find_dynamic_lex $P1162, "$*SCOPE"
+ unless_null $P1162, vivify_399
+ get_hll_global $P1162, "$SCOPE"
+ unless_null $P1162, vivify_400
+ die "Contextual $*SCOPE not found"
+ vivify_400:
vivify_399:
- 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)
+ set $S1163, $P1162
+ iseq $I1164, $S1163, "has"
+ if $I1164, if_1161
+.annotate 'line', 424
+ .const 'Sub' $P1179 = "73_1275811497.55064"
+ capture_lex $P1179
+ $P1179()
+ goto if_1161_end
+ if_1161:
+.annotate 'line', 416
+ find_lex $P1165, "$BLOCK"
+ find_lex $P1166, "$name"
+ $P1165."symbol"($P1166, "attribute" :named("scope"))
+.annotate 'line', 417
+ find_lex $P1168, "$BLOCK"
+ unless_null $P1168, vivify_405
+ $P1168 = root_new ['parrot';'Hash']
+ vivify_405:
+ set $P1169, $P1168["attributes"]
+ unless_null $P1169, vivify_406
+ new $P1169, "Undef"
+ vivify_406:
+ if $P1169, unless_1167_end
+.annotate 'line', 419
+ get_hll_global $P1170, ["PAST"], "Op"
+ $P1171 = $P1170."new"("list" :named("pasttype"), "attr" :named("named"))
+ find_lex $P1172, "$BLOCK"
+ unless_null $P1172, vivify_407
+ $P1172 = root_new ['parrot';'Hash']
+ store_lex "$BLOCK", $P1172
+ vivify_407:
+ set $P1172["attributes"], $P1171
+ unless_1167_end:
+.annotate 'line', 421
+ find_lex $P1173, "$BLOCK"
+ unless_null $P1173, vivify_408
+ $P1173 = root_new ['parrot';'Hash']
+ vivify_408:
+ set $P1174, $P1173["attributes"]
+ unless_null $P1174, vivify_409
+ new $P1174, "Undef"
+ vivify_409:
+ find_lex $P1175, "$name"
+ $P1174."push"($P1175)
+.annotate 'line', 422
+ get_hll_global $P1176, ["PAST"], "Stmts"
+ $P1177 = $P1176."new"()
+ store_lex "$past", $P1177
+ if_1161_end:
.annotate 'line', 432
- .return ($P1242)
- control_1195:
+ find_lex $P1203, "$/"
+ find_lex $P1204, "$past"
+ $P1205 = $P1203."!make"($P1204)
+.annotate 'line', 407
+ .return ($P1205)
+ control_1137:
.local pmc exception
.get_results (exception)
- getattribute $P1243, exception, "payload"
- .return ($P1243)
+ getattribute $P1206, exception, "payload"
+ .return ($P1206)
.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 $P1211, $P1210["sigil"]
- unless_null $P1211, vivify_401
- $P1211 = root_new ['parrot';'ResizablePMCArray']
- vivify_401:
- set $P1212, $P1211[0]
- unless_null $P1212, vivify_402
- new $P1212, "Undef"
+.sub "_block1178" :anon :subid("73_1275811497.55064") :outer("72_1275811497.55064")
+.annotate 'line', 425
+ new $P1180, "Undef"
+ .lex "$scope", $P1180
+.annotate 'line', 426
+ new $P1181, "Undef"
+ .lex "$decl", $P1181
+.annotate 'line', 425
+ find_dynamic_lex $P1184, "$*SCOPE"
+ unless_null $P1184, vivify_401
+ get_hll_global $P1184, "$SCOPE"
+ unless_null $P1184, vivify_402
+ die "Contextual $*SCOPE not found"
vivify_402:
- set $S1213, $P1212
- new $P1214, 'String'
- set $P1214, $S1213
- find_lex $P1215, "$/"
- unless_null $P1215, vivify_403
- $P1215 = root_new ['parrot';'Hash']
+ vivify_401:
+ set $S1185, $P1184
+ iseq $I1186, $S1185, "our"
+ if $I1186, if_1183
+ new $P1188, "String"
+ assign $P1188, "lexical"
+ set $P1182, $P1188
+ goto if_1183_end
+ if_1183:
+ new $P1187, "String"
+ assign $P1187, "package"
+ set $P1182, $P1187
+ if_1183_end:
+ store_lex "$scope", $P1182
+.annotate 'line', 426
+ get_hll_global $P1189, ["PAST"], "Var"
+ find_lex $P1190, "$name"
+ find_lex $P1191, "$scope"
+.annotate 'line', 427
+ find_lex $P1192, "$sigil"
+ $P1193 = "vivitype"($P1192)
+ find_lex $P1194, "$/"
+ $P1195 = $P1189."new"($P1190 :named("name"), $P1191 :named("scope"), 1 :named("isdecl"), 1 :named("lvalue"), $P1193 :named("viviself"), $P1194 :named("node"))
+.annotate 'line', 426
+ store_lex "$decl", $P1195
+.annotate 'line', 429
+ find_lex $P1196, "$BLOCK"
+ find_lex $P1197, "$name"
+ find_lex $P1198, "$scope"
+ $P1196."symbol"($P1197, $P1198 :named("scope"))
+.annotate 'line', 430
+ find_lex $P1199, "$BLOCK"
+ unless_null $P1199, vivify_403
+ $P1199 = root_new ['parrot';'ResizablePMCArray']
vivify_403:
- set $P1216, $P1215["deflongname"]
- unless_null $P1216, vivify_404
- $P1216 = root_new ['parrot';'ResizablePMCArray']
+ set $P1200, $P1199[0]
+ unless_null $P1200, vivify_404
+ new $P1200, "Undef"
vivify_404:
- set $P1217, $P1216[0]
- unless_null $P1217, vivify_405
- new $P1217, "Undef"
- vivify_405:
- $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:
- 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 $P1228, $P1227[0]
- unless_null $P1228, vivify_409
- $P1228 = root_new ['parrot';'ResizablePMCArray']
- vivify_409:
- set $P1229, $P1228[0]
- unless_null $P1229, vivify_410
- new $P1229, "Undef"
+ find_lex $P1201, "$decl"
+ $P1202 = $P1200."push"($P1201)
+.annotate 'line', 424
+ .return ($P1202)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "routine_declarator:sym<sub>" :subid("74_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1210
+.annotate 'line', 435
+ new $P1209, 'ExceptionHandler'
+ set_addr $P1209, control_1208
+ $P1209."handle_types"(.CONTROL_RETURN)
+ push_eh $P1209
+ .lex "self", self
+ .lex "$/", param_1210
+ find_lex $P1211, "$/"
+ find_lex $P1212, "$/"
+ unless_null $P1212, vivify_410
+ $P1212 = root_new ['parrot';'Hash']
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']
+ set $P1213, $P1212["routine_def"]
+ unless_null $P1213, vivify_411
+ new $P1213, "Undef"
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:
+ $P1214 = $P1213."ast"()
+ $P1215 = $P1211."!make"($P1214)
+ .return ($P1215)
+ control_1208:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1216, exception, "payload"
+ .return ($P1216)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "routine_declarator:sym<method>" :subid("75_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1220
.annotate 'line', 436
- .return ($P1222)
+ new $P1219, 'ExceptionHandler'
+ set_addr $P1219, control_1218
+ $P1219."handle_types"(.CONTROL_RETURN)
+ push_eh $P1219
+ .lex "self", self
+ .lex "$/", param_1220
+ find_lex $P1221, "$/"
+ find_lex $P1222, "$/"
+ unless_null $P1222, vivify_412
+ $P1222 = root_new ['parrot';'Hash']
+ vivify_412:
+ set $P1223, $P1222["method_def"]
+ unless_null $P1223, vivify_413
+ new $P1223, "Undef"
+ vivify_413:
+ $P1224 = $P1223."ast"()
+ $P1225 = $P1221."!make"($P1224)
+ .return ($P1225)
+ control_1218:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1226, exception, "payload"
+ .return ($P1226)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "routine_def" :subid("76_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1230
+.annotate 'line', 438
+ .const 'Sub' $P1241 = "77_1275811497.55064"
+ capture_lex $P1241
+ new $P1229, 'ExceptionHandler'
+ set_addr $P1229, control_1228
+ $P1229."handle_types"(.CONTROL_RETURN)
+ push_eh $P1229
.lex "self", self
- .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:
- set $P1250, $P1249["blockoid"]
- unless_null $P1250, vivify_414
- new $P1250, "Undef"
+ .lex "$/", param_1230
+.annotate 'line', 439
+ new $P1231, "Undef"
+ .lex "$past", $P1231
+ find_lex $P1232, "$/"
+ unless_null $P1232, vivify_414
+ $P1232 = root_new ['parrot';'Hash']
vivify_414:
- $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']
+ set $P1233, $P1232["blockoid"]
+ unless_null $P1233, vivify_415
+ new $P1233, "Undef"
vivify_415:
- set $P1255, $P1254[0]
- unless_null $P1255, vivify_416
- new $P1255, "Undef"
+ $P1234 = $P1233."ast"()
+ store_lex "$past", $P1234
+.annotate 'line', 440
+ find_lex $P1235, "$past"
+ $P1235."blocktype"("declaration")
+.annotate 'line', 441
+ find_lex $P1236, "$past"
+ $P1236."control"("return_pir")
+.annotate 'line', 442
+ find_lex $P1238, "$/"
+ unless_null $P1238, vivify_416
+ $P1238 = root_new ['parrot';'Hash']
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, "$/"
- unless_null $P1260, vivify_417
- $P1260 = root_new ['parrot';'Hash']
+ set $P1239, $P1238["deflongname"]
+ unless_null $P1239, vivify_417
+ new $P1239, "Undef"
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:
+ unless $P1239, if_1237_end
+ .const 'Sub' $P1241 = "77_1275811497.55064"
+ capture_lex $P1241
+ $P1241()
+ if_1237_end:
+.annotate 'line', 452
+ find_lex $P1273, "$/"
+ find_lex $P1274, "$past"
+ $P1275 = $P1273."!make"($P1274)
+.annotate 'line', 438
+ .return ($P1275)
+ control_1228:
.local pmc exception
.get_results (exception)
- getattribute $P1277, exception, "payload"
- .return ($P1277)
+ getattribute $P1276, exception, "payload"
+ .return ($P1276)
.end
.namespace ["NQP";"Actions"]
-.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']
+.sub "_block1240" :anon :subid("77_1275811497.55064") :outer("76_1275811497.55064")
+.annotate 'line', 443
+ new $P1242, "Undef"
+ .lex "$name", $P1242
+ find_lex $P1243, "$/"
+ unless_null $P1243, vivify_418
+ $P1243 = root_new ['parrot';'Hash']
+ vivify_418:
+ set $P1244, $P1243["sigil"]
+ unless_null $P1244, vivify_419
+ $P1244 = root_new ['parrot';'ResizablePMCArray']
vivify_419:
- set $P1266, $P1265["deflongname"]
- unless_null $P1266, vivify_420
- $P1266 = root_new ['parrot';'ResizablePMCArray']
+ set $P1245, $P1244[0]
+ unless_null $P1245, vivify_420
+ new $P1245, "Undef"
vivify_420:
- set $P1267, $P1266[0]
- unless_null $P1267, vivify_421
- new $P1267, "Undef"
+ set $S1246, $P1245
+ new $P1247, 'String'
+ set $P1247, $S1246
+ find_lex $P1248, "$/"
+ unless_null $P1248, vivify_421
+ $P1248 = root_new ['parrot';'Hash']
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)
+ set $P1249, $P1248["deflongname"]
+ unless_null $P1249, vivify_422
+ $P1249 = root_new ['parrot';'ResizablePMCArray']
+ vivify_422:
+ set $P1250, $P1249[0]
+ unless_null $P1250, vivify_423
+ new $P1250, "Undef"
+ vivify_423:
+ $S1251 = $P1250."ast"()
+ concat $P1252, $P1247, $S1251
+ store_lex "$name", $P1252
+.annotate 'line', 444
+ find_lex $P1253, "$past"
+ find_lex $P1254, "$name"
+ $P1253."name"($P1254)
+.annotate 'line', 445
+ find_dynamic_lex $P1257, "$*SCOPE"
+ unless_null $P1257, vivify_424
+ get_hll_global $P1257, "$SCOPE"
+ unless_null $P1257, vivify_425
+ die "Contextual $*SCOPE not found"
+ vivify_425:
+ vivify_424:
+ set $S1258, $P1257
+ isne $I1259, $S1258, "our"
+ if $I1259, if_1256
+ new $P1255, 'Integer'
+ set $P1255, $I1259
+ goto if_1256_end
+ if_1256:
+.annotate 'line', 446
+ get_global $P1260, "@BLOCK"
+ unless_null $P1260, vivify_426
+ $P1260 = root_new ['parrot';'ResizablePMCArray']
+ vivify_426:
+ set $P1261, $P1260[0]
+ unless_null $P1261, vivify_427
+ $P1261 = root_new ['parrot';'ResizablePMCArray']
+ vivify_427:
+ set $P1262, $P1261[0]
+ unless_null $P1262, vivify_428
+ new $P1262, "Undef"
+ vivify_428:
+ get_hll_global $P1263, ["PAST"], "Var"
+ find_lex $P1264, "$name"
+ find_lex $P1265, "$past"
+ $P1266 = $P1263."new"($P1264 :named("name"), 1 :named("isdecl"), $P1265 :named("viviself"), "lexical" :named("scope"))
+ $P1262."push"($P1266)
+.annotate 'line', 448
+ get_global $P1267, "@BLOCK"
+ unless_null $P1267, vivify_429
+ $P1267 = root_new ['parrot';'ResizablePMCArray']
+ vivify_429:
+ set $P1268, $P1267[0]
+ unless_null $P1268, vivify_430
+ new $P1268, "Undef"
+ vivify_430:
+ find_lex $P1269, "$name"
+ $P1268."symbol"($P1269, "lexical" :named("scope"))
+.annotate 'line', 449
+ get_hll_global $P1270, ["PAST"], "Var"
+ find_lex $P1271, "$name"
+ $P1272 = $P1270."new"($P1271 :named("name"))
+ store_lex "$past", $P1272
+.annotate 'line', 445
+ set $P1255, $P1272
+ if_1256_end:
+.annotate 'line', 442
+ .return ($P1255)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "method_def" :subid("78_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1280
+.annotate 'line', 456
+ .const 'Sub' $P1296 = "79_1275811497.55064"
+ capture_lex $P1296
+ new $P1279, 'ExceptionHandler'
+ set_addr $P1279, control_1278
+ $P1279."handle_types"(.CONTROL_RETURN)
+ push_eh $P1279
.lex "self", self
- .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 $P1284, $P1283[0]
- unless_null $P1284, vivify_423
- $P1284 = root_new ['parrot';'ResizablePMCArray']
- vivify_423:
- 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
+ .lex "$/", param_1280
+.annotate 'line', 457
+ new $P1281, "Undef"
+ .lex "$past", $P1281
+ find_lex $P1282, "$/"
+ unless_null $P1282, vivify_431
+ $P1282 = root_new ['parrot';'Hash']
+ vivify_431:
+ set $P1283, $P1282["blockoid"]
+ unless_null $P1283, vivify_432
+ new $P1283, "Undef"
+ vivify_432:
+ $P1284 = $P1283."ast"()
+ store_lex "$past", $P1284
+.annotate 'line', 458
+ find_lex $P1285, "$past"
+ $P1285."blocktype"("method")
+.annotate 'line', 459
+ find_lex $P1286, "$past"
+ $P1286."control"("return_pir")
+.annotate 'line', 460
+ find_lex $P1287, "$past"
+ unless_null $P1287, vivify_433
+ $P1287 = root_new ['parrot';'ResizablePMCArray']
+ vivify_433:
+ set $P1288, $P1287[0]
+ unless_null $P1288, vivify_434
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_427:
-.annotate 'line', 464
- .return ($P1286)
- control_1279:
+ vivify_434:
+ get_hll_global $P1289, ["PAST"], "Op"
+ $P1290 = $P1289."new"(" .lex \"self\", self" :named("inline"))
+ $P1288."unshift"($P1290)
+.annotate 'line', 461
+ find_lex $P1291, "$past"
+ $P1291."symbol"("self", "lexical" :named("scope"))
+.annotate 'line', 462
+ find_lex $P1293, "$/"
+ unless_null $P1293, vivify_435
+ $P1293 = root_new ['parrot';'Hash']
+ vivify_435:
+ set $P1294, $P1293["deflongname"]
+ unless_null $P1294, vivify_436
+ new $P1294, "Undef"
+ vivify_436:
+ unless $P1294, if_1292_end
+ .const 'Sub' $P1296 = "79_1275811497.55064"
+ capture_lex $P1296
+ $P1296()
+ if_1292_end:
+.annotate 'line', 466
+ find_dynamic_lex $P1308, "$*MULTINESS"
+ unless_null $P1308, vivify_440
+ get_hll_global $P1308, "$MULTINESS"
+ unless_null $P1308, vivify_441
+ die "Contextual $*MULTINESS not found"
+ vivify_441:
+ vivify_440:
+ set $S1309, $P1308
+ iseq $I1310, $S1309, "multi"
+ unless $I1310, if_1307_end
+ find_lex $P1311, "$past"
+ $P1312 = $P1311."multi"()
+ $P1312."unshift"("_")
+ if_1307_end:
+.annotate 'line', 467
+ find_lex $P1313, "$/"
+ find_lex $P1314, "$past"
+ $P1315 = $P1313."!make"($P1314)
+.annotate 'line', 456
+ .return ($P1315)
+ control_1278:
.local pmc exception
.get_results (exception)
- getattribute $P1301, exception, "payload"
- .return ($P1301)
+ getattribute $P1316, exception, "payload"
+ .return ($P1316)
.end
.namespace ["NQP";"Actions"]
-.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)
+.sub "_block1295" :anon :subid("79_1275811497.55064") :outer("78_1275811497.55064")
+.annotate 'line', 463
+ new $P1297, "Undef"
+ .lex "$name", $P1297
+ find_lex $P1298, "$/"
+ unless_null $P1298, vivify_437
+ $P1298 = root_new ['parrot';'Hash']
+ vivify_437:
+ set $P1299, $P1298["deflongname"]
+ unless_null $P1299, vivify_438
+ $P1299 = root_new ['parrot';'ResizablePMCArray']
+ vivify_438:
+ set $P1300, $P1299[0]
+ unless_null $P1300, vivify_439
+ new $P1300, "Undef"
+ vivify_439:
+ $P1301 = $P1300."ast"()
+ set $S1302, $P1301
+ new $P1303, 'String'
+ set $P1303, $S1302
+ store_lex "$name", $P1303
+.annotate 'line', 464
+ find_lex $P1304, "$past"
+ find_lex $P1305, "$name"
+ $P1306 = $P1304."name"($P1305)
+.annotate 'line', 462
+ .return ($P1306)
.end
.namespace ["NQP";"Actions"]
-.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_1305
-.annotate 'line', 470
- new $P1306, "Undef"
- .lex "$quant", $P1306
+.include "except_types.pasm"
+.sub "signature" :subid("80_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1320
.annotate 'line', 471
- new $P1307, "Undef"
- .lex "$past", $P1307
-.annotate 'line', 470
- 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:
- store_lex "$quant", $P1309
- find_lex $P1310, "$past"
+ .const 'Sub' $P1346 = "82_1275811497.55064"
+ capture_lex $P1346
+ .const 'Sub' $P1331 = "81_1275811497.55064"
+ capture_lex $P1331
+ new $P1319, 'ExceptionHandler'
+ set_addr $P1319, control_1318
+ $P1319."handle_types"(.CONTROL_RETURN)
+ push_eh $P1319
+ .lex "self", self
+ .lex "$/", param_1320
.annotate 'line', 472
- find_lex $P1312, "$/"
- unless_null $P1312, vivify_430
- $P1312 = root_new ['parrot';'Hash']
- vivify_430:
- set $P1313, $P1312["named_param"]
- unless_null $P1313, vivify_431
- new $P1313, "Undef"
- vivify_431:
- if $P1313, if_1311
-.annotate 'line', 479
- find_lex $P1327, "$/"
- unless_null $P1327, vivify_432
- $P1327 = root_new ['parrot';'Hash']
- vivify_432:
- set $P1328, $P1327["param_var"]
- unless_null $P1328, vivify_433
- new $P1328, "Undef"
- vivify_433:
- $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 $P1347, $P1346["param_var"]
- unless_null $P1347, vivify_435
- $P1347 = root_new ['parrot';'Hash']
- vivify_435:
- set $P1348, $P1347["sigil"]
- unless_null $P1348, vivify_436
- new $P1348, "Undef"
- vivify_436:
- $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 $P1337, $P1336["param_var"]
- unless_null $P1337, vivify_438
- $P1337 = root_new ['parrot';'Hash']
- vivify_438:
- set $P1338, $P1337["sigil"]
- unless_null $P1338, vivify_439
- new $P1338, "Undef"
- vivify_439:
- 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 $P1315, $P1314["named_param"]
- unless_null $P1315, vivify_441
- new $P1315, "Undef"
- vivify_441:
- $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, "$/"
+ new $P1321, "Undef"
+ .lex "$BLOCKINIT", $P1321
+ get_global $P1322, "@BLOCK"
unless_null $P1322, vivify_442
- $P1322 = root_new ['parrot';'Hash']
+ $P1322 = root_new ['parrot';'ResizablePMCArray']
vivify_442:
- set $P1323, $P1322["named_param"]
+ set $P1323, $P1322[0]
unless_null $P1323, vivify_443
- $P1323 = root_new ['parrot';'Hash']
+ $P1323 = root_new ['parrot';'ResizablePMCArray']
vivify_443:
- set $P1324, $P1323["param_var"]
+ set $P1324, $P1323[0]
unless_null $P1324, vivify_444
- $P1324 = root_new ['parrot';'Hash']
+ new $P1324, "Undef"
vivify_444:
- set $P1325, $P1324["sigil"]
- unless_null $P1325, vivify_445
- new $P1325, "Undef"
+ store_lex "$BLOCKINIT", $P1324
+.annotate 'line', 474
+ find_lex $P1326, "$/"
+ unless_null $P1326, vivify_445
+ $P1326 = root_new ['parrot';'Hash']
vivify_445:
- $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']
+ set $P1327, $P1326["parameter"]
+ unless_null $P1327, vivify_446
+ new $P1327, "Undef"
vivify_446:
- set $P1352, $P1351["default_value"]
- unless_null $P1352, vivify_447
- new $P1352, "Undef"
- vivify_447:
- 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:
- set $P1367, $P1366["default_value"]
- unless_null $P1367, vivify_449
- $P1367 = root_new ['parrot';'ResizablePMCArray']
+ defined $I1328, $P1327
+ unless $I1328, for_undef_447
+ iter $P1325, $P1327
+ new $P1338, 'ExceptionHandler'
+ set_addr $P1338, loop1337_handler
+ $P1338."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1338
+ loop1337_test:
+ unless $P1325, loop1337_done
+ shift $P1329, $P1325
+ loop1337_redo:
+ .const 'Sub' $P1331 = "81_1275811497.55064"
+ capture_lex $P1331
+ $P1331($P1329)
+ loop1337_next:
+ goto loop1337_test
+ loop1337_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1339, exception, 'type'
+ eq $P1339, .CONTROL_LOOP_NEXT, loop1337_next
+ eq $P1339, .CONTROL_LOOP_REDO, loop1337_redo
+ loop1337_done:
+ pop_eh
+ for_undef_447:
+.annotate 'line', 477
+ find_dynamic_lex $P1342, "$*MULTINESS"
+ unless_null $P1342, vivify_448
+ get_hll_global $P1342, "$MULTINESS"
+ unless_null $P1342, vivify_449
+ die "Contextual $*MULTINESS not found"
vivify_449:
- set $P1368, $P1367[0]
- unless_null $P1368, vivify_450
- $P1368 = root_new ['parrot';'Hash']
- vivify_450:
- set $P1369, $P1368["EXPR"]
- unless_null $P1369, vivify_451
- new $P1369, "Undef"
- vivify_451:
- $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:
- set $P1375, $P1374[0]
- unless_null $P1375, vivify_453
- new $P1375, "Undef"
- vivify_453:
- get_global $P1376, "@BLOCK"
- unless_null $P1376, vivify_454
- $P1376 = root_new ['parrot';'ResizablePMCArray']
- vivify_454:
- 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:
+ vivify_448:
+ set $S1343, $P1342
+ iseq $I1344, $S1343, "multi"
+ if $I1344, if_1341
+ new $P1340, 'Integer'
+ set $P1340, $I1344
+ goto if_1341_end
+ if_1341:
+ .const 'Sub' $P1346 = "82_1275811497.55064"
+ capture_lex $P1346
+ $P1372 = $P1346()
+ set $P1340, $P1372
+ if_1341_end:
+.annotate 'line', 471
+ .return ($P1340)
+ control_1318:
.local pmc exception
.get_results (exception)
- getattribute $P1385, exception, "payload"
- .return ($P1385)
+ getattribute $P1373, exception, "payload"
+ .return ($P1373)
.end
.namespace ["NQP";"Actions"]
-.sub "param_var" :subid("81_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1389
-.annotate 'line', 501
- 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, "$/"
- $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:
- set $P1400, $P1399[0]
- unless_null $P1400, vivify_457
- new $P1400, "Undef"
- vivify_457:
- 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 $P1405, exception, "payload"
- .return ($P1405)
+.sub "_block1330" :anon :subid("81_1275811497.55064") :outer("80_1275811497.55064")
+ .param pmc param_1332
+.annotate 'line', 474
+ .lex "$_", param_1332
+ find_lex $P1333, "$BLOCKINIT"
+ find_lex $P1334, "$_"
+ $P1335 = $P1334."ast"()
+ $P1336 = $P1333."push"($P1335)
+ .return ($P1336)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "_block1345" :anon :subid("82_1275811497.55064") :outer("80_1275811497.55064")
+.annotate 'line', 477
+ .const 'Sub' $P1355 = "83_1275811497.55064"
+ capture_lex $P1355
+.annotate 'line', 478
+ $P1347 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@params", $P1347
+.annotate 'line', 477
+ find_lex $P1348, "@params"
+.annotate 'line', 479
+ find_lex $P1350, "$BLOCKINIT"
+ $P1351 = $P1350."list"()
+ defined $I1352, $P1351
+ unless $I1352, for_undef_450
+ iter $P1349, $P1351
+ new $P1366, 'ExceptionHandler'
+ set_addr $P1366, loop1365_handler
+ $P1366."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1366
+ loop1365_test:
+ unless $P1349, loop1365_done
+ shift $P1353, $P1349
+ loop1365_redo:
+ .const 'Sub' $P1355 = "83_1275811497.55064"
+ capture_lex $P1355
+ $P1355($P1353)
+ loop1365_next:
+ goto loop1365_test
+ loop1365_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1367, exception, 'type'
+ eq $P1367, .CONTROL_LOOP_NEXT, loop1365_next
+ eq $P1367, .CONTROL_LOOP_REDO, loop1365_redo
+ loop1365_done:
+ pop_eh
+ for_undef_450:
+.annotate 'line', 482
+ get_global $P1368, "@BLOCK"
+ unless_null $P1368, vivify_451
+ $P1368 = root_new ['parrot';'ResizablePMCArray']
+ vivify_451:
+ set $P1369, $P1368[0]
+ unless_null $P1369, vivify_452
+ new $P1369, "Undef"
+ vivify_452:
+ find_lex $P1370, "@params"
+ $P1371 = $P1369."multi"($P1370)
+.annotate 'line', 477
+ .return ($P1371)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "_block1354" :anon :subid("83_1275811497.55064") :outer("82_1275811497.55064")
+ .param pmc param_1356
+.annotate 'line', 479
+ .lex "$_", param_1356
+.annotate 'line', 480
+ find_lex $P1357, "@params"
+ find_lex $P1359, "$_"
+ $P1360 = $P1359."multitype"()
+ set $P1358, $P1360
+ defined $I1362, $P1358
+ if $I1362, default_1361
+ new $P1363, "String"
+ assign $P1363, "_"
+ set $P1358, $P1363
+ default_1361:
+ $P1364 = $P1357."push"($P1358)
+.annotate 'line', 479
+ .return ($P1364)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "parameter" :subid("84_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1377
+.annotate 'line', 486
+ .const 'Sub' $P1458 = "85_1275811497.55064"
+ capture_lex $P1458
+ new $P1376, 'ExceptionHandler'
+ set_addr $P1376, control_1375
+ $P1376."handle_types"(.CONTROL_RETURN)
+ push_eh $P1376
.lex "self", self
- .lex "$/", param_1409
-.annotate 'line', 510
- new $P1410, "Undef"
- .lex "$past", $P1410
- find_lex $P1411, "$/"
- unless_null $P1411, vivify_458
- $P1411 = root_new ['parrot';'Hash']
+ .lex "$/", param_1377
+.annotate 'line', 487
+ new $P1378, "Undef"
+ .lex "$quant", $P1378
+.annotate 'line', 488
+ new $P1379, "Undef"
+ .lex "$past", $P1379
+.annotate 'line', 487
+ find_lex $P1380, "$/"
+ unless_null $P1380, vivify_453
+ $P1380 = root_new ['parrot';'Hash']
+ vivify_453:
+ set $P1381, $P1380["quant"]
+ unless_null $P1381, vivify_454
+ new $P1381, "Undef"
+ vivify_454:
+ store_lex "$quant", $P1381
+ find_lex $P1382, "$past"
+.annotate 'line', 489
+ find_lex $P1384, "$/"
+ unless_null $P1384, vivify_455
+ $P1384 = root_new ['parrot';'Hash']
+ vivify_455:
+ set $P1385, $P1384["named_param"]
+ unless_null $P1385, vivify_456
+ new $P1385, "Undef"
+ vivify_456:
+ if $P1385, if_1383
+.annotate 'line', 496
+ find_lex $P1399, "$/"
+ unless_null $P1399, vivify_457
+ $P1399 = root_new ['parrot';'Hash']
+ vivify_457:
+ set $P1400, $P1399["param_var"]
+ unless_null $P1400, vivify_458
+ new $P1400, "Undef"
vivify_458:
- set $P1412, $P1411["param_var"]
- unless_null $P1412, vivify_459
- new $P1412, "Undef"
+ $P1401 = $P1400."ast"()
+ store_lex "$past", $P1401
+.annotate 'line', 497
+ find_lex $P1403, "$quant"
+ set $S1404, $P1403
+ iseq $I1405, $S1404, "*"
+ if $I1405, if_1402
+.annotate 'line', 501
+ find_lex $P1414, "$quant"
+ set $S1415, $P1414
+ iseq $I1416, $S1415, "?"
+ unless $I1416, if_1413_end
+.annotate 'line', 502
+ find_lex $P1417, "$past"
+ find_lex $P1418, "$/"
+ unless_null $P1418, vivify_459
+ $P1418 = root_new ['parrot';'Hash']
vivify_459:
- $P1413 = $P1412."ast"()
- store_lex "$past", $P1413
-.annotate 'line', 511
- find_lex $P1414, "$past"
- find_lex $P1415, "$/"
- unless_null $P1415, vivify_460
- $P1415 = root_new ['parrot';'Hash']
+ set $P1419, $P1418["param_var"]
+ unless_null $P1419, vivify_460
+ $P1419 = root_new ['parrot';'Hash']
vivify_460:
- set $P1416, $P1415["param_var"]
- unless_null $P1416, vivify_461
- $P1416 = root_new ['parrot';'Hash']
+ set $P1420, $P1419["sigil"]
+ unless_null $P1420, vivify_461
+ new $P1420, "Undef"
vivify_461:
- set $P1417, $P1416["name"]
- unless_null $P1417, vivify_462
- new $P1417, "Undef"
+ $P1421 = "vivitype"($P1420)
+ $P1417."viviself"($P1421)
+ if_1413_end:
+.annotate 'line', 501
+ goto if_1402_end
+ if_1402:
+.annotate 'line', 498
+ find_lex $P1406, "$past"
+ $P1406."slurpy"(1)
+.annotate 'line', 499
+ find_lex $P1407, "$past"
+ find_lex $P1408, "$/"
+ unless_null $P1408, vivify_462
+ $P1408 = root_new ['parrot';'Hash']
vivify_462:
- set $S1418, $P1417
- $P1414."named"($S1418)
-.annotate 'line', 512
- 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 $P1422, exception, "payload"
- .return ($P1422)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.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']
+ set $P1409, $P1408["param_var"]
+ unless_null $P1409, vivify_463
+ $P1409 = root_new ['parrot';'Hash']
+ vivify_463:
+ set $P1410, $P1409["sigil"]
+ unless_null $P1410, vivify_464
+ new $P1410, "Undef"
vivify_464:
- set $P1434, $P1433["deflongname"]
- unless_null $P1434, vivify_465
- new $P1434, "Undef"
+ set $S1411, $P1410
+ iseq $I1412, $S1411, "%"
+ $P1407."named"($I1412)
+ if_1402_end:
+.annotate 'line', 495
+ goto if_1383_end
+ if_1383:
+.annotate 'line', 490
+ find_lex $P1386, "$/"
+ unless_null $P1386, vivify_465
+ $P1386 = root_new ['parrot';'Hash']
vivify_465:
- $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']
+ set $P1387, $P1386["named_param"]
+ unless_null $P1387, vivify_466
+ new $P1387, "Undef"
vivify_466:
- set $P1441, $P1440["proto"]
- unless_null $P1441, vivify_467
- new $P1441, "Undef"
+ $P1388 = $P1387."ast"()
+ store_lex "$past", $P1388
+.annotate 'line', 491
+ find_lex $P1390, "$quant"
+ set $S1391, $P1390
+ isne $I1392, $S1391, "!"
+ unless $I1392, if_1389_end
+.annotate 'line', 492
+ find_lex $P1393, "$past"
+ find_lex $P1394, "$/"
+ unless_null $P1394, vivify_467
+ $P1394 = root_new ['parrot';'Hash']
vivify_467:
- 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 "_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']
+ set $P1395, $P1394["named_param"]
+ unless_null $P1395, vivify_468
+ $P1395 = root_new ['parrot';'Hash']
vivify_468:
- set $P1501, $P1500["p6regex"]
- unless_null $P1501, vivify_469
- new $P1501, "Undef"
+ set $P1396, $P1395["param_var"]
+ unless_null $P1396, vivify_469
+ $P1396 = root_new ['parrot';'Hash']
vivify_469:
- $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
+ set $P1397, $P1396["sigil"]
+ unless_null $P1397, vivify_470
+ new $P1397, "Undef"
vivify_470:
- 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']
+ $P1398 = "vivitype"($P1397)
+ $P1393."viviself"($P1398)
+ if_1389_end:
+ if_1383_end:
+.annotate 'line', 505
+ find_lex $P1423, "$/"
+ unless_null $P1423, vivify_471
+ $P1423 = root_new ['parrot';'Hash']
vivify_471:
- set $P1474, $P1473["sym"]
- unless_null $P1474, vivify_472
- new $P1474, "Undef"
+ set $P1424, $P1423["default_value"]
+ unless_null $P1424, vivify_472
+ new $P1424, "Undef"
vivify_472:
- 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
+ unless $P1424, if_1422_end
+.annotate 'line', 506
+ find_lex $P1426, "$quant"
+ set $S1427, $P1426
+ iseq $I1428, $S1427, "*"
+ unless $I1428, if_1425_end
+.annotate 'line', 507
+ find_lex $P1429, "$/"
+ $P1430 = $P1429."CURSOR"()
+ $P1430."panic"("Can't put default on slurpy parameter")
+ if_1425_end:
+.annotate 'line', 509
+ find_lex $P1432, "$quant"
+ set $S1433, $P1432
+ iseq $I1434, $S1433, "!"
+ unless $I1434, if_1431_end
+.annotate 'line', 510
+ find_lex $P1435, "$/"
+ $P1436 = $P1435."CURSOR"()
+ $P1436."panic"("Can't put default on required parameter")
+ if_1431_end:
+.annotate 'line', 512
+ find_lex $P1437, "$past"
+ find_lex $P1438, "$/"
+ unless_null $P1438, vivify_473
+ $P1438 = root_new ['parrot';'Hash']
vivify_473:
- set $P1478["r"], $P1477
- if_1472_end:
-.annotate 'line', 551
- find_lex $P1480, "$/"
- unless_null $P1480, vivify_474
- $P1480 = root_new ['parrot';'Hash']
+ set $P1439, $P1438["default_value"]
+ unless_null $P1439, vivify_474
+ $P1439 = root_new ['parrot';'ResizablePMCArray']
vivify_474:
- set $P1481, $P1480["sym"]
- unless_null $P1481, vivify_475
- new $P1481, "Undef"
+ set $P1440, $P1439[0]
+ unless_null $P1440, vivify_475
+ $P1440 = root_new ['parrot';'Hash']
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
+ set $P1441, $P1440["EXPR"]
+ unless_null $P1441, vivify_476
+ new $P1441, "Undef"
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
+ $P1442 = $P1441."ast"()
+ $P1437."viviself"($P1442)
+ if_1422_end:
+.annotate 'line', 514
+ find_lex $P1444, "$past"
+ $P1445 = $P1444."viviself"()
+ if $P1445, unless_1443_end
+ get_global $P1446, "@BLOCK"
+ unless_null $P1446, vivify_477
+ $P1446 = root_new ['parrot';'ResizablePMCArray']
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', 557
- get_global $P1490, "@BLOCK"
- unless_null $P1490, vivify_478
- $P1490 = root_new ['parrot';'ResizablePMCArray']
+ set $P1447, $P1446[0]
+ unless_null $P1447, vivify_478
+ new $P1447, "Undef"
vivify_478:
- set $P1491, $P1490[0]
- unless_null $P1491, vivify_479
- new $P1491, "Undef"
+ get_global $P1448, "@BLOCK"
+ unless_null $P1448, vivify_479
+ $P1448 = root_new ['parrot';'ResizablePMCArray']
vivify_479:
- $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']
+ set $P1449, $P1448[0]
+ unless_null $P1449, vivify_480
+ new $P1449, "Undef"
vivify_480:
- set $P1493, $P1492[0]
- unless_null $P1493, vivify_481
- new $P1493, "Undef"
+ $P1450 = $P1449."arity"()
+ set $N1451, $P1450
+ new $P1452, 'Float'
+ set $P1452, $N1451
+ add $P1453, $P1452, 1
+ $P1447."arity"($P1453)
+ unless_1443_end:
+.annotate 'line', 517
+ find_lex $P1455, "$/"
+ unless_null $P1455, vivify_481
+ $P1455 = root_new ['parrot';'Hash']
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 ()
+ set $P1456, $P1455["typename"]
+ unless_null $P1456, vivify_482
+ new $P1456, "Undef"
+ vivify_482:
+ unless $P1456, if_1454_end
+ .const 'Sub' $P1458 = "85_1275811497.55064"
+ capture_lex $P1458
+ $P1458()
+ if_1454_end:
+.annotate 'line', 523
+ find_lex $P1482, "$/"
+ find_lex $P1483, "$past"
+ $P1484 = $P1482."!make"($P1483)
+.annotate 'line', 486
+ .return ($P1484)
+ control_1375:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1485, exception, "payload"
+ .return ($P1485)
.end
.namespace ["NQP";"Actions"]
-.sub "dotty" :subid("86_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1525
-.annotate 'line', 579
- new $P1524, 'ExceptionHandler'
- set_addr $P1524, control_1523
- $P1524."handle_types"(57)
- push_eh $P1524
- .lex "self", self
- .lex "$/", param_1525
-.annotate 'line', 580
- 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"
+.include "except_types.pasm"
+.sub "_block1457" :anon :subid("85_1275811497.55064") :outer("84_1275811497.55064")
+.annotate 'line', 517
+ .const 'Sub' $P1470 = "86_1275811497.55064"
+ capture_lex $P1470
+.annotate 'line', 518
+ $P1459 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@multitype", $P1459
+.annotate 'line', 517
+ find_lex $P1460, "@multitype"
+.annotate 'line', 519
+ find_lex $P1462, "$/"
+ unless_null $P1462, vivify_483
+ $P1462 = root_new ['parrot';'Hash']
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']
+ set $P1463, $P1462["typename"]
+ unless_null $P1463, vivify_484
+ $P1463 = root_new ['parrot';'ResizablePMCArray']
vivify_484:
- set $P1532, $P1531["args"]
- unless_null $P1532, vivify_485
- $P1532 = root_new ['parrot';'ResizablePMCArray']
+ set $P1464, $P1463[0]
+ unless_null $P1464, vivify_485
+ $P1464 = root_new ['parrot';'Hash']
vivify_485:
- set $P1533, $P1532[0]
- unless_null $P1533, vivify_486
- new $P1533, "Undef"
+ set $P1465, $P1464["name"]
+ unless_null $P1465, vivify_486
+ $P1465 = root_new ['parrot';'Hash']
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']
+ set $P1466, $P1465["identifier"]
+ unless_null $P1466, vivify_487
+ new $P1466, "Undef"
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 ($P1552)
- control_1523:
- .local pmc exception
- .get_results (exception)
- getattribute $P1553, exception, "payload"
- .return ($P1553)
+ defined $I1467, $P1466
+ unless $I1467, for_undef_488
+ iter $P1461, $P1466
+ new $P1477, 'ExceptionHandler'
+ set_addr $P1477, loop1476_handler
+ $P1477."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1477
+ loop1476_test:
+ unless $P1461, loop1476_done
+ shift $P1468, $P1461
+ loop1476_redo:
+ .const 'Sub' $P1470 = "86_1275811497.55064"
+ capture_lex $P1470
+ $P1470($P1468)
+ loop1476_next:
+ goto loop1476_test
+ loop1476_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1478, exception, 'type'
+ eq $P1478, .CONTROL_LOOP_NEXT, loop1476_next
+ eq $P1478, .CONTROL_LOOP_REDO, loop1476_redo
+ loop1476_done:
+ pop_eh
+ for_undef_488:
+.annotate 'line', 520
+ find_lex $P1479, "$past"
+ find_lex $P1480, "@multitype"
+ $P1481 = $P1479."multitype"($P1480)
+.annotate 'line', 517
+ .return ($P1481)
.end
.namespace ["NQP";"Actions"]
-.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
+.sub "_block1469" :anon :subid("86_1275811497.55064") :outer("85_1275811497.55064")
+ .param pmc param_1471
+.annotate 'line', 519
+ .lex "$_", param_1471
+ find_lex $P1472, "@multitype"
+ find_lex $P1473, "$_"
+ set $S1474, $P1473
+ $P1475 = $P1472."push"($S1474)
+ .return ($P1475)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "param_var" :subid("87_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1489
+.annotate 'line', 526
+ new $P1488, 'ExceptionHandler'
+ set_addr $P1488, control_1487
+ $P1488."handle_types"(.CONTROL_RETURN)
+ push_eh $P1488
.lex "self", self
- .lex "$/", param_1557
-.annotate 'line', 589
- find_lex $P1558, "$/"
- get_hll_global $P1559, ["PAST"], "Var"
- $P1560 = $P1559."new"("self" :named("name"))
- $P1561 = $P1558."!make"($P1560)
-.annotate 'line', 588
- .return ($P1561)
- control_1555:
+ .lex "$/", param_1489
+.annotate 'line', 527
+ new $P1490, "Undef"
+ .lex "$name", $P1490
+.annotate 'line', 528
+ new $P1491, "Undef"
+ .lex "$past", $P1491
+.annotate 'line', 527
+ find_lex $P1492, "$/"
+ set $S1493, $P1492
+ new $P1494, 'String'
+ set $P1494, $S1493
+ store_lex "$name", $P1494
+.annotate 'line', 528
+ get_hll_global $P1495, ["PAST"], "Var"
+ find_lex $P1496, "$name"
+ find_lex $P1497, "$/"
+ $P1498 = $P1495."new"($P1496 :named("name"), "parameter" :named("scope"), 1 :named("isdecl"), $P1497 :named("node"))
+ store_lex "$past", $P1498
+.annotate 'line', 530
+ get_global $P1499, "@BLOCK"
+ unless_null $P1499, vivify_489
+ $P1499 = root_new ['parrot';'ResizablePMCArray']
+ vivify_489:
+ set $P1500, $P1499[0]
+ unless_null $P1500, vivify_490
+ new $P1500, "Undef"
+ vivify_490:
+ find_lex $P1501, "$name"
+ $P1500."symbol"($P1501, "lexical" :named("scope"))
+.annotate 'line', 531
+ find_lex $P1502, "$/"
+ find_lex $P1503, "$past"
+ $P1504 = $P1502."!make"($P1503)
+.annotate 'line', 526
+ .return ($P1504)
+ control_1487:
.local pmc exception
.get_results (exception)
- getattribute $P1562, exception, "payload"
- .return ($P1562)
+ getattribute $P1505, exception, "payload"
+ .return ($P1505)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "named_param" :subid("88_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1509
+.annotate 'line', 534
+ new $P1508, 'ExceptionHandler'
+ set_addr $P1508, control_1507
+ $P1508."handle_types"(.CONTROL_RETURN)
+ push_eh $P1508
.lex "self", self
- .lex "$/", param_1566
-.annotate 'line', 593
- new $P1567, "Undef"
- .lex "$past", $P1567
- find_lex $P1568, "$/"
- unless_null $P1568, vivify_493
- $P1568 = root_new ['parrot';'Hash']
+ .lex "$/", param_1509
+.annotate 'line', 535
+ new $P1510, "Undef"
+ .lex "$past", $P1510
+ find_lex $P1511, "$/"
+ unless_null $P1511, vivify_491
+ $P1511 = root_new ['parrot';'Hash']
+ vivify_491:
+ set $P1512, $P1511["param_var"]
+ unless_null $P1512, vivify_492
+ new $P1512, "Undef"
+ vivify_492:
+ $P1513 = $P1512."ast"()
+ store_lex "$past", $P1513
+.annotate 'line', 536
+ find_lex $P1514, "$past"
+ find_lex $P1515, "$/"
+ unless_null $P1515, vivify_493
+ $P1515 = root_new ['parrot';'Hash']
vivify_493:
- set $P1569, $P1568["args"]
- unless_null $P1569, vivify_494
- new $P1569, "Undef"
+ set $P1516, $P1515["param_var"]
+ unless_null $P1516, vivify_494
+ $P1516 = root_new ['parrot';'Hash']
vivify_494:
- $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']
+ set $P1517, $P1516["name"]
+ unless_null $P1517, vivify_495
+ new $P1517, "Undef"
vivify_495:
- set $P1573, $P1572["identifier"]
- unless_null $P1573, vivify_496
- new $P1573, "Undef"
- vivify_496:
- set $S1574, $P1573
- $P1571."name"($S1574)
-.annotate 'line', 595
- find_lex $P1575, "$/"
- find_lex $P1576, "$past"
- $P1577 = $P1575."!make"($P1576)
-.annotate 'line', 592
- .return ($P1577)
- control_1564:
+ set $S1518, $P1517
+ $P1514."named"($S1518)
+.annotate 'line', 537
+ find_lex $P1519, "$/"
+ find_lex $P1520, "$past"
+ $P1521 = $P1519."!make"($P1520)
+.annotate 'line', 534
+ .return ($P1521)
+ control_1507:
.local pmc exception
.get_results (exception)
- getattribute $P1578, exception, "payload"
- .return ($P1578)
+ getattribute $P1522, exception, "payload"
+ .return ($P1522)
.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']
- .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']
+.include "except_types.pasm"
+.sub "regex_declarator" :subid("89_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1526
+ .param pmc param_1527 :optional
+ .param int has_param_1527 :opt_flag
+.annotate 'line', 540
+ .const 'Sub' $P1597 = "91_1275811497.55064"
+ capture_lex $P1597
+ .const 'Sub' $P1569 = "90_1275811497.55064"
+ capture_lex $P1569
+ new $P1525, 'ExceptionHandler'
+ set_addr $P1525, control_1524
+ $P1525."handle_types"(.CONTROL_RETURN)
+ push_eh $P1525
+ .lex "self", self
+ .lex "$/", param_1526
+ if has_param_1527, optparam_496
+ new $P1528, "Undef"
+ set param_1527, $P1528
+ optparam_496:
+ .lex "$key", param_1527
+.annotate 'line', 541
+ $P1529 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@MODIFIERS", $P1529
+.annotate 'line', 544
+ new $P1530, "Undef"
+ .lex "$name", $P1530
+.annotate 'line', 545
+ new $P1531, "Undef"
+ .lex "$past", $P1531
+.annotate 'line', 541
+
+ $P1532 = get_hll_global ['Regex';'P6Regex';'Actions'], '@MODIFIERS'
+
+ store_lex "@MODIFIERS", $P1532
+.annotate 'line', 544
+ find_lex $P1533, "$/"
+ unless_null $P1533, vivify_497
+ $P1533 = root_new ['parrot';'Hash']
vivify_497:
- set $P1588, $P1587["name"]
- unless_null $P1588, vivify_498
- $P1588 = root_new ['parrot';'Hash']
+ set $P1534, $P1533["deflongname"]
+ unless_null $P1534, vivify_498
+ new $P1534, "Undef"
vivify_498:
- set $P1589, $P1588["identifier"]
- unless_null $P1589, vivify_499
- new $P1589, "Undef"
+ $P1535 = $P1534."ast"()
+ set $S1536, $P1535
+ new $P1537, 'String'
+ set $P1537, $S1536
+ store_lex "$name", $P1537
+ find_lex $P1538, "$past"
+.annotate 'line', 546
+ find_lex $P1540, "$/"
+ unless_null $P1540, vivify_499
+ $P1540 = root_new ['parrot';'Hash']
vivify_499:
- 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']
+ set $P1541, $P1540["proto"]
+ unless_null $P1541, vivify_500
+ new $P1541, "Undef"
vivify_500:
- set $P1598, $P1597[0]
- unless_null $P1598, vivify_501
+ if $P1541, if_1539
+.annotate 'line', 573
+ find_lex $P1565, "$key"
+ set $S1566, $P1565
+ iseq $I1567, $S1566, "open"
+ if $I1567, if_1564
+.annotate 'line', 586
+ .const 'Sub' $P1597 = "91_1275811497.55064"
+ capture_lex $P1597
+ $P1597()
+ goto if_1564_end
+ if_1564:
+.annotate 'line', 573
+ .const 'Sub' $P1569 = "90_1275811497.55064"
+ capture_lex $P1569
+ $P1569()
+ if_1564_end:
+ goto if_1539_end
+ if_1539:
+.annotate 'line', 548
+ get_hll_global $P1542, ["PAST"], "Stmts"
+.annotate 'line', 549
+ get_hll_global $P1543, ["PAST"], "Block"
+ find_lex $P1544, "$name"
+.annotate 'line', 550
+ get_hll_global $P1545, ["PAST"], "Op"
+.annotate 'line', 551
+ get_hll_global $P1546, ["PAST"], "Var"
+ $P1547 = $P1546."new"("self" :named("name"), "register" :named("scope"))
+ find_lex $P1548, "$name"
+ $P1549 = $P1545."new"($P1547, $P1548, "!protoregex" :named("name"), "callmethod" :named("pasttype"))
+.annotate 'line', 550
+ find_lex $P1550, "$/"
+ $P1551 = $P1543."new"($P1549, $P1544 :named("name"), "method" :named("blocktype"), 0 :named("lexical"), $P1550 :named("node"))
+.annotate 'line', 560
+ get_hll_global $P1552, ["PAST"], "Block"
+ new $P1553, "String"
+ assign $P1553, "!PREFIX__"
+ find_lex $P1554, "$name"
+ concat $P1555, $P1553, $P1554
+.annotate 'line', 561
+ get_hll_global $P1556, ["PAST"], "Op"
+.annotate 'line', 562
+ get_hll_global $P1557, ["PAST"], "Var"
+ $P1558 = $P1557."new"("self" :named("name"), "register" :named("scope"))
+ find_lex $P1559, "$name"
+ $P1560 = $P1556."new"($P1558, $P1559, "!PREFIX__!protoregex" :named("name"), "callmethod" :named("pasttype"))
+.annotate 'line', 561
+ find_lex $P1561, "$/"
+ $P1562 = $P1552."new"($P1560, $P1555 :named("name"), "method" :named("blocktype"), 0 :named("lexical"), $P1561 :named("node"))
+.annotate 'line', 560
+ $P1563 = $P1542."new"($P1551, $P1562)
+.annotate 'line', 548
+ store_lex "$past", $P1563
+ if_1539_end:
+.annotate 'line', 600
+ find_lex $P1618, "$/"
+ find_lex $P1619, "$past"
+ $P1620 = $P1618."!make"($P1619)
+.annotate 'line', 540
+ .return ($P1620)
+ control_1524:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1621, exception, "payload"
+ .return ($P1621)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "_block1596" :anon :subid("91_1275811497.55064") :outer("89_1275811497.55064")
+.annotate 'line', 587
new $P1598, "Undef"
+ .lex "$regex", $P1598
+.annotate 'line', 588
+ get_hll_global $P1599, ["Regex";"P6Regex";"Actions"], "buildsub"
+ find_lex $P1600, "$/"
+ unless_null $P1600, vivify_501
+ $P1600 = root_new ['parrot';'Hash']
vivify_501:
- 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']
+ set $P1601, $P1600["p6regex"]
+ unless_null $P1601, vivify_502
+ new $P1601, "Undef"
vivify_502:
- set $P1610, $P1609["args"]
- unless_null $P1610, vivify_503
- new $P1610, "Undef"
+ $P1602 = $P1601."ast"()
+ get_global $P1603, "@BLOCK"
+ $P1604 = $P1603."shift"()
+ $P1605 = $P1599($P1602, $P1604)
+ store_lex "$regex", $P1605
+.annotate 'line', 589
+ find_lex $P1606, "$regex"
+ find_lex $P1607, "$name"
+ $P1606."name"($P1607)
+.annotate 'line', 591
+ get_hll_global $P1608, ["PAST"], "Op"
+.annotate 'line', 593
+ get_hll_global $P1609, ["PAST"], "Var"
+ new $P1610, "ResizablePMCArray"
+ push $P1610, "Regex"
+ $P1611 = $P1609."new"("Method" :named("name"), $P1610 :named("namespace"), "package" :named("scope"))
+ find_lex $P1612, "$regex"
+ $P1613 = $P1608."new"($P1611, $P1612, "callmethod" :named("pasttype"), "new" :named("name"))
+.annotate 'line', 591
+ store_lex "$past", $P1613
+.annotate 'line', 597
+ find_lex $P1614, "$regex"
+ find_lex $P1615, "$past"
+ unless_null $P1615, vivify_503
+ $P1615 = root_new ['parrot';'Hash']
+ store_lex "$past", $P1615
vivify_503:
- unless $P1610, if_1608_end
-.annotate 'line', 606
- find_lex $P1611, "$/"
- unless_null $P1611, vivify_504
- $P1611 = root_new ['parrot';'Hash']
+ set $P1615["sink"], $P1614
+.annotate 'line', 598
+ find_lex $P1616, "@MODIFIERS"
+ $P1617 = $P1616."shift"()
+.annotate 'line', 586
+ .return ($P1617)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "_block1568" :anon :subid("90_1275811497.55064") :outer("89_1275811497.55064")
+.annotate 'line', 574
+ $P1570 = root_new ['parrot';'Hash']
+ .lex "%h", $P1570
+.annotate 'line', 573
+ find_lex $P1571, "%h"
+.annotate 'line', 575
+ find_lex $P1573, "$/"
+ unless_null $P1573, vivify_504
+ $P1573 = root_new ['parrot';'Hash']
vivify_504:
- set $P1612, $P1611["args"]
- unless_null $P1612, vivify_505
- $P1612 = root_new ['parrot';'ResizablePMCArray']
+ set $P1574, $P1573["sym"]
+ unless_null $P1574, vivify_505
+ new $P1574, "Undef"
vivify_505:
- set $P1613, $P1612[0]
- unless_null $P1613, vivify_506
- new $P1613, "Undef"
+ set $S1575, $P1574
+ iseq $I1576, $S1575, "token"
+ unless $I1576, if_1572_end
+ new $P1577, "Integer"
+ assign $P1577, 1
+ find_lex $P1578, "%h"
+ unless_null $P1578, vivify_506
+ $P1578 = root_new ['parrot';'Hash']
+ store_lex "%h", $P1578
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
- .return ($P1619)
- control_1580:
- .local pmc exception
- .get_results (exception)
- getattribute $P1620, exception, "payload"
- .return ($P1620)
+ set $P1578["r"], $P1577
+ if_1572_end:
+.annotate 'line', 576
+ find_lex $P1580, "$/"
+ unless_null $P1580, vivify_507
+ $P1580 = root_new ['parrot';'Hash']
+ vivify_507:
+ set $P1581, $P1580["sym"]
+ unless_null $P1581, vivify_508
+ new $P1581, "Undef"
+ vivify_508:
+ set $S1582, $P1581
+ iseq $I1583, $S1582, "rule"
+ unless $I1583, if_1579_end
+ new $P1584, "Integer"
+ assign $P1584, 1
+ find_lex $P1585, "%h"
+ unless_null $P1585, vivify_509
+ $P1585 = root_new ['parrot';'Hash']
+ store_lex "%h", $P1585
+ vivify_509:
+ set $P1585["r"], $P1584
+ new $P1586, "Integer"
+ assign $P1586, 1
+ find_lex $P1587, "%h"
+ unless_null $P1587, vivify_510
+ $P1587 = root_new ['parrot';'Hash']
+ store_lex "%h", $P1587
+ vivify_510:
+ set $P1587["s"], $P1586
+ if_1579_end:
+.annotate 'line', 577
+ find_lex $P1588, "@MODIFIERS"
+ find_lex $P1589, "%h"
+ $P1588."unshift"($P1589)
+.annotate 'line', 578
+
+ $P0 = find_lex '$name'
+ set_hll_global ['Regex';'P6Regex';'Actions'], '$REGEXNAME', $P0
+
+.annotate 'line', 582
+ get_global $P1590, "@BLOCK"
+ unless_null $P1590, vivify_511
+ $P1590 = root_new ['parrot';'ResizablePMCArray']
+ vivify_511:
+ set $P1591, $P1590[0]
+ unless_null $P1591, vivify_512
+ new $P1591, "Undef"
+ vivify_512:
+ $P1591."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
+.annotate 'line', 583
+ get_global $P1592, "@BLOCK"
+ unless_null $P1592, vivify_513
+ $P1592 = root_new ['parrot';'ResizablePMCArray']
+ vivify_513:
+ set $P1593, $P1592[0]
+ unless_null $P1593, vivify_514
+ new $P1593, "Undef"
+ vivify_514:
+ $P1593."symbol"("$/", "lexical" :named("scope"))
+.annotate 'line', 584
+ new $P1594, "Exception"
+ set $P1594['type'], .CONTROL_RETURN
+ new $P1595, "Integer"
+ assign $P1595, 0
+ setattribute $P1594, 'payload', $P1595
+ throw $P1594
+.annotate 'line', 573
+ .return ()
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "dotty" :subid("92_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1625
+.annotate 'line', 604
+ new $P1624, 'ExceptionHandler'
+ set_addr $P1624, control_1623
+ $P1624."handle_types"(.CONTROL_RETURN)
+ push_eh $P1624
.lex "self", self
- .lex "$/", param_1624
-.annotate 'line', 613
- new $P1625, "Undef"
- .lex "$past", $P1625
-.annotate 'line', 614
+ .lex "$/", param_1625
+.annotate 'line', 605
new $P1626, "Undef"
- .lex "$pirop", $P1626
-.annotate 'line', 613
+ .lex "$past", $P1626
find_lex $P1629, "$/"
- unless_null $P1629, vivify_507
+ unless_null $P1629, vivify_515
$P1629 = root_new ['parrot';'Hash']
- vivify_507:
+ vivify_515:
set $P1630, $P1629["args"]
- unless_null $P1630, vivify_508
+ unless_null $P1630, vivify_516
new $P1630, "Undef"
- vivify_508:
+ vivify_516:
if $P1630, if_1628
get_hll_global $P1635, ["PAST"], "Op"
find_lex $P1636, "$/"
@@ -21856,747 +22495,756 @@
goto if_1628_end
if_1628:
find_lex $P1631, "$/"
- unless_null $P1631, vivify_509
+ unless_null $P1631, vivify_517
$P1631 = root_new ['parrot';'Hash']
- vivify_509:
- set $P1632, $P1631["args"]
- unless_null $P1632, vivify_510
- $P1632 = root_new ['parrot';'ResizablePMCArray']
- vivify_510:
- 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
- $P1642 = box $S0
-
- 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 $P1649, exception, "payload"
- .return ($P1649)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.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_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 $P1659, exception, "payload"
- .return ($P1659)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.sub "arglist" :subid("92_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1663
-.annotate 'line', 629
- .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 $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
- 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
- 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_521
- $P1719 = root_new ['parrot';'ResizablePMCArray']
+ set $P1632, $P1631["args"]
+ unless_null $P1632, vivify_518
+ $P1632 = root_new ['parrot';'ResizablePMCArray']
+ vivify_518:
+ set $P1633, $P1632[0]
+ unless_null $P1633, vivify_519
+ new $P1633, "Undef"
+ vivify_519:
+ $P1634 = $P1633."ast"()
+ set $P1627, $P1634
+ if_1628_end:
+ store_lex "$past", $P1627
+.annotate 'line', 606
+ find_lex $P1638, "$past"
+ find_lex $P1641, "$/"
+ unless_null $P1641, vivify_520
+ $P1641 = root_new ['parrot';'Hash']
+ vivify_520:
+ set $P1642, $P1641["quote"]
+ unless_null $P1642, vivify_521
+ new $P1642, "Undef"
vivify_521:
- set $P1720, $P1719[$I1718]
- unless_null $P1720, vivify_522
- new $P1720, "Undef"
+ if $P1642, if_1640
+ find_lex $P1646, "$/"
+ unless_null $P1646, vivify_522
+ $P1646 = root_new ['parrot';'Hash']
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']
+ set $P1647, $P1646["longname"]
+ unless_null $P1647, vivify_523
+ new $P1647, "Undef"
vivify_523:
- set $P1726, $P1725[$I1724]
- unless_null $P1726, vivify_524
- $P1726 = root_new ['parrot';'ResizablePMCArray']
+ set $S1648, $P1647
+ new $P1639, 'String'
+ set $P1639, $S1648
+ goto if_1640_end
+ if_1640:
+ find_lex $P1643, "$/"
+ unless_null $P1643, vivify_524
+ $P1643 = root_new ['parrot';'Hash']
vivify_524:
- set $P1727, $P1726[0]
- unless_null $P1727, vivify_525
- new $P1727, "Undef"
+ set $P1644, $P1643["quote"]
+ unless_null $P1644, vivify_525
+ new $P1644, "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:
- set $P1734, $P1733[$I1732]
- unless_null $P1734, vivify_528
- new $P1734, "Undef"
- vivify_528:
- $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:
- set $P1741, $P1740[$I1739]
- unless_null $P1741, vivify_530
- new $P1741, "Undef"
- vivify_530:
- 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:
- 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', 651
- find_lex $P1760, "$/"
- find_lex $P1761, "$past"
- $P1762 = $P1760."!make"($P1761)
-.annotate 'line', 629
- .return ($P1762)
- control_1661:
+ $P1645 = $P1644."ast"()
+ set $P1639, $P1645
+ if_1640_end:
+ $P1638."name"($P1639)
+.annotate 'line', 607
+ find_lex $P1649, "$past"
+ $P1649."pasttype"("callmethod")
+.annotate 'line', 608
+ find_lex $P1650, "$/"
+ find_lex $P1651, "$past"
+ $P1652 = $P1650."!make"($P1651)
+.annotate 'line', 604
+ .return ($P1652)
+ control_1623:
.local pmc exception
.get_results (exception)
- getattribute $P1763, exception, "payload"
- .return ($P1763)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.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 = $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_520:
-.annotate 'line', 633
- set $P1679, $P1689
- if_1680_end:
-.annotate 'line', 631
- .return ($P1679)
+ getattribute $P1653, exception, "payload"
+ .return ($P1653)
.end
.namespace ["NQP";"Actions"]
-.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)
+.include "except_types.pasm"
+.sub "term:sym<self>" :subid("93_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1657
+.annotate 'line', 613
+ new $P1656, 'ExceptionHandler'
+ set_addr $P1656, control_1655
+ $P1656."handle_types"(.CONTROL_RETURN)
+ push_eh $P1656
+ .lex "self", self
+ .lex "$/", param_1657
+.annotate 'line', 614
+ find_lex $P1658, "$/"
+ get_hll_global $P1659, ["PAST"], "Var"
+ $P1660 = $P1659."new"("self" :named("name"))
+ $P1661 = $P1658."!make"($P1660)
+.annotate 'line', 613
+ .return ($P1661)
+ control_1655:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1662, exception, "payload"
+ .return ($P1662)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "term:sym<identifier>" :subid("94_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1666
+.annotate 'line', 617
+ new $P1665, 'ExceptionHandler'
+ set_addr $P1665, control_1664
+ $P1665."handle_types"(.CONTROL_RETURN)
+ push_eh $P1665
.lex "self", self
- .lex "$/", param_1767
- find_lex $P1768, "$/"
- find_lex $P1769, "$/"
- 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:
- $P1771 = $P1770."ast"()
- $P1772 = $P1768."!make"($P1771)
- .return ($P1772)
- control_1765:
+ .lex "$/", param_1666
+.annotate 'line', 618
+ new $P1667, "Undef"
+ .lex "$past", $P1667
+ find_lex $P1668, "$/"
+ unless_null $P1668, vivify_526
+ $P1668 = root_new ['parrot';'Hash']
+ vivify_526:
+ set $P1669, $P1668["args"]
+ unless_null $P1669, vivify_527
+ new $P1669, "Undef"
+ vivify_527:
+ $P1670 = $P1669."ast"()
+ store_lex "$past", $P1670
+.annotate 'line', 619
+ find_lex $P1671, "$past"
+ find_lex $P1672, "$/"
+ unless_null $P1672, vivify_528
+ $P1672 = root_new ['parrot';'Hash']
+ vivify_528:
+ set $P1673, $P1672["identifier"]
+ unless_null $P1673, vivify_529
+ new $P1673, "Undef"
+ vivify_529:
+ set $S1674, $P1673
+ $P1671."name"($S1674)
+.annotate 'line', 620
+ find_lex $P1675, "$/"
+ find_lex $P1676, "$past"
+ $P1677 = $P1675."!make"($P1676)
+.annotate 'line', 617
+ .return ($P1677)
+ control_1664:
.local pmc exception
.get_results (exception)
- getattribute $P1773, exception, "payload"
- .return ($P1773)
+ getattribute $P1678, exception, "payload"
+ .return ($P1678)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "term:sym<name>" :subid("95_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1682
+.annotate 'line', 623
+ new $P1681, 'ExceptionHandler'
+ set_addr $P1681, control_1680
+ $P1681."handle_types"(.CONTROL_RETURN)
+ push_eh $P1681
.lex "self", self
- .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']
+ .lex "$/", param_1682
+.annotate 'line', 624
+ $P1683 = root_new ['parrot';'ResizablePMCArray']
+ .lex "@ns", $P1683
+.annotate 'line', 625
+ new $P1684, "Undef"
+ .lex "$name", $P1684
+.annotate 'line', 627
+ new $P1685, "Undef"
+ .lex "$var", $P1685
+.annotate 'line', 629
+ new $P1686, "Undef"
+ .lex "$past", $P1686
+.annotate 'line', 624
+ find_lex $P1687, "$/"
+ unless_null $P1687, vivify_530
+ $P1687 = root_new ['parrot';'Hash']
+ vivify_530:
+ set $P1688, $P1687["name"]
+ unless_null $P1688, vivify_531
+ $P1688 = root_new ['parrot';'Hash']
+ vivify_531:
+ set $P1689, $P1688["identifier"]
+ unless_null $P1689, vivify_532
+ new $P1689, "Undef"
+ vivify_532:
+ clone $P1690, $P1689
+ store_lex "@ns", $P1690
+.annotate 'line', 625
+ find_lex $P1691, "@ns"
+ $P1692 = $P1691."pop"()
+ store_lex "$name", $P1692
+.annotate 'line', 626
+ find_lex $P1696, "@ns"
+ if $P1696, if_1695
+ set $P1694, $P1696
+ goto if_1695_end
+ if_1695:
+ find_lex $P1697, "@ns"
+ unless_null $P1697, vivify_533
+ $P1697 = root_new ['parrot';'ResizablePMCArray']
+ vivify_533:
+ set $P1698, $P1697[0]
+ unless_null $P1698, vivify_534
+ new $P1698, "Undef"
+ vivify_534:
+ set $S1699, $P1698
+ iseq $I1700, $S1699, "GLOBAL"
+ new $P1694, 'Integer'
+ set $P1694, $I1700
+ if_1695_end:
+ unless $P1694, if_1693_end
+ find_lex $P1701, "@ns"
+ $P1701."shift"()
+ if_1693_end:
+.annotate 'line', 628
+ get_hll_global $P1702, ["PAST"], "Var"
+ find_lex $P1703, "$name"
+ set $S1704, $P1703
+ find_lex $P1705, "@ns"
+ $P1706 = $P1702."new"($S1704 :named("name"), $P1705 :named("namespace"), "package" :named("scope"))
+ store_lex "$var", $P1706
+.annotate 'line', 629
+ find_lex $P1707, "$var"
+ store_lex "$past", $P1707
+.annotate 'line', 630
+ find_lex $P1709, "$/"
+ unless_null $P1709, vivify_535
+ $P1709 = root_new ['parrot';'Hash']
+ vivify_535:
+ set $P1710, $P1709["args"]
+ unless_null $P1710, vivify_536
+ new $P1710, "Undef"
+ vivify_536:
+ unless $P1710, if_1708_end
+.annotate 'line', 631
+ find_lex $P1711, "$/"
+ unless_null $P1711, vivify_537
+ $P1711 = root_new ['parrot';'Hash']
vivify_537:
- set $P1782, $P1781["EXPR"]
- unless_null $P1782, vivify_538
- new $P1782, "Undef"
+ set $P1712, $P1711["args"]
+ unless_null $P1712, vivify_538
+ $P1712 = root_new ['parrot';'ResizablePMCArray']
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']
+ set $P1713, $P1712[0]
+ unless_null $P1713, vivify_539
+ new $P1713, "Undef"
vivify_539:
- set $P1784, $P1783["EXPR"]
- unless_null $P1784, vivify_540
- $P1784 = root_new ['parrot';'ResizablePMCArray']
- vivify_540:
- set $P1785, $P1784[0]
- unless_null $P1785, vivify_541
- new $P1785, "Undef"
- vivify_541:
- $P1786 = $P1785."ast"()
- set $P1779, $P1786
- if_1780_end:
- $P1790 = $P1778."!make"($P1779)
-.annotate 'line', 657
- .return ($P1790)
- control_1775:
+ $P1714 = $P1713."ast"()
+ store_lex "$past", $P1714
+.annotate 'line', 632
+ find_lex $P1715, "$past"
+ find_lex $P1716, "$var"
+ $P1715."unshift"($P1716)
+ if_1708_end:
+.annotate 'line', 634
+ find_lex $P1717, "$/"
+ find_lex $P1718, "$past"
+ $P1719 = $P1717."!make"($P1718)
+.annotate 'line', 623
+ .return ($P1719)
+ control_1680:
.local pmc exception
.get_results (exception)
- getattribute $P1791, exception, "payload"
- .return ($P1791)
+ getattribute $P1720, exception, "payload"
+ .return ($P1720)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "term:sym<pir::op>" :subid("96_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1724
+.annotate 'line', 637
+ new $P1723, 'ExceptionHandler'
+ set_addr $P1723, control_1722
+ $P1723."handle_types"(.CONTROL_RETURN)
+ push_eh $P1723
.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']
+ .lex "$/", param_1724
+.annotate 'line', 638
+ new $P1725, "Undef"
+ .lex "$past", $P1725
+.annotate 'line', 639
+ new $P1726, "Undef"
+ .lex "$pirop", $P1726
+.annotate 'line', 638
+ find_lex $P1729, "$/"
+ unless_null $P1729, vivify_540
+ $P1729 = root_new ['parrot';'Hash']
+ vivify_540:
+ set $P1730, $P1729["args"]
+ unless_null $P1730, vivify_541
+ new $P1730, "Undef"
+ vivify_541:
+ if $P1730, if_1728
+ get_hll_global $P1735, ["PAST"], "Op"
+ find_lex $P1736, "$/"
+ $P1737 = $P1735."new"($P1736 :named("node"))
+ set $P1727, $P1737
+ goto if_1728_end
+ if_1728:
+ find_lex $P1731, "$/"
+ unless_null $P1731, vivify_542
+ $P1731 = root_new ['parrot';'Hash']
vivify_542:
- set $P1800, $P1799["EXPR"]
- unless_null $P1800, vivify_543
- new $P1800, "Undef"
+ set $P1732, $P1731["args"]
+ unless_null $P1732, vivify_543
+ $P1732 = root_new ['parrot';'ResizablePMCArray']
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']
+ set $P1733, $P1732[0]
+ unless_null $P1733, vivify_544
+ new $P1733, "Undef"
vivify_544:
- set $P1802, $P1801["EXPR"]
- unless_null $P1802, vivify_545
- $P1802 = root_new ['parrot';'ResizablePMCArray']
+ $P1734 = $P1733."ast"()
+ set $P1727, $P1734
+ if_1728_end:
+ store_lex "$past", $P1727
+.annotate 'line', 639
+ find_lex $P1738, "$/"
+ unless_null $P1738, vivify_545
+ $P1738 = root_new ['parrot';'Hash']
vivify_545:
- set $P1803, $P1802[0]
- unless_null $P1803, vivify_546
- new $P1803, "Undef"
+ set $P1739, $P1738["op"]
+ unless_null $P1739, vivify_546
+ new $P1739, "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 $P1818, exception, "payload"
- .return ($P1818)
+ set $S1740, $P1739
+ new $P1741, 'String'
+ set $P1741, $S1740
+ store_lex "$pirop", $P1741
+.annotate 'line', 640
+
+ $P0 = find_lex '$pirop'
+ $S0 = $P0
+ $P0 = split '__', $S0
+ $S0 = join ' ', $P0
+ $P1742 = box $S0
+
+ store_lex "$pirop", $P1742
+.annotate 'line', 647
+ find_lex $P1743, "$past"
+ find_lex $P1744, "$pirop"
+ $P1743."pirop"($P1744)
+.annotate 'line', 648
+ find_lex $P1745, "$past"
+ $P1745."pasttype"("pirop")
+.annotate 'line', 649
+ find_lex $P1746, "$/"
+ find_lex $P1747, "$past"
+ $P1748 = $P1746."!make"($P1747)
+.annotate 'line', 637
+ .return ($P1748)
+ control_1722:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1749, exception, "payload"
+ .return ($P1749)
.end
.namespace ["NQP";"Actions"]
-.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_1822
- find_lex $P1823, "$/"
- find_lex $P1824, "$/"
- unless_null $P1824, vivify_547
- $P1824 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "args" :subid("97_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1753
+.annotate 'line', 652
+ new $P1752, 'ExceptionHandler'
+ set_addr $P1752, control_1751
+ $P1752."handle_types"(.CONTROL_RETURN)
+ push_eh $P1752
+ .lex "self", self
+ .lex "$/", param_1753
+ find_lex $P1754, "$/"
+ find_lex $P1755, "$/"
+ unless_null $P1755, vivify_547
+ $P1755 = root_new ['parrot';'Hash']
vivify_547:
- set $P1825, $P1824["quote_EXPR"]
- unless_null $P1825, vivify_548
- new $P1825, "Undef"
+ set $P1756, $P1755["arglist"]
+ unless_null $P1756, vivify_548
+ new $P1756, "Undef"
vivify_548:
- $P1826 = $P1825."ast"()
- $P1827 = $P1823."!make"($P1826)
- .return ($P1827)
- control_1820:
+ $P1757 = $P1756."ast"()
+ $P1758 = $P1754."!make"($P1757)
+ .return ($P1758)
+ control_1751:
.local pmc exception
.get_results (exception)
- getattribute $P1828, exception, "payload"
- .return ($P1828)
+ getattribute $P1759, exception, "payload"
+ .return ($P1759)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "arglist" :subid("98_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1763
+.annotate 'line', 654
+ .const 'Sub' $P1774 = "99_1275811497.55064"
+ capture_lex $P1774
+ new $P1762, 'ExceptionHandler'
+ set_addr $P1762, control_1761
+ $P1762."handle_types"(.CONTROL_RETURN)
+ push_eh $P1762
.lex "self", self
- .lex "$/", param_1832
- find_lex $P1833, "$/"
- find_lex $P1834, "$/"
- unless_null $P1834, vivify_549
- $P1834 = root_new ['parrot';'Hash']
+ .lex "$/", param_1763
+.annotate 'line', 655
+ new $P1764, "Undef"
+ .lex "$past", $P1764
+.annotate 'line', 663
+ new $P1765, "Undef"
+ .lex "$i", $P1765
+.annotate 'line', 664
+ new $P1766, "Undef"
+ .lex "$n", $P1766
+.annotate 'line', 655
+ get_hll_global $P1767, ["PAST"], "Op"
+ find_lex $P1768, "$/"
+ $P1769 = $P1767."new"("call" :named("pasttype"), $P1768 :named("node"))
+ store_lex "$past", $P1769
+.annotate 'line', 656
+ find_lex $P1771, "$/"
+ unless_null $P1771, vivify_549
+ $P1771 = root_new ['parrot';'Hash']
vivify_549:
- set $P1835, $P1834["quote_EXPR"]
- unless_null $P1835, vivify_550
- new $P1835, "Undef"
+ set $P1772, $P1771["EXPR"]
+ unless_null $P1772, vivify_550
+ new $P1772, "Undef"
vivify_550:
- $P1836 = $P1835."ast"()
- $P1837 = $P1833."!make"($P1836)
- .return ($P1837)
- control_1830:
+ unless $P1772, if_1770_end
+ .const 'Sub' $P1774 = "99_1275811497.55064"
+ capture_lex $P1774
+ $P1774()
+ if_1770_end:
+.annotate 'line', 663
+ new $P1806, "Integer"
+ assign $P1806, 0
+ store_lex "$i", $P1806
+.annotate 'line', 664
+ find_lex $P1807, "$past"
+ $P1808 = $P1807."list"()
+ set $N1809, $P1808
+ new $P1810, 'Float'
+ set $P1810, $N1809
+ store_lex "$n", $P1810
+.annotate 'line', 665
+ new $P1858, 'ExceptionHandler'
+ set_addr $P1858, loop1857_handler
+ $P1858."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1858
+ loop1857_test:
+ find_lex $P1811, "$i"
+ set $N1812, $P1811
+ find_lex $P1813, "$n"
+ set $N1814, $P1813
+ islt $I1815, $N1812, $N1814
+ unless $I1815, loop1857_done
+ loop1857_redo:
+.annotate 'line', 666
+ find_lex $P1817, "$i"
+ set $I1818, $P1817
+ find_lex $P1819, "$past"
+ unless_null $P1819, vivify_554
+ $P1819 = root_new ['parrot';'ResizablePMCArray']
+ vivify_554:
+ set $P1820, $P1819[$I1818]
+ unless_null $P1820, vivify_555
+ new $P1820, "Undef"
+ vivify_555:
+ $S1821 = $P1820."name"()
+ iseq $I1822, $S1821, "&prefix:<|>"
+ unless $I1822, if_1816_end
+.annotate 'line', 667
+ find_lex $P1823, "$i"
+ set $I1824, $P1823
+ find_lex $P1825, "$past"
+ unless_null $P1825, vivify_556
+ $P1825 = root_new ['parrot';'ResizablePMCArray']
+ vivify_556:
+ set $P1826, $P1825[$I1824]
+ unless_null $P1826, vivify_557
+ $P1826 = root_new ['parrot';'ResizablePMCArray']
+ vivify_557:
+ set $P1827, $P1826[0]
+ unless_null $P1827, vivify_558
+ new $P1827, "Undef"
+ vivify_558:
+ find_lex $P1828, "$i"
+ set $I1829, $P1828
+ find_lex $P1830, "$past"
+ unless_null $P1830, vivify_559
+ $P1830 = root_new ['parrot';'ResizablePMCArray']
+ store_lex "$past", $P1830
+ vivify_559:
+ set $P1830[$I1829], $P1827
+.annotate 'line', 668
+ find_lex $P1831, "$i"
+ set $I1832, $P1831
+ find_lex $P1833, "$past"
+ unless_null $P1833, vivify_560
+ $P1833 = root_new ['parrot';'ResizablePMCArray']
+ vivify_560:
+ set $P1834, $P1833[$I1832]
+ unless_null $P1834, vivify_561
+ new $P1834, "Undef"
+ vivify_561:
+ $P1834."flat"(1)
+.annotate 'line', 669
+ find_lex $P1838, "$i"
+ set $I1839, $P1838
+ find_lex $P1840, "$past"
+ unless_null $P1840, vivify_562
+ $P1840 = root_new ['parrot';'ResizablePMCArray']
+ vivify_562:
+ set $P1841, $P1840[$I1839]
+ unless_null $P1841, vivify_563
+ new $P1841, "Undef"
+ vivify_563:
+ get_hll_global $P1842, ["PAST"], "Val"
+ $P1843 = $P1841."isa"($P1842)
+ if $P1843, if_1837
+ set $P1836, $P1843
+ goto if_1837_end
+ if_1837:
+.annotate 'line', 670
+ find_lex $P1844, "$i"
+ set $I1845, $P1844
+ find_lex $P1846, "$past"
+ unless_null $P1846, vivify_564
+ $P1846 = root_new ['parrot';'ResizablePMCArray']
+ vivify_564:
+ set $P1847, $P1846[$I1845]
+ unless_null $P1847, vivify_565
+ new $P1847, "Undef"
+ vivify_565:
+ $S1848 = $P1847."name"()
+ substr $S1849, $S1848, 0, 1
+ iseq $I1850, $S1849, "%"
+ new $P1836, 'Integer'
+ set $P1836, $I1850
+ if_1837_end:
+ unless $P1836, if_1835_end
+.annotate 'line', 671
+ find_lex $P1851, "$i"
+ set $I1852, $P1851
+ find_lex $P1853, "$past"
+ unless_null $P1853, vivify_566
+ $P1853 = root_new ['parrot';'ResizablePMCArray']
+ vivify_566:
+ set $P1854, $P1853[$I1852]
+ unless_null $P1854, vivify_567
+ new $P1854, "Undef"
+ vivify_567:
+ $P1854."named"(1)
+ if_1835_end:
+ if_1816_end:
+.annotate 'line', 666
+ find_lex $P1855, "$i"
+ clone $P1856, $P1855
+ inc $P1855
+ loop1857_next:
+.annotate 'line', 665
+ goto loop1857_test
+ loop1857_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1859, exception, 'type'
+ eq $P1859, .CONTROL_LOOP_NEXT, loop1857_next
+ eq $P1859, .CONTROL_LOOP_REDO, loop1857_redo
+ loop1857_done:
+ pop_eh
+.annotate 'line', 676
+ find_lex $P1860, "$/"
+ find_lex $P1861, "$past"
+ $P1862 = $P1860."!make"($P1861)
+.annotate 'line', 654
+ .return ($P1862)
+ control_1761:
.local pmc exception
.get_results (exception)
- getattribute $P1838, exception, "payload"
- .return ($P1838)
+ getattribute $P1863, exception, "payload"
+ .return ($P1863)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<{ }>" :subid("100_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1842
-.annotate 'line', 681
- 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']
+.include "except_types.pasm"
+.sub "_block1773" :anon :subid("99_1275811497.55064") :outer("98_1275811497.55064")
+.annotate 'line', 656
+ .const 'Sub' $P1795 = "100_1275811497.55064"
+ capture_lex $P1795
+.annotate 'line', 657
+ new $P1775, "Undef"
+ .lex "$expr", $P1775
+ find_lex $P1776, "$/"
+ unless_null $P1776, vivify_551
+ $P1776 = root_new ['parrot';'Hash']
vivify_551:
- set $P1847, $P1846["pblock"]
- unless_null $P1847, vivify_552
- $P1847 = root_new ['parrot';'Hash']
+ set $P1777, $P1776["EXPR"]
+ unless_null $P1777, vivify_552
+ new $P1777, "Undef"
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 $P1854, $P1853["pblock"]
- unless_null $P1854, vivify_557
- new $P1854, "Undef"
- vivify_557:
- $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 $P1858["bareblock"], $P1857
-.annotate 'line', 686
- find_lex $P1859, "$/"
- find_lex $P1860, "$past"
- $P1861 = $P1859."!make"($P1860)
-.annotate 'line', 681
- .return ($P1861)
- control_1840:
+ $P1778 = $P1777."ast"()
+ store_lex "$expr", $P1778
+.annotate 'line', 658
+ find_lex $P1783, "$expr"
+ $S1784 = $P1783."name"()
+ iseq $I1785, $S1784, "&infix:<,>"
+ if $I1785, if_1782
+ new $P1781, 'Integer'
+ set $P1781, $I1785
+ goto if_1782_end
+ if_1782:
+ find_lex $P1786, "$expr"
+ $P1787 = $P1786."named"()
+ isfalse $I1788, $P1787
+ new $P1781, 'Integer'
+ set $P1781, $I1788
+ if_1782_end:
+ if $P1781, if_1780
+.annotate 'line', 661
+ find_lex $P1803, "$past"
+ find_lex $P1804, "$expr"
+ $P1805 = $P1803."push"($P1804)
+ set $P1779, $P1805
+.annotate 'line', 658
+ goto if_1780_end
+ if_1780:
+.annotate 'line', 659
+ find_lex $P1790, "$expr"
+ $P1791 = $P1790."list"()
+ defined $I1792, $P1791
+ unless $I1792, for_undef_553
+ iter $P1789, $P1791
+ new $P1801, 'ExceptionHandler'
+ set_addr $P1801, loop1800_handler
+ $P1801."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1801
+ loop1800_test:
+ unless $P1789, loop1800_done
+ shift $P1793, $P1789
+ loop1800_redo:
+ .const 'Sub' $P1795 = "100_1275811497.55064"
+ capture_lex $P1795
+ $P1795($P1793)
+ loop1800_next:
+ goto loop1800_test
+ loop1800_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1802, exception, 'type'
+ eq $P1802, .CONTROL_LOOP_NEXT, loop1800_next
+ eq $P1802, .CONTROL_LOOP_REDO, loop1800_redo
+ loop1800_done:
+ pop_eh
+ for_undef_553:
+.annotate 'line', 658
+ set $P1779, $P1789
+ if_1780_end:
+.annotate 'line', 656
+ .return ($P1779)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.sub "_block1794" :anon :subid("100_1275811497.55064") :outer("99_1275811497.55064")
+ .param pmc param_1796
+.annotate 'line', 659
+ .lex "$_", param_1796
+ find_lex $P1797, "$past"
+ find_lex $P1798, "$_"
+ $P1799 = $P1797."push"($P1798)
+ .return ($P1799)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "term:sym<value>" :subid("101_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1867
+.annotate 'line', 680
+ new $P1866, 'ExceptionHandler'
+ set_addr $P1866, control_1865
+ $P1866."handle_types"(.CONTROL_RETURN)
+ push_eh $P1866
+ .lex "self", self
+ .lex "$/", param_1867
+ find_lex $P1868, "$/"
+ find_lex $P1869, "$/"
+ unless_null $P1869, vivify_568
+ $P1869 = root_new ['parrot';'Hash']
+ vivify_568:
+ set $P1870, $P1869["value"]
+ unless_null $P1870, vivify_569
+ new $P1870, "Undef"
+ vivify_569:
+ $P1871 = $P1870."ast"()
+ $P1872 = $P1868."!make"($P1871)
+ .return ($P1872)
+ control_1865:
.local pmc exception
.get_results (exception)
- getattribute $P1862, exception, "payload"
- .return ($P1862)
+ getattribute $P1873, exception, "payload"
+ .return ($P1873)
.end
.namespace ["NQP";"Actions"]
-.sub "circumfix:sym<sigil>" :subid("101_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1866
-.annotate 'line', 689
- new $P1865, 'ExceptionHandler'
- set_addr $P1865, control_1864
- $P1865."handle_types"(57)
- push_eh $P1865
+.include "except_types.pasm"
+.sub "circumfix:sym<( )>" :subid("102_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1877
+.annotate 'line', 682
+ new $P1876, 'ExceptionHandler'
+ set_addr $P1876, control_1875
+ $P1876."handle_types"(.CONTROL_RETURN)
+ push_eh $P1876
.lex "self", self
- .lex "$/", param_1866
-.annotate 'line', 690
- 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
- 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
+ .lex "$/", param_1877
+.annotate 'line', 683
+ find_lex $P1878, "$/"
+.annotate 'line', 684
+ find_lex $P1881, "$/"
+ unless_null $P1881, vivify_570
+ $P1881 = root_new ['parrot';'Hash']
+ vivify_570:
+ set $P1882, $P1881["EXPR"]
+ unless_null $P1882, vivify_571
+ new $P1882, "Undef"
+ vivify_571:
+ if $P1882, if_1880
+.annotate 'line', 685
+ get_hll_global $P1887, ["PAST"], "Op"
+ find_lex $P1888, "$/"
+ $P1889 = $P1887."new"("list" :named("pasttype"), $P1888 :named("node"))
+ set $P1879, $P1889
+.annotate 'line', 684
+ goto if_1880_end
+ if_1880:
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
+ unless_null $P1883, vivify_572
+ $P1883 = root_new ['parrot';'Hash']
+ vivify_572:
+ set $P1884, $P1883["EXPR"]
+ unless_null $P1884, vivify_573
+ $P1884 = root_new ['parrot';'ResizablePMCArray']
+ vivify_573:
+ set $P1885, $P1884[0]
+ unless_null $P1885, vivify_574
+ new $P1885, "Undef"
+ vivify_574:
+ $P1886 = $P1885."ast"()
+ set $P1879, $P1886
+ if_1880_end:
+ $P1890 = $P1878."!make"($P1879)
+.annotate 'line', 682
.return ($P1890)
- control_1864:
+ control_1875:
.local pmc exception
.get_results (exception)
getattribute $P1891, exception, "payload"
@@ -22605,1234 +23253,1565 @@
.namespace ["NQP";"Actions"]
-.sub "semilist" :subid("102_1275117616.72633") :method :outer("11_1275117616.72633")
+.include "except_types.pasm"
+.sub "circumfix:sym<[ ]>" :subid("103_1275811497.55064") :method :outer("11_1275811497.55064")
.param pmc param_1895
-.annotate 'line', 696
+.annotate 'line', 688
new $P1894, 'ExceptionHandler'
set_addr $P1894, control_1893
- $P1894."handle_types"(57)
+ $P1894."handle_types"(.CONTROL_RETURN)
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:
- $P1899 = $P1898."ast"()
- $P1900 = $P1896."!make"($P1899)
- .return ($P1900)
+.annotate 'line', 689
+ new $P1896, "Undef"
+ .lex "$past", $P1896
+.annotate 'line', 688
+ find_lex $P1897, "$past"
+.annotate 'line', 690
+ find_lex $P1899, "$/"
+ unless_null $P1899, vivify_575
+ $P1899 = root_new ['parrot';'Hash']
+ vivify_575:
+ set $P1900, $P1899["EXPR"]
+ unless_null $P1900, vivify_576
+ new $P1900, "Undef"
+ vivify_576:
+ if $P1900, if_1898
+.annotate 'line', 697
+ get_hll_global $P1912, ["PAST"], "Op"
+ $P1913 = $P1912."new"("list" :named("pasttype"))
+ store_lex "$past", $P1913
+.annotate 'line', 696
+ goto if_1898_end
+ if_1898:
+.annotate 'line', 691
+ find_lex $P1901, "$/"
+ unless_null $P1901, vivify_577
+ $P1901 = root_new ['parrot';'Hash']
+ vivify_577:
+ set $P1902, $P1901["EXPR"]
+ unless_null $P1902, vivify_578
+ $P1902 = root_new ['parrot';'ResizablePMCArray']
+ vivify_578:
+ set $P1903, $P1902[0]
+ unless_null $P1903, vivify_579
+ new $P1903, "Undef"
+ vivify_579:
+ $P1904 = $P1903."ast"()
+ store_lex "$past", $P1904
+.annotate 'line', 692
+ find_lex $P1906, "$past"
+ $S1907 = $P1906."name"()
+ isne $I1908, $S1907, "&infix:<,>"
+ unless $I1908, if_1905_end
+.annotate 'line', 693
+ get_hll_global $P1909, ["PAST"], "Op"
+ find_lex $P1910, "$past"
+ $P1911 = $P1909."new"($P1910, "list" :named("pasttype"))
+ store_lex "$past", $P1911
+ if_1905_end:
+ if_1898_end:
+.annotate 'line', 699
+ find_lex $P1914, "$past"
+ $P1914."name"("&circumfix:<[ ]>")
+.annotate 'line', 700
+ find_lex $P1915, "$/"
+ find_lex $P1916, "$past"
+ $P1917 = $P1915."!make"($P1916)
+.annotate 'line', 688
+ .return ($P1917)
control_1893:
.local pmc exception
.get_results (exception)
- getattribute $P1901, exception, "payload"
- .return ($P1901)
+ getattribute $P1918, exception, "payload"
+ .return ($P1918)
.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
- $P1908 = root_new ['parrot';'Hash']
- vivify_567:
- 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
- .return ($P1913)
- control_1903:
+.include "except_types.pasm"
+.sub "circumfix:sym<ang>" :subid("104_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1922
+.annotate 'line', 703
+ new $P1921, 'ExceptionHandler'
+ set_addr $P1921, control_1920
+ $P1921."handle_types"(.CONTROL_RETURN)
+ push_eh $P1921
+ .lex "self", self
+ .lex "$/", param_1922
+ find_lex $P1923, "$/"
+ find_lex $P1924, "$/"
+ unless_null $P1924, vivify_580
+ $P1924 = root_new ['parrot';'Hash']
+ vivify_580:
+ set $P1925, $P1924["quote_EXPR"]
+ unless_null $P1925, vivify_581
+ new $P1925, "Undef"
+ vivify_581:
+ $P1926 = $P1925."ast"()
+ $P1927 = $P1923."!make"($P1926)
+ .return ($P1927)
+ control_1920:
.local pmc exception
.get_results (exception)
- getattribute $P1914, exception, "payload"
- .return ($P1914)
+ getattribute $P1928, exception, "payload"
+ .return ($P1928)
.end
.namespace ["NQP";"Actions"]
-.sub "postcircumfix:sym<{ }>" :subid("104_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_1918
+.include "except_types.pasm"
+.sub unicode:"circumfix:sym<\x{ab} \x{bb}>" :subid("105_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1932
.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
- $P1921 = root_new ['parrot';'Hash']
- vivify_569:
- 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
- .return ($P1926)
- control_1916:
- .local pmc exception
- .get_results (exception)
- getattribute $P1927, exception, "payload"
- .return ($P1927)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.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
+ new $P1931, 'ExceptionHandler'
+ set_addr $P1931, control_1930
+ $P1931."handle_types"(.CONTROL_RETURN)
+ push_eh $P1931
.lex "self", self
- .lex "$/", param_1931
-.annotate 'line', 711
- find_lex $P1932, "$/"
- get_hll_global $P1933, ["PAST"], "Var"
+ .lex "$/", param_1932
+ find_lex $P1933, "$/"
find_lex $P1934, "$/"
- unless_null $P1934, vivify_571
+ unless_null $P1934, vivify_582
$P1934 = root_new ['parrot';'Hash']
- vivify_571:
+ vivify_582:
set $P1935, $P1934["quote_EXPR"]
- unless_null $P1935, vivify_572
+ unless_null $P1935, vivify_583
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 $P1940, exception, "payload"
- .return ($P1940)
-.end
-
-
-.namespace ["NQP";"Actions"]
-.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_573
- $P1946 = root_new ['parrot';'Hash']
- vivify_573:
- set $P1947, $P1946["arglist"]
- unless_null $P1947, vivify_574
- new $P1947, "Undef"
- vivify_574:
- $P1948 = $P1947."ast"()
- $P1949 = $P1945."!make"($P1948)
-.annotate 'line', 716
- .return ($P1949)
- control_1942:
+ vivify_583:
+ $P1936 = $P1935."ast"()
+ $P1937 = $P1933."!make"($P1936)
+ .return ($P1937)
+ control_1930:
.local pmc exception
.get_results (exception)
- getattribute $P1950, exception, "payload"
- .return ($P1950)
+ getattribute $P1938, exception, "payload"
+ .return ($P1938)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "circumfix:sym<{ }>" :subid("106_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1942
+.annotate 'line', 706
+ new $P1941, 'ExceptionHandler'
+ set_addr $P1941, control_1940
+ $P1941."handle_types"(.CONTROL_RETURN)
+ push_eh $P1941
.lex "self", self
- .lex "$/", param_1954
-.annotate 'line', 721
- find_lex $P1955, "$/"
- find_lex $P1958, "$/"
- unless_null $P1958, vivify_575
+ .lex "$/", param_1942
+.annotate 'line', 707
+ new $P1943, "Undef"
+ .lex "$past", $P1943
+ find_lex $P1946, "$/"
+ unless_null $P1946, vivify_584
+ $P1946 = root_new ['parrot';'Hash']
+ vivify_584:
+ set $P1947, $P1946["pblock"]
+ unless_null $P1947, vivify_585
+ $P1947 = root_new ['parrot';'Hash']
+ vivify_585:
+ set $P1948, $P1947["blockoid"]
+ unless_null $P1948, vivify_586
+ $P1948 = root_new ['parrot';'Hash']
+ vivify_586:
+ set $P1949, $P1948["statementlist"]
+ unless_null $P1949, vivify_587
+ $P1949 = root_new ['parrot';'Hash']
+ vivify_587:
+ set $P1950, $P1949["statement"]
+ unless_null $P1950, vivify_588
+ new $P1950, "Undef"
+ vivify_588:
+ set $N1951, $P1950
+ isgt $I1952, $N1951, 0.0
+ if $I1952, if_1945
+.annotate 'line', 709
+ $P1956 = "vivitype"("%")
+ set $P1944, $P1956
+.annotate 'line', 707
+ goto if_1945_end
+ if_1945:
+.annotate 'line', 708
+ find_lex $P1953, "$/"
+ unless_null $P1953, vivify_589
+ $P1953 = root_new ['parrot';'Hash']
+ vivify_589:
+ set $P1954, $P1953["pblock"]
+ unless_null $P1954, vivify_590
+ new $P1954, "Undef"
+ vivify_590:
+ $P1955 = $P1954."ast"()
+ set $P1944, $P1955
+ if_1945_end:
+ store_lex "$past", $P1944
+.annotate 'line', 710
+ new $P1957, "Integer"
+ assign $P1957, 1
+ find_lex $P1958, "$past"
+ unless_null $P1958, vivify_591
$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_577
- $P1963 = root_new ['parrot';'Hash']
- vivify_577:
- set $P1964, $P1963["number"]
- unless_null $P1964, vivify_578
- new $P1964, "Undef"
- vivify_578:
- $P1965 = $P1964."ast"()
- 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 $P1967, exception, "payload"
- .return ($P1967)
+ store_lex "$past", $P1958
+ vivify_591:
+ set $P1958["bareblock"], $P1957
+.annotate 'line', 711
+ find_lex $P1959, "$/"
+ find_lex $P1960, "$past"
+ $P1961 = $P1959."!make"($P1960)
+.annotate 'line', 706
+ .return ($P1961)
+ control_1940:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1962, exception, "payload"
+ .return ($P1962)
.end
.namespace ["NQP";"Actions"]
-.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:
+.include "except_types.pasm"
+.sub "circumfix:sym<sigil>" :subid("107_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1966
+.annotate 'line', 714
+ new $P1965, 'ExceptionHandler'
+ set_addr $P1965, control_1964
+ $P1965."handle_types"(.CONTROL_RETURN)
+ push_eh $P1965
+ .lex "self", self
+ .lex "$/", param_1966
+.annotate 'line', 715
+ new $P1967, "Undef"
+ .lex "$name", $P1967
+ find_lex $P1970, "$/"
+ unless_null $P1970, vivify_592
+ $P1970 = root_new ['parrot';'Hash']
+ vivify_592:
+ set $P1971, $P1970["sigil"]
+ unless_null $P1971, vivify_593
+ new $P1971, "Undef"
+ vivify_593:
+ set $S1972, $P1971
+ iseq $I1973, $S1972, "@"
+ if $I1973, if_1969
+.annotate 'line', 716
find_lex $P1977, "$/"
- unless_null $P1977, vivify_585
+ unless_null $P1977, vivify_594
$P1977 = root_new ['parrot';'Hash']
- vivify_585:
- set $P1978, $P1977["dec_number"]
- unless_null $P1978, vivify_586
+ vivify_594:
+ set $P1978, $P1977["sigil"]
+ unless_null $P1978, vivify_595
new $P1978, "Undef"
- vivify_586:
- $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:
- 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:
+ vivify_595:
+ set $S1979, $P1978
+ iseq $I1980, $S1979, "%"
+ if $I1980, if_1976
+ new $P1982, "String"
+ assign $P1982, "item"
+ set $P1975, $P1982
+ goto if_1976_end
+ if_1976:
+ new $P1981, "String"
+ assign $P1981, "hash"
+ set $P1975, $P1981
+ if_1976_end:
+ set $P1968, $P1975
+.annotate 'line', 715
+ goto if_1969_end
+ if_1969:
+ new $P1974, "String"
+ assign $P1974, "list"
+ set $P1968, $P1974
+ if_1969_end:
+ store_lex "$name", $P1968
+.annotate 'line', 718
+ find_lex $P1983, "$/"
+ get_hll_global $P1984, ["PAST"], "Op"
+ find_lex $P1985, "$name"
+ find_lex $P1986, "$/"
+ unless_null $P1986, vivify_596
+ $P1986 = root_new ['parrot';'Hash']
+ vivify_596:
+ set $P1987, $P1986["semilist"]
+ unless_null $P1987, vivify_597
+ new $P1987, "Undef"
+ vivify_597:
+ $P1988 = $P1987."ast"()
+ $P1989 = $P1984."new"($P1988, "callmethod" :named("pasttype"), $P1985 :named("name"))
+ $P1990 = $P1983."!make"($P1989)
+.annotate 'line', 714
+ .return ($P1990)
+ control_1964:
.local pmc exception
.get_results (exception)
- getattribute $P1995, exception, "payload"
- .return ($P1995)
+ getattribute $P1991, exception, "payload"
+ .return ($P1991)
.end
.namespace ["NQP";"Actions"]
-.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_1999
- find_lex $P2000, "$/"
- find_lex $P2001, "$/"
- unless_null $P2001, vivify_589
- $P2001 = root_new ['parrot';'Hash']
- vivify_589:
- 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:
+.include "except_types.pasm"
+.sub "semilist" :subid("108_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_1995
+.annotate 'line', 721
+ new $P1994, 'ExceptionHandler'
+ set_addr $P1994, control_1993
+ $P1994."handle_types"(.CONTROL_RETURN)
+ push_eh $P1994
+ .lex "self", self
+ .lex "$/", param_1995
+ find_lex $P1996, "$/"
+ find_lex $P1997, "$/"
+ unless_null $P1997, vivify_598
+ $P1997 = root_new ['parrot';'Hash']
+ vivify_598:
+ set $P1998, $P1997["statement"]
+ unless_null $P1998, vivify_599
+ new $P1998, "Undef"
+ vivify_599:
+ $P1999 = $P1998."ast"()
+ $P2000 = $P1996."!make"($P1999)
+ .return ($P2000)
+ control_1993:
.local pmc exception
.get_results (exception)
- getattribute $P2005, exception, "payload"
- .return ($P2005)
+ getattribute $P2001, exception, "payload"
+ .return ($P2001)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "postcircumfix:sym<[ ]>" :subid("109_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2005
+.annotate 'line', 723
+ new $P2004, 'ExceptionHandler'
+ set_addr $P2004, control_2003
+ $P2004."handle_types"(.CONTROL_RETURN)
+ push_eh $P2004
.lex "self", self
- .lex "$/", param_2009
- find_lex $P2010, "$/"
- find_lex $P2011, "$/"
- unless_null $P2011, vivify_591
- $P2011 = root_new ['parrot';'Hash']
- vivify_591:
- 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:
+ .lex "$/", param_2005
+.annotate 'line', 724
+ find_lex $P2006, "$/"
+ get_hll_global $P2007, ["PAST"], "Var"
+ find_lex $P2008, "$/"
+ unless_null $P2008, vivify_600
+ $P2008 = root_new ['parrot';'Hash']
+ vivify_600:
+ set $P2009, $P2008["EXPR"]
+ unless_null $P2009, vivify_601
+ new $P2009, "Undef"
+ vivify_601:
+ $P2010 = $P2009."ast"()
+.annotate 'line', 726
+ $P2011 = "vivitype"("@")
+ $P2012 = $P2007."new"($P2010, "keyed_int" :named("scope"), "Undef" :named("viviself"), $P2011 :named("vivibase"))
+.annotate 'line', 724
+ $P2013 = $P2006."!make"($P2012)
+.annotate 'line', 723
+ .return ($P2013)
+ control_2003:
.local pmc exception
.get_results (exception)
- getattribute $P2015, exception, "payload"
- .return ($P2015)
+ getattribute $P2014, exception, "payload"
+ .return ($P2014)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "postcircumfix:sym<{ }>" :subid("110_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2018
+.annotate 'line', 729
+ new $P2017, 'ExceptionHandler'
+ set_addr $P2017, control_2016
+ $P2017."handle_types"(.CONTROL_RETURN)
+ push_eh $P2017
.lex "self", self
- .lex "$/", param_2019
- find_lex $P2020, "$/"
+ .lex "$/", param_2018
+.annotate 'line', 730
+ find_lex $P2019, "$/"
+ get_hll_global $P2020, ["PAST"], "Var"
find_lex $P2021, "$/"
- unless_null $P2021, vivify_593
+ unless_null $P2021, vivify_602
$P2021 = root_new ['parrot';'Hash']
- vivify_593:
- set $P2022, $P2021["quote_EXPR"]
- unless_null $P2022, vivify_594
+ vivify_602:
+ set $P2022, $P2021["EXPR"]
+ unless_null $P2022, vivify_603
new $P2022, "Undef"
- vivify_594:
+ vivify_603:
$P2023 = $P2022."ast"()
- $P2024 = $P2020."!make"($P2023)
- .return ($P2024)
- control_2017:
+.annotate 'line', 732
+ $P2024 = "vivitype"("%")
+ $P2025 = $P2020."new"($P2023, "keyed" :named("scope"), "Undef" :named("viviself"), $P2024 :named("vivibase"))
+.annotate 'line', 730
+ $P2026 = $P2019."!make"($P2025)
+.annotate 'line', 729
+ .return ($P2026)
+ control_2016:
.local pmc exception
.get_results (exception)
- getattribute $P2025, exception, "payload"
- .return ($P2025)
+ getattribute $P2027, exception, "payload"
+ .return ($P2027)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "postcircumfix:sym<ang>" :subid("111_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2031
+.annotate 'line', 735
+ new $P2030, 'ExceptionHandler'
+ set_addr $P2030, control_2029
+ $P2030."handle_types"(.CONTROL_RETURN)
+ push_eh $P2030
.lex "self", self
- .lex "$/", param_2029
- find_lex $P2030, "$/"
- find_lex $P2031, "$/"
- unless_null $P2031, vivify_595
- $P2031 = root_new ['parrot';'Hash']
- vivify_595:
- 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:
+ .lex "$/", param_2031
+.annotate 'line', 736
+ find_lex $P2032, "$/"
+ get_hll_global $P2033, ["PAST"], "Var"
+ find_lex $P2034, "$/"
+ unless_null $P2034, vivify_604
+ $P2034 = root_new ['parrot';'Hash']
+ vivify_604:
+ set $P2035, $P2034["quote_EXPR"]
+ unless_null $P2035, vivify_605
+ new $P2035, "Undef"
+ vivify_605:
+ $P2036 = $P2035."ast"()
+.annotate 'line', 738
+ $P2037 = "vivitype"("%")
+ $P2038 = $P2033."new"($P2036, "keyed" :named("scope"), "Undef" :named("viviself"), $P2037 :named("vivibase"))
+.annotate 'line', 736
+ $P2039 = $P2032."!make"($P2038)
+.annotate 'line', 735
+ .return ($P2039)
+ control_2029:
.local pmc exception
.get_results (exception)
- getattribute $P2035, exception, "payload"
- .return ($P2035)
+ getattribute $P2040, exception, "payload"
+ .return ($P2040)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "postcircumfix:sym<( )>" :subid("112_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2044
+.annotate 'line', 741
+ new $P2043, 'ExceptionHandler'
+ set_addr $P2043, control_2042
+ $P2043."handle_types"(.CONTROL_RETURN)
+ push_eh $P2043
.lex "self", self
- .lex "$/", param_2039
- find_lex $P2040, "$/"
- find_lex $P2041, "$/"
- unless_null $P2041, vivify_597
- $P2041 = root_new ['parrot';'Hash']
- vivify_597:
- 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_2037:
+ .lex "$/", param_2044
+.annotate 'line', 742
+ find_lex $P2045, "$/"
+ find_lex $P2046, "$/"
+ unless_null $P2046, vivify_606
+ $P2046 = root_new ['parrot';'Hash']
+ vivify_606:
+ set $P2047, $P2046["arglist"]
+ unless_null $P2047, vivify_607
+ new $P2047, "Undef"
+ vivify_607:
+ $P2048 = $P2047."ast"()
+ $P2049 = $P2045."!make"($P2048)
+.annotate 'line', 741
+ .return ($P2049)
+ control_2042:
.local pmc exception
.get_results (exception)
- getattribute $P2045, exception, "payload"
- .return ($P2045)
+ getattribute $P2050, exception, "payload"
+ .return ($P2050)
.end
.namespace ["NQP";"Actions"]
-.sub "quote:sym<Q:PIR>" :subid("114_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_2049
-.annotate 'line', 735
- new $P2048, 'ExceptionHandler'
- set_addr $P2048, control_2047
- $P2048."handle_types"(57)
- push_eh $P2048
+.include "except_types.pasm"
+.sub "value" :subid("113_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2054
+.annotate 'line', 745
+ new $P2053, 'ExceptionHandler'
+ set_addr $P2053, control_2052
+ $P2053."handle_types"(.CONTROL_RETURN)
+ push_eh $P2053
.lex "self", self
- .lex "$/", param_2049
-.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"
- 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:
+ .lex "$/", param_2054
+.annotate 'line', 746
+ find_lex $P2055, "$/"
+ find_lex $P2058, "$/"
+ unless_null $P2058, vivify_608
+ $P2058 = root_new ['parrot';'Hash']
+ vivify_608:
+ set $P2059, $P2058["quote"]
+ unless_null $P2059, vivify_609
+ new $P2059, "Undef"
+ vivify_609:
+ if $P2059, if_2057
+ find_lex $P2063, "$/"
+ unless_null $P2063, vivify_610
+ $P2063 = root_new ['parrot';'Hash']
+ vivify_610:
+ set $P2064, $P2063["number"]
+ unless_null $P2064, vivify_611
+ new $P2064, "Undef"
+ vivify_611:
+ $P2065 = $P2064."ast"()
+ set $P2056, $P2065
+ goto if_2057_end
+ if_2057:
+ find_lex $P2060, "$/"
+ unless_null $P2060, vivify_612
+ $P2060 = root_new ['parrot';'Hash']
+ vivify_612:
+ set $P2061, $P2060["quote"]
+ unless_null $P2061, vivify_613
+ new $P2061, "Undef"
+ vivify_613:
+ $P2062 = $P2061."ast"()
+ set $P2056, $P2062
+ if_2057_end:
+ $P2066 = $P2055."!make"($P2056)
+.annotate 'line', 745
+ .return ($P2066)
+ control_2052:
.local pmc exception
.get_results (exception)
- getattribute $P2059, exception, "payload"
- .return ($P2059)
+ getattribute $P2067, exception, "payload"
+ .return ($P2067)
.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', 747
- get_global $P2072, "@BLOCK"
- unless_null $P2072, vivify_602
- $P2072 = root_new ['parrot';'ResizablePMCArray']
- vivify_602:
- set $P2073, $P2072[0]
- unless_null $P2073, vivify_603
- new $P2073, "Undef"
- vivify_603:
- $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:
- set $P2075, $P2074[0]
- unless_null $P2075, vivify_605
- new $P2075, "Undef"
- vivify_605:
- $P2075."symbol"("$/", "lexical" :named("scope"))
+.include "except_types.pasm"
+.sub "number" :subid("114_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2071
.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:
+ new $P2070, 'ExceptionHandler'
+ set_addr $P2070, control_2069
+ $P2070."handle_types"(.CONTROL_RETURN)
+ push_eh $P2070
+ .lex "self", self
+ .lex "$/", param_2071
+.annotate 'line', 750
+ new $P2072, "Undef"
+ .lex "$value", $P2072
+ find_lex $P2075, "$/"
+ unless_null $P2075, vivify_614
+ $P2075 = root_new ['parrot';'Hash']
+ vivify_614:
+ set $P2076, $P2075["dec_number"]
+ unless_null $P2076, vivify_615
+ new $P2076, "Undef"
+ vivify_615:
+ if $P2076, if_2074
+ find_lex $P2080, "$/"
+ unless_null $P2080, vivify_616
+ $P2080 = root_new ['parrot';'Hash']
+ vivify_616:
+ set $P2081, $P2080["integer"]
+ unless_null $P2081, vivify_617
+ new $P2081, "Undef"
+ vivify_617:
+ $P2082 = $P2081."ast"()
+ set $P2073, $P2082
+ goto if_2074_end
+ if_2074:
+ find_lex $P2077, "$/"
+ unless_null $P2077, vivify_618
+ $P2077 = root_new ['parrot';'Hash']
+ vivify_618:
+ set $P2078, $P2077["dec_number"]
+ unless_null $P2078, vivify_619
+ new $P2078, "Undef"
+ vivify_619:
+ $P2079 = $P2078."ast"()
+ set $P2073, $P2079
+ if_2074_end:
+ store_lex "$value", $P2073
+.annotate 'line', 751
+ find_lex $P2084, "$/"
+ unless_null $P2084, vivify_620
+ $P2084 = root_new ['parrot';'Hash']
+ vivify_620:
+ set $P2085, $P2084["sign"]
+ unless_null $P2085, vivify_621
+ new $P2085, "Undef"
+ vivify_621:
+ set $S2086, $P2085
+ iseq $I2087, $S2086, "-"
+ unless $I2087, if_2083_end
+ find_lex $P2088, "$value"
+ neg $P2089, $P2088
+ store_lex "$value", $P2089
+ if_2083_end:
.annotate 'line', 752
- get_hll_global $P2078, ["Regex";"P6Regex";"Actions"], "buildsub"
- find_lex $P2079, "$/"
- unless_null $P2079, vivify_606
- $P2079 = root_new ['parrot';'Hash']
- vivify_606:
- set $P2080, $P2079["p6regex"]
- unless_null $P2080, vivify_607
- new $P2080, "Undef"
- vivify_607:
- $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:
+ find_lex $P2090, "$/"
+ get_hll_global $P2091, ["PAST"], "Val"
+ find_lex $P2092, "$value"
+ $P2093 = $P2091."new"($P2092 :named("value"))
+ $P2094 = $P2090."!make"($P2093)
+.annotate 'line', 749
+ .return ($P2094)
+ control_2069:
.local pmc exception
.get_results (exception)
- getattribute $P2096, exception, "payload"
- .return ($P2096)
+ getattribute $P2095, exception, "payload"
+ .return ($P2095)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "quote:sym<apos>" :subid("115_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2099
+.annotate 'line', 755
+ new $P2098, 'ExceptionHandler'
+ set_addr $P2098, control_2097
+ $P2098."handle_types"(.CONTROL_RETURN)
+ push_eh $P2098
.lex "self", self
- .lex "$/", param_2100
+ .lex "$/", param_2099
+ find_lex $P2100, "$/"
find_lex $P2101, "$/"
- find_lex $P2102, "$/"
- unless_null $P2102, vivify_609
- $P2102 = root_new ['parrot';'Hash']
- vivify_609:
- set $P2103, $P2102["variable"]
- unless_null $P2103, vivify_610
- new $P2103, "Undef"
- vivify_610:
- $P2104 = $P2103."ast"()
- $P2105 = $P2101."!make"($P2104)
- .return ($P2105)
- control_2098:
+ unless_null $P2101, vivify_622
+ $P2101 = root_new ['parrot';'Hash']
+ vivify_622:
+ set $P2102, $P2101["quote_EXPR"]
+ unless_null $P2102, vivify_623
+ new $P2102, "Undef"
+ vivify_623:
+ $P2103 = $P2102."ast"()
+ $P2104 = $P2100."!make"($P2103)
+ .return ($P2104)
+ control_2097:
.local pmc exception
.get_results (exception)
- getattribute $P2106, exception, "payload"
- .return ($P2106)
+ getattribute $P2105, exception, "payload"
+ .return ($P2105)
.end
.namespace ["NQP";"Actions"]
-.sub "quote_escape:sym<{ }>" :subid("117_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_2110
-.annotate 'line', 765
- new $P2109, 'ExceptionHandler'
- set_addr $P2109, control_2108
- $P2109."handle_types"(57)
- push_eh $P2109
+.include "except_types.pasm"
+.sub "quote:sym<dblq>" :subid("116_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2109
+.annotate 'line', 756
+ new $P2108, 'ExceptionHandler'
+ set_addr $P2108, control_2107
+ $P2108."handle_types"(.CONTROL_RETURN)
+ push_eh $P2108
.lex "self", self
- .lex "$/", param_2110
-.annotate 'line', 766
+ .lex "$/", param_2109
+ find_lex $P2110, "$/"
find_lex $P2111, "$/"
- 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:
+ unless_null $P2111, vivify_624
+ $P2111 = root_new ['parrot';'Hash']
+ vivify_624:
+ set $P2112, $P2111["quote_EXPR"]
+ unless_null $P2112, vivify_625
+ new $P2112, "Undef"
+ vivify_625:
+ $P2113 = $P2112."ast"()
+ $P2114 = $P2110."!make"($P2113)
+ .return ($P2114)
+ control_2107:
.local pmc exception
.get_results (exception)
- getattribute $P2120, exception, "payload"
- .return ($P2120)
+ getattribute $P2115, exception, "payload"
+ .return ($P2115)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "quote:sym<qq>" :subid("117_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2119
+.annotate 'line', 757
+ new $P2118, 'ExceptionHandler'
+ set_addr $P2118, control_2117
+ $P2118."handle_types"(.CONTROL_RETURN)
+ push_eh $P2118
.lex "self", self
- .lex "$/", param_2124
- find_lex $P2125, "$/"
- $P2126 = $P2125."!make"("\e")
- .return ($P2126)
- control_2122:
+ .lex "$/", param_2119
+ find_lex $P2120, "$/"
+ find_lex $P2121, "$/"
+ unless_null $P2121, vivify_626
+ $P2121 = root_new ['parrot';'Hash']
+ vivify_626:
+ set $P2122, $P2121["quote_EXPR"]
+ unless_null $P2122, vivify_627
+ new $P2122, "Undef"
+ vivify_627:
+ $P2123 = $P2122."ast"()
+ $P2124 = $P2120."!make"($P2123)
+ .return ($P2124)
+ control_2117:
.local pmc exception
.get_results (exception)
- getattribute $P2127, exception, "payload"
- .return ($P2127)
+ getattribute $P2125, exception, "payload"
+ .return ($P2125)
.end
.namespace ["NQP";"Actions"]
-.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:
+.include "except_types.pasm"
+.sub "quote:sym<q>" :subid("118_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2129
+.annotate 'line', 758
+ new $P2128, 'ExceptionHandler'
+ set_addr $P2128, control_2127
+ $P2128."handle_types"(.CONTROL_RETURN)
+ push_eh $P2128
+ .lex "self", self
+ .lex "$/", param_2129
+ find_lex $P2130, "$/"
+ find_lex $P2131, "$/"
+ unless_null $P2131, vivify_628
+ $P2131 = root_new ['parrot';'Hash']
+ vivify_628:
+ set $P2132, $P2131["quote_EXPR"]
+ unless_null $P2132, vivify_629
+ new $P2132, "Undef"
+ vivify_629:
+ $P2133 = $P2132."ast"()
+ $P2134 = $P2130."!make"($P2133)
+ .return ($P2134)
+ control_2127:
.local pmc exception
.get_results (exception)
- getattribute $P2137, exception, "payload"
- .return ($P2137)
+ getattribute $P2135, exception, "payload"
+ .return ($P2135)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "quote:sym<Q>" :subid("119_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2139
+.annotate 'line', 759
+ new $P2138, 'ExceptionHandler'
+ set_addr $P2138, control_2137
+ $P2138."handle_types"(.CONTROL_RETURN)
+ push_eh $P2138
.lex "self", self
- .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:
+ .lex "$/", param_2139
+ find_lex $P2140, "$/"
+ find_lex $P2141, "$/"
+ unless_null $P2141, vivify_630
+ $P2141 = root_new ['parrot';'Hash']
+ vivify_630:
+ set $P2142, $P2141["quote_EXPR"]
+ unless_null $P2142, vivify_631
+ new $P2142, "Undef"
+ vivify_631:
+ $P2143 = $P2142."ast"()
+ $P2144 = $P2140."!make"($P2143)
+ .return ($P2144)
+ control_2137:
.local pmc exception
.get_results (exception)
- getattribute $P2147, exception, "payload"
- .return ($P2147)
+ getattribute $P2145, exception, "payload"
+ .return ($P2145)
.end
.namespace ["NQP";"Actions"]
-.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
+.include "except_types.pasm"
+.sub "quote:sym<Q:PIR>" :subid("120_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2149
+.annotate 'line', 760
+ new $P2148, 'ExceptionHandler'
+ set_addr $P2148, control_2147
+ $P2148."handle_types"(.CONTROL_RETURN)
+ push_eh $P2148
.lex "self", self
- .lex "$/", param_2151
-.annotate 'line', 783
+ .lex "$/", param_2149
+.annotate 'line', 761
+ find_lex $P2150, "$/"
+ get_hll_global $P2151, ["PAST"], "Op"
find_lex $P2152, "$/"
- 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 $P2157, exception, "payload"
- .return ($P2157)
+ unless_null $P2152, vivify_632
+ $P2152 = root_new ['parrot';'Hash']
+ vivify_632:
+ set $P2153, $P2152["quote_EXPR"]
+ unless_null $P2153, vivify_633
+ new $P2153, "Undef"
+ vivify_633:
+ $P2154 = $P2153."ast"()
+ $P2155 = $P2154."value"()
+ find_lex $P2156, "$/"
+ $P2157 = $P2151."new"($P2155 :named("inline"), "inline" :named("pasttype"), $P2156 :named("node"))
+ $P2158 = $P2150."!make"($P2157)
+.annotate 'line', 760
+ .return ($P2158)
+ control_2147:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2159, exception, "payload"
+ .return ($P2159)
.end
.namespace ["NQP";"Actions"]
-.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_2161
+.include "except_types.pasm"
+.sub "quote:sym</ />" :subid("121_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2163
+ .param pmc param_2164 :optional
+ .param int has_param_2164 :opt_flag
+.annotate 'line', 766
+ new $P2162, 'ExceptionHandler'
+ set_addr $P2162, control_2161
+ $P2162."handle_types"(.CONTROL_RETURN)
+ push_eh $P2162
+ .lex "self", self
+ .lex "$/", param_2163
+ if has_param_2164, optparam_634
+ new $P2165, "Undef"
+ set param_2164, $P2165
+ optparam_634:
+ .lex "$key", param_2164
+.annotate 'line', 776
+ new $P2166, "Undef"
+ .lex "$regex", $P2166
+.annotate 'line', 778
+ new $P2167, "Undef"
+ .lex "$past", $P2167
+.annotate 'line', 767
+ find_lex $P2169, "$key"
+ set $S2170, $P2169
+ iseq $I2171, $S2170, "open"
+ unless $I2171, if_2168_end
+.annotate 'line', 768
+
+ null $P0
+ set_hll_global ['Regex';'P6Regex';'Actions'], '$REGEXNAME', $P0
+
+.annotate 'line', 772
+ get_global $P2172, "@BLOCK"
+ unless_null $P2172, vivify_635
+ $P2172 = root_new ['parrot';'ResizablePMCArray']
+ vivify_635:
+ set $P2173, $P2172[0]
+ unless_null $P2173, vivify_636
+ new $P2173, "Undef"
+ vivify_636:
+ $P2173."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
+.annotate 'line', 773
+ get_global $P2174, "@BLOCK"
+ unless_null $P2174, vivify_637
+ $P2174 = root_new ['parrot';'ResizablePMCArray']
+ vivify_637:
+ set $P2175, $P2174[0]
+ unless_null $P2175, vivify_638
+ new $P2175, "Undef"
+ vivify_638:
+ $P2175."symbol"("$/", "lexical" :named("scope"))
+.annotate 'line', 774
+ new $P2176, "Exception"
+ set $P2176['type'], .CONTROL_RETURN
+ new $P2177, "Integer"
+ assign $P2177, 0
+ setattribute $P2176, 'payload', $P2177
+ throw $P2176
+ if_2168_end:
+.annotate 'line', 777
+ get_hll_global $P2178, ["Regex";"P6Regex";"Actions"], "buildsub"
+ find_lex $P2179, "$/"
+ unless_null $P2179, vivify_639
+ $P2179 = root_new ['parrot';'Hash']
+ vivify_639:
+ set $P2180, $P2179["p6regex"]
+ unless_null $P2180, vivify_640
+ new $P2180, "Undef"
+ vivify_640:
+ $P2181 = $P2180."ast"()
+ get_global $P2182, "@BLOCK"
+ $P2183 = $P2182."shift"()
+ $P2184 = $P2178($P2181, $P2183)
+ store_lex "$regex", $P2184
+.annotate 'line', 779
+ get_hll_global $P2185, ["PAST"], "Op"
+.annotate 'line', 781
+ get_hll_global $P2186, ["PAST"], "Var"
+ new $P2187, "ResizablePMCArray"
+ push $P2187, "Regex"
+ $P2188 = $P2186."new"("Regex" :named("name"), $P2187 :named("namespace"), "package" :named("scope"))
+ find_lex $P2189, "$regex"
+ $P2190 = $P2185."new"($P2188, $P2189, "callmethod" :named("pasttype"), "new" :named("name"))
+.annotate 'line', 779
+ store_lex "$past", $P2190
+.annotate 'line', 785
+ find_lex $P2191, "$regex"
+ find_lex $P2192, "$past"
+ unless_null $P2192, vivify_641
+ $P2192 = root_new ['parrot';'Hash']
+ store_lex "$past", $P2192
+ vivify_641:
+ set $P2192["sink"], $P2191
+.annotate 'line', 786
+ find_lex $P2193, "$/"
+ find_lex $P2194, "$past"
+ $P2195 = $P2193."!make"($P2194)
+.annotate 'line', 766
+ .return ($P2195)
+ control_2161:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2196, exception, "payload"
+ .return ($P2196)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "quote_escape:sym<$>" :subid("122_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2200
.annotate 'line', 789
- find_lex $P2162, "$/"
- get_hll_global $P2163, ["PAST"], "Op"
+ new $P2199, 'ExceptionHandler'
+ set_addr $P2199, control_2198
+ $P2199."handle_types"(.CONTROL_RETURN)
+ push_eh $P2199
+ .lex "self", self
+ .lex "$/", param_2200
+ find_lex $P2201, "$/"
+ find_lex $P2202, "$/"
+ unless_null $P2202, vivify_642
+ $P2202 = root_new ['parrot';'Hash']
+ vivify_642:
+ set $P2203, $P2202["variable"]
+ unless_null $P2203, vivify_643
+ new $P2203, "Undef"
+ vivify_643:
+ $P2204 = $P2203."ast"()
+ $P2205 = $P2201."!make"($P2204)
+ .return ($P2205)
+ control_2198:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2206, exception, "payload"
+ .return ($P2206)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "quote_escape:sym<{ }>" :subid("123_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2210
.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:
+ new $P2209, 'ExceptionHandler'
+ set_addr $P2209, control_2208
+ $P2209."handle_types"(.CONTROL_RETURN)
+ push_eh $P2209
+ .lex "self", self
+ .lex "$/", param_2210
+.annotate 'line', 791
+ find_lex $P2211, "$/"
+ get_hll_global $P2212, ["PAST"], "Op"
+.annotate 'line', 792
+ find_lex $P2213, "$/"
+ unless_null $P2213, vivify_644
+ $P2213 = root_new ['parrot';'Hash']
+ vivify_644:
+ set $P2214, $P2213["block"]
+ unless_null $P2214, vivify_645
+ new $P2214, "Undef"
+ vivify_645:
+ $P2215 = $P2214."ast"()
+ $P2216 = "block_immediate"($P2215)
+ find_lex $P2217, "$/"
+ $P2218 = $P2212."new"($P2216, "set S*" :named("pirop"), $P2217 :named("node"))
+.annotate 'line', 791
+ $P2219 = $P2211."!make"($P2218)
+.annotate 'line', 790
+ .return ($P2219)
+ control_2208:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2220, exception, "payload"
+ .return ($P2220)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "quote_escape:sym<esc>" :subid("124_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2224
+.annotate 'line', 795
+ new $P2223, 'ExceptionHandler'
+ set_addr $P2223, control_2222
+ $P2223."handle_types"(.CONTROL_RETURN)
+ push_eh $P2223
+ .lex "self", self
+ .lex "$/", param_2224
+ find_lex $P2225, "$/"
+ $P2226 = $P2225."!make"("\e")
+ .return ($P2226)
+ control_2222:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2227, exception, "payload"
+ .return ($P2227)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "postfix:sym<.>" :subid("125_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2231
+.annotate 'line', 799
+ new $P2230, 'ExceptionHandler'
+ set_addr $P2230, control_2229
+ $P2230."handle_types"(.CONTROL_RETURN)
+ push_eh $P2230
+ .lex "self", self
+ .lex "$/", param_2231
+ find_lex $P2232, "$/"
+ find_lex $P2233, "$/"
+ unless_null $P2233, vivify_646
+ $P2233 = root_new ['parrot';'Hash']
+ vivify_646:
+ set $P2234, $P2233["dotty"]
+ unless_null $P2234, vivify_647
+ new $P2234, "Undef"
+ vivify_647:
+ $P2235 = $P2234."ast"()
+ $P2236 = $P2232."!make"($P2235)
+ .return ($P2236)
+ control_2229:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2237, exception, "payload"
+ .return ($P2237)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "postfix:sym<++>" :subid("126_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2241
+.annotate 'line', 801
+ new $P2240, 'ExceptionHandler'
+ set_addr $P2240, control_2239
+ $P2240."handle_types"(.CONTROL_RETURN)
+ push_eh $P2240
+ .lex "self", self
+ .lex "$/", param_2241
+.annotate 'line', 802
+ find_lex $P2242, "$/"
+ get_hll_global $P2243, ["PAST"], "Op"
+.annotate 'line', 803
+ new $P2244, "ResizablePMCArray"
+ push $P2244, " clone %r, %0"
+ push $P2244, " inc %0"
+ $P2245 = $P2243."new"("postfix:<++>" :named("name"), $P2244 :named("inline"), "inline" :named("pasttype"))
+.annotate 'line', 802
+ $P2246 = $P2242."!make"($P2245)
+.annotate 'line', 801
+ .return ($P2246)
+ control_2239:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2247, exception, "payload"
+ .return ($P2247)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "postfix:sym<-->" :subid("127_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2251
+.annotate 'line', 807
+ new $P2250, 'ExceptionHandler'
+ set_addr $P2250, control_2249
+ $P2250."handle_types"(.CONTROL_RETURN)
+ push_eh $P2250
+ .lex "self", self
+ .lex "$/", param_2251
+.annotate 'line', 808
+ find_lex $P2252, "$/"
+ get_hll_global $P2253, ["PAST"], "Op"
+.annotate 'line', 809
+ new $P2254, "ResizablePMCArray"
+ push $P2254, " clone %r, %0"
+ push $P2254, " dec %0"
+ $P2255 = $P2253."new"("postfix:<-->" :named("name"), $P2254 :named("inline"), "inline" :named("pasttype"))
+.annotate 'line', 808
+ $P2256 = $P2252."!make"($P2255)
+.annotate 'line', 807
+ .return ($P2256)
+ control_2249:
.local pmc exception
.get_results (exception)
- getattribute $P2169, exception, "payload"
- .return ($P2169)
+ getattribute $P2257, exception, "payload"
+ .return ($P2257)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<next>" :subid("123_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_2174
-.annotate 'line', 810
- new $P2173, 'ExceptionHandler'
- set_addr $P2173, control_2172
- $P2173."handle_types"(57)
- push_eh $P2173
+.include "except_types.pasm"
+.sub "prefix:sym<make>" :subid("128_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2261
+.annotate 'line', 813
+ new $P2260, 'ExceptionHandler'
+ set_addr $P2260, control_2259
+ $P2260."handle_types"(.CONTROL_RETURN)
+ push_eh $P2260
.lex "self", self
- .lex "$/", param_2174
- find_lex $P2175, "$/"
- $P2176 = "control"($P2175, ".CONTROL_LOOP_NEXT")
- .return ($P2176)
- control_2172:
+ .lex "$/", param_2261
+.annotate 'line', 814
+ find_lex $P2262, "$/"
+ get_hll_global $P2263, ["PAST"], "Op"
+.annotate 'line', 815
+ get_hll_global $P2264, ["PAST"], "Var"
+ $P2265 = $P2264."new"("$/" :named("name"), "contextual" :named("scope"))
+ find_lex $P2266, "$/"
+ $P2267 = $P2263."new"($P2265, "callmethod" :named("pasttype"), "!make" :named("name"), $P2266 :named("node"))
+.annotate 'line', 814
+ $P2268 = $P2262."!make"($P2267)
+.annotate 'line', 813
+ .return ($P2268)
+ control_2259:
.local pmc exception
.get_results (exception)
- getattribute $P2177, exception, "payload"
- .return ($P2177)
+ getattribute $P2269, exception, "payload"
+ .return ($P2269)
.end
.namespace ["NQP";"Actions"]
-.sub "term:sym<last>" :subid("124_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_2181
-.annotate 'line', 811
- new $P2180, 'ExceptionHandler'
- set_addr $P2180, control_2179
- $P2180."handle_types"(57)
- push_eh $P2180
+.include "except_types.pasm"
+.sub "term:sym<next>" :subid("129_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2274
+.annotate 'line', 831
+ new $P2273, 'ExceptionHandler'
+ set_addr $P2273, control_2272
+ $P2273."handle_types"(.CONTROL_RETURN)
+ push_eh $P2273
.lex "self", self
- .lex "$/", param_2181
- find_lex $P2182, "$/"
- $P2183 = "control"($P2182, ".CONTROL_LOOP_LAST")
- .return ($P2183)
- control_2179:
+ .lex "$/", param_2274
+ find_lex $P2275, "$/"
+ $P2276 = "control"($P2275, "CONTROL_LOOP_NEXT")
+ .return ($P2276)
+ control_2272:
.local pmc exception
.get_results (exception)
- getattribute $P2184, exception, "payload"
- .return ($P2184)
+ getattribute $P2277, exception, "payload"
+ .return ($P2277)
.end
.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
+.include "except_types.pasm"
+.sub "term:sym<last>" :subid("130_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2281
+.annotate 'line', 832
+ new $P2280, 'ExceptionHandler'
+ set_addr $P2280, control_2279
+ $P2280."handle_types"(.CONTROL_RETURN)
+ push_eh $P2280
.lex "self", self
- .lex "$/", param_2188
- find_lex $P2189, "$/"
- $P2190 = "control"($P2189, ".CONTROL_LOOP_REDO")
- .return ($P2190)
- control_2186:
+ .lex "$/", param_2281
+ find_lex $P2282, "$/"
+ $P2283 = "control"($P2282, "CONTROL_LOOP_LAST")
+ .return ($P2283)
+ control_2279:
.local pmc exception
.get_results (exception)
- getattribute $P2191, exception, "payload"
- .return ($P2191)
+ getattribute $P2284, exception, "payload"
+ .return ($P2284)
.end
.namespace ["NQP";"Actions"]
-.sub "infix:sym<~~>" :subid("126_1275117616.72633") :method :outer("11_1275117616.72633")
- .param pmc param_2195
-.annotate 'line', 814
- new $P2194, 'ExceptionHandler'
- set_addr $P2194, control_2193
- $P2194."handle_types"(57)
- push_eh $P2194
+.include "except_types.pasm"
+.sub "term:sym<redo>" :subid("131_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2288
+.annotate 'line', 833
+ new $P2287, 'ExceptionHandler'
+ set_addr $P2287, control_2286
+ $P2287."handle_types"(.CONTROL_RETURN)
+ push_eh $P2287
.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:
+ .lex "$/", param_2288
+ find_lex $P2289, "$/"
+ $P2290 = "control"($P2289, "CONTROL_LOOP_REDO")
+ .return ($P2290)
+ control_2286:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P2291, exception, "payload"
+ .return ($P2291)
+.end
+
+
+.namespace ["NQP";"Actions"]
+.include "except_types.pasm"
+.sub "infix:sym<~~>" :subid("132_1275811497.55064") :method :outer("11_1275811497.55064")
+ .param pmc param_2295
+.annotate 'line', 835
+ new $P2294, 'ExceptionHandler'
+ set_addr $P2294, control_2293
+ $P2294."handle_types"(.CONTROL_RETURN)
+ push_eh $P2294
+ .lex "self", self
+ .lex "$/", param_2295
+.annotate 'line', 836
+ find_lex $P2296, "$/"
+ get_hll_global $P2297, ["PAST"], "Op"
+ find_lex $P2298, "$/"
+ $P2299 = $P2297."new"("callmethod" :named("pasttype"), "ACCEPTS" :named("name"), $P2298 :named("node"))
+ $P2300 = $P2296."!make"($P2299)
+.annotate 'line', 835
+ .return ($P2300)
+ control_2293:
.local pmc exception
.get_results (exception)
- getattribute $P2201, exception, "payload"
- .return ($P2201)
+ getattribute $P2301, exception, "payload"
+ .return ($P2301)
.end
.namespace ["NQP";"RegexActions"]
-.sub "_block2202" :subid("127_1275117616.72633") :outer("11_1275117616.72633")
-.annotate 'line', 819
- .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
- .return ($P2312)
+.sub "_block2302" :subid("133_1275811497.55064") :outer("11_1275811497.55064")
+.annotate 'line', 840
+ .const 'Sub' $P2388 = "140_1275811497.55064"
+ capture_lex $P2388
+ .const 'Sub' $P2375 = "139_1275811497.55064"
+ capture_lex $P2375
+ .const 'Sub' $P2358 = "138_1275811497.55064"
+ capture_lex $P2358
+ .const 'Sub' $P2345 = "137_1275811497.55064"
+ capture_lex $P2345
+ .const 'Sub' $P2332 = "136_1275811497.55064"
+ capture_lex $P2332
+ .const 'Sub' $P2319 = "135_1275811497.55064"
+ capture_lex $P2319
+ .const 'Sub' $P2304 = "134_1275811497.55064"
+ capture_lex $P2304
+.annotate 'line', 874
+ .const 'Sub' $P2388 = "140_1275811497.55064"
+ newclosure $P2413, $P2388
+.annotate 'line', 840
+ .return ($P2413)
.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
+.include "except_types.pasm"
+.sub "metachar:sym<:my>" :subid("134_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2307
+.annotate 'line', 842
+ new $P2306, 'ExceptionHandler'
+ set_addr $P2306, control_2305
+ $P2306."handle_types"(.CONTROL_RETURN)
+ push_eh $P2306
.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:
- set $P2210, $P2209["statement"]
- unless_null $P2210, vivify_616
- new $P2210, "Undef"
- vivify_616:
- $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:
+ .lex "$/", param_2307
+.annotate 'line', 843
+ new $P2308, "Undef"
+ .lex "$past", $P2308
+ find_lex $P2309, "$/"
+ unless_null $P2309, vivify_648
+ $P2309 = root_new ['parrot';'Hash']
+ vivify_648:
+ set $P2310, $P2309["statement"]
+ unless_null $P2310, vivify_649
+ new $P2310, "Undef"
+ vivify_649:
+ $P2311 = $P2310."ast"()
+ store_lex "$past", $P2311
+.annotate 'line', 844
+ find_lex $P2312, "$/"
+ get_hll_global $P2313, ["PAST"], "Regex"
+ find_lex $P2314, "$past"
+ find_lex $P2315, "$/"
+ $P2316 = $P2313."new"($P2314, "pastnode" :named("pasttype"), "declarative" :named("subtype"), $P2315 :named("node"))
+ $P2317 = $P2312."!make"($P2316)
+.annotate 'line', 842
+ .return ($P2317)
+ control_2305:
.local pmc exception
.get_results (exception)
- getattribute $P2217, exception, "payload"
- .return ($P2217)
+ getattribute $P2318, exception, "payload"
+ .return ($P2318)
.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 $P2225, $P2224["codeblock"]
- unless_null $P2225, vivify_618
- new $P2225, "Undef"
- vivify_618:
- $P2226 = $P2225."ast"()
- find_lex $P2227, "$/"
- $P2228 = $P2223."new"($P2226, "pastnode" :named("pasttype"), $P2227 :named("node"))
- $P2229 = $P2222."!make"($P2228)
-.annotate 'line', 826
- .return ($P2229)
- control_2219:
+.include "except_types.pasm"
+.sub "metachar:sym<{ }>" :subid("135_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2322
+.annotate 'line', 848
+ new $P2321, 'ExceptionHandler'
+ set_addr $P2321, control_2320
+ $P2321."handle_types"(.CONTROL_RETURN)
+ push_eh $P2321
+ .lex "self", self
+ .lex "$/", param_2322
+.annotate 'line', 849
+ find_lex $P2323, "$/"
+ get_hll_global $P2324, ["PAST"], "Regex"
+ find_lex $P2325, "$/"
+ unless_null $P2325, vivify_650
+ $P2325 = root_new ['parrot';'Hash']
+ vivify_650:
+ set $P2326, $P2325["codeblock"]
+ unless_null $P2326, vivify_651
+ new $P2326, "Undef"
+ vivify_651:
+ $P2327 = $P2326."ast"()
+ find_lex $P2328, "$/"
+ $P2329 = $P2324."new"($P2327, "pastnode" :named("pasttype"), $P2328 :named("node"))
+ $P2330 = $P2323."!make"($P2329)
+.annotate 'line', 848
+ .return ($P2330)
+ control_2320:
.local pmc exception
.get_results (exception)
- getattribute $P2230, exception, "payload"
- .return ($P2230)
+ getattribute $P2331, exception, "payload"
+ .return ($P2331)
.end
.namespace ["NQP";"RegexActions"]
-.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
+.include "except_types.pasm"
+.sub "metachar:sym<nqpvar>" :subid("136_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2335
+.annotate 'line', 853
+ new $P2334, 'ExceptionHandler'
+ set_addr $P2334, control_2333
+ $P2334."handle_types"(.CONTROL_RETURN)
+ push_eh $P2334
.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:
+ .lex "$/", param_2335
+.annotate 'line', 854
+ find_lex $P2336, "$/"
+ get_hll_global $P2337, ["PAST"], "Regex"
+ find_lex $P2338, "$/"
+ unless_null $P2338, vivify_652
+ $P2338 = root_new ['parrot';'Hash']
+ vivify_652:
+ set $P2339, $P2338["var"]
+ unless_null $P2339, vivify_653
+ new $P2339, "Undef"
+ vivify_653:
+ $P2340 = $P2339."ast"()
+ find_lex $P2341, "$/"
+ $P2342 = $P2337."new"("!INTERPOLATE", $P2340, "subrule" :named("pasttype"), "method" :named("subtype"), $P2341 :named("node"))
+ $P2343 = $P2336."!make"($P2342)
+.annotate 'line', 853
+ .return ($P2343)
+ control_2333:
.local pmc exception
.get_results (exception)
- getattribute $P2243, exception, "payload"
- .return ($P2243)
+ getattribute $P2344, exception, "payload"
+ .return ($P2344)
.end
.namespace ["NQP";"RegexActions"]
-.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:
+.include "except_types.pasm"
+.sub "assertion:sym<{ }>" :subid("137_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2348
+.annotate 'line', 858
+ new $P2347, 'ExceptionHandler'
+ set_addr $P2347, control_2346
+ $P2347."handle_types"(.CONTROL_RETURN)
+ push_eh $P2347
+ .lex "self", self
+ .lex "$/", param_2348
+.annotate 'line', 859
+ find_lex $P2349, "$/"
+ get_hll_global $P2350, ["PAST"], "Regex"
+ find_lex $P2351, "$/"
+ unless_null $P2351, vivify_654
+ $P2351 = root_new ['parrot';'Hash']
+ vivify_654:
+ set $P2352, $P2351["codeblock"]
+ unless_null $P2352, vivify_655
+ new $P2352, "Undef"
+ vivify_655:
+ $P2353 = $P2352."ast"()
+ find_lex $P2354, "$/"
+ $P2355 = $P2350."new"("!INTERPOLATE_REGEX", $P2353, "subrule" :named("pasttype"), "method" :named("subtype"), $P2354 :named("node"))
+ $P2356 = $P2349."!make"($P2355)
+.annotate 'line', 858
+ .return ($P2356)
+ control_2346:
.local pmc exception
.get_results (exception)
- getattribute $P2256, exception, "payload"
- .return ($P2256)
+ getattribute $P2357, exception, "payload"
+ .return ($P2357)
.end
.namespace ["NQP";"RegexActions"]
-.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_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:
+.include "except_types.pasm"
+.sub "assertion:sym<?{ }>" :subid("138_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2361
+.annotate 'line', 863
+ new $P2360, 'ExceptionHandler'
+ set_addr $P2360, control_2359
+ $P2360."handle_types"(.CONTROL_RETURN)
+ push_eh $P2360
+ .lex "self", self
+ .lex "$/", param_2361
+.annotate 'line', 864
+ find_lex $P2362, "$/"
+ get_hll_global $P2363, ["PAST"], "Regex"
+ find_lex $P2364, "$/"
+ unless_null $P2364, vivify_656
+ $P2364 = root_new ['parrot';'Hash']
+ vivify_656:
+ set $P2365, $P2364["codeblock"]
+ unless_null $P2365, vivify_657
+ new $P2365, "Undef"
+ vivify_657:
+ $P2366 = $P2365."ast"()
+.annotate 'line', 865
+ find_lex $P2367, "$/"
+ unless_null $P2367, vivify_658
+ $P2367 = root_new ['parrot';'Hash']
+ vivify_658:
+ set $P2368, $P2367["zw"]
+ unless_null $P2368, vivify_659
+ new $P2368, "Undef"
+ vivify_659:
+ set $S2369, $P2368
+ iseq $I2370, $S2369, "!"
+ find_lex $P2371, "$/"
+ $P2372 = $P2363."new"($P2366, "zerowidth" :named("subtype"), $I2370 :named("negate"), "pastnode" :named("pasttype"), $P2371 :named("node"))
+.annotate 'line', 864
+ $P2373 = $P2362."!make"($P2372)
+.annotate 'line', 863
+ .return ($P2373)
+ control_2359:
.local pmc exception
.get_results (exception)
- getattribute $P2273, exception, "payload"
- .return ($P2273)
+ getattribute $P2374, exception, "payload"
+ .return ($P2374)
.end
.namespace ["NQP";"RegexActions"]
-.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:
+.include "except_types.pasm"
+.sub "assertion:sym<var>" :subid("139_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2378
+.annotate 'line', 869
+ new $P2377, 'ExceptionHandler'
+ set_addr $P2377, control_2376
+ $P2377."handle_types"(.CONTROL_RETURN)
+ push_eh $P2377
+ .lex "self", self
+ .lex "$/", param_2378
+.annotate 'line', 870
+ find_lex $P2379, "$/"
+ get_hll_global $P2380, ["PAST"], "Regex"
+ find_lex $P2381, "$/"
+ unless_null $P2381, vivify_660
+ $P2381 = root_new ['parrot';'Hash']
+ vivify_660:
+ set $P2382, $P2381["var"]
+ unless_null $P2382, vivify_661
+ new $P2382, "Undef"
+ vivify_661:
+ $P2383 = $P2382."ast"()
+ find_lex $P2384, "$/"
+ $P2385 = $P2380."new"("!INTERPOLATE_REGEX", $P2383, "subrule" :named("pasttype"), "method" :named("subtype"), $P2384 :named("node"))
+ $P2386 = $P2379."!make"($P2385)
+.annotate 'line', 869
+ .return ($P2386)
+ control_2376:
.local pmc exception
.get_results (exception)
- getattribute $P2286, exception, "payload"
- .return ($P2286)
+ getattribute $P2387, exception, "payload"
+ .return ($P2387)
.end
.namespace ["NQP";"RegexActions"]
-.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:
+.include "except_types.pasm"
+.sub "codeblock" :subid("140_1275811497.55064") :method :outer("133_1275811497.55064")
+ .param pmc param_2391
+.annotate 'line', 874
+ new $P2390, 'ExceptionHandler'
+ set_addr $P2390, control_2389
+ $P2390."handle_types"(.CONTROL_RETURN)
+ push_eh $P2390
+ .lex "self", self
+ .lex "$/", param_2391
+.annotate 'line', 875
+ new $P2392, "Undef"
+ .lex "$block", $P2392
+.annotate 'line', 877
+ new $P2393, "Undef"
+ .lex "$past", $P2393
+.annotate 'line', 875
+ find_lex $P2394, "$/"
+ unless_null $P2394, vivify_662
+ $P2394 = root_new ['parrot';'Hash']
+ vivify_662:
+ set $P2395, $P2394["block"]
+ unless_null $P2395, vivify_663
+ new $P2395, "Undef"
+ vivify_663:
+ $P2396 = $P2395."ast"()
+ store_lex "$block", $P2396
+.annotate 'line', 876
+ find_lex $P2397, "$block"
+ $P2397."blocktype"("immediate")
+.annotate 'line', 878
+ get_hll_global $P2398, ["PAST"], "Stmts"
+.annotate 'line', 879
+ get_hll_global $P2399, ["PAST"], "Op"
+.annotate 'line', 880
+ get_hll_global $P2400, ["PAST"], "Var"
+ $P2401 = $P2400."new"("$/" :named("name"))
+.annotate 'line', 881
+ get_hll_global $P2402, ["PAST"], "Op"
+.annotate 'line', 882
+ get_hll_global $P2403, ["PAST"], "Var"
+ $P2404 = $P2403."new"(unicode:"$\x{a2}" :named("name"))
+ $P2405 = $P2402."new"($P2404, "MATCH" :named("name"), "callmethod" :named("pasttype"))
+.annotate 'line', 881
+ $P2406 = $P2399."new"($P2401, $P2405, "bind" :named("pasttype"))
+.annotate 'line', 879
+ find_lex $P2407, "$block"
+ $P2408 = $P2398."new"($P2406, $P2407)
+.annotate 'line', 878
+ store_lex "$past", $P2408
+.annotate 'line', 890
+ find_lex $P2409, "$/"
+ find_lex $P2410, "$past"
+ $P2411 = $P2409."!make"($P2410)
+.annotate 'line', 874
+ .return ($P2411)
+ control_2389:
.local pmc exception
.get_results (exception)
- getattribute $P2311, exception, "payload"
- .return ($P2311)
+ getattribute $P2412, exception, "payload"
+ .return ($P2412)
.end
.namespace ["NQP";"Actions"]
-.sub "_block2314" :load :anon :subid("135_1275117616.72633")
+.sub "_block2415" :load :anon :subid("141_1275811497.55064")
.annotate 'line', 3
- .const 'Sub' $P2316 = "11_1275117616.72633"
- $P2317 = $P2316()
- .return ($P2317)
+ .const 'Sub' $P2417 = "11_1275811497.55064"
+ $P2418 = $P2417()
+ .return ($P2418)
.end
.namespace []
-.sub "_block2324" :load :anon :subid("137_1275117616.72633")
+.sub "_block2425" :load :anon :subid("143_1275811497.55064")
.annotate 'line', 1
- .const 'Sub' $P2326 = "10_1275117616.72633"
- $P2327 = $P2326()
- .return ($P2327)
+ .const 'Sub' $P2427 = "10_1275811497.55064"
+ $P2428 = $P2427()
+ .return ($P2428)
.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 Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/P6Regex-s0.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -16,7 +16,7 @@
### .include 'gen/p6regex-grammar.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117582.32416")
+.sub "_block11" :anon :subid("10_1275811476.7961")
.annotate 'line', 0
get_hll_global $P14, ["Regex";"P6Regex";"Grammar"], "_block13"
capture_lex $P14
@@ -30,151 +30,151 @@
.annotate 'line', 3
get_hll_global $P14, ["Regex";"P6Regex";"Grammar"], "_block13"
capture_lex $P14
- $P583 = $P14()
+ $P588 = $P14()
.annotate 'line', 1
- .return ($P583)
- .const 'Sub' $P585 = "159_1275117582.32416"
- .return ($P585)
+ .return ($P588)
+ .const 'Sub' $P590 = "159_1275811476.7961"
+ .return ($P590)
.end
.namespace []
-.sub "" :load :init :subid("post160") :outer("10_1275117582.32416")
+.sub "" :load :init :subid("post160") :outer("10_1275811476.7961")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117582.32416"
+ .const 'Sub' $P12 = "10_1275811476.7961"
.local pmc block
set block, $P12
- $P588 = get_root_global ["parrot"], "P6metaclass"
- $P588."new_class"("Regex::P6Regex::Grammar", "HLL::Grammar" :named("parent"))
+ $P593 = get_root_global ["parrot"], "P6metaclass"
+ $P593."new_class"("Regex::P6Regex::Grammar", "HLL::Grammar" :named("parent"))
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block13" :subid("11_1275117582.32416") :outer("10_1275117582.32416")
+.sub "_block13" :subid("11_1275811476.7961") :outer("10_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P571 = "156_1275117582.32416"
- capture_lex $P571
- .const 'Sub' $P563 = "154_1275117582.32416"
- capture_lex $P563
- .const 'Sub' $P555 = "152_1275117582.32416"
- capture_lex $P555
- .const 'Sub' $P534 = "147_1275117582.32416"
- capture_lex $P534
- .const 'Sub' $P499 = "141_1275117582.32416"
- capture_lex $P499
- .const 'Sub' $P487 = "138_1275117582.32416"
- capture_lex $P487
- .const 'Sub' $P474 = "135_1275117582.32416"
- capture_lex $P474
- .const 'Sub' $P468 = "133_1275117582.32416"
- capture_lex $P468
- .const 'Sub' $P457 = "130_1275117582.32416"
- capture_lex $P457
- .const 'Sub' $P446 = "127_1275117582.32416"
- capture_lex $P446
- .const 'Sub' $P437 = "123_1275117582.32416"
- capture_lex $P437
- .const 'Sub' $P431 = "121_1275117582.32416"
- capture_lex $P431
- .const 'Sub' $P425 = "119_1275117582.32416"
- capture_lex $P425
- .const 'Sub' $P419 = "117_1275117582.32416"
- capture_lex $P419
- .const 'Sub' $P413 = "115_1275117582.32416"
- capture_lex $P413
- .const 'Sub' $P405 = "113_1275117582.32416"
- capture_lex $P405
- .const 'Sub' $P394 = "111_1275117582.32416"
- capture_lex $P394
- .const 'Sub' $P383 = "109_1275117582.32416"
- capture_lex $P383
- .const 'Sub' $P377 = "107_1275117582.32416"
- capture_lex $P377
- .const 'Sub' $P371 = "105_1275117582.32416"
- capture_lex $P371
- .const 'Sub' $P365 = "103_1275117582.32416"
- capture_lex $P365
- .const 'Sub' $P359 = "101_1275117582.32416"
- capture_lex $P359
- .const 'Sub' $P353 = "99_1275117582.32416"
- capture_lex $P353
- .const 'Sub' $P347 = "97_1275117582.32416"
- capture_lex $P347
- .const 'Sub' $P341 = "95_1275117582.32416"
- capture_lex $P341
- .const 'Sub' $P335 = "93_1275117582.32416"
- capture_lex $P335
- .const 'Sub' $P323 = "89_1275117582.32416"
- capture_lex $P323
- .const 'Sub' $P311 = "87_1275117582.32416"
- capture_lex $P311
- .const 'Sub' $P304 = "85_1275117582.32416"
- capture_lex $P304
- .const 'Sub' $P287 = "83_1275117582.32416"
- capture_lex $P287
- .const 'Sub' $P280 = "81_1275117582.32416"
- capture_lex $P280
- .const 'Sub' $P274 = "79_1275117582.32416"
- capture_lex $P274
- .const 'Sub' $P268 = "77_1275117582.32416"
- capture_lex $P268
- .const 'Sub' $P261 = "75_1275117582.32416"
- capture_lex $P261
- .const 'Sub' $P254 = "73_1275117582.32416"
- capture_lex $P254
- .const 'Sub' $P247 = "71_1275117582.32416"
- capture_lex $P247
- .const 'Sub' $P240 = "69_1275117582.32416"
- capture_lex $P240
- .const 'Sub' $P234 = "67_1275117582.32416"
- capture_lex $P234
- .const 'Sub' $P228 = "65_1275117582.32416"
- capture_lex $P228
- .const 'Sub' $P222 = "63_1275117582.32416"
- capture_lex $P222
- .const 'Sub' $P216 = "61_1275117582.32416"
- capture_lex $P216
- .const 'Sub' $P210 = "59_1275117582.32416"
+ .const 'Sub' $P576 = "156_1275811476.7961"
+ capture_lex $P576
+ .const 'Sub' $P568 = "154_1275811476.7961"
+ capture_lex $P568
+ .const 'Sub' $P560 = "152_1275811476.7961"
+ capture_lex $P560
+ .const 'Sub' $P539 = "147_1275811476.7961"
+ capture_lex $P539
+ .const 'Sub' $P504 = "141_1275811476.7961"
+ capture_lex $P504
+ .const 'Sub' $P492 = "138_1275811476.7961"
+ capture_lex $P492
+ .const 'Sub' $P479 = "135_1275811476.7961"
+ capture_lex $P479
+ .const 'Sub' $P473 = "133_1275811476.7961"
+ capture_lex $P473
+ .const 'Sub' $P462 = "130_1275811476.7961"
+ capture_lex $P462
+ .const 'Sub' $P451 = "127_1275811476.7961"
+ capture_lex $P451
+ .const 'Sub' $P442 = "123_1275811476.7961"
+ capture_lex $P442
+ .const 'Sub' $P436 = "121_1275811476.7961"
+ capture_lex $P436
+ .const 'Sub' $P430 = "119_1275811476.7961"
+ capture_lex $P430
+ .const 'Sub' $P424 = "117_1275811476.7961"
+ capture_lex $P424
+ .const 'Sub' $P418 = "115_1275811476.7961"
+ capture_lex $P418
+ .const 'Sub' $P410 = "113_1275811476.7961"
+ capture_lex $P410
+ .const 'Sub' $P399 = "111_1275811476.7961"
+ capture_lex $P399
+ .const 'Sub' $P388 = "109_1275811476.7961"
+ capture_lex $P388
+ .const 'Sub' $P382 = "107_1275811476.7961"
+ capture_lex $P382
+ .const 'Sub' $P376 = "105_1275811476.7961"
+ capture_lex $P376
+ .const 'Sub' $P370 = "103_1275811476.7961"
+ capture_lex $P370
+ .const 'Sub' $P364 = "101_1275811476.7961"
+ capture_lex $P364
+ .const 'Sub' $P358 = "99_1275811476.7961"
+ capture_lex $P358
+ .const 'Sub' $P352 = "97_1275811476.7961"
+ capture_lex $P352
+ .const 'Sub' $P346 = "95_1275811476.7961"
+ capture_lex $P346
+ .const 'Sub' $P340 = "93_1275811476.7961"
+ capture_lex $P340
+ .const 'Sub' $P328 = "89_1275811476.7961"
+ capture_lex $P328
+ .const 'Sub' $P316 = "87_1275811476.7961"
+ capture_lex $P316
+ .const 'Sub' $P309 = "85_1275811476.7961"
+ capture_lex $P309
+ .const 'Sub' $P292 = "83_1275811476.7961"
+ capture_lex $P292
+ .const 'Sub' $P285 = "81_1275811476.7961"
+ capture_lex $P285
+ .const 'Sub' $P279 = "79_1275811476.7961"
+ capture_lex $P279
+ .const 'Sub' $P273 = "77_1275811476.7961"
+ capture_lex $P273
+ .const 'Sub' $P266 = "75_1275811476.7961"
+ capture_lex $P266
+ .const 'Sub' $P259 = "73_1275811476.7961"
+ capture_lex $P259
+ .const 'Sub' $P252 = "71_1275811476.7961"
+ capture_lex $P252
+ .const 'Sub' $P245 = "69_1275811476.7961"
+ capture_lex $P245
+ .const 'Sub' $P239 = "67_1275811476.7961"
+ capture_lex $P239
+ .const 'Sub' $P233 = "65_1275811476.7961"
+ capture_lex $P233
+ .const 'Sub' $P227 = "63_1275811476.7961"
+ capture_lex $P227
+ .const 'Sub' $P221 = "61_1275811476.7961"
+ capture_lex $P221
+ .const 'Sub' $P215 = "59_1275811476.7961"
+ capture_lex $P215
+ .const 'Sub' $P210 = "57_1275811476.7961"
capture_lex $P210
- .const 'Sub' $P205 = "57_1275117582.32416"
+ .const 'Sub' $P205 = "55_1275811476.7961"
capture_lex $P205
- .const 'Sub' $P200 = "55_1275117582.32416"
- capture_lex $P200
- .const 'Sub' $P194 = "53_1275117582.32416"
- capture_lex $P194
- .const 'Sub' $P188 = "51_1275117582.32416"
- capture_lex $P188
- .const 'Sub' $P182 = "49_1275117582.32416"
- capture_lex $P182
- .const 'Sub' $P166 = "44_1275117582.32416"
- capture_lex $P166
- .const 'Sub' $P154 = "42_1275117582.32416"
- capture_lex $P154
- .const 'Sub' $P147 = "40_1275117582.32416"
- capture_lex $P147
- .const 'Sub' $P140 = "38_1275117582.32416"
- capture_lex $P140
- .const 'Sub' $P133 = "36_1275117582.32416"
- capture_lex $P133
- .const 'Sub' $P114 = "31_1275117582.32416"
- capture_lex $P114
- .const 'Sub' $P101 = "28_1275117582.32416"
- capture_lex $P101
- .const 'Sub' $P94 = "26_1275117582.32416"
- capture_lex $P94
- .const 'Sub' $P82 = "24_1275117582.32416"
- capture_lex $P82
- .const 'Sub' $P75 = "22_1275117582.32416"
- capture_lex $P75
- .const 'Sub' $P63 = "20_1275117582.32416"
+ .const 'Sub' $P199 = "53_1275811476.7961"
+ capture_lex $P199
+ .const 'Sub' $P193 = "51_1275811476.7961"
+ capture_lex $P193
+ .const 'Sub' $P187 = "49_1275811476.7961"
+ capture_lex $P187
+ .const 'Sub' $P171 = "44_1275811476.7961"
+ capture_lex $P171
+ .const 'Sub' $P155 = "42_1275811476.7961"
+ capture_lex $P155
+ .const 'Sub' $P148 = "40_1275811476.7961"
+ capture_lex $P148
+ .const 'Sub' $P141 = "38_1275811476.7961"
+ capture_lex $P141
+ .const 'Sub' $P134 = "36_1275811476.7961"
+ capture_lex $P134
+ .const 'Sub' $P115 = "31_1275811476.7961"
+ capture_lex $P115
+ .const 'Sub' $P102 = "28_1275811476.7961"
+ capture_lex $P102
+ .const 'Sub' $P95 = "26_1275811476.7961"
+ capture_lex $P95
+ .const 'Sub' $P83 = "24_1275811476.7961"
+ capture_lex $P83
+ .const 'Sub' $P76 = "22_1275811476.7961"
+ capture_lex $P76
+ .const 'Sub' $P63 = "20_1275811476.7961"
capture_lex $P63
- .const 'Sub' $P56 = "18_1275117582.32416"
+ .const 'Sub' $P56 = "18_1275811476.7961"
capture_lex $P56
- .const 'Sub' $P46 = "15_1275117582.32416"
+ .const 'Sub' $P46 = "15_1275811476.7961"
capture_lex $P46
- .const 'Sub' $P38 = "13_1275117582.32416"
+ .const 'Sub' $P38 = "13_1275811476.7961"
capture_lex $P38
- .const 'Sub' $P15 = "12_1275117582.32416"
+ .const 'Sub' $P15 = "12_1275811476.7961"
capture_lex $P15
$P0 = find_dynamic_lex "$*CTXSAVE"
if null $P0 goto ctxsave_done
@@ -182,16 +182,17 @@
unless $I0 goto ctxsave_done
$P0."ctxsave"()
ctxsave_done:
- .const 'Sub' $P571 = "156_1275117582.32416"
- capture_lex $P571
- .return ($P571)
- .const 'Sub' $P580 = "158_1275117582.32416"
- .return ($P580)
+ .const 'Sub' $P576 = "156_1275811476.7961"
+ capture_lex $P576
+ .return ($P576)
+ .const 'Sub' $P585 = "158_1275811476.7961"
+ .return ($P585)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "obs" :subid("12_1275117582.32416") :method :outer("11_1275117582.32416")
+.include "except_types.pasm"
+.sub "obs" :subid("12_1275811476.7961") :method :outer("11_1275811476.7961")
.param pmc param_18
.param pmc param_19
.param pmc param_20 :optional
@@ -199,7 +200,7 @@
.annotate 'line', 3
new $P17, 'ExceptionHandler'
set_addr $P17, control_16
- $P17."handle_types"(57)
+ $P17."handle_types"(.CONTROL_RETURN)
push_eh $P17
.lex "self", self
.lex "$old", param_18
@@ -239,7 +240,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "ws" :subid("13_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "ws" :subid("13_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
.local string rx39_tgt
.local int rx39_pos
@@ -253,6 +254,7 @@
.local pmc match
.lex "$/", match
length rx39_eos, rx39_tgt
+ gt rx39_pos, rx39_eos, rx39_done
set rx39_off, 0
lt rx39_pos, 2, rx39_start
sub rx39_off, rx39_pos, 1
@@ -321,7 +323,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__ws" :subid("14_1275117582.32416") :method
+.sub "!PREFIX__ws" :subid("14_1275811476.7961") :method
.annotate 'line', 3
new $P41, "ResizablePMCArray"
push $P41, ""
@@ -330,9 +332,9 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "normspace" :subid("15_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "normspace" :subid("15_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P52 = "17_1275117582.32416"
+ .const 'Sub' $P52 = "17_1275811476.7961"
capture_lex $P52
.local string rx47_tgt
.local int rx47_pos
@@ -346,6 +348,7 @@
.local pmc match
.lex "$/", match
length rx47_eos, rx47_tgt
+ gt rx47_pos, rx47_eos, rx47_done
set rx47_off, 0
lt rx47_pos, 2, rx47_start
sub rx47_off, rx47_pos, 1
@@ -366,7 +369,7 @@
.annotate 'line', 10
# rx subrule "before" subtype=zerowidth negate=
rx47_cur."!cursor_pos"(rx47_pos)
- .const 'Sub' $P52 = "17_1275117582.32416"
+ .const 'Sub' $P52 = "17_1275811476.7961"
capture_lex $P52
$P10 = rx47_cur."before"($P52)
unless $P10, rx47_fail
@@ -394,7 +397,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__normspace" :subid("16_1275117582.32416") :method
+.sub "!PREFIX__normspace" :subid("16_1275811476.7961") :method
.annotate 'line', 3
new $P49, "ResizablePMCArray"
push $P49, ""
@@ -403,7 +406,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block51" :anon :subid("17_1275117582.32416") :method :outer("15_1275117582.32416")
+.sub "_block51" :anon :subid("17_1275811476.7961") :method :outer("15_1275811476.7961")
.annotate 'line', 10
.local string rx53_tgt
.local int rx53_pos
@@ -417,6 +420,7 @@
.local pmc match
.lex "$/", match
length rx53_eos, rx53_tgt
+ gt rx53_pos, rx53_eos, rx53_done
set rx53_off, 0
lt rx53_pos, 2, rx53_start
sub rx53_off, rx53_pos, 1
@@ -471,7 +475,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "arg" :subid("18_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "arg" :subid("18_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
.local string rx57_tgt
.local int rx57_pos
@@ -485,6 +489,7 @@
.local pmc match
.lex "$/", match
length rx57_eos, rx57_tgt
+ gt rx57_pos, rx57_eos, rx57_done
set rx57_off, 0
lt rx57_pos, 2, rx57_start
sub rx57_off, rx57_pos, 1
@@ -582,7 +587,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__arg" :subid("19_1275117582.32416") :method
+.sub "!PREFIX__arg" :subid("19_1275811476.7961") :method
.annotate 'line', 3
new $P59, "ResizablePMCArray"
push $P59, ""
@@ -593,7 +598,7 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "arglist" :subid("20_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "arglist" :subid("20_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
.local string rx64_tgt
.local int rx64_pos
@@ -608,23 +613,24 @@
.local pmc match
.lex "$/", match
length rx64_eos, rx64_tgt
+ gt rx64_pos, rx64_eos, rx64_done
set rx64_off, 0
lt rx64_pos, 2, rx64_start
sub rx64_off, rx64_pos, 1
substr rx64_tgt, rx64_tgt, rx64_off
rx64_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan67_done
- goto rxscan67_scan
- rxscan67_loop:
+ ne $I10, -1, rxscan68_done
+ goto rxscan68_scan
+ rxscan68_loop:
($P10) = rx64_cur."from"()
inc $P10
set rx64_pos, $P10
- ge rx64_pos, rx64_eos, rxscan67_done
- rxscan67_scan:
- set_addr $I10, rxscan67_loop
+ ge rx64_pos, rx64_eos, rxscan68_done
+ rxscan68_scan:
+ set_addr $I10, rxscan68_loop
rx64_cur."!mark_push"(0, rx64_pos, $I10)
- rxscan67_done:
+ rxscan68_done:
.annotate 'line', 20
# rx subrule "ws" subtype=method negate=
rx64_cur."!cursor_pos"(rx64_pos)
@@ -643,10 +649,10 @@
$P10 = rx64_cur."ws"()
unless $P10, rx64_fail
rx64_pos = $P10."pos"()
- # rx rxquantr70 ** 0..*
- set_addr $I73, rxquantr70_done
- rx64_cur."!mark_push"(0, rx64_pos, $I73)
- rxquantr70_loop:
+ # rx rxquantr71 ** 0..*
+ set_addr $I74, rxquantr71_done
+ rx64_cur."!mark_push"(0, rx64_pos, $I74)
+ rxquantr71_loop:
# rx subrule "ws" subtype=method negate=
rx64_cur."!cursor_pos"(rx64_pos)
$P10 = rx64_cur."ws"()
@@ -671,10 +677,10 @@
rx64_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arg")
rx64_pos = $P10."pos"()
- (rx64_rep) = rx64_cur."!mark_commit"($I73)
- rx64_cur."!mark_push"(rx64_rep, rx64_pos, $I73)
- goto rxquantr70_loop
- rxquantr70_done:
+ (rx64_rep) = rx64_cur."!mark_commit"($I74)
+ rx64_cur."!mark_push"(rx64_rep, rx64_pos, $I74)
+ goto rxquantr71_loop
+ rxquantr71_done:
# rx subrule "ws" subtype=method negate=
rx64_cur."!cursor_pos"(rx64_pos)
$P10 = rx64_cur."ws"()
@@ -699,1648 +705,1610 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__arglist" :subid("21_1275117582.32416") :method
+.sub "!PREFIX__arglist" :subid("21_1275811476.7961") :method
.annotate 'line', 3
- new $P66, "ResizablePMCArray"
- push $P66, ""
- .return ($P66)
+ $P66 = self."!PREFIX__!subrule"("ws", "")
+ new $P67, "ResizablePMCArray"
+ push $P67, $P66
+ .return ($P67)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "TOP" :subid("22_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .local string rx76_tgt
- .local int rx76_pos
- .local int rx76_off
- .local int rx76_eos
- .local int rx76_rep
- .local pmc rx76_cur
- (rx76_cur, rx76_pos, rx76_tgt) = self."!cursor_start"()
- rx76_cur."!cursor_debug"("START ", "TOP")
- .lex unicode:"$\x{a2}", rx76_cur
- .local pmc match
- .lex "$/", match
- length rx76_eos, rx76_tgt
- set rx76_off, 0
- lt rx76_pos, 2, rx76_start
- sub rx76_off, rx76_pos, 1
- substr rx76_tgt, rx76_tgt, rx76_off
- rx76_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan80_done
- goto rxscan80_scan
- rxscan80_loop:
- ($P10) = rx76_cur."from"()
- inc $P10
- set rx76_pos, $P10
- ge rx76_pos, rx76_eos, rxscan80_done
- rxscan80_scan:
- set_addr $I10, rxscan80_loop
- rx76_cur."!mark_push"(0, rx76_pos, $I10)
- rxscan80_done:
+.sub "TOP" :subid("22_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .local string rx77_tgt
+ .local int rx77_pos
+ .local int rx77_off
+ .local int rx77_eos
+ .local int rx77_rep
+ .local pmc rx77_cur
+ (rx77_cur, rx77_pos, rx77_tgt) = self."!cursor_start"()
+ rx77_cur."!cursor_debug"("START ", "TOP")
+ .lex unicode:"$\x{a2}", rx77_cur
+ .local pmc match
+ .lex "$/", match
+ length rx77_eos, rx77_tgt
+ gt rx77_pos, rx77_eos, rx77_done
+ set rx77_off, 0
+ lt rx77_pos, 2, rx77_start
+ sub rx77_off, rx77_pos, 1
+ substr rx77_tgt, rx77_tgt, rx77_off
+ rx77_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan81_done
+ goto rxscan81_scan
+ rxscan81_loop:
+ ($P10) = rx77_cur."from"()
+ inc $P10
+ set rx77_pos, $P10
+ ge rx77_pos, rx77_eos, rxscan81_done
+ rxscan81_scan:
+ set_addr $I10, rxscan81_loop
+ rx77_cur."!mark_push"(0, rx77_pos, $I10)
+ rxscan81_done:
.annotate 'line', 23
# rx subrule "nibbler" subtype=capture negate=
- rx76_cur."!cursor_pos"(rx76_pos)
- $P10 = rx76_cur."nibbler"()
- unless $P10, rx76_fail
- rx76_cur."!mark_push"(0, -1, 0, $P10)
+ rx77_cur."!cursor_pos"(rx77_pos)
+ $P10 = rx77_cur."nibbler"()
+ unless $P10, rx77_fail
+ rx77_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("nibbler")
- rx76_pos = $P10."pos"()
- alt81_0:
+ rx77_pos = $P10."pos"()
+ alt82_0:
.annotate 'line', 24
- set_addr $I10, alt81_1
- rx76_cur."!mark_push"(0, rx76_pos, $I10)
+ set_addr $I10, alt82_1
+ rx77_cur."!mark_push"(0, rx77_pos, $I10)
# rxanchor eos
- ne rx76_pos, rx76_eos, rx76_fail
- goto alt81_end
- alt81_1:
+ ne rx77_pos, rx77_eos, rx77_fail
+ goto alt82_end
+ alt82_1:
# rx subrule "panic" subtype=method negate=
- rx76_cur."!cursor_pos"(rx76_pos)
- $P10 = rx76_cur."panic"("Confused")
- unless $P10, rx76_fail
- rx76_pos = $P10."pos"()
- alt81_end:
+ rx77_cur."!cursor_pos"(rx77_pos)
+ $P10 = rx77_cur."panic"("Confused")
+ unless $P10, rx77_fail
+ rx77_pos = $P10."pos"()
+ alt82_end:
.annotate 'line', 22
# rx pass
- rx76_cur."!cursor_pass"(rx76_pos, "TOP")
- rx76_cur."!cursor_debug"("PASS ", "TOP", " at pos=", rx76_pos)
- .return (rx76_cur)
- rx76_fail:
+ rx77_cur."!cursor_pass"(rx77_pos, "TOP")
+ rx77_cur."!cursor_debug"("PASS ", "TOP", " at pos=", rx77_pos)
+ .return (rx77_cur)
+ rx77_fail:
.annotate 'line', 3
- (rx76_rep, rx76_pos, $I10, $P10) = rx76_cur."!mark_fail"(0)
- lt rx76_pos, -1, rx76_done
- eq rx76_pos, -1, rx76_fail
+ (rx77_rep, rx77_pos, $I10, $P10) = rx77_cur."!mark_fail"(0)
+ lt rx77_pos, -1, rx77_done
+ eq rx77_pos, -1, rx77_fail
jump $I10
- rx76_done:
- rx76_cur."!cursor_fail"()
- rx76_cur."!cursor_debug"("FAIL ", "TOP")
- .return (rx76_cur)
+ rx77_done:
+ rx77_cur."!cursor_fail"()
+ rx77_cur."!cursor_debug"("FAIL ", "TOP")
+ .return (rx77_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__TOP" :subid("23_1275117582.32416") :method
+.sub "!PREFIX__TOP" :subid("23_1275811476.7961") :method
.annotate 'line', 3
- $P78 = self."!PREFIX__!subrule"("nibbler", "")
- new $P79, "ResizablePMCArray"
- push $P79, $P78
- .return ($P79)
+ $P79 = self."!PREFIX__!subrule"("nibbler", "")
+ new $P80, "ResizablePMCArray"
+ push $P80, $P79
+ .return ($P80)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "nibbler" :subid("24_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "nibbler" :subid("24_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx83_tgt
- .local int rx83_pos
- .local int rx83_off
- .local int rx83_eos
- .local int rx83_rep
- .local pmc rx83_cur
- (rx83_cur, rx83_pos, rx83_tgt) = self."!cursor_start"()
- rx83_cur."!cursor_debug"("START ", "nibbler")
- rx83_cur."!cursor_caparray"("termish")
- .lex unicode:"$\x{a2}", rx83_cur
+ .local string rx84_tgt
+ .local int rx84_pos
+ .local int rx84_off
+ .local int rx84_eos
+ .local int rx84_rep
+ .local pmc rx84_cur
+ (rx84_cur, rx84_pos, rx84_tgt) = self."!cursor_start"()
+ rx84_cur."!cursor_debug"("START ", "nibbler")
+ rx84_cur."!cursor_caparray"("termish")
+ .lex unicode:"$\x{a2}", rx84_cur
.local pmc match
.lex "$/", match
- length rx83_eos, rx83_tgt
- set rx83_off, 0
- lt rx83_pos, 2, rx83_start
- sub rx83_off, rx83_pos, 1
- substr rx83_tgt, rx83_tgt, rx83_off
- rx83_start:
+ length rx84_eos, rx84_tgt
+ gt rx84_pos, rx84_eos, rx84_done
+ set rx84_off, 0
+ lt rx84_pos, 2, rx84_start
+ sub rx84_off, rx84_pos, 1
+ substr rx84_tgt, rx84_tgt, rx84_off
+ rx84_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan86_done
- goto rxscan86_scan
- rxscan86_loop:
- ($P10) = rx83_cur."from"()
+ ne $I10, -1, rxscan87_done
+ goto rxscan87_scan
+ rxscan87_loop:
+ ($P10) = rx84_cur."from"()
inc $P10
- set rx83_pos, $P10
- ge rx83_pos, rx83_eos, rxscan86_done
- rxscan86_scan:
- set_addr $I10, rxscan86_loop
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
- rxscan86_done:
+ set rx84_pos, $P10
+ ge rx84_pos, rx84_eos, rxscan87_done
+ rxscan87_scan:
+ set_addr $I10, rxscan87_loop
+ rx84_cur."!mark_push"(0, rx84_pos, $I10)
+ rxscan87_done:
.annotate 'line', 28
# rx reduce name="nibbler" key="open"
- rx83_cur."!cursor_pos"(rx83_pos)
- rx83_cur."!reduce"("nibbler", "open")
+ rx84_cur."!cursor_pos"(rx84_pos)
+ rx84_cur."!reduce"("nibbler", "open")
.annotate 'line', 29
- # rx rxquantr87 ** 0..1
- set_addr $I89, rxquantr87_done
- rx83_cur."!mark_push"(0, rx83_pos, $I89)
- rxquantr87_loop:
+ # rx rxquantr88 ** 0..1
+ set_addr $I90, rxquantr88_done
+ rx84_cur."!mark_push"(0, rx84_pos, $I90)
+ rxquantr88_loop:
# rx subrule "ws" subtype=method negate=
- rx83_cur."!cursor_pos"(rx83_pos)
- $P10 = rx83_cur."ws"()
- unless $P10, rx83_fail
- rx83_pos = $P10."pos"()
- alt88_0:
- set_addr $I10, alt88_1
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
+ rx84_cur."!cursor_pos"(rx84_pos)
+ $P10 = rx84_cur."ws"()
+ unless $P10, rx84_fail
+ rx84_pos = $P10."pos"()
+ alt89_0:
+ set_addr $I10, alt89_1
+ rx84_cur."!mark_push"(0, rx84_pos, $I10)
# rx literal "||"
- add $I11, rx83_pos, 2
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 2
- ne $S10, "||", rx83_fail
- add rx83_pos, 2
- goto alt88_end
- alt88_1:
- set_addr $I10, alt88_2
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
+ add $I11, rx84_pos, 2
+ gt $I11, rx84_eos, rx84_fail
+ sub $I11, rx84_pos, rx84_off
+ substr $S10, rx84_tgt, $I11, 2
+ ne $S10, "||", rx84_fail
+ add rx84_pos, 2
+ goto alt89_end
+ alt89_1:
+ set_addr $I10, alt89_2
+ rx84_cur."!mark_push"(0, rx84_pos, $I10)
# rx literal "|"
- add $I11, rx83_pos, 1
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 1
- ne $S10, "|", rx83_fail
- add rx83_pos, 1
- goto alt88_end
- alt88_2:
- set_addr $I10, alt88_3
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
+ add $I11, rx84_pos, 1
+ gt $I11, rx84_eos, rx84_fail
+ sub $I11, rx84_pos, rx84_off
+ substr $S10, rx84_tgt, $I11, 1
+ ne $S10, "|", rx84_fail
+ add rx84_pos, 1
+ goto alt89_end
+ alt89_2:
+ set_addr $I10, alt89_3
+ rx84_cur."!mark_push"(0, rx84_pos, $I10)
# rx literal "&&"
- add $I11, rx83_pos, 2
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 2
- ne $S10, "&&", rx83_fail
- add rx83_pos, 2
- goto alt88_end
- alt88_3:
+ add $I11, rx84_pos, 2
+ gt $I11, rx84_eos, rx84_fail
+ sub $I11, rx84_pos, rx84_off
+ substr $S10, rx84_tgt, $I11, 2
+ ne $S10, "&&", rx84_fail
+ add rx84_pos, 2
+ goto alt89_end
+ alt89_3:
# rx literal "&"
- add $I11, rx83_pos, 1
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 1
- ne $S10, "&", rx83_fail
- add rx83_pos, 1
- alt88_end:
- (rx83_rep) = rx83_cur."!mark_commit"($I89)
- rxquantr87_done:
+ add $I11, rx84_pos, 1
+ gt $I11, rx84_eos, rx84_fail
+ sub $I11, rx84_pos, rx84_off
+ substr $S10, rx84_tgt, $I11, 1
+ ne $S10, "&", rx84_fail
+ add rx84_pos, 1
+ alt89_end:
+ (rx84_rep) = rx84_cur."!mark_commit"($I90)
+ rxquantr88_done:
.annotate 'line', 30
# rx subrule "termish" subtype=capture negate=
- rx83_cur."!cursor_pos"(rx83_pos)
- $P10 = rx83_cur."termish"()
- unless $P10, rx83_fail
- rx83_cur."!mark_push"(0, -1, 0, $P10)
+ rx84_cur."!cursor_pos"(rx84_pos)
+ $P10 = rx84_cur."termish"()
+ unless $P10, rx84_fail
+ rx84_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("termish")
- rx83_pos = $P10."pos"()
+ rx84_pos = $P10."pos"()
.annotate 'line', 33
- # rx rxquantr90 ** 0..*
- set_addr $I93, rxquantr90_done
- rx83_cur."!mark_push"(0, rx83_pos, $I93)
- rxquantr90_loop:
- alt91_0:
+ # rx rxquantr91 ** 0..*
+ set_addr $I94, rxquantr91_done
+ rx84_cur."!mark_push"(0, rx84_pos, $I94)
+ rxquantr91_loop:
+ alt92_0:
.annotate 'line', 31
- set_addr $I10, alt91_1
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
+ set_addr $I10, alt92_1
+ rx84_cur."!mark_push"(0, rx84_pos, $I10)
# rx literal "||"
- add $I11, rx83_pos, 2
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 2
- ne $S10, "||", rx83_fail
- add rx83_pos, 2
- goto alt91_end
- alt91_1:
+ add $I11, rx84_pos, 2
+ gt $I11, rx84_eos, rx84_fail
+ sub $I11, rx84_pos, rx84_off
+ substr $S10, rx84_tgt, $I11, 2
+ ne $S10, "||", rx84_fail
+ add rx84_pos, 2
+ goto alt92_end
+ alt92_1:
# rx literal "|"
- add $I11, rx83_pos, 1
- gt $I11, rx83_eos, rx83_fail
- sub $I11, rx83_pos, rx83_off
- substr $S10, rx83_tgt, $I11, 1
- ne $S10, "|", rx83_fail
- add rx83_pos, 1
- alt91_end:
- alt92_0:
+ add $I11, rx84_pos, 1
+ gt $I11, rx84_eos, rx84_fail
+ sub $I11, rx84_pos, rx84_off
+ substr $S10, rx84_tgt, $I11, 1
+ ne $S10, "|", rx84_fail
+ add rx84_pos, 1
+ alt92_end:
+ alt93_0:
.annotate 'line', 32
- set_addr $I10, alt92_1
- rx83_cur."!mark_push"(0, rx83_pos, $I10)
+ set_addr $I10, alt93_1
+ rx84_cur."!mark_push"(0, rx84_pos, $I10)
# rx subrule "termish" subtype=capture negate=
- rx83_cur."!cursor_pos"(rx83_pos)
- $P10 = rx83_cur."termish"()
- unless $P10, rx83_fail
- rx83_cur."!mark_push"(0, -1, 0, $P10)
+ rx84_cur."!cursor_pos"(rx84_pos)
+ $P10 = rx84_cur."termish"()
+ unless $P10, rx84_fail
+ rx84_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("termish")
- rx83_pos = $P10."pos"()
- goto alt92_end
- alt92_1:
+ rx84_pos = $P10."pos"()
+ goto alt93_end
+ alt93_1:
# rx subrule "panic" subtype=method negate=
- rx83_cur."!cursor_pos"(rx83_pos)
- $P10 = rx83_cur."panic"("Null pattern not allowed")
- unless $P10, rx83_fail
- rx83_pos = $P10."pos"()
- alt92_end:
+ rx84_cur."!cursor_pos"(rx84_pos)
+ $P10 = rx84_cur."panic"("Null pattern not allowed")
+ unless $P10, rx84_fail
+ rx84_pos = $P10."pos"()
+ alt93_end:
.annotate 'line', 33
- (rx83_rep) = rx83_cur."!mark_commit"($I93)
- rx83_cur."!mark_push"(rx83_rep, rx83_pos, $I93)
- goto rxquantr90_loop
- rxquantr90_done:
+ (rx84_rep) = rx84_cur."!mark_commit"($I94)
+ rx84_cur."!mark_push"(rx84_rep, rx84_pos, $I94)
+ goto rxquantr91_loop
+ rxquantr91_done:
.annotate 'line', 27
# rx pass
- rx83_cur."!cursor_pass"(rx83_pos, "nibbler")
- rx83_cur."!cursor_debug"("PASS ", "nibbler", " at pos=", rx83_pos)
- .return (rx83_cur)
- rx83_fail:
+ rx84_cur."!cursor_pass"(rx84_pos, "nibbler")
+ rx84_cur."!cursor_debug"("PASS ", "nibbler", " at pos=", rx84_pos)
+ .return (rx84_cur)
+ rx84_fail:
.annotate 'line', 3
- (rx83_rep, rx83_pos, $I10, $P10) = rx83_cur."!mark_fail"(0)
- lt rx83_pos, -1, rx83_done
- eq rx83_pos, -1, rx83_fail
+ (rx84_rep, rx84_pos, $I10, $P10) = rx84_cur."!mark_fail"(0)
+ lt rx84_pos, -1, rx84_done
+ eq rx84_pos, -1, rx84_fail
jump $I10
- rx83_done:
- rx83_cur."!cursor_fail"()
- rx83_cur."!cursor_debug"("FAIL ", "nibbler")
- .return (rx83_cur)
+ rx84_done:
+ rx84_cur."!cursor_fail"()
+ rx84_cur."!cursor_debug"("FAIL ", "nibbler")
+ .return (rx84_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__nibbler" :subid("25_1275117582.32416") :method
+.sub "!PREFIX__nibbler" :subid("25_1275811476.7961") :method
.annotate 'line', 3
- new $P85, "ResizablePMCArray"
- push $P85, ""
- .return ($P85)
+ new $P86, "ResizablePMCArray"
+ push $P86, ""
+ .return ($P86)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "termish" :subid("26_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "termish" :subid("26_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx95_tgt
- .local int rx95_pos
- .local int rx95_off
- .local int rx95_eos
- .local int rx95_rep
- .local pmc rx95_cur
- (rx95_cur, rx95_pos, rx95_tgt) = self."!cursor_start"()
- rx95_cur."!cursor_debug"("START ", "termish")
- rx95_cur."!cursor_caparray"("noun")
- .lex unicode:"$\x{a2}", rx95_cur
+ .local string rx96_tgt
+ .local int rx96_pos
+ .local int rx96_off
+ .local int rx96_eos
+ .local int rx96_rep
+ .local pmc rx96_cur
+ (rx96_cur, rx96_pos, rx96_tgt) = self."!cursor_start"()
+ rx96_cur."!cursor_debug"("START ", "termish")
+ rx96_cur."!cursor_caparray"("noun")
+ .lex unicode:"$\x{a2}", rx96_cur
.local pmc match
.lex "$/", match
- length rx95_eos, rx95_tgt
- set rx95_off, 0
- lt rx95_pos, 2, rx95_start
- sub rx95_off, rx95_pos, 1
- substr rx95_tgt, rx95_tgt, rx95_off
- rx95_start:
+ length rx96_eos, rx96_tgt
+ gt rx96_pos, rx96_eos, rx96_done
+ set rx96_off, 0
+ lt rx96_pos, 2, rx96_start
+ sub rx96_off, rx96_pos, 1
+ substr rx96_tgt, rx96_tgt, rx96_off
+ rx96_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan98_done
- goto rxscan98_scan
- rxscan98_loop:
- ($P10) = rx95_cur."from"()
+ ne $I10, -1, rxscan99_done
+ goto rxscan99_scan
+ rxscan99_loop:
+ ($P10) = rx96_cur."from"()
inc $P10
- set rx95_pos, $P10
- ge rx95_pos, rx95_eos, rxscan98_done
- rxscan98_scan:
- set_addr $I10, rxscan98_loop
- rx95_cur."!mark_push"(0, rx95_pos, $I10)
- rxscan98_done:
+ set rx96_pos, $P10
+ ge rx96_pos, rx96_eos, rxscan99_done
+ rxscan99_scan:
+ set_addr $I10, rxscan99_loop
+ rx96_cur."!mark_push"(0, rx96_pos, $I10)
+ rxscan99_done:
.annotate 'line', 37
- # rx rxquantr99 ** 1..*
- set_addr $I100, rxquantr99_done
- rx95_cur."!mark_push"(0, -1, $I100)
- rxquantr99_loop:
+ # rx rxquantr100 ** 1..*
+ set_addr $I101, rxquantr100_done
+ rx96_cur."!mark_push"(0, -1, $I101)
+ rxquantr100_loop:
# rx subrule "quantified_atom" subtype=capture negate=
- rx95_cur."!cursor_pos"(rx95_pos)
- $P10 = rx95_cur."quantified_atom"()
- unless $P10, rx95_fail
- rx95_cur."!mark_push"(0, -1, 0, $P10)
+ rx96_cur."!cursor_pos"(rx96_pos)
+ $P10 = rx96_cur."quantified_atom"()
+ unless $P10, rx96_fail
+ rx96_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("noun")
- rx95_pos = $P10."pos"()
- (rx95_rep) = rx95_cur."!mark_commit"($I100)
- rx95_cur."!mark_push"(rx95_rep, rx95_pos, $I100)
- goto rxquantr99_loop
- rxquantr99_done:
+ rx96_pos = $P10."pos"()
+ (rx96_rep) = rx96_cur."!mark_commit"($I101)
+ rx96_cur."!mark_push"(rx96_rep, rx96_pos, $I101)
+ goto rxquantr100_loop
+ rxquantr100_done:
.annotate 'line', 36
# rx pass
- rx95_cur."!cursor_pass"(rx95_pos, "termish")
- rx95_cur."!cursor_debug"("PASS ", "termish", " at pos=", rx95_pos)
- .return (rx95_cur)
- rx95_fail:
+ rx96_cur."!cursor_pass"(rx96_pos, "termish")
+ rx96_cur."!cursor_debug"("PASS ", "termish", " at pos=", rx96_pos)
+ .return (rx96_cur)
+ rx96_fail:
.annotate 'line', 3
- (rx95_rep, rx95_pos, $I10, $P10) = rx95_cur."!mark_fail"(0)
- lt rx95_pos, -1, rx95_done
- eq rx95_pos, -1, rx95_fail
+ (rx96_rep, rx96_pos, $I10, $P10) = rx96_cur."!mark_fail"(0)
+ lt rx96_pos, -1, rx96_done
+ eq rx96_pos, -1, rx96_fail
jump $I10
- rx95_done:
- rx95_cur."!cursor_fail"()
- rx95_cur."!cursor_debug"("FAIL ", "termish")
- .return (rx95_cur)
+ rx96_done:
+ rx96_cur."!cursor_fail"()
+ rx96_cur."!cursor_debug"("FAIL ", "termish")
+ .return (rx96_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__termish" :subid("27_1275117582.32416") :method
+.sub "!PREFIX__termish" :subid("27_1275811476.7961") :method
.annotate 'line', 3
- new $P97, "ResizablePMCArray"
- push $P97, ""
- .return ($P97)
+ new $P98, "ResizablePMCArray"
+ push $P98, ""
+ .return ($P98)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantified_atom" :subid("28_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "quantified_atom" :subid("28_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P110 = "30_1275117582.32416"
- capture_lex $P110
- .local string rx102_tgt
- .local int rx102_pos
- .local int rx102_off
- .local int rx102_eos
- .local int rx102_rep
- .local pmc rx102_cur
- (rx102_cur, rx102_pos, rx102_tgt) = self."!cursor_start"()
- rx102_cur."!cursor_debug"("START ", "quantified_atom")
- rx102_cur."!cursor_caparray"("quantifier", "backmod")
- .lex unicode:"$\x{a2}", rx102_cur
+ .const 'Sub' $P111 = "30_1275811476.7961"
+ capture_lex $P111
+ .local string rx103_tgt
+ .local int rx103_pos
+ .local int rx103_off
+ .local int rx103_eos
+ .local int rx103_rep
+ .local pmc rx103_cur
+ (rx103_cur, rx103_pos, rx103_tgt) = self."!cursor_start"()
+ rx103_cur."!cursor_debug"("START ", "quantified_atom")
+ rx103_cur."!cursor_caparray"("quantifier", "backmod")
+ .lex unicode:"$\x{a2}", rx103_cur
.local pmc match
.lex "$/", match
- length rx102_eos, rx102_tgt
- set rx102_off, 0
- lt rx102_pos, 2, rx102_start
- sub rx102_off, rx102_pos, 1
- substr rx102_tgt, rx102_tgt, rx102_off
- rx102_start:
+ length rx103_eos, rx103_tgt
+ gt rx103_pos, rx103_eos, rx103_done
+ set rx103_off, 0
+ lt rx103_pos, 2, rx103_start
+ sub rx103_off, rx103_pos, 1
+ substr rx103_tgt, rx103_tgt, rx103_off
+ rx103_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan106_done
- goto rxscan106_scan
- rxscan106_loop:
- ($P10) = rx102_cur."from"()
+ ne $I10, -1, rxscan107_done
+ goto rxscan107_scan
+ rxscan107_loop:
+ ($P10) = rx103_cur."from"()
inc $P10
- set rx102_pos, $P10
- ge rx102_pos, rx102_eos, rxscan106_done
- rxscan106_scan:
- set_addr $I10, rxscan106_loop
- rx102_cur."!mark_push"(0, rx102_pos, $I10)
- rxscan106_done:
+ set rx103_pos, $P10
+ ge rx103_pos, rx103_eos, rxscan107_done
+ rxscan107_scan:
+ set_addr $I10, rxscan107_loop
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
+ rxscan107_done:
.annotate 'line', 41
# rx subrule "atom" subtype=capture negate=
- rx102_cur."!cursor_pos"(rx102_pos)
- $P10 = rx102_cur."atom"()
- unless $P10, rx102_fail
- rx102_cur."!mark_push"(0, -1, 0, $P10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."atom"()
+ unless $P10, rx103_fail
+ rx103_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("atom")
- rx102_pos = $P10."pos"()
- # rx rxquantr107 ** 0..1
- set_addr $I113, rxquantr107_done
- rx102_cur."!mark_push"(0, rx102_pos, $I113)
- rxquantr107_loop:
+ rx103_pos = $P10."pos"()
+ # rx rxquantr108 ** 0..1
+ set_addr $I114, rxquantr108_done
+ rx103_cur."!mark_push"(0, rx103_pos, $I114)
+ rxquantr108_loop:
# rx subrule "ws" subtype=method negate=
- rx102_cur."!cursor_pos"(rx102_pos)
- $P10 = rx102_cur."ws"()
- unless $P10, rx102_fail
- rx102_pos = $P10."pos"()
- alt108_0:
- set_addr $I10, alt108_1
- rx102_cur."!mark_push"(0, rx102_pos, $I10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."ws"()
+ unless $P10, rx103_fail
+ rx103_pos = $P10."pos"()
+ alt109_0:
+ set_addr $I10, alt109_1
+ rx103_cur."!mark_push"(0, rx103_pos, $I10)
# rx subrule "quantifier" subtype=capture negate=
- rx102_cur."!cursor_pos"(rx102_pos)
- $P10 = rx102_cur."quantifier"()
- unless $P10, rx102_fail
- rx102_cur."!mark_push"(0, -1, 0, $P10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."quantifier"()
+ unless $P10, rx103_fail
+ rx103_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quantifier")
- rx102_pos = $P10."pos"()
- goto alt108_end
- alt108_1:
+ rx103_pos = $P10."pos"()
+ goto alt109_end
+ alt109_1:
# rx subrule "before" subtype=zerowidth negate=
- rx102_cur."!cursor_pos"(rx102_pos)
- .const 'Sub' $P110 = "30_1275117582.32416"
- capture_lex $P110
- $P10 = rx102_cur."before"($P110)
- unless $P10, rx102_fail
+ rx103_cur."!cursor_pos"(rx103_pos)
+ .const 'Sub' $P111 = "30_1275811476.7961"
+ capture_lex $P111
+ $P10 = rx103_cur."before"($P111)
+ unless $P10, rx103_fail
# rx subrule "backmod" subtype=capture negate=
- rx102_cur."!cursor_pos"(rx102_pos)
- $P10 = rx102_cur."backmod"()
- unless $P10, rx102_fail
- rx102_cur."!mark_push"(0, -1, 0, $P10)
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."backmod"()
+ unless $P10, rx103_fail
+ rx103_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("backmod")
- rx102_pos = $P10."pos"()
+ rx103_pos = $P10."pos"()
# rx subrule "alpha" subtype=zerowidth negate=1
- rx102_cur."!cursor_pos"(rx102_pos)
- $P10 = rx102_cur."alpha"()
- if $P10, rx102_fail
- alt108_end:
- (rx102_rep) = rx102_cur."!mark_commit"($I113)
- rxquantr107_done:
+ rx103_cur."!cursor_pos"(rx103_pos)
+ $P10 = rx103_cur."alpha"()
+ if $P10, rx103_fail
+ alt109_end:
+ (rx103_rep) = rx103_cur."!mark_commit"($I114)
+ rxquantr108_done:
.annotate 'line', 40
# rx pass
- rx102_cur."!cursor_pass"(rx102_pos, "quantified_atom")
- rx102_cur."!cursor_debug"("PASS ", "quantified_atom", " at pos=", rx102_pos)
- .return (rx102_cur)
- rx102_fail:
+ rx103_cur."!cursor_pass"(rx103_pos, "quantified_atom")
+ rx103_cur."!cursor_debug"("PASS ", "quantified_atom", " at pos=", rx103_pos)
+ .return (rx103_cur)
+ rx103_fail:
.annotate 'line', 3
- (rx102_rep, rx102_pos, $I10, $P10) = rx102_cur."!mark_fail"(0)
- lt rx102_pos, -1, rx102_done
- eq rx102_pos, -1, rx102_fail
+ (rx103_rep, rx103_pos, $I10, $P10) = rx103_cur."!mark_fail"(0)
+ lt rx103_pos, -1, rx103_done
+ eq rx103_pos, -1, rx103_fail
jump $I10
- rx102_done:
- rx102_cur."!cursor_fail"()
- rx102_cur."!cursor_debug"("FAIL ", "quantified_atom")
- .return (rx102_cur)
+ rx103_done:
+ rx103_cur."!cursor_fail"()
+ rx103_cur."!cursor_debug"("FAIL ", "quantified_atom")
+ .return (rx103_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantified_atom" :subid("29_1275117582.32416") :method
+.sub "!PREFIX__quantified_atom" :subid("29_1275811476.7961") :method
.annotate 'line', 3
- $P104 = self."!PREFIX__!subrule"("atom", "")
- new $P105, "ResizablePMCArray"
- push $P105, $P104
- .return ($P105)
+ $P105 = self."!PREFIX__!subrule"("atom", "")
+ new $P106, "ResizablePMCArray"
+ push $P106, $P105
+ .return ($P106)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block109" :anon :subid("30_1275117582.32416") :method :outer("28_1275117582.32416")
+.sub "_block110" :anon :subid("30_1275811476.7961") :method :outer("28_1275811476.7961")
.annotate 'line', 41
- .local string rx111_tgt
- .local int rx111_pos
- .local int rx111_off
- .local int rx111_eos
- .local int rx111_rep
- .local pmc rx111_cur
- (rx111_cur, rx111_pos, rx111_tgt) = self."!cursor_start"()
- rx111_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx111_cur
- .local pmc match
- .lex "$/", match
- length rx111_eos, rx111_tgt
- set rx111_off, 0
- lt rx111_pos, 2, rx111_start
- sub rx111_off, rx111_pos, 1
- substr rx111_tgt, rx111_tgt, rx111_off
- rx111_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan112_done
- goto rxscan112_scan
- rxscan112_loop:
- ($P10) = rx111_cur."from"()
- inc $P10
- set rx111_pos, $P10
- ge rx111_pos, rx111_eos, rxscan112_done
- rxscan112_scan:
- set_addr $I10, rxscan112_loop
- rx111_cur."!mark_push"(0, rx111_pos, $I10)
- rxscan112_done:
+ .local string rx112_tgt
+ .local int rx112_pos
+ .local int rx112_off
+ .local int rx112_eos
+ .local int rx112_rep
+ .local pmc rx112_cur
+ (rx112_cur, rx112_pos, rx112_tgt) = self."!cursor_start"()
+ rx112_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx112_cur
+ .local pmc match
+ .lex "$/", match
+ length rx112_eos, rx112_tgt
+ gt rx112_pos, rx112_eos, rx112_done
+ set rx112_off, 0
+ lt rx112_pos, 2, rx112_start
+ sub rx112_off, rx112_pos, 1
+ substr rx112_tgt, rx112_tgt, rx112_off
+ rx112_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan113_done
+ goto rxscan113_scan
+ rxscan113_loop:
+ ($P10) = rx112_cur."from"()
+ inc $P10
+ set rx112_pos, $P10
+ ge rx112_pos, rx112_eos, rxscan113_done
+ rxscan113_scan:
+ set_addr $I10, rxscan113_loop
+ rx112_cur."!mark_push"(0, rx112_pos, $I10)
+ rxscan113_done:
# rx literal ":"
- add $I11, rx111_pos, 1
- gt $I11, rx111_eos, rx111_fail
- sub $I11, rx111_pos, rx111_off
- substr $S10, rx111_tgt, $I11, 1
- ne $S10, ":", rx111_fail
- add rx111_pos, 1
- # rx pass
- rx111_cur."!cursor_pass"(rx111_pos, "")
- rx111_cur."!cursor_debug"("PASS ", "", " at pos=", rx111_pos)
- .return (rx111_cur)
- rx111_fail:
- (rx111_rep, rx111_pos, $I10, $P10) = rx111_cur."!mark_fail"(0)
- lt rx111_pos, -1, rx111_done
- eq rx111_pos, -1, rx111_fail
- jump $I10
- rx111_done:
- rx111_cur."!cursor_fail"()
- rx111_cur."!cursor_debug"("FAIL ", "")
- .return (rx111_cur)
+ add $I11, rx112_pos, 1
+ gt $I11, rx112_eos, rx112_fail
+ sub $I11, rx112_pos, rx112_off
+ substr $S10, rx112_tgt, $I11, 1
+ ne $S10, ":", rx112_fail
+ add rx112_pos, 1
+ # rx pass
+ rx112_cur."!cursor_pass"(rx112_pos, "")
+ rx112_cur."!cursor_debug"("PASS ", "", " at pos=", rx112_pos)
+ .return (rx112_cur)
+ rx112_fail:
+ (rx112_rep, rx112_pos, $I10, $P10) = rx112_cur."!mark_fail"(0)
+ lt rx112_pos, -1, rx112_done
+ eq rx112_pos, -1, rx112_fail
+ jump $I10
+ rx112_done:
+ rx112_cur."!cursor_fail"()
+ rx112_cur."!cursor_debug"("FAIL ", "")
+ .return (rx112_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "atom" :subid("31_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .const 'Sub' $P125 = "33_1275117582.32416"
- capture_lex $P125
- .local string rx115_tgt
- .local int rx115_pos
- .local int rx115_off
- .local int rx115_eos
- .local int rx115_rep
- .local pmc rx115_cur
- (rx115_cur, rx115_pos, rx115_tgt) = self."!cursor_start"()
- rx115_cur."!cursor_debug"("START ", "atom")
- .lex unicode:"$\x{a2}", rx115_cur
- .local pmc match
- .lex "$/", match
- length rx115_eos, rx115_tgt
- set rx115_off, 0
- lt rx115_pos, 2, rx115_start
- sub rx115_off, rx115_pos, 1
- substr rx115_tgt, rx115_tgt, rx115_off
- rx115_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan119_done
- goto rxscan119_scan
- rxscan119_loop:
- ($P10) = rx115_cur."from"()
- inc $P10
- set rx115_pos, $P10
- ge rx115_pos, rx115_eos, rxscan119_done
- rxscan119_scan:
- set_addr $I10, rxscan119_loop
- rx115_cur."!mark_push"(0, rx115_pos, $I10)
- rxscan119_done:
- alt120_0:
+.sub "atom" :subid("31_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .const 'Sub' $P126 = "33_1275811476.7961"
+ capture_lex $P126
+ .local string rx116_tgt
+ .local int rx116_pos
+ .local int rx116_off
+ .local int rx116_eos
+ .local int rx116_rep
+ .local pmc rx116_cur
+ (rx116_cur, rx116_pos, rx116_tgt) = self."!cursor_start"()
+ rx116_cur."!cursor_debug"("START ", "atom")
+ .lex unicode:"$\x{a2}", rx116_cur
+ .local pmc match
+ .lex "$/", match
+ length rx116_eos, rx116_tgt
+ gt rx116_pos, rx116_eos, rx116_done
+ set rx116_off, 0
+ lt rx116_pos, 2, rx116_start
+ sub rx116_off, rx116_pos, 1
+ substr rx116_tgt, rx116_tgt, rx116_off
+ rx116_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan120_done
+ goto rxscan120_scan
+ rxscan120_loop:
+ ($P10) = rx116_cur."from"()
+ inc $P10
+ set rx116_pos, $P10
+ ge rx116_pos, rx116_eos, rxscan120_done
+ rxscan120_scan:
+ set_addr $I10, rxscan120_loop
+ rx116_cur."!mark_push"(0, rx116_pos, $I10)
+ rxscan120_done:
+ alt121_0:
.annotate 'line', 46
- set_addr $I10, alt120_1
- rx115_cur."!mark_push"(0, rx115_pos, $I10)
+ set_addr $I10, alt121_1
+ rx116_cur."!mark_push"(0, rx116_pos, $I10)
.annotate 'line', 47
# rx charclass w
- ge rx115_pos, rx115_eos, rx115_fail
- sub $I10, rx115_pos, rx115_off
- is_cclass $I11, 8192, rx115_tgt, $I10
- unless $I11, rx115_fail
- inc rx115_pos
- # rx rxquantr121 ** 0..1
- set_addr $I128, rxquantr121_done
- rx115_cur."!mark_push"(0, rx115_pos, $I128)
- rxquantr121_loop:
- # rx rxquantg122 ** 1..*
- set_addr $I123, rxquantg122_done
- rxquantg122_loop:
+ ge rx116_pos, rx116_eos, rx116_fail
+ sub $I10, rx116_pos, rx116_off
+ is_cclass $I11, 8192, rx116_tgt, $I10
+ unless $I11, rx116_fail
+ inc rx116_pos
+ # rx rxquantr122 ** 0..1
+ set_addr $I129, rxquantr122_done
+ rx116_cur."!mark_push"(0, rx116_pos, $I129)
+ rxquantr122_loop:
+ # rx rxquantg123 ** 1..*
+ set_addr $I124, rxquantg123_done
+ rxquantg123_loop:
# rx charclass w
- ge rx115_pos, rx115_eos, rx115_fail
- sub $I10, rx115_pos, rx115_off
- is_cclass $I11, 8192, rx115_tgt, $I10
- unless $I11, rx115_fail
- inc rx115_pos
- rx115_cur."!mark_push"(rx115_rep, rx115_pos, $I123)
- goto rxquantg122_loop
- rxquantg122_done:
+ ge rx116_pos, rx116_eos, rx116_fail
+ sub $I10, rx116_pos, rx116_off
+ is_cclass $I11, 8192, rx116_tgt, $I10
+ unless $I11, rx116_fail
+ inc rx116_pos
+ rx116_cur."!mark_push"(rx116_rep, rx116_pos, $I124)
+ goto rxquantg123_loop
+ rxquantg123_done:
# rx subrule "before" subtype=zerowidth negate=
- rx115_cur."!cursor_pos"(rx115_pos)
- .const 'Sub' $P125 = "33_1275117582.32416"
- capture_lex $P125
- $P10 = rx115_cur."before"($P125)
- unless $P10, rx115_fail
- (rx115_rep) = rx115_cur."!mark_commit"($I128)
- rxquantr121_done:
- goto alt120_end
- alt120_1:
+ rx116_cur."!cursor_pos"(rx116_pos)
+ .const 'Sub' $P126 = "33_1275811476.7961"
+ capture_lex $P126
+ $P10 = rx116_cur."before"($P126)
+ unless $P10, rx116_fail
+ (rx116_rep) = rx116_cur."!mark_commit"($I129)
+ rxquantr122_done:
+ goto alt121_end
+ alt121_1:
.annotate 'line', 48
# rx subrule "metachar" subtype=capture negate=
- rx115_cur."!cursor_pos"(rx115_pos)
- $P10 = rx115_cur."metachar"()
- unless $P10, rx115_fail
- rx115_cur."!mark_push"(0, -1, 0, $P10)
+ rx116_cur."!cursor_pos"(rx116_pos)
+ $P10 = rx116_cur."metachar"()
+ unless $P10, rx116_fail
+ rx116_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("metachar")
- rx115_pos = $P10."pos"()
- alt120_end:
+ rx116_pos = $P10."pos"()
+ alt121_end:
.annotate 'line', 44
# rx pass
- rx115_cur."!cursor_pass"(rx115_pos, "atom")
- rx115_cur."!cursor_debug"("PASS ", "atom", " at pos=", rx115_pos)
- .return (rx115_cur)
- rx115_fail:
+ rx116_cur."!cursor_pass"(rx116_pos, "atom")
+ rx116_cur."!cursor_debug"("PASS ", "atom", " at pos=", rx116_pos)
+ .return (rx116_cur)
+ rx116_fail:
.annotate 'line', 3
- (rx115_rep, rx115_pos, $I10, $P10) = rx115_cur."!mark_fail"(0)
- lt rx115_pos, -1, rx115_done
- eq rx115_pos, -1, rx115_fail
+ (rx116_rep, rx116_pos, $I10, $P10) = rx116_cur."!mark_fail"(0)
+ lt rx116_pos, -1, rx116_done
+ eq rx116_pos, -1, rx116_fail
jump $I10
- rx115_done:
- rx115_cur."!cursor_fail"()
- rx115_cur."!cursor_debug"("FAIL ", "atom")
- .return (rx115_cur)
+ rx116_done:
+ rx116_cur."!cursor_fail"()
+ rx116_cur."!cursor_debug"("FAIL ", "atom")
+ .return (rx116_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__atom" :subid("32_1275117582.32416") :method
+.sub "!PREFIX__atom" :subid("32_1275811476.7961") :method
.annotate 'line', 3
- $P117 = self."!PREFIX__!subrule"("metachar", "")
- new $P118, "ResizablePMCArray"
- push $P118, $P117
- push $P118, ""
- .return ($P118)
+ $P118 = self."!PREFIX__!subrule"("metachar", "")
+ new $P119, "ResizablePMCArray"
+ push $P119, $P118
+ push $P119, ""
+ .return ($P119)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block124" :anon :subid("33_1275117582.32416") :method :outer("31_1275117582.32416")
+.sub "_block125" :anon :subid("33_1275811476.7961") :method :outer("31_1275811476.7961")
.annotate 'line', 47
- .local string rx126_tgt
- .local int rx126_pos
- .local int rx126_off
- .local int rx126_eos
- .local int rx126_rep
- .local pmc rx126_cur
- (rx126_cur, rx126_pos, rx126_tgt) = self."!cursor_start"()
- rx126_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx126_cur
- .local pmc match
- .lex "$/", match
- length rx126_eos, rx126_tgt
- set rx126_off, 0
- lt rx126_pos, 2, rx126_start
- sub rx126_off, rx126_pos, 1
- substr rx126_tgt, rx126_tgt, rx126_off
- rx126_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan127_done
- goto rxscan127_scan
- rxscan127_loop:
- ($P10) = rx126_cur."from"()
- inc $P10
- set rx126_pos, $P10
- ge rx126_pos, rx126_eos, rxscan127_done
- rxscan127_scan:
- set_addr $I10, rxscan127_loop
- rx126_cur."!mark_push"(0, rx126_pos, $I10)
- rxscan127_done:
+ .local string rx127_tgt
+ .local int rx127_pos
+ .local int rx127_off
+ .local int rx127_eos
+ .local int rx127_rep
+ .local pmc rx127_cur
+ (rx127_cur, rx127_pos, rx127_tgt) = self."!cursor_start"()
+ rx127_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx127_cur
+ .local pmc match
+ .lex "$/", match
+ length rx127_eos, rx127_tgt
+ gt rx127_pos, rx127_eos, rx127_done
+ set rx127_off, 0
+ lt rx127_pos, 2, rx127_start
+ sub rx127_off, rx127_pos, 1
+ substr rx127_tgt, rx127_tgt, rx127_off
+ rx127_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan128_done
+ goto rxscan128_scan
+ rxscan128_loop:
+ ($P10) = rx127_cur."from"()
+ inc $P10
+ set rx127_pos, $P10
+ ge rx127_pos, rx127_eos, rxscan128_done
+ rxscan128_scan:
+ set_addr $I10, rxscan128_loop
+ rx127_cur."!mark_push"(0, rx127_pos, $I10)
+ rxscan128_done:
# rx charclass w
- ge rx126_pos, rx126_eos, rx126_fail
- sub $I10, rx126_pos, rx126_off
- is_cclass $I11, 8192, rx126_tgt, $I10
- unless $I11, rx126_fail
- inc rx126_pos
+ ge rx127_pos, rx127_eos, rx127_fail
+ sub $I10, rx127_pos, rx127_off
+ is_cclass $I11, 8192, rx127_tgt, $I10
+ unless $I11, rx127_fail
+ inc rx127_pos
# rx pass
- rx126_cur."!cursor_pass"(rx126_pos, "")
- rx126_cur."!cursor_debug"("PASS ", "", " at pos=", rx126_pos)
- .return (rx126_cur)
- rx126_fail:
- (rx126_rep, rx126_pos, $I10, $P10) = rx126_cur."!mark_fail"(0)
- lt rx126_pos, -1, rx126_done
- eq rx126_pos, -1, rx126_fail
+ rx127_cur."!cursor_pass"(rx127_pos, "")
+ rx127_cur."!cursor_debug"("PASS ", "", " at pos=", rx127_pos)
+ .return (rx127_cur)
+ rx127_fail:
+ (rx127_rep, rx127_pos, $I10, $P10) = rx127_cur."!mark_fail"(0)
+ lt rx127_pos, -1, rx127_done
+ eq rx127_pos, -1, rx127_fail
jump $I10
- rx126_done:
- rx126_cur."!cursor_fail"()
- rx126_cur."!cursor_debug"("FAIL ", "")
- .return (rx126_cur)
+ rx127_done:
+ rx127_cur."!cursor_fail"()
+ rx127_cur."!cursor_debug"("FAIL ", "")
+ .return (rx127_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier" :subid("34_1275117582.32416") :method
+.sub "quantifier" :subid("34_1275811476.7961") :method
.annotate 'line', 52
- $P130 = self."!protoregex"("quantifier")
- .return ($P130)
+ $P131 = self."!protoregex"("quantifier")
+ .return ($P131)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier" :subid("35_1275117582.32416") :method
+.sub "!PREFIX__quantifier" :subid("35_1275811476.7961") :method
.annotate 'line', 52
- $P132 = self."!PREFIX__!protoregex"("quantifier")
- .return ($P132)
+ $P133 = self."!PREFIX__!protoregex"("quantifier")
+ .return ($P133)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<*>" :subid("36_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "quantifier:sym<*>" :subid("36_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx134_tgt
- .local int rx134_pos
- .local int rx134_off
- .local int rx134_eos
- .local int rx134_rep
- .local pmc rx134_cur
- (rx134_cur, rx134_pos, rx134_tgt) = self."!cursor_start"()
- rx134_cur."!cursor_debug"("START ", "quantifier:sym<*>")
- .lex unicode:"$\x{a2}", rx134_cur
- .local pmc match
- .lex "$/", match
- length rx134_eos, rx134_tgt
- set rx134_off, 0
- lt rx134_pos, 2, rx134_start
- sub rx134_off, rx134_pos, 1
- substr rx134_tgt, rx134_tgt, rx134_off
- rx134_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan138_done
- goto rxscan138_scan
- rxscan138_loop:
- ($P10) = rx134_cur."from"()
- inc $P10
- set rx134_pos, $P10
- ge rx134_pos, rx134_eos, rxscan138_done
- rxscan138_scan:
- set_addr $I10, rxscan138_loop
- rx134_cur."!mark_push"(0, rx134_pos, $I10)
- rxscan138_done:
+ .local string rx135_tgt
+ .local int rx135_pos
+ .local int rx135_off
+ .local int rx135_eos
+ .local int rx135_rep
+ .local pmc rx135_cur
+ (rx135_cur, rx135_pos, rx135_tgt) = self."!cursor_start"()
+ rx135_cur."!cursor_debug"("START ", "quantifier:sym<*>")
+ .lex unicode:"$\x{a2}", rx135_cur
+ .local pmc match
+ .lex "$/", match
+ length rx135_eos, rx135_tgt
+ gt rx135_pos, rx135_eos, rx135_done
+ set rx135_off, 0
+ lt rx135_pos, 2, rx135_start
+ sub rx135_off, rx135_pos, 1
+ substr rx135_tgt, rx135_tgt, rx135_off
+ rx135_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan139_done
+ goto rxscan139_scan
+ rxscan139_loop:
+ ($P10) = rx135_cur."from"()
+ inc $P10
+ set rx135_pos, $P10
+ ge rx135_pos, rx135_eos, rxscan139_done
+ rxscan139_scan:
+ set_addr $I10, rxscan139_loop
+ rx135_cur."!mark_push"(0, rx135_pos, $I10)
+ rxscan139_done:
.annotate 'line', 53
# rx subcapture "sym"
- set_addr $I10, rxcap_139_fail
- rx134_cur."!mark_push"(0, rx134_pos, $I10)
+ set_addr $I10, rxcap_140_fail
+ rx135_cur."!mark_push"(0, rx135_pos, $I10)
# rx literal "*"
- add $I11, rx134_pos, 1
- gt $I11, rx134_eos, rx134_fail
- sub $I11, rx134_pos, rx134_off
- substr $S10, rx134_tgt, $I11, 1
- ne $S10, "*", rx134_fail
- add rx134_pos, 1
- set_addr $I10, rxcap_139_fail
- ($I12, $I11) = rx134_cur."!mark_peek"($I10)
- rx134_cur."!cursor_pos"($I11)
- ($P10) = rx134_cur."!cursor_start"()
- $P10."!cursor_pass"(rx134_pos, "")
- rx134_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx135_pos, 1
+ gt $I11, rx135_eos, rx135_fail
+ sub $I11, rx135_pos, rx135_off
+ substr $S10, rx135_tgt, $I11, 1
+ ne $S10, "*", rx135_fail
+ add rx135_pos, 1
+ set_addr $I10, rxcap_140_fail
+ ($I12, $I11) = rx135_cur."!mark_peek"($I10)
+ rx135_cur."!cursor_pos"($I11)
+ ($P10) = rx135_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx135_pos, "")
+ rx135_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_139_done
- rxcap_139_fail:
- goto rx134_fail
- rxcap_139_done:
+ goto rxcap_140_done
+ rxcap_140_fail:
+ goto rx135_fail
+ rxcap_140_done:
# rx subrule "backmod" subtype=capture negate=
- rx134_cur."!cursor_pos"(rx134_pos)
- $P10 = rx134_cur."backmod"()
- unless $P10, rx134_fail
- rx134_cur."!mark_push"(0, -1, 0, $P10)
+ rx135_cur."!cursor_pos"(rx135_pos)
+ $P10 = rx135_cur."backmod"()
+ unless $P10, rx135_fail
+ rx135_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("backmod")
- rx134_pos = $P10."pos"()
+ rx135_pos = $P10."pos"()
# rx pass
- rx134_cur."!cursor_pass"(rx134_pos, "quantifier:sym<*>")
- rx134_cur."!cursor_debug"("PASS ", "quantifier:sym<*>", " at pos=", rx134_pos)
- .return (rx134_cur)
- rx134_fail:
+ rx135_cur."!cursor_pass"(rx135_pos, "quantifier:sym<*>")
+ rx135_cur."!cursor_debug"("PASS ", "quantifier:sym<*>", " at pos=", rx135_pos)
+ .return (rx135_cur)
+ rx135_fail:
.annotate 'line', 3
- (rx134_rep, rx134_pos, $I10, $P10) = rx134_cur."!mark_fail"(0)
- lt rx134_pos, -1, rx134_done
- eq rx134_pos, -1, rx134_fail
+ (rx135_rep, rx135_pos, $I10, $P10) = rx135_cur."!mark_fail"(0)
+ lt rx135_pos, -1, rx135_done
+ eq rx135_pos, -1, rx135_fail
jump $I10
- rx134_done:
- rx134_cur."!cursor_fail"()
- rx134_cur."!cursor_debug"("FAIL ", "quantifier:sym<*>")
- .return (rx134_cur)
+ rx135_done:
+ rx135_cur."!cursor_fail"()
+ rx135_cur."!cursor_debug"("FAIL ", "quantifier:sym<*>")
+ .return (rx135_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<*>" :subid("37_1275117582.32416") :method
+.sub "!PREFIX__quantifier:sym<*>" :subid("37_1275811476.7961") :method
.annotate 'line', 3
- $P136 = self."!PREFIX__!subrule"("backmod", "*")
- new $P137, "ResizablePMCArray"
- push $P137, $P136
- .return ($P137)
+ $P137 = self."!PREFIX__!subrule"("backmod", "*")
+ new $P138, "ResizablePMCArray"
+ push $P138, $P137
+ .return ($P138)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<+>" :subid("38_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "quantifier:sym<+>" :subid("38_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx141_tgt
- .local int rx141_pos
- .local int rx141_off
- .local int rx141_eos
- .local int rx141_rep
- .local pmc rx141_cur
- (rx141_cur, rx141_pos, rx141_tgt) = self."!cursor_start"()
- rx141_cur."!cursor_debug"("START ", "quantifier:sym<+>")
- .lex unicode:"$\x{a2}", rx141_cur
+ .local string rx142_tgt
+ .local int rx142_pos
+ .local int rx142_off
+ .local int rx142_eos
+ .local int rx142_rep
+ .local pmc rx142_cur
+ (rx142_cur, rx142_pos, rx142_tgt) = self."!cursor_start"()
+ rx142_cur."!cursor_debug"("START ", "quantifier:sym<+>")
+ .lex unicode:"$\x{a2}", rx142_cur
.local pmc match
.lex "$/", match
- length rx141_eos, rx141_tgt
- set rx141_off, 0
- lt rx141_pos, 2, rx141_start
- sub rx141_off, rx141_pos, 1
- substr rx141_tgt, rx141_tgt, rx141_off
- rx141_start:
+ length rx142_eos, rx142_tgt
+ gt rx142_pos, rx142_eos, rx142_done
+ set rx142_off, 0
+ lt rx142_pos, 2, rx142_start
+ sub rx142_off, rx142_pos, 1
+ substr rx142_tgt, rx142_tgt, rx142_off
+ rx142_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan145_done
- goto rxscan145_scan
- rxscan145_loop:
- ($P10) = rx141_cur."from"()
+ ne $I10, -1, rxscan146_done
+ goto rxscan146_scan
+ rxscan146_loop:
+ ($P10) = rx142_cur."from"()
inc $P10
- set rx141_pos, $P10
- ge rx141_pos, rx141_eos, rxscan145_done
- rxscan145_scan:
- set_addr $I10, rxscan145_loop
- rx141_cur."!mark_push"(0, rx141_pos, $I10)
- rxscan145_done:
+ set rx142_pos, $P10
+ ge rx142_pos, rx142_eos, rxscan146_done
+ rxscan146_scan:
+ set_addr $I10, rxscan146_loop
+ rx142_cur."!mark_push"(0, rx142_pos, $I10)
+ rxscan146_done:
.annotate 'line', 54
# rx subcapture "sym"
- set_addr $I10, rxcap_146_fail
- rx141_cur."!mark_push"(0, rx141_pos, $I10)
+ set_addr $I10, rxcap_147_fail
+ rx142_cur."!mark_push"(0, rx142_pos, $I10)
# rx literal "+"
- add $I11, rx141_pos, 1
- gt $I11, rx141_eos, rx141_fail
- sub $I11, rx141_pos, rx141_off
- substr $S10, rx141_tgt, $I11, 1
- ne $S10, "+", rx141_fail
- add rx141_pos, 1
- set_addr $I10, rxcap_146_fail
- ($I12, $I11) = rx141_cur."!mark_peek"($I10)
- rx141_cur."!cursor_pos"($I11)
- ($P10) = rx141_cur."!cursor_start"()
- $P10."!cursor_pass"(rx141_pos, "")
- rx141_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx142_pos, 1
+ gt $I11, rx142_eos, rx142_fail
+ sub $I11, rx142_pos, rx142_off
+ substr $S10, rx142_tgt, $I11, 1
+ ne $S10, "+", rx142_fail
+ add rx142_pos, 1
+ set_addr $I10, rxcap_147_fail
+ ($I12, $I11) = rx142_cur."!mark_peek"($I10)
+ rx142_cur."!cursor_pos"($I11)
+ ($P10) = rx142_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx142_pos, "")
+ rx142_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_146_done
- rxcap_146_fail:
- goto rx141_fail
- rxcap_146_done:
+ goto rxcap_147_done
+ rxcap_147_fail:
+ goto rx142_fail
+ rxcap_147_done:
# rx subrule "backmod" subtype=capture negate=
- rx141_cur."!cursor_pos"(rx141_pos)
- $P10 = rx141_cur."backmod"()
- unless $P10, rx141_fail
- rx141_cur."!mark_push"(0, -1, 0, $P10)
+ rx142_cur."!cursor_pos"(rx142_pos)
+ $P10 = rx142_cur."backmod"()
+ unless $P10, rx142_fail
+ rx142_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("backmod")
- rx141_pos = $P10."pos"()
+ rx142_pos = $P10."pos"()
# rx pass
- rx141_cur."!cursor_pass"(rx141_pos, "quantifier:sym<+>")
- rx141_cur."!cursor_debug"("PASS ", "quantifier:sym<+>", " at pos=", rx141_pos)
- .return (rx141_cur)
- rx141_fail:
+ rx142_cur."!cursor_pass"(rx142_pos, "quantifier:sym<+>")
+ rx142_cur."!cursor_debug"("PASS ", "quantifier:sym<+>", " at pos=", rx142_pos)
+ .return (rx142_cur)
+ rx142_fail:
.annotate 'line', 3
- (rx141_rep, rx141_pos, $I10, $P10) = rx141_cur."!mark_fail"(0)
- lt rx141_pos, -1, rx141_done
- eq rx141_pos, -1, rx141_fail
+ (rx142_rep, rx142_pos, $I10, $P10) = rx142_cur."!mark_fail"(0)
+ lt rx142_pos, -1, rx142_done
+ eq rx142_pos, -1, rx142_fail
jump $I10
- rx141_done:
- rx141_cur."!cursor_fail"()
- rx141_cur."!cursor_debug"("FAIL ", "quantifier:sym<+>")
- .return (rx141_cur)
+ rx142_done:
+ rx142_cur."!cursor_fail"()
+ rx142_cur."!cursor_debug"("FAIL ", "quantifier:sym<+>")
+ .return (rx142_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<+>" :subid("39_1275117582.32416") :method
+.sub "!PREFIX__quantifier:sym<+>" :subid("39_1275811476.7961") :method
.annotate 'line', 3
- $P143 = self."!PREFIX__!subrule"("backmod", "+")
- new $P144, "ResizablePMCArray"
- push $P144, $P143
- .return ($P144)
+ $P144 = self."!PREFIX__!subrule"("backmod", "+")
+ new $P145, "ResizablePMCArray"
+ push $P145, $P144
+ .return ($P145)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<?>" :subid("40_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "quantifier:sym<?>" :subid("40_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx148_tgt
- .local int rx148_pos
- .local int rx148_off
- .local int rx148_eos
- .local int rx148_rep
- .local pmc rx148_cur
- (rx148_cur, rx148_pos, rx148_tgt) = self."!cursor_start"()
- rx148_cur."!cursor_debug"("START ", "quantifier:sym<?>")
- .lex unicode:"$\x{a2}", rx148_cur
+ .local string rx149_tgt
+ .local int rx149_pos
+ .local int rx149_off
+ .local int rx149_eos
+ .local int rx149_rep
+ .local pmc rx149_cur
+ (rx149_cur, rx149_pos, rx149_tgt) = self."!cursor_start"()
+ rx149_cur."!cursor_debug"("START ", "quantifier:sym<?>")
+ .lex unicode:"$\x{a2}", rx149_cur
.local pmc match
.lex "$/", match
- length rx148_eos, rx148_tgt
- set rx148_off, 0
- lt rx148_pos, 2, rx148_start
- sub rx148_off, rx148_pos, 1
- substr rx148_tgt, rx148_tgt, rx148_off
- rx148_start:
+ length rx149_eos, rx149_tgt
+ gt rx149_pos, rx149_eos, rx149_done
+ set rx149_off, 0
+ lt rx149_pos, 2, rx149_start
+ sub rx149_off, rx149_pos, 1
+ substr rx149_tgt, rx149_tgt, rx149_off
+ rx149_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan152_done
- goto rxscan152_scan
- rxscan152_loop:
- ($P10) = rx148_cur."from"()
+ ne $I10, -1, rxscan153_done
+ goto rxscan153_scan
+ rxscan153_loop:
+ ($P10) = rx149_cur."from"()
inc $P10
- set rx148_pos, $P10
- ge rx148_pos, rx148_eos, rxscan152_done
- rxscan152_scan:
- set_addr $I10, rxscan152_loop
- rx148_cur."!mark_push"(0, rx148_pos, $I10)
- rxscan152_done:
+ set rx149_pos, $P10
+ ge rx149_pos, rx149_eos, rxscan153_done
+ rxscan153_scan:
+ set_addr $I10, rxscan153_loop
+ rx149_cur."!mark_push"(0, rx149_pos, $I10)
+ rxscan153_done:
.annotate 'line', 55
# rx subcapture "sym"
- set_addr $I10, rxcap_153_fail
- rx148_cur."!mark_push"(0, rx148_pos, $I10)
+ set_addr $I10, rxcap_154_fail
+ rx149_cur."!mark_push"(0, rx149_pos, $I10)
# rx literal "?"
- add $I11, rx148_pos, 1
- gt $I11, rx148_eos, rx148_fail
- sub $I11, rx148_pos, rx148_off
- substr $S10, rx148_tgt, $I11, 1
- ne $S10, "?", rx148_fail
- add rx148_pos, 1
- set_addr $I10, rxcap_153_fail
- ($I12, $I11) = rx148_cur."!mark_peek"($I10)
- rx148_cur."!cursor_pos"($I11)
- ($P10) = rx148_cur."!cursor_start"()
- $P10."!cursor_pass"(rx148_pos, "")
- rx148_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx149_pos, 1
+ gt $I11, rx149_eos, rx149_fail
+ sub $I11, rx149_pos, rx149_off
+ substr $S10, rx149_tgt, $I11, 1
+ ne $S10, "?", rx149_fail
+ add rx149_pos, 1
+ set_addr $I10, rxcap_154_fail
+ ($I12, $I11) = rx149_cur."!mark_peek"($I10)
+ rx149_cur."!cursor_pos"($I11)
+ ($P10) = rx149_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx149_pos, "")
+ rx149_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_153_done
- rxcap_153_fail:
- goto rx148_fail
- rxcap_153_done:
+ goto rxcap_154_done
+ rxcap_154_fail:
+ goto rx149_fail
+ rxcap_154_done:
# rx subrule "backmod" subtype=capture negate=
- rx148_cur."!cursor_pos"(rx148_pos)
- $P10 = rx148_cur."backmod"()
- unless $P10, rx148_fail
- rx148_cur."!mark_push"(0, -1, 0, $P10)
+ rx149_cur."!cursor_pos"(rx149_pos)
+ $P10 = rx149_cur."backmod"()
+ unless $P10, rx149_fail
+ rx149_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("backmod")
- rx148_pos = $P10."pos"()
+ rx149_pos = $P10."pos"()
# rx pass
- rx148_cur."!cursor_pass"(rx148_pos, "quantifier:sym<?>")
- rx148_cur."!cursor_debug"("PASS ", "quantifier:sym<?>", " at pos=", rx148_pos)
- .return (rx148_cur)
- rx148_fail:
+ rx149_cur."!cursor_pass"(rx149_pos, "quantifier:sym<?>")
+ rx149_cur."!cursor_debug"("PASS ", "quantifier:sym<?>", " at pos=", rx149_pos)
+ .return (rx149_cur)
+ rx149_fail:
.annotate 'line', 3
- (rx148_rep, rx148_pos, $I10, $P10) = rx148_cur."!mark_fail"(0)
- lt rx148_pos, -1, rx148_done
- eq rx148_pos, -1, rx148_fail
+ (rx149_rep, rx149_pos, $I10, $P10) = rx149_cur."!mark_fail"(0)
+ lt rx149_pos, -1, rx149_done
+ eq rx149_pos, -1, rx149_fail
jump $I10
- rx148_done:
- rx148_cur."!cursor_fail"()
- rx148_cur."!cursor_debug"("FAIL ", "quantifier:sym<?>")
- .return (rx148_cur)
+ rx149_done:
+ rx149_cur."!cursor_fail"()
+ rx149_cur."!cursor_debug"("FAIL ", "quantifier:sym<?>")
+ .return (rx149_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<?>" :subid("41_1275117582.32416") :method
+.sub "!PREFIX__quantifier:sym<?>" :subid("41_1275811476.7961") :method
.annotate 'line', 3
- $P150 = self."!PREFIX__!subrule"("backmod", "?")
- new $P151, "ResizablePMCArray"
- push $P151, $P150
- .return ($P151)
+ $P151 = self."!PREFIX__!subrule"("backmod", "?")
+ new $P152, "ResizablePMCArray"
+ push $P152, $P151
+ .return ($P152)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "quantifier:sym<**>" :subid("42_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "quantifier:sym<**>" :subid("42_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx155_tgt
- .local int rx155_pos
- .local int rx155_off
- .local int rx155_eos
- .local int rx155_rep
- .local pmc rx155_cur
- (rx155_cur, rx155_pos, rx155_tgt) = self."!cursor_start"()
- rx155_cur."!cursor_debug"("START ", "quantifier:sym<**>")
- rx155_cur."!cursor_caparray"("max")
- .lex unicode:"$\x{a2}", rx155_cur
+ .local string rx156_tgt
+ .local int rx156_pos
+ .local int rx156_off
+ .local int rx156_eos
+ .local int rx156_rep
+ .local pmc rx156_cur
+ (rx156_cur, rx156_pos, rx156_tgt) = self."!cursor_start"()
+ rx156_cur."!cursor_debug"("START ", "quantifier:sym<**>")
+ rx156_cur."!cursor_caparray"("max", "normspace")
+ .lex unicode:"$\x{a2}", rx156_cur
.local pmc match
.lex "$/", match
- length rx155_eos, rx155_tgt
- set rx155_off, 0
- lt rx155_pos, 2, rx155_start
- sub rx155_off, rx155_pos, 1
- substr rx155_tgt, rx155_tgt, rx155_off
- rx155_start:
+ length rx156_eos, rx156_tgt
+ gt rx156_pos, rx156_eos, rx156_done
+ set rx156_off, 0
+ lt rx156_pos, 2, rx156_start
+ sub rx156_off, rx156_pos, 1
+ substr rx156_tgt, rx156_tgt, rx156_off
+ rx156_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan158_done
- goto rxscan158_scan
- rxscan158_loop:
- ($P10) = rx155_cur."from"()
+ ne $I10, -1, rxscan159_done
+ goto rxscan159_scan
+ rxscan159_loop:
+ ($P10) = rx156_cur."from"()
inc $P10
- set rx155_pos, $P10
- ge rx155_pos, rx155_eos, rxscan158_done
- rxscan158_scan:
- set_addr $I10, rxscan158_loop
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
- rxscan158_done:
+ set rx156_pos, $P10
+ ge rx156_pos, rx156_eos, rxscan159_done
+ rxscan159_scan:
+ set_addr $I10, rxscan159_loop
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
+ rxscan159_done:
.annotate 'line', 57
# rx subcapture "sym"
- set_addr $I10, rxcap_159_fail
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
+ set_addr $I10, rxcap_160_fail
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
# rx literal "**"
- add $I11, rx155_pos, 2
- gt $I11, rx155_eos, rx155_fail
- sub $I11, rx155_pos, rx155_off
- substr $S10, rx155_tgt, $I11, 2
- ne $S10, "**", rx155_fail
- add rx155_pos, 2
- set_addr $I10, rxcap_159_fail
- ($I12, $I11) = rx155_cur."!mark_peek"($I10)
- rx155_cur."!cursor_pos"($I11)
- ($P10) = rx155_cur."!cursor_start"()
- $P10."!cursor_pass"(rx155_pos, "")
- rx155_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx156_pos, 2
+ gt $I11, rx156_eos, rx156_fail
+ sub $I11, rx156_pos, rx156_off
+ substr $S10, rx156_tgt, $I11, 2
+ ne $S10, "**", rx156_fail
+ add rx156_pos, 2
+ set_addr $I10, rxcap_160_fail
+ ($I12, $I11) = rx156_cur."!mark_peek"($I10)
+ rx156_cur."!cursor_pos"($I11)
+ ($P10) = rx156_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx156_pos, "")
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_159_done
- rxcap_159_fail:
- goto rx155_fail
- rxcap_159_done:
- # rx charclass_q s r 0..-1
- sub $I10, rx155_pos, rx155_off
- find_not_cclass $I11, 32, rx155_tgt, $I10, rx155_eos
- add rx155_pos, rx155_off, $I11
+ goto rxcap_160_done
+ rxcap_160_fail:
+ goto rx156_fail
+ rxcap_160_done:
+ # rx rxquantr161 ** 0..1
+ set_addr $I162, rxquantr161_done
+ rx156_cur."!mark_push"(0, rx156_pos, $I162)
+ rxquantr161_loop:
+ # rx subrule "normspace" subtype=capture negate=
+ rx156_cur."!cursor_pos"(rx156_pos)
+ $P10 = rx156_cur."normspace"()
+ unless $P10, rx156_fail
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("normspace")
+ rx156_pos = $P10."pos"()
+ (rx156_rep) = rx156_cur."!mark_commit"($I162)
+ rxquantr161_done:
# rx subrule "backmod" subtype=capture negate=
- rx155_cur."!cursor_pos"(rx155_pos)
- $P10 = rx155_cur."backmod"()
- unless $P10, rx155_fail
- rx155_cur."!mark_push"(0, -1, 0, $P10)
+ rx156_cur."!cursor_pos"(rx156_pos)
+ $P10 = rx156_cur."backmod"()
+ unless $P10, rx156_fail
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("backmod")
- rx155_pos = $P10."pos"()
- # rx charclass_q s r 0..-1
- sub $I10, rx155_pos, rx155_off
- find_not_cclass $I11, 32, rx155_tgt, $I10, rx155_eos
- add rx155_pos, rx155_off, $I11
- alt160_0:
+ rx156_pos = $P10."pos"()
+ # rx rxquantr163 ** 0..1
+ set_addr $I164, rxquantr163_done
+ rx156_cur."!mark_push"(0, rx156_pos, $I164)
+ rxquantr163_loop:
+ # rx subrule "normspace" subtype=capture negate=
+ rx156_cur."!cursor_pos"(rx156_pos)
+ $P10 = rx156_cur."normspace"()
+ unless $P10, rx156_fail
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("normspace")
+ rx156_pos = $P10."pos"()
+ (rx156_rep) = rx156_cur."!mark_commit"($I164)
+ rxquantr163_done:
+ alt165_0:
.annotate 'line', 58
- set_addr $I10, alt160_1
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
+ set_addr $I10, alt165_1
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
.annotate 'line', 59
# rx subcapture "min"
- set_addr $I10, rxcap_161_fail
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
+ set_addr $I10, rxcap_166_fail
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
# rx charclass_q d r 1..-1
- sub $I10, rx155_pos, rx155_off
- find_not_cclass $I11, 8, rx155_tgt, $I10, rx155_eos
+ sub $I10, rx156_pos, rx156_off
+ find_not_cclass $I11, 8, rx156_tgt, $I10, rx156_eos
add $I12, $I10, 1
- lt $I11, $I12, rx155_fail
- add rx155_pos, rx155_off, $I11
- set_addr $I10, rxcap_161_fail
- ($I12, $I11) = rx155_cur."!mark_peek"($I10)
- rx155_cur."!cursor_pos"($I11)
- ($P10) = rx155_cur."!cursor_start"()
- $P10."!cursor_pass"(rx155_pos, "")
- rx155_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx156_fail
+ add rx156_pos, rx156_off, $I11
+ set_addr $I10, rxcap_166_fail
+ ($I12, $I11) = rx156_cur."!mark_peek"($I10)
+ rx156_cur."!cursor_pos"($I11)
+ ($P10) = rx156_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx156_pos, "")
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("min")
- goto rxcap_161_done
- rxcap_161_fail:
- goto rx155_fail
- rxcap_161_done:
+ goto rxcap_166_done
+ rxcap_166_fail:
+ goto rx156_fail
+ rxcap_166_done:
.annotate 'line', 66
- # rx rxquantr162 ** 0..1
- set_addr $I165, rxquantr162_done
- rx155_cur."!mark_push"(0, rx155_pos, $I165)
- rxquantr162_loop:
+ # rx rxquantr167 ** 0..1
+ set_addr $I170, rxquantr167_done
+ rx156_cur."!mark_push"(0, rx156_pos, $I170)
+ rxquantr167_loop:
.annotate 'line', 60
# rx literal ".."
- add $I11, rx155_pos, 2
- gt $I11, rx155_eos, rx155_fail
- sub $I11, rx155_pos, rx155_off
- substr $S10, rx155_tgt, $I11, 2
- ne $S10, "..", rx155_fail
- add rx155_pos, 2
+ add $I11, rx156_pos, 2
+ gt $I11, rx156_eos, rx156_fail
+ sub $I11, rx156_pos, rx156_off
+ substr $S10, rx156_tgt, $I11, 2
+ ne $S10, "..", rx156_fail
+ add rx156_pos, 2
.annotate 'line', 61
# rx subcapture "max"
- set_addr $I10, rxcap_164_fail
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
- alt163_0:
- set_addr $I10, alt163_1
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
+ set_addr $I10, rxcap_169_fail
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
+ alt168_0:
+ set_addr $I10, alt168_1
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
.annotate 'line', 62
# rx charclass_q d r 1..-1
- sub $I10, rx155_pos, rx155_off
- find_not_cclass $I11, 8, rx155_tgt, $I10, rx155_eos
+ sub $I10, rx156_pos, rx156_off
+ find_not_cclass $I11, 8, rx156_tgt, $I10, rx156_eos
add $I12, $I10, 1
- lt $I11, $I12, rx155_fail
- add rx155_pos, rx155_off, $I11
- goto alt163_end
- alt163_1:
- set_addr $I10, alt163_2
- rx155_cur."!mark_push"(0, rx155_pos, $I10)
+ lt $I11, $I12, rx156_fail
+ add rx156_pos, rx156_off, $I11
+ goto alt168_end
+ alt168_1:
+ set_addr $I10, alt168_2
+ rx156_cur."!mark_push"(0, rx156_pos, $I10)
.annotate 'line', 63
# rx literal "*"
- add $I11, rx155_pos, 1
- gt $I11, rx155_eos, rx155_fail
- sub $I11, rx155_pos, rx155_off
- substr $S10, rx155_tgt, $I11, 1
- ne $S10, "*", rx155_fail
- add rx155_pos, 1
- goto alt163_end
- alt163_2:
+ add $I11, rx156_pos, 1
+ gt $I11, rx156_eos, rx156_fail
+ sub $I11, rx156_pos, rx156_off
+ substr $S10, rx156_tgt, $I11, 1
+ ne $S10, "*", rx156_fail
+ add rx156_pos, 1
+ goto alt168_end
+ alt168_2:
.annotate 'line', 64
# rx subrule "panic" subtype=method negate=
- rx155_cur."!cursor_pos"(rx155_pos)
- $P10 = rx155_cur."panic"("Only integers or '*' allowed as range quantifier endpoint")
- unless $P10, rx155_fail
- rx155_pos = $P10."pos"()
- alt163_end:
+ rx156_cur."!cursor_pos"(rx156_pos)
+ $P10 = rx156_cur."panic"("Only integers or '*' allowed as range quantifier endpoint")
+ unless $P10, rx156_fail
+ rx156_pos = $P10."pos"()
+ alt168_end:
.annotate 'line', 61
- set_addr $I10, rxcap_164_fail
- ($I12, $I11) = rx155_cur."!mark_peek"($I10)
- rx155_cur."!cursor_pos"($I11)
- ($P10) = rx155_cur."!cursor_start"()
- $P10."!cursor_pass"(rx155_pos, "")
- rx155_cur."!mark_push"(0, -1, 0, $P10)
+ set_addr $I10, rxcap_169_fail
+ ($I12, $I11) = rx156_cur."!mark_peek"($I10)
+ rx156_cur."!cursor_pos"($I11)
+ ($P10) = rx156_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx156_pos, "")
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("max")
- goto rxcap_164_done
- rxcap_164_fail:
- goto rx155_fail
- rxcap_164_done:
+ goto rxcap_169_done
+ rxcap_169_fail:
+ goto rx156_fail
+ rxcap_169_done:
.annotate 'line', 66
- (rx155_rep) = rx155_cur."!mark_commit"($I165)
- rxquantr162_done:
+ (rx156_rep) = rx156_cur."!mark_commit"($I170)
+ rxquantr167_done:
.annotate 'line', 59
- goto alt160_end
- alt160_1:
+ goto alt165_end
+ alt165_1:
.annotate 'line', 67
# rx subrule "quantified_atom" subtype=capture negate=
- rx155_cur."!cursor_pos"(rx155_pos)
- $P10 = rx155_cur."quantified_atom"()
- unless $P10, rx155_fail
- rx155_cur."!mark_push"(0, -1, 0, $P10)
+ rx156_cur."!cursor_pos"(rx156_pos)
+ $P10 = rx156_cur."quantified_atom"()
+ unless $P10, rx156_fail
+ rx156_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quantified_atom")
- rx155_pos = $P10."pos"()
- alt160_end:
+ rx156_pos = $P10."pos"()
+ alt165_end:
.annotate 'line', 56
# rx pass
- rx155_cur."!cursor_pass"(rx155_pos, "quantifier:sym<**>")
- rx155_cur."!cursor_debug"("PASS ", "quantifier:sym<**>", " at pos=", rx155_pos)
- .return (rx155_cur)
- rx155_fail:
+ rx156_cur."!cursor_pass"(rx156_pos, "quantifier:sym<**>")
+ rx156_cur."!cursor_debug"("PASS ", "quantifier:sym<**>", " at pos=", rx156_pos)
+ .return (rx156_cur)
+ rx156_fail:
.annotate 'line', 3
- (rx155_rep, rx155_pos, $I10, $P10) = rx155_cur."!mark_fail"(0)
- lt rx155_pos, -1, rx155_done
- eq rx155_pos, -1, rx155_fail
+ (rx156_rep, rx156_pos, $I10, $P10) = rx156_cur."!mark_fail"(0)
+ lt rx156_pos, -1, rx156_done
+ eq rx156_pos, -1, rx156_fail
jump $I10
- rx155_done:
- rx155_cur."!cursor_fail"()
- rx155_cur."!cursor_debug"("FAIL ", "quantifier:sym<**>")
- .return (rx155_cur)
+ rx156_done:
+ rx156_cur."!cursor_fail"()
+ rx156_cur."!cursor_debug"("FAIL ", "quantifier:sym<**>")
+ .return (rx156_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__quantifier:sym<**>" :subid("43_1275117582.32416") :method
+.sub "!PREFIX__quantifier:sym<**>" :subid("43_1275811476.7961") :method
.annotate 'line', 3
- new $P157, "ResizablePMCArray"
- push $P157, "**"
- .return ($P157)
+ new $P158, "ResizablePMCArray"
+ push $P158, "**"
+ .return ($P158)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backmod" :subid("44_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backmod" :subid("44_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P175 = "46_1275117582.32416"
- capture_lex $P175
- .local string rx167_tgt
- .local int rx167_pos
- .local int rx167_off
- .local int rx167_eos
- .local int rx167_rep
- .local pmc rx167_cur
- (rx167_cur, rx167_pos, rx167_tgt) = self."!cursor_start"()
- rx167_cur."!cursor_debug"("START ", "backmod")
- .lex unicode:"$\x{a2}", rx167_cur
+ .const 'Sub' $P180 = "46_1275811476.7961"
+ capture_lex $P180
+ .local string rx172_tgt
+ .local int rx172_pos
+ .local int rx172_off
+ .local int rx172_eos
+ .local int rx172_rep
+ .local pmc rx172_cur
+ (rx172_cur, rx172_pos, rx172_tgt) = self."!cursor_start"()
+ rx172_cur."!cursor_debug"("START ", "backmod")
+ .lex unicode:"$\x{a2}", rx172_cur
.local pmc match
.lex "$/", match
- length rx167_eos, rx167_tgt
- set rx167_off, 0
- lt rx167_pos, 2, rx167_start
- sub rx167_off, rx167_pos, 1
- substr rx167_tgt, rx167_tgt, rx167_off
- rx167_start:
+ length rx172_eos, rx172_tgt
+ gt rx172_pos, rx172_eos, rx172_done
+ set rx172_off, 0
+ lt rx172_pos, 2, rx172_start
+ sub rx172_off, rx172_pos, 1
+ substr rx172_tgt, rx172_tgt, rx172_off
+ rx172_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan170_done
- goto rxscan170_scan
- rxscan170_loop:
- ($P10) = rx167_cur."from"()
+ ne $I10, -1, rxscan175_done
+ goto rxscan175_scan
+ rxscan175_loop:
+ ($P10) = rx172_cur."from"()
inc $P10
- set rx167_pos, $P10
- ge rx167_pos, rx167_eos, rxscan170_done
- rxscan170_scan:
- set_addr $I10, rxscan170_loop
- rx167_cur."!mark_push"(0, rx167_pos, $I10)
- rxscan170_done:
+ set rx172_pos, $P10
+ ge rx172_pos, rx172_eos, rxscan175_done
+ rxscan175_scan:
+ set_addr $I10, rxscan175_loop
+ rx172_cur."!mark_push"(0, rx172_pos, $I10)
+ rxscan175_done:
.annotate 'line', 71
- # rx rxquantr171 ** 0..1
- set_addr $I172, rxquantr171_done
- rx167_cur."!mark_push"(0, rx167_pos, $I172)
- rxquantr171_loop:
+ # rx rxquantr176 ** 0..1
+ set_addr $I177, rxquantr176_done
+ rx172_cur."!mark_push"(0, rx172_pos, $I177)
+ rxquantr176_loop:
# rx literal ":"
- add $I11, rx167_pos, 1
- gt $I11, rx167_eos, rx167_fail
- sub $I11, rx167_pos, rx167_off
- substr $S10, rx167_tgt, $I11, 1
- ne $S10, ":", rx167_fail
- add rx167_pos, 1
- (rx167_rep) = rx167_cur."!mark_commit"($I172)
- rxquantr171_done:
- alt173_0:
- set_addr $I10, alt173_1
- rx167_cur."!mark_push"(0, rx167_pos, $I10)
+ add $I11, rx172_pos, 1
+ gt $I11, rx172_eos, rx172_fail
+ sub $I11, rx172_pos, rx172_off
+ substr $S10, rx172_tgt, $I11, 1
+ ne $S10, ":", rx172_fail
+ add rx172_pos, 1
+ (rx172_rep) = rx172_cur."!mark_commit"($I177)
+ rxquantr176_done:
+ alt178_0:
+ set_addr $I10, alt178_1
+ rx172_cur."!mark_push"(0, rx172_pos, $I10)
# rx literal "?"
- add $I11, rx167_pos, 1
- gt $I11, rx167_eos, rx167_fail
- sub $I11, rx167_pos, rx167_off
- substr $S10, rx167_tgt, $I11, 1
- ne $S10, "?", rx167_fail
- add rx167_pos, 1
- goto alt173_end
- alt173_1:
- set_addr $I10, alt173_2
- rx167_cur."!mark_push"(0, rx167_pos, $I10)
+ add $I11, rx172_pos, 1
+ gt $I11, rx172_eos, rx172_fail
+ sub $I11, rx172_pos, rx172_off
+ substr $S10, rx172_tgt, $I11, 1
+ ne $S10, "?", rx172_fail
+ add rx172_pos, 1
+ goto alt178_end
+ alt178_1:
+ set_addr $I10, alt178_2
+ rx172_cur."!mark_push"(0, rx172_pos, $I10)
# rx literal "!"
- add $I11, rx167_pos, 1
- gt $I11, rx167_eos, rx167_fail
- sub $I11, rx167_pos, rx167_off
- substr $S10, rx167_tgt, $I11, 1
- ne $S10, "!", rx167_fail
- add rx167_pos, 1
- goto alt173_end
- alt173_2:
+ add $I11, rx172_pos, 1
+ gt $I11, rx172_eos, rx172_fail
+ sub $I11, rx172_pos, rx172_off
+ substr $S10, rx172_tgt, $I11, 1
+ ne $S10, "!", rx172_fail
+ add rx172_pos, 1
+ goto alt178_end
+ alt178_2:
# rx subrule "before" subtype=zerowidth negate=1
- rx167_cur."!cursor_pos"(rx167_pos)
- .const 'Sub' $P175 = "46_1275117582.32416"
- capture_lex $P175
- $P10 = rx167_cur."before"($P175)
- if $P10, rx167_fail
- alt173_end:
+ rx172_cur."!cursor_pos"(rx172_pos)
+ .const 'Sub' $P180 = "46_1275811476.7961"
+ capture_lex $P180
+ $P10 = rx172_cur."before"($P180)
+ if $P10, rx172_fail
+ alt178_end:
# rx pass
- rx167_cur."!cursor_pass"(rx167_pos, "backmod")
- rx167_cur."!cursor_debug"("PASS ", "backmod", " at pos=", rx167_pos)
- .return (rx167_cur)
- rx167_fail:
+ rx172_cur."!cursor_pass"(rx172_pos, "backmod")
+ rx172_cur."!cursor_debug"("PASS ", "backmod", " at pos=", rx172_pos)
+ .return (rx172_cur)
+ rx172_fail:
.annotate 'line', 3
- (rx167_rep, rx167_pos, $I10, $P10) = rx167_cur."!mark_fail"(0)
- lt rx167_pos, -1, rx167_done
- eq rx167_pos, -1, rx167_fail
+ (rx172_rep, rx172_pos, $I10, $P10) = rx172_cur."!mark_fail"(0)
+ lt rx172_pos, -1, rx172_done
+ eq rx172_pos, -1, rx172_fail
jump $I10
- rx167_done:
- rx167_cur."!cursor_fail"()
- rx167_cur."!cursor_debug"("FAIL ", "backmod")
- .return (rx167_cur)
+ rx172_done:
+ rx172_cur."!cursor_fail"()
+ rx172_cur."!cursor_debug"("FAIL ", "backmod")
+ .return (rx172_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backmod" :subid("45_1275117582.32416") :method
+.sub "!PREFIX__backmod" :subid("45_1275811476.7961") :method
.annotate 'line', 3
- new $P169, "ResizablePMCArray"
- push $P169, ""
- .return ($P169)
+ new $P174, "ResizablePMCArray"
+ push $P174, ""
+ .return ($P174)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block174" :anon :subid("46_1275117582.32416") :method :outer("44_1275117582.32416")
+.sub "_block179" :anon :subid("46_1275811476.7961") :method :outer("44_1275811476.7961")
.annotate 'line', 71
- .local string rx176_tgt
- .local int rx176_pos
- .local int rx176_off
- .local int rx176_eos
- .local int rx176_rep
- .local pmc rx176_cur
- (rx176_cur, rx176_pos, rx176_tgt) = self."!cursor_start"()
- rx176_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx176_cur
- .local pmc match
- .lex "$/", match
- length rx176_eos, rx176_tgt
- set rx176_off, 0
- lt rx176_pos, 2, rx176_start
- sub rx176_off, rx176_pos, 1
- substr rx176_tgt, rx176_tgt, rx176_off
- rx176_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan177_done
- goto rxscan177_scan
- rxscan177_loop:
- ($P10) = rx176_cur."from"()
- inc $P10
- set rx176_pos, $P10
- ge rx176_pos, rx176_eos, rxscan177_done
- rxscan177_scan:
- set_addr $I10, rxscan177_loop
- rx176_cur."!mark_push"(0, rx176_pos, $I10)
- rxscan177_done:
+ .local string rx181_tgt
+ .local int rx181_pos
+ .local int rx181_off
+ .local int rx181_eos
+ .local int rx181_rep
+ .local pmc rx181_cur
+ (rx181_cur, rx181_pos, rx181_tgt) = self."!cursor_start"()
+ rx181_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx181_cur
+ .local pmc match
+ .lex "$/", match
+ length rx181_eos, rx181_tgt
+ gt rx181_pos, rx181_eos, rx181_done
+ set rx181_off, 0
+ lt rx181_pos, 2, rx181_start
+ sub rx181_off, rx181_pos, 1
+ substr rx181_tgt, rx181_tgt, rx181_off
+ rx181_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan182_done
+ goto rxscan182_scan
+ rxscan182_loop:
+ ($P10) = rx181_cur."from"()
+ inc $P10
+ set rx181_pos, $P10
+ ge rx181_pos, rx181_eos, rxscan182_done
+ rxscan182_scan:
+ set_addr $I10, rxscan182_loop
+ rx181_cur."!mark_push"(0, rx181_pos, $I10)
+ rxscan182_done:
# rx literal ":"
- add $I11, rx176_pos, 1
- gt $I11, rx176_eos, rx176_fail
- sub $I11, rx176_pos, rx176_off
- substr $S10, rx176_tgt, $I11, 1
- ne $S10, ":", rx176_fail
- add rx176_pos, 1
+ add $I11, rx181_pos, 1
+ gt $I11, rx181_eos, rx181_fail
+ sub $I11, rx181_pos, rx181_off
+ substr $S10, rx181_tgt, $I11, 1
+ ne $S10, ":", rx181_fail
+ add rx181_pos, 1
# rx pass
- rx176_cur."!cursor_pass"(rx176_pos, "")
- rx176_cur."!cursor_debug"("PASS ", "", " at pos=", rx176_pos)
- .return (rx176_cur)
- rx176_fail:
- (rx176_rep, rx176_pos, $I10, $P10) = rx176_cur."!mark_fail"(0)
- lt rx176_pos, -1, rx176_done
- eq rx176_pos, -1, rx176_fail
+ rx181_cur."!cursor_pass"(rx181_pos, "")
+ rx181_cur."!cursor_debug"("PASS ", "", " at pos=", rx181_pos)
+ .return (rx181_cur)
+ rx181_fail:
+ (rx181_rep, rx181_pos, $I10, $P10) = rx181_cur."!mark_fail"(0)
+ lt rx181_pos, -1, rx181_done
+ eq rx181_pos, -1, rx181_fail
jump $I10
- rx176_done:
- rx176_cur."!cursor_fail"()
- rx176_cur."!cursor_debug"("FAIL ", "")
- .return (rx176_cur)
+ rx181_done:
+ rx181_cur."!cursor_fail"()
+ rx181_cur."!cursor_debug"("FAIL ", "")
+ .return (rx181_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar" :subid("47_1275117582.32416") :method
+.sub "metachar" :subid("47_1275811476.7961") :method
.annotate 'line', 73
- $P179 = self."!protoregex"("metachar")
- .return ($P179)
+ $P184 = self."!protoregex"("metachar")
+ .return ($P184)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar" :subid("48_1275117582.32416") :method
+.sub "!PREFIX__metachar" :subid("48_1275811476.7961") :method
.annotate 'line', 73
- $P181 = self."!PREFIX__!protoregex"("metachar")
- .return ($P181)
+ $P186 = self."!PREFIX__!protoregex"("metachar")
+ .return ($P186)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<ws>" :subid("49_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<ws>" :subid("49_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx183_tgt
- .local int rx183_pos
- .local int rx183_off
- .local int rx183_eos
- .local int rx183_rep
- .local pmc rx183_cur
- (rx183_cur, rx183_pos, rx183_tgt) = self."!cursor_start"()
- rx183_cur."!cursor_debug"("START ", "metachar:sym<ws>")
- .lex unicode:"$\x{a2}", rx183_cur
- .local pmc match
- .lex "$/", match
- length rx183_eos, rx183_tgt
- set rx183_off, 0
- lt rx183_pos, 2, rx183_start
- sub rx183_off, rx183_pos, 1
- substr rx183_tgt, rx183_tgt, rx183_off
- rx183_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan187_done
- goto rxscan187_scan
- rxscan187_loop:
- ($P10) = rx183_cur."from"()
- inc $P10
- set rx183_pos, $P10
- ge rx183_pos, rx183_eos, rxscan187_done
- rxscan187_scan:
- set_addr $I10, rxscan187_loop
- rx183_cur."!mark_push"(0, rx183_pos, $I10)
- rxscan187_done:
+ .local string rx188_tgt
+ .local int rx188_pos
+ .local int rx188_off
+ .local int rx188_eos
+ .local int rx188_rep
+ .local pmc rx188_cur
+ (rx188_cur, rx188_pos, rx188_tgt) = self."!cursor_start"()
+ rx188_cur."!cursor_debug"("START ", "metachar:sym<ws>")
+ .lex unicode:"$\x{a2}", rx188_cur
+ .local pmc match
+ .lex "$/", match
+ length rx188_eos, rx188_tgt
+ gt rx188_pos, rx188_eos, rx188_done
+ set rx188_off, 0
+ lt rx188_pos, 2, rx188_start
+ sub rx188_off, rx188_pos, 1
+ substr rx188_tgt, rx188_tgt, rx188_off
+ rx188_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan192_done
+ goto rxscan192_scan
+ rxscan192_loop:
+ ($P10) = rx188_cur."from"()
+ inc $P10
+ set rx188_pos, $P10
+ ge rx188_pos, rx188_eos, rxscan192_done
+ rxscan192_scan:
+ set_addr $I10, rxscan192_loop
+ rx188_cur."!mark_push"(0, rx188_pos, $I10)
+ rxscan192_done:
.annotate 'line', 74
# rx subrule "normspace" subtype=method negate=
- rx183_cur."!cursor_pos"(rx183_pos)
- $P10 = rx183_cur."normspace"()
- unless $P10, rx183_fail
- rx183_pos = $P10."pos"()
- # rx pass
- rx183_cur."!cursor_pass"(rx183_pos, "metachar:sym<ws>")
- rx183_cur."!cursor_debug"("PASS ", "metachar:sym<ws>", " at pos=", rx183_pos)
- .return (rx183_cur)
- rx183_fail:
-.annotate 'line', 3
- (rx183_rep, rx183_pos, $I10, $P10) = rx183_cur."!mark_fail"(0)
- lt rx183_pos, -1, rx183_done
- eq rx183_pos, -1, rx183_fail
- jump $I10
- rx183_done:
- rx183_cur."!cursor_fail"()
- rx183_cur."!cursor_debug"("FAIL ", "metachar:sym<ws>")
- .return (rx183_cur)
- .return ()
-.end
-
-
-.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<ws>" :subid("50_1275117582.32416") :method
-.annotate 'line', 3
- $P185 = self."!PREFIX__!subrule"("", "")
- new $P186, "ResizablePMCArray"
- push $P186, $P185
- .return ($P186)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<[ ]>" :subid("51_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .local string rx189_tgt
- .local int rx189_pos
- .local int rx189_off
- .local int rx189_eos
- .local int rx189_rep
- .local pmc rx189_cur
- (rx189_cur, rx189_pos, rx189_tgt) = self."!cursor_start"()
- rx189_cur."!cursor_debug"("START ", "metachar:sym<[ ]>")
- .lex unicode:"$\x{a2}", rx189_cur
- .local pmc match
- .lex "$/", match
- length rx189_eos, rx189_tgt
- set rx189_off, 0
- lt rx189_pos, 2, rx189_start
- sub rx189_off, rx189_pos, 1
- substr rx189_tgt, rx189_tgt, rx189_off
- rx189_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan193_done
- goto rxscan193_scan
- rxscan193_loop:
- ($P10) = rx189_cur."from"()
- inc $P10
- set rx189_pos, $P10
- ge rx189_pos, rx189_eos, rxscan193_done
- rxscan193_scan:
- set_addr $I10, rxscan193_loop
- rx189_cur."!mark_push"(0, rx189_pos, $I10)
- rxscan193_done:
-.annotate 'line', 75
- # rx literal "["
- add $I11, rx189_pos, 1
- gt $I11, rx189_eos, rx189_fail
- sub $I11, rx189_pos, rx189_off
- substr $S10, rx189_tgt, $I11, 1
- ne $S10, "[", rx189_fail
- add rx189_pos, 1
- # rx subrule "nibbler" subtype=capture negate=
- rx189_cur."!cursor_pos"(rx189_pos)
- $P10 = rx189_cur."nibbler"()
- unless $P10, rx189_fail
- rx189_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("nibbler")
- rx189_pos = $P10."pos"()
- # rx literal "]"
- add $I11, rx189_pos, 1
- gt $I11, rx189_eos, rx189_fail
- sub $I11, rx189_pos, rx189_off
- substr $S10, rx189_tgt, $I11, 1
- ne $S10, "]", rx189_fail
- add rx189_pos, 1
+ rx188_cur."!cursor_pos"(rx188_pos)
+ $P10 = rx188_cur."normspace"()
+ unless $P10, rx188_fail
+ rx188_pos = $P10."pos"()
# rx pass
- rx189_cur."!cursor_pass"(rx189_pos, "metachar:sym<[ ]>")
- rx189_cur."!cursor_debug"("PASS ", "metachar:sym<[ ]>", " at pos=", rx189_pos)
- .return (rx189_cur)
- rx189_fail:
+ rx188_cur."!cursor_pass"(rx188_pos, "metachar:sym<ws>")
+ rx188_cur."!cursor_debug"("PASS ", "metachar:sym<ws>", " at pos=", rx188_pos)
+ .return (rx188_cur)
+ rx188_fail:
.annotate 'line', 3
- (rx189_rep, rx189_pos, $I10, $P10) = rx189_cur."!mark_fail"(0)
- lt rx189_pos, -1, rx189_done
- eq rx189_pos, -1, rx189_fail
+ (rx188_rep, rx188_pos, $I10, $P10) = rx188_cur."!mark_fail"(0)
+ lt rx188_pos, -1, rx188_done
+ eq rx188_pos, -1, rx188_fail
jump $I10
- rx189_done:
- rx189_cur."!cursor_fail"()
- rx189_cur."!cursor_debug"("FAIL ", "metachar:sym<[ ]>")
- .return (rx189_cur)
+ rx188_done:
+ rx188_cur."!cursor_fail"()
+ rx188_cur."!cursor_debug"("FAIL ", "metachar:sym<ws>")
+ .return (rx188_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<[ ]>" :subid("52_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<ws>" :subid("50_1275811476.7961") :method
.annotate 'line', 3
- $P191 = self."!PREFIX__!subrule"("nibbler", "[")
- new $P192, "ResizablePMCArray"
- push $P192, $P191
- .return ($P192)
+ $P190 = self."!PREFIX__!subrule"("normspace", "")
+ new $P191, "ResizablePMCArray"
+ push $P191, $P190
+ .return ($P191)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<( )>" :subid("53_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<[ ]>" :subid("51_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx195_tgt
- .local int rx195_pos
- .local int rx195_off
- .local int rx195_eos
- .local int rx195_rep
- .local pmc rx195_cur
- (rx195_cur, rx195_pos, rx195_tgt) = self."!cursor_start"()
- rx195_cur."!cursor_debug"("START ", "metachar:sym<( )>")
- .lex unicode:"$\x{a2}", rx195_cur
+ .local string rx194_tgt
+ .local int rx194_pos
+ .local int rx194_off
+ .local int rx194_eos
+ .local int rx194_rep
+ .local pmc rx194_cur
+ (rx194_cur, rx194_pos, rx194_tgt) = self."!cursor_start"()
+ rx194_cur."!cursor_debug"("START ", "metachar:sym<[ ]>")
+ .lex unicode:"$\x{a2}", rx194_cur
.local pmc match
.lex "$/", match
- length rx195_eos, rx195_tgt
- set rx195_off, 0
- lt rx195_pos, 2, rx195_start
- sub rx195_off, rx195_pos, 1
- substr rx195_tgt, rx195_tgt, rx195_off
- rx195_start:
+ length rx194_eos, rx194_tgt
+ gt rx194_pos, rx194_eos, rx194_done
+ set rx194_off, 0
+ lt rx194_pos, 2, rx194_start
+ sub rx194_off, rx194_pos, 1
+ substr rx194_tgt, rx194_tgt, rx194_off
+ rx194_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan199_done
- goto rxscan199_scan
- rxscan199_loop:
- ($P10) = rx195_cur."from"()
+ ne $I10, -1, rxscan198_done
+ goto rxscan198_scan
+ rxscan198_loop:
+ ($P10) = rx194_cur."from"()
inc $P10
- set rx195_pos, $P10
- ge rx195_pos, rx195_eos, rxscan199_done
- rxscan199_scan:
- set_addr $I10, rxscan199_loop
- rx195_cur."!mark_push"(0, rx195_pos, $I10)
- rxscan199_done:
-.annotate 'line', 76
- # rx literal "("
- add $I11, rx195_pos, 1
- gt $I11, rx195_eos, rx195_fail
- sub $I11, rx195_pos, rx195_off
- substr $S10, rx195_tgt, $I11, 1
- ne $S10, "(", rx195_fail
- add rx195_pos, 1
+ set rx194_pos, $P10
+ ge rx194_pos, rx194_eos, rxscan198_done
+ rxscan198_scan:
+ set_addr $I10, rxscan198_loop
+ rx194_cur."!mark_push"(0, rx194_pos, $I10)
+ rxscan198_done:
+.annotate 'line', 75
+ # rx literal "["
+ add $I11, rx194_pos, 1
+ gt $I11, rx194_eos, rx194_fail
+ sub $I11, rx194_pos, rx194_off
+ substr $S10, rx194_tgt, $I11, 1
+ ne $S10, "[", rx194_fail
+ add rx194_pos, 1
# rx subrule "nibbler" subtype=capture negate=
- rx195_cur."!cursor_pos"(rx195_pos)
- $P10 = rx195_cur."nibbler"()
- unless $P10, rx195_fail
- rx195_cur."!mark_push"(0, -1, 0, $P10)
+ rx194_cur."!cursor_pos"(rx194_pos)
+ $P10 = rx194_cur."nibbler"()
+ unless $P10, rx194_fail
+ rx194_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("nibbler")
- rx195_pos = $P10."pos"()
- # rx literal ")"
- add $I11, rx195_pos, 1
- gt $I11, rx195_eos, rx195_fail
- sub $I11, rx195_pos, rx195_off
- substr $S10, rx195_tgt, $I11, 1
- ne $S10, ")", rx195_fail
- add rx195_pos, 1
+ rx194_pos = $P10."pos"()
+ # rx literal "]"
+ add $I11, rx194_pos, 1
+ gt $I11, rx194_eos, rx194_fail
+ sub $I11, rx194_pos, rx194_off
+ substr $S10, rx194_tgt, $I11, 1
+ ne $S10, "]", rx194_fail
+ add rx194_pos, 1
# rx pass
- rx195_cur."!cursor_pass"(rx195_pos, "metachar:sym<( )>")
- rx195_cur."!cursor_debug"("PASS ", "metachar:sym<( )>", " at pos=", rx195_pos)
- .return (rx195_cur)
- rx195_fail:
+ rx194_cur."!cursor_pass"(rx194_pos, "metachar:sym<[ ]>")
+ rx194_cur."!cursor_debug"("PASS ", "metachar:sym<[ ]>", " at pos=", rx194_pos)
+ .return (rx194_cur)
+ rx194_fail:
.annotate 'line', 3
- (rx195_rep, rx195_pos, $I10, $P10) = rx195_cur."!mark_fail"(0)
- lt rx195_pos, -1, rx195_done
- eq rx195_pos, -1, rx195_fail
+ (rx194_rep, rx194_pos, $I10, $P10) = rx194_cur."!mark_fail"(0)
+ lt rx194_pos, -1, rx194_done
+ eq rx194_pos, -1, rx194_fail
jump $I10
- rx195_done:
- rx195_cur."!cursor_fail"()
- rx195_cur."!cursor_debug"("FAIL ", "metachar:sym<( )>")
- .return (rx195_cur)
+ rx194_done:
+ rx194_cur."!cursor_fail"()
+ rx194_cur."!cursor_debug"("FAIL ", "metachar:sym<[ ]>")
+ .return (rx194_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<( )>" :subid("54_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<[ ]>" :subid("52_1275811476.7961") :method
.annotate 'line', 3
- $P197 = self."!PREFIX__!subrule"("nibbler", "(")
- new $P198, "ResizablePMCArray"
- push $P198, $P197
- .return ($P198)
+ $P196 = self."!PREFIX__!subrule"("nibbler", "[")
+ new $P197, "ResizablePMCArray"
+ push $P197, $P196
+ .return ($P197)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<'>" :subid("55_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<( )>" :subid("53_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx201_tgt
- .local int rx201_pos
- .local int rx201_off
- .local int rx201_eos
- .local int rx201_rep
- .local pmc rx201_cur
- (rx201_cur, rx201_pos, rx201_tgt) = self."!cursor_start"()
- rx201_cur."!cursor_debug"("START ", "metachar:sym<'>")
- .lex unicode:"$\x{a2}", rx201_cur
+ .local string rx200_tgt
+ .local int rx200_pos
+ .local int rx200_off
+ .local int rx200_eos
+ .local int rx200_rep
+ .local pmc rx200_cur
+ (rx200_cur, rx200_pos, rx200_tgt) = self."!cursor_start"()
+ rx200_cur."!cursor_debug"("START ", "metachar:sym<( )>")
+ .lex unicode:"$\x{a2}", rx200_cur
.local pmc match
.lex "$/", match
- length rx201_eos, rx201_tgt
- set rx201_off, 0
- lt rx201_pos, 2, rx201_start
- sub rx201_off, rx201_pos, 1
- substr rx201_tgt, rx201_tgt, rx201_off
- rx201_start:
+ length rx200_eos, rx200_tgt
+ gt rx200_pos, rx200_eos, rx200_done
+ set rx200_off, 0
+ lt rx200_pos, 2, rx200_start
+ sub rx200_off, rx200_pos, 1
+ substr rx200_tgt, rx200_tgt, rx200_off
+ rx200_start:
$I10 = self.'from'()
ne $I10, -1, rxscan204_done
goto rxscan204_scan
rxscan204_loop:
- ($P10) = rx201_cur."from"()
+ ($P10) = rx200_cur."from"()
inc $P10
- set rx201_pos, $P10
- ge rx201_pos, rx201_eos, rxscan204_done
+ set rx200_pos, $P10
+ ge rx200_pos, rx200_eos, rxscan204_done
rxscan204_scan:
set_addr $I10, rxscan204_loop
- rx201_cur."!mark_push"(0, rx201_pos, $I10)
+ rx200_cur."!mark_push"(0, rx200_pos, $I10)
rxscan204_done:
-.annotate 'line', 77
- # rx enumcharlist negate=0 zerowidth
- ge rx201_pos, rx201_eos, rx201_fail
- sub $I10, rx201_pos, rx201_off
- substr $S10, rx201_tgt, $I10, 1
- index $I11, "'", $S10
- lt $I11, 0, rx201_fail
- # rx subrule "quote_EXPR" subtype=capture negate=
- rx201_cur."!cursor_pos"(rx201_pos)
- $P10 = rx201_cur."quote_EXPR"(":q")
- unless $P10, rx201_fail
- rx201_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("quote_EXPR")
- rx201_pos = $P10."pos"()
+.annotate 'line', 76
+ # rx literal "("
+ add $I11, rx200_pos, 1
+ gt $I11, rx200_eos, rx200_fail
+ sub $I11, rx200_pos, rx200_off
+ substr $S10, rx200_tgt, $I11, 1
+ ne $S10, "(", rx200_fail
+ add rx200_pos, 1
+ # rx subrule "nibbler" subtype=capture negate=
+ rx200_cur."!cursor_pos"(rx200_pos)
+ $P10 = rx200_cur."nibbler"()
+ unless $P10, rx200_fail
+ rx200_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("nibbler")
+ rx200_pos = $P10."pos"()
+ # rx literal ")"
+ add $I11, rx200_pos, 1
+ gt $I11, rx200_eos, rx200_fail
+ sub $I11, rx200_pos, rx200_off
+ substr $S10, rx200_tgt, $I11, 1
+ ne $S10, ")", rx200_fail
+ add rx200_pos, 1
# rx pass
- rx201_cur."!cursor_pass"(rx201_pos, "metachar:sym<'>")
- rx201_cur."!cursor_debug"("PASS ", "metachar:sym<'>", " at pos=", rx201_pos)
- .return (rx201_cur)
- rx201_fail:
+ rx200_cur."!cursor_pass"(rx200_pos, "metachar:sym<( )>")
+ rx200_cur."!cursor_debug"("PASS ", "metachar:sym<( )>", " at pos=", rx200_pos)
+ .return (rx200_cur)
+ rx200_fail:
.annotate 'line', 3
- (rx201_rep, rx201_pos, $I10, $P10) = rx201_cur."!mark_fail"(0)
- lt rx201_pos, -1, rx201_done
- eq rx201_pos, -1, rx201_fail
+ (rx200_rep, rx200_pos, $I10, $P10) = rx200_cur."!mark_fail"(0)
+ lt rx200_pos, -1, rx200_done
+ eq rx200_pos, -1, rx200_fail
jump $I10
- rx201_done:
- rx201_cur."!cursor_fail"()
- rx201_cur."!cursor_debug"("FAIL ", "metachar:sym<'>")
- .return (rx201_cur)
+ rx200_done:
+ rx200_cur."!cursor_fail"()
+ rx200_cur."!cursor_debug"("FAIL ", "metachar:sym<( )>")
+ .return (rx200_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<'>" :subid("56_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<( )>" :subid("54_1275811476.7961") :method
.annotate 'line', 3
+ $P202 = self."!PREFIX__!subrule"("nibbler", "(")
new $P203, "ResizablePMCArray"
- push $P203, "'"
+ push $P203, $P202
.return ($P203)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<\">" :subid("57_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<'>" :subid("55_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
.local string rx206_tgt
.local int rx206_pos
@@ -2349,11 +2317,12 @@
.local int rx206_rep
.local pmc rx206_cur
(rx206_cur, rx206_pos, rx206_tgt) = self."!cursor_start"()
- rx206_cur."!cursor_debug"("START ", "metachar:sym<\">")
+ rx206_cur."!cursor_debug"("START ", "metachar:sym<'>")
.lex unicode:"$\x{a2}", rx206_cur
.local pmc match
.lex "$/", match
length rx206_eos, rx206_tgt
+ gt rx206_pos, rx206_eos, rx206_done
set rx206_off, 0
lt rx206_pos, 2, rx206_start
sub rx206_off, rx206_pos, 1
@@ -2371,23 +2340,23 @@
set_addr $I10, rxscan209_loop
rx206_cur."!mark_push"(0, rx206_pos, $I10)
rxscan209_done:
-.annotate 'line', 78
+.annotate 'line', 77
# rx enumcharlist negate=0 zerowidth
ge rx206_pos, rx206_eos, rx206_fail
sub $I10, rx206_pos, rx206_off
substr $S10, rx206_tgt, $I10, 1
- index $I11, "\"", $S10
+ index $I11, "'", $S10
lt $I11, 0, rx206_fail
# rx subrule "quote_EXPR" subtype=capture negate=
rx206_cur."!cursor_pos"(rx206_pos)
- $P10 = rx206_cur."quote_EXPR"(":qq")
+ $P10 = rx206_cur."quote_EXPR"(":q")
unless $P10, rx206_fail
rx206_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quote_EXPR")
rx206_pos = $P10."pos"()
# rx pass
- rx206_cur."!cursor_pass"(rx206_pos, "metachar:sym<\">")
- rx206_cur."!cursor_debug"("PASS ", "metachar:sym<\">", " at pos=", rx206_pos)
+ rx206_cur."!cursor_pass"(rx206_pos, "metachar:sym<'>")
+ rx206_cur."!cursor_debug"("PASS ", "metachar:sym<'>", " at pos=", rx206_pos)
.return (rx206_cur)
rx206_fail:
.annotate 'line', 3
@@ -2397,23 +2366,23 @@
jump $I10
rx206_done:
rx206_cur."!cursor_fail"()
- rx206_cur."!cursor_debug"("FAIL ", "metachar:sym<\">")
+ rx206_cur."!cursor_debug"("FAIL ", "metachar:sym<'>")
.return (rx206_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<\">" :subid("58_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<'>" :subid("56_1275811476.7961") :method
.annotate 'line', 3
new $P208, "ResizablePMCArray"
- push $P208, "\""
+ push $P208, "'"
.return ($P208)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<.>" :subid("59_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<\">" :subid("57_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
.local string rx211_tgt
.local int rx211_pos
@@ -2422,11 +2391,12 @@
.local int rx211_rep
.local pmc rx211_cur
(rx211_cur, rx211_pos, rx211_tgt) = self."!cursor_start"()
- rx211_cur."!cursor_debug"("START ", "metachar:sym<.>")
+ rx211_cur."!cursor_debug"("START ", "metachar:sym<\">")
.lex unicode:"$\x{a2}", rx211_cur
.local pmc match
.lex "$/", match
length rx211_eos, rx211_tgt
+ gt rx211_pos, rx211_eos, rx211_done
set rx211_off, 0
lt rx211_pos, 2, rx211_start
sub rx211_off, rx211_pos, 1
@@ -2444,31 +2414,23 @@
set_addr $I10, rxscan214_loop
rx211_cur."!mark_push"(0, rx211_pos, $I10)
rxscan214_done:
-.annotate 'line', 79
- # rx subcapture "sym"
- set_addr $I10, rxcap_215_fail
- rx211_cur."!mark_push"(0, rx211_pos, $I10)
- # rx literal "."
- add $I11, rx211_pos, 1
- gt $I11, rx211_eos, rx211_fail
- sub $I11, rx211_pos, rx211_off
- substr $S10, rx211_tgt, $I11, 1
- ne $S10, ".", rx211_fail
- add rx211_pos, 1
- set_addr $I10, rxcap_215_fail
- ($I12, $I11) = rx211_cur."!mark_peek"($I10)
- rx211_cur."!cursor_pos"($I11)
- ($P10) = rx211_cur."!cursor_start"()
- $P10."!cursor_pass"(rx211_pos, "")
+.annotate 'line', 78
+ # rx enumcharlist negate=0 zerowidth
+ ge rx211_pos, rx211_eos, rx211_fail
+ sub $I10, rx211_pos, rx211_off
+ substr $S10, rx211_tgt, $I10, 1
+ index $I11, "\"", $S10
+ lt $I11, 0, rx211_fail
+ # rx subrule "quote_EXPR" subtype=capture negate=
+ rx211_cur."!cursor_pos"(rx211_pos)
+ $P10 = rx211_cur."quote_EXPR"(":qq")
+ unless $P10, rx211_fail
rx211_cur."!mark_push"(0, -1, 0, $P10)
- $P10."!cursor_names"("sym")
- goto rxcap_215_done
- rxcap_215_fail:
- goto rx211_fail
- rxcap_215_done:
+ $P10."!cursor_names"("quote_EXPR")
+ rx211_pos = $P10."pos"()
# rx pass
- rx211_cur."!cursor_pass"(rx211_pos, "metachar:sym<.>")
- rx211_cur."!cursor_debug"("PASS ", "metachar:sym<.>", " at pos=", rx211_pos)
+ rx211_cur."!cursor_pass"(rx211_pos, "metachar:sym<\">")
+ rx211_cur."!cursor_debug"("PASS ", "metachar:sym<\">", " at pos=", rx211_pos)
.return (rx211_cur)
rx211_fail:
.annotate 'line', 3
@@ -2478,4115 +2440,4184 @@
jump $I10
rx211_done:
rx211_cur."!cursor_fail"()
- rx211_cur."!cursor_debug"("FAIL ", "metachar:sym<.>")
+ rx211_cur."!cursor_debug"("FAIL ", "metachar:sym<\">")
.return (rx211_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<.>" :subid("60_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<\">" :subid("58_1275811476.7961") :method
.annotate 'line', 3
new $P213, "ResizablePMCArray"
- push $P213, "."
+ push $P213, "\""
.return ($P213)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<^>" :subid("61_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<.>" :subid("59_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .local string rx216_tgt
+ .local int rx216_pos
+ .local int rx216_off
+ .local int rx216_eos
+ .local int rx216_rep
+ .local pmc rx216_cur
+ (rx216_cur, rx216_pos, rx216_tgt) = self."!cursor_start"()
+ rx216_cur."!cursor_debug"("START ", "metachar:sym<.>")
+ .lex unicode:"$\x{a2}", rx216_cur
+ .local pmc match
+ .lex "$/", match
+ length rx216_eos, rx216_tgt
+ gt rx216_pos, rx216_eos, rx216_done
+ set rx216_off, 0
+ lt rx216_pos, 2, rx216_start
+ sub rx216_off, rx216_pos, 1
+ substr rx216_tgt, rx216_tgt, rx216_off
+ rx216_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan219_done
+ goto rxscan219_scan
+ rxscan219_loop:
+ ($P10) = rx216_cur."from"()
+ inc $P10
+ set rx216_pos, $P10
+ ge rx216_pos, rx216_eos, rxscan219_done
+ rxscan219_scan:
+ set_addr $I10, rxscan219_loop
+ rx216_cur."!mark_push"(0, rx216_pos, $I10)
+ rxscan219_done:
+.annotate 'line', 79
+ # rx subcapture "sym"
+ set_addr $I10, rxcap_220_fail
+ rx216_cur."!mark_push"(0, rx216_pos, $I10)
+ # rx literal "."
+ add $I11, rx216_pos, 1
+ gt $I11, rx216_eos, rx216_fail
+ sub $I11, rx216_pos, rx216_off
+ substr $S10, rx216_tgt, $I11, 1
+ ne $S10, ".", rx216_fail
+ add rx216_pos, 1
+ set_addr $I10, rxcap_220_fail
+ ($I12, $I11) = rx216_cur."!mark_peek"($I10)
+ rx216_cur."!cursor_pos"($I11)
+ ($P10) = rx216_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx216_pos, "")
+ rx216_cur."!mark_push"(0, -1, 0, $P10)
+ $P10."!cursor_names"("sym")
+ goto rxcap_220_done
+ rxcap_220_fail:
+ goto rx216_fail
+ rxcap_220_done:
+ # rx pass
+ rx216_cur."!cursor_pass"(rx216_pos, "metachar:sym<.>")
+ rx216_cur."!cursor_debug"("PASS ", "metachar:sym<.>", " at pos=", rx216_pos)
+ .return (rx216_cur)
+ rx216_fail:
+.annotate 'line', 3
+ (rx216_rep, rx216_pos, $I10, $P10) = rx216_cur."!mark_fail"(0)
+ lt rx216_pos, -1, rx216_done
+ eq rx216_pos, -1, rx216_fail
+ jump $I10
+ rx216_done:
+ rx216_cur."!cursor_fail"()
+ rx216_cur."!cursor_debug"("FAIL ", "metachar:sym<.>")
+ .return (rx216_cur)
+ .return ()
+.end
+
+
+.namespace ["Regex";"P6Regex";"Grammar"]
+.sub "!PREFIX__metachar:sym<.>" :subid("60_1275811476.7961") :method
+.annotate 'line', 3
+ new $P218, "ResizablePMCArray"
+ push $P218, "."
+ .return ($P218)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Grammar"]
+.sub "metachar:sym<^>" :subid("61_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx217_tgt
- .local int rx217_pos
- .local int rx217_off
- .local int rx217_eos
- .local int rx217_rep
- .local pmc rx217_cur
- (rx217_cur, rx217_pos, rx217_tgt) = self."!cursor_start"()
- rx217_cur."!cursor_debug"("START ", "metachar:sym<^>")
- .lex unicode:"$\x{a2}", rx217_cur
- .local pmc match
- .lex "$/", match
- length rx217_eos, rx217_tgt
- set rx217_off, 0
- lt rx217_pos, 2, rx217_start
- sub rx217_off, rx217_pos, 1
- substr rx217_tgt, rx217_tgt, rx217_off
- rx217_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan220_done
- goto rxscan220_scan
- rxscan220_loop:
- ($P10) = rx217_cur."from"()
- inc $P10
- set rx217_pos, $P10
- ge rx217_pos, rx217_eos, rxscan220_done
- rxscan220_scan:
- set_addr $I10, rxscan220_loop
- rx217_cur."!mark_push"(0, rx217_pos, $I10)
- rxscan220_done:
+ .local string rx222_tgt
+ .local int rx222_pos
+ .local int rx222_off
+ .local int rx222_eos
+ .local int rx222_rep
+ .local pmc rx222_cur
+ (rx222_cur, rx222_pos, rx222_tgt) = self."!cursor_start"()
+ rx222_cur."!cursor_debug"("START ", "metachar:sym<^>")
+ .lex unicode:"$\x{a2}", rx222_cur
+ .local pmc match
+ .lex "$/", match
+ length rx222_eos, rx222_tgt
+ gt rx222_pos, rx222_eos, rx222_done
+ set rx222_off, 0
+ lt rx222_pos, 2, rx222_start
+ sub rx222_off, rx222_pos, 1
+ substr rx222_tgt, rx222_tgt, rx222_off
+ rx222_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan225_done
+ goto rxscan225_scan
+ rxscan225_loop:
+ ($P10) = rx222_cur."from"()
+ inc $P10
+ set rx222_pos, $P10
+ ge rx222_pos, rx222_eos, rxscan225_done
+ rxscan225_scan:
+ set_addr $I10, rxscan225_loop
+ rx222_cur."!mark_push"(0, rx222_pos, $I10)
+ rxscan225_done:
.annotate 'line', 80
# rx subcapture "sym"
- set_addr $I10, rxcap_221_fail
- rx217_cur."!mark_push"(0, rx217_pos, $I10)
+ set_addr $I10, rxcap_226_fail
+ rx222_cur."!mark_push"(0, rx222_pos, $I10)
# rx literal "^"
- add $I11, rx217_pos, 1
- gt $I11, rx217_eos, rx217_fail
- sub $I11, rx217_pos, rx217_off
- substr $S10, rx217_tgt, $I11, 1
- ne $S10, "^", rx217_fail
- add rx217_pos, 1
- set_addr $I10, rxcap_221_fail
- ($I12, $I11) = rx217_cur."!mark_peek"($I10)
- rx217_cur."!cursor_pos"($I11)
- ($P10) = rx217_cur."!cursor_start"()
- $P10."!cursor_pass"(rx217_pos, "")
- rx217_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx222_pos, 1
+ gt $I11, rx222_eos, rx222_fail
+ sub $I11, rx222_pos, rx222_off
+ substr $S10, rx222_tgt, $I11, 1
+ ne $S10, "^", rx222_fail
+ add rx222_pos, 1
+ set_addr $I10, rxcap_226_fail
+ ($I12, $I11) = rx222_cur."!mark_peek"($I10)
+ rx222_cur."!cursor_pos"($I11)
+ ($P10) = rx222_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx222_pos, "")
+ rx222_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_221_done
- rxcap_221_fail:
- goto rx217_fail
- rxcap_221_done:
+ goto rxcap_226_done
+ rxcap_226_fail:
+ goto rx222_fail
+ rxcap_226_done:
# rx pass
- rx217_cur."!cursor_pass"(rx217_pos, "metachar:sym<^>")
- rx217_cur."!cursor_debug"("PASS ", "metachar:sym<^>", " at pos=", rx217_pos)
- .return (rx217_cur)
- rx217_fail:
+ rx222_cur."!cursor_pass"(rx222_pos, "metachar:sym<^>")
+ rx222_cur."!cursor_debug"("PASS ", "metachar:sym<^>", " at pos=", rx222_pos)
+ .return (rx222_cur)
+ rx222_fail:
.annotate 'line', 3
- (rx217_rep, rx217_pos, $I10, $P10) = rx217_cur."!mark_fail"(0)
- lt rx217_pos, -1, rx217_done
- eq rx217_pos, -1, rx217_fail
+ (rx222_rep, rx222_pos, $I10, $P10) = rx222_cur."!mark_fail"(0)
+ lt rx222_pos, -1, rx222_done
+ eq rx222_pos, -1, rx222_fail
jump $I10
- rx217_done:
- rx217_cur."!cursor_fail"()
- rx217_cur."!cursor_debug"("FAIL ", "metachar:sym<^>")
- .return (rx217_cur)
+ rx222_done:
+ rx222_cur."!cursor_fail"()
+ rx222_cur."!cursor_debug"("FAIL ", "metachar:sym<^>")
+ .return (rx222_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<^>" :subid("62_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<^>" :subid("62_1275811476.7961") :method
.annotate 'line', 3
- new $P219, "ResizablePMCArray"
- push $P219, "^"
- .return ($P219)
+ new $P224, "ResizablePMCArray"
+ push $P224, "^"
+ .return ($P224)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<^^>" :subid("63_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<^^>" :subid("63_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx223_tgt
- .local int rx223_pos
- .local int rx223_off
- .local int rx223_eos
- .local int rx223_rep
- .local pmc rx223_cur
- (rx223_cur, rx223_pos, rx223_tgt) = self."!cursor_start"()
- rx223_cur."!cursor_debug"("START ", "metachar:sym<^^>")
- .lex unicode:"$\x{a2}", rx223_cur
+ .local string rx228_tgt
+ .local int rx228_pos
+ .local int rx228_off
+ .local int rx228_eos
+ .local int rx228_rep
+ .local pmc rx228_cur
+ (rx228_cur, rx228_pos, rx228_tgt) = self."!cursor_start"()
+ rx228_cur."!cursor_debug"("START ", "metachar:sym<^^>")
+ .lex unicode:"$\x{a2}", rx228_cur
.local pmc match
.lex "$/", match
- length rx223_eos, rx223_tgt
- set rx223_off, 0
- lt rx223_pos, 2, rx223_start
- sub rx223_off, rx223_pos, 1
- substr rx223_tgt, rx223_tgt, rx223_off
- rx223_start:
+ length rx228_eos, rx228_tgt
+ gt rx228_pos, rx228_eos, rx228_done
+ set rx228_off, 0
+ lt rx228_pos, 2, rx228_start
+ sub rx228_off, rx228_pos, 1
+ substr rx228_tgt, rx228_tgt, rx228_off
+ rx228_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan226_done
- goto rxscan226_scan
- rxscan226_loop:
- ($P10) = rx223_cur."from"()
+ ne $I10, -1, rxscan231_done
+ goto rxscan231_scan
+ rxscan231_loop:
+ ($P10) = rx228_cur."from"()
inc $P10
- set rx223_pos, $P10
- ge rx223_pos, rx223_eos, rxscan226_done
- rxscan226_scan:
- set_addr $I10, rxscan226_loop
- rx223_cur."!mark_push"(0, rx223_pos, $I10)
- rxscan226_done:
+ set rx228_pos, $P10
+ ge rx228_pos, rx228_eos, rxscan231_done
+ rxscan231_scan:
+ set_addr $I10, rxscan231_loop
+ rx228_cur."!mark_push"(0, rx228_pos, $I10)
+ rxscan231_done:
.annotate 'line', 81
# rx subcapture "sym"
- set_addr $I10, rxcap_227_fail
- rx223_cur."!mark_push"(0, rx223_pos, $I10)
+ set_addr $I10, rxcap_232_fail
+ rx228_cur."!mark_push"(0, rx228_pos, $I10)
# rx literal "^^"
- add $I11, rx223_pos, 2
- gt $I11, rx223_eos, rx223_fail
- sub $I11, rx223_pos, rx223_off
- substr $S10, rx223_tgt, $I11, 2
- ne $S10, "^^", rx223_fail
- add rx223_pos, 2
- set_addr $I10, rxcap_227_fail
- ($I12, $I11) = rx223_cur."!mark_peek"($I10)
- rx223_cur."!cursor_pos"($I11)
- ($P10) = rx223_cur."!cursor_start"()
- $P10."!cursor_pass"(rx223_pos, "")
- rx223_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx228_pos, 2
+ gt $I11, rx228_eos, rx228_fail
+ sub $I11, rx228_pos, rx228_off
+ substr $S10, rx228_tgt, $I11, 2
+ ne $S10, "^^", rx228_fail
+ add rx228_pos, 2
+ set_addr $I10, rxcap_232_fail
+ ($I12, $I11) = rx228_cur."!mark_peek"($I10)
+ rx228_cur."!cursor_pos"($I11)
+ ($P10) = rx228_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx228_pos, "")
+ rx228_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_227_done
- rxcap_227_fail:
- goto rx223_fail
- rxcap_227_done:
+ goto rxcap_232_done
+ rxcap_232_fail:
+ goto rx228_fail
+ rxcap_232_done:
# rx pass
- rx223_cur."!cursor_pass"(rx223_pos, "metachar:sym<^^>")
- rx223_cur."!cursor_debug"("PASS ", "metachar:sym<^^>", " at pos=", rx223_pos)
- .return (rx223_cur)
- rx223_fail:
+ rx228_cur."!cursor_pass"(rx228_pos, "metachar:sym<^^>")
+ rx228_cur."!cursor_debug"("PASS ", "metachar:sym<^^>", " at pos=", rx228_pos)
+ .return (rx228_cur)
+ rx228_fail:
.annotate 'line', 3
- (rx223_rep, rx223_pos, $I10, $P10) = rx223_cur."!mark_fail"(0)
- lt rx223_pos, -1, rx223_done
- eq rx223_pos, -1, rx223_fail
+ (rx228_rep, rx228_pos, $I10, $P10) = rx228_cur."!mark_fail"(0)
+ lt rx228_pos, -1, rx228_done
+ eq rx228_pos, -1, rx228_fail
jump $I10
- rx223_done:
- rx223_cur."!cursor_fail"()
- rx223_cur."!cursor_debug"("FAIL ", "metachar:sym<^^>")
- .return (rx223_cur)
+ rx228_done:
+ rx228_cur."!cursor_fail"()
+ rx228_cur."!cursor_debug"("FAIL ", "metachar:sym<^^>")
+ .return (rx228_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<^^>" :subid("64_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<^^>" :subid("64_1275811476.7961") :method
.annotate 'line', 3
- new $P225, "ResizablePMCArray"
- push $P225, "^^"
- .return ($P225)
+ new $P230, "ResizablePMCArray"
+ push $P230, "^^"
+ .return ($P230)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<$>" :subid("65_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<$>" :subid("65_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx229_tgt
- .local int rx229_pos
- .local int rx229_off
- .local int rx229_eos
- .local int rx229_rep
- .local pmc rx229_cur
- (rx229_cur, rx229_pos, rx229_tgt) = self."!cursor_start"()
- rx229_cur."!cursor_debug"("START ", "metachar:sym<$>")
- .lex unicode:"$\x{a2}", rx229_cur
+ .local string rx234_tgt
+ .local int rx234_pos
+ .local int rx234_off
+ .local int rx234_eos
+ .local int rx234_rep
+ .local pmc rx234_cur
+ (rx234_cur, rx234_pos, rx234_tgt) = self."!cursor_start"()
+ rx234_cur."!cursor_debug"("START ", "metachar:sym<$>")
+ .lex unicode:"$\x{a2}", rx234_cur
.local pmc match
.lex "$/", match
- length rx229_eos, rx229_tgt
- set rx229_off, 0
- lt rx229_pos, 2, rx229_start
- sub rx229_off, rx229_pos, 1
- substr rx229_tgt, rx229_tgt, rx229_off
- rx229_start:
+ length rx234_eos, rx234_tgt
+ gt rx234_pos, rx234_eos, rx234_done
+ set rx234_off, 0
+ lt rx234_pos, 2, rx234_start
+ sub rx234_off, rx234_pos, 1
+ substr rx234_tgt, rx234_tgt, rx234_off
+ rx234_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan232_done
- goto rxscan232_scan
- rxscan232_loop:
- ($P10) = rx229_cur."from"()
+ ne $I10, -1, rxscan237_done
+ goto rxscan237_scan
+ rxscan237_loop:
+ ($P10) = rx234_cur."from"()
inc $P10
- set rx229_pos, $P10
- ge rx229_pos, rx229_eos, rxscan232_done
- rxscan232_scan:
- set_addr $I10, rxscan232_loop
- rx229_cur."!mark_push"(0, rx229_pos, $I10)
- rxscan232_done:
+ set rx234_pos, $P10
+ ge rx234_pos, rx234_eos, rxscan237_done
+ rxscan237_scan:
+ set_addr $I10, rxscan237_loop
+ rx234_cur."!mark_push"(0, rx234_pos, $I10)
+ rxscan237_done:
.annotate 'line', 82
# rx subcapture "sym"
- set_addr $I10, rxcap_233_fail
- rx229_cur."!mark_push"(0, rx229_pos, $I10)
+ set_addr $I10, rxcap_238_fail
+ rx234_cur."!mark_push"(0, rx234_pos, $I10)
# rx literal "$"
- add $I11, rx229_pos, 1
- gt $I11, rx229_eos, rx229_fail
- sub $I11, rx229_pos, rx229_off
- substr $S10, rx229_tgt, $I11, 1
- ne $S10, "$", rx229_fail
- add rx229_pos, 1
- set_addr $I10, rxcap_233_fail
- ($I12, $I11) = rx229_cur."!mark_peek"($I10)
- rx229_cur."!cursor_pos"($I11)
- ($P10) = rx229_cur."!cursor_start"()
- $P10."!cursor_pass"(rx229_pos, "")
- rx229_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx234_pos, 1
+ gt $I11, rx234_eos, rx234_fail
+ sub $I11, rx234_pos, rx234_off
+ substr $S10, rx234_tgt, $I11, 1
+ ne $S10, "$", rx234_fail
+ add rx234_pos, 1
+ set_addr $I10, rxcap_238_fail
+ ($I12, $I11) = rx234_cur."!mark_peek"($I10)
+ rx234_cur."!cursor_pos"($I11)
+ ($P10) = rx234_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx234_pos, "")
+ rx234_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_233_done
- rxcap_233_fail:
- goto rx229_fail
- rxcap_233_done:
+ goto rxcap_238_done
+ rxcap_238_fail:
+ goto rx234_fail
+ rxcap_238_done:
# rx pass
- rx229_cur."!cursor_pass"(rx229_pos, "metachar:sym<$>")
- rx229_cur."!cursor_debug"("PASS ", "metachar:sym<$>", " at pos=", rx229_pos)
- .return (rx229_cur)
- rx229_fail:
+ rx234_cur."!cursor_pass"(rx234_pos, "metachar:sym<$>")
+ rx234_cur."!cursor_debug"("PASS ", "metachar:sym<$>", " at pos=", rx234_pos)
+ .return (rx234_cur)
+ rx234_fail:
.annotate 'line', 3
- (rx229_rep, rx229_pos, $I10, $P10) = rx229_cur."!mark_fail"(0)
- lt rx229_pos, -1, rx229_done
- eq rx229_pos, -1, rx229_fail
+ (rx234_rep, rx234_pos, $I10, $P10) = rx234_cur."!mark_fail"(0)
+ lt rx234_pos, -1, rx234_done
+ eq rx234_pos, -1, rx234_fail
jump $I10
- rx229_done:
- rx229_cur."!cursor_fail"()
- rx229_cur."!cursor_debug"("FAIL ", "metachar:sym<$>")
- .return (rx229_cur)
+ rx234_done:
+ rx234_cur."!cursor_fail"()
+ rx234_cur."!cursor_debug"("FAIL ", "metachar:sym<$>")
+ .return (rx234_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<$>" :subid("66_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<$>" :subid("66_1275811476.7961") :method
.annotate 'line', 3
- new $P231, "ResizablePMCArray"
- push $P231, "$"
- .return ($P231)
+ new $P236, "ResizablePMCArray"
+ push $P236, "$"
+ .return ($P236)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<$$>" :subid("67_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<$$>" :subid("67_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx235_tgt
- .local int rx235_pos
- .local int rx235_off
- .local int rx235_eos
- .local int rx235_rep
- .local pmc rx235_cur
- (rx235_cur, rx235_pos, rx235_tgt) = self."!cursor_start"()
- rx235_cur."!cursor_debug"("START ", "metachar:sym<$$>")
- .lex unicode:"$\x{a2}", rx235_cur
+ .local string rx240_tgt
+ .local int rx240_pos
+ .local int rx240_off
+ .local int rx240_eos
+ .local int rx240_rep
+ .local pmc rx240_cur
+ (rx240_cur, rx240_pos, rx240_tgt) = self."!cursor_start"()
+ rx240_cur."!cursor_debug"("START ", "metachar:sym<$$>")
+ .lex unicode:"$\x{a2}", rx240_cur
.local pmc match
.lex "$/", match
- length rx235_eos, rx235_tgt
- set rx235_off, 0
- lt rx235_pos, 2, rx235_start
- sub rx235_off, rx235_pos, 1
- substr rx235_tgt, rx235_tgt, rx235_off
- rx235_start:
+ length rx240_eos, rx240_tgt
+ gt rx240_pos, rx240_eos, rx240_done
+ set rx240_off, 0
+ lt rx240_pos, 2, rx240_start
+ sub rx240_off, rx240_pos, 1
+ substr rx240_tgt, rx240_tgt, rx240_off
+ rx240_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan238_done
- goto rxscan238_scan
- rxscan238_loop:
- ($P10) = rx235_cur."from"()
+ ne $I10, -1, rxscan243_done
+ goto rxscan243_scan
+ rxscan243_loop:
+ ($P10) = rx240_cur."from"()
inc $P10
- set rx235_pos, $P10
- ge rx235_pos, rx235_eos, rxscan238_done
- rxscan238_scan:
- set_addr $I10, rxscan238_loop
- rx235_cur."!mark_push"(0, rx235_pos, $I10)
- rxscan238_done:
+ set rx240_pos, $P10
+ ge rx240_pos, rx240_eos, rxscan243_done
+ rxscan243_scan:
+ set_addr $I10, rxscan243_loop
+ rx240_cur."!mark_push"(0, rx240_pos, $I10)
+ rxscan243_done:
.annotate 'line', 83
# rx subcapture "sym"
- set_addr $I10, rxcap_239_fail
- rx235_cur."!mark_push"(0, rx235_pos, $I10)
+ set_addr $I10, rxcap_244_fail
+ rx240_cur."!mark_push"(0, rx240_pos, $I10)
# rx literal "$$"
- add $I11, rx235_pos, 2
- gt $I11, rx235_eos, rx235_fail
- sub $I11, rx235_pos, rx235_off
- substr $S10, rx235_tgt, $I11, 2
- ne $S10, "$$", rx235_fail
- add rx235_pos, 2
- set_addr $I10, rxcap_239_fail
- ($I12, $I11) = rx235_cur."!mark_peek"($I10)
- rx235_cur."!cursor_pos"($I11)
- ($P10) = rx235_cur."!cursor_start"()
- $P10."!cursor_pass"(rx235_pos, "")
- rx235_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx240_pos, 2
+ gt $I11, rx240_eos, rx240_fail
+ sub $I11, rx240_pos, rx240_off
+ substr $S10, rx240_tgt, $I11, 2
+ ne $S10, "$$", rx240_fail
+ add rx240_pos, 2
+ set_addr $I10, rxcap_244_fail
+ ($I12, $I11) = rx240_cur."!mark_peek"($I10)
+ rx240_cur."!cursor_pos"($I11)
+ ($P10) = rx240_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx240_pos, "")
+ rx240_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_239_done
- rxcap_239_fail:
- goto rx235_fail
- rxcap_239_done:
+ goto rxcap_244_done
+ rxcap_244_fail:
+ goto rx240_fail
+ rxcap_244_done:
# rx pass
- rx235_cur."!cursor_pass"(rx235_pos, "metachar:sym<$$>")
- rx235_cur."!cursor_debug"("PASS ", "metachar:sym<$$>", " at pos=", rx235_pos)
- .return (rx235_cur)
- rx235_fail:
+ rx240_cur."!cursor_pass"(rx240_pos, "metachar:sym<$$>")
+ rx240_cur."!cursor_debug"("PASS ", "metachar:sym<$$>", " at pos=", rx240_pos)
+ .return (rx240_cur)
+ rx240_fail:
.annotate 'line', 3
- (rx235_rep, rx235_pos, $I10, $P10) = rx235_cur."!mark_fail"(0)
- lt rx235_pos, -1, rx235_done
- eq rx235_pos, -1, rx235_fail
+ (rx240_rep, rx240_pos, $I10, $P10) = rx240_cur."!mark_fail"(0)
+ lt rx240_pos, -1, rx240_done
+ eq rx240_pos, -1, rx240_fail
jump $I10
- rx235_done:
- rx235_cur."!cursor_fail"()
- rx235_cur."!cursor_debug"("FAIL ", "metachar:sym<$$>")
- .return (rx235_cur)
+ rx240_done:
+ rx240_cur."!cursor_fail"()
+ rx240_cur."!cursor_debug"("FAIL ", "metachar:sym<$$>")
+ .return (rx240_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<$$>" :subid("68_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<$$>" :subid("68_1275811476.7961") :method
.annotate 'line', 3
- new $P237, "ResizablePMCArray"
- push $P237, "$$"
- .return ($P237)
+ new $P242, "ResizablePMCArray"
+ push $P242, "$$"
+ .return ($P242)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<:::>" :subid("69_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<:::>" :subid("69_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx241_tgt
- .local int rx241_pos
- .local int rx241_off
- .local int rx241_eos
- .local int rx241_rep
- .local pmc rx241_cur
- (rx241_cur, rx241_pos, rx241_tgt) = self."!cursor_start"()
- rx241_cur."!cursor_debug"("START ", "metachar:sym<:::>")
- .lex unicode:"$\x{a2}", rx241_cur
+ .local string rx246_tgt
+ .local int rx246_pos
+ .local int rx246_off
+ .local int rx246_eos
+ .local int rx246_rep
+ .local pmc rx246_cur
+ (rx246_cur, rx246_pos, rx246_tgt) = self."!cursor_start"()
+ rx246_cur."!cursor_debug"("START ", "metachar:sym<:::>")
+ .lex unicode:"$\x{a2}", rx246_cur
.local pmc match
.lex "$/", match
- length rx241_eos, rx241_tgt
- set rx241_off, 0
- lt rx241_pos, 2, rx241_start
- sub rx241_off, rx241_pos, 1
- substr rx241_tgt, rx241_tgt, rx241_off
- rx241_start:
+ length rx246_eos, rx246_tgt
+ gt rx246_pos, rx246_eos, rx246_done
+ set rx246_off, 0
+ lt rx246_pos, 2, rx246_start
+ sub rx246_off, rx246_pos, 1
+ substr rx246_tgt, rx246_tgt, rx246_off
+ rx246_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan245_done
- goto rxscan245_scan
- rxscan245_loop:
- ($P10) = rx241_cur."from"()
+ ne $I10, -1, rxscan250_done
+ goto rxscan250_scan
+ rxscan250_loop:
+ ($P10) = rx246_cur."from"()
inc $P10
- set rx241_pos, $P10
- ge rx241_pos, rx241_eos, rxscan245_done
- rxscan245_scan:
- set_addr $I10, rxscan245_loop
- rx241_cur."!mark_push"(0, rx241_pos, $I10)
- rxscan245_done:
+ set rx246_pos, $P10
+ ge rx246_pos, rx246_eos, rxscan250_done
+ rxscan250_scan:
+ set_addr $I10, rxscan250_loop
+ rx246_cur."!mark_push"(0, rx246_pos, $I10)
+ rxscan250_done:
.annotate 'line', 84
# rx subcapture "sym"
- set_addr $I10, rxcap_246_fail
- rx241_cur."!mark_push"(0, rx241_pos, $I10)
+ set_addr $I10, rxcap_251_fail
+ rx246_cur."!mark_push"(0, rx246_pos, $I10)
# rx literal ":::"
- add $I11, rx241_pos, 3
- gt $I11, rx241_eos, rx241_fail
- sub $I11, rx241_pos, rx241_off
- substr $S10, rx241_tgt, $I11, 3
- ne $S10, ":::", rx241_fail
- add rx241_pos, 3
- set_addr $I10, rxcap_246_fail
- ($I12, $I11) = rx241_cur."!mark_peek"($I10)
- rx241_cur."!cursor_pos"($I11)
- ($P10) = rx241_cur."!cursor_start"()
- $P10."!cursor_pass"(rx241_pos, "")
- rx241_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx246_pos, 3
+ gt $I11, rx246_eos, rx246_fail
+ sub $I11, rx246_pos, rx246_off
+ substr $S10, rx246_tgt, $I11, 3
+ ne $S10, ":::", rx246_fail
+ add rx246_pos, 3
+ set_addr $I10, rxcap_251_fail
+ ($I12, $I11) = rx246_cur."!mark_peek"($I10)
+ rx246_cur."!cursor_pos"($I11)
+ ($P10) = rx246_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx246_pos, "")
+ rx246_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_246_done
- rxcap_246_fail:
- goto rx241_fail
- rxcap_246_done:
+ goto rxcap_251_done
+ rxcap_251_fail:
+ goto rx246_fail
+ rxcap_251_done:
# rx subrule "panic" subtype=method negate=
- rx241_cur."!cursor_pos"(rx241_pos)
- $P10 = rx241_cur."panic"("::: not yet implemented")
- unless $P10, rx241_fail
- rx241_pos = $P10."pos"()
+ rx246_cur."!cursor_pos"(rx246_pos)
+ $P10 = rx246_cur."panic"("::: not yet implemented")
+ unless $P10, rx246_fail
+ rx246_pos = $P10."pos"()
# rx pass
- rx241_cur."!cursor_pass"(rx241_pos, "metachar:sym<:::>")
- rx241_cur."!cursor_debug"("PASS ", "metachar:sym<:::>", " at pos=", rx241_pos)
- .return (rx241_cur)
- rx241_fail:
+ rx246_cur."!cursor_pass"(rx246_pos, "metachar:sym<:::>")
+ rx246_cur."!cursor_debug"("PASS ", "metachar:sym<:::>", " at pos=", rx246_pos)
+ .return (rx246_cur)
+ rx246_fail:
.annotate 'line', 3
- (rx241_rep, rx241_pos, $I10, $P10) = rx241_cur."!mark_fail"(0)
- lt rx241_pos, -1, rx241_done
- eq rx241_pos, -1, rx241_fail
+ (rx246_rep, rx246_pos, $I10, $P10) = rx246_cur."!mark_fail"(0)
+ lt rx246_pos, -1, rx246_done
+ eq rx246_pos, -1, rx246_fail
jump $I10
- rx241_done:
- rx241_cur."!cursor_fail"()
- rx241_cur."!cursor_debug"("FAIL ", "metachar:sym<:::>")
- .return (rx241_cur)
+ rx246_done:
+ rx246_cur."!cursor_fail"()
+ rx246_cur."!cursor_debug"("FAIL ", "metachar:sym<:::>")
+ .return (rx246_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<:::>" :subid("70_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<:::>" :subid("70_1275811476.7961") :method
.annotate 'line', 3
- $P243 = self."!PREFIX__!subrule"("", ":::")
- new $P244, "ResizablePMCArray"
- push $P244, $P243
- .return ($P244)
+ $P248 = self."!PREFIX__!subrule"("panic", ":::")
+ new $P249, "ResizablePMCArray"
+ push $P249, $P248
+ .return ($P249)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<::>" :subid("71_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<::>" :subid("71_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx248_tgt
- .local int rx248_pos
- .local int rx248_off
- .local int rx248_eos
- .local int rx248_rep
- .local pmc rx248_cur
- (rx248_cur, rx248_pos, rx248_tgt) = self."!cursor_start"()
- rx248_cur."!cursor_debug"("START ", "metachar:sym<::>")
- .lex unicode:"$\x{a2}", rx248_cur
+ .local string rx253_tgt
+ .local int rx253_pos
+ .local int rx253_off
+ .local int rx253_eos
+ .local int rx253_rep
+ .local pmc rx253_cur
+ (rx253_cur, rx253_pos, rx253_tgt) = self."!cursor_start"()
+ rx253_cur."!cursor_debug"("START ", "metachar:sym<::>")
+ .lex unicode:"$\x{a2}", rx253_cur
.local pmc match
.lex "$/", match
- length rx248_eos, rx248_tgt
- set rx248_off, 0
- lt rx248_pos, 2, rx248_start
- sub rx248_off, rx248_pos, 1
- substr rx248_tgt, rx248_tgt, rx248_off
- rx248_start:
+ length rx253_eos, rx253_tgt
+ gt rx253_pos, rx253_eos, rx253_done
+ set rx253_off, 0
+ lt rx253_pos, 2, rx253_start
+ sub rx253_off, rx253_pos, 1
+ substr rx253_tgt, rx253_tgt, rx253_off
+ rx253_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan252_done
- goto rxscan252_scan
- rxscan252_loop:
- ($P10) = rx248_cur."from"()
+ ne $I10, -1, rxscan257_done
+ goto rxscan257_scan
+ rxscan257_loop:
+ ($P10) = rx253_cur."from"()
inc $P10
- set rx248_pos, $P10
- ge rx248_pos, rx248_eos, rxscan252_done
- rxscan252_scan:
- set_addr $I10, rxscan252_loop
- rx248_cur."!mark_push"(0, rx248_pos, $I10)
- rxscan252_done:
+ set rx253_pos, $P10
+ ge rx253_pos, rx253_eos, rxscan257_done
+ rxscan257_scan:
+ set_addr $I10, rxscan257_loop
+ rx253_cur."!mark_push"(0, rx253_pos, $I10)
+ rxscan257_done:
.annotate 'line', 85
# rx subcapture "sym"
- set_addr $I10, rxcap_253_fail
- rx248_cur."!mark_push"(0, rx248_pos, $I10)
+ set_addr $I10, rxcap_258_fail
+ rx253_cur."!mark_push"(0, rx253_pos, $I10)
# rx literal "::"
- add $I11, rx248_pos, 2
- gt $I11, rx248_eos, rx248_fail
- sub $I11, rx248_pos, rx248_off
- substr $S10, rx248_tgt, $I11, 2
- ne $S10, "::", rx248_fail
- add rx248_pos, 2
- set_addr $I10, rxcap_253_fail
- ($I12, $I11) = rx248_cur."!mark_peek"($I10)
- rx248_cur."!cursor_pos"($I11)
- ($P10) = rx248_cur."!cursor_start"()
- $P10."!cursor_pass"(rx248_pos, "")
- rx248_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx253_pos, 2
+ gt $I11, rx253_eos, rx253_fail
+ sub $I11, rx253_pos, rx253_off
+ substr $S10, rx253_tgt, $I11, 2
+ ne $S10, "::", rx253_fail
+ add rx253_pos, 2
+ set_addr $I10, rxcap_258_fail
+ ($I12, $I11) = rx253_cur."!mark_peek"($I10)
+ rx253_cur."!cursor_pos"($I11)
+ ($P10) = rx253_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx253_pos, "")
+ rx253_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_253_done
- rxcap_253_fail:
- goto rx248_fail
- rxcap_253_done:
+ goto rxcap_258_done
+ rxcap_258_fail:
+ goto rx253_fail
+ rxcap_258_done:
# rx subrule "panic" subtype=method negate=
- rx248_cur."!cursor_pos"(rx248_pos)
- $P10 = rx248_cur."panic"(":: not yet implemented")
- unless $P10, rx248_fail
- rx248_pos = $P10."pos"()
+ rx253_cur."!cursor_pos"(rx253_pos)
+ $P10 = rx253_cur."panic"(":: not yet implemented")
+ unless $P10, rx253_fail
+ rx253_pos = $P10."pos"()
# rx pass
- rx248_cur."!cursor_pass"(rx248_pos, "metachar:sym<::>")
- rx248_cur."!cursor_debug"("PASS ", "metachar:sym<::>", " at pos=", rx248_pos)
- .return (rx248_cur)
- rx248_fail:
+ rx253_cur."!cursor_pass"(rx253_pos, "metachar:sym<::>")
+ rx253_cur."!cursor_debug"("PASS ", "metachar:sym<::>", " at pos=", rx253_pos)
+ .return (rx253_cur)
+ rx253_fail:
.annotate 'line', 3
- (rx248_rep, rx248_pos, $I10, $P10) = rx248_cur."!mark_fail"(0)
- lt rx248_pos, -1, rx248_done
- eq rx248_pos, -1, rx248_fail
+ (rx253_rep, rx253_pos, $I10, $P10) = rx253_cur."!mark_fail"(0)
+ lt rx253_pos, -1, rx253_done
+ eq rx253_pos, -1, rx253_fail
jump $I10
- rx248_done:
- rx248_cur."!cursor_fail"()
- rx248_cur."!cursor_debug"("FAIL ", "metachar:sym<::>")
- .return (rx248_cur)
+ rx253_done:
+ rx253_cur."!cursor_fail"()
+ rx253_cur."!cursor_debug"("FAIL ", "metachar:sym<::>")
+ .return (rx253_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<::>" :subid("72_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<::>" :subid("72_1275811476.7961") :method
.annotate 'line', 3
- $P250 = self."!PREFIX__!subrule"("", "::")
- new $P251, "ResizablePMCArray"
- push $P251, $P250
- .return ($P251)
+ $P255 = self."!PREFIX__!subrule"("panic", "::")
+ new $P256, "ResizablePMCArray"
+ push $P256, $P255
+ .return ($P256)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<lwb>" :subid("73_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<lwb>" :subid("73_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx255_tgt
- .local int rx255_pos
- .local int rx255_off
- .local int rx255_eos
- .local int rx255_rep
- .local pmc rx255_cur
- (rx255_cur, rx255_pos, rx255_tgt) = self."!cursor_start"()
- rx255_cur."!cursor_debug"("START ", "metachar:sym<lwb>")
- .lex unicode:"$\x{a2}", rx255_cur
+ .local string rx260_tgt
+ .local int rx260_pos
+ .local int rx260_off
+ .local int rx260_eos
+ .local int rx260_rep
+ .local pmc rx260_cur
+ (rx260_cur, rx260_pos, rx260_tgt) = self."!cursor_start"()
+ rx260_cur."!cursor_debug"("START ", "metachar:sym<lwb>")
+ .lex unicode:"$\x{a2}", rx260_cur
.local pmc match
.lex "$/", match
- length rx255_eos, rx255_tgt
- set rx255_off, 0
- lt rx255_pos, 2, rx255_start
- sub rx255_off, rx255_pos, 1
- substr rx255_tgt, rx255_tgt, rx255_off
- rx255_start:
+ length rx260_eos, rx260_tgt
+ gt rx260_pos, rx260_eos, rx260_done
+ set rx260_off, 0
+ lt rx260_pos, 2, rx260_start
+ sub rx260_off, rx260_pos, 1
+ substr rx260_tgt, rx260_tgt, rx260_off
+ rx260_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan258_done
- goto rxscan258_scan
- rxscan258_loop:
- ($P10) = rx255_cur."from"()
+ ne $I10, -1, rxscan263_done
+ goto rxscan263_scan
+ rxscan263_loop:
+ ($P10) = rx260_cur."from"()
inc $P10
- set rx255_pos, $P10
- ge rx255_pos, rx255_eos, rxscan258_done
- rxscan258_scan:
- set_addr $I10, rxscan258_loop
- rx255_cur."!mark_push"(0, rx255_pos, $I10)
- rxscan258_done:
+ set rx260_pos, $P10
+ ge rx260_pos, rx260_eos, rxscan263_done
+ rxscan263_scan:
+ set_addr $I10, rxscan263_loop
+ rx260_cur."!mark_push"(0, rx260_pos, $I10)
+ rxscan263_done:
.annotate 'line', 86
# rx subcapture "sym"
- set_addr $I10, rxcap_260_fail
- rx255_cur."!mark_push"(0, rx255_pos, $I10)
- alt259_0:
- set_addr $I10, alt259_1
- rx255_cur."!mark_push"(0, rx255_pos, $I10)
+ set_addr $I10, rxcap_265_fail
+ rx260_cur."!mark_push"(0, rx260_pos, $I10)
+ alt264_0:
+ set_addr $I10, alt264_1
+ rx260_cur."!mark_push"(0, rx260_pos, $I10)
# rx literal "<<"
- add $I11, rx255_pos, 2
- gt $I11, rx255_eos, rx255_fail
- sub $I11, rx255_pos, rx255_off
- substr $S10, rx255_tgt, $I11, 2
- ne $S10, "<<", rx255_fail
- add rx255_pos, 2
- goto alt259_end
- alt259_1:
+ add $I11, rx260_pos, 2
+ gt $I11, rx260_eos, rx260_fail
+ sub $I11, rx260_pos, rx260_off
+ substr $S10, rx260_tgt, $I11, 2
+ ne $S10, "<<", rx260_fail
+ add rx260_pos, 2
+ goto alt264_end
+ alt264_1:
# rx literal unicode:"\x{ab}"
- add $I11, rx255_pos, 1
- gt $I11, rx255_eos, rx255_fail
- sub $I11, rx255_pos, rx255_off
- substr $S10, rx255_tgt, $I11, 1
- ne $S10, unicode:"\x{ab}", rx255_fail
- add rx255_pos, 1
- alt259_end:
- set_addr $I10, rxcap_260_fail
- ($I12, $I11) = rx255_cur."!mark_peek"($I10)
- rx255_cur."!cursor_pos"($I11)
- ($P10) = rx255_cur."!cursor_start"()
- $P10."!cursor_pass"(rx255_pos, "")
- rx255_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx260_pos, 1
+ gt $I11, rx260_eos, rx260_fail
+ sub $I11, rx260_pos, rx260_off
+ substr $S10, rx260_tgt, $I11, 1
+ ne $S10, unicode:"\x{ab}", rx260_fail
+ add rx260_pos, 1
+ alt264_end:
+ set_addr $I10, rxcap_265_fail
+ ($I12, $I11) = rx260_cur."!mark_peek"($I10)
+ rx260_cur."!cursor_pos"($I11)
+ ($P10) = rx260_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx260_pos, "")
+ rx260_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_260_done
- rxcap_260_fail:
- goto rx255_fail
- rxcap_260_done:
+ goto rxcap_265_done
+ rxcap_265_fail:
+ goto rx260_fail
+ rxcap_265_done:
# rx pass
- rx255_cur."!cursor_pass"(rx255_pos, "metachar:sym<lwb>")
- rx255_cur."!cursor_debug"("PASS ", "metachar:sym<lwb>", " at pos=", rx255_pos)
- .return (rx255_cur)
- rx255_fail:
+ rx260_cur."!cursor_pass"(rx260_pos, "metachar:sym<lwb>")
+ rx260_cur."!cursor_debug"("PASS ", "metachar:sym<lwb>", " at pos=", rx260_pos)
+ .return (rx260_cur)
+ rx260_fail:
.annotate 'line', 3
- (rx255_rep, rx255_pos, $I10, $P10) = rx255_cur."!mark_fail"(0)
- lt rx255_pos, -1, rx255_done
- eq rx255_pos, -1, rx255_fail
+ (rx260_rep, rx260_pos, $I10, $P10) = rx260_cur."!mark_fail"(0)
+ lt rx260_pos, -1, rx260_done
+ eq rx260_pos, -1, rx260_fail
jump $I10
- rx255_done:
- rx255_cur."!cursor_fail"()
- rx255_cur."!cursor_debug"("FAIL ", "metachar:sym<lwb>")
- .return (rx255_cur)
+ rx260_done:
+ rx260_cur."!cursor_fail"()
+ rx260_cur."!cursor_debug"("FAIL ", "metachar:sym<lwb>")
+ .return (rx260_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<lwb>" :subid("74_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<lwb>" :subid("74_1275811476.7961") :method
.annotate 'line', 3
- new $P257, "ResizablePMCArray"
- push $P257, unicode:"\x{ab}"
- push $P257, "<<"
- .return ($P257)
+ new $P262, "ResizablePMCArray"
+ push $P262, unicode:"\x{ab}"
+ push $P262, "<<"
+ .return ($P262)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<rwb>" :subid("75_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<rwb>" :subid("75_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx262_tgt
- .local int rx262_pos
- .local int rx262_off
- .local int rx262_eos
- .local int rx262_rep
- .local pmc rx262_cur
- (rx262_cur, rx262_pos, rx262_tgt) = self."!cursor_start"()
- rx262_cur."!cursor_debug"("START ", "metachar:sym<rwb>")
- .lex unicode:"$\x{a2}", rx262_cur
+ .local string rx267_tgt
+ .local int rx267_pos
+ .local int rx267_off
+ .local int rx267_eos
+ .local int rx267_rep
+ .local pmc rx267_cur
+ (rx267_cur, rx267_pos, rx267_tgt) = self."!cursor_start"()
+ rx267_cur."!cursor_debug"("START ", "metachar:sym<rwb>")
+ .lex unicode:"$\x{a2}", rx267_cur
.local pmc match
.lex "$/", match
- length rx262_eos, rx262_tgt
- set rx262_off, 0
- lt rx262_pos, 2, rx262_start
- sub rx262_off, rx262_pos, 1
- substr rx262_tgt, rx262_tgt, rx262_off
- rx262_start:
+ length rx267_eos, rx267_tgt
+ gt rx267_pos, rx267_eos, rx267_done
+ set rx267_off, 0
+ lt rx267_pos, 2, rx267_start
+ sub rx267_off, rx267_pos, 1
+ substr rx267_tgt, rx267_tgt, rx267_off
+ rx267_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan265_done
- goto rxscan265_scan
- rxscan265_loop:
- ($P10) = rx262_cur."from"()
+ ne $I10, -1, rxscan270_done
+ goto rxscan270_scan
+ rxscan270_loop:
+ ($P10) = rx267_cur."from"()
inc $P10
- set rx262_pos, $P10
- ge rx262_pos, rx262_eos, rxscan265_done
- rxscan265_scan:
- set_addr $I10, rxscan265_loop
- rx262_cur."!mark_push"(0, rx262_pos, $I10)
- rxscan265_done:
+ set rx267_pos, $P10
+ ge rx267_pos, rx267_eos, rxscan270_done
+ rxscan270_scan:
+ set_addr $I10, rxscan270_loop
+ rx267_cur."!mark_push"(0, rx267_pos, $I10)
+ rxscan270_done:
.annotate 'line', 87
# rx subcapture "sym"
- set_addr $I10, rxcap_267_fail
- rx262_cur."!mark_push"(0, rx262_pos, $I10)
- alt266_0:
- set_addr $I10, alt266_1
- rx262_cur."!mark_push"(0, rx262_pos, $I10)
+ set_addr $I10, rxcap_272_fail
+ rx267_cur."!mark_push"(0, rx267_pos, $I10)
+ alt271_0:
+ set_addr $I10, alt271_1
+ rx267_cur."!mark_push"(0, rx267_pos, $I10)
# rx literal ">>"
- add $I11, rx262_pos, 2
- gt $I11, rx262_eos, rx262_fail
- sub $I11, rx262_pos, rx262_off
- substr $S10, rx262_tgt, $I11, 2
- ne $S10, ">>", rx262_fail
- add rx262_pos, 2
- goto alt266_end
- alt266_1:
+ add $I11, rx267_pos, 2
+ gt $I11, rx267_eos, rx267_fail
+ sub $I11, rx267_pos, rx267_off
+ substr $S10, rx267_tgt, $I11, 2
+ ne $S10, ">>", rx267_fail
+ add rx267_pos, 2
+ goto alt271_end
+ alt271_1:
# rx literal unicode:"\x{bb}"
- add $I11, rx262_pos, 1
- gt $I11, rx262_eos, rx262_fail
- sub $I11, rx262_pos, rx262_off
- substr $S10, rx262_tgt, $I11, 1
- ne $S10, unicode:"\x{bb}", rx262_fail
- add rx262_pos, 1
- alt266_end:
- set_addr $I10, rxcap_267_fail
- ($I12, $I11) = rx262_cur."!mark_peek"($I10)
- rx262_cur."!cursor_pos"($I11)
- ($P10) = rx262_cur."!cursor_start"()
- $P10."!cursor_pass"(rx262_pos, "")
- rx262_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx267_pos, 1
+ gt $I11, rx267_eos, rx267_fail
+ sub $I11, rx267_pos, rx267_off
+ substr $S10, rx267_tgt, $I11, 1
+ ne $S10, unicode:"\x{bb}", rx267_fail
+ add rx267_pos, 1
+ alt271_end:
+ set_addr $I10, rxcap_272_fail
+ ($I12, $I11) = rx267_cur."!mark_peek"($I10)
+ rx267_cur."!cursor_pos"($I11)
+ ($P10) = rx267_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx267_pos, "")
+ rx267_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_267_done
- rxcap_267_fail:
- goto rx262_fail
- rxcap_267_done:
+ goto rxcap_272_done
+ rxcap_272_fail:
+ goto rx267_fail
+ rxcap_272_done:
# rx pass
- rx262_cur."!cursor_pass"(rx262_pos, "metachar:sym<rwb>")
- rx262_cur."!cursor_debug"("PASS ", "metachar:sym<rwb>", " at pos=", rx262_pos)
- .return (rx262_cur)
- rx262_fail:
+ rx267_cur."!cursor_pass"(rx267_pos, "metachar:sym<rwb>")
+ rx267_cur."!cursor_debug"("PASS ", "metachar:sym<rwb>", " at pos=", rx267_pos)
+ .return (rx267_cur)
+ rx267_fail:
.annotate 'line', 3
- (rx262_rep, rx262_pos, $I10, $P10) = rx262_cur."!mark_fail"(0)
- lt rx262_pos, -1, rx262_done
- eq rx262_pos, -1, rx262_fail
+ (rx267_rep, rx267_pos, $I10, $P10) = rx267_cur."!mark_fail"(0)
+ lt rx267_pos, -1, rx267_done
+ eq rx267_pos, -1, rx267_fail
jump $I10
- rx262_done:
- rx262_cur."!cursor_fail"()
- rx262_cur."!cursor_debug"("FAIL ", "metachar:sym<rwb>")
- .return (rx262_cur)
+ rx267_done:
+ rx267_cur."!cursor_fail"()
+ rx267_cur."!cursor_debug"("FAIL ", "metachar:sym<rwb>")
+ .return (rx267_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<rwb>" :subid("76_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<rwb>" :subid("76_1275811476.7961") :method
.annotate 'line', 3
- new $P264, "ResizablePMCArray"
- push $P264, unicode:"\x{bb}"
- push $P264, ">>"
- .return ($P264)
+ new $P269, "ResizablePMCArray"
+ push $P269, unicode:"\x{bb}"
+ push $P269, ">>"
+ .return ($P269)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<bs>" :subid("77_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<bs>" :subid("77_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx269_tgt
- .local int rx269_pos
- .local int rx269_off
- .local int rx269_eos
- .local int rx269_rep
- .local pmc rx269_cur
- (rx269_cur, rx269_pos, rx269_tgt) = self."!cursor_start"()
- rx269_cur."!cursor_debug"("START ", "metachar:sym<bs>")
- .lex unicode:"$\x{a2}", rx269_cur
+ .local string rx274_tgt
+ .local int rx274_pos
+ .local int rx274_off
+ .local int rx274_eos
+ .local int rx274_rep
+ .local pmc rx274_cur
+ (rx274_cur, rx274_pos, rx274_tgt) = self."!cursor_start"()
+ rx274_cur."!cursor_debug"("START ", "metachar:sym<bs>")
+ .lex unicode:"$\x{a2}", rx274_cur
.local pmc match
.lex "$/", match
- length rx269_eos, rx269_tgt
- set rx269_off, 0
- lt rx269_pos, 2, rx269_start
- sub rx269_off, rx269_pos, 1
- substr rx269_tgt, rx269_tgt, rx269_off
- rx269_start:
+ length rx274_eos, rx274_tgt
+ gt rx274_pos, rx274_eos, rx274_done
+ set rx274_off, 0
+ lt rx274_pos, 2, rx274_start
+ sub rx274_off, rx274_pos, 1
+ substr rx274_tgt, rx274_tgt, rx274_off
+ rx274_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan273_done
- goto rxscan273_scan
- rxscan273_loop:
- ($P10) = rx269_cur."from"()
+ ne $I10, -1, rxscan278_done
+ goto rxscan278_scan
+ rxscan278_loop:
+ ($P10) = rx274_cur."from"()
inc $P10
- set rx269_pos, $P10
- ge rx269_pos, rx269_eos, rxscan273_done
- rxscan273_scan:
- set_addr $I10, rxscan273_loop
- rx269_cur."!mark_push"(0, rx269_pos, $I10)
- rxscan273_done:
+ set rx274_pos, $P10
+ ge rx274_pos, rx274_eos, rxscan278_done
+ rxscan278_scan:
+ set_addr $I10, rxscan278_loop
+ rx274_cur."!mark_push"(0, rx274_pos, $I10)
+ rxscan278_done:
.annotate 'line', 88
# rx literal "\\"
- add $I11, rx269_pos, 1
- gt $I11, rx269_eos, rx269_fail
- sub $I11, rx269_pos, rx269_off
- substr $S10, rx269_tgt, $I11, 1
- ne $S10, "\\", rx269_fail
- add rx269_pos, 1
+ add $I11, rx274_pos, 1
+ gt $I11, rx274_eos, rx274_fail
+ sub $I11, rx274_pos, rx274_off
+ substr $S10, rx274_tgt, $I11, 1
+ ne $S10, "\\", rx274_fail
+ add rx274_pos, 1
# rx subrule "backslash" subtype=capture negate=
- rx269_cur."!cursor_pos"(rx269_pos)
- $P10 = rx269_cur."backslash"()
- unless $P10, rx269_fail
- rx269_cur."!mark_push"(0, -1, 0, $P10)
+ rx274_cur."!cursor_pos"(rx274_pos)
+ $P10 = rx274_cur."backslash"()
+ unless $P10, rx274_fail
+ rx274_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("backslash")
- rx269_pos = $P10."pos"()
+ rx274_pos = $P10."pos"()
# rx pass
- rx269_cur."!cursor_pass"(rx269_pos, "metachar:sym<bs>")
- rx269_cur."!cursor_debug"("PASS ", "metachar:sym<bs>", " at pos=", rx269_pos)
- .return (rx269_cur)
- rx269_fail:
+ rx274_cur."!cursor_pass"(rx274_pos, "metachar:sym<bs>")
+ rx274_cur."!cursor_debug"("PASS ", "metachar:sym<bs>", " at pos=", rx274_pos)
+ .return (rx274_cur)
+ rx274_fail:
.annotate 'line', 3
- (rx269_rep, rx269_pos, $I10, $P10) = rx269_cur."!mark_fail"(0)
- lt rx269_pos, -1, rx269_done
- eq rx269_pos, -1, rx269_fail
+ (rx274_rep, rx274_pos, $I10, $P10) = rx274_cur."!mark_fail"(0)
+ lt rx274_pos, -1, rx274_done
+ eq rx274_pos, -1, rx274_fail
jump $I10
- rx269_done:
- rx269_cur."!cursor_fail"()
- rx269_cur."!cursor_debug"("FAIL ", "metachar:sym<bs>")
- .return (rx269_cur)
+ rx274_done:
+ rx274_cur."!cursor_fail"()
+ rx274_cur."!cursor_debug"("FAIL ", "metachar:sym<bs>")
+ .return (rx274_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<bs>" :subid("78_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<bs>" :subid("78_1275811476.7961") :method
.annotate 'line', 3
- $P271 = self."!PREFIX__!subrule"("backslash", "\\")
- new $P272, "ResizablePMCArray"
- push $P272, $P271
- .return ($P272)
+ $P276 = self."!PREFIX__!subrule"("backslash", "\\")
+ new $P277, "ResizablePMCArray"
+ push $P277, $P276
+ .return ($P277)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<mod>" :subid("79_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<mod>" :subid("79_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx275_tgt
- .local int rx275_pos
- .local int rx275_off
- .local int rx275_eos
- .local int rx275_rep
- .local pmc rx275_cur
- (rx275_cur, rx275_pos, rx275_tgt) = self."!cursor_start"()
- rx275_cur."!cursor_debug"("START ", "metachar:sym<mod>")
- .lex unicode:"$\x{a2}", rx275_cur
+ .local string rx280_tgt
+ .local int rx280_pos
+ .local int rx280_off
+ .local int rx280_eos
+ .local int rx280_rep
+ .local pmc rx280_cur
+ (rx280_cur, rx280_pos, rx280_tgt) = self."!cursor_start"()
+ rx280_cur."!cursor_debug"("START ", "metachar:sym<mod>")
+ .lex unicode:"$\x{a2}", rx280_cur
.local pmc match
.lex "$/", match
- length rx275_eos, rx275_tgt
- set rx275_off, 0
- lt rx275_pos, 2, rx275_start
- sub rx275_off, rx275_pos, 1
- substr rx275_tgt, rx275_tgt, rx275_off
- rx275_start:
+ length rx280_eos, rx280_tgt
+ gt rx280_pos, rx280_eos, rx280_done
+ set rx280_off, 0
+ lt rx280_pos, 2, rx280_start
+ sub rx280_off, rx280_pos, 1
+ substr rx280_tgt, rx280_tgt, rx280_off
+ rx280_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan279_done
- goto rxscan279_scan
- rxscan279_loop:
- ($P10) = rx275_cur."from"()
+ ne $I10, -1, rxscan284_done
+ goto rxscan284_scan
+ rxscan284_loop:
+ ($P10) = rx280_cur."from"()
inc $P10
- set rx275_pos, $P10
- ge rx275_pos, rx275_eos, rxscan279_done
- rxscan279_scan:
- set_addr $I10, rxscan279_loop
- rx275_cur."!mark_push"(0, rx275_pos, $I10)
- rxscan279_done:
+ set rx280_pos, $P10
+ ge rx280_pos, rx280_eos, rxscan284_done
+ rxscan284_scan:
+ set_addr $I10, rxscan284_loop
+ rx280_cur."!mark_push"(0, rx280_pos, $I10)
+ rxscan284_done:
.annotate 'line', 89
# rx subrule "mod_internal" subtype=capture negate=
- rx275_cur."!cursor_pos"(rx275_pos)
- $P10 = rx275_cur."mod_internal"()
- unless $P10, rx275_fail
- rx275_cur."!mark_push"(0, -1, 0, $P10)
+ rx280_cur."!cursor_pos"(rx280_pos)
+ $P10 = rx280_cur."mod_internal"()
+ unless $P10, rx280_fail
+ rx280_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("mod_internal")
- rx275_pos = $P10."pos"()
+ rx280_pos = $P10."pos"()
# rx pass
- rx275_cur."!cursor_pass"(rx275_pos, "metachar:sym<mod>")
- rx275_cur."!cursor_debug"("PASS ", "metachar:sym<mod>", " at pos=", rx275_pos)
- .return (rx275_cur)
- rx275_fail:
+ rx280_cur."!cursor_pass"(rx280_pos, "metachar:sym<mod>")
+ rx280_cur."!cursor_debug"("PASS ", "metachar:sym<mod>", " at pos=", rx280_pos)
+ .return (rx280_cur)
+ rx280_fail:
.annotate 'line', 3
- (rx275_rep, rx275_pos, $I10, $P10) = rx275_cur."!mark_fail"(0)
- lt rx275_pos, -1, rx275_done
- eq rx275_pos, -1, rx275_fail
+ (rx280_rep, rx280_pos, $I10, $P10) = rx280_cur."!mark_fail"(0)
+ lt rx280_pos, -1, rx280_done
+ eq rx280_pos, -1, rx280_fail
jump $I10
- rx275_done:
- rx275_cur."!cursor_fail"()
- rx275_cur."!cursor_debug"("FAIL ", "metachar:sym<mod>")
- .return (rx275_cur)
+ rx280_done:
+ rx280_cur."!cursor_fail"()
+ rx280_cur."!cursor_debug"("FAIL ", "metachar:sym<mod>")
+ .return (rx280_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<mod>" :subid("80_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<mod>" :subid("80_1275811476.7961") :method
.annotate 'line', 3
- $P277 = self."!PREFIX__!subrule"("mod_internal", "")
- new $P278, "ResizablePMCArray"
- push $P278, $P277
- .return ($P278)
+ $P282 = self."!PREFIX__!subrule"("mod_internal", "")
+ new $P283, "ResizablePMCArray"
+ push $P283, $P282
+ .return ($P283)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<~>" :subid("81_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<~>" :subid("81_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .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 ", "metachar:sym<~>")
- .lex unicode:"$\x{a2}", rx281_cur
+ .local string rx286_tgt
+ .local int rx286_pos
+ .local int rx286_off
+ .local int rx286_eos
+ .local int rx286_rep
+ .local pmc rx286_cur
+ (rx286_cur, rx286_pos, rx286_tgt) = self."!cursor_start"()
+ rx286_cur."!cursor_debug"("START ", "metachar:sym<~>")
+ .lex unicode:"$\x{a2}", rx286_cur
.local pmc match
.lex "$/", match
- 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:
+ length rx286_eos, rx286_tgt
+ gt rx286_pos, rx286_eos, rx286_done
+ set rx286_off, 0
+ lt rx286_pos, 2, rx286_start
+ sub rx286_off, rx286_pos, 1
+ substr rx286_tgt, rx286_tgt, rx286_off
+ rx286_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan285_done
- goto rxscan285_scan
- rxscan285_loop:
- ($P10) = rx281_cur."from"()
+ ne $I10, -1, rxscan290_done
+ goto rxscan290_scan
+ rxscan290_loop:
+ ($P10) = rx286_cur."from"()
inc $P10
- set rx281_pos, $P10
- ge rx281_pos, rx281_eos, rxscan285_done
- rxscan285_scan:
- set_addr $I10, rxscan285_loop
- rx281_cur."!mark_push"(0, rx281_pos, $I10)
- rxscan285_done:
+ set rx286_pos, $P10
+ ge rx286_pos, rx286_eos, rxscan290_done
+ rxscan290_scan:
+ set_addr $I10, rxscan290_loop
+ rx286_cur."!mark_push"(0, rx286_pos, $I10)
+ rxscan290_done:
.annotate 'line', 93
# rx subcapture "sym"
- set_addr $I10, rxcap_286_fail
- rx281_cur."!mark_push"(0, rx281_pos, $I10)
+ set_addr $I10, rxcap_291_fail
+ rx286_cur."!mark_push"(0, rx286_pos, $I10)
# rx literal "~"
- add $I11, rx281_pos, 1
- gt $I11, rx281_eos, rx281_fail
- sub $I11, rx281_pos, rx281_off
- substr $S10, rx281_tgt, $I11, 1
- ne $S10, "~", rx281_fail
- add rx281_pos, 1
- set_addr $I10, rxcap_286_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)
+ add $I11, rx286_pos, 1
+ gt $I11, rx286_eos, rx286_fail
+ sub $I11, rx286_pos, rx286_off
+ substr $S10, rx286_tgt, $I11, 1
+ ne $S10, "~", rx286_fail
+ add rx286_pos, 1
+ set_addr $I10, rxcap_291_fail
+ ($I12, $I11) = rx286_cur."!mark_peek"($I10)
+ rx286_cur."!cursor_pos"($I11)
+ ($P10) = rx286_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx286_pos, "")
+ rx286_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_286_done
- rxcap_286_fail:
- goto rx281_fail
- rxcap_286_done:
+ goto rxcap_291_done
+ rxcap_291_fail:
+ goto rx286_fail
+ rxcap_291_done:
.annotate 'line', 94
# rx subrule "ws" subtype=method negate=
- rx281_cur."!cursor_pos"(rx281_pos)
- $P10 = rx281_cur."ws"()
- unless $P10, rx281_fail
- rx281_pos = $P10."pos"()
+ rx286_cur."!cursor_pos"(rx286_pos)
+ $P10 = rx286_cur."ws"()
+ unless $P10, rx286_fail
+ rx286_pos = $P10."pos"()
# rx subrule "quantified_atom" subtype=capture negate=
- rx281_cur."!cursor_pos"(rx281_pos)
- $P10 = rx281_cur."quantified_atom"()
- unless $P10, rx281_fail
- rx281_cur."!mark_push"(0, -1, 0, $P10)
+ rx286_cur."!cursor_pos"(rx286_pos)
+ $P10 = rx286_cur."quantified_atom"()
+ unless $P10, rx286_fail
+ rx286_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("GOAL")
- rx281_pos = $P10."pos"()
+ rx286_pos = $P10."pos"()
.annotate 'line', 95
# rx subrule "ws" subtype=method negate=
- rx281_cur."!cursor_pos"(rx281_pos)
- $P10 = rx281_cur."ws"()
- unless $P10, rx281_fail
- rx281_pos = $P10."pos"()
+ rx286_cur."!cursor_pos"(rx286_pos)
+ $P10 = rx286_cur."ws"()
+ unless $P10, rx286_fail
+ rx286_pos = $P10."pos"()
# rx subrule "quantified_atom" subtype=capture negate=
- rx281_cur."!cursor_pos"(rx281_pos)
- $P10 = rx281_cur."quantified_atom"()
- unless $P10, rx281_fail
- rx281_cur."!mark_push"(0, -1, 0, $P10)
+ rx286_cur."!cursor_pos"(rx286_pos)
+ $P10 = rx286_cur."quantified_atom"()
+ unless $P10, rx286_fail
+ rx286_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("EXPR")
- rx281_pos = $P10."pos"()
+ rx286_pos = $P10."pos"()
.annotate 'line', 92
# rx pass
- rx281_cur."!cursor_pass"(rx281_pos, "metachar:sym<~>")
- rx281_cur."!cursor_debug"("PASS ", "metachar:sym<~>", " at pos=", rx281_pos)
- .return (rx281_cur)
- rx281_fail:
+ rx286_cur."!cursor_pass"(rx286_pos, "metachar:sym<~>")
+ rx286_cur."!cursor_debug"("PASS ", "metachar:sym<~>", " at pos=", rx286_pos)
+ .return (rx286_cur)
+ rx286_fail:
.annotate 'line', 3
- (rx281_rep, rx281_pos, $I10, $P10) = rx281_cur."!mark_fail"(0)
- lt rx281_pos, -1, rx281_done
- eq rx281_pos, -1, rx281_fail
+ (rx286_rep, rx286_pos, $I10, $P10) = rx286_cur."!mark_fail"(0)
+ lt rx286_pos, -1, rx286_done
+ eq rx286_pos, -1, rx286_fail
jump $I10
- rx281_done:
- rx281_cur."!cursor_fail"()
- rx281_cur."!cursor_debug"("FAIL ", "metachar:sym<~>")
- .return (rx281_cur)
+ rx286_done:
+ rx286_cur."!cursor_fail"()
+ rx286_cur."!cursor_debug"("FAIL ", "metachar:sym<~>")
+ .return (rx286_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<~>" :subid("82_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<~>" :subid("82_1275811476.7961") :method
.annotate 'line', 3
- $P283 = self."!PREFIX__!subrule"("", "~")
- new $P284, "ResizablePMCArray"
- push $P284, $P283
- .return ($P284)
+ $P288 = self."!PREFIX__!subrule"("ws", "~")
+ new $P289, "ResizablePMCArray"
+ push $P289, $P288
+ .return ($P289)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<{*}>" :subid("83_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<{*}>" :subid("83_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx288_tgt
- .local int rx288_pos
- .local int rx288_off
- .local int rx288_eos
- .local int rx288_rep
- .local pmc rx288_cur
- (rx288_cur, rx288_pos, rx288_tgt) = self."!cursor_start"()
- rx288_cur."!cursor_debug"("START ", "metachar:sym<{*}>")
- rx288_cur."!cursor_caparray"("key")
- .lex unicode:"$\x{a2}", rx288_cur
+ .local string rx293_tgt
+ .local int rx293_pos
+ .local int rx293_off
+ .local int rx293_eos
+ .local int rx293_rep
+ .local pmc rx293_cur
+ (rx293_cur, rx293_pos, rx293_tgt) = self."!cursor_start"()
+ rx293_cur."!cursor_debug"("START ", "metachar:sym<{*}>")
+ rx293_cur."!cursor_caparray"("key")
+ .lex unicode:"$\x{a2}", rx293_cur
.local pmc match
.lex "$/", match
- length rx288_eos, rx288_tgt
- set rx288_off, 0
- lt rx288_pos, 2, rx288_start
- sub rx288_off, rx288_pos, 1
- substr rx288_tgt, rx288_tgt, rx288_off
- rx288_start:
+ length rx293_eos, rx293_tgt
+ gt rx293_pos, rx293_eos, rx293_done
+ set rx293_off, 0
+ lt rx293_pos, 2, rx293_start
+ sub rx293_off, rx293_pos, 1
+ substr rx293_tgt, rx293_tgt, rx293_off
+ rx293_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan291_done
- goto rxscan291_scan
- rxscan291_loop:
- ($P10) = rx288_cur."from"()
+ ne $I10, -1, rxscan296_done
+ goto rxscan296_scan
+ rxscan296_loop:
+ ($P10) = rx293_cur."from"()
inc $P10
- set rx288_pos, $P10
- ge rx288_pos, rx288_eos, rxscan291_done
- rxscan291_scan:
- set_addr $I10, rxscan291_loop
- rx288_cur."!mark_push"(0, rx288_pos, $I10)
- rxscan291_done:
+ set rx293_pos, $P10
+ ge rx293_pos, rx293_eos, rxscan296_done
+ rxscan296_scan:
+ set_addr $I10, rxscan296_loop
+ rx293_cur."!mark_push"(0, rx293_pos, $I10)
+ rxscan296_done:
.annotate 'line', 99
# rx subcapture "sym"
- set_addr $I10, rxcap_292_fail
- rx288_cur."!mark_push"(0, rx288_pos, $I10)
+ set_addr $I10, rxcap_297_fail
+ rx293_cur."!mark_push"(0, rx293_pos, $I10)
# rx literal "{*}"
- add $I11, rx288_pos, 3
- gt $I11, rx288_eos, rx288_fail
- sub $I11, rx288_pos, rx288_off
- substr $S10, rx288_tgt, $I11, 3
- ne $S10, "{*}", rx288_fail
- add rx288_pos, 3
- set_addr $I10, rxcap_292_fail
- ($I12, $I11) = rx288_cur."!mark_peek"($I10)
- rx288_cur."!cursor_pos"($I11)
- ($P10) = rx288_cur."!cursor_start"()
- $P10."!cursor_pass"(rx288_pos, "")
- rx288_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx293_pos, 3
+ gt $I11, rx293_eos, rx293_fail
+ sub $I11, rx293_pos, rx293_off
+ substr $S10, rx293_tgt, $I11, 3
+ ne $S10, "{*}", rx293_fail
+ add rx293_pos, 3
+ set_addr $I10, rxcap_297_fail
+ ($I12, $I11) = rx293_cur."!mark_peek"($I10)
+ rx293_cur."!cursor_pos"($I11)
+ ($P10) = rx293_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx293_pos, "")
+ rx293_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_292_done
- rxcap_292_fail:
- goto rx288_fail
- rxcap_292_done:
+ goto rxcap_297_done
+ rxcap_297_fail:
+ goto rx293_fail
+ rxcap_297_done:
.annotate 'line', 100
- # rx rxquantr293 ** 0..1
- set_addr $I303, rxquantr293_done
- rx288_cur."!mark_push"(0, rx288_pos, $I303)
- rxquantr293_loop:
- # rx rxquantr294 ** 0..*
- set_addr $I295, rxquantr294_done
- rx288_cur."!mark_push"(0, rx288_pos, $I295)
- rxquantr294_loop:
+ # rx rxquantr298 ** 0..1
+ set_addr $I308, rxquantr298_done
+ rx293_cur."!mark_push"(0, rx293_pos, $I308)
+ rxquantr298_loop:
+ # rx rxquantr299 ** 0..*
+ set_addr $I300, rxquantr299_done
+ rx293_cur."!mark_push"(0, rx293_pos, $I300)
+ rxquantr299_loop:
# rx enumcharlist negate=0
- ge rx288_pos, rx288_eos, rx288_fail
- sub $I10, rx288_pos, rx288_off
- substr $S10, rx288_tgt, $I10, 1
+ ge rx293_pos, rx293_eos, rx293_fail
+ sub $I10, rx293_pos, rx293_off
+ substr $S10, rx293_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, rx288_fail
- inc rx288_pos
- (rx288_rep) = rx288_cur."!mark_commit"($I295)
- rx288_cur."!mark_push"(rx288_rep, rx288_pos, $I295)
- goto rxquantr294_loop
- rxquantr294_done:
+ lt $I11, 0, rx293_fail
+ inc rx293_pos
+ (rx293_rep) = rx293_cur."!mark_commit"($I300)
+ rx293_cur."!mark_push"(rx293_rep, rx293_pos, $I300)
+ goto rxquantr299_loop
+ rxquantr299_done:
# rx literal "#= "
- add $I11, rx288_pos, 3
- gt $I11, rx288_eos, rx288_fail
- sub $I11, rx288_pos, rx288_off
- substr $S10, rx288_tgt, $I11, 3
- ne $S10, "#= ", rx288_fail
- add rx288_pos, 3
- # rx rxquantr296 ** 0..*
- set_addr $I297, rxquantr296_done
- rx288_cur."!mark_push"(0, rx288_pos, $I297)
- rxquantr296_loop:
+ add $I11, rx293_pos, 3
+ gt $I11, rx293_eos, rx293_fail
+ sub $I11, rx293_pos, rx293_off
+ substr $S10, rx293_tgt, $I11, 3
+ ne $S10, "#= ", rx293_fail
+ add rx293_pos, 3
+ # rx rxquantr301 ** 0..*
+ set_addr $I302, rxquantr301_done
+ rx293_cur."!mark_push"(0, rx293_pos, $I302)
+ rxquantr301_loop:
# rx enumcharlist negate=0
- ge rx288_pos, rx288_eos, rx288_fail
- sub $I10, rx288_pos, rx288_off
- substr $S10, rx288_tgt, $I10, 1
+ ge rx293_pos, rx293_eos, rx293_fail
+ sub $I10, rx293_pos, rx293_off
+ substr $S10, rx293_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, rx288_fail
- inc rx288_pos
- (rx288_rep) = rx288_cur."!mark_commit"($I297)
- rx288_cur."!mark_push"(rx288_rep, rx288_pos, $I297)
- goto rxquantr296_loop
- rxquantr296_done:
+ lt $I11, 0, rx293_fail
+ inc rx293_pos
+ (rx293_rep) = rx293_cur."!mark_commit"($I302)
+ rx293_cur."!mark_push"(rx293_rep, rx293_pos, $I302)
+ goto rxquantr301_loop
+ rxquantr301_done:
# rx subcapture "key"
- set_addr $I10, rxcap_302_fail
- rx288_cur."!mark_push"(0, rx288_pos, $I10)
+ set_addr $I10, rxcap_307_fail
+ rx293_cur."!mark_push"(0, rx293_pos, $I10)
# rx charclass_q S r 1..-1
- sub $I10, rx288_pos, rx288_off
- find_cclass $I11, 32, rx288_tgt, $I10, rx288_eos
+ sub $I10, rx293_pos, rx293_off
+ find_cclass $I11, 32, rx293_tgt, $I10, rx293_eos
add $I12, $I10, 1
- lt $I11, $I12, rx288_fail
- add rx288_pos, rx288_off, $I11
- # rx rxquantr298 ** 0..*
- set_addr $I301, rxquantr298_done
- rx288_cur."!mark_push"(0, rx288_pos, $I301)
- rxquantr298_loop:
- # rx rxquantr299 ** 1..*
- set_addr $I300, rxquantr299_done
- rx288_cur."!mark_push"(0, -1, $I300)
- rxquantr299_loop:
+ lt $I11, $I12, rx293_fail
+ add rx293_pos, rx293_off, $I11
+ # rx rxquantr303 ** 0..*
+ set_addr $I306, rxquantr303_done
+ rx293_cur."!mark_push"(0, rx293_pos, $I306)
+ rxquantr303_loop:
+ # rx rxquantr304 ** 1..*
+ set_addr $I305, rxquantr304_done
+ rx293_cur."!mark_push"(0, -1, $I305)
+ rxquantr304_loop:
# rx enumcharlist negate=0
- ge rx288_pos, rx288_eos, rx288_fail
- sub $I10, rx288_pos, rx288_off
- substr $S10, rx288_tgt, $I10, 1
+ ge rx293_pos, rx293_eos, rx293_fail
+ sub $I10, rx293_pos, rx293_off
+ substr $S10, rx293_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, rx288_fail
- inc rx288_pos
- (rx288_rep) = rx288_cur."!mark_commit"($I300)
- rx288_cur."!mark_push"(rx288_rep, rx288_pos, $I300)
- goto rxquantr299_loop
- rxquantr299_done:
+ lt $I11, 0, rx293_fail
+ inc rx293_pos
+ (rx293_rep) = rx293_cur."!mark_commit"($I305)
+ rx293_cur."!mark_push"(rx293_rep, rx293_pos, $I305)
+ goto rxquantr304_loop
+ rxquantr304_done:
# rx charclass_q S r 1..-1
- sub $I10, rx288_pos, rx288_off
- find_cclass $I11, 32, rx288_tgt, $I10, rx288_eos
+ sub $I10, rx293_pos, rx293_off
+ find_cclass $I11, 32, rx293_tgt, $I10, rx293_eos
add $I12, $I10, 1
- lt $I11, $I12, rx288_fail
- add rx288_pos, rx288_off, $I11
- (rx288_rep) = rx288_cur."!mark_commit"($I301)
- rx288_cur."!mark_push"(rx288_rep, rx288_pos, $I301)
- goto rxquantr298_loop
- rxquantr298_done:
- set_addr $I10, rxcap_302_fail
- ($I12, $I11) = rx288_cur."!mark_peek"($I10)
- rx288_cur."!cursor_pos"($I11)
- ($P10) = rx288_cur."!cursor_start"()
- $P10."!cursor_pass"(rx288_pos, "")
- rx288_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx293_fail
+ add rx293_pos, rx293_off, $I11
+ (rx293_rep) = rx293_cur."!mark_commit"($I306)
+ rx293_cur."!mark_push"(rx293_rep, rx293_pos, $I306)
+ goto rxquantr303_loop
+ rxquantr303_done:
+ set_addr $I10, rxcap_307_fail
+ ($I12, $I11) = rx293_cur."!mark_peek"($I10)
+ rx293_cur."!cursor_pos"($I11)
+ ($P10) = rx293_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx293_pos, "")
+ rx293_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("key")
- goto rxcap_302_done
- rxcap_302_fail:
- goto rx288_fail
- rxcap_302_done:
- (rx288_rep) = rx288_cur."!mark_commit"($I303)
- rxquantr293_done:
+ goto rxcap_307_done
+ rxcap_307_fail:
+ goto rx293_fail
+ rxcap_307_done:
+ (rx293_rep) = rx293_cur."!mark_commit"($I308)
+ rxquantr298_done:
.annotate 'line', 98
# rx pass
- rx288_cur."!cursor_pass"(rx288_pos, "metachar:sym<{*}>")
- rx288_cur."!cursor_debug"("PASS ", "metachar:sym<{*}>", " at pos=", rx288_pos)
- .return (rx288_cur)
- rx288_fail:
+ rx293_cur."!cursor_pass"(rx293_pos, "metachar:sym<{*}>")
+ rx293_cur."!cursor_debug"("PASS ", "metachar:sym<{*}>", " at pos=", rx293_pos)
+ .return (rx293_cur)
+ rx293_fail:
.annotate 'line', 3
- (rx288_rep, rx288_pos, $I10, $P10) = rx288_cur."!mark_fail"(0)
- lt rx288_pos, -1, rx288_done
- eq rx288_pos, -1, rx288_fail
+ (rx293_rep, rx293_pos, $I10, $P10) = rx293_cur."!mark_fail"(0)
+ lt rx293_pos, -1, rx293_done
+ eq rx293_pos, -1, rx293_fail
jump $I10
- rx288_done:
- rx288_cur."!cursor_fail"()
- rx288_cur."!cursor_debug"("FAIL ", "metachar:sym<{*}>")
- .return (rx288_cur)
+ rx293_done:
+ rx293_cur."!cursor_fail"()
+ rx293_cur."!cursor_debug"("FAIL ", "metachar:sym<{*}>")
+ .return (rx293_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<{*}>" :subid("84_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<{*}>" :subid("84_1275811476.7961") :method
.annotate 'line', 3
- new $P290, "ResizablePMCArray"
- push $P290, "{*}"
- .return ($P290)
+ new $P295, "ResizablePMCArray"
+ push $P295, "{*}"
+ .return ($P295)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<assert>" :subid("85_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<assert>" :subid("85_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx305_tgt
- .local int rx305_pos
- .local int rx305_off
- .local int rx305_eos
- .local int rx305_rep
- .local pmc rx305_cur
- (rx305_cur, rx305_pos, rx305_tgt) = self."!cursor_start"()
- rx305_cur."!cursor_debug"("START ", "metachar:sym<assert>")
- .lex unicode:"$\x{a2}", rx305_cur
+ .local string rx310_tgt
+ .local int rx310_pos
+ .local int rx310_off
+ .local int rx310_eos
+ .local int rx310_rep
+ .local pmc rx310_cur
+ (rx310_cur, rx310_pos, rx310_tgt) = self."!cursor_start"()
+ rx310_cur."!cursor_debug"("START ", "metachar:sym<assert>")
+ .lex unicode:"$\x{a2}", rx310_cur
.local pmc match
.lex "$/", match
- length rx305_eos, rx305_tgt
- set rx305_off, 0
- lt rx305_pos, 2, rx305_start
- sub rx305_off, rx305_pos, 1
- substr rx305_tgt, rx305_tgt, rx305_off
- rx305_start:
+ length rx310_eos, rx310_tgt
+ gt rx310_pos, rx310_eos, rx310_done
+ set rx310_off, 0
+ lt rx310_pos, 2, rx310_start
+ sub rx310_off, rx310_pos, 1
+ substr rx310_tgt, rx310_tgt, rx310_off
+ rx310_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan309_done
- goto rxscan309_scan
- rxscan309_loop:
- ($P10) = rx305_cur."from"()
+ ne $I10, -1, rxscan314_done
+ goto rxscan314_scan
+ rxscan314_loop:
+ ($P10) = rx310_cur."from"()
inc $P10
- set rx305_pos, $P10
- ge rx305_pos, rx305_eos, rxscan309_done
- rxscan309_scan:
- set_addr $I10, rxscan309_loop
- rx305_cur."!mark_push"(0, rx305_pos, $I10)
- rxscan309_done:
+ set rx310_pos, $P10
+ ge rx310_pos, rx310_eos, rxscan314_done
+ rxscan314_scan:
+ set_addr $I10, rxscan314_loop
+ rx310_cur."!mark_push"(0, rx310_pos, $I10)
+ rxscan314_done:
.annotate 'line', 103
# rx literal "<"
- add $I11, rx305_pos, 1
- gt $I11, rx305_eos, rx305_fail
- sub $I11, rx305_pos, rx305_off
- substr $S10, rx305_tgt, $I11, 1
- ne $S10, "<", rx305_fail
- add rx305_pos, 1
+ add $I11, rx310_pos, 1
+ gt $I11, rx310_eos, rx310_fail
+ sub $I11, rx310_pos, rx310_off
+ substr $S10, rx310_tgt, $I11, 1
+ ne $S10, "<", rx310_fail
+ add rx310_pos, 1
# rx subrule "assertion" subtype=capture negate=
- rx305_cur."!cursor_pos"(rx305_pos)
- $P10 = rx305_cur."assertion"()
- unless $P10, rx305_fail
- rx305_cur."!mark_push"(0, -1, 0, $P10)
+ rx310_cur."!cursor_pos"(rx310_pos)
+ $P10 = rx310_cur."assertion"()
+ unless $P10, rx310_fail
+ rx310_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- rx305_pos = $P10."pos"()
- alt310_0:
+ rx310_pos = $P10."pos"()
+ alt315_0:
.annotate 'line', 104
- set_addr $I10, alt310_1
- rx305_cur."!mark_push"(0, rx305_pos, $I10)
+ set_addr $I10, alt315_1
+ rx310_cur."!mark_push"(0, rx310_pos, $I10)
# rx literal ">"
- add $I11, rx305_pos, 1
- gt $I11, rx305_eos, rx305_fail
- sub $I11, rx305_pos, rx305_off
- substr $S10, rx305_tgt, $I11, 1
- ne $S10, ">", rx305_fail
- add rx305_pos, 1
- goto alt310_end
- alt310_1:
+ add $I11, rx310_pos, 1
+ gt $I11, rx310_eos, rx310_fail
+ sub $I11, rx310_pos, rx310_off
+ substr $S10, rx310_tgt, $I11, 1
+ ne $S10, ">", rx310_fail
+ add rx310_pos, 1
+ goto alt315_end
+ alt315_1:
# rx subrule "panic" subtype=method negate=
- rx305_cur."!cursor_pos"(rx305_pos)
- $P10 = rx305_cur."panic"("regex assertion not terminated by angle bracket")
- unless $P10, rx305_fail
- rx305_pos = $P10."pos"()
- alt310_end:
+ rx310_cur."!cursor_pos"(rx310_pos)
+ $P10 = rx310_cur."panic"("regex assertion not terminated by angle bracket")
+ unless $P10, rx310_fail
+ rx310_pos = $P10."pos"()
+ alt315_end:
.annotate 'line', 102
# rx pass
- rx305_cur."!cursor_pass"(rx305_pos, "metachar:sym<assert>")
- rx305_cur."!cursor_debug"("PASS ", "metachar:sym<assert>", " at pos=", rx305_pos)
- .return (rx305_cur)
- rx305_fail:
+ rx310_cur."!cursor_pass"(rx310_pos, "metachar:sym<assert>")
+ rx310_cur."!cursor_debug"("PASS ", "metachar:sym<assert>", " at pos=", rx310_pos)
+ .return (rx310_cur)
+ rx310_fail:
.annotate 'line', 3
- (rx305_rep, rx305_pos, $I10, $P10) = rx305_cur."!mark_fail"(0)
- lt rx305_pos, -1, rx305_done
- eq rx305_pos, -1, rx305_fail
+ (rx310_rep, rx310_pos, $I10, $P10) = rx310_cur."!mark_fail"(0)
+ lt rx310_pos, -1, rx310_done
+ eq rx310_pos, -1, rx310_fail
jump $I10
- rx305_done:
- rx305_cur."!cursor_fail"()
- rx305_cur."!cursor_debug"("FAIL ", "metachar:sym<assert>")
- .return (rx305_cur)
+ rx310_done:
+ rx310_cur."!cursor_fail"()
+ rx310_cur."!cursor_debug"("FAIL ", "metachar:sym<assert>")
+ .return (rx310_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<assert>" :subid("86_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<assert>" :subid("86_1275811476.7961") :method
.annotate 'line', 3
- $P307 = self."!PREFIX__!subrule"("assertion", "<")
- new $P308, "ResizablePMCArray"
- push $P308, $P307
- .return ($P308)
+ $P312 = self."!PREFIX__!subrule"("assertion", "<")
+ new $P313, "ResizablePMCArray"
+ push $P313, $P312
+ .return ($P313)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<var>" :subid("87_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<var>" :subid("87_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx312_tgt
- .local int rx312_pos
- .local int rx312_off
- .local int rx312_eos
- .local int rx312_rep
- .local pmc rx312_cur
- (rx312_cur, rx312_pos, rx312_tgt) = self."!cursor_start"()
- rx312_cur."!cursor_debug"("START ", "metachar:sym<var>")
- rx312_cur."!cursor_caparray"("quantified_atom")
- .lex unicode:"$\x{a2}", rx312_cur
+ .local string rx317_tgt
+ .local int rx317_pos
+ .local int rx317_off
+ .local int rx317_eos
+ .local int rx317_rep
+ .local pmc rx317_cur
+ (rx317_cur, rx317_pos, rx317_tgt) = self."!cursor_start"()
+ rx317_cur."!cursor_debug"("START ", "metachar:sym<var>")
+ rx317_cur."!cursor_caparray"("quantified_atom")
+ .lex unicode:"$\x{a2}", rx317_cur
.local pmc match
.lex "$/", match
- length rx312_eos, rx312_tgt
- set rx312_off, 0
- lt rx312_pos, 2, rx312_start
- sub rx312_off, rx312_pos, 1
- substr rx312_tgt, rx312_tgt, rx312_off
- rx312_start:
+ length rx317_eos, rx317_tgt
+ gt rx317_pos, rx317_eos, rx317_done
+ set rx317_off, 0
+ lt rx317_pos, 2, rx317_start
+ sub rx317_off, rx317_pos, 1
+ substr rx317_tgt, rx317_tgt, rx317_off
+ rx317_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan315_done
- goto rxscan315_scan
- rxscan315_loop:
- ($P10) = rx312_cur."from"()
+ ne $I10, -1, rxscan320_done
+ goto rxscan320_scan
+ rxscan320_loop:
+ ($P10) = rx317_cur."from"()
inc $P10
- set rx312_pos, $P10
- ge rx312_pos, rx312_eos, rxscan315_done
- rxscan315_scan:
- set_addr $I10, rxscan315_loop
- rx312_cur."!mark_push"(0, rx312_pos, $I10)
- rxscan315_done:
- alt316_0:
+ set rx317_pos, $P10
+ ge rx317_pos, rx317_eos, rxscan320_done
+ rxscan320_scan:
+ set_addr $I10, rxscan320_loop
+ rx317_cur."!mark_push"(0, rx317_pos, $I10)
+ rxscan320_done:
+ alt321_0:
.annotate 'line', 108
- set_addr $I10, alt316_1
- rx312_cur."!mark_push"(0, rx312_pos, $I10)
+ set_addr $I10, alt321_1
+ rx317_cur."!mark_push"(0, rx317_pos, $I10)
.annotate 'line', 109
# rx literal "$<"
- add $I11, rx312_pos, 2
- gt $I11, rx312_eos, rx312_fail
- sub $I11, rx312_pos, rx312_off
- substr $S10, rx312_tgt, $I11, 2
- ne $S10, "$<", rx312_fail
- add rx312_pos, 2
+ add $I11, rx317_pos, 2
+ gt $I11, rx317_eos, rx317_fail
+ sub $I11, rx317_pos, rx317_off
+ substr $S10, rx317_tgt, $I11, 2
+ ne $S10, "$<", rx317_fail
+ add rx317_pos, 2
# rx subcapture "name"
- set_addr $I10, rxcap_319_fail
- rx312_cur."!mark_push"(0, rx312_pos, $I10)
- # rx rxquantr317 ** 1..*
- set_addr $I318, rxquantr317_done
- rx312_cur."!mark_push"(0, -1, $I318)
- rxquantr317_loop:
+ set_addr $I10, rxcap_324_fail
+ rx317_cur."!mark_push"(0, rx317_pos, $I10)
+ # rx rxquantr322 ** 1..*
+ set_addr $I323, rxquantr322_done
+ rx317_cur."!mark_push"(0, -1, $I323)
+ rxquantr322_loop:
# rx enumcharlist negate=1
- ge rx312_pos, rx312_eos, rx312_fail
- sub $I10, rx312_pos, rx312_off
- substr $S10, rx312_tgt, $I10, 1
+ ge rx317_pos, rx317_eos, rx317_fail
+ sub $I10, rx317_pos, rx317_off
+ substr $S10, rx317_tgt, $I10, 1
index $I11, ">", $S10
- ge $I11, 0, rx312_fail
- inc rx312_pos
- (rx312_rep) = rx312_cur."!mark_commit"($I318)
- rx312_cur."!mark_push"(rx312_rep, rx312_pos, $I318)
- goto rxquantr317_loop
- rxquantr317_done:
- set_addr $I10, rxcap_319_fail
- ($I12, $I11) = rx312_cur."!mark_peek"($I10)
- rx312_cur."!cursor_pos"($I11)
- ($P10) = rx312_cur."!cursor_start"()
- $P10."!cursor_pass"(rx312_pos, "")
- rx312_cur."!mark_push"(0, -1, 0, $P10)
+ ge $I11, 0, rx317_fail
+ inc rx317_pos
+ (rx317_rep) = rx317_cur."!mark_commit"($I323)
+ rx317_cur."!mark_push"(rx317_rep, rx317_pos, $I323)
+ goto rxquantr322_loop
+ rxquantr322_done:
+ set_addr $I10, rxcap_324_fail
+ ($I12, $I11) = rx317_cur."!mark_peek"($I10)
+ rx317_cur."!cursor_pos"($I11)
+ ($P10) = rx317_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx317_pos, "")
+ rx317_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- goto rxcap_319_done
- rxcap_319_fail:
- goto rx312_fail
- rxcap_319_done:
+ goto rxcap_324_done
+ rxcap_324_fail:
+ goto rx317_fail
+ rxcap_324_done:
# rx literal ">"
- add $I11, rx312_pos, 1
- gt $I11, rx312_eos, rx312_fail
- sub $I11, rx312_pos, rx312_off
- substr $S10, rx312_tgt, $I11, 1
- ne $S10, ">", rx312_fail
- add rx312_pos, 1
- goto alt316_end
- alt316_1:
+ add $I11, rx317_pos, 1
+ gt $I11, rx317_eos, rx317_fail
+ sub $I11, rx317_pos, rx317_off
+ substr $S10, rx317_tgt, $I11, 1
+ ne $S10, ">", rx317_fail
+ add rx317_pos, 1
+ goto alt321_end
+ alt321_1:
.annotate 'line', 110
# rx literal "$"
- add $I11, rx312_pos, 1
- gt $I11, rx312_eos, rx312_fail
- sub $I11, rx312_pos, rx312_off
- substr $S10, rx312_tgt, $I11, 1
- ne $S10, "$", rx312_fail
- add rx312_pos, 1
+ add $I11, rx317_pos, 1
+ gt $I11, rx317_eos, rx317_fail
+ sub $I11, rx317_pos, rx317_off
+ substr $S10, rx317_tgt, $I11, 1
+ ne $S10, "$", rx317_fail
+ add rx317_pos, 1
# rx subcapture "pos"
- set_addr $I10, rxcap_320_fail
- rx312_cur."!mark_push"(0, rx312_pos, $I10)
+ set_addr $I10, rxcap_325_fail
+ rx317_cur."!mark_push"(0, rx317_pos, $I10)
# rx charclass_q d r 1..-1
- sub $I10, rx312_pos, rx312_off
- find_not_cclass $I11, 8, rx312_tgt, $I10, rx312_eos
+ sub $I10, rx317_pos, rx317_off
+ find_not_cclass $I11, 8, rx317_tgt, $I10, rx317_eos
add $I12, $I10, 1
- lt $I11, $I12, rx312_fail
- add rx312_pos, rx312_off, $I11
- set_addr $I10, rxcap_320_fail
- ($I12, $I11) = rx312_cur."!mark_peek"($I10)
- rx312_cur."!cursor_pos"($I11)
- ($P10) = rx312_cur."!cursor_start"()
- $P10."!cursor_pass"(rx312_pos, "")
- rx312_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx317_fail
+ add rx317_pos, rx317_off, $I11
+ set_addr $I10, rxcap_325_fail
+ ($I12, $I11) = rx317_cur."!mark_peek"($I10)
+ rx317_cur."!cursor_pos"($I11)
+ ($P10) = rx317_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx317_pos, "")
+ rx317_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pos")
- goto rxcap_320_done
- rxcap_320_fail:
- goto rx312_fail
- rxcap_320_done:
- alt316_end:
+ goto rxcap_325_done
+ rxcap_325_fail:
+ goto rx317_fail
+ rxcap_325_done:
+ alt321_end:
.annotate 'line', 113
- # rx rxquantr321 ** 0..1
- set_addr $I322, rxquantr321_done
- rx312_cur."!mark_push"(0, rx312_pos, $I322)
- rxquantr321_loop:
+ # rx rxquantr326 ** 0..1
+ set_addr $I327, rxquantr326_done
+ rx317_cur."!mark_push"(0, rx317_pos, $I327)
+ rxquantr326_loop:
# rx subrule "ws" subtype=method negate=
- rx312_cur."!cursor_pos"(rx312_pos)
- $P10 = rx312_cur."ws"()
- unless $P10, rx312_fail
- rx312_pos = $P10."pos"()
+ rx317_cur."!cursor_pos"(rx317_pos)
+ $P10 = rx317_cur."ws"()
+ unless $P10, rx317_fail
+ rx317_pos = $P10."pos"()
# rx literal "="
- add $I11, rx312_pos, 1
- gt $I11, rx312_eos, rx312_fail
- sub $I11, rx312_pos, rx312_off
- substr $S10, rx312_tgt, $I11, 1
- ne $S10, "=", rx312_fail
- add rx312_pos, 1
+ add $I11, rx317_pos, 1
+ gt $I11, rx317_eos, rx317_fail
+ sub $I11, rx317_pos, rx317_off
+ substr $S10, rx317_tgt, $I11, 1
+ ne $S10, "=", rx317_fail
+ add rx317_pos, 1
# rx subrule "ws" subtype=method negate=
- rx312_cur."!cursor_pos"(rx312_pos)
- $P10 = rx312_cur."ws"()
- unless $P10, rx312_fail
- rx312_pos = $P10."pos"()
+ rx317_cur."!cursor_pos"(rx317_pos)
+ $P10 = rx317_cur."ws"()
+ unless $P10, rx317_fail
+ rx317_pos = $P10."pos"()
# rx subrule "quantified_atom" subtype=capture negate=
- rx312_cur."!cursor_pos"(rx312_pos)
- $P10 = rx312_cur."quantified_atom"()
- unless $P10, rx312_fail
- rx312_cur."!mark_push"(0, -1, 0, $P10)
+ rx317_cur."!cursor_pos"(rx317_pos)
+ $P10 = rx317_cur."quantified_atom"()
+ unless $P10, rx317_fail
+ rx317_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("quantified_atom")
- rx312_pos = $P10."pos"()
- (rx312_rep) = rx312_cur."!mark_commit"($I322)
- rxquantr321_done:
+ rx317_pos = $P10."pos"()
+ (rx317_rep) = rx317_cur."!mark_commit"($I327)
+ rxquantr326_done:
.annotate 'line', 107
# rx pass
- rx312_cur."!cursor_pass"(rx312_pos, "metachar:sym<var>")
- rx312_cur."!cursor_debug"("PASS ", "metachar:sym<var>", " at pos=", rx312_pos)
- .return (rx312_cur)
- rx312_fail:
+ rx317_cur."!cursor_pass"(rx317_pos, "metachar:sym<var>")
+ rx317_cur."!cursor_debug"("PASS ", "metachar:sym<var>", " at pos=", rx317_pos)
+ .return (rx317_cur)
+ rx317_fail:
.annotate 'line', 3
- (rx312_rep, rx312_pos, $I10, $P10) = rx312_cur."!mark_fail"(0)
- lt rx312_pos, -1, rx312_done
- eq rx312_pos, -1, rx312_fail
+ (rx317_rep, rx317_pos, $I10, $P10) = rx317_cur."!mark_fail"(0)
+ lt rx317_pos, -1, rx317_done
+ eq rx317_pos, -1, rx317_fail
jump $I10
- rx312_done:
- rx312_cur."!cursor_fail"()
- rx312_cur."!cursor_debug"("FAIL ", "metachar:sym<var>")
- .return (rx312_cur)
+ rx317_done:
+ rx317_cur."!cursor_fail"()
+ rx317_cur."!cursor_debug"("FAIL ", "metachar:sym<var>")
+ .return (rx317_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<var>" :subid("88_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<var>" :subid("88_1275811476.7961") :method
.annotate 'line', 3
- new $P314, "ResizablePMCArray"
- push $P314, "$"
- push $P314, "$<"
- .return ($P314)
+ new $P319, "ResizablePMCArray"
+ push $P319, "$"
+ push $P319, "$<"
+ .return ($P319)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "metachar:sym<PIR>" :subid("89_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "metachar:sym<PIR>" :subid("89_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx324_tgt
- .local int rx324_pos
- .local int rx324_off
- .local int rx324_eos
- .local int rx324_rep
- .local pmc rx324_cur
- (rx324_cur, rx324_pos, rx324_tgt) = self."!cursor_start"()
- rx324_cur."!cursor_debug"("START ", "metachar:sym<PIR>")
- .lex unicode:"$\x{a2}", rx324_cur
+ .local string rx329_tgt
+ .local int rx329_pos
+ .local int rx329_off
+ .local int rx329_eos
+ .local int rx329_rep
+ .local pmc rx329_cur
+ (rx329_cur, rx329_pos, rx329_tgt) = self."!cursor_start"()
+ rx329_cur."!cursor_debug"("START ", "metachar:sym<PIR>")
+ .lex unicode:"$\x{a2}", rx329_cur
.local pmc match
.lex "$/", match
- length rx324_eos, rx324_tgt
- set rx324_off, 0
- lt rx324_pos, 2, rx324_start
- sub rx324_off, rx324_pos, 1
- substr rx324_tgt, rx324_tgt, rx324_off
- rx324_start:
+ length rx329_eos, rx329_tgt
+ gt rx329_pos, rx329_eos, rx329_done
+ set rx329_off, 0
+ lt rx329_pos, 2, rx329_start
+ sub rx329_off, rx329_pos, 1
+ substr rx329_tgt, rx329_tgt, rx329_off
+ rx329_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan327_done
- goto rxscan327_scan
- rxscan327_loop:
- ($P10) = rx324_cur."from"()
+ ne $I10, -1, rxscan332_done
+ goto rxscan332_scan
+ rxscan332_loop:
+ ($P10) = rx329_cur."from"()
inc $P10
- set rx324_pos, $P10
- ge rx324_pos, rx324_eos, rxscan327_done
- rxscan327_scan:
- set_addr $I10, rxscan327_loop
- rx324_cur."!mark_push"(0, rx324_pos, $I10)
- rxscan327_done:
+ set rx329_pos, $P10
+ ge rx329_pos, rx329_eos, rxscan332_done
+ rxscan332_scan:
+ set_addr $I10, rxscan332_loop
+ rx329_cur."!mark_push"(0, rx329_pos, $I10)
+ rxscan332_done:
.annotate 'line', 117
# rx literal ":PIR{{"
- add $I11, rx324_pos, 6
- gt $I11, rx324_eos, rx324_fail
- sub $I11, rx324_pos, rx324_off
- substr $S10, rx324_tgt, $I11, 6
- ne $S10, ":PIR{{", rx324_fail
- add rx324_pos, 6
+ add $I11, rx329_pos, 6
+ gt $I11, rx329_eos, rx329_fail
+ sub $I11, rx329_pos, rx329_off
+ substr $S10, rx329_tgt, $I11, 6
+ ne $S10, ":PIR{{", rx329_fail
+ add rx329_pos, 6
# rx subcapture "pir"
- set_addr $I10, rxcap_330_fail
- rx324_cur."!mark_push"(0, rx324_pos, $I10)
- # rx rxquantf328 ** 0..*
- set_addr $I10, rxquantf328_loop
- rx324_cur."!mark_push"(0, rx324_pos, $I10)
- goto rxquantf328_done
- rxquantf328_loop:
+ set_addr $I10, rxcap_335_fail
+ rx329_cur."!mark_push"(0, rx329_pos, $I10)
+ # rx rxquantf333 ** 0..*
+ set_addr $I10, rxquantf333_loop
+ rx329_cur."!mark_push"(0, rx329_pos, $I10)
+ goto rxquantf333_done
+ rxquantf333_loop:
# rx charclass .
- ge rx324_pos, rx324_eos, rx324_fail
- inc rx324_pos
- set_addr $I10, rxquantf328_loop
- rx324_cur."!mark_push"($I329, rx324_pos, $I10)
- rxquantf328_done:
- set_addr $I10, rxcap_330_fail
- ($I12, $I11) = rx324_cur."!mark_peek"($I10)
- rx324_cur."!cursor_pos"($I11)
- ($P10) = rx324_cur."!cursor_start"()
- $P10."!cursor_pass"(rx324_pos, "")
- rx324_cur."!mark_push"(0, -1, 0, $P10)
+ ge rx329_pos, rx329_eos, rx329_fail
+ inc rx329_pos
+ set_addr $I10, rxquantf333_loop
+ rx329_cur."!mark_push"($I334, rx329_pos, $I10)
+ rxquantf333_done:
+ set_addr $I10, rxcap_335_fail
+ ($I12, $I11) = rx329_cur."!mark_peek"($I10)
+ rx329_cur."!cursor_pos"($I11)
+ ($P10) = rx329_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx329_pos, "")
+ rx329_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("pir")
- goto rxcap_330_done
- rxcap_330_fail:
- goto rx324_fail
- rxcap_330_done:
+ goto rxcap_335_done
+ rxcap_335_fail:
+ goto rx329_fail
+ rxcap_335_done:
# rx literal "}}"
- add $I11, rx324_pos, 2
- gt $I11, rx324_eos, rx324_fail
- sub $I11, rx324_pos, rx324_off
- substr $S10, rx324_tgt, $I11, 2
- ne $S10, "}}", rx324_fail
- add rx324_pos, 2
+ add $I11, rx329_pos, 2
+ gt $I11, rx329_eos, rx329_fail
+ sub $I11, rx329_pos, rx329_off
+ substr $S10, rx329_tgt, $I11, 2
+ ne $S10, "}}", rx329_fail
+ add rx329_pos, 2
.annotate 'line', 116
# rx pass
- rx324_cur."!cursor_pass"(rx324_pos, "metachar:sym<PIR>")
- rx324_cur."!cursor_debug"("PASS ", "metachar:sym<PIR>", " at pos=", rx324_pos)
- .return (rx324_cur)
- rx324_fail:
+ rx329_cur."!cursor_pass"(rx329_pos, "metachar:sym<PIR>")
+ rx329_cur."!cursor_debug"("PASS ", "metachar:sym<PIR>", " at pos=", rx329_pos)
+ .return (rx329_cur)
+ rx329_fail:
.annotate 'line', 3
- (rx324_rep, rx324_pos, $I10, $P10) = rx324_cur."!mark_fail"(0)
- lt rx324_pos, -1, rx324_done
- eq rx324_pos, -1, rx324_fail
+ (rx329_rep, rx329_pos, $I10, $P10) = rx329_cur."!mark_fail"(0)
+ lt rx329_pos, -1, rx329_done
+ eq rx329_pos, -1, rx329_fail
jump $I10
- rx324_done:
- rx324_cur."!cursor_fail"()
- rx324_cur."!cursor_debug"("FAIL ", "metachar:sym<PIR>")
- .return (rx324_cur)
+ rx329_done:
+ rx329_cur."!cursor_fail"()
+ rx329_cur."!cursor_debug"("FAIL ", "metachar:sym<PIR>")
+ .return (rx329_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__metachar:sym<PIR>" :subid("90_1275117582.32416") :method
+.sub "!PREFIX__metachar:sym<PIR>" :subid("90_1275811476.7961") :method
.annotate 'line', 3
- new $P326, "ResizablePMCArray"
- push $P326, ":PIR{{"
- .return ($P326)
+ new $P331, "ResizablePMCArray"
+ push $P331, ":PIR{{"
+ .return ($P331)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash" :subid("91_1275117582.32416") :method
+.sub "backslash" :subid("91_1275811476.7961") :method
.annotate 'line', 120
- $P332 = self."!protoregex"("backslash")
- .return ($P332)
+ $P337 = self."!protoregex"("backslash")
+ .return ($P337)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash" :subid("92_1275117582.32416") :method
+.sub "!PREFIX__backslash" :subid("92_1275811476.7961") :method
.annotate 'line', 120
- $P334 = self."!PREFIX__!protoregex"("backslash")
- .return ($P334)
+ $P339 = self."!PREFIX__!protoregex"("backslash")
+ .return ($P339)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<w>" :subid("93_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<w>" :subid("93_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .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 ", "backslash:sym<w>")
- .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:
+ .local string rx341_tgt
+ .local int rx341_pos
+ .local int rx341_off
+ .local int rx341_eos
+ .local int rx341_rep
+ .local pmc rx341_cur
+ (rx341_cur, rx341_pos, rx341_tgt) = self."!cursor_start"()
+ rx341_cur."!cursor_debug"("START ", "backslash:sym<w>")
+ .lex unicode:"$\x{a2}", rx341_cur
+ .local pmc match
+ .lex "$/", match
+ length rx341_eos, rx341_tgt
+ gt rx341_pos, rx341_eos, rx341_done
+ set rx341_off, 0
+ lt rx341_pos, 2, rx341_start
+ sub rx341_off, rx341_pos, 1
+ substr rx341_tgt, rx341_tgt, rx341_off
+ rx341_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan344_done
+ goto rxscan344_scan
+ rxscan344_loop:
+ ($P10) = rx341_cur."from"()
+ inc $P10
+ set rx341_pos, $P10
+ ge rx341_pos, rx341_eos, rxscan344_done
+ rxscan344_scan:
+ set_addr $I10, rxscan344_loop
+ rx341_cur."!mark_push"(0, rx341_pos, $I10)
+ rxscan344_done:
.annotate 'line', 121
# rx subcapture "sym"
- set_addr $I10, rxcap_340_fail
- rx336_cur."!mark_push"(0, rx336_pos, $I10)
+ set_addr $I10, rxcap_345_fail
+ rx341_cur."!mark_push"(0, rx341_pos, $I10)
# rx enumcharlist negate=0
- ge rx336_pos, rx336_eos, rx336_fail
- sub $I10, rx336_pos, rx336_off
- substr $S10, rx336_tgt, $I10, 1
+ ge rx341_pos, rx341_eos, rx341_fail
+ sub $I10, rx341_pos, rx341_off
+ substr $S10, rx341_tgt, $I10, 1
index $I11, "dswnDSWN", $S10
- lt $I11, 0, rx336_fail
- inc rx336_pos
- 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)
+ lt $I11, 0, rx341_fail
+ inc rx341_pos
+ set_addr $I10, rxcap_345_fail
+ ($I12, $I11) = rx341_cur."!mark_peek"($I10)
+ rx341_cur."!cursor_pos"($I11)
+ ($P10) = rx341_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx341_pos, "")
+ rx341_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_340_done
- rxcap_340_fail:
- goto rx336_fail
- rxcap_340_done:
+ goto rxcap_345_done
+ rxcap_345_fail:
+ goto rx341_fail
+ rxcap_345_done:
# rx pass
- rx336_cur."!cursor_pass"(rx336_pos, "backslash:sym<w>")
- rx336_cur."!cursor_debug"("PASS ", "backslash:sym<w>", " at pos=", rx336_pos)
- .return (rx336_cur)
- rx336_fail:
+ rx341_cur."!cursor_pass"(rx341_pos, "backslash:sym<w>")
+ rx341_cur."!cursor_debug"("PASS ", "backslash:sym<w>", " at pos=", rx341_pos)
+ .return (rx341_cur)
+ rx341_fail:
.annotate 'line', 3
- (rx336_rep, rx336_pos, $I10, $P10) = rx336_cur."!mark_fail"(0)
- lt rx336_pos, -1, rx336_done
- eq rx336_pos, -1, rx336_fail
+ (rx341_rep, rx341_pos, $I10, $P10) = rx341_cur."!mark_fail"(0)
+ lt rx341_pos, -1, rx341_done
+ eq rx341_pos, -1, rx341_fail
jump $I10
- rx336_done:
- rx336_cur."!cursor_fail"()
- rx336_cur."!cursor_debug"("FAIL ", "backslash:sym<w>")
- .return (rx336_cur)
+ rx341_done:
+ rx341_cur."!cursor_fail"()
+ rx341_cur."!cursor_debug"("FAIL ", "backslash:sym<w>")
+ .return (rx341_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<w>" :subid("94_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<w>" :subid("94_1275811476.7961") :method
.annotate 'line', 3
- new $P338, "ResizablePMCArray"
- push $P338, "N"
- push $P338, "W"
- push $P338, "S"
- push $P338, "D"
- push $P338, "n"
- push $P338, "w"
- push $P338, "s"
- push $P338, "d"
- .return ($P338)
+ new $P343, "ResizablePMCArray"
+ push $P343, "N"
+ push $P343, "W"
+ push $P343, "S"
+ push $P343, "D"
+ push $P343, "n"
+ push $P343, "w"
+ push $P343, "s"
+ push $P343, "d"
+ .return ($P343)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<b>" :subid("95_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<b>" :subid("95_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx342_tgt
- .local int rx342_pos
- .local int rx342_off
- .local int rx342_eos
- .local int rx342_rep
- .local pmc rx342_cur
- (rx342_cur, rx342_pos, rx342_tgt) = self."!cursor_start"()
- rx342_cur."!cursor_debug"("START ", "backslash:sym<b>")
- .lex unicode:"$\x{a2}", rx342_cur
+ .local string rx347_tgt
+ .local int rx347_pos
+ .local int rx347_off
+ .local int rx347_eos
+ .local int rx347_rep
+ .local pmc rx347_cur
+ (rx347_cur, rx347_pos, rx347_tgt) = self."!cursor_start"()
+ rx347_cur."!cursor_debug"("START ", "backslash:sym<b>")
+ .lex unicode:"$\x{a2}", rx347_cur
.local pmc match
.lex "$/", match
- length rx342_eos, rx342_tgt
- set rx342_off, 0
- lt rx342_pos, 2, rx342_start
- sub rx342_off, rx342_pos, 1
- substr rx342_tgt, rx342_tgt, rx342_off
- rx342_start:
+ length rx347_eos, rx347_tgt
+ gt rx347_pos, rx347_eos, rx347_done
+ set rx347_off, 0
+ lt rx347_pos, 2, rx347_start
+ sub rx347_off, rx347_pos, 1
+ substr rx347_tgt, rx347_tgt, rx347_off
+ rx347_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan345_done
- goto rxscan345_scan
- rxscan345_loop:
- ($P10) = rx342_cur."from"()
+ ne $I10, -1, rxscan350_done
+ goto rxscan350_scan
+ rxscan350_loop:
+ ($P10) = rx347_cur."from"()
inc $P10
- set rx342_pos, $P10
- ge rx342_pos, rx342_eos, rxscan345_done
- rxscan345_scan:
- set_addr $I10, rxscan345_loop
- rx342_cur."!mark_push"(0, rx342_pos, $I10)
- rxscan345_done:
+ set rx347_pos, $P10
+ ge rx347_pos, rx347_eos, rxscan350_done
+ rxscan350_scan:
+ set_addr $I10, rxscan350_loop
+ rx347_cur."!mark_push"(0, rx347_pos, $I10)
+ rxscan350_done:
.annotate 'line', 122
# rx subcapture "sym"
- set_addr $I10, rxcap_346_fail
- rx342_cur."!mark_push"(0, rx342_pos, $I10)
+ set_addr $I10, rxcap_351_fail
+ rx347_cur."!mark_push"(0, rx347_pos, $I10)
# rx enumcharlist negate=0
- ge rx342_pos, rx342_eos, rx342_fail
- sub $I10, rx342_pos, rx342_off
- substr $S10, rx342_tgt, $I10, 1
+ ge rx347_pos, rx347_eos, rx347_fail
+ sub $I10, rx347_pos, rx347_off
+ substr $S10, rx347_tgt, $I10, 1
index $I11, "bB", $S10
- lt $I11, 0, rx342_fail
- inc rx342_pos
- set_addr $I10, rxcap_346_fail
- ($I12, $I11) = rx342_cur."!mark_peek"($I10)
- rx342_cur."!cursor_pos"($I11)
- ($P10) = rx342_cur."!cursor_start"()
- $P10."!cursor_pass"(rx342_pos, "")
- rx342_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx347_fail
+ inc rx347_pos
+ set_addr $I10, rxcap_351_fail
+ ($I12, $I11) = rx347_cur."!mark_peek"($I10)
+ rx347_cur."!cursor_pos"($I11)
+ ($P10) = rx347_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx347_pos, "")
+ rx347_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_346_done
- rxcap_346_fail:
- goto rx342_fail
- rxcap_346_done:
+ goto rxcap_351_done
+ rxcap_351_fail:
+ goto rx347_fail
+ rxcap_351_done:
# rx pass
- rx342_cur."!cursor_pass"(rx342_pos, "backslash:sym<b>")
- rx342_cur."!cursor_debug"("PASS ", "backslash:sym<b>", " at pos=", rx342_pos)
- .return (rx342_cur)
- rx342_fail:
+ rx347_cur."!cursor_pass"(rx347_pos, "backslash:sym<b>")
+ rx347_cur."!cursor_debug"("PASS ", "backslash:sym<b>", " at pos=", rx347_pos)
+ .return (rx347_cur)
+ rx347_fail:
.annotate 'line', 3
- (rx342_rep, rx342_pos, $I10, $P10) = rx342_cur."!mark_fail"(0)
- lt rx342_pos, -1, rx342_done
- eq rx342_pos, -1, rx342_fail
+ (rx347_rep, rx347_pos, $I10, $P10) = rx347_cur."!mark_fail"(0)
+ lt rx347_pos, -1, rx347_done
+ eq rx347_pos, -1, rx347_fail
jump $I10
- rx342_done:
- rx342_cur."!cursor_fail"()
- rx342_cur."!cursor_debug"("FAIL ", "backslash:sym<b>")
- .return (rx342_cur)
+ rx347_done:
+ rx347_cur."!cursor_fail"()
+ rx347_cur."!cursor_debug"("FAIL ", "backslash:sym<b>")
+ .return (rx347_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<b>" :subid("96_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<b>" :subid("96_1275811476.7961") :method
.annotate 'line', 3
- new $P344, "ResizablePMCArray"
- push $P344, "B"
- push $P344, "b"
- .return ($P344)
+ new $P349, "ResizablePMCArray"
+ push $P349, "B"
+ push $P349, "b"
+ .return ($P349)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<e>" :subid("97_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<e>" :subid("97_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx348_tgt
- .local int rx348_pos
- .local int rx348_off
- .local int rx348_eos
- .local int rx348_rep
- .local pmc rx348_cur
- (rx348_cur, rx348_pos, rx348_tgt) = self."!cursor_start"()
- rx348_cur."!cursor_debug"("START ", "backslash:sym<e>")
- .lex unicode:"$\x{a2}", rx348_cur
+ .local string rx353_tgt
+ .local int rx353_pos
+ .local int rx353_off
+ .local int rx353_eos
+ .local int rx353_rep
+ .local pmc rx353_cur
+ (rx353_cur, rx353_pos, rx353_tgt) = self."!cursor_start"()
+ rx353_cur."!cursor_debug"("START ", "backslash:sym<e>")
+ .lex unicode:"$\x{a2}", rx353_cur
.local pmc match
.lex "$/", match
- length rx348_eos, rx348_tgt
- set rx348_off, 0
- lt rx348_pos, 2, rx348_start
- sub rx348_off, rx348_pos, 1
- substr rx348_tgt, rx348_tgt, rx348_off
- rx348_start:
+ length rx353_eos, rx353_tgt
+ gt rx353_pos, rx353_eos, rx353_done
+ set rx353_off, 0
+ lt rx353_pos, 2, rx353_start
+ sub rx353_off, rx353_pos, 1
+ substr rx353_tgt, rx353_tgt, rx353_off
+ rx353_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan351_done
- goto rxscan351_scan
- rxscan351_loop:
- ($P10) = rx348_cur."from"()
+ ne $I10, -1, rxscan356_done
+ goto rxscan356_scan
+ rxscan356_loop:
+ ($P10) = rx353_cur."from"()
inc $P10
- set rx348_pos, $P10
- ge rx348_pos, rx348_eos, rxscan351_done
- rxscan351_scan:
- set_addr $I10, rxscan351_loop
- rx348_cur."!mark_push"(0, rx348_pos, $I10)
- rxscan351_done:
+ set rx353_pos, $P10
+ ge rx353_pos, rx353_eos, rxscan356_done
+ rxscan356_scan:
+ set_addr $I10, rxscan356_loop
+ rx353_cur."!mark_push"(0, rx353_pos, $I10)
+ rxscan356_done:
.annotate 'line', 123
# rx subcapture "sym"
- set_addr $I10, rxcap_352_fail
- rx348_cur."!mark_push"(0, rx348_pos, $I10)
+ set_addr $I10, rxcap_357_fail
+ rx353_cur."!mark_push"(0, rx353_pos, $I10)
# rx enumcharlist negate=0
- ge rx348_pos, rx348_eos, rx348_fail
- sub $I10, rx348_pos, rx348_off
- substr $S10, rx348_tgt, $I10, 1
+ ge rx353_pos, rx353_eos, rx353_fail
+ sub $I10, rx353_pos, rx353_off
+ substr $S10, rx353_tgt, $I10, 1
index $I11, "eE", $S10
- lt $I11, 0, rx348_fail
- inc rx348_pos
- set_addr $I10, rxcap_352_fail
- ($I12, $I11) = rx348_cur."!mark_peek"($I10)
- rx348_cur."!cursor_pos"($I11)
- ($P10) = rx348_cur."!cursor_start"()
- $P10."!cursor_pass"(rx348_pos, "")
- rx348_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx353_fail
+ inc rx353_pos
+ set_addr $I10, rxcap_357_fail
+ ($I12, $I11) = rx353_cur."!mark_peek"($I10)
+ rx353_cur."!cursor_pos"($I11)
+ ($P10) = rx353_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx353_pos, "")
+ rx353_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_352_done
- rxcap_352_fail:
- goto rx348_fail
- rxcap_352_done:
+ goto rxcap_357_done
+ rxcap_357_fail:
+ goto rx353_fail
+ rxcap_357_done:
# rx pass
- rx348_cur."!cursor_pass"(rx348_pos, "backslash:sym<e>")
- rx348_cur."!cursor_debug"("PASS ", "backslash:sym<e>", " at pos=", rx348_pos)
- .return (rx348_cur)
- rx348_fail:
+ rx353_cur."!cursor_pass"(rx353_pos, "backslash:sym<e>")
+ rx353_cur."!cursor_debug"("PASS ", "backslash:sym<e>", " at pos=", rx353_pos)
+ .return (rx353_cur)
+ rx353_fail:
.annotate 'line', 3
- (rx348_rep, rx348_pos, $I10, $P10) = rx348_cur."!mark_fail"(0)
- lt rx348_pos, -1, rx348_done
- eq rx348_pos, -1, rx348_fail
+ (rx353_rep, rx353_pos, $I10, $P10) = rx353_cur."!mark_fail"(0)
+ lt rx353_pos, -1, rx353_done
+ eq rx353_pos, -1, rx353_fail
jump $I10
- rx348_done:
- rx348_cur."!cursor_fail"()
- rx348_cur."!cursor_debug"("FAIL ", "backslash:sym<e>")
- .return (rx348_cur)
+ rx353_done:
+ rx353_cur."!cursor_fail"()
+ rx353_cur."!cursor_debug"("FAIL ", "backslash:sym<e>")
+ .return (rx353_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<e>" :subid("98_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<e>" :subid("98_1275811476.7961") :method
.annotate 'line', 3
- new $P350, "ResizablePMCArray"
- push $P350, "E"
- push $P350, "e"
- .return ($P350)
+ new $P355, "ResizablePMCArray"
+ push $P355, "E"
+ push $P355, "e"
+ .return ($P355)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<f>" :subid("99_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<f>" :subid("99_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx354_tgt
- .local int rx354_pos
- .local int rx354_off
- .local int rx354_eos
- .local int rx354_rep
- .local pmc rx354_cur
- (rx354_cur, rx354_pos, rx354_tgt) = self."!cursor_start"()
- rx354_cur."!cursor_debug"("START ", "backslash:sym<f>")
- .lex unicode:"$\x{a2}", rx354_cur
+ .local string rx359_tgt
+ .local int rx359_pos
+ .local int rx359_off
+ .local int rx359_eos
+ .local int rx359_rep
+ .local pmc rx359_cur
+ (rx359_cur, rx359_pos, rx359_tgt) = self."!cursor_start"()
+ rx359_cur."!cursor_debug"("START ", "backslash:sym<f>")
+ .lex unicode:"$\x{a2}", rx359_cur
.local pmc match
.lex "$/", match
- length rx354_eos, rx354_tgt
- set rx354_off, 0
- lt rx354_pos, 2, rx354_start
- sub rx354_off, rx354_pos, 1
- substr rx354_tgt, rx354_tgt, rx354_off
- rx354_start:
+ length rx359_eos, rx359_tgt
+ gt rx359_pos, rx359_eos, rx359_done
+ set rx359_off, 0
+ lt rx359_pos, 2, rx359_start
+ sub rx359_off, rx359_pos, 1
+ substr rx359_tgt, rx359_tgt, rx359_off
+ rx359_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan357_done
- goto rxscan357_scan
- rxscan357_loop:
- ($P10) = rx354_cur."from"()
+ ne $I10, -1, rxscan362_done
+ goto rxscan362_scan
+ rxscan362_loop:
+ ($P10) = rx359_cur."from"()
inc $P10
- set rx354_pos, $P10
- ge rx354_pos, rx354_eos, rxscan357_done
- rxscan357_scan:
- set_addr $I10, rxscan357_loop
- rx354_cur."!mark_push"(0, rx354_pos, $I10)
- rxscan357_done:
+ set rx359_pos, $P10
+ ge rx359_pos, rx359_eos, rxscan362_done
+ rxscan362_scan:
+ set_addr $I10, rxscan362_loop
+ rx359_cur."!mark_push"(0, rx359_pos, $I10)
+ rxscan362_done:
.annotate 'line', 124
# rx subcapture "sym"
- set_addr $I10, rxcap_358_fail
- rx354_cur."!mark_push"(0, rx354_pos, $I10)
+ set_addr $I10, rxcap_363_fail
+ rx359_cur."!mark_push"(0, rx359_pos, $I10)
# rx enumcharlist negate=0
- ge rx354_pos, rx354_eos, rx354_fail
- sub $I10, rx354_pos, rx354_off
- substr $S10, rx354_tgt, $I10, 1
+ ge rx359_pos, rx359_eos, rx359_fail
+ sub $I10, rx359_pos, rx359_off
+ substr $S10, rx359_tgt, $I10, 1
index $I11, "fF", $S10
- lt $I11, 0, rx354_fail
- inc rx354_pos
- set_addr $I10, rxcap_358_fail
- ($I12, $I11) = rx354_cur."!mark_peek"($I10)
- rx354_cur."!cursor_pos"($I11)
- ($P10) = rx354_cur."!cursor_start"()
- $P10."!cursor_pass"(rx354_pos, "")
- rx354_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx359_fail
+ inc rx359_pos
+ set_addr $I10, rxcap_363_fail
+ ($I12, $I11) = rx359_cur."!mark_peek"($I10)
+ rx359_cur."!cursor_pos"($I11)
+ ($P10) = rx359_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx359_pos, "")
+ rx359_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_358_done
- rxcap_358_fail:
- goto rx354_fail
- rxcap_358_done:
+ goto rxcap_363_done
+ rxcap_363_fail:
+ goto rx359_fail
+ rxcap_363_done:
# rx pass
- rx354_cur."!cursor_pass"(rx354_pos, "backslash:sym<f>")
- rx354_cur."!cursor_debug"("PASS ", "backslash:sym<f>", " at pos=", rx354_pos)
- .return (rx354_cur)
- rx354_fail:
+ rx359_cur."!cursor_pass"(rx359_pos, "backslash:sym<f>")
+ rx359_cur."!cursor_debug"("PASS ", "backslash:sym<f>", " at pos=", rx359_pos)
+ .return (rx359_cur)
+ rx359_fail:
.annotate 'line', 3
- (rx354_rep, rx354_pos, $I10, $P10) = rx354_cur."!mark_fail"(0)
- lt rx354_pos, -1, rx354_done
- eq rx354_pos, -1, rx354_fail
+ (rx359_rep, rx359_pos, $I10, $P10) = rx359_cur."!mark_fail"(0)
+ lt rx359_pos, -1, rx359_done
+ eq rx359_pos, -1, rx359_fail
jump $I10
- rx354_done:
- rx354_cur."!cursor_fail"()
- rx354_cur."!cursor_debug"("FAIL ", "backslash:sym<f>")
- .return (rx354_cur)
+ rx359_done:
+ rx359_cur."!cursor_fail"()
+ rx359_cur."!cursor_debug"("FAIL ", "backslash:sym<f>")
+ .return (rx359_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<f>" :subid("100_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<f>" :subid("100_1275811476.7961") :method
.annotate 'line', 3
- new $P356, "ResizablePMCArray"
- push $P356, "F"
- push $P356, "f"
- .return ($P356)
+ new $P361, "ResizablePMCArray"
+ push $P361, "F"
+ push $P361, "f"
+ .return ($P361)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<h>" :subid("101_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<h>" :subid("101_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx360_tgt
- .local int rx360_pos
- .local int rx360_off
- .local int rx360_eos
- .local int rx360_rep
- .local pmc rx360_cur
- (rx360_cur, rx360_pos, rx360_tgt) = self."!cursor_start"()
- rx360_cur."!cursor_debug"("START ", "backslash:sym<h>")
- .lex unicode:"$\x{a2}", rx360_cur
- .local pmc match
- .lex "$/", match
- length rx360_eos, rx360_tgt
- set rx360_off, 0
- lt rx360_pos, 2, rx360_start
- sub rx360_off, rx360_pos, 1
- substr rx360_tgt, rx360_tgt, rx360_off
- rx360_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan363_done
- goto rxscan363_scan
- rxscan363_loop:
- ($P10) = rx360_cur."from"()
- inc $P10
- set rx360_pos, $P10
- ge rx360_pos, rx360_eos, rxscan363_done
- rxscan363_scan:
- set_addr $I10, rxscan363_loop
- rx360_cur."!mark_push"(0, rx360_pos, $I10)
- rxscan363_done:
+ .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 ", "backslash:sym<h>")
+ .lex unicode:"$\x{a2}", rx365_cur
+ .local pmc match
+ .lex "$/", match
+ length rx365_eos, rx365_tgt
+ gt rx365_pos, rx365_eos, rx365_done
+ 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:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan368_done
+ goto rxscan368_scan
+ rxscan368_loop:
+ ($P10) = rx365_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', 125
# rx subcapture "sym"
- set_addr $I10, rxcap_364_fail
- rx360_cur."!mark_push"(0, rx360_pos, $I10)
+ set_addr $I10, rxcap_369_fail
+ rx365_cur."!mark_push"(0, rx365_pos, $I10)
# rx enumcharlist negate=0
- ge rx360_pos, rx360_eos, rx360_fail
- sub $I10, rx360_pos, rx360_off
- substr $S10, rx360_tgt, $I10, 1
+ ge rx365_pos, rx365_eos, rx365_fail
+ sub $I10, rx365_pos, rx365_off
+ substr $S10, rx365_tgt, $I10, 1
index $I11, "hH", $S10
- lt $I11, 0, rx360_fail
- inc rx360_pos
- set_addr $I10, rxcap_364_fail
- ($I12, $I11) = rx360_cur."!mark_peek"($I10)
- rx360_cur."!cursor_pos"($I11)
- ($P10) = rx360_cur."!cursor_start"()
- $P10."!cursor_pass"(rx360_pos, "")
- rx360_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx365_fail
+ inc rx365_pos
+ set_addr $I10, rxcap_369_fail
+ ($I12, $I11) = rx365_cur."!mark_peek"($I10)
+ rx365_cur."!cursor_pos"($I11)
+ ($P10) = rx365_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx365_pos, "")
+ rx365_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_364_done
- rxcap_364_fail:
- goto rx360_fail
- rxcap_364_done:
+ goto rxcap_369_done
+ rxcap_369_fail:
+ goto rx365_fail
+ rxcap_369_done:
# rx pass
- rx360_cur."!cursor_pass"(rx360_pos, "backslash:sym<h>")
- rx360_cur."!cursor_debug"("PASS ", "backslash:sym<h>", " at pos=", rx360_pos)
- .return (rx360_cur)
- rx360_fail:
+ rx365_cur."!cursor_pass"(rx365_pos, "backslash:sym<h>")
+ rx365_cur."!cursor_debug"("PASS ", "backslash:sym<h>", " at pos=", rx365_pos)
+ .return (rx365_cur)
+ rx365_fail:
.annotate 'line', 3
- (rx360_rep, rx360_pos, $I10, $P10) = rx360_cur."!mark_fail"(0)
- lt rx360_pos, -1, rx360_done
- eq rx360_pos, -1, rx360_fail
+ (rx365_rep, rx365_pos, $I10, $P10) = rx365_cur."!mark_fail"(0)
+ lt rx365_pos, -1, rx365_done
+ eq rx365_pos, -1, rx365_fail
jump $I10
- rx360_done:
- rx360_cur."!cursor_fail"()
- rx360_cur."!cursor_debug"("FAIL ", "backslash:sym<h>")
- .return (rx360_cur)
+ rx365_done:
+ rx365_cur."!cursor_fail"()
+ rx365_cur."!cursor_debug"("FAIL ", "backslash:sym<h>")
+ .return (rx365_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<h>" :subid("102_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<h>" :subid("102_1275811476.7961") :method
.annotate 'line', 3
- new $P362, "ResizablePMCArray"
- push $P362, "H"
- push $P362, "h"
- .return ($P362)
+ new $P367, "ResizablePMCArray"
+ push $P367, "H"
+ push $P367, "h"
+ .return ($P367)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<r>" :subid("103_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<r>" :subid("103_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx366_tgt
- .local int rx366_pos
- .local int rx366_off
- .local int rx366_eos
- .local int rx366_rep
- .local pmc rx366_cur
- (rx366_cur, rx366_pos, rx366_tgt) = self."!cursor_start"()
- rx366_cur."!cursor_debug"("START ", "backslash:sym<r>")
- .lex unicode:"$\x{a2}", rx366_cur
+ .local string rx371_tgt
+ .local int rx371_pos
+ .local int rx371_off
+ .local int rx371_eos
+ .local int rx371_rep
+ .local pmc rx371_cur
+ (rx371_cur, rx371_pos, rx371_tgt) = self."!cursor_start"()
+ rx371_cur."!cursor_debug"("START ", "backslash:sym<r>")
+ .lex unicode:"$\x{a2}", rx371_cur
.local pmc match
.lex "$/", match
- length rx366_eos, rx366_tgt
- set rx366_off, 0
- lt rx366_pos, 2, rx366_start
- sub rx366_off, rx366_pos, 1
- substr rx366_tgt, rx366_tgt, rx366_off
- rx366_start:
+ length rx371_eos, rx371_tgt
+ gt rx371_pos, rx371_eos, rx371_done
+ set rx371_off, 0
+ lt rx371_pos, 2, rx371_start
+ sub rx371_off, rx371_pos, 1
+ substr rx371_tgt, rx371_tgt, rx371_off
+ rx371_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan369_done
- goto rxscan369_scan
- rxscan369_loop:
- ($P10) = rx366_cur."from"()
+ ne $I10, -1, rxscan374_done
+ goto rxscan374_scan
+ rxscan374_loop:
+ ($P10) = rx371_cur."from"()
inc $P10
- set rx366_pos, $P10
- ge rx366_pos, rx366_eos, rxscan369_done
- rxscan369_scan:
- set_addr $I10, rxscan369_loop
- rx366_cur."!mark_push"(0, rx366_pos, $I10)
- rxscan369_done:
+ set rx371_pos, $P10
+ ge rx371_pos, rx371_eos, rxscan374_done
+ rxscan374_scan:
+ set_addr $I10, rxscan374_loop
+ rx371_cur."!mark_push"(0, rx371_pos, $I10)
+ rxscan374_done:
.annotate 'line', 126
# rx subcapture "sym"
- set_addr $I10, rxcap_370_fail
- rx366_cur."!mark_push"(0, rx366_pos, $I10)
+ set_addr $I10, rxcap_375_fail
+ rx371_cur."!mark_push"(0, rx371_pos, $I10)
# rx enumcharlist negate=0
- ge rx366_pos, rx366_eos, rx366_fail
- sub $I10, rx366_pos, rx366_off
- substr $S10, rx366_tgt, $I10, 1
+ ge rx371_pos, rx371_eos, rx371_fail
+ sub $I10, rx371_pos, rx371_off
+ substr $S10, rx371_tgt, $I10, 1
index $I11, "rR", $S10
- lt $I11, 0, rx366_fail
- inc rx366_pos
- set_addr $I10, rxcap_370_fail
- ($I12, $I11) = rx366_cur."!mark_peek"($I10)
- rx366_cur."!cursor_pos"($I11)
- ($P10) = rx366_cur."!cursor_start"()
- $P10."!cursor_pass"(rx366_pos, "")
- rx366_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx371_fail
+ inc rx371_pos
+ set_addr $I10, rxcap_375_fail
+ ($I12, $I11) = rx371_cur."!mark_peek"($I10)
+ rx371_cur."!cursor_pos"($I11)
+ ($P10) = rx371_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx371_pos, "")
+ rx371_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_370_done
- rxcap_370_fail:
- goto rx366_fail
- rxcap_370_done:
+ goto rxcap_375_done
+ rxcap_375_fail:
+ goto rx371_fail
+ rxcap_375_done:
# rx pass
- rx366_cur."!cursor_pass"(rx366_pos, "backslash:sym<r>")
- rx366_cur."!cursor_debug"("PASS ", "backslash:sym<r>", " at pos=", rx366_pos)
- .return (rx366_cur)
- rx366_fail:
+ rx371_cur."!cursor_pass"(rx371_pos, "backslash:sym<r>")
+ rx371_cur."!cursor_debug"("PASS ", "backslash:sym<r>", " at pos=", rx371_pos)
+ .return (rx371_cur)
+ rx371_fail:
.annotate 'line', 3
- (rx366_rep, rx366_pos, $I10, $P10) = rx366_cur."!mark_fail"(0)
- lt rx366_pos, -1, rx366_done
- eq rx366_pos, -1, rx366_fail
+ (rx371_rep, rx371_pos, $I10, $P10) = rx371_cur."!mark_fail"(0)
+ lt rx371_pos, -1, rx371_done
+ eq rx371_pos, -1, rx371_fail
jump $I10
- rx366_done:
- rx366_cur."!cursor_fail"()
- rx366_cur."!cursor_debug"("FAIL ", "backslash:sym<r>")
- .return (rx366_cur)
+ rx371_done:
+ rx371_cur."!cursor_fail"()
+ rx371_cur."!cursor_debug"("FAIL ", "backslash:sym<r>")
+ .return (rx371_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<r>" :subid("104_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<r>" :subid("104_1275811476.7961") :method
.annotate 'line', 3
- new $P368, "ResizablePMCArray"
- push $P368, "R"
- push $P368, "r"
- .return ($P368)
+ new $P373, "ResizablePMCArray"
+ push $P373, "R"
+ push $P373, "r"
+ .return ($P373)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<t>" :subid("105_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<t>" :subid("105_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx372_tgt
- .local int rx372_pos
- .local int rx372_off
- .local int rx372_eos
- .local int rx372_rep
- .local pmc rx372_cur
- (rx372_cur, rx372_pos, rx372_tgt) = self."!cursor_start"()
- rx372_cur."!cursor_debug"("START ", "backslash:sym<t>")
- .lex unicode:"$\x{a2}", rx372_cur
+ .local string rx377_tgt
+ .local int rx377_pos
+ .local int rx377_off
+ .local int rx377_eos
+ .local int rx377_rep
+ .local pmc rx377_cur
+ (rx377_cur, rx377_pos, rx377_tgt) = self."!cursor_start"()
+ rx377_cur."!cursor_debug"("START ", "backslash:sym<t>")
+ .lex unicode:"$\x{a2}", rx377_cur
.local pmc match
.lex "$/", match
- length rx372_eos, rx372_tgt
- set rx372_off, 0
- lt rx372_pos, 2, rx372_start
- sub rx372_off, rx372_pos, 1
- substr rx372_tgt, rx372_tgt, rx372_off
- rx372_start:
+ length rx377_eos, rx377_tgt
+ gt rx377_pos, rx377_eos, rx377_done
+ set rx377_off, 0
+ lt rx377_pos, 2, rx377_start
+ sub rx377_off, rx377_pos, 1
+ substr rx377_tgt, rx377_tgt, rx377_off
+ rx377_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan375_done
- goto rxscan375_scan
- rxscan375_loop:
- ($P10) = rx372_cur."from"()
+ ne $I10, -1, rxscan380_done
+ goto rxscan380_scan
+ rxscan380_loop:
+ ($P10) = rx377_cur."from"()
inc $P10
- set rx372_pos, $P10
- ge rx372_pos, rx372_eos, rxscan375_done
- rxscan375_scan:
- set_addr $I10, rxscan375_loop
- rx372_cur."!mark_push"(0, rx372_pos, $I10)
- rxscan375_done:
+ set rx377_pos, $P10
+ ge rx377_pos, rx377_eos, rxscan380_done
+ rxscan380_scan:
+ set_addr $I10, rxscan380_loop
+ rx377_cur."!mark_push"(0, rx377_pos, $I10)
+ rxscan380_done:
.annotate 'line', 127
# rx subcapture "sym"
- set_addr $I10, rxcap_376_fail
- rx372_cur."!mark_push"(0, rx372_pos, $I10)
+ set_addr $I10, rxcap_381_fail
+ rx377_cur."!mark_push"(0, rx377_pos, $I10)
# rx enumcharlist negate=0
- ge rx372_pos, rx372_eos, rx372_fail
- sub $I10, rx372_pos, rx372_off
- substr $S10, rx372_tgt, $I10, 1
+ ge rx377_pos, rx377_eos, rx377_fail
+ sub $I10, rx377_pos, rx377_off
+ substr $S10, rx377_tgt, $I10, 1
index $I11, "tT", $S10
- lt $I11, 0, rx372_fail
- inc rx372_pos
- set_addr $I10, rxcap_376_fail
- ($I12, $I11) = rx372_cur."!mark_peek"($I10)
- rx372_cur."!cursor_pos"($I11)
- ($P10) = rx372_cur."!cursor_start"()
- $P10."!cursor_pass"(rx372_pos, "")
- rx372_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx377_fail
+ inc rx377_pos
+ set_addr $I10, rxcap_381_fail
+ ($I12, $I11) = rx377_cur."!mark_peek"($I10)
+ rx377_cur."!cursor_pos"($I11)
+ ($P10) = rx377_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx377_pos, "")
+ rx377_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_376_done
- rxcap_376_fail:
- goto rx372_fail
- rxcap_376_done:
+ goto rxcap_381_done
+ rxcap_381_fail:
+ goto rx377_fail
+ rxcap_381_done:
# rx pass
- rx372_cur."!cursor_pass"(rx372_pos, "backslash:sym<t>")
- rx372_cur."!cursor_debug"("PASS ", "backslash:sym<t>", " at pos=", rx372_pos)
- .return (rx372_cur)
- rx372_fail:
+ rx377_cur."!cursor_pass"(rx377_pos, "backslash:sym<t>")
+ rx377_cur."!cursor_debug"("PASS ", "backslash:sym<t>", " at pos=", rx377_pos)
+ .return (rx377_cur)
+ rx377_fail:
.annotate 'line', 3
- (rx372_rep, rx372_pos, $I10, $P10) = rx372_cur."!mark_fail"(0)
- lt rx372_pos, -1, rx372_done
- eq rx372_pos, -1, rx372_fail
+ (rx377_rep, rx377_pos, $I10, $P10) = rx377_cur."!mark_fail"(0)
+ lt rx377_pos, -1, rx377_done
+ eq rx377_pos, -1, rx377_fail
jump $I10
- rx372_done:
- rx372_cur."!cursor_fail"()
- rx372_cur."!cursor_debug"("FAIL ", "backslash:sym<t>")
- .return (rx372_cur)
+ rx377_done:
+ rx377_cur."!cursor_fail"()
+ rx377_cur."!cursor_debug"("FAIL ", "backslash:sym<t>")
+ .return (rx377_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<t>" :subid("106_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<t>" :subid("106_1275811476.7961") :method
.annotate 'line', 3
- new $P374, "ResizablePMCArray"
- push $P374, "T"
- push $P374, "t"
- .return ($P374)
+ new $P379, "ResizablePMCArray"
+ push $P379, "T"
+ push $P379, "t"
+ .return ($P379)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<v>" :subid("107_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<v>" :subid("107_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx378_tgt
- .local int rx378_pos
- .local int rx378_off
- .local int rx378_eos
- .local int rx378_rep
- .local pmc rx378_cur
- (rx378_cur, rx378_pos, rx378_tgt) = self."!cursor_start"()
- rx378_cur."!cursor_debug"("START ", "backslash:sym<v>")
- .lex unicode:"$\x{a2}", rx378_cur
+ .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 ", "backslash:sym<v>")
+ .lex unicode:"$\x{a2}", rx383_cur
.local pmc match
.lex "$/", match
- length rx378_eos, rx378_tgt
- set rx378_off, 0
- lt rx378_pos, 2, rx378_start
- sub rx378_off, rx378_pos, 1
- substr rx378_tgt, rx378_tgt, rx378_off
- rx378_start:
+ length rx383_eos, rx383_tgt
+ gt rx383_pos, rx383_eos, rx383_done
+ 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:
$I10 = self.'from'()
- ne $I10, -1, rxscan381_done
- goto rxscan381_scan
- rxscan381_loop:
- ($P10) = rx378_cur."from"()
+ ne $I10, -1, rxscan386_done
+ goto rxscan386_scan
+ rxscan386_loop:
+ ($P10) = rx383_cur."from"()
inc $P10
- set rx378_pos, $P10
- ge rx378_pos, rx378_eos, rxscan381_done
- rxscan381_scan:
- set_addr $I10, rxscan381_loop
- rx378_cur."!mark_push"(0, rx378_pos, $I10)
- rxscan381_done:
+ 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', 128
# rx subcapture "sym"
- set_addr $I10, rxcap_382_fail
- rx378_cur."!mark_push"(0, rx378_pos, $I10)
+ set_addr $I10, rxcap_387_fail
+ rx383_cur."!mark_push"(0, rx383_pos, $I10)
# rx enumcharlist negate=0
- ge rx378_pos, rx378_eos, rx378_fail
- sub $I10, rx378_pos, rx378_off
- substr $S10, rx378_tgt, $I10, 1
+ ge rx383_pos, rx383_eos, rx383_fail
+ sub $I10, rx383_pos, rx383_off
+ substr $S10, rx383_tgt, $I10, 1
index $I11, "vV", $S10
- lt $I11, 0, rx378_fail
- inc rx378_pos
- set_addr $I10, rxcap_382_fail
- ($I12, $I11) = rx378_cur."!mark_peek"($I10)
- rx378_cur."!cursor_pos"($I11)
- ($P10) = rx378_cur."!cursor_start"()
- $P10."!cursor_pass"(rx378_pos, "")
- rx378_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx383_fail
+ inc rx383_pos
+ 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)
$P10."!cursor_names"("sym")
- goto rxcap_382_done
- rxcap_382_fail:
- goto rx378_fail
- rxcap_382_done:
+ goto rxcap_387_done
+ rxcap_387_fail:
+ goto rx383_fail
+ rxcap_387_done:
# rx pass
- rx378_cur."!cursor_pass"(rx378_pos, "backslash:sym<v>")
- rx378_cur."!cursor_debug"("PASS ", "backslash:sym<v>", " at pos=", rx378_pos)
- .return (rx378_cur)
- rx378_fail:
+ rx383_cur."!cursor_pass"(rx383_pos, "backslash:sym<v>")
+ rx383_cur."!cursor_debug"("PASS ", "backslash:sym<v>", " at pos=", rx383_pos)
+ .return (rx383_cur)
+ rx383_fail:
.annotate 'line', 3
- (rx378_rep, rx378_pos, $I10, $P10) = rx378_cur."!mark_fail"(0)
- lt rx378_pos, -1, rx378_done
- eq rx378_pos, -1, rx378_fail
+ (rx383_rep, rx383_pos, $I10, $P10) = rx383_cur."!mark_fail"(0)
+ lt rx383_pos, -1, rx383_done
+ eq rx383_pos, -1, rx383_fail
jump $I10
- rx378_done:
- rx378_cur."!cursor_fail"()
- rx378_cur."!cursor_debug"("FAIL ", "backslash:sym<v>")
- .return (rx378_cur)
+ rx383_done:
+ rx383_cur."!cursor_fail"()
+ rx383_cur."!cursor_debug"("FAIL ", "backslash:sym<v>")
+ .return (rx383_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<v>" :subid("108_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<v>" :subid("108_1275811476.7961") :method
.annotate 'line', 3
- new $P380, "ResizablePMCArray"
- push $P380, "V"
- push $P380, "v"
- .return ($P380)
+ new $P385, "ResizablePMCArray"
+ push $P385, "V"
+ push $P385, "v"
+ .return ($P385)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<o>" :subid("109_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<o>" :subid("109_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx384_tgt
- .local int rx384_pos
- .local int rx384_off
- .local int rx384_eos
- .local int rx384_rep
- .local pmc rx384_cur
- (rx384_cur, rx384_pos, rx384_tgt) = self."!cursor_start"()
- rx384_cur."!cursor_debug"("START ", "backslash:sym<o>")
- .lex unicode:"$\x{a2}", rx384_cur
+ .local string rx389_tgt
+ .local int rx389_pos
+ .local int rx389_off
+ .local int rx389_eos
+ .local int rx389_rep
+ .local pmc rx389_cur
+ (rx389_cur, rx389_pos, rx389_tgt) = self."!cursor_start"()
+ rx389_cur."!cursor_debug"("START ", "backslash:sym<o>")
+ .lex unicode:"$\x{a2}", rx389_cur
.local pmc match
.lex "$/", match
- length rx384_eos, rx384_tgt
- set rx384_off, 0
- lt rx384_pos, 2, rx384_start
- sub rx384_off, rx384_pos, 1
- substr rx384_tgt, rx384_tgt, rx384_off
- rx384_start:
+ length rx389_eos, rx389_tgt
+ gt rx389_pos, rx389_eos, rx389_done
+ set rx389_off, 0
+ lt rx389_pos, 2, rx389_start
+ sub rx389_off, rx389_pos, 1
+ substr rx389_tgt, rx389_tgt, rx389_off
+ rx389_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan391_done
- goto rxscan391_scan
- rxscan391_loop:
- ($P10) = rx384_cur."from"()
+ ne $I10, -1, rxscan396_done
+ goto rxscan396_scan
+ rxscan396_loop:
+ ($P10) = rx389_cur."from"()
inc $P10
- set rx384_pos, $P10
- ge rx384_pos, rx384_eos, rxscan391_done
- rxscan391_scan:
- set_addr $I10, rxscan391_loop
- rx384_cur."!mark_push"(0, rx384_pos, $I10)
- rxscan391_done:
+ set rx389_pos, $P10
+ ge rx389_pos, rx389_eos, rxscan396_done
+ rxscan396_scan:
+ set_addr $I10, rxscan396_loop
+ rx389_cur."!mark_push"(0, rx389_pos, $I10)
+ rxscan396_done:
.annotate 'line', 129
# rx subcapture "sym"
- set_addr $I10, rxcap_392_fail
- rx384_cur."!mark_push"(0, rx384_pos, $I10)
+ set_addr $I10, rxcap_397_fail
+ rx389_cur."!mark_push"(0, rx389_pos, $I10)
# rx enumcharlist negate=0
- ge rx384_pos, rx384_eos, rx384_fail
- sub $I10, rx384_pos, rx384_off
- substr $S10, rx384_tgt, $I10, 1
+ ge rx389_pos, rx389_eos, rx389_fail
+ sub $I10, rx389_pos, rx389_off
+ substr $S10, rx389_tgt, $I10, 1
index $I11, "oO", $S10
- lt $I11, 0, rx384_fail
- inc rx384_pos
- set_addr $I10, rxcap_392_fail
- ($I12, $I11) = rx384_cur."!mark_peek"($I10)
- rx384_cur."!cursor_pos"($I11)
- ($P10) = rx384_cur."!cursor_start"()
- $P10."!cursor_pass"(rx384_pos, "")
- rx384_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx389_fail
+ inc rx389_pos
+ set_addr $I10, rxcap_397_fail
+ ($I12, $I11) = rx389_cur."!mark_peek"($I10)
+ rx389_cur."!cursor_pos"($I11)
+ ($P10) = rx389_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx389_pos, "")
+ rx389_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_392_done
- rxcap_392_fail:
- goto rx384_fail
- rxcap_392_done:
- alt393_0:
- set_addr $I10, alt393_1
- rx384_cur."!mark_push"(0, rx384_pos, $I10)
+ goto rxcap_397_done
+ rxcap_397_fail:
+ goto rx389_fail
+ rxcap_397_done:
+ alt398_0:
+ set_addr $I10, alt398_1
+ rx389_cur."!mark_push"(0, rx389_pos, $I10)
# rx subrule "octint" subtype=capture negate=
- rx384_cur."!cursor_pos"(rx384_pos)
- $P10 = rx384_cur."octint"()
- unless $P10, rx384_fail
- rx384_cur."!mark_push"(0, -1, 0, $P10)
+ rx389_cur."!cursor_pos"(rx389_pos)
+ $P10 = rx389_cur."octint"()
+ unless $P10, rx389_fail
+ rx389_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("octint")
- rx384_pos = $P10."pos"()
- goto alt393_end
- alt393_1:
+ rx389_pos = $P10."pos"()
+ goto alt398_end
+ alt398_1:
# rx literal "["
- add $I11, rx384_pos, 1
- gt $I11, rx384_eos, rx384_fail
- sub $I11, rx384_pos, rx384_off
- substr $S10, rx384_tgt, $I11, 1
- ne $S10, "[", rx384_fail
- add rx384_pos, 1
+ add $I11, rx389_pos, 1
+ gt $I11, rx389_eos, rx389_fail
+ sub $I11, rx389_pos, rx389_off
+ substr $S10, rx389_tgt, $I11, 1
+ ne $S10, "[", rx389_fail
+ add rx389_pos, 1
# rx subrule "octints" subtype=capture negate=
- rx384_cur."!cursor_pos"(rx384_pos)
- $P10 = rx384_cur."octints"()
- unless $P10, rx384_fail
- rx384_cur."!mark_push"(0, -1, 0, $P10)
+ rx389_cur."!cursor_pos"(rx389_pos)
+ $P10 = rx389_cur."octints"()
+ unless $P10, rx389_fail
+ rx389_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("octints")
- rx384_pos = $P10."pos"()
+ rx389_pos = $P10."pos"()
# rx literal "]"
- add $I11, rx384_pos, 1
- gt $I11, rx384_eos, rx384_fail
- sub $I11, rx384_pos, rx384_off
- substr $S10, rx384_tgt, $I11, 1
- ne $S10, "]", rx384_fail
- add rx384_pos, 1
- alt393_end:
- # rx pass
- rx384_cur."!cursor_pass"(rx384_pos, "backslash:sym<o>")
- rx384_cur."!cursor_debug"("PASS ", "backslash:sym<o>", " at pos=", rx384_pos)
- .return (rx384_cur)
- rx384_fail:
-.annotate 'line', 3
- (rx384_rep, rx384_pos, $I10, $P10) = rx384_cur."!mark_fail"(0)
- lt rx384_pos, -1, rx384_done
- eq rx384_pos, -1, rx384_fail
- jump $I10
- rx384_done:
- rx384_cur."!cursor_fail"()
- rx384_cur."!cursor_debug"("FAIL ", "backslash:sym<o>")
- .return (rx384_cur)
+ add $I11, rx389_pos, 1
+ gt $I11, rx389_eos, rx389_fail
+ sub $I11, rx389_pos, rx389_off
+ substr $S10, rx389_tgt, $I11, 1
+ ne $S10, "]", rx389_fail
+ add rx389_pos, 1
+ alt398_end:
+ # rx pass
+ rx389_cur."!cursor_pass"(rx389_pos, "backslash:sym<o>")
+ rx389_cur."!cursor_debug"("PASS ", "backslash:sym<o>", " at pos=", rx389_pos)
+ .return (rx389_cur)
+ rx389_fail:
+.annotate 'line', 3
+ (rx389_rep, rx389_pos, $I10, $P10) = rx389_cur."!mark_fail"(0)
+ lt rx389_pos, -1, rx389_done
+ eq rx389_pos, -1, rx389_fail
+ jump $I10
+ rx389_done:
+ rx389_cur."!cursor_fail"()
+ rx389_cur."!cursor_debug"("FAIL ", "backslash:sym<o>")
+ .return (rx389_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.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")
- $P388 = self."!PREFIX__!subrule"("octints", "o[")
- $P389 = self."!PREFIX__!subrule"("octint", "o")
- new $P390, "ResizablePMCArray"
- push $P390, $P386
- push $P390, $P387
- push $P390, $P388
- push $P390, $P389
- .return ($P390)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<x>" :subid("111_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .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 ", "backslash:sym<x>")
- .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, rxscan402_done
- goto rxscan402_scan
- rxscan402_loop:
- ($P10) = rx395_cur."from"()
- inc $P10
- set rx395_pos, $P10
- ge rx395_pos, rx395_eos, rxscan402_done
- rxscan402_scan:
- set_addr $I10, rxscan402_loop
- rx395_cur."!mark_push"(0, rx395_pos, $I10)
- rxscan402_done:
+.sub "!PREFIX__backslash:sym<o>" :subid("110_1275811476.7961") :method
+.annotate 'line', 3
+ $P391 = self."!PREFIX__!subrule"("octints", "O[")
+ $P392 = self."!PREFIX__!subrule"("octint", "O")
+ $P393 = self."!PREFIX__!subrule"("octints", "o[")
+ $P394 = self."!PREFIX__!subrule"("octint", "o")
+ new $P395, "ResizablePMCArray"
+ push $P395, $P391
+ push $P395, $P392
+ push $P395, $P393
+ push $P395, $P394
+ .return ($P395)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Grammar"]
+.sub "backslash:sym<x>" :subid("111_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .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 ", "backslash:sym<x>")
+ .lex unicode:"$\x{a2}", rx400_cur
+ .local pmc match
+ .lex "$/", match
+ length rx400_eos, rx400_tgt
+ gt rx400_pos, rx400_eos, rx400_done
+ 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, rxscan407_done
+ goto rxscan407_scan
+ rxscan407_loop:
+ ($P10) = rx400_cur."from"()
+ inc $P10
+ set rx400_pos, $P10
+ ge rx400_pos, rx400_eos, rxscan407_done
+ rxscan407_scan:
+ set_addr $I10, rxscan407_loop
+ rx400_cur."!mark_push"(0, rx400_pos, $I10)
+ rxscan407_done:
.annotate 'line', 130
# rx subcapture "sym"
- set_addr $I10, rxcap_403_fail
- rx395_cur."!mark_push"(0, rx395_pos, $I10)
+ set_addr $I10, rxcap_408_fail
+ rx400_cur."!mark_push"(0, rx400_pos, $I10)
# rx enumcharlist negate=0
- ge rx395_pos, rx395_eos, rx395_fail
- sub $I10, rx395_pos, rx395_off
- substr $S10, rx395_tgt, $I10, 1
+ ge rx400_pos, rx400_eos, rx400_fail
+ sub $I10, rx400_pos, rx400_off
+ substr $S10, rx400_tgt, $I10, 1
index $I11, "xX", $S10
- lt $I11, 0, rx395_fail
- inc rx395_pos
- set_addr $I10, rxcap_403_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)
+ lt $I11, 0, rx400_fail
+ inc rx400_pos
+ set_addr $I10, rxcap_408_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_403_done
- rxcap_403_fail:
- goto rx395_fail
- rxcap_403_done:
- alt404_0:
- set_addr $I10, alt404_1
- rx395_cur."!mark_push"(0, rx395_pos, $I10)
+ goto rxcap_408_done
+ rxcap_408_fail:
+ goto rx400_fail
+ rxcap_408_done:
+ alt409_0:
+ set_addr $I10, alt409_1
+ rx400_cur."!mark_push"(0, rx400_pos, $I10)
# rx subrule "hexint" subtype=capture negate=
- rx395_cur."!cursor_pos"(rx395_pos)
- $P10 = rx395_cur."hexint"()
- unless $P10, rx395_fail
- rx395_cur."!mark_push"(0, -1, 0, $P10)
+ rx400_cur."!cursor_pos"(rx400_pos)
+ $P10 = rx400_cur."hexint"()
+ unless $P10, rx400_fail
+ rx400_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("hexint")
- rx395_pos = $P10."pos"()
- goto alt404_end
- alt404_1:
+ rx400_pos = $P10."pos"()
+ goto alt409_end
+ alt409_1:
# rx literal "["
- add $I11, rx395_pos, 1
- gt $I11, rx395_eos, rx395_fail
- sub $I11, rx395_pos, rx395_off
- substr $S10, rx395_tgt, $I11, 1
- ne $S10, "[", rx395_fail
- add rx395_pos, 1
+ add $I11, rx400_pos, 1
+ gt $I11, rx400_eos, rx400_fail
+ sub $I11, rx400_pos, rx400_off
+ substr $S10, rx400_tgt, $I11, 1
+ ne $S10, "[", rx400_fail
+ add rx400_pos, 1
# rx subrule "hexints" subtype=capture negate=
- rx395_cur."!cursor_pos"(rx395_pos)
- $P10 = rx395_cur."hexints"()
- unless $P10, rx395_fail
- rx395_cur."!mark_push"(0, -1, 0, $P10)
+ rx400_cur."!cursor_pos"(rx400_pos)
+ $P10 = rx400_cur."hexints"()
+ unless $P10, rx400_fail
+ rx400_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("hexints")
- rx395_pos = $P10."pos"()
+ rx400_pos = $P10."pos"()
# rx literal "]"
- add $I11, rx395_pos, 1
- gt $I11, rx395_eos, rx395_fail
- sub $I11, rx395_pos, rx395_off
- substr $S10, rx395_tgt, $I11, 1
- ne $S10, "]", rx395_fail
- add rx395_pos, 1
- alt404_end:
- # rx pass
- rx395_cur."!cursor_pass"(rx395_pos, "backslash:sym<x>")
- rx395_cur."!cursor_debug"("PASS ", "backslash:sym<x>", " at pos=", rx395_pos)
- .return (rx395_cur)
- rx395_fail:
-.annotate 'line', 3
- (rx395_rep, rx395_pos, $I10, $P10) = rx395_cur."!mark_fail"(0)
- lt rx395_pos, -1, rx395_done
- eq rx395_pos, -1, rx395_fail
- jump $I10
- rx395_done:
- rx395_cur."!cursor_fail"()
- rx395_cur."!cursor_debug"("FAIL ", "backslash:sym<x>")
- .return (rx395_cur)
+ add $I11, rx400_pos, 1
+ gt $I11, rx400_eos, rx400_fail
+ sub $I11, rx400_pos, rx400_off
+ substr $S10, rx400_tgt, $I11, 1
+ ne $S10, "]", rx400_fail
+ add rx400_pos, 1
+ alt409_end:
+ # rx pass
+ rx400_cur."!cursor_pass"(rx400_pos, "backslash:sym<x>")
+ rx400_cur."!cursor_debug"("PASS ", "backslash:sym<x>", " at pos=", rx400_pos)
+ .return (rx400_cur)
+ rx400_fail:
+.annotate 'line', 3
+ (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
+ rx400_done:
+ rx400_cur."!cursor_fail"()
+ rx400_cur."!cursor_debug"("FAIL ", "backslash:sym<x>")
+ .return (rx400_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.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")
- $P399 = self."!PREFIX__!subrule"("hexints", "x[")
- $P400 = self."!PREFIX__!subrule"("hexint", "x")
- new $P401, "ResizablePMCArray"
- push $P401, $P397
- push $P401, $P398
- push $P401, $P399
- push $P401, $P400
- .return ($P401)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<c>" :subid("113_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .local string rx406_tgt
- .local int rx406_pos
- .local int rx406_off
- .local int rx406_eos
- .local int rx406_rep
- .local pmc rx406_cur
- (rx406_cur, rx406_pos, rx406_tgt) = self."!cursor_start"()
- rx406_cur."!cursor_debug"("START ", "backslash:sym<c>")
- .lex unicode:"$\x{a2}", rx406_cur
- .local pmc match
- .lex "$/", match
- length rx406_eos, rx406_tgt
- set rx406_off, 0
- lt rx406_pos, 2, rx406_start
- sub rx406_off, rx406_pos, 1
- substr rx406_tgt, rx406_tgt, rx406_off
- rx406_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan411_done
- goto rxscan411_scan
- rxscan411_loop:
- ($P10) = rx406_cur."from"()
- inc $P10
- set rx406_pos, $P10
- ge rx406_pos, rx406_eos, rxscan411_done
- rxscan411_scan:
- set_addr $I10, rxscan411_loop
- rx406_cur."!mark_push"(0, rx406_pos, $I10)
- rxscan411_done:
+.sub "!PREFIX__backslash:sym<x>" :subid("112_1275811476.7961") :method
+.annotate 'line', 3
+ $P402 = self."!PREFIX__!subrule"("hexints", "X[")
+ $P403 = self."!PREFIX__!subrule"("hexint", "X")
+ $P404 = self."!PREFIX__!subrule"("hexints", "x[")
+ $P405 = self."!PREFIX__!subrule"("hexint", "x")
+ new $P406, "ResizablePMCArray"
+ push $P406, $P402
+ push $P406, $P403
+ push $P406, $P404
+ push $P406, $P405
+ .return ($P406)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Grammar"]
+.sub "backslash:sym<c>" :subid("113_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .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 ", "backslash:sym<c>")
+ .lex unicode:"$\x{a2}", rx411_cur
+ .local pmc match
+ .lex "$/", match
+ length rx411_eos, rx411_tgt
+ gt rx411_pos, rx411_eos, rx411_done
+ 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:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan416_done
+ goto rxscan416_scan
+ rxscan416_loop:
+ ($P10) = rx411_cur."from"()
+ inc $P10
+ set rx411_pos, $P10
+ ge rx411_pos, rx411_eos, rxscan416_done
+ rxscan416_scan:
+ set_addr $I10, rxscan416_loop
+ rx411_cur."!mark_push"(0, rx411_pos, $I10)
+ rxscan416_done:
.annotate 'line', 131
# rx subcapture "sym"
- set_addr $I10, rxcap_412_fail
- rx406_cur."!mark_push"(0, rx406_pos, $I10)
+ set_addr $I10, rxcap_417_fail
+ rx411_cur."!mark_push"(0, rx411_pos, $I10)
# rx enumcharlist negate=0
- ge rx406_pos, rx406_eos, rx406_fail
- sub $I10, rx406_pos, rx406_off
- substr $S10, rx406_tgt, $I10, 1
+ ge rx411_pos, rx411_eos, rx411_fail
+ sub $I10, rx411_pos, rx411_off
+ substr $S10, rx411_tgt, $I10, 1
index $I11, "cC", $S10
- lt $I11, 0, rx406_fail
- inc rx406_pos
- set_addr $I10, rxcap_412_fail
- ($I12, $I11) = rx406_cur."!mark_peek"($I10)
- rx406_cur."!cursor_pos"($I11)
- ($P10) = rx406_cur."!cursor_start"()
- $P10."!cursor_pass"(rx406_pos, "")
- rx406_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, 0, rx411_fail
+ inc rx411_pos
+ set_addr $I10, rxcap_417_fail
+ ($I12, $I11) = rx411_cur."!mark_peek"($I10)
+ rx411_cur."!cursor_pos"($I11)
+ ($P10) = rx411_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx411_pos, "")
+ rx411_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_412_done
- rxcap_412_fail:
- goto rx406_fail
- rxcap_412_done:
+ goto rxcap_417_done
+ rxcap_417_fail:
+ goto rx411_fail
+ rxcap_417_done:
# rx subrule "charspec" subtype=capture negate=
- rx406_cur."!cursor_pos"(rx406_pos)
- $P10 = rx406_cur."charspec"()
- unless $P10, rx406_fail
- rx406_cur."!mark_push"(0, -1, 0, $P10)
+ rx411_cur."!cursor_pos"(rx411_pos)
+ $P10 = rx411_cur."charspec"()
+ unless $P10, rx411_fail
+ rx411_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("charspec")
- rx406_pos = $P10."pos"()
+ rx411_pos = $P10."pos"()
# rx pass
- rx406_cur."!cursor_pass"(rx406_pos, "backslash:sym<c>")
- rx406_cur."!cursor_debug"("PASS ", "backslash:sym<c>", " at pos=", rx406_pos)
- .return (rx406_cur)
- rx406_fail:
+ rx411_cur."!cursor_pass"(rx411_pos, "backslash:sym<c>")
+ rx411_cur."!cursor_debug"("PASS ", "backslash:sym<c>", " at pos=", rx411_pos)
+ .return (rx411_cur)
+ rx411_fail:
.annotate 'line', 3
- (rx406_rep, rx406_pos, $I10, $P10) = rx406_cur."!mark_fail"(0)
- lt rx406_pos, -1, rx406_done
- eq rx406_pos, -1, rx406_fail
+ (rx411_rep, rx411_pos, $I10, $P10) = rx411_cur."!mark_fail"(0)
+ lt rx411_pos, -1, rx411_done
+ eq rx411_pos, -1, rx411_fail
jump $I10
- rx406_done:
- rx406_cur."!cursor_fail"()
- rx406_cur."!cursor_debug"("FAIL ", "backslash:sym<c>")
- .return (rx406_cur)
+ rx411_done:
+ rx411_cur."!cursor_fail"()
+ rx411_cur."!cursor_debug"("FAIL ", "backslash:sym<c>")
+ .return (rx411_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<c>" :subid("114_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<c>" :subid("114_1275811476.7961") :method
.annotate 'line', 3
- $P408 = self."!PREFIX__!subrule"("charspec", "C")
- $P409 = self."!PREFIX__!subrule"("charspec", "c")
- new $P410, "ResizablePMCArray"
- push $P410, $P408
- push $P410, $P409
- .return ($P410)
+ $P413 = self."!PREFIX__!subrule"("charspec", "C")
+ $P414 = self."!PREFIX__!subrule"("charspec", "c")
+ new $P415, "ResizablePMCArray"
+ push $P415, $P413
+ push $P415, $P414
+ .return ($P415)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<A>" :subid("115_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<A>" :subid("115_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx414_tgt
- .local int rx414_pos
- .local int rx414_off
- .local int rx414_eos
- .local int rx414_rep
- .local pmc rx414_cur
- (rx414_cur, rx414_pos, rx414_tgt) = self."!cursor_start"()
- rx414_cur."!cursor_debug"("START ", "backslash:sym<A>")
- .lex unicode:"$\x{a2}", rx414_cur
+ .local string rx419_tgt
+ .local int rx419_pos
+ .local int rx419_off
+ .local int rx419_eos
+ .local int rx419_rep
+ .local pmc rx419_cur
+ (rx419_cur, rx419_pos, rx419_tgt) = self."!cursor_start"()
+ rx419_cur."!cursor_debug"("START ", "backslash:sym<A>")
+ .lex unicode:"$\x{a2}", rx419_cur
.local pmc match
.lex "$/", match
- length rx414_eos, rx414_tgt
- set rx414_off, 0
- lt rx414_pos, 2, rx414_start
- sub rx414_off, rx414_pos, 1
- substr rx414_tgt, rx414_tgt, rx414_off
- rx414_start:
+ length rx419_eos, rx419_tgt
+ gt rx419_pos, rx419_eos, rx419_done
+ set rx419_off, 0
+ lt rx419_pos, 2, rx419_start
+ sub rx419_off, rx419_pos, 1
+ substr rx419_tgt, rx419_tgt, rx419_off
+ rx419_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan418_done
- goto rxscan418_scan
- rxscan418_loop:
- ($P10) = rx414_cur."from"()
+ ne $I10, -1, rxscan423_done
+ goto rxscan423_scan
+ rxscan423_loop:
+ ($P10) = rx419_cur."from"()
inc $P10
- set rx414_pos, $P10
- ge rx414_pos, rx414_eos, rxscan418_done
- rxscan418_scan:
- set_addr $I10, rxscan418_loop
- rx414_cur."!mark_push"(0, rx414_pos, $I10)
- rxscan418_done:
+ set rx419_pos, $P10
+ ge rx419_pos, rx419_eos, rxscan423_done
+ rxscan423_scan:
+ set_addr $I10, rxscan423_loop
+ rx419_cur."!mark_push"(0, rx419_pos, $I10)
+ rxscan423_done:
.annotate 'line', 132
# rx literal "A"
- add $I11, rx414_pos, 1
- gt $I11, rx414_eos, rx414_fail
- sub $I11, rx414_pos, rx414_off
- substr $S10, rx414_tgt, $I11, 1
- ne $S10, "A", rx414_fail
- add rx414_pos, 1
+ add $I11, rx419_pos, 1
+ gt $I11, rx419_eos, rx419_fail
+ sub $I11, rx419_pos, rx419_off
+ substr $S10, rx419_tgt, $I11, 1
+ ne $S10, "A", rx419_fail
+ add rx419_pos, 1
# rx subrule "obs" subtype=method negate=
- rx414_cur."!cursor_pos"(rx414_pos)
- $P10 = rx414_cur."obs"("\\A as beginning-of-string matcher", "^")
- unless $P10, rx414_fail
- rx414_pos = $P10."pos"()
+ rx419_cur."!cursor_pos"(rx419_pos)
+ $P10 = rx419_cur."obs"("\\A as beginning-of-string matcher", "^")
+ unless $P10, rx419_fail
+ rx419_pos = $P10."pos"()
# rx pass
- rx414_cur."!cursor_pass"(rx414_pos, "backslash:sym<A>")
- rx414_cur."!cursor_debug"("PASS ", "backslash:sym<A>", " at pos=", rx414_pos)
- .return (rx414_cur)
- rx414_fail:
+ rx419_cur."!cursor_pass"(rx419_pos, "backslash:sym<A>")
+ rx419_cur."!cursor_debug"("PASS ", "backslash:sym<A>", " at pos=", rx419_pos)
+ .return (rx419_cur)
+ rx419_fail:
.annotate 'line', 3
- (rx414_rep, rx414_pos, $I10, $P10) = rx414_cur."!mark_fail"(0)
- lt rx414_pos, -1, rx414_done
- eq rx414_pos, -1, rx414_fail
+ (rx419_rep, rx419_pos, $I10, $P10) = rx419_cur."!mark_fail"(0)
+ lt rx419_pos, -1, rx419_done
+ eq rx419_pos, -1, rx419_fail
jump $I10
- rx414_done:
- rx414_cur."!cursor_fail"()
- rx414_cur."!cursor_debug"("FAIL ", "backslash:sym<A>")
- .return (rx414_cur)
+ rx419_done:
+ rx419_cur."!cursor_fail"()
+ rx419_cur."!cursor_debug"("FAIL ", "backslash:sym<A>")
+ .return (rx419_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<A>" :subid("116_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<A>" :subid("116_1275811476.7961") :method
.annotate 'line', 3
- $P416 = self."!PREFIX__!subrule"("", "A")
- new $P417, "ResizablePMCArray"
- push $P417, $P416
- .return ($P417)
+ $P421 = self."!PREFIX__!subrule"("obs", "A")
+ new $P422, "ResizablePMCArray"
+ push $P422, $P421
+ .return ($P422)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<z>" :subid("117_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<z>" :subid("117_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx420_tgt
- .local int rx420_pos
- .local int rx420_off
- .local int rx420_eos
- .local int rx420_rep
- .local pmc rx420_cur
- (rx420_cur, rx420_pos, rx420_tgt) = self."!cursor_start"()
- rx420_cur."!cursor_debug"("START ", "backslash:sym<z>")
- .lex unicode:"$\x{a2}", rx420_cur
- .local pmc match
- .lex "$/", match
- length rx420_eos, rx420_tgt
- set rx420_off, 0
- lt rx420_pos, 2, rx420_start
- sub rx420_off, rx420_pos, 1
- substr rx420_tgt, rx420_tgt, rx420_off
- rx420_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan424_done
- goto rxscan424_scan
- rxscan424_loop:
- ($P10) = rx420_cur."from"()
- inc $P10
- set rx420_pos, $P10
- ge rx420_pos, rx420_eos, rxscan424_done
- rxscan424_scan:
- set_addr $I10, rxscan424_loop
- rx420_cur."!mark_push"(0, rx420_pos, $I10)
- rxscan424_done:
+ .local string rx425_tgt
+ .local int rx425_pos
+ .local int rx425_off
+ .local int rx425_eos
+ .local int rx425_rep
+ .local pmc rx425_cur
+ (rx425_cur, rx425_pos, rx425_tgt) = self."!cursor_start"()
+ rx425_cur."!cursor_debug"("START ", "backslash:sym<z>")
+ .lex unicode:"$\x{a2}", rx425_cur
+ .local pmc match
+ .lex "$/", match
+ length rx425_eos, rx425_tgt
+ gt rx425_pos, rx425_eos, rx425_done
+ set rx425_off, 0
+ lt rx425_pos, 2, rx425_start
+ sub rx425_off, rx425_pos, 1
+ substr rx425_tgt, rx425_tgt, rx425_off
+ rx425_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan429_done
+ goto rxscan429_scan
+ rxscan429_loop:
+ ($P10) = rx425_cur."from"()
+ inc $P10
+ set rx425_pos, $P10
+ ge rx425_pos, rx425_eos, rxscan429_done
+ rxscan429_scan:
+ set_addr $I10, rxscan429_loop
+ rx425_cur."!mark_push"(0, rx425_pos, $I10)
+ rxscan429_done:
.annotate 'line', 133
# rx literal "z"
- add $I11, rx420_pos, 1
- gt $I11, rx420_eos, rx420_fail
- sub $I11, rx420_pos, rx420_off
- substr $S10, rx420_tgt, $I11, 1
- ne $S10, "z", rx420_fail
- add rx420_pos, 1
+ add $I11, rx425_pos, 1
+ gt $I11, rx425_eos, rx425_fail
+ sub $I11, rx425_pos, rx425_off
+ substr $S10, rx425_tgt, $I11, 1
+ ne $S10, "z", rx425_fail
+ add rx425_pos, 1
# rx subrule "obs" subtype=method negate=
- rx420_cur."!cursor_pos"(rx420_pos)
- $P10 = rx420_cur."obs"("\\z as end-of-string matcher", "$")
- unless $P10, rx420_fail
- rx420_pos = $P10."pos"()
+ rx425_cur."!cursor_pos"(rx425_pos)
+ $P10 = rx425_cur."obs"("\\z as end-of-string matcher", "$")
+ unless $P10, rx425_fail
+ rx425_pos = $P10."pos"()
# rx pass
- rx420_cur."!cursor_pass"(rx420_pos, "backslash:sym<z>")
- rx420_cur."!cursor_debug"("PASS ", "backslash:sym<z>", " at pos=", rx420_pos)
- .return (rx420_cur)
- rx420_fail:
+ rx425_cur."!cursor_pass"(rx425_pos, "backslash:sym<z>")
+ rx425_cur."!cursor_debug"("PASS ", "backslash:sym<z>", " at pos=", rx425_pos)
+ .return (rx425_cur)
+ rx425_fail:
.annotate 'line', 3
- (rx420_rep, rx420_pos, $I10, $P10) = rx420_cur."!mark_fail"(0)
- lt rx420_pos, -1, rx420_done
- eq rx420_pos, -1, rx420_fail
+ (rx425_rep, rx425_pos, $I10, $P10) = rx425_cur."!mark_fail"(0)
+ lt rx425_pos, -1, rx425_done
+ eq rx425_pos, -1, rx425_fail
jump $I10
- rx420_done:
- rx420_cur."!cursor_fail"()
- rx420_cur."!cursor_debug"("FAIL ", "backslash:sym<z>")
- .return (rx420_cur)
+ rx425_done:
+ rx425_cur."!cursor_fail"()
+ rx425_cur."!cursor_debug"("FAIL ", "backslash:sym<z>")
+ .return (rx425_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<z>" :subid("118_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<z>" :subid("118_1275811476.7961") :method
.annotate 'line', 3
- $P422 = self."!PREFIX__!subrule"("", "z")
- new $P423, "ResizablePMCArray"
- push $P423, $P422
- .return ($P423)
+ $P427 = self."!PREFIX__!subrule"("obs", "z")
+ new $P428, "ResizablePMCArray"
+ push $P428, $P427
+ .return ($P428)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<Z>" :subid("119_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<Z>" :subid("119_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx426_tgt
- .local int rx426_pos
- .local int rx426_off
- .local int rx426_eos
- .local int rx426_rep
- .local pmc rx426_cur
- (rx426_cur, rx426_pos, rx426_tgt) = self."!cursor_start"()
- rx426_cur."!cursor_debug"("START ", "backslash:sym<Z>")
- .lex unicode:"$\x{a2}", rx426_cur
+ .local string rx431_tgt
+ .local int rx431_pos
+ .local int rx431_off
+ .local int rx431_eos
+ .local int rx431_rep
+ .local pmc rx431_cur
+ (rx431_cur, rx431_pos, rx431_tgt) = self."!cursor_start"()
+ rx431_cur."!cursor_debug"("START ", "backslash:sym<Z>")
+ .lex unicode:"$\x{a2}", rx431_cur
.local pmc match
.lex "$/", match
- length rx426_eos, rx426_tgt
- set rx426_off, 0
- lt rx426_pos, 2, rx426_start
- sub rx426_off, rx426_pos, 1
- substr rx426_tgt, rx426_tgt, rx426_off
- rx426_start:
+ length rx431_eos, rx431_tgt
+ gt rx431_pos, rx431_eos, rx431_done
+ set rx431_off, 0
+ lt rx431_pos, 2, rx431_start
+ sub rx431_off, rx431_pos, 1
+ substr rx431_tgt, rx431_tgt, rx431_off
+ rx431_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan430_done
- goto rxscan430_scan
- rxscan430_loop:
- ($P10) = rx426_cur."from"()
+ ne $I10, -1, rxscan435_done
+ goto rxscan435_scan
+ rxscan435_loop:
+ ($P10) = rx431_cur."from"()
inc $P10
- set rx426_pos, $P10
- ge rx426_pos, rx426_eos, rxscan430_done
- rxscan430_scan:
- set_addr $I10, rxscan430_loop
- rx426_cur."!mark_push"(0, rx426_pos, $I10)
- rxscan430_done:
+ set rx431_pos, $P10
+ ge rx431_pos, rx431_eos, rxscan435_done
+ rxscan435_scan:
+ set_addr $I10, rxscan435_loop
+ rx431_cur."!mark_push"(0, rx431_pos, $I10)
+ rxscan435_done:
.annotate 'line', 134
# rx literal "Z"
- add $I11, rx426_pos, 1
- gt $I11, rx426_eos, rx426_fail
- sub $I11, rx426_pos, rx426_off
- substr $S10, rx426_tgt, $I11, 1
- ne $S10, "Z", rx426_fail
- add rx426_pos, 1
+ add $I11, rx431_pos, 1
+ gt $I11, rx431_eos, rx431_fail
+ sub $I11, rx431_pos, rx431_off
+ substr $S10, rx431_tgt, $I11, 1
+ ne $S10, "Z", rx431_fail
+ add rx431_pos, 1
# rx subrule "obs" subtype=method negate=
- rx426_cur."!cursor_pos"(rx426_pos)
- $P10 = rx426_cur."obs"("\\Z as end-of-string matcher", "\\n?$")
- unless $P10, rx426_fail
- rx426_pos = $P10."pos"()
+ rx431_cur."!cursor_pos"(rx431_pos)
+ $P10 = rx431_cur."obs"("\\Z as end-of-string matcher", "\\n?$")
+ unless $P10, rx431_fail
+ rx431_pos = $P10."pos"()
# rx pass
- rx426_cur."!cursor_pass"(rx426_pos, "backslash:sym<Z>")
- rx426_cur."!cursor_debug"("PASS ", "backslash:sym<Z>", " at pos=", rx426_pos)
- .return (rx426_cur)
- rx426_fail:
+ rx431_cur."!cursor_pass"(rx431_pos, "backslash:sym<Z>")
+ rx431_cur."!cursor_debug"("PASS ", "backslash:sym<Z>", " at pos=", rx431_pos)
+ .return (rx431_cur)
+ rx431_fail:
.annotate 'line', 3
- (rx426_rep, rx426_pos, $I10, $P10) = rx426_cur."!mark_fail"(0)
- lt rx426_pos, -1, rx426_done
- eq rx426_pos, -1, rx426_fail
+ (rx431_rep, rx431_pos, $I10, $P10) = rx431_cur."!mark_fail"(0)
+ lt rx431_pos, -1, rx431_done
+ eq rx431_pos, -1, rx431_fail
jump $I10
- rx426_done:
- rx426_cur."!cursor_fail"()
- rx426_cur."!cursor_debug"("FAIL ", "backslash:sym<Z>")
- .return (rx426_cur)
+ rx431_done:
+ rx431_cur."!cursor_fail"()
+ rx431_cur."!cursor_debug"("FAIL ", "backslash:sym<Z>")
+ .return (rx431_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<Z>" :subid("120_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<Z>" :subid("120_1275811476.7961") :method
.annotate 'line', 3
- $P428 = self."!PREFIX__!subrule"("", "Z")
- new $P429, "ResizablePMCArray"
- push $P429, $P428
- .return ($P429)
+ $P433 = self."!PREFIX__!subrule"("obs", "Z")
+ new $P434, "ResizablePMCArray"
+ push $P434, $P433
+ .return ($P434)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<Q>" :subid("121_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<Q>" :subid("121_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx432_tgt
- .local int rx432_pos
- .local int rx432_off
- .local int rx432_eos
- .local int rx432_rep
- .local pmc rx432_cur
- (rx432_cur, rx432_pos, rx432_tgt) = self."!cursor_start"()
- rx432_cur."!cursor_debug"("START ", "backslash:sym<Q>")
- .lex unicode:"$\x{a2}", rx432_cur
+ .local string rx437_tgt
+ .local int rx437_pos
+ .local int rx437_off
+ .local int rx437_eos
+ .local int rx437_rep
+ .local pmc rx437_cur
+ (rx437_cur, rx437_pos, rx437_tgt) = self."!cursor_start"()
+ rx437_cur."!cursor_debug"("START ", "backslash:sym<Q>")
+ .lex unicode:"$\x{a2}", rx437_cur
.local pmc match
.lex "$/", match
- length rx432_eos, rx432_tgt
- set rx432_off, 0
- lt rx432_pos, 2, rx432_start
- sub rx432_off, rx432_pos, 1
- substr rx432_tgt, rx432_tgt, rx432_off
- rx432_start:
+ length rx437_eos, rx437_tgt
+ gt rx437_pos, rx437_eos, rx437_done
+ set rx437_off, 0
+ lt rx437_pos, 2, rx437_start
+ sub rx437_off, rx437_pos, 1
+ substr rx437_tgt, rx437_tgt, rx437_off
+ rx437_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan436_done
- goto rxscan436_scan
- rxscan436_loop:
- ($P10) = rx432_cur."from"()
+ ne $I10, -1, rxscan441_done
+ goto rxscan441_scan
+ rxscan441_loop:
+ ($P10) = rx437_cur."from"()
inc $P10
- set rx432_pos, $P10
- ge rx432_pos, rx432_eos, rxscan436_done
- rxscan436_scan:
- set_addr $I10, rxscan436_loop
- rx432_cur."!mark_push"(0, rx432_pos, $I10)
- rxscan436_done:
+ set rx437_pos, $P10
+ ge rx437_pos, rx437_eos, rxscan441_done
+ rxscan441_scan:
+ set_addr $I10, rxscan441_loop
+ rx437_cur."!mark_push"(0, rx437_pos, $I10)
+ rxscan441_done:
.annotate 'line', 135
# rx literal "Q"
- add $I11, rx432_pos, 1
- gt $I11, rx432_eos, rx432_fail
- sub $I11, rx432_pos, rx432_off
- substr $S10, rx432_tgt, $I11, 1
- ne $S10, "Q", rx432_fail
- add rx432_pos, 1
+ add $I11, rx437_pos, 1
+ gt $I11, rx437_eos, rx437_fail
+ sub $I11, rx437_pos, rx437_off
+ substr $S10, rx437_tgt, $I11, 1
+ ne $S10, "Q", rx437_fail
+ add rx437_pos, 1
# rx subrule "obs" subtype=method negate=
- rx432_cur."!cursor_pos"(rx432_pos)
- $P10 = rx432_cur."obs"("\\Q as quotemeta", "quotes or literal variable match")
- unless $P10, rx432_fail
- rx432_pos = $P10."pos"()
+ rx437_cur."!cursor_pos"(rx437_pos)
+ $P10 = rx437_cur."obs"("\\Q as quotemeta", "quotes or literal variable match")
+ unless $P10, rx437_fail
+ rx437_pos = $P10."pos"()
# rx pass
- rx432_cur."!cursor_pass"(rx432_pos, "backslash:sym<Q>")
- rx432_cur."!cursor_debug"("PASS ", "backslash:sym<Q>", " at pos=", rx432_pos)
- .return (rx432_cur)
- rx432_fail:
+ rx437_cur."!cursor_pass"(rx437_pos, "backslash:sym<Q>")
+ rx437_cur."!cursor_debug"("PASS ", "backslash:sym<Q>", " at pos=", rx437_pos)
+ .return (rx437_cur)
+ rx437_fail:
.annotate 'line', 3
- (rx432_rep, rx432_pos, $I10, $P10) = rx432_cur."!mark_fail"(0)
- lt rx432_pos, -1, rx432_done
- eq rx432_pos, -1, rx432_fail
+ (rx437_rep, rx437_pos, $I10, $P10) = rx437_cur."!mark_fail"(0)
+ lt rx437_pos, -1, rx437_done
+ eq rx437_pos, -1, rx437_fail
jump $I10
- rx432_done:
- rx432_cur."!cursor_fail"()
- rx432_cur."!cursor_debug"("FAIL ", "backslash:sym<Q>")
- .return (rx432_cur)
+ rx437_done:
+ rx437_cur."!cursor_fail"()
+ rx437_cur."!cursor_debug"("FAIL ", "backslash:sym<Q>")
+ .return (rx437_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<Q>" :subid("122_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<Q>" :subid("122_1275811476.7961") :method
.annotate 'line', 3
- $P434 = self."!PREFIX__!subrule"("", "Q")
- new $P435, "ResizablePMCArray"
- push $P435, $P434
- .return ($P435)
+ $P439 = self."!PREFIX__!subrule"("obs", "Q")
+ new $P440, "ResizablePMCArray"
+ push $P440, $P439
+ .return ($P440)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "backslash:sym<misc>" :subid("123_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "backslash:sym<misc>" :subid("123_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx438_tgt
- .local int rx438_pos
- .local int rx438_off
- .local int rx438_eos
- .local int rx438_rep
- .local pmc rx438_cur
- (rx438_cur, rx438_pos, rx438_tgt) = self."!cursor_start"()
- rx438_cur."!cursor_debug"("START ", "backslash:sym<misc>")
- .lex unicode:"$\x{a2}", rx438_cur
- .local pmc match
- .lex "$/", match
- length rx438_eos, rx438_tgt
- set rx438_off, 0
- lt rx438_pos, 2, rx438_start
- sub rx438_off, rx438_pos, 1
- substr rx438_tgt, rx438_tgt, rx438_off
- rx438_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan441_done
- goto rxscan441_scan
- rxscan441_loop:
- ($P10) = rx438_cur."from"()
- inc $P10
- set rx438_pos, $P10
- ge rx438_pos, rx438_eos, rxscan441_done
- rxscan441_scan:
- set_addr $I10, rxscan441_loop
- rx438_cur."!mark_push"(0, rx438_pos, $I10)
- rxscan441_done:
+ .local string rx443_tgt
+ .local int rx443_pos
+ .local int rx443_off
+ .local int rx443_eos
+ .local int rx443_rep
+ .local pmc rx443_cur
+ (rx443_cur, rx443_pos, rx443_tgt) = self."!cursor_start"()
+ rx443_cur."!cursor_debug"("START ", "backslash:sym<misc>")
+ .lex unicode:"$\x{a2}", rx443_cur
+ .local pmc match
+ .lex "$/", match
+ length rx443_eos, rx443_tgt
+ gt rx443_pos, rx443_eos, rx443_done
+ set rx443_off, 0
+ lt rx443_pos, 2, rx443_start
+ sub rx443_off, rx443_pos, 1
+ substr rx443_tgt, rx443_tgt, rx443_off
+ rx443_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan446_done
+ goto rxscan446_scan
+ rxscan446_loop:
+ ($P10) = rx443_cur."from"()
+ inc $P10
+ set rx443_pos, $P10
+ ge rx443_pos, rx443_eos, rxscan446_done
+ rxscan446_scan:
+ set_addr $I10, rxscan446_loop
+ rx443_cur."!mark_push"(0, rx443_pos, $I10)
+ rxscan446_done:
.annotate 'line', 136
# rx charclass W
- ge rx438_pos, rx438_eos, rx438_fail
- sub $I10, rx438_pos, rx438_off
- is_cclass $I11, 8192, rx438_tgt, $I10
- if $I11, rx438_fail
- inc rx438_pos
+ ge rx443_pos, rx443_eos, rx443_fail
+ sub $I10, rx443_pos, rx443_off
+ is_cclass $I11, 8192, rx443_tgt, $I10
+ if $I11, rx443_fail
+ inc rx443_pos
# rx pass
- rx438_cur."!cursor_pass"(rx438_pos, "backslash:sym<misc>")
- rx438_cur."!cursor_debug"("PASS ", "backslash:sym<misc>", " at pos=", rx438_pos)
- .return (rx438_cur)
- rx438_fail:
+ rx443_cur."!cursor_pass"(rx443_pos, "backslash:sym<misc>")
+ rx443_cur."!cursor_debug"("PASS ", "backslash:sym<misc>", " at pos=", rx443_pos)
+ .return (rx443_cur)
+ rx443_fail:
.annotate 'line', 3
- (rx438_rep, rx438_pos, $I10, $P10) = rx438_cur."!mark_fail"(0)
- lt rx438_pos, -1, rx438_done
- eq rx438_pos, -1, rx438_fail
+ (rx443_rep, rx443_pos, $I10, $P10) = rx443_cur."!mark_fail"(0)
+ lt rx443_pos, -1, rx443_done
+ eq rx443_pos, -1, rx443_fail
jump $I10
- rx438_done:
- rx438_cur."!cursor_fail"()
- rx438_cur."!cursor_debug"("FAIL ", "backslash:sym<misc>")
- .return (rx438_cur)
+ rx443_done:
+ rx443_cur."!cursor_fail"()
+ rx443_cur."!cursor_debug"("FAIL ", "backslash:sym<misc>")
+ .return (rx443_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__backslash:sym<misc>" :subid("124_1275117582.32416") :method
+.sub "!PREFIX__backslash:sym<misc>" :subid("124_1275811476.7961") :method
.annotate 'line', 3
- new $P440, "ResizablePMCArray"
- push $P440, ""
- .return ($P440)
+ new $P445, "ResizablePMCArray"
+ push $P445, ""
+ .return ($P445)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion" :subid("125_1275117582.32416") :method
+.sub "assertion" :subid("125_1275811476.7961") :method
.annotate 'line', 138
- $P443 = self."!protoregex"("assertion")
- .return ($P443)
+ $P448 = self."!protoregex"("assertion")
+ .return ($P448)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion" :subid("126_1275117582.32416") :method
+.sub "!PREFIX__assertion" :subid("126_1275811476.7961") :method
.annotate 'line', 138
- $P445 = self."!PREFIX__!protoregex"("assertion")
- .return ($P445)
+ $P450 = self."!PREFIX__!protoregex"("assertion")
+ .return ($P450)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<?>" :subid("127_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "assertion:sym<?>" :subid("127_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P454 = "129_1275117582.32416"
- capture_lex $P454
- .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 ", "assertion:sym<?>")
- .lex unicode:"$\x{a2}", rx447_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:
- $I10 = self.'from'()
- ne $I10, -1, rxscan451_done
- goto rxscan451_scan
- rxscan451_loop:
- ($P10) = rx447_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:
+ .const 'Sub' $P459 = "129_1275811476.7961"
+ capture_lex $P459
+ .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 ", "assertion:sym<?>")
+ .lex unicode:"$\x{a2}", rx452_cur
+ .local pmc match
+ .lex "$/", match
+ length rx452_eos, rx452_tgt
+ gt rx452_pos, rx452_eos, rx452_done
+ 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, rxscan456_done
+ goto rxscan456_scan
+ rxscan456_loop:
+ ($P10) = rx452_cur."from"()
+ inc $P10
+ 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', 140
# rx literal "?"
- add $I11, rx447_pos, 1
- gt $I11, rx447_eos, rx447_fail
- sub $I11, rx447_pos, rx447_off
- substr $S10, rx447_tgt, $I11, 1
- ne $S10, "?", rx447_fail
- add rx447_pos, 1
- alt452_0:
- set_addr $I10, alt452_1
- rx447_cur."!mark_push"(0, rx447_pos, $I10)
+ add $I11, rx452_pos, 1
+ gt $I11, rx452_eos, rx452_fail
+ sub $I11, rx452_pos, rx452_off
+ substr $S10, rx452_tgt, $I11, 1
+ ne $S10, "?", rx452_fail
+ add rx452_pos, 1
+ alt457_0:
+ set_addr $I10, alt457_1
+ rx452_cur."!mark_push"(0, rx452_pos, $I10)
# rx subrule "before" subtype=zerowidth negate=
- rx447_cur."!cursor_pos"(rx447_pos)
- .const 'Sub' $P454 = "129_1275117582.32416"
- capture_lex $P454
- $P10 = rx447_cur."before"($P454)
- unless $P10, rx447_fail
- goto alt452_end
- alt452_1:
+ rx452_cur."!cursor_pos"(rx452_pos)
+ .const 'Sub' $P459 = "129_1275811476.7961"
+ capture_lex $P459
+ $P10 = rx452_cur."before"($P459)
+ unless $P10, rx452_fail
+ goto alt457_end
+ alt457_1:
# rx subrule "assertion" subtype=capture negate=
- rx447_cur."!cursor_pos"(rx447_pos)
- $P10 = rx447_cur."assertion"()
- unless $P10, rx447_fail
- rx447_cur."!mark_push"(0, -1, 0, $P10)
+ rx452_cur."!cursor_pos"(rx452_pos)
+ $P10 = rx452_cur."assertion"()
+ unless $P10, rx452_fail
+ rx452_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- rx447_pos = $P10."pos"()
- alt452_end:
+ rx452_pos = $P10."pos"()
+ alt457_end:
# rx pass
- rx447_cur."!cursor_pass"(rx447_pos, "assertion:sym<?>")
- rx447_cur."!cursor_debug"("PASS ", "assertion:sym<?>", " at pos=", rx447_pos)
- .return (rx447_cur)
- rx447_fail:
+ rx452_cur."!cursor_pass"(rx452_pos, "assertion:sym<?>")
+ rx452_cur."!cursor_debug"("PASS ", "assertion:sym<?>", " at pos=", rx452_pos)
+ .return (rx452_cur)
+ rx452_fail:
.annotate 'line', 3
- (rx447_rep, rx447_pos, $I10, $P10) = rx447_cur."!mark_fail"(0)
- lt rx447_pos, -1, rx447_done
- eq rx447_pos, -1, rx447_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
- rx447_done:
- rx447_cur."!cursor_fail"()
- rx447_cur."!cursor_debug"("FAIL ", "assertion:sym<?>")
- .return (rx447_cur)
+ rx452_done:
+ rx452_cur."!cursor_fail"()
+ rx452_cur."!cursor_debug"("FAIL ", "assertion:sym<?>")
+ .return (rx452_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<?>" :subid("128_1275117582.32416") :method
+.sub "!PREFIX__assertion:sym<?>" :subid("128_1275811476.7961") :method
.annotate 'line', 3
- $P449 = self."!PREFIX__!subrule"("assertion", "?")
- new $P450, "ResizablePMCArray"
- push $P450, $P449
- push $P450, "?"
- .return ($P450)
+ $P454 = self."!PREFIX__!subrule"("assertion", "?")
+ new $P455, "ResizablePMCArray"
+ push $P455, $P454
+ push $P455, "?"
+ .return ($P455)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block453" :anon :subid("129_1275117582.32416") :method :outer("127_1275117582.32416")
+.sub "_block458" :anon :subid("129_1275811476.7961") :method :outer("127_1275811476.7961")
.annotate 'line', 140
- .local string rx455_tgt
- .local int rx455_pos
- .local int rx455_off
- .local int rx455_eos
- .local int rx455_rep
- .local pmc rx455_cur
- (rx455_cur, rx455_pos, rx455_tgt) = self."!cursor_start"()
- rx455_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx455_cur
- .local pmc match
- .lex "$/", match
- length rx455_eos, rx455_tgt
- set rx455_off, 0
- lt rx455_pos, 2, rx455_start
- sub rx455_off, rx455_pos, 1
- substr rx455_tgt, rx455_tgt, rx455_off
- rx455_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan456_done
- goto rxscan456_scan
- rxscan456_loop:
- ($P10) = rx455_cur."from"()
- inc $P10
- set rx455_pos, $P10
- ge rx455_pos, rx455_eos, rxscan456_done
- rxscan456_scan:
- set_addr $I10, rxscan456_loop
- rx455_cur."!mark_push"(0, rx455_pos, $I10)
- rxscan456_done:
+ .local string rx460_tgt
+ .local int rx460_pos
+ .local int rx460_off
+ .local int rx460_eos
+ .local int rx460_rep
+ .local pmc rx460_cur
+ (rx460_cur, rx460_pos, rx460_tgt) = self."!cursor_start"()
+ rx460_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx460_cur
+ .local pmc match
+ .lex "$/", match
+ length rx460_eos, rx460_tgt
+ gt rx460_pos, rx460_eos, rx460_done
+ set rx460_off, 0
+ lt rx460_pos, 2, rx460_start
+ sub rx460_off, rx460_pos, 1
+ substr rx460_tgt, rx460_tgt, rx460_off
+ rx460_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan461_done
+ goto rxscan461_scan
+ rxscan461_loop:
+ ($P10) = rx460_cur."from"()
+ inc $P10
+ set rx460_pos, $P10
+ ge rx460_pos, rx460_eos, rxscan461_done
+ rxscan461_scan:
+ set_addr $I10, rxscan461_loop
+ rx460_cur."!mark_push"(0, rx460_pos, $I10)
+ rxscan461_done:
# rx literal ">"
- add $I11, rx455_pos, 1
- gt $I11, rx455_eos, rx455_fail
- sub $I11, rx455_pos, rx455_off
- substr $S10, rx455_tgt, $I11, 1
- ne $S10, ">", rx455_fail
- add rx455_pos, 1
- # rx pass
- rx455_cur."!cursor_pass"(rx455_pos, "")
- rx455_cur."!cursor_debug"("PASS ", "", " at pos=", rx455_pos)
- .return (rx455_cur)
- rx455_fail:
- (rx455_rep, rx455_pos, $I10, $P10) = rx455_cur."!mark_fail"(0)
- lt rx455_pos, -1, rx455_done
- eq rx455_pos, -1, rx455_fail
- jump $I10
- rx455_done:
- rx455_cur."!cursor_fail"()
- rx455_cur."!cursor_debug"("FAIL ", "")
- .return (rx455_cur)
+ add $I11, rx460_pos, 1
+ gt $I11, rx460_eos, rx460_fail
+ sub $I11, rx460_pos, rx460_off
+ substr $S10, rx460_tgt, $I11, 1
+ ne $S10, ">", rx460_fail
+ add rx460_pos, 1
+ # rx pass
+ rx460_cur."!cursor_pass"(rx460_pos, "")
+ rx460_cur."!cursor_debug"("PASS ", "", " at pos=", rx460_pos)
+ .return (rx460_cur)
+ rx460_fail:
+ (rx460_rep, rx460_pos, $I10, $P10) = rx460_cur."!mark_fail"(0)
+ lt rx460_pos, -1, rx460_done
+ eq rx460_pos, -1, rx460_fail
+ jump $I10
+ rx460_done:
+ rx460_cur."!cursor_fail"()
+ rx460_cur."!cursor_debug"("FAIL ", "")
+ .return (rx460_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<!>" :subid("130_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .const 'Sub' $P465 = "132_1275117582.32416"
- capture_lex $P465
- .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 ", "assertion:sym<!>")
- .lex unicode:"$\x{a2}", rx458_cur
- .local pmc match
- .lex "$/", match
- 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) = rx458_cur."from"()
- inc $P10
- set rx458_pos, $P10
- ge rx458_pos, rx458_eos, rxscan462_done
- rxscan462_scan:
- set_addr $I10, rxscan462_loop
- rx458_cur."!mark_push"(0, rx458_pos, $I10)
- rxscan462_done:
+.sub "assertion:sym<!>" :subid("130_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .const 'Sub' $P470 = "132_1275811476.7961"
+ capture_lex $P470
+ .local string rx463_tgt
+ .local int rx463_pos
+ .local int rx463_off
+ .local int rx463_eos
+ .local int rx463_rep
+ .local pmc rx463_cur
+ (rx463_cur, rx463_pos, rx463_tgt) = self."!cursor_start"()
+ rx463_cur."!cursor_debug"("START ", "assertion:sym<!>")
+ .lex unicode:"$\x{a2}", rx463_cur
+ .local pmc match
+ .lex "$/", match
+ length rx463_eos, rx463_tgt
+ gt rx463_pos, rx463_eos, rx463_done
+ set rx463_off, 0
+ lt rx463_pos, 2, rx463_start
+ sub rx463_off, rx463_pos, 1
+ substr rx463_tgt, rx463_tgt, rx463_off
+ rx463_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan467_done
+ goto rxscan467_scan
+ rxscan467_loop:
+ ($P10) = rx463_cur."from"()
+ inc $P10
+ set rx463_pos, $P10
+ ge rx463_pos, rx463_eos, rxscan467_done
+ rxscan467_scan:
+ set_addr $I10, rxscan467_loop
+ rx463_cur."!mark_push"(0, rx463_pos, $I10)
+ rxscan467_done:
.annotate 'line', 141
# rx literal "!"
- add $I11, rx458_pos, 1
- gt $I11, rx458_eos, rx458_fail
- sub $I11, rx458_pos, rx458_off
- substr $S10, rx458_tgt, $I11, 1
- ne $S10, "!", rx458_fail
- add rx458_pos, 1
- alt463_0:
- set_addr $I10, alt463_1
- rx458_cur."!mark_push"(0, rx458_pos, $I10)
+ add $I11, rx463_pos, 1
+ gt $I11, rx463_eos, rx463_fail
+ sub $I11, rx463_pos, rx463_off
+ substr $S10, rx463_tgt, $I11, 1
+ ne $S10, "!", rx463_fail
+ add rx463_pos, 1
+ alt468_0:
+ set_addr $I10, alt468_1
+ rx463_cur."!mark_push"(0, rx463_pos, $I10)
# rx subrule "before" subtype=zerowidth negate=
- rx458_cur."!cursor_pos"(rx458_pos)
- .const 'Sub' $P465 = "132_1275117582.32416"
- capture_lex $P465
- $P10 = rx458_cur."before"($P465)
- unless $P10, rx458_fail
- goto alt463_end
- alt463_1:
+ rx463_cur."!cursor_pos"(rx463_pos)
+ .const 'Sub' $P470 = "132_1275811476.7961"
+ capture_lex $P470
+ $P10 = rx463_cur."before"($P470)
+ unless $P10, rx463_fail
+ goto alt468_end
+ alt468_1:
# rx subrule "assertion" subtype=capture negate=
- rx458_cur."!cursor_pos"(rx458_pos)
- $P10 = rx458_cur."assertion"()
- unless $P10, rx458_fail
- rx458_cur."!mark_push"(0, -1, 0, $P10)
+ rx463_cur."!cursor_pos"(rx463_pos)
+ $P10 = rx463_cur."assertion"()
+ unless $P10, rx463_fail
+ rx463_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- rx458_pos = $P10."pos"()
- alt463_end:
+ rx463_pos = $P10."pos"()
+ alt468_end:
# rx pass
- rx458_cur."!cursor_pass"(rx458_pos, "assertion:sym<!>")
- rx458_cur."!cursor_debug"("PASS ", "assertion:sym<!>", " at pos=", rx458_pos)
- .return (rx458_cur)
- rx458_fail:
+ rx463_cur."!cursor_pass"(rx463_pos, "assertion:sym<!>")
+ rx463_cur."!cursor_debug"("PASS ", "assertion:sym<!>", " at pos=", rx463_pos)
+ .return (rx463_cur)
+ rx463_fail:
.annotate 'line', 3
- (rx458_rep, rx458_pos, $I10, $P10) = rx458_cur."!mark_fail"(0)
- lt rx458_pos, -1, rx458_done
- eq rx458_pos, -1, rx458_fail
+ (rx463_rep, rx463_pos, $I10, $P10) = rx463_cur."!mark_fail"(0)
+ lt rx463_pos, -1, rx463_done
+ eq rx463_pos, -1, rx463_fail
jump $I10
- rx458_done:
- rx458_cur."!cursor_fail"()
- rx458_cur."!cursor_debug"("FAIL ", "assertion:sym<!>")
- .return (rx458_cur)
+ rx463_done:
+ rx463_cur."!cursor_fail"()
+ rx463_cur."!cursor_debug"("FAIL ", "assertion:sym<!>")
+ .return (rx463_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<!>" :subid("131_1275117582.32416") :method
+.sub "!PREFIX__assertion:sym<!>" :subid("131_1275811476.7961") :method
.annotate 'line', 3
- $P460 = self."!PREFIX__!subrule"("assertion", "!")
- new $P461, "ResizablePMCArray"
- push $P461, $P460
- push $P461, "!"
- .return ($P461)
+ $P465 = self."!PREFIX__!subrule"("assertion", "!")
+ new $P466, "ResizablePMCArray"
+ push $P466, $P465
+ push $P466, "!"
+ .return ($P466)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block464" :anon :subid("132_1275117582.32416") :method :outer("130_1275117582.32416")
+.sub "_block469" :anon :subid("132_1275811476.7961") :method :outer("130_1275811476.7961")
.annotate 'line', 141
- .local string rx466_tgt
- .local int rx466_pos
- .local int rx466_off
- .local int rx466_eos
- .local int rx466_rep
- .local pmc rx466_cur
- (rx466_cur, rx466_pos, rx466_tgt) = self."!cursor_start"()
- rx466_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx466_cur
- .local pmc match
- .lex "$/", match
- length rx466_eos, rx466_tgt
- set rx466_off, 0
- lt rx466_pos, 2, rx466_start
- sub rx466_off, rx466_pos, 1
- substr rx466_tgt, rx466_tgt, rx466_off
- rx466_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan467_done
- goto rxscan467_scan
- rxscan467_loop:
- ($P10) = rx466_cur."from"()
- inc $P10
- set rx466_pos, $P10
- ge rx466_pos, rx466_eos, rxscan467_done
- rxscan467_scan:
- set_addr $I10, rxscan467_loop
- rx466_cur."!mark_push"(0, rx466_pos, $I10)
- rxscan467_done:
+ .local string rx471_tgt
+ .local int rx471_pos
+ .local int rx471_off
+ .local int rx471_eos
+ .local int rx471_rep
+ .local pmc rx471_cur
+ (rx471_cur, rx471_pos, rx471_tgt) = self."!cursor_start"()
+ rx471_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx471_cur
+ .local pmc match
+ .lex "$/", match
+ length rx471_eos, rx471_tgt
+ gt rx471_pos, rx471_eos, rx471_done
+ set rx471_off, 0
+ lt rx471_pos, 2, rx471_start
+ sub rx471_off, rx471_pos, 1
+ substr rx471_tgt, rx471_tgt, rx471_off
+ rx471_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan472_done
+ goto rxscan472_scan
+ rxscan472_loop:
+ ($P10) = rx471_cur."from"()
+ inc $P10
+ set rx471_pos, $P10
+ ge rx471_pos, rx471_eos, rxscan472_done
+ rxscan472_scan:
+ set_addr $I10, rxscan472_loop
+ rx471_cur."!mark_push"(0, rx471_pos, $I10)
+ rxscan472_done:
# rx literal ">"
- add $I11, rx466_pos, 1
- gt $I11, rx466_eos, rx466_fail
- sub $I11, rx466_pos, rx466_off
- substr $S10, rx466_tgt, $I11, 1
- ne $S10, ">", rx466_fail
- add rx466_pos, 1
- # rx pass
- rx466_cur."!cursor_pass"(rx466_pos, "")
- rx466_cur."!cursor_debug"("PASS ", "", " at pos=", rx466_pos)
- .return (rx466_cur)
- rx466_fail:
- (rx466_rep, rx466_pos, $I10, $P10) = rx466_cur."!mark_fail"(0)
- lt rx466_pos, -1, rx466_done
- eq rx466_pos, -1, rx466_fail
- jump $I10
- rx466_done:
- rx466_cur."!cursor_fail"()
- rx466_cur."!cursor_debug"("FAIL ", "")
- .return (rx466_cur)
+ add $I11, rx471_pos, 1
+ gt $I11, rx471_eos, rx471_fail
+ sub $I11, rx471_pos, rx471_off
+ substr $S10, rx471_tgt, $I11, 1
+ ne $S10, ">", rx471_fail
+ add rx471_pos, 1
+ # rx pass
+ rx471_cur."!cursor_pass"(rx471_pos, "")
+ rx471_cur."!cursor_debug"("PASS ", "", " at pos=", rx471_pos)
+ .return (rx471_cur)
+ rx471_fail:
+ (rx471_rep, rx471_pos, $I10, $P10) = rx471_cur."!mark_fail"(0)
+ lt rx471_pos, -1, rx471_done
+ eq rx471_pos, -1, rx471_fail
+ jump $I10
+ rx471_done:
+ rx471_cur."!cursor_fail"()
+ rx471_cur."!cursor_debug"("FAIL ", "")
+ .return (rx471_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<method>" :subid("133_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .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 ", "assertion:sym<method>")
- .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:
+.sub "assertion:sym<method>" :subid("133_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .local string rx474_tgt
+ .local int rx474_pos
+ .local int rx474_off
+ .local int rx474_eos
+ .local int rx474_rep
+ .local pmc rx474_cur
+ (rx474_cur, rx474_pos, rx474_tgt) = self."!cursor_start"()
+ rx474_cur."!cursor_debug"("START ", "assertion:sym<method>")
+ .lex unicode:"$\x{a2}", rx474_cur
+ .local pmc match
+ .lex "$/", match
+ length rx474_eos, rx474_tgt
+ gt rx474_pos, rx474_eos, rx474_done
+ set rx474_off, 0
+ lt rx474_pos, 2, rx474_start
+ sub rx474_off, rx474_pos, 1
+ substr rx474_tgt, rx474_tgt, rx474_off
+ rx474_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan478_done
+ goto rxscan478_scan
+ rxscan478_loop:
+ ($P10) = rx474_cur."from"()
+ inc $P10
+ set rx474_pos, $P10
+ ge rx474_pos, rx474_eos, rxscan478_done
+ rxscan478_scan:
+ set_addr $I10, rxscan478_loop
+ rx474_cur."!mark_push"(0, rx474_pos, $I10)
+ rxscan478_done:
.annotate 'line', 144
# rx literal "."
- add $I11, rx469_pos, 1
- gt $I11, rx469_eos, rx469_fail
- sub $I11, rx469_pos, rx469_off
- substr $S10, rx469_tgt, $I11, 1
- ne $S10, ".", rx469_fail
- add rx469_pos, 1
+ add $I11, rx474_pos, 1
+ gt $I11, rx474_eos, rx474_fail
+ sub $I11, rx474_pos, rx474_off
+ substr $S10, rx474_tgt, $I11, 1
+ ne $S10, ".", rx474_fail
+ add rx474_pos, 1
# rx subrule "assertion" subtype=capture negate=
- rx469_cur."!cursor_pos"(rx469_pos)
- $P10 = rx469_cur."assertion"()
- unless $P10, rx469_fail
- rx469_cur."!mark_push"(0, -1, 0, $P10)
+ rx474_cur."!cursor_pos"(rx474_pos)
+ $P10 = rx474_cur."assertion"()
+ unless $P10, rx474_fail
+ rx474_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- rx469_pos = $P10."pos"()
+ rx474_pos = $P10."pos"()
.annotate 'line', 143
# rx pass
- rx469_cur."!cursor_pass"(rx469_pos, "assertion:sym<method>")
- rx469_cur."!cursor_debug"("PASS ", "assertion:sym<method>", " at pos=", rx469_pos)
- .return (rx469_cur)
- rx469_fail:
+ rx474_cur."!cursor_pass"(rx474_pos, "assertion:sym<method>")
+ rx474_cur."!cursor_debug"("PASS ", "assertion:sym<method>", " at pos=", rx474_pos)
+ .return (rx474_cur)
+ rx474_fail:
.annotate 'line', 3
- (rx469_rep, rx469_pos, $I10, $P10) = rx469_cur."!mark_fail"(0)
- lt rx469_pos, -1, rx469_done
- eq rx469_pos, -1, rx469_fail
+ (rx474_rep, rx474_pos, $I10, $P10) = rx474_cur."!mark_fail"(0)
+ lt rx474_pos, -1, rx474_done
+ eq rx474_pos, -1, rx474_fail
jump $I10
- rx469_done:
- rx469_cur."!cursor_fail"()
- rx469_cur."!cursor_debug"("FAIL ", "assertion:sym<method>")
- .return (rx469_cur)
+ rx474_done:
+ rx474_cur."!cursor_fail"()
+ rx474_cur."!cursor_debug"("FAIL ", "assertion:sym<method>")
+ .return (rx474_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<method>" :subid("134_1275117582.32416") :method
+.sub "!PREFIX__assertion:sym<method>" :subid("134_1275811476.7961") :method
.annotate 'line', 3
- $P471 = self."!PREFIX__!subrule"("assertion", ".")
- new $P472, "ResizablePMCArray"
- push $P472, $P471
- .return ($P472)
+ $P476 = self."!PREFIX__!subrule"("assertion", ".")
+ new $P477, "ResizablePMCArray"
+ push $P477, $P476
+ .return ($P477)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<name>" :subid("135_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "assertion:sym<name>" :subid("135_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P483 = "137_1275117582.32416"
- capture_lex $P483
- .local string rx475_tgt
- .local int rx475_pos
- .local int rx475_off
- .local int rx475_eos
- .local int rx475_rep
- .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"("nibbler", "arglist", "assertion")
- .lex unicode:"$\x{a2}", rx475_cur
- .local pmc match
- .lex "$/", match
- length rx475_eos, rx475_tgt
- set rx475_off, 0
- lt rx475_pos, 2, rx475_start
- sub rx475_off, rx475_pos, 1
- substr rx475_tgt, rx475_tgt, rx475_off
- rx475_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan478_done
- goto rxscan478_scan
- rxscan478_loop:
- ($P10) = rx475_cur."from"()
- inc $P10
- set rx475_pos, $P10
- ge rx475_pos, rx475_eos, rxscan478_done
- rxscan478_scan:
- set_addr $I10, rxscan478_loop
- rx475_cur."!mark_push"(0, rx475_pos, $I10)
- rxscan478_done:
+ .const 'Sub' $P488 = "137_1275811476.7961"
+ capture_lex $P488
+ .local string rx480_tgt
+ .local int rx480_pos
+ .local int rx480_off
+ .local int rx480_eos
+ .local int rx480_rep
+ .local pmc rx480_cur
+ (rx480_cur, rx480_pos, rx480_tgt) = self."!cursor_start"()
+ rx480_cur."!cursor_debug"("START ", "assertion:sym<name>")
+ rx480_cur."!cursor_caparray"("nibbler", "arglist", "assertion")
+ .lex unicode:"$\x{a2}", rx480_cur
+ .local pmc match
+ .lex "$/", match
+ length rx480_eos, rx480_tgt
+ gt rx480_pos, rx480_eos, rx480_done
+ set rx480_off, 0
+ lt rx480_pos, 2, rx480_start
+ sub rx480_off, rx480_pos, 1
+ substr rx480_tgt, rx480_tgt, rx480_off
+ rx480_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan483_done
+ goto rxscan483_scan
+ rxscan483_loop:
+ ($P10) = rx480_cur."from"()
+ inc $P10
+ set rx480_pos, $P10
+ ge rx480_pos, rx480_eos, rxscan483_done
+ rxscan483_scan:
+ set_addr $I10, rxscan483_loop
+ rx480_cur."!mark_push"(0, rx480_pos, $I10)
+ rxscan483_done:
.annotate 'line', 148
# rx subcapture "longname"
- set_addr $I10, rxcap_479_fail
- rx475_cur."!mark_push"(0, rx475_pos, $I10)
+ set_addr $I10, rxcap_484_fail
+ rx480_cur."!mark_push"(0, rx480_pos, $I10)
# rx charclass_q w r 1..-1
- sub $I10, rx475_pos, rx475_off
- find_not_cclass $I11, 8192, rx475_tgt, $I10, rx475_eos
+ sub $I10, rx480_pos, rx480_off
+ find_not_cclass $I11, 8192, rx480_tgt, $I10, rx480_eos
add $I12, $I10, 1
- lt $I11, $I12, rx475_fail
- add rx475_pos, rx475_off, $I11
- set_addr $I10, rxcap_479_fail
- ($I12, $I11) = rx475_cur."!mark_peek"($I10)
- rx475_cur."!cursor_pos"($I11)
- ($P10) = rx475_cur."!cursor_start"()
- $P10."!cursor_pass"(rx475_pos, "")
- rx475_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx480_fail
+ add rx480_pos, rx480_off, $I11
+ set_addr $I10, rxcap_484_fail
+ ($I12, $I11) = rx480_cur."!mark_peek"($I10)
+ rx480_cur."!cursor_pos"($I11)
+ ($P10) = rx480_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx480_pos, "")
+ rx480_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("longname")
- goto rxcap_479_done
- rxcap_479_fail:
- goto rx475_fail
- rxcap_479_done:
+ goto rxcap_484_done
+ rxcap_484_fail:
+ goto rx480_fail
+ rxcap_484_done:
.annotate 'line', 155
- # rx rxquantr480 ** 0..1
- set_addr $I486, rxquantr480_done
- rx475_cur."!mark_push"(0, rx475_pos, $I486)
- rxquantr480_loop:
- alt481_0:
+ # rx rxquantr485 ** 0..1
+ set_addr $I491, rxquantr485_done
+ rx480_cur."!mark_push"(0, rx480_pos, $I491)
+ rxquantr485_loop:
+ alt486_0:
.annotate 'line', 149
- set_addr $I10, alt481_1
- rx475_cur."!mark_push"(0, rx475_pos, $I10)
+ set_addr $I10, alt486_1
+ rx480_cur."!mark_push"(0, rx480_pos, $I10)
.annotate 'line', 150
# rx subrule "before" subtype=zerowidth negate=
- rx475_cur."!cursor_pos"(rx475_pos)
- .const 'Sub' $P483 = "137_1275117582.32416"
- capture_lex $P483
- $P10 = rx475_cur."before"($P483)
- unless $P10, rx475_fail
- goto alt481_end
- alt481_1:
- set_addr $I10, alt481_2
- rx475_cur."!mark_push"(0, rx475_pos, $I10)
+ rx480_cur."!cursor_pos"(rx480_pos)
+ .const 'Sub' $P488 = "137_1275811476.7961"
+ capture_lex $P488
+ $P10 = rx480_cur."before"($P488)
+ unless $P10, rx480_fail
+ goto alt486_end
+ alt486_1:
+ set_addr $I10, alt486_2
+ rx480_cur."!mark_push"(0, rx480_pos, $I10)
.annotate 'line', 151
# rx literal "="
- add $I11, rx475_pos, 1
- gt $I11, rx475_eos, rx475_fail
- sub $I11, rx475_pos, rx475_off
- substr $S10, rx475_tgt, $I11, 1
- ne $S10, "=", rx475_fail
- add rx475_pos, 1
+ add $I11, rx480_pos, 1
+ gt $I11, rx480_eos, rx480_fail
+ sub $I11, rx480_pos, rx480_off
+ substr $S10, rx480_tgt, $I11, 1
+ ne $S10, "=", rx480_fail
+ add rx480_pos, 1
# rx subrule "assertion" subtype=capture negate=
- rx475_cur."!cursor_pos"(rx475_pos)
- $P10 = rx475_cur."assertion"()
- unless $P10, rx475_fail
- rx475_cur."!mark_push"(0, -1, 0, $P10)
+ rx480_cur."!cursor_pos"(rx480_pos)
+ $P10 = rx480_cur."assertion"()
+ unless $P10, rx480_fail
+ rx480_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("assertion")
- rx475_pos = $P10."pos"()
- goto alt481_end
- alt481_2:
- set_addr $I10, alt481_3
- rx475_cur."!mark_push"(0, rx475_pos, $I10)
+ rx480_pos = $P10."pos"()
+ goto alt486_end
+ alt486_2:
+ set_addr $I10, alt486_3
+ rx480_cur."!mark_push"(0, rx480_pos, $I10)
.annotate 'line', 152
# rx literal ":"
- add $I11, rx475_pos, 1
- gt $I11, rx475_eos, rx475_fail
- sub $I11, rx475_pos, rx475_off
- substr $S10, rx475_tgt, $I11, 1
- ne $S10, ":", rx475_fail
- add rx475_pos, 1
+ add $I11, rx480_pos, 1
+ gt $I11, rx480_eos, rx480_fail
+ sub $I11, rx480_pos, rx480_off
+ substr $S10, rx480_tgt, $I11, 1
+ ne $S10, ":", rx480_fail
+ add rx480_pos, 1
# rx subrule "arglist" subtype=capture negate=
- rx475_cur."!cursor_pos"(rx475_pos)
- $P10 = rx475_cur."arglist"()
- unless $P10, rx475_fail
- rx475_cur."!mark_push"(0, -1, 0, $P10)
+ rx480_cur."!cursor_pos"(rx480_pos)
+ $P10 = rx480_cur."arglist"()
+ unless $P10, rx480_fail
+ rx480_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx475_pos = $P10."pos"()
- goto alt481_end
- alt481_3:
- set_addr $I10, alt481_4
- rx475_cur."!mark_push"(0, rx475_pos, $I10)
+ rx480_pos = $P10."pos"()
+ goto alt486_end
+ alt486_3:
+ set_addr $I10, alt486_4
+ rx480_cur."!mark_push"(0, rx480_pos, $I10)
.annotate 'line', 153
# rx literal "("
- add $I11, rx475_pos, 1
- gt $I11, rx475_eos, rx475_fail
- sub $I11, rx475_pos, rx475_off
- substr $S10, rx475_tgt, $I11, 1
- ne $S10, "(", rx475_fail
- add rx475_pos, 1
+ add $I11, rx480_pos, 1
+ gt $I11, rx480_eos, rx480_fail
+ sub $I11, rx480_pos, rx480_off
+ substr $S10, rx480_tgt, $I11, 1
+ ne $S10, "(", rx480_fail
+ add rx480_pos, 1
# rx subrule "arglist" subtype=capture negate=
- rx475_cur."!cursor_pos"(rx475_pos)
- $P10 = rx475_cur."arglist"()
- unless $P10, rx475_fail
- rx475_cur."!mark_push"(0, -1, 0, $P10)
+ rx480_cur."!cursor_pos"(rx480_pos)
+ $P10 = rx480_cur."arglist"()
+ unless $P10, rx480_fail
+ rx480_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("arglist")
- rx475_pos = $P10."pos"()
+ rx480_pos = $P10."pos"()
# rx literal ")"
- add $I11, rx475_pos, 1
- gt $I11, rx475_eos, rx475_fail
- sub $I11, rx475_pos, rx475_off
- substr $S10, rx475_tgt, $I11, 1
- ne $S10, ")", rx475_fail
- add rx475_pos, 1
- goto alt481_end
- alt481_4:
+ add $I11, rx480_pos, 1
+ gt $I11, rx480_eos, rx480_fail
+ sub $I11, rx480_pos, rx480_off
+ substr $S10, rx480_tgt, $I11, 1
+ ne $S10, ")", rx480_fail
+ add rx480_pos, 1
+ goto alt486_end
+ alt486_4:
.annotate 'line', 154
# rx subrule "normspace" subtype=method negate=
- rx475_cur."!cursor_pos"(rx475_pos)
- $P10 = rx475_cur."normspace"()
- unless $P10, rx475_fail
- rx475_pos = $P10."pos"()
+ rx480_cur."!cursor_pos"(rx480_pos)
+ $P10 = rx480_cur."normspace"()
+ unless $P10, rx480_fail
+ rx480_pos = $P10."pos"()
# rx subrule "nibbler" subtype=capture negate=
- rx475_cur."!cursor_pos"(rx475_pos)
- $P10 = rx475_cur."nibbler"()
- unless $P10, rx475_fail
- rx475_cur."!mark_push"(0, -1, 0, $P10)
+ rx480_cur."!cursor_pos"(rx480_pos)
+ $P10 = rx480_cur."nibbler"()
+ unless $P10, rx480_fail
+ rx480_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("nibbler")
- rx475_pos = $P10."pos"()
- alt481_end:
+ rx480_pos = $P10."pos"()
+ alt486_end:
.annotate 'line', 155
- (rx475_rep) = rx475_cur."!mark_commit"($I486)
- rxquantr480_done:
+ (rx480_rep) = rx480_cur."!mark_commit"($I491)
+ rxquantr485_done:
.annotate 'line', 147
# rx pass
- rx475_cur."!cursor_pass"(rx475_pos, "assertion:sym<name>")
- rx475_cur."!cursor_debug"("PASS ", "assertion:sym<name>", " at pos=", rx475_pos)
- .return (rx475_cur)
- rx475_fail:
+ rx480_cur."!cursor_pass"(rx480_pos, "assertion:sym<name>")
+ rx480_cur."!cursor_debug"("PASS ", "assertion:sym<name>", " at pos=", rx480_pos)
+ .return (rx480_cur)
+ rx480_fail:
.annotate 'line', 3
- (rx475_rep, rx475_pos, $I10, $P10) = rx475_cur."!mark_fail"(0)
- lt rx475_pos, -1, rx475_done
- eq rx475_pos, -1, rx475_fail
+ (rx480_rep, rx480_pos, $I10, $P10) = rx480_cur."!mark_fail"(0)
+ lt rx480_pos, -1, rx480_done
+ eq rx480_pos, -1, rx480_fail
jump $I10
- rx475_done:
- rx475_cur."!cursor_fail"()
- rx475_cur."!cursor_debug"("FAIL ", "assertion:sym<name>")
- .return (rx475_cur)
+ rx480_done:
+ rx480_cur."!cursor_fail"()
+ rx480_cur."!cursor_debug"("FAIL ", "assertion:sym<name>")
+ .return (rx480_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<name>" :subid("136_1275117582.32416") :method
+.sub "!PREFIX__assertion:sym<name>" :subid("136_1275811476.7961") :method
.annotate 'line', 3
- new $P477, "ResizablePMCArray"
- push $P477, ""
- .return ($P477)
+ new $P482, "ResizablePMCArray"
+ push $P482, ""
+ .return ($P482)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block482" :anon :subid("137_1275117582.32416") :method :outer("135_1275117582.32416")
+.sub "_block487" :anon :subid("137_1275811476.7961") :method :outer("135_1275811476.7961")
.annotate 'line', 150
- .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 ", "")
- .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, rxscan485_done
- goto rxscan485_scan
- rxscan485_loop:
- ($P10) = rx484_cur."from"()
- inc $P10
- set rx484_pos, $P10
- ge rx484_pos, rx484_eos, rxscan485_done
- rxscan485_scan:
- set_addr $I10, rxscan485_loop
- rx484_cur."!mark_push"(0, rx484_pos, $I10)
- rxscan485_done:
+ .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 ", "")
+ .lex unicode:"$\x{a2}", rx489_cur
+ .local pmc match
+ .lex "$/", match
+ length rx489_eos, rx489_tgt
+ gt rx489_pos, rx489_eos, rx489_done
+ 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, rxscan490_done
+ goto rxscan490_scan
+ rxscan490_loop:
+ ($P10) = rx489_cur."from"()
+ inc $P10
+ set rx489_pos, $P10
+ ge rx489_pos, rx489_eos, rxscan490_done
+ rxscan490_scan:
+ set_addr $I10, rxscan490_loop
+ rx489_cur."!mark_push"(0, rx489_pos, $I10)
+ rxscan490_done:
# 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
- # rx pass
- rx484_cur."!cursor_pass"(rx484_pos, "")
- rx484_cur."!cursor_debug"("PASS ", "", " at pos=", rx484_pos)
- .return (rx484_cur)
- rx484_fail:
- (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 ", "")
- .return (rx484_cur)
+ 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
+ # rx pass
+ rx489_cur."!cursor_pass"(rx489_pos, "")
+ rx489_cur."!cursor_debug"("PASS ", "", " at pos=", rx489_pos)
+ .return (rx489_cur)
+ rx489_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
+ rx489_done:
+ rx489_cur."!cursor_fail"()
+ rx489_cur."!cursor_debug"("FAIL ", "")
+ .return (rx489_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "assertion:sym<[>" :subid("138_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .const 'Sub' $P493 = "140_1275117582.32416"
- capture_lex $P493
- .local string rx488_tgt
- .local int rx488_pos
- .local int rx488_off
- .local int rx488_eos
- .local int rx488_rep
- .local pmc rx488_cur
- (rx488_cur, rx488_pos, rx488_tgt) = self."!cursor_start"()
- rx488_cur."!cursor_debug"("START ", "assertion:sym<[>")
- rx488_cur."!cursor_caparray"("cclass_elem")
- .lex unicode:"$\x{a2}", rx488_cur
- .local pmc match
- .lex "$/", match
- length rx488_eos, rx488_tgt
- set rx488_off, 0
- lt rx488_pos, 2, rx488_start
- sub rx488_off, rx488_pos, 1
- substr rx488_tgt, rx488_tgt, rx488_off
- rx488_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan491_done
- goto rxscan491_scan
- rxscan491_loop:
- ($P10) = rx488_cur."from"()
- inc $P10
- set rx488_pos, $P10
- ge rx488_pos, rx488_eos, rxscan491_done
- rxscan491_scan:
- set_addr $I10, rxscan491_loop
- rx488_cur."!mark_push"(0, rx488_pos, $I10)
- rxscan491_done:
+.sub "assertion:sym<[>" :subid("138_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .const 'Sub' $P498 = "140_1275811476.7961"
+ capture_lex $P498
+ .local string rx493_tgt
+ .local int rx493_pos
+ .local int rx493_off
+ .local int rx493_eos
+ .local int rx493_rep
+ .local pmc rx493_cur
+ (rx493_cur, rx493_pos, rx493_tgt) = self."!cursor_start"()
+ rx493_cur."!cursor_debug"("START ", "assertion:sym<[>")
+ rx493_cur."!cursor_caparray"("cclass_elem")
+ .lex unicode:"$\x{a2}", rx493_cur
+ .local pmc match
+ .lex "$/", match
+ length rx493_eos, rx493_tgt
+ gt rx493_pos, rx493_eos, rx493_done
+ set rx493_off, 0
+ lt rx493_pos, 2, rx493_start
+ sub rx493_off, rx493_pos, 1
+ substr rx493_tgt, rx493_tgt, rx493_off
+ rx493_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan496_done
+ goto rxscan496_scan
+ rxscan496_loop:
+ ($P10) = rx493_cur."from"()
+ inc $P10
+ set rx493_pos, $P10
+ ge rx493_pos, rx493_eos, rxscan496_done
+ rxscan496_scan:
+ set_addr $I10, rxscan496_loop
+ rx493_cur."!mark_push"(0, rx493_pos, $I10)
+ rxscan496_done:
.annotate 'line', 158
# rx subrule "before" subtype=zerowidth negate=
- rx488_cur."!cursor_pos"(rx488_pos)
- .const 'Sub' $P493 = "140_1275117582.32416"
- capture_lex $P493
- $P10 = rx488_cur."before"($P493)
- unless $P10, rx488_fail
- # rx rxquantr497 ** 1..*
- set_addr $I498, rxquantr497_done
- rx488_cur."!mark_push"(0, -1, $I498)
- rxquantr497_loop:
+ rx493_cur."!cursor_pos"(rx493_pos)
+ .const 'Sub' $P498 = "140_1275811476.7961"
+ capture_lex $P498
+ $P10 = rx493_cur."before"($P498)
+ unless $P10, rx493_fail
+ # rx rxquantr502 ** 1..*
+ set_addr $I503, rxquantr502_done
+ rx493_cur."!mark_push"(0, -1, $I503)
+ rxquantr502_loop:
# rx subrule "cclass_elem" subtype=capture negate=
- rx488_cur."!cursor_pos"(rx488_pos)
- $P10 = rx488_cur."cclass_elem"()
- unless $P10, rx488_fail
- rx488_cur."!mark_push"(0, -1, 0, $P10)
+ rx493_cur."!cursor_pos"(rx493_pos)
+ $P10 = rx493_cur."cclass_elem"()
+ unless $P10, rx493_fail
+ rx493_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("cclass_elem")
- rx488_pos = $P10."pos"()
- (rx488_rep) = rx488_cur."!mark_commit"($I498)
- rx488_cur."!mark_push"(rx488_rep, rx488_pos, $I498)
- goto rxquantr497_loop
- rxquantr497_done:
+ rx493_pos = $P10."pos"()
+ (rx493_rep) = rx493_cur."!mark_commit"($I503)
+ rx493_cur."!mark_push"(rx493_rep, rx493_pos, $I503)
+ goto rxquantr502_loop
+ rxquantr502_done:
# rx pass
- rx488_cur."!cursor_pass"(rx488_pos, "assertion:sym<[>")
- rx488_cur."!cursor_debug"("PASS ", "assertion:sym<[>", " at pos=", rx488_pos)
- .return (rx488_cur)
- rx488_fail:
+ rx493_cur."!cursor_pass"(rx493_pos, "assertion:sym<[>")
+ rx493_cur."!cursor_debug"("PASS ", "assertion:sym<[>", " at pos=", rx493_pos)
+ .return (rx493_cur)
+ rx493_fail:
.annotate 'line', 3
- (rx488_rep, rx488_pos, $I10, $P10) = rx488_cur."!mark_fail"(0)
- lt rx488_pos, -1, rx488_done
- eq rx488_pos, -1, rx488_fail
+ (rx493_rep, rx493_pos, $I10, $P10) = rx493_cur."!mark_fail"(0)
+ lt rx493_pos, -1, rx493_done
+ eq rx493_pos, -1, rx493_fail
jump $I10
- rx488_done:
- rx488_cur."!cursor_fail"()
- rx488_cur."!cursor_debug"("FAIL ", "assertion:sym<[>")
- .return (rx488_cur)
+ rx493_done:
+ rx493_cur."!cursor_fail"()
+ rx493_cur."!cursor_debug"("FAIL ", "assertion:sym<[>")
+ .return (rx493_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__assertion:sym<[>" :subid("139_1275117582.32416") :method
+.sub "!PREFIX__assertion:sym<[>" :subid("139_1275811476.7961") :method
.annotate 'line', 3
- new $P490, "ResizablePMCArray"
- push $P490, ""
- .return ($P490)
+ new $P495, "ResizablePMCArray"
+ push $P495, ""
+ .return ($P495)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block492" :anon :subid("140_1275117582.32416") :method :outer("138_1275117582.32416")
+.sub "_block497" :anon :subid("140_1275811476.7961") :method :outer("138_1275811476.7961")
.annotate 'line', 158
- .local string rx494_tgt
- .local int rx494_pos
- .local int rx494_off
- .local int rx494_eos
- .local int rx494_rep
- .local pmc rx494_cur
- (rx494_cur, rx494_pos, rx494_tgt) = self."!cursor_start"()
- rx494_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx494_cur
- .local pmc match
- .lex "$/", match
- length rx494_eos, rx494_tgt
- set rx494_off, 0
- lt rx494_pos, 2, rx494_start
- sub rx494_off, rx494_pos, 1
- substr rx494_tgt, rx494_tgt, rx494_off
- rx494_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan495_done
- goto rxscan495_scan
- rxscan495_loop:
- ($P10) = rx494_cur."from"()
- inc $P10
- set rx494_pos, $P10
- ge rx494_pos, rx494_eos, rxscan495_done
- rxscan495_scan:
- set_addr $I10, rxscan495_loop
- rx494_cur."!mark_push"(0, rx494_pos, $I10)
- rxscan495_done:
- alt496_0:
- set_addr $I10, alt496_1
- rx494_cur."!mark_push"(0, rx494_pos, $I10)
+ .local string rx499_tgt
+ .local int rx499_pos
+ .local int rx499_off
+ .local int rx499_eos
+ .local int rx499_rep
+ .local pmc rx499_cur
+ (rx499_cur, rx499_pos, rx499_tgt) = self."!cursor_start"()
+ rx499_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx499_cur
+ .local pmc match
+ .lex "$/", match
+ length rx499_eos, rx499_tgt
+ gt rx499_pos, rx499_eos, rx499_done
+ set rx499_off, 0
+ lt rx499_pos, 2, rx499_start
+ sub rx499_off, rx499_pos, 1
+ substr rx499_tgt, rx499_tgt, rx499_off
+ rx499_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan500_done
+ goto rxscan500_scan
+ rxscan500_loop:
+ ($P10) = rx499_cur."from"()
+ inc $P10
+ set rx499_pos, $P10
+ ge rx499_pos, rx499_eos, rxscan500_done
+ rxscan500_scan:
+ set_addr $I10, rxscan500_loop
+ rx499_cur."!mark_push"(0, rx499_pos, $I10)
+ rxscan500_done:
+ alt501_0:
+ set_addr $I10, alt501_1
+ rx499_cur."!mark_push"(0, rx499_pos, $I10)
# rx literal "["
- add $I11, rx494_pos, 1
- gt $I11, rx494_eos, rx494_fail
- sub $I11, rx494_pos, rx494_off
- substr $S10, rx494_tgt, $I11, 1
- ne $S10, "[", rx494_fail
- add rx494_pos, 1
- goto alt496_end
- alt496_1:
- set_addr $I10, alt496_2
- rx494_cur."!mark_push"(0, rx494_pos, $I10)
+ add $I11, rx499_pos, 1
+ gt $I11, rx499_eos, rx499_fail
+ sub $I11, rx499_pos, rx499_off
+ substr $S10, rx499_tgt, $I11, 1
+ ne $S10, "[", rx499_fail
+ add rx499_pos, 1
+ goto alt501_end
+ alt501_1:
+ set_addr $I10, alt501_2
+ rx499_cur."!mark_push"(0, rx499_pos, $I10)
# rx literal "+"
- add $I11, rx494_pos, 1
- gt $I11, rx494_eos, rx494_fail
- sub $I11, rx494_pos, rx494_off
- substr $S10, rx494_tgt, $I11, 1
- ne $S10, "+", rx494_fail
- add rx494_pos, 1
- goto alt496_end
- alt496_2:
+ add $I11, rx499_pos, 1
+ gt $I11, rx499_eos, rx499_fail
+ sub $I11, rx499_pos, rx499_off
+ substr $S10, rx499_tgt, $I11, 1
+ ne $S10, "+", rx499_fail
+ add rx499_pos, 1
+ goto alt501_end
+ alt501_2:
# rx literal "-"
- add $I11, rx494_pos, 1
- gt $I11, rx494_eos, rx494_fail
- sub $I11, rx494_pos, rx494_off
- substr $S10, rx494_tgt, $I11, 1
- ne $S10, "-", rx494_fail
- add rx494_pos, 1
- alt496_end:
- # rx pass
- rx494_cur."!cursor_pass"(rx494_pos, "")
- rx494_cur."!cursor_debug"("PASS ", "", " at pos=", rx494_pos)
- .return (rx494_cur)
- rx494_fail:
- (rx494_rep, rx494_pos, $I10, $P10) = rx494_cur."!mark_fail"(0)
- lt rx494_pos, -1, rx494_done
- eq rx494_pos, -1, rx494_fail
- jump $I10
- rx494_done:
- rx494_cur."!cursor_fail"()
- rx494_cur."!cursor_debug"("FAIL ", "")
- .return (rx494_cur)
+ add $I11, rx499_pos, 1
+ gt $I11, rx499_eos, rx499_fail
+ sub $I11, rx499_pos, rx499_off
+ substr $S10, rx499_tgt, $I11, 1
+ ne $S10, "-", rx499_fail
+ add rx499_pos, 1
+ alt501_end:
+ # rx pass
+ rx499_cur."!cursor_pass"(rx499_pos, "")
+ rx499_cur."!cursor_debug"("PASS ", "", " at pos=", rx499_pos)
+ .return (rx499_cur)
+ rx499_fail:
+ (rx499_rep, rx499_pos, $I10, $P10) = rx499_cur."!mark_fail"(0)
+ lt rx499_pos, -1, rx499_done
+ eq rx499_pos, -1, rx499_fail
+ jump $I10
+ rx499_done:
+ rx499_cur."!cursor_fail"()
+ rx499_cur."!cursor_debug"("FAIL ", "")
+ .return (rx499_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "cclass_elem" :subid("141_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .const 'Sub' $P511 = "143_1275117582.32416"
- capture_lex $P511
- .local string rx500_tgt
- .local int rx500_pos
- .local int rx500_off
- .local int rx500_eos
- .local int rx500_rep
- .local pmc rx500_cur
- (rx500_cur, rx500_pos, rx500_tgt) = self."!cursor_start"()
- rx500_cur."!cursor_debug"("START ", "cclass_elem")
- rx500_cur."!cursor_caparray"("charspec")
- .lex unicode:"$\x{a2}", rx500_cur
- .local pmc match
- .lex "$/", match
- length rx500_eos, rx500_tgt
- set rx500_off, 0
- lt rx500_pos, 2, rx500_start
- sub rx500_off, rx500_pos, 1
- substr rx500_tgt, rx500_tgt, rx500_off
- rx500_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan503_done
- goto rxscan503_scan
- rxscan503_loop:
- ($P10) = rx500_cur."from"()
- inc $P10
- set rx500_pos, $P10
- ge rx500_pos, rx500_eos, rxscan503_done
- rxscan503_scan:
- set_addr $I10, rxscan503_loop
- rx500_cur."!mark_push"(0, rx500_pos, $I10)
- rxscan503_done:
+.sub "cclass_elem" :subid("141_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .const 'Sub' $P516 = "143_1275811476.7961"
+ capture_lex $P516
+ .local string rx505_tgt
+ .local int rx505_pos
+ .local int rx505_off
+ .local int rx505_eos
+ .local int rx505_rep
+ .local pmc rx505_cur
+ (rx505_cur, rx505_pos, rx505_tgt) = self."!cursor_start"()
+ rx505_cur."!cursor_debug"("START ", "cclass_elem")
+ rx505_cur."!cursor_caparray"("charspec")
+ .lex unicode:"$\x{a2}", rx505_cur
+ .local pmc match
+ .lex "$/", match
+ length rx505_eos, rx505_tgt
+ gt rx505_pos, rx505_eos, rx505_done
+ set rx505_off, 0
+ lt rx505_pos, 2, rx505_start
+ sub rx505_off, rx505_pos, 1
+ substr rx505_tgt, rx505_tgt, rx505_off
+ rx505_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan508_done
+ goto rxscan508_scan
+ rxscan508_loop:
+ ($P10) = rx505_cur."from"()
+ inc $P10
+ set rx505_pos, $P10
+ ge rx505_pos, rx505_eos, rxscan508_done
+ rxscan508_scan:
+ set_addr $I10, rxscan508_loop
+ rx505_cur."!mark_push"(0, rx505_pos, $I10)
+ rxscan508_done:
.annotate 'line', 161
# rx subcapture "sign"
- set_addr $I10, rxcap_505_fail
- rx500_cur."!mark_push"(0, rx500_pos, $I10)
- alt504_0:
- set_addr $I10, alt504_1
- rx500_cur."!mark_push"(0, rx500_pos, $I10)
+ set_addr $I10, rxcap_510_fail
+ rx505_cur."!mark_push"(0, rx505_pos, $I10)
+ alt509_0:
+ set_addr $I10, alt509_1
+ rx505_cur."!mark_push"(0, rx505_pos, $I10)
# rx literal "+"
- add $I11, rx500_pos, 1
- gt $I11, rx500_eos, rx500_fail
- sub $I11, rx500_pos, rx500_off
- substr $S10, rx500_tgt, $I11, 1
- ne $S10, "+", rx500_fail
- add rx500_pos, 1
- goto alt504_end
- alt504_1:
- set_addr $I10, alt504_2
- rx500_cur."!mark_push"(0, rx500_pos, $I10)
+ add $I11, rx505_pos, 1
+ gt $I11, rx505_eos, rx505_fail
+ sub $I11, rx505_pos, rx505_off
+ substr $S10, rx505_tgt, $I11, 1
+ ne $S10, "+", rx505_fail
+ add rx505_pos, 1
+ goto alt509_end
+ alt509_1:
+ set_addr $I10, alt509_2
+ rx505_cur."!mark_push"(0, rx505_pos, $I10)
# rx literal "-"
- add $I11, rx500_pos, 1
- gt $I11, rx500_eos, rx500_fail
- sub $I11, rx500_pos, rx500_off
- substr $S10, rx500_tgt, $I11, 1
- ne $S10, "-", rx500_fail
- add rx500_pos, 1
- goto alt504_end
- alt504_2:
- alt504_end:
- set_addr $I10, rxcap_505_fail
- ($I12, $I11) = rx500_cur."!mark_peek"($I10)
- rx500_cur."!cursor_pos"($I11)
- ($P10) = rx500_cur."!cursor_start"()
- $P10."!cursor_pass"(rx500_pos, "")
- rx500_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx505_pos, 1
+ gt $I11, rx505_eos, rx505_fail
+ sub $I11, rx505_pos, rx505_off
+ substr $S10, rx505_tgt, $I11, 1
+ ne $S10, "-", rx505_fail
+ add rx505_pos, 1
+ goto alt509_end
+ alt509_2:
+ alt509_end:
+ set_addr $I10, rxcap_510_fail
+ ($I12, $I11) = rx505_cur."!mark_peek"($I10)
+ rx505_cur."!cursor_pos"($I11)
+ ($P10) = rx505_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx505_pos, "")
+ rx505_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sign")
- goto rxcap_505_done
- rxcap_505_fail:
- goto rx500_fail
- rxcap_505_done:
+ goto rxcap_510_done
+ rxcap_510_fail:
+ goto rx505_fail
+ rxcap_510_done:
.annotate 'line', 162
- # rx rxquantr506 ** 0..1
- set_addr $I507, rxquantr506_done
- rx500_cur."!mark_push"(0, rx500_pos, $I507)
- rxquantr506_loop:
+ # rx rxquantr511 ** 0..1
+ set_addr $I512, rxquantr511_done
+ rx505_cur."!mark_push"(0, rx505_pos, $I512)
+ rxquantr511_loop:
# rx subrule "normspace" subtype=method negate=
- rx500_cur."!cursor_pos"(rx500_pos)
- $P10 = rx500_cur."normspace"()
- unless $P10, rx500_fail
- rx500_pos = $P10."pos"()
- (rx500_rep) = rx500_cur."!mark_commit"($I507)
- rxquantr506_done:
- alt508_0:
+ rx505_cur."!cursor_pos"(rx505_pos)
+ $P10 = rx505_cur."normspace"()
+ unless $P10, rx505_fail
+ rx505_pos = $P10."pos"()
+ (rx505_rep) = rx505_cur."!mark_commit"($I512)
+ rxquantr511_done:
+ alt513_0:
.annotate 'line', 163
- set_addr $I10, alt508_1
- rx500_cur."!mark_push"(0, rx500_pos, $I10)
+ set_addr $I10, alt513_1
+ rx505_cur."!mark_push"(0, rx505_pos, $I10)
.annotate 'line', 164
# rx literal "["
- add $I11, rx500_pos, 1
- gt $I11, rx500_eos, rx500_fail
- sub $I11, rx500_pos, rx500_off
- substr $S10, rx500_tgt, $I11, 1
- ne $S10, "[", rx500_fail
- add rx500_pos, 1
+ add $I11, rx505_pos, 1
+ gt $I11, rx505_eos, rx505_fail
+ sub $I11, rx505_pos, rx505_off
+ substr $S10, rx505_tgt, $I11, 1
+ ne $S10, "[", rx505_fail
+ add rx505_pos, 1
.annotate 'line', 167
- # rx rxquantr509 ** 0..*
- set_addr $I530, rxquantr509_done
- rx500_cur."!mark_push"(0, rx500_pos, $I530)
- rxquantr509_loop:
+ # rx rxquantr514 ** 0..*
+ set_addr $I535, rxquantr514_done
+ rx505_cur."!mark_push"(0, rx505_pos, $I535)
+ rxquantr514_loop:
.annotate 'line', 164
- # rx subrule $P511 subtype=capture negate=
- rx500_cur."!cursor_pos"(rx500_pos)
- .const 'Sub' $P511 = "143_1275117582.32416"
- capture_lex $P511
- $P10 = rx500_cur.$P511()
- unless $P10, rx500_fail
- rx500_cur."!mark_push"(0, -1, 0, $P10)
+ # rx subrule $P516 subtype=capture negate=
+ rx505_cur."!cursor_pos"(rx505_pos)
+ .const 'Sub' $P516 = "143_1275811476.7961"
+ capture_lex $P516
+ $P10 = rx505_cur.$P516()
+ unless $P10, rx505_fail
+ rx505_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("charspec")
- rx500_pos = $P10."pos"()
+ rx505_pos = $P10."pos"()
.annotate 'line', 167
- (rx500_rep) = rx500_cur."!mark_commit"($I530)
- rx500_cur."!mark_push"(rx500_rep, rx500_pos, $I530)
- goto rxquantr509_loop
- rxquantr509_done:
+ (rx505_rep) = rx505_cur."!mark_commit"($I535)
+ rx505_cur."!mark_push"(rx505_rep, rx505_pos, $I535)
+ goto rxquantr514_loop
+ rxquantr514_done:
.annotate 'line', 168
# rx charclass_q s r 0..-1
- sub $I10, rx500_pos, rx500_off
- find_not_cclass $I11, 32, rx500_tgt, $I10, rx500_eos
- add rx500_pos, rx500_off, $I11
+ sub $I10, rx505_pos, rx505_off
+ find_not_cclass $I11, 32, rx505_tgt, $I10, rx505_eos
+ add rx505_pos, rx505_off, $I11
# rx literal "]"
- add $I11, rx500_pos, 1
- gt $I11, rx500_eos, rx500_fail
- sub $I11, rx500_pos, rx500_off
- substr $S10, rx500_tgt, $I11, 1
- ne $S10, "]", rx500_fail
- add rx500_pos, 1
+ add $I11, rx505_pos, 1
+ gt $I11, rx505_eos, rx505_fail
+ sub $I11, rx505_pos, rx505_off
+ substr $S10, rx505_tgt, $I11, 1
+ ne $S10, "]", rx505_fail
+ add rx505_pos, 1
.annotate 'line', 164
- goto alt508_end
- alt508_1:
+ goto alt513_end
+ alt513_1:
.annotate 'line', 169
# rx subcapture "name"
- set_addr $I10, rxcap_531_fail
- rx500_cur."!mark_push"(0, rx500_pos, $I10)
+ set_addr $I10, rxcap_536_fail
+ rx505_cur."!mark_push"(0, rx505_pos, $I10)
# rx charclass_q w r 1..-1
- sub $I10, rx500_pos, rx500_off
- find_not_cclass $I11, 8192, rx500_tgt, $I10, rx500_eos
+ sub $I10, rx505_pos, rx505_off
+ find_not_cclass $I11, 8192, rx505_tgt, $I10, rx505_eos
add $I12, $I10, 1
- lt $I11, $I12, rx500_fail
- add rx500_pos, rx500_off, $I11
- set_addr $I10, rxcap_531_fail
- ($I12, $I11) = rx500_cur."!mark_peek"($I10)
- rx500_cur."!cursor_pos"($I11)
- ($P10) = rx500_cur."!cursor_start"()
- $P10."!cursor_pass"(rx500_pos, "")
- rx500_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx505_fail
+ add rx505_pos, rx505_off, $I11
+ set_addr $I10, rxcap_536_fail
+ ($I12, $I11) = rx505_cur."!mark_peek"($I10)
+ rx505_cur."!cursor_pos"($I11)
+ ($P10) = rx505_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx505_pos, "")
+ rx505_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("name")
- goto rxcap_531_done
- rxcap_531_fail:
- goto rx500_fail
- rxcap_531_done:
- alt508_end:
+ goto rxcap_536_done
+ rxcap_536_fail:
+ goto rx505_fail
+ rxcap_536_done:
+ alt513_end:
.annotate 'line', 171
- # rx rxquantr532 ** 0..1
- set_addr $I533, rxquantr532_done
- rx500_cur."!mark_push"(0, rx500_pos, $I533)
- rxquantr532_loop:
+ # rx rxquantr537 ** 0..1
+ set_addr $I538, rxquantr537_done
+ rx505_cur."!mark_push"(0, rx505_pos, $I538)
+ rxquantr537_loop:
# rx subrule "normspace" subtype=method negate=
- rx500_cur."!cursor_pos"(rx500_pos)
- $P10 = rx500_cur."normspace"()
- unless $P10, rx500_fail
- rx500_pos = $P10."pos"()
- (rx500_rep) = rx500_cur."!mark_commit"($I533)
- rxquantr532_done:
+ rx505_cur."!cursor_pos"(rx505_pos)
+ $P10 = rx505_cur."normspace"()
+ unless $P10, rx505_fail
+ rx505_pos = $P10."pos"()
+ (rx505_rep) = rx505_cur."!mark_commit"($I538)
+ rxquantr537_done:
.annotate 'line', 160
# rx pass
- rx500_cur."!cursor_pass"(rx500_pos, "cclass_elem")
- rx500_cur."!cursor_debug"("PASS ", "cclass_elem", " at pos=", rx500_pos)
- .return (rx500_cur)
- rx500_fail:
+ rx505_cur."!cursor_pass"(rx505_pos, "cclass_elem")
+ rx505_cur."!cursor_debug"("PASS ", "cclass_elem", " at pos=", rx505_pos)
+ .return (rx505_cur)
+ rx505_fail:
.annotate 'line', 3
- (rx500_rep, rx500_pos, $I10, $P10) = rx500_cur."!mark_fail"(0)
- lt rx500_pos, -1, rx500_done
- eq rx500_pos, -1, rx500_fail
+ (rx505_rep, rx505_pos, $I10, $P10) = rx505_cur."!mark_fail"(0)
+ lt rx505_pos, -1, rx505_done
+ eq rx505_pos, -1, rx505_fail
jump $I10
- rx500_done:
- rx500_cur."!cursor_fail"()
- rx500_cur."!cursor_debug"("FAIL ", "cclass_elem")
- .return (rx500_cur)
+ rx505_done:
+ rx505_cur."!cursor_fail"()
+ rx505_cur."!cursor_debug"("FAIL ", "cclass_elem")
+ .return (rx505_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__cclass_elem" :subid("142_1275117582.32416") :method
+.sub "!PREFIX__cclass_elem" :subid("142_1275811476.7961") :method
.annotate 'line', 3
- new $P502, "ResizablePMCArray"
- push $P502, ""
- push $P502, "-"
- push $P502, "+"
- .return ($P502)
+ new $P507, "ResizablePMCArray"
+ push $P507, ""
+ push $P507, "-"
+ push $P507, "+"
+ .return ($P507)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block510" :anon :subid("143_1275117582.32416") :method :outer("141_1275117582.32416")
+.sub "_block515" :anon :subid("143_1275811476.7961") :method :outer("141_1275811476.7961")
.annotate 'line', 164
- .const 'Sub' $P526 = "146_1275117582.32416"
+ .const 'Sub' $P531 = "146_1275811476.7961"
+ capture_lex $P531
+ .const 'Sub' $P526 = "145_1275811476.7961"
capture_lex $P526
- .const 'Sub' $P521 = "145_1275117582.32416"
- capture_lex $P521
- .const 'Sub' $P517 = "144_1275117582.32416"
- capture_lex $P517
- .local string rx512_tgt
- .local int rx512_pos
- .local int rx512_off
- .local int rx512_eos
- .local int rx512_rep
- .local pmc rx512_cur
- (rx512_cur, rx512_pos, rx512_tgt) = self."!cursor_start"()
- rx512_cur."!cursor_debug"("START ", "")
- rx512_cur."!cursor_caparray"("1")
- .lex unicode:"$\x{a2}", rx512_cur
- .local pmc match
- .lex "$/", match
- length rx512_eos, rx512_tgt
- set rx512_off, 0
- lt rx512_pos, 2, rx512_start
- sub rx512_off, rx512_pos, 1
- substr rx512_tgt, rx512_tgt, rx512_off
- rx512_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan513_done
- goto rxscan513_scan
- rxscan513_loop:
- ($P10) = rx512_cur."from"()
- inc $P10
- set rx512_pos, $P10
- ge rx512_pos, rx512_eos, rxscan513_done
- rxscan513_scan:
- set_addr $I10, rxscan513_loop
- rx512_cur."!mark_push"(0, rx512_pos, $I10)
- rxscan513_done:
- alt514_0:
- set_addr $I10, alt514_1
- rx512_cur."!mark_push"(0, rx512_pos, $I10)
+ .const 'Sub' $P522 = "144_1275811476.7961"
+ capture_lex $P522
+ .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 ", "")
+ rx517_cur."!cursor_caparray"("1")
+ .lex unicode:"$\x{a2}", rx517_cur
+ .local pmc match
+ .lex "$/", match
+ length rx517_eos, rx517_tgt
+ gt rx517_pos, rx517_eos, rx517_done
+ 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, rxscan518_done
+ goto rxscan518_scan
+ rxscan518_loop:
+ ($P10) = rx517_cur."from"()
+ inc $P10
+ set rx517_pos, $P10
+ ge rx517_pos, rx517_eos, rxscan518_done
+ rxscan518_scan:
+ set_addr $I10, rxscan518_loop
+ rx517_cur."!mark_push"(0, rx517_pos, $I10)
+ rxscan518_done:
+ alt519_0:
+ set_addr $I10, alt519_1
+ rx517_cur."!mark_push"(0, rx517_pos, $I10)
.annotate 'line', 165
# rx charclass_q s r 0..-1
- sub $I10, rx512_pos, rx512_off
- find_not_cclass $I11, 32, rx512_tgt, $I10, rx512_eos
- add rx512_pos, rx512_off, $I11
+ sub $I10, rx517_pos, rx517_off
+ find_not_cclass $I11, 32, rx517_tgt, $I10, rx517_eos
+ add rx517_pos, rx517_off, $I11
# rx literal "-"
- add $I11, rx512_pos, 1
- gt $I11, rx512_eos, rx512_fail
- sub $I11, rx512_pos, rx512_off
- substr $S10, rx512_tgt, $I11, 1
- ne $S10, "-", rx512_fail
- add rx512_pos, 1
+ add $I11, rx517_pos, 1
+ gt $I11, rx517_eos, rx517_fail
+ sub $I11, rx517_pos, rx517_off
+ substr $S10, rx517_tgt, $I11, 1
+ ne $S10, "-", rx517_fail
+ add rx517_pos, 1
# rx subrule "obs" subtype=method negate=
- rx512_cur."!cursor_pos"(rx512_pos)
- $P10 = rx512_cur."obs"("hyphen in enumerated character class", "..")
- unless $P10, rx512_fail
- rx512_pos = $P10."pos"()
- goto alt514_end
- alt514_1:
+ rx517_cur."!cursor_pos"(rx517_pos)
+ $P10 = rx517_cur."obs"("hyphen in enumerated character class", "..")
+ unless $P10, rx517_fail
+ rx517_pos = $P10."pos"()
+ goto alt519_end
+ alt519_1:
.annotate 'line', 166
# rx charclass_q s r 0..-1
- sub $I10, rx512_pos, rx512_off
- find_not_cclass $I11, 32, rx512_tgt, $I10, rx512_eos
- add rx512_pos, rx512_off, $I11
- alt515_0:
- set_addr $I10, alt515_1
- rx512_cur."!mark_push"(0, rx512_pos, $I10)
+ sub $I10, rx517_pos, rx517_off
+ find_not_cclass $I11, 32, rx517_tgt, $I10, rx517_eos
+ add rx517_pos, rx517_off, $I11
+ alt520_0:
+ set_addr $I10, alt520_1
+ rx517_cur."!mark_push"(0, rx517_pos, $I10)
# rx literal "\\"
- add $I11, rx512_pos, 1
- gt $I11, rx512_eos, rx512_fail
- sub $I11, rx512_pos, rx512_off
- substr $S10, rx512_tgt, $I11, 1
- ne $S10, "\\", rx512_fail
- add rx512_pos, 1
- # rx subrule $P517 subtype=capture negate=
- rx512_cur."!cursor_pos"(rx512_pos)
- .const 'Sub' $P517 = "144_1275117582.32416"
- capture_lex $P517
- $P10 = rx512_cur.$P517()
- unless $P10, rx512_fail
- rx512_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx517_pos, 1
+ gt $I11, rx517_eos, rx517_fail
+ sub $I11, rx517_pos, rx517_off
+ substr $S10, rx517_tgt, $I11, 1
+ ne $S10, "\\", rx517_fail
+ add rx517_pos, 1
+ # rx subrule $P522 subtype=capture negate=
+ rx517_cur."!cursor_pos"(rx517_pos)
+ .const 'Sub' $P522 = "144_1275811476.7961"
+ capture_lex $P522
+ $P10 = rx517_cur.$P522()
+ unless $P10, rx517_fail
+ rx517_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"(0)
- rx512_pos = $P10."pos"()
- goto alt515_end
- alt515_1:
- # rx subrule $P521 subtype=capture negate=
- rx512_cur."!cursor_pos"(rx512_pos)
- .const 'Sub' $P521 = "145_1275117582.32416"
- capture_lex $P521
- $P10 = rx512_cur.$P521()
- unless $P10, rx512_fail
- rx512_cur."!mark_push"(0, -1, 0, $P10)
+ rx517_pos = $P10."pos"()
+ goto alt520_end
+ alt520_1:
+ # rx subrule $P526 subtype=capture negate=
+ rx517_cur."!cursor_pos"(rx517_pos)
+ .const 'Sub' $P526 = "145_1275811476.7961"
+ capture_lex $P526
+ $P10 = rx517_cur.$P526()
+ unless $P10, rx517_fail
+ rx517_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"(0)
- rx512_pos = $P10."pos"()
- alt515_end:
- # rx rxquantr524 ** 0..1
- set_addr $I529, rxquantr524_done
- rx512_cur."!mark_push"(0, rx512_pos, $I529)
- rxquantr524_loop:
+ rx517_pos = $P10."pos"()
+ alt520_end:
+ # rx rxquantr529 ** 0..1
+ set_addr $I534, rxquantr529_done
+ rx517_cur."!mark_push"(0, rx517_pos, $I534)
+ rxquantr529_loop:
# rx charclass_q s r 0..-1
- sub $I10, rx512_pos, rx512_off
- find_not_cclass $I11, 32, rx512_tgt, $I10, rx512_eos
- add rx512_pos, rx512_off, $I11
+ sub $I10, rx517_pos, rx517_off
+ find_not_cclass $I11, 32, rx517_tgt, $I10, rx517_eos
+ add rx517_pos, rx517_off, $I11
# rx literal ".."
- add $I11, rx512_pos, 2
- gt $I11, rx512_eos, rx512_fail
- sub $I11, rx512_pos, rx512_off
- substr $S10, rx512_tgt, $I11, 2
- ne $S10, "..", rx512_fail
- add rx512_pos, 2
+ add $I11, rx517_pos, 2
+ gt $I11, rx517_eos, rx517_fail
+ sub $I11, rx517_pos, rx517_off
+ substr $S10, rx517_tgt, $I11, 2
+ ne $S10, "..", rx517_fail
+ add rx517_pos, 2
# rx charclass_q s r 0..-1
- sub $I10, rx512_pos, rx512_off
- find_not_cclass $I11, 32, rx512_tgt, $I10, rx512_eos
- add rx512_pos, rx512_off, $I11
- # rx subrule $P526 subtype=capture negate=
- rx512_cur."!cursor_pos"(rx512_pos)
- .const 'Sub' $P526 = "146_1275117582.32416"
- capture_lex $P526
- $P10 = rx512_cur.$P526()
- unless $P10, rx512_fail
- rx512_cur."!mark_push"(0, -1, 0, $P10)
+ sub $I10, rx517_pos, rx517_off
+ find_not_cclass $I11, 32, rx517_tgt, $I10, rx517_eos
+ add rx517_pos, rx517_off, $I11
+ # rx subrule $P531 subtype=capture negate=
+ rx517_cur."!cursor_pos"(rx517_pos)
+ .const 'Sub' $P531 = "146_1275811476.7961"
+ capture_lex $P531
+ $P10 = rx517_cur.$P531()
+ unless $P10, rx517_fail
+ rx517_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("1")
- rx512_pos = $P10."pos"()
- (rx512_rep) = rx512_cur."!mark_commit"($I529)
- rxquantr524_done:
- alt514_end:
+ rx517_pos = $P10."pos"()
+ (rx517_rep) = rx517_cur."!mark_commit"($I534)
+ rxquantr529_done:
+ alt519_end:
.annotate 'line', 164
# rx pass
- rx512_cur."!cursor_pass"(rx512_pos, "")
- rx512_cur."!cursor_debug"("PASS ", "", " at pos=", rx512_pos)
- .return (rx512_cur)
- rx512_fail:
- (rx512_rep, rx512_pos, $I10, $P10) = rx512_cur."!mark_fail"(0)
- lt rx512_pos, -1, rx512_done
- eq rx512_pos, -1, rx512_fail
+ rx517_cur."!cursor_pass"(rx517_pos, "")
+ rx517_cur."!cursor_debug"("PASS ", "", " at pos=", rx517_pos)
+ .return (rx517_cur)
+ rx517_fail:
+ (rx517_rep, rx517_pos, $I10, $P10) = rx517_cur."!mark_fail"(0)
+ lt rx517_pos, -1, rx517_done
+ eq rx517_pos, -1, rx517_fail
jump $I10
- rx512_done:
- rx512_cur."!cursor_fail"()
- rx512_cur."!cursor_debug"("FAIL ", "")
- .return (rx512_cur)
+ rx517_done:
+ rx517_cur."!cursor_fail"()
+ rx517_cur."!cursor_debug"("FAIL ", "")
+ .return (rx517_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block516" :anon :subid("144_1275117582.32416") :method :outer("143_1275117582.32416")
+.sub "_block521" :anon :subid("144_1275811476.7961") :method :outer("143_1275811476.7961")
.annotate 'line', 166
- .local string rx518_tgt
- .local int rx518_pos
- .local int rx518_off
- .local int rx518_eos
- .local int rx518_rep
- .local pmc rx518_cur
- (rx518_cur, rx518_pos, rx518_tgt) = self."!cursor_start"()
- rx518_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx518_cur
- .local pmc match
- .lex "$/", match
- length rx518_eos, rx518_tgt
- set rx518_off, 0
- lt rx518_pos, 2, rx518_start
- sub rx518_off, rx518_pos, 1
- substr rx518_tgt, rx518_tgt, rx518_off
- rx518_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan519_done
- goto rxscan519_scan
- rxscan519_loop:
- ($P10) = rx518_cur."from"()
- inc $P10
- set rx518_pos, $P10
- ge rx518_pos, rx518_eos, rxscan519_done
- rxscan519_scan:
- set_addr $I10, rxscan519_loop
- rx518_cur."!mark_push"(0, rx518_pos, $I10)
- rxscan519_done:
+ .local string rx523_tgt
+ .local int rx523_pos
+ .local int rx523_off
+ .local int rx523_eos
+ .local int rx523_rep
+ .local pmc rx523_cur
+ (rx523_cur, rx523_pos, rx523_tgt) = self."!cursor_start"()
+ rx523_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx523_cur
+ .local pmc match
+ .lex "$/", match
+ length rx523_eos, rx523_tgt
+ gt rx523_pos, rx523_eos, rx523_done
+ set rx523_off, 0
+ lt rx523_pos, 2, rx523_start
+ sub rx523_off, rx523_pos, 1
+ substr rx523_tgt, rx523_tgt, rx523_off
+ rx523_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan524_done
+ goto rxscan524_scan
+ rxscan524_loop:
+ ($P10) = rx523_cur."from"()
+ inc $P10
+ set rx523_pos, $P10
+ ge rx523_pos, rx523_eos, rxscan524_done
+ rxscan524_scan:
+ set_addr $I10, rxscan524_loop
+ rx523_cur."!mark_push"(0, rx523_pos, $I10)
+ rxscan524_done:
# rx charclass .
- ge rx518_pos, rx518_eos, rx518_fail
- inc rx518_pos
- # rx pass
- rx518_cur."!cursor_pass"(rx518_pos, "")
- rx518_cur."!cursor_debug"("PASS ", "", " at pos=", rx518_pos)
- .return (rx518_cur)
- rx518_fail:
- (rx518_rep, rx518_pos, $I10, $P10) = rx518_cur."!mark_fail"(0)
- lt rx518_pos, -1, rx518_done
- eq rx518_pos, -1, rx518_fail
- jump $I10
- rx518_done:
- rx518_cur."!cursor_fail"()
- rx518_cur."!cursor_debug"("FAIL ", "")
- .return (rx518_cur)
- .return ()
-.end
-
-
-.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block520" :anon :subid("145_1275117582.32416") :method :outer("143_1275117582.32416")
-.annotate 'line', 166
- .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 ", "")
- .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, rxscan523_done
- goto rxscan523_scan
- rxscan523_loop:
- ($P10) = rx522_cur."from"()
- inc $P10
- set rx522_pos, $P10
- ge rx522_pos, rx522_eos, rxscan523_done
- rxscan523_scan:
- set_addr $I10, rxscan523_loop
- rx522_cur."!mark_push"(0, rx522_pos, $I10)
- rxscan523_done:
- # rx enumcharlist negate=1
- ge rx522_pos, rx522_eos, rx522_fail
- sub $I10, rx522_pos, rx522_off
- substr $S10, rx522_tgt, $I10, 1
- index $I11, "]\\", $S10
- ge $I11, 0, rx522_fail
- inc rx522_pos
+ ge rx523_pos, rx523_eos, rx523_fail
+ inc rx523_pos
# rx pass
- rx522_cur."!cursor_pass"(rx522_pos, "")
- rx522_cur."!cursor_debug"("PASS ", "", " at pos=", rx522_pos)
- .return (rx522_cur)
- rx522_fail:
- (rx522_rep, rx522_pos, $I10, $P10) = rx522_cur."!mark_fail"(0)
- lt rx522_pos, -1, rx522_done
- eq rx522_pos, -1, rx522_fail
+ rx523_cur."!cursor_pass"(rx523_pos, "")
+ rx523_cur."!cursor_debug"("PASS ", "", " at pos=", rx523_pos)
+ .return (rx523_cur)
+ rx523_fail:
+ (rx523_rep, rx523_pos, $I10, $P10) = rx523_cur."!mark_fail"(0)
+ lt rx523_pos, -1, rx523_done
+ eq rx523_pos, -1, rx523_fail
jump $I10
- rx522_done:
- rx522_cur."!cursor_fail"()
- rx522_cur."!cursor_debug"("FAIL ", "")
- .return (rx522_cur)
+ rx523_done:
+ rx523_cur."!cursor_fail"()
+ rx523_cur."!cursor_debug"("FAIL ", "")
+ .return (rx523_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block525" :anon :subid("146_1275117582.32416") :method :outer("143_1275117582.32416")
+.sub "_block525" :anon :subid("145_1275811476.7961") :method :outer("143_1275811476.7961")
.annotate 'line', 166
.local string rx527_tgt
.local int rx527_pos
@@ -6600,6 +6631,7 @@
.local pmc match
.lex "$/", match
length rx527_eos, rx527_tgt
+ gt rx527_pos, rx527_eos, rx527_done
set rx527_off, 0
lt rx527_pos, 2, rx527_start
sub rx527_off, rx527_pos, 1
@@ -6617,8 +6649,12 @@
set_addr $I10, rxscan528_loop
rx527_cur."!mark_push"(0, rx527_pos, $I10)
rxscan528_done:
- # rx charclass .
+ # rx enumcharlist negate=1
ge rx527_pos, rx527_eos, rx527_fail
+ sub $I10, rx527_pos, rx527_off
+ substr $S10, rx527_tgt, $I10, 1
+ index $I11, "]\\", $S10
+ ge $I11, 0, rx527_fail
inc rx527_pos
# rx pass
rx527_cur."!cursor_pass"(rx527_pos, "")
@@ -6638,557 +6674,615 @@
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_internal" :subid("147_1275117582.32416") :method :outer("11_1275117582.32416")
-.annotate 'line', 3
- .const 'Sub' $P543 = "149_1275117582.32416"
- capture_lex $P543
- .local string rx535_tgt
- .local int rx535_pos
- .local int rx535_off
- .local int rx535_eos
- .local int rx535_rep
- .local pmc rx535_cur
- (rx535_cur, rx535_pos, rx535_tgt) = self."!cursor_start"()
- rx535_cur."!cursor_debug"("START ", "mod_internal")
- rx535_cur."!cursor_caparray"("n")
- .lex unicode:"$\x{a2}", rx535_cur
- .local pmc match
- .lex "$/", match
- length rx535_eos, rx535_tgt
- set rx535_off, 0
- lt rx535_pos, 2, rx535_start
- sub rx535_off, rx535_pos, 1
- substr rx535_tgt, rx535_tgt, rx535_off
- rx535_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan539_done
- goto rxscan539_scan
- rxscan539_loop:
- ($P10) = rx535_cur."from"()
- inc $P10
- set rx535_pos, $P10
- ge rx535_pos, rx535_eos, rxscan539_done
- rxscan539_scan:
- set_addr $I10, rxscan539_loop
- rx535_cur."!mark_push"(0, rx535_pos, $I10)
- rxscan539_done:
- alt540_0:
+.sub "_block530" :anon :subid("146_1275811476.7961") :method :outer("143_1275811476.7961")
+.annotate 'line', 166
+ .local string rx532_tgt
+ .local int rx532_pos
+ .local int rx532_off
+ .local int rx532_eos
+ .local int rx532_rep
+ .local pmc rx532_cur
+ (rx532_cur, rx532_pos, rx532_tgt) = self."!cursor_start"()
+ rx532_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx532_cur
+ .local pmc match
+ .lex "$/", match
+ length rx532_eos, rx532_tgt
+ gt rx532_pos, rx532_eos, rx532_done
+ set rx532_off, 0
+ lt rx532_pos, 2, rx532_start
+ sub rx532_off, rx532_pos, 1
+ substr rx532_tgt, rx532_tgt, rx532_off
+ rx532_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan533_done
+ goto rxscan533_scan
+ rxscan533_loop:
+ ($P10) = rx532_cur."from"()
+ inc $P10
+ set rx532_pos, $P10
+ ge rx532_pos, rx532_eos, rxscan533_done
+ rxscan533_scan:
+ set_addr $I10, rxscan533_loop
+ rx532_cur."!mark_push"(0, rx532_pos, $I10)
+ rxscan533_done:
+ # rx charclass .
+ ge rx532_pos, rx532_eos, rx532_fail
+ inc rx532_pos
+ # rx pass
+ rx532_cur."!cursor_pass"(rx532_pos, "")
+ rx532_cur."!cursor_debug"("PASS ", "", " at pos=", rx532_pos)
+ .return (rx532_cur)
+ rx532_fail:
+ (rx532_rep, rx532_pos, $I10, $P10) = rx532_cur."!mark_fail"(0)
+ lt rx532_pos, -1, rx532_done
+ eq rx532_pos, -1, rx532_fail
+ jump $I10
+ rx532_done:
+ rx532_cur."!cursor_fail"()
+ rx532_cur."!cursor_debug"("FAIL ", "")
+ .return (rx532_cur)
+ .return ()
+.end
+
+
+.namespace ["Regex";"P6Regex";"Grammar"]
+.sub "mod_internal" :subid("147_1275811476.7961") :method :outer("11_1275811476.7961")
+.annotate 'line', 3
+ .const 'Sub' $P548 = "149_1275811476.7961"
+ capture_lex $P548
+ .local string rx540_tgt
+ .local int rx540_pos
+ .local int rx540_off
+ .local int rx540_eos
+ .local int rx540_rep
+ .local pmc rx540_cur
+ (rx540_cur, rx540_pos, rx540_tgt) = self."!cursor_start"()
+ rx540_cur."!cursor_debug"("START ", "mod_internal")
+ rx540_cur."!cursor_caparray"("n")
+ .lex unicode:"$\x{a2}", rx540_cur
+ .local pmc match
+ .lex "$/", match
+ length rx540_eos, rx540_tgt
+ gt rx540_pos, rx540_eos, rx540_done
+ set rx540_off, 0
+ lt rx540_pos, 2, rx540_start
+ sub rx540_off, rx540_pos, 1
+ substr rx540_tgt, rx540_tgt, rx540_off
+ rx540_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan544_done
+ goto rxscan544_scan
+ rxscan544_loop:
+ ($P10) = rx540_cur."from"()
+ inc $P10
+ set rx540_pos, $P10
+ ge rx540_pos, rx540_eos, rxscan544_done
+ rxscan544_scan:
+ set_addr $I10, rxscan544_loop
+ rx540_cur."!mark_push"(0, rx540_pos, $I10)
+ rxscan544_done:
+ alt545_0:
.annotate 'line', 175
- set_addr $I10, alt540_1
- rx535_cur."!mark_push"(0, rx535_pos, $I10)
+ set_addr $I10, alt545_1
+ rx540_cur."!mark_push"(0, rx540_pos, $I10)
.annotate 'line', 176
# rx literal ":"
- add $I11, rx535_pos, 1
- gt $I11, rx535_eos, rx535_fail
- sub $I11, rx535_pos, rx535_off
- substr $S10, rx535_tgt, $I11, 1
- ne $S10, ":", rx535_fail
- add rx535_pos, 1
- # rx rxquantr541 ** 1..1
- set_addr $I547, rxquantr541_done
- rx535_cur."!mark_push"(0, -1, $I547)
- rxquantr541_loop:
- # rx subrule $P543 subtype=capture negate=
- rx535_cur."!cursor_pos"(rx535_pos)
- .const 'Sub' $P543 = "149_1275117582.32416"
- capture_lex $P543
- $P10 = rx535_cur.$P543()
- unless $P10, rx535_fail
- rx535_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx540_pos, 1
+ gt $I11, rx540_eos, rx540_fail
+ sub $I11, rx540_pos, rx540_off
+ substr $S10, rx540_tgt, $I11, 1
+ ne $S10, ":", rx540_fail
+ add rx540_pos, 1
+ # rx rxquantr546 ** 1..1
+ set_addr $I552, rxquantr546_done
+ rx540_cur."!mark_push"(0, -1, $I552)
+ rxquantr546_loop:
+ # rx subrule $P548 subtype=capture negate=
+ rx540_cur."!cursor_pos"(rx540_pos)
+ .const 'Sub' $P548 = "149_1275811476.7961"
+ capture_lex $P548
+ $P10 = rx540_cur.$P548()
+ unless $P10, rx540_fail
+ rx540_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("n")
- rx535_pos = $P10."pos"()
- (rx535_rep) = rx535_cur."!mark_commit"($I547)
- rxquantr541_done:
+ rx540_pos = $P10."pos"()
+ (rx540_rep) = rx540_cur."!mark_commit"($I552)
+ rxquantr546_done:
# rx subrule "mod_ident" subtype=capture negate=
- rx535_cur."!cursor_pos"(rx535_pos)
- $P10 = rx535_cur."mod_ident"()
- unless $P10, rx535_fail
- rx535_cur."!mark_push"(0, -1, 0, $P10)
+ rx540_cur."!cursor_pos"(rx540_pos)
+ $P10 = rx540_cur."mod_ident"()
+ unless $P10, rx540_fail
+ rx540_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("mod_ident")
- rx535_pos = $P10."pos"()
+ rx540_pos = $P10."pos"()
# rxanchor rwb
- le rx535_pos, 0, rx535_fail
- sub $I10, rx535_pos, rx535_off
- is_cclass $I11, 8192, rx535_tgt, $I10
- if $I11, rx535_fail
+ le rx540_pos, 0, rx540_fail
+ sub $I10, rx540_pos, rx540_off
+ is_cclass $I11, 8192, rx540_tgt, $I10
+ if $I11, rx540_fail
dec $I10
- is_cclass $I11, 8192, rx535_tgt, $I10
- unless $I11, rx535_fail
- goto alt540_end
- alt540_1:
+ is_cclass $I11, 8192, rx540_tgt, $I10
+ unless $I11, rx540_fail
+ goto alt545_end
+ alt545_1:
.annotate 'line', 177
# rx literal ":"
- add $I11, rx535_pos, 1
- gt $I11, rx535_eos, rx535_fail
- sub $I11, rx535_pos, rx535_off
- substr $S10, rx535_tgt, $I11, 1
- ne $S10, ":", rx535_fail
- add rx535_pos, 1
+ add $I11, rx540_pos, 1
+ gt $I11, rx540_eos, rx540_fail
+ sub $I11, rx540_pos, rx540_off
+ substr $S10, rx540_tgt, $I11, 1
+ ne $S10, ":", rx540_fail
+ add rx540_pos, 1
# rx subrule "mod_ident" subtype=capture negate=
- rx535_cur."!cursor_pos"(rx535_pos)
- $P10 = rx535_cur."mod_ident"()
- unless $P10, rx535_fail
- rx535_cur."!mark_push"(0, -1, 0, $P10)
+ rx540_cur."!cursor_pos"(rx540_pos)
+ $P10 = rx540_cur."mod_ident"()
+ unless $P10, rx540_fail
+ rx540_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("mod_ident")
- rx535_pos = $P10."pos"()
- # rx rxquantr548 ** 0..1
- set_addr $I550, rxquantr548_done
- rx535_cur."!mark_push"(0, rx535_pos, $I550)
- rxquantr548_loop:
+ rx540_pos = $P10."pos"()
+ # rx rxquantr553 ** 0..1
+ set_addr $I555, rxquantr553_done
+ rx540_cur."!mark_push"(0, rx540_pos, $I555)
+ rxquantr553_loop:
# rx literal "("
- add $I11, rx535_pos, 1
- gt $I11, rx535_eos, rx535_fail
- sub $I11, rx535_pos, rx535_off
- substr $S10, rx535_tgt, $I11, 1
- ne $S10, "(", rx535_fail
- add rx535_pos, 1
+ add $I11, rx540_pos, 1
+ gt $I11, rx540_eos, rx540_fail
+ sub $I11, rx540_pos, rx540_off
+ substr $S10, rx540_tgt, $I11, 1
+ ne $S10, "(", rx540_fail
+ add rx540_pos, 1
# rx subcapture "n"
- set_addr $I10, rxcap_549_fail
- rx535_cur."!mark_push"(0, rx535_pos, $I10)
+ set_addr $I10, rxcap_554_fail
+ rx540_cur."!mark_push"(0, rx540_pos, $I10)
# rx charclass_q d r 1..-1
- sub $I10, rx535_pos, rx535_off
- find_not_cclass $I11, 8, rx535_tgt, $I10, rx535_eos
+ sub $I10, rx540_pos, rx540_off
+ find_not_cclass $I11, 8, rx540_tgt, $I10, rx540_eos
add $I12, $I10, 1
- lt $I11, $I12, rx535_fail
- add rx535_pos, rx535_off, $I11
- set_addr $I10, rxcap_549_fail
- ($I12, $I11) = rx535_cur."!mark_peek"($I10)
- rx535_cur."!cursor_pos"($I11)
- ($P10) = rx535_cur."!cursor_start"()
- $P10."!cursor_pass"(rx535_pos, "")
- rx535_cur."!mark_push"(0, -1, 0, $P10)
+ lt $I11, $I12, rx540_fail
+ add rx540_pos, rx540_off, $I11
+ set_addr $I10, rxcap_554_fail
+ ($I12, $I11) = rx540_cur."!mark_peek"($I10)
+ rx540_cur."!cursor_pos"($I11)
+ ($P10) = rx540_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx540_pos, "")
+ rx540_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("n")
- goto rxcap_549_done
- rxcap_549_fail:
- goto rx535_fail
- rxcap_549_done:
+ goto rxcap_554_done
+ rxcap_554_fail:
+ goto rx540_fail
+ rxcap_554_done:
# rx literal ")"
- add $I11, rx535_pos, 1
- gt $I11, rx535_eos, rx535_fail
- sub $I11, rx535_pos, rx535_off
- substr $S10, rx535_tgt, $I11, 1
- ne $S10, ")", rx535_fail
- add rx535_pos, 1
- (rx535_rep) = rx535_cur."!mark_commit"($I550)
- rxquantr548_done:
- alt540_end:
+ add $I11, rx540_pos, 1
+ gt $I11, rx540_eos, rx540_fail
+ sub $I11, rx540_pos, rx540_off
+ substr $S10, rx540_tgt, $I11, 1
+ ne $S10, ")", rx540_fail
+ add rx540_pos, 1
+ (rx540_rep) = rx540_cur."!mark_commit"($I555)
+ rxquantr553_done:
+ alt545_end:
.annotate 'line', 174
# rx pass
- rx535_cur."!cursor_pass"(rx535_pos, "mod_internal")
- rx535_cur."!cursor_debug"("PASS ", "mod_internal", " at pos=", rx535_pos)
- .return (rx535_cur)
- rx535_fail:
+ rx540_cur."!cursor_pass"(rx540_pos, "mod_internal")
+ rx540_cur."!cursor_debug"("PASS ", "mod_internal", " at pos=", rx540_pos)
+ .return (rx540_cur)
+ rx540_fail:
.annotate 'line', 3
- (rx535_rep, rx535_pos, $I10, $P10) = rx535_cur."!mark_fail"(0)
- lt rx535_pos, -1, rx535_done
- eq rx535_pos, -1, rx535_fail
+ (rx540_rep, rx540_pos, $I10, $P10) = rx540_cur."!mark_fail"(0)
+ lt rx540_pos, -1, rx540_done
+ eq rx540_pos, -1, rx540_fail
jump $I10
- rx535_done:
- rx535_cur."!cursor_fail"()
- rx535_cur."!cursor_debug"("FAIL ", "mod_internal")
- .return (rx535_cur)
+ rx540_done:
+ rx540_cur."!cursor_fail"()
+ rx540_cur."!cursor_debug"("FAIL ", "mod_internal")
+ .return (rx540_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_internal" :subid("148_1275117582.32416") :method
+.sub "!PREFIX__mod_internal" :subid("148_1275811476.7961") :method
.annotate 'line', 3
- $P537 = self."!PREFIX__!subrule"("mod_ident", ":")
- new $P538, "ResizablePMCArray"
- push $P538, $P537
- push $P538, ":"
- .return ($P538)
+ $P542 = self."!PREFIX__!subrule"("mod_ident", ":")
+ new $P543, "ResizablePMCArray"
+ push $P543, $P542
+ push $P543, ":"
+ .return ($P543)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block542" :anon :subid("149_1275117582.32416") :method :outer("147_1275117582.32416")
+.sub "_block547" :anon :subid("149_1275811476.7961") :method :outer("147_1275811476.7961")
.annotate 'line', 176
- .local string rx544_tgt
- .local int rx544_pos
- .local int rx544_off
- .local int rx544_eos
- .local int rx544_rep
- .local pmc rx544_cur
- (rx544_cur, rx544_pos, rx544_tgt) = self."!cursor_start"()
- rx544_cur."!cursor_debug"("START ", "")
- .lex unicode:"$\x{a2}", rx544_cur
- .local pmc match
- .lex "$/", match
- length rx544_eos, rx544_tgt
- set rx544_off, 0
- lt rx544_pos, 2, rx544_start
- sub rx544_off, rx544_pos, 1
- substr rx544_tgt, rx544_tgt, rx544_off
- rx544_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan545_done
- goto rxscan545_scan
- rxscan545_loop:
- ($P10) = rx544_cur."from"()
- inc $P10
- set rx544_pos, $P10
- ge rx544_pos, rx544_eos, rxscan545_done
- rxscan545_scan:
- set_addr $I10, rxscan545_loop
- rx544_cur."!mark_push"(0, rx544_pos, $I10)
- rxscan545_done:
- alt546_0:
- set_addr $I10, alt546_1
- rx544_cur."!mark_push"(0, rx544_pos, $I10)
+ .local string rx549_tgt
+ .local int rx549_pos
+ .local int rx549_off
+ .local int rx549_eos
+ .local int rx549_rep
+ .local pmc rx549_cur
+ (rx549_cur, rx549_pos, rx549_tgt) = self."!cursor_start"()
+ rx549_cur."!cursor_debug"("START ", "")
+ .lex unicode:"$\x{a2}", rx549_cur
+ .local pmc match
+ .lex "$/", match
+ length rx549_eos, rx549_tgt
+ gt rx549_pos, rx549_eos, rx549_done
+ set rx549_off, 0
+ lt rx549_pos, 2, rx549_start
+ sub rx549_off, rx549_pos, 1
+ substr rx549_tgt, rx549_tgt, rx549_off
+ rx549_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan550_done
+ goto rxscan550_scan
+ rxscan550_loop:
+ ($P10) = rx549_cur."from"()
+ inc $P10
+ set rx549_pos, $P10
+ ge rx549_pos, rx549_eos, rxscan550_done
+ rxscan550_scan:
+ set_addr $I10, rxscan550_loop
+ rx549_cur."!mark_push"(0, rx549_pos, $I10)
+ rxscan550_done:
+ alt551_0:
+ set_addr $I10, alt551_1
+ rx549_cur."!mark_push"(0, rx549_pos, $I10)
# rx literal "!"
- add $I11, rx544_pos, 1
- gt $I11, rx544_eos, rx544_fail
- sub $I11, rx544_pos, rx544_off
- substr $S10, rx544_tgt, $I11, 1
- ne $S10, "!", rx544_fail
- add rx544_pos, 1
- goto alt546_end
- alt546_1:
+ add $I11, rx549_pos, 1
+ gt $I11, rx549_eos, rx549_fail
+ sub $I11, rx549_pos, rx549_off
+ substr $S10, rx549_tgt, $I11, 1
+ ne $S10, "!", rx549_fail
+ add rx549_pos, 1
+ goto alt551_end
+ alt551_1:
# rx charclass_q d r 1..-1
- sub $I10, rx544_pos, rx544_off
- find_not_cclass $I11, 8, rx544_tgt, $I10, rx544_eos
+ sub $I10, rx549_pos, rx549_off
+ find_not_cclass $I11, 8, rx549_tgt, $I10, rx549_eos
add $I12, $I10, 1
- lt $I11, $I12, rx544_fail
- add rx544_pos, rx544_off, $I11
- alt546_end:
+ lt $I11, $I12, rx549_fail
+ add rx549_pos, rx549_off, $I11
+ alt551_end:
# rx pass
- rx544_cur."!cursor_pass"(rx544_pos, "")
- rx544_cur."!cursor_debug"("PASS ", "", " at pos=", rx544_pos)
- .return (rx544_cur)
- rx544_fail:
- (rx544_rep, rx544_pos, $I10, $P10) = rx544_cur."!mark_fail"(0)
- lt rx544_pos, -1, rx544_done
- eq rx544_pos, -1, rx544_fail
+ rx549_cur."!cursor_pass"(rx549_pos, "")
+ rx549_cur."!cursor_debug"("PASS ", "", " at pos=", rx549_pos)
+ .return (rx549_cur)
+ rx549_fail:
+ (rx549_rep, rx549_pos, $I10, $P10) = rx549_cur."!mark_fail"(0)
+ lt rx549_pos, -1, rx549_done
+ eq rx549_pos, -1, rx549_fail
jump $I10
- rx544_done:
- rx544_cur."!cursor_fail"()
- rx544_cur."!cursor_debug"("FAIL ", "")
- .return (rx544_cur)
+ rx549_done:
+ rx549_cur."!cursor_fail"()
+ rx549_cur."!cursor_debug"("FAIL ", "")
+ .return (rx549_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident" :subid("150_1275117582.32416") :method
+.sub "mod_ident" :subid("150_1275811476.7961") :method
.annotate 'line', 181
- $P552 = self."!protoregex"("mod_ident")
- .return ($P552)
+ $P557 = self."!protoregex"("mod_ident")
+ .return ($P557)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident" :subid("151_1275117582.32416") :method
+.sub "!PREFIX__mod_ident" :subid("151_1275811476.7961") :method
.annotate 'line', 181
- $P554 = self."!PREFIX__!protoregex"("mod_ident")
- .return ($P554)
+ $P559 = self."!PREFIX__!protoregex"("mod_ident")
+ .return ($P559)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident:sym<ignorecase>" :subid("152_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "mod_ident:sym<ignorecase>" :subid("152_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx556_tgt
- .local int rx556_pos
- .local int rx556_off
- .local int rx556_eos
- .local int rx556_rep
- .local pmc rx556_cur
- (rx556_cur, rx556_pos, rx556_tgt) = self."!cursor_start"()
- rx556_cur."!cursor_debug"("START ", "mod_ident:sym<ignorecase>")
- .lex unicode:"$\x{a2}", rx556_cur
- .local pmc match
- .lex "$/", match
- length rx556_eos, rx556_tgt
- set rx556_off, 0
- lt rx556_pos, 2, rx556_start
- sub rx556_off, rx556_pos, 1
- substr rx556_tgt, rx556_tgt, rx556_off
- rx556_start:
- $I10 = self.'from'()
- ne $I10, -1, rxscan559_done
- goto rxscan559_scan
- rxscan559_loop:
- ($P10) = rx556_cur."from"()
- inc $P10
- set rx556_pos, $P10
- ge rx556_pos, rx556_eos, rxscan559_done
- rxscan559_scan:
- set_addr $I10, rxscan559_loop
- rx556_cur."!mark_push"(0, rx556_pos, $I10)
- rxscan559_done:
+ .local string rx561_tgt
+ .local int rx561_pos
+ .local int rx561_off
+ .local int rx561_eos
+ .local int rx561_rep
+ .local pmc rx561_cur
+ (rx561_cur, rx561_pos, rx561_tgt) = self."!cursor_start"()
+ rx561_cur."!cursor_debug"("START ", "mod_ident:sym<ignorecase>")
+ .lex unicode:"$\x{a2}", rx561_cur
+ .local pmc match
+ .lex "$/", match
+ length rx561_eos, rx561_tgt
+ gt rx561_pos, rx561_eos, rx561_done
+ set rx561_off, 0
+ lt rx561_pos, 2, rx561_start
+ sub rx561_off, rx561_pos, 1
+ substr rx561_tgt, rx561_tgt, rx561_off
+ rx561_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan564_done
+ goto rxscan564_scan
+ rxscan564_loop:
+ ($P10) = rx561_cur."from"()
+ inc $P10
+ set rx561_pos, $P10
+ ge rx561_pos, rx561_eos, rxscan564_done
+ rxscan564_scan:
+ set_addr $I10, rxscan564_loop
+ rx561_cur."!mark_push"(0, rx561_pos, $I10)
+ rxscan564_done:
.annotate 'line', 182
# rx subcapture "sym"
- set_addr $I10, rxcap_560_fail
- rx556_cur."!mark_push"(0, rx556_pos, $I10)
+ set_addr $I10, rxcap_565_fail
+ rx561_cur."!mark_push"(0, rx561_pos, $I10)
# rx literal "i"
- add $I11, rx556_pos, 1
- gt $I11, rx556_eos, rx556_fail
- sub $I11, rx556_pos, rx556_off
- substr $S10, rx556_tgt, $I11, 1
- ne $S10, "i", rx556_fail
- add rx556_pos, 1
- set_addr $I10, rxcap_560_fail
- ($I12, $I11) = rx556_cur."!mark_peek"($I10)
- rx556_cur."!cursor_pos"($I11)
- ($P10) = rx556_cur."!cursor_start"()
- $P10."!cursor_pass"(rx556_pos, "")
- rx556_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx561_pos, 1
+ gt $I11, rx561_eos, rx561_fail
+ sub $I11, rx561_pos, rx561_off
+ substr $S10, rx561_tgt, $I11, 1
+ ne $S10, "i", rx561_fail
+ add rx561_pos, 1
+ set_addr $I10, rxcap_565_fail
+ ($I12, $I11) = rx561_cur."!mark_peek"($I10)
+ rx561_cur."!cursor_pos"($I11)
+ ($P10) = rx561_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx561_pos, "")
+ rx561_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_560_done
- rxcap_560_fail:
- goto rx556_fail
- rxcap_560_done:
- # rx rxquantr561 ** 0..1
- set_addr $I562, rxquantr561_done
- rx556_cur."!mark_push"(0, rx556_pos, $I562)
- rxquantr561_loop:
+ goto rxcap_565_done
+ rxcap_565_fail:
+ goto rx561_fail
+ rxcap_565_done:
+ # rx rxquantr566 ** 0..1
+ set_addr $I567, rxquantr566_done
+ rx561_cur."!mark_push"(0, rx561_pos, $I567)
+ rxquantr566_loop:
# rx literal "gnorecase"
- add $I11, rx556_pos, 9
- gt $I11, rx556_eos, rx556_fail
- sub $I11, rx556_pos, rx556_off
- substr $S10, rx556_tgt, $I11, 9
- ne $S10, "gnorecase", rx556_fail
- add rx556_pos, 9
- (rx556_rep) = rx556_cur."!mark_commit"($I562)
- rxquantr561_done:
+ add $I11, rx561_pos, 9
+ gt $I11, rx561_eos, rx561_fail
+ sub $I11, rx561_pos, rx561_off
+ substr $S10, rx561_tgt, $I11, 9
+ ne $S10, "gnorecase", rx561_fail
+ add rx561_pos, 9
+ (rx561_rep) = rx561_cur."!mark_commit"($I567)
+ rxquantr566_done:
# rx pass
- rx556_cur."!cursor_pass"(rx556_pos, "mod_ident:sym<ignorecase>")
- rx556_cur."!cursor_debug"("PASS ", "mod_ident:sym<ignorecase>", " at pos=", rx556_pos)
- .return (rx556_cur)
- rx556_fail:
+ rx561_cur."!cursor_pass"(rx561_pos, "mod_ident:sym<ignorecase>")
+ rx561_cur."!cursor_debug"("PASS ", "mod_ident:sym<ignorecase>", " at pos=", rx561_pos)
+ .return (rx561_cur)
+ rx561_fail:
.annotate 'line', 3
- (rx556_rep, rx556_pos, $I10, $P10) = rx556_cur."!mark_fail"(0)
- lt rx556_pos, -1, rx556_done
- eq rx556_pos, -1, rx556_fail
+ (rx561_rep, rx561_pos, $I10, $P10) = rx561_cur."!mark_fail"(0)
+ lt rx561_pos, -1, rx561_done
+ eq rx561_pos, -1, rx561_fail
jump $I10
- rx556_done:
- rx556_cur."!cursor_fail"()
- rx556_cur."!cursor_debug"("FAIL ", "mod_ident:sym<ignorecase>")
- .return (rx556_cur)
+ rx561_done:
+ rx561_cur."!cursor_fail"()
+ rx561_cur."!cursor_debug"("FAIL ", "mod_ident:sym<ignorecase>")
+ .return (rx561_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident:sym<ignorecase>" :subid("153_1275117582.32416") :method
+.sub "!PREFIX__mod_ident:sym<ignorecase>" :subid("153_1275811476.7961") :method
.annotate 'line', 3
- new $P558, "ResizablePMCArray"
- push $P558, "i"
- .return ($P558)
+ new $P563, "ResizablePMCArray"
+ push $P563, "i"
+ .return ($P563)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident:sym<ratchet>" :subid("154_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "mod_ident:sym<ratchet>" :subid("154_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .local string rx564_tgt
- .local int rx564_pos
- .local int rx564_off
- .local int rx564_eos
- .local int rx564_rep
- .local pmc rx564_cur
- (rx564_cur, rx564_pos, rx564_tgt) = self."!cursor_start"()
- rx564_cur."!cursor_debug"("START ", "mod_ident:sym<ratchet>")
- .lex unicode:"$\x{a2}", rx564_cur
+ .local string rx569_tgt
+ .local int rx569_pos
+ .local int rx569_off
+ .local int rx569_eos
+ .local int rx569_rep
+ .local pmc rx569_cur
+ (rx569_cur, rx569_pos, rx569_tgt) = self."!cursor_start"()
+ rx569_cur."!cursor_debug"("START ", "mod_ident:sym<ratchet>")
+ .lex unicode:"$\x{a2}", rx569_cur
.local pmc match
.lex "$/", match
- length rx564_eos, rx564_tgt
- set rx564_off, 0
- lt rx564_pos, 2, rx564_start
- sub rx564_off, rx564_pos, 1
- substr rx564_tgt, rx564_tgt, rx564_off
- rx564_start:
+ length rx569_eos, rx569_tgt
+ gt rx569_pos, rx569_eos, rx569_done
+ set rx569_off, 0
+ lt rx569_pos, 2, rx569_start
+ sub rx569_off, rx569_pos, 1
+ substr rx569_tgt, rx569_tgt, rx569_off
+ rx569_start:
$I10 = self.'from'()
- ne $I10, -1, rxscan567_done
- goto rxscan567_scan
- rxscan567_loop:
- ($P10) = rx564_cur."from"()
+ ne $I10, -1, rxscan572_done
+ goto rxscan572_scan
+ rxscan572_loop:
+ ($P10) = rx569_cur."from"()
inc $P10
- set rx564_pos, $P10
- ge rx564_pos, rx564_eos, rxscan567_done
- rxscan567_scan:
- set_addr $I10, rxscan567_loop
- rx564_cur."!mark_push"(0, rx564_pos, $I10)
- rxscan567_done:
+ set rx569_pos, $P10
+ ge rx569_pos, rx569_eos, rxscan572_done
+ rxscan572_scan:
+ set_addr $I10, rxscan572_loop
+ rx569_cur."!mark_push"(0, rx569_pos, $I10)
+ rxscan572_done:
.annotate 'line', 183
# rx subcapture "sym"
- set_addr $I10, rxcap_568_fail
- rx564_cur."!mark_push"(0, rx564_pos, $I10)
+ set_addr $I10, rxcap_573_fail
+ rx569_cur."!mark_push"(0, rx569_pos, $I10)
# rx literal "r"
- add $I11, rx564_pos, 1
- gt $I11, rx564_eos, rx564_fail
- sub $I11, rx564_pos, rx564_off
- substr $S10, rx564_tgt, $I11, 1
- ne $S10, "r", rx564_fail
- add rx564_pos, 1
- set_addr $I10, rxcap_568_fail
- ($I12, $I11) = rx564_cur."!mark_peek"($I10)
- rx564_cur."!cursor_pos"($I11)
- ($P10) = rx564_cur."!cursor_start"()
- $P10."!cursor_pass"(rx564_pos, "")
- rx564_cur."!mark_push"(0, -1, 0, $P10)
+ add $I11, rx569_pos, 1
+ gt $I11, rx569_eos, rx569_fail
+ sub $I11, rx569_pos, rx569_off
+ substr $S10, rx569_tgt, $I11, 1
+ ne $S10, "r", rx569_fail
+ add rx569_pos, 1
+ set_addr $I10, rxcap_573_fail
+ ($I12, $I11) = rx569_cur."!mark_peek"($I10)
+ rx569_cur."!cursor_pos"($I11)
+ ($P10) = rx569_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx569_pos, "")
+ rx569_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_568_done
- rxcap_568_fail:
- goto rx564_fail
- rxcap_568_done:
- # rx rxquantr569 ** 0..1
- set_addr $I570, rxquantr569_done
- rx564_cur."!mark_push"(0, rx564_pos, $I570)
- rxquantr569_loop:
+ goto rxcap_573_done
+ rxcap_573_fail:
+ goto rx569_fail
+ rxcap_573_done:
+ # rx rxquantr574 ** 0..1
+ set_addr $I575, rxquantr574_done
+ rx569_cur."!mark_push"(0, rx569_pos, $I575)
+ rxquantr574_loop:
# rx literal "atchet"
- add $I11, rx564_pos, 6
- gt $I11, rx564_eos, rx564_fail
- sub $I11, rx564_pos, rx564_off
- substr $S10, rx564_tgt, $I11, 6
- ne $S10, "atchet", rx564_fail
- add rx564_pos, 6
- (rx564_rep) = rx564_cur."!mark_commit"($I570)
- rxquantr569_done:
+ add $I11, rx569_pos, 6
+ gt $I11, rx569_eos, rx569_fail
+ sub $I11, rx569_pos, rx569_off
+ substr $S10, rx569_tgt, $I11, 6
+ ne $S10, "atchet", rx569_fail
+ add rx569_pos, 6
+ (rx569_rep) = rx569_cur."!mark_commit"($I575)
+ rxquantr574_done:
# rx pass
- rx564_cur."!cursor_pass"(rx564_pos, "mod_ident:sym<ratchet>")
- rx564_cur."!cursor_debug"("PASS ", "mod_ident:sym<ratchet>", " at pos=", rx564_pos)
- .return (rx564_cur)
- rx564_fail:
+ rx569_cur."!cursor_pass"(rx569_pos, "mod_ident:sym<ratchet>")
+ rx569_cur."!cursor_debug"("PASS ", "mod_ident:sym<ratchet>", " at pos=", rx569_pos)
+ .return (rx569_cur)
+ rx569_fail:
.annotate 'line', 3
- (rx564_rep, rx564_pos, $I10, $P10) = rx564_cur."!mark_fail"(0)
- lt rx564_pos, -1, rx564_done
- eq rx564_pos, -1, rx564_fail
+ (rx569_rep, rx569_pos, $I10, $P10) = rx569_cur."!mark_fail"(0)
+ lt rx569_pos, -1, rx569_done
+ eq rx569_pos, -1, rx569_fail
jump $I10
- rx564_done:
- rx564_cur."!cursor_fail"()
- rx564_cur."!cursor_debug"("FAIL ", "mod_ident:sym<ratchet>")
- .return (rx564_cur)
+ rx569_done:
+ rx569_cur."!cursor_fail"()
+ rx569_cur."!cursor_debug"("FAIL ", "mod_ident:sym<ratchet>")
+ .return (rx569_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident:sym<ratchet>" :subid("155_1275117582.32416") :method
+.sub "!PREFIX__mod_ident:sym<ratchet>" :subid("155_1275811476.7961") :method
.annotate 'line', 3
- new $P566, "ResizablePMCArray"
- push $P566, "r"
- .return ($P566)
+ new $P571, "ResizablePMCArray"
+ push $P571, "r"
+ .return ($P571)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "mod_ident:sym<sigspace>" :subid("156_1275117582.32416") :method :outer("11_1275117582.32416")
+.sub "mod_ident:sym<sigspace>" :subid("156_1275811476.7961") :method :outer("11_1275811476.7961")
.annotate 'line', 3
- .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 ", "mod_ident:sym<sigspace>")
- .lex unicode:"$\x{a2}", rx572_cur
- .local pmc match
- .lex "$/", match
- 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, rxscan575_done
- goto rxscan575_scan
- rxscan575_loop:
- ($P10) = rx572_cur."from"()
- inc $P10
- set rx572_pos, $P10
- ge rx572_pos, rx572_eos, rxscan575_done
- rxscan575_scan:
- set_addr $I10, rxscan575_loop
- rx572_cur."!mark_push"(0, rx572_pos, $I10)
- rxscan575_done:
+ .local string rx577_tgt
+ .local int rx577_pos
+ .local int rx577_off
+ .local int rx577_eos
+ .local int rx577_rep
+ .local pmc rx577_cur
+ (rx577_cur, rx577_pos, rx577_tgt) = self."!cursor_start"()
+ rx577_cur."!cursor_debug"("START ", "mod_ident:sym<sigspace>")
+ .lex unicode:"$\x{a2}", rx577_cur
+ .local pmc match
+ .lex "$/", match
+ length rx577_eos, rx577_tgt
+ gt rx577_pos, rx577_eos, rx577_done
+ set rx577_off, 0
+ lt rx577_pos, 2, rx577_start
+ sub rx577_off, rx577_pos, 1
+ substr rx577_tgt, rx577_tgt, rx577_off
+ rx577_start:
+ $I10 = self.'from'()
+ ne $I10, -1, rxscan580_done
+ goto rxscan580_scan
+ rxscan580_loop:
+ ($P10) = rx577_cur."from"()
+ inc $P10
+ set rx577_pos, $P10
+ ge rx577_pos, rx577_eos, rxscan580_done
+ rxscan580_scan:
+ set_addr $I10, rxscan580_loop
+ rx577_cur."!mark_push"(0, rx577_pos, $I10)
+ rxscan580_done:
.annotate 'line', 184
# rx subcapture "sym"
- set_addr $I10, rxcap_576_fail
- rx572_cur."!mark_push"(0, rx572_pos, $I10)
+ set_addr $I10, rxcap_581_fail
+ rx577_cur."!mark_push"(0, rx577_pos, $I10)
# rx literal "s"
- add $I11, rx572_pos, 1
- gt $I11, rx572_eos, rx572_fail
- sub $I11, rx572_pos, rx572_off
- substr $S10, rx572_tgt, $I11, 1
- ne $S10, "s", rx572_fail
- add rx572_pos, 1
- set_addr $I10, rxcap_576_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)
+ add $I11, rx577_pos, 1
+ gt $I11, rx577_eos, rx577_fail
+ sub $I11, rx577_pos, rx577_off
+ substr $S10, rx577_tgt, $I11, 1
+ ne $S10, "s", rx577_fail
+ add rx577_pos, 1
+ set_addr $I10, rxcap_581_fail
+ ($I12, $I11) = rx577_cur."!mark_peek"($I10)
+ rx577_cur."!cursor_pos"($I11)
+ ($P10) = rx577_cur."!cursor_start"()
+ $P10."!cursor_pass"(rx577_pos, "")
+ rx577_cur."!mark_push"(0, -1, 0, $P10)
$P10."!cursor_names"("sym")
- goto rxcap_576_done
- rxcap_576_fail:
- goto rx572_fail
- rxcap_576_done:
- # rx rxquantr577 ** 0..1
- set_addr $I578, rxquantr577_done
- rx572_cur."!mark_push"(0, rx572_pos, $I578)
- rxquantr577_loop:
+ goto rxcap_581_done
+ rxcap_581_fail:
+ goto rx577_fail
+ rxcap_581_done:
+ # rx rxquantr582 ** 0..1
+ set_addr $I583, rxquantr582_done
+ rx577_cur."!mark_push"(0, rx577_pos, $I583)
+ rxquantr582_loop:
# rx literal "igspace"
- add $I11, rx572_pos, 7
- gt $I11, rx572_eos, rx572_fail
- sub $I11, rx572_pos, rx572_off
- substr $S10, rx572_tgt, $I11, 7
- ne $S10, "igspace", rx572_fail
- add rx572_pos, 7
- (rx572_rep) = rx572_cur."!mark_commit"($I578)
- rxquantr577_done:
+ add $I11, rx577_pos, 7
+ gt $I11, rx577_eos, rx577_fail
+ sub $I11, rx577_pos, rx577_off
+ substr $S10, rx577_tgt, $I11, 7
+ ne $S10, "igspace", rx577_fail
+ add rx577_pos, 7
+ (rx577_rep) = rx577_cur."!mark_commit"($I583)
+ rxquantr582_done:
# rx pass
- rx572_cur."!cursor_pass"(rx572_pos, "mod_ident:sym<sigspace>")
- rx572_cur."!cursor_debug"("PASS ", "mod_ident:sym<sigspace>", " at pos=", rx572_pos)
- .return (rx572_cur)
- rx572_fail:
+ rx577_cur."!cursor_pass"(rx577_pos, "mod_ident:sym<sigspace>")
+ rx577_cur."!cursor_debug"("PASS ", "mod_ident:sym<sigspace>", " at pos=", rx577_pos)
+ .return (rx577_cur)
+ rx577_fail:
.annotate 'line', 3
- (rx572_rep, rx572_pos, $I10, $P10) = rx572_cur."!mark_fail"(0)
- lt rx572_pos, -1, rx572_done
- eq rx572_pos, -1, rx572_fail
+ (rx577_rep, rx577_pos, $I10, $P10) = rx577_cur."!mark_fail"(0)
+ lt rx577_pos, -1, rx577_done
+ eq rx577_pos, -1, rx577_fail
jump $I10
- rx572_done:
- rx572_cur."!cursor_fail"()
- rx572_cur."!cursor_debug"("FAIL ", "mod_ident:sym<sigspace>")
- .return (rx572_cur)
+ rx577_done:
+ rx577_cur."!cursor_fail"()
+ rx577_cur."!cursor_debug"("FAIL ", "mod_ident:sym<sigspace>")
+ .return (rx577_cur)
.return ()
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "!PREFIX__mod_ident:sym<sigspace>" :subid("157_1275117582.32416") :method
+.sub "!PREFIX__mod_ident:sym<sigspace>" :subid("157_1275811476.7961") :method
.annotate 'line', 3
- new $P574, "ResizablePMCArray"
- push $P574, "s"
- .return ($P574)
+ new $P579, "ResizablePMCArray"
+ push $P579, "s"
+ .return ($P579)
.end
.namespace ["Regex";"P6Regex";"Grammar"]
-.sub "_block579" :load :anon :subid("158_1275117582.32416")
+.sub "_block584" :load :anon :subid("158_1275811476.7961")
.annotate 'line', 3
- .const 'Sub' $P581 = "11_1275117582.32416"
- $P582 = $P581()
- .return ($P582)
+ .const 'Sub' $P586 = "11_1275811476.7961"
+ $P587 = $P586()
+ .return ($P587)
.end
.namespace []
-.sub "_block584" :load :anon :subid("159_1275117582.32416")
+.sub "_block589" :load :anon :subid("159_1275811476.7961")
.annotate 'line', 1
- .const 'Sub' $P586 = "10_1275117582.32416"
- $P587 = $P586()
- .return ($P587)
+ .const 'Sub' $P591 = "10_1275811476.7961"
+ $P592 = $P591()
+ .return ($P592)
.end
### .include 'gen/p6regex-actions.pir'
.namespace []
-.sub "_block11" :anon :subid("10_1275117600.18794")
+.sub "_block11" :anon :subid("10_1275811482.3686")
.annotate 'line', 0
get_hll_global $P14, ["Regex";"P6Regex";"Actions"], "_block13"
capture_lex $P14
@@ -7202,155 +7296,155 @@
.annotate 'line', 4
get_hll_global $P14, ["Regex";"P6Regex";"Actions"], "_block13"
capture_lex $P14
- $P1573 = $P14()
+ $P1599 = $P14()
.annotate 'line', 1
- .return ($P1573)
- .const 'Sub' $P1575 = "90_1275117600.18794"
- .return ($P1575)
+ .return ($P1599)
+ .const 'Sub' $P1601 = "91_1275811482.3686"
+ .return ($P1601)
.end
.namespace []
-.sub "" :load :init :subid("post91") :outer("10_1275117600.18794")
+.sub "" :load :init :subid("post92") :outer("10_1275811482.3686")
.annotate 'line', 0
- .const 'Sub' $P12 = "10_1275117600.18794"
+ .const 'Sub' $P12 = "10_1275811482.3686"
.local pmc block
set block, $P12
- $P1578 = get_root_global ["parrot"], "P6metaclass"
- $P1578."new_class"("Regex::P6Regex::Actions", "HLL::Actions" :named("parent"))
+ $P1604 = get_root_global ["parrot"], "P6metaclass"
+ $P1604."new_class"("Regex::P6Regex::Actions", "HLL::Actions" :named("parent"))
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block13" :subid("11_1275117600.18794") :outer("10_1275117600.18794")
+.sub "_block13" :subid("11_1275811482.3686") :outer("10_1275811482.3686")
.annotate 'line', 4
- .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"
+ .const 'Sub' $P1561 = "89_1275811482.3686"
+ capture_lex $P1561
+ .const 'Sub' $P1492 = "85_1275811482.3686"
+ capture_lex $P1492
+ .const 'Sub' $P1424 = "83_1275811482.3686"
+ capture_lex $P1424
+ .const 'Sub' $P1351 = "80_1275811482.3686"
+ capture_lex $P1351
+ .const 'Sub' $P1337 = "79_1275811482.3686"
+ capture_lex $P1337
+ .const 'Sub' $P1313 = "78_1275811482.3686"
+ capture_lex $P1313
+ .const 'Sub' $P1295 = "77_1275811482.3686"
+ capture_lex $P1295
+ .const 'Sub' $P1281 = "76_1275811482.3686"
+ capture_lex $P1281
+ .const 'Sub' $P1268 = "75_1275811482.3686"
+ capture_lex $P1268
+ .const 'Sub' $P1237 = "74_1275811482.3686"
+ capture_lex $P1237
+ .const 'Sub' $P1206 = "73_1275811482.3686"
+ capture_lex $P1206
+ .const 'Sub' $P1190 = "72_1275811482.3686"
+ capture_lex $P1190
+ .const 'Sub' $P1174 = "71_1275811482.3686"
+ capture_lex $P1174
+ .const 'Sub' $P1158 = "70_1275811482.3686"
+ capture_lex $P1158
+ .const 'Sub' $P1142 = "69_1275811482.3686"
+ capture_lex $P1142
+ .const 'Sub' $P1126 = "68_1275811482.3686"
+ capture_lex $P1126
+ .const 'Sub' $P1110 = "67_1275811482.3686"
+ capture_lex $P1110
+ .const 'Sub' $P1094 = "66_1275811482.3686"
+ capture_lex $P1094
+ .const 'Sub' $P1070 = "65_1275811482.3686"
+ capture_lex $P1070
+ .const 'Sub' $P1055 = "64_1275811482.3686"
+ capture_lex $P1055
+ .const 'Sub' $P999 = "63_1275811482.3686"
+ capture_lex $P999
+ .const 'Sub' $P978 = "62_1275811482.3686"
+ capture_lex $P978
+ .const 'Sub' $P956 = "61_1275811482.3686"
+ capture_lex $P956
+ .const 'Sub' $P946 = "60_1275811482.3686"
+ capture_lex $P946
+ .const 'Sub' $P936 = "59_1275811482.3686"
+ capture_lex $P936
+ .const 'Sub' $P926 = "58_1275811482.3686"
+ capture_lex $P926
+ .const 'Sub' $P914 = "57_1275811482.3686"
+ capture_lex $P914
+ .const 'Sub' $P902 = "56_1275811482.3686"
+ capture_lex $P902
+ .const 'Sub' $P890 = "55_1275811482.3686"
+ capture_lex $P890
+ .const 'Sub' $P878 = "54_1275811482.3686"
+ capture_lex $P878
+ .const 'Sub' $P866 = "53_1275811482.3686"
+ capture_lex $P866
+ .const 'Sub' $P854 = "52_1275811482.3686"
+ capture_lex $P854
+ .const 'Sub' $P842 = "51_1275811482.3686"
+ capture_lex $P842
+ .const 'Sub' $P830 = "50_1275811482.3686"
+ capture_lex $P830
+ .const 'Sub' $P807 = "49_1275811482.3686"
+ capture_lex $P807
+ .const 'Sub' $P784 = "48_1275811482.3686"
+ capture_lex $P784
+ .const 'Sub' $P766 = "47_1275811482.3686"
+ capture_lex $P766
+ .const 'Sub' $P756 = "46_1275811482.3686"
+ capture_lex $P756
+ .const 'Sub' $P738 = "45_1275811482.3686"
+ capture_lex $P738
+ .const 'Sub' $P665 = "43_1275811482.3686"
capture_lex $P665
- .const 'Sub' $P648 = "42_1275117600.18794"
+ .const 'Sub' $P648 = "42_1275811482.3686"
capture_lex $P648
- .const 'Sub' $P633 = "41_1275117600.18794"
+ .const 'Sub' $P633 = "41_1275811482.3686"
capture_lex $P633
- .const 'Sub' $P618 = "40_1275117600.18794"
+ .const 'Sub' $P618 = "40_1275811482.3686"
capture_lex $P618
- .const 'Sub' $P592 = "39_1275117600.18794"
+ .const 'Sub' $P592 = "39_1275811482.3686"
capture_lex $P592
- .const 'Sub' $P541 = "37_1275117600.18794"
+ .const 'Sub' $P541 = "37_1275811482.3686"
capture_lex $P541
- .const 'Sub' $P473 = "35_1275117600.18794"
+ .const 'Sub' $P473 = "35_1275811482.3686"
capture_lex $P473
- .const 'Sub' $P418 = "32_1275117600.18794"
+ .const 'Sub' $P418 = "32_1275811482.3686"
capture_lex $P418
- .const 'Sub' $P403 = "31_1275117600.18794"
+ .const 'Sub' $P403 = "31_1275811482.3686"
capture_lex $P403
- .const 'Sub' $P377 = "29_1275117600.18794"
+ .const 'Sub' $P377 = "29_1275811482.3686"
capture_lex $P377
- .const 'Sub' $P360 = "28_1275117600.18794"
+ .const 'Sub' $P360 = "28_1275811482.3686"
capture_lex $P360
- .const 'Sub' $P338 = "27_1275117600.18794"
+ .const 'Sub' $P338 = "27_1275811482.3686"
capture_lex $P338
- .const 'Sub' $P305 = "26_1275117600.18794"
+ .const 'Sub' $P305 = "26_1275811482.3686"
capture_lex $P305
- .const 'Sub' $P50 = "13_1275117600.18794"
+ .const 'Sub' $P50 = "13_1275811482.3686"
capture_lex $P50
- .const 'Sub' $P16 = "12_1275117600.18794"
+ .const 'Sub' $P16 = "12_1275811482.3686"
capture_lex $P16
get_global $P15, "@MODIFIERS"
- unless_null $P15, vivify_93
+ unless_null $P15, vivify_94
$P15 = root_new ['parrot';'ResizablePMCArray']
set_global "@MODIFIERS", $P15
- vivify_93:
-.annotate 'line', 479
- .const 'Sub' $P16 = "12_1275117600.18794"
+ vivify_94:
+.annotate 'line', 494
+ .const 'Sub' $P16 = "12_1275811482.3686"
newclosure $P49, $P16
.lex "buildsub", $P49
-.annotate 'line', 496
- .const 'Sub' $P50 = "13_1275117600.18794"
+.annotate 'line', 511
+ .const 'Sub' $P50 = "13_1275811482.3686"
newclosure $P304, $P50
.lex "capnames", $P304
-.annotate 'line', 562
- .const 'Sub' $P305 = "26_1275117600.18794"
+.annotate 'line', 577
+ .const 'Sub' $P305 = "26_1275811482.3686"
newclosure $P337, $P305
.lex "backmod", $P337
-.annotate 'line', 569
- .const 'Sub' $P338 = "27_1275117600.18794"
+.annotate 'line', 584
+ .const 'Sub' $P338 = "27_1275811482.3686"
newclosure $P358, $P338
.lex "subrule_alias", $P358
.annotate 'line', 4
@@ -7361,102 +7455,103 @@
$P0."ctxsave"()
ctxsave_done:
get_global $P359, "@MODIFIERS"
-.annotate 'line', 472
- find_lex $P1564, "buildsub"
- find_lex $P1565, "capnames"
- find_lex $P1566, "backmod"
- find_lex $P1567, "subrule_alias"
+.annotate 'line', 487
+ find_lex $P1590, "buildsub"
+ find_lex $P1591, "capnames"
+ find_lex $P1592, "backmod"
+ find_lex $P1593, "subrule_alias"
.annotate 'line', 4
- .return ($P1567)
- .const 'Sub' $P1569 = "89_1275117600.18794"
- .return ($P1569)
+ .return ($P1593)
+ .const 'Sub' $P1595 = "90_1275811482.3686"
+ .return ($P1595)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "" :load :init :subid("post92") :outer("11_1275117600.18794")
+.sub "" :load :init :subid("post93") :outer("11_1275811482.3686")
.annotate 'line', 4
get_hll_global $P14, ["Regex";"P6Regex";"Actions"], "_block13"
.local pmc block
set block, $P14
.annotate 'line', 7
- $P1572 = new ['ResizablePMCArray']
+ $P1598 = new ['ResizablePMCArray']
$P0 = new ['Hash']
- push $P1572, $P0
+ push $P1598, $P0
- set_global "@MODIFIERS", $P1572
+ set_global "@MODIFIERS", $P1598
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "buildsub" :subid("12_1275117600.18794") :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "buildsub" :subid("12_1275811482.3686") :outer("11_1275811482.3686")
.param pmc param_19
.param pmc param_20 :optional
.param int has_param_20 :opt_flag
-.annotate 'line', 479
+.annotate 'line', 494
new $P18, 'ExceptionHandler'
set_addr $P18, control_17
- $P18."handle_types"(57)
+ $P18."handle_types"(.CONTROL_RETURN)
push_eh $P18
.lex "$rpast", param_19
- if has_param_20, optparam_94
+ if has_param_20, optparam_95
get_hll_global $P21, ["PAST"], "Block"
$P22 = $P21."new"()
set param_20, $P22
- optparam_94:
+ optparam_95:
.lex "$block", param_20
-.annotate 'line', 480
+.annotate 'line', 495
$P23 = root_new ['parrot';'Hash']
.lex "%capnames", $P23
find_lex $P24, "$rpast"
$P25 = "capnames"($P24, 0)
store_lex "%capnames", $P25
-.annotate 'line', 481
+.annotate 'line', 496
new $P26, "Integer"
assign $P26, 0
find_lex $P27, "%capnames"
- unless_null $P27, vivify_95
+ unless_null $P27, vivify_96
$P27 = root_new ['parrot';'Hash']
store_lex "%capnames", $P27
- vivify_95:
+ vivify_96:
set $P27[""], $P26
-.annotate 'line', 482
+.annotate 'line', 497
get_hll_global $P28, ["PAST"], "Regex"
-.annotate 'line', 483
+.annotate 'line', 498
get_hll_global $P29, ["PAST"], "Regex"
$P30 = $P29."new"("scan" :named("pasttype"))
find_lex $P31, "$rpast"
-.annotate 'line', 485
+.annotate 'line', 500
get_hll_global $P32, ["PAST"], "Regex"
$P33 = $P32."new"("pass" :named("pasttype"))
find_lex $P34, "%capnames"
$P35 = $P28."new"($P30, $P31, $P33, "concat" :named("pasttype"), $P34 :named("capnames"))
-.annotate 'line', 482
+.annotate 'line', 497
store_lex "$rpast", $P35
-.annotate 'line', 489
+.annotate 'line', 504
find_lex $P37, "$block"
$P38 = $P37."symbol"(unicode:"$\x{a2}")
if $P38, unless_36_end
find_lex $P39, "$block"
$P39."symbol"(unicode:"$\x{a2}", "lexical" :named("scope"))
unless_36_end:
-.annotate 'line', 490
+.annotate 'line', 505
find_lex $P41, "$block"
$P42 = $P41."symbol"("$/")
if $P42, unless_40_end
find_lex $P43, "$block"
$P43."symbol"("$/", "lexical" :named("scope"))
unless_40_end:
-.annotate 'line', 491
+.annotate 'line', 506
find_lex $P44, "$block"
find_lex $P45, "$rpast"
$P44."push"($P45)
-.annotate 'line', 492
+.annotate 'line', 507
find_lex $P46, "$block"
$P46."blocktype"("method")
find_lex $P47, "$block"
-.annotate 'line', 479
+.annotate 'line', 494
.return ($P47)
control_17:
.local pmc exception
@@ -7467,49 +7562,50 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "capnames" :subid("13_1275117600.18794") :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "capnames" :subid("13_1275811482.3686") :outer("11_1275811482.3686")
.param pmc param_53
.param pmc param_54
-.annotate 'line', 496
- .const 'Sub' $P279 = "24_1275117600.18794"
+.annotate 'line', 511
+ .const 'Sub' $P279 = "24_1275811482.3686"
capture_lex $P279
- .const 'Sub' $P216 = "21_1275117600.18794"
+ .const 'Sub' $P216 = "21_1275811482.3686"
capture_lex $P216
- .const 'Sub' $P174 = "19_1275117600.18794"
+ .const 'Sub' $P174 = "19_1275811482.3686"
capture_lex $P174
- .const 'Sub' $P132 = "17_1275117600.18794"
+ .const 'Sub' $P132 = "17_1275811482.3686"
capture_lex $P132
- .const 'Sub' $P65 = "14_1275117600.18794"
+ .const 'Sub' $P65 = "14_1275811482.3686"
capture_lex $P65
new $P52, 'ExceptionHandler'
set_addr $P52, control_51
- $P52."handle_types"(57)
+ $P52."handle_types"(.CONTROL_RETURN)
push_eh $P52
.lex "$ast", param_53
.lex "$count", param_54
-.annotate 'line', 497
+.annotate 'line', 512
$P55 = root_new ['parrot';'Hash']
.lex "%capnames", $P55
-.annotate 'line', 498
+.annotate 'line', 513
new $P56, "Undef"
.lex "$pasttype", $P56
-.annotate 'line', 496
+.annotate 'line', 511
find_lex $P57, "%capnames"
-.annotate 'line', 498
+.annotate 'line', 513
find_lex $P58, "$ast"
$P59 = $P58."pasttype"()
store_lex "$pasttype", $P59
-.annotate 'line', 499
+.annotate 'line', 514
find_lex $P61, "$pasttype"
set $S62, $P61
iseq $I63, $S62, "alt"
if $I63, if_60
-.annotate 'line', 512
+.annotate 'line', 527
find_lex $P123, "$pasttype"
set $S124, $P123
iseq $I125, $S124, "concat"
if $I125, if_122
-.annotate 'line', 521
+.annotate 'line', 536
find_lex $P167, "$pasttype"
set $S168, $P167
iseq $I169, $S168, "subrule"
@@ -7525,51 +7621,51 @@
set $P165, $I172
if_166_end:
if $P165, if_164
-.annotate 'line', 534
+.annotate 'line', 549
find_lex $P212, "$pasttype"
set $S213, $P212
iseq $I214, $S213, "subcapture"
if $I214, if_211
-.annotate 'line', 551
+.annotate 'line', 566
find_lex $P275, "$pasttype"
set $S276, $P275
iseq $I277, $S276, "quant"
unless $I277, if_274_end
- .const 'Sub' $P279 = "24_1275117600.18794"
+ .const 'Sub' $P279 = "24_1275811482.3686"
capture_lex $P279
$P279()
if_274_end:
goto if_211_end
if_211:
-.annotate 'line', 534
- .const 'Sub' $P216 = "21_1275117600.18794"
+.annotate 'line', 549
+ .const 'Sub' $P216 = "21_1275811482.3686"
capture_lex $P216
$P216()
if_211_end:
goto if_164_end
if_164:
-.annotate 'line', 521
- .const 'Sub' $P174 = "19_1275117600.18794"
+.annotate 'line', 536
+ .const 'Sub' $P174 = "19_1275811482.3686"
capture_lex $P174
$P174()
if_164_end:
goto if_122_end
if_122:
-.annotate 'line', 513
+.annotate 'line', 528
find_lex $P127, "$ast"
$P128 = $P127."list"()
defined $I129, $P128
- unless $I129, for_undef_116
+ unless $I129, for_undef_117
iter $P126, $P128
new $P162, 'ExceptionHandler'
set_addr $P162, loop161_handler
- $P162."handle_types"(64, 66, 65)
+ $P162."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P162
loop161_test:
unless $P126, loop161_done
shift $P130, $P126
loop161_redo:
- .const 'Sub' $P132 = "17_1275117600.18794"
+ .const 'Sub' $P132 = "17_1275811482.3686"
capture_lex $P132
$P132($P130)
loop161_next:
@@ -7578,30 +7674,30 @@
.local pmc exception
.get_results (exception)
getattribute $P163, exception, 'type'
- eq $P163, 64, loop161_next
- eq $P163, 66, loop161_redo
+ eq $P163, .CONTROL_LOOP_NEXT, loop161_next
+ eq $P163, .CONTROL_LOOP_REDO, loop161_redo
loop161_done:
pop_eh
- for_undef_116:
+ for_undef_117:
if_122_end:
-.annotate 'line', 512
+.annotate 'line', 527
goto if_60_end
if_60:
-.annotate 'line', 499
- .const 'Sub' $P65 = "14_1275117600.18794"
+.annotate 'line', 514
+ .const 'Sub' $P65 = "14_1275811482.3686"
capture_lex $P65
$P65()
if_60_end:
-.annotate 'line', 558
+.annotate 'line', 573
find_lex $P300, "$count"
find_lex $P301, "%capnames"
- unless_null $P301, vivify_136
+ unless_null $P301, vivify_137
$P301 = root_new ['parrot';'Hash']
store_lex "%capnames", $P301
- vivify_136:
+ vivify_137:
set $P301[""], $P300
find_lex $P302, "%capnames"
-.annotate 'line', 496
+.annotate 'line', 511
.return ($P302)
control_51:
.local pmc exception
@@ -7612,38 +7708,39 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block278" :anon :subid("24_1275117600.18794") :outer("13_1275117600.18794")
-.annotate 'line', 551
- .const 'Sub' $P290 = "25_1275117600.18794"
+.include "except_types.pasm"
+.sub "_block278" :anon :subid("24_1275811482.3686") :outer("13_1275811482.3686")
+.annotate 'line', 566
+ .const 'Sub' $P290 = "25_1275811482.3686"
capture_lex $P290
-.annotate 'line', 552
+.annotate 'line', 567
$P280 = root_new ['parrot';'Hash']
.lex "%astcap", $P280
find_lex $P281, "$ast"
- unless_null $P281, vivify_96
+ unless_null $P281, vivify_97
$P281 = root_new ['parrot';'ResizablePMCArray']
- vivify_96:
+ vivify_97:
set $P282, $P281[0]
- unless_null $P282, vivify_97
+ unless_null $P282, vivify_98
new $P282, "Undef"
- vivify_97:
+ vivify_98:
find_lex $P283, "$count"
$P284 = "capnames"($P282, $P283)
store_lex "%astcap", $P284
-.annotate 'line', 553
+.annotate 'line', 568
find_lex $P286, "%astcap"
defined $I287, $P286
- unless $I287, for_undef_98
+ unless $I287, for_undef_99
iter $P285, $P286
new $P296, 'ExceptionHandler'
set_addr $P296, loop295_handler
- $P296."handle_types"(64, 66, 65)
+ $P296."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P296
loop295_test:
unless $P285, loop295_done
shift $P288, $P285
loop295_redo:
- .const 'Sub' $P290 = "25_1275117600.18794"
+ .const 'Sub' $P290 = "25_1275811482.3686"
capture_lex $P290
$P290($P288)
loop295_next:
@@ -7652,87 +7749,88 @@
.local pmc exception
.get_results (exception)
getattribute $P297, exception, 'type'
- eq $P297, 64, loop295_next
- eq $P297, 66, loop295_redo
+ eq $P297, .CONTROL_LOOP_NEXT, loop295_next
+ eq $P297, .CONTROL_LOOP_REDO, loop295_redo
loop295_done:
pop_eh
- for_undef_98:
-.annotate 'line', 556
+ for_undef_99:
+.annotate 'line', 571
find_lex $P298, "%astcap"
- unless_null $P298, vivify_100
+ unless_null $P298, vivify_101
$P298 = root_new ['parrot';'Hash']
- vivify_100:
+ vivify_101:
set $P299, $P298[""]
- unless_null $P299, vivify_101
+ unless_null $P299, vivify_102
new $P299, "Undef"
- vivify_101:
+ vivify_102:
store_lex "$count", $P299
-.annotate 'line', 551
+.annotate 'line', 566
.return ($P299)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block289" :anon :subid("25_1275117600.18794") :outer("24_1275117600.18794")
+.sub "_block289" :anon :subid("25_1275811482.3686") :outer("24_1275811482.3686")
.param pmc param_291
-.annotate 'line', 553
+.annotate 'line', 568
.lex "$_", param_291
-.annotate 'line', 554
+.annotate 'line', 569
new $P292, "Integer"
assign $P292, 2
find_lex $P293, "$_"
find_lex $P294, "%capnames"
- unless_null $P294, vivify_99
+ unless_null $P294, vivify_100
$P294 = root_new ['parrot';'Hash']
store_lex "%capnames", $P294
- vivify_99:
+ vivify_100:
set $P294[$P293], $P292
-.annotate 'line', 553
+.annotate 'line', 568
.return ($P292)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block215" :anon :subid("21_1275117600.18794") :outer("13_1275117600.18794")
-.annotate 'line', 534
- .const 'Sub' $P256 = "23_1275117600.18794"
+.include "except_types.pasm"
+.sub "_block215" :anon :subid("21_1275811482.3686") :outer("13_1275811482.3686")
+.annotate 'line', 549
+ .const 'Sub' $P256 = "23_1275811482.3686"
capture_lex $P256
- .const 'Sub' $P228 = "22_1275117600.18794"
+ .const 'Sub' $P228 = "22_1275811482.3686"
capture_lex $P228
-.annotate 'line', 535
+.annotate 'line', 550
new $P217, "Undef"
.lex "$name", $P217
-.annotate 'line', 536
+.annotate 'line', 551
$P218 = root_new ['parrot';'ResizablePMCArray']
.lex "@names", $P218
-.annotate 'line', 545
+.annotate 'line', 560
$P219 = root_new ['parrot';'Hash']
.lex "%x", $P219
-.annotate 'line', 535
+.annotate 'line', 550
find_lex $P220, "$ast"
$P221 = $P220."name"()
store_lex "$name", $P221
-.annotate 'line', 536
+.annotate 'line', 551
$P0 = find_lex '$name'
$S0 = $P0
$P222 = split '=', $S0
store_lex "@names", $P222
-.annotate 'line', 541
+.annotate 'line', 556
find_lex $P224, "@names"
defined $I225, $P224
- unless $I225, for_undef_102
+ unless $I225, for_undef_103
iter $P223, $P224
new $P245, 'ExceptionHandler'
set_addr $P245, loop244_handler
- $P245."handle_types"(64, 66, 65)
+ $P245."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P245
loop244_test:
unless $P223, loop244_done
shift $P226, $P223
loop244_redo:
- .const 'Sub' $P228 = "22_1275117600.18794"
+ .const 'Sub' $P228 = "22_1275811482.3686"
capture_lex $P228
$P228($P226)
loop244_next:
@@ -7741,37 +7839,37 @@
.local pmc exception
.get_results (exception)
getattribute $P246, exception, 'type'
- eq $P246, 64, loop244_next
- eq $P246, 66, loop244_redo
+ eq $P246, .CONTROL_LOOP_NEXT, loop244_next
+ eq $P246, .CONTROL_LOOP_REDO, loop244_redo
loop244_done:
pop_eh
- for_undef_102:
-.annotate 'line', 545
+ for_undef_103:
+.annotate 'line', 560
find_lex $P247, "$ast"
- unless_null $P247, vivify_104
+ unless_null $P247, vivify_105
$P247 = root_new ['parrot';'ResizablePMCArray']
- vivify_104:
+ vivify_105:
set $P248, $P247[0]
- unless_null $P248, vivify_105
+ unless_null $P248, vivify_106
new $P248, "Undef"
- vivify_105:
+ vivify_106:
find_lex $P249, "$count"
$P250 = "capnames"($P248, $P249)
store_lex "%x", $P250
-.annotate 'line', 546
+.annotate 'line', 561
find_lex $P252, "%x"
defined $I253, $P252
- unless $I253, for_undef_106
+ unless $I253, for_undef_107
iter $P251, $P252
new $P270, 'ExceptionHandler'
set_addr $P270, loop269_handler
- $P270."handle_types"(64, 66, 65)
+ $P270."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P270
loop269_test:
unless $P251, loop269_done
shift $P254, $P251
loop269_redo:
- .const 'Sub' $P256 = "23_1275117600.18794"
+ .const 'Sub' $P256 = "23_1275811482.3686"
capture_lex $P256
$P256($P254)
loop269_next:
@@ -7780,32 +7878,32 @@
.local pmc exception
.get_results (exception)
getattribute $P271, exception, 'type'
- eq $P271, 64, loop269_next
- eq $P271, 66, loop269_redo
+ eq $P271, .CONTROL_LOOP_NEXT, loop269_next
+ eq $P271, .CONTROL_LOOP_REDO, loop269_redo
loop269_done:
pop_eh
- for_undef_106:
-.annotate 'line', 549
+ for_undef_107:
+.annotate 'line', 564
find_lex $P272, "%x"
- unless_null $P272, vivify_112
+ unless_null $P272, vivify_113
$P272 = root_new ['parrot';'Hash']
- vivify_112:
+ vivify_113:
set $P273, $P272[""]
- unless_null $P273, vivify_113
+ unless_null $P273, vivify_114
new $P273, "Undef"
- vivify_113:
+ vivify_114:
store_lex "$count", $P273
-.annotate 'line', 534
+.annotate 'line', 549
.return ($P273)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block227" :anon :subid("22_1275117600.18794") :outer("21_1275117600.18794")
+.sub "_block227" :anon :subid("22_1275811482.3686") :outer("21_1275811482.3686")
.param pmc param_229
-.annotate 'line', 541
+.annotate 'line', 556
.lex "$_", param_229
-.annotate 'line', 542
+.annotate 'line', 557
find_lex $P233, "$_"
set $S234, $P233
iseq $I235, $S234, "0"
@@ -7825,77 +7923,78 @@
add $P240, $P239, 1
store_lex "$count", $P240
if_230_end:
-.annotate 'line', 543
+.annotate 'line', 558
new $P241, "Integer"
assign $P241, 1
find_lex $P242, "$_"
find_lex $P243, "%capnames"
- unless_null $P243, vivify_103
+ unless_null $P243, vivify_104
$P243 = root_new ['parrot';'Hash']
store_lex "%capnames", $P243
- vivify_103:
+ vivify_104:
set $P243[$P242], $P241
-.annotate 'line', 541
+.annotate 'line', 556
.return ($P241)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block255" :anon :subid("23_1275117600.18794") :outer("21_1275117600.18794")
+.sub "_block255" :anon :subid("23_1275811482.3686") :outer("21_1275811482.3686")
.param pmc param_257
-.annotate 'line', 546
+.annotate 'line', 561
.lex "$_", param_257
-.annotate 'line', 547
+.annotate 'line', 562
find_lex $P258, "$_"
find_lex $P259, "%capnames"
- unless_null $P259, vivify_107
+ unless_null $P259, vivify_108
$P259 = root_new ['parrot';'Hash']
- vivify_107:
+ vivify_108:
set $P260, $P259[$P258]
- unless_null $P260, vivify_108
+ unless_null $P260, vivify_109
new $P260, "Undef"
- vivify_108:
+ vivify_109:
set $N261, $P260
new $P262, 'Float'
set $P262, $N261
find_lex $P263, "$_"
find_lex $P264, "%x"
- unless_null $P264, vivify_109
+ unless_null $P264, vivify_110
$P264 = root_new ['parrot';'Hash']
- vivify_109:
+ vivify_110:
set $P265, $P264[$P263]
- unless_null $P265, vivify_110
+ unless_null $P265, vivify_111
new $P265, "Undef"
- vivify_110:
+ vivify_111:
add $P266, $P262, $P265
find_lex $P267, "$_"
find_lex $P268, "%capnames"
- unless_null $P268, vivify_111
+ unless_null $P268, vivify_112
$P268 = root_new ['parrot';'Hash']
store_lex "%capnames", $P268
- vivify_111:
+ vivify_112:
set $P268[$P267], $P266
-.annotate 'line', 546
+.annotate 'line', 561
.return ($P266)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block173" :anon :subid("19_1275117600.18794") :outer("13_1275117600.18794")
-.annotate 'line', 521
- .const 'Sub' $P192 = "20_1275117600.18794"
+.include "except_types.pasm"
+.sub "_block173" :anon :subid("19_1275811482.3686") :outer("13_1275811482.3686")
+.annotate 'line', 536
+ .const 'Sub' $P192 = "20_1275811482.3686"
capture_lex $P192
-.annotate 'line', 522
+.annotate 'line', 537
new $P175, "Undef"
.lex "$name", $P175
-.annotate 'line', 524
+.annotate 'line', 539
$P176 = root_new ['parrot';'ResizablePMCArray']
.lex "@names", $P176
-.annotate 'line', 522
+.annotate 'line', 537
find_lex $P177, "$ast"
$P178 = $P177."name"()
store_lex "$name", $P178
-.annotate 'line', 523
+.annotate 'line', 538
find_lex $P180, "$name"
set $S181, $P180
iseq $I182, $S181, ""
@@ -7906,27 +8005,27 @@
find_lex $P185, "$name"
$P184."name"($P185)
if_179_end:
-.annotate 'line', 524
+.annotate 'line', 539
$P0 = find_lex '$name'
$S0 = $P0
$P186 = split '=', $S0
store_lex "@names", $P186
-.annotate 'line', 529
+.annotate 'line', 544
find_lex $P188, "@names"
defined $I189, $P188
- unless $I189, for_undef_114
+ unless $I189, for_undef_115
iter $P187, $P188
new $P209, 'ExceptionHandler'
set_addr $P209, loop208_handler
- $P209."handle_types"(64, 66, 65)
+ $P209."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P209
loop208_test:
unless $P187, loop208_done
shift $P190, $P187
loop208_redo:
- .const 'Sub' $P192 = "20_1275117600.18794"
+ .const 'Sub' $P192 = "20_1275811482.3686"
capture_lex $P192
$P192($P190)
loop208_next:
@@ -7935,22 +8034,22 @@
.local pmc exception
.get_results (exception)
getattribute $P210, exception, 'type'
- eq $P210, 64, loop208_next
- eq $P210, 66, loop208_redo
+ eq $P210, .CONTROL_LOOP_NEXT, loop208_next
+ eq $P210, .CONTROL_LOOP_REDO, loop208_redo
loop208_done:
pop_eh
- for_undef_114:
-.annotate 'line', 521
+ for_undef_115:
+.annotate 'line', 536
.return ($P187)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block191" :anon :subid("20_1275117600.18794") :outer("19_1275117600.18794")
+.sub "_block191" :anon :subid("20_1275811482.3686") :outer("19_1275811482.3686")
.param pmc param_193
-.annotate 'line', 529
+.annotate 'line', 544
.lex "$_", param_193
-.annotate 'line', 530
+.annotate 'line', 545
find_lex $P197, "$_"
set $S198, $P197
iseq $I199, $S198, "0"
@@ -7970,28 +8069,29 @@
add $P204, $P203, 1
store_lex "$count", $P204
if_194_end:
-.annotate 'line', 531
+.annotate 'line', 546
new $P205, "Integer"
assign $P205, 1
find_lex $P206, "$_"
find_lex $P207, "%capnames"
- unless_null $P207, vivify_115
+ unless_null $P207, vivify_116
$P207 = root_new ['parrot';'Hash']
store_lex "%capnames", $P207
- vivify_115:
+ vivify_116:
set $P207[$P206], $P205
-.annotate 'line', 529
+.annotate 'line', 544
.return ($P205)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block131" :anon :subid("17_1275117600.18794") :outer("13_1275117600.18794")
+.include "except_types.pasm"
+.sub "_block131" :anon :subid("17_1275811482.3686") :outer("13_1275811482.3686")
.param pmc param_134
-.annotate 'line', 513
- .const 'Sub' $P143 = "18_1275117600.18794"
+.annotate 'line', 528
+ .const 'Sub' $P143 = "18_1275811482.3686"
capture_lex $P143
-.annotate 'line', 514
+.annotate 'line', 529
$P133 = root_new ['parrot';'Hash']
.lex "%x", $P133
.lex "$_", param_134
@@ -7999,20 +8099,20 @@
find_lex $P136, "$count"
$P137 = "capnames"($P135, $P136)
store_lex "%x", $P137
-.annotate 'line', 515
+.annotate 'line', 530
find_lex $P139, "%x"
defined $I140, $P139
- unless $I140, for_undef_117
+ unless $I140, for_undef_118
iter $P138, $P139
new $P157, 'ExceptionHandler'
set_addr $P157, loop156_handler
- $P157."handle_types"(64, 66, 65)
+ $P157."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P157
loop156_test:
unless $P138, loop156_done
shift $P141, $P138
loop156_redo:
- .const 'Sub' $P143 = "18_1275117600.18794"
+ .const 'Sub' $P143 = "18_1275811482.3686"
capture_lex $P143
$P143($P141)
loop156_next:
@@ -8021,91 +8121,92 @@
.local pmc exception
.get_results (exception)
getattribute $P158, exception, 'type'
- eq $P158, 64, loop156_next
- eq $P158, 66, loop156_redo
+ eq $P158, .CONTROL_LOOP_NEXT, loop156_next
+ eq $P158, .CONTROL_LOOP_REDO, loop156_redo
loop156_done:
pop_eh
- for_undef_117:
-.annotate 'line', 518
+ for_undef_118:
+.annotate 'line', 533
find_lex $P159, "%x"
- unless_null $P159, vivify_123
+ unless_null $P159, vivify_124
$P159 = root_new ['parrot';'Hash']
- vivify_123:
+ vivify_124:
set $P160, $P159[""]
- unless_null $P160, vivify_124
+ unless_null $P160, vivify_125
new $P160, "Undef"
- vivify_124:
+ vivify_125:
store_lex "$count", $P160
-.annotate 'line', 513
+.annotate 'line', 528
.return ($P160)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block142" :anon :subid("18_1275117600.18794") :outer("17_1275117600.18794")
+.sub "_block142" :anon :subid("18_1275811482.3686") :outer("17_1275811482.3686")
.param pmc param_144
-.annotate 'line', 515
+.annotate 'line', 530
.lex "$_", param_144
-.annotate 'line', 516
+.annotate 'line', 531
find_lex $P145, "$_"
find_lex $P146, "%capnames"
- unless_null $P146, vivify_118
+ unless_null $P146, vivify_119
$P146 = root_new ['parrot';'Hash']
- vivify_118:
+ vivify_119:
set $P147, $P146[$P145]
- unless_null $P147, vivify_119
+ unless_null $P147, vivify_120
new $P147, "Undef"
- vivify_119:
+ vivify_120:
set $N148, $P147
new $P149, 'Float'
set $P149, $N148
find_lex $P150, "$_"
find_lex $P151, "%x"
- unless_null $P151, vivify_120
+ unless_null $P151, vivify_121
$P151 = root_new ['parrot';'Hash']
- vivify_120:
+ vivify_121:
set $P152, $P151[$P150]
- unless_null $P152, vivify_121
+ unless_null $P152, vivify_122
new $P152, "Undef"
- vivify_121:
+ vivify_122:
add $P153, $P149, $P152
find_lex $P154, "$_"
find_lex $P155, "%capnames"
- unless_null $P155, vivify_122
+ unless_null $P155, vivify_123
$P155 = root_new ['parrot';'Hash']
store_lex "%capnames", $P155
- vivify_122:
+ vivify_123:
set $P155[$P154], $P153
-.annotate 'line', 515
+.annotate 'line', 530
.return ($P153)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block64" :anon :subid("14_1275117600.18794") :outer("13_1275117600.18794")
-.annotate 'line', 499
- .const 'Sub' $P74 = "15_1275117600.18794"
+.include "except_types.pasm"
+.sub "_block64" :anon :subid("14_1275811482.3686") :outer("13_1275811482.3686")
+.annotate 'line', 514
+ .const 'Sub' $P74 = "15_1275811482.3686"
capture_lex $P74
-.annotate 'line', 500
+.annotate 'line', 515
new $P66, "Undef"
.lex "$max", $P66
find_lex $P67, "$count"
store_lex "$max", $P67
-.annotate 'line', 501
+.annotate 'line', 516
find_lex $P69, "$ast"
$P70 = $P69."list"()
defined $I71, $P70
- unless $I71, for_undef_125
+ unless $I71, for_undef_126
iter $P68, $P70
new $P119, 'ExceptionHandler'
set_addr $P119, loop118_handler
- $P119."handle_types"(64, 66, 65)
+ $P119."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P119
loop118_test:
unless $P68, loop118_done
shift $P72, $P68
loop118_redo:
- .const 'Sub' $P74 = "15_1275117600.18794"
+ .const 'Sub' $P74 = "15_1275811482.3686"
capture_lex $P74
$P74($P72)
loop118_next:
@@ -8114,26 +8215,27 @@
.local pmc exception
.get_results (exception)
getattribute $P120, exception, 'type'
- eq $P120, 64, loop118_next
- eq $P120, 66, loop118_redo
+ eq $P120, .CONTROL_LOOP_NEXT, loop118_next
+ eq $P120, .CONTROL_LOOP_REDO, loop118_redo
loop118_done:
pop_eh
- for_undef_125:
-.annotate 'line', 510
+ for_undef_126:
+.annotate 'line', 525
find_lex $P121, "$max"
store_lex "$count", $P121
-.annotate 'line', 499
+.annotate 'line', 514
.return ($P121)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block73" :anon :subid("15_1275117600.18794") :outer("14_1275117600.18794")
+.include "except_types.pasm"
+.sub "_block73" :anon :subid("15_1275811482.3686") :outer("14_1275811482.3686")
.param pmc param_76
-.annotate 'line', 501
- .const 'Sub' $P85 = "16_1275117600.18794"
+.annotate 'line', 516
+ .const 'Sub' $P85 = "16_1275811482.3686"
capture_lex $P85
-.annotate 'line', 502
+.annotate 'line', 517
$P75 = root_new ['parrot';'Hash']
.lex "%x", $P75
.lex "$_", param_76
@@ -8141,20 +8243,20 @@
find_lex $P78, "$count"
$P79 = "capnames"($P77, $P78)
store_lex "%x", $P79
-.annotate 'line', 503
+.annotate 'line', 518
find_lex $P81, "%x"
defined $I82, $P81
- unless $I82, for_undef_126
+ unless $I82, for_undef_127
iter $P80, $P81
new $P106, 'ExceptionHandler'
set_addr $P106, loop105_handler
- $P106."handle_types"(64, 66, 65)
+ $P106."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P106
loop105_test:
unless $P80, loop105_done
shift $P83, $P80
loop105_redo:
- .const 'Sub' $P85 = "16_1275117600.18794"
+ .const 'Sub' $P85 = "16_1275811482.3686"
capture_lex $P85
$P85($P83)
loop105_next:
@@ -8163,20 +8265,20 @@
.local pmc exception
.get_results (exception)
getattribute $P107, exception, 'type'
- eq $P107, 64, loop105_next
- eq $P107, 66, loop105_redo
+ eq $P107, .CONTROL_LOOP_NEXT, loop105_next
+ eq $P107, .CONTROL_LOOP_REDO, loop105_redo
loop105_done:
pop_eh
- for_undef_126:
-.annotate 'line', 508
+ for_undef_127:
+.annotate 'line', 523
find_lex $P110, "%x"
- unless_null $P110, vivify_132
+ unless_null $P110, vivify_133
$P110 = root_new ['parrot';'Hash']
- vivify_132:
+ vivify_133:
set $P111, $P110[""]
- unless_null $P111, vivify_133
+ unless_null $P111, vivify_134
new $P111, "Undef"
- vivify_133:
+ vivify_134:
set $N112, $P111
find_lex $P113, "$max"
set $N114, $P113
@@ -8187,36 +8289,36 @@
goto if_109_end
if_109:
find_lex $P116, "%x"
- unless_null $P116, vivify_134
+ unless_null $P116, vivify_135
$P116 = root_new ['parrot';'Hash']
- vivify_134:
+ vivify_135:
set $P117, $P116[""]
- unless_null $P117, vivify_135
+ unless_null $P117, vivify_136
new $P117, "Undef"
- vivify_135:
+ vivify_136:
store_lex "$max", $P117
set $P108, $P117
if_109_end:
-.annotate 'line', 501
+.annotate 'line', 516
.return ($P108)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block84" :anon :subid("16_1275117600.18794") :outer("15_1275117600.18794")
+.sub "_block84" :anon :subid("16_1275811482.3686") :outer("15_1275811482.3686")
.param pmc param_86
-.annotate 'line', 503
+.annotate 'line', 518
.lex "$_", param_86
-.annotate 'line', 504
+.annotate 'line', 519
find_lex $P91, "$_"
find_lex $P92, "%capnames"
- unless_null $P92, vivify_127
+ unless_null $P92, vivify_128
$P92 = root_new ['parrot';'Hash']
- vivify_127:
+ vivify_128:
set $P93, $P92[$P91]
- unless_null $P93, vivify_128
+ unless_null $P93, vivify_129
new $P93, "Undef"
- vivify_128:
+ vivify_129:
set $N94, $P93
islt $I95, $N94, 2.0
if $I95, if_90
@@ -8226,13 +8328,13 @@
if_90:
find_lex $P96, "$_"
find_lex $P97, "%x"
- unless_null $P97, vivify_129
+ unless_null $P97, vivify_130
$P97 = root_new ['parrot';'Hash']
- vivify_129:
+ vivify_130:
set $P98, $P97[$P96]
- unless_null $P98, vivify_130
+ unless_null $P98, vivify_131
new $P98, "Undef"
- vivify_130:
+ vivify_131:
set $N99, $P98
iseq $I100, $N99, 1.0
new $P89, 'Integer'
@@ -8248,36 +8350,37 @@
assign $P101, 1
set $P87, $P101
if_88_end:
-.annotate 'line', 505
+.annotate 'line', 520
find_lex $P103, "$_"
find_lex $P104, "%capnames"
- unless_null $P104, vivify_131
+ unless_null $P104, vivify_132
$P104 = root_new ['parrot';'Hash']
store_lex "%capnames", $P104
- vivify_131:
+ vivify_132:
set $P104[$P103], $P87
-.annotate 'line', 503
+.annotate 'line', 518
.return ($P87)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backmod" :subid("26_1275117600.18794") :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "backmod" :subid("26_1275811482.3686") :outer("11_1275811482.3686")
.param pmc param_308
.param pmc param_309
-.annotate 'line', 562
+.annotate 'line', 577
new $P307, 'ExceptionHandler'
set_addr $P307, control_306
- $P307."handle_types"(57)
+ $P307."handle_types"(.CONTROL_RETURN)
push_eh $P307
.lex "$ast", param_308
.lex "$backmod", param_309
-.annotate 'line', 563
+.annotate 'line', 578
find_lex $P311, "$backmod"
set $S312, $P311
iseq $I313, $S312, ":"
if $I313, if_310
-.annotate 'line', 564
+.annotate 'line', 579
find_lex $P318, "$backmod"
set $S319, $P318
iseq $I320, $S319, ":?"
@@ -8293,7 +8396,7 @@
set $P316, $I323
unless_317_end:
if $P316, if_315
-.annotate 'line', 565
+.annotate 'line', 580
find_lex $P328, "$backmod"
set $S329, $P328
iseq $I330, $S329, ":!"
@@ -8314,18 +8417,18 @@
if_325_end:
goto if_315_end
if_315:
-.annotate 'line', 564
+.annotate 'line', 579
find_lex $P324, "$ast"
$P324."backtrack"("f")
if_315_end:
goto if_310_end
if_310:
-.annotate 'line', 563
+.annotate 'line', 578
find_lex $P314, "$ast"
$P314."backtrack"("r")
if_310_end:
find_lex $P335, "$ast"
-.annotate 'line', 562
+.annotate 'line', 577
.return ($P335)
control_306:
.local pmc exception
@@ -8336,28 +8439,29 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "subrule_alias" :subid("27_1275117600.18794") :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "subrule_alias" :subid("27_1275811482.3686") :outer("11_1275811482.3686")
.param pmc param_341
.param pmc param_342
-.annotate 'line', 569
+.annotate 'line', 584
new $P340, 'ExceptionHandler'
set_addr $P340, control_339
- $P340."handle_types"(57)
+ $P340."handle_types"(.CONTROL_RETURN)
push_eh $P340
.lex "$past", param_341
.lex "$name", param_342
-.annotate 'line', 570
+.annotate 'line', 585
find_lex $P344, "$past"
$S345 = $P344."name"()
isgt $I346, $S345, ""
if $I346, if_343
-.annotate 'line', 571
+.annotate 'line', 586
find_lex $P353, "$past"
find_lex $P354, "$name"
$P353."name"($P354)
goto if_343_end
if_343:
-.annotate 'line', 570
+.annotate 'line', 585
find_lex $P347, "$past"
find_lex $P348, "$name"
concat $P349, $P348, "="
@@ -8366,10 +8470,10 @@
concat $P352, $P349, $S351
$P347."name"($P352)
if_343_end:
-.annotate 'line', 572
+.annotate 'line', 587
find_lex $P355, "$past"
$P356 = $P355."subtype"("capture")
-.annotate 'line', 569
+.annotate 'line', 584
.return ($P356)
control_339:
.local pmc exception
@@ -8380,47 +8484,48 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "arg" :subid("28_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "arg" :subid("28_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_363
.annotate 'line', 14
new $P362, 'ExceptionHandler'
set_addr $P362, control_361
- $P362."handle_types"(57)
+ $P362."handle_types"(.CONTROL_RETURN)
push_eh $P362
.lex "self", self
.lex "$/", param_363
.annotate 'line', 15
find_lex $P364, "$/"
find_lex $P367, "$/"
- unless_null $P367, vivify_137
+ unless_null $P367, vivify_138
$P367 = root_new ['parrot';'Hash']
- vivify_137:
+ vivify_138:
set $P368, $P367["quote_EXPR"]
- unless_null $P368, vivify_138
+ unless_null $P368, vivify_139
new $P368, "Undef"
- vivify_138:
+ vivify_139:
if $P368, if_366
find_lex $P372, "$/"
- unless_null $P372, vivify_139
+ unless_null $P372, vivify_140
$P372 = root_new ['parrot';'Hash']
- vivify_139:
+ vivify_140:
set $P373, $P372["val"]
- unless_null $P373, vivify_140
+ unless_null $P373, vivify_141
new $P373, "Undef"
- vivify_140:
+ vivify_141:
set $N374, $P373
new $P365, 'Float'
set $P365, $N374
goto if_366_end
if_366:
find_lex $P369, "$/"
- unless_null $P369, vivify_141
+ unless_null $P369, vivify_142
$P369 = root_new ['parrot';'Hash']
- vivify_141:
+ vivify_142:
set $P370, $P369["quote_EXPR"]
- unless_null $P370, vivify_142
+ unless_null $P370, vivify_143
new $P370, "Undef"
- vivify_142:
+ vivify_143:
$P371 = $P370."ast"()
set $P365, $P371
if_366_end:
@@ -8436,14 +8541,15 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "arglist" :subid("29_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "arglist" :subid("29_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_380
.annotate 'line', 18
- .const 'Sub' $P390 = "30_1275117600.18794"
+ .const 'Sub' $P390 = "30_1275811482.3686"
capture_lex $P390
new $P379, 'ExceptionHandler'
set_addr $P379, control_378
- $P379."handle_types"(57)
+ $P379."handle_types"(.CONTROL_RETURN)
push_eh $P379
.lex "self", self
.lex "$/", param_380
@@ -8455,25 +8561,25 @@
store_lex "$past", $P383
.annotate 'line', 20
find_lex $P385, "$/"
- unless_null $P385, vivify_143
+ unless_null $P385, vivify_144
$P385 = root_new ['parrot';'Hash']
- vivify_143:
+ vivify_144:
set $P386, $P385["arg"]
- unless_null $P386, vivify_144
+ unless_null $P386, vivify_145
new $P386, "Undef"
- vivify_144:
+ vivify_145:
defined $I387, $P386
- unless $I387, for_undef_145
+ unless $I387, for_undef_146
iter $P384, $P386
new $P397, 'ExceptionHandler'
set_addr $P397, loop396_handler
- $P397."handle_types"(64, 66, 65)
+ $P397."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P397
loop396_test:
unless $P384, loop396_done
shift $P388, $P384
loop396_redo:
- .const 'Sub' $P390 = "30_1275117600.18794"
+ .const 'Sub' $P390 = "30_1275811482.3686"
capture_lex $P390
$P390($P388)
loop396_next:
@@ -8482,11 +8588,11 @@
.local pmc exception
.get_results (exception)
getattribute $P398, exception, 'type'
- eq $P398, 64, loop396_next
- eq $P398, 66, loop396_redo
+ eq $P398, .CONTROL_LOOP_NEXT, loop396_next
+ eq $P398, .CONTROL_LOOP_REDO, loop396_redo
loop396_done:
pop_eh
- for_undef_145:
+ for_undef_146:
.annotate 'line', 21
find_lex $P399, "$/"
find_lex $P400, "$past"
@@ -8502,7 +8608,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block389" :anon :subid("30_1275117600.18794") :outer("29_1275117600.18794")
+.sub "_block389" :anon :subid("30_1275811482.3686") :outer("29_1275811482.3686")
.param pmc param_391
.annotate 'line', 20
.lex "$_", param_391
@@ -8515,12 +8621,13 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "TOP" :subid("31_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "TOP" :subid("31_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_406
.annotate 'line', 24
new $P405, 'ExceptionHandler'
set_addr $P405, control_404
- $P405."handle_types"(57)
+ $P405."handle_types"(.CONTROL_RETURN)
push_eh $P405
.lex "self", self
.lex "$/", param_406
@@ -8528,13 +8635,13 @@
new $P407, "Undef"
.lex "$past", $P407
find_lex $P408, "$/"
- unless_null $P408, vivify_146
+ unless_null $P408, vivify_147
$P408 = root_new ['parrot';'Hash']
- vivify_146:
+ vivify_147:
set $P409, $P408["nibbler"]
- unless_null $P409, vivify_147
+ unless_null $P409, vivify_148
new $P409, "Undef"
- vivify_147:
+ vivify_148:
$P410 = $P409."ast"()
$P411 = "buildsub"($P410)
store_lex "$past", $P411
@@ -8557,25 +8664,26 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "nibbler" :subid("32_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "nibbler" :subid("32_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_421
.param pmc param_422 :optional
.param int has_param_422 :opt_flag
.annotate 'line', 30
- .const 'Sub' $P456 = "34_1275117600.18794"
+ .const 'Sub' $P456 = "34_1275811482.3686"
capture_lex $P456
- .const 'Sub' $P430 = "33_1275117600.18794"
+ .const 'Sub' $P430 = "33_1275811482.3686"
capture_lex $P430
new $P420, 'ExceptionHandler'
set_addr $P420, control_419
- $P420."handle_types"(57)
+ $P420."handle_types"(.CONTROL_RETURN)
push_eh $P420
.lex "self", self
.lex "$/", param_421
- if has_param_422, optparam_148
+ if has_param_422, optparam_149
new $P423, "Undef"
set param_422, $P423
- optparam_148:
+ optparam_149:
.lex "$key", param_422
.annotate 'line', 42
new $P424, "Undef"
@@ -8585,7 +8693,7 @@
set $S427, $P426
iseq $I428, $S427, "open"
unless $I428, if_425_end
- .const 'Sub' $P430 = "33_1275117600.18794"
+ .const 'Sub' $P430 = "33_1275811482.3686"
capture_lex $P430
$P430()
if_425_end:
@@ -8595,29 +8703,29 @@
find_lex $P441, "$past"
.annotate 'line', 43
find_lex $P443, "$/"
- unless_null $P443, vivify_151
+ unless_null $P443, vivify_152
$P443 = root_new ['parrot';'Hash']
- vivify_151:
+ vivify_152:
set $P444, $P443["termish"]
- unless_null $P444, vivify_152
+ unless_null $P444, vivify_153
new $P444, "Undef"
- vivify_152:
+ vivify_153:
set $N445, $P444
isgt $I446, $N445, 1.0
if $I446, if_442
.annotate 'line', 50
find_lex $P465, "$/"
- unless_null $P465, vivify_153
+ unless_null $P465, vivify_154
$P465 = root_new ['parrot';'Hash']
- vivify_153:
+ vivify_154:
set $P466, $P465["termish"]
- unless_null $P466, vivify_154
+ unless_null $P466, vivify_155
$P466 = root_new ['parrot';'ResizablePMCArray']
- vivify_154:
+ vivify_155:
set $P467, $P466[0]
- unless_null $P467, vivify_155
+ unless_null $P467, vivify_156
new $P467, "Undef"
- vivify_155:
+ vivify_156:
$P468 = $P467."ast"()
store_lex "$past", $P468
.annotate 'line', 49
@@ -8630,25 +8738,25 @@
store_lex "$past", $P449
.annotate 'line', 45
find_lex $P451, "$/"
- unless_null $P451, vivify_156
+ unless_null $P451, vivify_157
$P451 = root_new ['parrot';'Hash']
- vivify_156:
+ vivify_157:
set $P452, $P451["termish"]
- unless_null $P452, vivify_157
+ unless_null $P452, vivify_158
new $P452, "Undef"
- vivify_157:
+ vivify_158:
defined $I453, $P452
- unless $I453, for_undef_158
+ unless $I453, for_undef_159
iter $P450, $P452
new $P463, 'ExceptionHandler'
set_addr $P463, loop462_handler
- $P463."handle_types"(64, 66, 65)
+ $P463."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P463
loop462_test:
unless $P450, loop462_done
shift $P454, $P450
loop462_redo:
- .const 'Sub' $P456 = "34_1275117600.18794"
+ .const 'Sub' $P456 = "34_1275811482.3686"
capture_lex $P456
$P456($P454)
loop462_next:
@@ -8657,11 +8765,11 @@
.local pmc exception
.get_results (exception)
getattribute $P464, exception, 'type'
- eq $P464, 64, loop462_next
- eq $P464, 66, loop462_redo
+ eq $P464, .CONTROL_LOOP_NEXT, loop462_next
+ eq $P464, .CONTROL_LOOP_REDO, loop462_redo
loop462_done:
pop_eh
- for_undef_158:
+ for_undef_159:
if_442_end:
.annotate 'line', 52
find_lex $P469, "$/"
@@ -8678,7 +8786,8 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block429" :anon :subid("33_1275117600.18794") :outer("32_1275117600.18794")
+.include "except_types.pasm"
+.sub "_block429" :anon :subid("33_1275811482.3686") :outer("32_1275811482.3686")
.annotate 'line', 32
$P431 = root_new ['parrot';'Hash']
.lex "%old", $P431
@@ -8687,13 +8796,13 @@
.lex "%new", $P432
.annotate 'line', 32
get_global $P433, "@MODIFIERS"
- unless_null $P433, vivify_149
+ unless_null $P433, vivify_150
$P433 = root_new ['parrot';'ResizablePMCArray']
- vivify_149:
+ vivify_150:
set $P434, $P433[0]
- unless_null $P434, vivify_150
+ unless_null $P434, vivify_151
new $P434, "Undef"
- vivify_150:
+ vivify_151:
store_lex "%old", $P434
.annotate 'line', 33
@@ -8707,7 +8816,7 @@
$P436."unshift"($P437)
.annotate 'line', 38
new $P438, "Exception"
- set $P438['type'], 57
+ set $P438['type'], .CONTROL_RETURN
new $P439, "Integer"
assign $P439, 1
setattribute $P438, 'payload', $P439
@@ -8718,7 +8827,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block455" :anon :subid("34_1275117600.18794") :outer("32_1275117600.18794")
+.sub "_block455" :anon :subid("34_1275811482.3686") :outer("32_1275811482.3686")
.param pmc param_457
.annotate 'line', 45
.lex "$_", param_457
@@ -8733,14 +8842,15 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "termish" :subid("35_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "termish" :subid("35_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_476
.annotate 'line', 55
- .const 'Sub' $P489 = "36_1275117600.18794"
+ .const 'Sub' $P489 = "36_1275811482.3686"
capture_lex $P489
new $P475, 'ExceptionHandler'
set_addr $P475, control_474
- $P475."handle_types"(57)
+ $P475."handle_types"(.CONTROL_RETURN)
push_eh $P475
.lex "self", self
.lex "$/", param_476
@@ -8761,25 +8871,25 @@
store_lex "$lastlit", $P482
.annotate 'line', 58
find_lex $P484, "$/"
- unless_null $P484, vivify_159
+ unless_null $P484, vivify_160
$P484 = root_new ['parrot';'Hash']
- vivify_159:
+ vivify_160:
set $P485, $P484["noun"]
- unless_null $P485, vivify_160
+ unless_null $P485, vivify_161
new $P485, "Undef"
- vivify_160:
+ vivify_161:
defined $I486, $P485
- unless $I486, for_undef_161
+ unless $I486, for_undef_162
iter $P483, $P485
new $P535, 'ExceptionHandler'
set_addr $P535, loop534_handler
- $P535."handle_types"(64, 66, 65)
+ $P535."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
push_eh $P535
loop534_test:
unless $P483, loop534_done
shift $P487, $P483
loop534_redo:
- .const 'Sub' $P489 = "36_1275117600.18794"
+ .const 'Sub' $P489 = "36_1275811482.3686"
capture_lex $P489
$P489($P487)
loop534_next:
@@ -8788,11 +8898,11 @@
.local pmc exception
.get_results (exception)
getattribute $P536, exception, 'type'
- eq $P536, 64, loop534_next
- eq $P536, 66, loop534_redo
+ eq $P536, .CONTROL_LOOP_NEXT, loop534_next
+ eq $P536, .CONTROL_LOOP_REDO, loop534_redo
loop534_done:
pop_eh
- for_undef_161:
+ for_undef_162:
.annotate 'line', 73
find_lex $P537, "$/"
find_lex $P538, "$past"
@@ -8808,7 +8918,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block488" :anon :subid("36_1275117600.18794") :outer("35_1275117600.18794")
+.sub "_block488" :anon :subid("36_1275811482.3686") :outer("35_1275811482.3686")
.param pmc param_491
.annotate 'line', 59
new $P490, "Undef"
@@ -8842,13 +8952,13 @@
.annotate 'line', 62
get_hll_global $P507, ["PAST"], "Node"
find_lex $P508, "$ast"
- unless_null $P508, vivify_162
+ unless_null $P508, vivify_163
$P508 = root_new ['parrot';'ResizablePMCArray']
- vivify_162:
+ vivify_163:
set $P509, $P508[0]
- unless_null $P509, vivify_163
+ unless_null $P509, vivify_164
new $P509, "Undef"
- vivify_163:
+ vivify_164:
$P510 = $P507."ACCEPTS"($P509)
isfalse $I511, $P510
new $P499, 'Integer'
@@ -8871,13 +8981,13 @@
.annotate 'line', 68
get_hll_global $P527, ["PAST"], "Node"
find_lex $P528, "$ast"
- unless_null $P528, vivify_164
+ unless_null $P528, vivify_165
$P528 = root_new ['parrot';'ResizablePMCArray']
- vivify_164:
+ vivify_165:
set $P529, $P528[0]
- unless_null $P529, vivify_165
+ unless_null $P529, vivify_166
new $P529, "Undef"
- vivify_165:
+ vivify_166:
$P530 = $P527."ACCEPTS"($P529)
isfalse $I531, $P530
new $P522, 'Integer'
@@ -8901,27 +9011,27 @@
if_498:
.annotate 'line', 63
find_lex $P512, "$lastlit"
- unless_null $P512, vivify_166
+ unless_null $P512, vivify_167
$P512 = root_new ['parrot';'ResizablePMCArray']
- vivify_166:
+ vivify_167:
set $P513, $P512[0]
- unless_null $P513, vivify_167
+ unless_null $P513, vivify_168
new $P513, "Undef"
- vivify_167:
+ vivify_168:
find_lex $P514, "$ast"
- unless_null $P514, vivify_168
+ unless_null $P514, vivify_169
$P514 = root_new ['parrot';'ResizablePMCArray']
- vivify_168:
+ vivify_169:
set $P515, $P514[0]
- unless_null $P515, vivify_169
+ unless_null $P515, vivify_170
new $P515, "Undef"
- vivify_169:
+ vivify_170:
concat $P516, $P513, $P515
find_lex $P517, "$lastlit"
- unless_null $P517, vivify_170
+ unless_null $P517, vivify_171
$P517 = root_new ['parrot';'ResizablePMCArray']
store_lex "$lastlit", $P517
- vivify_170:
+ vivify_171:
set $P517[0], $P516
.annotate 'line', 62
set $P497, $P516
@@ -8935,14 +9045,15 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantified_atom" :subid("37_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "quantified_atom" :subid("37_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_544
.annotate 'line', 76
- .const 'Sub' $P553 = "38_1275117600.18794"
+ .const 'Sub' $P553 = "38_1275811482.3686"
capture_lex $P553
new $P543, 'ExceptionHandler'
set_addr $P543, control_542
- $P543."handle_types"(57)
+ $P543."handle_types"(.CONTROL_RETURN)
push_eh $P543
.lex "self", self
.lex "$/", param_544
@@ -8950,58 +9061,58 @@
new $P545, "Undef"
.lex "$past", $P545
find_lex $P546, "$/"
- unless_null $P546, vivify_171
+ unless_null $P546, vivify_172
$P546 = root_new ['parrot';'Hash']
- vivify_171:
+ vivify_172:
set $P547, $P546["atom"]
- unless_null $P547, vivify_172
+ unless_null $P547, vivify_173
new $P547, "Undef"
- vivify_172:
+ vivify_173:
$P548 = $P547."ast"()
store_lex "$past", $P548
.annotate 'line', 78
find_lex $P550, "$/"
- unless_null $P550, vivify_173
+ unless_null $P550, vivify_174
$P550 = root_new ['parrot';'Hash']
- vivify_173:
+ vivify_174:
set $P551, $P550["quantifier"]
- unless_null $P551, vivify_174
+ unless_null $P551, vivify_175
new $P551, "Undef"
- vivify_174:
+ vivify_175:
if $P551, if_549
.annotate 'line', 84
find_lex $P568, "$/"
- unless_null $P568, vivify_175
+ unless_null $P568, vivify_176
$P568 = root_new ['parrot';'Hash']
- vivify_175:
+ vivify_176:
set $P569, $P568["backmod"]
- unless_null $P569, vivify_176
+ unless_null $P569, vivify_177
$P569 = root_new ['parrot';'ResizablePMCArray']
- vivify_176:
+ vivify_177:
set $P570, $P569[0]
- unless_null $P570, vivify_177
+ unless_null $P570, vivify_178
new $P570, "Undef"
- vivify_177:
+ vivify_178:
unless $P570, if_567_end
find_lex $P571, "$past"
find_lex $P572, "$/"
- unless_null $P572, vivify_178
+ unless_null $P572, vivify_179
$P572 = root_new ['parrot';'Hash']
- vivify_178:
+ vivify_179:
set $P573, $P572["backmod"]
- unless_null $P573, vivify_179
+ unless_null $P573, vivify_180
$P573 = root_new ['parrot';'ResizablePMCArray']
- vivify_179:
+ vivify_180:
set $P574, $P573[0]
- unless_null $P574, vivify_180
+ unless_null $P574, vivify_181
new $P574, "Undef"
- vivify_180:
+ vivify_181:
"backmod"($P571, $P574)
if_567_end:
goto if_549_end
if_549:
.annotate 'line', 78
- .const 'Sub' $P553 = "38_1275117600.18794"
+ .const 'Sub' $P553 = "38_1275811482.3686"
capture_lex $P553
$P553()
if_549_end:
@@ -9022,17 +9133,17 @@
goto if_577_end
if_577:
get_global $P584, "@MODIFIERS"
- unless_null $P584, vivify_184
+ unless_null $P584, vivify_185
$P584 = root_new ['parrot';'ResizablePMCArray']
- vivify_184:
+ vivify_185:
set $P585, $P584[0]
- unless_null $P585, vivify_185
+ unless_null $P585, vivify_186
$P585 = root_new ['parrot';'Hash']
- vivify_185:
+ vivify_186:
set $P586, $P585["r"]
- unless_null $P586, vivify_186
+ unless_null $P586, vivify_187
new $P586, "Undef"
- vivify_186:
+ vivify_187:
set $P576, $P586
if_577_end:
unless $P576, if_575_end
@@ -9055,7 +9166,7 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block552" :anon :subid("38_1275117600.18794") :outer("37_1275117600.18794")
+.sub "_block552" :anon :subid("38_1275811482.3686") :outer("37_1275811482.3686")
.annotate 'line', 80
new $P554, "Undef"
.lex "$qast", $P554
@@ -9065,21 +9176,21 @@
unless $I557, if_555_end
find_lex $P558, "$/"
$P559 = $P558."CURSOR"()
- $P559."panic"("Can't quantify zero-width atom")
+ $P559."panic"("Quantifier follows nothing")
if_555_end:
.annotate 'line', 80
find_lex $P560, "$/"
- unless_null $P560, vivify_181
+ unless_null $P560, vivify_182
$P560 = root_new ['parrot';'Hash']
- vivify_181:
+ vivify_182:
set $P561, $P560["quantifier"]
- unless_null $P561, vivify_182
+ unless_null $P561, vivify_183
$P561 = root_new ['parrot';'ResizablePMCArray']
- vivify_182:
+ vivify_183:
set $P562, $P561[0]
- unless_null $P562, vivify_183
+ unless_null $P562, vivify_184
new $P562, "Undef"
- vivify_183:
+ vivify_184:
$P563 = $P562."ast"()
store_lex "$qast", $P563
.annotate 'line', 81
@@ -9095,12 +9206,13 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "atom" :subid("39_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "atom" :subid("39_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_595
.annotate 'line', 91
new $P594, 'ExceptionHandler'
set_addr $P594, control_593
- $P594."handle_types"(57)
+ $P594."handle_types"(.CONTROL_RETURN)
push_eh $P594
.lex "self", self
.lex "$/", param_595
@@ -9111,13 +9223,13 @@
find_lex $P597, "$past"
.annotate 'line', 93
find_lex $P599, "$/"
- unless_null $P599, vivify_187
+ unless_null $P599, vivify_188
$P599 = root_new ['parrot';'Hash']
- vivify_187:
+ vivify_188:
set $P600, $P599["metachar"]
- unless_null $P600, vivify_188
+ unless_null $P600, vivify_189
new $P600, "Undef"
- vivify_188:
+ vivify_189:
if $P600, if_598
.annotate 'line', 95
get_hll_global $P604, ["PAST"], "Regex"
@@ -9128,17 +9240,17 @@
store_lex "$past", $P608
.annotate 'line', 96
get_global $P610, "@MODIFIERS"
- unless_null $P610, vivify_189
+ unless_null $P610, vivify_190
$P610 = root_new ['parrot';'ResizablePMCArray']
- vivify_189:
+ vivify_190:
set $P611, $P610[0]
- unless_null $P611, vivify_190
+ unless_null $P611, vivify_191
$P611 = root_new ['parrot';'Hash']
- vivify_190:
+ vivify_191:
set $P612, $P611["i"]
- unless_null $P612, vivify_191
+ unless_null $P612, vivify_192
new $P612, "Undef"
- vivify_191:
+ vivify_192:
unless $P612, if_609_end
find_lex $P613, "$past"
$P613."subtype"("ignorecase")
@@ -9148,13 +9260,13 @@
if_598:
.annotate 'line', 93
find_lex $P601, "$/"
- unless_null $P601, vivify_192
+ unless_null $P601, vivify_193
$P601 = root_new ['parrot';'Hash']
- vivify_192:
+ vivify_193:
set $P602, $P601["metachar"]
- unless_null $P602, vivify_193
+ unless_null $P602, vivify_194
new $P602, "Undef"
- vivify_193:
+ vivify_194:
$P603 = $P602."ast"()
store_lex "$past", $P603
if_598_end:
@@ -9173,12 +9285,13 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<*>" :subid("40_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "quantifier:sym<*>" :subid("40_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_621
.annotate 'line', 101
new $P620, 'ExceptionHandler'
set_addr $P620, control_619
- $P620."handle_types"(57)
+ $P620."handle_types"(.CONTROL_RETURN)
push_eh $P620
.lex "self", self
.lex "$/", param_621
@@ -9193,13 +9306,13 @@
find_lex $P626, "$/"
find_lex $P627, "$past"
find_lex $P628, "$/"
- unless_null $P628, vivify_194
+ unless_null $P628, vivify_195
$P628 = root_new ['parrot';'Hash']
- vivify_194:
+ vivify_195:
set $P629, $P628["backmod"]
- unless_null $P629, vivify_195
+ unless_null $P629, vivify_196
new $P629, "Undef"
- vivify_195:
+ vivify_196:
$P630 = "backmod"($P627, $P629)
$P631 = $P626."!make"($P630)
.annotate 'line', 101
@@ -9213,12 +9326,13 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<+>" :subid("41_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "quantifier:sym<+>" :subid("41_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_636
.annotate 'line', 106
new $P635, 'ExceptionHandler'
set_addr $P635, control_634
- $P635."handle_types"(57)
+ $P635."handle_types"(.CONTROL_RETURN)
push_eh $P635
.lex "self", self
.lex "$/", param_636
@@ -9233,13 +9347,13 @@
find_lex $P641, "$/"
find_lex $P642, "$past"
find_lex $P643, "$/"
- unless_null $P643, vivify_196
+ unless_null $P643, vivify_197
$P643 = root_new ['parrot';'Hash']
- vivify_196:
+ vivify_197:
set $P644, $P643["backmod"]
- unless_null $P644, vivify_197
+ unless_null $P644, vivify_198
new $P644, "Undef"
- vivify_197:
+ vivify_198:
$P645 = "backmod"($P642, $P644)
$P646 = $P641."!make"($P645)
.annotate 'line', 106
@@ -9253,12 +9367,13 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<?>" :subid("42_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "quantifier:sym<?>" :subid("42_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_651
.annotate 'line', 111
new $P650, 'ExceptionHandler'
set_addr $P650, control_649
- $P650."handle_types"(57)
+ $P650."handle_types"(.CONTROL_RETURN)
push_eh $P650
.lex "self", self
.lex "$/", param_651
@@ -9273,13 +9388,13 @@
find_lex $P656, "$/"
find_lex $P657, "$past"
find_lex $P658, "$/"
- unless_null $P658, vivify_198
+ unless_null $P658, vivify_199
$P658 = root_new ['parrot';'Hash']
- vivify_198:
+ vivify_199:
set $P659, $P658["backmod"]
- unless_null $P659, vivify_199
+ unless_null $P659, vivify_200
new $P659, "Undef"
- vivify_199:
+ vivify_200:
$P660 = "backmod"($P657, $P659)
$P656."!make"($P660)
.annotate 'line', 114
@@ -9297,2026 +9412,2134 @@
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "quantifier:sym<**>" :subid("43_1275117600.18794") :method :outer("11_1275117600.18794")
+.include "except_types.pasm"
+.sub "quantifier:sym<**>" :subid("43_1275811482.3686") :method :outer("11_1275811482.3686")
.param pmc param_668
.annotate 'line', 117
+ .const 'Sub' $P683 = "44_1275811482.3686"
+ capture_lex $P683
new $P667, 'ExceptionHandler'
set_addr $P667, control_666
- $P667."handle_types"(57)
+ $P667."handle_types"(.CONTROL_RETURN)
push_eh $P667
.lex "self", self
.lex "$/", param_668
.annotate 'line', 118
new $P669, "Undef"
.lex "$past", $P669
+.annotate 'line', 119
+ new $P670, "Undef"
+ .lex "$ws", $P670
.annotate 'line', 117
- find_lex $P670, "$past"
+ find_lex $P671, "$past"
.annotate 'line', 119
- find_lex $P672, "$/"
- unless_null $P672, vivify_200
- $P672 = root_new ['parrot';'Hash']
- vivify_200:
- set $P673, $P672["quantified_atom"]
- unless_null $P673, vivify_201
- new $P673, "Undef"
+ find_lex $P674, "$/"
+ unless_null $P674, vivify_201
+ $P674 = root_new ['parrot';'Hash']
vivify_201:
- if $P673, if_671
-.annotate 'line', 124
- get_hll_global $P680, ["PAST"], "Regex"
- find_lex $P681, "$/"
- unless_null $P681, vivify_202
- $P681 = root_new ['parrot';'Hash']
+ set $P675, $P674["normspace"]
+ unless_null $P675, vivify_202
+ new $P675, "Undef"
vivify_202:
- set $P682, $P681["min"]
- unless_null $P682, vivify_203
- new $P682, "Undef"
+ if $P675, if_673
+ set $P672, $P675
+ goto if_673_end
+ if_673:
+ get_global $P676, "@MODIFIERS"
+ unless_null $P676, vivify_203
+ $P676 = root_new ['parrot';'ResizablePMCArray']
vivify_203:
- 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 $P687, "$/"
- unless_null $P687, vivify_204
- $P687 = root_new ['parrot';'Hash']
+ set $P677, $P676[0]
+ unless_null $P677, vivify_204
+ $P677 = root_new ['parrot';'Hash']
vivify_204:
- set $P688, $P687["max"]
- unless_null $P688, vivify_205
- new $P688, "Undef"
+ set $P678, $P677["s"]
+ unless_null $P678, vivify_205
+ new $P678, "Undef"
vivify_205:
- isfalse $I689, $P688
- if $I689, if_686
-.annotate 'line', 126
- find_lex $P695, "$/"
- unless_null $P695, vivify_206
- $P695 = root_new ['parrot';'Hash']
+ set $P672, $P678
+ if_673_end:
+ store_lex "$ws", $P672
+.annotate 'line', 120
+ find_lex $P680, "$/"
+ unless_null $P680, vivify_206
+ $P680 = root_new ['parrot';'Hash']
vivify_206:
- set $P696, $P695["max"]
- unless_null $P696, vivify_207
- $P696 = root_new ['parrot';'ResizablePMCArray']
+ set $P681, $P680["quantified_atom"]
+ unless_null $P681, vivify_207
+ new $P681, "Undef"
vivify_207:
- set $P697, $P696[0]
- unless_null $P697, vivify_208
- new $P697, "Undef"
+ if $P681, if_679
+.annotate 'line', 136
+ get_hll_global $P701, ["PAST"], "Regex"
+ find_lex $P702, "$/"
+ unless_null $P702, vivify_208
+ $P702 = root_new ['parrot';'Hash']
vivify_208:
- 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']
+ set $P703, $P702["min"]
+ unless_null $P703, vivify_209
+ new $P703, "Undef"
vivify_209:
- set $P702, $P701["max"]
- unless_null $P702, vivify_210
- $P702 = root_new ['parrot';'ResizablePMCArray']
+ set $N704, $P703
+ find_lex $P705, "$/"
+ $P706 = $P701."new"("quant" :named("pasttype"), $N704 :named("min"), $P705 :named("node"))
+ store_lex "$past", $P706
+.annotate 'line', 137
+ find_lex $P708, "$/"
+ unless_null $P708, vivify_210
+ $P708 = root_new ['parrot';'Hash']
vivify_210:
- set $P703, $P702[0]
- unless_null $P703, vivify_211
- new $P703, "Undef"
+ set $P709, $P708["max"]
+ unless_null $P709, vivify_211
+ new $P709, "Undef"
vivify_211:
- set $N704, $P703
- $P700."max"($N704)
- if_694_end:
- goto if_686_end
- if_686:
-.annotate 'line', 125
- find_lex $P690, "$past"
- find_lex $P691, "$/"
- unless_null $P691, vivify_212
- $P691 = root_new ['parrot';'Hash']
+ isfalse $I710, $P709
+ if $I710, if_707
+.annotate 'line', 138
+ find_lex $P716, "$/"
+ unless_null $P716, vivify_212
+ $P716 = root_new ['parrot';'Hash']
vivify_212:
- set $P692, $P691["min"]
- unless_null $P692, vivify_213
- new $P692, "Undef"
+ set $P717, $P716["max"]
+ unless_null $P717, vivify_213
+ $P717 = root_new ['parrot';'ResizablePMCArray']
vivify_213:
- set $N693, $P692
- $P690."max"($N693)
- if_686_end:
-.annotate 'line', 123
- goto if_671_end
- if_671:
-.annotate 'line', 120
- get_hll_global $P674, ["PAST"], "Regex"
-.annotate 'line', 121
- find_lex $P675, "$/"
- unless_null $P675, vivify_214
- $P675 = root_new ['parrot';'Hash']
+ set $P718, $P717[0]
+ unless_null $P718, vivify_214
+ new $P718, "Undef"
vivify_214:
- set $P676, $P675["quantified_atom"]
- unless_null $P676, vivify_215
- new $P676, "Undef"
+ set $S719, $P718
+ isne $I720, $S719, "*"
+ unless $I720, if_715_end
+ find_lex $P721, "$past"
+ find_lex $P722, "$/"
+ unless_null $P722, vivify_215
+ $P722 = root_new ['parrot';'Hash']
vivify_215:
- $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", $P679
- if_671_end:
-.annotate 'line', 128
- find_lex $P705, "$/"
- find_lex $P706, "$past"
- find_lex $P707, "$/"
- unless_null $P707, vivify_216
- $P707 = root_new ['parrot';'Hash']
+ set $P723, $P722["max"]
+ unless_null $P723, vivify_216
+ $P723 = root_new ['parrot';'ResizablePMCArray']
vivify_216:
- set $P708, $P707["backmod"]
- unless_null $P708, vivify_217
- new $P708, "Undef"
+ set $P724, $P723[0]
+ unless_null $P724, vivify_217
+ new $P724, "Undef"
vivify_217:
- $P709 = "backmod"($P706, $P708)
- $P710 = $P705."!make"($P709)
+ set $N725, $P724
+ $P721."max"($N725)
+ if_715_end:
+ goto if_707_end
+ if_707:
+.annotate 'line', 137
+ find_lex $P711, "$past"
+ find_lex $P712, "$/"
+ unless_null $P712, vivify_218
+ $P712 = root_new ['parrot';'Hash']
+ vivify_218:
+ set $P713, $P712["min"]
+ unless_null $P713, vivify_219
+ new $P713, "Undef"
+ vivify_219:
+ set $N714, $P713
+ $P711."max"($N714)
+ if_707_end:
+.annotate 'line', 139
+ find_lex $P727, "$ws"
+ unless $P727, if_726_end
+ find_lex $P728, "$past"
+ get_hll_global $P729, ["PAST"], "Regex"
+ $P730 = $P729."new"("ws", "subrule" :named("pasttype"), "method" :named("subtype"))
+ $P728."sep"($P730)
+ if_726_end:
+.annotate 'line', 135
+ goto if_679_end
+ if_679:
+.annotate 'line', 120
+ .const 'Sub' $P683 = "44_1275811482.3686"
+ capture_lex $P683
+ $P683()
+ if_679_end:
+.annotate 'line', 143
+ find_lex $P731, "$/"
+ find_lex $P732, "$past"
+ find_lex $P733, "$/"
+ unless_null $P733, vivify_222
+ $P733 = root_new ['parrot';'Hash']
+ vivify_222:
+ set $P734, $P733["backmod"]
+ unless_null $P734, vivify_223
+ new $P734, "Undef"
+ vivify_223:
+ $P735 = "backmod"($P732, $P734)
+ $P736 = $P731."!make"($P735)
.annotate 'line', 117
- .return ($P710)
+ .return ($P736)
control_666:
.local pmc exception
.get_results (exception)
- getattribute $P711, exception, "payload"
- .return ($P711)
+ getattribute $P737, exception, "payload"
+ .return ($P737)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<ws>" :subid("44_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_715
-.annotate 'line', 131
- new $P714, 'ExceptionHandler'
- set_addr $P714, control_713
- $P714."handle_types"(57)
- push_eh $P714
- .lex "self", self
- .lex "$/", param_715
-.annotate 'line', 132
- new $P716, "Undef"
- .lex "$past", $P716
-.annotate 'line', 133
- get_global $P719, "@MODIFIERS"
- unless_null $P719, vivify_218
- $P719 = root_new ['parrot';'ResizablePMCArray']
- vivify_218:
- set $P720, $P719[0]
- unless_null $P720, vivify_219
- $P720 = root_new ['parrot';'Hash']
- vivify_219:
- set $P721, $P720["s"]
- unless_null $P721, vivify_220
- new $P721, "Undef"
+.sub "_block682" :anon :subid("44_1275811482.3686") :outer("43_1275811482.3686")
+.annotate 'line', 121
+ new $P684, "Undef"
+ .lex "$ast", $P684
+ find_lex $P685, "$/"
+ unless_null $P685, vivify_220
+ $P685 = root_new ['parrot';'Hash']
vivify_220:
- 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 $P726, "$/"
- find_lex $P727, "$past"
- $P728 = $P726."!make"($P727)
-.annotate 'line', 131
- .return ($P728)
- control_713:
- .local pmc exception
- .get_results (exception)
- getattribute $P729, exception, "payload"
- .return ($P729)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<[ ]>" :subid("45_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_733
-.annotate 'line', 140
- new $P732, 'ExceptionHandler'
- set_addr $P732, control_731
- $P732."handle_types"(57)
- push_eh $P732
- .lex "self", self
- .lex "$/", param_733
-.annotate 'line', 141
- find_lex $P734, "$/"
- find_lex $P735, "$/"
- unless_null $P735, vivify_221
- $P735 = root_new ['parrot';'Hash']
+ set $P686, $P685["quantified_atom"]
+ unless_null $P686, vivify_221
+ new $P686, "Undef"
vivify_221:
- set $P736, $P735["nibbler"]
- unless_null $P736, vivify_222
- new $P736, "Undef"
- vivify_222:
- $P737 = $P736."ast"()
- $P738 = $P734."!make"($P737)
-.annotate 'line', 140
- .return ($P738)
- control_731:
- .local pmc exception
- .get_results (exception)
- getattribute $P739, exception, "payload"
- .return ($P739)
+ $P687 = $P686."ast"()
+ store_lex "$ast", $P687
+.annotate 'line', 122
+ find_lex $P689, "$ws"
+ unless $P689, if_688_end
+.annotate 'line', 123
+ get_hll_global $P690, ["PAST"], "Regex"
+.annotate 'line', 125
+ get_hll_global $P691, ["PAST"], "Regex"
+ $P692 = $P691."new"("ws", "subrule" :named("pasttype"), "method" :named("subtype"))
+ find_lex $P693, "$ast"
+.annotate 'line', 128
+ get_hll_global $P694, ["PAST"], "Regex"
+ $P695 = $P694."new"("ws", "subrule" :named("pasttype"), "method" :named("subtype"))
+ $P696 = $P690."new"($P692, $P693, $P695, "concat" :named("pasttype"))
+.annotate 'line', 123
+ store_lex "$ast", $P696
+ if_688_end:
+.annotate 'line', 132
+ get_hll_global $P697, ["PAST"], "Regex"
+ find_lex $P698, "$ast"
+ find_lex $P699, "$/"
+ $P700 = $P697."new"("quant" :named("pasttype"), 1 :named("min"), $P698 :named("sep"), $P699 :named("node"))
+ store_lex "$past", $P700
+.annotate 'line', 120
+ .return ($P700)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<( )>" :subid("46_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_743
-.annotate 'line', 144
- new $P742, 'ExceptionHandler'
- set_addr $P742, control_741
- $P742."handle_types"(57)
- push_eh $P742
- .lex "self", self
- .lex "$/", param_743
-.annotate 'line', 145
- new $P744, "Undef"
- .lex "$subpast", $P744
+.include "except_types.pasm"
+.sub "metachar:sym<ws>" :subid("45_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_741
.annotate 'line', 146
- new $P745, "Undef"
- .lex "$past", $P745
-.annotate 'line', 145
- find_lex $P746, "$/"
- unless_null $P746, vivify_223
+ new $P740, 'ExceptionHandler'
+ set_addr $P740, control_739
+ $P740."handle_types"(.CONTROL_RETURN)
+ push_eh $P740
+ .lex "self", self
+ .lex "$/", param_741
+.annotate 'line', 147
+ new $P742, "Undef"
+ .lex "$past", $P742
+.annotate 'line', 148
+ get_global $P745, "@MODIFIERS"
+ unless_null $P745, vivify_224
+ $P745 = root_new ['parrot';'ResizablePMCArray']
+ vivify_224:
+ set $P746, $P745[0]
+ unless_null $P746, vivify_225
$P746 = root_new ['parrot';'Hash']
- vivify_223:
- set $P747, $P746["nibbler"]
- unless_null $P747, vivify_224
+ vivify_225:
+ set $P747, $P746["s"]
+ unless_null $P747, vivify_226
new $P747, "Undef"
- vivify_224:
- $P748 = $P747."ast"()
- $P749 = "buildsub"($P748)
- store_lex "$subpast", $P749
-.annotate 'line', 146
- get_hll_global $P750, ["PAST"], "Regex"
- find_lex $P751, "$subpast"
+ vivify_226:
+ if $P747, if_744
+ new $P751, "Integer"
+ assign $P751, 0
+ set $P743, $P751
+ goto if_744_end
+ if_744:
+ get_hll_global $P748, ["PAST"], "Regex"
+ find_lex $P749, "$/"
+ $P750 = $P748."new"("ws", "subrule" :named("pasttype"), "method" :named("subtype"), $P749 :named("node"))
+ set $P743, $P750
+ if_744_end:
+ store_lex "$past", $P743
+.annotate 'line', 151
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 $P754, "$/"
- find_lex $P755, "$past"
- $P756 = $P754."!make"($P755)
-.annotate 'line', 144
- .return ($P756)
- control_741:
+ find_lex $P753, "$past"
+ $P754 = $P752."!make"($P753)
+.annotate 'line', 146
+ .return ($P754)
+ control_739:
.local pmc exception
.get_results (exception)
- getattribute $P757, exception, "payload"
- .return ($P757)
+ getattribute $P755, exception, "payload"
+ .return ($P755)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<'>" :subid("47_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_761
-.annotate 'line', 151
- new $P760, 'ExceptionHandler'
- set_addr $P760, control_759
- $P760."handle_types"(57)
- push_eh $P760
- .lex "self", self
- .lex "$/", param_761
-.annotate 'line', 152
+.include "except_types.pasm"
+.sub "metachar:sym<[ ]>" :subid("46_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_759
+.annotate 'line', 155
+ new $P758, 'ExceptionHandler'
+ set_addr $P758, control_757
+ $P758."handle_types"(.CONTROL_RETURN)
+ push_eh $P758
+ .lex "self", self
+ .lex "$/", param_759
+.annotate 'line', 156
+ find_lex $P760, "$/"
+ find_lex $P761, "$/"
+ unless_null $P761, vivify_227
+ $P761 = root_new ['parrot';'Hash']
+ vivify_227:
+ set $P762, $P761["nibbler"]
+ unless_null $P762, vivify_228
new $P762, "Undef"
- .lex "$quote", $P762
-.annotate 'line', 154
- new $P763, "Undef"
- .lex "$past", $P763
-.annotate 'line', 152
- find_lex $P764, "$/"
- unless_null $P764, vivify_225
- $P764 = root_new ['parrot';'Hash']
- vivify_225:
- set $P765, $P764["quote_EXPR"]
- unless_null $P765, vivify_226
- new $P765, "Undef"
- vivify_226:
- $P766 = $P765."ast"()
- store_lex "$quote", $P766
-.annotate 'line', 153
- 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 $P773, ["PAST"], "Regex"
- find_lex $P774, "$quote"
- find_lex $P775, "$/"
- $P776 = $P773."new"($P774, "literal" :named("pasttype"), $P775 :named("node"))
- store_lex "$past", $P776
+ vivify_228:
+ $P763 = $P762."ast"()
+ $P764 = $P760."!make"($P763)
.annotate 'line', 155
- find_lex $P777, "$/"
- find_lex $P778, "$past"
- $P779 = $P777."!make"($P778)
-.annotate 'line', 151
- .return ($P779)
- control_759:
+ .return ($P764)
+ control_757:
.local pmc exception
.get_results (exception)
- getattribute $P780, exception, "payload"
- .return ($P780)
+ getattribute $P765, exception, "payload"
+ .return ($P765)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<\">" :subid("48_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_784
-.annotate 'line', 158
- new $P783, 'ExceptionHandler'
- set_addr $P783, control_782
- $P783."handle_types"(57)
- push_eh $P783
- .lex "self", self
- .lex "$/", param_784
+.include "except_types.pasm"
+.sub "metachar:sym<( )>" :subid("47_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_769
.annotate 'line', 159
- new $P785, "Undef"
- .lex "$quote", $P785
+ new $P768, 'ExceptionHandler'
+ set_addr $P768, control_767
+ $P768."handle_types"(.CONTROL_RETURN)
+ push_eh $P768
+ .lex "self", self
+ .lex "$/", param_769
+.annotate 'line', 160
+ new $P770, "Undef"
+ .lex "$subpast", $P770
.annotate 'line', 161
- new $P786, "Undef"
- .lex "$past", $P786
-.annotate 'line', 159
- find_lex $P787, "$/"
- unless_null $P787, vivify_227
- $P787 = root_new ['parrot';'Hash']
- vivify_227:
- set $P788, $P787["quote_EXPR"]
- unless_null $P788, vivify_228
- new $P788, "Undef"
- vivify_228:
- $P789 = $P788."ast"()
- store_lex "$quote", $P789
+ new $P771, "Undef"
+ .lex "$past", $P771
.annotate 'line', 160
- 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:
+ find_lex $P772, "$/"
+ unless_null $P772, vivify_229
+ $P772 = root_new ['parrot';'Hash']
+ vivify_229:
+ set $P773, $P772["nibbler"]
+ unless_null $P773, vivify_230
+ new $P773, "Undef"
+ vivify_230:
+ $P774 = $P773."ast"()
+ $P775 = "buildsub"($P774)
+ store_lex "$subpast", $P775
.annotate 'line', 161
- 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 $P800, "$/"
- find_lex $P801, "$past"
- $P802 = $P800."!make"($P801)
-.annotate 'line', 158
- .return ($P802)
- control_782:
+ get_hll_global $P776, ["PAST"], "Regex"
+ find_lex $P777, "$subpast"
+ find_lex $P778, "$/"
+ $P779 = $P776."new"($P777, "subrule" :named("pasttype"), "capture" :named("subtype"), $P778 :named("node"))
+ store_lex "$past", $P779
+.annotate 'line', 163
+ find_lex $P780, "$/"
+ find_lex $P781, "$past"
+ $P782 = $P780."!make"($P781)
+.annotate 'line', 159
+ .return ($P782)
+ control_767:
.local pmc exception
.get_results (exception)
- getattribute $P803, exception, "payload"
- .return ($P803)
+ getattribute $P783, exception, "payload"
+ .return ($P783)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<.>" :subid("49_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_807
-.annotate 'line', 165
- new $P806, 'ExceptionHandler'
- set_addr $P806, control_805
- $P806."handle_types"(57)
- push_eh $P806
- .lex "self", self
- .lex "$/", param_807
+.include "except_types.pasm"
+.sub "metachar:sym<'>" :subid("48_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_787
.annotate 'line', 166
- 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 $P812, "$/"
- find_lex $P813, "$past"
- $P814 = $P812."!make"($P813)
-.annotate 'line', 165
- .return ($P814)
- control_805:
- .local pmc exception
- .get_results (exception)
- getattribute $P815, exception, "payload"
- .return ($P815)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<^>" :subid("50_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_819
-.annotate 'line', 170
- new $P818, 'ExceptionHandler'
- set_addr $P818, control_817
- $P818."handle_types"(57)
- push_eh $P818
+ new $P786, 'ExceptionHandler'
+ set_addr $P786, control_785
+ $P786."handle_types"(.CONTROL_RETURN)
+ push_eh $P786
.lex "self", self
- .lex "$/", param_819
-.annotate 'line', 171
- 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 $P824, "$/"
- find_lex $P825, "$past"
- $P826 = $P824."!make"($P825)
+ .lex "$/", param_787
+.annotate 'line', 167
+ new $P788, "Undef"
+ .lex "$quote", $P788
+.annotate 'line', 169
+ new $P789, "Undef"
+ .lex "$past", $P789
+.annotate 'line', 167
+ find_lex $P790, "$/"
+ unless_null $P790, vivify_231
+ $P790 = root_new ['parrot';'Hash']
+ vivify_231:
+ set $P791, $P790["quote_EXPR"]
+ unless_null $P791, vivify_232
+ new $P791, "Undef"
+ vivify_232:
+ $P792 = $P791."ast"()
+ store_lex "$quote", $P792
+.annotate 'line', 168
+ get_hll_global $P794, ["PAST"], "Val"
+ find_lex $P795, "$quote"
+ $P796 = $P794."ACCEPTS"($P795)
+ unless $P796, if_793_end
+ find_lex $P797, "$quote"
+ $P798 = $P797."value"()
+ store_lex "$quote", $P798
+ if_793_end:
+.annotate 'line', 169
+ get_hll_global $P799, ["PAST"], "Regex"
+ find_lex $P800, "$quote"
+ find_lex $P801, "$/"
+ $P802 = $P799."new"($P800, "literal" :named("pasttype"), $P801 :named("node"))
+ store_lex "$past", $P802
.annotate 'line', 170
- .return ($P826)
- control_817:
+ find_lex $P803, "$/"
+ find_lex $P804, "$past"
+ $P805 = $P803."!make"($P804)
+.annotate 'line', 166
+ .return ($P805)
+ control_785:
.local pmc exception
.get_results (exception)
- getattribute $P827, exception, "payload"
- .return ($P827)
+ getattribute $P806, exception, "payload"
+ .return ($P806)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<^^>" :subid("51_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_831
-.annotate 'line', 175
- new $P830, 'ExceptionHandler'
- set_addr $P830, control_829
- $P830."handle_types"(57)
- push_eh $P830
+.include "except_types.pasm"
+.sub "metachar:sym<\">" :subid("49_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_810
+.annotate 'line', 173
+ new $P809, 'ExceptionHandler'
+ set_addr $P809, control_808
+ $P809."handle_types"(.CONTROL_RETURN)
+ push_eh $P809
.lex "self", self
- .lex "$/", param_831
+ .lex "$/", param_810
+.annotate 'line', 174
+ new $P811, "Undef"
+ .lex "$quote", $P811
.annotate 'line', 176
- 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 $P836, "$/"
- find_lex $P837, "$past"
- $P838 = $P836."!make"($P837)
+ new $P812, "Undef"
+ .lex "$past", $P812
+.annotate 'line', 174
+ find_lex $P813, "$/"
+ unless_null $P813, vivify_233
+ $P813 = root_new ['parrot';'Hash']
+ vivify_233:
+ set $P814, $P813["quote_EXPR"]
+ unless_null $P814, vivify_234
+ new $P814, "Undef"
+ vivify_234:
+ $P815 = $P814."ast"()
+ store_lex "$quote", $P815
.annotate 'line', 175
- .return ($P838)
- control_829:
+ get_hll_global $P817, ["PAST"], "Val"
+ find_lex $P818, "$quote"
+ $P819 = $P817."ACCEPTS"($P818)
+ unless $P819, if_816_end
+ find_lex $P820, "$quote"
+ $P821 = $P820."value"()
+ store_lex "$quote", $P821
+ if_816_end:
+.annotate 'line', 176
+ get_hll_global $P822, ["PAST"], "Regex"
+ find_lex $P823, "$quote"
+ find_lex $P824, "$/"
+ $P825 = $P822."new"($P823, "literal" :named("pasttype"), $P824 :named("node"))
+ store_lex "$past", $P825
+.annotate 'line', 177
+ find_lex $P826, "$/"
+ find_lex $P827, "$past"
+ $P828 = $P826."!make"($P827)
+.annotate 'line', 173
+ .return ($P828)
+ control_808:
.local pmc exception
.get_results (exception)
- getattribute $P839, exception, "payload"
- .return ($P839)
+ getattribute $P829, exception, "payload"
+ .return ($P829)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<$>" :subid("52_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_843
+.include "except_types.pasm"
+.sub "metachar:sym<.>" :subid("50_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_833
.annotate 'line', 180
- new $P842, 'ExceptionHandler'
- set_addr $P842, control_841
- $P842."handle_types"(57)
- push_eh $P842
+ new $P832, 'ExceptionHandler'
+ set_addr $P832, control_831
+ $P832."handle_types"(.CONTROL_RETURN)
+ push_eh $P832
.lex "self", self
- .lex "$/", param_843
+ .lex "$/", param_833
.annotate 'line', 181
- 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
+ new $P834, "Undef"
+ .lex "$past", $P834
+ get_hll_global $P835, ["PAST"], "Regex"
+ find_lex $P836, "$/"
+ $P837 = $P835."new"("charclass" :named("pasttype"), "." :named("subtype"), $P836 :named("node"))
+ store_lex "$past", $P837
.annotate 'line', 182
- find_lex $P848, "$/"
- find_lex $P849, "$past"
- $P850 = $P848."!make"($P849)
+ find_lex $P838, "$/"
+ find_lex $P839, "$past"
+ $P840 = $P838."!make"($P839)
.annotate 'line', 180
- .return ($P850)
- control_841:
+ .return ($P840)
+ control_831:
.local pmc exception
.get_results (exception)
- getattribute $P851, exception, "payload"
- .return ($P851)
+ getattribute $P841, exception, "payload"
+ .return ($P841)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<$$>" :subid("53_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_855
+.include "except_types.pasm"
+.sub "metachar:sym<^>" :subid("51_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_845
.annotate 'line', 185
- new $P854, 'ExceptionHandler'
- set_addr $P854, control_853
- $P854."handle_types"(57)
- push_eh $P854
+ new $P844, 'ExceptionHandler'
+ set_addr $P844, control_843
+ $P844."handle_types"(.CONTROL_RETURN)
+ push_eh $P844
.lex "self", self
- .lex "$/", param_855
+ .lex "$/", param_845
.annotate 'line', 186
- 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
+ new $P846, "Undef"
+ .lex "$past", $P846
+ get_hll_global $P847, ["PAST"], "Regex"
+ find_lex $P848, "$/"
+ $P849 = $P847."new"("anchor" :named("pasttype"), "bos" :named("subtype"), $P848 :named("node"))
+ store_lex "$past", $P849
.annotate 'line', 187
- find_lex $P860, "$/"
- find_lex $P861, "$past"
- $P862 = $P860."!make"($P861)
+ find_lex $P850, "$/"
+ find_lex $P851, "$past"
+ $P852 = $P850."!make"($P851)
.annotate 'line', 185
- .return ($P862)
- control_853:
+ .return ($P852)
+ control_843:
.local pmc exception
.get_results (exception)
- getattribute $P863, exception, "payload"
- .return ($P863)
+ getattribute $P853, exception, "payload"
+ .return ($P853)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<:::>" :subid("54_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_867
+.include "except_types.pasm"
+.sub "metachar:sym<^^>" :subid("52_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_857
.annotate 'line', 190
- new $P866, 'ExceptionHandler'
- set_addr $P866, control_865
- $P866."handle_types"(57)
- push_eh $P866
+ new $P856, 'ExceptionHandler'
+ set_addr $P856, control_855
+ $P856."handle_types"(.CONTROL_RETURN)
+ push_eh $P856
.lex "self", self
- .lex "$/", param_867
+ .lex "$/", param_857
.annotate 'line', 191
- 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
+ new $P858, "Undef"
+ .lex "$past", $P858
+ get_hll_global $P859, ["PAST"], "Regex"
+ find_lex $P860, "$/"
+ $P861 = $P859."new"("anchor" :named("pasttype"), "bol" :named("subtype"), $P860 :named("node"))
+ store_lex "$past", $P861
.annotate 'line', 192
- find_lex $P872, "$/"
- find_lex $P873, "$past"
- $P874 = $P872."!make"($P873)
+ find_lex $P862, "$/"
+ find_lex $P863, "$past"
+ $P864 = $P862."!make"($P863)
.annotate 'line', 190
- .return ($P874)
- control_865:
+ .return ($P864)
+ control_855:
.local pmc exception
.get_results (exception)
- getattribute $P875, exception, "payload"
- .return ($P875)
+ getattribute $P865, exception, "payload"
+ .return ($P865)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<lwb>" :subid("55_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_879
+.include "except_types.pasm"
+.sub "metachar:sym<$>" :subid("53_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_869
.annotate 'line', 195
- new $P878, 'ExceptionHandler'
- set_addr $P878, control_877
- $P878."handle_types"(57)
- push_eh $P878
+ new $P868, 'ExceptionHandler'
+ set_addr $P868, control_867
+ $P868."handle_types"(.CONTROL_RETURN)
+ push_eh $P868
.lex "self", self
- .lex "$/", param_879
+ .lex "$/", param_869
.annotate 'line', 196
- 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
+ new $P870, "Undef"
+ .lex "$past", $P870
+ get_hll_global $P871, ["PAST"], "Regex"
+ find_lex $P872, "$/"
+ $P873 = $P871."new"("anchor" :named("pasttype"), "eos" :named("subtype"), $P872 :named("node"))
+ store_lex "$past", $P873
.annotate 'line', 197
- find_lex $P884, "$/"
- find_lex $P885, "$past"
- $P886 = $P884."!make"($P885)
+ find_lex $P874, "$/"
+ find_lex $P875, "$past"
+ $P876 = $P874."!make"($P875)
.annotate 'line', 195
- .return ($P886)
- control_877:
+ .return ($P876)
+ control_867:
.local pmc exception
.get_results (exception)
- getattribute $P887, exception, "payload"
- .return ($P887)
+ getattribute $P877, exception, "payload"
+ .return ($P877)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<rwb>" :subid("56_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_891
+.include "except_types.pasm"
+.sub "metachar:sym<$$>" :subid("54_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_881
.annotate 'line', 200
- new $P890, 'ExceptionHandler'
- set_addr $P890, control_889
- $P890."handle_types"(57)
- push_eh $P890
+ new $P880, 'ExceptionHandler'
+ set_addr $P880, control_879
+ $P880."handle_types"(.CONTROL_RETURN)
+ push_eh $P880
.lex "self", self
- .lex "$/", param_891
+ .lex "$/", param_881
.annotate 'line', 201
- 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
+ new $P882, "Undef"
+ .lex "$past", $P882
+ get_hll_global $P883, ["PAST"], "Regex"
+ find_lex $P884, "$/"
+ $P885 = $P883."new"("anchor" :named("pasttype"), "eol" :named("subtype"), $P884 :named("node"))
+ store_lex "$past", $P885
.annotate 'line', 202
- find_lex $P896, "$/"
- find_lex $P897, "$past"
- $P898 = $P896."!make"($P897)
+ find_lex $P886, "$/"
+ find_lex $P887, "$past"
+ $P888 = $P886."!make"($P887)
.annotate 'line', 200
- .return ($P898)
- control_889:
+ .return ($P888)
+ control_879:
.local pmc exception
.get_results (exception)
- getattribute $P899, exception, "payload"
- .return ($P899)
+ getattribute $P889, exception, "payload"
+ .return ($P889)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<bs>" :subid("57_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_903
+.include "except_types.pasm"
+.sub "metachar:sym<:::>" :subid("55_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_893
.annotate 'line', 205
- new $P902, 'ExceptionHandler'
- set_addr $P902, control_901
- $P902."handle_types"(57)
- push_eh $P902
+ new $P892, 'ExceptionHandler'
+ set_addr $P892, control_891
+ $P892."handle_types"(.CONTROL_RETURN)
+ push_eh $P892
.lex "self", self
- .lex "$/", param_903
+ .lex "$/", param_893
.annotate 'line', 206
- find_lex $P904, "$/"
- find_lex $P905, "$/"
- unless_null $P905, vivify_229
- $P905 = root_new ['parrot';'Hash']
- vivify_229:
- set $P906, $P905["backslash"]
- unless_null $P906, vivify_230
- new $P906, "Undef"
- vivify_230:
- $P907 = $P906."ast"()
- $P908 = $P904."!make"($P907)
+ new $P894, "Undef"
+ .lex "$past", $P894
+ get_hll_global $P895, ["PAST"], "Regex"
+ find_lex $P896, "$/"
+ $P897 = $P895."new"("cut" :named("pasttype"), $P896 :named("node"))
+ store_lex "$past", $P897
+.annotate 'line', 207
+ find_lex $P898, "$/"
+ find_lex $P899, "$past"
+ $P900 = $P898."!make"($P899)
.annotate 'line', 205
- .return ($P908)
- control_901:
+ .return ($P900)
+ control_891:
.local pmc exception
.get_results (exception)
- getattribute $P909, exception, "payload"
- .return ($P909)
+ getattribute $P901, exception, "payload"
+ .return ($P901)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<mod>" :subid("58_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_913
-.annotate 'line', 209
- new $P912, 'ExceptionHandler'
- set_addr $P912, control_911
- $P912."handle_types"(57)
- push_eh $P912
+.include "except_types.pasm"
+.sub "metachar:sym<lwb>" :subid("56_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_905
+.annotate 'line', 210
+ new $P904, 'ExceptionHandler'
+ set_addr $P904, control_903
+ $P904."handle_types"(.CONTROL_RETURN)
+ push_eh $P904
.lex "self", self
- .lex "$/", param_913
+ .lex "$/", param_905
+.annotate 'line', 211
+ new $P906, "Undef"
+ .lex "$past", $P906
+ get_hll_global $P907, ["PAST"], "Regex"
+ find_lex $P908, "$/"
+ $P909 = $P907."new"("anchor" :named("pasttype"), "lwb" :named("subtype"), $P908 :named("node"))
+ store_lex "$past", $P909
+.annotate 'line', 212
+ find_lex $P910, "$/"
+ find_lex $P911, "$past"
+ $P912 = $P910."!make"($P911)
.annotate 'line', 210
- find_lex $P914, "$/"
- find_lex $P915, "$/"
- unless_null $P915, vivify_231
- $P915 = root_new ['parrot';'Hash']
- vivify_231:
- set $P916, $P915["mod_internal"]
- unless_null $P916, vivify_232
- new $P916, "Undef"
- vivify_232:
- $P917 = $P916."ast"()
- $P918 = $P914."!make"($P917)
-.annotate 'line', 209
- .return ($P918)
- control_911:
+ .return ($P912)
+ control_903:
.local pmc exception
.get_results (exception)
- getattribute $P919, exception, "payload"
- .return ($P919)
+ getattribute $P913, exception, "payload"
+ .return ($P913)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<assert>" :subid("59_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_923
-.annotate 'line', 213
- new $P922, 'ExceptionHandler'
- set_addr $P922, control_921
- $P922."handle_types"(57)
- push_eh $P922
+.include "except_types.pasm"
+.sub "metachar:sym<rwb>" :subid("57_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_917
+.annotate 'line', 215
+ new $P916, 'ExceptionHandler'
+ set_addr $P916, control_915
+ $P916."handle_types"(.CONTROL_RETURN)
+ push_eh $P916
.lex "self", self
- .lex "$/", param_923
-.annotate 'line', 214
- find_lex $P924, "$/"
- find_lex $P925, "$/"
- unless_null $P925, vivify_233
- $P925 = root_new ['parrot';'Hash']
- vivify_233:
- set $P926, $P925["assertion"]
- unless_null $P926, vivify_234
- new $P926, "Undef"
- vivify_234:
- $P927 = $P926."ast"()
- $P928 = $P924."!make"($P927)
-.annotate 'line', 213
- .return ($P928)
- control_921:
+ .lex "$/", param_917
+.annotate 'line', 216
+ new $P918, "Undef"
+ .lex "$past", $P918
+ get_hll_global $P919, ["PAST"], "Regex"
+ find_lex $P920, "$/"
+ $P921 = $P919."new"("anchor" :named("pasttype"), "rwb" :named("subtype"), $P920 :named("node"))
+ store_lex "$past", $P921
+.annotate 'line', 217
+ find_lex $P922, "$/"
+ find_lex $P923, "$past"
+ $P924 = $P922."!make"($P923)
+.annotate 'line', 215
+ .return ($P924)
+ control_915:
.local pmc exception
.get_results (exception)
- getattribute $P929, exception, "payload"
- .return ($P929)
+ getattribute $P925, exception, "payload"
+ .return ($P925)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<~>" :subid("60_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_933
-.annotate 'line', 217
- new $P932, 'ExceptionHandler'
- set_addr $P932, control_931
- $P932."handle_types"(57)
- push_eh $P932
- .lex "self", self
- .lex "$/", param_933
-.annotate 'line', 218
- find_lex $P934, "$/"
- get_hll_global $P935, ["PAST"], "Regex"
-.annotate 'line', 219
- find_lex $P936, "$/"
- unless_null $P936, vivify_235
- $P936 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "metachar:sym<bs>" :subid("58_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_929
+.annotate 'line', 220
+ new $P928, 'ExceptionHandler'
+ set_addr $P928, control_927
+ $P928."handle_types"(.CONTROL_RETURN)
+ push_eh $P928
+ .lex "self", self
+ .lex "$/", param_929
+.annotate 'line', 221
+ find_lex $P930, "$/"
+ find_lex $P931, "$/"
+ unless_null $P931, vivify_235
+ $P931 = root_new ['parrot';'Hash']
vivify_235:
- set $P937, $P936["EXPR"]
- unless_null $P937, vivify_236
- new $P937, "Undef"
+ set $P932, $P931["backslash"]
+ unless_null $P932, vivify_236
+ new $P932, "Undef"
vivify_236:
- $P938 = $P937."ast"()
+ $P933 = $P932."ast"()
+ $P934 = $P930."!make"($P933)
.annotate 'line', 220
- get_hll_global $P939, ["PAST"], "Regex"
-.annotate 'line', 221
+ .return ($P934)
+ control_927:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P935, exception, "payload"
+ .return ($P935)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.include "except_types.pasm"
+.sub "metachar:sym<mod>" :subid("59_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_939
+.annotate 'line', 224
+ new $P938, 'ExceptionHandler'
+ set_addr $P938, control_937
+ $P938."handle_types"(.CONTROL_RETURN)
+ push_eh $P938
+ .lex "self", self
+ .lex "$/", param_939
+.annotate 'line', 225
find_lex $P940, "$/"
- unless_null $P940, vivify_237
- $P940 = root_new ['parrot';'Hash']
+ find_lex $P941, "$/"
+ unless_null $P941, vivify_237
+ $P941 = root_new ['parrot';'Hash']
vivify_237:
- set $P941, $P940["GOAL"]
- unless_null $P941, vivify_238
- new $P941, "Undef"
+ set $P942, $P941["mod_internal"]
+ unless_null $P942, vivify_238
+ new $P942, "Undef"
vivify_238:
- $P942 = $P941."ast"()
-.annotate 'line', 222
- get_hll_global $P943, ["PAST"], "Regex"
- find_lex $P944, "$/"
- unless_null $P944, vivify_239
- $P944 = root_new ['parrot';'Hash']
+ $P943 = $P942."ast"()
+ $P944 = $P940."!make"($P943)
+.annotate 'line', 224
+ .return ($P944)
+ control_937:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P945, exception, "payload"
+ .return ($P945)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.include "except_types.pasm"
+.sub "metachar:sym<assert>" :subid("60_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_949
+.annotate 'line', 228
+ new $P948, 'ExceptionHandler'
+ set_addr $P948, control_947
+ $P948."handle_types"(.CONTROL_RETURN)
+ push_eh $P948
+ .lex "self", self
+ .lex "$/", param_949
+.annotate 'line', 229
+ find_lex $P950, "$/"
+ find_lex $P951, "$/"
+ unless_null $P951, vivify_239
+ $P951 = root_new ['parrot';'Hash']
vivify_239:
- set $P945, $P944["GOAL"]
- unless_null $P945, vivify_240
- new $P945, "Undef"
+ set $P952, $P951["assertion"]
+ unless_null $P952, vivify_240
+ new $P952, "Undef"
vivify_240:
- 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
- $P949 = $P935."new"($P938, $P948, "concat" :named("pasttype"))
-.annotate 'line', 218
- $P950 = $P934."!make"($P949)
-.annotate 'line', 217
- .return ($P950)
- control_931:
+ $P953 = $P952."ast"()
+ $P954 = $P950."!make"($P953)
+.annotate 'line', 228
+ .return ($P954)
+ control_947:
.local pmc exception
.get_results (exception)
- getattribute $P951, exception, "payload"
- .return ($P951)
+ getattribute $P955, exception, "payload"
+ .return ($P955)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<{*}>" :subid("61_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_955
-.annotate 'line', 230
- new $P954, 'ExceptionHandler'
- set_addr $P954, control_953
- $P954."handle_types"(57)
- push_eh $P954
- .lex "self", self
- .lex "$/", param_955
-.annotate 'line', 231
- new $P956, "Undef"
- .lex "$past", $P956
+.include "except_types.pasm"
+.sub "metachar:sym<~>" :subid("61_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_959
.annotate 'line', 232
- find_lex $P959, "$/"
- unless_null $P959, vivify_241
- $P959 = root_new ['parrot';'Hash']
- vivify_241:
- set $P960, $P959["key"]
- unless_null $P960, vivify_242
- new $P960, "Undef"
- vivify_242:
- if $P960, if_958
- new $P968, "Integer"
- assign $P968, 0
- set $P957, $P968
- goto if_958_end
- if_958:
+ new $P958, 'ExceptionHandler'
+ set_addr $P958, control_957
+ $P958."handle_types"(.CONTROL_RETURN)
+ push_eh $P958
+ .lex "self", self
+ .lex "$/", param_959
+.annotate 'line', 233
+ find_lex $P960, "$/"
get_hll_global $P961, ["PAST"], "Regex"
+.annotate 'line', 234
find_lex $P962, "$/"
- unless_null $P962, vivify_243
+ unless_null $P962, vivify_241
$P962 = root_new ['parrot';'Hash']
+ vivify_241:
+ set $P963, $P962["EXPR"]
+ unless_null $P963, vivify_242
+ new $P963, "Undef"
+ vivify_242:
+ $P964 = $P963."ast"()
+.annotate 'line', 235
+ get_hll_global $P965, ["PAST"], "Regex"
+.annotate 'line', 236
+ find_lex $P966, "$/"
+ unless_null $P966, vivify_243
+ $P966 = root_new ['parrot';'Hash']
vivify_243:
- set $P963, $P962["key"]
- unless_null $P963, vivify_244
- $P963 = root_new ['parrot';'ResizablePMCArray']
+ set $P967, $P966["GOAL"]
+ unless_null $P967, vivify_244
+ new $P967, "Undef"
vivify_244:
- set $P964, $P963[0]
- unless_null $P964, vivify_245
- new $P964, "Undef"
+ $P968 = $P967."ast"()
+.annotate 'line', 237
+ get_hll_global $P969, ["PAST"], "Regex"
+ find_lex $P970, "$/"
+ unless_null $P970, vivify_245
+ $P970 = root_new ['parrot';'Hash']
vivify_245:
- 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 $P969, "$/"
- find_lex $P970, "$past"
- $P971 = $P969."!make"($P970)
-.annotate 'line', 230
- .return ($P971)
- control_953:
+ set $P971, $P970["GOAL"]
+ unless_null $P971, vivify_246
+ new $P971, "Undef"
+ vivify_246:
+ set $S972, $P971
+ $P973 = $P969."new"("FAILGOAL", $S972, "subrule" :named("pasttype"), "method" :named("subtype"))
+ $P974 = $P965."new"($P968, $P973, "alt" :named("pasttype"))
+.annotate 'line', 235
+ $P975 = $P961."new"($P964, $P974, "concat" :named("pasttype"))
+.annotate 'line', 233
+ $P976 = $P960."!make"($P975)
+.annotate 'line', 232
+ .return ($P976)
+ control_957:
.local pmc exception
.get_results (exception)
- getattribute $P972, exception, "payload"
- .return ($P972)
+ getattribute $P977, exception, "payload"
+ .return ($P977)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<var>" :subid("62_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_976
-.annotate 'line', 237
- new $P975, 'ExceptionHandler'
- set_addr $P975, control_974
- $P975."handle_types"(57)
- push_eh $P975
- .lex "self", self
- .lex "$/", param_976
-.annotate 'line', 238
- new $P977, "Undef"
- .lex "$past", $P977
-.annotate 'line', 239
- new $P978, "Undef"
- .lex "$name", $P978
-.annotate 'line', 237
- find_lex $P979, "$past"
-.annotate 'line', 239
- find_lex $P982, "$/"
- unless_null $P982, vivify_246
- $P982 = root_new ['parrot';'Hash']
- vivify_246:
- set $P983, $P982["pos"]
- unless_null $P983, vivify_247
- new $P983, "Undef"
+.include "except_types.pasm"
+.sub "metachar:sym<{*}>" :subid("62_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_981
+.annotate 'line', 245
+ new $P980, 'ExceptionHandler'
+ set_addr $P980, control_979
+ $P980."handle_types"(.CONTROL_RETURN)
+ push_eh $P980
+ .lex "self", self
+ .lex "$/", param_981
+.annotate 'line', 246
+ new $P982, "Undef"
+ .lex "$past", $P982
+.annotate 'line', 247
+ find_lex $P985, "$/"
+ unless_null $P985, vivify_247
+ $P985 = root_new ['parrot';'Hash']
vivify_247:
- if $P983, if_981
- find_lex $P987, "$/"
- unless_null $P987, vivify_248
- $P987 = root_new ['parrot';'Hash']
+ set $P986, $P985["key"]
+ unless_null $P986, vivify_248
+ new $P986, "Undef"
vivify_248:
- set $P988, $P987["name"]
+ if $P986, if_984
+ new $P994, "Integer"
+ assign $P994, 0
+ set $P983, $P994
+ goto if_984_end
+ if_984:
+ get_hll_global $P987, ["PAST"], "Regex"
+ find_lex $P988, "$/"
unless_null $P988, vivify_249
- new $P988, "Undef"
+ $P988 = root_new ['parrot';'Hash']
vivify_249:
- 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']
+ set $P989, $P988["key"]
+ unless_null $P989, vivify_250
+ $P989 = root_new ['parrot';'ResizablePMCArray']
vivify_250:
- set $P985, $P984["pos"]
- unless_null $P985, vivify_251
- new $P985, "Undef"
+ set $P990, $P989[0]
+ unless_null $P990, vivify_251
+ new $P990, "Undef"
vivify_251:
- set $N986, $P985
- new $P980, 'Float'
- set $P980, $N986
- if_981_end:
- store_lex "$name", $P980
-.annotate 'line', 240
- find_lex $P991, "$/"
- unless_null $P991, vivify_252
- $P991 = root_new ['parrot';'Hash']
+ set $S991, $P990
+ find_lex $P992, "$/"
+ $P993 = $P987."new"($S991, "reduce" :named("pasttype"), $P992 :named("node"))
+ set $P983, $P993
+ if_984_end:
+ store_lex "$past", $P983
+.annotate 'line', 249
+ find_lex $P995, "$/"
+ find_lex $P996, "$past"
+ $P997 = $P995."!make"($P996)
+.annotate 'line', 245
+ .return ($P997)
+ control_979:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P998, exception, "payload"
+ .return ($P998)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.include "except_types.pasm"
+.sub "metachar:sym<var>" :subid("63_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1002
+.annotate 'line', 252
+ new $P1001, 'ExceptionHandler'
+ set_addr $P1001, control_1000
+ $P1001."handle_types"(.CONTROL_RETURN)
+ push_eh $P1001
+ .lex "self", self
+ .lex "$/", param_1002
+.annotate 'line', 253
+ new $P1003, "Undef"
+ .lex "$past", $P1003
+.annotate 'line', 254
+ new $P1004, "Undef"
+ .lex "$name", $P1004
+.annotate 'line', 252
+ find_lex $P1005, "$past"
+.annotate 'line', 254
+ find_lex $P1008, "$/"
+ unless_null $P1008, vivify_252
+ $P1008 = root_new ['parrot';'Hash']
vivify_252:
- set $P992, $P991["quantified_atom"]
- unless_null $P992, vivify_253
- new $P992, "Undef"
+ set $P1009, $P1008["pos"]
+ unless_null $P1009, vivify_253
+ new $P1009, "Undef"
vivify_253:
- if $P992, if_990
-.annotate 'line', 251
- 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_990_end
- if_990:
-.annotate 'line', 241
- find_lex $P993, "$/"
- unless_null $P993, vivify_254
- $P993 = root_new ['parrot';'Hash']
+ if $P1009, if_1007
+ find_lex $P1013, "$/"
+ unless_null $P1013, vivify_254
+ $P1013 = root_new ['parrot';'Hash']
vivify_254:
- set $P994, $P993["quantified_atom"]
- unless_null $P994, vivify_255
- $P994 = root_new ['parrot';'ResizablePMCArray']
+ set $P1014, $P1013["name"]
+ unless_null $P1014, vivify_255
+ new $P1014, "Undef"
vivify_255:
- set $P995, $P994[0]
- unless_null $P995, vivify_256
- new $P995, "Undef"
+ set $S1015, $P1014
+ new $P1006, 'String'
+ set $P1006, $S1015
+ goto if_1007_end
+ if_1007:
+ find_lex $P1010, "$/"
+ unless_null $P1010, vivify_256
+ $P1010 = root_new ['parrot';'Hash']
vivify_256:
- $P996 = $P995."ast"()
- store_lex "$past", $P996
-.annotate 'line', 242
- 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']
+ set $P1011, $P1010["pos"]
+ unless_null $P1011, vivify_257
+ new $P1011, "Undef"
vivify_257:
- set $P1004, $P1003[0]
- unless_null $P1004, vivify_258
- new $P1004, "Undef"
+ set $N1012, $P1011
+ new $P1006, 'Float'
+ set $P1006, $N1012
+ if_1007_end:
+ store_lex "$name", $P1006
+.annotate 'line', 255
+ find_lex $P1017, "$/"
+ unless_null $P1017, vivify_258
+ $P1017 = root_new ['parrot';'Hash']
vivify_258:
- $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 $P1011, "$past"
- $S1012 = $P1011."pasttype"()
- iseq $I1013, $S1012, "subrule"
- if $I1013, if_1010
-.annotate 'line', 247
- 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_1010_end
- if_1010:
-.annotate 'line', 245
- 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 $P1007, "$past"
- unless_null $P1007, vivify_259
- $P1007 = root_new ['parrot';'ResizablePMCArray']
+ set $P1018, $P1017["quantified_atom"]
+ unless_null $P1018, vivify_259
+ new $P1018, "Undef"
vivify_259:
- set $P1008, $P1007[0]
- unless_null $P1008, vivify_260
- new $P1008, "Undef"
+ if $P1018, if_1016
+.annotate 'line', 266
+ get_hll_global $P1047, ["PAST"], "Regex"
+ find_lex $P1048, "$name"
+ find_lex $P1049, "$/"
+ $P1050 = $P1047."new"("!BACKREF", $P1048, "subrule" :named("pasttype"), "method" :named("subtype"), $P1049 :named("node"))
+ store_lex "$past", $P1050
+.annotate 'line', 265
+ goto if_1016_end
+ if_1016:
+.annotate 'line', 256
+ find_lex $P1019, "$/"
+ unless_null $P1019, vivify_260
+ $P1019 = root_new ['parrot';'Hash']
vivify_260:
- find_lex $P1009, "$name"
- "subrule_alias"($P1008, $P1009)
- if_997_end:
- if_990_end:
-.annotate 'line', 254
- find_lex $P1025, "$/"
- find_lex $P1026, "$past"
- $P1027 = $P1025."!make"($P1026)
-.annotate 'line', 237
- .return ($P1027)
- control_974:
- .local pmc exception
- .get_results (exception)
- getattribute $P1028, exception, "payload"
- .return ($P1028)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "metachar:sym<PIR>" :subid("63_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1032
-.annotate 'line', 257
- new $P1031, 'ExceptionHandler'
- set_addr $P1031, control_1030
- $P1031."handle_types"(57)
- push_eh $P1031
- .lex "self", self
- .lex "$/", param_1032
-.annotate 'line', 258
- find_lex $P1033, "$/"
- get_hll_global $P1034, ["PAST"], "Regex"
-.annotate 'line', 259
- get_hll_global $P1035, ["PAST"], "Op"
- find_lex $P1036, "$/"
- unless_null $P1036, vivify_261
- $P1036 = root_new ['parrot';'Hash']
+ set $P1020, $P1019["quantified_atom"]
+ unless_null $P1020, vivify_261
+ $P1020 = root_new ['parrot';'ResizablePMCArray']
vivify_261:
- set $P1037, $P1036["pir"]
- unless_null $P1037, vivify_262
- new $P1037, "Undef"
+ set $P1021, $P1020[0]
+ unless_null $P1021, vivify_262
+ new $P1021, "Undef"
vivify_262:
- 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
- $P1042 = $P1033."!make"($P1041)
+ $P1022 = $P1021."ast"()
+ store_lex "$past", $P1022
.annotate 'line', 257
- .return ($P1042)
- control_1030:
- .local pmc exception
- .get_results (exception)
- getattribute $P1043, exception, "payload"
- .return ($P1043)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<w>" :subid("64_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1047
-.annotate 'line', 265
- new $P1046, 'ExceptionHandler'
- set_addr $P1046, control_1045
- $P1046."handle_types"(57)
- push_eh $P1046
- .lex "self", self
- .lex "$/", param_1047
-.annotate 'line', 266
- new $P1048, "Undef"
- .lex "$subtype", $P1048
-.annotate 'line', 267
- new $P1049, "Undef"
- .lex "$past", $P1049
-.annotate 'line', 266
- find_lex $P1052, "$/"
- unless_null $P1052, vivify_263
- $P1052 = root_new ['parrot';'Hash']
+ find_lex $P1026, "$past"
+ $S1027 = $P1026."pasttype"()
+ iseq $I1028, $S1027, "quant"
+ if $I1028, if_1025
+ new $P1024, 'Integer'
+ set $P1024, $I1028
+ goto if_1025_end
+ if_1025:
+ find_lex $P1029, "$past"
+ unless_null $P1029, vivify_263
+ $P1029 = root_new ['parrot';'ResizablePMCArray']
vivify_263:
- set $P1053, $P1052["sym"]
- unless_null $P1053, vivify_264
- new $P1053, "Undef"
+ set $P1030, $P1029[0]
+ unless_null $P1030, vivify_264
+ new $P1030, "Undef"
vivify_264:
- set $S1054, $P1053
- iseq $I1055, $S1054, "n"
- if $I1055, if_1051
- find_lex $P1057, "$/"
- unless_null $P1057, vivify_265
- $P1057 = root_new ['parrot';'Hash']
+ $S1031 = $P1030."pasttype"()
+ iseq $I1032, $S1031, "subrule"
+ new $P1024, 'Integer'
+ set $P1024, $I1032
+ if_1025_end:
+ if $P1024, if_1023
+.annotate 'line', 260
+ find_lex $P1037, "$past"
+ $S1038 = $P1037."pasttype"()
+ iseq $I1039, $S1038, "subrule"
+ if $I1039, if_1036
+.annotate 'line', 262
+ get_hll_global $P1042, ["PAST"], "Regex"
+ find_lex $P1043, "$past"
+ find_lex $P1044, "$name"
+ find_lex $P1045, "$/"
+ $P1046 = $P1042."new"($P1043, $P1044 :named("name"), "subcapture" :named("pasttype"), $P1045 :named("node"))
+ store_lex "$past", $P1046
+.annotate 'line', 261
+ goto if_1036_end
+ if_1036:
+.annotate 'line', 260
+ find_lex $P1040, "$past"
+ find_lex $P1041, "$name"
+ "subrule_alias"($P1040, $P1041)
+ if_1036_end:
+ goto if_1023_end
+ if_1023:
+.annotate 'line', 258
+ find_lex $P1033, "$past"
+ unless_null $P1033, vivify_265
+ $P1033 = root_new ['parrot';'ResizablePMCArray']
vivify_265:
- set $P1058, $P1057["sym"]
- unless_null $P1058, vivify_266
- new $P1058, "Undef"
+ set $P1034, $P1033[0]
+ unless_null $P1034, vivify_266
+ new $P1034, "Undef"
vivify_266:
- 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 $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 $P1064, "$/"
- find_lex $P1065, "$past"
- $P1066 = $P1064."!make"($P1065)
-.annotate 'line', 265
- .return ($P1066)
- control_1045:
+ find_lex $P1035, "$name"
+ "subrule_alias"($P1034, $P1035)
+ if_1023_end:
+ if_1016_end:
+.annotate 'line', 269
+ find_lex $P1051, "$/"
+ find_lex $P1052, "$past"
+ $P1053 = $P1051."!make"($P1052)
+.annotate 'line', 252
+ .return ($P1053)
+ control_1000:
.local pmc exception
.get_results (exception)
- getattribute $P1067, exception, "payload"
- .return ($P1067)
+ getattribute $P1054, exception, "payload"
+ .return ($P1054)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<b>" :subid("65_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1071
-.annotate 'line', 271
- new $P1070, 'ExceptionHandler'
- set_addr $P1070, control_1069
- $P1070."handle_types"(57)
- push_eh $P1070
- .lex "self", self
- .lex "$/", param_1071
+.include "except_types.pasm"
+.sub "metachar:sym<PIR>" :subid("64_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1058
.annotate 'line', 272
- new $P1072, "Undef"
- .lex "$past", $P1072
- get_hll_global $P1073, ["PAST"], "Regex"
+ new $P1057, 'ExceptionHandler'
+ set_addr $P1057, control_1056
+ $P1057."handle_types"(.CONTROL_RETURN)
+ push_eh $P1057
+ .lex "self", self
+ .lex "$/", param_1058
.annotate 'line', 273
- find_lex $P1074, "$/"
- unless_null $P1074, vivify_267
- $P1074 = root_new ['parrot';'Hash']
+ find_lex $P1059, "$/"
+ get_hll_global $P1060, ["PAST"], "Regex"
+.annotate 'line', 274
+ get_hll_global $P1061, ["PAST"], "Op"
+ find_lex $P1062, "$/"
+ unless_null $P1062, vivify_267
+ $P1062 = root_new ['parrot';'Hash']
vivify_267:
- set $P1075, $P1074["sym"]
- unless_null $P1075, vivify_268
- new $P1075, "Undef"
+ set $P1063, $P1062["pir"]
+ unless_null $P1063, vivify_268
+ new $P1063, "Undef"
vivify_268:
- set $S1076, $P1075
- iseq $I1077, $S1076, "B"
- find_lex $P1078, "$/"
- $P1079 = $P1073."new"("\b", "enumcharlist" :named("pasttype"), $I1077 :named("negate"), $P1078 :named("node"))
+ set $S1064, $P1063
+ $P1065 = $P1061."new"($S1064 :named("inline"), "inline" :named("pasttype"))
+ find_lex $P1066, "$/"
+ $P1067 = $P1060."new"($P1065, "pastnode" :named("pasttype"), $P1066 :named("node"))
+.annotate 'line', 273
+ $P1068 = $P1059."!make"($P1067)
.annotate 'line', 272
- store_lex "$past", $P1079
-.annotate 'line', 274
- find_lex $P1080, "$/"
- find_lex $P1081, "$past"
- $P1082 = $P1080."!make"($P1081)
-.annotate 'line', 271
- .return ($P1082)
- control_1069:
- .local pmc exception
- .get_results (exception)
- getattribute $P1083, exception, "payload"
- .return ($P1083)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<e>" :subid("66_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1087
-.annotate 'line', 277
- new $P1086, 'ExceptionHandler'
- set_addr $P1086, control_1085
- $P1086."handle_types"(57)
- push_eh $P1086
- .lex "self", self
- .lex "$/", param_1087
-.annotate 'line', 278
- new $P1088, "Undef"
- .lex "$past", $P1088
- get_hll_global $P1089, ["PAST"], "Regex"
-.annotate 'line', 279
- find_lex $P1090, "$/"
- unless_null $P1090, vivify_269
- $P1090 = root_new ['parrot';'Hash']
- vivify_269:
- set $P1091, $P1090["sym"]
- unless_null $P1091, vivify_270
- new $P1091, "Undef"
- vivify_270:
- 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", $P1095
-.annotate 'line', 280
- find_lex $P1096, "$/"
- find_lex $P1097, "$past"
- $P1098 = $P1096."!make"($P1097)
-.annotate 'line', 277
- .return ($P1098)
- control_1085:
+ .return ($P1068)
+ control_1056:
.local pmc exception
.get_results (exception)
- getattribute $P1099, exception, "payload"
- .return ($P1099)
+ getattribute $P1069, exception, "payload"
+ .return ($P1069)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<f>" :subid("67_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1103
-.annotate 'line', 283
- new $P1102, 'ExceptionHandler'
- set_addr $P1102, control_1101
- $P1102."handle_types"(57)
- push_eh $P1102
- .lex "self", self
- .lex "$/", param_1103
-.annotate 'line', 284
- new $P1104, "Undef"
- .lex "$past", $P1104
- get_hll_global $P1105, ["PAST"], "Regex"
-.annotate 'line', 285
- find_lex $P1106, "$/"
- unless_null $P1106, vivify_271
- $P1106 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "backslash:sym<w>" :subid("65_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1073
+.annotate 'line', 280
+ new $P1072, 'ExceptionHandler'
+ set_addr $P1072, control_1071
+ $P1072."handle_types"(.CONTROL_RETURN)
+ push_eh $P1072
+ .lex "self", self
+ .lex "$/", param_1073
+.annotate 'line', 281
+ new $P1074, "Undef"
+ .lex "$subtype", $P1074
+.annotate 'line', 282
+ new $P1075, "Undef"
+ .lex "$past", $P1075
+.annotate 'line', 281
+ find_lex $P1078, "$/"
+ unless_null $P1078, vivify_269
+ $P1078 = root_new ['parrot';'Hash']
+ vivify_269:
+ set $P1079, $P1078["sym"]
+ unless_null $P1079, vivify_270
+ new $P1079, "Undef"
+ vivify_270:
+ set $S1080, $P1079
+ iseq $I1081, $S1080, "n"
+ if $I1081, if_1077
+ find_lex $P1083, "$/"
+ unless_null $P1083, vivify_271
+ $P1083 = root_new ['parrot';'Hash']
vivify_271:
- set $P1107, $P1106["sym"]
- unless_null $P1107, vivify_272
- new $P1107, "Undef"
+ set $P1084, $P1083["sym"]
+ unless_null $P1084, vivify_272
+ new $P1084, "Undef"
vivify_272:
- 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", $P1111
-.annotate 'line', 286
- find_lex $P1112, "$/"
- find_lex $P1113, "$past"
- $P1114 = $P1112."!make"($P1113)
+ set $S1085, $P1084
+ new $P1076, 'String'
+ set $P1076, $S1085
+ goto if_1077_end
+ if_1077:
+ new $P1082, "String"
+ assign $P1082, "nl"
+ set $P1076, $P1082
+ if_1077_end:
+ store_lex "$subtype", $P1076
+.annotate 'line', 282
+ get_hll_global $P1086, ["PAST"], "Regex"
+ find_lex $P1087, "$subtype"
+ find_lex $P1088, "$/"
+ $P1089 = $P1086."new"("charclass" :named("pasttype"), $P1087 :named("subtype"), $P1088 :named("node"))
+ store_lex "$past", $P1089
.annotate 'line', 283
- .return ($P1114)
- control_1101:
+ find_lex $P1090, "$/"
+ find_lex $P1091, "$past"
+ $P1092 = $P1090."!make"($P1091)
+.annotate 'line', 280
+ .return ($P1092)
+ control_1071:
.local pmc exception
.get_results (exception)
- getattribute $P1115, exception, "payload"
- .return ($P1115)
+ getattribute $P1093, exception, "payload"
+ .return ($P1093)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<h>" :subid("68_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1119
-.annotate 'line', 289
- new $P1118, 'ExceptionHandler'
- set_addr $P1118, control_1117
- $P1118."handle_types"(57)
- push_eh $P1118
- .lex "self", self
- .lex "$/", param_1119
-.annotate 'line', 290
- new $P1120, "Undef"
- .lex "$past", $P1120
- get_hll_global $P1121, ["PAST"], "Regex"
-.annotate 'line', 291
- find_lex $P1122, "$/"
- unless_null $P1122, vivify_273
- $P1122 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "backslash:sym<b>" :subid("66_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1097
+.annotate 'line', 286
+ new $P1096, 'ExceptionHandler'
+ set_addr $P1096, control_1095
+ $P1096."handle_types"(.CONTROL_RETURN)
+ push_eh $P1096
+ .lex "self", self
+ .lex "$/", param_1097
+.annotate 'line', 287
+ new $P1098, "Undef"
+ .lex "$past", $P1098
+ get_hll_global $P1099, ["PAST"], "Regex"
+.annotate 'line', 288
+ find_lex $P1100, "$/"
+ unless_null $P1100, vivify_273
+ $P1100 = root_new ['parrot';'Hash']
vivify_273:
- set $P1123, $P1122["sym"]
- unless_null $P1123, vivify_274
- new $P1123, "Undef"
+ set $P1101, $P1100["sym"]
+ unless_null $P1101, vivify_274
+ new $P1101, "Undef"
vivify_274:
- 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", $P1127
-.annotate 'line', 292
- find_lex $P1128, "$/"
- find_lex $P1129, "$past"
- $P1130 = $P1128."!make"($P1129)
+ set $S1102, $P1101
+ iseq $I1103, $S1102, "B"
+ find_lex $P1104, "$/"
+ $P1105 = $P1099."new"("\b", "enumcharlist" :named("pasttype"), $I1103 :named("negate"), $P1104 :named("node"))
+.annotate 'line', 287
+ store_lex "$past", $P1105
.annotate 'line', 289
- .return ($P1130)
- control_1117:
+ find_lex $P1106, "$/"
+ find_lex $P1107, "$past"
+ $P1108 = $P1106."!make"($P1107)
+.annotate 'line', 286
+ .return ($P1108)
+ control_1095:
.local pmc exception
.get_results (exception)
- getattribute $P1131, exception, "payload"
- .return ($P1131)
+ getattribute $P1109, exception, "payload"
+ .return ($P1109)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<r>" :subid("69_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1135
-.annotate 'line', 295
- new $P1134, 'ExceptionHandler'
- set_addr $P1134, control_1133
- $P1134."handle_types"(57)
- push_eh $P1134
- .lex "self", self
- .lex "$/", param_1135
-.annotate 'line', 296
- new $P1136, "Undef"
- .lex "$past", $P1136
- get_hll_global $P1137, ["PAST"], "Regex"
-.annotate 'line', 297
- find_lex $P1138, "$/"
- unless_null $P1138, vivify_275
- $P1138 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "backslash:sym<e>" :subid("67_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1113
+.annotate 'line', 292
+ new $P1112, 'ExceptionHandler'
+ set_addr $P1112, control_1111
+ $P1112."handle_types"(.CONTROL_RETURN)
+ push_eh $P1112
+ .lex "self", self
+ .lex "$/", param_1113
+.annotate 'line', 293
+ new $P1114, "Undef"
+ .lex "$past", $P1114
+ get_hll_global $P1115, ["PAST"], "Regex"
+.annotate 'line', 294
+ find_lex $P1116, "$/"
+ unless_null $P1116, vivify_275
+ $P1116 = root_new ['parrot';'Hash']
vivify_275:
- set $P1139, $P1138["sym"]
- unless_null $P1139, vivify_276
- new $P1139, "Undef"
+ set $P1117, $P1116["sym"]
+ unless_null $P1117, vivify_276
+ new $P1117, "Undef"
vivify_276:
- 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", $P1143
-.annotate 'line', 298
- find_lex $P1144, "$/"
- find_lex $P1145, "$past"
- $P1146 = $P1144."!make"($P1145)
+ set $S1118, $P1117
+ iseq $I1119, $S1118, "E"
+ find_lex $P1120, "$/"
+ $P1121 = $P1115."new"("\e", "enumcharlist" :named("pasttype"), $I1119 :named("negate"), $P1120 :named("node"))
+.annotate 'line', 293
+ store_lex "$past", $P1121
.annotate 'line', 295
- .return ($P1146)
- control_1133:
+ find_lex $P1122, "$/"
+ find_lex $P1123, "$past"
+ $P1124 = $P1122."!make"($P1123)
+.annotate 'line', 292
+ .return ($P1124)
+ control_1111:
.local pmc exception
.get_results (exception)
- getattribute $P1147, exception, "payload"
- .return ($P1147)
+ getattribute $P1125, exception, "payload"
+ .return ($P1125)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<t>" :subid("70_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1151
-.annotate 'line', 301
- new $P1150, 'ExceptionHandler'
- set_addr $P1150, control_1149
- $P1150."handle_types"(57)
- push_eh $P1150
- .lex "self", self
- .lex "$/", param_1151
-.annotate 'line', 302
- new $P1152, "Undef"
- .lex "$past", $P1152
- get_hll_global $P1153, ["PAST"], "Regex"
-.annotate 'line', 303
- find_lex $P1154, "$/"
- unless_null $P1154, vivify_277
- $P1154 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "backslash:sym<f>" :subid("68_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1129
+.annotate 'line', 298
+ new $P1128, 'ExceptionHandler'
+ set_addr $P1128, control_1127
+ $P1128."handle_types"(.CONTROL_RETURN)
+ push_eh $P1128
+ .lex "self", self
+ .lex "$/", param_1129
+.annotate 'line', 299
+ new $P1130, "Undef"
+ .lex "$past", $P1130
+ get_hll_global $P1131, ["PAST"], "Regex"
+.annotate 'line', 300
+ find_lex $P1132, "$/"
+ unless_null $P1132, vivify_277
+ $P1132 = root_new ['parrot';'Hash']
vivify_277:
- set $P1155, $P1154["sym"]
- unless_null $P1155, vivify_278
- new $P1155, "Undef"
+ set $P1133, $P1132["sym"]
+ unless_null $P1133, vivify_278
+ new $P1133, "Undef"
vivify_278:
- 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", $P1159
-.annotate 'line', 304
- find_lex $P1160, "$/"
- find_lex $P1161, "$past"
- $P1162 = $P1160."!make"($P1161)
+ set $S1134, $P1133
+ iseq $I1135, $S1134, "F"
+ find_lex $P1136, "$/"
+ $P1137 = $P1131."new"("\f", "enumcharlist" :named("pasttype"), $I1135 :named("negate"), $P1136 :named("node"))
+.annotate 'line', 299
+ store_lex "$past", $P1137
.annotate 'line', 301
- .return ($P1162)
- control_1149:
+ find_lex $P1138, "$/"
+ find_lex $P1139, "$past"
+ $P1140 = $P1138."!make"($P1139)
+.annotate 'line', 298
+ .return ($P1140)
+ control_1127:
.local pmc exception
.get_results (exception)
- getattribute $P1163, exception, "payload"
- .return ($P1163)
+ getattribute $P1141, exception, "payload"
+ .return ($P1141)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<v>" :subid("71_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1167
-.annotate 'line', 307
- new $P1166, 'ExceptionHandler'
- set_addr $P1166, control_1165
- $P1166."handle_types"(57)
- push_eh $P1166
- .lex "self", self
- .lex "$/", param_1167
-.annotate 'line', 308
- new $P1168, "Undef"
- .lex "$past", $P1168
- get_hll_global $P1169, ["PAST"], "Regex"
-.annotate 'line', 310
- find_lex $P1170, "$/"
- unless_null $P1170, vivify_279
- $P1170 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "backslash:sym<h>" :subid("69_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1145
+.annotate 'line', 304
+ new $P1144, 'ExceptionHandler'
+ set_addr $P1144, control_1143
+ $P1144."handle_types"(.CONTROL_RETURN)
+ push_eh $P1144
+ .lex "self", self
+ .lex "$/", param_1145
+.annotate 'line', 305
+ new $P1146, "Undef"
+ .lex "$past", $P1146
+ get_hll_global $P1147, ["PAST"], "Regex"
+.annotate 'line', 306
+ find_lex $P1148, "$/"
+ unless_null $P1148, vivify_279
+ $P1148 = root_new ['parrot';'Hash']
vivify_279:
- set $P1171, $P1170["sym"]
- unless_null $P1171, vivify_280
- new $P1171, "Undef"
+ set $P1149, $P1148["sym"]
+ unless_null $P1149, vivify_280
+ new $P1149, "Undef"
vivify_280:
- 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", $P1175
-.annotate 'line', 311
- find_lex $P1176, "$/"
- find_lex $P1177, "$past"
- $P1178 = $P1176."!make"($P1177)
+ set $S1150, $P1149
+ iseq $I1151, $S1150, "H"
+ find_lex $P1152, "$/"
+ $P1153 = $P1147."new"(unicode:"\t \x{a0}\u1680\u180e\u2000\u2001\u2002\u2003\u2004\u2005\u2006\u2007\u2008\u2009\u200a\u202f\u205f\u3000", "enumcharlist" :named("pasttype"), $I1151 :named("negate"), $P1152 :named("node"))
+.annotate 'line', 305
+ store_lex "$past", $P1153
.annotate 'line', 307
- .return ($P1178)
- control_1165:
+ find_lex $P1154, "$/"
+ find_lex $P1155, "$past"
+ $P1156 = $P1154."!make"($P1155)
+.annotate 'line', 304
+ .return ($P1156)
+ control_1143:
.local pmc exception
.get_results (exception)
- getattribute $P1179, exception, "payload"
- .return ($P1179)
+ getattribute $P1157, exception, "payload"
+ .return ($P1157)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<o>" :subid("72_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1183
-.annotate 'line', 314
- new $P1182, 'ExceptionHandler'
- set_addr $P1182, control_1181
- $P1182."handle_types"(57)
- push_eh $P1182
+.include "except_types.pasm"
+.sub "backslash:sym<r>" :subid("70_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1161
+.annotate 'line', 310
+ new $P1160, 'ExceptionHandler'
+ set_addr $P1160, control_1159
+ $P1160."handle_types"(.CONTROL_RETURN)
+ push_eh $P1160
.lex "self", self
- .lex "$/", param_1183
-.annotate 'line', 315
- new $P1184, "Undef"
- .lex "$octlit", $P1184
-.annotate 'line', 316
- get_hll_global $P1185, ["HLL";"Actions"], "ints_to_string"
- find_lex $P1188, "$/"
- unless_null $P1188, vivify_281
- $P1188 = root_new ['parrot';'Hash']
+ .lex "$/", param_1161
+.annotate 'line', 311
+ new $P1162, "Undef"
+ .lex "$past", $P1162
+ get_hll_global $P1163, ["PAST"], "Regex"
+.annotate 'line', 312
+ find_lex $P1164, "$/"
+ unless_null $P1164, vivify_281
+ $P1164 = root_new ['parrot';'Hash']
vivify_281:
- set $P1189, $P1188["octint"]
- unless_null $P1189, vivify_282
- new $P1189, "Undef"
+ set $P1165, $P1164["sym"]
+ unless_null $P1165, vivify_282
+ new $P1165, "Undef"
vivify_282:
- 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']
+ set $S1166, $P1165
+ iseq $I1167, $S1166, "R"
+ find_lex $P1168, "$/"
+ $P1169 = $P1163."new"("\r", "enumcharlist" :named("pasttype"), $I1167 :named("negate"), $P1168 :named("node"))
+.annotate 'line', 311
+ store_lex "$past", $P1169
+.annotate 'line', 313
+ find_lex $P1170, "$/"
+ find_lex $P1171, "$past"
+ $P1172 = $P1170."!make"($P1171)
+.annotate 'line', 310
+ .return ($P1172)
+ control_1159:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1173, exception, "payload"
+ .return ($P1173)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.include "except_types.pasm"
+.sub "backslash:sym<t>" :subid("71_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1177
+.annotate 'line', 316
+ new $P1176, 'ExceptionHandler'
+ set_addr $P1176, control_1175
+ $P1176."handle_types"(.CONTROL_RETURN)
+ push_eh $P1176
+ .lex "self", self
+ .lex "$/", param_1177
+.annotate 'line', 317
+ new $P1178, "Undef"
+ .lex "$past", $P1178
+ get_hll_global $P1179, ["PAST"], "Regex"
+.annotate 'line', 318
+ find_lex $P1180, "$/"
+ unless_null $P1180, vivify_283
+ $P1180 = root_new ['parrot';'Hash']
vivify_283:
- set $P1191, $P1190["octints"]
- unless_null $P1191, vivify_284
- $P1191 = root_new ['parrot';'Hash']
+ set $P1181, $P1180["sym"]
+ unless_null $P1181, vivify_284
+ new $P1181, "Undef"
vivify_284:
- set $P1192, $P1191["octint"]
- unless_null $P1192, vivify_285
- new $P1192, "Undef"
- vivify_285:
- set $P1186, $P1192
- unless_1187_end:
- $P1193 = $P1185($P1186)
- store_lex "$octlit", $P1193
+ set $S1182, $P1181
+ iseq $I1183, $S1182, "T"
+ find_lex $P1184, "$/"
+ $P1185 = $P1179."new"("\t", "enumcharlist" :named("pasttype"), $I1183 :named("negate"), $P1184 :named("node"))
.annotate 'line', 317
- find_lex $P1194, "$/"
- find_lex $P1197, "$/"
+ store_lex "$past", $P1185
+.annotate 'line', 319
+ find_lex $P1186, "$/"
+ find_lex $P1187, "$past"
+ $P1188 = $P1186."!make"($P1187)
+.annotate 'line', 316
+ .return ($P1188)
+ control_1175:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1189, exception, "payload"
+ .return ($P1189)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.include "except_types.pasm"
+.sub "backslash:sym<v>" :subid("72_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1193
+.annotate 'line', 322
+ new $P1192, 'ExceptionHandler'
+ set_addr $P1192, control_1191
+ $P1192."handle_types"(.CONTROL_RETURN)
+ push_eh $P1192
+ .lex "self", self
+ .lex "$/", param_1193
+.annotate 'line', 323
+ new $P1194, "Undef"
+ .lex "$past", $P1194
+ get_hll_global $P1195, ["PAST"], "Regex"
+.annotate 'line', 325
+ find_lex $P1196, "$/"
+ unless_null $P1196, vivify_285
+ $P1196 = root_new ['parrot';'Hash']
+ vivify_285:
+ set $P1197, $P1196["sym"]
unless_null $P1197, vivify_286
- $P1197 = root_new ['parrot';'Hash']
+ new $P1197, "Undef"
vivify_286:
- set $P1198, $P1197["sym"]
- unless_null $P1198, vivify_287
- new $P1198, "Undef"
- vivify_287:
- set $S1199, $P1198
- iseq $I1200, $S1199, "O"
- if $I1200, if_1196
-.annotate 'line', 320
- 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_1196_end
- if_1196:
-.annotate 'line', 318
- 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 ($P1209)
- control_1181:
+ set $S1198, $P1197
+ iseq $I1199, $S1198, "V"
+ find_lex $P1200, "$/"
+ $P1201 = $P1195."new"(unicode:"\n\x{b}\f\r\x{85}\u2028\u2029", "enumcharlist" :named("pasttype"), $I1199 :named("negate"), $P1200 :named("node"))
+.annotate 'line', 323
+ store_lex "$past", $P1201
+.annotate 'line', 326
+ find_lex $P1202, "$/"
+ find_lex $P1203, "$past"
+ $P1204 = $P1202."!make"($P1203)
+.annotate 'line', 322
+ .return ($P1204)
+ control_1191:
.local pmc exception
.get_results (exception)
- getattribute $P1210, exception, "payload"
- .return ($P1210)
+ getattribute $P1205, exception, "payload"
+ .return ($P1205)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<x>" :subid("73_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1214
-.annotate 'line', 323
- new $P1213, 'ExceptionHandler'
- set_addr $P1213, control_1212
- $P1213."handle_types"(57)
- push_eh $P1213
- .lex "self", self
- .lex "$/", param_1214
-.annotate 'line', 324
+.include "except_types.pasm"
+.sub "backslash:sym<o>" :subid("73_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1209
+.annotate 'line', 329
+ new $P1208, 'ExceptionHandler'
+ set_addr $P1208, control_1207
+ $P1208."handle_types"(.CONTROL_RETURN)
+ push_eh $P1208
+ .lex "self", self
+ .lex "$/", param_1209
+.annotate 'line', 330
+ new $P1210, "Undef"
+ .lex "$octlit", $P1210
+.annotate 'line', 331
+ get_hll_global $P1211, ["HLL";"Actions"], "ints_to_string"
+ find_lex $P1214, "$/"
+ unless_null $P1214, vivify_287
+ $P1214 = root_new ['parrot';'Hash']
+ vivify_287:
+ set $P1215, $P1214["octint"]
+ unless_null $P1215, vivify_288
new $P1215, "Undef"
- .lex "$hexlit", $P1215
-.annotate 'line', 325
- 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 $P1220, $P1219["hexint"]
- unless_null $P1220, vivify_289
- new $P1220, "Undef"
+ unless $P1215, unless_1213
+ set $P1212, $P1215
+ goto unless_1213_end
+ unless_1213:
+ find_lex $P1216, "$/"
+ unless_null $P1216, vivify_289
+ $P1216 = root_new ['parrot';'Hash']
vivify_289:
- 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']
+ set $P1217, $P1216["octints"]
+ unless_null $P1217, vivify_290
+ $P1217 = root_new ['parrot';'Hash']
vivify_290:
- set $P1222, $P1221["hexints"]
- unless_null $P1222, vivify_291
- $P1222 = root_new ['parrot';'Hash']
+ set $P1218, $P1217["octint"]
+ unless_null $P1218, vivify_291
+ new $P1218, "Undef"
vivify_291:
- set $P1223, $P1222["hexint"]
+ set $P1212, $P1218
+ unless_1213_end:
+ $P1219 = $P1211($P1212)
+ store_lex "$octlit", $P1219
+.annotate 'line', 332
+ find_lex $P1220, "$/"
+ find_lex $P1223, "$/"
unless_null $P1223, vivify_292
- new $P1223, "Undef"
+ $P1223 = root_new ['parrot';'Hash']
vivify_292:
- set $P1217, $P1223
- unless_1218_end:
- $P1224 = $P1216($P1217)
- store_lex "$hexlit", $P1224
-.annotate 'line', 326
- find_lex $P1225, "$/"
- find_lex $P1228, "$/"
- unless_null $P1228, vivify_293
- $P1228 = root_new ['parrot';'Hash']
+ set $P1224, $P1223["sym"]
+ unless_null $P1224, vivify_293
+ new $P1224, "Undef"
vivify_293:
- set $P1229, $P1228["sym"]
- unless_null $P1229, vivify_294
- new $P1229, "Undef"
- vivify_294:
- set $S1230, $P1229
- iseq $I1231, $S1230, "X"
- if $I1231, if_1227
+ set $S1225, $P1224
+ iseq $I1226, $S1225, "O"
+ if $I1226, if_1222
+.annotate 'line', 335
+ get_hll_global $P1231, ["PAST"], "Regex"
+ find_lex $P1232, "$octlit"
+ find_lex $P1233, "$/"
+ $P1234 = $P1231."new"($P1232, "literal" :named("pasttype"), $P1233 :named("node"))
+ set $P1221, $P1234
+.annotate 'line', 332
+ goto if_1222_end
+ if_1222:
+.annotate 'line', 333
+ get_hll_global $P1227, ["PAST"], "Regex"
+ find_lex $P1228, "$octlit"
+ find_lex $P1229, "$/"
+ $P1230 = $P1227."new"($P1228, "enumcharlist" :named("pasttype"), 1 :named("negate"), $P1229 :named("node"))
+ set $P1221, $P1230
+ if_1222_end:
+ $P1235 = $P1220."!make"($P1221)
.annotate 'line', 329
- 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_1227_end
- if_1227:
-.annotate 'line', 327
- 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 ($P1240)
- control_1212:
+ .return ($P1235)
+ control_1207:
.local pmc exception
.get_results (exception)
- getattribute $P1241, exception, "payload"
- .return ($P1241)
+ getattribute $P1236, exception, "payload"
+ .return ($P1236)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<c>" :subid("74_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1245
-.annotate 'line', 332
- new $P1244, 'ExceptionHandler'
- set_addr $P1244, control_1243
- $P1244."handle_types"(57)
- push_eh $P1244
- .lex "self", self
- .lex "$/", param_1245
-.annotate 'line', 333
- find_lex $P1246, "$/"
- get_hll_global $P1247, ["PAST"], "Regex"
- find_lex $P1248, "$/"
- unless_null $P1248, vivify_295
- $P1248 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "backslash:sym<x>" :subid("74_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1240
+.annotate 'line', 338
+ new $P1239, 'ExceptionHandler'
+ set_addr $P1239, control_1238
+ $P1239."handle_types"(.CONTROL_RETURN)
+ push_eh $P1239
+ .lex "self", self
+ .lex "$/", param_1240
+.annotate 'line', 339
+ new $P1241, "Undef"
+ .lex "$hexlit", $P1241
+.annotate 'line', 340
+ get_hll_global $P1242, ["HLL";"Actions"], "ints_to_string"
+ find_lex $P1245, "$/"
+ unless_null $P1245, vivify_294
+ $P1245 = root_new ['parrot';'Hash']
+ vivify_294:
+ set $P1246, $P1245["hexint"]
+ unless_null $P1246, vivify_295
+ new $P1246, "Undef"
vivify_295:
- set $P1249, $P1248["charspec"]
- unless_null $P1249, vivify_296
- new $P1249, "Undef"
+ unless $P1246, unless_1244
+ set $P1243, $P1246
+ goto unless_1244_end
+ unless_1244:
+ find_lex $P1247, "$/"
+ unless_null $P1247, vivify_296
+ $P1247 = root_new ['parrot';'Hash']
vivify_296:
- $P1250 = $P1249."ast"()
+ set $P1248, $P1247["hexints"]
+ unless_null $P1248, vivify_297
+ $P1248 = root_new ['parrot';'Hash']
+ vivify_297:
+ set $P1249, $P1248["hexint"]
+ unless_null $P1249, vivify_298
+ new $P1249, "Undef"
+ vivify_298:
+ set $P1243, $P1249
+ unless_1244_end:
+ $P1250 = $P1242($P1243)
+ store_lex "$hexlit", $P1250
+.annotate 'line', 341
find_lex $P1251, "$/"
- $P1252 = $P1247."new"($P1250, "literal" :named("pasttype"), $P1251 :named("node"))
- $P1253 = $P1246."!make"($P1252)
-.annotate 'line', 332
- .return ($P1253)
- control_1243:
+ find_lex $P1254, "$/"
+ unless_null $P1254, vivify_299
+ $P1254 = root_new ['parrot';'Hash']
+ vivify_299:
+ set $P1255, $P1254["sym"]
+ unless_null $P1255, vivify_300
+ new $P1255, "Undef"
+ vivify_300:
+ set $S1256, $P1255
+ iseq $I1257, $S1256, "X"
+ if $I1257, if_1253
+.annotate 'line', 344
+ get_hll_global $P1262, ["PAST"], "Regex"
+ find_lex $P1263, "$hexlit"
+ find_lex $P1264, "$/"
+ $P1265 = $P1262."new"($P1263, "literal" :named("pasttype"), $P1264 :named("node"))
+ set $P1252, $P1265
+.annotate 'line', 341
+ goto if_1253_end
+ if_1253:
+.annotate 'line', 342
+ get_hll_global $P1258, ["PAST"], "Regex"
+ find_lex $P1259, "$hexlit"
+ find_lex $P1260, "$/"
+ $P1261 = $P1258."new"($P1259, "enumcharlist" :named("pasttype"), 1 :named("negate"), $P1260 :named("node"))
+ set $P1252, $P1261
+ if_1253_end:
+ $P1266 = $P1251."!make"($P1252)
+.annotate 'line', 338
+ .return ($P1266)
+ control_1238:
.local pmc exception
.get_results (exception)
- getattribute $P1254, exception, "payload"
- .return ($P1254)
+ getattribute $P1267, exception, "payload"
+ .return ($P1267)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "backslash:sym<misc>" :subid("75_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1258
-.annotate 'line', 336
- new $P1257, 'ExceptionHandler'
- set_addr $P1257, control_1256
- $P1257."handle_types"(57)
- push_eh $P1257
- .lex "self", self
- .lex "$/", param_1258
-.annotate 'line', 337
- 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 $P1265, "$/"
- find_lex $P1266, "$past"
- $P1267 = $P1265."!make"($P1266)
-.annotate 'line', 336
- .return ($P1267)
- control_1256:
+.include "except_types.pasm"
+.sub "backslash:sym<c>" :subid("75_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1271
+.annotate 'line', 347
+ new $P1270, 'ExceptionHandler'
+ set_addr $P1270, control_1269
+ $P1270."handle_types"(.CONTROL_RETURN)
+ push_eh $P1270
+ .lex "self", self
+ .lex "$/", param_1271
+.annotate 'line', 348
+ find_lex $P1272, "$/"
+ get_hll_global $P1273, ["PAST"], "Regex"
+ find_lex $P1274, "$/"
+ unless_null $P1274, vivify_301
+ $P1274 = root_new ['parrot';'Hash']
+ vivify_301:
+ set $P1275, $P1274["charspec"]
+ unless_null $P1275, vivify_302
+ new $P1275, "Undef"
+ vivify_302:
+ $P1276 = $P1275."ast"()
+ find_lex $P1277, "$/"
+ $P1278 = $P1273."new"($P1276, "literal" :named("pasttype"), $P1277 :named("node"))
+ $P1279 = $P1272."!make"($P1278)
+.annotate 'line', 347
+ .return ($P1279)
+ control_1269:
.local pmc exception
.get_results (exception)
- getattribute $P1268, exception, "payload"
- .return ($P1268)
+ getattribute $P1280, exception, "payload"
+ .return ($P1280)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<?>" :subid("76_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1272
-.annotate 'line', 342
- new $P1271, 'ExceptionHandler'
- set_addr $P1271, control_1270
- $P1271."handle_types"(57)
- push_eh $P1271
- .lex "self", self
- .lex "$/", param_1272
-.annotate 'line', 343
- new $P1273, "Undef"
- .lex "$past", $P1273
-.annotate 'line', 342
- find_lex $P1274, "$past"
-.annotate 'line', 344
- find_lex $P1276, "$/"
- unless_null $P1276, vivify_297
- $P1276 = root_new ['parrot';'Hash']
- vivify_297:
- set $P1277, $P1276["assertion"]
- unless_null $P1277, vivify_298
- new $P1277, "Undef"
- vivify_298:
- if $P1277, if_1275
-.annotate 'line', 348
- new $P1282, "Integer"
- assign $P1282, 0
- store_lex "$past", $P1282
- goto if_1275_end
- if_1275:
-.annotate 'line', 345
- find_lex $P1278, "$/"
- unless_null $P1278, vivify_299
- $P1278 = root_new ['parrot';'Hash']
- vivify_299:
- set $P1279, $P1278["assertion"]
- unless_null $P1279, vivify_300
- new $P1279, "Undef"
- vivify_300:
- $P1280 = $P1279."ast"()
- store_lex "$past", $P1280
-.annotate 'line', 346
- find_lex $P1281, "$past"
- $P1281."subtype"("zerowidth")
- if_1275_end:
-.annotate 'line', 349
- find_lex $P1283, "$/"
- find_lex $P1284, "$past"
- $P1285 = $P1283."!make"($P1284)
-.annotate 'line', 342
- .return ($P1285)
- control_1270:
+.include "except_types.pasm"
+.sub "backslash:sym<misc>" :subid("76_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1284
+.annotate 'line', 351
+ new $P1283, 'ExceptionHandler'
+ set_addr $P1283, control_1282
+ $P1283."handle_types"(.CONTROL_RETURN)
+ push_eh $P1283
+ .lex "self", self
+ .lex "$/", param_1284
+.annotate 'line', 352
+ new $P1285, "Undef"
+ .lex "$past", $P1285
+ get_hll_global $P1286, ["PAST"], "Regex"
+ find_lex $P1287, "$/"
+ set $S1288, $P1287
+ find_lex $P1289, "$/"
+ $P1290 = $P1286."new"($S1288, "literal" :named("pasttype"), $P1289 :named("node"))
+ store_lex "$past", $P1290
+.annotate 'line', 353
+ find_lex $P1291, "$/"
+ find_lex $P1292, "$past"
+ $P1293 = $P1291."!make"($P1292)
+.annotate 'line', 351
+ .return ($P1293)
+ control_1282:
.local pmc exception
.get_results (exception)
- getattribute $P1286, exception, "payload"
- .return ($P1286)
+ getattribute $P1294, exception, "payload"
+ .return ($P1294)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<!>" :subid("77_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1290
-.annotate 'line', 352
- new $P1289, 'ExceptionHandler'
- set_addr $P1289, control_1288
- $P1289."handle_types"(57)
- push_eh $P1289
- .lex "self", self
- .lex "$/", param_1290
-.annotate 'line', 353
- new $P1291, "Undef"
- .lex "$past", $P1291
-.annotate 'line', 352
- find_lex $P1292, "$past"
-.annotate 'line', 354
- find_lex $P1294, "$/"
- unless_null $P1294, vivify_301
- $P1294 = root_new ['parrot';'Hash']
- vivify_301:
- set $P1295, $P1294["assertion"]
- unless_null $P1295, vivify_302
- new $P1295, "Undef"
- vivify_302:
- if $P1295, if_1293
-.annotate 'line', 360
- 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
+.include "except_types.pasm"
+.sub "assertion:sym<?>" :subid("77_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1298
+.annotate 'line', 357
+ new $P1297, 'ExceptionHandler'
+ set_addr $P1297, control_1296
+ $P1297."handle_types"(.CONTROL_RETURN)
+ push_eh $P1297
+ .lex "self", self
+ .lex "$/", param_1298
+.annotate 'line', 358
+ new $P1299, "Undef"
+ .lex "$past", $P1299
+.annotate 'line', 357
+ find_lex $P1300, "$past"
.annotate 'line', 359
- goto if_1293_end
- if_1293:
-.annotate 'line', 355
- find_lex $P1296, "$/"
- unless_null $P1296, vivify_303
- $P1296 = root_new ['parrot';'Hash']
+ find_lex $P1302, "$/"
+ unless_null $P1302, vivify_303
+ $P1302 = root_new ['parrot';'Hash']
vivify_303:
- set $P1297, $P1296["assertion"]
- unless_null $P1297, vivify_304
- new $P1297, "Undef"
+ set $P1303, $P1302["assertion"]
+ unless_null $P1303, vivify_304
+ new $P1303, "Undef"
vivify_304:
- $P1298 = $P1297."ast"()
- store_lex "$past", $P1298
-.annotate 'line', 356
- find_lex $P1299, "$past"
- find_lex $P1300, "$past"
- $P1301 = $P1300."negate"()
- isfalse $I1302, $P1301
- $P1299."negate"($I1302)
+ if $P1303, if_1301
+.annotate 'line', 363
+ new $P1308, "Integer"
+ assign $P1308, 0
+ store_lex "$past", $P1308
+ goto if_1301_end
+ if_1301:
+.annotate 'line', 360
+ find_lex $P1304, "$/"
+ unless_null $P1304, vivify_305
+ $P1304 = root_new ['parrot';'Hash']
+ vivify_305:
+ set $P1305, $P1304["assertion"]
+ unless_null $P1305, vivify_306
+ new $P1305, "Undef"
+ vivify_306:
+ $P1306 = $P1305."ast"()
+ store_lex "$past", $P1306
+.annotate 'line', 361
+ find_lex $P1307, "$past"
+ $P1307."subtype"("zerowidth")
+ if_1301_end:
+.annotate 'line', 364
+ find_lex $P1309, "$/"
+ find_lex $P1310, "$past"
+ $P1311 = $P1309."!make"($P1310)
.annotate 'line', 357
- find_lex $P1303, "$past"
- $P1303."subtype"("zerowidth")
- if_1293_end:
-.annotate 'line', 362
- find_lex $P1307, "$/"
- find_lex $P1308, "$past"
- $P1309 = $P1307."!make"($P1308)
-.annotate 'line', 352
- .return ($P1309)
- control_1288:
+ .return ($P1311)
+ control_1296:
.local pmc exception
.get_results (exception)
- getattribute $P1310, exception, "payload"
- .return ($P1310)
+ getattribute $P1312, exception, "payload"
+ .return ($P1312)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<method>" :subid("78_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1314
-.annotate 'line', 365
- new $P1313, 'ExceptionHandler'
- set_addr $P1313, control_1312
- $P1313."handle_types"(57)
- push_eh $P1313
+.include "except_types.pasm"
+.sub "assertion:sym<!>" :subid("78_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1316
+.annotate 'line', 367
+ new $P1315, 'ExceptionHandler'
+ set_addr $P1315, control_1314
+ $P1315."handle_types"(.CONTROL_RETURN)
+ push_eh $P1315
.lex "self", self
- .lex "$/", param_1314
-.annotate 'line', 366
- new $P1315, "Undef"
- .lex "$past", $P1315
- find_lex $P1316, "$/"
- unless_null $P1316, vivify_305
- $P1316 = root_new ['parrot';'Hash']
- vivify_305:
- set $P1317, $P1316["assertion"]
- unless_null $P1317, vivify_306
+ .lex "$/", param_1316
+.annotate 'line', 368
new $P1317, "Undef"
- vivify_306:
- $P1318 = $P1317."ast"()
- store_lex "$past", $P1318
+ .lex "$past", $P1317
.annotate 'line', 367
- find_lex $P1319, "$past"
- $P1319."subtype"("method")
-.annotate 'line', 368
- find_lex $P1320, "$past"
- $P1320."name"("")
+ find_lex $P1318, "$past"
.annotate 'line', 369
- find_lex $P1321, "$/"
- find_lex $P1322, "$past"
- $P1323 = $P1321."!make"($P1322)
-.annotate 'line', 365
- .return ($P1323)
- control_1312:
+ find_lex $P1320, "$/"
+ unless_null $P1320, vivify_307
+ $P1320 = root_new ['parrot';'Hash']
+ vivify_307:
+ set $P1321, $P1320["assertion"]
+ unless_null $P1321, vivify_308
+ new $P1321, "Undef"
+ vivify_308:
+ if $P1321, if_1319
+.annotate 'line', 375
+ get_hll_global $P1330, ["PAST"], "Regex"
+ find_lex $P1331, "$/"
+ $P1332 = $P1330."new"("anchor" :named("pasttype"), "fail" :named("subtype"), $P1331 :named("node"))
+ store_lex "$past", $P1332
+.annotate 'line', 374
+ goto if_1319_end
+ if_1319:
+.annotate 'line', 370
+ find_lex $P1322, "$/"
+ unless_null $P1322, vivify_309
+ $P1322 = root_new ['parrot';'Hash']
+ vivify_309:
+ set $P1323, $P1322["assertion"]
+ unless_null $P1323, vivify_310
+ new $P1323, "Undef"
+ vivify_310:
+ $P1324 = $P1323."ast"()
+ store_lex "$past", $P1324
+.annotate 'line', 371
+ find_lex $P1325, "$past"
+ find_lex $P1326, "$past"
+ $P1327 = $P1326."negate"()
+ isfalse $I1328, $P1327
+ $P1325."negate"($I1328)
+.annotate 'line', 372
+ find_lex $P1329, "$past"
+ $P1329."subtype"("zerowidth")
+ if_1319_end:
+.annotate 'line', 377
+ find_lex $P1333, "$/"
+ find_lex $P1334, "$past"
+ $P1335 = $P1333."!make"($P1334)
+.annotate 'line', 367
+ .return ($P1335)
+ control_1314:
.local pmc exception
.get_results (exception)
- getattribute $P1324, exception, "payload"
- .return ($P1324)
+ getattribute $P1336, exception, "payload"
+ .return ($P1336)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<name>" :subid("79_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1328
-.annotate 'line', 372
- .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_1328
-.annotate 'line', 373
- new $P1329, "Undef"
- .lex "$name", $P1329
-.annotate 'line', 374
- new $P1330, "Undef"
- .lex "$past", $P1330
-.annotate 'line', 373
- find_lex $P1331, "$/"
- unless_null $P1331, vivify_307
- $P1331 = root_new ['parrot';'Hash']
- vivify_307:
- set $P1332, $P1331["longname"]
- unless_null $P1332, vivify_308
- new $P1332, "Undef"
- vivify_308:
- set $S1333, $P1332
- new $P1334, 'String'
- set $P1334, $S1333
- store_lex "$name", $P1334
- find_lex $P1335, "$past"
-.annotate 'line', 375
- find_lex $P1337, "$/"
- unless_null $P1337, vivify_309
- $P1337 = root_new ['parrot';'Hash']
- vivify_309:
- set $P1338, $P1337["assertion"]
- unless_null $P1338, vivify_310
- new $P1338, "Undef"
- vivify_310:
- if $P1338, if_1336
-.annotate 'line', 379
- find_lex $P1346, "$name"
- set $S1347, $P1346
- iseq $I1348, $S1347, "sym"
- if $I1348, if_1345
-.annotate 'line', 395
- get_hll_global $P1360, ["PAST"], "Regex"
- find_lex $P1361, "$name"
- 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 $P1366, "$/"
- unless_null $P1366, vivify_311
- $P1366 = root_new ['parrot';'Hash']
+.include "except_types.pasm"
+.sub "assertion:sym<method>" :subid("79_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1340
+.annotate 'line', 380
+ new $P1339, 'ExceptionHandler'
+ set_addr $P1339, control_1338
+ $P1339."handle_types"(.CONTROL_RETURN)
+ push_eh $P1339
+ .lex "self", self
+ .lex "$/", param_1340
+.annotate 'line', 381
+ new $P1341, "Undef"
+ .lex "$past", $P1341
+ find_lex $P1342, "$/"
+ unless_null $P1342, vivify_311
+ $P1342 = root_new ['parrot';'Hash']
vivify_311:
- set $P1367, $P1366["nibbler"]
- unless_null $P1367, vivify_312
- new $P1367, "Undef"
+ set $P1343, $P1342["assertion"]
+ unless_null $P1343, vivify_312
+ new $P1343, "Undef"
vivify_312:
- if $P1367, if_1365
-.annotate 'line', 400
- find_lex $P1375, "$/"
- unless_null $P1375, vivify_313
- $P1375 = root_new ['parrot';'Hash']
+ $P1344 = $P1343."ast"()
+ store_lex "$past", $P1344
+.annotate 'line', 382
+ find_lex $P1345, "$past"
+ $P1345."subtype"("method")
+.annotate 'line', 383
+ find_lex $P1346, "$past"
+ $P1346."name"("")
+.annotate 'line', 384
+ find_lex $P1347, "$/"
+ find_lex $P1348, "$past"
+ $P1349 = $P1347."!make"($P1348)
+.annotate 'line', 380
+ .return ($P1349)
+ control_1338:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1350, exception, "payload"
+ .return ($P1350)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.include "except_types.pasm"
+.sub "assertion:sym<name>" :subid("80_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1354
+.annotate 'line', 387
+ .const 'Sub' $P1412 = "82_1275811482.3686"
+ capture_lex $P1412
+ .const 'Sub' $P1376 = "81_1275811482.3686"
+ capture_lex $P1376
+ new $P1353, 'ExceptionHandler'
+ set_addr $P1353, control_1352
+ $P1353."handle_types"(.CONTROL_RETURN)
+ push_eh $P1353
+ .lex "self", self
+ .lex "$/", param_1354
+.annotate 'line', 388
+ new $P1355, "Undef"
+ .lex "$name", $P1355
+.annotate 'line', 389
+ new $P1356, "Undef"
+ .lex "$past", $P1356
+.annotate 'line', 388
+ find_lex $P1357, "$/"
+ unless_null $P1357, vivify_313
+ $P1357 = root_new ['parrot';'Hash']
vivify_313:
- set $P1376, $P1375["arglist"]
- unless_null $P1376, vivify_314
- new $P1376, "Undef"
+ set $P1358, $P1357["longname"]
+ unless_null $P1358, vivify_314
+ new $P1358, "Undef"
vivify_314:
- unless $P1376, if_1374_end
-.annotate 'line', 401
- find_lex $P1378, "$/"
- unless_null $P1378, vivify_315
- $P1378 = root_new ['parrot';'Hash']
+ set $S1359, $P1358
+ new $P1360, 'String'
+ set $P1360, $S1359
+ store_lex "$name", $P1360
+ find_lex $P1361, "$past"
+.annotate 'line', 390
+ find_lex $P1363, "$/"
+ unless_null $P1363, vivify_315
+ $P1363 = root_new ['parrot';'Hash']
vivify_315:
- set $P1379, $P1378["arglist"]
- unless_null $P1379, vivify_316
- $P1379 = root_new ['parrot';'ResizablePMCArray']
+ set $P1364, $P1363["assertion"]
+ unless_null $P1364, vivify_316
+ new $P1364, "Undef"
vivify_316:
- set $P1380, $P1379[0]
- unless_null $P1380, vivify_317
- new $P1380, "Undef"
+ if $P1364, if_1362
+.annotate 'line', 394
+ find_lex $P1372, "$name"
+ set $S1373, $P1372
+ iseq $I1374, $S1373, "sym"
+ if $I1374, if_1371
+.annotate 'line', 410
+ get_hll_global $P1386, ["PAST"], "Regex"
+ find_lex $P1387, "$name"
+ find_lex $P1388, "$name"
+ find_lex $P1389, "$/"
+ $P1390 = $P1386."new"($P1387, $P1388 :named("name"), "subrule" :named("pasttype"), "capture" :named("subtype"), $P1389 :named("node"))
+ store_lex "$past", $P1390
+.annotate 'line', 412
+ find_lex $P1392, "$/"
+ unless_null $P1392, vivify_317
+ $P1392 = root_new ['parrot';'Hash']
vivify_317:
- $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_1374_end:
-.annotate 'line', 400
- goto if_1365_end
- if_1365:
-.annotate 'line', 398
- find_lex $P1368, "$past"
- find_lex $P1369, "$/"
- unless_null $P1369, vivify_319
- $P1369 = root_new ['parrot';'Hash']
+ set $P1393, $P1392["nibbler"]
+ unless_null $P1393, vivify_318
+ new $P1393, "Undef"
+ vivify_318:
+ if $P1393, if_1391
+.annotate 'line', 415
+ find_lex $P1401, "$/"
+ unless_null $P1401, vivify_319
+ $P1401 = root_new ['parrot';'Hash']
vivify_319:
- set $P1370, $P1369["nibbler"]
- unless_null $P1370, vivify_320
- $P1370 = root_new ['parrot';'ResizablePMCArray']
+ set $P1402, $P1401["arglist"]
+ unless_null $P1402, vivify_320
+ new $P1402, "Undef"
vivify_320:
- set $P1371, $P1370[0]
- unless_null $P1371, vivify_321
- new $P1371, "Undef"
+ unless $P1402, if_1400_end
+.annotate 'line', 416
+ find_lex $P1404, "$/"
+ unless_null $P1404, vivify_321
+ $P1404 = root_new ['parrot';'Hash']
vivify_321:
- $P1372 = $P1371."ast"()
- $P1373 = "buildsub"($P1372)
- $P1368."push"($P1373)
- if_1365_end:
-.annotate 'line', 394
- goto if_1345_end
- if_1345:
-.annotate 'line', 379
- .const 'Sub' $P1350 = "80_1275117600.18794"
- capture_lex $P1350
- $P1350()
- if_1345_end:
- goto if_1336_end
- if_1336:
-.annotate 'line', 376
- find_lex $P1339, "$/"
- unless_null $P1339, vivify_322
- $P1339 = root_new ['parrot';'Hash']
+ set $P1405, $P1404["arglist"]
+ unless_null $P1405, vivify_322
+ $P1405 = root_new ['parrot';'ResizablePMCArray']
vivify_322:
- set $P1340, $P1339["assertion"]
- unless_null $P1340, vivify_323
- $P1340 = root_new ['parrot';'ResizablePMCArray']
+ set $P1406, $P1405[0]
+ unless_null $P1406, vivify_323
+ new $P1406, "Undef"
vivify_323:
- set $P1341, $P1340[0]
- unless_null $P1341, vivify_324
- new $P1341, "Undef"
- vivify_324:
- $P1342 = $P1341."ast"()
- store_lex "$past", $P1342
-.annotate 'line', 377
- find_lex $P1343, "$past"
- find_lex $P1344, "$name"
- "subrule_alias"($P1343, $P1344)
- if_1336_end:
-.annotate 'line', 404
- find_lex $P1394, "$/"
- find_lex $P1395, "$past"
- $P1396 = $P1394."!make"($P1395)
-.annotate 'line', 372
- .return ($P1396)
- control_1326:
+ $P1407 = $P1406."ast"()
+ $P1408 = $P1407."list"()
+ defined $I1409, $P1408
+ unless $I1409, for_undef_324
+ iter $P1403, $P1408
+ new $P1418, 'ExceptionHandler'
+ set_addr $P1418, loop1417_handler
+ $P1418."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1418
+ loop1417_test:
+ unless $P1403, loop1417_done
+ shift $P1410, $P1403
+ loop1417_redo:
+ .const 'Sub' $P1412 = "82_1275811482.3686"
+ capture_lex $P1412
+ $P1412($P1410)
+ loop1417_next:
+ goto loop1417_test
+ loop1417_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1419, exception, 'type'
+ eq $P1419, .CONTROL_LOOP_NEXT, loop1417_next
+ eq $P1419, .CONTROL_LOOP_REDO, loop1417_redo
+ loop1417_done:
+ pop_eh
+ for_undef_324:
+ if_1400_end:
+.annotate 'line', 415
+ goto if_1391_end
+ if_1391:
+.annotate 'line', 413
+ find_lex $P1394, "$past"
+ find_lex $P1395, "$/"
+ unless_null $P1395, vivify_325
+ $P1395 = root_new ['parrot';'Hash']
+ vivify_325:
+ set $P1396, $P1395["nibbler"]
+ unless_null $P1396, vivify_326
+ $P1396 = root_new ['parrot';'ResizablePMCArray']
+ vivify_326:
+ set $P1397, $P1396[0]
+ unless_null $P1397, vivify_327
+ new $P1397, "Undef"
+ vivify_327:
+ $P1398 = $P1397."ast"()
+ $P1399 = "buildsub"($P1398)
+ $P1394."push"($P1399)
+ if_1391_end:
+.annotate 'line', 409
+ goto if_1371_end
+ if_1371:
+.annotate 'line', 394
+ .const 'Sub' $P1376 = "81_1275811482.3686"
+ capture_lex $P1376
+ $P1376()
+ if_1371_end:
+ goto if_1362_end
+ if_1362:
+.annotate 'line', 391
+ find_lex $P1365, "$/"
+ unless_null $P1365, vivify_328
+ $P1365 = root_new ['parrot';'Hash']
+ vivify_328:
+ set $P1366, $P1365["assertion"]
+ unless_null $P1366, vivify_329
+ $P1366 = root_new ['parrot';'ResizablePMCArray']
+ vivify_329:
+ set $P1367, $P1366[0]
+ unless_null $P1367, vivify_330
+ new $P1367, "Undef"
+ vivify_330:
+ $P1368 = $P1367."ast"()
+ store_lex "$past", $P1368
+.annotate 'line', 392
+ find_lex $P1369, "$past"
+ find_lex $P1370, "$name"
+ "subrule_alias"($P1369, $P1370)
+ if_1362_end:
+.annotate 'line', 419
+ find_lex $P1420, "$/"
+ find_lex $P1421, "$past"
+ $P1422 = $P1420."!make"($P1421)
+.annotate 'line', 387
+ .return ($P1422)
+ control_1352:
.local pmc exception
.get_results (exception)
- getattribute $P1397, exception, "payload"
- .return ($P1397)
+ getattribute $P1423, exception, "payload"
+ .return ($P1423)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1385" :anon :subid("81_1275117600.18794") :outer("79_1275117600.18794")
- .param pmc param_1387
-.annotate 'line', 401
- .lex "$_", param_1387
- find_lex $P1388, "$past"
- find_lex $P1389, "$_"
- $P1390 = $P1388."push"($P1389)
- .return ($P1390)
+.sub "_block1411" :anon :subid("82_1275811482.3686") :outer("80_1275811482.3686")
+ .param pmc param_1413
+.annotate 'line', 416
+ .lex "$_", param_1413
+ find_lex $P1414, "$past"
+ find_lex $P1415, "$_"
+ $P1416 = $P1414."push"($P1415)
+ .return ($P1416)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1349" :anon :subid("80_1275117600.18794") :outer("79_1275117600.18794")
-.annotate 'line', 380
- new $P1351, "Undef"
- .lex "$regexsym", $P1351
+.sub "_block1375" :anon :subid("81_1275811482.3686") :outer("80_1275811482.3686")
+.annotate 'line', 395
+ new $P1377, "Undef"
+ .lex "$regexsym", $P1377
$P0 = get_global '$REGEXNAME'
$S0 = $P0
@@ -11324,388 +11547,390 @@
add $I0, 5
$S0 = substr $S0, $I0
$S0 = chopn $S0, 1
- $P1352 = box $S0
+ $P1378 = box $S0
- store_lex "$regexsym", $P1352
-.annotate 'line', 389
- get_hll_global $P1353, ["PAST"], "Regex"
-.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", $P1359
-.annotate 'line', 379
- .return ($P1359)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "assertion:sym<[>" :subid("82_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1401
-.annotate 'line', 407
- .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_1401
-.annotate 'line', 408
- new $P1402, "Undef"
- .lex "$clist", $P1402
-.annotate 'line', 409
- new $P1403, "Undef"
- .lex "$past", $P1403
-.annotate 'line', 418
- new $P1404, "Undef"
- .lex "$i", $P1404
-.annotate 'line', 419
- new $P1405, "Undef"
- .lex "$n", $P1405
-.annotate 'line', 408
- find_lex $P1406, "$/"
- unless_null $P1406, vivify_325
- $P1406 = root_new ['parrot';'Hash']
- vivify_325:
- set $P1407, $P1406["cclass_elem"]
- unless_null $P1407, vivify_326
- new $P1407, "Undef"
- vivify_326:
- store_lex "$clist", $P1407
-.annotate 'line', 409
- find_lex $P1408, "$clist"
- unless_null $P1408, vivify_327
- $P1408 = root_new ['parrot';'ResizablePMCArray']
- vivify_327:
- set $P1409, $P1408[0]
- unless_null $P1409, vivify_328
- new $P1409, "Undef"
- vivify_328:
- $P1410 = $P1409."ast"()
- store_lex "$past", $P1410
-.annotate 'line', 410
- 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 $P1419, "$past"
- $P1419."subtype"("zerowidth")
-.annotate 'line', 412
- get_hll_global $P1420, ["PAST"], "Regex"
- find_lex $P1421, "$past"
-.annotate 'line', 414
- 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", $P1425
- if_1411_end:
-.annotate 'line', 418
- new $P1426, "Integer"
- assign $P1426, 1
- store_lex "$i", $P1426
-.annotate 'line', 419
- find_lex $P1427, "$clist"
- set $N1428, $P1427
- new $P1429, 'Float'
- set $P1429, $N1428
- store_lex "$n", $P1429
-.annotate 'line', 420
- 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 $P1462, "$/"
- find_lex $P1463, "$past"
- $P1464 = $P1462."!make"($P1463)
-.annotate 'line', 407
- .return ($P1464)
- control_1399:
- .local pmc exception
- .get_results (exception)
- getattribute $P1465, exception, "payload"
- .return ($P1465)
+ store_lex "$regexsym", $P1378
+.annotate 'line', 404
+ get_hll_global $P1379, ["PAST"], "Regex"
+.annotate 'line', 405
+ get_hll_global $P1380, ["PAST"], "Regex"
+ find_lex $P1381, "$regexsym"
+ $P1382 = $P1380."new"($P1381, "literal" :named("pasttype"))
+ find_lex $P1383, "$name"
+ find_lex $P1384, "$/"
+ $P1385 = $P1379."new"($P1382, $P1383 :named("name"), "subcapture" :named("pasttype"), $P1384 :named("node"))
+.annotate 'line', 404
+ store_lex "$past", $P1385
+.annotate 'line', 394
+ .return ($P1385)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1435" :anon :subid("83_1275117600.18794") :outer("82_1275117600.18794")
-.annotate 'line', 421
- 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 $P1441, $P1440[$I1439]
- unless_null $P1441, vivify_330
- new $P1441, "Undef"
- vivify_330:
- $P1442 = $P1441."ast"()
- store_lex "$ast", $P1442
+.include "except_types.pasm"
+.sub "assertion:sym<[>" :subid("83_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1427
.annotate 'line', 422
- find_lex $P1444, "$ast"
- $P1445 = $P1444."negate"()
- if $P1445, if_1443
-.annotate 'line', 427
- 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_1443_end
- if_1443:
+ .const 'Sub' $P1462 = "84_1275811482.3686"
+ capture_lex $P1462
+ new $P1426, 'ExceptionHandler'
+ set_addr $P1426, control_1425
+ $P1426."handle_types"(.CONTROL_RETURN)
+ push_eh $P1426
+ .lex "self", self
+ .lex "$/", param_1427
.annotate 'line', 423
- find_lex $P1446, "$ast"
- $P1446."subtype"("zerowidth")
+ new $P1428, "Undef"
+ .lex "$clist", $P1428
.annotate 'line', 424
- 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 $P1457, "$i"
- add $P1458, $P1457, 1
- store_lex "$i", $P1458
-.annotate 'line', 420
- .return ($P1458)
-.end
-
-
-.namespace ["Regex";"P6Regex";"Actions"]
-.sub "cclass_elem" :subid("84_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1469
+ new $P1429, "Undef"
+ .lex "$past", $P1429
+.annotate 'line', 433
+ new $P1430, "Undef"
+ .lex "$i", $P1430
.annotate 'line', 434
- .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_1469
-.annotate 'line', 435
- new $P1470, "Undef"
- .lex "$str", $P1470
-.annotate 'line', 436
- new $P1471, "Undef"
- .lex "$past", $P1471
-.annotate 'line', 435
- new $P1472, "String"
- assign $P1472, ""
- store_lex "$str", $P1472
- find_lex $P1473, "$past"
-.annotate 'line', 437
- find_lex $P1475, "$/"
- unless_null $P1475, vivify_331
- $P1475 = root_new ['parrot';'Hash']
+ new $P1431, "Undef"
+ .lex "$n", $P1431
+.annotate 'line', 423
+ find_lex $P1432, "$/"
+ unless_null $P1432, vivify_331
+ $P1432 = root_new ['parrot';'Hash']
vivify_331:
- set $P1476, $P1475["name"]
- unless_null $P1476, vivify_332
- new $P1476, "Undef"
+ set $P1433, $P1432["cclass_elem"]
+ unless_null $P1433, vivify_332
+ new $P1433, "Undef"
vivify_332:
- if $P1476, if_1474
-.annotate 'line', 441
- find_lex $P1489, "$/"
- unless_null $P1489, vivify_333
- $P1489 = root_new ['parrot';'Hash']
+ store_lex "$clist", $P1433
+.annotate 'line', 424
+ find_lex $P1434, "$clist"
+ unless_null $P1434, vivify_333
+ $P1434 = root_new ['parrot';'ResizablePMCArray']
vivify_333:
- set $P1490, $P1489["charspec"]
- unless_null $P1490, vivify_334
- new $P1490, "Undef"
+ set $P1435, $P1434[0]
+ unless_null $P1435, vivify_334
+ new $P1435, "Undef"
vivify_334:
- 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 $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_1474_end
- if_1474:
-.annotate 'line', 437
- .const 'Sub' $P1478 = "85_1275117600.18794"
- capture_lex $P1478
- $P1478()
- if_1474_end:
-.annotate 'line', 468
- find_lex $P1526, "$past"
- find_lex $P1527, "$/"
- unless_null $P1527, vivify_347
- $P1527 = root_new ['parrot';'Hash']
- vivify_347:
- set $P1528, $P1527["sign"]
- unless_null $P1528, vivify_348
- new $P1528, "Undef"
- vivify_348:
- set $S1529, $P1528
- iseq $I1530, $S1529, "-"
- $P1526."negate"($I1530)
-.annotate 'line', 469
- find_lex $P1531, "$/"
- find_lex $P1532, "$past"
- $P1533 = $P1531."!make"($P1532)
+ $P1436 = $P1435."ast"()
+ store_lex "$past", $P1436
+.annotate 'line', 425
+ find_lex $P1440, "$past"
+ $P1441 = $P1440."negate"()
+ if $P1441, if_1439
+ set $P1438, $P1441
+ goto if_1439_end
+ if_1439:
+ find_lex $P1442, "$past"
+ $S1443 = $P1442."pasttype"()
+ iseq $I1444, $S1443, "subrule"
+ new $P1438, 'Integer'
+ set $P1438, $I1444
+ if_1439_end:
+ unless $P1438, if_1437_end
+.annotate 'line', 426
+ find_lex $P1445, "$past"
+ $P1445."subtype"("zerowidth")
+.annotate 'line', 427
+ get_hll_global $P1446, ["PAST"], "Regex"
+ find_lex $P1447, "$past"
+.annotate 'line', 429
+ get_hll_global $P1448, ["PAST"], "Regex"
+ $P1449 = $P1448."new"("charclass" :named("pasttype"), "." :named("subtype"))
+ find_lex $P1450, "$/"
+ $P1451 = $P1446."new"($P1447, $P1449, $P1450 :named("node"))
+.annotate 'line', 427
+ store_lex "$past", $P1451
+ if_1437_end:
+.annotate 'line', 433
+ new $P1452, "Integer"
+ assign $P1452, 1
+ store_lex "$i", $P1452
.annotate 'line', 434
- .return ($P1533)
- control_1467:
+ find_lex $P1453, "$clist"
+ set $N1454, $P1453
+ new $P1455, 'Float'
+ set $P1455, $N1454
+ store_lex "$n", $P1455
+.annotate 'line', 435
+ new $P1486, 'ExceptionHandler'
+ set_addr $P1486, loop1485_handler
+ $P1486."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1486
+ loop1485_test:
+ find_lex $P1456, "$i"
+ set $N1457, $P1456
+ find_lex $P1458, "$n"
+ set $N1459, $P1458
+ islt $I1460, $N1457, $N1459
+ unless $I1460, loop1485_done
+ loop1485_redo:
+ .const 'Sub' $P1462 = "84_1275811482.3686"
+ capture_lex $P1462
+ $P1462()
+ loop1485_next:
+ goto loop1485_test
+ loop1485_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1487, exception, 'type'
+ eq $P1487, .CONTROL_LOOP_NEXT, loop1485_next
+ eq $P1487, .CONTROL_LOOP_REDO, loop1485_redo
+ loop1485_done:
+ pop_eh
+.annotate 'line', 446
+ find_lex $P1488, "$/"
+ find_lex $P1489, "$past"
+ $P1490 = $P1488."!make"($P1489)
+.annotate 'line', 422
+ .return ($P1490)
+ control_1425:
.local pmc exception
.get_results (exception)
- getattribute $P1534, exception, "payload"
- .return ($P1534)
+ getattribute $P1491, exception, "payload"
+ .return ($P1491)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1493" :anon :subid("86_1275117600.18794") :outer("84_1275117600.18794")
- .param pmc param_1495
-.annotate 'line', 441
- .const 'Sub' $P1501 = "87_1275117600.18794"
- capture_lex $P1501
- .lex "$_", param_1495
-.annotate 'line', 442
- find_lex $P1498, "$_"
- unless_null $P1498, vivify_336
- $P1498 = root_new ['parrot';'ResizablePMCArray']
+.sub "_block1461" :anon :subid("84_1275811482.3686") :outer("83_1275811482.3686")
+.annotate 'line', 436
+ new $P1463, "Undef"
+ .lex "$ast", $P1463
+ find_lex $P1464, "$i"
+ set $I1465, $P1464
+ find_lex $P1466, "$clist"
+ unless_null $P1466, vivify_335
+ $P1466 = root_new ['parrot';'ResizablePMCArray']
+ vivify_335:
+ set $P1467, $P1466[$I1465]
+ unless_null $P1467, vivify_336
+ new $P1467, "Undef"
vivify_336:
- set $P1499, $P1498[1]
- unless_null $P1499, vivify_337
- new $P1499, "Undef"
- vivify_337:
- if $P1499, if_1497
-.annotate 'line', 464
- find_lex $P1515, "$str"
- find_lex $P1516, "$_"
- unless_null $P1516, vivify_338
- $P1516 = root_new ['parrot';'ResizablePMCArray']
- vivify_338:
- set $P1517, $P1516[0]
- unless_null $P1517, vivify_339
- new $P1517, "Undef"
- vivify_339:
- concat $P1518, $P1515, $P1517
- store_lex "$str", $P1518
- set $P1496, $P1518
+ $P1468 = $P1467."ast"()
+ store_lex "$ast", $P1468
+.annotate 'line', 437
+ find_lex $P1470, "$ast"
+ $P1471 = $P1470."negate"()
+ if $P1471, if_1469
.annotate 'line', 442
- goto if_1497_end
- if_1497:
- .const 'Sub' $P1501 = "87_1275117600.18794"
- capture_lex $P1501
- $P1514 = $P1501()
- set $P1496, $P1514
- if_1497_end:
+ get_hll_global $P1478, ["PAST"], "Regex"
+ find_lex $P1479, "$past"
+ find_lex $P1480, "$ast"
+ find_lex $P1481, "$/"
+ $P1482 = $P1478."new"($P1479, $P1480, "alt" :named("pasttype"), $P1481 :named("node"))
+ store_lex "$past", $P1482
.annotate 'line', 441
- .return ($P1496)
+ goto if_1469_end
+ if_1469:
+.annotate 'line', 438
+ find_lex $P1472, "$ast"
+ $P1472."subtype"("zerowidth")
+.annotate 'line', 439
+ get_hll_global $P1473, ["PAST"], "Regex"
+ find_lex $P1474, "$ast"
+ find_lex $P1475, "$past"
+ find_lex $P1476, "$/"
+ $P1477 = $P1473."new"($P1474, $P1475, "concat" :named("pasttype"), $P1476 :named("node"))
+ store_lex "$past", $P1477
+ if_1469_end:
+.annotate 'line', 444
+ find_lex $P1483, "$i"
+ add $P1484, $P1483, 1
+ store_lex "$i", $P1484
+.annotate 'line', 435
+ .return ($P1484)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1500" :anon :subid("87_1275117600.18794") :outer("86_1275117600.18794")
-.annotate 'line', 443
+.include "except_types.pasm"
+.sub "cclass_elem" :subid("85_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1495
+.annotate 'line', 449
+ .const 'Sub' $P1520 = "87_1275811482.3686"
+ capture_lex $P1520
+ .const 'Sub' $P1504 = "86_1275811482.3686"
+ capture_lex $P1504
+ new $P1494, 'ExceptionHandler'
+ set_addr $P1494, control_1493
+ $P1494."handle_types"(.CONTROL_RETURN)
+ push_eh $P1494
+ .lex "self", self
+ .lex "$/", param_1495
+.annotate 'line', 450
+ new $P1496, "Undef"
+ .lex "$str", $P1496
+.annotate 'line', 451
+ new $P1497, "Undef"
+ .lex "$past", $P1497
+.annotate 'line', 450
+ new $P1498, "String"
+ assign $P1498, ""
+ store_lex "$str", $P1498
+ find_lex $P1499, "$past"
+.annotate 'line', 452
+ find_lex $P1501, "$/"
+ unless_null $P1501, vivify_337
+ $P1501 = root_new ['parrot';'Hash']
+ vivify_337:
+ set $P1502, $P1501["name"]
+ unless_null $P1502, vivify_338
new $P1502, "Undef"
- .lex "$a", $P1502
-.annotate 'line', 444
- new $P1503, "Undef"
- .lex "$b", $P1503
-.annotate 'line', 445
- new $P1504, "Undef"
- .lex "$c", $P1504
-.annotate 'line', 443
- find_lex $P1505, "$_"
- unless_null $P1505, vivify_340
- $P1505 = root_new ['parrot';'ResizablePMCArray']
+ vivify_338:
+ if $P1502, if_1500
+.annotate 'line', 456
+ find_lex $P1515, "$/"
+ unless_null $P1515, vivify_339
+ $P1515 = root_new ['parrot';'Hash']
+ vivify_339:
+ set $P1516, $P1515["charspec"]
+ unless_null $P1516, vivify_340
+ new $P1516, "Undef"
vivify_340:
- set $P1506, $P1505[0]
- unless_null $P1506, vivify_341
- new $P1506, "Undef"
- vivify_341:
- store_lex "$a", $P1506
-.annotate 'line', 444
- find_lex $P1507, "$_"
- unless_null $P1507, vivify_342
- $P1507 = root_new ['parrot';'ResizablePMCArray']
+ defined $I1517, $P1516
+ unless $I1517, for_undef_341
+ iter $P1514, $P1516
+ new $P1546, 'ExceptionHandler'
+ set_addr $P1546, loop1545_handler
+ $P1546."handle_types"(.CONTROL_LOOP_NEXT, .CONTROL_LOOP_REDO, .CONTROL_LOOP_LAST)
+ push_eh $P1546
+ loop1545_test:
+ unless $P1514, loop1545_done
+ shift $P1518, $P1514
+ loop1545_redo:
+ .const 'Sub' $P1520 = "87_1275811482.3686"
+ capture_lex $P1520
+ $P1520($P1518)
+ loop1545_next:
+ goto loop1545_test
+ loop1545_handler:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1547, exception, 'type'
+ eq $P1547, .CONTROL_LOOP_NEXT, loop1545_next
+ eq $P1547, .CONTROL_LOOP_REDO, loop1545_redo
+ loop1545_done:
+ pop_eh
+ for_undef_341:
+.annotate 'line', 481
+ get_hll_global $P1548, ["PAST"], "Regex"
+ find_lex $P1549, "$str"
+ find_lex $P1550, "$/"
+ $P1551 = $P1548."new"($P1549, "enumcharlist" :named("pasttype"), $P1550 :named("node"))
+ store_lex "$past", $P1551
+.annotate 'line', 455
+ goto if_1500_end
+ if_1500:
+.annotate 'line', 452
+ .const 'Sub' $P1504 = "86_1275811482.3686"
+ capture_lex $P1504
+ $P1504()
+ if_1500_end:
+.annotate 'line', 483
+ find_lex $P1552, "$past"
+ find_lex $P1553, "$/"
+ unless_null $P1553, vivify_353
+ $P1553 = root_new ['parrot';'Hash']
+ vivify_353:
+ set $P1554, $P1553["sign"]
+ unless_null $P1554, vivify_354
+ new $P1554, "Undef"
+ vivify_354:
+ set $S1555, $P1554
+ iseq $I1556, $S1555, "-"
+ $P1552."negate"($I1556)
+.annotate 'line', 484
+ find_lex $P1557, "$/"
+ find_lex $P1558, "$past"
+ $P1559 = $P1557."!make"($P1558)
+.annotate 'line', 449
+ .return ($P1559)
+ control_1493:
+ .local pmc exception
+ .get_results (exception)
+ getattribute $P1560, exception, "payload"
+ .return ($P1560)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.sub "_block1519" :anon :subid("87_1275811482.3686") :outer("85_1275811482.3686")
+ .param pmc param_1521
+.annotate 'line', 456
+ .const 'Sub' $P1527 = "88_1275811482.3686"
+ capture_lex $P1527
+ .lex "$_", param_1521
+.annotate 'line', 457
+ find_lex $P1524, "$_"
+ unless_null $P1524, vivify_342
+ $P1524 = root_new ['parrot';'ResizablePMCArray']
vivify_342:
- set $P1508, $P1507[1]
- unless_null $P1508, vivify_343
- $P1508 = root_new ['parrot';'ResizablePMCArray']
+ set $P1525, $P1524[1]
+ unless_null $P1525, vivify_343
+ new $P1525, "Undef"
vivify_343:
- set $P1509, $P1508[0]
- unless_null $P1509, vivify_344
- new $P1509, "Undef"
+ if $P1525, if_1523
+.annotate 'line', 479
+ find_lex $P1541, "$str"
+ find_lex $P1542, "$_"
+ unless_null $P1542, vivify_344
+ $P1542 = root_new ['parrot';'ResizablePMCArray']
vivify_344:
- store_lex "$b", $P1509
-.annotate 'line', 445
+ set $P1543, $P1542[0]
+ unless_null $P1543, vivify_345
+ new $P1543, "Undef"
+ vivify_345:
+ concat $P1544, $P1541, $P1543
+ store_lex "$str", $P1544
+ set $P1522, $P1544
+.annotate 'line', 457
+ goto if_1523_end
+ if_1523:
+ .const 'Sub' $P1527 = "88_1275811482.3686"
+ capture_lex $P1527
+ $P1540 = $P1527()
+ set $P1522, $P1540
+ if_1523_end:
+.annotate 'line', 456
+ .return ($P1522)
+.end
+
+
+.namespace ["Regex";"P6Regex";"Actions"]
+.sub "_block1526" :anon :subid("88_1275811482.3686") :outer("87_1275811482.3686")
+.annotate 'line', 458
+ new $P1528, "Undef"
+ .lex "$a", $P1528
+.annotate 'line', 459
+ new $P1529, "Undef"
+ .lex "$b", $P1529
+.annotate 'line', 460
+ new $P1530, "Undef"
+ .lex "$c", $P1530
+.annotate 'line', 458
+ find_lex $P1531, "$_"
+ unless_null $P1531, vivify_346
+ $P1531 = root_new ['parrot';'ResizablePMCArray']
+ vivify_346:
+ set $P1532, $P1531[0]
+ unless_null $P1532, vivify_347
+ new $P1532, "Undef"
+ vivify_347:
+ store_lex "$a", $P1532
+.annotate 'line', 459
+ find_lex $P1533, "$_"
+ unless_null $P1533, vivify_348
+ $P1533 = root_new ['parrot';'ResizablePMCArray']
+ vivify_348:
+ set $P1534, $P1533[1]
+ unless_null $P1534, vivify_349
+ $P1534 = root_new ['parrot';'ResizablePMCArray']
+ vivify_349:
+ set $P1535, $P1534[0]
+ unless_null $P1535, vivify_350
+ new $P1535, "Undef"
+ vivify_350:
+ store_lex "$b", $P1535
+.annotate 'line', 460
$P0 = find_lex '$a'
$S0 = $P0
@@ -11721,160 +11946,161 @@
inc $I0
goto cclass_loop
cclass_done:
- $P1510 = box $S2
+ $P1536 = box $S2
- store_lex "$c", $P1510
-.annotate 'line', 462
- find_lex $P1511, "$str"
- find_lex $P1512, "$c"
- concat $P1513, $P1511, $P1512
- store_lex "$str", $P1513
-.annotate 'line', 442
- .return ($P1513)
+ store_lex "$c", $P1536
+.annotate 'line', 477
+ find_lex $P1537, "$str"
+ find_lex $P1538, "$c"
+ concat $P1539, $P1537, $P1538
+ store_lex "$str", $P1539
+.annotate 'line', 457
+ .return ($P1539)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1477" :anon :subid("85_1275117600.18794") :outer("84_1275117600.18794")
-.annotate 'line', 438
- new $P1479, "Undef"
- .lex "$name", $P1479
- find_lex $P1480, "$/"
- unless_null $P1480, vivify_345
- $P1480 = root_new ['parrot';'Hash']
- vivify_345:
- set $P1481, $P1480["name"]
- unless_null $P1481, vivify_346
- new $P1481, "Undef"
- vivify_346:
- set $S1482, $P1481
- new $P1483, 'String'
- set $P1483, $S1482
- store_lex "$name", $P1483
-.annotate 'line', 439
- 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 ($P1487)
+.sub "_block1503" :anon :subid("86_1275811482.3686") :outer("85_1275811482.3686")
+.annotate 'line', 453
+ new $P1505, "Undef"
+ .lex "$name", $P1505
+ find_lex $P1506, "$/"
+ unless_null $P1506, vivify_351
+ $P1506 = root_new ['parrot';'Hash']
+ vivify_351:
+ set $P1507, $P1506["name"]
+ unless_null $P1507, vivify_352
+ new $P1507, "Undef"
+ vivify_352:
+ set $S1508, $P1507
+ new $P1509, 'String'
+ set $P1509, $S1508
+ store_lex "$name", $P1509
+.annotate 'line', 454
+ get_hll_global $P1510, ["PAST"], "Regex"
+ find_lex $P1511, "$name"
+ find_lex $P1512, "$/"
+ $P1513 = $P1510."new"($P1511, "subrule" :named("pasttype"), "method" :named("subtype"), $P1512 :named("node"))
+ store_lex "$past", $P1513
+.annotate 'line', 452
+ .return ($P1513)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "mod_internal" :subid("88_1275117600.18794") :method :outer("11_1275117600.18794")
- .param pmc param_1538
-.annotate 'line', 472
- new $P1537, 'ExceptionHandler'
- set_addr $P1537, control_1536
- $P1537."handle_types"(57)
- push_eh $P1537
- .lex "self", self
- .lex "$/", param_1538
-.annotate 'line', 473
- $P1539 = root_new ['parrot';'Hash']
- .lex "%mods", $P1539
-.annotate 'line', 474
- new $P1540, "Undef"
- .lex "$n", $P1540
-.annotate 'line', 473
- get_global $P1541, "@MODIFIERS"
- unless_null $P1541, vivify_349
- $P1541 = root_new ['parrot';'ResizablePMCArray']
- vivify_349:
- set $P1542, $P1541[0]
- unless_null $P1542, vivify_350
- new $P1542, "Undef"
- vivify_350:
- store_lex "%mods", $P1542
-.annotate 'line', 474
- find_lex $P1545, "$/"
- unless_null $P1545, vivify_351
- $P1545 = root_new ['parrot';'Hash']
- vivify_351:
- set $P1546, $P1545["n"]
- unless_null $P1546, vivify_352
- $P1546 = root_new ['parrot';'ResizablePMCArray']
- vivify_352:
- set $P1547, $P1546[0]
- unless_null $P1547, vivify_353
- new $P1547, "Undef"
- vivify_353:
- 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 $P1551, $P1550["n"]
- unless_null $P1551, vivify_355
- $P1551 = root_new ['parrot';'ResizablePMCArray']
+.include "except_types.pasm"
+.sub "mod_internal" :subid("89_1275811482.3686") :method :outer("11_1275811482.3686")
+ .param pmc param_1564
+.annotate 'line', 487
+ new $P1563, 'ExceptionHandler'
+ set_addr $P1563, control_1562
+ $P1563."handle_types"(.CONTROL_RETURN)
+ push_eh $P1563
+ .lex "self", self
+ .lex "$/", param_1564
+.annotate 'line', 488
+ $P1565 = root_new ['parrot';'Hash']
+ .lex "%mods", $P1565
+.annotate 'line', 489
+ new $P1566, "Undef"
+ .lex "$n", $P1566
+.annotate 'line', 488
+ get_global $P1567, "@MODIFIERS"
+ unless_null $P1567, vivify_355
+ $P1567 = root_new ['parrot';'ResizablePMCArray']
vivify_355:
- set $P1552, $P1551[0]
- unless_null $P1552, vivify_356
- new $P1552, "Undef"
+ set $P1568, $P1567[0]
+ unless_null $P1568, vivify_356
+ new $P1568, "Undef"
vivify_356:
- set $N1553, $P1552
- new $P1543, 'Float'
- set $P1543, $N1553
- if_1544_end:
- store_lex "$n", $P1543
-.annotate 'line', 475
- find_lex $P1555, "$n"
- find_lex $P1556, "$/"
- unless_null $P1556, vivify_357
- $P1556 = root_new ['parrot';'Hash']
+ store_lex "%mods", $P1568
+.annotate 'line', 489
+ find_lex $P1571, "$/"
+ unless_null $P1571, vivify_357
+ $P1571 = root_new ['parrot';'Hash']
vivify_357:
- set $P1557, $P1556["mod_ident"]
- unless_null $P1557, vivify_358
- $P1557 = root_new ['parrot';'Hash']
+ set $P1572, $P1571["n"]
+ unless_null $P1572, vivify_358
+ $P1572 = root_new ['parrot';'ResizablePMCArray']
vivify_358:
- set $P1558, $P1557["sym"]
- unless_null $P1558, vivify_359
- new $P1558, "Undef"
+ set $P1573, $P1572[0]
+ unless_null $P1573, vivify_359
+ new $P1573, "Undef"
vivify_359:
- set $S1559, $P1558
- find_lex $P1560, "%mods"
- unless_null $P1560, vivify_360
- $P1560 = root_new ['parrot';'Hash']
- store_lex "%mods", $P1560
+ set $S1574, $P1573
+ isgt $I1575, $S1574, ""
+ if $I1575, if_1570
+ new $P1580, "Integer"
+ assign $P1580, 1
+ set $P1569, $P1580
+ goto if_1570_end
+ if_1570:
+ find_lex $P1576, "$/"
+ unless_null $P1576, vivify_360
+ $P1576 = root_new ['parrot';'Hash']
vivify_360:
- set $P1560[$S1559], $P1555
-.annotate 'line', 476
- find_lex $P1561, "$/"
- $P1562 = $P1561."!make"(0)
-.annotate 'line', 472
- .return ($P1562)
- control_1536:
+ set $P1577, $P1576["n"]
+ unless_null $P1577, vivify_361
+ $P1577 = root_new ['parrot';'ResizablePMCArray']
+ vivify_361:
+ set $P1578, $P1577[0]
+ unless_null $P1578, vivify_362
+ new $P1578, "Undef"
+ vivify_362:
+ set $N1579, $P1578
+ new $P1569, 'Float'
+ set $P1569, $N1579
+ if_1570_end:
+ store_lex "$n", $P1569
+.annotate 'line', 490
+ find_lex $P1581, "$n"
+ find_lex $P1582, "$/"
+ unless_null $P1582, vivify_363
+ $P1582 = root_new ['parrot';'Hash']
+ vivify_363:
+ set $P1583, $P1582["mod_ident"]
+ unless_null $P1583, vivify_364
+ $P1583 = root_new ['parrot';'Hash']
+ vivify_364:
+ set $P1584, $P1583["sym"]
+ unless_null $P1584, vivify_365
+ new $P1584, "Undef"
+ vivify_365:
+ set $S1585, $P1584
+ find_lex $P1586, "%mods"
+ unless_null $P1586, vivify_366
+ $P1586 = root_new ['parrot';'Hash']
+ store_lex "%mods", $P1586
+ vivify_366:
+ set $P1586[$S1585], $P1581
+.annotate 'line', 491
+ find_lex $P1587, "$/"
+ $P1588 = $P1587."!make"(0)
+.annotate 'line', 487
+ .return ($P1588)
+ control_1562:
.local pmc exception
.get_results (exception)
- getattribute $P1563, exception, "payload"
- .return ($P1563)
+ getattribute $P1589, exception, "payload"
+ .return ($P1589)
.end
.namespace ["Regex";"P6Regex";"Actions"]
-.sub "_block1568" :load :anon :subid("89_1275117600.18794")
+.sub "_block1594" :load :anon :subid("90_1275811482.3686")
.annotate 'line', 4
- .const 'Sub' $P1570 = "11_1275117600.18794"
- $P1571 = $P1570()
- .return ($P1571)
+ .const 'Sub' $P1596 = "11_1275811482.3686"
+ $P1597 = $P1596()
+ .return ($P1597)
.end
.namespace []
-.sub "_block1574" :load :anon :subid("90_1275117600.18794")
+.sub "_block1600" :load :anon :subid("91_1275811482.3686")
.annotate 'line', 1
- .const 'Sub' $P1576 = "10_1275117600.18794"
- $P1577 = $P1576()
- .return ($P1577)
+ .const 'Sub' $P1602 = "10_1275811482.3686"
+ $P1603 = $P1602()
+ .return ($P1603)
.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 Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/Regex-s0.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -999,6 +999,10 @@
(cur, pos, tgt) = self.'!cursor_start'()
$I0 = is_cclass .CCLASS_ALPHABETIC, tgt, pos
if $I0 goto pass
+
+ $I0 = length tgt
+ if pos >= $I0 goto fail
+
$S0 = substr tgt, pos, 1
if $S0 != '_' goto fail
pass:
@@ -1615,6 +1619,9 @@
$I0 = self.'to'()
$I1 = self.'from'()
$I2 = $I0 - $I1
+ if $I2 >= 0 goto done
+ .return (0)
+ done:
.return ($I2)
.end
@@ -2287,6 +2294,22 @@
.tailcall head.'prefix'(prefix, tail :flat)
.end
+.sub 'prefix_pastnode' :method
+ .param string prefix
+ .param pmc tail
+
+ unless tail goto pastnode_none
+ .local string subtype
+ subtype = self.'subtype'()
+ if subtype != 'declarative' goto pastnode_none
+
+ .local pmc head
+ head = shift tail
+ .tailcall head.'prefix'(prefix, tail :flat)
+
+ pastnode_none:
+ .return (prefix)
+.end
.sub 'prefix_subcapture' :method
.param string prefix
@@ -2300,7 +2323,7 @@
.param pmc tail
.local pmc name, negate, subtype
- name = self.'name'()
+ name = self[0]
negate = self.'negate'()
subtype = self.'subtype'()
$I0 = does name, 'string'
@@ -2388,7 +2411,7 @@
.lex '$*REG', reghash
.local pmc regexname, regexname_esc
- $P0 = get_global '@?BLOCK'
+ $P0 = find_dynamic_lex '@*BLOCKPAST'
$P1 = $P0[0]
$S0 = $P1.'name'()
regexname = box $S0
@@ -2478,6 +2501,7 @@
ops.'push_pirop'('.local pmc', 'match')
ops.'push_pirop'('.lex', '"$/"', 'match')
ops.'push_pirop'('length', eos, tgt, 'result'=>eos)
+ ops.'push_pirop'('gt', pos, eos, donelabel)
# On Parrot, indexing into variable-width encoded strings
# (such as utf8) becomes much more expensive as we move
Modified: branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp
==============================================================================
--- branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/ext/nqp-rx/src/stage0/nqp-setting.nqp Sun Jun 6 16:09:33 2010 (r47429)
@@ -154,17 +154,17 @@
our sub match ($text, $regex, :$global?) {
my $match := $text ~~ $regex;
- my @matches;
if $global {
+ my @matches;
while $match {
@matches.push($match);
$match := $match.CURSOR.parse($text, :rule($regex), :c($match.to));
}
+ @matches;
}
- elsif $match {
- @matches.push($match);
+ else {
+ $match;
}
- @matches;
}
@@ -175,8 +175,8 @@
=end item
our sub subst ($text, $regex, $repl, :$global?) {
- my @matches := match($text, $regex, $global);
-
+ my @matches := $global ?? match($text, $regex, :global)
+ !! [ $text ~~ $regex ];
my $is_code := pir::isa($repl, 'Sub');
my $offset := 0;
my $result := pir::new__Ps('StringBuilder');
@@ -213,7 +213,7 @@
=end
our sub slurp ($filename) {
- my $handle := FileHandle.new;
+ my $handle := FileHandle.new();
$handle.open($file, 'r');
my $contents := $handle.readall;
$handle.close();
Modified: branches/gsoc_instrument/include/parrot/exceptions.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/exceptions.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/include/parrot/exceptions.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -90,6 +90,7 @@
CONTROL_ERROR,
CONTROL_TAKE,
CONTROL_LEAVE,
+ CONTROL_EXIT,
CONTROL_LOOP_NEXT,
CONTROL_LOOP_LAST,
Modified: branches/gsoc_instrument/include/parrot/gc_api.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/gc_api.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/include/parrot/gc_api.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -93,10 +93,10 @@
/* &end_gen */
-#define GC_trace_stack_FLAG (UINTVAL)(1 << 0) /* trace system areas and stack */
-#define GC_trace_normal (UINTVAL)(1 << 0) /* the same */
-#define GC_lazy_FLAG (UINTVAL)(1 << 1) /* timely destruction run */
-#define GC_finish_FLAG (UINTVAL)(1 << 2) /* on Parrot exit: mark (almost) all PMCs dead and */
+#define GC_trace_stack_FLAG (UINTVAL)(1 << 1) /* trace system areas and stack */
+#define GC_trace_normal_FLAG (UINTVAL)(1 << 1) /* the same */
+#define GC_lazy_FLAG (UINTVAL)(1 << 2) /* timely destruction run */
+#define GC_finish_FLAG (UINTVAL)(1 << 3) /* on Parrot exit: mark (almost) all PMCs dead and */
/* garbage collect. */
/* HEADERIZER BEGIN: src/gc/api.c */
Modified: branches/gsoc_instrument/include/parrot/oplib/core_ops.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/oplib/core_ops.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/include/parrot/oplib/core_ops.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -11,7 +11,8 @@
* This file is generated automatically from 'src/ops/core.ops' (and possibly other
* .ops files). by ops2c.nqp.
*
- * Any changes made here will be lost!
+ * Any changes made here will be lost! To regenerate this file after making
+ * changes to any ops, use the bootstap-ops makefile target.
*
*/
@@ -386,6 +387,9 @@
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_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_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);
Modified: branches/gsoc_instrument/include/parrot/oplib/ops.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/oplib/ops.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/include/parrot/oplib/ops.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -11,7 +11,8 @@
* This file is generated automatically from 'src/ops/core.ops' (and possibly other
* .ops files). by ops2c.nqp.
*
- * Any changes made here will be lost!
+ * Any changes made here will be lost! To regenerate this file after making
+ * changes to any ops, use the bootstap-ops makefile target.
*
*/
@@ -381,721 +382,724 @@
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_OP_getstdin_p, /* 365 */
+ PARROT_OP_getstdout_p, /* 366 */
+ PARROT_OP_getstderr_p, /* 367 */
+ PARROT_OP_abs_i, /* 368 */
+ PARROT_OP_abs_n, /* 369 */
+ PARROT_OP_abs_i_i, /* 370 */
+ PARROT_OP_abs_n_n, /* 371 */
+ PARROT_OP_abs_p, /* 372 */
+ PARROT_OP_abs_p_p, /* 373 */
+ PARROT_OP_add_i_i, /* 374 */
+ PARROT_OP_add_i_ic, /* 375 */
+ PARROT_OP_add_n_n, /* 376 */
+ PARROT_OP_add_n_nc, /* 377 */
+ PARROT_OP_add_p_p, /* 378 */
+ PARROT_OP_add_p_i, /* 379 */
+ PARROT_OP_add_p_ic, /* 380 */
+ PARROT_OP_add_p_n, /* 381 */
+ PARROT_OP_add_p_nc, /* 382 */
+ PARROT_OP_add_i_i_i, /* 383 */
+ PARROT_OP_add_i_ic_i, /* 384 */
+ PARROT_OP_add_i_i_ic, /* 385 */
+ PARROT_OP_add_n_n_n, /* 386 */
+ PARROT_OP_add_n_nc_n, /* 387 */
+ PARROT_OP_add_n_n_nc, /* 388 */
+ PARROT_OP_add_p_p_p, /* 389 */
+ PARROT_OP_add_p_p_i, /* 390 */
+ PARROT_OP_add_p_p_ic, /* 391 */
+ PARROT_OP_add_p_p_n, /* 392 */
+ PARROT_OP_add_p_p_nc, /* 393 */
+ PARROT_OP_dec_i, /* 394 */
+ PARROT_OP_dec_n, /* 395 */
+ PARROT_OP_dec_p, /* 396 */
+ PARROT_OP_div_i_i, /* 397 */
+ PARROT_OP_div_i_ic, /* 398 */
+ PARROT_OP_div_n_n, /* 399 */
+ PARROT_OP_div_n_nc, /* 400 */
+ PARROT_OP_div_p_p, /* 401 */
+ PARROT_OP_div_p_i, /* 402 */
+ PARROT_OP_div_p_ic, /* 403 */
+ PARROT_OP_div_p_n, /* 404 */
+ PARROT_OP_div_p_nc, /* 405 */
+ PARROT_OP_div_i_i_i, /* 406 */
+ PARROT_OP_div_i_ic_i, /* 407 */
+ PARROT_OP_div_i_i_ic, /* 408 */
+ PARROT_OP_div_i_ic_ic, /* 409 */
+ PARROT_OP_div_n_n_n, /* 410 */
+ PARROT_OP_div_n_nc_n, /* 411 */
+ PARROT_OP_div_n_n_nc, /* 412 */
+ PARROT_OP_div_n_nc_nc, /* 413 */
+ PARROT_OP_div_p_p_p, /* 414 */
+ PARROT_OP_div_p_p_i, /* 415 */
+ PARROT_OP_div_p_p_ic, /* 416 */
+ PARROT_OP_div_p_p_n, /* 417 */
+ PARROT_OP_div_p_p_nc, /* 418 */
+ PARROT_OP_fdiv_i_i, /* 419 */
+ PARROT_OP_fdiv_i_ic, /* 420 */
+ PARROT_OP_fdiv_n_n, /* 421 */
+ PARROT_OP_fdiv_n_nc, /* 422 */
+ PARROT_OP_fdiv_p_p, /* 423 */
+ PARROT_OP_fdiv_p_i, /* 424 */
+ PARROT_OP_fdiv_p_ic, /* 425 */
+ PARROT_OP_fdiv_p_n, /* 426 */
+ PARROT_OP_fdiv_p_nc, /* 427 */
+ PARROT_OP_fdiv_i_i_i, /* 428 */
+ PARROT_OP_fdiv_i_ic_i, /* 429 */
+ PARROT_OP_fdiv_i_i_ic, /* 430 */
+ PARROT_OP_fdiv_n_n_n, /* 431 */
+ PARROT_OP_fdiv_n_nc_n, /* 432 */
+ PARROT_OP_fdiv_n_n_nc, /* 433 */
+ PARROT_OP_fdiv_p_p_p, /* 434 */
+ PARROT_OP_fdiv_p_p_i, /* 435 */
+ PARROT_OP_fdiv_p_p_ic, /* 436 */
+ PARROT_OP_fdiv_p_p_n, /* 437 */
+ PARROT_OP_fdiv_p_p_nc, /* 438 */
+ PARROT_OP_ceil_n, /* 439 */
+ PARROT_OP_ceil_i_n, /* 440 */
+ PARROT_OP_ceil_n_n, /* 441 */
+ PARROT_OP_floor_n, /* 442 */
+ PARROT_OP_floor_i_n, /* 443 */
+ PARROT_OP_floor_n_n, /* 444 */
+ PARROT_OP_inc_i, /* 445 */
+ PARROT_OP_inc_n, /* 446 */
+ PARROT_OP_inc_p, /* 447 */
+ PARROT_OP_mod_i_i, /* 448 */
+ PARROT_OP_mod_i_ic, /* 449 */
+ PARROT_OP_mod_n_n, /* 450 */
+ PARROT_OP_mod_n_nc, /* 451 */
+ PARROT_OP_mod_p_p, /* 452 */
+ PARROT_OP_mod_p_i, /* 453 */
+ PARROT_OP_mod_p_ic, /* 454 */
+ PARROT_OP_mod_p_n, /* 455 */
+ PARROT_OP_mod_p_nc, /* 456 */
+ PARROT_OP_mod_i_i_i, /* 457 */
+ PARROT_OP_mod_i_ic_i, /* 458 */
+ PARROT_OP_mod_i_i_ic, /* 459 */
+ PARROT_OP_mod_n_n_n, /* 460 */
+ PARROT_OP_mod_n_nc_n, /* 461 */
+ PARROT_OP_mod_n_n_nc, /* 462 */
+ PARROT_OP_mod_p_p_p, /* 463 */
+ PARROT_OP_mod_p_p_i, /* 464 */
+ PARROT_OP_mod_p_p_ic, /* 465 */
+ PARROT_OP_mod_p_p_n, /* 466 */
+ PARROT_OP_mod_p_p_nc, /* 467 */
+ PARROT_OP_mul_i_i, /* 468 */
+ PARROT_OP_mul_i_ic, /* 469 */
+ PARROT_OP_mul_n_n, /* 470 */
+ PARROT_OP_mul_n_nc, /* 471 */
+ PARROT_OP_mul_p_p, /* 472 */
+ PARROT_OP_mul_p_i, /* 473 */
+ PARROT_OP_mul_p_ic, /* 474 */
+ PARROT_OP_mul_p_n, /* 475 */
+ PARROT_OP_mul_p_nc, /* 476 */
+ PARROT_OP_mul_i_i_i, /* 477 */
+ PARROT_OP_mul_i_ic_i, /* 478 */
+ PARROT_OP_mul_i_i_ic, /* 479 */
+ PARROT_OP_mul_n_n_n, /* 480 */
+ PARROT_OP_mul_n_nc_n, /* 481 */
+ PARROT_OP_mul_n_n_nc, /* 482 */
+ PARROT_OP_mul_p_p_p, /* 483 */
+ PARROT_OP_mul_p_p_i, /* 484 */
+ PARROT_OP_mul_p_p_ic, /* 485 */
+ PARROT_OP_mul_p_p_n, /* 486 */
+ PARROT_OP_mul_p_p_nc, /* 487 */
+ PARROT_OP_neg_i, /* 488 */
+ PARROT_OP_neg_n, /* 489 */
+ PARROT_OP_neg_p, /* 490 */
+ PARROT_OP_neg_i_i, /* 491 */
+ PARROT_OP_neg_n_n, /* 492 */
+ PARROT_OP_neg_p_p, /* 493 */
+ PARROT_OP_sub_i_i, /* 494 */
+ PARROT_OP_sub_i_ic, /* 495 */
+ PARROT_OP_sub_n_n, /* 496 */
+ PARROT_OP_sub_n_nc, /* 497 */
+ PARROT_OP_sub_p_p, /* 498 */
+ PARROT_OP_sub_p_i, /* 499 */
+ PARROT_OP_sub_p_ic, /* 500 */
+ PARROT_OP_sub_p_n, /* 501 */
+ PARROT_OP_sub_p_nc, /* 502 */
+ PARROT_OP_sub_i_i_i, /* 503 */
+ PARROT_OP_sub_i_ic_i, /* 504 */
+ PARROT_OP_sub_i_i_ic, /* 505 */
+ PARROT_OP_sub_n_n_n, /* 506 */
+ PARROT_OP_sub_n_nc_n, /* 507 */
+ PARROT_OP_sub_n_n_nc, /* 508 */
+ PARROT_OP_sub_p_p_p, /* 509 */
+ PARROT_OP_sub_p_p_i, /* 510 */
+ PARROT_OP_sub_p_p_ic, /* 511 */
+ PARROT_OP_sub_p_p_n, /* 512 */
+ PARROT_OP_sub_p_p_nc, /* 513 */
+ PARROT_OP_sqrt_n_n, /* 514 */
+ PARROT_OP_callmethodcc_p_s, /* 515 */
+ PARROT_OP_callmethodcc_p_sc, /* 516 */
+ PARROT_OP_callmethodcc_p_p, /* 517 */
+ PARROT_OP_callmethod_p_s_p, /* 518 */
+ PARROT_OP_callmethod_p_sc_p, /* 519 */
+ PARROT_OP_callmethod_p_p_p, /* 520 */
+ PARROT_OP_tailcallmethod_p_s, /* 521 */
+ PARROT_OP_tailcallmethod_p_sc, /* 522 */
+ PARROT_OP_tailcallmethod_p_p, /* 523 */
+ PARROT_OP_addmethod_p_s_p, /* 524 */
+ PARROT_OP_addmethod_p_sc_p, /* 525 */
+ PARROT_OP_can_i_p_s, /* 526 */
+ PARROT_OP_can_i_p_sc, /* 527 */
+ PARROT_OP_does_i_p_s, /* 528 */
+ PARROT_OP_does_i_p_sc, /* 529 */
+ PARROT_OP_does_i_p_p, /* 530 */
+ PARROT_OP_does_i_p_pc, /* 531 */
+ PARROT_OP_isa_i_p_s, /* 532 */
+ PARROT_OP_isa_i_p_sc, /* 533 */
+ PARROT_OP_isa_i_p_p, /* 534 */
+ PARROT_OP_isa_i_p_pc, /* 535 */
+ PARROT_OP_newclass_p_s, /* 536 */
+ PARROT_OP_newclass_p_sc, /* 537 */
+ PARROT_OP_newclass_p_p, /* 538 */
+ PARROT_OP_newclass_p_pc, /* 539 */
+ PARROT_OP_subclass_p_p, /* 540 */
+ PARROT_OP_subclass_p_pc, /* 541 */
+ PARROT_OP_subclass_p_p_s, /* 542 */
+ PARROT_OP_subclass_p_pc_s, /* 543 */
+ PARROT_OP_subclass_p_p_sc, /* 544 */
+ PARROT_OP_subclass_p_pc_sc, /* 545 */
+ PARROT_OP_subclass_p_p_p, /* 546 */
+ PARROT_OP_subclass_p_pc_p, /* 547 */
+ PARROT_OP_subclass_p_p_pc, /* 548 */
+ PARROT_OP_subclass_p_pc_pc, /* 549 */
+ PARROT_OP_subclass_p_s, /* 550 */
+ PARROT_OP_subclass_p_sc, /* 551 */
+ PARROT_OP_subclass_p_s_s, /* 552 */
+ PARROT_OP_subclass_p_sc_s, /* 553 */
+ PARROT_OP_subclass_p_s_sc, /* 554 */
+ PARROT_OP_subclass_p_sc_sc, /* 555 */
+ PARROT_OP_subclass_p_s_p, /* 556 */
+ PARROT_OP_subclass_p_sc_p, /* 557 */
+ PARROT_OP_subclass_p_s_pc, /* 558 */
+ PARROT_OP_subclass_p_sc_pc, /* 559 */
+ PARROT_OP_get_class_p_s, /* 560 */
+ PARROT_OP_get_class_p_sc, /* 561 */
+ PARROT_OP_get_class_p_p, /* 562 */
+ PARROT_OP_get_class_p_pc, /* 563 */
+ PARROT_OP_class_p_p, /* 564 */
+ PARROT_OP_addparent_p_p, /* 565 */
+ PARROT_OP_removeparent_p_p, /* 566 */
+ PARROT_OP_addrole_p_p, /* 567 */
+ PARROT_OP_addattribute_p_s, /* 568 */
+ PARROT_OP_addattribute_p_sc, /* 569 */
+ PARROT_OP_removeattribute_p_s, /* 570 */
+ PARROT_OP_removeattribute_p_sc, /* 571 */
+ PARROT_OP_getattribute_p_p_s, /* 572 */
+ PARROT_OP_getattribute_p_p_sc, /* 573 */
+ PARROT_OP_getattribute_p_p_p_s, /* 574 */
+ PARROT_OP_getattribute_p_p_pc_s, /* 575 */
+ PARROT_OP_getattribute_p_p_p_sc, /* 576 */
+ PARROT_OP_getattribute_p_p_pc_sc, /* 577 */
+ PARROT_OP_setattribute_p_s_p, /* 578 */
+ PARROT_OP_setattribute_p_sc_p, /* 579 */
+ PARROT_OP_setattribute_p_p_s_p, /* 580 */
+ PARROT_OP_setattribute_p_pc_s_p, /* 581 */
+ PARROT_OP_setattribute_p_p_sc_p, /* 582 */
+ PARROT_OP_setattribute_p_pc_sc_p, /* 583 */
+ PARROT_OP_inspect_p_p, /* 584 */
+ PARROT_OP_inspect_p_pc, /* 585 */
+ PARROT_OP_inspect_p_p_s, /* 586 */
+ PARROT_OP_inspect_p_pc_s, /* 587 */
+ PARROT_OP_inspect_p_p_sc, /* 588 */
+ PARROT_OP_inspect_p_pc_sc, /* 589 */
+ PARROT_OP_new_p_s, /* 590 */
+ PARROT_OP_new_p_sc, /* 591 */
+ PARROT_OP_new_p_s_p, /* 592 */
+ PARROT_OP_new_p_sc_p, /* 593 */
+ PARROT_OP_new_p_s_pc, /* 594 */
+ PARROT_OP_new_p_sc_pc, /* 595 */
+ PARROT_OP_new_p_p, /* 596 */
+ PARROT_OP_new_p_pc, /* 597 */
+ PARROT_OP_new_p_p_p, /* 598 */
+ PARROT_OP_new_p_pc_p, /* 599 */
+ PARROT_OP_new_p_p_pc, /* 600 */
+ PARROT_OP_new_p_pc_pc, /* 601 */
+ PARROT_OP_root_new_p_p, /* 602 */
+ PARROT_OP_root_new_p_pc, /* 603 */
+ PARROT_OP_root_new_p_p_p, /* 604 */
+ PARROT_OP_root_new_p_pc_p, /* 605 */
+ PARROT_OP_root_new_p_p_pc, /* 606 */
+ PARROT_OP_root_new_p_pc_pc, /* 607 */
+ PARROT_OP_typeof_s_p, /* 608 */
+ PARROT_OP_typeof_p_p, /* 609 */
+ PARROT_OP_get_repr_s_p, /* 610 */
+ PARROT_OP_find_method_p_p_s, /* 611 */
+ PARROT_OP_find_method_p_p_sc, /* 612 */
+ PARROT_OP_defined_i_p, /* 613 */
+ PARROT_OP_defined_i_p_ki, /* 614 */
+ PARROT_OP_defined_i_p_kic, /* 615 */
+ PARROT_OP_defined_i_p_k, /* 616 */
+ PARROT_OP_defined_i_p_kc, /* 617 */
+ PARROT_OP_exists_i_p_ki, /* 618 */
+ PARROT_OP_exists_i_p_kic, /* 619 */
+ PARROT_OP_exists_i_p_k, /* 620 */
+ PARROT_OP_exists_i_p_kc, /* 621 */
+ PARROT_OP_delete_p_k, /* 622 */
+ PARROT_OP_delete_p_kc, /* 623 */
+ PARROT_OP_delete_p_ki, /* 624 */
+ PARROT_OP_delete_p_kic, /* 625 */
+ PARROT_OP_elements_i_p, /* 626 */
+ PARROT_OP_push_p_i, /* 627 */
+ PARROT_OP_push_p_ic, /* 628 */
+ PARROT_OP_push_p_n, /* 629 */
+ PARROT_OP_push_p_nc, /* 630 */
+ PARROT_OP_push_p_s, /* 631 */
+ PARROT_OP_push_p_sc, /* 632 */
+ PARROT_OP_push_p_p, /* 633 */
+ PARROT_OP_pop_i_p, /* 634 */
+ PARROT_OP_pop_n_p, /* 635 */
+ PARROT_OP_pop_s_p, /* 636 */
+ PARROT_OP_pop_p_p, /* 637 */
+ PARROT_OP_unshift_p_i, /* 638 */
+ PARROT_OP_unshift_p_ic, /* 639 */
+ PARROT_OP_unshift_p_n, /* 640 */
+ PARROT_OP_unshift_p_nc, /* 641 */
+ PARROT_OP_unshift_p_s, /* 642 */
+ PARROT_OP_unshift_p_sc, /* 643 */
+ PARROT_OP_unshift_p_p, /* 644 */
+ PARROT_OP_shift_i_p, /* 645 */
+ PARROT_OP_shift_n_p, /* 646 */
+ PARROT_OP_shift_s_p, /* 647 */
+ PARROT_OP_shift_p_p, /* 648 */
+ PARROT_OP_splice_p_p_i_i, /* 649 */
+ PARROT_OP_splice_p_p_ic_i, /* 650 */
+ PARROT_OP_splice_p_p_i_ic, /* 651 */
+ PARROT_OP_splice_p_p_ic_ic, /* 652 */
+ PARROT_OP_setprop_p_s_p, /* 653 */
+ PARROT_OP_setprop_p_sc_p, /* 654 */
+ PARROT_OP_getprop_p_s_p, /* 655 */
+ PARROT_OP_getprop_p_sc_p, /* 656 */
+ PARROT_OP_delprop_p_s, /* 657 */
+ PARROT_OP_delprop_p_sc, /* 658 */
+ PARROT_OP_prophash_p_p, /* 659 */
+ PARROT_OP_freeze_s_p, /* 660 */
+ PARROT_OP_thaw_p_s, /* 661 */
+ PARROT_OP_thaw_p_sc, /* 662 */
+ PARROT_OP_add_multi_s_s_p, /* 663 */
+ PARROT_OP_add_multi_sc_s_p, /* 664 */
+ PARROT_OP_add_multi_s_sc_p, /* 665 */
+ PARROT_OP_add_multi_sc_sc_p, /* 666 */
+ PARROT_OP_find_multi_p_s_s, /* 667 */
+ PARROT_OP_find_multi_p_sc_s, /* 668 */
+ PARROT_OP_find_multi_p_s_sc, /* 669 */
+ PARROT_OP_find_multi_p_sc_sc, /* 670 */
+ PARROT_OP_register_p, /* 671 */
+ PARROT_OP_unregister_p, /* 672 */
+ PARROT_OP_box_p_i, /* 673 */
+ PARROT_OP_box_p_ic, /* 674 */
+ PARROT_OP_box_p_n, /* 675 */
+ PARROT_OP_box_p_nc, /* 676 */
+ PARROT_OP_box_p_s, /* 677 */
+ PARROT_OP_box_p_sc, /* 678 */
+ PARROT_OP_iter_p_p, /* 679 */
+ PARROT_OP_morph_p_p, /* 680 */
+ PARROT_OP_morph_p_pc, /* 681 */
+ PARROT_OP_clone_s_s, /* 682 */
+ PARROT_OP_clone_s_sc, /* 683 */
+ PARROT_OP_set_i_i, /* 684 */
+ PARROT_OP_set_i_ic, /* 685 */
+ PARROT_OP_set_i_n, /* 686 */
+ PARROT_OP_set_i_nc, /* 687 */
+ PARROT_OP_set_i_s, /* 688 */
+ PARROT_OP_set_i_sc, /* 689 */
+ PARROT_OP_set_n_n, /* 690 */
+ PARROT_OP_set_n_nc, /* 691 */
+ PARROT_OP_set_n_i, /* 692 */
+ PARROT_OP_set_n_ic, /* 693 */
+ PARROT_OP_set_n_s, /* 694 */
+ PARROT_OP_set_n_sc, /* 695 */
+ PARROT_OP_set_n_p, /* 696 */
+ PARROT_OP_set_s_p, /* 697 */
+ PARROT_OP_set_s_s, /* 698 */
+ PARROT_OP_set_s_sc, /* 699 */
+ PARROT_OP_set_s_i, /* 700 */
+ PARROT_OP_set_s_ic, /* 701 */
+ PARROT_OP_set_s_n, /* 702 */
+ PARROT_OP_set_s_nc, /* 703 */
+ PARROT_OP_set_p_pc, /* 704 */
+ PARROT_OP_set_p_p, /* 705 */
+ PARROT_OP_set_p_i, /* 706 */
+ PARROT_OP_set_p_ic, /* 707 */
+ PARROT_OP_set_p_n, /* 708 */
+ PARROT_OP_set_p_nc, /* 709 */
+ PARROT_OP_set_p_s, /* 710 */
+ PARROT_OP_set_p_sc, /* 711 */
+ PARROT_OP_set_i_p, /* 712 */
+ PARROT_OP_assign_p_p, /* 713 */
+ PARROT_OP_assign_p_i, /* 714 */
+ PARROT_OP_assign_p_ic, /* 715 */
+ PARROT_OP_assign_p_n, /* 716 */
+ PARROT_OP_assign_p_nc, /* 717 */
+ PARROT_OP_assign_p_s, /* 718 */
+ PARROT_OP_assign_p_sc, /* 719 */
+ PARROT_OP_assign_s_s, /* 720 */
+ PARROT_OP_assign_s_sc, /* 721 */
+ PARROT_OP_setref_p_p, /* 722 */
+ PARROT_OP_deref_p_p, /* 723 */
+ PARROT_OP_set_p_ki_i, /* 724 */
+ PARROT_OP_set_p_kic_i, /* 725 */
+ PARROT_OP_set_p_ki_ic, /* 726 */
+ PARROT_OP_set_p_kic_ic, /* 727 */
+ PARROT_OP_set_p_ki_n, /* 728 */
+ PARROT_OP_set_p_kic_n, /* 729 */
+ PARROT_OP_set_p_ki_nc, /* 730 */
+ PARROT_OP_set_p_kic_nc, /* 731 */
+ PARROT_OP_set_p_ki_s, /* 732 */
+ PARROT_OP_set_p_kic_s, /* 733 */
+ PARROT_OP_set_p_ki_sc, /* 734 */
+ PARROT_OP_set_p_kic_sc, /* 735 */
+ PARROT_OP_set_p_ki_p, /* 736 */
+ PARROT_OP_set_p_kic_p, /* 737 */
+ PARROT_OP_set_i_p_ki, /* 738 */
+ PARROT_OP_set_i_p_kic, /* 739 */
+ PARROT_OP_set_n_p_ki, /* 740 */
+ PARROT_OP_set_n_p_kic, /* 741 */
+ PARROT_OP_set_s_p_ki, /* 742 */
+ PARROT_OP_set_s_p_kic, /* 743 */
+ PARROT_OP_set_p_p_ki, /* 744 */
+ PARROT_OP_set_p_p_kic, /* 745 */
+ PARROT_OP_set_p_k_i, /* 746 */
+ PARROT_OP_set_p_kc_i, /* 747 */
+ PARROT_OP_set_p_k_ic, /* 748 */
+ PARROT_OP_set_p_kc_ic, /* 749 */
+ PARROT_OP_set_p_k_n, /* 750 */
+ PARROT_OP_set_p_kc_n, /* 751 */
+ PARROT_OP_set_p_k_nc, /* 752 */
+ PARROT_OP_set_p_kc_nc, /* 753 */
+ PARROT_OP_set_p_k_s, /* 754 */
+ PARROT_OP_set_p_kc_s, /* 755 */
+ PARROT_OP_set_p_k_sc, /* 756 */
+ PARROT_OP_set_p_kc_sc, /* 757 */
+ PARROT_OP_set_p_k_p, /* 758 */
+ PARROT_OP_set_p_kc_p, /* 759 */
+ PARROT_OP_set_i_p_k, /* 760 */
+ PARROT_OP_set_i_p_kc, /* 761 */
+ PARROT_OP_set_n_p_k, /* 762 */
+ PARROT_OP_set_n_p_kc, /* 763 */
+ PARROT_OP_set_s_p_k, /* 764 */
+ PARROT_OP_set_s_p_kc, /* 765 */
+ PARROT_OP_set_p_p_k, /* 766 */
+ PARROT_OP_set_p_p_kc, /* 767 */
+ PARROT_OP_clone_p_p, /* 768 */
+ PARROT_OP_clone_p_p_p, /* 769 */
+ PARROT_OP_clone_p_p_pc, /* 770 */
+ PARROT_OP_copy_p_p, /* 771 */
+ PARROT_OP_null_s, /* 772 */
+ PARROT_OP_null_i, /* 773 */
+ PARROT_OP_null_p, /* 774 */
+ PARROT_OP_null_n, /* 775 */
+ PARROT_OP_ord_i_s, /* 776 */
+ PARROT_OP_ord_i_sc, /* 777 */
+ PARROT_OP_ord_i_s_i, /* 778 */
+ PARROT_OP_ord_i_sc_i, /* 779 */
+ PARROT_OP_ord_i_s_ic, /* 780 */
+ PARROT_OP_ord_i_sc_ic, /* 781 */
+ PARROT_OP_chr_s_i, /* 782 */
+ PARROT_OP_chr_s_ic, /* 783 */
+ PARROT_OP_chopn_s_s_i, /* 784 */
+ PARROT_OP_chopn_s_sc_i, /* 785 */
+ PARROT_OP_chopn_s_s_ic, /* 786 */
+ PARROT_OP_chopn_s_sc_ic, /* 787 */
+ PARROT_OP_concat_s_s, /* 788 */
+ PARROT_OP_concat_s_sc, /* 789 */
+ PARROT_OP_concat_p_p, /* 790 */
+ PARROT_OP_concat_p_s, /* 791 */
+ PARROT_OP_concat_p_sc, /* 792 */
+ PARROT_OP_concat_s_s_s, /* 793 */
+ PARROT_OP_concat_s_sc_s, /* 794 */
+ PARROT_OP_concat_s_s_sc, /* 795 */
+ PARROT_OP_concat_p_p_s, /* 796 */
+ PARROT_OP_concat_p_p_sc, /* 797 */
+ PARROT_OP_concat_p_p_p, /* 798 */
+ PARROT_OP_repeat_s_s_i, /* 799 */
+ PARROT_OP_repeat_s_sc_i, /* 800 */
+ PARROT_OP_repeat_s_s_ic, /* 801 */
+ PARROT_OP_repeat_s_sc_ic, /* 802 */
+ PARROT_OP_repeat_p_p_i, /* 803 */
+ PARROT_OP_repeat_p_p_ic, /* 804 */
+ PARROT_OP_repeat_p_p_p, /* 805 */
+ PARROT_OP_repeat_p_i, /* 806 */
+ PARROT_OP_repeat_p_ic, /* 807 */
+ PARROT_OP_repeat_p_p, /* 808 */
+ PARROT_OP_length_i_s, /* 809 */
+ PARROT_OP_length_i_sc, /* 810 */
+ PARROT_OP_bytelength_i_s, /* 811 */
+ PARROT_OP_bytelength_i_sc, /* 812 */
+ PARROT_OP_pin_s, /* 813 */
+ PARROT_OP_unpin_s, /* 814 */
+ PARROT_OP_substr_s_s_i, /* 815 */
+ PARROT_OP_substr_s_sc_i, /* 816 */
+ PARROT_OP_substr_s_s_ic, /* 817 */
+ PARROT_OP_substr_s_sc_ic, /* 818 */
+ PARROT_OP_substr_s_s_i_i, /* 819 */
+ PARROT_OP_substr_s_sc_i_i, /* 820 */
+ PARROT_OP_substr_s_s_ic_i, /* 821 */
+ PARROT_OP_substr_s_sc_ic_i, /* 822 */
+ PARROT_OP_substr_s_s_i_ic, /* 823 */
+ PARROT_OP_substr_s_sc_i_ic, /* 824 */
+ PARROT_OP_substr_s_s_ic_ic, /* 825 */
+ PARROT_OP_substr_s_sc_ic_ic, /* 826 */
+ PARROT_OP_substr_s_p_i_i, /* 827 */
+ PARROT_OP_substr_s_p_ic_i, /* 828 */
+ PARROT_OP_substr_s_p_i_ic, /* 829 */
+ PARROT_OP_substr_s_p_ic_ic, /* 830 */
+ PARROT_OP_replace_s_s_i_i_s, /* 831 */
+ PARROT_OP_replace_s_sc_i_i_s, /* 832 */
+ PARROT_OP_replace_s_s_ic_i_s, /* 833 */
+ PARROT_OP_replace_s_sc_ic_i_s, /* 834 */
+ PARROT_OP_replace_s_s_i_ic_s, /* 835 */
+ PARROT_OP_replace_s_sc_i_ic_s, /* 836 */
+ PARROT_OP_replace_s_s_ic_ic_s, /* 837 */
+ PARROT_OP_replace_s_sc_ic_ic_s, /* 838 */
+ PARROT_OP_replace_s_s_i_i_sc, /* 839 */
+ PARROT_OP_replace_s_sc_i_i_sc, /* 840 */
+ PARROT_OP_replace_s_s_ic_i_sc, /* 841 */
+ PARROT_OP_replace_s_sc_ic_i_sc, /* 842 */
+ PARROT_OP_replace_s_s_i_ic_sc, /* 843 */
+ PARROT_OP_replace_s_sc_i_ic_sc, /* 844 */
+ PARROT_OP_replace_s_s_ic_ic_sc, /* 845 */
+ PARROT_OP_replace_s_sc_ic_ic_sc, /* 846 */
+ PARROT_OP_index_i_s_s, /* 847 */
+ PARROT_OP_index_i_sc_s, /* 848 */
+ PARROT_OP_index_i_s_sc, /* 849 */
+ PARROT_OP_index_i_sc_sc, /* 850 */
+ PARROT_OP_index_i_s_s_i, /* 851 */
+ PARROT_OP_index_i_sc_s_i, /* 852 */
+ PARROT_OP_index_i_s_sc_i, /* 853 */
+ PARROT_OP_index_i_sc_sc_i, /* 854 */
+ PARROT_OP_index_i_s_s_ic, /* 855 */
+ PARROT_OP_index_i_sc_s_ic, /* 856 */
+ PARROT_OP_index_i_s_sc_ic, /* 857 */
+ PARROT_OP_index_i_sc_sc_ic, /* 858 */
+ PARROT_OP_sprintf_s_s_p, /* 859 */
+ PARROT_OP_sprintf_s_sc_p, /* 860 */
+ PARROT_OP_sprintf_p_p_p, /* 861 */
+ PARROT_OP_new_s, /* 862 */
+ PARROT_OP_new_s_i, /* 863 */
+ PARROT_OP_new_s_ic, /* 864 */
+ PARROT_OP_stringinfo_i_s_i, /* 865 */
+ PARROT_OP_stringinfo_i_sc_i, /* 866 */
+ PARROT_OP_stringinfo_i_s_ic, /* 867 */
+ PARROT_OP_stringinfo_i_sc_ic, /* 868 */
+ PARROT_OP_upcase_s_s, /* 869 */
+ PARROT_OP_upcase_s_sc, /* 870 */
+ PARROT_OP_downcase_s_s, /* 871 */
+ PARROT_OP_downcase_s_sc, /* 872 */
+ PARROT_OP_titlecase_s_s, /* 873 */
+ PARROT_OP_titlecase_s_sc, /* 874 */
+ PARROT_OP_join_s_s_p, /* 875 */
+ PARROT_OP_join_s_sc_p, /* 876 */
+ PARROT_OP_split_p_s_s, /* 877 */
+ PARROT_OP_split_p_sc_s, /* 878 */
+ PARROT_OP_split_p_s_sc, /* 879 */
+ PARROT_OP_split_p_sc_sc, /* 880 */
+ PARROT_OP_charset_i_s, /* 881 */
+ PARROT_OP_charset_i_sc, /* 882 */
+ PARROT_OP_charsetname_s_i, /* 883 */
+ PARROT_OP_charsetname_s_ic, /* 884 */
+ PARROT_OP_find_charset_i_s, /* 885 */
+ PARROT_OP_find_charset_i_sc, /* 886 */
+ PARROT_OP_trans_charset_s_s_i, /* 887 */
+ PARROT_OP_trans_charset_s_sc_i, /* 888 */
+ PARROT_OP_trans_charset_s_s_ic, /* 889 */
+ PARROT_OP_trans_charset_s_sc_ic, /* 890 */
+ PARROT_OP_encoding_i_s, /* 891 */
+ PARROT_OP_encoding_i_sc, /* 892 */
+ PARROT_OP_encodingname_s_i, /* 893 */
+ PARROT_OP_encodingname_s_ic, /* 894 */
+ PARROT_OP_find_encoding_i_s, /* 895 */
+ PARROT_OP_find_encoding_i_sc, /* 896 */
+ PARROT_OP_trans_encoding_s_s_i, /* 897 */
+ PARROT_OP_trans_encoding_s_sc_i, /* 898 */
+ PARROT_OP_trans_encoding_s_s_ic, /* 899 */
+ PARROT_OP_trans_encoding_s_sc_ic, /* 900 */
+ PARROT_OP_is_cclass_i_i_s_i, /* 901 */
+ PARROT_OP_is_cclass_i_ic_s_i, /* 902 */
+ PARROT_OP_is_cclass_i_i_sc_i, /* 903 */
+ PARROT_OP_is_cclass_i_ic_sc_i, /* 904 */
+ PARROT_OP_is_cclass_i_i_s_ic, /* 905 */
+ PARROT_OP_is_cclass_i_ic_s_ic, /* 906 */
+ PARROT_OP_is_cclass_i_i_sc_ic, /* 907 */
+ PARROT_OP_is_cclass_i_ic_sc_ic, /* 908 */
+ PARROT_OP_find_cclass_i_i_s_i_i, /* 909 */
+ PARROT_OP_find_cclass_i_ic_s_i_i, /* 910 */
+ PARROT_OP_find_cclass_i_i_sc_i_i, /* 911 */
+ PARROT_OP_find_cclass_i_ic_sc_i_i, /* 912 */
+ PARROT_OP_find_cclass_i_i_s_ic_i, /* 913 */
+ PARROT_OP_find_cclass_i_ic_s_ic_i, /* 914 */
+ PARROT_OP_find_cclass_i_i_sc_ic_i, /* 915 */
+ PARROT_OP_find_cclass_i_ic_sc_ic_i, /* 916 */
+ PARROT_OP_find_cclass_i_i_s_i_ic, /* 917 */
+ PARROT_OP_find_cclass_i_ic_s_i_ic, /* 918 */
+ PARROT_OP_find_cclass_i_i_sc_i_ic, /* 919 */
+ PARROT_OP_find_cclass_i_ic_sc_i_ic, /* 920 */
+ PARROT_OP_find_cclass_i_i_s_ic_ic, /* 921 */
+ PARROT_OP_find_cclass_i_ic_s_ic_ic, /* 922 */
+ PARROT_OP_find_cclass_i_i_sc_ic_ic, /* 923 */
+ PARROT_OP_find_cclass_i_ic_sc_ic_ic, /* 924 */
+ PARROT_OP_find_not_cclass_i_i_s_i_i, /* 925 */
+ PARROT_OP_find_not_cclass_i_ic_s_i_i, /* 926 */
+ PARROT_OP_find_not_cclass_i_i_sc_i_i, /* 927 */
+ PARROT_OP_find_not_cclass_i_ic_sc_i_i, /* 928 */
+ PARROT_OP_find_not_cclass_i_i_s_ic_i, /* 929 */
+ PARROT_OP_find_not_cclass_i_ic_s_ic_i, /* 930 */
+ PARROT_OP_find_not_cclass_i_i_sc_ic_i, /* 931 */
+ PARROT_OP_find_not_cclass_i_ic_sc_ic_i, /* 932 */
+ PARROT_OP_find_not_cclass_i_i_s_i_ic, /* 933 */
+ PARROT_OP_find_not_cclass_i_ic_s_i_ic, /* 934 */
+ PARROT_OP_find_not_cclass_i_i_sc_i_ic, /* 935 */
+ PARROT_OP_find_not_cclass_i_ic_sc_i_ic, /* 936 */
+ PARROT_OP_find_not_cclass_i_i_s_ic_ic, /* 937 */
+ PARROT_OP_find_not_cclass_i_ic_s_ic_ic, /* 938 */
+ PARROT_OP_find_not_cclass_i_i_sc_ic_ic, /* 939 */
+ PARROT_OP_find_not_cclass_i_ic_sc_ic_ic, /* 940 */
+ PARROT_OP_escape_s_s, /* 941 */
+ PARROT_OP_compose_s_s, /* 942 */
+ PARROT_OP_compose_s_sc, /* 943 */
+ PARROT_OP_spawnw_i_s, /* 944 */
+ PARROT_OP_spawnw_i_sc, /* 945 */
+ PARROT_OP_spawnw_i_p, /* 946 */
+ PARROT_OP_err_i, /* 947 */
+ PARROT_OP_err_s, /* 948 */
+ PARROT_OP_err_s_i, /* 949 */
+ PARROT_OP_err_s_ic, /* 950 */
+ PARROT_OP_time_i, /* 951 */
+ PARROT_OP_time_n, /* 952 */
+ PARROT_OP_sleep_i, /* 953 */
+ PARROT_OP_sleep_ic, /* 954 */
+ PARROT_OP_sleep_n, /* 955 */
+ PARROT_OP_sleep_nc, /* 956 */
+ PARROT_OP_store_lex_s_p, /* 957 */
+ PARROT_OP_store_lex_sc_p, /* 958 */
+ PARROT_OP_store_dynamic_lex_s_p, /* 959 */
+ PARROT_OP_store_dynamic_lex_sc_p, /* 960 */
+ PARROT_OP_find_lex_p_s, /* 961 */
+ PARROT_OP_find_lex_p_sc, /* 962 */
+ PARROT_OP_find_dynamic_lex_p_s, /* 963 */
+ PARROT_OP_find_dynamic_lex_p_sc, /* 964 */
+ PARROT_OP_find_caller_lex_p_s, /* 965 */
+ PARROT_OP_find_caller_lex_p_sc, /* 966 */
+ PARROT_OP_get_namespace_p, /* 967 */
+ PARROT_OP_get_namespace_p_p, /* 968 */
+ PARROT_OP_get_namespace_p_pc, /* 969 */
+ PARROT_OP_get_hll_namespace_p, /* 970 */
+ PARROT_OP_get_hll_namespace_p_p, /* 971 */
+ PARROT_OP_get_hll_namespace_p_pc, /* 972 */
+ PARROT_OP_get_root_namespace_p, /* 973 */
+ PARROT_OP_get_root_namespace_p_p, /* 974 */
+ PARROT_OP_get_root_namespace_p_pc, /* 975 */
+ PARROT_OP_get_global_p_s, /* 976 */
+ PARROT_OP_get_global_p_sc, /* 977 */
+ PARROT_OP_get_global_p_p_s, /* 978 */
+ PARROT_OP_get_global_p_pc_s, /* 979 */
+ PARROT_OP_get_global_p_p_sc, /* 980 */
+ PARROT_OP_get_global_p_pc_sc, /* 981 */
+ PARROT_OP_get_hll_global_p_s, /* 982 */
+ PARROT_OP_get_hll_global_p_sc, /* 983 */
+ PARROT_OP_get_hll_global_p_p_s, /* 984 */
+ PARROT_OP_get_hll_global_p_pc_s, /* 985 */
+ PARROT_OP_get_hll_global_p_p_sc, /* 986 */
+ PARROT_OP_get_hll_global_p_pc_sc, /* 987 */
+ PARROT_OP_get_root_global_p_s, /* 988 */
+ PARROT_OP_get_root_global_p_sc, /* 989 */
+ PARROT_OP_get_root_global_p_p_s, /* 990 */
+ PARROT_OP_get_root_global_p_pc_s, /* 991 */
+ PARROT_OP_get_root_global_p_p_sc, /* 992 */
+ PARROT_OP_get_root_global_p_pc_sc, /* 993 */
+ PARROT_OP_set_global_s_p, /* 994 */
+ PARROT_OP_set_global_sc_p, /* 995 */
+ PARROT_OP_set_global_p_s_p, /* 996 */
+ PARROT_OP_set_global_pc_s_p, /* 997 */
+ PARROT_OP_set_global_p_sc_p, /* 998 */
+ PARROT_OP_set_global_pc_sc_p, /* 999 */
+ PARROT_OP_set_hll_global_s_p, /* 1000 */
+ PARROT_OP_set_hll_global_sc_p, /* 1001 */
+ PARROT_OP_set_hll_global_p_s_p, /* 1002 */
+ PARROT_OP_set_hll_global_pc_s_p, /* 1003 */
+ PARROT_OP_set_hll_global_p_sc_p, /* 1004 */
+ PARROT_OP_set_hll_global_pc_sc_p, /* 1005 */
+ PARROT_OP_set_root_global_s_p, /* 1006 */
+ PARROT_OP_set_root_global_sc_p, /* 1007 */
+ PARROT_OP_set_root_global_p_s_p, /* 1008 */
+ PARROT_OP_set_root_global_pc_s_p, /* 1009 */
+ PARROT_OP_set_root_global_p_sc_p, /* 1010 */
+ PARROT_OP_set_root_global_pc_sc_p, /* 1011 */
+ PARROT_OP_find_name_p_s, /* 1012 */
+ PARROT_OP_find_name_p_sc, /* 1013 */
+ PARROT_OP_find_sub_not_null_p_s, /* 1014 */
+ PARROT_OP_find_sub_not_null_p_sc, /* 1015 */
+ PARROT_OP_trap, /* 1016 */
+ PARROT_OP_set_label_p_ic, /* 1017 */
+ PARROT_OP_get_label_i_p, /* 1018 */
+ PARROT_OP_fetch_p_p_p_p, /* 1019 */
+ PARROT_OP_fetch_p_pc_p_p, /* 1020 */
+ PARROT_OP_fetch_p_p_pc_p, /* 1021 */
+ PARROT_OP_fetch_p_pc_pc_p, /* 1022 */
+ PARROT_OP_fetch_p_p_p_pc, /* 1023 */
+ PARROT_OP_fetch_p_pc_p_pc, /* 1024 */
+ PARROT_OP_fetch_p_p_pc_pc, /* 1025 */
+ PARROT_OP_fetch_p_pc_pc_pc, /* 1026 */
+ PARROT_OP_fetch_p_p_i_p, /* 1027 */
+ PARROT_OP_fetch_p_pc_i_p, /* 1028 */
+ PARROT_OP_fetch_p_p_ic_p, /* 1029 */
+ PARROT_OP_fetch_p_pc_ic_p, /* 1030 */
+ PARROT_OP_fetch_p_p_i_pc, /* 1031 */
+ PARROT_OP_fetch_p_pc_i_pc, /* 1032 */
+ PARROT_OP_fetch_p_p_ic_pc, /* 1033 */
+ PARROT_OP_fetch_p_pc_ic_pc, /* 1034 */
+ PARROT_OP_fetch_p_p_s_p, /* 1035 */
+ PARROT_OP_fetch_p_pc_s_p, /* 1036 */
+ PARROT_OP_fetch_p_p_sc_p, /* 1037 */
+ PARROT_OP_fetch_p_pc_sc_p, /* 1038 */
+ PARROT_OP_fetch_p_p_s_pc, /* 1039 */
+ PARROT_OP_fetch_p_pc_s_pc, /* 1040 */
+ PARROT_OP_fetch_p_p_sc_pc, /* 1041 */
+ PARROT_OP_fetch_p_pc_sc_pc, /* 1042 */
+ PARROT_OP_vivify_p_p_p_p, /* 1043 */
+ PARROT_OP_vivify_p_pc_p_p, /* 1044 */
+ PARROT_OP_vivify_p_p_pc_p, /* 1045 */
+ PARROT_OP_vivify_p_pc_pc_p, /* 1046 */
+ PARROT_OP_vivify_p_p_p_pc, /* 1047 */
+ PARROT_OP_vivify_p_pc_p_pc, /* 1048 */
+ PARROT_OP_vivify_p_p_pc_pc, /* 1049 */
+ PARROT_OP_vivify_p_pc_pc_pc, /* 1050 */
+ PARROT_OP_vivify_p_p_i_p, /* 1051 */
+ PARROT_OP_vivify_p_pc_i_p, /* 1052 */
+ PARROT_OP_vivify_p_p_ic_p, /* 1053 */
+ PARROT_OP_vivify_p_pc_ic_p, /* 1054 */
+ PARROT_OP_vivify_p_p_i_pc, /* 1055 */
+ PARROT_OP_vivify_p_pc_i_pc, /* 1056 */
+ PARROT_OP_vivify_p_p_ic_pc, /* 1057 */
+ PARROT_OP_vivify_p_pc_ic_pc, /* 1058 */
+ PARROT_OP_vivify_p_p_s_p, /* 1059 */
+ PARROT_OP_vivify_p_pc_s_p, /* 1060 */
+ PARROT_OP_vivify_p_p_sc_p, /* 1061 */
+ PARROT_OP_vivify_p_pc_sc_p, /* 1062 */
+ PARROT_OP_vivify_p_p_s_pc, /* 1063 */
+ PARROT_OP_vivify_p_pc_s_pc, /* 1064 */
+ PARROT_OP_vivify_p_p_sc_pc, /* 1065 */
+ PARROT_OP_vivify_p_pc_sc_pc, /* 1066 */
+ PARROT_OP_new_p_s_i, /* 1067 */
+ PARROT_OP_new_p_sc_i, /* 1068 */
+ PARROT_OP_new_p_s_ic, /* 1069 */
+ PARROT_OP_new_p_sc_ic, /* 1070 */
+ PARROT_OP_new_p_p_i, /* 1071 */
+ PARROT_OP_new_p_pc_i, /* 1072 */
+ PARROT_OP_new_p_p_ic, /* 1073 */
+ PARROT_OP_new_p_pc_ic, /* 1074 */
+ PARROT_OP_root_new_p_p_i, /* 1075 */
+ PARROT_OP_root_new_p_pc_i, /* 1076 */
+ PARROT_OP_root_new_p_p_ic, /* 1077 */
+ PARROT_OP_root_new_p_pc_ic, /* 1078 */
+ PARROT_OP_find_codepoint_i_s, /* 1079 */
+ PARROT_OP_find_codepoint_i_sc, /* 1080 */
+ PARROT_OP_finalize_p, /* 1081 */
+ PARROT_OP_finalize_pc /* 1082 */
} parrot_opcode_enums;
Modified: branches/gsoc_instrument/include/parrot/opsenum.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/opsenum.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/include/parrot/opsenum.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -11,7 +11,8 @@
* This file is generated automatically from 'src/ops/core.ops' (and possibly other
* .ops files). by ops2c.nqp.
*
- * Any changes made here will be lost!
+ * Any changes made here will be lost! To regenerate this file after making
+ * changes to any ops, use the bootstap-ops makefile target.
*
*/
enum OPS_ENUM {
@@ -380,721 +381,724 @@
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,
+ enum_ops_getstdin_p = 365,
+ enum_ops_getstdout_p = 366,
+ enum_ops_getstderr_p = 367,
+ enum_ops_abs_i = 368,
+ enum_ops_abs_n = 369,
+ enum_ops_abs_i_i = 370,
+ enum_ops_abs_n_n = 371,
+ enum_ops_abs_p = 372,
+ enum_ops_abs_p_p = 373,
+ enum_ops_add_i_i = 374,
+ enum_ops_add_i_ic = 375,
+ enum_ops_add_n_n = 376,
+ enum_ops_add_n_nc = 377,
+ enum_ops_add_p_p = 378,
+ enum_ops_add_p_i = 379,
+ enum_ops_add_p_ic = 380,
+ enum_ops_add_p_n = 381,
+ enum_ops_add_p_nc = 382,
+ enum_ops_add_i_i_i = 383,
+ enum_ops_add_i_ic_i = 384,
+ enum_ops_add_i_i_ic = 385,
+ enum_ops_add_n_n_n = 386,
+ enum_ops_add_n_nc_n = 387,
+ enum_ops_add_n_n_nc = 388,
+ enum_ops_add_p_p_p = 389,
+ enum_ops_add_p_p_i = 390,
+ enum_ops_add_p_p_ic = 391,
+ enum_ops_add_p_p_n = 392,
+ enum_ops_add_p_p_nc = 393,
+ enum_ops_dec_i = 394,
+ enum_ops_dec_n = 395,
+ enum_ops_dec_p = 396,
+ enum_ops_div_i_i = 397,
+ enum_ops_div_i_ic = 398,
+ enum_ops_div_n_n = 399,
+ enum_ops_div_n_nc = 400,
+ enum_ops_div_p_p = 401,
+ enum_ops_div_p_i = 402,
+ enum_ops_div_p_ic = 403,
+ enum_ops_div_p_n = 404,
+ enum_ops_div_p_nc = 405,
+ enum_ops_div_i_i_i = 406,
+ enum_ops_div_i_ic_i = 407,
+ enum_ops_div_i_i_ic = 408,
+ enum_ops_div_i_ic_ic = 409,
+ enum_ops_div_n_n_n = 410,
+ enum_ops_div_n_nc_n = 411,
+ enum_ops_div_n_n_nc = 412,
+ enum_ops_div_n_nc_nc = 413,
+ enum_ops_div_p_p_p = 414,
+ enum_ops_div_p_p_i = 415,
+ enum_ops_div_p_p_ic = 416,
+ enum_ops_div_p_p_n = 417,
+ enum_ops_div_p_p_nc = 418,
+ enum_ops_fdiv_i_i = 419,
+ enum_ops_fdiv_i_ic = 420,
+ enum_ops_fdiv_n_n = 421,
+ enum_ops_fdiv_n_nc = 422,
+ enum_ops_fdiv_p_p = 423,
+ enum_ops_fdiv_p_i = 424,
+ enum_ops_fdiv_p_ic = 425,
+ enum_ops_fdiv_p_n = 426,
+ enum_ops_fdiv_p_nc = 427,
+ enum_ops_fdiv_i_i_i = 428,
+ enum_ops_fdiv_i_ic_i = 429,
+ enum_ops_fdiv_i_i_ic = 430,
+ enum_ops_fdiv_n_n_n = 431,
+ enum_ops_fdiv_n_nc_n = 432,
+ enum_ops_fdiv_n_n_nc = 433,
+ enum_ops_fdiv_p_p_p = 434,
+ enum_ops_fdiv_p_p_i = 435,
+ enum_ops_fdiv_p_p_ic = 436,
+ enum_ops_fdiv_p_p_n = 437,
+ enum_ops_fdiv_p_p_nc = 438,
+ enum_ops_ceil_n = 439,
+ enum_ops_ceil_i_n = 440,
+ enum_ops_ceil_n_n = 441,
+ enum_ops_floor_n = 442,
+ enum_ops_floor_i_n = 443,
+ enum_ops_floor_n_n = 444,
+ enum_ops_inc_i = 445,
+ enum_ops_inc_n = 446,
+ enum_ops_inc_p = 447,
+ enum_ops_mod_i_i = 448,
+ enum_ops_mod_i_ic = 449,
+ enum_ops_mod_n_n = 450,
+ enum_ops_mod_n_nc = 451,
+ enum_ops_mod_p_p = 452,
+ enum_ops_mod_p_i = 453,
+ enum_ops_mod_p_ic = 454,
+ enum_ops_mod_p_n = 455,
+ enum_ops_mod_p_nc = 456,
+ enum_ops_mod_i_i_i = 457,
+ enum_ops_mod_i_ic_i = 458,
+ enum_ops_mod_i_i_ic = 459,
+ enum_ops_mod_n_n_n = 460,
+ enum_ops_mod_n_nc_n = 461,
+ enum_ops_mod_n_n_nc = 462,
+ enum_ops_mod_p_p_p = 463,
+ enum_ops_mod_p_p_i = 464,
+ enum_ops_mod_p_p_ic = 465,
+ enum_ops_mod_p_p_n = 466,
+ enum_ops_mod_p_p_nc = 467,
+ enum_ops_mul_i_i = 468,
+ enum_ops_mul_i_ic = 469,
+ enum_ops_mul_n_n = 470,
+ enum_ops_mul_n_nc = 471,
+ enum_ops_mul_p_p = 472,
+ enum_ops_mul_p_i = 473,
+ enum_ops_mul_p_ic = 474,
+ enum_ops_mul_p_n = 475,
+ enum_ops_mul_p_nc = 476,
+ enum_ops_mul_i_i_i = 477,
+ enum_ops_mul_i_ic_i = 478,
+ enum_ops_mul_i_i_ic = 479,
+ enum_ops_mul_n_n_n = 480,
+ enum_ops_mul_n_nc_n = 481,
+ enum_ops_mul_n_n_nc = 482,
+ enum_ops_mul_p_p_p = 483,
+ enum_ops_mul_p_p_i = 484,
+ enum_ops_mul_p_p_ic = 485,
+ enum_ops_mul_p_p_n = 486,
+ enum_ops_mul_p_p_nc = 487,
+ enum_ops_neg_i = 488,
+ enum_ops_neg_n = 489,
+ enum_ops_neg_p = 490,
+ enum_ops_neg_i_i = 491,
+ enum_ops_neg_n_n = 492,
+ enum_ops_neg_p_p = 493,
+ enum_ops_sub_i_i = 494,
+ enum_ops_sub_i_ic = 495,
+ enum_ops_sub_n_n = 496,
+ enum_ops_sub_n_nc = 497,
+ enum_ops_sub_p_p = 498,
+ enum_ops_sub_p_i = 499,
+ enum_ops_sub_p_ic = 500,
+ enum_ops_sub_p_n = 501,
+ enum_ops_sub_p_nc = 502,
+ enum_ops_sub_i_i_i = 503,
+ enum_ops_sub_i_ic_i = 504,
+ enum_ops_sub_i_i_ic = 505,
+ enum_ops_sub_n_n_n = 506,
+ enum_ops_sub_n_nc_n = 507,
+ enum_ops_sub_n_n_nc = 508,
+ enum_ops_sub_p_p_p = 509,
+ enum_ops_sub_p_p_i = 510,
+ enum_ops_sub_p_p_ic = 511,
+ enum_ops_sub_p_p_n = 512,
+ enum_ops_sub_p_p_nc = 513,
+ enum_ops_sqrt_n_n = 514,
+ enum_ops_callmethodcc_p_s = 515,
+ enum_ops_callmethodcc_p_sc = 516,
+ enum_ops_callmethodcc_p_p = 517,
+ enum_ops_callmethod_p_s_p = 518,
+ enum_ops_callmethod_p_sc_p = 519,
+ enum_ops_callmethod_p_p_p = 520,
+ enum_ops_tailcallmethod_p_s = 521,
+ enum_ops_tailcallmethod_p_sc = 522,
+ enum_ops_tailcallmethod_p_p = 523,
+ enum_ops_addmethod_p_s_p = 524,
+ enum_ops_addmethod_p_sc_p = 525,
+ enum_ops_can_i_p_s = 526,
+ enum_ops_can_i_p_sc = 527,
+ enum_ops_does_i_p_s = 528,
+ enum_ops_does_i_p_sc = 529,
+ enum_ops_does_i_p_p = 530,
+ enum_ops_does_i_p_pc = 531,
+ enum_ops_isa_i_p_s = 532,
+ enum_ops_isa_i_p_sc = 533,
+ enum_ops_isa_i_p_p = 534,
+ enum_ops_isa_i_p_pc = 535,
+ enum_ops_newclass_p_s = 536,
+ enum_ops_newclass_p_sc = 537,
+ enum_ops_newclass_p_p = 538,
+ enum_ops_newclass_p_pc = 539,
+ enum_ops_subclass_p_p = 540,
+ enum_ops_subclass_p_pc = 541,
+ enum_ops_subclass_p_p_s = 542,
+ enum_ops_subclass_p_pc_s = 543,
+ enum_ops_subclass_p_p_sc = 544,
+ enum_ops_subclass_p_pc_sc = 545,
+ enum_ops_subclass_p_p_p = 546,
+ enum_ops_subclass_p_pc_p = 547,
+ enum_ops_subclass_p_p_pc = 548,
+ enum_ops_subclass_p_pc_pc = 549,
+ enum_ops_subclass_p_s = 550,
+ enum_ops_subclass_p_sc = 551,
+ enum_ops_subclass_p_s_s = 552,
+ enum_ops_subclass_p_sc_s = 553,
+ enum_ops_subclass_p_s_sc = 554,
+ enum_ops_subclass_p_sc_sc = 555,
+ enum_ops_subclass_p_s_p = 556,
+ enum_ops_subclass_p_sc_p = 557,
+ enum_ops_subclass_p_s_pc = 558,
+ enum_ops_subclass_p_sc_pc = 559,
+ enum_ops_get_class_p_s = 560,
+ enum_ops_get_class_p_sc = 561,
+ enum_ops_get_class_p_p = 562,
+ enum_ops_get_class_p_pc = 563,
+ enum_ops_class_p_p = 564,
+ enum_ops_addparent_p_p = 565,
+ enum_ops_removeparent_p_p = 566,
+ enum_ops_addrole_p_p = 567,
+ enum_ops_addattribute_p_s = 568,
+ enum_ops_addattribute_p_sc = 569,
+ enum_ops_removeattribute_p_s = 570,
+ enum_ops_removeattribute_p_sc = 571,
+ enum_ops_getattribute_p_p_s = 572,
+ enum_ops_getattribute_p_p_sc = 573,
+ enum_ops_getattribute_p_p_p_s = 574,
+ enum_ops_getattribute_p_p_pc_s = 575,
+ enum_ops_getattribute_p_p_p_sc = 576,
+ enum_ops_getattribute_p_p_pc_sc = 577,
+ enum_ops_setattribute_p_s_p = 578,
+ enum_ops_setattribute_p_sc_p = 579,
+ enum_ops_setattribute_p_p_s_p = 580,
+ enum_ops_setattribute_p_pc_s_p = 581,
+ enum_ops_setattribute_p_p_sc_p = 582,
+ enum_ops_setattribute_p_pc_sc_p = 583,
+ enum_ops_inspect_p_p = 584,
+ enum_ops_inspect_p_pc = 585,
+ enum_ops_inspect_p_p_s = 586,
+ enum_ops_inspect_p_pc_s = 587,
+ enum_ops_inspect_p_p_sc = 588,
+ enum_ops_inspect_p_pc_sc = 589,
+ enum_ops_new_p_s = 590,
+ enum_ops_new_p_sc = 591,
+ enum_ops_new_p_s_p = 592,
+ enum_ops_new_p_sc_p = 593,
+ enum_ops_new_p_s_pc = 594,
+ enum_ops_new_p_sc_pc = 595,
+ enum_ops_new_p_p = 596,
+ enum_ops_new_p_pc = 597,
+ enum_ops_new_p_p_p = 598,
+ enum_ops_new_p_pc_p = 599,
+ enum_ops_new_p_p_pc = 600,
+ enum_ops_new_p_pc_pc = 601,
+ enum_ops_root_new_p_p = 602,
+ enum_ops_root_new_p_pc = 603,
+ enum_ops_root_new_p_p_p = 604,
+ enum_ops_root_new_p_pc_p = 605,
+ enum_ops_root_new_p_p_pc = 606,
+ enum_ops_root_new_p_pc_pc = 607,
+ enum_ops_typeof_s_p = 608,
+ enum_ops_typeof_p_p = 609,
+ enum_ops_get_repr_s_p = 610,
+ enum_ops_find_method_p_p_s = 611,
+ enum_ops_find_method_p_p_sc = 612,
+ enum_ops_defined_i_p = 613,
+ enum_ops_defined_i_p_ki = 614,
+ enum_ops_defined_i_p_kic = 615,
+ enum_ops_defined_i_p_k = 616,
+ enum_ops_defined_i_p_kc = 617,
+ enum_ops_exists_i_p_ki = 618,
+ enum_ops_exists_i_p_kic = 619,
+ enum_ops_exists_i_p_k = 620,
+ enum_ops_exists_i_p_kc = 621,
+ enum_ops_delete_p_k = 622,
+ enum_ops_delete_p_kc = 623,
+ enum_ops_delete_p_ki = 624,
+ enum_ops_delete_p_kic = 625,
+ enum_ops_elements_i_p = 626,
+ enum_ops_push_p_i = 627,
+ enum_ops_push_p_ic = 628,
+ enum_ops_push_p_n = 629,
+ enum_ops_push_p_nc = 630,
+ enum_ops_push_p_s = 631,
+ enum_ops_push_p_sc = 632,
+ enum_ops_push_p_p = 633,
+ enum_ops_pop_i_p = 634,
+ enum_ops_pop_n_p = 635,
+ enum_ops_pop_s_p = 636,
+ enum_ops_pop_p_p = 637,
+ enum_ops_unshift_p_i = 638,
+ enum_ops_unshift_p_ic = 639,
+ enum_ops_unshift_p_n = 640,
+ enum_ops_unshift_p_nc = 641,
+ enum_ops_unshift_p_s = 642,
+ enum_ops_unshift_p_sc = 643,
+ enum_ops_unshift_p_p = 644,
+ enum_ops_shift_i_p = 645,
+ enum_ops_shift_n_p = 646,
+ enum_ops_shift_s_p = 647,
+ enum_ops_shift_p_p = 648,
+ enum_ops_splice_p_p_i_i = 649,
+ enum_ops_splice_p_p_ic_i = 650,
+ enum_ops_splice_p_p_i_ic = 651,
+ enum_ops_splice_p_p_ic_ic = 652,
+ enum_ops_setprop_p_s_p = 653,
+ enum_ops_setprop_p_sc_p = 654,
+ enum_ops_getprop_p_s_p = 655,
+ enum_ops_getprop_p_sc_p = 656,
+ enum_ops_delprop_p_s = 657,
+ enum_ops_delprop_p_sc = 658,
+ enum_ops_prophash_p_p = 659,
+ enum_ops_freeze_s_p = 660,
+ enum_ops_thaw_p_s = 661,
+ enum_ops_thaw_p_sc = 662,
+ enum_ops_add_multi_s_s_p = 663,
+ enum_ops_add_multi_sc_s_p = 664,
+ enum_ops_add_multi_s_sc_p = 665,
+ enum_ops_add_multi_sc_sc_p = 666,
+ enum_ops_find_multi_p_s_s = 667,
+ enum_ops_find_multi_p_sc_s = 668,
+ enum_ops_find_multi_p_s_sc = 669,
+ enum_ops_find_multi_p_sc_sc = 670,
+ enum_ops_register_p = 671,
+ enum_ops_unregister_p = 672,
+ enum_ops_box_p_i = 673,
+ enum_ops_box_p_ic = 674,
+ enum_ops_box_p_n = 675,
+ enum_ops_box_p_nc = 676,
+ enum_ops_box_p_s = 677,
+ enum_ops_box_p_sc = 678,
+ enum_ops_iter_p_p = 679,
+ enum_ops_morph_p_p = 680,
+ enum_ops_morph_p_pc = 681,
+ enum_ops_clone_s_s = 682,
+ enum_ops_clone_s_sc = 683,
+ enum_ops_set_i_i = 684,
+ enum_ops_set_i_ic = 685,
+ enum_ops_set_i_n = 686,
+ enum_ops_set_i_nc = 687,
+ enum_ops_set_i_s = 688,
+ enum_ops_set_i_sc = 689,
+ enum_ops_set_n_n = 690,
+ enum_ops_set_n_nc = 691,
+ enum_ops_set_n_i = 692,
+ enum_ops_set_n_ic = 693,
+ enum_ops_set_n_s = 694,
+ enum_ops_set_n_sc = 695,
+ enum_ops_set_n_p = 696,
+ enum_ops_set_s_p = 697,
+ enum_ops_set_s_s = 698,
+ enum_ops_set_s_sc = 699,
+ enum_ops_set_s_i = 700,
+ enum_ops_set_s_ic = 701,
+ enum_ops_set_s_n = 702,
+ enum_ops_set_s_nc = 703,
+ enum_ops_set_p_pc = 704,
+ enum_ops_set_p_p = 705,
+ enum_ops_set_p_i = 706,
+ enum_ops_set_p_ic = 707,
+ enum_ops_set_p_n = 708,
+ enum_ops_set_p_nc = 709,
+ enum_ops_set_p_s = 710,
+ enum_ops_set_p_sc = 711,
+ enum_ops_set_i_p = 712,
+ enum_ops_assign_p_p = 713,
+ enum_ops_assign_p_i = 714,
+ enum_ops_assign_p_ic = 715,
+ enum_ops_assign_p_n = 716,
+ enum_ops_assign_p_nc = 717,
+ enum_ops_assign_p_s = 718,
+ enum_ops_assign_p_sc = 719,
+ enum_ops_assign_s_s = 720,
+ enum_ops_assign_s_sc = 721,
+ enum_ops_setref_p_p = 722,
+ enum_ops_deref_p_p = 723,
+ enum_ops_set_p_ki_i = 724,
+ enum_ops_set_p_kic_i = 725,
+ enum_ops_set_p_ki_ic = 726,
+ enum_ops_set_p_kic_ic = 727,
+ enum_ops_set_p_ki_n = 728,
+ enum_ops_set_p_kic_n = 729,
+ enum_ops_set_p_ki_nc = 730,
+ enum_ops_set_p_kic_nc = 731,
+ enum_ops_set_p_ki_s = 732,
+ enum_ops_set_p_kic_s = 733,
+ enum_ops_set_p_ki_sc = 734,
+ enum_ops_set_p_kic_sc = 735,
+ enum_ops_set_p_ki_p = 736,
+ enum_ops_set_p_kic_p = 737,
+ enum_ops_set_i_p_ki = 738,
+ enum_ops_set_i_p_kic = 739,
+ enum_ops_set_n_p_ki = 740,
+ enum_ops_set_n_p_kic = 741,
+ enum_ops_set_s_p_ki = 742,
+ enum_ops_set_s_p_kic = 743,
+ enum_ops_set_p_p_ki = 744,
+ enum_ops_set_p_p_kic = 745,
+ enum_ops_set_p_k_i = 746,
+ enum_ops_set_p_kc_i = 747,
+ enum_ops_set_p_k_ic = 748,
+ enum_ops_set_p_kc_ic = 749,
+ enum_ops_set_p_k_n = 750,
+ enum_ops_set_p_kc_n = 751,
+ enum_ops_set_p_k_nc = 752,
+ enum_ops_set_p_kc_nc = 753,
+ enum_ops_set_p_k_s = 754,
+ enum_ops_set_p_kc_s = 755,
+ enum_ops_set_p_k_sc = 756,
+ enum_ops_set_p_kc_sc = 757,
+ enum_ops_set_p_k_p = 758,
+ enum_ops_set_p_kc_p = 759,
+ enum_ops_set_i_p_k = 760,
+ enum_ops_set_i_p_kc = 761,
+ enum_ops_set_n_p_k = 762,
+ enum_ops_set_n_p_kc = 763,
+ enum_ops_set_s_p_k = 764,
+ enum_ops_set_s_p_kc = 765,
+ enum_ops_set_p_p_k = 766,
+ enum_ops_set_p_p_kc = 767,
+ enum_ops_clone_p_p = 768,
+ enum_ops_clone_p_p_p = 769,
+ enum_ops_clone_p_p_pc = 770,
+ enum_ops_copy_p_p = 771,
+ enum_ops_null_s = 772,
+ enum_ops_null_i = 773,
+ enum_ops_null_p = 774,
+ enum_ops_null_n = 775,
+ enum_ops_ord_i_s = 776,
+ enum_ops_ord_i_sc = 777,
+ enum_ops_ord_i_s_i = 778,
+ enum_ops_ord_i_sc_i = 779,
+ enum_ops_ord_i_s_ic = 780,
+ enum_ops_ord_i_sc_ic = 781,
+ enum_ops_chr_s_i = 782,
+ enum_ops_chr_s_ic = 783,
+ enum_ops_chopn_s_s_i = 784,
+ enum_ops_chopn_s_sc_i = 785,
+ enum_ops_chopn_s_s_ic = 786,
+ enum_ops_chopn_s_sc_ic = 787,
+ enum_ops_concat_s_s = 788,
+ enum_ops_concat_s_sc = 789,
+ enum_ops_concat_p_p = 790,
+ enum_ops_concat_p_s = 791,
+ enum_ops_concat_p_sc = 792,
+ enum_ops_concat_s_s_s = 793,
+ enum_ops_concat_s_sc_s = 794,
+ enum_ops_concat_s_s_sc = 795,
+ enum_ops_concat_p_p_s = 796,
+ enum_ops_concat_p_p_sc = 797,
+ enum_ops_concat_p_p_p = 798,
+ enum_ops_repeat_s_s_i = 799,
+ enum_ops_repeat_s_sc_i = 800,
+ enum_ops_repeat_s_s_ic = 801,
+ enum_ops_repeat_s_sc_ic = 802,
+ enum_ops_repeat_p_p_i = 803,
+ enum_ops_repeat_p_p_ic = 804,
+ enum_ops_repeat_p_p_p = 805,
+ enum_ops_repeat_p_i = 806,
+ enum_ops_repeat_p_ic = 807,
+ enum_ops_repeat_p_p = 808,
+ enum_ops_length_i_s = 809,
+ enum_ops_length_i_sc = 810,
+ enum_ops_bytelength_i_s = 811,
+ enum_ops_bytelength_i_sc = 812,
+ enum_ops_pin_s = 813,
+ enum_ops_unpin_s = 814,
+ enum_ops_substr_s_s_i = 815,
+ enum_ops_substr_s_sc_i = 816,
+ enum_ops_substr_s_s_ic = 817,
+ enum_ops_substr_s_sc_ic = 818,
+ enum_ops_substr_s_s_i_i = 819,
+ enum_ops_substr_s_sc_i_i = 820,
+ enum_ops_substr_s_s_ic_i = 821,
+ enum_ops_substr_s_sc_ic_i = 822,
+ enum_ops_substr_s_s_i_ic = 823,
+ enum_ops_substr_s_sc_i_ic = 824,
+ enum_ops_substr_s_s_ic_ic = 825,
+ enum_ops_substr_s_sc_ic_ic = 826,
+ enum_ops_substr_s_p_i_i = 827,
+ enum_ops_substr_s_p_ic_i = 828,
+ enum_ops_substr_s_p_i_ic = 829,
+ enum_ops_substr_s_p_ic_ic = 830,
+ enum_ops_replace_s_s_i_i_s = 831,
+ enum_ops_replace_s_sc_i_i_s = 832,
+ enum_ops_replace_s_s_ic_i_s = 833,
+ enum_ops_replace_s_sc_ic_i_s = 834,
+ enum_ops_replace_s_s_i_ic_s = 835,
+ enum_ops_replace_s_sc_i_ic_s = 836,
+ enum_ops_replace_s_s_ic_ic_s = 837,
+ enum_ops_replace_s_sc_ic_ic_s = 838,
+ enum_ops_replace_s_s_i_i_sc = 839,
+ enum_ops_replace_s_sc_i_i_sc = 840,
+ enum_ops_replace_s_s_ic_i_sc = 841,
+ enum_ops_replace_s_sc_ic_i_sc = 842,
+ enum_ops_replace_s_s_i_ic_sc = 843,
+ enum_ops_replace_s_sc_i_ic_sc = 844,
+ enum_ops_replace_s_s_ic_ic_sc = 845,
+ enum_ops_replace_s_sc_ic_ic_sc = 846,
+ enum_ops_index_i_s_s = 847,
+ enum_ops_index_i_sc_s = 848,
+ enum_ops_index_i_s_sc = 849,
+ enum_ops_index_i_sc_sc = 850,
+ enum_ops_index_i_s_s_i = 851,
+ enum_ops_index_i_sc_s_i = 852,
+ enum_ops_index_i_s_sc_i = 853,
+ enum_ops_index_i_sc_sc_i = 854,
+ enum_ops_index_i_s_s_ic = 855,
+ enum_ops_index_i_sc_s_ic = 856,
+ enum_ops_index_i_s_sc_ic = 857,
+ enum_ops_index_i_sc_sc_ic = 858,
+ enum_ops_sprintf_s_s_p = 859,
+ enum_ops_sprintf_s_sc_p = 860,
+ enum_ops_sprintf_p_p_p = 861,
+ enum_ops_new_s = 862,
+ enum_ops_new_s_i = 863,
+ enum_ops_new_s_ic = 864,
+ enum_ops_stringinfo_i_s_i = 865,
+ enum_ops_stringinfo_i_sc_i = 866,
+ enum_ops_stringinfo_i_s_ic = 867,
+ enum_ops_stringinfo_i_sc_ic = 868,
+ enum_ops_upcase_s_s = 869,
+ enum_ops_upcase_s_sc = 870,
+ enum_ops_downcase_s_s = 871,
+ enum_ops_downcase_s_sc = 872,
+ enum_ops_titlecase_s_s = 873,
+ enum_ops_titlecase_s_sc = 874,
+ enum_ops_join_s_s_p = 875,
+ enum_ops_join_s_sc_p = 876,
+ enum_ops_split_p_s_s = 877,
+ enum_ops_split_p_sc_s = 878,
+ enum_ops_split_p_s_sc = 879,
+ enum_ops_split_p_sc_sc = 880,
+ enum_ops_charset_i_s = 881,
+ enum_ops_charset_i_sc = 882,
+ enum_ops_charsetname_s_i = 883,
+ enum_ops_charsetname_s_ic = 884,
+ enum_ops_find_charset_i_s = 885,
+ enum_ops_find_charset_i_sc = 886,
+ enum_ops_trans_charset_s_s_i = 887,
+ enum_ops_trans_charset_s_sc_i = 888,
+ enum_ops_trans_charset_s_s_ic = 889,
+ enum_ops_trans_charset_s_sc_ic = 890,
+ enum_ops_encoding_i_s = 891,
+ enum_ops_encoding_i_sc = 892,
+ enum_ops_encodingname_s_i = 893,
+ enum_ops_encodingname_s_ic = 894,
+ enum_ops_find_encoding_i_s = 895,
+ enum_ops_find_encoding_i_sc = 896,
+ enum_ops_trans_encoding_s_s_i = 897,
+ enum_ops_trans_encoding_s_sc_i = 898,
+ enum_ops_trans_encoding_s_s_ic = 899,
+ enum_ops_trans_encoding_s_sc_ic = 900,
+ enum_ops_is_cclass_i_i_s_i = 901,
+ enum_ops_is_cclass_i_ic_s_i = 902,
+ enum_ops_is_cclass_i_i_sc_i = 903,
+ enum_ops_is_cclass_i_ic_sc_i = 904,
+ enum_ops_is_cclass_i_i_s_ic = 905,
+ enum_ops_is_cclass_i_ic_s_ic = 906,
+ enum_ops_is_cclass_i_i_sc_ic = 907,
+ enum_ops_is_cclass_i_ic_sc_ic = 908,
+ enum_ops_find_cclass_i_i_s_i_i = 909,
+ enum_ops_find_cclass_i_ic_s_i_i = 910,
+ enum_ops_find_cclass_i_i_sc_i_i = 911,
+ enum_ops_find_cclass_i_ic_sc_i_i = 912,
+ enum_ops_find_cclass_i_i_s_ic_i = 913,
+ enum_ops_find_cclass_i_ic_s_ic_i = 914,
+ enum_ops_find_cclass_i_i_sc_ic_i = 915,
+ enum_ops_find_cclass_i_ic_sc_ic_i = 916,
+ enum_ops_find_cclass_i_i_s_i_ic = 917,
+ enum_ops_find_cclass_i_ic_s_i_ic = 918,
+ enum_ops_find_cclass_i_i_sc_i_ic = 919,
+ enum_ops_find_cclass_i_ic_sc_i_ic = 920,
+ enum_ops_find_cclass_i_i_s_ic_ic = 921,
+ enum_ops_find_cclass_i_ic_s_ic_ic = 922,
+ enum_ops_find_cclass_i_i_sc_ic_ic = 923,
+ enum_ops_find_cclass_i_ic_sc_ic_ic = 924,
+ enum_ops_find_not_cclass_i_i_s_i_i = 925,
+ enum_ops_find_not_cclass_i_ic_s_i_i = 926,
+ enum_ops_find_not_cclass_i_i_sc_i_i = 927,
+ enum_ops_find_not_cclass_i_ic_sc_i_i = 928,
+ enum_ops_find_not_cclass_i_i_s_ic_i = 929,
+ enum_ops_find_not_cclass_i_ic_s_ic_i = 930,
+ enum_ops_find_not_cclass_i_i_sc_ic_i = 931,
+ enum_ops_find_not_cclass_i_ic_sc_ic_i = 932,
+ enum_ops_find_not_cclass_i_i_s_i_ic = 933,
+ enum_ops_find_not_cclass_i_ic_s_i_ic = 934,
+ enum_ops_find_not_cclass_i_i_sc_i_ic = 935,
+ enum_ops_find_not_cclass_i_ic_sc_i_ic = 936,
+ enum_ops_find_not_cclass_i_i_s_ic_ic = 937,
+ enum_ops_find_not_cclass_i_ic_s_ic_ic = 938,
+ enum_ops_find_not_cclass_i_i_sc_ic_ic = 939,
+ enum_ops_find_not_cclass_i_ic_sc_ic_ic = 940,
+ enum_ops_escape_s_s = 941,
+ enum_ops_compose_s_s = 942,
+ enum_ops_compose_s_sc = 943,
+ enum_ops_spawnw_i_s = 944,
+ enum_ops_spawnw_i_sc = 945,
+ enum_ops_spawnw_i_p = 946,
+ enum_ops_err_i = 947,
+ enum_ops_err_s = 948,
+ enum_ops_err_s_i = 949,
+ enum_ops_err_s_ic = 950,
+ enum_ops_time_i = 951,
+ enum_ops_time_n = 952,
+ enum_ops_sleep_i = 953,
+ enum_ops_sleep_ic = 954,
+ enum_ops_sleep_n = 955,
+ enum_ops_sleep_nc = 956,
+ enum_ops_store_lex_s_p = 957,
+ enum_ops_store_lex_sc_p = 958,
+ enum_ops_store_dynamic_lex_s_p = 959,
+ enum_ops_store_dynamic_lex_sc_p = 960,
+ enum_ops_find_lex_p_s = 961,
+ enum_ops_find_lex_p_sc = 962,
+ enum_ops_find_dynamic_lex_p_s = 963,
+ enum_ops_find_dynamic_lex_p_sc = 964,
+ enum_ops_find_caller_lex_p_s = 965,
+ enum_ops_find_caller_lex_p_sc = 966,
+ enum_ops_get_namespace_p = 967,
+ enum_ops_get_namespace_p_p = 968,
+ enum_ops_get_namespace_p_pc = 969,
+ enum_ops_get_hll_namespace_p = 970,
+ enum_ops_get_hll_namespace_p_p = 971,
+ enum_ops_get_hll_namespace_p_pc = 972,
+ enum_ops_get_root_namespace_p = 973,
+ enum_ops_get_root_namespace_p_p = 974,
+ enum_ops_get_root_namespace_p_pc = 975,
+ enum_ops_get_global_p_s = 976,
+ enum_ops_get_global_p_sc = 977,
+ enum_ops_get_global_p_p_s = 978,
+ enum_ops_get_global_p_pc_s = 979,
+ enum_ops_get_global_p_p_sc = 980,
+ enum_ops_get_global_p_pc_sc = 981,
+ enum_ops_get_hll_global_p_s = 982,
+ enum_ops_get_hll_global_p_sc = 983,
+ enum_ops_get_hll_global_p_p_s = 984,
+ enum_ops_get_hll_global_p_pc_s = 985,
+ enum_ops_get_hll_global_p_p_sc = 986,
+ enum_ops_get_hll_global_p_pc_sc = 987,
+ enum_ops_get_root_global_p_s = 988,
+ enum_ops_get_root_global_p_sc = 989,
+ enum_ops_get_root_global_p_p_s = 990,
+ enum_ops_get_root_global_p_pc_s = 991,
+ enum_ops_get_root_global_p_p_sc = 992,
+ enum_ops_get_root_global_p_pc_sc = 993,
+ enum_ops_set_global_s_p = 994,
+ enum_ops_set_global_sc_p = 995,
+ enum_ops_set_global_p_s_p = 996,
+ enum_ops_set_global_pc_s_p = 997,
+ enum_ops_set_global_p_sc_p = 998,
+ enum_ops_set_global_pc_sc_p = 999,
+ enum_ops_set_hll_global_s_p = 1000,
+ enum_ops_set_hll_global_sc_p = 1001,
+ enum_ops_set_hll_global_p_s_p = 1002,
+ enum_ops_set_hll_global_pc_s_p = 1003,
+ enum_ops_set_hll_global_p_sc_p = 1004,
+ enum_ops_set_hll_global_pc_sc_p = 1005,
+ enum_ops_set_root_global_s_p = 1006,
+ enum_ops_set_root_global_sc_p = 1007,
+ enum_ops_set_root_global_p_s_p = 1008,
+ enum_ops_set_root_global_pc_s_p = 1009,
+ enum_ops_set_root_global_p_sc_p = 1010,
+ enum_ops_set_root_global_pc_sc_p = 1011,
+ enum_ops_find_name_p_s = 1012,
+ enum_ops_find_name_p_sc = 1013,
+ enum_ops_find_sub_not_null_p_s = 1014,
+ enum_ops_find_sub_not_null_p_sc = 1015,
+ enum_ops_trap = 1016,
+ enum_ops_set_label_p_ic = 1017,
+ enum_ops_get_label_i_p = 1018,
+ enum_ops_fetch_p_p_p_p = 1019,
+ enum_ops_fetch_p_pc_p_p = 1020,
+ enum_ops_fetch_p_p_pc_p = 1021,
+ enum_ops_fetch_p_pc_pc_p = 1022,
+ enum_ops_fetch_p_p_p_pc = 1023,
+ enum_ops_fetch_p_pc_p_pc = 1024,
+ enum_ops_fetch_p_p_pc_pc = 1025,
+ enum_ops_fetch_p_pc_pc_pc = 1026,
+ enum_ops_fetch_p_p_i_p = 1027,
+ enum_ops_fetch_p_pc_i_p = 1028,
+ enum_ops_fetch_p_p_ic_p = 1029,
+ enum_ops_fetch_p_pc_ic_p = 1030,
+ enum_ops_fetch_p_p_i_pc = 1031,
+ enum_ops_fetch_p_pc_i_pc = 1032,
+ enum_ops_fetch_p_p_ic_pc = 1033,
+ enum_ops_fetch_p_pc_ic_pc = 1034,
+ enum_ops_fetch_p_p_s_p = 1035,
+ enum_ops_fetch_p_pc_s_p = 1036,
+ enum_ops_fetch_p_p_sc_p = 1037,
+ enum_ops_fetch_p_pc_sc_p = 1038,
+ enum_ops_fetch_p_p_s_pc = 1039,
+ enum_ops_fetch_p_pc_s_pc = 1040,
+ enum_ops_fetch_p_p_sc_pc = 1041,
+ enum_ops_fetch_p_pc_sc_pc = 1042,
+ enum_ops_vivify_p_p_p_p = 1043,
+ enum_ops_vivify_p_pc_p_p = 1044,
+ enum_ops_vivify_p_p_pc_p = 1045,
+ enum_ops_vivify_p_pc_pc_p = 1046,
+ enum_ops_vivify_p_p_p_pc = 1047,
+ enum_ops_vivify_p_pc_p_pc = 1048,
+ enum_ops_vivify_p_p_pc_pc = 1049,
+ enum_ops_vivify_p_pc_pc_pc = 1050,
+ enum_ops_vivify_p_p_i_p = 1051,
+ enum_ops_vivify_p_pc_i_p = 1052,
+ enum_ops_vivify_p_p_ic_p = 1053,
+ enum_ops_vivify_p_pc_ic_p = 1054,
+ enum_ops_vivify_p_p_i_pc = 1055,
+ enum_ops_vivify_p_pc_i_pc = 1056,
+ enum_ops_vivify_p_p_ic_pc = 1057,
+ enum_ops_vivify_p_pc_ic_pc = 1058,
+ enum_ops_vivify_p_p_s_p = 1059,
+ enum_ops_vivify_p_pc_s_p = 1060,
+ enum_ops_vivify_p_p_sc_p = 1061,
+ enum_ops_vivify_p_pc_sc_p = 1062,
+ enum_ops_vivify_p_p_s_pc = 1063,
+ enum_ops_vivify_p_pc_s_pc = 1064,
+ enum_ops_vivify_p_p_sc_pc = 1065,
+ enum_ops_vivify_p_pc_sc_pc = 1066,
+ enum_ops_new_p_s_i = 1067,
+ enum_ops_new_p_sc_i = 1068,
+ enum_ops_new_p_s_ic = 1069,
+ enum_ops_new_p_sc_ic = 1070,
+ enum_ops_new_p_p_i = 1071,
+ enum_ops_new_p_pc_i = 1072,
+ enum_ops_new_p_p_ic = 1073,
+ enum_ops_new_p_pc_ic = 1074,
+ enum_ops_root_new_p_p_i = 1075,
+ enum_ops_root_new_p_pc_i = 1076,
+ enum_ops_root_new_p_p_ic = 1077,
+ enum_ops_root_new_p_pc_ic = 1078,
+ enum_ops_find_codepoint_i_s = 1079,
+ enum_ops_find_codepoint_i_sc = 1080,
+ enum_ops_finalize_p = 1081,
+ enum_ops_finalize_pc = 1082,
};
Modified: branches/gsoc_instrument/include/parrot/packfile.h
==============================================================================
--- branches/gsoc_instrument/include/parrot/packfile.h Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/include/parrot/packfile.h Sun Jun 6 16:09:33 2010 (r47429)
@@ -222,7 +222,6 @@
typedef enum {
enum_fixup_none,
- enum_fixup_label,
enum_fixup_sub
} enum_fixup_t;
Modified: branches/gsoc_instrument/lib/Parrot/Configure.pm
==============================================================================
--- branches/gsoc_instrument/lib/Parrot/Configure.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/lib/Parrot/Configure.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -21,6 +21,7 @@
$conf->add_steps(@steps);
$conf->runsteps;
+ $conf->debug(@messages);
=head1 DESCRIPTION
@@ -554,6 +555,22 @@
return;
}
+=item * C<debug()>
+
+When C<--verbose> is requested, or when a particular configuration step is
+specified in C<--verbose-step>, this method prints its arguments as a string
+on STDOUT.
+
+=cut
+
+sub debug {
+ my ($conf, @messages) = @_;
+ if ($conf->options->get('verbose')) {
+ print join('' => @messages);
+ }
+ return 1;
+}
+
=back
=head1 CREDITS
Modified: branches/gsoc_instrument/lib/Parrot/Configure/Step/List.pm
==============================================================================
--- branches/gsoc_instrument/lib/Parrot/Configure/Step/List.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/lib/Parrot/Configure/Step/List.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -48,7 +48,6 @@
auto::socklen_t
auto::neg_0
auto::env
- auto::extra_nci_thunks
auto::thread
auto::gmp
auto::readline
Modified: branches/gsoc_instrument/lib/Parrot/Harness/DefaultTests.pm
==============================================================================
--- branches/gsoc_instrument/lib/Parrot/Harness/DefaultTests.pm Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/lib/Parrot/Harness/DefaultTests.pm Sun Jun 6 16:09:33 2010 (r47429)
@@ -65,7 +65,6 @@
t/pmc/*.t
t/oo/*.t
t/native_pbc/*.t
- t/dynpmc/*.t
);
# core tests are run unless --runcore-tests is present. Typically
Modified: branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/Archive/Tar.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -440,7 +440,8 @@
.param pmc args :slurpy
$S0 = join '', args
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'($S0)
$P1.'print'("\n")
.end
Modified: branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/Archive/Zip.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -46,7 +46,8 @@
.param pmc args :slurpy
$S0 = join '', args
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'($S0)
$P1.'print'("\n")
.end
Modified: branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/CGI/QueryHash.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -70,7 +70,8 @@
content_length = my_env['CONTENT_LENGTH']
len = content_length
$P0 = getinterp
- in = $P0.'stdhandle'(0)
+ .include 'stdio.pasm'
+ in = $P0.'stdhandle'(.PIO_STDIN_FILENO)
query = in.'read'(len)
in.'close'()
#_dumper( query, 'queryPOST:' )
Modified: branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/Configure/genfile.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -358,7 +358,8 @@
.param int pos
.param string msg
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("in '")
$P1.'print'(str)
$P1.'print'("' at ")
@@ -405,7 +406,8 @@
goto L8
L7:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("\tunknown config: ")
$P1.'print'($S1)
$P1.'print'("\n")
Modified: branches/gsoc_instrument/runtime/parrot/library/Crow.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Crow.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/Crow.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -15,8 +15,8 @@
getopts = new ['Getopt';'Obj']
getopts.'notOptStop'(1)
- getopts = push 'help|h'
- getopts = push 'type|t=s'
+ push getopts, 'help|h'
+ push getopts, 'type|t=s'
.local pmc opts
opts = getopts.'get_options'(args)
Modified: branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/PGE/Util.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -133,7 +133,8 @@
message .= "\n"
emit_message:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'(message)
mob.'to'(pos)
Modified: branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/TAP/Parser.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -1086,7 +1086,8 @@
goto L5
L2:
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'("Unhandled token type: ")
$P1.'print'(type)
$P1.'print'("\n")
Modified: branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/Test/Builder/Output.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -57,16 +57,18 @@
.local pmc output
.local pmc diag_output
+ .include 'stdio.pasm'
+
output = args['output']
unless null output goto CHECK_ERROR_OUTPUT
$P0 = getinterp
- output = $P0.'stdhandle'(1)
+ output = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
CHECK_ERROR_OUTPUT:
diag_output = args['diag_output']
unless null diag_output goto SET_OUTPUT
$P0 = getinterp
- diag_output = $P0.'stdhandle'(1)
+ diag_output = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
SET_OUTPUT:
setattribute self, "output", output
@@ -146,7 +148,7 @@
if i == 0 goto LINE_OK
line = lines[i]
first_char = substr line, 0, 1
- eq_str first_char, '#', LINE_OK
+ if first_char == '#' goto LINE_OK
.local string new_line
new_line = '# '
@@ -186,7 +188,7 @@
.local string first_char
first_char = substr message, 0, 1
- eq_str first_char, '#', WRITE_MESSAGE
+ if first_char == '#' goto WRITE_MESSAGE
first_char = '# '
concat first_char, message
Modified: branches/gsoc_instrument/runtime/parrot/library/Test/More.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/Test/More.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/Test/More.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -67,8 +67,6 @@
.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 Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/distutils.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -132,6 +132,31 @@
=head2 EXAMPLES
+ $ cat hello.pir
+ .sub 'main' :main
+ say 'hello world!'
+ .end
+
+ $ cat setup.pir
+ .sub 'main' :main
+ .param pmc args
+ $S0 = shift args
+ load_bytecode 'distutils.pbc'
+
+ $P0 = new 'Hash'
+ $P1 = new 'Hash'
+ $P1['hello.pbc'] = 'hello.pir'
+ $P0['pbc_pir'] = $P1
+ $P2 = new 'Hash'
+ $P2['parrot-hello'] = 'hello.pbc'
+ $P0['installable_pbc'] = $P2
+ .tailcall setup(args :flat, $P0 :flat :named)
+ .end
+
+ $ parrot setup.pir
+ $ parrot setup.pir install
+ $ parrot setup clean
+
L<http://github.com/fperrad/parrot-MT19937/blob/master/setup.pir>
L<http://github.com/fperrad/markdown/blob/master/setup.pir>
@@ -4523,6 +4548,36 @@
.return ($I0)
.end
+=item runtests
+
+=cut
+
+.sub 'runtests' :multi()
+ .param pmc files :slurpy
+ .param pmc opts :slurpy :named
+ load_bytecode 'TAP/Harness.pbc'
+ .local pmc harness
+ harness = new ['TAP';'Harness']
+ harness.'process_args'(opts)
+ .local pmc aggregate
+ aggregate = harness.'runtests'(files)
+ $I0 = aggregate.'has_errors'()
+ unless $I0 goto L1
+ $I0 = exists opts['ignore_error']
+ unless $I0 goto L2
+ $I0 = opts['ignore_error']
+ if $I0 goto L1
+ L2:
+ die "test fails"
+ L1:
+.end
+
+.sub 'runtests' :multi(ResizableStringArray,Hash)
+ .param pmc array
+ .param pmc hash
+ .tailcall runtests(array :flat, hash :flat :named)
+.end
+
=back
=head1 AUTHOR
Modified: branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir
==============================================================================
--- branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/runtime/parrot/library/parrotlib.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,8 +19,6 @@
=cut
-.loadlib 'os'
-
.sub __onload :load
.local pmc paths
.local pmc includes
@@ -133,6 +131,7 @@
.local pmc os
.local string name
+ $P0 = loadlib 'os'
os = new ['OS']
name = request
@@ -202,6 +201,7 @@
path = $P0
$S0 = concat path, name
+ $P0 = loadlib 'os'
$P0 = new ['OS']
push_eh FILE_NOT_FOUND
# OS.stat throws on file not found
Modified: branches/gsoc_instrument/src/dynoplibs/Rules.in
==============================================================================
--- branches/gsoc_instrument/src/dynoplibs/Rules.in Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/dynoplibs/Rules.in Sun Jun 6 16:09:33 2010 (r47429)
@@ -65,7 +65,7 @@
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
+ $(OPS2C) --dynamic src/dynoplibs/trans.ops --quiet
#########################
@@ -80,7 +80,7 @@
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
+ $(OPS2C) --dynamic src/dynoplibs/bit.ops --quiet
#########################
@@ -95,7 +95,7 @@
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
+ $(OPS2C) --dynamic src/dynoplibs/debug.ops --quiet
#########################
@@ -110,7 +110,7 @@
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
+ $(OPS2C) --dynamic src/dynoplibs/sys.ops --quiet
#########################
@@ -125,5 +125,5 @@
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
+ $(OPS2C) --dynamic src/dynoplibs/io.ops --quiet
Modified: branches/gsoc_instrument/src/dynoplibs/io.ops
==============================================================================
--- branches/gsoc_instrument/src/dynoplibs/io.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/dynoplibs/io.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -297,35 +297,6 @@
$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)
Modified: branches/gsoc_instrument/src/exceptions.c
==============================================================================
--- branches/gsoc_instrument/src/exceptions.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/exceptions.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -206,7 +206,13 @@
{
ASSERT_ARGS(Parrot_ex_throw_from_op)
opcode_t *address;
- PMC * const handler = Parrot_cx_find_handler_local(interp, exception);
+ PMC *handler;
+
+ /* Note the thrower. */
+ VTABLE_set_attr_str(interp, exception, CONST_STRING(interp, "thrower"), CURRENT_CONTEXT(interp));
+
+ /* Locate the handler, if there is one. */
+ handler = Parrot_cx_find_handler_local(interp, exception);
if (PMC_IS_NULL(handler)) {
STRING * const message = VTABLE_get_string(interp, exception);
const INTVAL severity = VTABLE_get_integer_keyed_str(interp, exception, CONST_STRING(interp, "severity"));
@@ -354,10 +360,8 @@
}
/* Note the thrower.
- * XXX TT #596 - pass in current context instead when we have context PMCs. */
- /* Don't split line. It will break CONST_STRING handling */
- VTABLE_set_attr_str(interp, exception, CONST_STRING(interp, "thrower"), Parrot_pcc_get_continuation(interp, CURRENT_CONTEXT(interp)));
-
+ * Don't split line. It will break CONST_STRING handling. */
+ VTABLE_set_attr_str(interp, exception, CONST_STRING(interp, "thrower"), CURRENT_CONTEXT(interp));
/* it's a C exception handler */
if (PObj_get_FLAGS(handler) & SUB_FLAG_C_HANDLER) {
Modified: branches/gsoc_instrument/src/interp/inter_misc.c
==============================================================================
--- branches/gsoc_instrument/src/interp/inter_misc.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/interp/inter_misc.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -165,7 +165,7 @@
Parrot_compile_file(PARROT_INTERP, ARGIN(const char *fullname), ARGOUT(STRING **error))
{
ASSERT_ARGS(Parrot_compile_file)
- return IMCC_compile_file_s(interp, fullname, error);
+ return imcc_compile_file(interp, fullname, error);
}
/*
Modified: branches/gsoc_instrument/src/ops/bit.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/bit.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/bit.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -32,6 +32,9 @@
The variant with an appended B<s> like B<bands> work on strings.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=over 4
=cut
Modified: branches/gsoc_instrument/src/ops/cmp.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/cmp.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/cmp.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -15,6 +15,9 @@
Some of these operations affect control flow directly; others
do not.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=cut
###############################################################################
Modified: branches/gsoc_instrument/src/ops/core.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/core.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/core.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -26,6 +26,9 @@
Core operations are primarily flow control and interpreter
introspection.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=cut
# ' for emacs
@@ -379,6 +382,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, NULL);
interp->current_cont = NEED_CONTINUATION;
@@ -393,6 +398,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, NULL);
interp->current_cont = $2;
@@ -819,7 +826,8 @@
opcode_t *dest;
opcode_t * const ret = expr NEXT();
PMC * const resume = pmc_new(interp, enum_class_Continuation);
- PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit, $1, NULL);
+ PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,
+ CONTROL_EXIT, NULL);
VTABLE_set_pointer(interp, resume, ret);
@@ -1103,7 +1111,7 @@
op sweep(inconst INT) {
if ($1)
- Parrot_gc_mark_and_sweep(interp, 0);
+ Parrot_gc_mark_and_sweep(interp, GC_trace_normal_FLAG);
else
if (Parrot_gc_impatient_pmcs(interp))
Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);
Modified: branches/gsoc_instrument/src/ops/core_ops.c
==============================================================================
--- branches/gsoc_instrument/src/ops/core_ops.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/core_ops.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -5,7 +5,8 @@
* This file is generated automatically from 'src/ops/core.ops' (and possibly other
* .ops files). by ops2c.nqp.
*
- * Any changes made here will be lost!
+ * Any changes made here will be lost! To regenerate this file after making
+ * changes to any ops, use the bootstap-ops makefile target.
*
*/
@@ -61,13 +62,14 @@
-INTVAL core_numops = 1081;
+INTVAL core_numops = 1084;
/*
** Op Function Table:
*/
-static op_func_t core_op_func_table[1081] = { Parrot_end, /* 0 */
+static op_func_t core_op_func_table[1084] = {
+ Parrot_end, /* 0 */
Parrot_noop, /* 1 */
Parrot_check_events, /* 2 */
Parrot_check_events__, /* 3 */
@@ -432,721 +434,724 @@
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 */
+ Parrot_getstdin_p, /* 365 */
+ Parrot_getstdout_p, /* 366 */
+ Parrot_getstderr_p, /* 367 */
+ Parrot_abs_i, /* 368 */
+ Parrot_abs_n, /* 369 */
+ Parrot_abs_i_i, /* 370 */
+ Parrot_abs_n_n, /* 371 */
+ Parrot_abs_p, /* 372 */
+ Parrot_abs_p_p, /* 373 */
+ Parrot_add_i_i, /* 374 */
+ Parrot_add_i_ic, /* 375 */
+ Parrot_add_n_n, /* 376 */
+ Parrot_add_n_nc, /* 377 */
+ Parrot_add_p_p, /* 378 */
+ Parrot_add_p_i, /* 379 */
+ Parrot_add_p_ic, /* 380 */
+ Parrot_add_p_n, /* 381 */
+ Parrot_add_p_nc, /* 382 */
+ Parrot_add_i_i_i, /* 383 */
+ Parrot_add_i_ic_i, /* 384 */
+ Parrot_add_i_i_ic, /* 385 */
+ Parrot_add_n_n_n, /* 386 */
+ Parrot_add_n_nc_n, /* 387 */
+ Parrot_add_n_n_nc, /* 388 */
+ Parrot_add_p_p_p, /* 389 */
+ Parrot_add_p_p_i, /* 390 */
+ Parrot_add_p_p_ic, /* 391 */
+ Parrot_add_p_p_n, /* 392 */
+ Parrot_add_p_p_nc, /* 393 */
+ Parrot_dec_i, /* 394 */
+ Parrot_dec_n, /* 395 */
+ Parrot_dec_p, /* 396 */
+ Parrot_div_i_i, /* 397 */
+ Parrot_div_i_ic, /* 398 */
+ Parrot_div_n_n, /* 399 */
+ Parrot_div_n_nc, /* 400 */
+ Parrot_div_p_p, /* 401 */
+ Parrot_div_p_i, /* 402 */
+ Parrot_div_p_ic, /* 403 */
+ Parrot_div_p_n, /* 404 */
+ Parrot_div_p_nc, /* 405 */
+ Parrot_div_i_i_i, /* 406 */
+ Parrot_div_i_ic_i, /* 407 */
+ Parrot_div_i_i_ic, /* 408 */
+ Parrot_div_i_ic_ic, /* 409 */
+ Parrot_div_n_n_n, /* 410 */
+ Parrot_div_n_nc_n, /* 411 */
+ Parrot_div_n_n_nc, /* 412 */
+ Parrot_div_n_nc_nc, /* 413 */
+ Parrot_div_p_p_p, /* 414 */
+ Parrot_div_p_p_i, /* 415 */
+ Parrot_div_p_p_ic, /* 416 */
+ Parrot_div_p_p_n, /* 417 */
+ Parrot_div_p_p_nc, /* 418 */
+ Parrot_fdiv_i_i, /* 419 */
+ Parrot_fdiv_i_ic, /* 420 */
+ Parrot_fdiv_n_n, /* 421 */
+ Parrot_fdiv_n_nc, /* 422 */
+ Parrot_fdiv_p_p, /* 423 */
+ Parrot_fdiv_p_i, /* 424 */
+ Parrot_fdiv_p_ic, /* 425 */
+ Parrot_fdiv_p_n, /* 426 */
+ Parrot_fdiv_p_nc, /* 427 */
+ Parrot_fdiv_i_i_i, /* 428 */
+ Parrot_fdiv_i_ic_i, /* 429 */
+ Parrot_fdiv_i_i_ic, /* 430 */
+ Parrot_fdiv_n_n_n, /* 431 */
+ Parrot_fdiv_n_nc_n, /* 432 */
+ Parrot_fdiv_n_n_nc, /* 433 */
+ Parrot_fdiv_p_p_p, /* 434 */
+ Parrot_fdiv_p_p_i, /* 435 */
+ Parrot_fdiv_p_p_ic, /* 436 */
+ Parrot_fdiv_p_p_n, /* 437 */
+ Parrot_fdiv_p_p_nc, /* 438 */
+ Parrot_ceil_n, /* 439 */
+ Parrot_ceil_i_n, /* 440 */
+ Parrot_ceil_n_n, /* 441 */
+ Parrot_floor_n, /* 442 */
+ Parrot_floor_i_n, /* 443 */
+ Parrot_floor_n_n, /* 444 */
+ Parrot_inc_i, /* 445 */
+ Parrot_inc_n, /* 446 */
+ Parrot_inc_p, /* 447 */
+ Parrot_mod_i_i, /* 448 */
+ Parrot_mod_i_ic, /* 449 */
+ Parrot_mod_n_n, /* 450 */
+ Parrot_mod_n_nc, /* 451 */
+ Parrot_mod_p_p, /* 452 */
+ Parrot_mod_p_i, /* 453 */
+ Parrot_mod_p_ic, /* 454 */
+ Parrot_mod_p_n, /* 455 */
+ Parrot_mod_p_nc, /* 456 */
+ Parrot_mod_i_i_i, /* 457 */
+ Parrot_mod_i_ic_i, /* 458 */
+ Parrot_mod_i_i_ic, /* 459 */
+ Parrot_mod_n_n_n, /* 460 */
+ Parrot_mod_n_nc_n, /* 461 */
+ Parrot_mod_n_n_nc, /* 462 */
+ Parrot_mod_p_p_p, /* 463 */
+ Parrot_mod_p_p_i, /* 464 */
+ Parrot_mod_p_p_ic, /* 465 */
+ Parrot_mod_p_p_n, /* 466 */
+ Parrot_mod_p_p_nc, /* 467 */
+ Parrot_mul_i_i, /* 468 */
+ Parrot_mul_i_ic, /* 469 */
+ Parrot_mul_n_n, /* 470 */
+ Parrot_mul_n_nc, /* 471 */
+ Parrot_mul_p_p, /* 472 */
+ Parrot_mul_p_i, /* 473 */
+ Parrot_mul_p_ic, /* 474 */
+ Parrot_mul_p_n, /* 475 */
+ Parrot_mul_p_nc, /* 476 */
+ Parrot_mul_i_i_i, /* 477 */
+ Parrot_mul_i_ic_i, /* 478 */
+ Parrot_mul_i_i_ic, /* 479 */
+ Parrot_mul_n_n_n, /* 480 */
+ Parrot_mul_n_nc_n, /* 481 */
+ Parrot_mul_n_n_nc, /* 482 */
+ Parrot_mul_p_p_p, /* 483 */
+ Parrot_mul_p_p_i, /* 484 */
+ Parrot_mul_p_p_ic, /* 485 */
+ Parrot_mul_p_p_n, /* 486 */
+ Parrot_mul_p_p_nc, /* 487 */
+ Parrot_neg_i, /* 488 */
+ Parrot_neg_n, /* 489 */
+ Parrot_neg_p, /* 490 */
+ Parrot_neg_i_i, /* 491 */
+ Parrot_neg_n_n, /* 492 */
+ Parrot_neg_p_p, /* 493 */
+ Parrot_sub_i_i, /* 494 */
+ Parrot_sub_i_ic, /* 495 */
+ Parrot_sub_n_n, /* 496 */
+ Parrot_sub_n_nc, /* 497 */
+ Parrot_sub_p_p, /* 498 */
+ Parrot_sub_p_i, /* 499 */
+ Parrot_sub_p_ic, /* 500 */
+ Parrot_sub_p_n, /* 501 */
+ Parrot_sub_p_nc, /* 502 */
+ Parrot_sub_i_i_i, /* 503 */
+ Parrot_sub_i_ic_i, /* 504 */
+ Parrot_sub_i_i_ic, /* 505 */
+ Parrot_sub_n_n_n, /* 506 */
+ Parrot_sub_n_nc_n, /* 507 */
+ Parrot_sub_n_n_nc, /* 508 */
+ Parrot_sub_p_p_p, /* 509 */
+ Parrot_sub_p_p_i, /* 510 */
+ Parrot_sub_p_p_ic, /* 511 */
+ Parrot_sub_p_p_n, /* 512 */
+ Parrot_sub_p_p_nc, /* 513 */
+ Parrot_sqrt_n_n, /* 514 */
+ Parrot_callmethodcc_p_s, /* 515 */
+ Parrot_callmethodcc_p_sc, /* 516 */
+ Parrot_callmethodcc_p_p, /* 517 */
+ Parrot_callmethod_p_s_p, /* 518 */
+ Parrot_callmethod_p_sc_p, /* 519 */
+ Parrot_callmethod_p_p_p, /* 520 */
+ Parrot_tailcallmethod_p_s, /* 521 */
+ Parrot_tailcallmethod_p_sc, /* 522 */
+ Parrot_tailcallmethod_p_p, /* 523 */
+ Parrot_addmethod_p_s_p, /* 524 */
+ Parrot_addmethod_p_sc_p, /* 525 */
+ Parrot_can_i_p_s, /* 526 */
+ Parrot_can_i_p_sc, /* 527 */
+ Parrot_does_i_p_s, /* 528 */
+ Parrot_does_i_p_sc, /* 529 */
+ Parrot_does_i_p_p, /* 530 */
+ Parrot_does_i_p_pc, /* 531 */
+ Parrot_isa_i_p_s, /* 532 */
+ Parrot_isa_i_p_sc, /* 533 */
+ Parrot_isa_i_p_p, /* 534 */
+ Parrot_isa_i_p_pc, /* 535 */
+ Parrot_newclass_p_s, /* 536 */
+ Parrot_newclass_p_sc, /* 537 */
+ Parrot_newclass_p_p, /* 538 */
+ Parrot_newclass_p_pc, /* 539 */
+ Parrot_subclass_p_p, /* 540 */
+ Parrot_subclass_p_pc, /* 541 */
+ Parrot_subclass_p_p_s, /* 542 */
+ Parrot_subclass_p_pc_s, /* 543 */
+ Parrot_subclass_p_p_sc, /* 544 */
+ Parrot_subclass_p_pc_sc, /* 545 */
+ Parrot_subclass_p_p_p, /* 546 */
+ Parrot_subclass_p_pc_p, /* 547 */
+ Parrot_subclass_p_p_pc, /* 548 */
+ Parrot_subclass_p_pc_pc, /* 549 */
+ Parrot_subclass_p_s, /* 550 */
+ Parrot_subclass_p_sc, /* 551 */
+ Parrot_subclass_p_s_s, /* 552 */
+ Parrot_subclass_p_sc_s, /* 553 */
+ Parrot_subclass_p_s_sc, /* 554 */
+ Parrot_subclass_p_sc_sc, /* 555 */
+ Parrot_subclass_p_s_p, /* 556 */
+ Parrot_subclass_p_sc_p, /* 557 */
+ Parrot_subclass_p_s_pc, /* 558 */
+ Parrot_subclass_p_sc_pc, /* 559 */
+ Parrot_get_class_p_s, /* 560 */
+ Parrot_get_class_p_sc, /* 561 */
+ Parrot_get_class_p_p, /* 562 */
+ Parrot_get_class_p_pc, /* 563 */
+ Parrot_class_p_p, /* 564 */
+ Parrot_addparent_p_p, /* 565 */
+ Parrot_removeparent_p_p, /* 566 */
+ Parrot_addrole_p_p, /* 567 */
+ Parrot_addattribute_p_s, /* 568 */
+ Parrot_addattribute_p_sc, /* 569 */
+ Parrot_removeattribute_p_s, /* 570 */
+ Parrot_removeattribute_p_sc, /* 571 */
+ Parrot_getattribute_p_p_s, /* 572 */
+ Parrot_getattribute_p_p_sc, /* 573 */
+ Parrot_getattribute_p_p_p_s, /* 574 */
+ Parrot_getattribute_p_p_pc_s, /* 575 */
+ Parrot_getattribute_p_p_p_sc, /* 576 */
+ Parrot_getattribute_p_p_pc_sc, /* 577 */
+ Parrot_setattribute_p_s_p, /* 578 */
+ Parrot_setattribute_p_sc_p, /* 579 */
+ Parrot_setattribute_p_p_s_p, /* 580 */
+ Parrot_setattribute_p_pc_s_p, /* 581 */
+ Parrot_setattribute_p_p_sc_p, /* 582 */
+ Parrot_setattribute_p_pc_sc_p, /* 583 */
+ Parrot_inspect_p_p, /* 584 */
+ Parrot_inspect_p_pc, /* 585 */
+ Parrot_inspect_p_p_s, /* 586 */
+ Parrot_inspect_p_pc_s, /* 587 */
+ Parrot_inspect_p_p_sc, /* 588 */
+ Parrot_inspect_p_pc_sc, /* 589 */
+ Parrot_new_p_s, /* 590 */
+ Parrot_new_p_sc, /* 591 */
+ Parrot_new_p_s_p, /* 592 */
+ Parrot_new_p_sc_p, /* 593 */
+ Parrot_new_p_s_pc, /* 594 */
+ Parrot_new_p_sc_pc, /* 595 */
+ Parrot_new_p_p, /* 596 */
+ Parrot_new_p_pc, /* 597 */
+ Parrot_new_p_p_p, /* 598 */
+ Parrot_new_p_pc_p, /* 599 */
+ Parrot_new_p_p_pc, /* 600 */
+ Parrot_new_p_pc_pc, /* 601 */
+ Parrot_root_new_p_p, /* 602 */
+ Parrot_root_new_p_pc, /* 603 */
+ Parrot_root_new_p_p_p, /* 604 */
+ Parrot_root_new_p_pc_p, /* 605 */
+ Parrot_root_new_p_p_pc, /* 606 */
+ Parrot_root_new_p_pc_pc, /* 607 */
+ Parrot_typeof_s_p, /* 608 */
+ Parrot_typeof_p_p, /* 609 */
+ Parrot_get_repr_s_p, /* 610 */
+ Parrot_find_method_p_p_s, /* 611 */
+ Parrot_find_method_p_p_sc, /* 612 */
+ Parrot_defined_i_p, /* 613 */
+ Parrot_defined_i_p_ki, /* 614 */
+ Parrot_defined_i_p_kic, /* 615 */
+ Parrot_defined_i_p_k, /* 616 */
+ Parrot_defined_i_p_kc, /* 617 */
+ Parrot_exists_i_p_ki, /* 618 */
+ Parrot_exists_i_p_kic, /* 619 */
+ Parrot_exists_i_p_k, /* 620 */
+ Parrot_exists_i_p_kc, /* 621 */
+ Parrot_delete_p_k, /* 622 */
+ Parrot_delete_p_kc, /* 623 */
+ Parrot_delete_p_ki, /* 624 */
+ Parrot_delete_p_kic, /* 625 */
+ Parrot_elements_i_p, /* 626 */
+ Parrot_push_p_i, /* 627 */
+ Parrot_push_p_ic, /* 628 */
+ Parrot_push_p_n, /* 629 */
+ Parrot_push_p_nc, /* 630 */
+ Parrot_push_p_s, /* 631 */
+ Parrot_push_p_sc, /* 632 */
+ Parrot_push_p_p, /* 633 */
+ Parrot_pop_i_p, /* 634 */
+ Parrot_pop_n_p, /* 635 */
+ Parrot_pop_s_p, /* 636 */
+ Parrot_pop_p_p, /* 637 */
+ Parrot_unshift_p_i, /* 638 */
+ Parrot_unshift_p_ic, /* 639 */
+ Parrot_unshift_p_n, /* 640 */
+ Parrot_unshift_p_nc, /* 641 */
+ Parrot_unshift_p_s, /* 642 */
+ Parrot_unshift_p_sc, /* 643 */
+ Parrot_unshift_p_p, /* 644 */
+ Parrot_shift_i_p, /* 645 */
+ Parrot_shift_n_p, /* 646 */
+ Parrot_shift_s_p, /* 647 */
+ Parrot_shift_p_p, /* 648 */
+ Parrot_splice_p_p_i_i, /* 649 */
+ Parrot_splice_p_p_ic_i, /* 650 */
+ Parrot_splice_p_p_i_ic, /* 651 */
+ Parrot_splice_p_p_ic_ic, /* 652 */
+ Parrot_setprop_p_s_p, /* 653 */
+ Parrot_setprop_p_sc_p, /* 654 */
+ Parrot_getprop_p_s_p, /* 655 */
+ Parrot_getprop_p_sc_p, /* 656 */
+ Parrot_delprop_p_s, /* 657 */
+ Parrot_delprop_p_sc, /* 658 */
+ Parrot_prophash_p_p, /* 659 */
+ Parrot_freeze_s_p, /* 660 */
+ Parrot_thaw_p_s, /* 661 */
+ Parrot_thaw_p_sc, /* 662 */
+ Parrot_add_multi_s_s_p, /* 663 */
+ Parrot_add_multi_sc_s_p, /* 664 */
+ Parrot_add_multi_s_sc_p, /* 665 */
+ Parrot_add_multi_sc_sc_p, /* 666 */
+ Parrot_find_multi_p_s_s, /* 667 */
+ Parrot_find_multi_p_sc_s, /* 668 */
+ Parrot_find_multi_p_s_sc, /* 669 */
+ Parrot_find_multi_p_sc_sc, /* 670 */
+ Parrot_register_p, /* 671 */
+ Parrot_unregister_p, /* 672 */
+ Parrot_box_p_i, /* 673 */
+ Parrot_box_p_ic, /* 674 */
+ Parrot_box_p_n, /* 675 */
+ Parrot_box_p_nc, /* 676 */
+ Parrot_box_p_s, /* 677 */
+ Parrot_box_p_sc, /* 678 */
+ Parrot_iter_p_p, /* 679 */
+ Parrot_morph_p_p, /* 680 */
+ Parrot_morph_p_pc, /* 681 */
+ Parrot_clone_s_s, /* 682 */
+ Parrot_clone_s_sc, /* 683 */
+ Parrot_set_i_i, /* 684 */
+ Parrot_set_i_ic, /* 685 */
+ Parrot_set_i_n, /* 686 */
+ Parrot_set_i_nc, /* 687 */
+ Parrot_set_i_s, /* 688 */
+ Parrot_set_i_sc, /* 689 */
+ Parrot_set_n_n, /* 690 */
+ Parrot_set_n_nc, /* 691 */
+ Parrot_set_n_i, /* 692 */
+ Parrot_set_n_ic, /* 693 */
+ Parrot_set_n_s, /* 694 */
+ Parrot_set_n_sc, /* 695 */
+ Parrot_set_n_p, /* 696 */
+ Parrot_set_s_p, /* 697 */
+ Parrot_set_s_s, /* 698 */
+ Parrot_set_s_sc, /* 699 */
+ Parrot_set_s_i, /* 700 */
+ Parrot_set_s_ic, /* 701 */
+ Parrot_set_s_n, /* 702 */
+ Parrot_set_s_nc, /* 703 */
+ Parrot_set_p_pc, /* 704 */
+ Parrot_set_p_p, /* 705 */
+ Parrot_set_p_i, /* 706 */
+ Parrot_set_p_ic, /* 707 */
+ Parrot_set_p_n, /* 708 */
+ Parrot_set_p_nc, /* 709 */
+ Parrot_set_p_s, /* 710 */
+ Parrot_set_p_sc, /* 711 */
+ Parrot_set_i_p, /* 712 */
+ Parrot_assign_p_p, /* 713 */
+ Parrot_assign_p_i, /* 714 */
+ Parrot_assign_p_ic, /* 715 */
+ Parrot_assign_p_n, /* 716 */
+ Parrot_assign_p_nc, /* 717 */
+ Parrot_assign_p_s, /* 718 */
+ Parrot_assign_p_sc, /* 719 */
+ Parrot_assign_s_s, /* 720 */
+ Parrot_assign_s_sc, /* 721 */
+ Parrot_setref_p_p, /* 722 */
+ Parrot_deref_p_p, /* 723 */
+ Parrot_set_p_ki_i, /* 724 */
+ Parrot_set_p_kic_i, /* 725 */
+ Parrot_set_p_ki_ic, /* 726 */
+ Parrot_set_p_kic_ic, /* 727 */
+ Parrot_set_p_ki_n, /* 728 */
+ Parrot_set_p_kic_n, /* 729 */
+ Parrot_set_p_ki_nc, /* 730 */
+ Parrot_set_p_kic_nc, /* 731 */
+ Parrot_set_p_ki_s, /* 732 */
+ Parrot_set_p_kic_s, /* 733 */
+ Parrot_set_p_ki_sc, /* 734 */
+ Parrot_set_p_kic_sc, /* 735 */
+ Parrot_set_p_ki_p, /* 736 */
+ Parrot_set_p_kic_p, /* 737 */
+ Parrot_set_i_p_ki, /* 738 */
+ Parrot_set_i_p_kic, /* 739 */
+ Parrot_set_n_p_ki, /* 740 */
+ Parrot_set_n_p_kic, /* 741 */
+ Parrot_set_s_p_ki, /* 742 */
+ Parrot_set_s_p_kic, /* 743 */
+ Parrot_set_p_p_ki, /* 744 */
+ Parrot_set_p_p_kic, /* 745 */
+ Parrot_set_p_k_i, /* 746 */
+ Parrot_set_p_kc_i, /* 747 */
+ Parrot_set_p_k_ic, /* 748 */
+ Parrot_set_p_kc_ic, /* 749 */
+ Parrot_set_p_k_n, /* 750 */
+ Parrot_set_p_kc_n, /* 751 */
+ Parrot_set_p_k_nc, /* 752 */
+ Parrot_set_p_kc_nc, /* 753 */
+ Parrot_set_p_k_s, /* 754 */
+ Parrot_set_p_kc_s, /* 755 */
+ Parrot_set_p_k_sc, /* 756 */
+ Parrot_set_p_kc_sc, /* 757 */
+ Parrot_set_p_k_p, /* 758 */
+ Parrot_set_p_kc_p, /* 759 */
+ Parrot_set_i_p_k, /* 760 */
+ Parrot_set_i_p_kc, /* 761 */
+ Parrot_set_n_p_k, /* 762 */
+ Parrot_set_n_p_kc, /* 763 */
+ Parrot_set_s_p_k, /* 764 */
+ Parrot_set_s_p_kc, /* 765 */
+ Parrot_set_p_p_k, /* 766 */
+ Parrot_set_p_p_kc, /* 767 */
+ Parrot_clone_p_p, /* 768 */
+ Parrot_clone_p_p_p, /* 769 */
+ Parrot_clone_p_p_pc, /* 770 */
+ Parrot_copy_p_p, /* 771 */
+ Parrot_null_s, /* 772 */
+ Parrot_null_i, /* 773 */
+ Parrot_null_p, /* 774 */
+ Parrot_null_n, /* 775 */
+ Parrot_ord_i_s, /* 776 */
+ Parrot_ord_i_sc, /* 777 */
+ Parrot_ord_i_s_i, /* 778 */
+ Parrot_ord_i_sc_i, /* 779 */
+ Parrot_ord_i_s_ic, /* 780 */
+ Parrot_ord_i_sc_ic, /* 781 */
+ Parrot_chr_s_i, /* 782 */
+ Parrot_chr_s_ic, /* 783 */
+ Parrot_chopn_s_s_i, /* 784 */
+ Parrot_chopn_s_sc_i, /* 785 */
+ Parrot_chopn_s_s_ic, /* 786 */
+ Parrot_chopn_s_sc_ic, /* 787 */
+ Parrot_concat_s_s, /* 788 */
+ Parrot_concat_s_sc, /* 789 */
+ Parrot_concat_p_p, /* 790 */
+ Parrot_concat_p_s, /* 791 */
+ Parrot_concat_p_sc, /* 792 */
+ Parrot_concat_s_s_s, /* 793 */
+ Parrot_concat_s_sc_s, /* 794 */
+ Parrot_concat_s_s_sc, /* 795 */
+ Parrot_concat_p_p_s, /* 796 */
+ Parrot_concat_p_p_sc, /* 797 */
+ Parrot_concat_p_p_p, /* 798 */
+ Parrot_repeat_s_s_i, /* 799 */
+ Parrot_repeat_s_sc_i, /* 800 */
+ Parrot_repeat_s_s_ic, /* 801 */
+ Parrot_repeat_s_sc_ic, /* 802 */
+ Parrot_repeat_p_p_i, /* 803 */
+ Parrot_repeat_p_p_ic, /* 804 */
+ Parrot_repeat_p_p_p, /* 805 */
+ Parrot_repeat_p_i, /* 806 */
+ Parrot_repeat_p_ic, /* 807 */
+ Parrot_repeat_p_p, /* 808 */
+ Parrot_length_i_s, /* 809 */
+ Parrot_length_i_sc, /* 810 */
+ Parrot_bytelength_i_s, /* 811 */
+ Parrot_bytelength_i_sc, /* 812 */
+ Parrot_pin_s, /* 813 */
+ Parrot_unpin_s, /* 814 */
+ Parrot_substr_s_s_i, /* 815 */
+ Parrot_substr_s_sc_i, /* 816 */
+ Parrot_substr_s_s_ic, /* 817 */
+ Parrot_substr_s_sc_ic, /* 818 */
+ Parrot_substr_s_s_i_i, /* 819 */
+ Parrot_substr_s_sc_i_i, /* 820 */
+ Parrot_substr_s_s_ic_i, /* 821 */
+ Parrot_substr_s_sc_ic_i, /* 822 */
+ Parrot_substr_s_s_i_ic, /* 823 */
+ Parrot_substr_s_sc_i_ic, /* 824 */
+ Parrot_substr_s_s_ic_ic, /* 825 */
+ Parrot_substr_s_sc_ic_ic, /* 826 */
+ Parrot_substr_s_p_i_i, /* 827 */
+ Parrot_substr_s_p_ic_i, /* 828 */
+ Parrot_substr_s_p_i_ic, /* 829 */
+ Parrot_substr_s_p_ic_ic, /* 830 */
+ Parrot_replace_s_s_i_i_s, /* 831 */
+ Parrot_replace_s_sc_i_i_s, /* 832 */
+ Parrot_replace_s_s_ic_i_s, /* 833 */
+ Parrot_replace_s_sc_ic_i_s, /* 834 */
+ Parrot_replace_s_s_i_ic_s, /* 835 */
+ Parrot_replace_s_sc_i_ic_s, /* 836 */
+ Parrot_replace_s_s_ic_ic_s, /* 837 */
+ Parrot_replace_s_sc_ic_ic_s, /* 838 */
+ Parrot_replace_s_s_i_i_sc, /* 839 */
+ Parrot_replace_s_sc_i_i_sc, /* 840 */
+ Parrot_replace_s_s_ic_i_sc, /* 841 */
+ Parrot_replace_s_sc_ic_i_sc, /* 842 */
+ Parrot_replace_s_s_i_ic_sc, /* 843 */
+ Parrot_replace_s_sc_i_ic_sc, /* 844 */
+ Parrot_replace_s_s_ic_ic_sc, /* 845 */
+ Parrot_replace_s_sc_ic_ic_sc, /* 846 */
+ Parrot_index_i_s_s, /* 847 */
+ Parrot_index_i_sc_s, /* 848 */
+ Parrot_index_i_s_sc, /* 849 */
+ Parrot_index_i_sc_sc, /* 850 */
+ Parrot_index_i_s_s_i, /* 851 */
+ Parrot_index_i_sc_s_i, /* 852 */
+ Parrot_index_i_s_sc_i, /* 853 */
+ Parrot_index_i_sc_sc_i, /* 854 */
+ Parrot_index_i_s_s_ic, /* 855 */
+ Parrot_index_i_sc_s_ic, /* 856 */
+ Parrot_index_i_s_sc_ic, /* 857 */
+ Parrot_index_i_sc_sc_ic, /* 858 */
+ Parrot_sprintf_s_s_p, /* 859 */
+ Parrot_sprintf_s_sc_p, /* 860 */
+ Parrot_sprintf_p_p_p, /* 861 */
+ Parrot_new_s, /* 862 */
+ Parrot_new_s_i, /* 863 */
+ Parrot_new_s_ic, /* 864 */
+ Parrot_stringinfo_i_s_i, /* 865 */
+ Parrot_stringinfo_i_sc_i, /* 866 */
+ Parrot_stringinfo_i_s_ic, /* 867 */
+ Parrot_stringinfo_i_sc_ic, /* 868 */
+ Parrot_upcase_s_s, /* 869 */
+ Parrot_upcase_s_sc, /* 870 */
+ Parrot_downcase_s_s, /* 871 */
+ Parrot_downcase_s_sc, /* 872 */
+ Parrot_titlecase_s_s, /* 873 */
+ Parrot_titlecase_s_sc, /* 874 */
+ Parrot_join_s_s_p, /* 875 */
+ Parrot_join_s_sc_p, /* 876 */
+ Parrot_split_p_s_s, /* 877 */
+ Parrot_split_p_sc_s, /* 878 */
+ Parrot_split_p_s_sc, /* 879 */
+ Parrot_split_p_sc_sc, /* 880 */
+ Parrot_charset_i_s, /* 881 */
+ Parrot_charset_i_sc, /* 882 */
+ Parrot_charsetname_s_i, /* 883 */
+ Parrot_charsetname_s_ic, /* 884 */
+ Parrot_find_charset_i_s, /* 885 */
+ Parrot_find_charset_i_sc, /* 886 */
+ Parrot_trans_charset_s_s_i, /* 887 */
+ Parrot_trans_charset_s_sc_i, /* 888 */
+ Parrot_trans_charset_s_s_ic, /* 889 */
+ Parrot_trans_charset_s_sc_ic, /* 890 */
+ Parrot_encoding_i_s, /* 891 */
+ Parrot_encoding_i_sc, /* 892 */
+ Parrot_encodingname_s_i, /* 893 */
+ Parrot_encodingname_s_ic, /* 894 */
+ Parrot_find_encoding_i_s, /* 895 */
+ Parrot_find_encoding_i_sc, /* 896 */
+ Parrot_trans_encoding_s_s_i, /* 897 */
+ Parrot_trans_encoding_s_sc_i, /* 898 */
+ Parrot_trans_encoding_s_s_ic, /* 899 */
+ Parrot_trans_encoding_s_sc_ic, /* 900 */
+ Parrot_is_cclass_i_i_s_i, /* 901 */
+ Parrot_is_cclass_i_ic_s_i, /* 902 */
+ Parrot_is_cclass_i_i_sc_i, /* 903 */
+ Parrot_is_cclass_i_ic_sc_i, /* 904 */
+ Parrot_is_cclass_i_i_s_ic, /* 905 */
+ Parrot_is_cclass_i_ic_s_ic, /* 906 */
+ Parrot_is_cclass_i_i_sc_ic, /* 907 */
+ Parrot_is_cclass_i_ic_sc_ic, /* 908 */
+ Parrot_find_cclass_i_i_s_i_i, /* 909 */
+ Parrot_find_cclass_i_ic_s_i_i, /* 910 */
+ Parrot_find_cclass_i_i_sc_i_i, /* 911 */
+ Parrot_find_cclass_i_ic_sc_i_i, /* 912 */
+ Parrot_find_cclass_i_i_s_ic_i, /* 913 */
+ Parrot_find_cclass_i_ic_s_ic_i, /* 914 */
+ Parrot_find_cclass_i_i_sc_ic_i, /* 915 */
+ Parrot_find_cclass_i_ic_sc_ic_i, /* 916 */
+ Parrot_find_cclass_i_i_s_i_ic, /* 917 */
+ Parrot_find_cclass_i_ic_s_i_ic, /* 918 */
+ Parrot_find_cclass_i_i_sc_i_ic, /* 919 */
+ Parrot_find_cclass_i_ic_sc_i_ic, /* 920 */
+ Parrot_find_cclass_i_i_s_ic_ic, /* 921 */
+ Parrot_find_cclass_i_ic_s_ic_ic, /* 922 */
+ Parrot_find_cclass_i_i_sc_ic_ic, /* 923 */
+ Parrot_find_cclass_i_ic_sc_ic_ic, /* 924 */
+ Parrot_find_not_cclass_i_i_s_i_i, /* 925 */
+ Parrot_find_not_cclass_i_ic_s_i_i, /* 926 */
+ Parrot_find_not_cclass_i_i_sc_i_i, /* 927 */
+ Parrot_find_not_cclass_i_ic_sc_i_i, /* 928 */
+ Parrot_find_not_cclass_i_i_s_ic_i, /* 929 */
+ Parrot_find_not_cclass_i_ic_s_ic_i, /* 930 */
+ Parrot_find_not_cclass_i_i_sc_ic_i, /* 931 */
+ Parrot_find_not_cclass_i_ic_sc_ic_i, /* 932 */
+ Parrot_find_not_cclass_i_i_s_i_ic, /* 933 */
+ Parrot_find_not_cclass_i_ic_s_i_ic, /* 934 */
+ Parrot_find_not_cclass_i_i_sc_i_ic, /* 935 */
+ Parrot_find_not_cclass_i_ic_sc_i_ic, /* 936 */
+ Parrot_find_not_cclass_i_i_s_ic_ic, /* 937 */
+ Parrot_find_not_cclass_i_ic_s_ic_ic, /* 938 */
+ Parrot_find_not_cclass_i_i_sc_ic_ic, /* 939 */
+ Parrot_find_not_cclass_i_ic_sc_ic_ic, /* 940 */
+ Parrot_escape_s_s, /* 941 */
+ Parrot_compose_s_s, /* 942 */
+ Parrot_compose_s_sc, /* 943 */
+ Parrot_spawnw_i_s, /* 944 */
+ Parrot_spawnw_i_sc, /* 945 */
+ Parrot_spawnw_i_p, /* 946 */
+ Parrot_err_i, /* 947 */
+ Parrot_err_s, /* 948 */
+ Parrot_err_s_i, /* 949 */
+ Parrot_err_s_ic, /* 950 */
+ Parrot_time_i, /* 951 */
+ Parrot_time_n, /* 952 */
+ Parrot_sleep_i, /* 953 */
+ Parrot_sleep_ic, /* 954 */
+ Parrot_sleep_n, /* 955 */
+ Parrot_sleep_nc, /* 956 */
+ Parrot_store_lex_s_p, /* 957 */
+ Parrot_store_lex_sc_p, /* 958 */
+ Parrot_store_dynamic_lex_s_p, /* 959 */
+ Parrot_store_dynamic_lex_sc_p, /* 960 */
+ Parrot_find_lex_p_s, /* 961 */
+ Parrot_find_lex_p_sc, /* 962 */
+ Parrot_find_dynamic_lex_p_s, /* 963 */
+ Parrot_find_dynamic_lex_p_sc, /* 964 */
+ Parrot_find_caller_lex_p_s, /* 965 */
+ Parrot_find_caller_lex_p_sc, /* 966 */
+ Parrot_get_namespace_p, /* 967 */
+ Parrot_get_namespace_p_p, /* 968 */
+ Parrot_get_namespace_p_pc, /* 969 */
+ Parrot_get_hll_namespace_p, /* 970 */
+ Parrot_get_hll_namespace_p_p, /* 971 */
+ Parrot_get_hll_namespace_p_pc, /* 972 */
+ Parrot_get_root_namespace_p, /* 973 */
+ Parrot_get_root_namespace_p_p, /* 974 */
+ Parrot_get_root_namespace_p_pc, /* 975 */
+ Parrot_get_global_p_s, /* 976 */
+ Parrot_get_global_p_sc, /* 977 */
+ Parrot_get_global_p_p_s, /* 978 */
+ Parrot_get_global_p_pc_s, /* 979 */
+ Parrot_get_global_p_p_sc, /* 980 */
+ Parrot_get_global_p_pc_sc, /* 981 */
+ Parrot_get_hll_global_p_s, /* 982 */
+ Parrot_get_hll_global_p_sc, /* 983 */
+ Parrot_get_hll_global_p_p_s, /* 984 */
+ Parrot_get_hll_global_p_pc_s, /* 985 */
+ Parrot_get_hll_global_p_p_sc, /* 986 */
+ Parrot_get_hll_global_p_pc_sc, /* 987 */
+ Parrot_get_root_global_p_s, /* 988 */
+ Parrot_get_root_global_p_sc, /* 989 */
+ Parrot_get_root_global_p_p_s, /* 990 */
+ Parrot_get_root_global_p_pc_s, /* 991 */
+ Parrot_get_root_global_p_p_sc, /* 992 */
+ Parrot_get_root_global_p_pc_sc, /* 993 */
+ Parrot_set_global_s_p, /* 994 */
+ Parrot_set_global_sc_p, /* 995 */
+ Parrot_set_global_p_s_p, /* 996 */
+ Parrot_set_global_pc_s_p, /* 997 */
+ Parrot_set_global_p_sc_p, /* 998 */
+ Parrot_set_global_pc_sc_p, /* 999 */
+ Parrot_set_hll_global_s_p, /* 1000 */
+ Parrot_set_hll_global_sc_p, /* 1001 */
+ Parrot_set_hll_global_p_s_p, /* 1002 */
+ Parrot_set_hll_global_pc_s_p, /* 1003 */
+ Parrot_set_hll_global_p_sc_p, /* 1004 */
+ Parrot_set_hll_global_pc_sc_p, /* 1005 */
+ Parrot_set_root_global_s_p, /* 1006 */
+ Parrot_set_root_global_sc_p, /* 1007 */
+ Parrot_set_root_global_p_s_p, /* 1008 */
+ Parrot_set_root_global_pc_s_p, /* 1009 */
+ Parrot_set_root_global_p_sc_p, /* 1010 */
+ Parrot_set_root_global_pc_sc_p, /* 1011 */
+ Parrot_find_name_p_s, /* 1012 */
+ Parrot_find_name_p_sc, /* 1013 */
+ Parrot_find_sub_not_null_p_s, /* 1014 */
+ Parrot_find_sub_not_null_p_sc, /* 1015 */
+ Parrot_trap, /* 1016 */
+ Parrot_set_label_p_ic, /* 1017 */
+ Parrot_get_label_i_p, /* 1018 */
+ Parrot_fetch_p_p_p_p, /* 1019 */
+ Parrot_fetch_p_pc_p_p, /* 1020 */
+ Parrot_fetch_p_p_pc_p, /* 1021 */
+ Parrot_fetch_p_pc_pc_p, /* 1022 */
+ Parrot_fetch_p_p_p_pc, /* 1023 */
+ Parrot_fetch_p_pc_p_pc, /* 1024 */
+ Parrot_fetch_p_p_pc_pc, /* 1025 */
+ Parrot_fetch_p_pc_pc_pc, /* 1026 */
+ Parrot_fetch_p_p_i_p, /* 1027 */
+ Parrot_fetch_p_pc_i_p, /* 1028 */
+ Parrot_fetch_p_p_ic_p, /* 1029 */
+ Parrot_fetch_p_pc_ic_p, /* 1030 */
+ Parrot_fetch_p_p_i_pc, /* 1031 */
+ Parrot_fetch_p_pc_i_pc, /* 1032 */
+ Parrot_fetch_p_p_ic_pc, /* 1033 */
+ Parrot_fetch_p_pc_ic_pc, /* 1034 */
+ Parrot_fetch_p_p_s_p, /* 1035 */
+ Parrot_fetch_p_pc_s_p, /* 1036 */
+ Parrot_fetch_p_p_sc_p, /* 1037 */
+ Parrot_fetch_p_pc_sc_p, /* 1038 */
+ Parrot_fetch_p_p_s_pc, /* 1039 */
+ Parrot_fetch_p_pc_s_pc, /* 1040 */
+ Parrot_fetch_p_p_sc_pc, /* 1041 */
+ Parrot_fetch_p_pc_sc_pc, /* 1042 */
+ Parrot_vivify_p_p_p_p, /* 1043 */
+ Parrot_vivify_p_pc_p_p, /* 1044 */
+ Parrot_vivify_p_p_pc_p, /* 1045 */
+ Parrot_vivify_p_pc_pc_p, /* 1046 */
+ Parrot_vivify_p_p_p_pc, /* 1047 */
+ Parrot_vivify_p_pc_p_pc, /* 1048 */
+ Parrot_vivify_p_p_pc_pc, /* 1049 */
+ Parrot_vivify_p_pc_pc_pc, /* 1050 */
+ Parrot_vivify_p_p_i_p, /* 1051 */
+ Parrot_vivify_p_pc_i_p, /* 1052 */
+ Parrot_vivify_p_p_ic_p, /* 1053 */
+ Parrot_vivify_p_pc_ic_p, /* 1054 */
+ Parrot_vivify_p_p_i_pc, /* 1055 */
+ Parrot_vivify_p_pc_i_pc, /* 1056 */
+ Parrot_vivify_p_p_ic_pc, /* 1057 */
+ Parrot_vivify_p_pc_ic_pc, /* 1058 */
+ Parrot_vivify_p_p_s_p, /* 1059 */
+ Parrot_vivify_p_pc_s_p, /* 1060 */
+ Parrot_vivify_p_p_sc_p, /* 1061 */
+ Parrot_vivify_p_pc_sc_p, /* 1062 */
+ Parrot_vivify_p_p_s_pc, /* 1063 */
+ Parrot_vivify_p_pc_s_pc, /* 1064 */
+ Parrot_vivify_p_p_sc_pc, /* 1065 */
+ Parrot_vivify_p_pc_sc_pc, /* 1066 */
+ Parrot_new_p_s_i, /* 1067 */
+ Parrot_new_p_sc_i, /* 1068 */
+ Parrot_new_p_s_ic, /* 1069 */
+ Parrot_new_p_sc_ic, /* 1070 */
+ Parrot_new_p_p_i, /* 1071 */
+ Parrot_new_p_pc_i, /* 1072 */
+ Parrot_new_p_p_ic, /* 1073 */
+ Parrot_new_p_pc_ic, /* 1074 */
+ Parrot_root_new_p_p_i, /* 1075 */
+ Parrot_root_new_p_pc_i, /* 1076 */
+ Parrot_root_new_p_p_ic, /* 1077 */
+ Parrot_root_new_p_pc_ic, /* 1078 */
+ Parrot_find_codepoint_i_s, /* 1079 */
+ Parrot_find_codepoint_i_sc, /* 1080 */
+ Parrot_finalize_p, /* 1081 */
+ Parrot_finalize_pc, /* 1082 */
NULL /* NULL function pointer */
};
@@ -1157,7 +1162,7 @@
** Op Info Table:
*/
-static op_info_t core_op_info_table[1081] = {
+static op_info_t core_op_info_table[1084] = {
{ /* 0 */
/* type PARROT_INLINE_OP, */
"end",
@@ -5540,6 +5545,42 @@
},
{ /* 365 */
/* type PARROT_INLINE_OP, */
+ "getstdin",
+ "getstdin_p",
+ "Parrot_getstdin_p",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
+ },
+ { /* 366 */
+ /* type PARROT_INLINE_OP, */
+ "getstdout",
+ "getstdout_p",
+ "Parrot_getstdout_p",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
+ },
+ { /* 367 */
+ /* type PARROT_INLINE_OP, */
+ "getstderr",
+ "getstderr_p",
+ "Parrot_getstderr_p",
+ /* "", body */
+ 0,
+ 2,
+ { PARROT_ARG_P },
+ { PARROT_ARGDIR_OUT },
+ { 0 }
+ },
+ { /* 368 */
+ /* type PARROT_INLINE_OP, */
"abs",
"abs_i",
"Parrot_abs_i",
@@ -5550,7 +5591,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 366 */
+ { /* 369 */
/* type PARROT_INLINE_OP, */
"abs",
"abs_n",
@@ -5562,7 +5603,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 367 */
+ { /* 370 */
/* type PARROT_INLINE_OP, */
"abs",
"abs_i_i",
@@ -5574,7 +5615,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 368 */
+ { /* 371 */
/* type PARROT_INLINE_OP, */
"abs",
"abs_n_n",
@@ -5586,7 +5627,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 369 */
+ { /* 372 */
/* type PARROT_INLINE_OP, */
"abs",
"abs_p",
@@ -5598,7 +5639,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 370 */
+ { /* 373 */
/* type PARROT_INLINE_OP, */
"abs",
"abs_p_p",
@@ -5610,7 +5651,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 371 */
+ { /* 374 */
/* type PARROT_INLINE_OP, */
"add",
"add_i_i",
@@ -5622,7 +5663,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 372 */
+ { /* 375 */
/* type PARROT_INLINE_OP, */
"add",
"add_i_ic",
@@ -5634,7 +5675,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 373 */
+ { /* 376 */
/* type PARROT_INLINE_OP, */
"add",
"add_n_n",
@@ -5646,7 +5687,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 374 */
+ { /* 377 */
/* type PARROT_INLINE_OP, */
"add",
"add_n_nc",
@@ -5658,7 +5699,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 375 */
+ { /* 378 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_p",
@@ -5670,7 +5711,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 376 */
+ { /* 379 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_i",
@@ -5682,7 +5723,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 377 */
+ { /* 380 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_ic",
@@ -5694,7 +5735,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 378 */
+ { /* 381 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_n",
@@ -5706,7 +5747,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 379 */
+ { /* 382 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_nc",
@@ -5718,7 +5759,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 380 */
+ { /* 383 */
/* type PARROT_INLINE_OP, */
"add",
"add_i_i_i",
@@ -5730,7 +5771,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 381 */
+ { /* 384 */
/* type PARROT_INLINE_OP, */
"add",
"add_i_ic_i",
@@ -5742,7 +5783,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 382 */
+ { /* 385 */
/* type PARROT_INLINE_OP, */
"add",
"add_i_i_ic",
@@ -5754,7 +5795,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 383 */
+ { /* 386 */
/* type PARROT_INLINE_OP, */
"add",
"add_n_n_n",
@@ -5766,7 +5807,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 384 */
+ { /* 387 */
/* type PARROT_INLINE_OP, */
"add",
"add_n_nc_n",
@@ -5778,7 +5819,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 385 */
+ { /* 388 */
/* type PARROT_INLINE_OP, */
"add",
"add_n_n_nc",
@@ -5790,7 +5831,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 386 */
+ { /* 389 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_p_p",
@@ -5802,7 +5843,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 387 */
+ { /* 390 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_p_i",
@@ -5814,7 +5855,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 388 */
+ { /* 391 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_p_ic",
@@ -5826,7 +5867,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 389 */
+ { /* 392 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_p_n",
@@ -5838,7 +5879,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 390 */
+ { /* 393 */
/* type PARROT_INLINE_OP, */
"add",
"add_p_p_nc",
@@ -5850,7 +5891,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 391 */
+ { /* 394 */
/* type PARROT_INLINE_OP, */
"dec",
"dec_i",
@@ -5862,7 +5903,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 392 */
+ { /* 395 */
/* type PARROT_INLINE_OP, */
"dec",
"dec_n",
@@ -5874,7 +5915,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 393 */
+ { /* 396 */
/* type PARROT_INLINE_OP, */
"dec",
"dec_p",
@@ -5886,7 +5927,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 394 */
+ { /* 397 */
/* type PARROT_INLINE_OP, */
"div",
"div_i_i",
@@ -5898,7 +5939,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 395 */
+ { /* 398 */
/* type PARROT_INLINE_OP, */
"div",
"div_i_ic",
@@ -5910,7 +5951,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 396 */
+ { /* 399 */
/* type PARROT_INLINE_OP, */
"div",
"div_n_n",
@@ -5922,7 +5963,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 397 */
+ { /* 400 */
/* type PARROT_INLINE_OP, */
"div",
"div_n_nc",
@@ -5934,7 +5975,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 398 */
+ { /* 401 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_p",
@@ -5946,7 +5987,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 399 */
+ { /* 402 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_i",
@@ -5958,7 +5999,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 400 */
+ { /* 403 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_ic",
@@ -5970,7 +6011,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 401 */
+ { /* 404 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_n",
@@ -5982,7 +6023,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 402 */
+ { /* 405 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_nc",
@@ -5994,7 +6035,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 403 */
+ { /* 406 */
/* type PARROT_INLINE_OP, */
"div",
"div_i_i_i",
@@ -6006,7 +6047,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 404 */
+ { /* 407 */
/* type PARROT_INLINE_OP, */
"div",
"div_i_ic_i",
@@ -6018,7 +6059,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 405 */
+ { /* 408 */
/* type PARROT_INLINE_OP, */
"div",
"div_i_i_ic",
@@ -6030,7 +6071,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 406 */
+ { /* 409 */
/* type PARROT_INLINE_OP, */
"div",
"div_i_ic_ic",
@@ -6042,7 +6083,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 407 */
+ { /* 410 */
/* type PARROT_INLINE_OP, */
"div",
"div_n_n_n",
@@ -6054,7 +6095,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 408 */
+ { /* 411 */
/* type PARROT_INLINE_OP, */
"div",
"div_n_nc_n",
@@ -6066,7 +6107,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 409 */
+ { /* 412 */
/* type PARROT_INLINE_OP, */
"div",
"div_n_n_nc",
@@ -6078,7 +6119,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 410 */
+ { /* 413 */
/* type PARROT_INLINE_OP, */
"div",
"div_n_nc_nc",
@@ -6090,7 +6131,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 411 */
+ { /* 414 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_p_p",
@@ -6102,7 +6143,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 412 */
+ { /* 415 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_p_i",
@@ -6114,7 +6155,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 413 */
+ { /* 416 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_p_ic",
@@ -6126,7 +6167,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 414 */
+ { /* 417 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_p_n",
@@ -6138,7 +6179,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 415 */
+ { /* 418 */
/* type PARROT_INLINE_OP, */
"div",
"div_p_p_nc",
@@ -6150,7 +6191,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 416 */
+ { /* 419 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_i_i",
@@ -6162,7 +6203,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 417 */
+ { /* 420 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_i_ic",
@@ -6174,7 +6215,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 418 */
+ { /* 421 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_n_n",
@@ -6186,7 +6227,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 419 */
+ { /* 422 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_n_nc",
@@ -6198,7 +6239,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 420 */
+ { /* 423 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_p",
@@ -6210,7 +6251,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 421 */
+ { /* 424 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_i",
@@ -6222,7 +6263,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 422 */
+ { /* 425 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_ic",
@@ -6234,7 +6275,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 423 */
+ { /* 426 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_n",
@@ -6246,7 +6287,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 424 */
+ { /* 427 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_nc",
@@ -6258,7 +6299,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 425 */
+ { /* 428 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_i_i_i",
@@ -6270,7 +6311,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 426 */
+ { /* 429 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_i_ic_i",
@@ -6282,7 +6323,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 427 */
+ { /* 430 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_i_i_ic",
@@ -6294,7 +6335,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 428 */
+ { /* 431 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_n_n_n",
@@ -6306,7 +6347,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 429 */
+ { /* 432 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_n_nc_n",
@@ -6318,7 +6359,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 430 */
+ { /* 433 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_n_n_nc",
@@ -6330,7 +6371,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 431 */
+ { /* 434 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_p_p",
@@ -6342,7 +6383,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 432 */
+ { /* 435 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_p_i",
@@ -6354,7 +6395,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 433 */
+ { /* 436 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_p_ic",
@@ -6366,7 +6407,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 434 */
+ { /* 437 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_p_n",
@@ -6378,7 +6419,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 435 */
+ { /* 438 */
/* type PARROT_INLINE_OP, */
"fdiv",
"fdiv_p_p_nc",
@@ -6390,7 +6431,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 436 */
+ { /* 439 */
/* type PARROT_INLINE_OP, */
"ceil",
"ceil_n",
@@ -6402,7 +6443,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 437 */
+ { /* 440 */
/* type PARROT_INLINE_OP, */
"ceil",
"ceil_i_n",
@@ -6414,7 +6455,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 438 */
+ { /* 441 */
/* type PARROT_INLINE_OP, */
"ceil",
"ceil_n_n",
@@ -6426,7 +6467,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 439 */
+ { /* 442 */
/* type PARROT_INLINE_OP, */
"floor",
"floor_n",
@@ -6438,7 +6479,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 440 */
+ { /* 443 */
/* type PARROT_INLINE_OP, */
"floor",
"floor_i_n",
@@ -6450,7 +6491,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 441 */
+ { /* 444 */
/* type PARROT_INLINE_OP, */
"floor",
"floor_n_n",
@@ -6462,7 +6503,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 442 */
+ { /* 445 */
/* type PARROT_INLINE_OP, */
"inc",
"inc_i",
@@ -6474,7 +6515,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 443 */
+ { /* 446 */
/* type PARROT_INLINE_OP, */
"inc",
"inc_n",
@@ -6486,7 +6527,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 444 */
+ { /* 447 */
/* type PARROT_INLINE_OP, */
"inc",
"inc_p",
@@ -6498,7 +6539,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 445 */
+ { /* 448 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_i_i",
@@ -6510,7 +6551,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 446 */
+ { /* 449 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_i_ic",
@@ -6522,7 +6563,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 447 */
+ { /* 450 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_n_n",
@@ -6534,7 +6575,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 448 */
+ { /* 451 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_n_nc",
@@ -6546,7 +6587,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 449 */
+ { /* 452 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_p",
@@ -6558,7 +6599,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 450 */
+ { /* 453 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_i",
@@ -6570,7 +6611,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 451 */
+ { /* 454 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_ic",
@@ -6582,7 +6623,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 452 */
+ { /* 455 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_n",
@@ -6594,7 +6635,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 453 */
+ { /* 456 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_nc",
@@ -6606,7 +6647,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 454 */
+ { /* 457 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_i_i_i",
@@ -6618,7 +6659,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 455 */
+ { /* 458 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_i_ic_i",
@@ -6630,7 +6671,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 456 */
+ { /* 459 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_i_i_ic",
@@ -6642,7 +6683,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 457 */
+ { /* 460 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_n_n_n",
@@ -6654,7 +6695,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 458 */
+ { /* 461 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_n_nc_n",
@@ -6666,7 +6707,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 459 */
+ { /* 462 */
/* type PARROT_FUNCTION_OP, */
"mod",
"mod_n_n_nc",
@@ -6678,7 +6719,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 460 */
+ { /* 463 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_p_p",
@@ -6690,7 +6731,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 461 */
+ { /* 464 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_p_i",
@@ -6702,7 +6743,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 462 */
+ { /* 465 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_p_ic",
@@ -6714,7 +6755,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 463 */
+ { /* 466 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_p_n",
@@ -6726,7 +6767,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 464 */
+ { /* 467 */
/* type PARROT_INLINE_OP, */
"mod",
"mod_p_p_nc",
@@ -6738,7 +6779,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 465 */
+ { /* 468 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_i_i",
@@ -6750,7 +6791,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 466 */
+ { /* 469 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_i_ic",
@@ -6762,7 +6803,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 467 */
+ { /* 470 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_n_n",
@@ -6774,7 +6815,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 468 */
+ { /* 471 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_n_nc",
@@ -6786,7 +6827,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 469 */
+ { /* 472 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_p",
@@ -6798,7 +6839,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 470 */
+ { /* 473 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_i",
@@ -6810,7 +6851,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 471 */
+ { /* 474 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_ic",
@@ -6822,7 +6863,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 472 */
+ { /* 475 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_n",
@@ -6834,7 +6875,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 473 */
+ { /* 476 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_nc",
@@ -6846,7 +6887,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 474 */
+ { /* 477 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_i_i_i",
@@ -6858,7 +6899,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 475 */
+ { /* 478 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_i_ic_i",
@@ -6870,7 +6911,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 476 */
+ { /* 479 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_i_i_ic",
@@ -6882,7 +6923,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 477 */
+ { /* 480 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_n_n_n",
@@ -6894,7 +6935,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 478 */
+ { /* 481 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_n_nc_n",
@@ -6906,7 +6947,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 479 */
+ { /* 482 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_n_n_nc",
@@ -6918,7 +6959,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 480 */
+ { /* 483 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_p_p",
@@ -6930,7 +6971,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 481 */
+ { /* 484 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_p_i",
@@ -6942,7 +6983,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 482 */
+ { /* 485 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_p_ic",
@@ -6954,7 +6995,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 483 */
+ { /* 486 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_p_n",
@@ -6966,7 +7007,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 484 */
+ { /* 487 */
/* type PARROT_INLINE_OP, */
"mul",
"mul_p_p_nc",
@@ -6978,7 +7019,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 485 */
+ { /* 488 */
/* type PARROT_INLINE_OP, */
"neg",
"neg_i",
@@ -6990,7 +7031,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 486 */
+ { /* 489 */
/* type PARROT_INLINE_OP, */
"neg",
"neg_n",
@@ -7002,7 +7043,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 487 */
+ { /* 490 */
/* type PARROT_INLINE_OP, */
"neg",
"neg_p",
@@ -7014,7 +7055,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 488 */
+ { /* 491 */
/* type PARROT_INLINE_OP, */
"neg",
"neg_i_i",
@@ -7026,7 +7067,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 489 */
+ { /* 492 */
/* type PARROT_INLINE_OP, */
"neg",
"neg_n_n",
@@ -7038,7 +7079,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 490 */
+ { /* 493 */
/* type PARROT_INLINE_OP, */
"neg",
"neg_p_p",
@@ -7050,7 +7091,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 491 */
+ { /* 494 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_i_i",
@@ -7062,7 +7103,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 492 */
+ { /* 495 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_i_ic",
@@ -7074,7 +7115,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 493 */
+ { /* 496 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_n_n",
@@ -7086,7 +7127,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 494 */
+ { /* 497 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_n_nc",
@@ -7098,7 +7139,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 495 */
+ { /* 498 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_p",
@@ -7110,7 +7151,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 496 */
+ { /* 499 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_i",
@@ -7122,7 +7163,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 497 */
+ { /* 500 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_ic",
@@ -7134,7 +7175,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 498 */
+ { /* 501 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_n",
@@ -7146,7 +7187,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 499 */
+ { /* 502 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_nc",
@@ -7158,7 +7199,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 500 */
+ { /* 503 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_i_i_i",
@@ -7170,7 +7211,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 501 */
+ { /* 504 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_i_ic_i",
@@ -7182,7 +7223,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 502 */
+ { /* 505 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_i_i_ic",
@@ -7194,7 +7235,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 503 */
+ { /* 506 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_n_n_n",
@@ -7206,7 +7247,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 504 */
+ { /* 507 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_n_nc_n",
@@ -7218,7 +7259,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 505 */
+ { /* 508 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_n_n_nc",
@@ -7230,7 +7271,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 506 */
+ { /* 509 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_p_p",
@@ -7242,7 +7283,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 507 */
+ { /* 510 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_p_i",
@@ -7254,7 +7295,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 508 */
+ { /* 511 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_p_ic",
@@ -7266,7 +7307,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 509 */
+ { /* 512 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_p_n",
@@ -7278,7 +7319,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 510 */
+ { /* 513 */
/* type PARROT_INLINE_OP, */
"sub",
"sub_p_p_nc",
@@ -7290,7 +7331,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 511 */
+ { /* 514 */
/* type PARROT_INLINE_OP, */
"sqrt",
"sqrt_n_n",
@@ -7302,7 +7343,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 512 */
+ { /* 515 */
/* type PARROT_FUNCTION_OP, */
"callmethodcc",
"callmethodcc_p_s",
@@ -7314,7 +7355,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 513 */
+ { /* 516 */
/* type PARROT_FUNCTION_OP, */
"callmethodcc",
"callmethodcc_p_sc",
@@ -7326,7 +7367,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 514 */
+ { /* 517 */
/* type PARROT_FUNCTION_OP, */
"callmethodcc",
"callmethodcc_p_p",
@@ -7338,7 +7379,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 515 */
+ { /* 518 */
/* type PARROT_FUNCTION_OP, */
"callmethod",
"callmethod_p_s_p",
@@ -7350,7 +7391,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 516 */
+ { /* 519 */
/* type PARROT_FUNCTION_OP, */
"callmethod",
"callmethod_p_sc_p",
@@ -7362,7 +7403,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 517 */
+ { /* 520 */
/* type PARROT_FUNCTION_OP, */
"callmethod",
"callmethod_p_p_p",
@@ -7374,7 +7415,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 518 */
+ { /* 521 */
/* type PARROT_FUNCTION_OP, */
"tailcallmethod",
"tailcallmethod_p_s",
@@ -7386,7 +7427,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 519 */
+ { /* 522 */
/* type PARROT_FUNCTION_OP, */
"tailcallmethod",
"tailcallmethod_p_sc",
@@ -7398,7 +7439,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 520 */
+ { /* 523 */
/* type PARROT_FUNCTION_OP, */
"tailcallmethod",
"tailcallmethod_p_p",
@@ -7410,7 +7451,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 521 */
+ { /* 524 */
/* type PARROT_INLINE_OP, */
"addmethod",
"addmethod_p_s_p",
@@ -7422,7 +7463,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 522 */
+ { /* 525 */
/* type PARROT_INLINE_OP, */
"addmethod",
"addmethod_p_sc_p",
@@ -7434,7 +7475,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 523 */
+ { /* 526 */
/* type PARROT_INLINE_OP, */
"can",
"can_i_p_s",
@@ -7446,7 +7487,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 524 */
+ { /* 527 */
/* type PARROT_INLINE_OP, */
"can",
"can_i_p_sc",
@@ -7458,7 +7499,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 525 */
+ { /* 528 */
/* type PARROT_INLINE_OP, */
"does",
"does_i_p_s",
@@ -7470,7 +7511,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 526 */
+ { /* 529 */
/* type PARROT_INLINE_OP, */
"does",
"does_i_p_sc",
@@ -7482,7 +7523,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 527 */
+ { /* 530 */
/* type PARROT_INLINE_OP, */
"does",
"does_i_p_p",
@@ -7494,7 +7535,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 528 */
+ { /* 531 */
/* type PARROT_INLINE_OP, */
"does",
"does_i_p_pc",
@@ -7506,7 +7547,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 529 */
+ { /* 532 */
/* type PARROT_INLINE_OP, */
"isa",
"isa_i_p_s",
@@ -7518,7 +7559,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 530 */
+ { /* 533 */
/* type PARROT_INLINE_OP, */
"isa",
"isa_i_p_sc",
@@ -7530,7 +7571,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 531 */
+ { /* 534 */
/* type PARROT_INLINE_OP, */
"isa",
"isa_i_p_p",
@@ -7542,7 +7583,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 532 */
+ { /* 535 */
/* type PARROT_INLINE_OP, */
"isa",
"isa_i_p_pc",
@@ -7554,7 +7595,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 533 */
+ { /* 536 */
/* type PARROT_INLINE_OP, */
"newclass",
"newclass_p_s",
@@ -7566,7 +7607,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 534 */
+ { /* 537 */
/* type PARROT_INLINE_OP, */
"newclass",
"newclass_p_sc",
@@ -7578,7 +7619,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 535 */
+ { /* 538 */
/* type PARROT_INLINE_OP, */
"newclass",
"newclass_p_p",
@@ -7590,7 +7631,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 536 */
+ { /* 539 */
/* type PARROT_INLINE_OP, */
"newclass",
"newclass_p_pc",
@@ -7602,7 +7643,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 537 */
+ { /* 540 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_p",
@@ -7614,7 +7655,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 538 */
+ { /* 541 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_pc",
@@ -7626,7 +7667,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 539 */
+ { /* 542 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_p_s",
@@ -7638,7 +7679,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 540 */
+ { /* 543 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_pc_s",
@@ -7650,7 +7691,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 541 */
+ { /* 544 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_p_sc",
@@ -7662,7 +7703,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 542 */
+ { /* 545 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_pc_sc",
@@ -7674,7 +7715,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 543 */
+ { /* 546 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_p_p",
@@ -7686,7 +7727,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 544 */
+ { /* 547 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_pc_p",
@@ -7698,7 +7739,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 545 */
+ { /* 548 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_p_pc",
@@ -7710,7 +7751,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 546 */
+ { /* 549 */
/* type PARROT_INLINE_OP, */
"subclass",
"subclass_p_pc_pc",
@@ -7722,7 +7763,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 547 */
+ { /* 550 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_s",
@@ -7734,7 +7775,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 548 */
+ { /* 551 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_sc",
@@ -7746,7 +7787,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 549 */
+ { /* 552 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_s_s",
@@ -7758,7 +7799,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 550 */
+ { /* 553 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_sc_s",
@@ -7770,7 +7811,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 551 */
+ { /* 554 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_s_sc",
@@ -7782,7 +7823,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 552 */
+ { /* 555 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_sc_sc",
@@ -7794,7 +7835,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 553 */
+ { /* 556 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_s_p",
@@ -7806,7 +7847,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 554 */
+ { /* 557 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_sc_p",
@@ -7818,7 +7859,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 555 */
+ { /* 558 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_s_pc",
@@ -7830,7 +7871,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 556 */
+ { /* 559 */
/* type PARROT_FUNCTION_OP, */
"subclass",
"subclass_p_sc_pc",
@@ -7842,7 +7883,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 557 */
+ { /* 560 */
/* type PARROT_INLINE_OP, */
"get_class",
"get_class_p_s",
@@ -7854,7 +7895,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 558 */
+ { /* 561 */
/* type PARROT_INLINE_OP, */
"get_class",
"get_class_p_sc",
@@ -7866,7 +7907,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 559 */
+ { /* 562 */
/* type PARROT_INLINE_OP, */
"get_class",
"get_class_p_p",
@@ -7878,7 +7919,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 560 */
+ { /* 563 */
/* type PARROT_INLINE_OP, */
"get_class",
"get_class_p_pc",
@@ -7890,7 +7931,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 561 */
+ { /* 564 */
/* type PARROT_INLINE_OP, */
"class",
"class_p_p",
@@ -7902,7 +7943,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 562 */
+ { /* 565 */
/* type PARROT_INLINE_OP, */
"addparent",
"addparent_p_p",
@@ -7914,7 +7955,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 563 */
+ { /* 566 */
/* type PARROT_INLINE_OP, */
"removeparent",
"removeparent_p_p",
@@ -7926,7 +7967,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 564 */
+ { /* 567 */
/* type PARROT_INLINE_OP, */
"addrole",
"addrole_p_p",
@@ -7938,7 +7979,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 565 */
+ { /* 568 */
/* type PARROT_INLINE_OP, */
"addattribute",
"addattribute_p_s",
@@ -7950,7 +7991,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 566 */
+ { /* 569 */
/* type PARROT_INLINE_OP, */
"addattribute",
"addattribute_p_sc",
@@ -7962,7 +8003,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 567 */
+ { /* 570 */
/* type PARROT_FUNCTION_OP, */
"removeattribute",
"removeattribute_p_s",
@@ -7974,7 +8015,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 568 */
+ { /* 571 */
/* type PARROT_FUNCTION_OP, */
"removeattribute",
"removeattribute_p_sc",
@@ -7986,7 +8027,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 569 */
+ { /* 572 */
/* type PARROT_INLINE_OP, */
"getattribute",
"getattribute_p_p_s",
@@ -7998,7 +8039,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 570 */
+ { /* 573 */
/* type PARROT_INLINE_OP, */
"getattribute",
"getattribute_p_p_sc",
@@ -8010,7 +8051,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 571 */
+ { /* 574 */
/* type PARROT_INLINE_OP, */
"getattribute",
"getattribute_p_p_p_s",
@@ -8022,7 +8063,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 572 */
+ { /* 575 */
/* type PARROT_INLINE_OP, */
"getattribute",
"getattribute_p_p_pc_s",
@@ -8034,7 +8075,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 573 */
+ { /* 576 */
/* type PARROT_INLINE_OP, */
"getattribute",
"getattribute_p_p_p_sc",
@@ -8046,7 +8087,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 574 */
+ { /* 577 */
/* type PARROT_INLINE_OP, */
"getattribute",
"getattribute_p_p_pc_sc",
@@ -8058,7 +8099,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 575 */
+ { /* 578 */
/* type PARROT_INLINE_OP, */
"setattribute",
"setattribute_p_s_p",
@@ -8070,7 +8111,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 576 */
+ { /* 579 */
/* type PARROT_INLINE_OP, */
"setattribute",
"setattribute_p_sc_p",
@@ -8082,7 +8123,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 577 */
+ { /* 580 */
/* type PARROT_INLINE_OP, */
"setattribute",
"setattribute_p_p_s_p",
@@ -8094,7 +8135,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 578 */
+ { /* 581 */
/* type PARROT_INLINE_OP, */
"setattribute",
"setattribute_p_pc_s_p",
@@ -8106,7 +8147,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 579 */
+ { /* 582 */
/* type PARROT_INLINE_OP, */
"setattribute",
"setattribute_p_p_sc_p",
@@ -8118,7 +8159,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 580 */
+ { /* 583 */
/* type PARROT_INLINE_OP, */
"setattribute",
"setattribute_p_pc_sc_p",
@@ -8130,7 +8171,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 581 */
+ { /* 584 */
/* type PARROT_INLINE_OP, */
"inspect",
"inspect_p_p",
@@ -8142,7 +8183,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 582 */
+ { /* 585 */
/* type PARROT_INLINE_OP, */
"inspect",
"inspect_p_pc",
@@ -8154,7 +8195,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 583 */
+ { /* 586 */
/* type PARROT_INLINE_OP, */
"inspect",
"inspect_p_p_s",
@@ -8166,7 +8207,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 584 */
+ { /* 587 */
/* type PARROT_INLINE_OP, */
"inspect",
"inspect_p_pc_s",
@@ -8178,7 +8219,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 585 */
+ { /* 588 */
/* type PARROT_INLINE_OP, */
"inspect",
"inspect_p_p_sc",
@@ -8190,7 +8231,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 586 */
+ { /* 589 */
/* type PARROT_INLINE_OP, */
"inspect",
"inspect_p_pc_sc",
@@ -8202,7 +8243,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 587 */
+ { /* 590 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_s",
@@ -8214,7 +8255,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 588 */
+ { /* 591 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_sc",
@@ -8226,7 +8267,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 589 */
+ { /* 592 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_s_p",
@@ -8238,7 +8279,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 590 */
+ { /* 593 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_sc_p",
@@ -8250,7 +8291,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 591 */
+ { /* 594 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_s_pc",
@@ -8262,7 +8303,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 592 */
+ { /* 595 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_sc_pc",
@@ -8274,7 +8315,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 593 */
+ { /* 596 */
/* type PARROT_INLINE_OP, */
"new",
"new_p_p",
@@ -8286,7 +8327,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 594 */
+ { /* 597 */
/* type PARROT_INLINE_OP, */
"new",
"new_p_pc",
@@ -8298,7 +8339,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 595 */
+ { /* 598 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_p_p",
@@ -8310,7 +8351,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 596 */
+ { /* 599 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_pc_p",
@@ -8322,7 +8363,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 597 */
+ { /* 600 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_p_pc",
@@ -8334,7 +8375,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 598 */
+ { /* 601 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_pc_pc",
@@ -8346,7 +8387,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 599 */
+ { /* 602 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_p",
@@ -8358,7 +8399,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 600 */
+ { /* 603 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_pc",
@@ -8370,7 +8411,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 601 */
+ { /* 604 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_p_p",
@@ -8382,7 +8423,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 602 */
+ { /* 605 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_pc_p",
@@ -8394,7 +8435,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 603 */
+ { /* 606 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_p_pc",
@@ -8406,7 +8447,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 604 */
+ { /* 607 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_pc_pc",
@@ -8418,7 +8459,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 605 */
+ { /* 608 */
/* type PARROT_INLINE_OP, */
"typeof",
"typeof_s_p",
@@ -8430,7 +8471,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 606 */
+ { /* 609 */
/* type PARROT_INLINE_OP, */
"typeof",
"typeof_p_p",
@@ -8442,7 +8483,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 607 */
+ { /* 610 */
/* type PARROT_FUNCTION_OP, */
"get_repr",
"get_repr_s_p",
@@ -8454,7 +8495,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 608 */
+ { /* 611 */
/* type PARROT_FUNCTION_OP, */
"find_method",
"find_method_p_p_s",
@@ -8466,7 +8507,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 609 */
+ { /* 612 */
/* type PARROT_FUNCTION_OP, */
"find_method",
"find_method_p_p_sc",
@@ -8478,7 +8519,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 610 */
+ { /* 613 */
/* type PARROT_INLINE_OP, */
"defined",
"defined_i_p",
@@ -8490,7 +8531,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 611 */
+ { /* 614 */
/* type PARROT_INLINE_OP, */
"defined",
"defined_i_p_ki",
@@ -8502,7 +8543,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 612 */
+ { /* 615 */
/* type PARROT_INLINE_OP, */
"defined",
"defined_i_p_kic",
@@ -8514,7 +8555,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 613 */
+ { /* 616 */
/* type PARROT_INLINE_OP, */
"defined",
"defined_i_p_k",
@@ -8526,7 +8567,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 614 */
+ { /* 617 */
/* type PARROT_INLINE_OP, */
"defined",
"defined_i_p_kc",
@@ -8538,7 +8579,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 615 */
+ { /* 618 */
/* type PARROT_INLINE_OP, */
"exists",
"exists_i_p_ki",
@@ -8550,7 +8591,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 616 */
+ { /* 619 */
/* type PARROT_INLINE_OP, */
"exists",
"exists_i_p_kic",
@@ -8562,7 +8603,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 617 */
+ { /* 620 */
/* type PARROT_INLINE_OP, */
"exists",
"exists_i_p_k",
@@ -8574,7 +8615,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 618 */
+ { /* 621 */
/* type PARROT_INLINE_OP, */
"exists",
"exists_i_p_kc",
@@ -8586,7 +8627,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 619 */
+ { /* 622 */
/* type PARROT_INLINE_OP, */
"delete",
"delete_p_k",
@@ -8598,7 +8639,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 620 */
+ { /* 623 */
/* type PARROT_INLINE_OP, */
"delete",
"delete_p_kc",
@@ -8610,7 +8651,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 621 */
+ { /* 624 */
/* type PARROT_INLINE_OP, */
"delete",
"delete_p_ki",
@@ -8622,7 +8663,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 622 */
+ { /* 625 */
/* type PARROT_INLINE_OP, */
"delete",
"delete_p_kic",
@@ -8634,7 +8675,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 623 */
+ { /* 626 */
/* type PARROT_INLINE_OP, */
"elements",
"elements_i_p",
@@ -8646,7 +8687,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 624 */
+ { /* 627 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_i",
@@ -8658,7 +8699,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 625 */
+ { /* 628 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_ic",
@@ -8670,7 +8711,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 626 */
+ { /* 629 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_n",
@@ -8682,7 +8723,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 627 */
+ { /* 630 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_nc",
@@ -8694,7 +8735,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 628 */
+ { /* 631 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_s",
@@ -8706,7 +8747,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 629 */
+ { /* 632 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_sc",
@@ -8718,7 +8759,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 630 */
+ { /* 633 */
/* type PARROT_INLINE_OP, */
"push",
"push_p_p",
@@ -8730,7 +8771,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 631 */
+ { /* 634 */
/* type PARROT_INLINE_OP, */
"pop",
"pop_i_p",
@@ -8742,7 +8783,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 632 */
+ { /* 635 */
/* type PARROT_INLINE_OP, */
"pop",
"pop_n_p",
@@ -8754,7 +8795,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 633 */
+ { /* 636 */
/* type PARROT_INLINE_OP, */
"pop",
"pop_s_p",
@@ -8766,7 +8807,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 634 */
+ { /* 637 */
/* type PARROT_INLINE_OP, */
"pop",
"pop_p_p",
@@ -8778,7 +8819,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 635 */
+ { /* 638 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_i",
@@ -8790,7 +8831,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 636 */
+ { /* 639 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_ic",
@@ -8802,7 +8843,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 637 */
+ { /* 640 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_n",
@@ -8814,7 +8855,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 638 */
+ { /* 641 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_nc",
@@ -8826,7 +8867,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 639 */
+ { /* 642 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_s",
@@ -8838,7 +8879,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 640 */
+ { /* 643 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_sc",
@@ -8850,7 +8891,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 641 */
+ { /* 644 */
/* type PARROT_INLINE_OP, */
"unshift",
"unshift_p_p",
@@ -8862,7 +8903,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 642 */
+ { /* 645 */
/* type PARROT_INLINE_OP, */
"shift",
"shift_i_p",
@@ -8874,7 +8915,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 643 */
+ { /* 646 */
/* type PARROT_INLINE_OP, */
"shift",
"shift_n_p",
@@ -8886,7 +8927,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 644 */
+ { /* 647 */
/* type PARROT_INLINE_OP, */
"shift",
"shift_s_p",
@@ -8898,7 +8939,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 645 */
+ { /* 648 */
/* type PARROT_INLINE_OP, */
"shift",
"shift_p_p",
@@ -8910,7 +8951,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 646 */
+ { /* 649 */
/* type PARROT_INLINE_OP, */
"splice",
"splice_p_p_i_i",
@@ -8922,7 +8963,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 647 */
+ { /* 650 */
/* type PARROT_INLINE_OP, */
"splice",
"splice_p_p_ic_i",
@@ -8934,7 +8975,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 648 */
+ { /* 651 */
/* type PARROT_INLINE_OP, */
"splice",
"splice_p_p_i_ic",
@@ -8946,7 +8987,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 649 */
+ { /* 652 */
/* type PARROT_INLINE_OP, */
"splice",
"splice_p_p_ic_ic",
@@ -8958,7 +8999,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 650 */
+ { /* 653 */
/* type PARROT_FUNCTION_OP, */
"setprop",
"setprop_p_s_p",
@@ -8970,7 +9011,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 651 */
+ { /* 654 */
/* type PARROT_FUNCTION_OP, */
"setprop",
"setprop_p_sc_p",
@@ -8982,7 +9023,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 652 */
+ { /* 655 */
/* type PARROT_FUNCTION_OP, */
"getprop",
"getprop_p_s_p",
@@ -8994,7 +9035,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 653 */
+ { /* 656 */
/* type PARROT_FUNCTION_OP, */
"getprop",
"getprop_p_sc_p",
@@ -9006,7 +9047,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 654 */
+ { /* 657 */
/* type PARROT_FUNCTION_OP, */
"delprop",
"delprop_p_s",
@@ -9018,7 +9059,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 655 */
+ { /* 658 */
/* type PARROT_FUNCTION_OP, */
"delprop",
"delprop_p_sc",
@@ -9030,7 +9071,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 656 */
+ { /* 659 */
/* type PARROT_FUNCTION_OP, */
"prophash",
"prophash_p_p",
@@ -9042,7 +9083,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 657 */
+ { /* 660 */
/* type PARROT_FUNCTION_OP, */
"freeze",
"freeze_s_p",
@@ -9054,7 +9095,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 658 */
+ { /* 661 */
/* type PARROT_FUNCTION_OP, */
"thaw",
"thaw_p_s",
@@ -9066,7 +9107,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 659 */
+ { /* 662 */
/* type PARROT_FUNCTION_OP, */
"thaw",
"thaw_p_sc",
@@ -9078,7 +9119,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 660 */
+ { /* 663 */
/* type PARROT_INLINE_OP, */
"add_multi",
"add_multi_s_s_p",
@@ -9090,7 +9131,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 661 */
+ { /* 664 */
/* type PARROT_INLINE_OP, */
"add_multi",
"add_multi_sc_s_p",
@@ -9102,7 +9143,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 662 */
+ { /* 665 */
/* type PARROT_INLINE_OP, */
"add_multi",
"add_multi_s_sc_p",
@@ -9114,7 +9155,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 663 */
+ { /* 666 */
/* type PARROT_INLINE_OP, */
"add_multi",
"add_multi_sc_sc_p",
@@ -9126,7 +9167,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 664 */
+ { /* 667 */
/* type PARROT_INLINE_OP, */
"find_multi",
"find_multi_p_s_s",
@@ -9138,7 +9179,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 665 */
+ { /* 668 */
/* type PARROT_INLINE_OP, */
"find_multi",
"find_multi_p_sc_s",
@@ -9150,7 +9191,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 666 */
+ { /* 669 */
/* type PARROT_INLINE_OP, */
"find_multi",
"find_multi_p_s_sc",
@@ -9162,7 +9203,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 667 */
+ { /* 670 */
/* type PARROT_INLINE_OP, */
"find_multi",
"find_multi_p_sc_sc",
@@ -9174,7 +9215,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 668 */
+ { /* 671 */
/* type PARROT_FUNCTION_OP, */
"register",
"register_p",
@@ -9186,7 +9227,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 669 */
+ { /* 672 */
/* type PARROT_FUNCTION_OP, */
"unregister",
"unregister_p",
@@ -9198,7 +9239,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 670 */
+ { /* 673 */
/* type PARROT_FUNCTION_OP, */
"box",
"box_p_i",
@@ -9210,7 +9251,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 671 */
+ { /* 674 */
/* type PARROT_FUNCTION_OP, */
"box",
"box_p_ic",
@@ -9222,7 +9263,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 672 */
+ { /* 675 */
/* type PARROT_FUNCTION_OP, */
"box",
"box_p_n",
@@ -9234,7 +9275,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 673 */
+ { /* 676 */
/* type PARROT_FUNCTION_OP, */
"box",
"box_p_nc",
@@ -9246,7 +9287,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 674 */
+ { /* 677 */
/* type PARROT_FUNCTION_OP, */
"box",
"box_p_s",
@@ -9258,7 +9299,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 675 */
+ { /* 678 */
/* type PARROT_FUNCTION_OP, */
"box",
"box_p_sc",
@@ -9270,7 +9311,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 676 */
+ { /* 679 */
/* type PARROT_INLINE_OP, */
"iter",
"iter_p_p",
@@ -9282,7 +9323,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 677 */
+ { /* 680 */
/* type PARROT_INLINE_OP, */
"morph",
"morph_p_p",
@@ -9294,7 +9335,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 678 */
+ { /* 681 */
/* type PARROT_INLINE_OP, */
"morph",
"morph_p_pc",
@@ -9306,7 +9347,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 679 */
+ { /* 682 */
/* type PARROT_INLINE_OP, */
"clone",
"clone_s_s",
@@ -9318,7 +9359,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 680 */
+ { /* 683 */
/* type PARROT_INLINE_OP, */
"clone",
"clone_s_sc",
@@ -9330,7 +9371,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 681 */
+ { /* 684 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_i",
@@ -9342,7 +9383,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 682 */
+ { /* 685 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_ic",
@@ -9354,7 +9395,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 683 */
+ { /* 686 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_n",
@@ -9366,7 +9407,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 684 */
+ { /* 687 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_nc",
@@ -9378,7 +9419,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 685 */
+ { /* 688 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_s",
@@ -9390,7 +9431,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 686 */
+ { /* 689 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_sc",
@@ -9402,7 +9443,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 687 */
+ { /* 690 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_n",
@@ -9414,7 +9455,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 688 */
+ { /* 691 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_nc",
@@ -9426,7 +9467,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 689 */
+ { /* 692 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_i",
@@ -9438,7 +9479,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 690 */
+ { /* 693 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_ic",
@@ -9450,7 +9491,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 691 */
+ { /* 694 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_s",
@@ -9462,7 +9503,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 692 */
+ { /* 695 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_sc",
@@ -9474,7 +9515,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 693 */
+ { /* 696 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_p",
@@ -9486,7 +9527,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 694 */
+ { /* 697 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_p",
@@ -9498,7 +9539,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 695 */
+ { /* 698 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_s",
@@ -9510,7 +9551,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 696 */
+ { /* 699 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_sc",
@@ -9522,7 +9563,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 697 */
+ { /* 700 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_i",
@@ -9534,7 +9575,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 698 */
+ { /* 701 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_ic",
@@ -9546,7 +9587,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 699 */
+ { /* 702 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_n",
@@ -9558,7 +9599,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 700 */
+ { /* 703 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_nc",
@@ -9570,7 +9611,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 701 */
+ { /* 704 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_pc",
@@ -9582,7 +9623,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 702 */
+ { /* 705 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_p",
@@ -9594,7 +9635,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 703 */
+ { /* 706 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_i",
@@ -9606,7 +9647,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 704 */
+ { /* 707 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ic",
@@ -9618,7 +9659,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 705 */
+ { /* 708 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_n",
@@ -9630,7 +9671,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 706 */
+ { /* 709 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_nc",
@@ -9642,7 +9683,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 707 */
+ { /* 710 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_s",
@@ -9654,7 +9695,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 708 */
+ { /* 711 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_sc",
@@ -9666,7 +9707,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 709 */
+ { /* 712 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_p",
@@ -9678,7 +9719,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 710 */
+ { /* 713 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_p",
@@ -9690,7 +9731,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 711 */
+ { /* 714 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_i",
@@ -9702,7 +9743,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 712 */
+ { /* 715 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_ic",
@@ -9714,7 +9755,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 713 */
+ { /* 716 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_n",
@@ -9726,7 +9767,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 714 */
+ { /* 717 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_nc",
@@ -9738,7 +9779,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 715 */
+ { /* 718 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_s",
@@ -9750,7 +9791,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 716 */
+ { /* 719 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_p_sc",
@@ -9762,7 +9803,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 717 */
+ { /* 720 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_s_s",
@@ -9774,7 +9815,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 718 */
+ { /* 721 */
/* type PARROT_INLINE_OP, */
"assign",
"assign_s_sc",
@@ -9786,7 +9827,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 719 */
+ { /* 722 */
/* type PARROT_INLINE_OP, */
"setref",
"setref_p_p",
@@ -9798,7 +9839,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 720 */
+ { /* 723 */
/* type PARROT_INLINE_OP, */
"deref",
"deref_p_p",
@@ -9810,7 +9851,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 721 */
+ { /* 724 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_i",
@@ -9822,7 +9863,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 722 */
+ { /* 725 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_i",
@@ -9834,7 +9875,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 723 */
+ { /* 726 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_ic",
@@ -9846,7 +9887,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 724 */
+ { /* 727 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_ic",
@@ -9858,7 +9899,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 725 */
+ { /* 728 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_n",
@@ -9870,7 +9911,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 726 */
+ { /* 729 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_n",
@@ -9882,7 +9923,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 727 */
+ { /* 730 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_nc",
@@ -9894,7 +9935,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 728 */
+ { /* 731 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_nc",
@@ -9906,7 +9947,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 729 */
+ { /* 732 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_s",
@@ -9918,7 +9959,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 730 */
+ { /* 733 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_s",
@@ -9930,7 +9971,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 731 */
+ { /* 734 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_sc",
@@ -9942,7 +9983,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 732 */
+ { /* 735 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_sc",
@@ -9954,7 +9995,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 733 */
+ { /* 736 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_ki_p",
@@ -9966,7 +10007,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 734 */
+ { /* 737 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kic_p",
@@ -9978,7 +10019,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 735 */
+ { /* 738 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_p_ki",
@@ -9990,7 +10031,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 736 */
+ { /* 739 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_p_kic",
@@ -10002,7 +10043,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 737 */
+ { /* 740 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_p_ki",
@@ -10014,7 +10055,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 738 */
+ { /* 741 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_p_kic",
@@ -10026,7 +10067,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 739 */
+ { /* 742 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_p_ki",
@@ -10038,7 +10079,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 740 */
+ { /* 743 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_p_kic",
@@ -10050,7 +10091,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 741 */
+ { /* 744 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_p_ki",
@@ -10062,7 +10103,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 742 */
+ { /* 745 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_p_kic",
@@ -10074,7 +10115,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 743 */
+ { /* 746 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_i",
@@ -10086,7 +10127,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 744 */
+ { /* 747 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_i",
@@ -10098,7 +10139,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 745 */
+ { /* 748 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_ic",
@@ -10110,7 +10151,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 746 */
+ { /* 749 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_ic",
@@ -10122,7 +10163,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 747 */
+ { /* 750 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_n",
@@ -10134,7 +10175,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 748 */
+ { /* 751 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_n",
@@ -10146,7 +10187,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 749 */
+ { /* 752 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_nc",
@@ -10158,7 +10199,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 750 */
+ { /* 753 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_nc",
@@ -10170,7 +10211,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 751 */
+ { /* 754 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_s",
@@ -10182,7 +10223,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 752 */
+ { /* 755 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_s",
@@ -10194,7 +10235,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 753 */
+ { /* 756 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_sc",
@@ -10206,7 +10247,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 754 */
+ { /* 757 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_sc",
@@ -10218,7 +10259,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 755 */
+ { /* 758 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_k_p",
@@ -10230,7 +10271,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 756 */
+ { /* 759 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_kc_p",
@@ -10242,7 +10283,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 757 */
+ { /* 760 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_p_k",
@@ -10254,7 +10295,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 758 */
+ { /* 761 */
/* type PARROT_INLINE_OP, */
"set",
"set_i_p_kc",
@@ -10266,7 +10307,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 759 */
+ { /* 762 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_p_k",
@@ -10278,7 +10319,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 760 */
+ { /* 763 */
/* type PARROT_INLINE_OP, */
"set",
"set_n_p_kc",
@@ -10290,7 +10331,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 761 */
+ { /* 764 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_p_k",
@@ -10302,7 +10343,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 762 */
+ { /* 765 */
/* type PARROT_INLINE_OP, */
"set",
"set_s_p_kc",
@@ -10314,7 +10355,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 763 */
+ { /* 766 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_p_k",
@@ -10326,7 +10367,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 764 */
+ { /* 767 */
/* type PARROT_INLINE_OP, */
"set",
"set_p_p_kc",
@@ -10338,7 +10379,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 765 */
+ { /* 768 */
/* type PARROT_INLINE_OP, */
"clone",
"clone_p_p",
@@ -10350,7 +10391,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 766 */
+ { /* 769 */
/* type PARROT_INLINE_OP, */
"clone",
"clone_p_p_p",
@@ -10362,7 +10403,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 767 */
+ { /* 770 */
/* type PARROT_INLINE_OP, */
"clone",
"clone_p_p_pc",
@@ -10374,7 +10415,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 768 */
+ { /* 771 */
/* type PARROT_INLINE_OP, */
"copy",
"copy_p_p",
@@ -10386,7 +10427,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 769 */
+ { /* 772 */
/* type PARROT_INLINE_OP, */
"null",
"null_s",
@@ -10398,7 +10439,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 770 */
+ { /* 773 */
/* type PARROT_INLINE_OP, */
"null",
"null_i",
@@ -10410,7 +10451,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 771 */
+ { /* 774 */
/* type PARROT_INLINE_OP, */
"null",
"null_p",
@@ -10422,7 +10463,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 772 */
+ { /* 775 */
/* type PARROT_INLINE_OP, */
"null",
"null_n",
@@ -10434,7 +10475,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 773 */
+ { /* 776 */
/* type PARROT_INLINE_OP, */
"ord",
"ord_i_s",
@@ -10446,7 +10487,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 774 */
+ { /* 777 */
/* type PARROT_INLINE_OP, */
"ord",
"ord_i_sc",
@@ -10458,7 +10499,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 775 */
+ { /* 778 */
/* type PARROT_INLINE_OP, */
"ord",
"ord_i_s_i",
@@ -10470,7 +10511,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 776 */
+ { /* 779 */
/* type PARROT_INLINE_OP, */
"ord",
"ord_i_sc_i",
@@ -10482,7 +10523,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 777 */
+ { /* 780 */
/* type PARROT_INLINE_OP, */
"ord",
"ord_i_s_ic",
@@ -10494,7 +10535,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 778 */
+ { /* 781 */
/* type PARROT_INLINE_OP, */
"ord",
"ord_i_sc_ic",
@@ -10506,7 +10547,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 779 */
+ { /* 782 */
/* type PARROT_INLINE_OP, */
"chr",
"chr_s_i",
@@ -10518,7 +10559,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 780 */
+ { /* 783 */
/* type PARROT_INLINE_OP, */
"chr",
"chr_s_ic",
@@ -10530,7 +10571,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 781 */
+ { /* 784 */
/* type PARROT_INLINE_OP, */
"chopn",
"chopn_s_s_i",
@@ -10542,7 +10583,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 782 */
+ { /* 785 */
/* type PARROT_INLINE_OP, */
"chopn",
"chopn_s_sc_i",
@@ -10554,7 +10595,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 783 */
+ { /* 786 */
/* type PARROT_INLINE_OP, */
"chopn",
"chopn_s_s_ic",
@@ -10566,7 +10607,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 784 */
+ { /* 787 */
/* type PARROT_INLINE_OP, */
"chopn",
"chopn_s_sc_ic",
@@ -10578,7 +10619,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 785 */
+ { /* 788 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_s_s",
@@ -10590,7 +10631,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 786 */
+ { /* 789 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_s_sc",
@@ -10602,7 +10643,7 @@
{ PARROT_ARGDIR_INOUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 787 */
+ { /* 790 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_p_p",
@@ -10614,7 +10655,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 788 */
+ { /* 791 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_p_s",
@@ -10626,7 +10667,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 789 */
+ { /* 792 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_p_sc",
@@ -10638,7 +10679,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 790 */
+ { /* 793 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_s_s_s",
@@ -10650,7 +10691,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 791 */
+ { /* 794 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_s_sc_s",
@@ -10662,7 +10703,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 792 */
+ { /* 795 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_s_s_sc",
@@ -10674,7 +10715,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 793 */
+ { /* 796 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_p_p_s",
@@ -10686,7 +10727,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 794 */
+ { /* 797 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_p_p_sc",
@@ -10698,7 +10739,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 795 */
+ { /* 798 */
/* type PARROT_INLINE_OP, */
"concat",
"concat_p_p_p",
@@ -10710,7 +10751,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 796 */
+ { /* 799 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_s_s_i",
@@ -10722,7 +10763,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 797 */
+ { /* 800 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_s_sc_i",
@@ -10734,7 +10775,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 798 */
+ { /* 801 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_s_s_ic",
@@ -10746,7 +10787,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 799 */
+ { /* 802 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_s_sc_ic",
@@ -10758,7 +10799,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 800 */
+ { /* 803 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_p_p_i",
@@ -10770,7 +10811,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 801 */
+ { /* 804 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_p_p_ic",
@@ -10782,7 +10823,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 802 */
+ { /* 805 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_p_p_p",
@@ -10794,7 +10835,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 803 */
+ { /* 806 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_p_i",
@@ -10806,7 +10847,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 804 */
+ { /* 807 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_p_ic",
@@ -10818,7 +10859,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 805 */
+ { /* 808 */
/* type PARROT_INLINE_OP, */
"repeat",
"repeat_p_p",
@@ -10830,7 +10871,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 806 */
+ { /* 809 */
/* type PARROT_INLINE_OP, */
"length",
"length_i_s",
@@ -10842,7 +10883,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 807 */
+ { /* 810 */
/* type PARROT_INLINE_OP, */
"length",
"length_i_sc",
@@ -10854,7 +10895,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 808 */
+ { /* 811 */
/* type PARROT_INLINE_OP, */
"bytelength",
"bytelength_i_s",
@@ -10866,7 +10907,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 809 */
+ { /* 812 */
/* type PARROT_INLINE_OP, */
"bytelength",
"bytelength_i_sc",
@@ -10878,7 +10919,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 810 */
+ { /* 813 */
/* type PARROT_FUNCTION_OP, */
"pin",
"pin_s",
@@ -10890,7 +10931,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 811 */
+ { /* 814 */
/* type PARROT_FUNCTION_OP, */
"unpin",
"unpin_s",
@@ -10902,7 +10943,7 @@
{ PARROT_ARGDIR_INOUT },
{ 0 }
},
- { /* 812 */
+ { /* 815 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_s_i",
@@ -10914,7 +10955,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 813 */
+ { /* 816 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_sc_i",
@@ -10926,7 +10967,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 814 */
+ { /* 817 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_s_ic",
@@ -10938,7 +10979,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 815 */
+ { /* 818 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_sc_ic",
@@ -10950,7 +10991,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 816 */
+ { /* 819 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_s_i_i",
@@ -10962,7 +11003,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 817 */
+ { /* 820 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_sc_i_i",
@@ -10974,7 +11015,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 818 */
+ { /* 821 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_s_ic_i",
@@ -10986,7 +11027,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 819 */
+ { /* 822 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_sc_ic_i",
@@ -10998,7 +11039,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 820 */
+ { /* 823 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_s_i_ic",
@@ -11010,7 +11051,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 821 */
+ { /* 824 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_sc_i_ic",
@@ -11022,7 +11063,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 822 */
+ { /* 825 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_s_ic_ic",
@@ -11034,7 +11075,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 823 */
+ { /* 826 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_sc_ic_ic",
@@ -11046,7 +11087,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 824 */
+ { /* 827 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_p_i_i",
@@ -11058,7 +11099,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 825 */
+ { /* 828 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_p_ic_i",
@@ -11070,7 +11111,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 826 */
+ { /* 829 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_p_i_ic",
@@ -11082,7 +11123,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 827 */
+ { /* 830 */
/* type PARROT_INLINE_OP, */
"substr",
"substr_s_p_ic_ic",
@@ -11094,7 +11135,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 828 */
+ { /* 831 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_i_i_s",
@@ -11106,7 +11147,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 829 */
+ { /* 832 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_i_i_s",
@@ -11118,7 +11159,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 830 */
+ { /* 833 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_ic_i_s",
@@ -11130,7 +11171,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 831 */
+ { /* 834 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_ic_i_s",
@@ -11142,7 +11183,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 832 */
+ { /* 835 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_i_ic_s",
@@ -11154,7 +11195,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 833 */
+ { /* 836 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_i_ic_s",
@@ -11166,7 +11207,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 834 */
+ { /* 837 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_ic_ic_s",
@@ -11178,7 +11219,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 835 */
+ { /* 838 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_ic_ic_s",
@@ -11190,7 +11231,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 836 */
+ { /* 839 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_i_i_sc",
@@ -11202,7 +11243,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 837 */
+ { /* 840 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_i_i_sc",
@@ -11214,7 +11255,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 838 */
+ { /* 841 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_ic_i_sc",
@@ -11226,7 +11267,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 839 */
+ { /* 842 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_ic_i_sc",
@@ -11238,7 +11279,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 840 */
+ { /* 843 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_i_ic_sc",
@@ -11250,7 +11291,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 841 */
+ { /* 844 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_i_ic_sc",
@@ -11262,7 +11303,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 842 */
+ { /* 845 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_s_ic_ic_sc",
@@ -11274,7 +11315,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 843 */
+ { /* 846 */
/* type PARROT_INLINE_OP, */
"replace",
"replace_s_sc_ic_ic_sc",
@@ -11286,7 +11327,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 844 */
+ { /* 847 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_s_s",
@@ -11298,7 +11339,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 845 */
+ { /* 848 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_sc_s",
@@ -11310,7 +11351,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 846 */
+ { /* 849 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_s_sc",
@@ -11322,7 +11363,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 847 */
+ { /* 850 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_sc_sc",
@@ -11334,7 +11375,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 848 */
+ { /* 851 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_s_s_i",
@@ -11346,7 +11387,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 849 */
+ { /* 852 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_sc_s_i",
@@ -11358,7 +11399,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 850 */
+ { /* 853 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_s_sc_i",
@@ -11370,7 +11411,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 851 */
+ { /* 854 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_sc_sc_i",
@@ -11382,7 +11423,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 852 */
+ { /* 855 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_s_s_ic",
@@ -11394,7 +11435,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 853 */
+ { /* 856 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_sc_s_ic",
@@ -11406,7 +11447,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 854 */
+ { /* 857 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_s_sc_ic",
@@ -11418,7 +11459,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 855 */
+ { /* 858 */
/* type PARROT_INLINE_OP, */
"index",
"index_i_sc_sc_ic",
@@ -11430,7 +11471,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 856 */
+ { /* 859 */
/* type PARROT_INLINE_OP, */
"sprintf",
"sprintf_s_s_p",
@@ -11442,7 +11483,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 857 */
+ { /* 860 */
/* type PARROT_INLINE_OP, */
"sprintf",
"sprintf_s_sc_p",
@@ -11454,7 +11495,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 858 */
+ { /* 861 */
/* type PARROT_INLINE_OP, */
"sprintf",
"sprintf_p_p_p",
@@ -11466,7 +11507,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 859 */
+ { /* 862 */
/* type PARROT_INLINE_OP, */
"new",
"new_s",
@@ -11478,7 +11519,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 860 */
+ { /* 863 */
/* type PARROT_INLINE_OP, */
"new",
"new_s_i",
@@ -11490,7 +11531,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 861 */
+ { /* 864 */
/* type PARROT_INLINE_OP, */
"new",
"new_s_ic",
@@ -11502,7 +11543,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 862 */
+ { /* 865 */
/* type PARROT_INLINE_OP, */
"stringinfo",
"stringinfo_i_s_i",
@@ -11514,7 +11555,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 863 */
+ { /* 866 */
/* type PARROT_INLINE_OP, */
"stringinfo",
"stringinfo_i_sc_i",
@@ -11526,7 +11567,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 864 */
+ { /* 867 */
/* type PARROT_INLINE_OP, */
"stringinfo",
"stringinfo_i_s_ic",
@@ -11538,7 +11579,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 865 */
+ { /* 868 */
/* type PARROT_INLINE_OP, */
"stringinfo",
"stringinfo_i_sc_ic",
@@ -11550,7 +11591,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 866 */
+ { /* 869 */
/* type PARROT_INLINE_OP, */
"upcase",
"upcase_s_s",
@@ -11562,7 +11603,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 867 */
+ { /* 870 */
/* type PARROT_INLINE_OP, */
"upcase",
"upcase_s_sc",
@@ -11574,7 +11615,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 868 */
+ { /* 871 */
/* type PARROT_INLINE_OP, */
"downcase",
"downcase_s_s",
@@ -11586,7 +11627,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 869 */
+ { /* 872 */
/* type PARROT_INLINE_OP, */
"downcase",
"downcase_s_sc",
@@ -11598,7 +11639,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 870 */
+ { /* 873 */
/* type PARROT_INLINE_OP, */
"titlecase",
"titlecase_s_s",
@@ -11610,7 +11651,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 871 */
+ { /* 874 */
/* type PARROT_INLINE_OP, */
"titlecase",
"titlecase_s_sc",
@@ -11622,7 +11663,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 872 */
+ { /* 875 */
/* type PARROT_FUNCTION_OP, */
"join",
"join_s_s_p",
@@ -11634,7 +11675,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 873 */
+ { /* 876 */
/* type PARROT_FUNCTION_OP, */
"join",
"join_s_sc_p",
@@ -11646,7 +11687,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 874 */
+ { /* 877 */
/* type PARROT_FUNCTION_OP, */
"split",
"split_p_s_s",
@@ -11658,7 +11699,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 875 */
+ { /* 878 */
/* type PARROT_FUNCTION_OP, */
"split",
"split_p_sc_s",
@@ -11670,7 +11711,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 876 */
+ { /* 879 */
/* type PARROT_FUNCTION_OP, */
"split",
"split_p_s_sc",
@@ -11682,7 +11723,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 877 */
+ { /* 880 */
/* type PARROT_FUNCTION_OP, */
"split",
"split_p_sc_sc",
@@ -11694,7 +11735,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 878 */
+ { /* 881 */
/* type PARROT_FUNCTION_OP, */
"charset",
"charset_i_s",
@@ -11706,7 +11747,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 879 */
+ { /* 882 */
/* type PARROT_FUNCTION_OP, */
"charset",
"charset_i_sc",
@@ -11718,7 +11759,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 880 */
+ { /* 883 */
/* type PARROT_FUNCTION_OP, */
"charsetname",
"charsetname_s_i",
@@ -11730,7 +11771,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 881 */
+ { /* 884 */
/* type PARROT_FUNCTION_OP, */
"charsetname",
"charsetname_s_ic",
@@ -11742,7 +11783,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 882 */
+ { /* 885 */
/* type PARROT_FUNCTION_OP, */
"find_charset",
"find_charset_i_s",
@@ -11754,7 +11795,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 883 */
+ { /* 886 */
/* type PARROT_FUNCTION_OP, */
"find_charset",
"find_charset_i_sc",
@@ -11766,7 +11807,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 884 */
+ { /* 887 */
/* type PARROT_FUNCTION_OP, */
"trans_charset",
"trans_charset_s_s_i",
@@ -11778,7 +11819,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 885 */
+ { /* 888 */
/* type PARROT_FUNCTION_OP, */
"trans_charset",
"trans_charset_s_sc_i",
@@ -11790,7 +11831,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 886 */
+ { /* 889 */
/* type PARROT_FUNCTION_OP, */
"trans_charset",
"trans_charset_s_s_ic",
@@ -11802,7 +11843,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 887 */
+ { /* 890 */
/* type PARROT_FUNCTION_OP, */
"trans_charset",
"trans_charset_s_sc_ic",
@@ -11814,7 +11855,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 888 */
+ { /* 891 */
/* type PARROT_FUNCTION_OP, */
"encoding",
"encoding_i_s",
@@ -11826,7 +11867,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 889 */
+ { /* 892 */
/* type PARROT_FUNCTION_OP, */
"encoding",
"encoding_i_sc",
@@ -11838,7 +11879,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 890 */
+ { /* 893 */
/* type PARROT_FUNCTION_OP, */
"encodingname",
"encodingname_s_i",
@@ -11850,7 +11891,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 891 */
+ { /* 894 */
/* type PARROT_FUNCTION_OP, */
"encodingname",
"encodingname_s_ic",
@@ -11862,7 +11903,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 892 */
+ { /* 895 */
/* type PARROT_FUNCTION_OP, */
"find_encoding",
"find_encoding_i_s",
@@ -11874,7 +11915,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 893 */
+ { /* 896 */
/* type PARROT_FUNCTION_OP, */
"find_encoding",
"find_encoding_i_sc",
@@ -11886,7 +11927,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 894 */
+ { /* 897 */
/* type PARROT_FUNCTION_OP, */
"trans_encoding",
"trans_encoding_s_s_i",
@@ -11898,7 +11939,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 895 */
+ { /* 898 */
/* type PARROT_FUNCTION_OP, */
"trans_encoding",
"trans_encoding_s_sc_i",
@@ -11910,7 +11951,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 896 */
+ { /* 899 */
/* type PARROT_FUNCTION_OP, */
"trans_encoding",
"trans_encoding_s_s_ic",
@@ -11922,7 +11963,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 897 */
+ { /* 900 */
/* type PARROT_FUNCTION_OP, */
"trans_encoding",
"trans_encoding_s_sc_ic",
@@ -11934,7 +11975,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 898 */
+ { /* 901 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_i_s_i",
@@ -11946,7 +11987,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 899 */
+ { /* 902 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_ic_s_i",
@@ -11958,7 +11999,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 900 */
+ { /* 903 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_i_sc_i",
@@ -11970,7 +12011,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 901 */
+ { /* 904 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_ic_sc_i",
@@ -11982,7 +12023,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 902 */
+ { /* 905 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_i_s_ic",
@@ -11994,7 +12035,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 903 */
+ { /* 906 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_ic_s_ic",
@@ -12006,7 +12047,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 904 */
+ { /* 907 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_i_sc_ic",
@@ -12018,7 +12059,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 905 */
+ { /* 908 */
/* type PARROT_INLINE_OP, */
"is_cclass",
"is_cclass_i_ic_sc_ic",
@@ -12030,7 +12071,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 906 */
+ { /* 909 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_s_i_i",
@@ -12042,7 +12083,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 907 */
+ { /* 910 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_s_i_i",
@@ -12054,7 +12095,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 908 */
+ { /* 911 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_sc_i_i",
@@ -12066,7 +12107,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 909 */
+ { /* 912 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_sc_i_i",
@@ -12078,7 +12119,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 910 */
+ { /* 913 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_s_ic_i",
@@ -12090,7 +12131,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 911 */
+ { /* 914 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_s_ic_i",
@@ -12102,7 +12143,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 912 */
+ { /* 915 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_sc_ic_i",
@@ -12114,7 +12155,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 913 */
+ { /* 916 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_sc_ic_i",
@@ -12126,7 +12167,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 914 */
+ { /* 917 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_s_i_ic",
@@ -12138,7 +12179,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 915 */
+ { /* 918 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_s_i_ic",
@@ -12150,7 +12191,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 916 */
+ { /* 919 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_sc_i_ic",
@@ -12162,7 +12203,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 917 */
+ { /* 920 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_sc_i_ic",
@@ -12174,7 +12215,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 918 */
+ { /* 921 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_s_ic_ic",
@@ -12186,7 +12227,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 919 */
+ { /* 922 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_s_ic_ic",
@@ -12198,7 +12239,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 920 */
+ { /* 923 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_i_sc_ic_ic",
@@ -12210,7 +12251,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 921 */
+ { /* 924 */
/* type PARROT_INLINE_OP, */
"find_cclass",
"find_cclass_i_ic_sc_ic_ic",
@@ -12222,7 +12263,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 922 */
+ { /* 925 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_s_i_i",
@@ -12234,7 +12275,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 923 */
+ { /* 926 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_s_i_i",
@@ -12246,7 +12287,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 924 */
+ { /* 927 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_sc_i_i",
@@ -12258,7 +12299,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 925 */
+ { /* 928 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_sc_i_i",
@@ -12270,7 +12311,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 926 */
+ { /* 929 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_s_ic_i",
@@ -12282,7 +12323,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 927 */
+ { /* 930 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_s_ic_i",
@@ -12294,7 +12335,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 928 */
+ { /* 931 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_sc_ic_i",
@@ -12306,7 +12347,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 929 */
+ { /* 932 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_sc_ic_i",
@@ -12318,7 +12359,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 930 */
+ { /* 933 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_s_i_ic",
@@ -12330,7 +12371,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 931 */
+ { /* 934 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_s_i_ic",
@@ -12342,7 +12383,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 932 */
+ { /* 935 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_sc_i_ic",
@@ -12354,7 +12395,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 933 */
+ { /* 936 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_sc_i_ic",
@@ -12366,7 +12407,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 934 */
+ { /* 937 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_s_ic_ic",
@@ -12378,7 +12419,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 935 */
+ { /* 938 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_s_ic_ic",
@@ -12390,7 +12431,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 936 */
+ { /* 939 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_i_sc_ic_ic",
@@ -12402,7 +12443,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 937 */
+ { /* 940 */
/* type PARROT_INLINE_OP, */
"find_not_cclass",
"find_not_cclass_i_ic_sc_ic_ic",
@@ -12414,7 +12455,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0, 0 }
},
- { /* 938 */
+ { /* 941 */
/* type PARROT_FUNCTION_OP, */
"escape",
"escape_s_s",
@@ -12426,7 +12467,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 939 */
+ { /* 942 */
/* type PARROT_FUNCTION_OP, */
"compose",
"compose_s_s",
@@ -12438,7 +12479,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 940 */
+ { /* 943 */
/* type PARROT_FUNCTION_OP, */
"compose",
"compose_s_sc",
@@ -12450,7 +12491,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 941 */
+ { /* 944 */
/* type PARROT_INLINE_OP, */
"spawnw",
"spawnw_i_s",
@@ -12462,7 +12503,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 942 */
+ { /* 945 */
/* type PARROT_INLINE_OP, */
"spawnw",
"spawnw_i_sc",
@@ -12474,7 +12515,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 943 */
+ { /* 946 */
/* type PARROT_INLINE_OP, */
"spawnw",
"spawnw_i_p",
@@ -12486,7 +12527,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 944 */
+ { /* 947 */
/* type PARROT_INLINE_OP, */
"err",
"err_i",
@@ -12498,7 +12539,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 945 */
+ { /* 948 */
/* type PARROT_FUNCTION_OP, */
"err",
"err_s",
@@ -12510,7 +12551,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 946 */
+ { /* 949 */
/* type PARROT_FUNCTION_OP, */
"err",
"err_s_i",
@@ -12522,7 +12563,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 947 */
+ { /* 950 */
/* type PARROT_FUNCTION_OP, */
"err",
"err_s_ic",
@@ -12534,7 +12575,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 948 */
+ { /* 951 */
/* type PARROT_INLINE_OP, */
"time",
"time_i",
@@ -12546,7 +12587,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 949 */
+ { /* 952 */
/* type PARROT_INLINE_OP, */
"time",
"time_n",
@@ -12558,7 +12599,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 950 */
+ { /* 953 */
/* type PARROT_INLINE_OP, */
"sleep",
"sleep_i",
@@ -12570,7 +12611,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 951 */
+ { /* 954 */
/* type PARROT_INLINE_OP, */
"sleep",
"sleep_ic",
@@ -12582,7 +12623,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 952 */
+ { /* 955 */
/* type PARROT_INLINE_OP, */
"sleep",
"sleep_n",
@@ -12594,7 +12635,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 953 */
+ { /* 956 */
/* type PARROT_INLINE_OP, */
"sleep",
"sleep_nc",
@@ -12606,7 +12647,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 954 */
+ { /* 957 */
/* type PARROT_FUNCTION_OP, */
"store_lex",
"store_lex_s_p",
@@ -12618,7 +12659,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 955 */
+ { /* 958 */
/* type PARROT_FUNCTION_OP, */
"store_lex",
"store_lex_sc_p",
@@ -12630,7 +12671,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 956 */
+ { /* 959 */
/* type PARROT_FUNCTION_OP, */
"store_dynamic_lex",
"store_dynamic_lex_s_p",
@@ -12642,7 +12683,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 957 */
+ { /* 960 */
/* type PARROT_FUNCTION_OP, */
"store_dynamic_lex",
"store_dynamic_lex_sc_p",
@@ -12654,7 +12695,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 958 */
+ { /* 961 */
/* type PARROT_FUNCTION_OP, */
"find_lex",
"find_lex_p_s",
@@ -12666,7 +12707,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 959 */
+ { /* 962 */
/* type PARROT_FUNCTION_OP, */
"find_lex",
"find_lex_p_sc",
@@ -12678,7 +12719,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 960 */
+ { /* 963 */
/* type PARROT_FUNCTION_OP, */
"find_dynamic_lex",
"find_dynamic_lex_p_s",
@@ -12690,7 +12731,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 961 */
+ { /* 964 */
/* type PARROT_FUNCTION_OP, */
"find_dynamic_lex",
"find_dynamic_lex_p_sc",
@@ -12702,7 +12743,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 962 */
+ { /* 965 */
/* type PARROT_FUNCTION_OP, */
"find_caller_lex",
"find_caller_lex_p_s",
@@ -12714,7 +12755,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 963 */
+ { /* 966 */
/* type PARROT_FUNCTION_OP, */
"find_caller_lex",
"find_caller_lex_p_sc",
@@ -12726,7 +12767,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 964 */
+ { /* 967 */
/* type PARROT_FUNCTION_OP, */
"get_namespace",
"get_namespace_p",
@@ -12738,7 +12779,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 965 */
+ { /* 968 */
/* type PARROT_FUNCTION_OP, */
"get_namespace",
"get_namespace_p_p",
@@ -12750,7 +12791,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 966 */
+ { /* 969 */
/* type PARROT_FUNCTION_OP, */
"get_namespace",
"get_namespace_p_pc",
@@ -12762,7 +12803,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 967 */
+ { /* 970 */
/* type PARROT_FUNCTION_OP, */
"get_hll_namespace",
"get_hll_namespace_p",
@@ -12774,7 +12815,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 968 */
+ { /* 971 */
/* type PARROT_FUNCTION_OP, */
"get_hll_namespace",
"get_hll_namespace_p_p",
@@ -12786,7 +12827,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 969 */
+ { /* 972 */
/* type PARROT_FUNCTION_OP, */
"get_hll_namespace",
"get_hll_namespace_p_pc",
@@ -12798,7 +12839,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 970 */
+ { /* 973 */
/* type PARROT_FUNCTION_OP, */
"get_root_namespace",
"get_root_namespace_p",
@@ -12810,7 +12851,7 @@
{ PARROT_ARGDIR_OUT },
{ 0 }
},
- { /* 971 */
+ { /* 974 */
/* type PARROT_FUNCTION_OP, */
"get_root_namespace",
"get_root_namespace_p_p",
@@ -12822,7 +12863,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 972 */
+ { /* 975 */
/* type PARROT_FUNCTION_OP, */
"get_root_namespace",
"get_root_namespace_p_pc",
@@ -12834,7 +12875,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 973 */
+ { /* 976 */
/* type PARROT_FUNCTION_OP, */
"get_global",
"get_global_p_s",
@@ -12846,7 +12887,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 974 */
+ { /* 977 */
/* type PARROT_FUNCTION_OP, */
"get_global",
"get_global_p_sc",
@@ -12858,7 +12899,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 975 */
+ { /* 978 */
/* type PARROT_FUNCTION_OP, */
"get_global",
"get_global_p_p_s",
@@ -12870,7 +12911,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 976 */
+ { /* 979 */
/* type PARROT_FUNCTION_OP, */
"get_global",
"get_global_p_pc_s",
@@ -12882,7 +12923,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 977 */
+ { /* 980 */
/* type PARROT_FUNCTION_OP, */
"get_global",
"get_global_p_p_sc",
@@ -12894,7 +12935,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 978 */
+ { /* 981 */
/* type PARROT_FUNCTION_OP, */
"get_global",
"get_global_p_pc_sc",
@@ -12906,7 +12947,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 979 */
+ { /* 982 */
/* type PARROT_FUNCTION_OP, */
"get_hll_global",
"get_hll_global_p_s",
@@ -12918,7 +12959,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 980 */
+ { /* 983 */
/* type PARROT_FUNCTION_OP, */
"get_hll_global",
"get_hll_global_p_sc",
@@ -12930,7 +12971,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 981 */
+ { /* 984 */
/* type PARROT_FUNCTION_OP, */
"get_hll_global",
"get_hll_global_p_p_s",
@@ -12942,7 +12983,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 982 */
+ { /* 985 */
/* type PARROT_FUNCTION_OP, */
"get_hll_global",
"get_hll_global_p_pc_s",
@@ -12954,7 +12995,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 983 */
+ { /* 986 */
/* type PARROT_FUNCTION_OP, */
"get_hll_global",
"get_hll_global_p_p_sc",
@@ -12966,7 +13007,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 984 */
+ { /* 987 */
/* type PARROT_FUNCTION_OP, */
"get_hll_global",
"get_hll_global_p_pc_sc",
@@ -12978,7 +13019,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 985 */
+ { /* 988 */
/* type PARROT_FUNCTION_OP, */
"get_root_global",
"get_root_global_p_s",
@@ -12990,7 +13031,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 986 */
+ { /* 989 */
/* type PARROT_FUNCTION_OP, */
"get_root_global",
"get_root_global_p_sc",
@@ -13002,7 +13043,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 987 */
+ { /* 990 */
/* type PARROT_FUNCTION_OP, */
"get_root_global",
"get_root_global_p_p_s",
@@ -13014,7 +13055,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 988 */
+ { /* 991 */
/* type PARROT_FUNCTION_OP, */
"get_root_global",
"get_root_global_p_pc_s",
@@ -13026,7 +13067,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 989 */
+ { /* 992 */
/* type PARROT_FUNCTION_OP, */
"get_root_global",
"get_root_global_p_p_sc",
@@ -13038,7 +13079,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 990 */
+ { /* 993 */
/* type PARROT_FUNCTION_OP, */
"get_root_global",
"get_root_global_p_pc_sc",
@@ -13050,7 +13091,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 991 */
+ { /* 994 */
/* type PARROT_FUNCTION_OP, */
"set_global",
"set_global_s_p",
@@ -13062,7 +13103,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 992 */
+ { /* 995 */
/* type PARROT_FUNCTION_OP, */
"set_global",
"set_global_sc_p",
@@ -13074,7 +13115,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 993 */
+ { /* 996 */
/* type PARROT_FUNCTION_OP, */
"set_global",
"set_global_p_s_p",
@@ -13086,7 +13127,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 994 */
+ { /* 997 */
/* type PARROT_FUNCTION_OP, */
"set_global",
"set_global_pc_s_p",
@@ -13098,7 +13139,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 995 */
+ { /* 998 */
/* type PARROT_FUNCTION_OP, */
"set_global",
"set_global_p_sc_p",
@@ -13110,7 +13151,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 996 */
+ { /* 999 */
/* type PARROT_FUNCTION_OP, */
"set_global",
"set_global_pc_sc_p",
@@ -13122,7 +13163,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 997 */
+ { /* 1000 */
/* type PARROT_FUNCTION_OP, */
"set_hll_global",
"set_hll_global_s_p",
@@ -13134,7 +13175,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 998 */
+ { /* 1001 */
/* type PARROT_FUNCTION_OP, */
"set_hll_global",
"set_hll_global_sc_p",
@@ -13146,7 +13187,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 999 */
+ { /* 1002 */
/* type PARROT_FUNCTION_OP, */
"set_hll_global",
"set_hll_global_p_s_p",
@@ -13158,7 +13199,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1000 */
+ { /* 1003 */
/* type PARROT_FUNCTION_OP, */
"set_hll_global",
"set_hll_global_pc_s_p",
@@ -13170,7 +13211,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1001 */
+ { /* 1004 */
/* type PARROT_FUNCTION_OP, */
"set_hll_global",
"set_hll_global_p_sc_p",
@@ -13182,7 +13223,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1002 */
+ { /* 1005 */
/* type PARROT_FUNCTION_OP, */
"set_hll_global",
"set_hll_global_pc_sc_p",
@@ -13194,7 +13235,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1003 */
+ { /* 1006 */
/* type PARROT_FUNCTION_OP, */
"set_root_global",
"set_root_global_s_p",
@@ -13206,7 +13247,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1004 */
+ { /* 1007 */
/* type PARROT_FUNCTION_OP, */
"set_root_global",
"set_root_global_sc_p",
@@ -13218,7 +13259,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1005 */
+ { /* 1008 */
/* type PARROT_FUNCTION_OP, */
"set_root_global",
"set_root_global_p_s_p",
@@ -13230,7 +13271,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1006 */
+ { /* 1009 */
/* type PARROT_FUNCTION_OP, */
"set_root_global",
"set_root_global_pc_s_p",
@@ -13242,7 +13283,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1007 */
+ { /* 1010 */
/* type PARROT_FUNCTION_OP, */
"set_root_global",
"set_root_global_p_sc_p",
@@ -13254,7 +13295,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1008 */
+ { /* 1011 */
/* type PARROT_FUNCTION_OP, */
"set_root_global",
"set_root_global_pc_sc_p",
@@ -13266,7 +13307,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1009 */
+ { /* 1012 */
/* type PARROT_FUNCTION_OP, */
"find_name",
"find_name_p_s",
@@ -13278,7 +13319,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1010 */
+ { /* 1013 */
/* type PARROT_FUNCTION_OP, */
"find_name",
"find_name_p_sc",
@@ -13290,7 +13331,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1011 */
+ { /* 1014 */
/* type PARROT_INLINE_OP, */
"find_sub_not_null",
"find_sub_not_null_p_s",
@@ -13302,7 +13343,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1012 */
+ { /* 1015 */
/* type PARROT_INLINE_OP, */
"find_sub_not_null",
"find_sub_not_null_p_sc",
@@ -13314,7 +13355,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1013 */
+ { /* 1016 */
/* type PARROT_FUNCTION_OP, */
"trap",
"trap",
@@ -13326,7 +13367,7 @@
{ (arg_dir_t) 0 },
{ 0 }
},
- { /* 1014 */
+ { /* 1017 */
/* type PARROT_INLINE_OP, */
"set_label",
"set_label_p_ic",
@@ -13338,7 +13379,7 @@
{ PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 1 }
},
- { /* 1015 */
+ { /* 1018 */
/* type PARROT_INLINE_OP, */
"get_label",
"get_label_i_p",
@@ -13350,7 +13391,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1016 */
+ { /* 1019 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_p_p",
@@ -13362,7 +13403,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1017 */
+ { /* 1020 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_p_p",
@@ -13374,7 +13415,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1018 */
+ { /* 1021 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_pc_p",
@@ -13386,7 +13427,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1019 */
+ { /* 1022 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_pc_p",
@@ -13398,7 +13439,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1020 */
+ { /* 1023 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_p_pc",
@@ -13410,7 +13451,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1021 */
+ { /* 1024 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_p_pc",
@@ -13422,7 +13463,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1022 */
+ { /* 1025 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_pc_pc",
@@ -13434,7 +13475,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1023 */
+ { /* 1026 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_pc_pc",
@@ -13446,7 +13487,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1024 */
+ { /* 1027 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_i_p",
@@ -13458,7 +13499,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1025 */
+ { /* 1028 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_i_p",
@@ -13470,7 +13511,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1026 */
+ { /* 1029 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_ic_p",
@@ -13482,7 +13523,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1027 */
+ { /* 1030 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_ic_p",
@@ -13494,7 +13535,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1028 */
+ { /* 1031 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_i_pc",
@@ -13506,7 +13547,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1029 */
+ { /* 1032 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_i_pc",
@@ -13518,7 +13559,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1030 */
+ { /* 1033 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_ic_pc",
@@ -13530,7 +13571,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1031 */
+ { /* 1034 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_ic_pc",
@@ -13542,7 +13583,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1032 */
+ { /* 1035 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_s_p",
@@ -13554,7 +13595,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1033 */
+ { /* 1036 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_s_p",
@@ -13566,7 +13607,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1034 */
+ { /* 1037 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_sc_p",
@@ -13578,7 +13619,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1035 */
+ { /* 1038 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_sc_p",
@@ -13590,7 +13631,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1036 */
+ { /* 1039 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_s_pc",
@@ -13602,7 +13643,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1037 */
+ { /* 1040 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_s_pc",
@@ -13614,7 +13655,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1038 */
+ { /* 1041 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_p_sc_pc",
@@ -13626,7 +13667,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1039 */
+ { /* 1042 */
/* type PARROT_INLINE_OP, */
"fetch",
"fetch_p_pc_sc_pc",
@@ -13638,7 +13679,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1040 */
+ { /* 1043 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_p_p",
@@ -13650,7 +13691,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1041 */
+ { /* 1044 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_p_p",
@@ -13662,7 +13703,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1042 */
+ { /* 1045 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_pc_p",
@@ -13674,7 +13715,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1043 */
+ { /* 1046 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_pc_p",
@@ -13686,7 +13727,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1044 */
+ { /* 1047 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_p_pc",
@@ -13698,7 +13739,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1045 */
+ { /* 1048 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_p_pc",
@@ -13710,7 +13751,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1046 */
+ { /* 1049 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_pc_pc",
@@ -13722,7 +13763,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1047 */
+ { /* 1050 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_pc_pc",
@@ -13734,7 +13775,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1048 */
+ { /* 1051 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_i_p",
@@ -13746,7 +13787,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1049 */
+ { /* 1052 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_i_p",
@@ -13758,7 +13799,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1050 */
+ { /* 1053 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_ic_p",
@@ -13770,7 +13811,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1051 */
+ { /* 1054 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_ic_p",
@@ -13782,7 +13823,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1052 */
+ { /* 1055 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_i_pc",
@@ -13794,7 +13835,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1053 */
+ { /* 1056 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_i_pc",
@@ -13806,7 +13847,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1054 */
+ { /* 1057 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_ic_pc",
@@ -13818,7 +13859,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1055 */
+ { /* 1058 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_ic_pc",
@@ -13830,7 +13871,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1056 */
+ { /* 1059 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_s_p",
@@ -13842,7 +13883,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1057 */
+ { /* 1060 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_s_p",
@@ -13854,7 +13895,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1058 */
+ { /* 1061 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_sc_p",
@@ -13866,7 +13907,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1059 */
+ { /* 1062 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_sc_p",
@@ -13878,7 +13919,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1060 */
+ { /* 1063 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_s_pc",
@@ -13890,7 +13931,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1061 */
+ { /* 1064 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_s_pc",
@@ -13902,7 +13943,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1062 */
+ { /* 1065 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_p_sc_pc",
@@ -13914,7 +13955,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1063 */
+ { /* 1066 */
/* type PARROT_INLINE_OP, */
"vivify",
"vivify_p_pc_sc_pc",
@@ -13926,7 +13967,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0, 0 }
},
- { /* 1064 */
+ { /* 1067 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_s_i",
@@ -13938,7 +13979,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1065 */
+ { /* 1068 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_sc_i",
@@ -13950,7 +13991,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1066 */
+ { /* 1069 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_s_ic",
@@ -13962,7 +14003,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1067 */
+ { /* 1070 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_sc_ic",
@@ -13974,7 +14015,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1068 */
+ { /* 1071 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_p_i",
@@ -13986,7 +14027,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1069 */
+ { /* 1072 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_pc_i",
@@ -13998,7 +14039,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1070 */
+ { /* 1073 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_p_ic",
@@ -14010,7 +14051,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1071 */
+ { /* 1074 */
/* type PARROT_FUNCTION_OP, */
"new",
"new_p_pc_ic",
@@ -14022,7 +14063,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1072 */
+ { /* 1075 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_p_i",
@@ -14034,7 +14075,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1073 */
+ { /* 1076 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_pc_i",
@@ -14046,7 +14087,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1074 */
+ { /* 1077 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_p_ic",
@@ -14058,7 +14099,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1075 */
+ { /* 1078 */
/* type PARROT_FUNCTION_OP, */
"root_new",
"root_new_p_pc_ic",
@@ -14070,7 +14111,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN, PARROT_ARGDIR_IN },
{ 0, 0, 0 }
},
- { /* 1076 */
+ { /* 1079 */
/* type PARROT_FUNCTION_OP, */
"find_codepoint",
"find_codepoint_i_s",
@@ -14082,7 +14123,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1077 */
+ { /* 1080 */
/* type PARROT_FUNCTION_OP, */
"find_codepoint",
"find_codepoint_i_sc",
@@ -14094,7 +14135,7 @@
{ PARROT_ARGDIR_OUT, PARROT_ARGDIR_IN },
{ 0, 0 }
},
- { /* 1078 */
+ { /* 1081 */
/* type PARROT_FUNCTION_OP, */
"finalize",
"finalize_p",
@@ -14106,7 +14147,7 @@
{ PARROT_ARGDIR_IN },
{ 0 }
},
- { /* 1079 */
+ { /* 1082 */
/* type PARROT_FUNCTION_OP, */
"finalize",
"finalize_pc",
@@ -14338,6 +14379,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, NULL);
interp->current_cont = NEED_CONTINUATION;
@@ -14352,6 +14395,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, NULL);
interp->current_cont = PREG(2);
@@ -14752,7 +14797,8 @@
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);
+ PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,
+ CONTROL_EXIT, NULL);
VTABLE_set_pointer(interp, resume, ret);
@@ -14769,7 +14815,8 @@
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);
+ PMC * const exception = Parrot_ex_build_exception(interp, EXCEPT_exit,
+ CONTROL_EXIT, NULL);
VTABLE_set_pointer(interp, resume, ret);
@@ -14984,7 +15031,7 @@
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);
+ Parrot_gc_mark_and_sweep(interp, GC_trace_normal_FLAG);
else
if (Parrot_gc_impatient_pmcs(interp))
Parrot_gc_mark_and_sweep(interp, GC_lazy_FLAG);
@@ -17409,6 +17456,27 @@
return (opcode_t *)cur_opcode + 3;}
opcode_t *
+Parrot_getstdin_p(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);
+
+return (opcode_t *)cur_opcode + 2;}
+
+opcode_t *
+Parrot_getstdout_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);
+
+return (opcode_t *)cur_opcode + 2;}
+
+opcode_t *
+Parrot_getstderr_p(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);
+
+return (opcode_t *)cur_opcode + 2;}
+
+opcode_t *
Parrot_abs_i(opcode_t *cur_opcode, PARROT_INTERP) {
const Parrot_Context * const CUR_CTX = Parrot_pcc_get_context_struct(interp, interp->ctx);
IREG(1) = abs(IREG(1));
@@ -18603,6 +18671,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (PMC_IS_NULL(method_pmc)) {
PMC * const _class = VTABLE_get_class(interp, object);
if (PMC_IS_NULL(_class)) {
@@ -18637,6 +18707,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (PMC_IS_NULL(method_pmc)) {
PMC * const _class = VTABLE_get_class(interp, object);
if (PMC_IS_NULL(_class)) {
@@ -18667,6 +18739,8 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, PREG(1));
interp->current_cont = NEED_CONTINUATION;
@@ -18685,6 +18759,7 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
if (PMC_IS_NULL(method_pmc)) {
dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
@@ -18711,6 +18786,7 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
if (PMC_IS_NULL(method_pmc)) {
dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
@@ -18736,6 +18812,8 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = PREG(3);
@@ -23277,7 +23355,9 @@
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,
+ opcode_t *handler;
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+ handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_GLOBAL_NOT_FOUND,
"Could not find sub %Ss", SREG(2));return (opcode_t *)handler;
}
@@ -23293,7 +23373,9 @@
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,
+ opcode_t *handler;
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+ 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;
}
@@ -24946,7 +25028,7 @@
2, /* major_version */
4, /* minor_version */
0, /* patch_version */
- 1080, /* op_count */
+ 1083, /* op_count */
core_op_info_table, /* op_info_table */
core_op_func_table, /* op_func_table */
get_op /* op_code() */
Modified: branches/gsoc_instrument/src/ops/experimental.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/experimental.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/experimental.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -27,6 +27,8 @@
If you rely on any of these opcodes, please open a
Trac ticket at L<https://trac.parrot.org/>.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
=cut
Modified: branches/gsoc_instrument/src/ops/io.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/io.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/io.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,6 +19,9 @@
Parrot's IO API
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=cut
###############################################################################
@@ -172,6 +175,35 @@
}
}
+=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);
+}
+
###############################################################################
/*
Modified: branches/gsoc_instrument/src/ops/math.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/math.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/math.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -14,6 +14,9 @@
Operations that perform basic mathematics. See F<src/dynoplibs/> for more
advanced operations.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=head2 Arithmetic operations
These operations store the results of arithmetic on other registers and
Modified: branches/gsoc_instrument/src/ops/object.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/object.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/object.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -14,6 +14,9 @@
Parrot's library of object ops
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=over 4
=cut
@@ -56,6 +59,8 @@
PMC * const signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (PMC_IS_NULL(method_pmc)) {
PMC * const _class = VTABLE_get_class(interp, object);
if (PMC_IS_NULL(_class)) {
@@ -85,6 +90,8 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, $1);
interp->current_cont = NEED_CONTINUATION;
@@ -103,6 +110,7 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
if (PMC_IS_NULL(method_pmc)) {
dest = Parrot_ex_throw_from_op_args(interp, next, EXCEPTION_METHOD_NOT_FOUND,
@@ -127,6 +135,8 @@
PMC * signature = Parrot_pcc_get_signature(interp,
CURRENT_CONTEXT(interp));
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), next);
+
if (!PMC_IS_NULL(signature))
Parrot_pcc_set_object(interp, signature, object);
interp->current_cont = $3;
Modified: branches/gsoc_instrument/src/ops/pmc.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/pmc.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/pmc.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -15,6 +15,9 @@
Operations that deal with PMCs, including creation and
destruction, manipulation, and introspection.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=cut
###############################################################################
Modified: branches/gsoc_instrument/src/ops/set.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/set.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/set.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -11,6 +11,9 @@
These operations all set registers to various values.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=over 4
=cut
Modified: branches/gsoc_instrument/src/ops/string.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/string.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/string.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -12,6 +12,9 @@
Operations that work on strings, whether constructing, modifying
or examining them.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=over 4
=cut
Modified: branches/gsoc_instrument/src/ops/sys.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/sys.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/sys.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -11,6 +11,9 @@
Operations that allow the user to interact with the system.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=over 4
=cut
Modified: branches/gsoc_instrument/src/ops/var.ops
==============================================================================
--- branches/gsoc_instrument/src/ops/var.ops Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/ops/var.ops Sun Jun 6 16:09:33 2010 (r47429)
@@ -12,6 +12,9 @@
These operations deal with both lexical and global variables,
as well as the symbol tables that contain them.
+When making changes to any ops file, run C<make bootstrap-ops> to regenerate
+all generated ops files.
+
=cut
###############################################################################
@@ -482,7 +485,9 @@
PMC *sub = Parrot_find_name_op(interp, $2, dest);
if (PMC_IS_NULL(sub)) {
- opcode_t *handler = Parrot_ex_throw_from_op_args(interp, dest,
+ opcode_t *handler;
+ Parrot_pcc_set_pc_func(interp, CURRENT_CONTEXT(interp), dest);
+ handler = Parrot_ex_throw_from_op_args(interp, dest,
EXCEPTION_GLOBAL_NOT_FOUND,
"Could not find sub %Ss", $2);
goto ADDRESS(handler);
Modified: branches/gsoc_instrument/src/packdump.c
==============================================================================
--- branches/gsoc_instrument/src/packdump.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/packdump.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -379,7 +379,6 @@
for (i = 0; i < ft->fixup_count; ++i) {
Parrot_io_printf(interp, "\t#%d\n", (int) i);
switch (ft->fixups[i].type) {
- case enum_fixup_label:
case enum_fixup_sub:
Parrot_io_printf(interp,
"\ttype => %d offs => %8d name => '%s',\n",
Modified: branches/gsoc_instrument/src/packfile.c
==============================================================================
--- branches/gsoc_instrument/src/packfile.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/packfile.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -3331,7 +3331,6 @@
/* fixup_entry type */
++size;
switch (ft->fixups[i].type) {
- case enum_fixup_label:
case enum_fixup_sub:
size += PF_size_cstring(ft->fixups[i].name);
++size; /* offset */
@@ -3373,7 +3372,6 @@
for (i = 0; i < ft->fixup_count; ++i) {
*cursor++ = (opcode_t) ft->fixups[i].type;
switch (ft->fixups[i].type) {
- case enum_fixup_label:
case enum_fixup_sub:
cursor = PF_store_cstring(cursor, ft->fixups[i].name);
*cursor++ = ft->fixups[i].offset;
@@ -3470,7 +3468,6 @@
entry->type = PF_fetch_opcode(pf, &cursor);
switch (entry->type) {
- case enum_fixup_label:
case enum_fixup_sub:
entry->name = PF_fetch_cstring(interp, pf, &cursor);
entry->offset = PF_fetch_opcode(pf, &cursor);
@@ -4671,7 +4668,7 @@
else {
STRING *err;
PackFile_ByteCode * const cs =
- (PackFile_ByteCode *)IMCC_compile_file_s(interp,
+ (PackFile_ByteCode *)Parrot_compile_file(interp,
filename, &err);
Parrot_str_free_cstring(filename);
Modified: branches/gsoc_instrument/src/pbc_merge.c
==============================================================================
--- branches/gsoc_instrument/src/pbc_merge.c Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/pbc_merge.c Sun Jun 6 16:09:33 2010 (r47429)
@@ -523,9 +523,6 @@
/* Set new offset and bytecode pointer. */
switch (copy->type) {
- case enum_fixup_label:
- copy->offset = cur_entry->offset + inputs[i]->code_start;
- break;
case enum_fixup_sub:
copy->offset = cur_entry->offset + inputs[i]->const_start;
break;
Modified: branches/gsoc_instrument/src/pmc/boolean.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/boolean.pmc Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/pmc/boolean.pmc Sun Jun 6 16:09:33 2010 (r47429)
@@ -1,5 +1,5 @@
/*
-Copyright (C) 2001-2007, Parrot Foundation.
+Copyright (C) 2001-2010, Parrot Foundation.
$Id$
=head1 NAME
@@ -35,12 +35,8 @@
*/
VTABLE void init_pmc(PMC *value) {
- if (!PMC_IS_NULL(value)) {
- SELF.set_bool(VTABLE_get_bool(INTERP, value));
- }
- else {
- SELF.set_bool(0);
- }
+ INTVAL v = PMC_IS_NULL(value) ? (INTVAL) 0 : VTABLE_get_bool(INTERP, value);
+ SELF.set_bool(v);
}
/*
Modified: branches/gsoc_instrument/src/pmc/exception.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/exception.pmc Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/pmc/exception.pmc Sun Jun 6 16:09:33 2010 (r47429)
@@ -689,13 +689,7 @@
SET_ATTR_handler_iter(INTERP, SELF, value);
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"))) {
- PMC * const ctx = PMC_cont(value)->from_ctx;
- if (!PMC_IS_NULL(ctx))
- SET_ATTR_thrower(INTERP, SELF, ctx);
- }
+ SET_ATTR_thrower(INTERP, SELF, value);
break;
case attr_NONE:
/* If unknown attribute name, throw an exception. */
@@ -801,10 +795,13 @@
Parrot_pcc_invoke_method_from_c_args(INTERP, cont->to_ctx, CONST_STRING(INTERP, "backtrace"), "P->P", resume, &result);
}
else {
+ /* Hopefully we have a thrower set - our most epic fail fallback is
+ * to just assume the thrower is the current context. */
PMC *cur_ctx;
- /* No return continuation. Assuming we're being called */
GET_ATTR_thrower(INTERP, SELF, cur_ctx);
- Parrot_pcc_invoke_method_from_c_args(INTERP, CURRENT_CONTEXT(INTERP), CONST_STRING(INTERP, "backtrace"), "->P", &result);
+ if (PMC_IS_NULL(cur_ctx))
+ cur_ctx = CURRENT_CONTEXT(INTERP);
+ Parrot_pcc_invoke_method_from_c_args(INTERP, cur_ctx, CONST_STRING(INTERP, "backtrace"), "->P", &result);
}
RETURN(PMC *result);
Modified: branches/gsoc_instrument/src/pmc/fixedstringarray.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/fixedstringarray.pmc Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/pmc/fixedstringarray.pmc Sun Jun 6 16:09:33 2010 (r47429)
@@ -579,7 +579,7 @@
if (item1 == item2)
continue;
- if (item1 == NULL || item2 == NULL)
+ if (STRING_IS_NULL(item1) || STRING_IS_NULL(item2))
return 0;
if (!Parrot_str_equal(INTERP, item1, item2))
Modified: branches/gsoc_instrument/src/pmc/imageio.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/imageio.pmc Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/pmc/imageio.pmc Sun Jun 6 16:09:33 2010 (r47429)
@@ -423,7 +423,7 @@
VTABLE void mark() {
PObj * const buffer = (PObj *)(PARROT_IMAGEIO(SELF)->buffer);
if (buffer)
- Parrot_gc_mark_PObj_alive(INTERP, (PObj *)(PARROT_IMAGEIO(SELF)->buffer));
+ Parrot_gc_mark_PObj_alive(INTERP, buffer);
Parrot_gc_mark_PMC_alive(INTERP, PARROT_IMAGEIO(SELF)->todo);
Parrot_gc_mark_PMC_alive(INTERP, PARROT_IMAGEIO(SELF)->seen);
}
Modified: branches/gsoc_instrument/src/pmc/orderedhash.pmc
==============================================================================
--- branches/gsoc_instrument/src/pmc/orderedhash.pmc Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/src/pmc/orderedhash.pmc Sun Jun 6 16:09:33 2010 (r47429)
@@ -263,7 +263,7 @@
PARROT_ORDEREDHASH(SELF);
if (attrs->hash)
- Parrot_gc_mark_PObj_alive(INTERP, (PObj *)attrs->hash);
+ Parrot_gc_mark_PMC_alive(INTERP, attrs->hash);
/* Don't mark C<first> and C<last>. They are in lookup hash anyway */
}
Modified: branches/gsoc_instrument/t/codingstd/c_function_docs.t
==============================================================================
--- branches/gsoc_instrument/t/codingstd/c_function_docs.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/codingstd/c_function_docs.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -91,11 +91,6 @@
}
__DATA__
-compilers/imcc/parser_util.c
-compilers/imcc/pbc.c
-compilers/imcc/pcc.c
-compilers/imcc/reg_alloc.c
-compilers/imcc/symreg.c
compilers/pirc/src/pircapi.c
config/gen/platform/ansi/dl.c
config/gen/platform/ansi/exec.c
Modified: branches/gsoc_instrument/t/compilers/imcc/syn/clash.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/syn/clash.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/compilers/imcc/syn/clash.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -8,7 +8,7 @@
use Test::More;
use Parrot::Config;
-use Parrot::Test tests => 17;
+use Parrot::Test tests => 15;
pir_output_is( <<'CODE', <<'OUT', "if/unless" );
.sub test :main
@@ -210,38 +210,6 @@
ok
OUTPUT
-pir_output_is( <<'CODE', <<'OUTPUT', "eq_num => eq" );
-.sub test :main
- .local int i
- .local int j
- i = 1
- j = 1
- eq_num i, j, ok1
- print "not "
-ok1:
- print "ok 1\n"
- end
-.end
-CODE
-ok 1
-OUTPUT
-
-pir_output_is( <<'CODE', <<'OUTPUT', "eq_num => eq mixed => eq_n_n" );
-.sub test :main
- .local int i
- .local num j
- i = 1
- j = 1.0
- eq_num j, i, ok1
- print "not "
-ok1:
- print "ok 1\n"
- end
-.end
-CODE
-ok 1
-OUTPUT
-
pir_error_output_like( <<'CODE', <<'OUT', "undefined ident" );
.sub test :main
print no_such
Modified: branches/gsoc_instrument/t/compilers/imcc/syn/const.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/syn/const.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/compilers/imcc/syn/const.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -198,7 +198,7 @@
$S0 = ""
$I0 = 0
LOOP:
- $S0 = concat <<"end"
+ concat $S0, <<"end"
ending
end
inc $I0
Modified: branches/gsoc_instrument/t/compilers/imcc/syn/errors.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/syn/errors.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/compilers/imcc/syn/errors.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -13,7 +13,7 @@
plan skip_all => 'No reason to compile invalid PBC here'
if $ENV{TEST_PROG_ARGS} && $ENV{TEST_PROG_ARGS} =~ m/--run-pbc/;
-plan tests => 6;
+plan tests => 7;
## tests for imcc error messages
@@ -87,6 +87,15 @@
/^error:imcc:syntax error, duplicated IDENTIFIER/
END_EXPECTED
+pir_error_output_like( <<'END_PIR', <<'END_EXPECTED', 'warn about failing .loadlib (TT #437)' );
+.loadlib 'nosuch'
+.sub main :main
+ say "WTF"
+.end
+END_PIR
+/^error:imcc:loadlib.*nosuch/
+END_EXPECTED
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: branches/gsoc_instrument/t/compilers/imcc/syn/tail.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/imcc/syn/tail.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/compilers/imcc/syn/tail.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -15,7 +15,6 @@
$ENV{TEST_PROG_ARGS} = '-Oc';
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, final position" );
-.loadlib 'io_ops'
.sub _main :main
$P1 = new 'Integer'
@@ -57,7 +56,7 @@
$I33 = defined function
if $I33 goto doit
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
doit:
set_args "0x20", argv
@@ -99,8 +98,6 @@
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, intermediate position" );
-.loadlib 'io_ops'
-
.sub _main :main
$P1 = new 'Integer'
$P1 = 20
@@ -138,7 +135,7 @@
doit:
.tailcall function(argv :flat)
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
.end
@@ -175,8 +172,6 @@
pir_output_is( <<'CODE', <<'OUT', "tail call optimization, implicit final return" );
-.loadlib 'io_ops'
-
.sub _main :main
$P1 = new 'Integer'
@@ -213,7 +208,7 @@
$I33 = defined function
if $I33 goto doit
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
doit:
.tailcall function(argv :flat)
@@ -256,8 +251,6 @@
pir_output_is( <<'CODE', <<'OUT', ":flatten in .return" );
-.loadlib 'io_ops'
-
.sub _main :main
$P1 = new 'Integer'
@@ -291,7 +284,7 @@
print " results]\n"
.return ($P35 :flat)
bad_func:
- printerr "_funcall: Bad function.\n"
+ print "_funcall: Bad function.\n"
exit 0
.end
Modified: branches/gsoc_instrument/t/compilers/pct/past.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/pct/past.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/compilers/pct/past.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -7,7 +7,7 @@
use warnings;
use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 10;
+use Parrot::Test tests => 11;
foreach my $name (qw(Node Val Var Op Block Stmts)) {
my $module = "'PAST';'$name'";
@@ -133,6 +133,36 @@
}
OUT
+pir_output_is( <<'CODE', <<'OUT', 'PAST::Val constant nodes' );
+.sub 'main' :main
+ load_bytecode 'PCT.pbc'
+
+ .local pmc block
+ $P0 = get_hll_global ['PAST'], 'Block'
+ block = $P0.'new'('name'=>'xyz', 'subid'=>'xyz')
+
+ .local pmc node
+ $P0 = get_hll_global ['PAST'], 'Val'
+ node = $P0.'new'('value'=> 'CONTROL_NEXT', 'returns'=>'!except_types')
+ block.'push'(node)
+
+ .local pmc compiler
+ compiler = get_hll_global ['PAST'], 'Compiler'
+ $S0 = compiler.'compile'(block, 'target'=>'pir')
+ say $S0
+.end
+CODE
+
+.namespace []
+.include "except_types.pasm"
+.sub "xyz" :subid("xyz")
+.annotate 'line', 0
+ .return (.CONTROL_NEXT)
+.end
+
+
+OUT
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: branches/gsoc_instrument/t/compilers/pct/post.t
==============================================================================
--- branches/gsoc_instrument/t/compilers/pct/post.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/compilers/pct/post.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -6,7 +6,7 @@
use strict;
use warnings;
use lib qw(t . lib ../lib ../../lib ../../../lib);
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
foreach my $name (qw(Op Ops Sub Label)) {
my $module = "'POST';'$name'";
@@ -114,6 +114,35 @@
OUT
+
+pir_output_is( <<'CODE', <<'OUT', 'Generate directives' );
+.sub _main
+ load_bytecode 'PCT.pbc'
+ load_bytecode 'dumper.pbc'
+ .local pmc node
+ node = new ['POST';'Sub']
+ node.'name'('foo')
+ node.'add_directive'('.include "cclass.pasm"')
+ node.'add_directive'('.include "exception_types.pasm"')
+
+ .local pmc compiler
+ compiler = new ['POST';'Compiler']
+ $S0 = compiler.'to_pir'(node)
+ say $S0
+ .return ()
+.end
+CODE
+
+.namespace []
+.include "cclass.pasm"
+.include "exception_types.pasm"
+.sub "foo" :subid("post10")
+.end
+
+
+OUT
+
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: branches/gsoc_instrument/t/dynoplibs/pmc_pow.t
==============================================================================
--- branches/gsoc_instrument/t/dynoplibs/pmc_pow.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/dynoplibs/pmc_pow.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -36,7 +36,7 @@
test_pow('Float')
if gmp goto do_big_ones
- skip( 22, "will not test BigInt or BigNum without gmp" )
+ skip( 2, "will not test BigInt or BigNum without gmp" )
goto end
do_big_ones:
@@ -76,3 +76,9 @@
end:
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
Modified: branches/gsoc_instrument/t/dynoplibs/time_old.t
==============================================================================
--- branches/gsoc_instrument/t/dynoplibs/time_old.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/dynoplibs/time_old.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -1,6 +1,6 @@
#!perl
# Copyright (C) 2001-2009, Parrot Foundation.
-# $Id: time_old.t 47051 2010-05-27 08:45:23Z plobsing $
+# $Id$
use strict;
use warnings;
Modified: branches/gsoc_instrument/t/native_pbc/annotations.pbc
==============================================================================
Binary file (source and/or target). No diff available.
Modified: branches/gsoc_instrument/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/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/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/oo/methods.t
==============================================================================
--- branches/gsoc_instrument/t/oo/methods.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/oo/methods.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -16,6 +16,8 @@
=cut
+.const string library_file = "method_library.pir"
+
.sub main :main
.include 'test_more.pir'
@@ -29,17 +31,15 @@
overridden_core_pmc()
- delete_library()
+ try_delete_library()
.end
.sub create_library
.local pmc file
- .local string filename
- filename = "method_library.pir"
file = new ['FileHandle']
- file.'open'(filename, 'w')
+ file.'open'(library_file, 'w')
$S0 = <<'END'
.namespace['Foo']
@@ -53,12 +53,18 @@
.end
-.sub delete_library
+.sub try_delete_library
.local pmc os
$P0 = loadlib 'os'
+ unless $P0 goto no_os
os = new 'OS'
- $S0 = "method_library.pir"
- os.'rm'($S0)
+ os.'rm'(library_file)
+ .return ()
+
+ no_os:
+ $S1 = concat "WARNING: could not delete test file `", library_file
+ $S1 = concat $S1, "' because the OS PMC is unavailable"
+ diag($S1)
.end
.sub loading_methods_from_file
@@ -67,7 +73,7 @@
$I0 = $P1.'foo_method'()
ok ($I0, 'calling foo_method')
- load_bytecode 'method_library.pir'
+ load_bytecode library_file
$P1 = new 'Foo'
$I0 = $P1.'bar_method'()
ok ($I0, 'calling bar_method')
Modified: branches/gsoc_instrument/t/op/arithmetics_pmc.t
==============================================================================
--- branches/gsoc_instrument/t/op/arithmetics_pmc.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/op/arithmetics_pmc.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -34,7 +34,7 @@
run_tests_for('Float')
if gmp goto do_big_ones
- skip( 22, "will not test BigInt or BigNum without gmp" )
+ skip( 20, "will not test BigInt or BigNum without gmp" )
goto end
do_big_ones:
Modified: branches/gsoc_instrument/t/op/exit.t
==============================================================================
--- branches/gsoc_instrument/t/op/exit.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/op/exit.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 7;
+use Parrot::Test tests => 8;
=head1 NAME
@@ -65,6 +65,20 @@
pbc_exit_code_is($pbc, 0, 'pbc exits with 0 by default');
}
+pir_exit_code_is( <<'CODE', 2, "pir exit code isn't exception type" );
+.sub main
+ $P0 = new ['ExceptionHandler']
+ set_addr $P0, catcher
+ $P0.'handle_types'(2)
+ push_eh $P0
+ exit 2
+ catcher:
+ # we shouldn't arrive here
+ pop_eh
+ exit 10
+.end
+CODE
+
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
Modified: branches/gsoc_instrument/t/op/interp.t
==============================================================================
--- branches/gsoc_instrument/t/op/interp.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/op/interp.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -43,13 +43,10 @@
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', 'runinterp - works with printing' );
-.loadlib 'io_ops'
.sub 'test' :main
.local string actual
.local pmc test_interp
test_interp = new 'ParrotInterpreter'
- .local pmc stdout
- stdout = getstdout
print "uno\n"
runinterp test_interp, pasm
@@ -71,15 +68,14 @@
# the test fail.
pasm_output_like(
<<'CODE', <<'OUTPUT', "restart trace" );
- .loadlib 'io_ops'
- printerr "ok 1\n"
+ print "ok 1\n"
sweepoff
set I0, 1
trace I0
dec I0
trace I0
sweepon
- printerr "ok 2\n"
+ print "ok 2\n"
end
CODE
/^ok\s1\n
@@ -91,8 +87,7 @@
pasm_output_is( <<'CODE', 'nada:', 'interp - warnings' );
new P0, 'Undef'
set I0, P0
- .loadlib 'io_ops'
- printerr "nada:"
+ print "nada:"
warningson 1
new P1, 'Undef'
set I0, P1
Modified: branches/gsoc_instrument/t/op/sprintf.t
==============================================================================
--- branches/gsoc_instrument/t/op/sprintf.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/op/sprintf.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -59,8 +59,8 @@
.const int TESTS = 308
-.loadlib 'sys_ops'
-.loadlib 'io_ops'
+#.loadlib 'sys_ops'
+#.loadlib 'io_ops'
.sub main :main
load_bytecode 'Test/Builder.pbc'
@@ -124,7 +124,8 @@
# Open the test file
.local pmc file_handle # currently open file
- file_handle = open test_file, 'r'
+ file_handle = new ['FileHandle']
+ file_handle.'open'(test_file, 'r')
unless file_handle goto bad_file
@@ -135,7 +136,7 @@
$I0 = file_handle.'eof'()
if $I0 goto end_loop
- test_line = readline file_handle
+ test_line = file_handle.'readline'()
# skip lines without tabs, and comment lines
$I0 = index test_line, "\t"
@@ -232,7 +233,7 @@
goto loop
end_loop:
- close file_handle
+ file_handle.'close'()
goto outer_loop
end_outer_loop:
@@ -485,8 +486,10 @@
.local pmc it
it = iter skip_os
+ load_bytecode 'config.pbc'
+ $P1 = _config()
.local string osname
- osname = sysinfo .SYSINFO_PARROT_OS
+ osname = $P1['osname']
iter_loop:
unless it goto iter_end
Modified: branches/gsoc_instrument/t/op/string_cs.t
==============================================================================
--- branches/gsoc_instrument/t/op/string_cs.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/op/string_cs.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -411,7 +411,6 @@
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"
@@ -623,7 +622,6 @@
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"
@@ -640,7 +638,6 @@
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
@@ -671,7 +668,6 @@
# 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
@@ -686,7 +682,6 @@
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"
@@ -703,7 +698,6 @@
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 Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/op/stringu.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -24,9 +24,10 @@
=cut
pir_output_is( <<'CODE', <<OUTPUT, "angstrom" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
chr $S0, 0x212B
print $S0
@@ -38,9 +39,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "escaped angstrom" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"\x{212b}"
print $S0
@@ -52,9 +54,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "escaped angstrom 2" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{212b}"
print $S0
@@ -66,9 +69,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "escaped angstrom 3" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{212b}-aaaaaa"
print $S0
@@ -80,9 +84,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, 'escaped angstrom 3 \uhhhh' );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\u212b-aaaaaa"
print $S0
@@ -94,9 +99,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "MATHEMATICAL BOLD CAPITAL A" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{1d400}-aaaaaa"
print $S0
@@ -108,9 +114,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, 'MATHEMATICAL BOLD CAPITAL A \U' );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\U0001d400-aaaaaa"
print $S0
@@ -122,9 +129,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "two upscales" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{212b}-bbbbbb\x{1d400}-cccccc"
print $S0
@@ -140,9 +148,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, "two upscales - don't downscale" );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, unicode:"aaaaaa\x{1d400}-bbbbbb\x{212b}-cccccc"
print $S0
@@ -158,9 +167,10 @@
OUTPUT
pir_output_is( <<'CODE', <<OUTPUT, '\cX, \ooo' );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P1 = $P0.'stdhandle'(1)
+ $P1 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$P1.'encoding'("utf8")
set $S0, "ok 1\cJ"
print $S0
Modified: branches/gsoc_instrument/t/pmc/addrregistry.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/addrregistry.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/addrregistry.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,10 +19,24 @@
.sub main :main
.include 'test_more.pir'
- plan(1)
+ plan(3)
$P0 = new ['AddrRegistry']
ok(1, 'Instantiated .AddrRegistry')
+
+ $I0 = 0
+ if $P0 goto isnotempty
+ inc $I0
+isnotempty:
+ ok($I0, 'vtable get_bool gives false when empty')
+
+ $P1 = new [ 'Integer' ]
+ $P0[0] = $P1
+ $I0 = 0
+ unless $P0 goto isempty
+ inc $I0
+isempty:
+ ok($I0, 'vtable get_bool gives true when non empty')
.end
# Local Variables:
Modified: branches/gsoc_instrument/t/pmc/complex.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/complex.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/complex.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -687,9 +687,7 @@
concat $S5, $S2, " of "
concat $S5, $S5, $S4
- $I0 = cmp_str $S1, $S3
- $I0 = not $I0
-
+ $I0 = iseq $S1, $S3
todo( $I0, $S4 )
.endm
Modified: branches/gsoc_instrument/t/pmc/eval.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/eval.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/eval.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -245,21 +245,21 @@
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
.local pmc io
f1 = compi("foo_1", "hello from foo_1")
\$S0 = f1
- io = open "$temp_pbc", 'w'
+ io = new ['FileHandle']
+ io.'open'("$temp_pbc", 'w')
print io, \$S0
- close io
+ io.'close'()
load_bytecode "$temp_pbc"
f2 = compi("foo_2", "hello from foo_2")
- io = open "$temp2_pbc", 'w'
+ io.'open'("$temp2_pbc", 'w')
print io, f2
- close io
+ io.'close'()
load_bytecode "$temp2_pbc"
.end
@@ -321,23 +321,20 @@
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
f1 = compi("foo_1", "hello from foo_1")
\$S0 = f1
- io = open "$temp_pbc", 'w'
+ io = new ['FileHandle']
+ io.'open'("$temp_pbc", 'w')
print io, \$S0
- close io
+ io.'close'()
load_bytecode "$temp_pbc"
- \$P0 = loadlib 'os'
- os = new ['OS']
- os.'rm'("$temp_pbc")
f2 = compi("foo_2", "hello from foo_2")
- io = open "$temp_pbc", 'w'
+ io.'open'("$temp_pbc", 'w')
print io, f2
- close io
+ io.'close'()
load_bytecode "$temp_pbc"
.end
@@ -365,15 +362,15 @@
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
f = compi("foo_1", "hello from foo_1")
\$S0 = freeze f
- io = open "$temp_file", 'w'
+ io = new ['FileHandle']
+ io.'open'("$temp_file", 'w')
print io, \$S0
- close io
+ io.'close'()
say "written"
.end
@@ -399,17 +396,15 @@
OUTPUT
pir_output_is( <<"CODE", <<'OUTPUT', "eval.thaw", todo => 'TT #1142' );
-.loadlib 'io_ops'
.sub main :main
.local pmc io, e
.local string file
.local int size
file = "$temp_file"
- .include "stat.pasm"
- size = stat file, .STAT_FILESIZE
- io = open file, 'r'
- \$S0 = read io, size
- close io
+ io = new ['FileHandle']
+ io.'open'(file, 'rb')
+ \$S0 = io.'readall'()
+ io.'close'()
e = thaw \$S0
sweep 1 # ensure all of the object survives GC
e()
@@ -422,15 +417,15 @@
OUTPUT
pir_output_is( <<"CODE", <<'OUTPUT', "eval.freeze+thaw" );
-.loadlib 'io_ops'
.sub main :main
.local pmc f, e
.local pmc io
f = compi("foo_1", "hello from foo_1")
\$S0 = freeze f
- io = open "$temp_file", 'w'
+ io = new ['FileHandle']
+ io.'open'("$temp_file", 'wb')
print io, \$S0
- close io
+ io.'close'()
say "written"
"read"()
.end
@@ -464,11 +459,10 @@
.local string file
.local int size
file = "$temp_file"
- .include "stat.pasm"
- size = stat file, .STAT_FILESIZE
- io = open file, 'r'
- \$S0 = read io, size
- close io
+ io = new ['FileHandle']
+ io.'open'(file, 'rb')
+ \$S0 = io.'readall'()
+ io.'close'()
e = thaw \$S0
e()
e = get_global "foo_1"
Modified: branches/gsoc_instrument/t/pmc/exporter.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/exporter.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/exporter.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -172,8 +172,8 @@
ok_2:
say 'ok 2 - globals() with empty array arg sets PMCNULL'
- $P99 = push 'Alex'
- $P99 = push 'Prince'
+ push $P99, 'Alex'
+ push $P99, 'Prince'
$P0.'globals'($P99)
$P1 = $P0.'globals'()
@@ -323,8 +323,8 @@
src = get_namespace [ 'Test'; 'More' ]
globals = new ['ResizableStringArray']
- globals = push 'ok'
- globals = push 'plan'
+ push globals, 'ok'
+ push globals, 'plan'
exporter = new ['Exporter']
exporter.'import'( src :named('source'), globals :named('globals') )
@@ -385,8 +385,8 @@
src = get_namespace [ 'Test'; 'More' ]
dest = get_namespace ['foo']
globals = new ['ResizableStringArray']
- globals = push 'ok'
- globals = push 'plan'
+ push globals, 'ok'
+ push globals, 'plan'
exporter = new ['Exporter']
exporter.'import'( src :named('source'), dest :named('destination'), globals :named('globals') )
Modified: branches/gsoc_instrument/t/pmc/filehandle.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/filehandle.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/filehandle.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 18;
+use Parrot::Test tests => 20;
use Parrot::Test::Util 'create_tempfile';
use Parrot::Test::Util 'create_tempfile';
@@ -453,26 +453,46 @@
\$P1.'open'('$temp_file')
- \$S1 = \$P1.'readline'()
- if \$S1 == "1234567890\\n" goto ok_1
-print \$S1
+ .local string line
+ line = \$P1.'readline'()
+ if line == "1234567890\\n" goto ok_1
+print line
print 'not '
ok_1:
say 'ok 1 - \$S1 = \$P1.readline() # read with utf8 encoding on'
- \$S2 = \$P1.'readline'()
- if \$S2 == \$S0 goto ok_2
-print \$S2
+ line = \$P1.'readline'()
+ if line == \$S0 goto ok_2
+print line
print 'not '
ok_2:
say 'ok 2 - \$S2 = \$P1.readline() # read iso-8859-1 string'
\$P1.'close'()
+ \$I1 = charset line
+ \$S2 = charsetname \$I1
+ if \$S2 == 'unicode' goto ok_3
+ print \$S2
+ print 'not '
+ ok_3:
+ say 'ok 3 # unicode charset'
+
+
+ \$I1 = encoding line
+ \$S2 = encodingname \$I1
+ if \$S2 == 'utf8' goto ok_4
+ print \$S2
+ print 'not '
+ ok_4:
+ say 'ok 4 # utf8 encoding'
+
.end
CODE
ok 1 - $S1 = $P1.readline() # read with utf8 encoding on
ok 2 - $S2 = $P1.readline() # read iso-8859-1 string
+ok 3 # unicode charset
+ok 4 # utf8 encoding
OUT
@@ -624,6 +644,84 @@
expect 1 exit status: 1
OUTPUT
+pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction", todo => 'TT #1659' );
+.const string temp_file = '%s'
+.sub main :main
+ 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
+a line
+OUTPUT
+
+my (undef, $no_such_file) = create_tempfile( UNLINK => 1, OPEN => 0 );
+
+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
+ $P0 = new ['FileHandle']
+ $P0.'open'(no_such_file, 'r')
+
+ print "Huh: '"
+ print no_such_file
+ print "' exists? - not "
+ok1:
+ say "ok 1"
+
+ $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"
+ $S0 = $P0.'read'(1024)
+ $S0 = $P0.'read'(1024)
+ unless $P0, ok3
+ print "not "
+ok3: say "ok 3"
+ defined $I0, $P0
+ if $I0, ok4
+ print "not "
+ok4: say "ok 4"
+ $P0.'close'()
+ defined $I0, $P0 # closed file is still defined
+ if $I0, ok5
+ print "not "
+ok5: say "ok 5"
+ unless $P0, ok6 # but false
+ print "not "
+ok6: say "ok 6"
+ .return ()
+read_non_existent_file:
+ pop_eh
+ branch ok1
+.end
+CODE
+ok 1
+ok 2
+ok 3
+ok 4
+ok 5
+ok 6
+OUTPUT
+
# TT #1178
# L<PDD22/I\/O PMC API/=item get_fd>
# NOTES: this is going to be platform dependent
Modified: branches/gsoc_instrument/t/pmc/fixedintegerarray.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/fixedintegerarray.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/fixedintegerarray.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,7 +19,7 @@
.sub 'main' :main
.include 'test_more.pir'
- plan(33)
+ plan(35)
test_set_size()
test_reset_size()
@@ -31,6 +31,7 @@
test_interface_done()
test_get_iter()
test_equality()
+ test_repr()
test_new_style_init()
test_invalid_init_tt1509()
.end
@@ -227,7 +228,7 @@
.end
.sub 'test_equality'
- .local pmc a1, a2
+ .local pmc a1, a2, a3
a1 = new ['FixedIntegerArray']
a2 = new ['FixedIntegerArray']
@@ -247,6 +248,20 @@
a2[1] = 84
is(a1, a2, "Equal when second element same")
+
+ a3 = new ['Complex']
+ isnt(a1, a3, "Different PMC type is not equal")
+.end
+
+.sub 'test_repr'
+ .local pmc a1
+ .local string r
+ a1 = new ['FixedIntegerArray']
+ a1 = 2
+ a1[0] = 7
+ a1[1] = 1
+ r = get_repr a1
+ is(r, '[ 7, 1 ]', 'get_repr')
.end
.sub 'test_new_style_init'
Modified: branches/gsoc_instrument/t/pmc/freeze.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/freeze.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/freeze.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -352,44 +352,51 @@
ok same
OUTPUT
-pasm_output_is( <<'CODE', <<'OUTPUT', "freeze class" );
-.loadlib 'io_ops'
- newclass P10, "Foo"
- set S10, P10
- print S10
+pir_output_is( <<'CODE', <<'OUTPUT', "freeze class" );
+.const string fpmc = 'temp.fpmc'
+.sub 'main' :main
+ $P10 = newclass "Foo"
+ $S10 = $P10
+ print $S10
print "\n"
- freeze S11, P10
+ freeze $S11, $P10
print "ok 1\n"
- open P3, "temp.fpmc", 'w'
- print P3, S11
- close P3
+
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'w')
+ $P0.'print'($S11)
+ $P0.'close'()
print "ok 2\n"
- end
+.end
CODE
Foo
ok 1
ok 2
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
- gt I0, 1, ok1
- print "stat failed\n"
+pir_output_is( <<'CODE', <<'OUTPUT', "thaw class into new interpreter" );
+.const string fpmc = "temp.fpmc"
+.sub 'main' :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'r')
+ if $P0 goto ok1
+
+ .include 'stdio.pasm'
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
+ $P1.'print'("couldn't open fpmc for reading")
exit 1
+
ok1:
- open P3, S3, 'r'
- read S3, P3, I0
- close P3
+ $S3 = $P0.'readall'()
+ $P0.'close'()
print "ok 1\n"
- thaw P4, S3
+ $P4 = thaw $S3
print "ok 2\n"
- set S10, P4
- print S10
+ $S10 = $P4
+ print $S10
print "\n"
- end
+.end
CODE
ok 1
ok 2
@@ -415,56 +422,66 @@
Foo
OUTPUT
-pasm_output_is( <<'CODE', <<'OUTPUT', "freeze class w attr" );
-.loadlib 'io_ops'
- newclass P10, "Foo"
- addattribute P10, ".aa"
- set S10, P10
- print S10
+pir_output_is( <<'CODE', <<'OUTPUT', "freeze class w attr" );
+.const string fpmc = 'temp.fpmc'
+.sub 'main' :main
+ $P10 = newclass "Foo"
+ addattribute $P10, ".aa"
+ $S10 = $P10
+ print $S10
print "\n"
- freeze S11, P10
+ $S11 = freeze $P10
print "ok 1\n"
- open P3, "temp.fpmc", 'w'
- print P3, S11
- close P3
+
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'w')
+ $P0.'print'($S11)
+ $P0.'close'()
print "ok 2\n"
- end
+.end
CODE
Foo
ok 1
ok 2
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
- gt I0, 1, ok1
- print "stat failed\n"
+pir_output_is( <<'CODE', <<'OUTPUT', "thaw class w attr into new interpreter" );
+.const string fpmc = "temp.fpmc"
+.sub 'main' :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'r')
+ if $P0 goto ok1
+
+ .include 'stdio.pasm'
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
+ $P1.'print'("couldn't open fpmc for reading\n")
exit 1
+
ok1:
- open P3, S3, 'r'
- read S3, P3, I0
- close P3
- # print S3
- # print "\n"
+ $S3 = $P0.'readall'()
+ $P0.'close'()
print "ok 1\n"
- thaw P4, S3
+
+ $P4 = thaw $S3
print "ok 2\n"
- set S10, P4
- print S10
+
+ $S10 = $P4
+ print $S10
print "\n"
- new P5, S10
+ $P5 = new $S10
print "ok 3\n"
- new P6, ['String']
- set P6, "ok 5\n"
- setattribute P5, '.aa', P6
+
+ $P6 = new ['String']
+ $P6 = "ok 5\n"
+
+ setattribute $P5, '.aa', $P6
print "ok 4\n"
- getattribute P7, P5, '.aa'
- print P7
- end
+
+ $P7 = getattribute $P5, '.aa'
+ print $P7
+.end
CODE
ok 1
ok 2
@@ -474,44 +491,47 @@
ok 5
OUTPUT
-pasm_output_is( <<'CODE', <<'OUTPUT', "thaw class w attr same interp" );
-.loadlib 'io_ops'
- newclass P10, "Foo"
- addattribute P10, ".aa"
- addattribute P10, ".bb"
- set S10, P10
- print S10
+pir_output_is( <<'CODE', <<'OUTPUT', "thaw class w attr same interp" );
+.const string fpmc = 'temp.fpmc'
+.sub 'main' :main
+ $P10 = newclass "Foo"
+ addattribute $P10, ".aa"
+ addattribute $P10, ".bb"
+ $S10 = $P10
+ print $S10
print "\n"
- freeze S3, P10
- open P3, "temp.fpmc", 'w'
- print P3, S3
- close P3
- # print S3
- # print "\n"
+ $S3 = freeze $P10
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'w')
+ $P0.'print'($S3)
+ $P0.'close'()
print "ok 1\n"
- thaw P4, S3
+
+ $P4 = thaw $S3
print "ok 2\n"
- set S10, P4
- print S10
+
+ $S10 = $P4
+ print $S10
print "\n"
- new P5, S10
+ $P5 = new $S10
print "ok 3\n"
- new P6, ['String']
- set P6, "ok 5\n"
- setattribute P5, ["Foo"], ".aa", P6
- new P6, ['String']
- set P6, "ok 6\n"
- setattribute P5, ["Foo"], ".bb", P6
- print "ok 4\n"
- getattribute P7, P5, ".aa"
- print P7
- getattribute P7, P5, ".bb"
- print P7
- end
+ $P6 = new ['String']
+ $P6 = "ok 5\n"
+ setattribute $P5, ["Foo"], ".aa", $P6
+
+ $P6 = new ['String']
+ $P6 = "ok 6\n"
+ setattribute $P5, ["Foo"], ".bb", $P6
+ print "ok 4\n"
+ $P7 = getattribute $P5, ".aa"
+ print $P7
+ $P7 = getattribute $P5, ".bb"
+ print $P7
+.end
CODE
Foo
ok 1
@@ -523,38 +543,42 @@
ok 6
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"
- new P10, ['Foo']
- print S10
- freeze S3, P10
- open P3, "temp.fpmc", 'w'
- print P3, S3
- close P3
+pir_output_is( <<'CODE', <<'OUTPUT', "thaw object w attr into same interpreter" );
+.const string fpmc = 'temp.fpmc'
+.sub 'main' :main
+ $P10 = newclass "Foo"
+ addattribute $P10, ".aa"
+ addattribute $P10, ".bb"
+
+ $P10 = new ['Foo']
+ $S3 = freeze $P10
print "ok 1\n"
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'w')
+ $P0.'print'($S3)
+ $P0.'close'()
- thaw P5, S3
+ $P5 = thaw $S3
print "ok 2\n"
- typeof S10, P5
- print S10
+
+ $S10 = typeof $P5
+ print $S10
print "\n"
print "ok 3\n"
- new P6, ['String']
- set P6, "ok 5\n"
- setattribute P5, ["Foo"], ".aa", P6
- new P6, ['String']
- set P6, "ok 6\n"
- setattribute P5, ["Foo"], ".bb", P6
+ $P6 = new ['String']
+ $P6 = "ok 5\n"
+ setattribute $P5, ["Foo"], ".aa", $P6
+ $P6 = new ['String']
+ $P6 = "ok 6\n"
+ setattribute $P5, ["Foo"], ".bb", $P6
print "ok 4\n"
- getattribute P7, P5, ".aa"
- print P7
- getattribute P7, P5, ".bb"
- print P7
- end
+
+ $P7 = getattribute $P5, ".aa"
+ print $P7
+ $P7 = getattribute $P5, ".bb"
+ print $P7
+.end
CODE
ok 1
ok 2
@@ -565,38 +589,44 @@
ok 6
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
- gt I0, 1, ok1
- print "stat failed\n"
- exit 1
+pir_output_is( <<'CODE', <<'OUTPUT', "thaw object w attr into new interpreter" );
+.const string fpmc = 'temp.fpmc'
+.sub 'main' :main
+ $P0 = new ['FileHandle']
+ $P0.'open'(fpmc, 'r')
+ if $P0 goto ok1
+
+ .include 'stdio.pasm'
+ $P0 = getinterp
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
+ $P1.'print'("open failed\n")
+
ok1:
- open P3, S3, 'r'
- read S3, P3, I0
- close P3
+ $S3 = $P0.'readall'()
+ $P0.'close'()
- thaw P5, S3
+ $P5 = thaw $S3
print "ok 2\n"
- typeof S10, P5
- print S10
+ $S10 = typeof $P5
+ print $S10
print "\n"
print "ok 3\n"
- new P6, ['String']
- set P6, "ok 5\n"
- setattribute P5, ["Foo"], ".aa", P6
- new P6, ['String']
- set P6, "ok 6\n"
- setattribute P5, ["Foo"], ".bb", P6
+ $P6 = new ['String']
+ $P6 = "ok 5\n"
+ setattribute $P5, ["Foo"], ".aa", $P6
+
+ $P6 = new ['String']
+ $P6 = "ok 6\n"
+ setattribute $P5, ["Foo"], ".bb", $P6
+
print "ok 4\n"
- getattribute P7, P5, ".aa"
- print P7
- getattribute P7, P5, ".bb"
- print P7
- end
+ $P7 = getattribute $P5, ".aa"
+ print $P7
+
+ $P7 = getattribute $P5, ".bb"
+ print $P7
+.end
CODE
ok 2
Foo
Modified: branches/gsoc_instrument/t/pmc/io.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/io.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/io.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -7,7 +7,7 @@
use lib qw( . lib ../lib ../../lib );
use Test::More;
-use Parrot::Test tests => 45;
+use Parrot::Test tests => 40;
use Parrot::Test::Util 'create_tempfile';
use Parrot::Test::Util 'create_tempfile';
@@ -41,20 +41,6 @@
my (undef, $temp_file) = create_tempfile( UNLINK => 1 );
-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
-
pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction (ops)");
.loadlib 'io_ops'
.const string temp_file = '%s'
@@ -73,84 +59,6 @@
a line
OUTPUT
-pir_output_is( sprintf(<<'CODE', $temp_file), <<'OUTPUT', "timely destruction", todo => 'TT #1659' );
-.const string temp_file = '%s'
-.sub main :main
- 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
-a line
-OUTPUT
-
-my (undef, $no_such_file) = create_tempfile( UNLINK => 1, OPEN => 0 );
-
-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
- $P0 = new ['FileHandle']
- $P0.'open'(no_such_file, 'r')
-
- print "Huh: '"
- print no_such_file
- print "' exists? - not "
-ok1:
- say "ok 1"
-
- $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"
- $S0 = $P0.'read'(1024)
- $S0 = $P0.'read'(1024)
- unless $P0, ok3
- print "not "
-ok3: say "ok 3"
- defined $I0, $P0
- if $I0, ok4
- print "not "
-ok4: say "ok 4"
- $P0.'close'()
- defined $I0, $P0 # closed file is still defined
- if $I0, ok5
- print "not "
-ok5: say "ok 5"
- unless $P0, ok6 # but false
- print "not "
-ok6: say "ok 6"
- .return ()
-read_non_existent_file:
- pop_eh
- branch ok1
-.end
-CODE
-ok 1
-ok 2
-ok 3
-ok 4
-ok 5
-ok 6
-OUTPUT
-
pir_output_is( <<'CODE', <<'OUTPUT', "read on invalid fh should throw exception (ops)" );
.loadlib 'io_ops'
.sub main :main
@@ -376,22 +284,23 @@
Parrot overwrites
OUTPUT
-pasm_output_is( <<"CODE", '', "Parrot_io_flush on buffer full" );
-.loadlib 'io_ops'
- set I0, 0
- set I1, 10000
+pir_output_is( <<"CODE", '', "Parrot_io_flush on buffer full" );
+.sub "main"
+ set \$I0, 0
+ set \$I1, 10000
- open P0, "$temp_file", 'w'
+ new \$P0, ['FileHandle']
+ \$P0.'open'("$temp_file", 'w')
PRINT:
- ge I0, I1, END
- print P0, "words\\n"
- inc I0
+ ge \$I0, \$I1, END
+ print \$P0, "words\\n"
+ inc \$I0
branch PRINT
END:
- close P0
- end
+ \$P0.'close'()
+.end
CODE
file_content_is( $temp_file, <<'OUTPUT' x 10000, 'buffered file contents' );
@@ -490,20 +399,21 @@
# TT #1178
pir_output_is( <<'CODE', <<'OUT', 'standard file descriptors' );
+.include 'stdio.pasm'
.sub main :main
$P99 = getinterp
- $P0 = $P99.'stdhandle'(0)
+ $P0 = $P99.'stdhandle'(.PIO_STDIN_FILENO)
$I0 = $P0.'get_fd'()
# I0 is 0 on Unix and non-Null on stdio and win32
print "ok 1\n"
- $P1 = $P99.'stdhandle'(1)
+ $P1 = $P99.'stdhandle'(.PIO_STDOUT_FILENO)
$I1 = $P1.'get_fd'()
if $I1, OK_2
print "not "
OK_2:
say "ok 2"
- $P2 = $P99.'stdhandle'(2)
+ $P2 = $P99.'stdhandle'(.PIO_STDERR_FILENO)
$I2 = $P2.'get_fd'()
if $I2, OK_3
print "not "
@@ -536,9 +446,10 @@
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', 'puts method' );
+.include 'stdio.pasm'
.sub main :main
$P0 = getinterp
- $P2 = $P0.'stdhandle'(1)
+ $P2 = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
can $I0, $P2, "puts"
if $I0, ok1
print "not "
@@ -552,13 +463,13 @@
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', 'puts method - PIR' );
-
+.include 'stdio.pasm'
.sub main :main
.local string s
s = "ok 2\n"
.local pmc io
$P0 = getinterp
- io = $P0.'stdhandle'(1)
+ io = $P0.'stdhandle'(.PIO_STDOUT_FILENO)
$I0 = can io, "puts"
if $I0 goto ok1
print "not "
@@ -813,65 +724,6 @@
print $FOO "T\xc3\xb6tsch\n";
close $FOO;
-pir_output_is( <<"CODE", <<"OUTPUT", "utf8 read enabled" );
-.loadlib 'io_ops'
-.sub main :main
- .local pmc pio
- .local int len
- .include "stat.pasm"
- .local string f
- f = '$temp_file'
- len = stat f, .STAT_FILESIZE
- pio = open f, 'r'
- pio.'encoding'("utf8")
- \$S0 = read pio, len
- close pio
- \$I1 = charset \$S0
- \$S2 = charsetname \$I1
- say \$S2
-
- \$I1 = encoding \$S0
- \$S2 = encodingname \$I1
- say \$S2
-
- \$I1 = find_charset 'iso-8859-1'
- trans_charset \$S1, \$S0, \$I1
- print \$S1
-.end
-CODE
-unicode
-utf8
-T\xf6tsch
-OUTPUT
-
-pir_output_is( <<"CODE", <<"OUTPUT", "utf8 read enabled - readline" );
-.sub main :main
- .local pmc pio
- .local string f
- f = '$temp_file'
- pio = new ['FileHandle']
- pio.'open'(f, 'r')
- pio.'encoding'("utf8")
- \$S0 = pio.'readline'()
- pio.'close'()
- \$I1 = charset \$S0
- \$S2 = charsetname \$I1
- say \$S2
-
- \$I1 = encoding \$S0
- \$S2 = encodingname \$I1
- say \$S2
-
- \$I1 = find_charset 'iso-8859-1'
- trans_charset \$S1, \$S0, \$I1
- print \$S1
-.end
-CODE
-unicode
-utf8
-T\xf6tsch
-OUTPUT
-
pir_output_is( <<"CODE", <<"OUTPUT", "utf8 read enabled, read parts" );
.loadlib 'io_ops'
.sub main :main
Modified: branches/gsoc_instrument/t/pmc/lexpad.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/lexpad.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/lexpad.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,9 +19,10 @@
.sub main :main
.include 'test_more.pir'
- plan(4)
+ plan(8)
new_test()
+ test_keyed()
test_iter()
.end
@@ -36,7 +37,31 @@
end:
.end
+.sub test_keyed
+ .local pmc p1
+ .lex 'p1', p1
+
+ $P0 = getinterp
+ $P0 = $P0['lexpad']
+ $I0 = elements $P0
+ is($I0, 1, "get LexPad elements")
+ $I0 = exists $P0['p1']
+ is($I0, 1, ".lex exists_keyed true")
+
+ $I0 = exists $P0['nosuchlex']
+ is($I0, 0, ".lex exists_keyed false")
+
+ $P1 = new 'Integer'
+ push_eh eh
+ $P0['nosuchlex'] = $P1
+ ok(0, "setting a non existent .lex should throw")
+ goto end
+eh:
+ pop_eh
+ ok(1, "setting a non existent .lex throws")
+end:
+.end
.sub 'test_iter'
Modified: branches/gsoc_instrument/t/pmc/packfile.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/packfile.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/packfile.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -298,7 +298,8 @@
.local string filename, first
push_eh load_error
$S0 = '_filename'()
- $P0 = open $S0, 'r'
+ $P0 = new ['FileHandle']
+ $P0.'open'($S0, 'r')
first = $P0.'readall'()
Modified: branches/gsoc_instrument/t/pmc/packfileannotations.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/packfileannotations.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/packfileannotations.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -41,7 +41,8 @@
.local pmc pf
push_eh load_error
- $P0 = open 't/native_pbc/annotations.pbc'
+ $P0 = new ['FileHandle']
+ $P0.'open'('t/native_pbc/annotations.pbc', 'r')
$P0.'encoding'('binary')
$S0 = $P0.'readall'()
pf = new 'Packfile'
Modified: branches/gsoc_instrument/t/pmc/resizablebooleanarray.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/resizablebooleanarray.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/resizablebooleanarray.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -24,7 +24,7 @@
.include 'test_more.pir'
- plan(65)
+ plan(68)
setting_array_size()
setting_first_element()
@@ -46,6 +46,7 @@
sparse_access()
check_for_zeroedness()
pop_into_sparse()
+ clone_empty()
clone_tests()
alternate_clone_tests()
get_iter_test()
@@ -70,6 +71,16 @@
$P0 = 7
is($P0, 7, "shrinking via int assignment to RBA works")
+
+ new $P1, ['ExceptionHandler']
+ set_addr $P1, caught
+ $P1.'handle_types'(.EXCEPTION_OUT_OF_BOUNDS)
+ push_eh $P1
+ $P0 = -1
+ ok(0, "no exception caught for setting negative size")
+ .return()
+caught:
+ ok(1, "caught exception on setting negative size")
.end
@@ -138,6 +149,17 @@
set $I0, $P0[-1]
is($I0, 0, "negative index retrieval is 0")
+
+ new $P1, ['ExceptionHandler']
+ set_addr $P1, caught
+ $P1.'handle_types'(.EXCEPTION_OUT_OF_BOUNDS)
+ push_eh $P1
+ set $I0, $P0[-2]
+ ok(0, "no exception caught for negative index out of range access")
+ .return()
+caught:
+ pop_eh
+ ok(1, "caught exception on negative index out of range access")
.end
@@ -729,6 +751,15 @@
print $I5
.end
+.sub clone_empty
+ .local pmc rba1, rba2
+ .local int i
+ rba1 = new ['ResizableBooleanArray']
+ rba2 = clone rba1
+ i = elements rba2
+ is(i, 0, "clone empty passed")
+.end
+
.sub clone_tests
.local pmc rba1, rba2
.local int i, failed
Modified: branches/gsoc_instrument/t/pmc/resizableintegerarray.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/resizableintegerarray.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/resizableintegerarray.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -28,6 +28,7 @@
* Type of index (int, pmc)
* index negative/in-range/beyond-end
* Set doesn't clobber other elements
+ * Delete
* Push/Unshift, Pop/Shift
* Correct values
@@ -42,7 +43,7 @@
.sub main :main
.include 'test_more.pir'
- plan(41)
+ plan(46)
test_does_interfaces()
@@ -54,6 +55,7 @@
test_cant_get_negative()
test_set_beyond_end()
test_get_beyond_end()
+ test_delete()
test_conversion()
test_conversion_overflow()
@@ -69,7 +71,9 @@
test_cant_pop_empty()
test_shift()
test_unshift()
+ test_cant_shift_empty()
test_iterator()
+ test_clone()
.end
.sub test_does_interfaces
@@ -143,7 +147,11 @@
.sub test_distinct_storage
# Walk the array in pseudo-random order
# Pick a sample size $I4 and another number $I2, such that
- # ân: n > 0 ⧠$I2 â¿ % $I4 = 1 â n % $I4 = 0
+ ############################################################
+ ##### Plase rewrite this with ascii chars, it got unreadable
+ ##### by editing with mixed charsets.
+ # n: n > 0 $I2 % $I4 = 1 n % $I4 = 0
+ ############################################################
$I4 = 17
$I2 = 3
# Create and fill array in random order
@@ -225,6 +233,27 @@
is( $I0, 1, '... and should not extend array' )
.end
+.sub test_delete
+ $P0 = new ['ResizableIntegerArray'], 3
+ $P0[0] = 9
+ $P0[1] = 8
+ $P0[2] = 7
+ delete $P0[1]
+ $I0 = elements $P0
+ is( $I0, 2, 'delete one element dec size')
+ $I0 = $P0[1]
+ is( $I0, 7, 'deleted move back the remaining part')
+ push_eh caught
+ delete $P0[2]
+ pop_eh
+ ok(0, 'delete ouf of bound should throw')
+ goto end
+caught:
+ pop_eh
+ ok(1, 'delete ouf of bound throws')
+end:
+.end
+
.sub test_conversion
$P0 = new ['ResizableIntegerArray']
$P0 = 6
@@ -511,6 +540,17 @@
is( $I1, 2, '... and stores values in correct order' )
.end
+.sub test_cant_shift_empty
+ $P0 = new ['ResizableIntegerArray']
+ $I0 = 1
+ push_eh eh
+ $I0 = shift $P0
+ $I0 = 0
+eh:
+ pop_eh
+ ok( $I0, 'Shift from empty array should throw an exception' )
+.end
+
.sub test_iterator
$P0 = new ['ResizableIntegerArray']
push_eh k0
@@ -548,6 +588,14 @@
is( $I0, 4, 'get_iter: iterator returns all values in correct sequence' )
.end
+.sub test_clone
+ $P0 = new ['ResizableIntegerArray']
+ push $P0, 1
+ $P1 = clone $P0
+ $I0 = iseq $P0, $P1
+ is( $I0, 1, 'cloned is equal to original')
+.end
+
# Local Variables:
# mode: pir
# fill-column: 100
Modified: branches/gsoc_instrument/t/pmc/resizablepmcarray.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/resizablepmcarray.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/resizablepmcarray.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -21,7 +21,7 @@
.include 'fp_equality.pasm'
.include 'test_more.pir'
- plan(137)
+ plan(142)
resize_tests()
negative_array_size()
@@ -43,6 +43,8 @@
pop_empty()
multikey_access()
exists_and_defined()
+ delete_keyed()
+ get_rep()
append_tests()
splice_tests()
splice_replace1()
@@ -358,7 +360,7 @@
.sub compare_reverse
.param string a
.param string b
- $I0 = cmp_str b, a
+ $I0 = cmp b, a
.return($I0)
.end
@@ -688,6 +690,9 @@
is(ex, 1, "element at idx 0 exists")
def = defined array[0]
is(def, 1, "element at idx 0 is defined")
+ $P0 = new 'Integer', 0
+ ex = exists array[$P0]
+ is(ex, 1, "element at PMC idx 0 exists")
## bounds checking: upper (7)
ex = exists array[7]
@@ -732,6 +737,26 @@
is(def, 0, "element at idx 5 is not defined")
.end
+.sub delete_keyed
+ .local pmc array
+ array = new ['ResizablePMCArray']
+ push array, 'a'
+ push array, 'b'
+ push array, 'c'
+ $P0 = new 'Integer', 1
+ delete array[$P0]
+ $S0 = array[1]
+ is($S0, 'c', 'delete_keyed with PMC key')
+.end
+
+.sub get_rep
+ .local pmc array
+ array = new ['ResizablePMCArray']
+ push array, 'a'
+ push array, 'b'
+ $S0 = get_repr array
+ is($S0, '[ a, b ]', 'get_repr')
+.end
.sub append_tests
@@ -901,6 +926,24 @@
$S0 = get_array_string($P1)
is($S0, "12A45", "splice with empty replacement")
+ $P1 = clone ar1
+ $P2 = clone ar2
+ splice $P1, $P2, -3, 2
+ $S0 = get_array_string($P1)
+ is($S0, "12ABCDE5", "splice with negative offset")
+
+ $P1 = clone ar1
+ $P2 = clone ar2
+ $I0 = 1
+ push_eh too_low
+ splice $P1, $P2, -10, 2
+ dec $I0
+ goto too_low_end
+too_low:
+ .get_results($P9)
+ finalize $P9
+too_low_end:
+ ok($I0, "splice with negative offset too low")
.end
Modified: branches/gsoc_instrument/t/pmc/stringhandle.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/stringhandle.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/stringhandle.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -133,31 +133,30 @@
pir_output_is(
<<'CODE', <<'OUT', 'read opcode' );
-.loadlib 'io_ops'
.sub 'test' :main
$P0 = new ['StringHandle']
$P0.'open'('README', 'w')
print $P0, "This is Parrot, version"
- close $P0
+ $P0.'close'()
$P0.'open'('README')
- $S0 = read $P0, 14 # bytes
+ $S0 = $P0.'read'(14) # bytes
if $S0 == 'This is Parrot' goto ok_1
print 'not '
ok_1:
- say 'ok 1 - $S0 = read $P1, $I2'
+ say 'ok 1 - $S0 = $P1.read($I2)'
- $S0 = read $P0, 9 # bytes
+ $S0 = $P0.'read'(9) # bytes
if $S0 == ', version' goto ok_2
print 'not '
ok_2:
- say 'ok 2 - $S0 = read $P1, $I2 # again on same stream'
+ say 'ok 2 - $S0 = $P1.read($I2) # again on same stream'
.end
CODE
-ok 1 - $S0 = read $P1, $I2
-ok 2 - $S0 = read $P1, $I2 # again on same stream
+ok 1 - $S0 = $P1.read($I2)
+ok 2 - $S0 = $P1.read($I2) # again on same stream
OUT
# L<PDD22/I\/O PMC API/=item print>
Modified: branches/gsoc_instrument/t/pmc/sub.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/sub.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/sub.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -991,22 +991,22 @@
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
+.sub make_phi :immediate :anon
+ $N0 = sqrt 5
+ $N0 += 1
+ $N0 /= 2
$P0 = new ['Float']
$P0 = $N0
.return ($P0)
.end
.sub main :main
- .const 'Sub' pi = "make_pi"
- print pi
+ .const 'Sub' phi = "make_phi"
+ print phi
print "\n"
.end
CODE
-3.14159265358979
+1.61803398874989
OUTPUT
pir_output_is( <<'CODE', <<'OUTPUT', "immediate code as const - obj" );
Modified: branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir
==============================================================================
--- branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/testlib/packfile_common.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -7,8 +7,6 @@
# 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.pbc'
@@ -22,9 +20,10 @@
.local pmc pf, pio
pf = new ['Packfile']
$S0 = '_filename'()
- pio = open $S0, 'r'
+ pio = new ['FileHandle']
+ pio.'open'($S0, 'r')
$S0 = pio.'readall'()
- close pio
+ pio.'close'()
pf = $S0
.return(pf)
.end
Modified: branches/gsoc_instrument/t/pmc/threads.t
==============================================================================
--- branches/gsoc_instrument/t/pmc/threads.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/pmc/threads.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -833,7 +833,6 @@
.include 'interpinfo.pasm'
.loadlib 'foo_group'
-.loadlib 'myops_ops'
.sub test
.param pmc passed_value
Modified: branches/gsoc_instrument/t/steps/auto/ctags-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/ctags-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/ctags-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -100,14 +100,14 @@
} );
$conf->options->set( %{$args} );
$step = test_step_constructor_and_description($conf);
-ok(auto::ctags::_probe_for_ctags_output('Exuberant Ctags', 0),
+ok(auto::ctags::_probe_for_ctags_output($conf, 'Exuberant Ctags'),
"Probe returned true when output matched");
-ok(! auto::ctags::_probe_for_ctags_output('alpha', 0),
+ok(! auto::ctags::_probe_for_ctags_output($conf, 'alpha'),
"Probe returned false when output matched");
{
my $stdout;
my $rv = capture(
- sub { auto::ctags::_probe_for_ctags_output('Exuberant Ctags', 1) },
+ sub { auto::ctags::_probe_for_ctags_output($conf, 'Exuberant Ctags') },
\$stdout
);
ok($rv, "Probe returned true when output matched");
@@ -115,7 +115,7 @@
{
my $stdout;
my $rv = capture(
- sub { auto::ctags::_probe_for_ctags_output('alpha', 1) },
+ sub { auto::ctags::_probe_for_ctags_output($conf, 'alpha') },
\$stdout
);
ok(! $rv, "Probe returned false when output matched");
Deleted: branches/gsoc_instrument/t/steps/auto/extra_nci_thunks-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/extra_nci_thunks-01.t Sun Jun 6 16:09:33 2010 (r47428)
+++ /dev/null 00:00:00 1970 (deleted)
@@ -1,87 +0,0 @@
-#! perl
-# Copyright (C) 2010, Parrot Foundation.
-# $Id$
-# auto/extra_nci_thunks-01.t
-
-=head1 NAME
-
-auto/extra_nci_thunks-01.t - test auto::extra_nci_thunks
-
-=head1 SYNOPSIS
-
- % prove t/steps/auto/extra_nci_thunks-01.t
-
-=head1 DESCRIPTION
-
-The files in this directory test functionality used by F<Configure.pl>.
-
-The tests in this file test auto::extra_nci_thunks.
-
-=head1 SEE ALSO
-
-config::auto::libjit, F<Configure.pl>.
-
-=cut
-
-use strict;
-use warnings;
-
-use Test::More tests => 21;
-
-use lib qw( lib t/configure/testlib );
-use Parrot::Configure;
-use Parrot::Configure::Options 'process_options';
-use Parrot::Configure::Test qw(
- test_step_thru_runstep
- rerun_defaults_for_testing
- test_step_constructor_and_description
-);
-
-use_ok('config::init::defaults');
-use_ok('config::auto::extra_nci_thunks');
-
-my ($args, $step_list_ref) = process_options( {
- argv => [ q{--without-extra-nci-thunks} ],
- mode => 'configure',
-} );
-
-my $conf = Parrot::Configure->new;
-my $serialized = $conf->pcfreeze();
-
-test_step_thru_runstep( $conf, 'init::defaults', $args );
-
-my $pkg = 'auto::extra_nci_thunks';
-my ($step, $ret);
-
-$conf->add_steps($pkg);
-$conf->options->set(%$args);
-$step = test_step_constructor_and_description($conf);
-$ret = $step->runstep($conf);
-ok( $ret, "runstep() returned true value" );
-is( $step->result(), 'no', "Result is 'no', as expected" );
-is( $conf->data->get( 'HAS_EXTRA_NCI_THUNKS' ), 0,
- "Got the expected result with '--without-extra-nci-thunks' option" );
-
-$conf->replenish($serialized);
-
-($args, $step_list_ref) = process_options( {
- argv => [ ],
- mode => 'configure',
-} );
-rerun_defaults_for_testing($conf, $args);
-$conf->add_steps($pkg);
-$conf->options->set( %{$args} );
-$step = test_step_constructor_and_description($conf);
-$ret = $step->runstep($conf);
-ok( $ret, "runstep() returned a true value" );
-is( $step->result(), 'yes', "Default result is 'yes' as expected" );
-is( $conf->data->get( 'has_extra_nci_thunks' ), 1,
- "Get the expected result without '--without-extra-nci-thunks' option" );
-
-
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
Modified: branches/gsoc_instrument/t/steps/auto/gettext-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/gettext-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/gettext-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -112,12 +112,12 @@
########## _evaluate_cc_run() ##########
-my ($test, $verbose);
+my $test;
my $has_gettext;
$test = "Hello, world!\n";
-$verbose = undef;
-$has_gettext = $step->_evaluate_cc_run($test, $verbose);
+$conf->options->set(verbose => undef);
+$has_gettext = $step->_evaluate_cc_run($conf, $test);
is($has_gettext, 1, "Got expected value for has_gettext");
is($step->result(), 'yes', "Expected result was set");
# Prepare for next test
@@ -126,10 +126,10 @@
{
my $stdout;
$test = "Hello, world!\n";
- $verbose = 1;
+ $conf->options->set(verbose => 1);
capture(
sub {
- $has_gettext = $step->_evaluate_cc_run($test, $verbose);
+ $has_gettext = $step->_evaluate_cc_run($conf, $test);
},
\$stdout,
);
@@ -141,8 +141,8 @@
}
$test = "Foobar\n";
-$verbose = undef;
-$has_gettext = $step->_evaluate_cc_run($test, $verbose);
+$conf->options->set(verbose => undef);
+$has_gettext = $step->_evaluate_cc_run($conf, $test);
is($has_gettext, 0, "Got expected value for has_gettext");
ok(! defined $step->result(), "As expected, result is not yet defined");
@@ -157,11 +157,11 @@
$conf->options->set( %{$args} );
$step = test_step_constructor_and_description($conf);
-$verbose = undef;
+$conf->options->set(verbose => undef);
$conf->data->set( ccflags => q{} );
$conf->data->set( libs => q{} );
my $libs = q{foo bar baz};
-ok(auto::gettext::_handle_gettext($conf, $verbose, $libs),
+ok(auto::gettext::_handle_gettext($conf, $libs),
"_handle_gettext() returned true value");
like($conf->data->get( 'ccflags' ), qr/-DHAS_GETTEXT/,
"HAS_GETTEXT was added to 'ccflags'");
@@ -172,9 +172,9 @@
$conf->data->set( libs => q{} );
{
my ($stdout, $rv);
- $verbose = 1;
+ $conf->options->set(verbose => 1);
capture(
- sub { $rv = auto::gettext::_handle_gettext($conf, $verbose, $libs); },
+ sub { $rv = auto::gettext::_handle_gettext($conf, $libs); },
\$stdout,
);
ok($rv, "_handle_gettext() returned true value");
@@ -186,6 +186,7 @@
qr/ccflags:\s.*-DHAS_GETTEXT/,
"Got expected verbose output"
);
+ $conf->options->set(verbose => undef);
}
pass("Completed all tests in $0");
Modified: branches/gsoc_instrument/t/steps/auto/gmp-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/gmp-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/gmp-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -110,12 +110,12 @@
$conf->options->set( %{$args} );
$step = test_step_constructor_and_description($conf);
-my ($test, $has_gmp, $verbose);
+my ($test, $has_gmp);
$test = $step->{cc_run_expected};
$has_gmp = 0;
-$verbose = undef;
-$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp, $verbose);
+$conf->options->set(verbose => undef);
+$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp);
is($step->result, 'yes', "Got expected result");
is($conf->data->get('gmp'), 'define', "Expected value set for 'gmp'");
is($conf->data->get('HAS_GMP'), 1, "Expected value set for 'HAS_GMP'");
@@ -126,8 +126,8 @@
$test = '12345';
$has_gmp = 0;
-$verbose = undef;
-$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp, $verbose);
+$conf->options->set(verbose => undef);
+$has_gmp = $step->_evaluate_cc_run($conf, $test, $has_gmp);
ok(! defined($step->result), "Result undefined as expected");
is($has_gmp, 0, "gmp status unchanged");
@@ -135,10 +135,10 @@
my $stdout;
$test = $step->{cc_run_expected};
$has_gmp = 0;
- $verbose = 1;
+ $conf->options->set(verbose => 1);
capture(
sub { $has_gmp =
- $step->_evaluate_cc_run($conf, $test, $has_gmp, $verbose); },
+ $step->_evaluate_cc_run($conf, $test, $has_gmp); },
\$stdout,
);
is($step->result, 'yes', "Got expected result");
Modified: branches/gsoc_instrument/t/steps/auto/icu-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/icu-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/icu-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -72,53 +72,59 @@
my ($autodetect, $without);
-($icuconfig, $autodetect, $without) =
- $step->_handle_search_for_icu_config( {
+($icuconfig, $autodetect, $without) = $step->_handle_search_for_icu_config(
+ $conf,
+ {
icuconfig => q{},
autodetect => 1,
without => 0,
- verbose => 0,
ret => -1,
-} );
+ }
+);
ok(! defined $icuconfig, "icu-config not found, as expected");
is($autodetect, 0, "Autodetection cancelled, as expected");
is($without, 1, "Continuing to configure without ICU");
-($icuconfig, $autodetect, $without) =
- $step->_handle_search_for_icu_config( {
+($icuconfig, $autodetect, $without) = $step->_handle_search_for_icu_config(
+ $conf,
+ {
icuconfig => q{},
autodetect => 1,
without => 0,
- verbose => 0,
ret => 256,
-} );
+ }
+);
ok(! defined $icuconfig, "icu-config not found, as expected");
is($autodetect, 0, "Autodetection cancelled, as expected");
is($without, 1, "Continuing to configure without ICU");
-($icuconfig, $autodetect, $without) =
- $step->_handle_search_for_icu_config( {
+($icuconfig, $autodetect, $without) = $step->_handle_search_for_icu_config(
+ $conf,
+ {
icuconfig => q{},
autodetect => 1,
without => 0,
- verbose => 0,
ret => 0,
-} );
+ }
+);
is($icuconfig, q{icu-config}, "icu-config found, as expected");
is($autodetect, 1, "Autodetection continues, as expected");
is($without, 0, "Continuing to try to configure with ICU");
{
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr);
capture( sub {
($icuconfig, $autodetect, $without) =
- $step->_handle_search_for_icu_config( {
+ $step->_handle_search_for_icu_config(
+ $conf,
+ {
icuconfig => q{},
autodetect => 1,
without => 0,
- verbose => 1,
ret => 0,
- } );
+ }
+ );
},
\$stdout,
\$stderr,
@@ -128,30 +134,33 @@
is($without, 0, "Continuing to try to configure with ICU");
like($stdout, qr/icu-config found/,
"Got expected verbose output");
+ $conf->options->set( verbose => undef );
}
########## _handle_autodetect() ##########
-($icuconfig, $autodetect, $without) =
- $step->_handle_autodetect( {
+($icuconfig, $autodetect, $without) = $step->_handle_autodetect(
+ $conf,
+ {
icuconfig => $phony,
autodetect => 1,
without => 0,
- verbose => 0,
-} );
+ }
+);
is($icuconfig, $phony, "icu-config unchanged, as expected");
is($autodetect, 1, "Autodetection still active, as expected");
is($without, 0, "Continuing to try to configure with ICU");
{
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr);
capture( sub {
- ($icuconfig, $autodetect, $without) =
- $step->_handle_autodetect( {
+ ($icuconfig, $autodetect, $without) = $step->_handle_autodetect(
+ $conf,
+ {
icuconfig => $phony,
autodetect => 0,
without => 0,
- verbose => 1,
} );
},
\$stdout,
@@ -162,6 +171,7 @@
is($without, 0, "Continuing to try to configure with ICU");
like($stdout, qr/ICU autodetection disabled/s,
"Got expected verbose output");
+ $conf->options->set( verbose => undef );
}
########## _handle_icushared() ##########
@@ -247,7 +257,6 @@
without => 1,
autodetect => 1,
icuconfig => 1,
- verbose => 0,
}
);
is($without, 1, "Not trying to configure with ICU");
@@ -262,7 +271,6 @@
without => 0,
autodetect => 0,
icuconfig => 1,
- verbose => 0,
}
);
is($without, 0, "Still trying to configure with ICU");
@@ -277,7 +285,6 @@
without => 0,
autodetect => 1,
icuconfig => q{},
- verbose => 0,
}
);
is($without, 0, "Still trying to configure with ICU");
@@ -292,48 +299,54 @@
"Got expected die message");
{
+ $conf->options->set( verbose => 1 );
my $phony = q{/path/to/icu-config};
my ($stdout, $stderr);
capture(
- sub { auto::icu::_verbose_report(1, $phony, undef, undef); },
+ sub { auto::icu::_verbose_report($conf, $phony, undef, undef); },
\$stdout,
\$stderr,
);
like( $stdout, qr/icuconfig:\s+$phony/s,
"Got expected verbose output"
);
+ $conf->options->set( verbose => undef );
}
{
+ $conf->options->set( verbose => 1 );
my $phony = q{-lalpha};
my ($stdout, $stderr);
capture(
- sub { auto::icu::_verbose_report(1, undef, $phony, undef); },
+ sub { auto::icu::_verbose_report($conf, undef, $phony, undef); },
\$stdout,
\$stderr,
);
like( $stdout, qr/icushared='$phony'/s,
"Got expected verbose output"
);
+ $conf->options->set( verbose => undef );
}
{
+ $conf->options->set( verbose => 1 );
my $phony = q{alpha/include};
my ($stdout, $stderr);
capture(
- sub { auto::icu::_verbose_report(1, undef, undef, $phony); },
+ sub { auto::icu::_verbose_report($conf, undef, undef, $phony); },
\$stdout,
\$stderr,
);
like( $stdout, qr/headers='$phony'/s,
"Got expected verbose output"
);
+ $conf->options->set( verbose => undef );
}
{
my ($stdout, $stderr);
capture(
- sub { auto::icu::_verbose_report(0, 'alpha', 'beta', 'gamma'); },
+ sub { auto::icu::_verbose_report($conf, 'alpha', 'beta', 'gamma'); },
\$stdout,
\$stderr,
);
@@ -343,6 +356,7 @@
########## _handle_icuconfig_errors() ##########
{
+ $conf->options->set( verbose => undef );
my ($stdout, $stderr);
capture(
sub {
@@ -368,13 +382,14 @@
my $status = $conf->data->get( 'ccflags' );
{
+ $conf->options->set(verbose => 1);
my ($stdout, $stderr);
capture(
sub {
- auto::icu::_handle_ccflags_status($conf,
+ auto::icu::_handle_ccflags_status(
+ $conf,
{
ccflags_status => 1,
- verbose => 1,
icuheaders => $icuheaders,
},
);
@@ -388,13 +403,14 @@
$conf->data->set( ccflags => $status ); # re-set for next test
{
+ $conf->options->set(verbose => 1);
my ($stdout, $stderr);
capture(
sub {
- auto::icu::_handle_ccflags_status($conf,
+ auto::icu::_handle_ccflags_status(
+ $conf,
{
ccflags_status => 0,
- verbose => 1,
icuheaders => $icuheaders,
},
);
@@ -427,13 +443,14 @@
$conf->data->set( ccflags => $status ); # re-set for next test
{
+ $conf->options->set( verbose => undef );
my ($stdout, $stderr);
capture(
sub {
- auto::icu::_handle_ccflags_status($conf,
+ auto::icu::_handle_ccflags_status(
+ $conf,
{
ccflags_status => 0,
- verbose => 0,
icuheaders => $icuheaders,
},
);
@@ -652,6 +669,7 @@
$conf->options->set( %{$args} );
$step = test_step_constructor_and_description($conf);
{
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr, $ret);
my $icuconfig;
my ($without, $icushared, $icuheaders);
@@ -664,7 +682,6 @@
without => 0,
autodetect => 1,
icuconfig => $icuconfig,
- verbose => 1,
}
);
},
Modified: branches/gsoc_instrument/t/steps/auto/msvc-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/msvc-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/msvc-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -93,15 +93,13 @@
$major = 13;
$minor = 99;
-$verbose = undef;
-$status = $step->_handle_not_msvc($conf, $major, $minor, $verbose);
+$status = $step->_handle_not_msvc($conf, $major, $minor);
ok(! defined $status, 'sub return value, as expected, not yet set');
ok(! $step->result(), 'result, as expected, not yet set');
$major = 13;
$minor = undef;
-$verbose = undef;
-$status = $step->_handle_not_msvc($conf, $major, $minor, $verbose);
+$status = $step->_handle_not_msvc($conf, $major, $minor);
ok($status, 'sub return value, as expected, set to true value');
is($step->result(), q{no}, 'Got expected result');
ok(! defined ($conf->data->get( 'msvcversion' )),
@@ -109,13 +107,21 @@
$major = undef;
$minor = 99;
-$verbose = undef;
-$status = $step->_handle_not_msvc($conf, $major, $minor, $verbose);
+$status = $step->_handle_not_msvc($conf, $major, $minor);
ok($status, 'sub return value, as expected, set to true value');
is($step->result(), q{no}, 'Got expected result');
ok(! defined ($conf->data->get( 'msvcversion' )),
'msvcversion is undef, as expected');
+$conf->replenish($serialized);
+
+########## _handle_not_msvc() ##########
+
+($args, $step_list_ref) = process_options( {
+ argv => [ q{--verbose=1} ],
+ mode => q{configure},
+} );
+$conf->options->set(%{$args});
{
my $stdout;
$major = undef;
@@ -123,7 +129,7 @@
$verbose = 1;
capture(
sub { $status =
- $step->_handle_not_msvc($conf, $major, $minor, $verbose); },
+ $step->_handle_not_msvc($conf, $major, $minor); },
\$stdout,
);
ok($status, 'sub return value, as expected, set to true value');
@@ -141,8 +147,7 @@
$major = 13;
$minor = 99;
-$verbose = undef;
-$msvcversion = $step->_compose_msvcversion($major, $minor, $verbose);
+$msvcversion = $step->_compose_msvcversion($major, $minor);
is($msvcversion, '13.99', "Got expected MSVC version");
is($step->result(), 'yes, 13.99', "Got expected result");
$step->set_result(undef);
@@ -151,10 +156,9 @@
my $stdout;
$major = 13;
$minor = 99;
- $verbose = 1;
capture(
sub { $msvcversion =
- $step->_compose_msvcversion($major, $minor, $verbose); },
+ $step->_compose_msvcversion($major, $minor); },
\$stdout,
);
is($msvcversion, '13.99', "Got expected MSVC version");
Modified: branches/gsoc_instrument/t/steps/auto/neg_0-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/neg_0-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/neg_0-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -55,11 +55,10 @@
my $d_neg_0;
my $orig_has_neg_0 = 0;
-my $verbose = $conf->data->get('verbose');
$d_neg_0 = '-0';
-is( $step->_evaluate_cc_run($conf, $d_neg_0, $orig_has_neg_0, $verbose),
+is( $step->_evaluate_cc_run($conf, $d_neg_0, $orig_has_neg_0),
1,
'_evaluate_cc_run() completed satisfactorily' );
@@ -67,7 +66,7 @@
$d_neg_0 = '0';
-is( $step->_evaluate_cc_run($conf, $d_neg_0, $orig_has_neg_0, $verbose),
+is( $step->_evaluate_cc_run($conf, $d_neg_0, $orig_has_neg_0),
0,
'_evaluate_cc_run() completed satisfactorily' );
is( $step->result(), 'no', 'Got expected result' );
@@ -85,7 +84,6 @@
$conf->options->set( %{$args} );
$step = test_step_constructor_and_description($conf);
-$verbose = $conf->options->get('verbose');
my $has_neg_0;
$d_neg_0 = '-0';
@@ -94,7 +92,7 @@
capture(
sub {
$has_neg_0 = $step->_evaluate_cc_run(
- $conf, $d_neg_0, $orig_has_neg_0, $verbose
+ $conf, $d_neg_0, $orig_has_neg_0
),
},
\$stdout,
@@ -111,7 +109,7 @@
capture(
sub {
$has_neg_0 = $step->_evaluate_cc_run(
- $conf, $d_neg_0, $orig_has_neg_0, $verbose
+ $conf, $d_neg_0, $orig_has_neg_0
),
},
\$stdout,
Modified: branches/gsoc_instrument/t/steps/auto/opengl-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/opengl-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/opengl-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 32;
+use Test::More tests => 29;
use Carp;
use lib qw( lib );
use_ok('config::auto::opengl');
@@ -138,26 +138,8 @@
my ($glut_api_version, $glut_brand);
capture(
sub { ($glut_api_version, $glut_brand) = $step->_evaluate_cc_run(
+ $conf,
$test,
- 0,
- ); },
- \$stdout,
- \$stderr,
- );
- is( $glut_api_version, $try[0],
- "Got first expected return value for _evaluate_cc_run()." );
- is( $glut_brand, $try[1],
- "Got first expected return value for _evaluate_cc_run()." );
- ok(! $stdout, "Nothing captured on STDOUT, as expected");
-}
-
-{
- my ($stdout, $stderr);
- my ($glut_api_version, $glut_brand);
- capture(
- sub { ($glut_api_version, $glut_brand) = $step->_evaluate_cc_run(
- $test,
- $conf->options->get( 'verbose' )
); },
\$stdout,
\$stderr,
@@ -171,6 +153,8 @@
qr/yes, $glut_brand API version $glut_api_version/,
"Got expected verbose output for _evaluate_cc_run()"
);
+ # prepare for next test
+ $conf->options->set(verbose => undef);
}
########## _handle_glut() ##########
Modified: branches/gsoc_instrument/t/steps/auto/pcre-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/pcre-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/pcre-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -98,14 +98,13 @@
# Mock different outcomes of _evaluate_cc_run
my ($test, $has_pcre);
-my $verbose = $conf->options->get('verbose');
$test = q{pcre foobar};
-ok(! $step->_evaluate_cc_run($test, $verbose),
+ok(! $step->_evaluate_cc_run($conf, $test),
"Got expected setting for HAS_PCRE");
$test = q{pcre 4.1};
-ok($step->_evaluate_cc_run($test, $verbose),
+ok($step->_evaluate_cc_run($conf, $test),
"_evaluate_cc_run returned true value as expected");
is($step->result(), q{yes, 4.1}, "Got expected PCRE version");
@@ -122,14 +121,13 @@
$step = test_step_constructor_and_description($conf);
# Mock different outcomes of _evaluate_cc_run
-$verbose = $conf->options->get('verbose');
$test = q{pcre 4.0};
{
my ($stdout, $stderr);
capture(
sub {
- $has_pcre = $step->_evaluate_cc_run($test, $verbose);
+ $has_pcre = $step->_evaluate_cc_run($conf, $test);
},
\$stdout,
);
Modified: branches/gsoc_instrument/t/steps/auto/readline-02.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/readline-02.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/readline-02.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -35,10 +35,10 @@
########## _evaluate_cc_run() ##########
-my ($has_readline, $verbose);
+my ($has_readline);
-$verbose = undef;
-$has_readline = $step->_evaluate_cc_run($verbose);
+$conf->options->set(verbose => undef);
+$has_readline = $step->_evaluate_cc_run($conf);
is($has_readline, 1, "Got expected value for has_readline");
is($step->result(), 'yes', "Expected result was set");
# Prepare for next test
@@ -46,9 +46,9 @@
{
my $stdout;
- $verbose = 1;
+ $conf->options->set(verbose => 1);
capture(
- sub { $has_readline = $step->_evaluate_cc_run($verbose); },
+ sub { $has_readline = $step->_evaluate_cc_run($conf); },
\$stdout,
);
is($has_readline, 1, "Got expected value for has_readline");
@@ -56,6 +56,7 @@
like($stdout, qr/\(yes\)/, "Got expected verbose output");
# Prepare for next test
$step->set_result(undef);
+ $conf->options->set(verbose => undef);
}
########## _handle_readline() ##########
Modified: branches/gsoc_instrument/t/steps/auto/zlib-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/auto/zlib-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/auto/zlib-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -90,8 +90,6 @@
'-lz',
"_select_lib() returned expected value");
-my $verbose = undef;
-
$conf->replenish($serialized);
########## --without-zlib; _evaluate_cc_run() ##########
@@ -105,8 +103,8 @@
my ($test, $has_zlib);
$test = qq{1.2.3\n};
$has_zlib = 0;
-$verbose = undef;
-$has_zlib = $step->_evaluate_cc_run($conf, $test, $has_zlib, $verbose);
+$conf->options->set(verbose => undef);
+$has_zlib = $step->_evaluate_cc_run($conf, $test, $has_zlib);
is($has_zlib, 1, "'has_zlib' set as expected");
is($step->result(), 'yes, 1.2.3', "Expected result was set");
# Prepare for next test
@@ -114,8 +112,8 @@
$test = qq{foobar};
$has_zlib = 0;
-$verbose = undef;
-$has_zlib = $step->_evaluate_cc_run($conf, $test, $has_zlib, $verbose);
+$conf->options->set(verbose => undef);
+$has_zlib = $step->_evaluate_cc_run($conf, $test, $has_zlib);
is($has_zlib, 0, "'has_zlib' set as expected");
ok(! defined $step->result(), "Result is undefined, as expected");
@@ -123,10 +121,10 @@
my $stdout;
$test = qq{1.2.3\n};
$has_zlib = 0;
- $verbose = 1;
+ $conf->options->set(verbose => 1);
capture(
sub { $has_zlib =
- $step->_evaluate_cc_run($conf, $test, $has_zlib, $verbose); },
+ $step->_evaluate_cc_run($conf, $test, $has_zlib); },
\$stdout,
);
is($has_zlib, 1, "'has_zlib' set as expected");
Modified: branches/gsoc_instrument/t/steps/gen/opengl-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/gen/opengl-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/gen/opengl-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 7;
+use Test::More tests => 20;
use Carp;
use lib qw( lib );
use_ok('config::gen::opengl');
@@ -14,6 +14,7 @@
use Parrot::Configure::Test qw(
test_step_constructor_and_description
);
+use IO::CaptureOutput qw( capture );
########## regular ##########
@@ -27,17 +28,84 @@
my $conf = Parrot::Configure::Step::Test->new;
$conf->include_config_results( $args );
-my $pkg = q{gen::opengl};
+my ($pkg, $step, $result);
+my $serialized = $conf->pcfreeze();
+
+$pkg = q{gen::opengl};
$conf->add_steps($pkg);
$conf->options->set( %{$args} );
-my $step = test_step_constructor_and_description($conf);
+$step = test_step_constructor_and_description($conf);
##### mock no OpenGL #####
$conf->data->set( has_opengl => 0 );
-my $result = $step->runstep($conf);
+$result = $step->runstep($conf);
ok($result, "runstep() returned true value");
is($step->result(), q{skipped}, "Got expected result when no 'has_opengl'" );
+$conf->replenish($serialized);
+
+########### verbose ###########
+
+($args, $step_list_ref) = process_options( {
+ argv => [ q{--verbose} ],
+ mode => q{configure},
+} );
+
+$conf->add_steps($pkg);
+$conf->options->set( %{$args} );
+$step = test_step_constructor_and_description($conf);
+{
+ my ($stdout, $stderr);
+ capture(
+ sub { $result = $step->runstep($conf); },
+ \$stdout,
+ \$stderr,
+ );
+ ok($result, "runstep() returned true value");
+ like( $stdout,
+ qr/Checking for OpenGL headers using the following globs/s,
+ "Got expected verbose output"
+ );
+ like( $stdout,
+ qr/Found the following OpenGL headers/s,
+ "Got expected verbose output"
+ );
+ like( $stdout,
+ qr/PASS\s+FAIL\s+IGNORE\s+HEADER/s,
+ "Got expected verbose output"
+ );
+ like( $stdout,
+ qr/unique signatures successfully translated/s,
+ "Got expected verbose output"
+ );
+}
+
+$conf->replenish($serialized);
+
+########### extra verbose ###########
+
+($args, $step_list_ref) = process_options( {
+ argv => [ q{--verbose=3} ],
+ mode => q{configure},
+} );
+
+$conf->add_steps($pkg);
+$conf->options->set( %{$args} );
+$step = test_step_constructor_and_description($conf);
+{
+ my ($stdout, $stderr);
+ capture(
+ sub { $result = $step->runstep($conf); },
+ \$stdout,
+ \$stderr,
+ );
+ ok($result, "runstep() returned true value");
+ like( $stdout,
+ qr/COUNT\s+NCI SIGNATURE/s,
+ "Got expected verbose output"
+ );
+}
+
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
Modified: branches/gsoc_instrument/t/steps/gen/platform-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/gen/platform-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/gen/platform-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -42,18 +42,17 @@
my $platform_orig = $conf->data->get('osname');
my $archname_orig = $conf->data->get('archname');
$conf->data->set( archname => 'foo-bar' );
-my $verbose = 0;
########## _get_generated() ##########
my $TEMP_generated_orig = $conf->data->get('TEMP_generated');
{
- $verbose = 1;
+ $conf->options->set(verbose => 1);
my ($stdout, $stderr, $rv);
my $expected = q{foo};
$conf->data->set( TEMP_generated => $expected );
capture(
- sub { $rv = $step->_get_generated( $conf, $verbose ) },
+ sub { $rv = $step->_get_generated( $conf ) },
\$stdout,
\$stderr,
);
@@ -61,8 +60,8 @@
like( $stdout, qr/\($expected\)/, "Got expected verbose output");
}
$conf->data->set( TEMP_generated => undef );
-$verbose = 0;
-is( $step->_get_generated( $conf, $verbose ), q{},
+$conf->options->set(verbose => 0);
+is( $step->_get_generated( $conf ), q{},
"Got expected generated");
# re-set to original values
Modified: branches/gsoc_instrument/t/steps/init/defaults-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/init/defaults-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/init/defaults-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 37;
+use Test::More tests => 49;
use Carp;
use Cwd;
use File::Copy;
@@ -143,6 +143,44 @@
is($conf->data->get( 'linkflags' ), '-bundle -L/usr/local/lib64',
"Got expected value for 'linkflags'");
+$conf->replenish($serialized);
+
+##### with extra-nci-thunks #####
+($args, $step_list_ref) = process_options(
+ {
+ argv => [ ],
+ mode => q{configure},
+ }
+);
+
+$conf->options->set( %{$args} );
+$step = test_step_constructor_and_description($conf);
+$ret = $step->runstep($conf);
+ok( defined $ret, "runstep() returned defined value" );
+ok($conf->data->get( 'has_extra_nci_thunks' ),
+ "Got expected value for has_extra_nci_thunks" );
+ok($conf->data->get( 'HAS_EXTRA_NCI_THUNKS' ),
+ "Got expected value for HAS_EXTRA_NCI_THUNKS" );
+
+$conf->replenish($serialized);
+
+##### without extra-nci-thunks #####
+($args, $step_list_ref) = process_options(
+ {
+ argv => [ q{--without-extra-nci-thunks} ],
+ mode => q{configure},
+ }
+);
+
+$conf->options->set( %{$args} );
+$step = test_step_constructor_and_description($conf);
+$ret = $step->runstep($conf);
+ok( defined $ret, "runstep() returned defined value" );
+ok(! $conf->data->get( 'has_extra_nci_thunks' ),
+ "Got expected value for has_extra_nci_thunks" );
+ok(! $conf->data->get( 'HAS_EXTRA_NCI_THUNKS' ),
+ "Got expected value for HAS_EXTRA_NCI_THUNKS" );
+
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
Modified: branches/gsoc_instrument/t/steps/init/hints/darwin-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/init/hints/darwin-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/init/hints/darwin-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -40,10 +40,11 @@
my $stored = $conf->data->get($problematic_flag);
{
+ $conf->options->set( verbose => undef );
my ($stdout, $stderr);
capture(
sub { init::hints::darwin::_precheck(
- $problematic_flag, $stored, 0
+ $conf, $problematic_flag, $stored
) },
\$stdout,
\$stderr,
@@ -52,10 +53,11 @@
}
{
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr);
capture(
sub { init::hints::darwin::_precheck(
- $problematic_flag, $stored, 1
+ $conf, $problematic_flag, $stored
) },
\$stdout,
\$stderr,
@@ -68,10 +70,11 @@
}
{
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr);
capture(
sub { init::hints::darwin::_precheck(
- $problematic_flag, q{}, 1
+ $conf, $problematic_flag, q{}
) },
\$stdout,
\$stderr,
@@ -81,6 +84,7 @@
"_precheck(): Got expected verbose output" );
like($stdout, qr/Pre-check:\s+\(nil\)/,
"_precheck(): Got expected verbose output" );
+ $conf->options->set( verbose => undef );
}
##### _strip_arch_flags_engine #####
@@ -107,22 +111,24 @@
##### _postcheck #####
{
+ $conf->options->set( verbose => undef );
my $flag = 'ccflags';
my $flagsref = { 'ccflags' => 'my ccflag' };
my ($stdout, $stderr);
capture(
sub { init::hints::darwin::_postcheck(
- $flagsref, $flag, 0
+ $conf, $flagsref, $flag
) },
\$stdout,
\$stderr,
);
ok( ! $stdout, "_postcheck(): Non-verbose mode produced no output" );
+ $conf->options->set( verbose => 1 );
capture(
sub { init::hints::darwin::_postcheck(
- $flagsref, $flag, 1
+ $conf, $flagsref, $flag
) },
\$stdout,
\$stderr,
@@ -131,10 +137,11 @@
like($stdout, qr/Post-check:\s+$flagsref->{$flag}/,
"_postcheck(): Got expected verbose output" );
+ $conf->options->set( verbose => 1 );
$flagsref = { 'ccflags' => undef };
capture(
sub { init::hints::darwin::_postcheck(
- $flagsref, $flag, 1
+ $conf, $flagsref, $flag
) },
\$stdout,
\$stderr,
@@ -164,10 +171,11 @@
"_strip_arch_flags(): '-arch' flags and extra whitespace removed",
);
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr);
capture(
sub {
- $flagsref = init::hints::darwin::_strip_arch_flags($conf, 1);
+ $flagsref = init::hints::darwin::_strip_arch_flags($conf);
},
\$stdout,
\$stderr,
@@ -351,17 +359,17 @@
$addl_flags_ref = undef;
$flagsref = undef;
$title = 'Fink';
- $verbose = 0;
+ $conf->options->set( 'verbose' => undef );
ok( init::hints::darwin::_add_to_flags(
- $addl_flags_ref, $flagsref, $title, $verbose
+ $conf, $addl_flags_ref, $flagsref, $title
), "_add_to_flags(): returned true value when no probes found" );
- $verbose = 1;
+ $conf->options->set( 'verbose' => 1 );
{
my ($stdout, $stderr);
capture(
sub { init::hints::darwin::_add_to_flags(
- $addl_flags_ref, $flagsref, $title, $verbose
+ $conf, $addl_flags_ref, $flagsref, $title
); },
\$stdout,
\$stderr,
@@ -381,9 +389,9 @@
$flagsref->{ccflags} = " -pipe -fno-common -Wno-long-double ";
$flagsref->{linkflags} = undef;
$title = 'Fink';
- $verbose = 0;
+ $conf->options->set( 'verbose' => undef );
my $rv = init::hints::darwin::_add_to_flags(
- $addl_flags_ref, $flagsref, $title, $verbose
+ $conf, $addl_flags_ref, $flagsref, $title
);
is( $flagsref->{linkflags}, " $addl_flags_ref->{linkflags}",
"_add_to_flags(): flag added where not previously populated" );
Modified: branches/gsoc_instrument/t/steps/init/hints/linux-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/init/hints/linux-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/init/hints/linux-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -37,17 +37,16 @@
##### _handle_icc_ccflags() #####
my $ccflags = '';
-my $verbose = 0;
-$ccflags = init::hints::linux::_handle_icc_ccflags($ccflags, $verbose);
+$ccflags = init::hints::linux::_handle_icc_ccflags($conf, $ccflags);
like( $ccflags, qr/\s-we147/, "On icc, 'cc_flags' set as expected" );
$ccflags = '';
-$verbose = 1;
{
+ $conf->options->set( verbose => 1 );
my ($stdout, $stderr);
capture(
sub { $ccflags =
- init::hints::linux::_handle_icc_ccflags($ccflags, $verbose); },
+ init::hints::linux::_handle_icc_ccflags($conf, $ccflags); },
\$stdout,
\$stderr,
);
Modified: branches/gsoc_instrument/t/steps/inter/libparrot-01.t
==============================================================================
--- branches/gsoc_instrument/t/steps/inter/libparrot-01.t Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/t/steps/inter/libparrot-01.t Sun Jun 6 16:09:33 2010 (r47429)
@@ -5,7 +5,7 @@
use strict;
use warnings;
-use Test::More tests => 48;
+use Test::More tests => 74;
use Carp;
use lib qw( lib t/configure/testlib );
use_ok('config::inter::libparrot');
@@ -258,6 +258,101 @@
$conf->data->set('has_dynamic_linking' => $has_dynamic_linking_orig);
@prompts = ();
+##### get_libs() #####
+
+my %seen;
+{
+ local $^O = 'foobar';
+ %seen = map { $_ => 1 } inter::libparrot::get_libs();
+ is( scalar keys %seen, 1, "Got expected number of libs: generic" );
+ ok( $seen{'libparrot.so'}, "Got expected lib" );
+}
+
+{
+ local $^O = 'MSWin32';
+ %seen = map { $_ => 1 } inter::libparrot::get_libs();
+ is( scalar keys %seen, 3, "Got expected number of libs: Win32" );
+ is_deeply(
+ \%seen,
+ {
+ 'libparrot.dll' => 1,
+ 'libparrot.lib' => 1,
+ 'libparrot.dll.a' => 1,
+ },
+ "Got expected libs"
+ );
+}
+
+{
+ local $^O = 'cygwin';
+ %seen = map { $_ => 1 } inter::libparrot::get_libs();
+ is( scalar keys %seen, 1, "Got expected number of libs: cygwin" );
+ is_deeply(
+ \%seen,
+ {
+ 'libparrot.dll.a' => 1,
+ },
+ "Got expected libs"
+ );
+}
+
+{
+ local $^O = 'darwin';
+ %seen = map { $_ => 1 } inter::libparrot::get_libs();
+ is( scalar keys %seen, 2, "Got expected number of libs: darwin" );
+ is_deeply(
+ \%seen,
+ {
+ 'libparrot.dylib' => 1,
+ 'libparrot.a' => 1,
+ },
+ "Got expected libs"
+ );
+}
+
+##### get_libpaths() #####
+
+%seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
+ok( $seen{'/usr/local/lib'}, "Got expected lib: generic" );
+ok( $seen{'/usr/lib'}, "Got expected lib: generic" );
+
+{
+ local $^O = 'MSWin32';
+ local $ENV{PATH} = 'alpha;beta';
+ %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
+ ok( $seen{'/usr/local/lib'}, "Got expected lib: MSWin32" );
+ ok( $seen{'/usr/lib'}, "Got expected lib: MSWin32" );
+ ok( $seen{'alpha'}, "Got expected lib: MSWin32" );
+ ok( $seen{'beta'}, "Got expected lib: MSWin32" );
+}
+
+{
+ local $ENV{LD_LIBRARY_PATH} = 'alpha:beta';
+ %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
+ ok( $seen{'/usr/local/lib'}, "Got expected lib: LD_LIBRARY_PATH" );
+ ok( $seen{'/usr/lib'}, "Got expected lib: LD_LIBRARY_PATH" );
+ ok( $seen{'alpha'}, "Got expected lib: LD_LIBRARY_PATH" );
+ ok( $seen{'beta'}, "Got expected lib: LD_LIBRARY_PATH" );
+}
+
+{
+ local $ENV{LD_RUN_PATH} = 'alpha:beta';
+ %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
+ ok( $seen{'/usr/local/lib'}, "Got expected lib: LD_RUN_PATH" );
+ ok( $seen{'/usr/lib'}, "Got expected lib: LD_RUN_PATH" );
+ ok( $seen{'alpha'}, "Got expected lib: LD_RUN_PATH" );
+ ok( $seen{'beta'}, "Got expected lib: LD_RUN_PATH" );
+}
+
+{
+ local $ENV{DYLD_LIBRARY_PATH} = 'alpha:beta';
+ %seen = map { $_ => 1 } inter::libparrot::get_libpaths($conf);
+ ok( $seen{'/usr/local/lib'}, "Got expected lib: DYLD_LIBRARY_PATH" );
+ ok( $seen{'/usr/lib'}, "Got expected lib: DYLD_LIBRARY_PATH" );
+ ok( $seen{'alpha'}, "Got expected lib: DYLD_LIBRARY_PATH" );
+ ok( $seen{'beta'}, "Got expected lib: DYLD_LIBRARY_PATH" );
+}
+
pass("Completed all tests in $0");
################### DOCUMENTATION ###################
Modified: branches/gsoc_instrument/tools/dev/fetch_languages.pl
==============================================================================
--- branches/gsoc_instrument/tools/dev/fetch_languages.pl Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/tools/dev/fetch_languages.pl Sun Jun 6 16:09:33 2010 (r47429)
@@ -48,7 +48,7 @@
my %update_cmd = (
SVN => [qw(svn update)],
GIT => [qw(git pull)],
- HG => [qw(hg pull)],
+ HG => [qw(hg pull --update)],
);
my @hlls = (
Modified: branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir
==============================================================================
--- branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/tools/dev/nci_thunk_gen.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -48,7 +48,8 @@
$P0 = new ['FileHandle']
$P0.'open'($S0, 'w')
$P1 = getinterp
- $P1.'stdhandle'(1, $P0)
+ .include 'stdio.pasm'
+ $P1.'stdhandle'(.PIO_STDOUT_FILENO, $P0)
if targ == 'head' goto get_targ
if targ == 'thunks' goto get_targ
@@ -711,7 +712,8 @@
.sub 'read_sigs'
.local pmc stdin, seen, sigs
$P0 = getinterp
- stdin = $P0.'stdhandle'(0)
+ .include 'stdio.pasm'
+ stdin = $P0.'stdhandle'(.PIO_STDIN_FILENO)
seen = new ['Hash']
sigs = new ['ResizablePMCArray']
@@ -739,7 +741,8 @@
Ignored signature '%s' on line %d (previously seen on line %d)
ERROR
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'($S0)
end_dup_warn:
goto read_loop
Modified: branches/gsoc_instrument/tools/docs/filename_and_chapter.pl
==============================================================================
--- branches/gsoc_instrument/tools/docs/filename_and_chapter.pl Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/tools/docs/filename_and_chapter.pl Sun Jun 6 16:09:33 2010 (r47429)
@@ -19,6 +19,13 @@
['running.pod', 'Parrot\'s command line options'],
];
+my $PIR_chap_list_ref = [ 'ch01_introduction.pod', 'ch02_getting_started.pod',
+ 'ch03_basic_syntax.pod', 'ch04_variables.pod',
+ 'ch05_control_structures.pod', 'ch06_subroutines.pod',
+ 'ch07_objects.pod', 'ch08_io.pod',
+ 'ch09_exceptions.pod',
+ ];
+
my $lang = @$item_list_ref - 1;
my $MOD_BUILD_PATH='build/modified_pod/';
@@ -46,6 +53,9 @@
\documentclass[11pt,a4paper,oneside]{report}
\usepackage{graphics,graphicx}
\usepackage{colortbl}
+%
+%\setcounter{secnumdepth}{2}
+%\setcounter{tocdepth}{2}
\begin{document}
\tableofcontents
@@ -57,6 +67,28 @@
$parser->parse_file( "${MOD_BUILD_PATH}$item_list_ref->[$i][0]" );
}
+print $TEX_FH <<'PIR_TITEL';
+\chapter{PIR Guide}
+
+PIR_TITEL
+
+open my $PIR_TEX_FH, '>', 'build/pir_guide_tex.in';
+$lang = @$PIR_chap_list_ref - 1;
+for my $i ( 0..$lang ) {
+ my $parser = Pod::PseudoPod::LaTeX->new();
+ $parser->output_fh( $PIR_TEX_FH );
+ $parser->parse_file( 'book/pir/' . $PIR_chap_list_ref->[$i] );
+}
+close( $PIR_TEX_FH );
+
+open $PIR_TEX_FH, '<', 'build/pir_guide_tex.in';
+while( <$PIR_TEX_FH> ) {
+ s/^\\section\*/\\section/;
+ s/subsubsub/subsub/;
+ print $TEX_FH $_;
+}
+close( $PIR_TEX_FH );
+
print $TEX_FH <<'FOOTER';
\end{document}
FOOTER
Modified: branches/gsoc_instrument/tools/install/smoke.pl
==============================================================================
--- branches/gsoc_instrument/tools/install/smoke.pl Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/tools/install/smoke.pl Sun Jun 6 16:09:33 2010 (r47429)
@@ -108,12 +108,19 @@
$filename = 'test.pg';
open $FH, '>', $filename
or die "Can't open $filename ($!).\n";
-print $FH "token TOP { \\s* }\n";
+print $FH <<'PGE';
+grammar WSpace
+
+token TOP { \s* }
+PGE
close $FH;
-$out = `$parrot $libdir/PGE/Perl6Grammar.pir $filename`;
-ok($out =~ /^\n## <::TOP>/, "check PGE");
+$out = `$parrot $libdir/PGE/Perl6Grammar.pbc $filename`;
+ok($out =~ /## <WSpace::TOP>/, "check PGE");
unlink($filename);
+SKIP:
+{
+skip("pirc", 1) unless (-e $pirc);
$filename = 'test.pir';
open $FH, '>', $filename
or die "Can't open $filename ($!).\n";
@@ -126,6 +133,7 @@
$out = `$pirc -n $filename`;
ok($out eq "ok\n", "check pirc");
unlink($filename);
+}
$filename = 'test.nqp';
open $FH, '>', $filename
Modified: branches/gsoc_instrument/tools/util/inc_ver.pir
==============================================================================
--- branches/gsoc_instrument/tools/util/inc_ver.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/tools/util/inc_ver.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -5,37 +5,40 @@
.sub 'main' :main
.local string version_file_name
version_file_name = 'VERSION'
+
# read the version
- $P0 = open version_file_name, 'r'
- $S0 = readline $P0
- close $P0
+ $P0 = new 'FileHandle'
+ $P0.'open'( version_file_name, 'r' )
+ $S0 = $P0.'readline'()
+ $P0.'close'()
print 'version: '
print $S0
# split the version
- $P0 = split '.', $S0
+ $P1 = split '.', $S0
# increment version
- $I0 = $P0[1]
+ $I0 = $P1[1]
inc $I0
if $I0 != 12 goto NOT_NILL
- $I0 = $P0[0]
+ $I0 = $P1[0]
inc $I0
- $P0[0] = $I0
+ $P1[0] = $I0
$I0 = 0
NOT_NILL:
- $P0[1] = $I0
+ $P1[1] = $I0
- # join the version
- $S0 = join '.', $P0
+ # join the incremented version
+ $S0 = join '.', $P1
print 'new version: '
print $S0
- $P0 = open version_file_name, 'w'
- print $P0, $S0
- close $P0
+ # write the new version to the version_file
+ $P0.'open'( version_file_name, 'w' )
+ $P0.'print'( $S0 )
+ $P0.'close'()
.end
# Local Variables:
Modified: branches/gsoc_instrument/tools/util/parrot-config.pir
==============================================================================
--- branches/gsoc_instrument/tools/util/parrot-config.pir Sun Jun 6 08:32:34 2010 (r47428)
+++ branches/gsoc_instrument/tools/util/parrot-config.pir Sun Jun 6 16:09:33 2010 (r47429)
@@ -89,7 +89,8 @@
usage:
$S0 = argv[0]
$P0 = getinterp
- $P1 = $P0.'stdhandle'(2)
+ .include 'stdio.pasm'
+ $P1 = $P0.'stdhandle'(.PIO_STDERR_FILENO)
$P1.'print'($S0)
$P1.'print'(" [ <config-key> | --dump | --help ]\n")
exit 1
More information about the parrot-commits
mailing list