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

fix get_num

Browse Source
This commit is contained in:
Vitor Santos Costa
2016-08-15 23:42:49 -05:00
parent fab0075f9b
commit 2726fb279c
3 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
C/scanner.c
View File

@@ -1119,10 +1119,9 @@ Term Yap_scan_num(StreamDesc *inp) {
LOCAL_Error_TYPE = RESOURCE_ERROR_TRAIL;
return 0;
}
while (iswblank( ch = getchr(inp) ));
TokEntry *tokptr = (TokEntry *)AllocScannerMemory(sizeof(TokEntry));
tokptr->TokPos = GetCurInpPos(inp);
while ((ch = getchr(inp)) == BS)
;
if (ch == '-') {
sign = -1;
ch = getchr(inp);
@@ -1133,7 +1132,7 @@ Term Yap_scan_num(StreamDesc *inp) {
cherr = '\0';
if (ASP - HR < 1024) {
Yap_clean_tokenizer(old_tr, NULL, NULL);
LOCAL_ErrorMessage = "Stack Overflow";
LOCAL_ErrorMessage = "Stack Overflow";
LOCAL_Error_TYPE = RESOURCE_ERROR_STACK;
return 0;
}