Blame view

Giac_maj/epsilon-giac/liba/src/aeabi-rt/llsl.c 421 Bytes
6663b6c9   adorian   projet complet av...
1
2
3
4
5
6
7
8
9
10
11
12
13
14
  /* See the "Run-time ABI for the ARM Architecture", Section 4.2 */
  
  typedef unsigned int uint32_t;
  
  long long __aeabi_llsl(long long value, int shift) {
    uint32_t low = (uint32_t)value << shift;
    uint32_t high = ((uint32_t)(value >> 32) << shift);
    if (shift < 32) {
      high |= ((uint32_t)value >> (32 - shift));
    } else {
      high |= ((uint32_t)value << (shift - 32));
    }
    return ((long long)high << 32) | low;
  }