355 lines
9.8 KiB
C
355 lines
9.8 KiB
C
|
/* Software floating-point emulation.
|
||
|
|
Copyright (C) 1997-2019 Free Software Foundation, Inc.
|
||
|
|
This file is part of the GNU C Library.
|
||
|
|
Contributed by Richard Henderson (rth@cygnus.com),
|
||
|
|
Jakub Jelinek (jj@ultra.linux.cz),
|
||
|
|
David S. Miller (davem@redhat.com) and
|
||
|
|
Peter Maydell (pmaydell@chiark.greenend.org.uk).
|
||
|
|
|
||
|
|
The GNU C 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.1 of the License, or (at your option) any later version.
|
||
|
|
|
||
|
|
In addition to the permissions in the GNU Lesser General Public
|
||
|
|
License, the Free Software Foundation gives you unlimited
|
||
|
|
permission to link the compiled version of this file into
|
||
|
|
combinations with other programs, and to distribute those
|
||
|
|
combinations without any restriction coming from the use of this
|
||
|
|
file. (The Lesser General Public License restrictions do apply in
|
||
|
|
other respects; for example, they cover modification of the file,
|
||
|
|
and distribution when not linked into a combine executable.)
|
||
|
|
|
||
|
|
The GNU C 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 the GNU C Library; if not, see
|
||
|
|
<http://www.gnu.org/licenses/>. */
|
||
|
|
|
||
|
|
#ifndef SOFT_FP_H
|
||
|
|
#define SOFT_FP_H 1
|
||
|
|
|
||
|
|
#ifdef _LIBC
|
||
|
|
# include <sfp-machine.h>
|
||
|
|
#elif defined __KERNEL__
|
||
|
|
/* The Linux kernel uses asm/ names for architecture-specific
|
||
|
|
files. */
|
||
|
|
# include <asm/sfp-machine.h>
|
||
|
|
#else
|
||
|
|
# include "sfp-machine.h"
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Allow sfp-machine to have its own byte order definitions. */
|
||
|
|
#ifndef __BYTE_ORDER
|
||
|
|
# ifdef _LIBC
|
||
|
|
# include <endian.h>
|
||
|
|
# else
|
||
|
|
# error "endianness not defined by sfp-machine.h"
|
||
|
|
# endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* For unreachable default cases in switch statements over bitwise OR
|
||
|
|
of FP_CLS_* values. */
|
||
|
|
#if (defined __GNUC__ \
|
||
|
|
&& (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 5)))
|
||
|
|
# define _FP_UNREACHABLE __builtin_unreachable ()
|
||
|
|
#else
|
||
|
|
# define _FP_UNREACHABLE abort ()
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#if ((defined __GNUC__ \
|
||
|
|
&& (__GNUC__ > 4 || (__GNUC__ == 4 && __GNUC_MINOR__ >= 6))) \
|
||
|
|
|| (defined __STDC_VERSION__ && __STDC_VERSION__ >= 201112L))
|
||
|
|
# define _FP_STATIC_ASSERT(expr, msg) \
|
||
|
|
_Static_assert ((expr), msg)
|
||
|
|
#else
|
||
|
|
# define _FP_STATIC_ASSERT(expr, msg) \
|
||
|
|
extern int (*__Static_assert_function (void)) \
|
||
|
|
[!!sizeof (struct { int __error_if_negative: (expr) ? 2 : -1; })]
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* In the Linux kernel, some architectures have a single function that
|
||
|
|
uses different kinds of unpacking and packing depending on the
|
||
|
|
instruction being emulated, meaning it is not readily visible to
|
||
|
|
the compiler that variables from _FP_DECL and _FP_FRAC_DECL_*
|
||
|
|
macros are only used in cases where they were initialized. */
|
||
|
|
#ifdef __KERNEL__
|
||
|
|
# define _FP_ZERO_INIT = 0
|
||
|
|
#else
|
||
|
|
# define _FP_ZERO_INIT
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define _FP_WORKBITS 3
|
||
|
|
#define _FP_WORK_LSB ((_FP_W_TYPE) 1 << 3)
|
||
|
|
#define _FP_WORK_ROUND ((_FP_W_TYPE) 1 << 2)
|
||
|
|
#define _FP_WORK_GUARD ((_FP_W_TYPE) 1 << 1)
|
||
|
|
#define _FP_WORK_STICKY ((_FP_W_TYPE) 1 << 0)
|
||
|
|
|
||
|
|
#ifndef FP_RND_NEAREST
|
||
|
|
# define FP_RND_NEAREST 0
|
||
|
|
# define FP_RND_ZERO 1
|
||
|
|
# define FP_RND_PINF 2
|
||
|
|
# define FP_RND_MINF 3
|
||
|
|
#endif
|
||
|
|
#ifndef FP_ROUNDMODE
|
||
|
|
# define FP_ROUNDMODE FP_RND_NEAREST
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* By default don't care about exceptions. */
|
||
|
|
#ifndef FP_EX_INVALID
|
||
|
|
# define FP_EX_INVALID 0
|
||
|
|
#endif
|
||
|
|
#ifndef FP_EX_OVERFLOW
|
||
|
|
# define FP_EX_OVERFLOW 0
|
||
|
|
#endif
|
||
|
|
#ifndef FP_EX_UNDERFLOW
|
||
|
|
# define FP_EX_UNDERFLOW 0
|
||
|
|
#endif
|
||
|
|
#ifndef FP_EX_DIVZERO
|
||
|
|
# define FP_EX_DIVZERO 0
|
||
|
|
#endif
|
||
|
|
#ifndef FP_EX_INEXACT
|
||
|
|
# define FP_EX_INEXACT 0
|
||
|
|
#endif
|
||
|
|
#ifndef FP_EX_DENORM
|
||
|
|
# define FP_EX_DENORM 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Sub-exceptions of "invalid". */
|
||
|
|
/* Signaling NaN operand. */
|
||
|
|
#ifndef FP_EX_INVALID_SNAN
|
||
|
|
# define FP_EX_INVALID_SNAN 0
|
||
|
|
#endif
|
||
|
|
/* Inf * 0. */
|
||
|
|
#ifndef FP_EX_INVALID_IMZ
|
||
|
|
# define FP_EX_INVALID_IMZ 0
|
||
|
|
#endif
|
||
|
|
/* fma (Inf, 0, c). */
|
||
|
|
#ifndef FP_EX_INVALID_IMZ_FMA
|
||
|
|
# define FP_EX_INVALID_IMZ_FMA 0
|
||
|
|
#endif
|
||
|
|
/* Inf - Inf. */
|
||
|
|
#ifndef FP_EX_INVALID_ISI
|
||
|
|
# define FP_EX_INVALID_ISI 0
|
||
|
|
#endif
|
||
|
|
/* 0 / 0. */
|
||
|
|
#ifndef FP_EX_INVALID_ZDZ
|
||
|
|
# define FP_EX_INVALID_ZDZ 0
|
||
|
|
#endif
|
||
|
|
/* Inf / Inf. */
|
||
|
|
#ifndef FP_EX_INVALID_IDI
|
||
|
|
# define FP_EX_INVALID_IDI 0
|
||
|
|
#endif
|
||
|
|
/* sqrt (negative). */
|
||
|
|
#ifndef FP_EX_INVALID_SQRT
|
||
|
|
# define FP_EX_INVALID_SQRT 0
|
||
|
|
#endif
|
||
|
|
/* Invalid conversion to integer. */
|
||
|
|
#ifndef FP_EX_INVALID_CVI
|
||
|
|
# define FP_EX_INVALID_CVI 0
|
||
|
|
#endif
|
||
|
|
/* Invalid comparison. */
|
||
|
|
#ifndef FP_EX_INVALID_VC
|
||
|
|
# define FP_EX_INVALID_VC 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* _FP_STRUCT_LAYOUT may be defined as an attribute to determine the
|
||
|
|
struct layout variant used for structures where bit-fields are used
|
||
|
|
to access specific parts of binary floating-point numbers. This is
|
||
|
|
required for systems where the default ABI uses struct layout with
|
||
|
|
differences in how consecutive bit-fields are laid out from the
|
||
|
|
default expected by soft-fp. */
|
||
|
|
#ifndef _FP_STRUCT_LAYOUT
|
||
|
|
# define _FP_STRUCT_LAYOUT
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifdef _FP_DECL_EX
|
||
|
|
# define FP_DECL_EX \
|
||
|
|
int _fex = 0; \
|
||
|
|
_FP_DECL_EX
|
||
|
|
#else
|
||
|
|
# define FP_DECL_EX int _fex = 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Initialize any machine-specific state used in FP_ROUNDMODE,
|
||
|
|
FP_TRAPPING_EXCEPTIONS or FP_HANDLE_EXCEPTIONS. */
|
||
|
|
#ifndef FP_INIT_ROUNDMODE
|
||
|
|
# define FP_INIT_ROUNDMODE do {} while (0)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Initialize any machine-specific state used in
|
||
|
|
FP_TRAPPING_EXCEPTIONS or FP_HANDLE_EXCEPTIONS. */
|
||
|
|
#ifndef FP_INIT_TRAPPING_EXCEPTIONS
|
||
|
|
# define FP_INIT_TRAPPING_EXCEPTIONS FP_INIT_ROUNDMODE
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Initialize any machine-specific state used in
|
||
|
|
FP_HANDLE_EXCEPTIONS. */
|
||
|
|
#ifndef FP_INIT_EXCEPTIONS
|
||
|
|
# define FP_INIT_EXCEPTIONS FP_INIT_TRAPPING_EXCEPTIONS
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef FP_HANDLE_EXCEPTIONS
|
||
|
|
# define FP_HANDLE_EXCEPTIONS do {} while (0)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Whether to flush subnormal inputs to zero with the same sign. */
|
||
|
|
#ifndef FP_DENORM_ZERO
|
||
|
|
# define FP_DENORM_ZERO 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef FP_INHIBIT_RESULTS
|
||
|
|
/* By default we write the results always.
|
||
|
|
sfp-machine may override this and e.g.
|
||
|
|
check if some exceptions are unmasked
|
||
|
|
and inhibit it in such a case. */
|
||
|
|
# define FP_INHIBIT_RESULTS 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define FP_SET_EXCEPTION(ex) \
|
||
|
|
_fex |= (ex)
|
||
|
|
|
||
|
|
#define FP_CUR_EXCEPTIONS \
|
||
|
|
(_fex)
|
||
|
|
|
||
|
|
#ifndef FP_TRAPPING_EXCEPTIONS
|
||
|
|
# define FP_TRAPPING_EXCEPTIONS 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* A file using soft-fp may define FP_NO_EXCEPTIONS before including
|
||
|
|
soft-fp.h to indicate that, although a macro used there could raise
|
||
|
|
exceptions, or do rounding and potentially thereby raise
|
||
|
|
exceptions, for some arguments, for the particular arguments used
|
||
|
|
in that file no exceptions or rounding can occur. Such a file
|
||
|
|
should not itself use macros relating to handling exceptions and
|
||
|
|
rounding modes; this is only for indirect uses (in particular, in
|
||
|
|
_FP_FROM_INT and the macros it calls). */
|
||
|
|
#ifdef FP_NO_EXCEPTIONS
|
||
|
|
|
||
|
|
# undef FP_SET_EXCEPTION
|
||
|
|
# define FP_SET_EXCEPTION(ex) do {} while (0)
|
||
|
|
|
||
|
|
# undef FP_CUR_EXCEPTIONS
|
||
|
|
# define FP_CUR_EXCEPTIONS 0
|
||
|
|
|
||
|
|
# undef FP_TRAPPING_EXCEPTIONS
|
||
|
|
# define FP_TRAPPING_EXCEPTIONS 0
|
||
|
|
|
||
|
|
# undef FP_ROUNDMODE
|
||
|
|
# define FP_ROUNDMODE FP_RND_ZERO
|
||
|
|
|
||
|
|
# undef _FP_TININESS_AFTER_ROUNDING
|
||
|
|
# define _FP_TININESS_AFTER_ROUNDING 0
|
||
|
|
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* A file using soft-fp may define FP_NO_EXACT_UNDERFLOW before
|
||
|
|
including soft-fp.h to indicate that, although a macro used there
|
||
|
|
could allow for the case of exact underflow requiring the underflow
|
||
|
|
exception to be raised if traps are enabled, for the particular
|
||
|
|
arguments used in that file no exact underflow can occur. */
|
||
|
|
#ifdef FP_NO_EXACT_UNDERFLOW
|
||
|
|
# undef FP_TRAPPING_EXCEPTIONS
|
||
|
|
# define FP_TRAPPING_EXCEPTIONS 0
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define _FP_ROUND_NEAREST(wc, X) \
|
||
|
|
do \
|
||
|
|
{ \
|
||
|
|
if ((_FP_FRAC_LOW_##wc (X) & 15) != _FP_WORK_ROUND) \
|
||
|
|
_FP_FRAC_ADDI_##wc (X, _FP_WORK_ROUND); \
|
||
|
|
} \
|
||
|
|
while (0)
|
||
|
|
|
||
|
|
#define _FP_ROUND_ZERO(wc, X) (void) 0
|
||
|
|
|
||
|
|
#define _FP_ROUND_PINF(wc, X) \
|
||
|
|
do \
|
||
|
|
{ \
|
||
|
|
if (!X##_s && (_FP_FRAC_LOW_##wc (X) & 7)) \
|
||
|
|
_FP_FRAC_ADDI_##wc (X, _FP_WORK_LSB); \
|
||
|
|
} \
|
||
|
|
while (0)
|
||
|
|
|
||
|
|
#define _FP_ROUND_MINF(wc, X) \
|
||
|
|
do \
|
||
|
|
{ \
|
||
|
|
if (X##_s && (_FP_FRAC_LOW_##wc (X) & 7)) \
|
||
|
|
_FP_FRAC_ADDI_##wc (X, _FP_WORK_LSB); \
|
||
|
|
} \
|
||
|
|
while (0)
|
||
|
|
|
||
|
|
#define _FP_ROUND(wc, X) \
|
||
|
|
do \
|
||
|
|
{ \
|
||
|
|
if (_FP_FRAC_LOW_##wc (X) & 7) \
|
||
|
|
{ \
|
||
|
|
FP_SET_EXCEPTION (FP_EX_INEXACT); \
|
||
|
|
switch (FP_ROUNDMODE) \
|
||
|
|
{ \
|
||
|
|
case FP_RND_NEAREST: \
|
||
|
|
_FP_ROUND_NEAREST (wc, X); \
|
||
|
|
break; \
|
||
|
|
case FP_RND_ZERO: \
|
||
|
|
_FP_ROUND_ZERO (wc, X); \
|
||
|
|
break; \
|
||
|
|
case FP_RND_PINF: \
|
||
|
|
_FP_ROUND_PINF (wc, X); \
|
||
|
|
break; \
|
||
|
|
case FP_RND_MINF: \
|
||
|
|
_FP_ROUND_MINF (wc, X); \
|
||
|
|
break; \
|
||
|
|
} \
|
||
|
|
} \
|
||
|
|
} \
|
||
|
|
while (0)
|
||
|
|
|
||
|
|
#define FP_CLS_NORMAL 0
|
||
|
|
#define FP_CLS_ZERO 1
|
||
|
|
#define FP_CLS_INF 2
|
||
|
|
#define FP_CLS_NAN 3
|
||
|
|
|
||
|
|
#define _FP_CLS_COMBINE(x, y) (((x) << 2) | (y))
|
||
|
|
|
||
|
|
#include "op-1.h"
|
||
|
|
#include "op-2.h"
|
||
|
|
#include "op-4.h"
|
||
|
|
#include "op-8.h"
|
||
|
|
#include "op-common.h"
|
||
|
|
|
||
|
|
/* Sigh. Silly things longlong.h needs. */
|
||
|
|
#define UWtype _FP_W_TYPE
|
||
|
|
#define W_TYPE_SIZE _FP_W_TYPE_SIZE
|
||
|
|
|
||
|
|
typedef int QItype __attribute__ ((mode (QI)));
|
||
|
|
typedef int SItype __attribute__ ((mode (SI)));
|
||
|
|
typedef int DItype __attribute__ ((mode (DI)));
|
||
|
|
typedef unsigned int UQItype __attribute__ ((mode (QI)));
|
||
|
|
typedef unsigned int USItype __attribute__ ((mode (SI)));
|
||
|
|
typedef unsigned int UDItype __attribute__ ((mode (DI)));
|
||
|
|
#if _FP_W_TYPE_SIZE == 32
|
||
|
|
typedef unsigned int UHWtype __attribute__ ((mode (HI)));
|
||
|
|
#elif _FP_W_TYPE_SIZE == 64
|
||
|
|
typedef USItype UHWtype;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef CMPtype
|
||
|
|
# define CMPtype int
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#define SI_BITS (__CHAR_BIT__ * (int) sizeof (SItype))
|
||
|
|
#define DI_BITS (__CHAR_BIT__ * (int) sizeof (DItype))
|
||
|
|
|
||
|
|
#ifndef umul_ppmm
|
||
|
|
# ifdef _LIBC
|
||
|
|
# include <stdlib/longlong.h>
|
||
|
|
# else
|
||
|
|
# include "longlong.h"
|
||
|
|
# endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#endif /* !SOFT_FP_H */
|