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

adjust dynamic external indices upon retraction, reset dynamic_mode to Next regardless of success or failure

Browse Source
This commit is contained in:
Mark Thom
2022-02-18 19:49:16 -07:00
parent d3583276b3
commit a5adcfff4c
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/machine/compile.rs
View File

@@ -1769,11 +1769,13 @@ impl<'a, LS: LoadState<'a>> Loader<'a, LS> {
.opt_arg_index_key
.switch_on_term_loc()
{
Some(index_loc) => find_inner_choice_instr(
&self.wam_prelude.code,
skeleton.clauses[target_pos].clause_start,
index_loc,
),
Some(index_loc) => {
find_inner_choice_instr(
&self.wam_prelude.code,
skeleton.clauses[target_pos].clause_start,
index_loc,
)
}
None => skeleton.clauses[target_pos].clause_start,
};

14
src/machine/dispatch.rs
View File

@@ -1033,12 +1033,11 @@ impl Machine {
}
}
self.machine_st.dynamic_mode = FirstOrNext::Next;
if self.machine_st.fail {
self.machine_st.backtrack();
continue;
}
self.machine_st.dynamic_mode = FirstOrNext::Next;
}
&Instruction::DynamicInternalElse(..) => {
let p = self.machine_st.p;
@@ -1115,12 +1114,11 @@ impl Machine {
}
}
self.machine_st.dynamic_mode = FirstOrNext::Next;
if self.machine_st.fail {
self.machine_st.backtrack();
continue;
}
self.machine_st.dynamic_mode = FirstOrNext::Next;
}
&Instruction::TryMeElse(offset) => {
self.machine_st.try_me_else(offset);
@@ -3129,10 +3127,10 @@ impl Machine {
}
}
self.machine_st.dynamic_mode = FirstOrNext::Next;
if self.machine_st.fail {
self.machine_st.backtrack();
} else {
self.machine_st.dynamic_mode = FirstOrNext::Next;
}
}
}