/* This file is part of the program psim.
|
/* This file is part of the program psim.
|
|
|
Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
|
Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
|
|
|
This program is free software; you can redistribute it and/or modify
|
This program is free software; you can redistribute it and/or modify
|
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 2 of the License, or
|
the Free Software Foundation; either version 2 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
*/
|
*/
|
|
|
|
|
#ifndef _BITS_C_
|
#ifndef _BITS_C_
|
#define _BITS_C_
|
#define _BITS_C_
|
|
|
#include "basics.h"
|
#include "basics.h"
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned64)
|
(unsigned64)
|
LSMASKED64 (unsigned64 word,
|
LSMASKED64 (unsigned64 word,
|
int start,
|
int start,
|
int stop)
|
int stop)
|
{
|
{
|
word &= LSMASK64 (start, stop);
|
word &= LSMASK64 (start, stop);
|
return word;
|
return word;
|
}
|
}
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned64)
|
(unsigned64)
|
LSEXTRACTED64 (unsigned64 val,
|
LSEXTRACTED64 (unsigned64 val,
|
int start,
|
int start,
|
int stop)
|
int stop)
|
{
|
{
|
val <<= (64 - 1 - start); /* drop high bits */
|
val <<= (64 - 1 - start); /* drop high bits */
|
val >>= (64 - 1 - start) + (stop); /* drop low bits */
|
val >>= (64 - 1 - start) + (stop); /* drop low bits */
|
return val;
|
return val;
|
}
|
}
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned32)
|
(unsigned32)
|
MASKED32(unsigned32 word,
|
MASKED32(unsigned32 word,
|
unsigned start,
|
unsigned start,
|
unsigned stop)
|
unsigned stop)
|
{
|
{
|
return (word & MASK32(start, stop));
|
return (word & MASK32(start, stop));
|
}
|
}
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned64)
|
(unsigned64)
|
MASKED64(unsigned64 word,
|
MASKED64(unsigned64 word,
|
unsigned start,
|
unsigned start,
|
unsigned stop)
|
unsigned stop)
|
{
|
{
|
return (word & MASK64(start, stop));
|
return (word & MASK64(start, stop));
|
}
|
}
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned_word)
|
(unsigned_word)
|
MASKED(unsigned_word word,
|
MASKED(unsigned_word word,
|
unsigned start,
|
unsigned start,
|
unsigned stop)
|
unsigned stop)
|
{
|
{
|
return ((word) & MASK(start, stop));
|
return ((word) & MASK(start, stop));
|
}
|
}
|
|
|
|
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned_word)
|
(unsigned_word)
|
EXTRACTED(unsigned_word word,
|
EXTRACTED(unsigned_word word,
|
unsigned start,
|
unsigned start,
|
unsigned stop)
|
unsigned stop)
|
{
|
{
|
ASSERT(start <= stop);
|
ASSERT(start <= stop);
|
#if (WITH_TARGET_WORD_BITSIZE == 64)
|
#if (WITH_TARGET_WORD_BITSIZE == 64)
|
return _EXTRACTEDn(64, word, start, stop);
|
return _EXTRACTEDn(64, word, start, stop);
|
#else
|
#else
|
if (stop < 32)
|
if (stop < 32)
|
return 0;
|
return 0;
|
else
|
else
|
return ((word >> (63 - stop))
|
return ((word >> (63 - stop))
|
& MASK(start+(63-stop), 63));
|
& MASK(start+(63-stop), 63));
|
#endif
|
#endif
|
}
|
}
|
|
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned_word)
|
(unsigned_word)
|
INSERTED(unsigned_word word,
|
INSERTED(unsigned_word word,
|
unsigned start,
|
unsigned start,
|
unsigned stop)
|
unsigned stop)
|
{
|
{
|
ASSERT(start <= stop);
|
ASSERT(start <= stop);
|
#if (WITH_TARGET_WORD_BITSIZE == 64)
|
#if (WITH_TARGET_WORD_BITSIZE == 64)
|
return _INSERTEDn(64, word, start, stop);
|
return _INSERTEDn(64, word, start, stop);
|
#else
|
#else
|
if (stop < 32)
|
if (stop < 32)
|
return 0;
|
return 0;
|
else
|
else
|
return ((word & MASK(start+(63-stop), 63))
|
return ((word & MASK(start+(63-stop), 63))
|
<< (63 - stop));
|
<< (63 - stop));
|
#endif
|
#endif
|
}
|
}
|
|
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned32)
|
(unsigned32)
|
ROTL32(unsigned32 val,
|
ROTL32(unsigned32 val,
|
long shift)
|
long shift)
|
{
|
{
|
ASSERT(shift >= 0 && shift <= 32);
|
ASSERT(shift >= 0 && shift <= 32);
|
return _ROTLn(32, val, shift);
|
return _ROTLn(32, val, shift);
|
}
|
}
|
|
|
|
|
INLINE_BITS\
|
INLINE_BITS\
|
(unsigned64)
|
(unsigned64)
|
ROTL64(unsigned64 val,
|
ROTL64(unsigned64 val,
|
long shift)
|
long shift)
|
{
|
{
|
ASSERT(shift >= 0 && shift <= 64);
|
ASSERT(shift >= 0 && shift <= 64);
|
return _ROTLn(64, val, shift);
|
return _ROTLn(64, val, shift);
|
}
|
}
|
|
|
#endif /* _BITS_C_ */
|
#endif /* _BITS_C_ */
|
|
|
