Make native types declared in the setting be lexically scoped.

Author: jnthn

src/Regex.pir

@@ -11,11 +11,21 @@ This file brings together the various Regex modules needed for Regex.pbc .
 =cut
 
 .HLL 'nqp'
+.loadlib "nqp_group"
+.loadlib "nqp_ops"
 
 .sub '' :load :init
+    # Create a serialization context for this compilation unit.
+    .local pmc sc
+    sc = nqp_create_sc "__REGEX_CORE_SC__"
+    
+    # Load setting.
     load_bytecode 'SettingManager.pbc'
     $P0 = get_hll_global ['HLL'], 'SettingManager'
-    $P0.'load_setting'('NQPCORE')
+    say "# loading setting"
+    $P1 = $P0.'load_setting'('NQPCORE')
+    $P1 = getattribute $P1, 'lex_pad'
+    set_hll_global 'SETTING', $P1
 .end
 
 .include 'src/Regex/Cursor.pir'

src/Regex/Cursor.pir

@@ -13,9 +13,6 @@ grammars.
 
 =cut
 
-.loadlib "nqp_group"
-.loadlib "nqp_ops"
-
 .include 'cclass.pasm'
 .include 'src/Regex/constants.pir'
 
@@ -150,9 +147,10 @@ grammars.
     how.'add_parrot_vtable_mapping'(type_obj, 'get_bool', $P17)
 
     # Add attributes.
-    .local pmc NQPAttribute, int_type, attr
+    .local pmc NQPAttribute, SETTING, int_type, attr
     NQPAttribute = get_hll_global "NQPAttribute"
-    int_type = get_hll_global "int"
+    SETTING = get_hll_global "SETTING"
+    int_type = SETTING["int"]
     attr = NQPAttribute."new"("$!target" :named("name"))
     how."add_attribute"(type_obj, attr)
     attr = NQPAttribute."new"("$!from" :named("name"), int_type :named('type'))

src/core/NativeTypes.pm

@@ -1,5 +1,5 @@
-native int is repr('P6int') { }
+my native int is repr('P6int') { }
 
-native num is repr('P6num') { }
+my native num is repr('P6num') { }
 
-native str is repr('P6str') { }
+my native str is repr('P6str') { }