1169689Skan/* ===-- fixxfdi.c - Implement __fixxfdi -----------------------------------=== 2169689Skan * 3169689Skan * The LLVM Compiler Infrastructure 4169689Skan * 5169689Skan * This file is dual licensed under the MIT and the University of Illinois Open 6169689Skan * Source Licenses. See LICENSE.TXT for details. 7169689Skan * 8169689Skan * ===----------------------------------------------------------------------=== 9169689Skan * 10169689Skan * This file implements __fixxfdi for the compiler_rt library. 11169689Skan * 12169689Skan * ===----------------------------------------------------------------------=== 13169689Skan */ 14169689Skan 15169689Skan#if !_ARCH_PPC 16169689Skan 17169689Skan#include "int_lib.h" 18169689Skan 19169689Skan/* Returns: convert a to a signed long long, rounding toward zero. */ 20169689Skan 21169689Skan/* Assumption: long double is an intel 80 bit floating point type padded with 6 bytes 22169689Skan * su_int is a 32 bit integral type 23169689Skan * value in long double is representable in di_int (no range checking performed) 24169689Skan */ 25169689Skan 26169689Skan/* gggg gggg gggg gggg gggg gggg gggg gggg | gggg gggg gggg gggg seee eeee eeee eeee | 27169689Skan * 1mmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm | mmmm mmmm mmmm mmmm mmmm mmmm mmmm mmmm 28169689Skan */ 29169689Skan 30169689Skandi_int 31169689Skan__fixxfdi(long double a) 32169689Skan{ 33169689Skan long_double_bits fb; 34169689Skan fb.f = a; 35169689Skan int e = (fb.u.high.s.low & 0x00007FFF) - 16383; 36169689Skan if (e < 0) 37169689Skan return 0; 38169689Skan di_int s = -(si_int)((fb.u.high.s.low & 0x00008000) >> 15); 39169689Skan di_int r = fb.u.low.all; 40169689Skan r = (du_int)r >> (63 - e); 41169689Skan return (r ^ s) - s; 42169689Skan} 43169689Skan 44169689Skan#endif /* !_ARCH_PPC */ 45169689Skan