1 files changed, 90 insertions, 0 deletions
diff --git a/private/crt32/misc/rotl.c b/private/crt32/misc/rotl.c
new file mode 100644
index 000000000..79af5779f
--- /dev/null
+++ b/private/crt32/misc/rotl.c
@@ -0,0 +1,90 @@
+/***
+*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