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