s_scalbnl.S revision 1.1.8.2
1 1.1 joerg /* 2 1.1 joerg * Written by J.T. Conklin <jtc (at) NetBSD.org>. 3 1.1 joerg * Public domain. 4 1.1 joerg */ 5 1.1 joerg 6 1.1 joerg #include <machine/asm.h> 7 1.1 joerg 8 1.1.8.2 tls RCSID("$NetBSD: s_scalbnl.S,v 1.1.8.2 2013/06/23 06:21:07 tls Exp $") 9 1.1 joerg 10 1.1 joerg #ifdef WEAK_ALIAS 11 1.1 joerg WEAK_ALIAS(scalbnl,_scalbnl) 12 1.1.8.1 tls WEAK_ALIAS(scalblnl,_scalblnl) 13 1.1.8.2 tls WEAK_ALIAS(ldexpl,_scalbnl) 14 1.1 joerg #endif 15 1.1 joerg 16 1.1 joerg #ifdef __x86_64__ 17 1.1.8.1 tls ENTRY(_scalbnl) 18 1.1 joerg movl %edi,-4(%rsp) 19 1.1 joerg fildl -4(%rsp) 20 1.1 joerg fldt 8(%rsp) 21 1.1 joerg fscale 22 1.1 joerg fstp %st(1) 23 1.1.8.1 tls ret 24 1.1.8.1 tls #elif defined(STRONG_ALIAS) 25 1.1.8.1 tls STRONG_ALIAS(_scalbnl,_scalblnl) 26 1.1.8.1 tls #endif 27 1.1.8.1 tls 28 1.1.8.1 tls ENTRY(_scalblnl) 29 1.1.8.1 tls #ifdef __x86_64__ 30 1.1.8.2 tls movq %rdi,-8(%rsp) 31 1.1.8.1 tls fildq -8(%rsp) 32 1.1.8.1 tls fldt 8(%rsp) 33 1.1.8.1 tls fscale 34 1.1.8.1 tls fstp %st(1) 35 1.1 joerg #else 36 1.1 joerg fildl 16(%esp) 37 1.1 joerg fldt 4(%esp) 38 1.1 joerg fscale 39 1.1 joerg fstp %st(1) /* clean up stack */ 40 1.1 joerg #endif 41 1.1 joerg ret 42
Indexes created Mon Oct 20 11:09:49 GMT 2025