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
Indexes created Tue Sep 23 07:09:52 GMT 2025