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

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

From:
chromatic
Date:
December 18, 2008 13:13
Subject:
[svn:parrot] r34080 - in trunk: . include/parrot src
Message ID:
20081218211324.C767CCBA12@x12.develooper.com
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>.



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