1 /* $NetBSD: e_scalb.S,v 1.8 2000/01/31 18:28:49 kleink Exp $ */ 2 3 /* 4 * Written by J.T. Conklin <jtc (at) netbsd.org>. 5 * Public domain. 6 */ 7 8 #include <machine/asm.h> 9 10 RCSID("$NetBSD: e_scalb.S,v 1.8 2000/01/31 18:28:49 kleink Exp $") 11 12 ENTRY(__ieee754_scalb) 13 fmoved %sp@(4),%fp0 14 fscaled %sp@(12),%fp0 15 #ifndef __SVR4_ABI__ 16 fmoved %fp0,%sp@- 17 movel %sp@+,%d0 18 movel %sp@+,%d1 19 #endif 20 rts 21