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.  * Changes for long double by Ulrich Drepper <drepper@cygnus.com>
  4.  * Public domain.
  5.  */
  6.  
  7.         .file   "copysignl.S"
  8.         .text
  9.         .align 4
  10. .globl _copysignl
  11.         .def    _copysignl;     .scl    2;      .type   32;     .endef
  12. _copysignl:
  13.         movl    24(%esp),%edx
  14.         movl    12(%esp),%eax
  15.         andl    $0x8000,%edx
  16.         andl    $0x7fff,%eax
  17.         orl     %edx,%eax
  18.         movl    %eax,12(%esp)
  19.         fldt    4(%esp)
  20.         ret
  21.