Author: particle
Date: Mon Nov 10 13:43:11 2008
New Revision: 32500
Modified:
trunk/languages/perl6/src/builtins/globals.pir
Log:
[rakudo] create %*VM hash, and expose parrot config info under
%*VM<config><...> ; cotto++ for asking for it
Modified: trunk/languages/perl6/src/builtins/globals.pir
==============================================================================
--- trunk/languages/perl6/src/builtins/globals.pir (original)
+++ trunk/languages/perl6/src/builtins/globals.pir Mon Nov 10 13:43:11 2008
@@ -64,6 +64,16 @@
pio = getstderr
perl6io = perl6ioclass.'new'("PIO" => pio)
set_hll_global "$ERR", perl6io
+
+ ## set up %*VM
+ load_bytecode 'config.pbc'
+ .include 'iglobals.pasm'
+ .local pmc vm, interp, config
+ vm = new 'Perl6Hash'
+ interp = getinterp
+ config = interp[.IGLOBALS_CONFIG_HASH]
+ vm['config'] = config
+ set_hll_global "%VM", vm
.end
