Archipelago » qemu

DEF_HELPER_3(vmrglb, void, avr, avr, avr)

DEF_HELPER_3(vmrglh, void, avr, avr, avr)

DEF_HELPER_3(vmrglw, void, avr, avr, avr)

DEF_HELPER_3(vmrghb, void, avr, avr, avr)

DEF_HELPER_3(vmrghh, void, avr, avr, avr)

DEF_HELPER_3(vmrghw, void, avr, avr, avr)

#define VMRG_DO(name, element, highp)                                   \

    void helper_v##name (ppc_avr_t *r, ppc_avr_t *a, ppc_avr_t *b)      \

    {                                                                   \

        ppc_avr_t result;                                               \

        int i;                                                          \

        size_t n_elems = ARRAY_SIZE(r->element);                        \

        for (i = 0; i < n_elems/2; i++) {                               \

            if (highp) {                                                \

                result.element[i*2+HI_IDX] = a->element[i];             \

                result.element[i*2+LO_IDX] = b->element[i];             \

            } else {                                                    \

                result.element[n_elems - i*2 - (1+HI_IDX)] = b->element[n_elems - i - 1]; \

                result.element[n_elems - i*2 - (1+LO_IDX)] = a->element[n_elems - i - 1]; \

            }                                                           \

        }                                                               \

        *r = result;                                                    \

    }

#if defined(WORDS_BIGENDIAN)

#define MRGHI 0

#define MRGL0 1

#else

#define MRGHI 1

#define MRGLO 0

#endif

#define VMRG(suffix, element)                   \

  VMRG_DO(mrgl##suffix, element, MRGHI)         \

  VMRG_DO(mrgh##suffix, element, MRGLO)

VMRG(b, u8)

VMRG(h, u16)

VMRG(w, u32)

#undef VMRG_DO

#undef VMRG

#undef MRGHI

#undef MRGLO

GEN_VXFORM(vmrghb, 6, 0);

GEN_VXFORM(vmrghh, 6, 1);

GEN_VXFORM(vmrghw, 6, 2);

GEN_VXFORM(vmrglb, 6, 4);

GEN_VXFORM(vmrglh, 6, 5);

GEN_VXFORM(vmrglw, 6, 6);