mingwrt/mingwex/math/copysign.S

   1 /*
   2  * Written by J.T. Conklin <jtc@netbsd.org>.
   3  * Public domain.
   4  */
   5
   6         .file   "copysign.S"
   7         .text
   8         .align 4
   9 .globl _copysign
  10         .def    _copysign;      .scl    2;      .type   32;     .endef
  11 _copysign:
  12         movl    16(%esp),%edx
  13         movl    8(%esp),%eax
  14         andl    $0x80000000,%edx
  15         andl    $0x7fffffff,%eax
  16         orl     %edx,%eax
  17         movl    %eax,8(%esp)
  18         fldl    4(%esp)
  19         ret