about summary refs log tree commit diff
path: root/src/fenv/sh/fenv.s
diff options
context:
space:
mode:
authorRich Felker <dalias@aerifal.cx>2014-02-27 22:03:25 -0500
committerRich Felker <dalias@aerifal.cx>2014-02-27 22:03:25 -0500
commitaacd348637e38795dd7ae3c7c8c908d8c0cd24fd (patch)
tree3055797eea08dafe99dcdbd1e7efabd44bcb723b /src/fenv/sh/fenv.s
parentb9f7f2e8762922a1a24d41358164ebe9ae437e31 (diff)
downloadmusl-aacd348637e38795dd7ae3c7c8c908d8c0cd24fd.tar.gz
musl-aacd348637e38795dd7ae3c7c8c908d8c0cd24fd.tar.xz
musl-aacd348637e38795dd7ae3c7c8c908d8c0cd24fd.zip
rename superh port to "sh" for consistency
linux, gcc, etc. all use "sh" as the name for the superh arch. there
was already some inconsistency internally in musl: the dynamic linker
was searching for "ld-musl-sh.path" as its path file despite its own
name being "ld-musl-superh.so.1". there was some sentiment in both
directions as to how to resolve the inconsistency, but overall "sh"
was favored.
Diffstat (limited to 'src/fenv/sh/fenv.s')
-rw-r--r--src/fenv/sh/fenv.s74
1 files changed, 74 insertions, 0 deletions
diff --git a/src/fenv/sh/fenv.s b/src/fenv/sh/fenv.s
new file mode 100644
index 00000000..7f5c6277
--- /dev/null
+++ b/src/fenv/sh/fenv.s
@@ -0,0 +1,74 @@
+.global fegetround
+.type   fegetround, @function
+fegetround:
+	sts fpscr, r0
+	rts
+	 and #3, r0
+
+.global __fesetround
+.type   __fesetround, @function
+__fesetround:
+	sts fpscr, r0
+	or  r4, r0
+	lds r0, fpscr
+	rts
+	 mov #0, r0
+
+.global fetestexcept
+.type   fetestexcept, @function
+fetestexcept:
+	sts fpscr, r0
+	and r4, r0
+	rts
+	 and #0x7c, r0
+
+.global feclearexcept
+.type   feclearexcept, @function
+feclearexcept:
+	mov r4, r0
+	and #0x7c, r0
+	not r0, r4
+	sts fpscr, r0
+	and r4, r0
+	lds r0, fpscr
+	rts
+	 mov #0, r0
+
+.global feraiseexcept
+.type   feraiseexcept, @function
+feraiseexcept:
+	mov r4, r0
+	and #0x7c, r0
+	sts fpscr, r4
+	or  r4, r0
+	lds r0, fpscr
+	rts
+	 mov #0, r0
+
+.global fegetenv
+.type   fegetenv, @function
+fegetenv:
+	sts fpscr, r0
+	mov.l r0, @r4
+	rts
+	 mov #0, r0
+
+.global fesetenv
+.type   fesetenv, @function
+fesetenv:
+	mov r4, r0
+	cmp/eq #-1, r0
+	bf 1f
+
+	! the default environment is complicated by the fact that we need to
+	! preserve the current precision bit, which we do not know a priori
+	sts fpscr, r0
+	mov #8, r1
+	swap.w r1, r1
+	bra 2f
+	 and r1, r0
+
+1:	mov.l @r4, r0      ! non-default environment
+2:	lds r0, fpscr
+	rts
+	 mov #0, r0