Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
openeuler
qemu
提交
2ae68059
Q
qemu
项目概览
openeuler
/
qemu
通知
10
Star
0
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
Q
qemu
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
提交
2ae68059
编写于
8月 22, 2012
作者:
R
Richard Henderson
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
target-s390: Convert STCM
Signed-off-by:
N
Richard Henderson
<
rth@twiddle.net
>
上级
32a44d58
变更
4
显示空白变更内容
内联
并排
Showing
4 changed file
with
53 addition
and
63 deletion
+53
-63
target-s390x/helper.h
target-s390x/helper.h
+0
-2
target-s390x/insn-data.def
target-s390x/insn-data.def
+4
-0
target-s390x/mem_helper.c
target-s390x/mem_helper.c
+0
-37
target-s390x/translate.c
target-s390x/translate.c
+49
-24
未找到文件。
target-s390x/helper.h
浏览文件 @
2ae68059
...
...
@@ -8,7 +8,6 @@ DEF_HELPER_4(mvc, void, env, i32, i64, i64)
DEF_HELPER_4
(
clc
,
i32
,
env
,
i32
,
i64
,
i64
)
DEF_HELPER_3
(
mvcl
,
i32
,
env
,
i32
,
i32
)
DEF_HELPER_4
(
clm
,
i32
,
env
,
i32
,
i32
,
i64
)
DEF_HELPER_4
(
stcm
,
void
,
env
,
i32
,
i32
,
i64
)
DEF_HELPER_FLAGS_3
(
mul128
,
TCG_CALL_NO_RWG
,
i64
,
env
,
i64
,
i64
)
DEF_HELPER_3
(
divs32
,
s64
,
env
,
s64
,
s64
)
DEF_HELPER_3
(
divu32
,
i64
,
env
,
i64
,
i64
)
...
...
@@ -26,7 +25,6 @@ DEF_HELPER_FLAGS_1(abs_i32, TCG_CALL_NO_RWG_SE, i32, s32)
DEF_HELPER_FLAGS_1
(
nabs_i32
,
TCG_CALL_NO_RWG_SE
,
s32
,
s32
)
DEF_HELPER_FLAGS_1
(
abs_i64
,
TCG_CALL_NO_RWG_SE
,
i64
,
s64
)
DEF_HELPER_FLAGS_1
(
nabs_i64
,
TCG_CALL_NO_RWG_SE
,
s64
,
s64
)
DEF_HELPER_4
(
stcmh
,
void
,
env
,
i32
,
i64
,
i32
)
DEF_HELPER_3
(
ipm
,
void
,
env
,
i32
,
i32
)
DEF_HELPER_4
(
stam
,
void
,
env
,
i32
,
i64
,
i32
)
DEF_HELPER_4
(
lam
,
void
,
env
,
i32
,
i64
,
i32
)
...
...
target-s390x/insn-data.def
浏览文件 @
2ae68059
...
...
@@ -405,6 +405,10 @@
/* STORE CHARACTER */
C(0x4200, STC, RX_a, Z, r1_o, a2, 0, 0, st8, 0)
C(0xe372, STCY, RXY_a, LD, r1_o, a2, 0, 0, st8, 0)
/* STORE CHARACTERS UNDER MASK */
D(0xbe00, STCM, RS_b, Z, r1_o, a2, 0, 0, stcm, 0, 0)
D(0xeb2d, STCMY, RSY_b, LD, r1_o, a2, 0, 0, stcm, 0, 0)
D(0xeb2c, STCMH, RSY_b, LD, r1_o, a2, 0, 0, stcm, 0, 32)
/* STORE HALFWORD */
C(0x4000, STH, RX_a, Z, r1_o, a2, 0, 0, st16, 0)
C(0xe370, STHY, RXY_a, LD, r1_o, a2, 0, 0, st16, 0)
...
...
target-s390x/mem_helper.c
浏览文件 @
2ae68059
...
...
@@ -304,27 +304,6 @@ uint32_t HELPER(clm)(CPUS390XState *env, uint32_t r1, uint32_t mask,
return
cc
;
}
/* store character under mask */
void
HELPER
(
stcm
)(
CPUS390XState
*
env
,
uint32_t
r1
,
uint32_t
mask
,
uint64_t
addr
)
{
uint8_t
r
;
HELPER_LOG
(
"%s: r1 0x%x mask 0x%x addr 0x%lx
\n
"
,
__func__
,
r1
,
mask
,
addr
);
while
(
mask
)
{
if
(
mask
&
8
)
{
r
=
(
r1
&
0xff000000UL
)
>>
24
;
cpu_stb_data
(
env
,
addr
,
r
);
HELPER_LOG
(
"mask 0x%x %02x (0x%lx) "
,
mask
,
r
,
addr
);
addr
++
;
}
mask
=
(
mask
<<
1
)
&
0xf
;
r1
<<=
8
;
}
HELPER_LOG
(
"
\n
"
);
}
static
inline
uint64_t
get_address
(
CPUS390XState
*
env
,
int
x2
,
int
b2
,
int
d2
)
{
uint64_t
r
=
d2
;
...
...
@@ -608,22 +587,6 @@ uint32_t HELPER(ex)(CPUS390XState *env, uint32_t cc, uint64_t v1,
return
cc
;
}
/* store character under mask high operates on the upper half of r1 */
void
HELPER
(
stcmh
)(
CPUS390XState
*
env
,
uint32_t
r1
,
uint64_t
address
,
uint32_t
mask
)
{
int
pos
=
56
;
/* top of the upper half of r1 */
while
(
mask
)
{
if
(
mask
&
8
)
{
cpu_stb_data
(
env
,
address
,
(
env
->
regs
[
r1
]
>>
pos
)
&
0xff
);
address
++
;
}
mask
=
(
mask
<<
1
)
&
0xf
;
pos
-=
8
;
}
}
/* load access registers r1 to r3 from memory at a2 */
void
HELPER
(
lam
)(
CPUS390XState
*
env
,
uint32_t
r1
,
uint64_t
a2
,
uint32_t
r3
)
{
...
...
target-s390x/translate.c
浏览文件 @
2ae68059
...
...
@@ -1110,16 +1110,6 @@ static void disas_eb(CPUS390XState *env, DisasContext *s, int op, int r1,
LOG_DISAS
(
"disas_eb: op 0x%x r1 %d r3 %d b2 %d d2 0x%x
\n
"
,
op
,
r1
,
r3
,
b2
,
d2
);
switch
(
op
)
{
case
0x2c
:
/* STCMH R1,M3,D2(B2) [RSY] */
tmp
=
get_address
(
s
,
0
,
b2
,
d2
);
tmp32_1
=
tcg_const_i32
(
r1
);
tmp32_2
=
tcg_const_i32
(
r3
);
potential_page_fault
(
s
);
gen_helper_stcmh
(
cpu_env
,
tmp32_1
,
tmp
,
tmp32_2
);
tcg_temp_free_i64
(
tmp
);
tcg_temp_free_i32
(
tmp32_1
);
tcg_temp_free_i32
(
tmp32_2
);
break
;
#ifndef CONFIG_USER_ONLY
case
0x2f
:
/* LCTLG R1,R3,D2(B2) [RSE] */
/* Load Control */
...
...
@@ -1967,8 +1957,6 @@ static void disas_b9(CPUS390XState *env, DisasContext *s, int op, int r1,
static
void
disas_s390_insn
(
CPUS390XState
*
env
,
DisasContext
*
s
)
{
TCGv_i64
tmp
;
TCGv_i32
tmp32_1
,
tmp32_2
;
unsigned
char
opc
;
uint64_t
insn
;
int
op
,
r1
,
r2
,
r3
,
d2
,
x2
,
b2
,
r1b
;
...
...
@@ -1997,18 +1985,6 @@ static void disas_s390_insn(CPUS390XState *env, DisasContext *s)
op
=
(
insn
>>
16
)
&
0xff
;
disas_b9
(
env
,
s
,
op
,
r1
,
r2
);
break
;
case
0xbe
:
/* STCM R1,M3,D2(B2) [RS] */
insn
=
ld_code4
(
env
,
s
->
pc
);
decode_rs
(
s
,
insn
,
&
r1
,
&
r3
,
&
b2
,
&
d2
);
tmp
=
get_address
(
s
,
0
,
b2
,
d2
);
tmp32_1
=
load_reg32
(
r1
);
tmp32_2
=
tcg_const_i32
(
r3
);
potential_page_fault
(
s
);
gen_helper_stcm
(
cpu_env
,
tmp32_1
,
tmp32_2
,
tmp
);
tcg_temp_free_i64
(
tmp
);
tcg_temp_free_i32
(
tmp32_1
);
tcg_temp_free_i32
(
tmp32_2
);
break
;
case
0xe3
:
insn
=
ld_code6
(
env
,
s
->
pc
);
debug_insn
(
insn
);
...
...
@@ -3271,6 +3247,55 @@ static ExitStatus op_stam(DisasContext *s, DisasOps *o)
return
NO_EXIT
;
}
static
ExitStatus
op_stcm
(
DisasContext
*
s
,
DisasOps
*
o
)
{
int
m3
=
get_field
(
s
->
fields
,
m3
);
int
pos
,
base
=
s
->
insn
->
data
;
TCGv_i64
tmp
=
tcg_temp_new_i64
();
pos
=
base
+
ctz32
(
m3
)
*
8
;
switch
(
m3
)
{
case
0xf
:
/* Effectively a 32-bit store. */
tcg_gen_shri_i64
(
tmp
,
o
->
in1
,
pos
);
tcg_gen_qemu_st32
(
tmp
,
o
->
in2
,
get_mem_index
(
s
));
break
;
case
0xc
:
case
0x6
:
case
0x3
:
/* Effectively a 16-bit store. */
tcg_gen_shri_i64
(
tmp
,
o
->
in1
,
pos
);
tcg_gen_qemu_st16
(
tmp
,
o
->
in2
,
get_mem_index
(
s
));
break
;
case
0x8
:
case
0x4
:
case
0x2
:
case
0x1
:
/* Effectively an 8-bit store. */
tcg_gen_shri_i64
(
tmp
,
o
->
in1
,
pos
);
tcg_gen_qemu_st8
(
tmp
,
o
->
in2
,
get_mem_index
(
s
));
break
;
default:
/* This is going to be a sequence of shifts and stores. */
pos
=
base
+
32
-
8
;
while
(
m3
)
{
if
(
m3
&
0x8
)
{
tcg_gen_shri_i64
(
tmp
,
o
->
in1
,
pos
);
tcg_gen_qemu_st8
(
tmp
,
o
->
in2
,
get_mem_index
(
s
));
tcg_gen_addi_i64
(
o
->
in2
,
o
->
in2
,
1
);
}
m3
=
(
m3
<<
1
)
&
0xf
;
pos
-=
8
;
}
break
;
}
tcg_temp_free_i64
(
tmp
);
return
NO_EXIT
;
}
static
ExitStatus
op_stm
(
DisasContext
*
s
,
DisasOps
*
o
)
{
int
r1
=
get_field
(
s
->
fields
,
r1
);
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录