[squeak-dev] The Trunk: Compiler-fbs.264.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jul 12 19:52:54 UTC 2013
Frank Shearar uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-fbs.264.mcz
==================== Summary ====================
Name: Compiler-fbs.264
Author: fbs
Time: 12 July 2013, 8:52:28.613 pm
UUID: d9be5381-8137-2e4a-be06-2000e13a240b
Ancestors: Compiler-nice.263
Use UIManager default inform: '' during: [], not Utilities.
=============== Diff against Compiler-nice.263 ===============
Item was changed:
+ SystemOrganization addCategory: #'Compiler-Exceptions'!
SystemOrganization addCategory: #'Compiler-Kernel'!
SystemOrganization addCategory: #'Compiler-ParseNodes'!
SystemOrganization addCategory: #'Compiler-Support'!
SystemOrganization addCategory: #'Compiler-Syntax'!
- SystemOrganization addCategory: #'Compiler-Exceptions'!
Item was changed:
----- Method: Decompiler class>>recompileAllTest (in category 'testing') -----
recompileAllTest
"[Decompiler recompileAllTest]"
"decompile every method and compile it back; if the decompiler is correct then the system should keep running. :)"
SystemNavigation default allBehaviorsDo: [ :behavior |
+ UIManager default informUser: (behavior printString) during: [
- Utilities informUser: (behavior printString) during: [
behavior selectors do: [ :sel |
| decompiled ast compiled |
decompiled := Decompiler new decompile: sel in: behavior.
ast := Compiler new compile: decompiled in: behavior notifying: nil ifFail: [ self error: 'failed' ].
compiled := ast generate: (behavior compiledMethodAt: sel) trailer.
behavior addSelector: sel withMethod: compiled. ] ] ]!
More information about the Squeak-dev
mailing list
|