fix parser bounds check bug (#1333, #1301)

2022-03-08 21:25:19 -07:00
parent ecebaf8216
commit bd5d6d0686
3 changed files with 4 additions and 57 deletions
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -3302,8 +3302,8 @@ impl Machine {
            .get_name();

        let op = read_heap_cell!(self.machine_st.store(self.machine_st.deref(op)),
-            (HeapCellValueTag::Char) => {
-                self.machine_st.atom_tbl.build_with(&op.to_string())
+            (HeapCellValueTag::Char, c) => {
+                self.machine_st.atom_tbl.build_with(&c.to_string())
            }
            (HeapCellValueTag::Atom, (name, _arity)) => {
                name