OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [machine/] [w65/] [divsi3.c] - Blame information for rev 207

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 207 jeremybenn
 
2
#define divnorm(num, den, sign)                 \
3
{                                               \
4
  if (num < 0)                                   \
5
    {                                           \
6
      num = -num;                               \
7
      sign = 1;                                 \
8
    }                                           \
9
  else                                          \
10
    {                                           \
11
      sign = 0;                                  \
12
    }                                           \
13
                                                \
14
  if (den < 0)                                   \
15
    {                                           \
16
      den = - den;                              \
17
      sign = 1 - sign;                          \
18
    }                                           \
19
}
20
 
21
 
22
 
23
 
24
 
25
static unsigned long
26
divmodsi4(int modwanted, unsigned long num, unsigned long den)
27
{
28
  long int bit = 1;
29
  long int res = 0;
30
  long prevden;
31
  while (den < num && bit && !(den & (1L<<31)))
32
    {
33
      den <<=1;
34
      bit <<=1;
35
    }
36
  while (bit)
37
    {
38
      if (num >= den)
39
        {
40
          num -= den;
41
          res |= bit;
42
        }
43
      bit >>=1;
44
      den >>=1;
45
    }
46
  if (modwanted) return num;
47
  return res;
48
}
49
 
50
 
51
#define exitdiv(sign, res) if (sign) { res = - res;} return res;
52
 
53
long
54
__modsi3 (long numerator, long denominator)
55
{
56
  int sign = 0;
57
  long dividend;
58
  long modul;
59
 
60
 
61
  if (numerator < 0)
62
    {
63
      numerator = -numerator;
64
      sign = 1;
65
    }
66
  if (denominator < 0)
67
    {
68
      denominator = -denominator;
69
    }
70
 
71
  modul =  divmodsi4 (1, numerator, denominator);
72
  if (sign)
73
    return - modul;
74
  return modul;
75
}
76
 
77
 
78
long
79
__divsi3 (long numerator, long denominator)
80
{
81
  int sign;
82
  long dividend;
83
  long modul;
84
  divnorm (numerator, denominator, sign);
85
 
86
  dividend = divmodsi4 (0,  numerator, denominator);
87
  exitdiv (sign, dividend);
88
}
89
 
90
long
91
__umodsi3 (unsigned long numerator, unsigned long denominator)
92
{
93
  long dividend;
94
  long modul;
95
 
96
modul= divmodsi4 (1,  numerator, denominator);
97
  return modul;
98
}
99
 
100
long
101
__udivsi3 (unsigned long numerator, unsigned long denominator)
102
{
103
  int sign;
104
  long dividend;
105
  long modul;
106
  dividend =   divmodsi4 (0, numerator, denominator);
107
  return dividend;
108
}
109
 
110
 
111
 
112
 
113
 
114
 
115
#ifdef TEST
116
 
117
 
118
 
119
main ()
120
{
121
  long int i, j, k, m;
122
  for (i = -10000; i < 10000; i += 8)
123
    {
124
      for (j = -10000; j < 10000; j += 11)
125
        {
126
          k = i / j;
127
          m = __divsi3 (i, j);
128
          if (k != m)
129
            printf ("fail %d %d %d %d\n", i, j, k, m);
130
        }
131
    }
132
}
133
 
134
#endif

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.