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

   1 .global atan2f
   2 .type atan2f,@function
   3 atan2f:
   4         flds 4(%esp)
   5         flds 8(%esp)
   6         fpatan
   7         fsts 4(%esp)
   8         mov 4(%esp),%eax
   9         add %eax,%eax
  10         cmp $0x01000000,%eax
  11         jae 1f
  12                 # subnormal x, return x with underflow
  13         fnstsw %ax
  14         and $16,%ax
  15         jnz 1f
  16         fld %st(0)
  17         fmul %st(1)
  18         fstps 4(%esp)
  19 1:      ret