Merge branch 'vendor/OPENSSH'
[dragonfly.git] / lib / libm / x86_64 / s_scalbnl.S
1 /*
2  * Based on code written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  *
5  * $NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $
6  * $FreeBSD: head/lib/msun/amd64/s_scalbnl.S 217108 2011-01-07 16:13:12Z kib $
7  */
8
9 #include <machine/asm.h>
10
11 ENTRY(scalbnl)
12         movl    %edi,-4(%rsp)
13         fildl   -4(%rsp)
14         fldt    8(%rsp)
15         fscale
16         fstp    %st(1)
17         ret
18 END(scalbnl)
19
20 .globl  CNAME(ldexpl)
21 .set    CNAME(ldexpl),CNAME(scalbnl)
22
23         .section .note.GNU-stack,"",%progbits