hc
2025-02-14 bbb9540dc49f70f6b703d1c8d1b85fa5f602d86e
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
/*
 * lshrdi3.c extracted from gcc-2.7.2.3/libgcc2.c and
 *               gcc-2.7.2.3/longlong.h
 *
 * Copyright (C) 1989-2015 Free Software Foundation, Inc.
 *
 * SPDX-License-Identifier:    GPL-2.0+
 */
 
#define BITS_PER_UNIT 8
 
typedef         int SItype    __attribute__ ((mode (SI)));
typedef unsigned int USItype    __attribute__ ((mode (SI)));
typedef         int DItype    __attribute__ ((mode (DI)));
typedef int word_type __attribute__ ((mode (__word__)));
 
struct DIstruct {SItype high, low;};
 
typedef union
{
  struct DIstruct s;
  DItype ll;
} DIunion;
 
DItype __lshrdi3 (DItype u, word_type b)
{
   DIunion w;
   word_type bm;
   DIunion uu;
 
   if (b == 0)
       return u;
 
   uu.ll = u;
 
   bm = (sizeof (SItype) * BITS_PER_UNIT) - b;
   if (bm <= 0)
   {
       w.s.high = 0;
       w.s.low = (USItype)uu.s.high >> -bm;
   }
   else
   {
       USItype carries = (USItype)uu.s.high << bm;
       w.s.high = (USItype)uu.s.high >> b;
       w.s.low = ((USItype)uu.s.low >> b) | carries;
   }
 
   return w.ll;
}