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:
vsc
2008-01-28 23:35:04 +00:00
parent c567a5aeb1
commit 4a07cd99a5
7 changed files with 169 additions and 16 deletions

View File

@@ -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);
}