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

fix unprotected calls to plwrite.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-05-24 15:15:36 -05:00
parent 488a230169
commit 09216a70b8
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/iopreds.c
View File

@ -4993,6 +4993,7 @@ format(volatile Term otail, volatile Term oargs, int sno)
goto do_instantiation_error;
if (!IsAtomTerm(t))
goto do_type_atom_error;
Yap_StartSlots();
Yap_plwrite (t, f_putc, Handle_vars_f|To_heap_f, 1200);
FormatInfo = &finfo;
break;
@ -6145,6 +6146,7 @@ Yap_TermToString(Term t, char *s, unsigned int sz, int flags)
return FALSE;
Yap_StartSlots();
Yap_c_output_stream = sno;
Yap_StartSlots();
Yap_plwrite (t, Stream[sno].stream_wputc, flags, 1200);
s[Stream[sno].u.mem_string.pos] = '\0';
Stream[sno].status = Free_Stream_f;