Patrick Welche <prlw1@cam.ac.uk>
[netbsd-mini2440.git] / lib / libm / arch / mc68881 / e_scalb.S
blobb984bd5a37f32f4981a0ecafd380fc9223aa5114
1 /*      $NetBSD: e_scalb.S,v 1.8 2000/01/31 18:28:49 kleink Exp $       */
3 /*
4  * Written by J.T. Conklin <jtc@NetBSD.org>.
5  * Public domain.
6  */
8 #include <machine/asm.h>
10 RCSID("$NetBSD: e_scalb.S,v 1.8 2000/01/31 18:28:49 kleink Exp $")
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