e1857a283cfecb32767ad551207968523e29979a
[dragonfly.git] / lib / libm / arch / i386 / s_scalbnl.S
1 /*
2  * Written by J.T. Conklin <jtc@NetBSD.org>.
3  * Public domain.
4  *
5  * $NetBSD: s_scalbnl.S,v 1.1 2011/07/26 17:03:23 joerg Exp $
6  */
7
8 #include <machine/asm.h>
9
10 ENTRY(scalbnl)
11 #ifdef __x86_64__
12         movl    %edi,-4(%rsp)
13         fildl   -4(%rsp)
14         fldt    8(%rsp)
15         fscale
16         fstp    %st(1)
17 #else
18         fildl 16(%esp)
19         fldt 4(%esp)
20         fscale
21         fstp %st(1)             /* clean up stack */
22 #endif
23         ret
24 END(scalbnl)
25
26         .section .note.GNU-stack,"",%progbits