s/CREATE_HASH_LOW_LEVEL/CREATE_HASH_FROM_LOW_LEVEL/

src/Perl6/Actions.pm

@@ -934,7 +934,7 @@ sub declare_variable($/, $past, $sigil, $twigil, $desigilname, $trait_list) {
         # Not an attribute - need to emit delcaration here.
         # Create the container
         my $cont := $sigil eq '%' ??
-            PAST::Op.new( :name('&CREATE_HASH_LOW_LEVEL'), :pasttype('call') ) !!
+            PAST::Op.new( :name('&CREATE_HASH_FROM_LOW_LEVEL'), :pasttype('call') ) !!
             PAST::Op.new( sigiltype($sigil), :pirop('new Ps') );
 
         # Give it a 'rw' property unless it's explicitly readonly.

src/builtins/Mu.pir

@@ -266,7 +266,7 @@ XXX This had probably best really just tailcall .^CREATE; move this stuff later.
     attr = new ['Array']
     goto attrinit_rw
   attrinit_hash:
-    attr = '&CREATE_HASH_LOW_LEVEL'()
+    attr = '&CREATE_HASH_FROM_LOW_LEVEL'()
   attrinit_rw:
     setprop attr, 'rw', attr
     setattribute example, cur_class, attrname, attr

src/core/Match.pm

@@ -44,7 +44,7 @@ class Match is Regex::Match is Cool does Associative {
 
     multi method hash() {
         # nextsame() dies here with 'Null PMC access in clone()'
-        CREATE_HASH_LOW_LEVEL(self.Regex::Match::hash);
+        CREATE_HASH_FROM_LOW_LEVEL(self.Regex::Match::hash);
     }
 
     multi method list() {

src/glue/run.pir

@@ -102,7 +102,7 @@ of the compilation unit.
     # Turn the env PMC into %*ENV (just read-only so far)
     .local pmc env
     env = root_new ['parrot';'Env']
-    $P2 = '&CREATE_HASH_LOW_LEVEL'(env)
+    $P2 = '&CREATE_HASH_FROM_LOW_LEVEL'(env)
     set_hll_global '%ENV', $P2
 
     # INIT time

src/glue/types.pir

@@ -56,7 +56,7 @@ subtyping relations, etc).
 .end
 
 
-.sub '&CREATE_HASH_LOW_LEVEL'
+.sub '&CREATE_HASH_FROM_LOW_LEVEL'
     .param pmc storage :optional
     unless null storage goto have_storage
     storage = root_new ['parrot';'Hash']