1/* The common simulator framework for GDB, the GNU Debugger.
2
3   Copyright 2002, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
4
5   Contributed by Andrew Cagney and Red Hat.
6
7   This file is part of GDB.
8
9   This program is free software; you can redistribute it and/or modify
10   it under the terms of the GNU General Public License as published by
11   the Free Software Foundation; either version 3 of the License, or
12   (at your option) any later version.
13
14   This program is distributed in the hope that it will be useful,
15   but WITHOUT ANY WARRANTY; without even the implied warranty of
16   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17   GNU General Public License for more details.
18
19   You should have received a copy of the GNU General Public License
20   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
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
55INLINE_SIM_BITS\
56(unsignedN)
57LSMASKEDn (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
67INLINE_SIM_BITS\
68(unsignedN)
69MSMASKEDn (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
79INLINE_SIM_BITS\
80(unsignedN)
81LSEXTRACTEDn (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
92INLINE_SIM_BITS\
93(unsignedN)
94MSEXTRACTEDn (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
105INLINE_SIM_BITS\
106(unsignedN)
107LSINSERTEDn (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
118INLINE_SIM_BITS\
119(unsignedN)
120MSINSERTEDn (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
131INLINE_SIM_BITS\
132(unsignedN)
133ROTn (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
146INLINE_SIM_BITS\
147(unsignedN)
148ROTLn (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
159INLINE_SIM_BITS\
160(unsignedN)
161ROTRn (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
172INLINE_SIM_BITS\
173(unsignedN)
174LSSEXTn (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
189INLINE_SIM_BITS\
190(unsignedN)
191MSSEXTn (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
219