The Trunk: Compiler-ul.179.mcz

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

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

Name: Compiler-ul.179
Author: ul
Time: 16 November 2010, 4:43:43.297 am
UUID: 107e924e-8060-0d48-a735-4e21340dffd8
Ancestors: Compiler-ul.178

- use #= for integer comparison instead of #== (http://bugs.squeak.org/view.php?id=2788 )

=============== Diff against Compiler-ul.178 ===============

Item was changed:
  ----- Method: MessageNode>>printToDoOn:indent: (in category 'printing') -----
  printToDoOn: aStream indent: level
 
  | limitNode |
  self printReceiver: receiver on: aStream indent: level.
 
  (arguments last == nil or: [(arguments last isMemberOf: AssignmentNode) not])
  ifTrue: [limitNode := arguments first]
  ifFalse: [limitNode := arguments last value].
  (selector key = #to:by:do:
  and: [(arguments at: 2) isConstantNumber
+ and: [(arguments at: 2) key = 1]])
- and: [(arguments at: 2) key == 1]])
  ifTrue: [self printKeywords: #to:do:
  arguments: (Array with: limitNode with: (arguments at: 3))
  on: aStream indent: level]
  ifFalse: [self printKeywords: selector key
  arguments: (Array with: limitNode) , arguments allButFirst
  on: aStream indent: level]!

Item was changed:
  ----- Method: MessageNode>>printWithClosureAnalysisToDoOn:indent: (in category 'printing') -----
  printWithClosureAnalysisToDoOn: aStream indent: level
 
  | limitNode |
  self printWithClosureAnalysisReceiver: receiver on: aStream indent: level.
 
  limitNode := (arguments last == nil
  or: [arguments last isAssignmentNode not])
  ifTrue: [arguments first]
  ifFalse: [arguments last value].
  (selector key = #to:by:do:
  and: [(arguments at: 2) isConstantNumber
+ and: [(arguments at: 2) key = 1]])
- and: [(arguments at: 2) key == 1]])
  ifTrue: [self printWithClosureAnalysisKeywords: #to:do:
  arguments: (Array with: limitNode with: (arguments at: 3))
  on: aStream indent: level]
  ifFalse: [self printWithClosureAnalysisKeywords: selector key
  arguments: (Array with: limitNode) , arguments allButFirst
  on: aStream indent: level]!