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

bug in scanning numbers

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-02-20 01:45:55 +00:00
parent eec32e698a
commit 88df20efca
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/scanner.c
View File

@ -1133,7 +1133,7 @@ Term Yap_scan_num(StreamDesc *inp) {
} }
TokEntry *tokptr = (TokEntry *)AllocScannerMemory(sizeof(TokEntry)); TokEntry *tokptr = (TokEntry *)AllocScannerMemory(sizeof(TokEntry));
tokptr->TokPos = GetCurInpPos(inp); tokptr->TokPos = GetCurInpPos(inp);
ch = getchr(inp); while((ch = getchr(inp)) == BS);
if (ch == '-') { if (ch == '-') {
sign = -1; sign = -1;
ch = getchr(inp); ch = getchr(inp);