Archipelago » qemu

/* Load-locked, store exclusive.  */

#define EXCLUSIVE_OP(suffix, ldsuffix) \

void OPPROTO glue(op_ld##suffix##ex,MEMSUFFIX)(void) \

{ \

    cpu_lock(); \

    helper_mark_exclusive(env, T1); \

    T0 = glue(ld##ldsuffix,MEMSUFFIX)(T1); \

    cpu_unlock(); \

    FORCE_RET(); \

} \

 \

void OPPROTO glue(op_st##suffix##ex,MEMSUFFIX)(void) \

{ \

    int failed; \

    cpu_lock(); \

    failed = helper_test_exclusive(env, T1); \

    /* ??? Is it safe to hold the cpu lock over a store?  */ \

    if (!failed) { \

        glue(st##suffix,MEMSUFFIX)(T1, T0); \

    } \

    T0 = failed; \

    cpu_unlock(); \

    FORCE_RET(); \

}

EXCLUSIVE_OP(b, ub)

EXCLUSIVE_OP(w, uw)

EXCLUSIVE_OP(l, l)

#undef EXCLUSIVE_OP

/* Load exclusive T0:T1 from address T1.  */

void OPPROTO glue(op_ldqex,MEMSUFFIX)(void)

{

    cpu_lock();

    helper_mark_exclusive(env, T1);

    T0 = glue(ldl,MEMSUFFIX)(T1);

    T1 = glue(ldl,MEMSUFFIX)((T1 + 4));

    cpu_unlock();

    FORCE_RET();

}

/* Store exclusive T0:T2 to address T1.  */

void OPPROTO glue(op_stqex,MEMSUFFIX)(void)

{

    int failed;

    cpu_lock();

    failed = helper_test_exclusive(env, T1);

    /* ??? Is it safe to hold the cpu lock over a store?  */

    if (!failed) {

        glue(stl,MEMSUFFIX)(T1, T0);

        glue(stl,MEMSUFFIX)((T1 + 4), T2);

    }

    T0 = failed;

    cpu_unlock();

    FORCE_RET();

}