cvsuser 04/06/22 06:13:36
Modified: classes default.pmc
config/gen core_pmcs.pl
Log:
NCI and globals 3
* oops - putting stuff in generated files doesn't really fly
* cleanup
Revision Changes Path
1.89 +1 -26 parrot/classes/default.pmc
Index: default.pmc
===================================================================
RCS file: /cvs/public/parrot/classes/default.pmc,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -w -r1.88 -r1.89
--- default.pmc 22 Jun 2004 10:57:09 -0000 1.88
+++ default.pmc 22 Jun 2004 13:13:31 -0000 1.89
@@ -1,6 +1,6 @@
/*
Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-$Id: default.pmc,v 1.88 2004/06/22 10:57:09 leo Exp $
+$Id: default.pmc,v 1.89 2004/06/22 13:13:31 leo Exp $
=head1 NAME
@@ -339,19 +339,6 @@
PMC* find_method(STRING* method_name) {
return Parrot_find_method_with_cache(INTERP, SELF, method_name);
-
-#if 0
- PMC *meth_hash;
- int type = SELF->vtable->base_type;
-
- if (type >= (int)INTERP->nci_method_table_size || type <= 0)
- return NULL;
-
- meth_hash = INTERP->nci_method_table[type];
- if (!meth_hash)
- return NULL;
- return VTABLE_get_pmc_keyed_str(INTERP, meth_hash, method_name);
-#endif
}
/*
@@ -735,18 +722,6 @@
INTVAL can (STRING* method) {
return VTABLE_find_method(interpreter, SELF, method) != NULL;
-#if 0
- PMC *meth_hash;
- int type = SELF->vtable->base_type;
-
- if (type >= (int)INTERP->nci_method_table_size)
- return 0;
-
- meth_hash = INTERP->nci_method_table[type];
- if (!meth_hash)
- return 0;
- return VTABLE_exists_keyed_str(INTERP, meth_hash, method);
-#endif
}
/*
1.16 +8 -1 parrot/config/gen/core_pmcs.pl
Index: core_pmcs.pl
===================================================================
RCS file: /cvs/public/parrot/config/gen/core_pmcs.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -w -r1.15 -r1.16
--- core_pmcs.pl 22 Jun 2004 10:57:13 -0000 1.15
+++ core_pmcs.pl 22 Jun 2004 13:13:36 -0000 1.16
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: core_pmcs.pl,v 1.15 2004/06/22 10:57:13 leo Exp $
+# $Id: core_pmcs.pl,v 1.16 2004/06/22 13:13:36 leo Exp $
=head1 NAME
@@ -94,6 +94,13 @@
print OUT " Parrot_${_}_class_init(interp, enum_class_${_}, pass);\n"
foreach (@pmcs);
print OUT <<"END";
+ if (!pass) {
+ /* Need an empty stash */
+ interp->globals = mem_sys_allocate(sizeof(struct Stash));
+ interp->globals->stash_hash =
+ pmc_new(interp, enum_class_PerlHash);
+ interp->globals->parent_stash = NULL;
+ }
}
}
