1 1.7 matt /* $NetBSD: quad.h,v 1.7 2012/08/06 02:31:54 matt Exp $ */ 2 1.1 christos 3 1.1 christos /*- 4 1.1 christos * Copyright (c) 1992, 1993 5 1.1 christos * The Regents of the University of California. All rights reserved. 6 1.1 christos * 7 1.1 christos * This software was developed by the Computer Systems Engineering group 8 1.1 christos * at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and 9 1.1 christos * contributed to Berkeley. 10 1.1 christos * 11 1.1 christos * Redistribution and use in source and binary forms, with or without 12 1.1 christos * modification, are permitted provided that the following conditions 13 1.1 christos * are met: 14 1.1 christos * 1. Redistributions of source code must retain the above copyright 15 1.1 christos * notice, this list of conditions and the following disclaimer. 16 1.1 christos * 2. Redistributions in binary form must reproduce the above copyright 17 1.1 christos * notice, this list of conditions and the following disclaimer in the 18 1.1 christos * documentation and/or other materials provided with the distribution. 19 1.1 christos * 3. Neither the name of the University nor the names of its contributors 20 1.1 christos * may be used to endorse or promote products derived from this software 21 1.1 christos * without specific prior written permission. 22 1.1 christos * 23 1.1 christos * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 1.1 christos * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 1.1 christos * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 1.1 christos * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 1.1 christos * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 1.1 christos * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 1.1 christos * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 1.1 christos * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 1.1 christos * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 1.1 christos * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 1.1 christos * SUCH DAMAGE. 34 1.1 christos * 35 1.1 christos * @(#)quad.h 8.1 (Berkeley) 6/4/93 36 1.1 christos */ 37 1.1 christos 38 1.1 christos /* 39 1.1 christos * Quad arithmetic. 40 1.1 christos * 41 1.1 christos * This library makes the following assumptions: 42 1.1 christos * 43 1.1 christos * - The type long long (aka quad_t) exists. 44 1.1 christos * 45 1.1 christos * - A quad variable is exactly twice as long as `int'. 46 1.1 christos * 47 1.1 christos * - The machine's arithmetic is two's complement. 48 1.1 christos * 49 1.1 christos * This library can provide 128-bit arithmetic on a machine with 128-bit 50 1.1 christos * quads and 64-bit ints, for instance, or 96-bit arithmetic on machines 51 1.1 christos * with 48-bit ints. 52 1.1 christos */ 53 1.1 christos 54 1.1 christos #include <sys/types.h> 55 1.1 christos #if !defined(_KERNEL) && !defined(_STANDALONE) 56 1.1 christos #include <limits.h> 57 1.1 christos #else 58 1.1 christos #include <machine/limits.h> 59 1.1 christos #endif 60 1.1 christos 61 1.7 matt #if defined(__ARM_EABI__) && !defined(lint) 62 1.7 matt #define ARM_EABI_ALIAS(alias,sym) __strong_alias(alias,sym); 63 1.7 matt #else 64 1.7 matt #define ARM_EABI_ALIAS(alias,sym) /* nothing */ 65 1.7 matt #endif 66 1.7 matt 67 1.1 christos /* 68 1.1 christos * Depending on the desired operation, we view a `long long' (aka quad_t) in 69 1.1 christos * one or more of the following formats. 70 1.1 christos */ 71 1.1 christos union uu { 72 1.1 christos quad_t q; /* as a (signed) quad */ 73 1.1 christos u_quad_t uq; /* as an unsigned quad */ 74 1.1 christos int sl[2]; /* as two signed ints */ 75 1.1 christos u_int ul[2]; /* as two unsigned ints */ 76 1.1 christos }; 77 1.1 christos 78 1.1 christos /* 79 1.1 christos * Define high and low parts of a quad_t. 80 1.1 christos */ 81 1.1 christos #define H _QUAD_HIGHWORD 82 1.1 christos #define L _QUAD_LOWWORD 83 1.1 christos 84 1.1 christos /* 85 1.1 christos * Total number of bits in a quad_t and in the pieces that make it up. 86 1.1 christos * These are used for shifting, and also below for halfword extraction 87 1.1 christos * and assembly. 88 1.1 christos */ 89 1.1 christos #define QUAD_BITS (sizeof(quad_t) * CHAR_BIT) 90 1.1 christos #define INT_BITS (sizeof(int) * CHAR_BIT) 91 1.1 christos #define HALF_BITS (sizeof(int) * CHAR_BIT / 2) 92 1.1 christos 93 1.1 christos /* 94 1.1 christos * Extract high and low shortwords from longword, and move low shortword of 95 1.1 christos * longword to upper half of long, i.e., produce the upper longword of 96 1.1 christos * ((quad_t)(x) << (number_of_bits_in_int/2)). (`x' must actually be u_int.) 97 1.1 christos * 98 1.1 christos * These are used in the multiply code, to split a longword into upper 99 1.1 christos * and lower halves, and to reassemble a product as a quad_t, shifted left 100 1.1 christos * (sizeof(int)*CHAR_BIT/2). 101 1.1 christos */ 102 1.1 christos #define HHALF(x) ((u_int)(x) >> HALF_BITS) 103 1.5 christos #define LHALF(x) ((u_int)(x) & (((int)1 << (u_int)HALF_BITS) - 1)) 104 1.5 christos #define LHUP(x) ((u_int)(x) << (u_int)HALF_BITS) 105 1.1 christos 106 1.1 christos /* 107 1.1 christos * XXX 108 1.1 christos * Compensate for gcc 1 vs gcc 2. Gcc 1 defines ?sh?di3's second argument 109 1.1 christos * as u_quad_t, while gcc 2 correctly uses int. Unfortunately, we still use 110 1.1 christos * both compilers. 111 1.1 christos */ 112 1.1 christos #if __GNUC_PREREQ__(2, 0) || defined(lint) 113 1.1 christos typedef unsigned int qshift_t; 114 1.1 christos #else 115 1.1 christos typedef u_quad_t qshift_t; 116 1.1 christos #endif 117 1.1 christos 118 1.1 christos __BEGIN_DECLS 119 1.6 matt quad_t __adddi3(quad_t, quad_t); 120 1.6 matt quad_t __anddi3(quad_t, quad_t); 121 1.6 matt quad_t __ashldi3(quad_t, qshift_t); 122 1.6 matt quad_t __ashrdi3(quad_t, qshift_t); 123 1.6 matt int __cmpdi2(quad_t, quad_t); 124 1.6 matt quad_t __divdi3(quad_t, quad_t); 125 1.6 matt quad_t __fixtfdi(long double); 126 1.6 matt quad_t __fixdfdi(double); 127 1.6 matt quad_t __fixsfdi(float); 128 1.6 matt u_quad_t __fixunstfdi(long double); 129 1.6 matt u_quad_t __fixunsdfdi(double); 130 1.6 matt u_quad_t __fixunssfdi(float); 131 1.6 matt long double __floatditf(quad_t); 132 1.6 matt double __floatdidf(quad_t); 133 1.6 matt float __floatdisf(quad_t); 134 1.6 matt long double __floatunditf(u_quad_t); 135 1.6 matt double __floatundidf(u_quad_t); 136 1.6 matt float __floatundisf(u_quad_t); 137 1.6 matt quad_t __iordi3(quad_t, quad_t); 138 1.6 matt quad_t __lshldi3(quad_t, qshift_t); 139 1.6 matt quad_t __lshrdi3(quad_t, qshift_t); 140 1.6 matt quad_t __moddi3(quad_t, quad_t); 141 1.6 matt quad_t __muldi3(quad_t, quad_t); 142 1.6 matt quad_t __negdi2(quad_t); 143 1.6 matt quad_t __one_cmpldi2(quad_t); 144 1.6 matt u_quad_t __qdivrem(u_quad_t, u_quad_t, u_quad_t *); 145 1.6 matt quad_t __subdi3(quad_t, quad_t); 146 1.6 matt int __ucmpdi2(u_quad_t, u_quad_t); 147 1.6 matt u_quad_t __udivdi3(u_quad_t, u_quad_t ); 148 1.6 matt u_quad_t __umoddi3(u_quad_t, u_quad_t ); 149 1.6 matt quad_t __xordi3(quad_t, quad_t); 150 1.1 christos __END_DECLS 151