Revert "add stream alias processing to atom_chars/2, atom_codes/2"
This reverts commit 811ff65209.
This commit is contained in:
@@ -2181,17 +2181,6 @@ impl Machine {
|
|||||||
|
|
||||||
self.machine_st.fail = true;
|
self.machine_st.fail = true;
|
||||||
}
|
}
|
||||||
(HeapCellValueTag::Cons, ptr) => {
|
|
||||||
match_untyped_arena_ptr!(ptr,
|
|
||||||
(ArenaHeaderTag::Stream, stream) => {
|
|
||||||
let alias = stream.options().get_alias().unwrap();
|
|
||||||
self.machine_st.unify_complete_string(alias, a2);
|
|
||||||
}
|
|
||||||
_ => {
|
|
||||||
unreachable!();
|
|
||||||
}
|
|
||||||
);
|
|
||||||
}
|
|
||||||
_ => {
|
_ => {
|
||||||
unreachable!();
|
unreachable!();
|
||||||
}
|
}
|
||||||
@@ -2251,22 +2240,6 @@ impl Machine {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
(HeapCellValueTag::Cons, ptr) => {
|
|
||||||
match_untyped_arena_ptr!(ptr,
|
|
||||||
(ArenaHeaderTag::Stream, stream) => {
|
|
||||||
let alias = stream.options().get_alias().unwrap();
|
|
||||||
|
|
||||||
let iter = alias.chars()
|
|
||||||
.map(|c| fixnum_as_cell!(Fixnum::build_with(c as i64)));
|
|
||||||
|
|
||||||
let h = iter_to_heap_list(&mut self.machine_st.heap, iter);
|
|
||||||
unify!(self.machine_st, heap_loc_as_cell!(h), self.machine_st.registers[2]);
|
|
||||||
}
|
|
||||||
_ => {
|
|
||||||
unreachable!();
|
|
||||||
}
|
|
||||||
);
|
|
||||||
}
|
|
||||||
_ => {
|
_ => {
|
||||||
unreachable!();
|
unreachable!();
|
||||||
}
|
}
|
||||||
|
|||||||
Reference in New Issue
Block a user