git-svn-id: svn://svn.savannah.nongnu.org/qemu/trunk@472 c046a42c-6fe2-441c-8c8c-71466251a162
198 lines
3 KiB
Smarty
198 lines
3 KiB
Smarty
/*
|
|
* PPC emulation micro-operations for qemu.
|
|
*
|
|
* Copyright (c) 2003 Jocelyn Mayer
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*/
|
|
|
|
/* Host registers definitions */
|
|
$DEFH T 3
|
|
/* PPC registers definitions */
|
|
$DEF gpr 32
|
|
$DEF fpr 32
|
|
$DEF crf 8
|
|
$DEF spr 1024
|
|
|
|
/* PPC registers <-> host registers move */
|
|
/* GPR */
|
|
$OP load_gpr_T0 gpr
|
|
{
|
|
T0 = regs->gpra;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP load_gpr_T1 gpr
|
|
{
|
|
T1 = regs->gpra;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP load_gpr_T2 gpr
|
|
{
|
|
T2 = regs->gpra;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_T0_gpr gpr
|
|
{
|
|
regs->gpra = T0;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_T1_gpr gpr
|
|
{
|
|
regs->gpra = T1;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_gpr_P gpr PARAM
|
|
{
|
|
regs->gpra = PARAM(1);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* crf */
|
|
$OP load_crf_T0 crf
|
|
{
|
|
T0 = regs->crfa;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP load_crf_T1 crf
|
|
{
|
|
T1 = regs->crfa;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_T0_crf crf
|
|
{
|
|
regs->crfa = T0;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_T1_crf crf
|
|
{
|
|
regs->crfa = T1;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* SPR */
|
|
$OP load_spr spr
|
|
{
|
|
T0 = regs->spra;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_spr spr
|
|
{
|
|
regs->spra = T0;
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* FPSCR */
|
|
$OP load_fpscr fpr
|
|
{
|
|
regs->fpra = do_load_fpscr();
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP store_fpscr fpr PARAM
|
|
{
|
|
do_store_fpscr(PARAM(1), regs->fpra);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/*** Floating-point store ***/
|
|
/* candidate for helper (too long on x86 host) */
|
|
$OP stfd_z fpr PARAM
|
|
{
|
|
st64(SPARAM(1), regs->fpra);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* candidate for helper (too long on x86 host) */
|
|
$OP stfd fpr PARAM
|
|
{
|
|
T0 += SPARAM(1);
|
|
st64(T0, regs->fpra);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* candidate for helper (too long on x86 host) */
|
|
$OP stfdx_z fpr
|
|
{
|
|
st64(T0, regs->fpra);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
/* candidate for helper (too long on x86 host) */
|
|
$OP stfdx fpr
|
|
{
|
|
T0 += T1;
|
|
st64(T0, regs->fpra);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* candidate for helper (too long on x86 host) */
|
|
$OP lfd_z fpr PARAM
|
|
{
|
|
regs->fpra = ld64(SPARAM(1));
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
/* candidate for helper (too long) */
|
|
$OP lfd fpr PARAM
|
|
{
|
|
T0 += SPARAM(1);
|
|
regs->fpra = ld64(T0);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP lfdx_z fpr
|
|
{
|
|
regs->fpra = ld64(T0);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
|
|
$OP lfdx fpr
|
|
{
|
|
T0 += T1;
|
|
regs->fpra = ld64(T0);
|
|
RETURN();
|
|
}
|
|
$ENDOP
|
|
/*****************************************************************************/
|