win version was broken because wchar_t is unsigned in WIN32.
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2070 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
13
C/iopreds.c
13
C/iopreds.c
@@ -691,12 +691,6 @@ Yap_DebugPutc(int sno, wchar_t ch)
|
||||
return (putc(ch, Yap_stderr));
|
||||
}
|
||||
|
||||
void
|
||||
Yap_DebugPlWrite(Term t)
|
||||
{
|
||||
Yap_plwrite(t, Yap_DebugPutc, 0);
|
||||
}
|
||||
|
||||
void
|
||||
Yap_DebugErrorPutc(int c)
|
||||
{
|
||||
@@ -1423,12 +1417,13 @@ ConsolePipeGetc(int sno)
|
||||
static int
|
||||
PlGetc (int sno)
|
||||
{
|
||||
register StreamDesc *s = &Stream[sno];
|
||||
register Int ch;
|
||||
StreamDesc *s = &Stream[sno];
|
||||
Int ch;
|
||||
|
||||
ch = YP_getc (s->u.file.file);
|
||||
if (ch == EOF)
|
||||
if (ch == EOF) {
|
||||
return post_process_eof(s);
|
||||
}
|
||||
return post_process_read_char(ch, s);
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user