9 # subnormal x, return x with underflow
19 .type expm1l,@function
32 # subnormal x, return x with underflow
49 # x*log2e < -65, return -1 without underflow
110 jp 2f # x is nan (avoid invalid except in fistp)
120 faddp # 2^(x-rint(x))
121 fldt (%esp) # 2^rint(x)
137 fsub %st(2) # st(0)=x-rint(x), st(1)=1, st(2)=rint(x)
139 faddp # 2^(x-rint(x))