xref: /netbsd-src/lib/libm/arch/i387/e_scalb.S (revision 481fca6e59249d8ffcf24fef7cfbe7b131bfb080)
1/*
2 * Written by J.T. Conklin <jtc@netbsd.org>.
3 * Public domain.
4 */
5
6#include <machine/asm.h>
7
8RCSID("$NetBSD: e_scalb.S,v 1.5 1999/01/02 05:15:40 kristerw Exp $")
9
10ENTRY(__ieee754_scalb)
11	fldl	12(%esp)
12	fldl	4(%esp)
13	fscale
14	fstp	%st(1)			/* bug fix for fp stack overflow */
15	ret
16