11.5Sriastrad/*	$NetBSD: fabs.S,v 1.5 2018/11/07 22:21:42 riastradh Exp $	*/
21.3Schristos
31.1Scgd/*
41.1Scgd * Copyright (c) 1992, 1993
51.1Scgd *	The Regents of the University of California.  All rights reserved.
61.1Scgd *
71.1Scgd * This software was developed by the Computer Systems Engineering group
81.1Scgd * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
91.1Scgd * contributed to Berkeley.
101.1Scgd *
111.1Scgd * Redistribution and use in source and binary forms, with or without
121.1Scgd * modification, are permitted provided that the following conditions
131.1Scgd * are met:
141.1Scgd * 1. Redistributions of source code must retain the above copyright
151.1Scgd *    notice, this list of conditions and the following disclaimer.
161.1Scgd * 2. Redistributions in binary form must reproduce the above copyright
171.1Scgd *    notice, this list of conditions and the following disclaimer in the
181.1Scgd *    documentation and/or other materials provided with the distribution.
191.4Sagc * 3. Neither the name of the University nor the names of its contributors
201.1Scgd *    may be used to endorse or promote products derived from this software
211.1Scgd *    without specific prior written permission.
221.1Scgd *
231.1Scgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
241.1Scgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
251.1Scgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
261.1Scgd * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
271.1Scgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
281.1Scgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
291.1Scgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
301.1Scgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
311.1Scgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
321.1Scgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
331.1Scgd * SUCH DAMAGE.
341.1Scgd *
351.1Scgd * from: Header: fabs.s,v 1.4 91/10/07 23:59:05 torek Exp
361.1Scgd */
371.1Scgd
381.3Schristos#include <machine/asm.h>
391.1Scgd#if defined(LIBC_SCCS) && !defined(lint)
401.3Schristos#if 0
411.1Scgd	.asciz "@(#)fabs.s	8.1 (Berkeley) 6/4/93"
421.3Schristos#else
431.5Sriastrad	RCSID("$NetBSD: fabs.S,v 1.5 2018/11/07 22:21:42 riastradh Exp $")
441.3Schristos#endif
451.1Scgd#endif /* LIBC_SCCS and not lint */
461.1Scgd
471.1Scgd/* fabs - floating absolute value */
481.1Scgd
491.5SriastradSTRONG_ALIAS(fabsl, fabs)
501.1Scgd
511.1ScgdENTRY(fabs)
521.1Scgd	std	%o0, [%sp + 32]		! return value => %f0:f1
531.1Scgd	ldd	[%sp + 32], %f0		! (via kernel %o0/%o1 slot)
541.1Scgd	retl
551.1Scgd	 fabss	%f0, %f0		! return absolute value
561.5SriastradEND(fabs)
57