xref: /netbsd-src/lib/libm/arch/mc68881/e_scalb.S (revision 76dfffe33547c37f8bdd446e3e4ab0f3c16cea4b)
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.4 1995/05/11 23:03:44 jtc Exp $")
9
10ENTRY(__ieee754_scalb)
11	fmoved	sp@(4),fp0
12	fbeq	Ldone
13	fscaled	sp@(12),fp0
14Ldone:
15	fmoved	fp0,sp@-
16	movel	sp@+,d0
17	movel	sp@+,d1
18	rts
19