[Axiom-developer] 20080313.01.pab.patch (hashcode for Aldor)

[daly]

This patch, by Peter Broadbery, makes the hashcode generated by Axiom
compatible with the hashcode generated for Aldor for Mapping types.

==========================================================================
diff --git a/changelog b/changelog
index ec2debe..6a0d90e 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,4 @@
+20080313 pab src/interp/hashcode.boot make Mapping hash correct for Aldor
 20080312 tpd src/algebra/intfact.spad speed BasicSieve, prime, add docs
 20080305 tpd src/hyper/bookvol11 add additional hyperdoc page translations
 20080304 tpd src/hyper/bookvol11 add additional hyperdoc page translations
diff --git a/src/interp/hashcode.boot.pamphlet 
b/src/interp/hashcode.boot.pamphlet
index 81e2748..ab388db 100644
--- a/src/interp/hashcode.boot.pamphlet
+++ b/src/interp/hashcode.boot.pamphlet
@@ -71,7 +71,7 @@ hashType(type, percentHash) ==
                        hash := hashCombine(hashType(arg, percentHash), hash)
                 retCode := hashType(retType, percentHash)
                 EQL(retCode, $VoidHash) => hash
-               hashCombine(retCode, hash)
+               hashCombine(retCode, hashCombine(32236,hash))
        op = 'Enumeration =>
                for arg in args repeat
                        hash := hashCombine(hashString(STRING arg), hash)