The Trunk: Compiler-eem.291.mcz

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),
- '" ']!