xref: /csrg-svn/lib/libc/vax/gen/fabs.s (revision 26676)
1#ifdef LIBC_SCCS
2	.asciz	"@(#)fabs.s	5.2 (Berkeley) 03/09/86"
3#endif LIBC_SCCS
4
5/* fabs - floating absolute value */
6
7#include "DEFS.h"
8
9ENTRY(fabs, 0)
10	movd	4(ap),r0
11	bgeq	1f
12	mnegd	r0,r0
131:
14	ret
15