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/] [h8500/] [cmpsi.c] - Blame information for rev 207

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 207 jeremybenn
 
2
union u
3
{
4
  struct
5
    {
6
      short int msw;
7
      unsigned short lsw;
8
    } w;
9
  long l;
10
};
11
 
12
union us
13
{
14
  struct
15
    {
16
      short int msw;
17
      unsigned short lsw;
18
    } w;
19
  long l;
20
};
21
 
22
int
23
__cmpsi2(long arga,
24
         short int msw_b, unsigned short int lsw_b)
25
{
26
  union u u;
27
  u.l = arga;
28
 
29
  if (u.w.msw != msw_b)
30
    {
31
      if (u.w.msw < msw_b) return 0;
32
      return 2;
33
    }
34
  if (u.w.lsw != lsw_b)
35
    {
36
      if (u.w.lsw < lsw_b) return 0;
37
      return 2;
38
    }
39
  return 1;
40
}
41
 
42
 
43
int
44
__ucmpsi2(unsigned long arga,
45
         unsigned short int msw_b, unsigned short int lsw_b)
46
{
47
  union us u;
48
  u.l = arga;
49
 
50
  if (u.w.msw != msw_b)
51
    {
52
      if (u.w.msw < msw_b) return 0;
53
      return 2;
54
    }
55
  if (u.w.lsw != lsw_b)
56
    {
57
      if (u.w.lsw < lsw_b) return 0;
58
      return 2;
59
    }
60
  return 1;
61
}
62
 
63
 
64
union pu
65
{
66
  struct {
67
    char ignore;
68
    signed char msb;
69
    unsigned short lsw;
70
  } w;
71
  long l;
72
};
73
 
74
union pun
75
{
76
  struct {
77
    char ignore;
78
    unsigned char msb;
79
    unsigned short lsw;
80
  } w;
81
  long l;
82
};
83
 
84
 
85
int
86
__cmppsi2(long arga, long argb)
87
{
88
  union pu a;
89
  union pu b;
90
  a.l = arga;
91
  b.l = argb;
92
 
93
  if (a.w.msb != b.w.msb)
94
    {
95
      if (a.w.msb < b.w.msb) return 0;
96
      return 2;
97
    }
98
  if (a.w.lsw != b.w.lsw)
99
    {
100
      if (a.w.lsw < b.w.lsw) return 0;
101
      return 2;
102
    }
103
  return 1;
104
}
105
 
106
 
107
int
108
__ucmppsi2(long arga, long argb)
109
{
110
  union pun a;
111
  union pun b;
112
  a.l = arga;
113
  b.l = argb;
114
 
115
  if (a.w.msb != b.w.msb)
116
    {
117
      if (a.w.msb < b.w.msb) return 0;
118
      return 2;
119
    }
120
  if (a.w.lsw != b.w.lsw)
121
    {
122
      if (a.w.lsw < b.w.lsw) return 0;
123
      return 2;
124
    }
125
  return 1;
126
}

powered by: WebSVN 2.1.0

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