The Trunk: Compiler-fbs.264.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Compiler-fbs.264.mcz

commits-2
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. ] ] ]!