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

Add '$random_integer'/3

Browse Source
This commit is contained in:
notoria
2024-12-08 20:00:00 +01:00
parent dba9c9a0a7
commit 8cde3f8ce3
6 changed files with 78 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/machine/dispatch.rs
View File

@@ -4061,6 +4061,14 @@ impl Machine {
.install_new_block(self.machine_st.registers[1]);
step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
}
&Instruction::CallRandomInteger => {
self.random_integer();
step_or_fail!(self, self.machine_st.p += 1);
}
&Instruction::ExecuteRandomInteger => {
self.random_integer();
step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
}
&Instruction::CallMaybe => {
self.maybe();
step_or_fail!(self, self.machine_st.p += 1);