rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

launch exception if closing a closed TCP stream #1046

Browse Source
This commit is contained in:
Adrián Arroyo Calle
2021-09-28 22:48:51 +02:00
parent 5d2b0377d8
commit 4d0998ef72
2 changed files with 38 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
src/machine/system_calls.rs
View File

@@ -2704,10 +2704,29 @@ impl MachineState {
}
if !stream.is_stdin() && !stream.is_stdout() && !stream.is_stderr() {
stream.close();
if stream.is_closed() {
let stub = MachineError::functor_stub(
clause_name!("close"),
1,
);
if let Some(ref alias) = stream.options().alias {
indices.stream_aliases.remove(alias);
let addr = self.heap.to_unifiable(
HeapCellValue::Stream(stream.clone()),
);
return Err(self.error_form(
MachineError::existence_error(
self.heap.h(),
ExistenceError::Stream(addr),
),
stub,
));
} else {
stream.close();
if let Some(ref alias) = stream.options().alias {
indices.stream_aliases.remove(alias);
}
}
}
}