← Back to branch summary

~pmdj/ubuntu/trusty/qemu/2.9+applesmc+fadtv3

« back to all changes in this revision

Viewing changes to roms/u-boot/arch/nios2/lib/libgcc.c

  • Committer: Phil Dennis-Jordan
  • Date: 2017-07-21 08:03:43 UTC
  • mfrom: (1.1.1)
  • Revision ID: phil@philjordan.eu-20170721080343-2yr2vdj7713czahv
New upstream release 2.9.0.

Show diffs side-by-side

added added

removed removed

Lines of Context:
roms/u-boot/arch/nios2/lib/libgcc.c
 
1
/*
 
2
 * This file is part of GNU CC.
 
3
 *
 
4
 * SPDX-License-Identifier:     GPL-2.0+
 
5
 */
 
6
 
 
7
typedef unsigned int UWtype;
 
8
typedef unsigned int UHWtype;
 
9
typedef unsigned long long UDWtype;
 
10
#define W_TYPE_SIZE 32
 
11
 
 
12
typedef unsigned char UQItype;
 
13
typedef long SItype;
 
14
typedef unsigned long USItype;
 
15
typedef long long DItype;
 
16
typedef unsigned long long DSItype;
 
17
 
 
18
#include "longlong.h"
 
19
 
 
20
 
 
21
typedef int word_type;
 
22
typedef long Wtype;
 
23
typedef long long DWtype;
 
24
 
 
25
struct DWstruct { Wtype low, high;};
 
26
 
 
27
typedef union
 
28
{
 
29
  struct DWstruct s;
 
30
  DWtype ll;
 
31
} DWunion;
 
32
 
 
33
#define BITS_PER_UNIT 8
 
34
 
 
35
UDWtype
 
36
__udivmoddi4 (UDWtype n, UDWtype d, UDWtype *rp);
 
37
 
 
38
const UQItype __clz_tab[256] =
 
39
{
 
40
  0,1,2,2,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,
 
41
  6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,6,
 
42
  7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
 
43
  7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,
 
44
  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
 
45
  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
 
46
  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,
 
47
  8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
 
48
};
 
49
 
 
50
 
 
51
DWtype
 
52
__ashldi3 (DWtype u, word_type b)
 
53
{
 
54
  if (b == 0)
 
55
    return u;
 
56
 
 
57
  const DWunion uu = {.ll = u};
 
58
  const word_type bm = (sizeof (Wtype) * BITS_PER_UNIT) - b;
 
59
  DWunion w;
 
60
 
 
61
  if (bm <= 0)
 
62
    {
 
63
      w.s.low = 0;
 
64
      w.s.high = (UWtype) uu.s.low << -bm;
 
65
    }
 
66
  else
 
67
    {
 
68
      const UWtype carries = (UWtype) uu.s.low >> bm;
 
69
 
 
70
      w.s.low = (UWtype) uu.s.low << b;
 
71
      w.s.high = ((UWtype) uu.s.high << b) | carries;
 
72
    }
 
73
 
 
74
  return w.ll;
 
75
}
 
76
 
 
77
DWtype
 
78
__ashrdi3 (DWtype u, word_type b)
 
79
{
 
80
  if (b == 0)
 
81
    return u;
 
82
 
 
83
  const DWunion uu = {.ll = u};
 
84
  const word_type bm = (sizeof (Wtype) * BITS_PER_UNIT) - b;
 
85
  DWunion w;
 
86
 
 
87
  if (bm <= 0)
 
88
    {
 
89
      /* w.s.high = 1..1 or 0..0 */
 
90
      w.s.high = uu.s.high >> (sizeof (Wtype) * BITS_PER_UNIT - 1);
 
91
      w.s.low = uu.s.high >> -bm;
 
92
    }
 
93
  else
 
94
    {
 
95
      const UWtype carries = (UWtype) uu.s.high << bm;
 
96
 
 
97
      w.s.high = uu.s.high >> b;
 
98
      w.s.low = ((UWtype) uu.s.low >> b) | carries;
 
99
    }
 
100
 
 
101
  return w.ll;
 
102
}
 
