unmark cell bits in occurs check
This commit is contained in:
@@ -882,6 +882,8 @@ impl MachineState {
|
|||||||
|
|
||||||
if !value.is_constant() {
|
if !value.is_constant() {
|
||||||
for addr in stackful_preorder_iter(&mut self.heap, value) {
|
for addr in stackful_preorder_iter(&mut self.heap, value) {
|
||||||
|
let addr = unmark_cell_bits!(addr);
|
||||||
|
|
||||||
if let Some(inner_r) = addr.as_var() {
|
if let Some(inner_r) = addr.as_var() {
|
||||||
if r == inner_r {
|
if r == inner_r {
|
||||||
occurs_triggered = true;
|
occurs_triggered = true;
|
||||||
|
|||||||
Reference in New Issue
Block a user