1140195Sdas/*
2140195Sdas * Written by J.T. Conklin <jtc@netbsd.org>.
3140195Sdas * Public domain.
4140195Sdas */
5140195Sdas
6140195Sdas#include <machine/asm.h>
7140195Sdas
8140195Sdas__FBSDID("$FreeBSD: releng/11.0/lib/msun/i387/s_scalbnf.S 217108 2011-01-07 16:13:12Z kib $");
9140195Sdas/* RCSID("$NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $") */
10140195Sdas
11140195SdasENTRY(scalbnf)
12140195Sdas	fildl	8(%esp)
13140195Sdas	flds	4(%esp)
14140195Sdas	fscale
15140195Sdas	fstp	%st(1)		/* bug fix for fp stack overflow */
16140195Sdas	ret
17192760SattilioEND(scalbnf)
18143205Sdas
19143205Sdas.globl CNAME(ldexpf)
20143205Sdas.set	CNAME(ldexpf),CNAME(scalbnf)
21217108Skib
22217108Skib	.section .note.GNU-stack,"",%progbits
23