Home | History | Annotate | Line # | Download | only in gen
fixunsdfsi.S revision 1.5 
      1  1.5    joerg /*	$NetBSD: fixunsdfsi.S,v 1.5 2013/09/12 15:36:16 joerg Exp $	*/
      2  1.1      eeh 
      3  1.1      eeh /*
      4  1.1      eeh  * Copyright (c) 1992, 1993
      5  1.1      eeh  *	The Regents of the University of California.  All rights reserved.
      6  1.1      eeh  *
      7  1.1      eeh  * This software was developed by the Computer Systems Engineering group
      8  1.1      eeh  * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
      9  1.1      eeh  * contributed to Berkeley.
     10  1.1      eeh  *
     11  1.1      eeh  * Redistribution and use in source and binary forms, with or without
     12  1.1      eeh  * modification, are permitted provided that the following conditions
     13  1.1      eeh  * are met:
     14  1.1      eeh  * 1. Redistributions of source code must retain the above copyright
     15  1.1      eeh  *    notice, this list of conditions and the following disclaimer.
     16  1.1      eeh  * 2. Redistributions in binary form must reproduce the above copyright
     17  1.1      eeh  *    notice, this list of conditions and the following disclaimer in the
     18  1.1      eeh  *    documentation and/or other materials provided with the distribution.
     19  1.4      agc  * 3. Neither the name of the University nor the names of its contributors
     20  1.1      eeh  *    may be used to endorse or promote products derived from this software
     21  1.1      eeh  *    without specific prior written permission.
     22  1.1      eeh  *
     23  1.1      eeh  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24  1.1      eeh  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25  1.1      eeh  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26  1.1      eeh  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27  1.1      eeh  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28  1.1      eeh  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29  1.1      eeh  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30  1.1      eeh  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31  1.1      eeh  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32  1.1      eeh  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33  1.1      eeh  * SUCH DAMAGE.
     34  1.1      eeh  *
     35  1.1      eeh  * from: Header: fixunsdfsi.s,v 1.3 91/10/08 00:03:15 torek Exp
     36  1.1      eeh  */
     37  1.1      eeh 
     38  1.1      eeh #include <machine/asm.h>
     39  1.2      eeh #define _LOCORE
     40  1.2      eeh #include <machine/frame.h>
     41  1.1      eeh #if defined(LIBC_SCCS) && !defined(lint)
     42  1.1      eeh #if 0
     43  1.1      eeh 	.asciz "@(#)fixunsdfsi.s	8.1 (Berkeley) 6/4/93"
     44  1.1      eeh #else
     45  1.5    joerg 	RCSID("$NetBSD: fixunsdfsi.S,v 1.5 2013/09/12 15:36:16 joerg Exp $")
     46  1.1      eeh #endif
     47  1.1      eeh #endif /* LIBC_SCCS and not lint */
     48  1.1      eeh 
     49  1.1      eeh /*
     50  1.1      eeh  * Convert double to unsigned integer (for gcc).
     51  1.1      eeh  *
     52  1.1      eeh  * I have made the output for NaN agree with the Sun compiler, not
     53  1.1      eeh  * that it really matters, by using `fbul,a'.
     54  1.1      eeh  */
     55  1.1      eeh 
     56  1.1      eeh 
     57  1.1      eeh 	.align	8
     58  1.1      eeh Lbig:
     59  1.3  mycroft 	.word	0x43e00000		! .double 2^63
     60  1.1      eeh 	.word	0			! (who me, not trust the assembler?)
     61  1.1      eeh 
     62  1.2      eeh /*
     63  1.2      eeh  * Same as above but to unsigned long
     64  1.2      eeh  */
     65  1.2      eeh ENTRY(__dtoul)
     66  1.3  mycroft 	sub	%sp, 16, %sp
     67  1.3  mycroft 	std	%f2, [%sp + 64 + BIAS + 8]
     68  1.5    joerg #ifdef __PIC__
     69  1.2      eeh 	PICCY_SET(Lbig, %g1, %o0)
     70  1.2      eeh 	ldd	[%g1], %f2
     71  1.2      eeh #else
     72  1.2      eeh 	sethi	%hi(Lbig), %g1
     73  1.2      eeh 	ldd	[%g1 + %lo(Lbig)], %f2
     74  1.2      eeh #endif
     75  1.3  mycroft 	fcmped	%f0, %f2		! d < 2^63, or NaN, or -Inf?
     76  1.2      eeh 	nop				! (fpop2 delay)
     77  1.2      eeh 	fbul,a	1f			! if so, use fdtoi to convert to int
     78  1.3  mycroft 	 fdtox	%f0, %f0		!        (this includes negatives!)
     79  1.2      eeh 
     80  1.3  mycroft 	! d does not fit in an int, so subtract 2^63, convert,
     81  1.3  mycroft 	! and add 2^63 again (sigh).  Just hope the intermediate
     82  1.2      eeh 	! fits (if not, the result is undefined anyway).
     83  1.2      eeh 
     84  1.3  mycroft 	fsubd	%f0, %f2, %f0		! d -= 2^63
     85  1.2      eeh 	fdtox	%f0, %f0		! convert to int
     86  1.2      eeh 	std	%f0, [%sp + 64 + BIAS]	! move into return reg
     87  1.2      eeh 	ldx	[%sp + 64 + BIAS], %o0
     88  1.2      eeh 	sethi	%hi(0x80000000), %o1
     89  1.3  mycroft 	sllx	%o1, 32, %o1
     90  1.3  mycroft 	add	%o0, %o1, %o0		! add 2^63
     91  1.3  mycroft 	ldd	[%sp + 64 + BIAS + 8], %f2
     92  1.2      eeh 	retl
     93  1.3  mycroft 	 add	%sp, 16, %sp
     94  1.2      eeh 
     95  1.2      eeh 1:
     96  1.2      eeh 	std	%f0, [%sp + 64 + BIAS]	! return result
     97  1.2      eeh 	ldx	[%sp + 64 + BIAS], %o0
     98  1.3  mycroft 	ldd	[%sp + 64 + BIAS + 8], %f2
     99  1.1      eeh 	retl
    100  1.3  mycroft 	 add	%sp, 16, %sp
    101