Index: fusl/src/fenv/sh/fenv.s |
diff --git a/fusl/src/fenv/sh/fenv.s b/fusl/src/fenv/sh/fenv.s |
deleted file mode 100644 |
index 7f5c62778e3f7f82cfdd6c1790cd3e6291fc2aeb..0000000000000000000000000000000000000000 |
--- a/fusl/src/fenv/sh/fenv.s |
+++ /dev/null |
@@ -1,74 +0,0 @@ |
-.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 |