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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [sim/] [common/] [sim-n-bits.h] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 578 markom
/*  This file is part of the program psim.
2
 
3
    Copyright (C) 1994-1996, Andrew Cagney <cagney@highland.com.au>
4
    Copyright (C) 1997, Free Software Foundation, Inc.
5
 
6
    This program is free software; you can redistribute it and/or modify
7
    it under the terms of the GNU General Public License as published by
8
    the Free Software Foundation; either version 2 of the License, or
9
    (at your option) any later version.
10
 
11
    This program is distributed in the hope that it will be useful,
12
    but WITHOUT ANY WARRANTY; without even the implied warranty of
13
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14
    GNU General Public License for more details.
15
 
16
    You should have received a copy of the GNU General Public License
17
    along with this program; if not, write to the Free Software
18
    Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19
 
20
    */
21
 
22
 
23
#ifndef N
24
#error "N must be #defined"
25
#endif
26
 
27
#include "symcat.h"
28
 
29
#if defined(__STDC__) && defined(signed)
30
/* If signed were defined to be say __signed (ie, some versions of Linux),
31
   then the signedN macro would not work correctly.  If we have a standard
32
   compiler, we have signed.  */
33
#undef signed
34
#endif
35
 
36
/* NOTE: See end of file for #undef */
37
#define unsignedN XCONCAT2(unsigned,N)
38
#define signedN XCONCAT2(signed,N)
39
#define LSMASKn XCONCAT2(LSMASK,N)
40
#define MSMASKn XCONCAT2(MSMASK,N)
41
#define LSMASKEDn XCONCAT2(LSMASKED,N)
42
#define MSMASKEDn XCONCAT2(MSMASKED,N)
43
#define LSEXTRACTEDn XCONCAT2(LSEXTRACTED,N)
44
#define MSEXTRACTEDn XCONCAT2(MSEXTRACTED,N)
45
#define LSINSERTEDn XCONCAT2(LSINSERTED,N)
46
#define MSINSERTEDn XCONCAT2(MSINSERTED,N)
47
#define ROTn XCONCAT2(ROT,N)
48
#define ROTLn XCONCAT2(ROTL,N)
49
#define ROTRn XCONCAT2(ROTR,N)
50
#define MSSEXTn XCONCAT2(MSSEXT,N)
51
#define LSSEXTn XCONCAT2(LSSEXT,N)
52
 
53
/* TAGS: LSMASKED16 LSMASKED32 LSMASKED64 */
54
 
55
INLINE_SIM_BITS\
56
(unsignedN)
57
LSMASKEDn (unsignedN word,
58
           int start,
59
           int stop)
60
{
61
  word &= LSMASKn (start, stop);
62
  return word;
63
}
64
 
65
/* TAGS: MSMASKED16 MSMASKED32 MSMASKED64 */
66
 
67
INLINE_SIM_BITS\
68
(unsignedN)
69
MSMASKEDn (unsignedN word,
70
           int start,
71
           int stop)
72
{
73
  word &= MSMASKn (start, stop);
74
  return word;
75
}
76
 
77
/* TAGS: LSEXTRACTED16 LSEXTRACTED32 LSEXTRACTED64 */
78
 
79
INLINE_SIM_BITS\
80
(unsignedN)
81
LSEXTRACTEDn (unsignedN val,
82
              int start,
83
              int stop)
84
{
85
  val <<= (N - 1 - start); /* drop high bits */
86
  val >>= (N - 1 - start) + (stop); /* drop low bits */
87
  return val;
88
}
89
 
90
/* TAGS: MSEXTRACTED16 MSEXTRACTED32 MSEXTRACTED64 */
91
 
92
INLINE_SIM_BITS\
93
(unsignedN)
94
MSEXTRACTEDn (unsignedN val,
95
              int start,
96
              int stop)
97
{
98
  val <<= (start); /* drop high bits */
99
  val >>= (start) + (N - 1 - stop); /* drop low bits */
100
  return val;
101
}
102
 
103
/* TAGS: LSINSERTED16 LSINSERTED32 LSINSERTED64 */
104
 
105
INLINE_SIM_BITS\
106
(unsignedN)
107
LSINSERTEDn (unsignedN val,
108
             int start,
109
             int stop)
110
{
111
  val <<= stop;
112
  val &= LSMASKn (start, stop);
113
  return val;
114
}
115
 
116
/* TAGS: MSINSERTED16 MSINSERTED32 MSINSERTED64 */
117
 
118
INLINE_SIM_BITS\
119
(unsignedN)
120
MSINSERTEDn (unsignedN val,
121
             int start,
122
             int stop)
123
{
124
  val <<= ((N - 1) - stop);
125
  val &= MSMASKn (start, stop);
126
  return val;
127
}
128
 
129
/* TAGS: ROT16 ROT32 ROT64 */
130
 
131
INLINE_SIM_BITS\
132
(unsignedN)
133
ROTn (unsignedN val,
134
      int shift)
135
{
136
  if (shift > 0)
137
    return ROTRn (val, shift);
138
  else if (shift < 0)
139
    return ROTLn (val, -shift);
140
  else
141
    return val;
142
}
143
 
144
/* TAGS: ROTL16 ROTL32 ROTL64 */
145
 
146
INLINE_SIM_BITS\
147
(unsignedN)
148
ROTLn (unsignedN val,
149
       int shift)
150
{
151
  unsignedN result;
152
  ASSERT (shift <= N);
153
  result = (((val) << (shift)) | ((val) >> ((N)-(shift))));
154
  return result;
155
}
156
 
157
/* TAGS: ROTR16 ROTR32 ROTR64 */
158
 
159
INLINE_SIM_BITS\
160
(unsignedN)
161
ROTRn (unsignedN val,
162
       int shift)
163
{
164
  unsignedN result;
165
  ASSERT (shift <= N);
166
  result = (((val) >> (shift)) | ((val) << ((N)-(shift))));
167
  return result;
168
}
169
 
170
/* TAGS: LSSEXT16 LSSEXT32 LSSEXT64 */
171
 
172
INLINE_SIM_BITS\
173
(unsignedN)
174
LSSEXTn (signedN val,
175
         int sign_bit)
176
{
177
  int shift;
178
  /* make the sign-bit most significant and then smear it back into
179
     position */
180
  ASSERT (sign_bit < N);
181
  shift = ((N - 1) - sign_bit);
182
  val <<= shift;
183
  val >>= shift;
184
  return val;
185
}
186
 
187
/* TAGS: MSSEXT16 MSSEXT32 MSSEXT64 */
188
 
189
INLINE_SIM_BITS\
190
(unsignedN)
191
MSSEXTn (signedN val,
192
         int sign_bit)
193
{
194
  /* make the sign-bit most significant and then smear it back into
195
     position */
196
  ASSERT (sign_bit < N);
197
  val <<= sign_bit;
198
  val >>= sign_bit;
199
  return val;
200
}
201
 
202
 
203
/* NOTE: See start of file for #define */
204
#undef LSSEXTn
205
#undef MSSEXTn
206
#undef ROTLn
207
#undef ROTRn
208
#undef ROTn
209
#undef LSINSERTEDn
210
#undef MSINSERTEDn
211
#undef LSEXTRACTEDn
212
#undef MSEXTRACTEDn
213
#undef LSMASKEDn
214
#undef LSMASKn
215
#undef MSMASKEDn
216
#undef MSMASKn
217
#undef signedN
218
#undef unsignedN

powered by: WebSVN 2.1.0

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