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

in closestream: make sure we have a lock before we start looking inside!

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-07-27 17:28:27 +01:00
parent 08627579fc
commit 4c9d74c2e7
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@ -3257,20 +3257,22 @@ CheckStream (Term arg, int kind, char *msg)
Yap_Error(DOMAIN_ERROR_STREAM_OR_ALIAS, arg, msg);
return (-1);
}
LOCK(Stream[sno].streamlock);
if (Stream[sno].status & Free_Stream_f)
{
UNLOCK(Stream[sno].streamlock);
Yap_Error(EXISTENCE_ERROR_STREAM, arg, msg);
return (-1);
}
if ((Stream[sno].status & kind) == 0)
{
UNLOCK(Stream[sno].streamlock);
if (kind & Input_Stream_f)
Yap_Error(PERMISSION_ERROR_INPUT_STREAM, arg, msg);
else
Yap_Error(PERMISSION_ERROR_OUTPUT_STREAM, arg, msg);
return (-1);
}
LOCK(Stream[sno].streamlock);
return (sno);
}