develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34688 - in trunk: include/parrot src

From:
petdance
Date:
December 30, 2008 23:20
Subject:
[svn:parrot] r34688 - in trunk: include/parrot src
Message ID:
20081231072000.0586FCB9FA@x12.develooper.com
Author: petdance
Date: Tue Dec 30 23:19:59 2008
New Revision: 34688

Modified:
   trunk/include/parrot/oo.h
   trunk/src/global.c
   trunk/src/oo.c

Log:
removed unused argument from Parrot_invalidate_method_cache

Modified: trunk/include/parrot/oo.h
==============================================================================
--- trunk/include/parrot/oo.h	(original)
+++ trunk/include/parrot/oo.h	Tue Dec 30 23:19:59 2008
@@ -114,10 +114,8 @@
 
 PARROT_EXPORT
 void Parrot_invalidate_method_cache(PARROT_INTERP,
-    ARGIN_NULLOK(STRING *_class),
-    ARGIN(STRING *meth))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(3);
+    ARGIN_NULLOK(STRING *_class))
+        __attribute__nonnull__(1);
 
 PARROT_EXPORT
 PARROT_PURE_FUNCTION

Modified: trunk/src/global.c
==============================================================================
--- trunk/src/global.c	(original)
+++ trunk/src/global.c	Tue Dec 30 23:19:59 2008
@@ -696,7 +696,7 @@
     Parrot_store_global_n(interp, ns, globalname, val);
 
     /* RT #46169 - method cache invalidation should be a namespace function */
-    Parrot_invalidate_method_cache(interp, str_key, globalname);
+    Parrot_invalidate_method_cache(interp, str_key);
 }
 
 
@@ -875,7 +875,7 @@
         /* TEMPORARY HACK - cache invalidation should be a namespace function */
         if (!PMC_IS_NULL(nsname)) {
             STRING * const nsname_s = VTABLE_get_string(interp, nsname);
-            Parrot_invalidate_method_cache(interp, nsname_s, ns_entry_name);
+            Parrot_invalidate_method_cache(interp, nsname_s);
         }
     }
 

Modified: trunk/src/oo.c
==============================================================================
--- trunk/src/oo.c	(original)
+++ trunk/src/oo.c	Tue Dec 30 23:19:59 2008
@@ -760,7 +760,7 @@
 
 PARROT_EXPORT
 void
-Parrot_invalidate_method_cache(PARROT_INTERP, ARGIN_NULLOK(STRING *_class), ARGIN(STRING *meth))
+Parrot_invalidate_method_cache(PARROT_INTERP, ARGIN_NULLOK(STRING *_class))
 {
     INTVAL type;
 



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