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
......@@ -187,7 +187,12 @@
(declare (type sc sc))
(let* ((sb (sc-sb sc))
(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))
(- needed-size size)))
(new-size (+ size inc))
(conflicts (finite-sb-conflicts sb))
(block-size (if (zerop (length conflicts))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment