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

[svn:parrot] r34085 - in trunk: . include/parrot src

From:
chromatic
Date:
December 18, 2008 13:56
Subject:
[svn:parrot] r34085 - in trunk: . include/parrot src
Message ID:
20081218215618.941B6CBA12@x12.develooper.com
Author: chromatic
Date: Thu Dec 18 13:56:17 2008
New Revision: 34085

Modified:
   trunk/DEPRECATED.pod
   trunk/include/parrot/multidispatch.h
   trunk/src/inter_create.c
   trunk/src/multidispatch.c

Log:
[MMD] Removed deprecated mmd_destroy() function.

Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod	(original)
+++ trunk/DEPRECATED.pod	Thu Dec 18 13:56:17 2008
@@ -126,7 +126,7 @@
 
 =item Old-style MMD functions [post 0.7.1]
 
-Parrot_mmd_destroy, Parrot_MMD_search_default_infix,
+Parrot_MMD_search_default_infix,
 Parrot_mmd_search_default, mmd_cvt_to_types.
 
 See RT #60626.

Modified: trunk/include/parrot/multidispatch.h
==============================================================================
--- trunk/include/parrot/multidispatch.h	(original)
+++ trunk/include/parrot/multidispatch.h	Thu Dec 18 13:56:17 2008
@@ -182,10 +182,6 @@
         FUNC_MODIFIES(*cache);
 
 PARROT_EXPORT
-void Parrot_mmd_destroy(PARROT_INTERP)
-        __attribute__nonnull__(1);
-
-PARROT_EXPORT
 PARROT_CANNOT_RETURN_NULL
 PARROT_WARN_UNUSED_RESULT
 PMC * Parrot_mmd_find_multi_from_long_sig(PARROT_INTERP,

Modified: trunk/src/inter_create.c
==============================================================================
--- trunk/src/inter_create.c	(original)
+++ trunk/src/inter_create.c	Thu Dec 18 13:56:17 2008
@@ -456,7 +456,6 @@
 
         /* free vtables */
         parrot_free_vtables(interp);
-        Parrot_mmd_destroy(interp);
 
         /* dynop libs */
         if (interp->n_libs > 0) {

Modified: trunk/src/multidispatch.c
==============================================================================
--- trunk/src/multidispatch.c	(original)
+++ trunk/src/multidispatch.c	Thu Dec 18 13:56:17 2008
@@ -517,36 +517,6 @@
 
 /*
 
-=item C<void mmd_destroy>
-
-Frees all the memory allocated used the MMD subsystem.
-
-{{**DEPRECATE**}}
-
-=cut
-
-*/
-
-PARROT_EXPORT
-void
-Parrot_mmd_destroy(PARROT_INTERP)
-{
-    if (interp->n_binop_mmd_funcs) {
-        UINTVAL i;
-        for (i = 0; i <interp->n_binop_mmd_funcs; ++i) {
-            if (interp->binop_mmd_funcs[i].mmd_funcs) {
-                mem_sys_free(interp->binop_mmd_funcs[i].mmd_funcs);
-                interp->binop_mmd_funcs[i].mmd_funcs = NULL;
-            }
-        }
-    }
-    mem_sys_free(interp->binop_mmd_funcs);
-    interp->binop_mmd_funcs = NULL;
-}
-
-
-/*
-
 =item C<PMC * Parrot_mmd_find_multi_from_long_sig>
 
 Find the best candidate multi for a given sub name and signature. The signature



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