fabs.S revision 1.6
11.6Sthorpej/*	$NetBSD: fabs.S,v 1.6 1999/10/25 23:48:10 thorpej Exp $	*/
21.2Sthorpej
31.1Spaulus/*-
41.3Sjtc * Copyright (c) 1996 The NetBSD Foundation, Inc.
51.1Spaulus * All rights reserved.
61.1Spaulus *
71.3Sjtc * This code is derived from software contributed to The NetBSD Foundation
81.3Sjtc * by
91.1Spaulus *
101.1Spaulus * Redistribution and use in source and binary forms, with or without
111.1Spaulus * modification, are permitted provided that the following conditions
121.1Spaulus * are met:
131.1Spaulus * 1. Redistributions of source code must retain the above copyright
141.1Spaulus *    notice, this list of conditions and the following disclaimer.
151.1Spaulus * 2. Redistributions in binary form must reproduce the above copyright
161.1Spaulus *    notice, this list of conditions and the following disclaimer in the
171.1Spaulus *    documentation and/or other materials provided with the distribution.
181.1Spaulus * 3. All advertising materials mentioning features or use of this software
191.1Spaulus *    must display the following acknowledgement:
201.3Sjtc *        This product includes software developed by the NetBSD
211.3Sjtc *        Foundation, Inc. and its contributors.
221.3Sjtc * 4. Neither the name of The NetBSD Foundation nor the names of its
231.3Sjtc *    contributors may be used to endorse or promote products derived
241.3Sjtc *    from this software without specific prior written permission.
251.1Spaulus *
261.3Sjtc * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
271.3Sjtc * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
281.3Sjtc * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
291.4Sjtc * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
301.4Sjtc * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
311.3Sjtc * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
321.3Sjtc * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
331.3Sjtc * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
341.3Sjtc * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
351.3Sjtc * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
361.3Sjtc * POSSIBILITY OF SUCH DAMAGE.
371.1Spaulus */
381.1Spaulus
391.3Sjtc#include <machine/asm.h>
401.2Sthorpej
411.6SthorpejRCSID("$NetBSD: fabs.S,v 1.6 1999/10/25 23:48:10 thorpej Exp $")
421.1Spaulus
431.1SpaulusENTRY(fabs)
441.5Skleink#ifdef __SVR4_ABI__
451.6Sthorpej	bclr	#31,%sp@(4)
461.6Sthorpej	fmoved	%sp@(4),%fp0
471.5Skleink#else
481.6Sthorpej	movl	%sp@(4),%d0
491.6Sthorpej	movl	%sp@(8),%d1
501.6Sthorpej	bclr	#31,%d0
511.5Skleink#endif
521.1Spaulus	rts
53