[Pkg] The Trunk: Compiler-ul.306.mcz

[commits at source.squeak.org]

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: '()/'!