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:
vsc
2007-04-16 15:24:24 +00:00
parent 67738fbbd1
commit 7fe05a5c48
5 changed files with 9 additions and 5 deletions

View File

@@ -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;
}