OpenE2K/qemu-e2k
13
4
Fork 0
Code Issues 4 Pull Requests Projects 2 Releases Activity

Use host-utils for Alpha 64x64 bits multiplications.

Browse Source 
git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@3443 c046a42c-6fe2-441c-8c8c-71466251a162
This commit is contained in:
j_mayer 2007-10-25 23:34:44 +00:00
parent 9d901a201b
commit e14fe0a921
3 changed files with 10 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
target-alpha/op.c
View File

@ -295,7 +295,7 @@ void OPPROTO op_mullv (void)
void OPPROTO op_mulq (void)
{
T0 *= T1;
T0 = (int64_t)T0 * (int64_t)T1;
RETURN();
}
@ -307,7 +307,10 @@ void OPPROTO op_mulqv (void)
void OPPROTO op_umulh (void)
{
helper_umulh();
uint64_t tl, th;
mulu64(&tl, &th, T0, T1);
T0 = th;
RETURN();
}

26
target-alpha/op_helper.c
View File

@ -199,30 +199,14 @@ void helper_mullv (void)
void helper_mulqv ()
{
uint64_t res, tmp0, tmp1;
uint64_t tl, th;
res = (T0 >> 32) * (T1 >> 32);
tmp0 = ((T0 & 0xFFFFFFFF) * (T1 >> 32)) +
((T0 >> 32) * (T1 & 0xFFFFFFFF));
tmp1 = (T0 & 0xFFFFFFFF) * (T1 & 0xFFFFFFFF);
tmp0 += tmp1 >> 32;
res += tmp0 >> 32;
T0 *= T1;
if (unlikely(res != 0)) {
muls64(&tl, &th, T0, T1);
/* If th != 0 && th != -1, then we had an overflow */
if (unlikely((th + 1) > 1)) {
helper_excp(EXCP_ARITH, EXCP_ARITH_OVERFLOW);
}
}
void helper_umulh (void)
{
uint64_t tmp0, tmp1;
tmp0 = ((T0 & 0xFFFFFFFF) * (T1 >> 32)) +
((T0 >> 32) * (T1 & 0xFFFFFFFF));
tmp1 = (T0 & 0xFFFFFFFF) * (T1 & 0xFFFFFFFF);
tmp0 += tmp1 >> 32;
T0 = (T0 >> 32) * (T0 >> 32);
T0 += tmp0 >> 32;
T0 = tl;
}
void helper_ctpop (void)

1
target-alpha/op_helper.h
View File

@ -34,7 +34,6 @@ void helper_subqv (void);
void helper_sublv (void);
void helper_mullv (void);
void helper_mulqv (void);
void helper_umulh (void);
void helper_ctpop (void);
void helper_ctlz (void);
void helper_cttz (void);