equal
deleted
inserted
replaced
11211 list add: #MethodVariable. |
11211 list add: #MethodVariable. |
11212 ]. |
11212 ]. |
11213 (classToCompileFor notNil |
11213 (classToCompileFor notNil |
11214 and:[classToCompileFor isMeta not |
11214 and:[classToCompileFor isMeta not |
11215 and:[classToCompileFor isBuiltInClass not |
11215 and:[classToCompileFor isBuiltInClass not |
11216 and:[(parser isDoIt not)]]]) ifTrue:[ |
11216 and:[classToCompileFor theNonMetaclass isSharedPool not |
|
11217 and:[(parser isDoIt not)]]]]) ifTrue:[ |
11217 list add: #InstanceVariable. |
11218 list add: #InstanceVariable. |
11218 ]. |
11219 ]. |
11219 ] ifFalse:[ |
11220 ] ifFalse:[ |
11220 list addAll: #( NewClass GlobalVariable NameSpace ). |
11221 list addAll: #( NewClass GlobalVariable NameSpace ). |
11221 |
11222 |
11224 classToCompileFor isBuiltInClass ifFalse:[ |
11225 classToCompileFor isBuiltInClass ifFalse:[ |
11225 classToCompileFor isMeta ifTrue:[ |
11226 classToCompileFor isMeta ifTrue:[ |
11226 list add: #ClassInstanceVariable. |
11227 list add: #ClassInstanceVariable. |
11227 ]. |
11228 ]. |
11228 ]. |
11229 ]. |
11229 list addAll: #( #ClassVariable #PrivateClass ). |
11230 (classToCompileFor notNil and:[ classToCompileFor theNonMetaclass isSharedPool]) ifTrue:[ |
|
11231 list addAllFirst: #( #ClassVariable nil ). |
|
11232 ] ifFalse:[ |
|
11233 list addAll: #( #ClassVariable #PrivateClass ). |
|
11234 ] |
11230 ] |
11235 ] |
11231 ]. |
11236 ]. |
11232 |
11237 |
11233 parser isDoIt ifTrue:[ |
11238 parser isDoIt ifTrue:[ |
11234 list notEmpty ifTrue:[ |
11239 list notEmpty ifTrue:[ |