tighten deallocate truncation of stack (#1686)
This commit is contained in:
@@ -2784,8 +2784,11 @@ impl MachineState {
|
|||||||
self.cp = frame.prelude.cp;
|
self.cp = frame.prelude.cp;
|
||||||
self.e = frame.prelude.e;
|
self.e = frame.prelude.e;
|
||||||
|
|
||||||
if e > self.b {
|
if self.e > self.b {
|
||||||
self.stack.truncate(e);
|
let frame = self.stack.index_and_frame(self.e);
|
||||||
|
let size = AndFrame::size_of(frame.prelude.univ_prelude.num_cells);
|
||||||
|
|
||||||
|
self.stack.truncate(self.e + size);
|
||||||
}
|
}
|
||||||
|
|
||||||
self.p += 1;
|
self.p += 1;
|
||||||
|
|||||||
Reference in New Issue
Block a user