1999-12-30 02:11:48 +08:00
|
|
|
/* Software floating-point emulation.
|
|
|
|
|
Basic eight-word fraction declaration and manipulation.
|
2022-01-02 02:54:23 +08:00
|
|
|
Copyright (C) 1997-2022 Free Software Foundation, Inc.
|
1999-12-30 02:11:48 +08:00
|
|
|
This file is part of the GNU C Library.
|
2001-07-06 12:58:11 +08:00
|
|
|
|
1999-12-30 02:11:48 +08:00
|
|
|
The GNU C Library is free software; you can redistribute it and/or
|
2001-07-06 12:58:11 +08:00
|
|
|
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.
|
1999-12-30 02:11:48 +08:00
|
|
|
|
2006-04-04 16:25:52 +08:00
|
|
|
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.)
|
|
|
|
|
|
1999-12-30 02:11:48 +08:00
|
|
|
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
|
2001-07-06 12:58:11 +08:00
|
|
|
Lesser General Public License for more details.
|
1999-12-30 02:11:48 +08:00
|
|
|
|
2001-07-06 12:58:11 +08:00
|
|
|
You should have received a copy of the GNU Lesser General Public
|
2012-02-10 07:18:22 +08:00
|
|
|
License along with the GNU C Library; if not, see
|
Prefer https to http for gnu.org and fsf.org URLs
Also, change sources.redhat.com to sourceware.org.
This patch was automatically generated by running the following shell
script, which uses GNU sed, and which avoids modifying files imported
from upstream:
sed -ri '
s,(http|ftp)(://(.*\.)?(gnu|fsf|sourceware)\.org($|[^.]|\.[^a-z])),https\2,g
s,(http|ftp)(://(.*\.)?)sources\.redhat\.com($|[^.]|\.[^a-z]),https\2sourceware.org\4,g
' \
$(find $(git ls-files) -prune -type f \
! -name '*.po' \
! -name 'ChangeLog*' \
! -path COPYING ! -path COPYING.LIB \
! -path manual/fdl-1.3.texi ! -path manual/lgpl-2.1.texi \
! -path manual/texinfo.tex ! -path scripts/config.guess \
! -path scripts/config.sub ! -path scripts/install-sh \
! -path scripts/mkinstalldirs ! -path scripts/move-if-change \
! -path INSTALL ! -path locale/programs/charmap-kw.h \
! -path po/libc.pot ! -path sysdeps/gnu/errlist.c \
! '(' -name configure \
-execdir test -f configure.ac -o -f configure.in ';' ')' \
! '(' -name preconfigure \
-execdir test -f preconfigure.ac ';' ')' \
-print)
and then by running 'make dist-prepare' to regenerate files built
from the altered files, and then executing the following to cleanup:
chmod a+x sysdeps/unix/sysv/linux/riscv/configure
# Omit irrelevant whitespace and comment-only changes,
# perhaps from a slightly-different Autoconf version.
git checkout -f \
sysdeps/csky/configure \
sysdeps/hppa/configure \
sysdeps/riscv/configure \
sysdeps/unix/sysv/linux/csky/configure
# Omit changes that caused a pre-commit check to fail like this:
# remote: *** error: sysdeps/powerpc/powerpc64/ppc-mcount.S: trailing lines
git checkout -f \
sysdeps/powerpc/powerpc64/ppc-mcount.S \
sysdeps/unix/sysv/linux/s390/s390-64/syscall.S
# Omit change that caused a pre-commit check to fail like this:
# remote: *** error: sysdeps/sparc/sparc64/multiarch/memcpy-ultra3.S: last line does not end in newline
git checkout -f sysdeps/sparc/sparc64/multiarch/memcpy-ultra3.S
2019-09-07 13:40:42 +08:00
|
|
|
<https://www.gnu.org/licenses/>. */
|
1999-12-30 02:11:48 +08:00
|
|
|
|
2015-03-10 08:32:29 +08:00
|
|
|
#ifndef SOFT_FP_OP_8_H
|
|
|
|
|
#define SOFT_FP_OP_8_H 1
|
|
|
|
|
|
1999-12-30 02:11:48 +08:00
|
|
|
/* We need just a few things from here for op-4, if we ever need some
|
2014-09-18 06:20:45 +08:00
|
|
|
other macros, they can be added. */
|
1999-12-30 02:11:48 +08:00
|
|
|
#define _FP_FRAC_DECL_8(X) _FP_W_TYPE X##_f[8]
|
soft-fp: Add implementation for 128 bit self-contained
Here only add the implementation when building the RV32 port.
These macros are used when the following situations occur at the same
time: soft-fp fma, ldbl-128 and 32-bit _FP_W_TYPE_SIZE. The RISC-V
32-bit port is the first port which use all three together.
This is the building flow about the situation:
When building soft-fp/s_fmal.c, there uses the FP_FMA_Q in __fmal.
The _FP_W_TYPE_SIZE is defined to 32-bit in sysdeps/riscv/sfp-machine.h,
so the FP_FMA_Q was defined to _FP_FMA (Q, 4, 8, R, X, Y, Z) in
soft-fp/quad.h.
Something in the soft-fp/quad.h:
#if _FP_W_TYPE_SIZE < 64
# define FP_FMA_Q(R, X, Y, Z) _FP_FMA (Q, 4, 8, R, X, Y, Z)
#else
# define FP_FMA_Q(R, X, Y, Z) _FP_FMA (Q, 2, 4, R, X, Y, Z)
#endif
Finally, in _FP_FMA (fs, wc, dwc, R, X, Y, Z), it will use the
_FP_FRAC_HIGHBIT_DW_##dwc macro, and it will be expanded to
_FP_FRAC_HIGHBIT_DW_8, but the _FP_FRAC_HIGHBIT_DW_8 is not be
implemented in soft-fp/op-8.h. there is only _FP_FRAC_HIGHBIT_DW_1,
_FP_FRAC_HIGHBIT_DW_2 and _FP_FRAC_HIGHBIT_DW_4 in the
soft-fp/op-*.h.
After this modification, we can pass the soft floating testing of glibc
testsuites on RV32.
* soft-fp/op-8.h (_FP_FRAC_SET_8, _FP_FRAC_ADD_8, _FP_FRAC_SUB_8)
(_FP_FRAC_CLZ_8, _FP_MINFRAC_8, _FP_FRAC_NEGP_8, _FP_FRAC_ZEROP_8)
(_FP_FRAC_HIGHBIT_DW_8, _FP_FRAC_COPY_4_8, _FP_FRAC_COPY_8_4)
(__FP_FRAC_SET_8): Add implementation for RV32 use.
2018-11-02 02:22:00 +08:00
|
|
|
#define _FP_FRAC_SET_8(X, I) __FP_FRAC_SET_8 (X, I)
|
1999-12-30 02:11:48 +08:00
|
|
|
#define _FP_FRAC_HIGH_8(X) (X##_f[7])
|
|
|
|
|
#define _FP_FRAC_LOW_8(X) (X##_f[0])
|
2013-10-16 09:22:21 +08:00
|
|
|
#define _FP_FRAC_WORD_8(X, w) (X##_f[w])
|
1999-12-30 02:11:48 +08:00
|
|
|
|
2014-07-01 01:37:10 +08:00
|
|
|
#define _FP_FRAC_SLL_8(X, N) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_SLL_8_up, _FP_FRAC_SLL_8_down; \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_SLL_8_skip, _FP_FRAC_SLL_8_i; \
|
|
|
|
|
_FP_FRAC_SLL_8_skip = (N) / _FP_W_TYPE_SIZE; \
|
|
|
|
|
_FP_FRAC_SLL_8_up = (N) % _FP_W_TYPE_SIZE; \
|
|
|
|
|
_FP_FRAC_SLL_8_down = _FP_W_TYPE_SIZE - _FP_FRAC_SLL_8_up; \
|
|
|
|
|
if (!_FP_FRAC_SLL_8_up) \
|
|
|
|
|
for (_FP_FRAC_SLL_8_i = 7; \
|
|
|
|
|
_FP_FRAC_SLL_8_i >= _FP_FRAC_SLL_8_skip; \
|
|
|
|
|
--_FP_FRAC_SLL_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SLL_8_i] \
|
|
|
|
|
= X##_f[_FP_FRAC_SLL_8_i-_FP_FRAC_SLL_8_skip]; \
|
|
|
|
|
else \
|
|
|
|
|
{ \
|
|
|
|
|
for (_FP_FRAC_SLL_8_i = 7; \
|
|
|
|
|
_FP_FRAC_SLL_8_i > _FP_FRAC_SLL_8_skip; \
|
|
|
|
|
--_FP_FRAC_SLL_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SLL_8_i] \
|
|
|
|
|
= ((X##_f[_FP_FRAC_SLL_8_i-_FP_FRAC_SLL_8_skip] \
|
|
|
|
|
<< _FP_FRAC_SLL_8_up) \
|
|
|
|
|
| (X##_f[_FP_FRAC_SLL_8_i-_FP_FRAC_SLL_8_skip-1] \
|
|
|
|
|
>> _FP_FRAC_SLL_8_down)); \
|
|
|
|
|
X##_f[_FP_FRAC_SLL_8_i--] = X##_f[0] << _FP_FRAC_SLL_8_up; \
|
|
|
|
|
} \
|
|
|
|
|
for (; _FP_FRAC_SLL_8_i >= 0; --_FP_FRAC_SLL_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SLL_8_i] = 0; \
|
|
|
|
|
} \
|
2013-10-15 08:17:35 +08:00
|
|
|
while (0)
|
1999-12-30 02:11:48 +08:00
|
|
|
|
2014-07-01 01:37:10 +08:00
|
|
|
#define _FP_FRAC_SRL_8(X, N) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_SRL_8_up, _FP_FRAC_SRL_8_down; \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_SRL_8_skip, _FP_FRAC_SRL_8_i; \
|
|
|
|
|
_FP_FRAC_SRL_8_skip = (N) / _FP_W_TYPE_SIZE; \
|
|
|
|
|
_FP_FRAC_SRL_8_down = (N) % _FP_W_TYPE_SIZE; \
|
|
|
|
|
_FP_FRAC_SRL_8_up = _FP_W_TYPE_SIZE - _FP_FRAC_SRL_8_down; \
|
|
|
|
|
if (!_FP_FRAC_SRL_8_down) \
|
|
|
|
|
for (_FP_FRAC_SRL_8_i = 0; \
|
|
|
|
|
_FP_FRAC_SRL_8_i <= 7-_FP_FRAC_SRL_8_skip; \
|
|
|
|
|
++_FP_FRAC_SRL_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SRL_8_i] \
|
|
|
|
|
= X##_f[_FP_FRAC_SRL_8_i+_FP_FRAC_SRL_8_skip]; \
|
|
|
|
|
else \
|
|
|
|
|
{ \
|
|
|
|
|
for (_FP_FRAC_SRL_8_i = 0; \
|
|
|
|
|
_FP_FRAC_SRL_8_i < 7-_FP_FRAC_SRL_8_skip; \
|
|
|
|
|
++_FP_FRAC_SRL_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SRL_8_i] \
|
|
|
|
|
= ((X##_f[_FP_FRAC_SRL_8_i+_FP_FRAC_SRL_8_skip] \
|
|
|
|
|
>> _FP_FRAC_SRL_8_down) \
|
|
|
|
|
| (X##_f[_FP_FRAC_SRL_8_i+_FP_FRAC_SRL_8_skip+1] \
|
|
|
|
|
<< _FP_FRAC_SRL_8_up)); \
|
|
|
|
|
X##_f[_FP_FRAC_SRL_8_i++] = X##_f[7] >> _FP_FRAC_SRL_8_down; \
|
|
|
|
|
} \
|
|
|
|
|
for (; _FP_FRAC_SRL_8_i < 8; ++_FP_FRAC_SRL_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SRL_8_i] = 0; \
|
|
|
|
|
} \
|
2013-10-15 08:17:35 +08:00
|
|
|
while (0)
|
1999-12-30 02:11:48 +08:00
|
|
|
|
|
|
|
|
|
2013-06-06 04:44:03 +08:00
|
|
|
/* Right shift with sticky-lsb.
|
2014-09-18 06:20:45 +08:00
|
|
|
What this actually means is that we do a standard right-shift,
|
|
|
|
|
but that if any of the bits that fall off the right hand side
|
|
|
|
|
were one then we always set the LSbit. */
|
2013-10-16 09:22:21 +08:00
|
|
|
#define _FP_FRAC_SRS_8(X, N, size) \
|
2013-10-15 08:17:35 +08:00
|
|
|
do \
|
|
|
|
|
{ \
|
2014-07-01 01:37:10 +08:00
|
|
|
_FP_I_TYPE _FP_FRAC_SRS_8_up, _FP_FRAC_SRS_8_down; \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_SRS_8_skip, _FP_FRAC_SRS_8_i; \
|
|
|
|
|
_FP_W_TYPE _FP_FRAC_SRS_8_s; \
|
|
|
|
|
_FP_FRAC_SRS_8_skip = (N) / _FP_W_TYPE_SIZE; \
|
|
|
|
|
_FP_FRAC_SRS_8_down = (N) % _FP_W_TYPE_SIZE; \
|
|
|
|
|
_FP_FRAC_SRS_8_up = _FP_W_TYPE_SIZE - _FP_FRAC_SRS_8_down; \
|
|
|
|
|
for (_FP_FRAC_SRS_8_s = _FP_FRAC_SRS_8_i = 0; \
|
|
|
|
|
_FP_FRAC_SRS_8_i < _FP_FRAC_SRS_8_skip; \
|
|
|
|
|
++_FP_FRAC_SRS_8_i) \
|
|
|
|
|
_FP_FRAC_SRS_8_s |= X##_f[_FP_FRAC_SRS_8_i]; \
|
|
|
|
|
if (!_FP_FRAC_SRS_8_down) \
|
|
|
|
|
for (_FP_FRAC_SRS_8_i = 0; \
|
|
|
|
|
_FP_FRAC_SRS_8_i <= 7-_FP_FRAC_SRS_8_skip; \
|
|
|
|
|
++_FP_FRAC_SRS_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SRS_8_i] \
|
|
|
|
|
= X##_f[_FP_FRAC_SRS_8_i+_FP_FRAC_SRS_8_skip]; \
|
2013-10-15 08:17:35 +08:00
|
|
|
else \
|
|
|
|
|
{ \
|
2014-07-01 01:37:10 +08:00
|
|
|
_FP_FRAC_SRS_8_s \
|
|
|
|
|
|= X##_f[_FP_FRAC_SRS_8_i] << _FP_FRAC_SRS_8_up; \
|
|
|
|
|
for (_FP_FRAC_SRS_8_i = 0; \
|
|
|
|
|
_FP_FRAC_SRS_8_i < 7-_FP_FRAC_SRS_8_skip; \
|
|
|
|
|
++_FP_FRAC_SRS_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SRS_8_i] \
|
|
|
|
|
= ((X##_f[_FP_FRAC_SRS_8_i+_FP_FRAC_SRS_8_skip] \
|
|
|
|
|
>> _FP_FRAC_SRS_8_down) \
|
|
|
|
|
| (X##_f[_FP_FRAC_SRS_8_i+_FP_FRAC_SRS_8_skip+1] \
|
|
|
|
|
<< _FP_FRAC_SRS_8_up)); \
|
|
|
|
|
X##_f[_FP_FRAC_SRS_8_i++] = X##_f[7] >> _FP_FRAC_SRS_8_down; \
|
2013-10-15 08:17:35 +08:00
|
|
|
} \
|
2014-07-01 01:37:10 +08:00
|
|
|
for (; _FP_FRAC_SRS_8_i < 8; ++_FP_FRAC_SRS_8_i) \
|
|
|
|
|
X##_f[_FP_FRAC_SRS_8_i] = 0; \
|
2014-09-18 06:20:45 +08:00
|
|
|
/* Don't fix the LSB until the very end when we're sure f[0] is \
|
|
|
|
|
stable. */ \
|
2014-07-01 01:37:10 +08:00
|
|
|
X##_f[0] |= (_FP_FRAC_SRS_8_s != 0); \
|
2013-10-15 08:17:35 +08:00
|
|
|
} \
|
|
|
|
|
while (0)
|
2015-03-10 08:32:29 +08:00
|
|
|
|
soft-fp: Add implementation for 128 bit self-contained
Here only add the implementation when building the RV32 port.
These macros are used when the following situations occur at the same
time: soft-fp fma, ldbl-128 and 32-bit _FP_W_TYPE_SIZE. The RISC-V
32-bit port is the first port which use all three together.
This is the building flow about the situation:
When building soft-fp/s_fmal.c, there uses the FP_FMA_Q in __fmal.
The _FP_W_TYPE_SIZE is defined to 32-bit in sysdeps/riscv/sfp-machine.h,
so the FP_FMA_Q was defined to _FP_FMA (Q, 4, 8, R, X, Y, Z) in
soft-fp/quad.h.
Something in the soft-fp/quad.h:
#if _FP_W_TYPE_SIZE < 64
# define FP_FMA_Q(R, X, Y, Z) _FP_FMA (Q, 4, 8, R, X, Y, Z)
#else
# define FP_FMA_Q(R, X, Y, Z) _FP_FMA (Q, 2, 4, R, X, Y, Z)
#endif
Finally, in _FP_FMA (fs, wc, dwc, R, X, Y, Z), it will use the
_FP_FRAC_HIGHBIT_DW_##dwc macro, and it will be expanded to
_FP_FRAC_HIGHBIT_DW_8, but the _FP_FRAC_HIGHBIT_DW_8 is not be
implemented in soft-fp/op-8.h. there is only _FP_FRAC_HIGHBIT_DW_1,
_FP_FRAC_HIGHBIT_DW_2 and _FP_FRAC_HIGHBIT_DW_4 in the
soft-fp/op-*.h.
After this modification, we can pass the soft floating testing of glibc
testsuites on RV32.
* soft-fp/op-8.h (_FP_FRAC_SET_8, _FP_FRAC_ADD_8, _FP_FRAC_SUB_8)
(_FP_FRAC_CLZ_8, _FP_MINFRAC_8, _FP_FRAC_NEGP_8, _FP_FRAC_ZEROP_8)
(_FP_FRAC_HIGHBIT_DW_8, _FP_FRAC_COPY_4_8, _FP_FRAC_COPY_8_4)
(__FP_FRAC_SET_8): Add implementation for RV32 use.
2018-11-02 02:22:00 +08:00
|
|
|
#define _FP_FRAC_ADD_8(R, X, Y) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
_FP_W_TYPE _FP_FRAC_ADD_8_c = 0; \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_ADD_8_i; \
|
|
|
|
|
for (_FP_FRAC_ADD_8_i = 0; _FP_FRAC_ADD_8_i < 8; ++_FP_FRAC_ADD_8_i) \
|
|
|
|
|
{ \
|
|
|
|
|
R##_f[_FP_FRAC_ADD_8_i] \
|
|
|
|
|
= (X##_f[_FP_FRAC_ADD_8_i] + Y##_f[_FP_FRAC_ADD_8_i] \
|
|
|
|
|
+ _FP_FRAC_ADD_8_c); \
|
|
|
|
|
_FP_FRAC_ADD_8_c \
|
|
|
|
|
= (_FP_FRAC_ADD_8_c \
|
|
|
|
|
? R##_f[_FP_FRAC_ADD_8_i] <= X##_f[_FP_FRAC_ADD_8_i] \
|
|
|
|
|
: R##_f[_FP_FRAC_ADD_8_i] < X##_f[_FP_FRAC_ADD_8_i]); \
|
|
|
|
|
} \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
|
|
|
|
|
|
|
|
|
#define _FP_FRAC_SUB_8(R, X, Y) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
_FP_W_TYPE _FP_FRAC_SUB_8_tmp[8]; \
|
|
|
|
|
_FP_W_TYPE _FP_FRAC_SUB_8_c = 0; \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_SUB_8_i; \
|
|
|
|
|
for (_FP_FRAC_SUB_8_i = 0; _FP_FRAC_SUB_8_i < 8; ++_FP_FRAC_SUB_8_i) \
|
|
|
|
|
{ \
|
|
|
|
|
_FP_FRAC_SUB_8_tmp[_FP_FRAC_SUB_8_i] \
|
|
|
|
|
= (X##_f[_FP_FRAC_SUB_8_i] - Y##_f[_FP_FRAC_SUB_8_i] \
|
|
|
|
|
- _FP_FRAC_SUB_8_c); \
|
|
|
|
|
_FP_FRAC_SUB_8_c \
|
|
|
|
|
= (_FP_FRAC_SUB_8_c \
|
|
|
|
|
? (_FP_FRAC_SUB_8_tmp[_FP_FRAC_SUB_8_i] \
|
|
|
|
|
>= X##_f[_FP_FRAC_SUB_8_i]) \
|
|
|
|
|
: (_FP_FRAC_SUB_8_tmp[_FP_FRAC_SUB_8_i] \
|
|
|
|
|
> X##_f[_FP_FRAC_SUB_8_i])); \
|
|
|
|
|
} \
|
|
|
|
|
for (_FP_FRAC_SUB_8_i = 0; _FP_FRAC_SUB_8_i < 8; ++_FP_FRAC_SUB_8_i) \
|
|
|
|
|
R##_f[_FP_FRAC_SUB_8_i] = _FP_FRAC_SUB_8_tmp[_FP_FRAC_SUB_8_i]; \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
|
|
|
|
|
|
|
|
|
#define _FP_FRAC_CLZ_8(R, X) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
_FP_I_TYPE _FP_FRAC_CLZ_8_i; \
|
|
|
|
|
for (_FP_FRAC_CLZ_8_i = 7; _FP_FRAC_CLZ_8_i > 0; _FP_FRAC_CLZ_8_i--) \
|
|
|
|
|
if (X##_f[_FP_FRAC_CLZ_8_i]) \
|
|
|
|
|
break; \
|
|
|
|
|
__FP_CLZ ((R), X##_f[_FP_FRAC_CLZ_8_i]); \
|
|
|
|
|
(R) += _FP_W_TYPE_SIZE * (7 - _FP_FRAC_CLZ_8_i); \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
|
|
|
|
|
|
|
|
|
#define _FP_MINFRAC_8 0, 0, 0, 0, 0, 0, 0, 1
|
|
|
|
|
|
|
|
|
|
#define _FP_FRAC_NEGP_8(X) ((_FP_WS_TYPE) X##_f[7] < 0)
|
|
|
|
|
#define _FP_FRAC_ZEROP_8(X) \
|
|
|
|
|
((X##_f[0] | X##_f[1] | X##_f[2] | X##_f[3] \
|
|
|
|
|
| X##_f[4] | X##_f[5] | X##_f[6] | X##_f[7]) == 0)
|
|
|
|
|
#define _FP_FRAC_HIGHBIT_DW_8(fs, X) \
|
|
|
|
|
(_FP_FRAC_HIGH_DW_##fs (X) & _FP_HIGHBIT_DW_##fs)
|
|
|
|
|
|
|
|
|
|
#define _FP_FRAC_COPY_4_8(D, S) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
D##_f[0] = S##_f[0]; \
|
|
|
|
|
D##_f[1] = S##_f[1]; \
|
|
|
|
|
D##_f[2] = S##_f[2]; \
|
|
|
|
|
D##_f[3] = S##_f[3]; \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
|
|
|
|
|
|
|
|
|
#define _FP_FRAC_COPY_8_4(D, S) \
|
|
|
|
|
do \
|
|
|
|
|
{ \
|
|
|
|
|
D##_f[0] = S##_f[0]; \
|
|
|
|
|
D##_f[1] = S##_f[1]; \
|
|
|
|
|
D##_f[2] = S##_f[2]; \
|
|
|
|
|
D##_f[3] = S##_f[3]; \
|
|
|
|
|
D##_f[4] = D##_f[5] = D##_f[6] = D##_f[7]= 0; \
|
|
|
|
|
} \
|
|
|
|
|
while (0)
|
|
|
|
|
|
|
|
|
|
#define __FP_FRAC_SET_8(X, I7, I6, I5, I4, I3, I2, I1, I0) \
|
|
|
|
|
(X##_f[7] = I7, X##_f[6] = I6, X##_f[5] = I5, X##_f[4] = I4, \
|
|
|
|
|
X##_f[3] = I3, X##_f[2] = I2, X##_f[1] = I1, X##_f[0] = I0)
|
|
|
|
|
|
2015-03-10 08:32:29 +08:00
|
|
|
#endif /* !SOFT_FP_OP_8_H */
|
