Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  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.         .file   "tanl.S"
  11.         .text
  12.         .align 4
  13. .globl _tanl
  14.         .def    _tanl;  .scl    2;      .type   32;     .endef
  15. _tanl:
  16.         fldt    4(%esp)
  17.         fptan
  18.         fnstsw  %ax
  19.         testl   $0x400,%eax
  20.         jnz     1f
  21.         fstp    %st(0)
  22.         ret
  23. 1:      fldpi
  24.         fadd    %st(0)
  25.         fxch    %st(1)
  26. 2:      fprem1
  27.         fstsw   %ax
  28.         testl   $0x400,%eax
  29.         jnz     2b
  30.         fstp    %st(1)
  31.         fptan
  32.         fstp    %st(0)
  33.         ret
  34.