From d5f3af34344340c718d07c9c84d562785443747e Mon Sep 17 00:00:00 2001
From: Thomas Grill <xovo@users.sourceforge.net>
Date: Mon, 23 Feb 2004 03:32:54 +0000
Subject:  ""

svn path=/trunk/; revision=1350
---
 externals/grill/pool/source/pool.cpp | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'externals/grill/pool/source/pool.cpp')

diff --git a/externals/grill/pool/source/pool.cpp b/externals/grill/pool/source/pool.cpp
index 4d6d100e..dcb16237 100644
--- a/externals/grill/pool/source/pool.cpp
+++ b/externals/grill/pool/source/pool.cpp
@@ -878,6 +878,19 @@ BL pooldir::SvDirXML(ostream &os,I depth,const AtomList &dir,I ind)
 	return true;
 }
 
+unsigned int pooldir::FoldBits(unsigned long h,int bits)
+{
+	if(!bits) return 0;
+	const int hmax = (1<<bits)-1;
+	unsigned int ret = 0;
+	for(unsigned int i = 0; i < sizeof(h)*8; i += bits)
+		ret ^= (h>>i)&hmax;
+	return ret;
+}
 
-
-
+int pooldir::Int2Bits(unsigned long n)
+{
+	int b;
+	for(b = 0; n; ++b) n >>= 1;
+	return b;
+}
-- 
cgit v1.2.1