[squeak-dev] The Trunk: System-mt.1392.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Mar 23 15:11:08 UTC 2023
Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.1392.mcz
==================== Summary ====================
Name: System-mt.1392
Author: mt
Time: 23 March 2023, 4:11:05.779438 pm
UUID: ff00cc9b-9aff-1740-8318-0236101d4c5e
Ancestors: System-mt.1391
In change-set tools, let #checkForSlips work on removed classes.
=============== Diff against System-mt.1391 ===============
Item was changed:
----- Method: ChangeSet>>checkForSlips (in category 'fileIn/Out') -----
checkForSlips
"Return a collection of method refs with possible debugging code in them."
| slips |
slips := OrderedCollection new.
self changedClasses do:
[:aClass |
+ (aClass isKindOf: PseudoClass) ifFalse:
+ [ (self methodChangesAtClass: aClass name) associationsDo:
- (self methodChangesAtClass: aClass name) associationsDo:
[:mAssoc | | method | (#(remove addedThenRemoved) includes: mAssoc value) ifFalse:
[method := aClass compiledMethodAt: mAssoc key ifAbsent: [nil].
method ifNotNil:
[method hasReportableSlip
+ ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]]].
- ifTrue: [slips add: aClass name , ' ' , mAssoc key]]]]].
^ slips!
More information about the Squeak-dev
mailing list
|