equal
deleted
inserted
replaced
1611 |
1611 |
1612 cachedName isNil ifTrue:[ |
1612 cachedName isNil ifTrue:[ |
1613 self isMeta ifTrue:[ |
1613 self isMeta ifTrue:[ |
1614 cachedName := self theNonMetaclass name , ' class' |
1614 cachedName := self theNonMetaclass name , ' class' |
1615 ] ifFalse:[ |
1615 ] ifFalse:[ |
|
1616 self isPrivateMeta ifTrue:[ |
|
1617 self halt. |
|
1618 ]. |
|
1619 |
1616 nameRef := self nameSlot. |
1620 nameRef := self nameSlot. |
1617 nameRef isInteger ifTrue:[ |
1621 nameRef isInteger ifTrue:[ |
1618 nameRef := memory fetchObjectAt:nameRef. |
1622 nameRef := memory fetchObjectAt:nameRef. |
1619 ]. |
1623 ]. |
1620 nameRef notNil ifTrue:[ |
1624 nameRef notNil ifTrue:[ |
2120 ! |
2124 ! |
2121 |
2125 |
2122 fileOutAllMethodsOn:aStream methodFilter:methodFilter |
2126 fileOutAllMethodsOn:aStream methodFilter:methodFilter |
2123 |collectionOfCategories| |
2127 |collectionOfCategories| |
2124 |
2128 |
2125 collectionOfCategories := self class categories asSortedCollection. |
2129 collectionOfCategories := self theMetaclass categories asSortedCollection. |
2126 collectionOfCategories notNil ifTrue:[ |
2130 collectionOfCategories notNil ifTrue:[ |
2127 collectionOfCategories do:[:aCategory | |
2131 collectionOfCategories do:[:aCategory | |
2128 self class fileOutCategory:aCategory methodFilter:methodFilter on:aStream. |
2132 self theMetaclass fileOutCategory:aCategory methodFilter:methodFilter on:aStream. |
2129 aStream cr |
2133 aStream cr |
2130 ] |
2134 ] |
2131 ]. |
2135 ]. |
2132 collectionOfCategories := self categories asSortedCollection. |
2136 collectionOfCategories := self categories asSortedCollection. |
2133 collectionOfCategories notNil ifTrue:[ |
2137 collectionOfCategories notNil ifTrue:[ |
3950 isLongs |
3954 isLongs |
3951 ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagLongs. |
3955 ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagLongs. |
3952 ! |
3956 ! |
3953 |
3957 |
3954 isMeta |
3958 isMeta |
3955 ^ self size == (Metaclass instSize). |
3959 |clsName| |
3956 "/ ^ classRef classRef name = 'Metaclass' |
3960 |
|
3961 clsName := classRef name. |
|
3962 ^ clsName = 'Metaclass' or:[clsName = 'PrivateMetaclass']. |
|
3963 |
|
3964 "/self halt. |
|
3965 "/ ^ self size == (Metaclass instSize). |
3957 ! |
3966 ! |
3958 |
3967 |
3959 isNameSpace |
3968 isNameSpace |
3960 "return true, if this is a nameSpace." |
3969 "return true, if this is a nameSpace." |
3961 |
3970 |