Toss a bunch of unused dynops.

Author: jnthn

src/ops/nqp.ops

@@ -1462,79 +1462,6 @@ inline op multi_dispatch_over_lexical_candidates(out PMC) :base_core {
             VTABLE_get_string(interp, CONTEXT_STRUCT(CURRENT_CONTEXT(interp))->current_sub));
 }
 
-/*
-
-=item create_dispatch_and_add_candidates()
-
-Creates an instantiation of the dispatch routine (or proto, which may
-serve as one) supplied and augments it with the provided candidates.
-It relies on being passed the instantiation of the dispatcher from the
-last outer scope that had an instantiation, and we thus take its
-candidates.
-
-$1 will be set to the new, augmented dispatch routine. $2 is the proto
-or instantiation of it to clone. $3 is an array of candidates to add.
-
-=cut
-
-*/
-inline op create_dispatch_and_add_candidates(out PMC, invar PMC, invar PMC) :base_core {
-    /* Ensure we have a dispatcher. */
-    if ($2->vtable->base_type == disp_id) {
-        /* Copy it (which makes an "instance") and add new candidates. */
-        PMC *  copy   = VTABLE_clone(interp, $2);
-        INTVAL i      = 0;
-        INTVAL to_add = VTABLE_elements(interp, $3);
-        PARROT_DISPATCHERSUB(copy)->dispatchees = VTABLE_clone(interp,
-                PARROT_DISPATCHERSUB($2)->dispatchees);
-        PARROT_GC_WRITE_BARRIER(interp, copy);
-        for (i = 0; i < to_add; i++)
-            VTABLE_push_pmc(interp, PARROT_DISPATCHERSUB(copy)->dispatchees,
-                    VTABLE_get_pmc_keyed_int(interp, $3, i));
-        $1 = copy;
-    }
-    else
-        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
-            "Can only use create_dispatch_and_add_candidates if first operand is a DispatcherSub.");
-}
-
-/*
-
-=item push_dispatchee()
-
-Adds a single new code object to the end of a dispatcher's dispatchee list.
-
-=cut
-
-*/
-inline op push_dispatchee(invar PMC, invar PMC) :base_core {
-    if ($1->vtable->base_type == disp_id) {
-        if (PMC_IS_NULL(PARROT_DISPATCHERSUB($1)->dispatchees)) {
-            PARROT_DISPATCHERSUB($1)->dispatchees = Parrot_pmc_new(interp, enum_class_ResizablePMCArray);
-            PARROT_GC_WRITE_BARRIER(interp, $1);
-        }
-        VTABLE_push_pmc(interp, PARROT_DISPATCHERSUB($1)->dispatchees, $2);
-    }
-    else
-        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
-            "Can only use push_dispatchee if first operand is a DispatcherSub.");
-}
-
-/*
-
-=item is_dispatcher()
-
-Checks if a routine is considered a dispatcher (that is, if it has a
-list of dispatchees).
-
-=cut
-
-*/
-inline op is_dispatcher(out INT, invar PMC) :base_core {
-    $1 = $2->vtable->base_type == disp_id;
-}
-
-
 /*
 
 =item set_sub_multisig()