NetBSD/lib/libm/arch/mc68881/e_scalb.S

19 lines
296 B
ArmAsm

/*
* Written by J.T. Conklin <jtc@netbsd.org>.
* Public domain.
*/
#include <machine/asm.h>
RCSID("$NetBSD: e_scalb.S,v 1.4 1995/05/11 23:03:44 jtc Exp $")
ENTRY(__ieee754_scalb)
fmoved sp@(4),fp0
fbeq Ldone
fscaled sp@(12),fp0
Ldone:
fmoved fp0,sp@-
movel sp@+,d0
movel sp@+,d1
rts