/* tstate dict key for PyObject_Compare helper */
extern PyObject *_PyCompareState_Key;
+/* Helpers for hash functions */
+extern DL_IMPORT(long) _Py_HashDouble Py_PROTO((double));
+extern DL_IMPORT(long) _Py_HashPointer Py_PROTO((void*));
+
/* Flag bits for printing: */
#define Py_PRINT_RAW 1 /* No string quotes etc. */
--- /dev/null
+# test the invariant that
+# iff a==b then hash(a)==hash(b)
+#
+
+import test_support
+
+
+def same_hash(*objlist):
+ # hash each object given an raise TestFailed if
+ # the hash values are not all the same
+ hashed = map(hash, objlist)
+ for h in hashed[1:]:
+ if h != hashed[0]:
+ raise TestFailed, "hashed values differ: %s" % `objlist`
+
+
+
+same_hash(1, 1L, 1.0, 1.0+0.0j)
+same_hash(int(1), long(1), float(1), complex(1))
+
+same_hash(long(1.23e300), float(1.23e300))
+
+same_hash(float(0.5), complex(0.5, 0.0))
+
+
+
func = instance_getattr(inst, cmpstr);
if (func == NULL) {
PyErr_Clear();
- outcome = (long)inst;
- if (outcome == -1)
- outcome = -2;
- return outcome;
+ return _Py_HashPointer(inst);
}
PyErr_SetString(PyExc_TypeError, "unhashable instance");
return -1;
PyComplexObject *v;
{
double intpart, fractpart;
- int expo;
- long hipart, x;
+ long x;
/* This is designed so that Python numbers with the same
value hash to the same value, otherwise comparisons
of mapping keys will turn out weird */
#endif
if (fractpart == 0.0 && v->cval.imag == 0.0) {
- if (intpart > 0x7fffffffL || -intpart > 0x7fffffffL) {
+ if (intpart > LONG_MAX || -intpart > LONG_MAX) {
/* Convert to long int and use its hash... */
PyObject *w = PyLong_FromDouble(v->cval.real);
if (w == NULL)
x = (long)intpart;
}
else {
- fractpart = frexp(fractpart, &expo);
- fractpart = fractpart * 2147483648.0; /* 2**31 */
- hipart = (long)fractpart; /* Take the top 32 bits */
- fractpart = (fractpart - (double)hipart) * 2147483648.0;
- /* Get the next 32 bits */
- x = hipart + (long)fractpart + (long)intpart + (expo << 15);
- /* Combine everything */
+ x = _Py_HashDouble(v->cval.real);
+ if (x == -1)
+ return -1;
if (v->cval.imag != 0.0) { /* Hash the imaginary part */
/* XXX Note that this hashes complex(x, y)
to the same value as complex(y, x).
Still better than it used to be :-) */
-#ifdef MPW
- {
- extended e;
- fractpart = modf(v->cval.imag, &e);
- intpart = e;
- }
-#else
- fractpart = modf(v->cval.imag, &intpart);
-#endif
- fractpart = frexp(fractpart, &expo);
- fractpart = fractpart * 2147483648.0; /* 2**31 */
- hipart = (long)fractpart; /* Take the top 32 bits */
- fractpart =
- (fractpart - (double)hipart) * 2147483648.0;
- /* Get the next 32 bits */
- x ^= hipart + (long)fractpart +
- (long)intpart + (expo << 15);
- /* Combine everything */
+ long y = _Py_HashDouble(v->cval.imag);
+ if (y == -1)
+ return -1;
+ x += y;
}
}
if (x == -1)
#endif
#ifndef LONG_MAX
+#if SIZEOF_LONG == 4
#define LONG_MAX 0X7FFFFFFFL
+#elif SIZEOF_LONG == 8
+#define LONG_MAX 0X7FFFFFFFFFFFFFFFL
+#else
+#error "could not set LONG_MAX"
+#endif
#endif
#ifndef LONG_MIN
return (i < j) ? -1 : (i > j) ? 1 : 0;
}
+
static long
float_hash(v)
PyFloatObject *v;
{
double intpart, fractpart;
- int expo;
long x;
/* This is designed so that Python numbers with the same
value hash to the same value, otherwise comparisons
#endif
if (fractpart == 0.0) {
- if (intpart > 0x7fffffffL || -intpart > 0x7fffffffL) {
+ if (intpart > LONG_MAX || -intpart > LONG_MAX) {
/* Convert to long int and use its hash... */
PyObject *w = PyLong_FromDouble(v->ob_fval);
if (w == NULL)
else {
/* Note -- if you change this code, also change the copy
in complexobject.c */
- long hipart;
- fractpart = frexp(fractpart, &expo);
- fractpart = fractpart * 2147483648.0; /* 2**31 */
- hipart = (long)fractpart; /* Take the top 32 bits */
- fractpart = (fractpart - (double)hipart) * 2147483648.0;
- /* Get the next 32 bits */
- x = hipart + (long)fractpart + (long)intpart + (expo << 15);
- /* Combine everything */
+ x = _Py_HashDouble(v->ob_fval);
+ if (x == -1)
+ return -1;
}
if (x == -1)
x = -2;
func_hash(f)
PyFunctionObject *f;
{
- long h;
+ long h,x;
h = PyObject_Hash(f->func_code);
if (h == -1) return h;
- h = h ^ (long)f->func_globals;
+ x = _Py_HashPointer(f->func_globals);
+ if (x == -1) return x;
+ h ^= x;
if (h == -1) h = -2;
return h;
}
meth_hash(a)
PyCFunctionObject *a;
{
- long x;
+ long x,y;
if (a->m_self == NULL)
x = 0;
else {
if (x == -1)
return -1;
}
- return x ^ (long) a->m_ml->ml_meth;
+ y = _Py_HashPointer(a->m_ml->ml_meth);
+ if (y == -1)
+ return -1;
+ x ^= y;
+ if (x == -1)
+ x = -2;
+ return x;
}
PyTypeObject PyCFunction_Type = {
#include "Python.h"
+#include "mymath.h"
+
/* just for trashcan: */
#include "compile.h"
#include "frameobject.h"
return result;
}
+
+/* Set of hash utility functions to help maintaining the invariant that
+ iff a==b then hash(a)==hash(b)
+
+ All the utility functions (_Py_Hash*()) return "-1" to signify an error.
+*/
+
+long
+_Py_HashDouble(v)
+ double v;
+{
+ /* Use frexp to get at the bits in the double.
+ * Since the VAX D double format has 56 mantissa bits, which is the
+ * most of any double format in use, each of these parts may have as
+ * many as (but no more than) 56 significant bits.
+ * So, assuming sizeof(long) >= 4, each part can be broken into two longs;
+ * frexp and multiplication are used to do that.
+ * Also, since the Cray double format has 15 exponent bits, which is the
+ * most of any double format in use, shifting the exponent field left by
+ * 15 won't overflow a long (again assuming sizeof(long) >= 4).
+ */
+ int expo;
+ long hipart;
+
+ v = frexp(v, &expo);
+ v = v * 2147483648.0; /* 2**31 */
+ hipart = (long)v; /* Take the top 32 bits */
+ v = (v - (double)hipart) * 2147483648.0; /* Get the next 32 bits */
+
+ return hipart + (long)v + (expo << 15); /* Combine everything */
+}
+
+long
+_Py_HashPointer(p)
+ void *p;
+{
+#if SIZEOF_LONG >= SIZEOF_VOID_P
+ return (long)p;
+#else
+ /* convert to a Python long and hash that */
+ PyObject* longobj;
+ long x;
+
+ if ((longobj = PyLong_FromVoidPtr(p)) == NULL) {
+ x = -1;
+ goto finally;
+ }
+ x = PyObject_Hash(longobj);
+
+finally:
+ Py_XDECREF(longobj);
+ return x;
+#endif
+}
+
+
long
PyObject_Hash(v)
PyObject *v;
PyTypeObject *tp = v->ob_type;
if (tp->tp_hash != NULL)
return (*tp->tp_hash)(v);
- if (tp->tp_compare == NULL)
- return (long) v; /* Use address as hash value */
+ if (tp->tp_compare == NULL) {
+ return _Py_HashPointer(v); /* Use address as hash value */
+ }
/* If there's a cmp but no hash defined, the object can't be hashed */
PyErr_SetString(PyExc_TypeError, "unhashable type");
return -1;
/* Just use the address.
XXX - should we use the handle value?
*/
- return (long)ob;
+ return _Py_HashPointer(ob);
}
projects / python / commitdiff