fix hashing over empty atoms (obs from Jose Santos).

This commit is contained in:
Vítor Manuel de Morais Santos Costa 2010-01-21 15:21:26 +00:00
parent 1187e58005
commit a7c1e9afba
3 changed files with 6 additions and 2 deletions

View File

@ -1990,6 +1990,10 @@ AddAtomToHash(CELL *st, Atom at)
} else {
char *c = RepAtom(at)->StrOfAE;
int ulen = strlen(c);
/* fix hashing over empty atom */
if (!ulen) {
return st;
}
start = (CELL *)c;
if (ulen % CellSize == 0) {
len = ulen/CellSize;

@ -1 +1 @@
Subproject commit 0072deb511e839a2f2df6bfa170076f9c8ecb6bb
Subproject commit e3ee70d5971a5af8c9a2a3a5fe8a1892c3777f2b

@ -1 +1 @@
Subproject commit 8192d5f9ba0bba55fdd96b4473d68d8cf57f51aa
Subproject commit d661852f76fe24441d983ef6f4e60ba90cfe17c4