103
 
 
104
DWtype
 
105
__lshrdi3 (DWtype u, word_type b)
 
106
{
 
107
  if (b == 0)
 
108
    return u;
 
109
 
 
110
  const DWunion uu = {.ll = u};
 
111
  const word_type bm = (sizeof (Wtype) * BITS_PER_UNIT) - b;
 
112
  DWunion w;
 
113
 
 
114
  if (bm <= 0)
 
115
    {
 
116
      w.s.high = 0;
 
117
      w.s.low = (UWtype) uu.s.high >> -bm;
 
118
    }
 
119
  else
 
120
    {
 
121
      const UWtype carries = (UWtype) uu.s.high << bm;
 
122
 
 
123
      w.s.high = (UWtype) uu.s.high >> b;
 
124
      w.s.low = ((UWtype) uu.s.low >> b) | carries;
 
125
    }
 
126
 
 
127
  return w.ll;
 
128
}
 
129
 
 
130
word_type
 
131
__cmpdi2 (DWtype a, DWtype b)
 
132
{
 
133
  const DWunion au = {.ll = a};
 
134
  const DWunion bu = {.ll = b};
 
135
 
 
136
  if (au.s.high < bu.s.high)
 
137
    return 0;
 
138
  else if (au.s.high > bu.s.high)
 
139
    return 2;
 
140
  if ((UWtype) au.s.low < (UWtype) bu.s.low)
 
141
    return 0;
 
142
  else if ((UWtype) au.s.low > (UWtype) bu.s.low)
 
143
    return 2;
 
144
  return 1;
 
145
}
 
146
 
 
147
UDWtype
 
148
__udivmoddi4 (UDWtype n, UDWtype d, UDWtype *rp)
 
