mirror of https://github.com/xemu-project/xemu.git
target/s390x: Use unwind data for helper_stctl
Reviewed-by: Thomas Huth <thuth@redhat.com> Reviewed-by: Aurelien Jarno <aurelien@aurel32.net> Signed-off-by: Richard Henderson <rth@twiddle.net>
This commit is contained in:
parent
1b642a732c
commit
75d6240c59
|
@ -907,11 +907,12 @@ void HELPER(lctl)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
|
||||||
|
|
||||||
void HELPER(stctg)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
|
void HELPER(stctg)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
|
||||||
{
|
{
|
||||||
int i;
|
uintptr_t ra = GETPC();
|
||||||
uint64_t dest = a2;
|
uint64_t dest = a2;
|
||||||
|
uint32_t i;
|
||||||
|
|
||||||
for (i = r1;; i = (i + 1) % 16) {
|
for (i = r1;; i = (i + 1) % 16) {
|
||||||
cpu_stq_data(env, dest, env->cregs[i]);
|
cpu_stq_data_ra(env, dest, env->cregs[i], ra);
|
||||||
dest += sizeof(uint64_t);
|
dest += sizeof(uint64_t);
|
||||||
|
|
||||||
if (i == r3) {
|
if (i == r3) {
|
||||||
|
@ -922,11 +923,12 @@ void HELPER(stctg)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
|
||||||
|
|
||||||
void HELPER(stctl)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
|
void HELPER(stctl)(CPUS390XState *env, uint32_t r1, uint64_t a2, uint32_t r3)
|
||||||
{
|
{
|
||||||
int i;
|
uintptr_t ra = GETPC();
|
||||||
uint64_t dest = a2;
|
uint64_t dest = a2;
|
||||||
|
uint32_t i;
|
||||||
|
|
||||||
for (i = r1;; i = (i + 1) % 16) {
|
for (i = r1;; i = (i + 1) % 16) {
|
||||||
cpu_stl_data(env, dest, env->cregs[i]);
|
cpu_stl_data_ra(env, dest, env->cregs[i], ra);
|
||||||
dest += sizeof(uint32_t);
|
dest += sizeof(uint32_t);
|
||||||
|
|
||||||
if (i == r3) {
|
if (i == r3) {
|
||||||
|
|
|
@ -3617,7 +3617,6 @@ static ExitStatus op_stctg(DisasContext *s, DisasOps *o)
|
||||||
TCGv_i32 r1 = tcg_const_i32(get_field(s->fields, r1));
|
TCGv_i32 r1 = tcg_const_i32(get_field(s->fields, r1));
|
||||||
TCGv_i32 r3 = tcg_const_i32(get_field(s->fields, r3));
|
TCGv_i32 r3 = tcg_const_i32(get_field(s->fields, r3));
|
||||||
check_privileged(s);
|
check_privileged(s);
|
||||||
potential_page_fault(s);
|
|
||||||
gen_helper_stctg(cpu_env, r1, o->in2, r3);
|
gen_helper_stctg(cpu_env, r1, o->in2, r3);
|
||||||
tcg_temp_free_i32(r1);
|
tcg_temp_free_i32(r1);
|
||||||
tcg_temp_free_i32(r3);
|
tcg_temp_free_i32(r3);
|
||||||
|
@ -3629,7 +3628,6 @@ static ExitStatus op_stctl(DisasContext *s, DisasOps *o)
|
||||||
TCGv_i32 r1 = tcg_const_i32(get_field(s->fields, r1));
|
TCGv_i32 r1 = tcg_const_i32(get_field(s->fields, r1));
|
||||||
TCGv_i32 r3 = tcg_const_i32(get_field(s->fields, r3));
|
TCGv_i32 r3 = tcg_const_i32(get_field(s->fields, r3));
|
||||||
check_privileged(s);
|
check_privileged(s);
|
||||||
potential_page_fault(s);
|
|
||||||
gen_helper_stctl(cpu_env, r1, o->in2, r3);
|
gen_helper_stctl(cpu_env, r1, o->in2, r3);
|
||||||
tcg_temp_free_i32(r1);
|
tcg_temp_free_i32(r1);
|
||||||
tcg_temp_free_i32(r3);
|
tcg_temp_free_i32(r3);
|
||||||
|
|
Loading…
Reference in New Issue