@@ -0,0 +1,46 @@
+.global exp2f
+.type exp2f,@function
+exp2f:
+ flds 4(%esp)
+ jmp 1f
+
+.global exp2l
+.type exp2l,@function
+exp2l:
+ fldt 4(%esp)
+.global expf
+.type expf,@function
+expf:
+ jmp 2f
+.global expl
+.type expl,@function
+expl:
+.global exp
+.type exp,@function
+exp:
+ fldl 4(%esp)
+2: fldl2e
+ fmulp
+.global exp2
+.type exp2,@function
+exp2:
+1: fld %st(0)
+ frndint
+ fxch %st(1)
+ fsub %st(1)
+ f2xm1
+ fld1
+ faddp
+ fscale
+ fstp %st(1)
+ ret
@@ -0,0 +1 @@
+# see exp.s
@@ -0,0 +1,36 @@
+.global expm1f
+.type expm1f,@function
+expm1f:
+.global expm1l
+.type expm1l,@function
+expm1l:
+.global expm1
+.type expm1,@function
+expm1:
+1: fldl2e
+ fld %st(0)
+ fldz
+ fcompi
+ jnz 1f
+ fstp %st(0)
+1: fxch %st(1)
+ fsubrp
+# see expm1.s