winsup/cygwin/math/scalbnl.S

   1 /**
   2  * This file has no copyright assigned and is placed in the Public Domain.
   3  * This file is part of the mingw-w64 runtime package.
   4  * No warranty is given; refer to the file DISCLAIMER.PD within this package.
   5  */
   6 #include <_mingw_mac.h>
   7
   8         .file   "scalbnl.S"
   9         .text
  10 #ifdef __x86_64__
  11         .align 8
  12 #else
  13         .align 4
  14 #endif
  15 .globl __MINGW_USYMBOL(scalbnl)
  16         .def    __MINGW_USYMBOL(scalbnl);       .scl    2;      .type   32;     .endef
  17 __MINGW_USYMBOL(scalbnl):
  18 #ifdef __x86_64__
  19         subq  $24, %rsp
  20         andl    $-1, %r8d
  21         movq    %r8, (%rsp)
  22         fildl   (%rsp)
  23         fldt    (%rdx)
  24         fscale
  25         fstp    %st(1)
  26         movq    %rcx,%rax
  27         movq    $0,8(%rcx)
  28         fstpt   (%rcx)
  29         addq $24, %rsp
  30         ret
  31 #else
  32         fildl   16(%esp)
  33         fldt    4(%esp)
  34         fscale
  35         fstp    %st(1)
  36         ret
  37 #endif
  38
  39 .globl __MINGW_USYMBOL(scalblnl)
  40         .set    __MINGW_USYMBOL(scalblnl),__MINGW_USYMBOL(scalbnl)
  41