1/* $OpenBSD: e_scalb.S,v 1.4 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 11ENTRY(scalb) 12 XMM_TWO_ARG_DOUBLE_PROLOGUE 13 fldl ARG_DOUBLE_TWO 14 fldl ARG_DOUBLE_ONE 15 fscale 16 fstp %st(1) /* bug fix for fp stack overflow */ 17 XMM_DOUBLE_EPILOGUE 18 ret 19END_NONSTD(scalb) 20