Skip to content

Instantly share code, notes, and snippets.

diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
index e9632d0..30eef42 100644
--- a/src/vm/jvm/QAST/Compiler.nqp
+++ b/src/vm/jvm/QAST/Compiler.nqp
@@ -3189,14 +3189,80 @@ class QAST::CompilerJAST {
$source;
}
- method jast($source, :$classname!, *%adverbs) {
+
$ RAKUDO_MODULE_DEBUG=1 ./perl6-j -Ilib -e'use NativeCall'
20964 RMD: Loading settings CORE
20964 RMD: Setting up default paths: . blib
20964 RMD: going to load Perl6::BOOTSTRAP
20964 RMD: Settings CORE loaded
361 20964 RMD: Attempting 'NativeCall' as a pragma
85 20964 RMD: 'NativeCall' is not a valid pragma
45 20964 RMD: Attempting to load 'NativeCall'
23 20964 RMD: Late loading 'NativeCall'
19 20964 RMD: Parsing specs: lib
diff --git a/src/vm/jvm/HLL/Backend.nqp b/src/vm/jvm/HLL/Backend.nqp
index 4c32e70..18dae14 100644
--- a/src/vm/jvm/HLL/Backend.nqp
+++ b/src/vm/jvm/HLL/Backend.nqp
@@ -61,7 +61,7 @@ class HLL::Backend::JVM {
method jast($qast, *%adverbs) {
my $classname := %*COMPILING<%?OPTIONS><javaclass> || nqp::sha1('eval-at-' ~ nqp::time_n() ~ $compile_count++);
- nqp::getcomp('QAST').jast($qast, :$classname);
+ nqp::getcomp('QAST').jast($qast, :$classname, |%adverbs);
main[1] locals
Method arguments:
tc = instance of org.perl6.nqp.runtime.ThreadContext(id=5955)
Local variables:
BOOTCodeSTable = instance of org.perl6.nqp.sixmodel.STable(id=5956)
codeRefList = instance of java.util.ArrayList(id=5957)
outerCuid = instance of java.util.ArrayList(id=5958)
codeRefsFound = true
mlist = instance of org.perl6.nqp.runtime.CompilationUnit$ReflectiveCodeInfo[7] (id=5959)
arr$ = instance of org.perl6.nqp.runtime.CompilationUnit$ReflectiveCodeInfo[7] (id=5959)
use v6.c;
use Music::Helpers;
sub MAIN(:$mode = 'major', :$root = C, :$tempo = 120, :$arrangement = 'ABA', :$outfile = 'song.pl6') {
my \prologue = qq:to/END/;
use Audio::PortMIDI;
use Music::Helpers;
use Audio::MIDI::Note;
Test Summary Report
-------------------
t/spec/integration/weird-errors.rakudo.jvm (Wstat: 0 Tests: 23 Failed: 2)
Failed tests: 9, 12
t/spec/S02-literals/types.t (Wstat: 0 Tests: 7 Failed: 2)
Failed tests: 2, 6
t/spec/S02-names-vars/names.rakudo.jvm (Wstat: 0 Tests: 149 Failed: 1)
Failed test: 141
t/spec/S02-names/identifier.t (Wstat: 0 Tests: 22 Failed: 1)
Failed test: 22
$ cat data
this is the deps
thisisthebytecodenotreallyhaha
$ ./perl6-j -e'my $h = open "data".IO, :r; say $h.get; say $h.slurp-rest :bin '
this is the deps
Buf[uint8]:0x<>
$ ./perl6-j -e'my $h = open "data".IO, :r; say $h.get; say $h.slurp-rest '
this is the deps
diff --git a/src/core/Iterable.pm b/src/core/Iterable.pm
index b8f070a..c123e3a 100644
--- a/src/core/Iterable.pm
+++ b/src/core/Iterable.pm
@@ -151,4 +151,8 @@ my role Iterable {
}
}
+#?if jvm
+nqp::p6setitertype(Iterable);
diff --git a/.travis.yml b/.travis.yml
index dd5a707..6fc0d0a 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -33,7 +33,14 @@ env:
- RAKUDO_OPTIONS="--backends=moar --gen-nqp=master --gen-moar=master"
- RAKUDO_OPTIONS="--backends=jvm --gen-nqp"
- RAKUDO_OPTIONS="--backends=jvm --gen-nqp=master"
+ - RAKUDO_OPTIONS="--backends=moar --gen-nqp --gen-moar --make-install"
+ - RAKUDO_OPTIONS="--backends=moar --gen-nqp=master --gen-moar --make-install"
Stack trace of thread 8343:
#0 0x00007fd126bfbb46 __memmove_ssse3 (libc.so.6)
#1 0x00007fd12396772e snd_seq_drain_output (/usr/lib/libasound.so.2.0.0)
#2 0x00007fd123bcdab1 n/a (/usr/lib/libportmidi.so)
#3 0x00007fd123bcfaa5 Pm_Write (/usr/lib/libportmidi.so)
#4 0x00007fd123bcfc98 Pm_WriteShort (/usr/lib/libportmidi.so)
#5 0x00007fd127090305 dcCall_x64_sysv (libmoar.so)