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

   1 /*
   2     Copyright (C) 2009-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4  */
   5
   6 #include <inttypes.h>
   7
   8 int64_t __aeabi_lasr(int64_t val, int num)
   9 {
  10     union {
  11         int64_t v64;
  12         struct {
  13             uint32_t lo;
  14             int32_t hi;
  15         } v32;
  16     } u;
  17
  18     if (num == 0)
  19         return val;
  20
  21     if (num > 63)
  22     {
  23         if (val < 0)
  24             return -1;
  25         else
  26             return 0;
  27     }
  28
  29     u.v64 = val;
  30
  31     if (num > 31)
  32     {
  33         u.v32.lo = (uint32_t)(u.v32.hi >> (num - 32));
  34         u.v32.hi >>= 31;
  35     }
  36     else
  37     {
  38         uint32_t reminder = ((uint32_t)u.v32.hi) << (32-num);
  39         u.v32.lo = reminder | (u.v32.lo >> num);
  40         u.v32.hi >>= num;
  41     }
  42
  43     return u.v64;
  44 }