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
