Skip to content
Snippets Groups Projects
Commit cdac1211 authored by wlott's avatar wlott
Browse files

When we grow SCs, make sure we make at least enough room for one more

element and any padding necessary to align that element.
parent 92f1fe7d
No related branches found
No related tags found
No related merge requests found
...@@ -187,7 +187,12 @@ ...@@ -187,7 +187,12 @@
(declare (type sc sc)) (declare (type sc sc))
(let* ((sb (sc-sb sc)) (let* ((sb (sc-sb sc))
(size (finite-sb-current-size sb)) (size (finite-sb-current-size sb))
(inc (max (sb-size sb) (sc-element-size sc) (- needed-size size))) (inc (max (sb-size sb)
(+ (sc-element-size sc)
(- (* (ceiling size (sc-alignment sc))
(sc-alignment sc))
size))
(- needed-size size)))
(new-size (+ size inc)) (new-size (+ size inc))
(conflicts (finite-sb-conflicts sb)) (conflicts (finite-sb-conflicts sb))
(block-size (if (zerop (length conflicts)) (block-size (if (zerop (length conflicts))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment