1/* $OpenBSD: e_scalb.S,v 1.3 2008/09/07 20:36:08 martynas 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 19