26 Jul
2007
26 Jul
'07
2:01 p.m.
Hi,
I was reading the code of the nextInstance primitive and to undertand I need to know what is a FreeObject:
firstAccessibleObject "Return the first accessible object in the heap." | obj | obj := self firstObject. [obj < endOfMemory] whileTrue: [(self isFreeObject: obj) ifFalse: [^ obj]. obj := self objectAfter: obj]. self error: 'heap is empty'
isFreeObject: oop
^ (self headerType: oop) = HeaderTypeFree
Why are they inside the image? When are they created? Thanks
Mth