1570af302Sopenharmony_ci.global atanf 2570af302Sopenharmony_ci.type atanf,@function 3570af302Sopenharmony_ciatanf: 4570af302Sopenharmony_ci flds 4(%esp) 5570af302Sopenharmony_ci mov 4(%esp),%eax 6570af302Sopenharmony_ci add %eax,%eax 7570af302Sopenharmony_ci cmp $0x01000000,%eax 8570af302Sopenharmony_ci jb 1f 9570af302Sopenharmony_ci fld1 10570af302Sopenharmony_ci fpatan 11570af302Sopenharmony_ci fstps 4(%esp) 12570af302Sopenharmony_ci flds 4(%esp) 13570af302Sopenharmony_ci ret 14570af302Sopenharmony_ci # subnormal x, return x with underflow 15570af302Sopenharmony_ci1: fld %st(0) 16570af302Sopenharmony_ci fmul %st(1) 17570af302Sopenharmony_ci fstps 4(%esp) 18570af302Sopenharmony_ci ret 19