diff options
author | tmm <tmm@FreeBSD.org> | 2002-09-14 18:06:21 +0000 |
---|---|---|
committer | tmm <tmm@FreeBSD.org> | 2002-09-14 18:06:21 +0000 |
commit | 6bea77d590307633b95e834cc12e81d7c2dfbb86 (patch) | |
tree | e57beed0d3e33cdd96593d665a5d3d8fd13cb79e /lib/libc/sparc64 | |
parent | 69c3f107e2c8a2eef56249a87c8e192d8f6abe5c (diff) | |
download | FreeBSD-src-6bea77d590307633b95e834cc12e81d7c2dfbb86.zip FreeBSD-src-6bea77d590307633b95e834cc12e81d7c2dfbb86.tar.gz |
Add implementations of fpgetmask(), fpgetround(), fpgetsticky(),
fpsetround(), fpsetsticky(), obtained from NetBSD and tweaked a little
to use definitions from machine/fsr.h instead of magic numbers.
Diffstat (limited to 'lib/libc/sparc64')
-rw-r--r-- | lib/libc/sparc64/gen/Makefile.inc | 3 | ||||
-rw-r--r-- | lib/libc/sparc64/gen/fpgetmask.c | 22 | ||||
-rw-r--r-- | lib/libc/sparc64/gen/fpgetround.c | 21 | ||||
-rw-r--r-- | lib/libc/sparc64/gen/fpgetsticky.c | 21 | ||||
-rw-r--r-- | lib/libc/sparc64/gen/fpsetround.c | 30 | ||||
-rw-r--r-- | lib/libc/sparc64/gen/fpsetsticky.c | 30 |
6 files changed, 126 insertions, 1 deletions
diff --git a/lib/libc/sparc64/gen/Makefile.inc b/lib/libc/sparc64/gen/Makefile.inc index 6cf991a..9024d28 100644 --- a/lib/libc/sparc64/gen/Makefile.inc +++ b/lib/libc/sparc64/gen/Makefile.inc @@ -1,4 +1,5 @@ # $FreeBSD$ -SRCS+= _setjmp.S fabs.S fixunsdfsi.S flt_rounds.c fpsetmask.c frexp.c \ +SRCS+= _setjmp.S fabs.S fixunsdfsi.S flt_rounds.c fpgetmask.c fpgetround.c \ + fpgetsticky.c fpsetmask.c fpsetround.c fpsetsticky.c frexp.c \ infinity.c isinf.c ldexp.c modf.S setjmp.S sigsetjmp.S diff --git a/lib/libc/sparc64/gen/fpgetmask.c b/lib/libc/sparc64/gen/fpgetmask.c new file mode 100644 index 0000000..05b151a --- /dev/null +++ b/lib/libc/sparc64/gen/fpgetmask.c @@ -0,0 +1,22 @@ +/* $NetBSD: fpgetmask.c,v 1.2 2002/01/13 21:45:50 thorpej Exp $ */ + +/* + * Written by J.T. Conklin, Apr 10, 1995 + * Public domain. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + + +#include <machine/fsr.h> +#include <ieeefp.h> + +fp_except_t +fpgetmask() +{ + unsigned int x; + + __asm__("st %%fsr,%0" : "=m" (x)); + return (FSR_GET_TEM(x)); +} diff --git a/lib/libc/sparc64/gen/fpgetround.c b/lib/libc/sparc64/gen/fpgetround.c new file mode 100644 index 0000000..dbc90d7 --- /dev/null +++ b/lib/libc/sparc64/gen/fpgetround.c @@ -0,0 +1,21 @@ +/* $NetBSD: fpgetround.c,v 1.2 2002/01/13 21:45:50 thorpej Exp $ */ + +/* + * Written by J.T. Conklin, Apr 10, 1995 + * Public domain. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + +#include <machine/fsr.h> +#include <ieeefp.h> + +fp_rnd_t +fpgetround() +{ + unsigned int x; + + __asm__("st %%fsr,%0" : "=m" (x)); + return ((fp_rnd_t)FSR_GET_RD(x)); +} diff --git a/lib/libc/sparc64/gen/fpgetsticky.c b/lib/libc/sparc64/gen/fpgetsticky.c new file mode 100644 index 0000000..274566a --- /dev/null +++ b/lib/libc/sparc64/gen/fpgetsticky.c @@ -0,0 +1,21 @@ +/* $NetBSD: fpgetsticky.c,v 1.2 2002/01/13 21:45:50 thorpej Exp $ */ + +/* + * Written by J.T. Conklin, Apr 10, 1995 + * Public domain. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + +#include <machine/fsr.h> +#include <ieeefp.h> + +fp_except_t +fpgetsticky() +{ + unsigned int x; + + __asm__("st %%fsr,%0" : "=m" (x)); + return (FSR_GET_AEXC(x)); +} diff --git a/lib/libc/sparc64/gen/fpsetround.c b/lib/libc/sparc64/gen/fpsetround.c new file mode 100644 index 0000000..1e27f59 --- /dev/null +++ b/lib/libc/sparc64/gen/fpsetround.c @@ -0,0 +1,30 @@ +/* $NetBSD: fpsetround.c,v 1.2 2002/01/13 21:45:51 thorpej Exp $ */ + +/* + * Written by J.T. Conklin, Apr 10, 1995 + * Public domain. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + +#include <machine/fsr.h> +#include <ieeefp.h> + +fp_rnd_t +fpsetround(rnd_dir) + fp_rnd_t rnd_dir; +{ + unsigned int old; + unsigned int new; + + __asm__("st %%fsr,%0" : "=m" (old)); + + new = old; + new &= ~FSR_RD_MASK; + new |= FSR_RD((unsigned int)rnd_dir & 0x03); + + __asm__("ld %0,%%fsr" : : "m" (new)); + + return ((fp_rnd_t)FSR_GET_RD(old)); +} diff --git a/lib/libc/sparc64/gen/fpsetsticky.c b/lib/libc/sparc64/gen/fpsetsticky.c new file mode 100644 index 0000000..61d3d1b --- /dev/null +++ b/lib/libc/sparc64/gen/fpsetsticky.c @@ -0,0 +1,30 @@ +/* $NetBSD: fpsetsticky.c,v 1.2 2002/01/13 21:45:51 thorpej Exp $ */ + +/* + * Written by J.T. Conklin, Apr 10, 1995 + * Public domain. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + +#include <machine/fsr.h> +#include <ieeefp.h> + +fp_except_t +fpsetsticky(sticky) + fp_except_t sticky; +{ + unsigned int old; + unsigned int new; + + __asm__("st %%fsr,%0" : "=m" (old)); + + new = old; + new &= ~FSR_AEXC_MASK; + new |= FSR_AEXC(sticky & FSR_EXC_MASK); + + __asm__("ld %0,%%fsr" : : "m" (new)); + + return (FSR_GET_AEXC(old)); +} |