Peter Broadbery has solved the issue, see
https://groups.google.com/forum/#!topic/aldor-devel/B9sx7lzrHM0

May I commit the attached patch?
Ralf

-- 
You received this message because you are subscribed to the Google Groups 
"FriCAS - computer algebra system" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
To post to this group, send email to [email protected].
Visit this group at http://groups.google.com/group/fricas-devel.
For more options, visit https://groups.google.com/d/optout.
From ba924632698c8b5bae00d080bd1dc33755f78ab1 Mon Sep 17 00:00:00 2001
From: Ralf Hemmecke <[email protected]>
Date: Tue, 24 Feb 2015 23:27:08 +0100
Subject: fix hashcode handling for Void in Aldor

---
 ChangeLog                | 6 +++++-
 src/interp/hashcode.boot | 2 +-
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e703167..a308a0f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2015-02-25  Peter Broadbery  <[email protected]>
+	* src/interp/hashcode.boot: fix hashcode handling for
+	Void in Aldor
+
 2015-02-23  Waldek Hebisch  <[email protected]>
 
 	* src/algebra/rdeefx.spad: Handle derivatives of
@@ -28,7 +32,7 @@
 	move other content to
 	src/algebra/vector.spad and src/algebra/lodo.spad
 	src/algebra/Makefile.in: Adjust
-	
+
 2015-02-11  Waldek Hebisch  <[email protected]>
 
 	* src/interp/i-output.boot, src/algebra/outform2.spad:
diff --git a/src/interp/hashcode.boot b/src/interp/hashcode.boot
index 33ba524..19e3042 100644
--- a/src/interp/hashcode.boot
+++ b/src/interp/hashcode.boot
@@ -55,7 +55,7 @@ hashType(type, percentHash) ==
                 for arg in mapArgs repeat
                         hash := hashCombine(hashType(arg, percentHash), hash)
                 retCode := hashType(retType, percentHash)
-                EQL(retCode, $VoidHash) => hash
+                EQL(retCode, $VoidHash) => hashCombine(32236, hash)
                 hashCombine(retCode, hashCombine(32236,hash))
         op = 'Enumeration =>
                 for arg in args repeat
-- 
2.1.0

Reply via email to