1/* $OpenBSD: s_scalbnf.S,v 1.5 2016/09/12 19:47:01 guenther 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 movss %xmm0,-8(%rsp) 16 movl %edi,-4(%rsp) 17 fildl -4(%rsp) 18 flds -8(%rsp) 19 fscale 20 fstp %st(1) /* bug fix for fp stack overflow */ 21 fstps -8(%rsp) 22 movss -8(%rsp),%xmm0 23 ret 24END_STD(scalbnf) 25