nsz Git - musl/blob - src/fenv/armhf/fenv.s

   1 .syntax unified
   2 .fpu vfp
   3
   4 .global fegetround
   5 .type fegetround,%function
   6 fegetround:
   7         fmrx r0, fpscr
   8         and r0, r0, #0xc00000
   9         bx lr
  10
  11 .global __fesetround
  12 .type __fesetround,%function
  13 __fesetround:
  14         fmrx r3, fpscr
  15         bic r3, r3, #0xc00000
  16         orr r3, r3, r0
  17         fmxr fpscr, r3
  18         mov r0, #0
  19         bx lr
  20
  21 .global fetestexcept
  22 .type fetestexcept,%function
  23 fetestexcept:
  24         and r0, r0, #0x1f
  25         fmrx r3, fpscr
  26         and r0, r0, r3
  27         bx lr
  28
  29 .global feclearexcept
  30 .type feclearexcept,%function
  31 feclearexcept:
  32         and r0, r0, #0x1f
  33         fmrx r3, fpscr
  34         bic r3, r3, r0
  35         fmxr fpscr, r3
  36         mov r0, #0
  37         bx lr
  38
  39 .global feraiseexcept
  40 .type feraiseexcept,%function
  41 feraiseexcept:
  42         and r0, r0, #0x1f
  43         fmrx r3, fpscr
  44         orr r3, r3, r0
  45         fmxr fpscr, r3
  46         mov r0, #0
  47         bx lr
  48
  49 .global fegetenv
  50 .type fegetenv,%function
  51 fegetenv:
  52         fmrx r3, fpscr
  53         str r3, [r0]
  54         mov r0, #0
  55         bx lr
  56
  57 .global fesetenv
  58 .type fesetenv,%function
  59 fesetenv:
  60         cmn r0, #1
  61         moveq r3, #0
  62         ldrne r3, [r0]
  63         fmxr fpscr, r3
  64         mov r0, #0
  65         bx lr