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;