support for UNICODE, and other bug fixes.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1725 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/dbase.c

@@ -4845,6 +4845,22 @@ cont_current_key(void)
 	READ_UNLOCK(HashChain[i].AERWLock);
 	i++;
       }
+      i = 0;
+      while (i < WideAtomHashTableSize) {
+	/* protect current hash table line, notice that the current
+	   LOCK/UNLOCK algorithm assumes new entries are added to
+	   the *front* of the list, otherwise I should have locked
+	   earlier.
+	*/
+	READ_LOCK(HashChain[i].AERWLock);
+	a = HashChain[i].Entry;
+	if (a != NIL) {
+	  break;
+	}
+	/* move to next entry */
+	READ_UNLOCK(HashChain[i].AERWLock);
+	i++;
+      }
       if (i == AtomHashTableSize) {
 	/* we have left the atom hash table */
 	/* we don't have a lock over the hash table any longer */