diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

First step to actually handling scanner overflows the right way

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1185 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-11-22 22:28:06 +00:00
parent 36878b9a2b
commit c083c838bb
2 changed files with 96 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@@ -2967,7 +2967,7 @@ do_read(int inp_stream)
/* Scans the term using stack space */
Yap_eot_before_eof = FALSE;
tokstart = Yap_tokptr = Yap_toktide = Yap_tokenizer (inp_stream);
tokstart = Yap_tokptr = Yap_toktide = Yap_tokenizer(inp_stream);
/* preserve value of H after scanning: otherwise we may lose strings
and floats */
old_H = H;
@@ -2976,7 +2976,7 @@ do_read(int inp_stream)
/* next read should give out an end of file */
Stream[inp_stream].status |= Push_Eof_Stream_f;
} else {
if (tokstart != NIL && tokstart->Tok != Ord (eot_tok)) {
if (tokstart != NULL && tokstart->Tok != Ord (eot_tok)) {
/* we got the end of file from an abort */
if (Yap_ErrorMessage == "Abort") {
Yap_clean_tokenizer(tokstart, Yap_VarTable, Yap_AnonVarTable);