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

[svn:parrot] r34082 - trunk/src

From:
chromatic
Date:
December 18, 2008 13:43
Subject:
[svn:parrot] r34082 - trunk/src
Message ID:
20081218214305.37E27CBA12@x12.develooper.com
Author: chromatic
Date: Thu Dec 18 13:43:04 2008
New Revision: 34082

Modified:
   trunk/src/pic.c

Log:
[PIC] Removed the only reference to deprecated old MMD functions in src/pic.c.
There are no consumers of this PIC function anyway.  Let the chainsaw continue.

Modified: trunk/src/pic.c
==============================================================================
--- trunk/src/pic.c	(original)
+++ trunk/src/pic.c	Thu Dec 18 13:43:04 2008
@@ -907,56 +907,7 @@
 parrot_pic_find_infix_v_pp(PARROT_INTERP, ARGIN(PMC *left), ARGIN(PMC *right),
                 ARGOUT(Parrot_MIC *mic), ARGOUT(opcode_t *cur_opcode))
 {
-    funcptr_t func;
-    int is_pmc;
-    INTVAL left_type, right_type;
-    PARROT_ASSERT(0);
-    /*
-     * if 2 threads are entering here, there is a chance
-     * that one moves the lru structure under the other thread
-     * and vv - just lock in case
-     *
-     * TODO
-     *
-     * if (TRY_LOCK_INTERPRETER(i) == EBUSY)
-     *      return;  - reexec
-     */
-    LOCK_INTERPRETER(interp);
-
-    /* move entries back and set topmost entry */
-    parrot_pic_move(interp, mic);
-
-    /* get real dispatch function */
-    left_type  = VTABLE_type(interp, left);
-    right_type = VTABLE_type(interp, right);
-    func       = get_mmd_dispatch_type(interp,
-                    mic->m.func_nr, left_type, right_type, &is_pmc);
-
-    if (is_pmc) {
-        const size_t offs = cur_opcode - (opcode_t *)interp->code->prederef.code;
-        opcode_t* const real_op = interp->code->base.data + offs + 1;
-
-        /* set prederef code address to orig slot for now */
-        ((void**)cur_opcode)[0] =
-            parrot_pic_opcode(interp, PARROT_OP_infix_ic_p_p);
-
-        /* restore 1st operand i.e. .MMD_func_nr */
-        ((void**)cur_opcode)[1] = (void*)*real_op;
-        mic->lru.f.sub = (PMC*)F2DPTR(func);
-    }
-    else {
-        INTVAL op = PARROT_OP_pic_infix___ic_p_p;
-
-#if ENABLE_INLINING
-        if (func == (funcptr_t)Parrot_Integer_i_subtract_Integer && !mic->pic)
-            op = PARROT_OP_pic_inline_sub___ic_p_p;
-#endif
-        ((void**)cur_opcode)[0] =
-            parrot_pic_opcode(interp, op);
-        mic->lru.f.real_function = func;
-    }
-    mic->lru.u.type = (left_type << 16) | right_type;
-    UNLOCK_INTERPRETER(interp);
+    /* unused; deprecated */
 }
 
 /*



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