calchash(): work around broken RTTI.

[ginac.git] / ginac / function.pl

diff --git a/ginac/function.pl b/ginac/function.pl
index 31f8ba5ecf3c02ee620eb0105ee23a5c10717926..e1533be27aba0d57cd126b8ae27cb02f719479ec 100644 (file)
--- a/ginac/function.pl
+++ b/ginac/function.pl
@@ -603,6 +603,7 @@ $implementation=<<END_OF_IMPLEMENTATION;
 #include "inifcns.h"
 #include "tostring.h"
 #include "utils.h"
 #include "inifcns.h"
 #include "tostring.h"
 #include "utils.h"

+#include "hash_seed.h"

 #include "remember.h"
 
 #include <iostream>
 #include "remember.h"
 
 #include <iostream>


@@ -1062,8 +1063,7 @@ ex function::eval_ncmul(const exvector & v) const
 
 unsigned function::calchash() const
 {
 
 unsigned function::calchash() const
 {

-       const void* this_tinfo = (const void*)typeid(*this).name();
-       unsigned v = golden_ratio_hash(golden_ratio_hash((p_int)this_tinfo) ^ serial);
+       unsigned v = golden_ratio_hash(make_hash_seed(typeid(*this)) ^ serial);

        for (size_t i=0; i<nops(); i++) {
                v = rotate_left(v);
                v ^= this->op(i).gethash();
        for (size_t i=0; i<nops(); i++) {
                v = rotate_left(v);
                v ^= this->op(i).gethash();