|
@@ -266,7 +266,7 @@ smalltalk.addMethod(
|
|
|
"_subtreeNeedsAliasing",
|
|
|
smalltalk.method({
|
|
|
selector: "subtreeNeedsAliasing",
|
|
|
-category: 'accessing',
|
|
|
+category: 'testing',
|
|
|
fn: function (){
|
|
|
var self=this;
|
|
|
var $1;
|
|
@@ -515,6 +515,26 @@ referencedClasses: []
|
|
|
}),
|
|
|
smalltalk.BlockNode);
|
|
|
|
|
|
+smalltalk.addMethod(
|
|
|
+"_subtreeNeedsAliasing",
|
|
|
+smalltalk.method({
|
|
|
+selector: "subtreeNeedsAliasing",
|
|
|
+category: 'testing',
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+var $1;
|
|
|
+$1=smalltalk.send(smalltalk.send(self,"_shouldBeAliased",[]),"_or_",[(function(){
|
|
|
+return smalltalk.send(self,"_shouldBeInlined",[]);
|
|
|
+})]);
|
|
|
+return $1;
|
|
|
+},
|
|
|
+args: [],
|
|
|
+source: "subtreeNeedsAliasing\x0a ^self shouldBeAliased or: [ self shouldBeInlined ]",
|
|
|
+messageSends: ["or:", "shouldBeInlined", "shouldBeAliased"],
|
|
|
+referencedClasses: []
|
|
|
+}),
|
|
|
+smalltalk.BlockNode);
|
|
|
+
|
|
|
|
|
|
|
|
|
smalltalk.addClass('CascadeNode', smalltalk.Node, ['receiver'], 'Compiler-AST');
|