Browse Source

Use #visitAllChildren:.

Herby Vojčík 4 years ago
parent
commit
e28758390d
2 changed files with 4 additions and 4 deletions
  1. 3 3
      lang/src/Compiler-Inlining.js
  2. 1 1
      lang/src/Compiler-Inlining.st

+ 3 - 3
lang/src/Compiler-Inlining.js

@@ -801,11 +801,11 @@ selector: "visitIRInlinedClosure:",
 protocol: "visiting",
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: ["anIRInlinedClosure"],
-source: "visitIRInlinedClosure: anIRInlinedClosure\x0a\x09self stream nextPutVars: (anIRInlinedClosure tempDeclarations collect: [ :each |\x0a\x09\x09each name asVariableName ]).\x0a\x09self visitAll: anIRInlinedClosure dagChildren",
+source: "visitIRInlinedClosure: anIRInlinedClosure\x0a\x09self stream nextPutVars: (anIRInlinedClosure tempDeclarations collect: [ :each |\x0a\x09\x09each name asVariableName ]).\x0a\x09self visitAllChildren: anIRInlinedClosure",
 referencedClasses: [],
 //>>excludeEnd("ide");
 pragmas: [],
-messageSends: ["nextPutVars:", "stream", "collect:", "tempDeclarations", "asVariableName", "name", "visitAll:", "dagChildren"]
+messageSends: ["nextPutVars:", "stream", "collect:", "tempDeclarations", "asVariableName", "name", "visitAllChildren:"]
 }, function ($methodClass){ return function (anIRInlinedClosure){
 var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
@@ -820,7 +820,7 @@ return $recv($recv(each)._name())._asVariableName();
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
 //>>excludeEnd("ctx");
 })));
-$self._visitAll_($recv(anIRInlinedClosure)._dagChildren());
+$self._visitAllChildren_(anIRInlinedClosure);
 return self;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"visitIRInlinedClosure:",{anIRInlinedClosure:anIRInlinedClosure})});

+ 1 - 1
lang/src/Compiler-Inlining.st

@@ -235,7 +235,7 @@ I am a specialized JavaScript translator able to write inlined IR instructions t
 visitIRInlinedClosure: anIRInlinedClosure
 	self stream nextPutVars: (anIRInlinedClosure tempDeclarations collect: [ :each |
 		each name asVariableName ]).
-	self visitAll: anIRInlinedClosure dagChildren
+	self visitAllChildren: anIRInlinedClosure
 !
 
 visitIRInlinedIfFalse: anIRInlinedIfFalse