mirror of
https://mirrors.bfsu.edu.cn/git/linux.git
synced 2024-12-23 11:04:44 +08:00
74ba9207e1
Based on 1 normalized pattern(s): this program is free software you can redistribute it and or modify it under the terms of the gnu general public license as published by the free software foundation either version 2 of the license or at your option any later version this program 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 general public license for more details you should have received a copy of the gnu general public license along with this program if not write to the free software foundation inc 675 mass ave cambridge ma 02139 usa extracted by the scancode license scanner the SPDX license identifier GPL-2.0-or-later has been chosen to replace the boilerplate/reference in 441 file(s). Signed-off-by: Thomas Gleixner <tglx@linutronix.de> Reviewed-by: Michael Ellerman <mpe@ellerman.id.au> (powerpc) Reviewed-by: Richard Fontana <rfontana@redhat.com> Reviewed-by: Allison Randal <allison@lohutok.net> Reviewed-by: Kate Stewart <kstewart@linuxfoundation.org> Cc: linux-spdx@vger.kernel.org Link: https://lkml.kernel.org/r/20190520071858.739733335@linutronix.de Signed-off-by: Greg Kroah-Hartman <gregkh@linuxfoundation.org>
143 lines
3.4 KiB
C
143 lines
3.4 KiB
C
// SPDX-License-Identifier: GPL-2.0-or-later
|
|
/*
|
|
NetWinder Floating Point Emulator
|
|
(c) Rebel.COM, 1998,1999
|
|
|
|
Direct questions, comments to Scott Bambrough <scottb@netwinder.org>
|
|
|
|
*/
|
|
|
|
#include "fpa11.h"
|
|
#include "softfloat.h"
|
|
#include "fpopcode.h"
|
|
|
|
floatx80 floatx80_exp(floatx80 Fm);
|
|
floatx80 floatx80_ln(floatx80 Fm);
|
|
floatx80 floatx80_sin(floatx80 rFm);
|
|
floatx80 floatx80_cos(floatx80 rFm);
|
|
floatx80 floatx80_arcsin(floatx80 rFm);
|
|
floatx80 floatx80_arctan(floatx80 rFm);
|
|
floatx80 floatx80_log(floatx80 rFm);
|
|
floatx80 floatx80_tan(floatx80 rFm);
|
|
floatx80 floatx80_arccos(floatx80 rFm);
|
|
floatx80 floatx80_pow(floatx80 rFn, floatx80 rFm);
|
|
floatx80 floatx80_pol(floatx80 rFn, floatx80 rFm);
|
|
|
|
static floatx80 floatx80_rsf(struct roundingData *roundData, floatx80 rFn, floatx80 rFm)
|
|
{
|
|
return floatx80_sub(roundData, rFm, rFn);
|
|
}
|
|
|
|
static floatx80 floatx80_rdv(struct roundingData *roundData, floatx80 rFn, floatx80 rFm)
|
|
{
|
|
return floatx80_div(roundData, rFm, rFn);
|
|
}
|
|
|
|
static floatx80 (*const dyadic_extended[16])(struct roundingData*, floatx80 rFn, floatx80 rFm) = {
|
|
[ADF_CODE >> 20] = floatx80_add,
|
|
[MUF_CODE >> 20] = floatx80_mul,
|
|
[SUF_CODE >> 20] = floatx80_sub,
|
|
[RSF_CODE >> 20] = floatx80_rsf,
|
|
[DVF_CODE >> 20] = floatx80_div,
|
|
[RDF_CODE >> 20] = floatx80_rdv,
|
|
[RMF_CODE >> 20] = floatx80_rem,
|
|
|
|
/* strictly, these opcodes should not be implemented */
|
|
[FML_CODE >> 20] = floatx80_mul,
|
|
[FDV_CODE >> 20] = floatx80_div,
|
|
[FRD_CODE >> 20] = floatx80_rdv,
|
|
};
|
|
|
|
static floatx80 floatx80_mvf(struct roundingData *roundData, floatx80 rFm)
|
|
{
|
|
return rFm;
|
|
}
|
|
|
|
static floatx80 floatx80_mnf(struct roundingData *roundData, floatx80 rFm)
|
|
{
|
|
rFm.high ^= 0x8000;
|
|
return rFm;
|
|
}
|
|
|
|
static floatx80 floatx80_abs(struct roundingData *roundData, floatx80 rFm)
|
|
{
|
|
rFm.high &= 0x7fff;
|
|
return rFm;
|
|
}
|
|
|
|
static floatx80 (*const monadic_extended[16])(struct roundingData*, floatx80 rFm) = {
|
|
[MVF_CODE >> 20] = floatx80_mvf,
|
|
[MNF_CODE >> 20] = floatx80_mnf,
|
|
[ABS_CODE >> 20] = floatx80_abs,
|
|
[RND_CODE >> 20] = floatx80_round_to_int,
|
|
[URD_CODE >> 20] = floatx80_round_to_int,
|
|
[SQT_CODE >> 20] = floatx80_sqrt,
|
|
[NRM_CODE >> 20] = floatx80_mvf,
|
|
};
|
|
|
|
unsigned int ExtendedCPDO(struct roundingData *roundData, const unsigned int opcode, FPREG * rFd)
|
|
{
|
|
FPA11 *fpa11 = GET_FPA11();
|
|
floatx80 rFm;
|
|
unsigned int Fm, opc_mask_shift;
|
|
|
|
Fm = getFm(opcode);
|
|
if (CONSTANT_FM(opcode)) {
|
|
rFm = getExtendedConstant(Fm);
|
|
} else {
|
|
switch (fpa11->fType[Fm]) {
|
|
case typeSingle:
|
|
rFm = float32_to_floatx80(fpa11->fpreg[Fm].fSingle);
|
|
break;
|
|
|
|
case typeDouble:
|
|
rFm = float64_to_floatx80(fpa11->fpreg[Fm].fDouble);
|
|
break;
|
|
|
|
case typeExtended:
|
|
rFm = fpa11->fpreg[Fm].fExtended;
|
|
break;
|
|
|
|
default:
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
opc_mask_shift = (opcode & MASK_ARITHMETIC_OPCODE) >> 20;
|
|
if (!MONADIC_INSTRUCTION(opcode)) {
|
|
unsigned int Fn = getFn(opcode);
|
|
floatx80 rFn;
|
|
|
|
switch (fpa11->fType[Fn]) {
|
|
case typeSingle:
|
|
rFn = float32_to_floatx80(fpa11->fpreg[Fn].fSingle);
|
|
break;
|
|
|
|
case typeDouble:
|
|
rFn = float64_to_floatx80(fpa11->fpreg[Fn].fDouble);
|
|
break;
|
|
|
|
case typeExtended:
|
|
rFn = fpa11->fpreg[Fn].fExtended;
|
|
break;
|
|
|
|
default:
|
|
return 0;
|
|
}
|
|
|
|
if (dyadic_extended[opc_mask_shift]) {
|
|
rFd->fExtended = dyadic_extended[opc_mask_shift](roundData, rFn, rFm);
|
|
} else {
|
|
return 0;
|
|
}
|
|
} else {
|
|
if (monadic_extended[opc_mask_shift]) {
|
|
rFd->fExtended = monadic_extended[opc_mask_shift](roundData, rFm);
|
|
} else {
|
|
return 0;
|
|
}
|
|
}
|
|
|
|
return 1;
|
|
}
|