[Pkg] The Trunk: Tools-ar.144.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Nov 13 04:27:42 UTC 2009


Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.144.mcz

==================== Summary ====================

Name: Tools-ar.144
Author: ar
Time: 12 November 2009, 8:27:17 am
UUID: a06f820c-c6d7-194c-bad0-b3dd0e04efba
Ancestors: Tools-ar.142, Tools-ul.143

Merging Tools-ul.143:

- moved CompiledMethod >> #explorerContents to Morphic-Explorer

=============== Diff against Tools-ar.142 ===============

Item was removed:
- ----- Method: CompiledMethod>>explorerContents (in category '*Tools-Inspector') -----
- explorerContents
- 	"(CompiledMethod compiledMethodAt: #explorerContents) explore"
- 	
- 	^Array streamContents:
- 		[:s| | tokens |
- 		tokens := Scanner new scanTokens: (self headerDescription readStream skipTo: $"; upTo: $").
- 		s nextPut: (ObjectExplorerWrapper
- 						with: ((0 to: tokens size by: 2) collect:
- 								[:i| i = 0 ifTrue: [self header] ifFalse: [{tokens at: i - 1. tokens at: i}]])
- 						name: 'header'
- 						model: self).
- 		(1 to: self numLiterals) do:
- 			[:key|
- 			s nextPut: (ObjectExplorerWrapper
- 							with: (self literalAt: key)
- 							name: ('literal', key printString contractTo: 32)
- 							model: self)].
- 		self isQuick
- 			ifTrue: [s nextPut: (ObjectExplorerWrapper
- 									with: self symbolic
- 									name: #symbolic
- 									model: self)]
- 			ifFalse:
- 				[self symbolicLinesDo:
- 					[:pc :line|
- 					pc <= 1
- 						ifTrue:
- 							[s nextPut: (ObjectExplorerWrapper
- 											with: line
- 											name: 'pragma'
- 											model: self)]
- 						ifFalse:
- 							[s nextPut: (ObjectExplorerWrapper
- 											with: line
- 											name: pc printString
- 											model: self)]]].
- 				"should be self numLiterals + 1 * Smalltalk wordSize + 1"
- 		self endPC + 1
- 			to: self basicSize
- 			do: [:key|
- 				s nextPut: (ObjectExplorerWrapper
- 								with: (self basicAt: key)
- 								name: key printString
- 								model: self)]]!



More information about the Packages mailing list