Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.200.mcz==================== Summary ====================
Name: System-ar.200
Author: ar
Time: 22 December 2009, 12:43:17 pm
UUID: 54b8da73-2e10-a040-9ee9-23ecc8d92681
Ancestors: System-nice.199
CompiledMethodTrailer phase 1: Preparations.
=============== Diff against System-nice.199 ===============
Item was changed:
----- Method: SystemDictionary>>testFormatter (in category 'housekeeping') -----
testFormatter
"Smalltalk testFormatter"
"Reformats the source for every method in the system, and
then compiles that source and verifies that it generates
identical code. The formatting used will be either classic
monochrome or fancy polychrome, depending on the setting
of the preference #colorWhenPrettyPrinting."
"Note: removed references to Preferences colorWhenPrettyPrinting and replaced them simply with false, as I've been removing this preference lately. --Ron Spengler 8/23/09"
| newCodeString methodNode oldMethod newMethod badOnes n |
badOnes := OrderedCollection new.
self forgetDoIts.
'Formatting all classes...'
displayProgressAt: Sensor cursorPoint
from: 0
to: CompiledMethod instanceCount
during:
[:bar |
n := 0.
self systemNavigation allBehaviorsDo:
[:cls |
"Transcript cr; show: cls name."
cls selectorsDo:
[:selector |
(n := n + 1) \\ 100 = 0 ifTrue: [bar value: n].
newCodeString := cls prettyPrinterClass
format: (cls sourceCodeAt: selector)
in: cls
notifying: nil
decorated: false.
methodNode := cls compilerClass new
compile: newCodeString
in: cls
notifying: nil
ifFail: [].
+ newMethod := methodNode generate.
- newMethod := methodNode generate: #(0 0 0 0).
oldMethod := cls compiledMethodAt: selector.
oldMethod = newMethod
ifFalse:
[Transcript
cr;
show: '***' , cls name , ' ' , selector.
badOnes add: cls name , ' ' , selector]]]].
self systemNavigation browseMessageList: badOnes asSortedCollection
name: 'Formatter Discrepancies'!
Locked
