[svn:parrot] r39168 - trunk/src

[petdance at svn.parrot.org]

Author: petdance
Date: Mon May 25 02:57:18 2009
New Revision: 39168
URL: https://trac.parrot.org/parrot/changeset/39168

Log:
removed unused parrot_pic_move

Modified:
   trunk/src/pic.c

Modified: trunk/src/pic.c
==============================================================================
--- trunk/src/pic.c	Mon May 25 01:17:43 2009	(r39167)
+++ trunk/src/pic.c	Mon May 25 02:57:18 2009	(r39168)
@@ -124,11 +124,6 @@
         __attribute__nonnull__(3)
         FUNC_MODIFIES(*mic);
 
-static void parrot_pic_move(PARROT_INTERP, ARGMOD(Parrot_MIC *mic))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2)
-        FUNC_MODIFIES(*mic);
-
 static int pass_int(PARROT_INTERP,
     ARGIN(PMC *sig),
     ARGIN(const char *src_base),
@@ -207,9 +202,6 @@
        PARROT_ASSERT_ARG(interp) \
     || PARROT_ASSERT_ARG(pc) \
     || PARROT_ASSERT_ARG(mic)
-#define ASSERT_ARGS_parrot_pic_move __attribute__unused__ int _ASSERT_ARGS_CHECK = \
-       PARROT_ASSERT_ARG(interp) \
-    || PARROT_ASSERT_ARG(mic)
 #define ASSERT_ARGS_pass_int __attribute__unused__ int _ASSERT_ARGS_CHECK = \
        PARROT_ASSERT_ARG(interp) \
     || PARROT_ASSERT_ARG(sig) \
@@ -913,40 +905,6 @@
 
 /*
 
-=item C<static void parrot_pic_move(PARROT_INTERP, Parrot_MIC *mic)>
-
-=cut
-
-*/
-
-static void
-parrot_pic_move(PARROT_INTERP, ARGMOD(Parrot_MIC *mic))
-{
-    ASSERT_ARGS(parrot_pic_move)
-    /* MIC slot is empty - use it */
-    if (!mic->lru.u.type)
-        return;
-
-    /* need more cache slots - allocate one PIC */
-    if (!mic->pic) {
-        mic->pic = parrot_PIC_alloc_pic(interp);
-    }
-    else {
-        /* PIC was already used - shift slots up */
-        Parrot_PIC * const pic = mic->pic;
-
-        pic->lru[2].u.type = pic->lru[1].u.type;
-        pic->lru[2].f.sub  = pic->lru[1].f.sub;
-        pic->lru[1].u.type = pic->lru[0].u.type;
-        pic->lru[1].f.sub  = pic->lru[0].f.sub;
-        pic->lru[0].u.type = mic->lru.u.type;
-        pic->lru[0].f.sub  = mic->lru.f.sub;
-        mic->lru.u.type    = 0;
-    }
-}
-
-/*
-
 =item C<void parrot_pic_find_infix_v_pp(PARROT_INTERP, PMC *left, PMC *right,
 Parrot_MIC *mic, opcode_t *cur_opcode)>