Archipelago » qemu

DEF_HELPER_3(vpkshss, void, avr, avr, avr)

DEF_HELPER_3(vpkshus, void, avr, avr, avr)

DEF_HELPER_3(vpkswss, void, avr, avr, avr)

DEF_HELPER_3(vpkswus, void, avr, avr, avr)

DEF_HELPER_3(vpkuhus, void, avr, avr, avr)

DEF_HELPER_3(vpkuwus, void, avr, avr, avr)

DEF_HELPER_3(vpkuhum, void, avr, avr, avr)

DEF_HELPER_3(vpkuwum, void, avr, avr, avr)

#if defined(WORDS_BIGENDIAN)

#define PKBIG 1

#else

#define PKBIG 0

#endif

#define VPK(suffix, from, to, cvt, dosat)       \

    void helper_vpk##suffix (ppc_avr_t *r, ppc_avr_t *a, ppc_avr_t *b)  \

    {                                                                   \

        int i;                                                          \

        int sat = 0;                                                    \

        ppc_avr_t result;                                               \

        ppc_avr_t *a0 = PKBIG ? a : b;                                  \

        ppc_avr_t *a1 = PKBIG ? b : a;                                  \

        VECTOR_FOR_INORDER_I (i, from) {                                \

            result.to[i] = cvt(a0->from[i], &sat);                      \

            result.to[i+ARRAY_SIZE(r->from)] = cvt(a1->from[i], &sat);  \

        }                                                               \

        *r = result;                                                    \

        if (dosat && sat) {                                             \

            env->vscr |= (1 << VSCR_SAT);                               \

        }                                                               \

    }

#define I(x, y) (x)

VPK(shss, s16, s8, cvtshsb, 1)

VPK(shus, s16, u8, cvtshub, 1)

VPK(swss, s32, s16, cvtswsh, 1)

VPK(swus, s32, u16, cvtswuh, 1)

VPK(uhus, u16, u8, cvtuhub, 1)

VPK(uwus, u32, u16, cvtuwuh, 1)

VPK(uhum, u16, u8, I, 0)

VPK(uwum, u32, u16, I, 0)

#undef I

#undef VPK

#undef PKBIG

GEN_VXFORM(vpkuhum, 7, 0);

GEN_VXFORM(vpkuwum, 7, 1);

GEN_VXFORM(vpkuhus, 7, 2);

GEN_VXFORM(vpkuwus, 7, 3);

GEN_VXFORM(vpkshus, 7, 4);

GEN_VXFORM(vpkswus, 7, 5);

GEN_VXFORM(vpkshss, 7, 6);

GEN_VXFORM(vpkswss, 7, 7);