develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35101 - in trunk: docs include/parrot src

From:
coke
Date:
January 7, 2009 00:07
Subject:
[svn:parrot] r35101 - in trunk: docs include/parrot src
Message ID:
20090107080713.D63E1CB9F9@x12.develooper.com
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 */
 }
 
 /*



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About