diff options
Diffstat (limited to 'ports/sysdeps/aarch64/fpu/s_fma.c')
-rw-r--r-- | ports/sysdeps/aarch64/fpu/s_fma.c | 56 |
1 files changed, 54 insertions, 2 deletions
diff --git a/ports/sysdeps/aarch64/fpu/s_fma.c b/ports/sysdeps/aarch64/fpu/s_fma.c index 8f62605870..7d8bd77aae 100644 --- a/ports/sysdeps/aarch64/fpu/s_fma.c +++ b/ports/sysdeps/aarch64/fpu/s_fma.c @@ -1,2 +1,54 @@ -/* Always use dbl-64 version because long double is emulated in software. */ -#include <sysdeps/ieee754/dbl-64/s_fma.c> +/* Copyright (C) 1996-2012 Free Software Foundation, Inc. + + This file is part of the GNU C Library. + + 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. + + 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/>. */ + +#include <math.h> + +#ifndef FUNC +#define FUNC fma +#endif + +#ifndef TYPE +#define TYPE double +#define REGS "d" +#else +#ifndef REGS +#error REGS not defined +#endif +#endif + +#define __CONCATX(a,b) __CONCAT(a,b) + +TYPE +__CONCATX(__,FUNC) (x, y, z) + TYPE x; + TYPE y; + TYPE z; +{ + TYPE result; + asm ( "fmadd" "\t%" REGS "0, %" REGS "1, %" REGS "2, %" REGS "3" + : "=w" (result) : "w" (x), "w" (y), "w" (z) ); + return result; +} + +#define weak_aliasx(a,b) weak_alias(a,b) +weak_aliasx (__CONCATX(__,FUNC), FUNC) +#define strong_aliasx(a,b) strong_alias(a,b) +#ifdef NO_LONG_DOUBLE +strong_aliasx (__CONCATX(__,FUNC), __CONCATX(__,__CONCATX(FUNC,l))) +weak_aliasx (__CONCATX(__,FUNC), __CONCATX(FUNC,l)) +#endif |