fixunsdfsi.S revision 1.2
1 1.2 eeh /* $NetBSD: fixunsdfsi.S,v 1.2 1999/04/04 21:01:39 eeh 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.1 eeh * 3. All advertising materials mentioning features or use of this software 20 1.1 eeh * must display the following acknowledgement: 21 1.1 eeh * This product includes software developed by the University of 22 1.1 eeh * California, Berkeley and its contributors. 23 1.1 eeh * 4. Neither the name of the University nor the names of its contributors 24 1.1 eeh * may be used to endorse or promote products derived from this software 25 1.1 eeh * without specific prior written permission. 26 1.1 eeh * 27 1.1 eeh * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 28 1.1 eeh * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 29 1.1 eeh * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 30 1.1 eeh * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 31 1.1 eeh * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 32 1.1 eeh * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 33 1.1 eeh * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 34 1.1 eeh * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 35 1.1 eeh * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 36 1.1 eeh * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 37 1.1 eeh * SUCH DAMAGE. 38 1.1 eeh * 39 1.1 eeh * from: Header: fixunsdfsi.s,v 1.3 91/10/08 00:03:15 torek Exp 40 1.1 eeh */ 41 1.1 eeh 42 1.1 eeh #include <machine/asm.h> 43 1.2 eeh #define _LOCORE 44 1.2 eeh #include <machine/frame.h> 45 1.1 eeh #if defined(LIBC_SCCS) && !defined(lint) 46 1.1 eeh #if 0 47 1.1 eeh .asciz "@(#)fixunsdfsi.s 8.1 (Berkeley) 6/4/93" 48 1.1 eeh #else 49 1.2 eeh RCSID("$NetBSD: fixunsdfsi.S,v 1.2 1999/04/04 21:01:39 eeh Exp $") 50 1.1 eeh #endif 51 1.1 eeh #endif /* LIBC_SCCS and not lint */ 52 1.1 eeh 53 1.1 eeh /* 54 1.1 eeh * Convert double to unsigned integer (for gcc). 55 1.1 eeh * 56 1.1 eeh * I have made the output for NaN agree with the Sun compiler, not 57 1.1 eeh * that it really matters, by using `fbul,a'. 58 1.1 eeh */ 59 1.1 eeh 60 1.1 eeh 61 1.1 eeh .align 8 62 1.1 eeh Lbig: 63 1.1 eeh .word 0x41e00000 ! .double 0r2147483648.0e+00 64 1.1 eeh .word 0 ! (who me, not trust the assembler?) 65 1.1 eeh 66 1.1 eeh ENTRY(__fixunsdfsi) 67 1.1 eeh sub %sp, 8, %sp 68 1.1 eeh stx %o0, [%sp + 64 + BIAS] ! get argument into fpu reg 69 1.1 eeh ldd [%sp + 64 + BIAS], %f0 70 1.1 eeh #ifdef PIC 71 1.1 eeh PICCY_SET(Lbig, %g1, %o0) 72 1.1 eeh ldd [%g1], %f2 73 1.1 eeh #else 74 1.1 eeh sethi %hi(Lbig), %g1 75 1.1 eeh ldd [%g1 + %lo(Lbig)], %f2 76 1.1 eeh #endif 77 1.1 eeh fcmped %f0, %f2 ! d < 2^31, or NaN, or -Inf? 78 1.1 eeh nop ! (fpop2 delay) 79 1.1 eeh fbul,a 1f ! if so, use fdtoi to convert to int 80 1.1 eeh fdtoi %f0, %f0 ! (this includes negatives!) 81 1.1 eeh 82 1.1 eeh ! d does not fit in an int, so subtract 2^31, convert, 83 1.1 eeh ! and add 2^31 again (sigh). Just hope the intermediate 84 1.1 eeh ! fits (if not, the result is undefined anyway). 85 1.1 eeh 86 1.1 eeh fsubd %f0, %f2, %f0 ! d -= 2^31 87 1.1 eeh fdtoi %f0, %f0 ! convert to int 88 1.1 eeh st %f0, [%sp + 64 + BIAS] ! move into return reg 89 1.1 eeh ld [%sp + 64 + BIAS], %o0 90 1.1 eeh sethi %hi(0x80000000), %o1 91 1.1 eeh add %o0, %o1, %o0 ! add 2^31 92 1.1 eeh retl 93 1.1 eeh add %sp, 8, %sp 94 1.1 eeh 95 1.1 eeh 1: 96 1.1 eeh st %f0, [%sp + 64 + BIAS] ! return result 97 1.1 eeh ld [%sp + 64 + BIAS], %o0 98 1.2 eeh retl 99 1.2 eeh add %sp, 8, %sp 100 1.2 eeh 101 1.2 eeh /* 102 1.2 eeh * Same as above but to unsigned long 103 1.2 eeh */ 104 1.2 eeh ENTRY(__dtoul) 105 1.2 eeh sub %sp, 8, %sp 106 1.2 eeh stx %o0, [%sp + 64 + BIAS] ! get argument into fpu reg 107 1.2 eeh ldd [%sp + 64 + BIAS], %f0 108 1.2 eeh #ifdef PIC 109 1.2 eeh PICCY_SET(Lbig, %g1, %o0) 110 1.2 eeh ldd [%g1], %f2 111 1.2 eeh #else 112 1.2 eeh sethi %hi(Lbig), %g1 113 1.2 eeh ldd [%g1 + %lo(Lbig)], %f2 114 1.2 eeh #endif 115 1.2 eeh fcmped %f0, %f2 ! d < 2^31, or NaN, or -Inf? 116 1.2 eeh nop ! (fpop2 delay) 117 1.2 eeh fbul,a 1f ! if so, use fdtoi to convert to int 118 1.2 eeh fdtox %f0, %f0 ! (this includes negatives!) 119 1.2 eeh 120 1.2 eeh ! d does not fit in an int, so subtract 2^31, convert, 121 1.2 eeh ! and add 2^31 again (sigh). Just hope the intermediate 122 1.2 eeh ! fits (if not, the result is undefined anyway). 123 1.2 eeh 124 1.2 eeh fsubd %f0, %f2, %f0 ! d -= 2^31 125 1.2 eeh fdtox %f0, %f0 ! convert to int 126 1.2 eeh std %f0, [%sp + 64 + BIAS] ! move into return reg 127 1.2 eeh ldx [%sp + 64 + BIAS], %o0 128 1.2 eeh sethi %hi(0x80000000), %o1 129 1.2 eeh add %o0, %o1, %o0 ! add 2^31 130 1.2 eeh retl 131 1.2 eeh add %sp, 8, %sp 132 1.2 eeh 133 1.2 eeh 1: 134 1.2 eeh std %f0, [%sp + 64 + BIAS] ! return result 135 1.2 eeh ldx [%sp + 64 + BIAS], %o0 136 1.1 eeh retl 137 1.1 eeh add %sp, 8, %sp 138
Indexes created Sat Sep 27 22:09:54 GMT 2025