sim/common/sim-n-bits.h

   1 /*  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