NetBSD/lib/libm/arch/mc68881/e_scalb.S

/*
 * Written by J.T. Conklin <jtc@netbsd.org>.
 * Public domain.
 */

#include <machine/asm.h>

RCSID("$NetBSD: e_scalb.S,v 1.4 1995/05/11 23:03:44 jtc Exp $")

ENTRY(__ieee754_scalb)
	fmoved	sp@(4),fp0
	fbeq	Ldone
	fscaled	sp@(12),fp0
Ldone:
	fmoved	fp0,sp@-
	movel	sp@+,d0
	movel	sp@+,d1
	rts
68881-assisted versions of these functions. 1995-02-18 04:24:42 +03:00			`/*`
Winning Strategies has placed this code in the public domain. 1995-05-12 03:03:44 +04:00			`* Written by J.T. Conklin <jtc@netbsd.org>.`
			`* Public domain.`
68881-assisted versions of these functions. 1995-02-18 04:24:42 +03:00			`*/`

			`#include <machine/asm.h>`

Winning Strategies has placed this code in the public domain. 1995-05-12 03:03:44 +04:00			`RCSID("$NetBSD: e_scalb.S,v 1.4 1995/05/11 23:03:44 jtc Exp $")`
68881-assisted versions of these functions. 1995-02-18 04:24:42 +03:00
			`ENTRY(__ieee754_scalb)`
			`fmoved sp@(4),fp0`
Special case 0, as was done in s_scalbn.S. I'm only doing this for consistancy --- someone really needs to measure whether this optimization is justified. 1995-02-18 04:39:51 +03:00			`fbeq Ldone`
68881-assisted versions of these functions. 1995-02-18 04:24:42 +03:00			`fscaled sp@(12),fp0`
Special case 0, as was done in s_scalbn.S. I'm only doing this for consistancy --- someone really needs to measure whether this optimization is justified. 1995-02-18 04:39:51 +03:00			`Ldone:`
68881-assisted versions of these functions. 1995-02-18 04:24:42 +03:00			`fmoved fp0,sp@-`
			`movel sp@+,d0`
			`movel sp@+,d1`
			`rts`