fix some thread bugs (thanks to Paulo Moura).
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1866 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
@@ -3356,7 +3356,7 @@ p_has_bom (void)
|
||||
|
||||
static Int
|
||||
p_representation_error (void)
|
||||
{ /* '$set_output'(+Stream,-ErrorMessage) */
|
||||
{ /* '$representation_error'(+Stream,-ErrorMessage) */
|
||||
Int sno = CheckStream (ARG1, Input_Stream_f|Output_Stream_f, "representation_errors/1");
|
||||
if (sno < 0)
|
||||
return (FALSE);
|
||||
@@ -3384,6 +3384,7 @@ p_representation_error (void)
|
||||
Stream[sno].status &= ~(RepError_Prolog_f|RepError_Xml_f);
|
||||
}
|
||||
}
|
||||
UNLOCK(Stream[sno].streamlock);
|
||||
return TRUE;
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user