Aren
/
NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
NetBSD/lib/libm/arch/mc68881/e_scalb.S

20 lines
311 B
ArmAsm
Raw Normal View History

68881-assisted versions of these functions.
1995-02-18 04:24:42 +03:00
/*
Winning Strategies has placed this code in the public domain.
1995-05-12 03:03:44 +04:00
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
68881-assisted versions of these functions.
1995-02-18 04:24:42 +03:00
*/
#include <machine/asm.h>
Same reason as for ldexp.S: most applications don't scale 0.0.
1999-08-21 21:29:37 +04:00
RCSID("$NetBSD: e_scalb.S,v 1.6 1999/08/21 17:29:37 is Exp $")
68881-assisted versions of these functions.
1995-02-18 04:24:42 +03:00
ENTRY(__ieee754_scalb)
fmoved sp@(4),fp0
fscaled sp@(12),fp0
Special case 0, as was done in s_scalbn.S. I'm only doing this for consistancy --- someone really needs to measure whether this optimization is justified.
1995-02-18 04:39:51 +03:00
Ldone:
Make these SVR4 ABI ready.
1999-08-15 22:45:18 +04:00
#ifndef __SVR4_ABI__
68881-assisted versions of these functions.
1995-02-18 04:24:42 +03:00
fmoved fp0,sp@-
movel sp@+,d0
movel sp@+,d1
Make these SVR4 ABI ready.
1999-08-15 22:45:18 +04:00
#endif
68881-assisted versions of these functions.
1995-02-18 04:24:42 +03:00
rts