1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6#include <machine/asm.h>
7
8RCSID("$NetBSD: s_scalbnf.S,v 1.3 1995/05/09 00:19:59 jtc Exp $")
9
10ENTRY(__scalbnf)
11	fildl	8(%esp)
12	flds	4(%esp)
13	fscale
14	fstp	%st(1)
15	ret
16END (__scalbnf)
17weak_alias (__scalbnf, scalbnf)
18strong_alias (__scalbnf, __scalblnf)
19weak_alias (__scalbnf, scalblnf)
20