1 1.1 jtc /* 2 1.7 salo * Written by J.T. Conklin <jtc (at) NetBSD.org>. 3 1.3 jtc * Public domain. 4 1.1 jtc */ 5 1.1 jtc 6 1.1 jtc #include <machine/asm.h> 7 1.1 jtc 8 1.7.6.1 tron RCSID("$NetBSD: s_scalbn.S,v 1.7.6.1 2006/04/04 21:33:38 tron Exp $") 9 1.2 jtc 10 1.1 jtc ENTRY(scalbn) 11 1.7.6.1 tron #ifdef __x86_64__ 12 1.7.6.1 tron movl %edi,-12(%rsp) 13 1.7.6.1 tron fildl -12(%rsp) 14 1.7.6.1 tron movsd %xmm0,-8(%rsp) 15 1.7.6.1 tron fldl -8(%rsp) 16 1.7.6.1 tron fscale 17 1.7.6.1 tron fstpl -8(%rsp) 18 1.7.6.1 tron movsd -8(%rsp),%xmm0 19 1.7.6.1 tron fstp %st(0) 20 1.7.6.1 tron #else 21 1.7.6.1 tron fildl 12(%esp) 22 1.7.6.1 tron fldl 4(%esp) 23 1.1 jtc fscale 24 1.7.6.1 tron fstp %st(1) /* clean up stack */ 25 1.7.6.1 tron #endif 26 1.1 jtc ret 27