Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
cdac1211
Commit
cdac1211
authored
Dec 02, 1990
by
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
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/pack.lisp
View file @
cdac1211
...
...
@@ -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
))
size
))
(
-
needed-size
size
)))
(
new-size
(
+
size
inc
))
(
conflicts
(
finite-sb-conflicts
sb
))
(
block-size
(
if
(
zerop
(
length
conflicts
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment