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 "scalbn.S" 9 .text 10#ifdef __x86_64__ 11 .align 8 12#else 13 .align 4 14#endif 15.globl __MINGW_USYMBOL(scalbn) 16 .def __MINGW_USYMBOL(scalbn); .scl 2; .type 32; .endef 17__MINGW_USYMBOL(scalbn): 18#ifdef __x86_64__ 19 subq $24, %rsp 20 movq %rdx,(%rsp) 21 fildl (%rsp) 22 movsd %xmm0,(%rsp) 23 fldl (%rsp) 24 fscale 25 fstp %st(1) 26 fstpl (%rsp) 27 movsd (%rsp),%xmm0 28 addq $24, %rsp 29 ret 30 31#else 32 fildl 12(%esp) 33 fldl 4(%esp) 34 fscale 35 fstp %st(1) 36 ret 37#endif 38 39.globl __MINGW_USYMBOL(scalbln) 40 .set __MINGW_USYMBOL(scalbln),__MINGW_USYMBOL(scalbn) 41 42