sysdeps/x86_64/fpu/s_cosl.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  * Adapted for x86-64 by Andreas Jaeger <aj@suse.de>.
   7  * Fixed errno handling by Ulrich Drepper <drepper@redhat.com>.
   8  */
   9
  10 #define __need_Emath
  11 #include <bits/errno.h>
  12 #include <machine/asm.h>
  13
  14 ENTRY(__cosl)
  15         fldt    8(%rsp)
  16         fxam
  17         fstsw   %ax
  18         movb    $0x45, %dh
  19         andb    %ah, %dh
  20         cmpb    $0x05, %dh
  21         je      3f
  22 4:      fcos
  23         fnstsw  %ax
  24         testl   $0x400,%eax
  25         jnz     1f
  26         ret
  27         .align ALIGNARG(4)
  28 1:      fldpi
  29         fadd    %st(0)
  30         fxch    %st(1)
  31 2:      fprem1
  32         fnstsw  %ax
  33         testl   $0x400,%eax
  34         jnz     2b
  35         fstp    %st(1)
  36         fcos
  37         ret
  38 3:      call    __errno_location@PLT
  39         movl    $EDOM, (%rax)
  40         jmp     4b
  41 END (__cosl)
  42 weak_alias (__cosl, cosl)