xref: /freebsd/lib/msun/i387/s_scalbnl.S (revision 1843dfb05ed80149f5a412180af882e3cb8f451b)
1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6#include <machine/asm.h>
7/* RCSID("$NetBSD: s_scalbnf.S,v 1.4 1999/01/02 05:15:40 kristerw Exp $") */
8
9ENTRY(scalbnl)
10	fildl	16(%esp)
11	fldt	4(%esp)
12	fscale
13	fstp	%st(1)
14	ret
15END(scalbnl)
16
17.globl CNAME(ldexpl)
18.set	CNAME(ldexpl),CNAME(scalbnl)
19
20	.section .note.GNU-stack,"",%progbits
21