arch/i387/s_scalbn.S

     1.1       jtc /*
     1.7      salo  * Written by J.T. Conklin <jtc (at) NetBSD.org>.
     1.3       jtc  * Public domain.
     1.1       jtc  */
     1.1       jtc
     1.1       jtc #include <machine/asm.h>
     1.1       jtc
1.9.12.2       tls RCSID("$NetBSD: s_scalbn.S,v 1.9.12.2 2013/06/23 06:21:07 tls Exp $")
     1.2       jtc
     1.9  drochner #ifdef WEAK_ALIAS
1.9.12.2       tls WEAK_ALIAS(scalbn,_scalbn)
1.9.12.1       tls WEAK_ALIAS(scalbln,_scalbln)
1.9.12.2       tls WEAK_ALIAS(ldexp,_scalbn)
     1.9  drochner #endif
     1.8  drochner #ifdef __x86_64__
1.9.12.1       tls ENTRY(_scalbn)
     1.8  drochner 	movl %edi,-12(%rsp)
     1.8  drochner 	fildl -12(%rsp)
     1.8  drochner 	movsd %xmm0,-8(%rsp)
     1.8  drochner 	fldl -8(%rsp)
     1.8  drochner 	fscale
     1.8  drochner 	fstpl -8(%rsp)
     1.8  drochner 	movsd -8(%rsp),%xmm0
     1.8  drochner 	fstp %st(0)
1.9.12.1       tls 	ret
1.9.12.1       tls #elif defined(STRONG_ALIAS)
1.9.12.1       tls STRONG_ALIAS(_scalbn, scalbln)
1.9.12.1       tls #endif
1.9.12.1       tls
1.9.12.1       tls ENTRY(_scalbln)
1.9.12.1       tls #ifdef __x86_64__
1.9.12.2       tls 	movq %rdi,-16(%rsp)
1.9.12.1       tls 	fildq -16(%rsp)
1.9.12.1       tls 	movsd %xmm0,-8(%rsp)
1.9.12.1       tls 	fldl -8(%rsp)
1.9.12.1       tls 	fscale
1.9.12.1       tls 	fstpl -8(%rsp)
1.9.12.1       tls 	movsd -8(%rsp),%xmm0
1.9.12.1       tls 	fstp %st(0)
     1.8  drochner #else
     1.8  drochner 	fildl 12(%esp)
     1.8  drochner 	fldl 4(%esp)
     1.1       jtc 	fscale
     1.8  drochner 	fstp %st(1)		/* clean up stack */
     1.8  drochner #endif
     1.1       jtc 	ret