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

fix scanner.c

Browse Source
This commit is contained in:
Ricardo Rocha 2011-05-25 18:59:19 +01:00
parent f7b9c74948
commit 7b717b36f0
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/scanner.c
View File

@ -855,9 +855,9 @@ Yap_tokenizer(IOSTREAM *inp_stream, Term *tposp)
ch = getchr(inp_stream); ch = getchr(inp_stream);
} }
if (ASP-H < 1024) { if (ASP-H < 1024) {
Yap_ErrorMessage = "Stack Overflow"; LOCAL_ErrorMessage = "Stack Overflow";
Yap_Error_TYPE = OUT_OF_STACK_ERROR; LOCAL_Error_TYPE = OUT_OF_STACK_ERROR;
Yap_Error_Size = 0L; LOCAL_Error_Size = 0L;
if (p) if (p)
p->Tok = Ord(kind = eot_tok); p->Tok = Ord(kind = eot_tok);
/* serious error now */ /* serious error now */
@ -1171,9 +1171,9 @@ Yap_tokenizer(IOSTREAM *inp_stream, Term *tposp)
ch = getchr(inp_stream); ch = getchr(inp_stream);
} }
if (ASP-H < 1024) { if (ASP-H < 1024) {
Yap_ErrorMessage = "Stack Overflow"; LOCAL_ErrorMessage = "Stack Overflow";
Yap_Error_TYPE = OUT_OF_STACK_ERROR; LOCAL_Error_TYPE = OUT_OF_STACK_ERROR;
Yap_Error_Size = 0L; LOCAL_Error_Size = 0L;
if (p) if (p)
p->Tok = Ord(kind = eot_tok); p->Tok = Ord(kind = eot_tok);
/* serious error now */ /* serious error now */