fix nasty overflows in and add some very preliminary support for very large

clauses with lots
of disjuncts (eg, query packs).


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

C/iopreds.c

@@ -3084,7 +3084,7 @@ static Int
       old_H = H;
       Yap_eot_before_eof = FALSE;
       tokstart = Yap_tokptr = Yap_toktide = Yap_tokenizer(inp_stream);
-      if (Yap_Error_TYPE && seekable) {
+      if (Yap_Error_TYPE != YAP_NO_ERROR && seekable) {
 	H = old_H;
 	Yap_clean_tokenizer(tokstart, Yap_VarTable, Yap_AnonVarTable);
 	if (Stream[inp_stream].status & InMemory_Stream_f) {
@@ -3227,8 +3227,6 @@ static Int
 	restore_machine_regs();
 
 	old_TR = TR;
-	/* don't need to recheck tokens */
-	tokstart = NULL;
 	/* restart global */
 	H = old_H;
 	TR = (tr_fr_ptr)ScannerStack;