winsup/cygwin/math/scalbl.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   "scalbl.S"
   9         .text
  10 #ifdef __x86_64__
  11         .align 8
  12 #else
  13         .align 4
  14 #endif
  15 .globl __MINGW_USYMBOL(scalbl)
  16         .def    __MINGW_USYMBOL(scalbl);        .scl    2;      .type   32;     .endef
  17 __MINGW_USYMBOL(scalbl):
  18 #ifdef __x86_64__
  19         subq  $24, %rsp
  20         fldt    (%r8)
  21         fldt    (%rdx)
  22         fscale
  23         fstp    %st(1)
  24         movq    %rcx,%rax
  25         movq    $0,8(%rcx)
  26         fstpt   (%rcx)
  27         addq $24, %rsp
  28         ret
  29 #else
  30         fildl   16(%esp)
  31         fldt    4(%esp)
  32         fscale
  33         fstp    %st(1)
  34         ret
  35 #endif