[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