105 lines
3.5 KiB
C
105 lines
3.5 KiB
C
|
/******************************** -*- C -*- ****************************
|
||
|
|
*
|
||
|
|
* Run-time assembler & support macros for the Sparc math unit
|
||
|
|
*
|
||
|
|
***********************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
/***********************************************************************
|
||
|
|
*
|
||
|
|
* Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
|
||
|
|
* Written by Paolo Bonzini.
|
||
|
|
*
|
||
|
|
* This file is part of GNU lightning.
|
||
|
|
*
|
||
|
|
* GNU lightning 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.1, or (at your option)
|
||
|
|
* any later version.
|
||
|
|
*
|
||
|
|
* GNU lightning 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 GNU lightning; see the file COPYING.LESSER; if not, write to the
|
||
|
|
* Free Software Foundation, 59 Temple Place - Suite 330, Boston,
|
||
|
|
* MA 02111-1307, USA.
|
||
|
|
*
|
||
|
|
***********************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
#ifndef __lightning_asm_fp_h
|
||
|
|
#define __lightning_asm_fp_h
|
||
|
|
|
||
|
|
#if 0
|
||
|
|
|
||
|
|
/* dummy for now */
|
||
|
|
|
||
|
|
#define jit_add_two(reg0) FADDrrr(13 - (reg0), 13 - (reg0), 12 - (reg0))
|
||
|
|
#define jit_sub_two(reg0) FSUBrrr(13 - (reg0), 13 - (reg0), 12 - (reg0))
|
||
|
|
#define jit_mul_two(reg0) FMULrrr(13 - (reg0), 13 - (reg0), 12 - (reg0))
|
||
|
|
#define jit_div_two(reg0) FDIVrrr(13 - (reg0), 13 - (reg0), 12 - (reg0))
|
||
|
|
|
||
|
|
#define jit_abs(reg0) FABSr(13 - (reg0))
|
||
|
|
#define jit_sqrt(reg0) FSQRTr(13 - (reg0))
|
||
|
|
#define jit_neg(reg0) FNEGr(13 - (reg0))
|
||
|
|
|
||
|
|
#define jit_ldxi_f(reg0, rs, is) 0
|
||
|
|
#define jit_ldxr_f(reg0, s1, s2) 0
|
||
|
|
#define jit_ldxi_d(reg0, rs, is) 0
|
||
|
|
#define jit_ldxr_d(reg0, s1, s2) 0
|
||
|
|
#define jit_ldi_f(reg0, is) 0
|
||
|
|
#define jit_ldr_f(reg0, rs) 0
|
||
|
|
#define jit_ldi_d(reg0, is) 0
|
||
|
|
#define jit_ldr_d(reg0, rs) 0
|
||
|
|
#define jit_stxi_f(id, rd, reg0) 0
|
||
|
|
#define jit_stxr_f(d1, d2, reg0) 0
|
||
|
|
#define jit_stxi_d(id, rd, reg0) 0
|
||
|
|
#define jit_stxr_d(d1, d2, reg0) 0
|
||
|
|
#define jit_sti_f(id, reg0) 0
|
||
|
|
#define jit_str_f(rd, reg0) 0
|
||
|
|
#define jit_sti_d(id, reg0) 0
|
||
|
|
#define jit_str_d(rd, reg0) 0
|
||
|
|
|
||
|
|
/* Make space for 1 or 2 words, store address in REG */
|
||
|
|
#define jit_data(REG, D1) (_FBA (18, 8, 0, 1), _L(D1), MFLRr(REG))
|
||
|
|
#define jit_data2(REG, D1, D2) (_FBA (18, 12, 0, 1), _L(D1), _L(D2), MFLRr(REG))
|
||
|
|
|
||
|
|
#define jit_fpimm(reg0, first, second) \
|
||
|
|
(jit_data2(JIT_AUX, (first), (second)), \
|
||
|
|
jit_ldxi_d((reg0), JIT_AUX, 0))
|
||
|
|
|
||
|
|
#define jit_floor(rd, reg0) jit_call_fp((rd), (reg0), floor)
|
||
|
|
#define jit_ceil(rd, reg0) jit_call_fp((rd), (reg0), ceil)
|
||
|
|
|
||
|
|
#define jit_call_fp(rd, reg0, fn) \
|
||
|
|
jit_fail(#fn " not supported", __FILE__, __LINE__, __FUNCTION__)
|
||
|
|
/* pass reg0 as first parameter of rd
|
||
|
|
bl fn
|
||
|
|
mr r3, rd */
|
||
|
|
|
||
|
|
#define jit_trunc(rd, reg0) (jit_data((rd), 0), \
|
||
|
|
FCTIWZrr(13 - (reg0), 13 - (reg0)), \
|
||
|
|
STFIWXrrr(13 - (reg0), 0, (rd)), \
|
||
|
|
LWZrm((rd), 0, (rd)))
|
||
|
|
|
||
|
|
#define jit_round(rd, reg0) (jit_data((rd), 0), \
|
||
|
|
FCTIWrr(13 - (reg0), 13 - (reg0)), \
|
||
|
|
STFIWXrrr(13 - (reg0), 0, (rd)), \
|
||
|
|
LWZrm((rd), 0, (rd)))
|
||
|
|
|
||
|
|
#define jit_cmp(le, ge, reg0) (FCMPOirr(7, 13 - (reg0), 0), \
|
||
|
|
CRORiii(28 + _gt, 28 + _gt, 28 + _eq), \
|
||
|
|
CRORiii(28 + _lt, 28 + _lt, 28 + _eq), \
|
||
|
|
MFCRr((ge)), \
|
||
|
|
EXTRWIrrii((le), (ge), 1, 28 + _lt), \
|
||
|
|
EXTRWIrrii((ge), (ge), 1, 28 + _gt))
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#endif /* __lightning_asm_h */
|