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

   1 .global expf
   2 .type expf,@function
   3 expf:
   4         mov 4(%esp),%eax
   5         flds 4(%esp)
   6         shr $23,%eax
   7         inc %al
   8         jz 1f
   9         jmp 0f
  10
  11 .global exp
  12 .type exp,@function
  13 exp:
  14         mov 8(%esp),%eax
  15         fldl 4(%esp)
  16         shl %eax
  17         cmp $0xffe00000,%eax
  18         jae 1f
  19
  20 0:      fldl2e
  21         fmulp
  22         fst %st(1)
  23         frndint
  24         fst %st(2)
  25         fsubrp
  26         f2xm1
  27         fld1
  28         faddp
  29         fscale
  30         fstp %st(1)
  31         ret
  32
  33 1:      fsts 4(%esp)
  34         cmpl $0xff800000,4(%esp)
  35         jnz 1f
  36         fstp %st(0)
  37         fldz
  38 1:      ret