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

memory streams

Browse Source
This commit is contained in:
Vitor Santos Costa 2016-06-28 16:45:35 +01:00
parent 8d64753c54
commit ff3185b551
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
os/format.c
View File

@ -269,7 +269,6 @@ typedef struct {
} gap_t;
typedef struct format_status {
int format_error;
gap_t gap[16];
// number of octets
int phys_start;
@ -537,7 +536,6 @@ static Int doformat(volatile Term otail, volatile Term oargs,
bool alloc_fstr = false;
finfo.format_error = FALSE;
if (GLOBAL_Stream[sno0].status & InMemory_Stream_f) {
old_handler = GLOBAL_Stream[sno].u.mem_string.error_handler;
GLOBAL_Stream[sno].u.mem_string.error_handler = (void *)&format_botch;
@ -640,10 +638,7 @@ static Int doformat(volatile Term otail, volatile Term oargs,
}
// it starts here
finfo.format_error = false;
finfo.gapi = 0;
sno0 = sno;
finfo.format_error = false;
finfo.gapi = 0;
finfo.phys_start = 0;
finfo.lstart = 0;
@ -1133,7 +1128,7 @@ static Int doformat(volatile Term otail, volatile Term oargs,
ta[1] = oargs;
Yap_Error(LOCAL_Error_TYPE,
Yap_MkApplTerm(Yap_MkFunctor(AtomFormat, 2), 2, ta),
"format/2");
"arguments to format");
}
if (GLOBAL_Stream[sno].status & InMemory_Stream_f) {
GLOBAL_Stream[sno].u.mem_string.error_handler = old_handler;