Author: mdiep Date: Thu Jan 4 20:07:21 2007 New Revision: 16418 Modified: trunk/DEPRECATED.pod trunk/include/parrot/resources.h trunk/languages/tcl/src/pmc/tcldict.pmc trunk/languages/tcl/src/pmc/tcllist.pmc trunk/src/inter_misc.c trunk/src/ops/core.ops
Log: Remove C<interpinfo .INTERPINFO_NAMESPACE_ROOT> Modified: trunk/DEPRECATED.pod ============================================================================== --- trunk/DEPRECATED.pod (original) +++ trunk/DEPRECATED.pod Thu Jan 4 20:07:21 2007 @@ -1,14 +1,3 @@ -=head1 Deprecated opcodes - -=over 4 - -=item interpinfo .INTERPINFO_NAMESPACE_ROOT - -This interpinfo constant has been deprecated in favor of the get_root_namespace -opcode. - -=back - =head1 .imc file extension http://xrl.us/jc4u Modified: trunk/include/parrot/resources.h ============================================================================== --- trunk/include/parrot/resources.h (original) +++ trunk/include/parrot/resources.h Thu Jan 4 20:07:21 2007 @@ -137,7 +137,6 @@ CURRENT_SUB, CURRENT_CONT, CURRENT_OBJECT, - NAMESPACE_ROOT, CURRENT_LEXPAD, /* interpinfo_s constants */ Modified: trunk/languages/tcl/src/pmc/tcldict.pmc ============================================================================== --- trunk/languages/tcl/src/pmc/tcldict.pmc (original) +++ trunk/languages/tcl/src/pmc/tcldict.pmc Thu Jan 4 20:07:21 2007 @@ -114,7 +114,7 @@ _tcl_namespace = string_from_const_cstring(INTERP, "_tcl", 4); sub = string_from_const_cstring(INTERP, "__dictToString",14); - namespace = interpinfo_p(INTERP, NAMESPACE_ROOT); + namespace = INTERP->root_namespace; namespace = VTABLE_get_pmc_keyed_str(INTERP, namespace, _tcl_namespace); dictToString = VTABLE_get_pmc_keyed_str(INTERP, namespace, sub); Modified: trunk/languages/tcl/src/pmc/tcllist.pmc ============================================================================== --- trunk/languages/tcl/src/pmc/tcllist.pmc (original) +++ trunk/languages/tcl/src/pmc/tcllist.pmc Thu Jan 4 20:07:21 2007 @@ -68,7 +68,7 @@ _tcl_namespace = string_from_const_cstring(INTERP, "_tcl", 4); sub = string_from_const_cstring(INTERP, "__listToString",14); - namespace = interpinfo_p(INTERP, NAMESPACE_ROOT); + namespace = INTERP->root_namespace; namespace = VTABLE_get_pmc_keyed_str(INTERP, namespace, _tcl_namespace); listToString = VTABLE_get_pmc_keyed_str(INTERP, namespace, sub); Modified: trunk/src/inter_misc.c ============================================================================== --- trunk/src/inter_misc.c (original) +++ trunk/src/inter_misc.c Thu Jan 4 20:07:21 2007 @@ -284,8 +284,6 @@ } case CURRENT_OBJECT: return CONTEXT(interp->ctx)->current_object; - case NAMESPACE_ROOT: - return interp->root_namespace; case CURRENT_LEXPAD: return CONTEXT(interp->ctx)->lex_pad; default: /* or a warning only? */ Modified: trunk/src/ops/core.ops ============================================================================== --- trunk/src/ops/core.ops (original) +++ trunk/src/ops/core.ops Thu Jan 4 20:07:21 2007 @@ -860,7 +860,7 @@ =item B<interpinfo>(out PMC, in INT) -.CURRENT_SUB, .CURRENT_CONT, .CURRENT_OBJECT, .NAMESPACE_ROOT, .CURRENT_LEXPAD +.CURRENT_SUB, .CURRENT_CONT, .CURRENT_OBJECT, .CURRENT_LEXPAD =item B<interpinfo>(out STR, in INT)
