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 42