nsz Git - musl/blob - src/math/i386/atan.s

   1 .global atan
   2 .type atan,@function
   3 atan:
   4         fldl 4(%esp)
   5         mov 8(%esp),%eax
   6         add %eax,%eax
   7         cmp $0x00200000,%eax
   8         jb 1f
   9         fld1
  10         fpatan
  11         ret
  12                 # subnormal x, return x with underflow
  13 1:      fnstsw %ax
  14         and $16,%ax
  15         jnz 2f
  16         fsts 4(%esp)
  17 2:      ret