1 /* This file is part of the program psim.
3 Copyright (C) 1994-1996, Andrew Cagney <cagney@highland.com.au>
4 Copyright (C) 1997, Free Software Foundation, Inc.
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.
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.
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.
24 #error "N must be #defined"
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. */
36 /* NOTE: See end of file for #undef */
37 #define unsignedN XCONCAT2(unsigned,N)
38 #define signedN XCONCAT2(signed,N)
39 #define MASKn XCONCAT2(MASK,N)
40 #define LSMASKEDn XCONCAT2(LSMASKED,N)
41 #define LSMASKn XCONCAT2(LSMASK,N)
42 #define MSMASKEDn XCONCAT2(MSMASKED,N)
43 #define MSMASKn XCONCAT2(MSMASK,N)
44 #define LSEXTRACTEDn XCONCAT2(LSEXTRACTED,N)
45 #define MSEXTRACTEDn XCONCAT2(MSEXTRACTED,N)
46 #define INSERTEDn XCONCAT2(INSERTED,N)
47 #define ROTn XCONCAT2(ROT,N)
48 #define ROTLn XCONCAT2(ROTL,N)
49 #define ROTRn XCONCAT2(ROTR,N)
50 #define SEXTn XCONCAT2(SEXT,N)
52 /* TAGS: LSMASKED16 LSMASKED32 LSMASKED64 */
56 LSMASKEDn (unsignedN word,
60 word &= LSMASKn (start, stop);
64 /* TAGS: MSMASKED16 MSMASKED32 MSMASKED64 */
68 MSMASKEDn (unsignedN word,
72 word &= MSMASKn (start, stop);
76 /* TAGS: LSEXTRACTED16 LSEXTRACTED32 LSEXTRACTED64 */
80 LSEXTRACTEDn (unsignedN val,
84 val <<= (N - 1 - start); /* drop high bits */
85 val >>= (N - 1 - start) + (stop); /* drop low bits */
89 /* TAGS: MSEXTRACTED16 MSEXTRACTED32 MSEXTRACTED64 */
93 MSEXTRACTEDn (unsignedN val,
97 val <<= (start); /* drop high bits */
98 val >>= (start) + (N - 1 - stop); /* drop low bits */
102 /* TAGS: INSERTED16 INSERTED32 INSERTED64 */
106 INSERTEDn (unsignedN val,
110 val <<= _LSB_SHIFT (N, stop);
111 val &= MASKn (start, stop);
115 /* TAGS: ROT16 ROT32 ROT64 */
123 return ROTRn (val, shift);
125 return ROTLn (val, -shift);
130 /* TAGS: ROTL16 ROTL32 ROTL64 */
134 ROTLn (unsignedN val,
139 result = (((val) << (shift)) | ((val) >> ((N)-(shift))));
143 /* TAGS: ROTR16 ROTR32 ROTR64 */
147 ROTRn (unsignedN val,
152 result = (((val) >> (shift)) | ((val) << ((N)-(shift))));
156 /* TAGS: SEXT16 SEXT32 SEXT64 */
163 /* make the sign-bit most significant and then smear it back into
165 ASSERT (sign_bit < N);
166 val <<= _MSB_SHIFT (N, sign_bit);
167 val >>= _MSB_SHIFT (N, sign_bit);
172 /* NOTE: See start of file for #define */