Make new tinfo-system work on AMD64.

diff --git a/ginac/function.pl b/ginac/function.pl
index bb9e81ec1473f6907f11ac5a75fbcfc02b87ec87..aadc3bccf34458477fd44d26eaf0ed7057d51bc4 100755 (executable)
--- 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();