vm: fix problem in card marking if first block is free
parent
d7e77650d8
commit
cf35ffb126
|
@ -166,6 +166,8 @@ the GC. Some types have a binary payload at the end (string, word, DLL) which
|
||||||
we ignore. */
|
we ignore. */
|
||||||
cell object::binary_payload_start() const
|
cell object::binary_payload_start() const
|
||||||
{
|
{
|
||||||
|
if(free_p()) return 0;
|
||||||
|
|
||||||
switch(type())
|
switch(type())
|
||||||
{
|
{
|
||||||
/* these objects do not refer to other objects at all */
|
/* these objects do not refer to other objects at all */
|
||||||
|
|
Loading…
Reference in New Issue