The Trunk: Compiler-ul.193.mcz

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

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

Name: Compiler-ul.193
Author: ul
Time: 28 February 2011, 7:27:29.293 am
UUID: 2676a6c5-2140-814f-b508-e35126bd2c85
Ancestors: Compiler-nice.192

- removed guarding clauses from MessageNode's #checkBlock:as:from:maxArgs: and #transformCase:
- removed all implementations of #canBeSpecialArgument

=============== Diff against Compiler-nice.192 ===============

Item was removed:
- ----- Method: BlockNode>>canBeSpecialArgument (in category 'testing') -----
- canBeSpecialArgument
- "Can I be an argument of (e.g.) ifTrue:?"
-
- ^arguments size = 0!

Item was changed:
  ----- Method: MessageNode>>checkBlock:as:from:maxArgs: (in category 'private') -----
  checkBlock: node as: nodeName from: encoder maxArgs: maxArgs
  "Answer true if node is a BlockNode with at most maxArgs arguments.
  This check is required in order to inline some special messages.
  Notify some undue usage of these special messages."
 
+ node isBlockNode ifFalse: [ ^false ].
+ node numberOfArguments <= maxArgs ifTrue: [ ^true ].
+ ^encoder notify: '<- ', nodeName , ' of ' , (MacroSelectors at: special) , ' has too many arguments'!
- node isBlockNode
- ifTrue:
- [node numberOfArguments <= maxArgs
- ifTrue: [^true]
- ifFalse: [encoder notify: '<- ', nodeName , ' of ' ,
- (MacroSelectors at: special) , ' has too many arguments']].
- ^false!

Item was changed:
  ----- Method: MessageNode>>transformCase: (in category 'macro transformations') -----
  transformCase: encoder
 
  | caseNode |
  caseNode := arguments first.
+ (caseNode isMemberOf: BraceNode) ifFalse: [ ^false ].
+ (caseNode blockAssociationCheck: encoder) ifFalse: [ ^false ].
+ (arguments size = 1 or: [
+ self checkBlock: arguments last as: 'otherwise arg' from: encoder ]) ifFalse: [
+ ^false ].
+ caseNode elements do: [ :messageNode |
+ messageNode receiver noteOptimizedIn: self.
+ messageNode arguments first noteOptimizedIn: self ].
+ arguments size = 2 ifTrue: [ arguments last noteOptimizedIn: self ].
+ ^true!
- (caseNode isMemberOf: BraceNode) ifTrue:
- [((caseNode blockAssociationCheck: encoder)
-  and: [arguments size = 1
-    or: [self checkBlock: arguments last as: 'otherwise arg' from: encoder]]) ifFalse:
- [^false].
- caseNode elements do:
- [:messageNode|
- messageNode receiver noteOptimizedIn: self.
- messageNode arguments first noteOptimizedIn: self].
- arguments size = 2 ifTrue:
- [arguments last noteOptimizedIn: self].
- ^true].
- ^false!

Item was removed:
- ----- Method: ParseNode>>canBeSpecialArgument (in category 'testing') -----
- canBeSpecialArgument
- "Can I be an argument of (e.g.) ifTrue:?"
-
- ^false!

Item was removed:
- ----- Method: VariableNode>>canBeSpecialArgument (in category 'testing') -----
- canBeSpecialArgument
- "Can I be an argument of (e.g.) ifTrue:?"
-
- ^code < LdNil!