Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.291.mcz
==================== Summary ====================
Name: Compiler-eem.291 Author: eem Time: 19 December 2014, 10:15:04.766 am UUID: 20aefd33-c4e7-45b2-88b7-e6e29b5988b9 Ancestors: Compiler-eem.290
More relevant and neater primitive method decompilation with VMMaker loaded.
=============== Diff against Compiler-eem.290 ===============
Item was changed: ----- Method: MethodNode>>printPrimitiveOn: (in category 'printing') ----- printPrimitiveOn: aStream "Print the primitive on aStream" | primDecl | primitive = 0 ifTrue: [^self]. primitive = 120 ifTrue: "External call spec" [^aStream print: encoder literals first]. aStream nextPutAll: '<primitive: '. primitive = 117 ifTrue: [primDecl := encoder literals at: 1. (primDecl at: 2) asString printOn: aStream. (primDecl at: 1) ifNotNil: [:moduleName| aStream nextPutAll:' module: '. moduleName asString printOn: aStream]] ifFalse: [aStream print: primitive]. self primitiveErrorVariableName ifNotNil: [:primitiveErrorVariableName| aStream nextPutAll: ' error: '; nextPutAll: primitiveErrorVariableName]. aStream nextPut: $>. + ((Smalltalk classNamed: #StackInterpreter) ifNil: [Smalltalk classNamed: #Interpreter]) ifNotNil: + [:interpreterClass| + aStream nextPutAll: ' "', (interpreterClass primitiveTable at: primitive + 1), '" ']! - Smalltalk at: #Interpreter ifPresent:[:cls| - aStream nextPutAll: ' "', - ((cls classPool at: #PrimitiveTable) at: primitive + 1), - '" ']!
packages@lists.squeakfoundation.org