b7833159e03a60a93cdfc581d4a8465ece49c5ef
[dragonfly.git] / lib / libm / i386 / s_scalbnf.S
1 /*
2  * Written by J.T. Conklin <jtc@netbsd.org>.
3  * Public domain.
4  *
5  * $FreeBSD: head/lib/msun/i387/s_scalbnf.S 217108 2011-01-07 16:13:12Z kib $
6  * $NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $
7  */
8
9 #include <machine/asm.h>
10
11 ENTRY(scalbnf)
12         fildl   8(%esp)
13         flds    4(%esp)
14         fscale
15         fstp    %st(1)          /* bug fix for fp stack overflow */
16         ret
17 END(scalbnf)
18
19 .globl CNAME(ldexpf)
20 .set    CNAME(ldexpf),CNAME(scalbnf)
21
22         .section .note.GNU-stack,"",%progbits