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

2010-01-21 15:21:26 +00:00
parent 1187e58005
commit a7c1e9afba
3 changed files with 6 additions and 2 deletions
--- a/C/utilpreds.c
+++ b/C/utilpreds.c
@@ -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;