sysdeps/libm-i387/s_copysignl.S

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Changes for long double by Ulrich Drepper <drepper@cygnus.com>
   4  * Public domain.
   5  */
   6
   7 #include <machine/asm.h>
   8
   9 RCSID("$NetBSD: $")
  10
  11 ENTRY(__copysignl)
  12         movl    24(%esp),%edx
  13         movl    12(%esp),%eax
  14         andl    $0x8000,%edx
  15         andl    $0x7fff,%eax
  16         orl     %edx,%eax
  17         movl    %eax,12(%esp)
  18         fldl    4(%esp)
  19         ret
  20 weak_alias (__copysignl, copysignl)