Author: leo
Date: Tue Mar 7 08:06:35 2006
New Revision: 11811
Modified:
trunk/lib/Parrot/Pmc2c.pm
Log:
Namespaces 4 - create _namespace for PMCs
* fill vtable->_namespace with a NameSpace PMC during PMC bootstrapping
* the NameSpace isn't anchored to any parent yet
Modified: trunk/lib/Parrot/Pmc2c.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c.pm (original)
+++ trunk/lib/Parrot/Pmc2c.pm Tue Mar 7 08:06:35 2006
@@ -930,7 +930,14 @@
);
} /* Register */
EOC
- }
+ }
+
+ # create a namespace hash
+ $cout .= <<"EOC";
+ /* need a namespace Hash */
+ Parrot_base_vtables[entry]->_namespace = pmc_new(interp,
+ Parrot_get_ctx_HLL_type(interp, enum_class_NameSpace));
+EOC
# declare each nci method for this class
foreach my $method (@{ $self->{methods} }) {
