xref: /minix3/lib/libm/arch/mc68881/e_scalb.S (revision 84d9c625bfea59e274550651111ae9edfdc40fbd)
1*84d9c625SLionel Sambuc/*	$NetBSD: e_scalb.S,v 1.9 2003/07/26 19:25:05 salo Exp $	*/
2*84d9c625SLionel Sambuc
3*84d9c625SLionel Sambuc/*
4*84d9c625SLionel Sambuc * Written by J.T. Conklin <jtc@NetBSD.org>.
5*84d9c625SLionel Sambuc * Public domain.
6*84d9c625SLionel Sambuc */
7*84d9c625SLionel Sambuc
8*84d9c625SLionel Sambuc#include <machine/asm.h>
9*84d9c625SLionel Sambuc
10*84d9c625SLionel SambucRCSID("$NetBSD: e_scalb.S,v 1.9 2003/07/26 19:25:05 salo Exp $")
11*84d9c625SLionel Sambuc
12*84d9c625SLionel SambucENTRY(__ieee754_scalb)
13*84d9c625SLionel Sambuc	fmoved	%sp@(4),%fp0
14*84d9c625SLionel Sambuc	fscaled	%sp@(12),%fp0
15*84d9c625SLionel Sambuc#ifndef __SVR4_ABI__
16*84d9c625SLionel Sambuc	fmoved	%fp0,%sp@-
17*84d9c625SLionel Sambuc	movel	%sp@+,%d0
18*84d9c625SLionel Sambuc	movel	%sp@+,%d1
19*84d9c625SLionel Sambuc#endif
20*84d9c625SLionel Sambuc	rts
21