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

fix 'aaaa''aaaa' in no escape mode

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@266 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-03 18:35:46 +00:00
parent 74f1a5310a
commit 48b5a364e3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/scanner.c
View File

@ -1299,8 +1299,8 @@ fast_tokenizer(void)
my_fgetch(); my_fgetch();
if (ch != quote) if (ch != quote)
break; break;
my_fgetch();
*charp++ = ch; *charp++ = ch;
my_fgetch();
} else if (ch == '\\' && yap_flags[CHARACTER_ESCAPE_FLAG] != CPROLOG_CHARACTER_ESCAPES) { } else if (ch == '\\' && yap_flags[CHARACTER_ESCAPE_FLAG] != CPROLOG_CHARACTER_ESCAPES) {
/* escape sequence */ /* escape sequence */
ch = my_fgetch(); ch = my_fgetch();

2
C/tracer.c
View File

@ -118,7 +118,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
extern int gc_calls; extern int gc_calls;
vsc_count++; vsc_count++;
if (vsc_count < 49036000) return; /* if (vsc_count < 49036000) return; */
/* if (vsc_count > 500000) exit(0); */ /* if (vsc_count > 500000) exit(0); */
/* if (gc_calls < 1) return;*/ /* if (gc_calls < 1) return;*/
YP_fprintf(YP_stderr,"%lu (%x) ", vsc_count, CreepFlag); YP_fprintf(YP_stderr,"%lu (%x) ", vsc_count, CreepFlag);