149
{
 
150
  const DWunion nn = {.ll = n};
 
151
  const DWunion dd = {.ll = d};
 
152
  DWunion rr;
 
153
  UWtype d0, d1, n0, n1, n2;
 
154
  UWtype q0, q1;
 
155
  UWtype b, bm;
 
156
 
 
157
  d0 = dd.s.low;
 
158
  d1 = dd.s.high;
 
159
  n0 = nn.s.low;
 
160
  n1 = nn.s.high;
 
161
 
 
162
#if !UDIV_NEEDS_NORMALIZATION
 
163
  if (d1 == 0)
 
164
    {
 
165
      if (d0 > n1)
 
166
        {
 
167
          /* 0q = nn / 0D */
 
168
 
 
169
          udiv_qrnnd (q0, n0, n1, n0, d0);
 
170
          q1 = 0;
 
171
 
 
172
          /* Remainder in n0.  */
 
173
        }
 
174
      else
 
175
        {
 
176
          /* qq = NN / 0d */
 
177
 
 
178
          if (d0 == 0)
 
179
            d0 = 1 / d0;        /* Divide intentionally by zero.  */
 
180
 
 
181
          udiv_qrnnd (q1, n1, 0, n1, d0);
 
182
          udiv_qrnnd (q0, n0, n1, n0, d0);
 
183
 
 
184
          /* Remainder in n0.  */
 
185
        }
 
186
 
 
187
      if (rp != 0)
 
188
        {
 
189
          rr.s.low = n0;
 
190
          rr.s.high = 0;
 
191
          *rp = rr.ll;
 
192
        }
 
193
    }
 
194
 
 
195
#else /* UDIV_NEEDS_NORMALIZATION */
 
196
 
 
197
  if (d1 == 0)
 
198
    {
 
199
      if (d0 > n1)
 
200
        {
 
201
          /* 0q = nn / 0D */
 
202
 
 
203
          count_leading_zeros (bm, d0);
 
204
 
 
205
          if (bm != 0)
 
206
            {
 
207
              /* Normalize, i.e. make the most significant bit of the
 
208
                 denominator set.  */
 
209
 
 
210
              d0 = d0 << bm;
 
211
              n1 = (n1 << bm) | (n0 >> (W_TYPE_SIZE - bm));
 
212
              n0 = n0 << bm;
 
213
            }
 
214
 
 
215
          udiv_qrnnd (q0, n0, n1, n0, d0);
 
216
          q1 = 0;
 
217
 
 
218
          /* Remainder in n0 >> bm.  */
 
219
        }
 
220
      else
 
221
        {
 
222
          /* qq = NN / 0d */
 
223
 
 
224
          if (d0 == 0)
 
225
            d0 = 1 / d0;        /* Divide intentionally by zero.  */
 
226
 
 
227
          count_leading_zeros (bm, d0);
 
228
 
 
229
          if (bm == 0)
 
230
            {
 
231
              /* From (n1 >= d0) /\ (the most significant bit of d0 is set),
 
232
                 conclude (the most significant bit of n1 is set) /\ (the
 
233
                 leading quotient digit q1 = 1).
 
234
 
 
235
                 This special case is necessary, not an optimization.
 
236
                 (Shifts counts of W_TYPE_SIZE are undefined.)  */
 
237
 
 
238
              n1 -= d0;
 
239
              q1 = 1;
 
240
            }
 
241
          else
 
242
            {
 
243
              /* Normalize.  */
 
244
 
 
245
              b = W_TYPE_SIZE - bm;
 
246
 
 
247
              d0 = d0 << bm;
 
248
              n2 = n1 >> b;
 
249
              n1 = (n1 << bm) | (n0 >> b);
 
250
              n0 = n0 << bm;
 
251
 
 
252
              udiv_qrnnd (q1, n1, n2, n1, d0);
 
253
            }
 
254
 
 
255
          /* n1 != d0...  */
 
256
 
 
257
          udiv_qrnnd (q0, n0, n1, n0, d0);
 
258
 
 
259
          /* Remainder in n0 >> bm.  */
 
260
        }
 
261
 
 
262
      if (rp != 0)
 
263
        {
 
264
          rr.s.low = n0 >> bm;
 
265
          rr.s.high = 0;
 
266
          *rp = rr.ll;
 
267
        }
 
268
    }
 
269
#endif /* UDIV_NEEDS_NORMALIZATION */
 
270
 
 
271
  else
 
272
    {
 
273
      if (d1 > n1)
 
274
        {
 
275
          /* 00 = nn / DD */
 
276
 
 
277
          q0 = 0;
 
278
          q1 = 0;
 
279
 
 
280
          /* Remainder in n1n0.  */
 
281
          if (rp != 0)
 
282
            {
 
283
              rr.s.low = n0;
 
284
              rr.s.high = n1;
 
285
              *rp = rr.ll;
 
286
            }
 
287
        }
 
288
      else
 
289
        {
 
290
          /* 0q = NN / dd */
 
291
 
 
292
          count_leading_zeros (bm, d1);
 
293
          if (bm == 0)
 
294
            {
 
295
              /* From (n1 >= d1) /\ (the most significant bit of d1 is set),
 
296
                 conclude (the most significant bit of n1 is set) /\ (the
 
297
                 quotient digit q0 = 0 or 1).
 
298
 
 
299
                 This special case is necessary, not an optimization.  */
 
300
 
 
301
              /* The condition on the next line takes advantage of that
 
302
                 n1 >= d1 (true due to program flow).  */
 
303
              if (n1 > d1 || n0 >= d0)
 
304
                {
 
305
                  q0 = 1;
 
306
                  sub_ddmmss (n1, n0, n1, n0, d1, d0);
 
307
                }
 
308
              else
 
309
                q0 = 0;
 
310
 
 
311
              q1 = 0;
 
312
 
 
313
              if (rp != 0)
 
314
                {
 
315
                  rr.s.low = n0;
 
316
                  rr.s.high = n1;
 
317
                  *rp = rr.ll;
 
318
                }
 
319
            }
 
320
          else
 
321
            {
 
322
              UWtype m1, m0;
 
323
              /* Normalize.  */
 
324
 
 
325
              b = W_TYPE_SIZE - bm;
 
326
 
 
327
              d1 = (d1 << bm) | (d0 >> b);
 
328
              d0 = d0 << bm;
 
329
              n2 = n1 >> b;
 
330
              n1 = (n1 << bm) | (n0 >> b);
 
331
              n0 = n0 << bm;
 
332
 
 
333
              udiv_qrnnd (q0, n1, n2, n1, d1);
 
334
              umul_ppmm (m1, m0, q0, d0);
 
335
 
 
336
              if (m1 > n1 || (m1 == n1 && m0 > n0))
 
337
                {
 
338
                  q0--;
 
339
                  sub_ddmmss (m1, m0, m1, m0, d1, d0);
 
340
                }
 
341
 
 
342
              q1 = 0;
 
343
 
 
344
              /* Remainder in (n1n0 - m1m0) >> bm.  */
 
345
              if (rp != 0)
 
346
                {
 
347
                  sub_ddmmss (n1, n0, n1, n0, m1, m0);
 
348
                  rr.s.low = (n1 << b) | (n0 >> bm);
 
349
                  rr.s.high = n1 >> bm;
 
350
                  *rp = rr.ll;
 
351
                }
 
352
            }
 
353
        }
 
354
    }
 
355
 
 
356
  const DWunion ww = {{.low = q0, .high = q1}};
 
357
  return ww.ll;
 
358
}
 
