1/*- 2 * Copyright (c) 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Ralph Campbell. 7 * 8 * %sccs.include.redist.c% 9 */ 10 11#include <machine/machAsmDefs.h> 12 13#if defined(LIBC_SCCS) && !defined(lint) 14 ASMSTR("@(#)fabs.s 8.1 (Berkeley) 02/16/94") 15#endif /* LIBC_SCCS and not lint */ 16 17 .set noreorder 18 19/* 20 * fabs(x) 21 * double x; 22 * 23 * Return absolute value of x. 24 */ 25LEAF(fabs) 26 j ra 27 abs.d $f0, $f12 # compute absolute value of x 28END(fabs) 29