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

Fix bitwise shift functions type error in the second argument

Browse Source
This commit is contained in:
Paulo Moura
2021-05-09 19:58:35 +01:00
parent 9b483d381f
commit 7a576ee36e
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/machine/arithmetic_ops.rs
View File

@@ -676,6 +676,10 @@ impl MachineState {
MachineError::type_error(self.heap.h(), ValidType::Integer, n2), MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
stub, stub,
)), )),
(Number::Fixnum(_), n2) => Err(self.error_form(
MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
stub,
)),
(n1, _) => Err(self.error_form( (n1, _) => Err(self.error_form(
MachineError::type_error(self.heap.h(), ValidType::Integer, n1), MachineError::type_error(self.heap.h(), ValidType::Integer, n1),
stub, stub,
@@ -716,6 +720,10 @@ impl MachineState {
MachineError::type_error(self.heap.h(), ValidType::Integer, n2), MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
stub, stub,
)), )),
(Number::Fixnum(_), n2) => Err(self.error_form(
MachineError::type_error(self.heap.h(), ValidType::Integer, n2),
stub,
)),
(n1, _) => Err(self.error_form( (n1, _) => Err(self.error_form(
MachineError::type_error(self.heap.h(), ValidType::Integer, n1), MachineError::type_error(self.heap.h(), ValidType::Integer, n1),
stub, stub,