Make sure @ and % sigil flags are set. Resolves bug noticed by pmicha…

…ud++.
rakudo · Jul 1, 2011 · e366355 · e366355
1 parent bef372d
commit e366355
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Perl6/SymbolTable.pm b/src/Perl6/SymbolTable.pm
@@ -384,6 +384,12 @@ class Perl6::SymbolTable is HLL::Compiler::SerializationContextBuilder {
         if %param_info<bind_accessor> {
             $flags := $flags + $SIG_ELEM_BIND_PUBLIC_ATTR;
         }
+        if %param_info<sigil> eq '@' {
+            $flags := $flags + $SIG_ELEM_ARRAY_SIGIL;
+        }
+        elsif %param_info<sigil> eq '%' {
+            $flags := $flags + $SIG_ELEM_HASH_SIGIL;
+        }
         pir::repr_bind_attr_int__vPPsI($parameter, $par_type, '$!flags', $flags);
         $set_attrs.push(self.set_attribute_typed($parameter, $par_type,
             '$!flags', $flags, int));