diff options
author | Marcus Shawcroft <marcus.shawcroft@linaro.org> | 2012-11-19 15:15:18 +0000 |
---|---|---|
committer | Marcus Shawcroft <marcus.shawcroft@linaro.org> | 2012-11-19 15:15:18 +0000 |
commit | a6d9783fe7b844ed10495ef3b01c04bd1f499c22 (patch) | |
tree | 02ddb8221a3864c2941a837825ed4a14196a4948 /ports/sysdeps/aarch64/fpu/s_lrint.c | |
parent | cfde9b463d63092ff0908d4c2748ace648e2ead8 (diff) | |
download | glibc-a6d9783fe7b844ed10495ef3b01c04bd1f499c22.tar.gz glibc-a6d9783fe7b844ed10495ef3b01c04bd1f499c22.tar.xz glibc-a6d9783fe7b844ed10495ef3b01c04bd1f499c22.zip |
AArch64: Adding optimized maths functions.
Diffstat (limited to 'ports/sysdeps/aarch64/fpu/s_lrint.c')
-rw-r--r-- | ports/sysdeps/aarch64/fpu/s_lrint.c | 60 |
1 files changed, 60 insertions, 0 deletions
diff --git a/ports/sysdeps/aarch64/fpu/s_lrint.c b/ports/sysdeps/aarch64/fpu/s_lrint.c new file mode 100644 index 0000000000..a5ad1eaebf --- /dev/null +++ b/ports/sysdeps/aarch64/fpu/s_lrint.c @@ -0,0 +1,60 @@ +/* Copyright (C) 1996, 1997, 2011, 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 lrint +#endif + +#ifndef ITYPE +#define ITYPE double +#define IREGS "d" +#else +#ifndef IREGS +#error IREGS not defined +#endif +#endif + +#ifndef OTYPE +#define OTYPE long int +#endif + +#define OREGS "x" + +#define __CONCATX(a,b) __CONCAT(a,b) + +OTYPE +__CONCATX(__,FUNC) (x) + ITYPE x; +{ + OTYPE result; + ITYPE temp; + asm ( "frintx" "\t%" IREGS "1, %" IREGS "2\n\t" + "fcvtzs" "\t%" OREGS "0, %" IREGS "1" + : "=r" (result), "=w" (temp) : "w" (x) ); + 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 |