e619140f2b0e87e41e1a55182e19755638134541
[dragonfly.git] / lib / libm / arch / i386 / s_scalbn.S
1 /*
2  * Written by J.T. Conklin <jtc@NetBSD.org>.
3  * Public domain.
4  *
5  * $NetBSD: s_scalbn.S,v 1.9 2010/04/23 19:17:07 drochner Exp $
6  */
7
8 #include <machine/asm.h>
9
10 ENTRY(scalbn)
11 #ifdef __x86_64__
12         movl %edi,-12(%rsp)
13         fildl -12(%rsp)
14         movsd %xmm0,-8(%rsp)
15         fldl -8(%rsp)
16         fscale
17         fstpl -8(%rsp)
18         movsd -8(%rsp),%xmm0
19         fstp %st(0)
20 #else
21         fildl 12(%esp)
22         fldl 4(%esp)
23         fscale
24         fstp %st(1)             /* clean up stack */
25 #endif
26         ret
27 END(scalbn)