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

fix severe bug in indexing of floating point numbers

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1110 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-07-29 18:15:19 +00:00
parent 07686320f5
commit 2a93a01f1c
3 changed files with 23 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
C/iopreds.c
View File

@@ -3760,7 +3760,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
int (* f_putc)(int, int);
int has_tabs;
jmp_buf format_botch;
void *old_handler;
volatile void *old_handler = NULL;
volatile int old_pos;
if (Stream[sno].status & InMemory_Stream_f) {
@@ -4085,7 +4085,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
fstr = NULL;
}
if (Stream[sno].status & InMemory_Stream_f) {
old_handler = Stream[sno].u.mem_string.error_handler;
Stream[sno].u.mem_string.error_handler = old_handler;
}
format_clean_up(format_base, fstr, targs);
Yap_JumpToEnv(ball);
@@ -4193,7 +4193,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
fstr = NULL;
}
if (Stream[sno].status & InMemory_Stream_f) {
old_handler = Stream[sno].u.mem_string.error_handler;
Stream[sno].u.mem_string.error_handler = old_handler;
}
format_clean_up(format_base, fstr, targs);
return FALSE;
@@ -4216,7 +4216,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
if (tnum <= 8)
targs = NULL;
if (Stream[sno].status & InMemory_Stream_f) {
old_handler = Stream[sno].u.mem_string.error_handler;
Stream[sno].u.mem_string.error_handler = old_handler;
}
format_clean_up(format_base, fstr, targs);
return (TRUE);