| OLD | NEW |
| (Empty) |
| 1 .global fegetround | |
| 2 .type fegetround, @function | |
| 3 fegetround: | |
| 4 sts fpscr, r0 | |
| 5 rts | |
| 6 and #3, r0 | |
| 7 | |
| 8 .global __fesetround | |
| 9 .type __fesetround, @function | |
| 10 __fesetround: | |
| 11 sts fpscr, r0 | |
| 12 or r4, r0 | |
| 13 lds r0, fpscr | |
| 14 rts | |
| 15 mov #0, r0 | |
| 16 | |
| 17 .global fetestexcept | |
| 18 .type fetestexcept, @function | |
| 19 fetestexcept: | |
| 20 sts fpscr, r0 | |
| 21 and r4, r0 | |
| 22 rts | |
| 23 and #0x7c, r0 | |
| 24 | |
| 25 .global feclearexcept | |
| 26 .type feclearexcept, @function | |
| 27 feclearexcept: | |
| 28 mov r4, r0 | |
| 29 and #0x7c, r0 | |
| 30 not r0, r4 | |
| 31 sts fpscr, r0 | |
| 32 and r4, r0 | |
| 33 lds r0, fpscr | |
| 34 rts | |
| 35 mov #0, r0 | |
| 36 | |
| 37 .global feraiseexcept | |
| 38 .type feraiseexcept, @function | |
| 39 feraiseexcept: | |
| 40 mov r4, r0 | |
| 41 and #0x7c, r0 | |
| 42 sts fpscr, r4 | |
| 43 or r4, r0 | |
| 44 lds r0, fpscr | |
| 45 rts | |
| 46 mov #0, r0 | |
| 47 | |
| 48 .global fegetenv | |
| 49 .type fegetenv, @function | |
| 50 fegetenv: | |
| 51 sts fpscr, r0 | |
| 52 mov.l r0, @r4 | |
| 53 rts | |
| 54 mov #0, r0 | |
| 55 | |
| 56 .global fesetenv | |
| 57 .type fesetenv, @function | |
| 58 fesetenv: | |
| 59 mov r4, r0 | |
| 60 cmp/eq #-1, r0 | |
| 61 bf 1f | |
| 62 | |
| 63 ! the default environment is complicated by the fact that we need to | |
| 64 ! preserve the current precision bit, which we do not know a priori | |
| 65 sts fpscr, r0 | |
| 66 mov #8, r1 | |
| 67 swap.w r1, r1 | |
| 68 bra 2f | |
| 69 and r1, r0 | |
| 70 | |
| 71 1: mov.l @r4, r0 ! non-default environment | |
| 72 2: lds r0, fpscr | |
| 73 rts | |
| 74 mov #0, r0 | |
| OLD | NEW |