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

[svn:parrot] r33628 - trunk/src

From:
coke
Date:
December 7, 2008 11:11
Subject:
[svn:parrot] r33628 - trunk/src
Message ID:
20081207191131.E9E0BCB9AF@x12.develooper.com
Author: coke
Date: Sun Dec  7 11:11:31 2008
New Revision: 33628

Modified:
   trunk/src/multidispatch.c

Log:
remove unused function dump_mmd (per RT#60626)


Modified: trunk/src/multidispatch.c
==============================================================================
--- trunk/src/multidispatch.c	(original)
+++ trunk/src/multidispatch.c	Sun Dec  7 11:11:31 2008
@@ -52,8 +52,6 @@
 /* Don't modify between HEADERIZER BEGIN / HEADERIZER END.  Your changes will be lost. */
 
 static INTVAL distance_cmp(SHIM_INTERP, INTVAL a, INTVAL b);
-static void dump_mmd(PARROT_INTERP, INTVAL function)
-        __attribute__nonnull__(1);
 
 static void mmd_add_multi_global(PARROT_INTERP,
     ARGIN(STRING *sub_name),
@@ -204,64 +202,6 @@
 
 #define MMD_DEBUG 0
 
-#ifndef NDEBUG
-/*
-
-=item C<static void dump_mmd>
-
-RT #48260: Not yet documented!!!
-
-=cut
-
-*/
-
-static void
-dump_mmd(PARROT_INTERP, INTVAL function)
-{
-    UINTVAL x, y;
-    UINTVAL offset;
-    MMD_table * const table = interp->binop_mmd_funcs + function;
-    funcptr_t func;
-    const UINTVAL x_funcs = table->x;
-    const UINTVAL y_funcs = table->y;
-
-    printf("    ");
-    for (x = 0; x < x_funcs; ++x) {
-        if (x % 10)
-            printf(" ");
-        else
-            printf("%d", (int) x / 10);
-    }
-
-    printf("\n");
-
-    for (y = 0; y < y_funcs; ++y) {
-        printf("%3d ", (int)y);
-        for (x = 0; x < x_funcs; ++x) {
-            offset = x_funcs * y + x;
-            func   = table->mmd_funcs[offset];
-
-            printf("%c",
-                    (UINTVAL)func & 1 ?  'P' :
-                    !func  ? '0' : 'F');
-        }
-
-        printf("\n");
-    }
-
-    for (y = 0; y < y_funcs; ++y) {
-        for (x = 0; x < x_funcs; ++x) {
-            offset = x_funcs * y + x;
-            func   = table->mmd_funcs[offset];
-
-            if (func && !((UINTVAL) func & 1))
-                printf("%3d %3d: %p\n", (int)x, (int)y, (void*) func);
-        }
-    }
-}
-#endif
-
-
 /*
 
 =item C<funcptr_t get_mmd_dispatch_type>



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