mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
90 lines
2.0 KiB
90 lines
2.0 KiB
/***
|
|
*rotl.c - rotate an unsigned integer left
|
|
*
|
|
* Copyright (c) 1989-1992, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* defines _rotl() - performs a rotate left on an unsigned integer.
|
|
*
|
|
*Revision History:
|
|
* 06-02-89 PHG Module created
|
|
* 11-03-89 JCR Added _lrotl
|
|
* 03-15-90 GJF Made calling type _CALLTYPE1, added #include
|
|
* <cruntime.h> and fixed the copyright. Also, cleaned
|
|
* up the formatting a bit.
|
|
* 10-04-90 GJF New-style function declarators.
|
|
* 04-01-91 SRW Enable #pragma function for i386 _WIN32_ builds too.
|
|
* 09-02-92 GJF Don't build for POSIX.
|
|
* 03-09-94 RDL Enable #pragma function for i386 _WIN32_ builds too.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifndef _POSIX_
|
|
|
|
#include <cruntime.h>
|
|
#include <stdlib.h>
|
|
#include <limits.h>
|
|
|
|
#ifdef _MSC_VER
|
|
#pragma function(_lrotl,_rotl)
|
|
#endif
|
|
|
|
#if UINT_MAX != 0xffffffff
|
|
#error This module assumes 32-bit integers
|
|
#endif
|
|
|
|
#if (UINT_MAX != ULONG_MAX)
|
|
#error This module assumes sizeof(int) == sizeof(long)
|
|
#endif
|
|
|
|
/***
|
|
*unsigned _rotl(val, shift) - int rotate left
|
|
*
|
|
*Purpose:
|
|
* Performs a rotate left on an unsigned integer.
|
|
*
|
|
* [Note: The _lrotl entry is based on the assumption
|
|
* that sizeof(int) == sizeof(long).]
|
|
*Entry:
|
|
* unsigned val: value to rotate
|
|
* int shift: number of bits to shift by
|
|
*
|
|
*Exit:
|
|
* returns rotated value
|
|
*
|
|
*Exceptions:
|
|
* None.
|
|
*
|
|
*******************************************************************************/
|
|
|
|
unsigned long _CALLTYPE1 _lrotl (
|
|
unsigned long val,
|
|
int shift
|
|
)
|
|
{
|
|
return( (unsigned long) _rotl((unsigned) val, shift) );
|
|
}
|
|
|
|
unsigned _CALLTYPE1 _rotl (
|
|
unsigned val,
|
|
int shift
|
|
)
|
|
{
|
|
register unsigned hibit; /* non-zero means hi bit set */
|
|
register unsigned num = val; /* number to rotate */
|
|
|
|
shift &= 0x1f; /* modulo 32 -- this will also make
|
|
negative shifts work */
|
|
|
|
while (shift--) {
|
|
hibit = num & 0x80000000; /* get high bit */
|
|
num <<= 1; /* shift left one bit */
|
|
if (hibit)
|
|
num |= 1; /* set lo bit if hi bit was set */
|
|
}
|
|
|
|
return num;
|
|
}
|
|
|
|
|
|
#endif
|