359
 
 
360
DWtype
 
361
__divdi3 (DWtype u, DWtype v)
 
362
{
 
363
  word_type c = 0;
 
364
  DWunion uu = {.ll = u};
 
365
  DWunion vv = {.ll = v};
 
366
  DWtype w;
 
367
 
 
368
  if (uu.s.high < 0)
 
369
    c = ~c,
 
370
    uu.ll = -uu.ll;
 
371
  if (vv.s.high < 0)
 
372
    c = ~c,
 
373
    vv.ll = -vv.ll;
 
374
 
 
375
  w = __udivmoddi4 (uu.ll, vv.ll, (UDWtype *) 0);
 
376
  if (c)
 
377
    w = -w;
 
378
 
 
379
  return w;
 
380
}
 
381
 
 
382
DWtype
 
383
__negdi2 (DWtype u)
 
384
{
 
385
  const DWunion uu = {.ll = u};
 
386
  const DWunion w = { {.low = -uu.s.low,
 
387
                       .high = -uu.s.high - ((UWtype) -uu.s.low > 0) } };
 
388
 
 
389
  return w.ll;
 
390
}
 
391
 
 
392
 
 
393
DWtype
 
394
__muldi3 (DWtype u, DWtype v)
 
395
{
 
396
  const DWunion uu = {.ll = u};
 
397
  const DWunion vv = {.ll = v};
 
398
  DWunion  w = {.ll = __umulsidi3 (uu.s.low, vv.s.low)};
 
399
 
 
400
  w.s.high += ((UWtype) uu.s.low * (UWtype) vv.s.high
 
401
  + (UWtype) uu.s.high * (UWtype) vv.s.low);
 
402
 
 
403
  return w.ll;
 
404
}
 
405
 
 
406
DWtype
 
407
__moddi3 (DWtype u, DWtype v)
 
408
{
 
409
  word_type c = 0;
 
410
  DWunion uu = {.ll = u};
 
411
  DWunion vv = {.ll = v};
 
412
  DWtype w;
 
413
 
 
414
  if (uu.s.high < 0)
 
415
    c = ~c,
 
416
    uu.ll = -uu.ll;
 
417
  if (vv.s.high < 0)
 
418
    vv.ll = -vv.ll;
 
419
 
 
420
  (void) __udivmoddi4 (uu.ll, vv.ll, (UDWtype*)&w);
 
421
  if (c)
 
422
    w = -w;
 
423
 
 
424
  return w;
 
425
}
 
426
 
 
427
word_type
 
428
__ucmpdi2 (DWtype a, DWtype b)
 
429
{
 
430
  const DWunion au = {.ll = a};
 
431
  const DWunion bu = {.ll = b};
 
432
 
 
433
  if ((UWtype) au.s.high < (UWtype) bu.s.high)
 
434
    return 0;
 
435
  else if ((UWtype) au.s.high > (UWtype) bu.s.high)
 
436
    return 2;
 
437
  if ((UWtype) au.s.low < (UWtype) bu.s.low)
 
438
    return 0;
 
439
  else if ((UWtype) au.s.low > (UWtype) bu.s.low)
 
440
    return 2;
 
441
  return 1;
 
442
}
 
