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

improve debugger warnings

Browse Source
This commit is contained in:
Vítor Santos Costa 2014-03-27 15:30:17 +00:00
parent ce0715e75a
commit 3b2944511e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@ -195,7 +195,7 @@ int
Yap_DebugPutc(int sno, wchar_t ch) Yap_DebugPutc(int sno, wchar_t ch)
{ {
if (GLOBAL_Option['l' - 96]) if (GLOBAL_Option['l' - 96])
(void) Sputc(ch, GLOBAL_logfile); (void) putc(ch, GLOBAL_logfile);
return (Sputc(ch, GLOBAL_stderr)); return (Sputc(ch, GLOBAL_stderr));
} }
@ -355,6 +355,8 @@ syntax_error (TokEntry * tokptr, IOSTREAM *st, Term *outp)
char s[2]; char s[2];
s[1] = '\0'; s[1] = '\0';
s[0] = (char)info; s[0] = (char)info;
if (s[0] == 'l')
s[0] = '(';
ts[0] = MkAtomTerm(Yap_LookupAtom(s)); ts[0] = MkAtomTerm(Yap_LookupAtom(s));
} }
} }