The Trunk: Compiler-ul.306.mcz

Levente Uzonyi uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-ul.306.mcz

==================== Summary ====================

Name: Compiler-ul.306
Author: ul
Time: 14 August 2015, 7:00:29.616 pm
UUID: d876b73a-547e-4172-b11b-0a878aed4d3d
Ancestors: Compiler-cmm.305

#includesSubString: -> #includesSubstring:

=============== Diff against Compiler-cmm.305 ===============

Item was changed:
  ----- Method: MethodNode>>printWithClosureAnalysisOn: (in category 'printing') -----
  printWithClosureAnalysisOn: aStream
  self ensureClosureAnalysisDone.
  precedence = 1
  ifTrue:
+ [(self selector includesSubstring: '()/')
- [(self selector includesSubString: '()/')
  ifTrue: [aStream nextPutAll: (self selector copyUpTo: $)).
  arguments
  do: [:arg| aStream nextPutAll: arg key]
  separatedBy: [aStream nextPutAll: ', '].
  aStream nextPut: $)]
  ifFalse: [aStream nextPutAll: self selector]]  "no node for method selector"
  ifFalse:
  [self selector keywords with: arguments do:
  [:kwd :arg |
  aStream nextPutAll: kwd; space.
  arg printDefinitionForClosureAnalysisOn: aStream.
  aStream space]].
  comment == nil ifFalse:
  [aStream crtab: 1.
  self printCommentOn: aStream indent: 1].
  temporaries size > 0 ifTrue:
  [aStream crtab: 1; nextPut: $|.
  temporaries do: [:temp |
  aStream space.
  temp printDefinitionForClosureAnalysisOn: aStream].
  aStream space; nextPut: $|].
  primitive > 0 ifTrue:
  [(primitive between: 255 and: 519) ifFalse:  "Dont decompile quick prims  e.g, ^ self or ^instVar"
  [aStream crtab: 1.
  self printPrimitiveOn: aStream]].
  self printPropertiesOn: aStream.
  self printPragmasOn: aStream.
  aStream crtab: 1.
  block printWithClosureAnalysisStatementsOn: aStream indent: 0!

Item was changed:
  ----- Method: SelectorNode>>isForFFICall (in category 'testing') -----
  isForFFICall
+ ^key includesSubstring: '()/'!
- ^key includesSubString: '()/'!