443
 
 
444
 
 
445
UDWtype
 
446
__udivdi3 (UDWtype n, UDWtype d)
 
447
{
 
448
  return __udivmoddi4 (n, d, (UDWtype *) 0);
 
449
}
 
450
 
 
451
UDWtype
 
452
__umoddi3 (UDWtype u, UDWtype v)
 
453
{
 
454
  UDWtype w;
 
455
  (void) __udivmoddi4 (u, v, &w);
 
456
 
 
457
  return w;
 
458
}
 
459
 
 
460
static USItype
 
461
udivmodsi4(USItype num, USItype den, word_type modwanted)
 
462
{
 
463
  USItype bit = 1;
 
464
  USItype res = 0;
 
465
 
 
466
  while (den < num && bit && !(den & (1L<<31)))
 
467
    {
 
468
      den <<=1;
 
469
      bit <<=1;
 
470
    }
 
471
  while (bit)
 
472
    {
 
473
      if (num >= den)
 
474
        {
 
475
          num -= den;
 
476
          res |= bit;
 
477
        }
 
478
      bit >>=1;
 
479
      den >>=1;
 
480
    }
 
481
  if (modwanted) return num;
 
482
  return res;
 
483
}
 
484
 
 
485
SItype
 
486
__divsi3 (SItype a, SItype b)
 
487
{
 
488
  word_type neg = 0;
 
489
  SItype res;
 
490
 
 
491
  if (a < 0)
 
492
    {
 
493
      a = -a;
 
494
      neg = !neg;
 
495
    }
 
496
 
 
497
  if (b < 0)
 
498
    {
 
499
      b = -b;
 
500
      neg = !neg;
 
501
    }
 
502
 
 
503
  res = udivmodsi4 (a, b, 0);
 
504
 
 
505
  if (neg)
 
506
    res = -res;
 
507
 
 
508
  return res;
 
509
}
 
510
 
 
511
 
 
512
SItype
 
513
__udivsi3 (SItype a, SItype b)
 
514
{
 
515
  return udivmodsi4 (a, b, 0);
 
516
}
 
517
 
 
518
 
 
519
SItype
 
520
__modsi3 (SItype a, SItype b)
 
521
{
 
522
  word_type neg = 0;
 
523
  SItype res;
 
524
 
 
525
  if (a < 0)
 
526
    {
 
527
      a = -a;
 
528
      neg = 1;
 
529
    }
 
530
 
 
531
  if (b < 0)
 
532
    b = -b;
 
533
 
 
534
  res = udivmodsi4 (a, b, 1);
 
535
 
 
536
  if (neg)
 
537
    res = -res;
 
538
 
 
539
  return res;
 
540
}
 
541
 
 
542
SItype
 
543
__mulsi3 (SItype a, SItype b)
 
544
{
 
545
  SItype res = 0;
 
546
  USItype cnt = a;
 
547
 
 
548
  while (cnt)
 
549
    {
 
550
      if (cnt & 1)
 
551
        {
 
552
          res += b;
 
553
        }
 
554
      b <<= 1;
 
555
      cnt >>= 1;
 
556
    }
 
557
 
 
558
  return res;
 
559
}
 
560
 
 
561
SItype
 
562
__umodsi3 (SItype a, SItype b)
 
563
 
 
564
{
 
565
  return udivmodsi4 (a, b, 1);
 
566
}
 
567
 
 
568
int
 
569
__gcc_bcmp (const unsigned char *s1, const unsigned char *s2, unsigned long size)
 
570
{
 
571
  while (size > 0)
 
572
    {
 
573
      const unsigned char c1 = *s1++, c2 = *s2++;
 
574
      if (c1 != c2)
 
575
        return c1 - c2;
 
576
      size--;
 
577
    }
 
578
  return 0;
 
579
}