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

win version was broken because wchar_t is unsigned in WIN32.

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

4
C/alloc.c
View File

@@ -12,7 +12,7 @@
* Last rev: *
* mods: *
* comments: allocating space *
* version:$Id: alloc.c,v 1.88 2008-01-23 18:25:19 vsc Exp $ *
* version:$Id: alloc.c,v 1.89 2008-01-28 23:35:03 vsc Exp $ *
*************************************************************************/
#ifdef SCCS
static char SccsId[] = "%W% %G%";
@@ -752,7 +752,7 @@ InitWorkSpace(Int s)
GetSystemInfo(&si);
Yap_page_size = si.dwPageSize;
s = ((s+ (ALLOC_SIZE-1))/ALLOC_SIZE)*ALLOC_SIZE;
s = ((s+ (YAP_ALLOC_SIZE-1))/YAP_ALLOC_SIZE)*YAP_ALLOC_SIZE;
brk = (LPVOID)Yap_page_size;
if (!ExtendWorkSpace(s,0))
return FALSE;

13
C/iopreds.c
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);
}