From: Chris Dams <Chris.Dams@mi.infn.it>
Date: Tue, 21 Feb 2006 13:33:45 +0000 (+0000)
Subject: Make new tinfo-system work on AMD64.
X-Git-Tag: release_1-4-0~111
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=217bee1d939abf7f9ed3fe75928a62f7fdc3abcf

Make new tinfo-system work on AMD64.
---

diff --git a/ginac/function.pl b/ginac/function.pl
index bb9e81ec..aadc3bcc 100755
--- a/ginac/function.pl
+++ b/ginac/function.pl
@@ -975,7 +975,7 @@ ${evalf_switch_statement}
 
 unsigned function::calchash() const
 {
-	unsigned v = golden_ratio_hash(golden_ratio_hash((unsigned)tinfo()) ^ serial);
+	unsigned v = golden_ratio_hash(golden_ratio_hash((p_int)tinfo()) ^ serial);
 	for (size_t i=0; i<nops(); i++) {
 		v = rotate_left(v);
 		v ^= this->op(i).gethash();