equal
deleted
inserted
replaced
1408 ! ! |
1408 ! ! |
1409 |
1409 |
1410 !MethodCategoryList methodsFor:'private-info'! |
1410 !MethodCategoryList methodsFor:'private-info'! |
1411 |
1411 |
1412 methodInfoFor:aMethod in:mclass selector:selector |
1412 methodInfoFor:aMethod in:mclass selector:selector |
1413 |info isDocumentationMethod isVersionMethod| |
1413 |info isDocumentationMethod isVersionMethod def| |
1414 |
1414 |
1415 "/ the first at:ifAbsent: is aktually not needed - it is here to |
1415 "/ the first at:ifAbsent: is aktually not needed - it is here to |
1416 "/ reduce the average blocking time, and to allow for debugging the info generating |
1416 "/ reduce the average blocking time, and to allow for debugging the info generating |
1417 "/ code without deadlock |
1417 "/ code without deadlock |
1418 info := MethodInfoCache at:(mclass name,'>>',selector) ifAbsent:nil. |
1418 info := MethodInfoCache at:(mclass name,'>>',selector) ifAbsent:nil. |
1428 info isLongMethod:( self methodIsMarkedAsLong:aMethod ). |
1428 info isLongMethod:( self methodIsMarkedAsLong:aMethod ). |
1429 |
1429 |
1430 aMethod package ~= mclass package ifTrue:[ |
1430 aMethod package ~= mclass package ifTrue:[ |
1431 aMethod package ~= #'__NoProject__' ifTrue:[ |
1431 aMethod package ~= #'__NoProject__' ifTrue:[ |
1432 info isExtensionMethod:true. |
1432 info isExtensionMethod:true. |
1433 info isOverride:( aMethod package asPackageId projectDefinitionClass |
1433 info isOverride:( (def := aMethod package asPackageId projectDefinitionClass) notNil |
1434 methodOverwrittenBy:aMethod ) notNil |
1434 and:[ (def methodOverwrittenBy:aMethod ) notNil ]) |
1435 ] |
1435 ] |
1436 ] ifFalse:[ |
1436 ] ifFalse:[ |
1437 info isExtensionMethod:false. |
1437 info isExtensionMethod:false. |
1438 info isOverride:false. |
1438 info isOverride:false. |
1439 ]. |
1439 ]. |
1722 ! ! |
1722 ! ! |
1723 |
1723 |
1724 !MethodCategoryList class methodsFor:'documentation'! |
1724 !MethodCategoryList class methodsFor:'documentation'! |
1725 |
1725 |
1726 version |
1726 version |
1727 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.46 2009-10-22 14:42:40 cg Exp $' |
1727 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.47 2009-10-26 15:49:43 cg Exp $' |
1728 ! |
1728 ! |
1729 |
1729 |
1730 version_CVS |
1730 version_CVS |
1731 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.46 2009-10-22 14:42:40 cg Exp $' |
1731 ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.47 2009-10-26 15:49:43 cg Exp $' |
1732 ! ! |
1732 ! ! |
1733 |
1733 |
1734 MethodCategoryList initialize! |
1734 MethodCategoryList initialize! |
1735 MethodCategoryList::CachedMethodInfo initialize! |
1735 MethodCategoryList::CachedMethodInfo initialize! |