1 /* 2 * Written by J.T. Conklin <jtc (at) netbsd.org>. 3 * Public domain. 4 */ 5 6 #include <machine/asm.h> 7 8 RCSID("$NetBSD: s_scalbn.S,v 1.5 1999/01/02 05:15:40 kristerw Exp $") 9 10 ENTRY(scalbn) 11 fildl 12(%esp) 12 fldl 4(%esp) 13 fscale 14 fstp %st(1) /* bug fix for fp stack overflow */ 15 ret 16