arch/arm-all/arm-aeabi/l2d.c

   1 /*
   2     Copyright (C) 2009-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <inttypes.h>
   7
   8 uint64_t __aeabi_ul2d(uint64_t val)
   9 {
  10     uint64_t exp = 0;
  11     uint64_t result = 0;
  12
  13     if (val == 0)
  14         return 0;
  15
  16     exp = __builtin_clzl(val);
  17
  18     if (exp <= 9)
  19         val >>= (10 - exp);
  20     else
  21         val <<= (exp - 10);
  22
  23     if ((val & 1))
  24     {
  25         val ++;
  26         if (0x40000000000000ULL == val) exp++;
  27     }
  28
  29     val >>= 1;
  30     val &= 0xfffffffffffffULL;
  31     exp = 1022 + 64 - exp;
  32
  33     exp <<= 52;
  34     result = val | exp;
  35
  36     return result;
  37 }
  38
  39 uint64_t __aeabi_l2d(int64_t val)
  40 {
  41     if (val == 0)
  42     return 0;
  43
  44     if (val < 0)
  45         return (uint64_t)0x8000000000000000 | __aeabi_ul2d((uint64_t)-val);
  46     else
  47         return __aeabi_ul2d((uint64_t)val);
  48 }