mingwrt/mingwex/math/sinl.s

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  *
   5  * Adapted for `long double' by Ulrich Drepper <drepper@cygnus.com>.
   6  *
   7  * Removed header file dependency for use in libmingwex.a by
   8  *   Danny Smith <dannysmith@users.sourceforge.net>
   9  */
  10
  11         .file   "sinl.s"
  12         .text
  13         .align 4
  14 .globl _sinl
  15         .def    _sinl;  .scl    2;      .type   32;     .endef
  16 _sinl:
  17         fldt    4(%esp)
  18         fsin
  19         fnstsw  %ax
  20         testl   $0x400,%eax
  21         jnz     1f
  22         ret
  23 1:      fldpi
  24         fadd    %st(0)
  25         fxch    %st(1)
  26 2:      fprem1
  27         fnstsw  %ax
  28         testl   $0x400,%eax
  29         jnz     2b
  30         fstp    %st(1)
  31         fsin
  32         ret