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

provide contextual information in the return value of try_in_situ_result

Browse Source
This commit is contained in:
Mark Thom
2020-03-19 20:41:58 -06:00
parent 487fe21e25
commit 057e2d8056
2 changed files with 10 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/prolog/machine/machine_state.rs
View File

@@ -437,15 +437,15 @@ impl MachineState {
}
}
fn try_in_situ_lookup(name: ClauseName, arity: usize, indices: &IndexStore) -> Option<usize>
fn try_in_situ_lookup(name: ClauseName, arity: usize, indices: &IndexStore) -> Option<LocalCodePtr>
{
match indices.in_situ_code_dir.get(&(name.clone(), arity)) {
Some(p) => Some(*p),
Some(p) => Some(LocalCodePtr::InSituDirEntry(*p)),
None =>
match indices.code_dir.get(&(name, arity)) {
Some(ref idx) => {
if let IndexPtr::Index(p) = idx.0.borrow().0 {
Some(p)
Some(LocalCodePtr::DirEntry(p))
} else {
None
}
@@ -464,12 +464,12 @@ fn try_in_situ(
) -> CallResult {
if let Some(p) = try_in_situ_lookup(name.clone(), arity, indices) {
if last_call {
machine_st.execute_at_index(arity, LocalCodePtr::DirEntry(p));
machine_st.execute_at_index(arity, p);
} else {
machine_st.call_at_index(arity, LocalCodePtr::DirEntry(p));
machine_st.call_at_index(arity, p);
}
machine_st.p = in_situ_dir_entry!(p);
machine_st.p = CodePtr::Local(p);
Ok(())
} else {
let stub = MachineError::functor_stub(name.clone(), arity);

6
src/prolog/macros.rs
View File

@@ -211,12 +211,6 @@ macro_rules! dir_entry {
};
}
macro_rules! in_situ_dir_entry {
($idx:expr) => {
CodePtr::Local(LocalCodePtr::InSituDirEntry($idx))
};
}
macro_rules! set_code_index {
($idx:expr, $ip:expr, $mod_name:expr) => {{
let mut idx = $idx.0.borrow_mut();