Few attribute fixes.

Author: jnthn

src/HLL/World.pm

@@ -48,12 +48,6 @@ class HLL::World {
     # XXX LEGACY
     has %!addr_to_slot;
 
-    method new(:$handle!, :$description = '<unknown>') {
-        my $obj := self.CREATE();
-        $obj.BUILD(:handle($handle), :description($description));
-        $obj
-    }
-    
     method BUILD(:$handle!, :$description!) {
         # Initialize attributes.
         $!sc              := pir::nqp_create_sc__PS($handle);

src/NQPQ/World.pm

@@ -20,6 +20,13 @@ class NQP::World is HLL::World {
     # Mapping of sub IDs to SC indexes of code stubs.
     has %!code_stub_sc_idx;
 
+    method BUILD(*%opts) {
+        @!BLOCKS := nqp::list();
+        %!code_objects_to_fix_up := nqp::hash();
+        %!code_object_fixup_list := nqp::hash();
+        %!code_stub_sc_idx := nqp::hash();
+    }
+    
     # Creates a new lexical scope and puts it on top of the stack.
     method push_lexpad($/) {
         # Create pad, link to outer and add to stack.

src/QAST/Block.nqp

@@ -29,6 +29,7 @@ class QAST::Block is QAST::Node {
     }
 
     method symbol($name, *%attrs) {
+        %!symbol := nqp::hash() if nqp::isnull(%!symbol);
         if %attrs {
             %!symbol{$name} := %!symbol{$name} // {};
             for %attrs {
@@ -39,6 +40,7 @@ class QAST::Block is QAST::Node {
     }
 
     method symtable() {
+        %!symbol := nqp::hash() if nqp::isnull(%!symbol);
         %!symbol
     }
 }