1*1bb92983SJerome Forissier // SPDX-License-Identifier: BSD-3-Clause 29403c583SJens Wiklander 39403c583SJens Wiklander /*============================================================================ 49403c583SJens Wiklander 59403c583SJens Wiklander This C source file is part of the SoftFloat IEEE Floating-Point Arithmetic 69403c583SJens Wiklander Package, Release 3a, by John R. Hauser. 79403c583SJens Wiklander 89403c583SJens Wiklander Copyright 2011, 2012, 2013, 2014 The Regents of the University of California. 99403c583SJens Wiklander All rights reserved. 109403c583SJens Wiklander 119403c583SJens Wiklander Redistribution and use in source and binary forms, with or without 129403c583SJens Wiklander modification, are permitted provided that the following conditions are met: 139403c583SJens Wiklander 149403c583SJens Wiklander 1. Redistributions of source code must retain the above copyright notice, 159403c583SJens Wiklander this list of conditions, and the following disclaimer. 169403c583SJens Wiklander 179403c583SJens Wiklander 2. Redistributions in binary form must reproduce the above copyright notice, 189403c583SJens Wiklander this list of conditions, and the following disclaimer in the documentation 199403c583SJens Wiklander and/or other materials provided with the distribution. 209403c583SJens Wiklander 219403c583SJens Wiklander 3. Neither the name of the University nor the names of its contributors may 229403c583SJens Wiklander be used to endorse or promote products derived from this software without 239403c583SJens Wiklander specific prior written permission. 249403c583SJens Wiklander 259403c583SJens Wiklander THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS "AS IS", AND ANY 269403c583SJens Wiklander EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 279403c583SJens Wiklander WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE, ARE 289403c583SJens Wiklander DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE FOR ANY 299403c583SJens Wiklander DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES 309403c583SJens Wiklander (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; 319403c583SJens Wiklander LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND 329403c583SJens Wiklander ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 339403c583SJens Wiklander (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 349403c583SJens Wiklander SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 359403c583SJens Wiklander 369403c583SJens Wiklander =============================================================================*/ 379403c583SJens Wiklander 389403c583SJens Wiklander #include <stdint.h> 399403c583SJens Wiklander #include "platform.h" 409403c583SJens Wiklander #include "internals.h" 419403c583SJens Wiklander #include "softfloat.h" 429403c583SJens Wiklander 439403c583SJens Wiklander #ifdef SOFTFLOAT_FAST_INT64 449403c583SJens Wiklander 459403c583SJens Wiklander void f128M_mulAdd(const float128_t * aPtr,const float128_t * bPtr,const float128_t * cPtr,float128_t * zPtr)469403c583SJens Wiklander f128M_mulAdd( 479403c583SJens Wiklander const float128_t *aPtr, 489403c583SJens Wiklander const float128_t *bPtr, 499403c583SJens Wiklander const float128_t *cPtr, 509403c583SJens Wiklander float128_t *zPtr 519403c583SJens Wiklander ) 529403c583SJens Wiklander { 539403c583SJens Wiklander const uint64_t *aWPtr, *bWPtr, *cWPtr; 549403c583SJens Wiklander uint_fast64_t uiA64, uiA0; 559403c583SJens Wiklander uint_fast64_t uiB64, uiB0; 569403c583SJens Wiklander uint_fast64_t uiC64, uiC0; 579403c583SJens Wiklander 589403c583SJens Wiklander aWPtr = (const uint64_t *) aPtr; 599403c583SJens Wiklander bWPtr = (const uint64_t *) bPtr; 609403c583SJens Wiklander cWPtr = (const uint64_t *) cPtr; 619403c583SJens Wiklander uiA64 = aWPtr[indexWord( 2, 1 )]; 629403c583SJens Wiklander uiA0 = aWPtr[indexWord( 2, 0 )]; 639403c583SJens Wiklander uiB64 = bWPtr[indexWord( 2, 1 )]; 649403c583SJens Wiklander uiB0 = bWPtr[indexWord( 2, 0 )]; 659403c583SJens Wiklander uiC64 = cWPtr[indexWord( 2, 1 )]; 669403c583SJens Wiklander uiC0 = cWPtr[indexWord( 2, 0 )]; 679403c583SJens Wiklander *zPtr = softfloat_mulAddF128( uiA64, uiA0, uiB64, uiB0, uiC64, uiC0, 0 ); 689403c583SJens Wiklander 699403c583SJens Wiklander } 709403c583SJens Wiklander 719403c583SJens Wiklander #else 729403c583SJens Wiklander 739403c583SJens Wiklander void f128M_mulAdd(const float128_t * aPtr,const float128_t * bPtr,const float128_t * cPtr,float128_t * zPtr)749403c583SJens Wiklander f128M_mulAdd( 759403c583SJens Wiklander const float128_t *aPtr, 769403c583SJens Wiklander const float128_t *bPtr, 779403c583SJens Wiklander const float128_t *cPtr, 789403c583SJens Wiklander float128_t *zPtr 799403c583SJens Wiklander ) 809403c583SJens Wiklander { 819403c583SJens Wiklander 829403c583SJens Wiklander softfloat_mulAddF128M( 839403c583SJens Wiklander (const uint32_t *) aPtr, 849403c583SJens Wiklander (const uint32_t *) bPtr, 859403c583SJens Wiklander (const uint32_t *) cPtr, 869403c583SJens Wiklander (uint32_t *) zPtr, 879403c583SJens Wiklander 0 889403c583SJens Wiklander ); 899403c583SJens Wiklander 909403c583SJens Wiklander } 919403c583SJens Wiklander 929403c583SJens Wiklander #endif 939403c583SJens Wiklander 94