Author: chromatic
Date: Thu Dec 18 13:13:23 2008
New Revision: 34080
Modified:
trunk/DEPRECATED.pod
trunk/include/parrot/multidispatch.h
trunk/src/inter_create.c
trunk/src/multidispatch.c
Log:
[MMD] Removed deprecated Parrot_mmd_add_function().
Modified: trunk/DEPRECATED.pod
==============================================================================
--- trunk/DEPRECATED.pod (original)
+++ trunk/DEPRECATED.pod Thu Dec 18 13:13:23 2008
@@ -126,7 +126,7 @@
=item Old-style MMD functions [post 0.7.1]
-Parrot_mmd_add_function, mmd_expand_x, mmd_expand_y, Parrot_mmd_register,
+mmd_expand_x, mmd_expand_y, Parrot_mmd_register,
Parrot_mmd_register_sub, Parrot_mmd_destroy, Parrot_MMD_search_default_infix,
Parrot_mmd_search_default, mmd_cvt_to_types.
Modified: trunk/include/parrot/multidispatch.h
==============================================================================
--- trunk/include/parrot/multidispatch.h (original)
+++ trunk/include/parrot/multidispatch.h Thu Dec 18 13:13:23 2008
@@ -78,12 +78,6 @@
__attribute__nonnull__(2);
PARROT_EXPORT
-void Parrot_mmd_add_function(PARROT_INTERP,
- INTVAL func_nr,
- NULLOK(funcptr_t function))
- __attribute__nonnull__(1);
-
-PARROT_EXPORT
void Parrot_mmd_add_multi_from_c_args(PARROT_INTERP,
ARGIN(const char *sub_name),
ARGIN(const char *short_sig),
Modified: trunk/src/inter_create.c
==============================================================================
--- trunk/src/inter_create.c (original)
+++ trunk/src/inter_create.c Thu Dec 18 13:13:23 2008
@@ -173,9 +173,6 @@
/* Set up the MMD struct */
interp->binop_mmd_funcs = NULL;
- /* Go and init the MMD tables */
- Parrot_mmd_add_function(interp, MMD_USER_FIRST - 1, (funcptr_t)NULL);
-
/* MMD cache for builtins. */
interp->op_mmd_cache = Parrot_mmd_cache_create(interp);
Modified: trunk/src/multidispatch.c
==============================================================================
--- trunk/src/multidispatch.c (original)
+++ trunk/src/multidispatch.c Thu Dec 18 13:13:23 2008
@@ -506,44 +506,6 @@
/*
-=item C<void mmd_add_function>
-
-Add a new binary MMD function to the list of functions the MMD system knows
-of. C<func_num> is the number of the new function. C<function> is ignored.
-
-RT #45941 change this to a MMD register interface that takes a function *name*.
-
-{{**DEPRECATE**}}
-
-=cut
-
-*/
-
-PARROT_EXPORT
-void
-Parrot_mmd_add_function(PARROT_INTERP, INTVAL func_nr, SHIM(funcptr_t
function))
-{
- /* XXX Something looks wrong here. n_binop_mmd_funcs gets incremented,
- * but the function doesn't get saved */
- if (func_nr >= (INTVAL)interp->n_binop_mmd_funcs) {
- INTVAL i;
- mem_realloc_n_typed(interp->binop_mmd_funcs, func_nr+1, MMD_table);
-
- for (i = interp->n_binop_mmd_funcs; i <= func_nr; ++i) {
- MMD_table * const table = interp->binop_mmd_funcs + i;
-
- table->x = 0;
- table->y = 0;
- table->mmd_funcs = NULL;
- }
-
- interp->n_binop_mmd_funcs = func_nr + 1;
- }
-}
-
-
-/*
-
=item C<static void mmd_expand_x>
Expands the function table in the X dimension to include C<new_x>.
