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