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