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

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

#include <machine/asm.h>

RCSID("$NetBSD: e_scalb.S,v 1.5 1999/01/02 05:15:40 kristerw Exp $")

ENTRY(__ieee754_scalb)
	fldl	12(%esp)
	fldl	4(%esp)
	fscale
	fstp	%st(1)			/* bug fix for fp stack overflow */
	ret
More i387 math support, too bad we can't enable it 1994-02-12 04:31:52 +03:00			`/*`
Winning Strategies has placed this code into the Public Domain 1995-04-29 02:43:31 +04:00			`* Written by J.T. Conklin <jtc@netbsd.org>.`
			`* Public domain.`
More i387 math support, too bad we can't enable it 1994-02-12 04:31:52 +03:00			`*/`

			`#include <machine/asm.h>`

The scalb* functions left data on the floting point register stack. Remove it before leaving the function. The solution is taken from OpenBSD. 1999-01-02 08:15:40 +03:00			`RCSID("$NetBSD: e_scalb.S,v 1.5 1999/01/02 05:15:40 kristerw Exp $")`
Added RCS ID's. ID's use new RCSID macro from <machine/asm.h>. 1994-03-12 04:30:22 +03:00
More i387 math support, too bad we can't enable it 1994-02-12 04:31:52 +03:00			`ENTRY(__ieee754_scalb)`
			`fldl 12(%esp)`
			`fldl 4(%esp)`
			`fscale`
The scalb* functions left data on the floting point register stack. Remove it before leaving the function. The solution is taken from OpenBSD. 1999-01-02 08:15:40 +03:00			`fstp %st(1) /* bug fix for fp stack overflow */`
More i387 math support, too bad we can't enable it 1994-02-12 04:31:52 +03:00			`ret`