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