Author: coke
Date: Wed Jan 7 00:07:13 2009
New Revision: 35101
Modified:
trunk/docs/embed.pod
trunk/include/parrot/global.h
trunk/src/global.c
Log:
This function was only used by an opcode that no longer exists.
Modified: trunk/docs/embed.pod
==============================================================================
--- trunk/docs/embed.pod (original)
+++ trunk/docs/embed.pod Wed Jan 7 00:07:13 2009
@@ -343,11 +343,6 @@
Find and return a global called C<name> in the namespace C<namespace>. Returns
C<PMCNULL> if not found.
-=item C<void Parrot_store_global_cur(PARROT_INTERP, Parrot_String name,
Parrot_PMC val)>
-
-Sets the value of a global called C<name> in the current namespace. Does
-nothing if the global is not found.
-
=item C<void Parrot_store_global_n(PARROT_INTERP, Parrot_String namespace,
Parrot_String name, Parrot_PMC val)>
Not documented yet.
Modified: trunk/include/parrot/global.h
==============================================================================
--- trunk/include/parrot/global.h (original)
+++ trunk/include/parrot/global.h Wed Jan 7 00:07:13 2009
@@ -138,12 +138,6 @@
__attribute__nonnull__(1);
PARROT_EXPORT
-void Parrot_store_global_cur(PARROT_INTERP,
- ARGIN_NULLOK(STRING *globalname),
- ARGIN_NULLOK(PMC *val))
- __attribute__nonnull__(1);
-
-PARROT_EXPORT
void Parrot_store_global_k(PARROT_INTERP,
ARGIN(PMC *pmc_key),
ARGIN_NULLOK(STRING *globalname),
Modified: trunk/src/global.c
==============================================================================
--- trunk/src/global.c (original)
+++ trunk/src/global.c Wed Jan 7 00:07:13 2009
@@ -652,29 +652,6 @@
/*
-=item C<void Parrot_store_global_cur>
-
-Store the value C<val> with name C<globalname> in the current namespace.
-
-=cut
-
-*/
-
-PARROT_EXPORT
-void
-Parrot_store_global_cur(PARROT_INTERP, ARGIN_NULLOK(STRING *globalname),
- ARGIN_NULLOK(PMC *val))
-{
- ASSERT_ARGS(Parrot_store_global_cur)
- Parrot_store_global_n(interp,
- CONTEXT(interp)->current_namespace,
- globalname, val);
-
- /* RT #46165 - method cache invalidation should occur */
-}
-
-/*
-
=item C<void Parrot_store_global_k>
Store the PMC C<val> into the namespace designated by C<pmc_key>,
@@ -712,8 +689,6 @@
pmc_key);
Parrot_store_global_n(interp, ns, globalname, val);
-
- /* RT #46165 - method cache invalidation should occur */
}
/*
