handle learning from interpretations.

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

C/init.c

@@ -1382,8 +1382,17 @@ Yap_InitWorkspace(int Heap, int Stack, int Trail, int max_table_size,
     INIT_RWLOCK(WideHashChain[i].AERWLock);
     WideHashChain[i].Entry = NIL;
   }
+  PredHash = (PredEntry **)Yap_AllocAtomSpace(sizeof(PredEntry **) * PredHashInitialSize);
+  PredHashTableSize = PredHashInitialSize;
+  if (PredHash == NULL) {
+    Yap_Error(FATAL_ERROR,MkIntTerm(0),"allocating initial predicate hash table");
+  }
+  for (i = 0; i < PredHashTableSize; ++i) {
+    PredHash[i] = NULL;
+  }
   NOfAtoms = 0;
   NOfWideAtoms = 0;
+  PredsInHashTable = 0;
 #if THREADS
   SF_STORE->AtFoundVar = Yap_LookupAtom(".");
   Yap_ReleaseAtom(AtomFoundVar);