1/* $OpenBSD: s_scalbnf.S,v 1.6 2018/07/03 22:43:34 mortimer Exp $ */ 2/* 3 * Written by J.T. Conklin <jtc@NetBSD.org>. 4 * Public domain. 5 */ 6 7#include <machine/asm.h> 8 9#include "abi.h" 10 11.global ldexpf 12 ldexpf = scalbnf 13 14ENTRY(scalbnf) 15 RETGUARD_SETUP(scalbnf, r11) 16 movss %xmm0,-8(%rsp) 17 movl %edi,-4(%rsp) 18 fildl -4(%rsp) 19 flds -8(%rsp) 20 fscale 21 fstp %st(1) /* bug fix for fp stack overflow */ 22 fstps -8(%rsp) 23 movss -8(%rsp),%xmm0 24 RETGUARD_CHECK(scalbnf, r11) 25 ret 26END_STD(scalbnf) 27