Store both nqp::jvmgetproperties and nqp::backendconfig in $*VM on JVM.

This exposes information needed by NativeCall in $*VM.
rakudo · Mar 13, 2014 · eebf846 · eebf846
1 parent 22a53c2
commit eebf846
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/core/terms.pm b/src/core/terms.pm
@@ -35,9 +35,18 @@ sub term:<time>() { nqp::p6box_i(nqp::time_i()) }
         $key = nqp::p6box_s(nqp::iterkey_s($envelem));
         %PROPS{$key} = nqp::p6box_s(nqp::iterval($envelem));
     }
+    my %CONFIG;
+    $jenv := nqp::backendconfig();
+    $enviter := nqp::iterator($jenv);
+    while $enviter {
+        $envelem := nqp::shift($enviter);
+        $key = nqp::p6box_s(nqp::iterkey_s($envelem));
+        %CONFIG{$key} = nqp::p6box_s(nqp::iterval($envelem));
+    }
     my $VM = {
         name    => 'jvm',
         properties => %PROPS,
+        config => %CONFIG,
     }
 #?endif
 #?if moar