[dragonfly.git] / lib / libm / arch / i386 / s_scalbnl.S

/*
 * Written by J.T. Conklin <jtc@NetBSD.org>.
 * Public domain.
 *
 * $NetBSD: s_scalbnl.S,v 1.1 2011/07/26 17:03:23 joerg Exp $
 */

#include <machine/asm.h>

ENTRY(scalbnl)
#ifdef __x86_64__
	movl	%edi,-4(%rsp)
	fildl	-4(%rsp)
	fldt	8(%rsp)
	fscale
	fstp	%st(1)
#else
	fildl 16(%esp)
	fldt 4(%esp)
	fscale
	fstp %st(1)		/* clean up stack */
#endif
	ret
END(scalbnl)

	.section .note.GNU-stack,"",%progbits
Commit	Line	Data
74dfd0cf JM	1	/*
	2	* Written by J.T. Conklin <jtc@NetBSD.org>.
	3	* Public domain.
	4	*
	5	* $NetBSD: s_scalbnl.S,v 1.1 2011/07/26 17:03:23 joerg Exp $
	6	*/
	7
	8	#include <machine/asm.h>
	9
	10	ENTRY(scalbnl)
	11	#ifdef __x86_64__
	12	movl %edi,-4(%rsp)
	13	fildl -4(%rsp)
	14	fldt 8(%rsp)
	15	fscale
	16	fstp %st(1)
	17	#else
	18	fildl 16(%esp)
	19	fldt 4(%esp)
	20	fscale
	21	fstp %st(1) /* clean up stack */
	22	#endif
	23	ret
	24	END(scalbnl)
70e34eb2 JM	25
70e34eb2 JM	26	.section .note.GNU-stack,"",%progbits