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