Compiler-Inlining.js 93 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427
  1. define(["amber/boot", "require", "amber/core/Compiler-AST", "amber/core/Compiler-Core", "amber/core/Compiler-IR", "amber/core/Compiler-Semantic", "amber/core/Kernel-Objects"], function($boot,requirejs){"use strict";
  2. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. var $pkg = $core.addPackage("Compiler-Inlining");
  4. $pkg.innerEval = function (expr) { return eval(expr); };
  5. $pkg.transport = {"type":"amd","amdNamespace":"amber/core"};
  6. $core.addClass("ASTPreInliner", $globals.NodeVisitor, [], "Compiler-Inlining");
  7. $core.addMethod(
  8. $core.method({
  9. selector: "visitSendNode:",
  10. protocol: "visiting",
  11. //>>excludeStart("ide", pragmas.excludeIdeData);
  12. args: ["aNode"],
  13. source: "visitSendNode: aNode\x0a\x0a\x09aNode superSend ifFalse: [ \x0a\x09\x09(IRSendInliner inlinedSelectors includes: aNode selector) ifTrue: [\x0a\x09\x09\x09aNode receiver ifNotNil: [ :receiver |\x0a\x09\x09\x09\x09receiver shouldBeAliased: true ] ] ].\x0a\x0a\x09^ super visitSendNode: aNode",
  14. referencedClasses: ["IRSendInliner"],
  15. //>>excludeEnd("ide");
  16. pragmas: [],
  17. messageSends: ["ifFalse:", "superSend", "ifTrue:", "includes:", "inlinedSelectors", "selector", "ifNotNil:", "receiver", "shouldBeAliased:", "visitSendNode:"]
  18. }, function ($methodClass){ return function (aNode){
  19. var self=this,$self=this;
  20. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  21. return $core.withContext(function($ctx1) {
  22. //>>excludeEnd("ctx");
  23. var $1,$2,$3,$4,$receiver;
  24. $1=$recv(aNode)._superSend();
  25. if(!$core.assert($1)){
  26. $2=$recv($recv($globals.IRSendInliner)._inlinedSelectors())._includes_($recv(aNode)._selector());
  27. if($core.assert($2)){
  28. $3=$recv(aNode)._receiver();
  29. if(($receiver = $3) == null || $receiver.a$nil){
  30. $3;
  31. } else {
  32. var receiver;
  33. receiver=$receiver;
  34. $recv(receiver)._shouldBeAliased_(true);
  35. }
  36. }
  37. }
  38. $4=(
  39. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  40. $ctx1.supercall = true,
  41. //>>excludeEnd("ctx");
  42. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._visitSendNode_.call($self,aNode));
  43. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  44. $ctx1.supercall = false;
  45. //>>excludeEnd("ctx");;
  46. return $4;
  47. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  48. }, function($ctx1) {$ctx1.fill(self,"visitSendNode:",{aNode:aNode})});
  49. //>>excludeEnd("ctx");
  50. }; }),
  51. $globals.ASTPreInliner);
  52. $core.addClass("IRInlinedClosure", $globals.IRClosure, [], "Compiler-Inlining");
  53. //>>excludeStart("ide", pragmas.excludeIdeData);
  54. $globals.IRInlinedClosure.comment="I represent an inlined closure instruction.";
  55. //>>excludeEnd("ide");
  56. $core.addMethod(
  57. $core.method({
  58. selector: "acceptDagVisitor:",
  59. protocol: "visiting",
  60. //>>excludeStart("ide", pragmas.excludeIdeData);
  61. args: ["aVisitor"],
  62. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitIRInlinedClosure: self",
  63. referencedClasses: [],
  64. //>>excludeEnd("ide");
  65. pragmas: [],
  66. messageSends: ["visitIRInlinedClosure:"]
  67. }, function ($methodClass){ return function (aVisitor){
  68. var self=this,$self=this;
  69. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  70. return $core.withContext(function($ctx1) {
  71. //>>excludeEnd("ctx");
  72. $recv(aVisitor)._visitIRInlinedClosure_(self);
  73. return self;
  74. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  75. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  76. //>>excludeEnd("ctx");
  77. }; }),
  78. $globals.IRInlinedClosure);
  79. $core.addMethod(
  80. $core.method({
  81. selector: "isInlined",
  82. protocol: "testing",
  83. //>>excludeStart("ide", pragmas.excludeIdeData);
  84. args: [],
  85. source: "isInlined\x0a\x09^ true",
  86. referencedClasses: [],
  87. //>>excludeEnd("ide");
  88. pragmas: [],
  89. messageSends: []
  90. }, function ($methodClass){ return function (){
  91. var self=this,$self=this;
  92. return true;
  93. }; }),
  94. $globals.IRInlinedClosure);
  95. $core.addClass("IRInlinedSend", $globals.IRSend, [], "Compiler-Inlining");
  96. //>>excludeStart("ide", pragmas.excludeIdeData);
  97. $globals.IRInlinedSend.comment="I am the abstract super class of inlined message send instructions.";
  98. //>>excludeEnd("ide");
  99. $core.addMethod(
  100. $core.method({
  101. selector: "acceptDagVisitor:",
  102. protocol: "visiting",
  103. //>>excludeStart("ide", pragmas.excludeIdeData);
  104. args: ["aVisitor"],
  105. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitInlinedSend: self",
  106. referencedClasses: [],
  107. //>>excludeEnd("ide");
  108. pragmas: [],
  109. messageSends: ["visitInlinedSend:"]
  110. }, function ($methodClass){ return function (aVisitor){
  111. var self=this,$self=this;
  112. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  113. return $core.withContext(function($ctx1) {
  114. //>>excludeEnd("ctx");
  115. $recv(aVisitor)._visitInlinedSend_(self);
  116. return self;
  117. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  118. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  119. //>>excludeEnd("ctx");
  120. }; }),
  121. $globals.IRInlinedSend);
  122. $core.addMethod(
  123. $core.method({
  124. selector: "internalVariables",
  125. protocol: "accessing",
  126. //>>excludeStart("ide", pragmas.excludeIdeData);
  127. args: [],
  128. source: "internalVariables\x0a\x09\x22Answer a collection of internal variables required \x0a\x09to perform the inlining\x22\x0a\x09\x0a\x09^ #()",
  129. referencedClasses: [],
  130. //>>excludeEnd("ide");
  131. pragmas: [],
  132. messageSends: []
  133. }, function ($methodClass){ return function (){
  134. var self=this,$self=this;
  135. return [];
  136. }; }),
  137. $globals.IRInlinedSend);
  138. $core.addMethod(
  139. $core.method({
  140. selector: "isInlined",
  141. protocol: "testing",
  142. //>>excludeStart("ide", pragmas.excludeIdeData);
  143. args: [],
  144. source: "isInlined\x0a\x09^ true",
  145. referencedClasses: [],
  146. //>>excludeEnd("ide");
  147. pragmas: [],
  148. messageSends: []
  149. }, function ($methodClass){ return function (){
  150. var self=this,$self=this;
  151. return true;
  152. }; }),
  153. $globals.IRInlinedSend);
  154. $core.addClass("IRInlinedIfFalse", $globals.IRInlinedSend, [], "Compiler-Inlining");
  155. //>>excludeStart("ide", pragmas.excludeIdeData);
  156. $globals.IRInlinedIfFalse.comment="I represent an inlined `#ifFalse:` message send instruction.";
  157. //>>excludeEnd("ide");
  158. $core.addMethod(
  159. $core.method({
  160. selector: "acceptDagVisitor:",
  161. protocol: "visiting",
  162. //>>excludeStart("ide", pragmas.excludeIdeData);
  163. args: ["aVisitor"],
  164. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitIRInlinedIfFalse: self",
  165. referencedClasses: [],
  166. //>>excludeEnd("ide");
  167. pragmas: [],
  168. messageSends: ["visitIRInlinedIfFalse:"]
  169. }, function ($methodClass){ return function (aVisitor){
  170. var self=this,$self=this;
  171. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  172. return $core.withContext(function($ctx1) {
  173. //>>excludeEnd("ctx");
  174. $recv(aVisitor)._visitIRInlinedIfFalse_(self);
  175. return self;
  176. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  177. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  178. //>>excludeEnd("ctx");
  179. }; }),
  180. $globals.IRInlinedIfFalse);
  181. $core.addClass("IRInlinedIfNilIfNotNil", $globals.IRInlinedSend, [], "Compiler-Inlining");
  182. //>>excludeStart("ide", pragmas.excludeIdeData);
  183. $globals.IRInlinedIfNilIfNotNil.comment="I represent an inlined `#ifNil:ifNotNil:` message send instruction.";
  184. //>>excludeEnd("ide");
  185. $core.addMethod(
  186. $core.method({
  187. selector: "acceptDagVisitor:",
  188. protocol: "visiting",
  189. //>>excludeStart("ide", pragmas.excludeIdeData);
  190. args: ["aVisitor"],
  191. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitIRInlinedIfNilIfNotNil: self",
  192. referencedClasses: [],
  193. //>>excludeEnd("ide");
  194. pragmas: [],
  195. messageSends: ["visitIRInlinedIfNilIfNotNil:"]
  196. }, function ($methodClass){ return function (aVisitor){
  197. var self=this,$self=this;
  198. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  199. return $core.withContext(function($ctx1) {
  200. //>>excludeEnd("ctx");
  201. $recv(aVisitor)._visitIRInlinedIfNilIfNotNil_(self);
  202. return self;
  203. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  204. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  205. //>>excludeEnd("ctx");
  206. }; }),
  207. $globals.IRInlinedIfNilIfNotNil);
  208. $core.addMethod(
  209. $core.method({
  210. selector: "internalVariables",
  211. protocol: "accessing",
  212. //>>excludeStart("ide", pragmas.excludeIdeData);
  213. args: [],
  214. source: "internalVariables\x0a\x09^ { self receiverInternalVariable }",
  215. referencedClasses: [],
  216. //>>excludeEnd("ide");
  217. pragmas: [],
  218. messageSends: ["receiverInternalVariable"]
  219. }, function ($methodClass){ return function (){
  220. var self=this,$self=this;
  221. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  222. return $core.withContext(function($ctx1) {
  223. //>>excludeEnd("ctx");
  224. return [$self._receiverInternalVariable()];
  225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  226. }, function($ctx1) {$ctx1.fill(self,"internalVariables",{})});
  227. //>>excludeEnd("ctx");
  228. }; }),
  229. $globals.IRInlinedIfNilIfNotNil);
  230. $core.addMethod(
  231. $core.method({
  232. selector: "receiverInternalVariable",
  233. protocol: "accessing",
  234. //>>excludeStart("ide", pragmas.excludeIdeData);
  235. args: [],
  236. source: "receiverInternalVariable\x0a\x09^ IRVariable new\x0a\x09\x09variable: (AliasVar new name: self receiverInternalVariableName);\x0a\x09\x09yourself.",
  237. referencedClasses: ["IRVariable", "AliasVar"],
  238. //>>excludeEnd("ide");
  239. pragmas: [],
  240. messageSends: ["variable:", "new", "name:", "receiverInternalVariableName", "yourself"]
  241. }, function ($methodClass){ return function (){
  242. var self=this,$self=this;
  243. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  244. return $core.withContext(function($ctx1) {
  245. //>>excludeEnd("ctx");
  246. var $1;
  247. $1=$recv($globals.IRVariable)._new();
  248. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  249. $ctx1.sendIdx["new"]=1;
  250. //>>excludeEnd("ctx");
  251. $recv($1)._variable_($recv($recv($globals.AliasVar)._new())._name_($self._receiverInternalVariableName()));
  252. return $recv($1)._yourself();
  253. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  254. }, function($ctx1) {$ctx1.fill(self,"receiverInternalVariable",{})});
  255. //>>excludeEnd("ctx");
  256. }; }),
  257. $globals.IRInlinedIfNilIfNotNil);
  258. $core.addMethod(
  259. $core.method({
  260. selector: "receiverInternalVariableName",
  261. protocol: "accessing",
  262. //>>excludeStart("ide", pragmas.excludeIdeData);
  263. args: [],
  264. source: "receiverInternalVariableName\x0a\x09^ '$receiver'",
  265. referencedClasses: [],
  266. //>>excludeEnd("ide");
  267. pragmas: [],
  268. messageSends: []
  269. }, function ($methodClass){ return function (){
  270. var self=this,$self=this;
  271. return "$receiver";
  272. }; }),
  273. $globals.IRInlinedIfNilIfNotNil);
  274. $core.addClass("IRInlinedIfTrue", $globals.IRInlinedSend, [], "Compiler-Inlining");
  275. //>>excludeStart("ide", pragmas.excludeIdeData);
  276. $globals.IRInlinedIfTrue.comment="I represent an inlined `#ifTrue:` message send instruction.";
  277. //>>excludeEnd("ide");
  278. $core.addMethod(
  279. $core.method({
  280. selector: "acceptDagVisitor:",
  281. protocol: "visiting",
  282. //>>excludeStart("ide", pragmas.excludeIdeData);
  283. args: ["aVisitor"],
  284. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitIRInlinedIfTrue: self",
  285. referencedClasses: [],
  286. //>>excludeEnd("ide");
  287. pragmas: [],
  288. messageSends: ["visitIRInlinedIfTrue:"]
  289. }, function ($methodClass){ return function (aVisitor){
  290. var self=this,$self=this;
  291. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  292. return $core.withContext(function($ctx1) {
  293. //>>excludeEnd("ctx");
  294. $recv(aVisitor)._visitIRInlinedIfTrue_(self);
  295. return self;
  296. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  297. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  298. //>>excludeEnd("ctx");
  299. }; }),
  300. $globals.IRInlinedIfTrue);
  301. $core.addClass("IRInlinedIfTrueIfFalse", $globals.IRInlinedSend, [], "Compiler-Inlining");
  302. //>>excludeStart("ide", pragmas.excludeIdeData);
  303. $globals.IRInlinedIfTrueIfFalse.comment="I represent an inlined `#ifTrue:ifFalse:` message send instruction.";
  304. //>>excludeEnd("ide");
  305. $core.addMethod(
  306. $core.method({
  307. selector: "acceptDagVisitor:",
  308. protocol: "visiting",
  309. //>>excludeStart("ide", pragmas.excludeIdeData);
  310. args: ["aVisitor"],
  311. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitIRInlinedIfTrueIfFalse: self",
  312. referencedClasses: [],
  313. //>>excludeEnd("ide");
  314. pragmas: [],
  315. messageSends: ["visitIRInlinedIfTrueIfFalse:"]
  316. }, function ($methodClass){ return function (aVisitor){
  317. var self=this,$self=this;
  318. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  319. return $core.withContext(function($ctx1) {
  320. //>>excludeEnd("ctx");
  321. $recv(aVisitor)._visitIRInlinedIfTrueIfFalse_(self);
  322. return self;
  323. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  324. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  325. //>>excludeEnd("ctx");
  326. }; }),
  327. $globals.IRInlinedIfTrueIfFalse);
  328. $core.addClass("IRInlinedSequence", $globals.IRBlockSequence, [], "Compiler-Inlining");
  329. //>>excludeStart("ide", pragmas.excludeIdeData);
  330. $globals.IRInlinedSequence.comment="I represent a (block) sequence inside an inlined closure instruction (instance of `IRInlinedClosure`).";
  331. //>>excludeEnd("ide");
  332. $core.addMethod(
  333. $core.method({
  334. selector: "acceptDagVisitor:",
  335. protocol: "visiting",
  336. //>>excludeStart("ide", pragmas.excludeIdeData);
  337. args: ["aVisitor"],
  338. source: "acceptDagVisitor: aVisitor\x0a\x09aVisitor visitIRInlinedSequence: self",
  339. referencedClasses: [],
  340. //>>excludeEnd("ide");
  341. pragmas: [],
  342. messageSends: ["visitIRInlinedSequence:"]
  343. }, function ($methodClass){ return function (aVisitor){
  344. var self=this,$self=this;
  345. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  346. return $core.withContext(function($ctx1) {
  347. //>>excludeEnd("ctx");
  348. $recv(aVisitor)._visitIRInlinedSequence_(self);
  349. return self;
  350. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  351. }, function($ctx1) {$ctx1.fill(self,"acceptDagVisitor:",{aVisitor:aVisitor})});
  352. //>>excludeEnd("ctx");
  353. }; }),
  354. $globals.IRInlinedSequence);
  355. $core.addMethod(
  356. $core.method({
  357. selector: "isInlined",
  358. protocol: "testing",
  359. //>>excludeStart("ide", pragmas.excludeIdeData);
  360. args: [],
  361. source: "isInlined\x0a\x09^ true",
  362. referencedClasses: [],
  363. //>>excludeEnd("ide");
  364. pragmas: [],
  365. messageSends: []
  366. }, function ($methodClass){ return function (){
  367. var self=this,$self=this;
  368. return true;
  369. }; }),
  370. $globals.IRInlinedSequence);
  371. $core.addClass("IRInliner", $globals.IRVisitor, [], "Compiler-Inlining");
  372. //>>excludeStart("ide", pragmas.excludeIdeData);
  373. $globals.IRInliner.comment="I visit an IR tree, inlining message sends and block closures.\x0a\x0aMessage selectors that can be inlined are answered by `IRSendInliner >> #inlinedSelectors`";
  374. //>>excludeEnd("ide");
  375. $core.addMethod(
  376. $core.method({
  377. selector: "assignmentInliner",
  378. protocol: "factory",
  379. //>>excludeStart("ide", pragmas.excludeIdeData);
  380. args: [],
  381. source: "assignmentInliner\x0a\x09^ IRAssignmentInliner new\x0a\x09\x09translator: self;\x0a\x09\x09yourself",
  382. referencedClasses: ["IRAssignmentInliner"],
  383. //>>excludeEnd("ide");
  384. pragmas: [],
  385. messageSends: ["translator:", "new", "yourself"]
  386. }, function ($methodClass){ return function (){
  387. var self=this,$self=this;
  388. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  389. return $core.withContext(function($ctx1) {
  390. //>>excludeEnd("ctx");
  391. var $1;
  392. $1=$recv($globals.IRAssignmentInliner)._new();
  393. $recv($1)._translator_(self);
  394. return $recv($1)._yourself();
  395. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  396. }, function($ctx1) {$ctx1.fill(self,"assignmentInliner",{})});
  397. //>>excludeEnd("ctx");
  398. }; }),
  399. $globals.IRInliner);
  400. $core.addMethod(
  401. $core.method({
  402. selector: "flattenedReturn:",
  403. protocol: "visiting",
  404. //>>excludeStart("ide", pragmas.excludeIdeData);
  405. args: ["anIRNonLocalReturn"],
  406. source: "flattenedReturn: anIRNonLocalReturn\x0a\x09| localReturn |\x0a\x09localReturn := IRReturn new\x0a\x09\x09scope: anIRNonLocalReturn scope;\x0a\x09\x09yourself.\x0a\x09anIRNonLocalReturn dagChildren do: [ :each | localReturn add: each ].\x0a\x09^ localReturn",
  407. referencedClasses: ["IRReturn"],
  408. //>>excludeEnd("ide");
  409. pragmas: [],
  410. messageSends: ["scope:", "new", "scope", "yourself", "do:", "dagChildren", "add:"]
  411. }, function ($methodClass){ return function (anIRNonLocalReturn){
  412. var self=this,$self=this;
  413. var localReturn;
  414. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  415. return $core.withContext(function($ctx1) {
  416. //>>excludeEnd("ctx");
  417. var $1;
  418. $1=$recv($globals.IRReturn)._new();
  419. $recv($1)._scope_($recv(anIRNonLocalReturn)._scope());
  420. localReturn=$recv($1)._yourself();
  421. $recv($recv(anIRNonLocalReturn)._dagChildren())._do_((function(each){
  422. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  423. return $core.withContext(function($ctx2) {
  424. //>>excludeEnd("ctx");
  425. return $recv(localReturn)._add_(each);
  426. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  427. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  428. //>>excludeEnd("ctx");
  429. }));
  430. return localReturn;
  431. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  432. }, function($ctx1) {$ctx1.fill(self,"flattenedReturn:",{anIRNonLocalReturn:anIRNonLocalReturn,localReturn:localReturn})});
  433. //>>excludeEnd("ctx");
  434. }; }),
  435. $globals.IRInliner);
  436. $core.addMethod(
  437. $core.method({
  438. selector: "nonLocalReturnInliner",
  439. protocol: "factory",
  440. //>>excludeStart("ide", pragmas.excludeIdeData);
  441. args: [],
  442. source: "nonLocalReturnInliner\x0a\x09^ IRNonLocalReturnInliner new\x0a\x09\x09translator: self;\x0a\x09\x09yourself",
  443. referencedClasses: ["IRNonLocalReturnInliner"],
  444. //>>excludeEnd("ide");
  445. pragmas: [],
  446. messageSends: ["translator:", "new", "yourself"]
  447. }, function ($methodClass){ return function (){
  448. var self=this,$self=this;
  449. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  450. return $core.withContext(function($ctx1) {
  451. //>>excludeEnd("ctx");
  452. var $1;
  453. $1=$recv($globals.IRNonLocalReturnInliner)._new();
  454. $recv($1)._translator_(self);
  455. return $recv($1)._yourself();
  456. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  457. }, function($ctx1) {$ctx1.fill(self,"nonLocalReturnInliner",{})});
  458. //>>excludeEnd("ctx");
  459. }; }),
  460. $globals.IRInliner);
  461. $core.addMethod(
  462. $core.method({
  463. selector: "returnInliner",
  464. protocol: "factory",
  465. //>>excludeStart("ide", pragmas.excludeIdeData);
  466. args: [],
  467. source: "returnInliner\x0a\x09^ IRReturnInliner new\x0a\x09\x09translator: self;\x0a\x09\x09yourself",
  468. referencedClasses: ["IRReturnInliner"],
  469. //>>excludeEnd("ide");
  470. pragmas: [],
  471. messageSends: ["translator:", "new", "yourself"]
  472. }, function ($methodClass){ return function (){
  473. var self=this,$self=this;
  474. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  475. return $core.withContext(function($ctx1) {
  476. //>>excludeEnd("ctx");
  477. var $1;
  478. $1=$recv($globals.IRReturnInliner)._new();
  479. $recv($1)._translator_(self);
  480. return $recv($1)._yourself();
  481. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  482. }, function($ctx1) {$ctx1.fill(self,"returnInliner",{})});
  483. //>>excludeEnd("ctx");
  484. }; }),
  485. $globals.IRInliner);
  486. $core.addMethod(
  487. $core.method({
  488. selector: "sendInliner",
  489. protocol: "factory",
  490. //>>excludeStart("ide", pragmas.excludeIdeData);
  491. args: [],
  492. source: "sendInliner\x0a\x09^ IRSendInliner new\x0a\x09\x09translator: self;\x0a\x09\x09yourself",
  493. referencedClasses: ["IRSendInliner"],
  494. //>>excludeEnd("ide");
  495. pragmas: [],
  496. messageSends: ["translator:", "new", "yourself"]
  497. }, function ($methodClass){ return function (){
  498. var self=this,$self=this;
  499. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  500. return $core.withContext(function($ctx1) {
  501. //>>excludeEnd("ctx");
  502. var $1;
  503. $1=$recv($globals.IRSendInliner)._new();
  504. $recv($1)._translator_(self);
  505. return $recv($1)._yourself();
  506. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  507. }, function($ctx1) {$ctx1.fill(self,"sendInliner",{})});
  508. //>>excludeEnd("ctx");
  509. }; }),
  510. $globals.IRInliner);
  511. $core.addMethod(
  512. $core.method({
  513. selector: "shouldInlineAssignment:",
  514. protocol: "testing",
  515. //>>excludeStart("ide", pragmas.excludeIdeData);
  516. args: ["anIRAssignment"],
  517. source: "shouldInlineAssignment: anIRAssignment\x0a\x09^ anIRAssignment isInlined not and: [\x0a\x09\x09anIRAssignment right isSend and: [\x0a\x09\x09\x09self shouldInlineSend: anIRAssignment right ]]",
  518. referencedClasses: [],
  519. //>>excludeEnd("ide");
  520. pragmas: [],
  521. messageSends: ["and:", "not", "isInlined", "isSend", "right", "shouldInlineSend:"]
  522. }, function ($methodClass){ return function (anIRAssignment){
  523. var self=this,$self=this;
  524. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  525. return $core.withContext(function($ctx1) {
  526. //>>excludeEnd("ctx");
  527. var $3,$2,$1;
  528. $1=$recv($recv($recv(anIRAssignment)._isInlined())._not())._and_((function(){
  529. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  530. return $core.withContext(function($ctx2) {
  531. //>>excludeEnd("ctx");
  532. $3=$recv(anIRAssignment)._right();
  533. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  534. $ctx2.sendIdx["right"]=1;
  535. //>>excludeEnd("ctx");
  536. $2=$recv($3)._isSend();
  537. return $recv($2)._and_((function(){
  538. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  539. return $core.withContext(function($ctx3) {
  540. //>>excludeEnd("ctx");
  541. return $self._shouldInlineSend_($recv(anIRAssignment)._right());
  542. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  543. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  544. //>>excludeEnd("ctx");
  545. }));
  546. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  547. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  548. //>>excludeEnd("ctx");
  549. }));
  550. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  551. $ctx1.sendIdx["and:"]=1;
  552. //>>excludeEnd("ctx");
  553. return $1;
  554. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  555. }, function($ctx1) {$ctx1.fill(self,"shouldInlineAssignment:",{anIRAssignment:anIRAssignment})});
  556. //>>excludeEnd("ctx");
  557. }; }),
  558. $globals.IRInliner);
  559. $core.addMethod(
  560. $core.method({
  561. selector: "shouldInlineReturn:",
  562. protocol: "testing",
  563. //>>excludeStart("ide", pragmas.excludeIdeData);
  564. args: ["anIRReturn"],
  565. source: "shouldInlineReturn: anIRReturn\x0a\x09^ anIRReturn isInlined not and: [\x0a\x09\x09anIRReturn expression isSend and: [\x0a\x09\x09\x09self shouldInlineSend: anIRReturn expression ]]",
  566. referencedClasses: [],
  567. //>>excludeEnd("ide");
  568. pragmas: [],
  569. messageSends: ["and:", "not", "isInlined", "isSend", "expression", "shouldInlineSend:"]
  570. }, function ($methodClass){ return function (anIRReturn){
  571. var self=this,$self=this;
  572. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  573. return $core.withContext(function($ctx1) {
  574. //>>excludeEnd("ctx");
  575. var $3,$2,$1;
  576. $1=$recv($recv($recv(anIRReturn)._isInlined())._not())._and_((function(){
  577. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  578. return $core.withContext(function($ctx2) {
  579. //>>excludeEnd("ctx");
  580. $3=$recv(anIRReturn)._expression();
  581. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  582. $ctx2.sendIdx["expression"]=1;
  583. //>>excludeEnd("ctx");
  584. $2=$recv($3)._isSend();
  585. return $recv($2)._and_((function(){
  586. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  587. return $core.withContext(function($ctx3) {
  588. //>>excludeEnd("ctx");
  589. return $self._shouldInlineSend_($recv(anIRReturn)._expression());
  590. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  591. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  592. //>>excludeEnd("ctx");
  593. }));
  594. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  595. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  596. //>>excludeEnd("ctx");
  597. }));
  598. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  599. $ctx1.sendIdx["and:"]=1;
  600. //>>excludeEnd("ctx");
  601. return $1;
  602. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  603. }, function($ctx1) {$ctx1.fill(self,"shouldInlineReturn:",{anIRReturn:anIRReturn})});
  604. //>>excludeEnd("ctx");
  605. }; }),
  606. $globals.IRInliner);
  607. $core.addMethod(
  608. $core.method({
  609. selector: "shouldInlineSend:",
  610. protocol: "testing",
  611. //>>excludeStart("ide", pragmas.excludeIdeData);
  612. args: ["anIRSend"],
  613. source: "shouldInlineSend: anIRSend\x0a\x09^ anIRSend isInlined not and: [\x0a\x09\x09IRSendInliner shouldInline: anIRSend ]",
  614. referencedClasses: ["IRSendInliner"],
  615. //>>excludeEnd("ide");
  616. pragmas: [],
  617. messageSends: ["and:", "not", "isInlined", "shouldInline:"]
  618. }, function ($methodClass){ return function (anIRSend){
  619. var self=this,$self=this;
  620. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  621. return $core.withContext(function($ctx1) {
  622. //>>excludeEnd("ctx");
  623. return $recv($recv($recv(anIRSend)._isInlined())._not())._and_((function(){
  624. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  625. return $core.withContext(function($ctx2) {
  626. //>>excludeEnd("ctx");
  627. return $recv($globals.IRSendInliner)._shouldInline_(anIRSend);
  628. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  629. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  630. //>>excludeEnd("ctx");
  631. }));
  632. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  633. }, function($ctx1) {$ctx1.fill(self,"shouldInlineSend:",{anIRSend:anIRSend})});
  634. //>>excludeEnd("ctx");
  635. }; }),
  636. $globals.IRInliner);
  637. $core.addMethod(
  638. $core.method({
  639. selector: "visitIRAssignment:",
  640. protocol: "visiting",
  641. //>>excludeStart("ide", pragmas.excludeIdeData);
  642. args: ["anIRAssignment"],
  643. source: "visitIRAssignment: anIRAssignment\x0a\x09^ (self shouldInlineAssignment: anIRAssignment)\x0a\x09\x09ifTrue: [ self assignmentInliner inlineAssignment: anIRAssignment ]\x0a\x09\x09ifFalse: [ super visitIRAssignment: anIRAssignment ]",
  644. referencedClasses: [],
  645. //>>excludeEnd("ide");
  646. pragmas: [],
  647. messageSends: ["ifTrue:ifFalse:", "shouldInlineAssignment:", "inlineAssignment:", "assignmentInliner", "visitIRAssignment:"]
  648. }, function ($methodClass){ return function (anIRAssignment){
  649. var self=this,$self=this;
  650. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  651. return $core.withContext(function($ctx1) {
  652. //>>excludeEnd("ctx");
  653. var $1;
  654. $1=$self._shouldInlineAssignment_(anIRAssignment);
  655. if($core.assert($1)){
  656. return $recv($self._assignmentInliner())._inlineAssignment_(anIRAssignment);
  657. } else {
  658. return (
  659. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  660. $ctx1.supercall = true,
  661. //>>excludeEnd("ctx");
  662. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._visitIRAssignment_.call($self,anIRAssignment));
  663. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  664. $ctx1.supercall = false;
  665. //>>excludeEnd("ctx");;
  666. }
  667. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  668. }, function($ctx1) {$ctx1.fill(self,"visitIRAssignment:",{anIRAssignment:anIRAssignment})});
  669. //>>excludeEnd("ctx");
  670. }; }),
  671. $globals.IRInliner);
  672. $core.addMethod(
  673. $core.method({
  674. selector: "visitIRNonLocalReturn:",
  675. protocol: "visiting",
  676. //>>excludeStart("ide", pragmas.excludeIdeData);
  677. args: ["anIRNonLocalReturn"],
  678. source: "visitIRNonLocalReturn: anIRNonLocalReturn\x0a\x09anIRNonLocalReturn scope canFlattenNonLocalReturns ifTrue: [\x0a\x09\x09| localReturn |\x0a\x09\x09anIRNonLocalReturn scope methodScope removeNonLocalReturn: anIRNonLocalReturn scope.\x0a\x09\x09localReturn := self flattenedReturn: anIRNonLocalReturn.\x0a\x09\x09anIRNonLocalReturn replaceWith: localReturn.\x0a\x09\x09^ self visitIRReturn: localReturn ].\x0a\x09^ (self shouldInlineReturn: anIRNonLocalReturn)\x0a\x09\x09ifTrue: [ self nonLocalReturnInliner inlineReturn: anIRNonLocalReturn ]\x0a\x09\x09ifFalse: [ super visitIRNonLocalReturn: anIRNonLocalReturn ]",
  679. referencedClasses: [],
  680. //>>excludeEnd("ide");
  681. pragmas: [],
  682. messageSends: ["ifTrue:", "canFlattenNonLocalReturns", "scope", "removeNonLocalReturn:", "methodScope", "flattenedReturn:", "replaceWith:", "visitIRReturn:", "ifTrue:ifFalse:", "shouldInlineReturn:", "inlineReturn:", "nonLocalReturnInliner", "visitIRNonLocalReturn:"]
  683. }, function ($methodClass){ return function (anIRNonLocalReturn){
  684. var self=this,$self=this;
  685. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  686. return $core.withContext(function($ctx1) {
  687. //>>excludeEnd("ctx");
  688. var $2,$1,$4,$3,$5;
  689. $2=$recv(anIRNonLocalReturn)._scope();
  690. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  691. $ctx1.sendIdx["scope"]=1;
  692. //>>excludeEnd("ctx");
  693. $1=$recv($2)._canFlattenNonLocalReturns();
  694. if($core.assert($1)){
  695. var localReturn;
  696. $4=$recv(anIRNonLocalReturn)._scope();
  697. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  698. $ctx1.sendIdx["scope"]=2;
  699. //>>excludeEnd("ctx");
  700. $3=$recv($4)._methodScope();
  701. $recv($3)._removeNonLocalReturn_($recv(anIRNonLocalReturn)._scope());
  702. localReturn=$self._flattenedReturn_(anIRNonLocalReturn);
  703. $recv(anIRNonLocalReturn)._replaceWith_(localReturn);
  704. return $self._visitIRReturn_(localReturn);
  705. }
  706. $5=$self._shouldInlineReturn_(anIRNonLocalReturn);
  707. if($core.assert($5)){
  708. return $recv($self._nonLocalReturnInliner())._inlineReturn_(anIRNonLocalReturn);
  709. } else {
  710. return (
  711. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  712. $ctx1.supercall = true,
  713. //>>excludeEnd("ctx");
  714. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._visitIRNonLocalReturn_.call($self,anIRNonLocalReturn));
  715. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  716. $ctx1.supercall = false;
  717. //>>excludeEnd("ctx");;
  718. }
  719. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  720. }, function($ctx1) {$ctx1.fill(self,"visitIRNonLocalReturn:",{anIRNonLocalReturn:anIRNonLocalReturn})});
  721. //>>excludeEnd("ctx");
  722. }; }),
  723. $globals.IRInliner);
  724. $core.addMethod(
  725. $core.method({
  726. selector: "visitIRReturn:",
  727. protocol: "visiting",
  728. //>>excludeStart("ide", pragmas.excludeIdeData);
  729. args: ["anIRReturn"],
  730. source: "visitIRReturn: anIRReturn\x0a\x09^ (self shouldInlineReturn: anIRReturn)\x0a\x09\x09ifTrue: [ self returnInliner inlineReturn: anIRReturn ]\x0a\x09\x09ifFalse: [ super visitIRReturn: anIRReturn ]",
  731. referencedClasses: [],
  732. //>>excludeEnd("ide");
  733. pragmas: [],
  734. messageSends: ["ifTrue:ifFalse:", "shouldInlineReturn:", "inlineReturn:", "returnInliner", "visitIRReturn:"]
  735. }, function ($methodClass){ return function (anIRReturn){
  736. var self=this,$self=this;
  737. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  738. return $core.withContext(function($ctx1) {
  739. //>>excludeEnd("ctx");
  740. var $1;
  741. $1=$self._shouldInlineReturn_(anIRReturn);
  742. if($core.assert($1)){
  743. return $recv($self._returnInliner())._inlineReturn_(anIRReturn);
  744. } else {
  745. return (
  746. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  747. $ctx1.supercall = true,
  748. //>>excludeEnd("ctx");
  749. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._visitIRReturn_.call($self,anIRReturn));
  750. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  751. $ctx1.supercall = false;
  752. //>>excludeEnd("ctx");;
  753. }
  754. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  755. }, function($ctx1) {$ctx1.fill(self,"visitIRReturn:",{anIRReturn:anIRReturn})});
  756. //>>excludeEnd("ctx");
  757. }; }),
  758. $globals.IRInliner);
  759. $core.addMethod(
  760. $core.method({
  761. selector: "visitIRSend:",
  762. protocol: "visiting",
  763. //>>excludeStart("ide", pragmas.excludeIdeData);
  764. args: ["anIRSend"],
  765. source: "visitIRSend: anIRSend\x0a\x09^ (self shouldInlineSend: anIRSend)\x0a\x09\x09ifTrue: [ self sendInliner inlineSend: anIRSend ]\x0a\x09\x09ifFalse: [ super visitIRSend: anIRSend ]",
  766. referencedClasses: [],
  767. //>>excludeEnd("ide");
  768. pragmas: [],
  769. messageSends: ["ifTrue:ifFalse:", "shouldInlineSend:", "inlineSend:", "sendInliner", "visitIRSend:"]
  770. }, function ($methodClass){ return function (anIRSend){
  771. var self=this,$self=this;
  772. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  773. return $core.withContext(function($ctx1) {
  774. //>>excludeEnd("ctx");
  775. var $1;
  776. $1=$self._shouldInlineSend_(anIRSend);
  777. if($core.assert($1)){
  778. return $recv($self._sendInliner())._inlineSend_(anIRSend);
  779. } else {
  780. return (
  781. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  782. $ctx1.supercall = true,
  783. //>>excludeEnd("ctx");
  784. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._visitIRSend_.call($self,anIRSend));
  785. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  786. $ctx1.supercall = false;
  787. //>>excludeEnd("ctx");;
  788. }
  789. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  790. }, function($ctx1) {$ctx1.fill(self,"visitIRSend:",{anIRSend:anIRSend})});
  791. //>>excludeEnd("ctx");
  792. }; }),
  793. $globals.IRInliner);
  794. $core.addClass("IRInliningJSTranslator", $globals.IRJSTranslator, [], "Compiler-Inlining");
  795. //>>excludeStart("ide", pragmas.excludeIdeData);
  796. $globals.IRInliningJSTranslator.comment="I am a specialized JavaScript translator able to write inlined IR instructions to JavaScript stream (`JSStream` instance).";
  797. //>>excludeEnd("ide");
  798. $core.addMethod(
  799. $core.method({
  800. selector: "visitIRInlinedClosure:",
  801. protocol: "visiting",
  802. //>>excludeStart("ide", pragmas.excludeIdeData);
  803. args: ["anIRInlinedClosure"],
  804. source: "visitIRInlinedClosure: anIRInlinedClosure\x0a\x09self stream nextPutVars: (anIRInlinedClosure tempDeclarations collect: [ :each |\x0a\x09\x09each name asVariableName ]).\x0a\x09self visitAllChildren: anIRInlinedClosure",
  805. referencedClasses: [],
  806. //>>excludeEnd("ide");
  807. pragmas: [],
  808. messageSends: ["nextPutVars:", "stream", "collect:", "tempDeclarations", "asVariableName", "name", "visitAllChildren:"]
  809. }, function ($methodClass){ return function (anIRInlinedClosure){
  810. var self=this,$self=this;
  811. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  812. return $core.withContext(function($ctx1) {
  813. //>>excludeEnd("ctx");
  814. $recv($self._stream())._nextPutVars_($recv($recv(anIRInlinedClosure)._tempDeclarations())._collect_((function(each){
  815. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  816. return $core.withContext(function($ctx2) {
  817. //>>excludeEnd("ctx");
  818. return $recv($recv(each)._name())._asVariableName();
  819. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  820. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  821. //>>excludeEnd("ctx");
  822. })));
  823. $self._visitAllChildren_(anIRInlinedClosure);
  824. return self;
  825. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  826. }, function($ctx1) {$ctx1.fill(self,"visitIRInlinedClosure:",{anIRInlinedClosure:anIRInlinedClosure})});
  827. //>>excludeEnd("ctx");
  828. }; }),
  829. $globals.IRInliningJSTranslator);
  830. $core.addMethod(
  831. $core.method({
  832. selector: "visitIRInlinedIfFalse:",
  833. protocol: "visiting",
  834. //>>excludeStart("ide", pragmas.excludeIdeData);
  835. args: ["anIRInlinedIfFalse"],
  836. source: "visitIRInlinedIfFalse: anIRInlinedIfFalse\x0a\x09self stream nextPutIf: [\x0a\x09\x09self stream nextPutAll: '!$core.assert('.\x0a\x09\x09self visit: anIRInlinedIfFalse dagChildren first.\x0a\x09\x09self stream nextPutAll: ')' ]\x0a\x09\x09then: [ self visit: anIRInlinedIfFalse dagChildren last ]",
  837. referencedClasses: [],
  838. //>>excludeEnd("ide");
  839. pragmas: [],
  840. messageSends: ["nextPutIf:then:", "stream", "nextPutAll:", "visit:", "first", "dagChildren", "last"]
  841. }, function ($methodClass){ return function (anIRInlinedIfFalse){
  842. var self=this,$self=this;
  843. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  844. return $core.withContext(function($ctx1) {
  845. //>>excludeEnd("ctx");
  846. var $1,$2,$4,$3;
  847. $1=$self._stream();
  848. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  849. $ctx1.sendIdx["stream"]=1;
  850. //>>excludeEnd("ctx");
  851. $recv($1)._nextPutIf_then_((function(){
  852. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  853. return $core.withContext(function($ctx2) {
  854. //>>excludeEnd("ctx");
  855. $2=$self._stream();
  856. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  857. $ctx2.sendIdx["stream"]=2;
  858. //>>excludeEnd("ctx");
  859. $recv($2)._nextPutAll_("!$core.assert(");
  860. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  861. $ctx2.sendIdx["nextPutAll:"]=1;
  862. //>>excludeEnd("ctx");
  863. $4=$recv(anIRInlinedIfFalse)._dagChildren();
  864. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  865. $ctx2.sendIdx["dagChildren"]=1;
  866. //>>excludeEnd("ctx");
  867. $3=$recv($4)._first();
  868. $self._visit_($3);
  869. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  870. $ctx2.sendIdx["visit:"]=1;
  871. //>>excludeEnd("ctx");
  872. return $recv($self._stream())._nextPutAll_(")");
  873. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  874. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  875. //>>excludeEnd("ctx");
  876. }),(function(){
  877. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  878. return $core.withContext(function($ctx2) {
  879. //>>excludeEnd("ctx");
  880. return $self._visit_($recv($recv(anIRInlinedIfFalse)._dagChildren())._last());
  881. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  882. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  883. //>>excludeEnd("ctx");
  884. }));
  885. return self;
  886. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  887. }, function($ctx1) {$ctx1.fill(self,"visitIRInlinedIfFalse:",{anIRInlinedIfFalse:anIRInlinedIfFalse})});
  888. //>>excludeEnd("ctx");
  889. }; }),
  890. $globals.IRInliningJSTranslator);
  891. $core.addMethod(
  892. $core.method({
  893. selector: "visitIRInlinedIfNilIfNotNil:",
  894. protocol: "visiting",
  895. //>>excludeStart("ide", pragmas.excludeIdeData);
  896. args: ["anIRInlinedIfNilIfNotNil"],
  897. source: "visitIRInlinedIfNilIfNotNil: anIRInlinedIfNilIfNotNil\x0a\x09self stream\x0a\x09\x09nextPutIf: [\x0a\x09\x09\x09| recvVarName |\x0a\x09\x09\x09recvVarName := anIRInlinedIfNilIfNotNil receiverInternalVariableName.\x0a\x09\x09\x09self stream nextPutAll: '(', recvVarName, ' = '.\x0a\x09\x09\x09self visit: anIRInlinedIfNilIfNotNil dagChildren first.\x0a\x09\x09\x09self stream nextPutAll: ') == null || ', recvVarName, '.a$nil' ]\x0a\x09\x09then: [ self visit: anIRInlinedIfNilIfNotNil dagChildren second ]\x0a\x09\x09else: [ self visit: anIRInlinedIfNilIfNotNil dagChildren third ]",
  898. referencedClasses: [],
  899. //>>excludeEnd("ide");
  900. pragmas: [],
  901. messageSends: ["nextPutIf:then:else:", "stream", "receiverInternalVariableName", "nextPutAll:", ",", "visit:", "first", "dagChildren", "second", "third"]
  902. }, function ($methodClass){ return function (anIRInlinedIfNilIfNotNil){
  903. var self=this,$self=this;
  904. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  905. return $core.withContext(function($ctx1) {
  906. //>>excludeEnd("ctx");
  907. var $1,$2,$4,$3,$6,$5,$7,$8,$10,$9;
  908. $1=$self._stream();
  909. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  910. $ctx1.sendIdx["stream"]=1;
  911. //>>excludeEnd("ctx");
  912. $recv($1)._nextPutIf_then_else_((function(){
  913. var recvVarName;
  914. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  915. return $core.withContext(function($ctx2) {
  916. //>>excludeEnd("ctx");
  917. recvVarName=$recv(anIRInlinedIfNilIfNotNil)._receiverInternalVariableName();
  918. $2=$self._stream();
  919. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  920. $ctx2.sendIdx["stream"]=2;
  921. //>>excludeEnd("ctx");
  922. $4="(".__comma(recvVarName);
  923. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  924. $ctx2.sendIdx[","]=2;
  925. //>>excludeEnd("ctx");
  926. $3=$recv($4).__comma(" = ");
  927. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  928. $ctx2.sendIdx[","]=1;
  929. //>>excludeEnd("ctx");
  930. $recv($2)._nextPutAll_($3);
  931. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  932. $ctx2.sendIdx["nextPutAll:"]=1;
  933. //>>excludeEnd("ctx");
  934. $6=$recv(anIRInlinedIfNilIfNotNil)._dagChildren();
  935. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  936. $ctx2.sendIdx["dagChildren"]=1;
  937. //>>excludeEnd("ctx");
  938. $5=$recv($6)._first();
  939. $self._visit_($5);
  940. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  941. $ctx2.sendIdx["visit:"]=1;
  942. //>>excludeEnd("ctx");
  943. $7=$self._stream();
  944. $8=$recv(") == null || ".__comma(recvVarName)).__comma(".a$nil");
  945. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  946. $ctx2.sendIdx[","]=3;
  947. //>>excludeEnd("ctx");
  948. return $recv($7)._nextPutAll_($8);
  949. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  950. }, function($ctx2) {$ctx2.fillBlock({recvVarName:recvVarName},$ctx1,1)});
  951. //>>excludeEnd("ctx");
  952. }),(function(){
  953. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  954. return $core.withContext(function($ctx2) {
  955. //>>excludeEnd("ctx");
  956. $10=$recv(anIRInlinedIfNilIfNotNil)._dagChildren();
  957. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  958. $ctx2.sendIdx["dagChildren"]=2;
  959. //>>excludeEnd("ctx");
  960. $9=$recv($10)._second();
  961. return $self._visit_($9);
  962. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  963. $ctx2.sendIdx["visit:"]=2;
  964. //>>excludeEnd("ctx");
  965. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  966. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  967. //>>excludeEnd("ctx");
  968. }),(function(){
  969. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  970. return $core.withContext(function($ctx2) {
  971. //>>excludeEnd("ctx");
  972. return $self._visit_($recv($recv(anIRInlinedIfNilIfNotNil)._dagChildren())._third());
  973. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  974. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  975. //>>excludeEnd("ctx");
  976. }));
  977. return self;
  978. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  979. }, function($ctx1) {$ctx1.fill(self,"visitIRInlinedIfNilIfNotNil:",{anIRInlinedIfNilIfNotNil:anIRInlinedIfNilIfNotNil})});
  980. //>>excludeEnd("ctx");
  981. }; }),
  982. $globals.IRInliningJSTranslator);
  983. $core.addMethod(
  984. $core.method({
  985. selector: "visitIRInlinedIfTrue:",
  986. protocol: "visiting",
  987. //>>excludeStart("ide", pragmas.excludeIdeData);
  988. args: ["anIRInlinedIfTrue"],
  989. source: "visitIRInlinedIfTrue: anIRInlinedIfTrue\x0a\x09self stream nextPutIf: [\x0a\x09\x09self stream nextPutAll: '$core.assert('.\x0a\x09\x09self visit: anIRInlinedIfTrue dagChildren first.\x0a\x09\x09self stream nextPutAll: ')' ]\x0a\x09\x09then: [ self visit: anIRInlinedIfTrue dagChildren last ]",
  990. referencedClasses: [],
  991. //>>excludeEnd("ide");
  992. pragmas: [],
  993. messageSends: ["nextPutIf:then:", "stream", "nextPutAll:", "visit:", "first", "dagChildren", "last"]
  994. }, function ($methodClass){ return function (anIRInlinedIfTrue){
  995. var self=this,$self=this;
  996. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  997. return $core.withContext(function($ctx1) {
  998. //>>excludeEnd("ctx");
  999. var $1,$2,$4,$3;
  1000. $1=$self._stream();
  1001. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1002. $ctx1.sendIdx["stream"]=1;
  1003. //>>excludeEnd("ctx");
  1004. $recv($1)._nextPutIf_then_((function(){
  1005. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1006. return $core.withContext(function($ctx2) {
  1007. //>>excludeEnd("ctx");
  1008. $2=$self._stream();
  1009. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1010. $ctx2.sendIdx["stream"]=2;
  1011. //>>excludeEnd("ctx");
  1012. $recv($2)._nextPutAll_("$core.assert(");
  1013. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1014. $ctx2.sendIdx["nextPutAll:"]=1;
  1015. //>>excludeEnd("ctx");
  1016. $4=$recv(anIRInlinedIfTrue)._dagChildren();
  1017. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1018. $ctx2.sendIdx["dagChildren"]=1;
  1019. //>>excludeEnd("ctx");
  1020. $3=$recv($4)._first();
  1021. $self._visit_($3);
  1022. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1023. $ctx2.sendIdx["visit:"]=1;
  1024. //>>excludeEnd("ctx");
  1025. return $recv($self._stream())._nextPutAll_(")");
  1026. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1027. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1028. //>>excludeEnd("ctx");
  1029. }),(function(){
  1030. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1031. return $core.withContext(function($ctx2) {
  1032. //>>excludeEnd("ctx");
  1033. return $self._visit_($recv($recv(anIRInlinedIfTrue)._dagChildren())._last());
  1034. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1035. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1036. //>>excludeEnd("ctx");
  1037. }));
  1038. return self;
  1039. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1040. }, function($ctx1) {$ctx1.fill(self,"visitIRInlinedIfTrue:",{anIRInlinedIfTrue:anIRInlinedIfTrue})});
  1041. //>>excludeEnd("ctx");
  1042. }; }),
  1043. $globals.IRInliningJSTranslator);
  1044. $core.addMethod(
  1045. $core.method({
  1046. selector: "visitIRInlinedIfTrueIfFalse:",
  1047. protocol: "visiting",
  1048. //>>excludeStart("ide", pragmas.excludeIdeData);
  1049. args: ["anIRInlinedIfTrueIfFalse"],
  1050. source: "visitIRInlinedIfTrueIfFalse: anIRInlinedIfTrueIfFalse\x0a\x09self stream\x0a\x09\x09nextPutIf: [\x0a\x09\x09\x09self stream nextPutAll: '$core.assert('.\x0a\x09\x09\x09self visit: anIRInlinedIfTrueIfFalse dagChildren first.\x0a\x09\x09\x09self stream nextPutAll: ')' ]\x0a\x09\x09then: [ self visit: anIRInlinedIfTrueIfFalse dagChildren second ]\x0a\x09\x09else: [ self visit: anIRInlinedIfTrueIfFalse dagChildren third ]",
  1051. referencedClasses: [],
  1052. //>>excludeEnd("ide");
  1053. pragmas: [],
  1054. messageSends: ["nextPutIf:then:else:", "stream", "nextPutAll:", "visit:", "first", "dagChildren", "second", "third"]
  1055. }, function ($methodClass){ return function (anIRInlinedIfTrueIfFalse){
  1056. var self=this,$self=this;
  1057. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1058. return $core.withContext(function($ctx1) {
  1059. //>>excludeEnd("ctx");
  1060. var $1,$2,$4,$3,$6,$5;
  1061. $1=$self._stream();
  1062. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1063. $ctx1.sendIdx["stream"]=1;
  1064. //>>excludeEnd("ctx");
  1065. $recv($1)._nextPutIf_then_else_((function(){
  1066. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1067. return $core.withContext(function($ctx2) {
  1068. //>>excludeEnd("ctx");
  1069. $2=$self._stream();
  1070. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1071. $ctx2.sendIdx["stream"]=2;
  1072. //>>excludeEnd("ctx");
  1073. $recv($2)._nextPutAll_("$core.assert(");
  1074. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1075. $ctx2.sendIdx["nextPutAll:"]=1;
  1076. //>>excludeEnd("ctx");
  1077. $4=$recv(anIRInlinedIfTrueIfFalse)._dagChildren();
  1078. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1079. $ctx2.sendIdx["dagChildren"]=1;
  1080. //>>excludeEnd("ctx");
  1081. $3=$recv($4)._first();
  1082. $self._visit_($3);
  1083. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1084. $ctx2.sendIdx["visit:"]=1;
  1085. //>>excludeEnd("ctx");
  1086. return $recv($self._stream())._nextPutAll_(")");
  1087. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1088. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1089. //>>excludeEnd("ctx");
  1090. }),(function(){
  1091. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1092. return $core.withContext(function($ctx2) {
  1093. //>>excludeEnd("ctx");
  1094. $6=$recv(anIRInlinedIfTrueIfFalse)._dagChildren();
  1095. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1096. $ctx2.sendIdx["dagChildren"]=2;
  1097. //>>excludeEnd("ctx");
  1098. $5=$recv($6)._second();
  1099. return $self._visit_($5);
  1100. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1101. $ctx2.sendIdx["visit:"]=2;
  1102. //>>excludeEnd("ctx");
  1103. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1104. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1105. //>>excludeEnd("ctx");
  1106. }),(function(){
  1107. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1108. return $core.withContext(function($ctx2) {
  1109. //>>excludeEnd("ctx");
  1110. return $self._visit_($recv($recv(anIRInlinedIfTrueIfFalse)._dagChildren())._third());
  1111. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1112. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  1113. //>>excludeEnd("ctx");
  1114. }));
  1115. return self;
  1116. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1117. }, function($ctx1) {$ctx1.fill(self,"visitIRInlinedIfTrueIfFalse:",{anIRInlinedIfTrueIfFalse:anIRInlinedIfTrueIfFalse})});
  1118. //>>excludeEnd("ctx");
  1119. }; }),
  1120. $globals.IRInliningJSTranslator);
  1121. $core.addClass("IRSendInliner", $globals.Object, ["send", "translator"], "Compiler-Inlining");
  1122. //>>excludeStart("ide", pragmas.excludeIdeData);
  1123. $globals.IRSendInliner.comment="I inline some message sends and block closure arguments. I heavily rely on #perform: to dispatch inlining methods.";
  1124. //>>excludeEnd("ide");
  1125. $core.addMethod(
  1126. $core.method({
  1127. selector: "ifFalse:",
  1128. protocol: "inlining",
  1129. //>>excludeStart("ide", pragmas.excludeIdeData);
  1130. args: ["anIRInstruction"],
  1131. source: "ifFalse: anIRInstruction\x0a\x09^ self inlinedSend: IRInlinedIfFalse new withBlock: anIRInstruction",
  1132. referencedClasses: ["IRInlinedIfFalse"],
  1133. //>>excludeEnd("ide");
  1134. pragmas: [],
  1135. messageSends: ["inlinedSend:withBlock:", "new"]
  1136. }, function ($methodClass){ return function (anIRInstruction){
  1137. var self=this,$self=this;
  1138. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1139. return $core.withContext(function($ctx1) {
  1140. //>>excludeEnd("ctx");
  1141. return $self._inlinedSend_withBlock_($recv($globals.IRInlinedIfFalse)._new(),anIRInstruction);
  1142. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1143. }, function($ctx1) {$ctx1.fill(self,"ifFalse:",{anIRInstruction:anIRInstruction})});
  1144. //>>excludeEnd("ctx");
  1145. }; }),
  1146. $globals.IRSendInliner);
  1147. $core.addMethod(
  1148. $core.method({
  1149. selector: "ifFalse:ifTrue:",
  1150. protocol: "inlining",
  1151. //>>excludeStart("ide", pragmas.excludeIdeData);
  1152. args: ["anIRInstruction", "anotherIRInstruction"],
  1153. source: "ifFalse: anIRInstruction ifTrue: anotherIRInstruction\x0a\x09^ self perform: #ifTrue:ifFalse: withArguments: { anotherIRInstruction. anIRInstruction }",
  1154. referencedClasses: [],
  1155. //>>excludeEnd("ide");
  1156. pragmas: [],
  1157. messageSends: ["perform:withArguments:"]
  1158. }, function ($methodClass){ return function (anIRInstruction,anotherIRInstruction){
  1159. var self=this,$self=this;
  1160. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1161. return $core.withContext(function($ctx1) {
  1162. //>>excludeEnd("ctx");
  1163. return $self._perform_withArguments_("ifTrue:ifFalse:",[anotherIRInstruction,anIRInstruction]);
  1164. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1165. }, function($ctx1) {$ctx1.fill(self,"ifFalse:ifTrue:",{anIRInstruction:anIRInstruction,anotherIRInstruction:anotherIRInstruction})});
  1166. //>>excludeEnd("ctx");
  1167. }; }),
  1168. $globals.IRSendInliner);
  1169. $core.addMethod(
  1170. $core.method({
  1171. selector: "ifNil:",
  1172. protocol: "inlining",
  1173. //>>excludeStart("ide", pragmas.excludeIdeData);
  1174. args: ["anIRInstruction"],
  1175. source: "ifNil: anIRInstruction\x0a\x09^ self\x0a\x09\x09inlinedSend: IRInlinedIfNilIfNotNil new\x0a\x09\x09withBlock: anIRInstruction\x0a\x09\x09withBlock: (IRClosure new\x0a\x09\x09\x09scope: anIRInstruction scope copy;\x0a\x09\x09\x09add: (IRBlockSequence new\x0a\x09\x09\x09\x09add: self send receiver;\x0a\x09\x09\x09\x09yourself);\x0a\x09\x09\x09yourself)",
  1176. referencedClasses: ["IRInlinedIfNilIfNotNil", "IRClosure", "IRBlockSequence"],
  1177. //>>excludeEnd("ide");
  1178. pragmas: [],
  1179. messageSends: ["inlinedSend:withBlock:withBlock:", "new", "scope:", "copy", "scope", "add:", "receiver", "send", "yourself"]
  1180. }, function ($methodClass){ return function (anIRInstruction){
  1181. var self=this,$self=this;
  1182. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1183. return $core.withContext(function($ctx1) {
  1184. //>>excludeEnd("ctx");
  1185. var $1,$3,$5,$6,$4,$2;
  1186. $1=$recv($globals.IRInlinedIfNilIfNotNil)._new();
  1187. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1188. $ctx1.sendIdx["new"]=1;
  1189. //>>excludeEnd("ctx");
  1190. $3=$recv($globals.IRClosure)._new();
  1191. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1192. $ctx1.sendIdx["new"]=2;
  1193. //>>excludeEnd("ctx");
  1194. $recv($3)._scope_($recv($recv(anIRInstruction)._scope())._copy());
  1195. $5=$recv($globals.IRBlockSequence)._new();
  1196. $recv($5)._add_($recv($self._send())._receiver());
  1197. $6=$recv($5)._yourself();
  1198. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1199. $ctx1.sendIdx["yourself"]=1;
  1200. //>>excludeEnd("ctx");
  1201. $4=$6;
  1202. $recv($3)._add_($4);
  1203. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1204. $ctx1.sendIdx["add:"]=1;
  1205. //>>excludeEnd("ctx");
  1206. $2=$recv($3)._yourself();
  1207. return $self._inlinedSend_withBlock_withBlock_($1,anIRInstruction,$2);
  1208. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1209. }, function($ctx1) {$ctx1.fill(self,"ifNil:",{anIRInstruction:anIRInstruction})});
  1210. //>>excludeEnd("ctx");
  1211. }; }),
  1212. $globals.IRSendInliner);
  1213. $core.addMethod(
  1214. $core.method({
  1215. selector: "ifNil:ifNotNil:",
  1216. protocol: "inlining",
  1217. //>>excludeStart("ide", pragmas.excludeIdeData);
  1218. args: ["anIRInstruction", "anotherIRInstruction"],
  1219. source: "ifNil: anIRInstruction ifNotNil: anotherIRInstruction\x0a\x09^ self inlinedSend: IRInlinedIfNilIfNotNil new withBlock: anIRInstruction withBlock: anotherIRInstruction",
  1220. referencedClasses: ["IRInlinedIfNilIfNotNil"],
  1221. //>>excludeEnd("ide");
  1222. pragmas: [],
  1223. messageSends: ["inlinedSend:withBlock:withBlock:", "new"]
  1224. }, function ($methodClass){ return function (anIRInstruction,anotherIRInstruction){
  1225. var self=this,$self=this;
  1226. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1227. return $core.withContext(function($ctx1) {
  1228. //>>excludeEnd("ctx");
  1229. return $self._inlinedSend_withBlock_withBlock_($recv($globals.IRInlinedIfNilIfNotNil)._new(),anIRInstruction,anotherIRInstruction);
  1230. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1231. }, function($ctx1) {$ctx1.fill(self,"ifNil:ifNotNil:",{anIRInstruction:anIRInstruction,anotherIRInstruction:anotherIRInstruction})});
  1232. //>>excludeEnd("ctx");
  1233. }; }),
  1234. $globals.IRSendInliner);
  1235. $core.addMethod(
  1236. $core.method({
  1237. selector: "ifNotNil:",
  1238. protocol: "inlining",
  1239. //>>excludeStart("ide", pragmas.excludeIdeData);
  1240. args: ["anIRInstruction"],
  1241. source: "ifNotNil: anIRInstruction\x0a\x09^ self\x0a\x09\x09inlinedSend: IRInlinedIfNilIfNotNil new\x0a\x09\x09withBlock: (IRClosure new\x0a\x09\x09\x09scope: anIRInstruction scope copy;\x0a\x09\x09\x09add: (IRBlockSequence new\x0a\x09\x09\x09\x09add: self send receiver;\x0a\x09\x09\x09\x09yourself);\x0a\x09\x09\x09yourself)\x0a\x09\x09withBlock: anIRInstruction",
  1242. referencedClasses: ["IRInlinedIfNilIfNotNil", "IRClosure", "IRBlockSequence"],
  1243. //>>excludeEnd("ide");
  1244. pragmas: [],
  1245. messageSends: ["inlinedSend:withBlock:withBlock:", "new", "scope:", "copy", "scope", "add:", "receiver", "send", "yourself"]
  1246. }, function ($methodClass){ return function (anIRInstruction){
  1247. var self=this,$self=this;
  1248. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1249. return $core.withContext(function($ctx1) {
  1250. //>>excludeEnd("ctx");
  1251. var $1,$3,$5,$6,$4,$2;
  1252. $1=$recv($globals.IRInlinedIfNilIfNotNil)._new();
  1253. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1254. $ctx1.sendIdx["new"]=1;
  1255. //>>excludeEnd("ctx");
  1256. $3=$recv($globals.IRClosure)._new();
  1257. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1258. $ctx1.sendIdx["new"]=2;
  1259. //>>excludeEnd("ctx");
  1260. $recv($3)._scope_($recv($recv(anIRInstruction)._scope())._copy());
  1261. $5=$recv($globals.IRBlockSequence)._new();
  1262. $recv($5)._add_($recv($self._send())._receiver());
  1263. $6=$recv($5)._yourself();
  1264. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1265. $ctx1.sendIdx["yourself"]=1;
  1266. //>>excludeEnd("ctx");
  1267. $4=$6;
  1268. $recv($3)._add_($4);
  1269. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1270. $ctx1.sendIdx["add:"]=1;
  1271. //>>excludeEnd("ctx");
  1272. $2=$recv($3)._yourself();
  1273. return $self._inlinedSend_withBlock_withBlock_($1,$2,anIRInstruction);
  1274. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1275. }, function($ctx1) {$ctx1.fill(self,"ifNotNil:",{anIRInstruction:anIRInstruction})});
  1276. //>>excludeEnd("ctx");
  1277. }; }),
  1278. $globals.IRSendInliner);
  1279. $core.addMethod(
  1280. $core.method({
  1281. selector: "ifNotNil:ifNil:",
  1282. protocol: "inlining",
  1283. //>>excludeStart("ide", pragmas.excludeIdeData);
  1284. args: ["anIRInstruction", "anotherIRInstruction"],
  1285. source: "ifNotNil: anIRInstruction ifNil: anotherIRInstruction\x0a\x09^ self inlinedSend: IRInlinedIfNilIfNotNil new withBlock: anotherIRInstruction withBlock: anIRInstruction",
  1286. referencedClasses: ["IRInlinedIfNilIfNotNil"],
  1287. //>>excludeEnd("ide");
  1288. pragmas: [],
  1289. messageSends: ["inlinedSend:withBlock:withBlock:", "new"]
  1290. }, function ($methodClass){ return function (anIRInstruction,anotherIRInstruction){
  1291. var self=this,$self=this;
  1292. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1293. return $core.withContext(function($ctx1) {
  1294. //>>excludeEnd("ctx");
  1295. return $self._inlinedSend_withBlock_withBlock_($recv($globals.IRInlinedIfNilIfNotNil)._new(),anotherIRInstruction,anIRInstruction);
  1296. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1297. }, function($ctx1) {$ctx1.fill(self,"ifNotNil:ifNil:",{anIRInstruction:anIRInstruction,anotherIRInstruction:anotherIRInstruction})});
  1298. //>>excludeEnd("ctx");
  1299. }; }),
  1300. $globals.IRSendInliner);
  1301. $core.addMethod(
  1302. $core.method({
  1303. selector: "ifTrue:",
  1304. protocol: "inlining",
  1305. //>>excludeStart("ide", pragmas.excludeIdeData);
  1306. args: ["anIRInstruction"],
  1307. source: "ifTrue: anIRInstruction\x0a\x09^ self inlinedSend: IRInlinedIfTrue new withBlock: anIRInstruction",
  1308. referencedClasses: ["IRInlinedIfTrue"],
  1309. //>>excludeEnd("ide");
  1310. pragmas: [],
  1311. messageSends: ["inlinedSend:withBlock:", "new"]
  1312. }, function ($methodClass){ return function (anIRInstruction){
  1313. var self=this,$self=this;
  1314. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1315. return $core.withContext(function($ctx1) {
  1316. //>>excludeEnd("ctx");
  1317. return $self._inlinedSend_withBlock_($recv($globals.IRInlinedIfTrue)._new(),anIRInstruction);
  1318. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1319. }, function($ctx1) {$ctx1.fill(self,"ifTrue:",{anIRInstruction:anIRInstruction})});
  1320. //>>excludeEnd("ctx");
  1321. }; }),
  1322. $globals.IRSendInliner);
  1323. $core.addMethod(
  1324. $core.method({
  1325. selector: "ifTrue:ifFalse:",
  1326. protocol: "inlining",
  1327. //>>excludeStart("ide", pragmas.excludeIdeData);
  1328. args: ["anIRInstruction", "anotherIRInstruction"],
  1329. source: "ifTrue: anIRInstruction ifFalse: anotherIRInstruction\x0a\x09^ self inlinedSend: IRInlinedIfTrueIfFalse new withBlock: anIRInstruction withBlock: anotherIRInstruction",
  1330. referencedClasses: ["IRInlinedIfTrueIfFalse"],
  1331. //>>excludeEnd("ide");
  1332. pragmas: [],
  1333. messageSends: ["inlinedSend:withBlock:withBlock:", "new"]
  1334. }, function ($methodClass){ return function (anIRInstruction,anotherIRInstruction){
  1335. var self=this,$self=this;
  1336. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1337. return $core.withContext(function($ctx1) {
  1338. //>>excludeEnd("ctx");
  1339. return $self._inlinedSend_withBlock_withBlock_($recv($globals.IRInlinedIfTrueIfFalse)._new(),anIRInstruction,anotherIRInstruction);
  1340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1341. }, function($ctx1) {$ctx1.fill(self,"ifTrue:ifFalse:",{anIRInstruction:anIRInstruction,anotherIRInstruction:anotherIRInstruction})});
  1342. //>>excludeEnd("ctx");
  1343. }; }),
  1344. $globals.IRSendInliner);
  1345. $core.addMethod(
  1346. $core.method({
  1347. selector: "inlineClosure:",
  1348. protocol: "inlining",
  1349. //>>excludeStart("ide", pragmas.excludeIdeData);
  1350. args: ["anIRClosure"],
  1351. source: "inlineClosure: anIRClosure\x0a\x09| inlinedClosure sequence statements |\x0a\x0a\x09inlinedClosure := self inlinedClosure.\x0a\x09inlinedClosure \x0a\x09\x09scope: anIRClosure scope;\x0a\x09\x09parent: anIRClosure parent.\x0a\x0a\x09\x22Add the possible temp declarations\x22\x0a\x09anIRClosure tempDeclarations do: [ :each |\x0a\x09\x09\x09inlinedClosure add: each ].\x0a\x0a\x09\x22Add a block sequence\x22\x0a\x09sequence := self inlinedSequence.\x0a\x0a\x09\x22Map the closure arguments to the receiver of the message send\x22\x0a\x09anIRClosure arguments do: [ :each |\x0a\x09\x09inlinedClosure add: (IRTempDeclaration new name: each; yourself).\x0a\x09\x09sequence add: (IRAssignment new\x0a\x09\x09\x09add: (IRVariable new variable: (AliasVar new scope: inlinedClosure scope; name: each; yourself));\x0a\x09\x09\x09add: (IRVariable new variable: (AliasVar new scope: inlinedClosure scope; name: '$receiver'; yourself));\x0a\x09\x09\x09yourself) ].\x0a\x09\x09\x09\x0a\x09\x22To ensure the correct order of the closure instructions: first the temps then the sequence\x22\x0a\x09inlinedClosure add: sequence.\x0a\x0a\x09\x22Get all the statements\x22\x0a\x09statements := anIRClosure sequence dagChildren.\x0a\x09\x0a\x09statements ifNotEmpty: [\x0a\x09\x09statements allButLast do: [ :each | sequence add: each ].\x0a\x0a\x09\x09\x22Inlined closures change local returns into result value itself\x22\x0a\x09\x09sequence add: statements last asInlinedBlockResult ].\x0a\x0a\x09^ inlinedClosure",
  1352. referencedClasses: ["IRTempDeclaration", "IRAssignment", "IRVariable", "AliasVar"],
  1353. //>>excludeEnd("ide");
  1354. pragmas: [],
  1355. messageSends: ["inlinedClosure", "scope:", "scope", "parent:", "parent", "do:", "tempDeclarations", "add:", "inlinedSequence", "arguments", "name:", "new", "yourself", "variable:", "dagChildren", "sequence", "ifNotEmpty:", "allButLast", "asInlinedBlockResult", "last"]
  1356. }, function ($methodClass){ return function (anIRClosure){
  1357. var self=this,$self=this;
  1358. var inlinedClosure,sequence,statements;
  1359. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1360. return $core.withContext(function($ctx1) {
  1361. //>>excludeEnd("ctx");
  1362. var $1,$2,$3,$5,$6,$4,$7,$9,$11,$13,$14,$15,$12,$10,$17,$19,$20,$18,$16,$8;
  1363. inlinedClosure=$self._inlinedClosure();
  1364. $1=inlinedClosure;
  1365. $2=$recv(anIRClosure)._scope();
  1366. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1367. $ctx1.sendIdx["scope"]=1;
  1368. //>>excludeEnd("ctx");
  1369. $recv($1)._scope_($2);
  1370. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1371. $ctx1.sendIdx["scope:"]=1;
  1372. //>>excludeEnd("ctx");
  1373. $recv($1)._parent_($recv(anIRClosure)._parent());
  1374. $recv($recv(anIRClosure)._tempDeclarations())._do_((function(each){
  1375. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1376. return $core.withContext(function($ctx2) {
  1377. //>>excludeEnd("ctx");
  1378. return $recv(inlinedClosure)._add_(each);
  1379. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1380. $ctx2.sendIdx["add:"]=1;
  1381. //>>excludeEnd("ctx");
  1382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1383. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1384. //>>excludeEnd("ctx");
  1385. }));
  1386. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1387. $ctx1.sendIdx["do:"]=1;
  1388. //>>excludeEnd("ctx");
  1389. sequence=$self._inlinedSequence();
  1390. $recv($recv(anIRClosure)._arguments())._do_((function(each){
  1391. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1392. return $core.withContext(function($ctx2) {
  1393. //>>excludeEnd("ctx");
  1394. $3=inlinedClosure;
  1395. $5=$recv($globals.IRTempDeclaration)._new();
  1396. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1397. $ctx2.sendIdx["new"]=1;
  1398. //>>excludeEnd("ctx");
  1399. $recv($5)._name_(each);
  1400. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1401. $ctx2.sendIdx["name:"]=1;
  1402. //>>excludeEnd("ctx");
  1403. $6=$recv($5)._yourself();
  1404. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1405. $ctx2.sendIdx["yourself"]=1;
  1406. //>>excludeEnd("ctx");
  1407. $4=$6;
  1408. $recv($3)._add_($4);
  1409. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1410. $ctx2.sendIdx["add:"]=2;
  1411. //>>excludeEnd("ctx");
  1412. $7=sequence;
  1413. $9=$recv($globals.IRAssignment)._new();
  1414. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1415. $ctx2.sendIdx["new"]=2;
  1416. //>>excludeEnd("ctx");
  1417. $11=$recv($globals.IRVariable)._new();
  1418. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1419. $ctx2.sendIdx["new"]=3;
  1420. //>>excludeEnd("ctx");
  1421. $13=$recv($globals.AliasVar)._new();
  1422. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1423. $ctx2.sendIdx["new"]=4;
  1424. //>>excludeEnd("ctx");
  1425. $14=$recv(inlinedClosure)._scope();
  1426. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1427. $ctx2.sendIdx["scope"]=2;
  1428. //>>excludeEnd("ctx");
  1429. $recv($13)._scope_($14);
  1430. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1431. $ctx2.sendIdx["scope:"]=2;
  1432. //>>excludeEnd("ctx");
  1433. $recv($13)._name_(each);
  1434. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1435. $ctx2.sendIdx["name:"]=2;
  1436. //>>excludeEnd("ctx");
  1437. $15=$recv($13)._yourself();
  1438. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1439. $ctx2.sendIdx["yourself"]=2;
  1440. //>>excludeEnd("ctx");
  1441. $12=$15;
  1442. $10=$recv($11)._variable_($12);
  1443. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1444. $ctx2.sendIdx["variable:"]=1;
  1445. //>>excludeEnd("ctx");
  1446. $recv($9)._add_($10);
  1447. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1448. $ctx2.sendIdx["add:"]=4;
  1449. //>>excludeEnd("ctx");
  1450. $17=$recv($globals.IRVariable)._new();
  1451. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1452. $ctx2.sendIdx["new"]=5;
  1453. //>>excludeEnd("ctx");
  1454. $19=$recv($globals.AliasVar)._new();
  1455. $recv($19)._scope_($recv(inlinedClosure)._scope());
  1456. $recv($19)._name_("$receiver");
  1457. $20=$recv($19)._yourself();
  1458. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1459. $ctx2.sendIdx["yourself"]=3;
  1460. //>>excludeEnd("ctx");
  1461. $18=$20;
  1462. $16=$recv($17)._variable_($18);
  1463. $recv($9)._add_($16);
  1464. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1465. $ctx2.sendIdx["add:"]=5;
  1466. //>>excludeEnd("ctx");
  1467. $8=$recv($9)._yourself();
  1468. return $recv($7)._add_($8);
  1469. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1470. $ctx2.sendIdx["add:"]=3;
  1471. //>>excludeEnd("ctx");
  1472. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1473. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  1474. //>>excludeEnd("ctx");
  1475. }));
  1476. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1477. $ctx1.sendIdx["do:"]=2;
  1478. //>>excludeEnd("ctx");
  1479. $recv(inlinedClosure)._add_(sequence);
  1480. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1481. $ctx1.sendIdx["add:"]=6;
  1482. //>>excludeEnd("ctx");
  1483. statements=$recv($recv(anIRClosure)._sequence())._dagChildren();
  1484. $recv(statements)._ifNotEmpty_((function(){
  1485. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1486. return $core.withContext(function($ctx2) {
  1487. //>>excludeEnd("ctx");
  1488. $recv($recv(statements)._allButLast())._do_((function(each){
  1489. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1490. return $core.withContext(function($ctx3) {
  1491. //>>excludeEnd("ctx");
  1492. return $recv(sequence)._add_(each);
  1493. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1494. $ctx3.sendIdx["add:"]=7;
  1495. //>>excludeEnd("ctx");
  1496. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1497. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,4)});
  1498. //>>excludeEnd("ctx");
  1499. }));
  1500. return $recv(sequence)._add_($recv($recv(statements)._last())._asInlinedBlockResult());
  1501. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1502. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  1503. //>>excludeEnd("ctx");
  1504. }));
  1505. return inlinedClosure;
  1506. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1507. }, function($ctx1) {$ctx1.fill(self,"inlineClosure:",{anIRClosure:anIRClosure,inlinedClosure:inlinedClosure,sequence:sequence,statements:statements})});
  1508. //>>excludeEnd("ctx");
  1509. }; }),
  1510. $globals.IRSendInliner);
  1511. $core.addMethod(
  1512. $core.method({
  1513. selector: "inlineSend:",
  1514. protocol: "inlining",
  1515. //>>excludeStart("ide", pragmas.excludeIdeData);
  1516. args: ["anIRSend"],
  1517. source: "inlineSend: anIRSend\x0a\x09self send: anIRSend.\x0a\x09^ self\x0a\x09\x09perform: self send selector\x0a\x09\x09withArguments: self send arguments",
  1518. referencedClasses: [],
  1519. //>>excludeEnd("ide");
  1520. pragmas: [],
  1521. messageSends: ["send:", "perform:withArguments:", "selector", "send", "arguments"]
  1522. }, function ($methodClass){ return function (anIRSend){
  1523. var self=this,$self=this;
  1524. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1525. return $core.withContext(function($ctx1) {
  1526. //>>excludeEnd("ctx");
  1527. var $2,$1;
  1528. $self._send_(anIRSend);
  1529. $2=$self._send();
  1530. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1531. $ctx1.sendIdx["send"]=1;
  1532. //>>excludeEnd("ctx");
  1533. $1=$recv($2)._selector();
  1534. return $self._perform_withArguments_($1,$recv($self._send())._arguments());
  1535. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1536. }, function($ctx1) {$ctx1.fill(self,"inlineSend:",{anIRSend:anIRSend})});
  1537. //>>excludeEnd("ctx");
  1538. }; }),
  1539. $globals.IRSendInliner);
  1540. $core.addMethod(
  1541. $core.method({
  1542. selector: "inlineSend:andReplace:",
  1543. protocol: "private",
  1544. //>>excludeStart("ide", pragmas.excludeIdeData);
  1545. args: ["anIRSend", "anIRInstruction"],
  1546. source: "inlineSend: anIRSend andReplace: anIRInstruction\x0a\x09anIRInstruction replaceWith: anIRSend.\x0a\x09^ self inlineSend: anIRSend",
  1547. referencedClasses: [],
  1548. //>>excludeEnd("ide");
  1549. pragmas: [],
  1550. messageSends: ["replaceWith:", "inlineSend:"]
  1551. }, function ($methodClass){ return function (anIRSend,anIRInstruction){
  1552. var self=this,$self=this;
  1553. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1554. return $core.withContext(function($ctx1) {
  1555. //>>excludeEnd("ctx");
  1556. $recv(anIRInstruction)._replaceWith_(anIRSend);
  1557. return $self._inlineSend_(anIRSend);
  1558. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1559. }, function($ctx1) {$ctx1.fill(self,"inlineSend:andReplace:",{anIRSend:anIRSend,anIRInstruction:anIRInstruction})});
  1560. //>>excludeEnd("ctx");
  1561. }; }),
  1562. $globals.IRSendInliner);
  1563. $core.addMethod(
  1564. $core.method({
  1565. selector: "inlinedClosure",
  1566. protocol: "factory",
  1567. //>>excludeStart("ide", pragmas.excludeIdeData);
  1568. args: [],
  1569. source: "inlinedClosure\x0a\x09^ IRInlinedClosure new",
  1570. referencedClasses: ["IRInlinedClosure"],
  1571. //>>excludeEnd("ide");
  1572. pragmas: [],
  1573. messageSends: ["new"]
  1574. }, function ($methodClass){ return function (){
  1575. var self=this,$self=this;
  1576. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1577. return $core.withContext(function($ctx1) {
  1578. //>>excludeEnd("ctx");
  1579. return $recv($globals.IRInlinedClosure)._new();
  1580. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1581. }, function($ctx1) {$ctx1.fill(self,"inlinedClosure",{})});
  1582. //>>excludeEnd("ctx");
  1583. }; }),
  1584. $globals.IRSendInliner);
  1585. $core.addMethod(
  1586. $core.method({
  1587. selector: "inlinedClosure:wrapFinalValueIn:",
  1588. protocol: "inlining",
  1589. //>>excludeStart("ide", pragmas.excludeIdeData);
  1590. args: ["closure", "aBlock"],
  1591. source: "inlinedClosure: closure wrapFinalValueIn: aBlock\x0a\x09| sequence statements final |\x0a\x0a\x09sequence := closure sequence.\x0a\x09statements := sequence dagChildren.\x0a\x09\x0a\x09sequence dagChildren ifEmpty: [ sequence add: (IRVariable new\x0a\x09\x09variable: (closure scope pseudoVars at: 'nil');\x0a\x09\x09yourself) ].\x0a\x09final := statements last.\x0a\x09final yieldsValue ifTrue: [ sequence replace: final with: (aBlock value: final) ].\x0a\x0a\x09^ closure",
  1592. referencedClasses: ["IRVariable"],
  1593. //>>excludeEnd("ide");
  1594. pragmas: [],
  1595. messageSends: ["sequence", "dagChildren", "ifEmpty:", "add:", "variable:", "new", "at:", "pseudoVars", "scope", "yourself", "last", "ifTrue:", "yieldsValue", "replace:with:", "value:"]
  1596. }, function ($methodClass){ return function (closure,aBlock){
  1597. var self=this,$self=this;
  1598. var sequence,statements,final;
  1599. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1600. return $core.withContext(function($ctx1) {
  1601. //>>excludeEnd("ctx");
  1602. var $1,$3,$2,$4;
  1603. sequence=$recv(closure)._sequence();
  1604. statements=$recv(sequence)._dagChildren();
  1605. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1606. $ctx1.sendIdx["dagChildren"]=1;
  1607. //>>excludeEnd("ctx");
  1608. $recv($recv(sequence)._dagChildren())._ifEmpty_((function(){
  1609. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1610. return $core.withContext(function($ctx2) {
  1611. //>>excludeEnd("ctx");
  1612. $1=sequence;
  1613. $3=$recv($globals.IRVariable)._new();
  1614. $recv($3)._variable_($recv($recv($recv(closure)._scope())._pseudoVars())._at_("nil"));
  1615. $2=$recv($3)._yourself();
  1616. return $recv($1)._add_($2);
  1617. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1618. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1619. //>>excludeEnd("ctx");
  1620. }));
  1621. final=$recv(statements)._last();
  1622. $4=$recv(final)._yieldsValue();
  1623. if($core.assert($4)){
  1624. $recv(sequence)._replace_with_(final,$recv(aBlock)._value_(final));
  1625. }
  1626. return closure;
  1627. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1628. }, function($ctx1) {$ctx1.fill(self,"inlinedClosure:wrapFinalValueIn:",{closure:closure,aBlock:aBlock,sequence:sequence,statements:statements,final:final})});
  1629. //>>excludeEnd("ctx");
  1630. }; }),
  1631. $globals.IRSendInliner);
  1632. $core.addMethod(
  1633. $core.method({
  1634. selector: "inlinedSend:withBlock:",
  1635. protocol: "private",
  1636. //>>excludeStart("ide", pragmas.excludeIdeData);
  1637. args: ["inlinedSend", "anIRInstruction"],
  1638. source: "inlinedSend: inlinedSend withBlock: anIRInstruction\x0a\x09| inlinedClosure |\x0a\x0a\x09anIRInstruction isClosure ifFalse: [ self inliningError: 'Message argument should be a block' ].\x0a\x09anIRInstruction arguments size = 0 ifFalse: [ self inliningError: 'Inlined block should have zero argument' ].\x0a\x0a\x09inlinedClosure := self translator visit: (self inlineClosure: anIRInstruction).\x0a\x0a\x09inlinedSend\x0a\x09\x09add: self send receiver;\x0a\x09\x09add: inlinedClosure.\x0a\x0a\x09self send replaceWith: inlinedSend.\x0a\x09inlinedSend method internalVariables \x0a\x09\x09addAll: inlinedSend internalVariables.\x0a\x0a\x09^ inlinedSend",
  1639. referencedClasses: [],
  1640. //>>excludeEnd("ide");
  1641. pragmas: [],
  1642. messageSends: ["ifFalse:", "isClosure", "inliningError:", "=", "size", "arguments", "visit:", "translator", "inlineClosure:", "add:", "receiver", "send", "replaceWith:", "addAll:", "internalVariables", "method"]
  1643. }, function ($methodClass){ return function (inlinedSend,anIRInstruction){
  1644. var self=this,$self=this;
  1645. var inlinedClosure;
  1646. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1647. return $core.withContext(function($ctx1) {
  1648. //>>excludeEnd("ctx");
  1649. var $1,$2,$4,$3,$5;
  1650. $1=$recv(anIRInstruction)._isClosure();
  1651. if(!$core.assert($1)){
  1652. $self._inliningError_("Message argument should be a block");
  1653. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1654. $ctx1.sendIdx["inliningError:"]=1;
  1655. //>>excludeEnd("ctx");
  1656. }
  1657. $2=$recv($recv($recv(anIRInstruction)._arguments())._size()).__eq((0));
  1658. if(!$core.assert($2)){
  1659. $self._inliningError_("Inlined block should have zero argument");
  1660. }
  1661. inlinedClosure=$recv($self._translator())._visit_($self._inlineClosure_(anIRInstruction));
  1662. $4=$self._send();
  1663. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1664. $ctx1.sendIdx["send"]=1;
  1665. //>>excludeEnd("ctx");
  1666. $3=$recv($4)._receiver();
  1667. $recv(inlinedSend)._add_($3);
  1668. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1669. $ctx1.sendIdx["add:"]=1;
  1670. //>>excludeEnd("ctx");
  1671. $recv(inlinedSend)._add_(inlinedClosure);
  1672. $recv($self._send())._replaceWith_(inlinedSend);
  1673. $5=$recv($recv(inlinedSend)._method())._internalVariables();
  1674. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1675. $ctx1.sendIdx["internalVariables"]=1;
  1676. //>>excludeEnd("ctx");
  1677. $recv($5)._addAll_($recv(inlinedSend)._internalVariables());
  1678. return inlinedSend;
  1679. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1680. }, function($ctx1) {$ctx1.fill(self,"inlinedSend:withBlock:",{inlinedSend:inlinedSend,anIRInstruction:anIRInstruction,inlinedClosure:inlinedClosure})});
  1681. //>>excludeEnd("ctx");
  1682. }; }),
  1683. $globals.IRSendInliner);
  1684. $core.addMethod(
  1685. $core.method({
  1686. selector: "inlinedSend:withBlock:withBlock:",
  1687. protocol: "private",
  1688. //>>excludeStart("ide", pragmas.excludeIdeData);
  1689. args: ["inlinedSend", "anIRInstruction", "anotherIRInstruction"],
  1690. source: "inlinedSend: inlinedSend withBlock: anIRInstruction withBlock: anotherIRInstruction\x0a\x09| inlinedClosure1 inlinedClosure2 |\x0a\x0a\x09anIRInstruction isClosure ifFalse: [ self inliningError: 'Message argument should be a block' ].\x0a\x09anotherIRInstruction isClosure ifFalse: [ self inliningError: 'Message argument should be a block' ].\x0a\x0a\x09inlinedClosure1 := self translator visit: (self inlineClosure: anIRInstruction).\x0a\x09inlinedClosure2 := self translator visit: (self inlineClosure: anotherIRInstruction).\x0a\x0a\x09inlinedSend\x0a\x09\x09add: self send receiver;\x0a\x09\x09add: inlinedClosure1;\x0a\x09\x09add: inlinedClosure2.\x0a\x0a\x09self send replaceWith: inlinedSend.\x0a\x09inlinedSend method internalVariables \x0a\x09\x09addAll: inlinedSend internalVariables.\x0a\x09\x09\x0a\x09^ inlinedSend",
  1691. referencedClasses: [],
  1692. //>>excludeEnd("ide");
  1693. pragmas: [],
  1694. messageSends: ["ifFalse:", "isClosure", "inliningError:", "visit:", "translator", "inlineClosure:", "add:", "receiver", "send", "replaceWith:", "addAll:", "internalVariables", "method"]
  1695. }, function ($methodClass){ return function (inlinedSend,anIRInstruction,anotherIRInstruction){
  1696. var self=this,$self=this;
  1697. var inlinedClosure1,inlinedClosure2;
  1698. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1699. return $core.withContext(function($ctx1) {
  1700. //>>excludeEnd("ctx");
  1701. var $1,$2,$3,$4,$6,$5,$7;
  1702. $1=$recv(anIRInstruction)._isClosure();
  1703. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1704. $ctx1.sendIdx["isClosure"]=1;
  1705. //>>excludeEnd("ctx");
  1706. if(!$core.assert($1)){
  1707. $self._inliningError_("Message argument should be a block");
  1708. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1709. $ctx1.sendIdx["inliningError:"]=1;
  1710. //>>excludeEnd("ctx");
  1711. }
  1712. $2=$recv(anotherIRInstruction)._isClosure();
  1713. if(!$core.assert($2)){
  1714. $self._inliningError_("Message argument should be a block");
  1715. }
  1716. $3=$self._translator();
  1717. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1718. $ctx1.sendIdx["translator"]=1;
  1719. //>>excludeEnd("ctx");
  1720. $4=$self._inlineClosure_(anIRInstruction);
  1721. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1722. $ctx1.sendIdx["inlineClosure:"]=1;
  1723. //>>excludeEnd("ctx");
  1724. inlinedClosure1=$recv($3)._visit_($4);
  1725. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1726. $ctx1.sendIdx["visit:"]=1;
  1727. //>>excludeEnd("ctx");
  1728. inlinedClosure2=$recv($self._translator())._visit_($self._inlineClosure_(anotherIRInstruction));
  1729. $6=$self._send();
  1730. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1731. $ctx1.sendIdx["send"]=1;
  1732. //>>excludeEnd("ctx");
  1733. $5=$recv($6)._receiver();
  1734. $recv(inlinedSend)._add_($5);
  1735. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1736. $ctx1.sendIdx["add:"]=1;
  1737. //>>excludeEnd("ctx");
  1738. $recv(inlinedSend)._add_(inlinedClosure1);
  1739. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1740. $ctx1.sendIdx["add:"]=2;
  1741. //>>excludeEnd("ctx");
  1742. $recv(inlinedSend)._add_(inlinedClosure2);
  1743. $recv($self._send())._replaceWith_(inlinedSend);
  1744. $7=$recv($recv(inlinedSend)._method())._internalVariables();
  1745. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1746. $ctx1.sendIdx["internalVariables"]=1;
  1747. //>>excludeEnd("ctx");
  1748. $recv($7)._addAll_($recv(inlinedSend)._internalVariables());
  1749. return inlinedSend;
  1750. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1751. }, function($ctx1) {$ctx1.fill(self,"inlinedSend:withBlock:withBlock:",{inlinedSend:inlinedSend,anIRInstruction:anIRInstruction,anotherIRInstruction:anotherIRInstruction,inlinedClosure1:inlinedClosure1,inlinedClosure2:inlinedClosure2})});
  1752. //>>excludeEnd("ctx");
  1753. }; }),
  1754. $globals.IRSendInliner);
  1755. $core.addMethod(
  1756. $core.method({
  1757. selector: "inlinedSequence",
  1758. protocol: "factory",
  1759. //>>excludeStart("ide", pragmas.excludeIdeData);
  1760. args: [],
  1761. source: "inlinedSequence\x0a\x09^ IRInlinedSequence new",
  1762. referencedClasses: ["IRInlinedSequence"],
  1763. //>>excludeEnd("ide");
  1764. pragmas: [],
  1765. messageSends: ["new"]
  1766. }, function ($methodClass){ return function (){
  1767. var self=this,$self=this;
  1768. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1769. return $core.withContext(function($ctx1) {
  1770. //>>excludeEnd("ctx");
  1771. return $recv($globals.IRInlinedSequence)._new();
  1772. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1773. }, function($ctx1) {$ctx1.fill(self,"inlinedSequence",{})});
  1774. //>>excludeEnd("ctx");
  1775. }; }),
  1776. $globals.IRSendInliner);
  1777. $core.addMethod(
  1778. $core.method({
  1779. selector: "inliningError:",
  1780. protocol: "error handling",
  1781. //>>excludeStart("ide", pragmas.excludeIdeData);
  1782. args: ["aString"],
  1783. source: "inliningError: aString\x0a\x09InliningError signal: aString",
  1784. referencedClasses: ["InliningError"],
  1785. //>>excludeEnd("ide");
  1786. pragmas: [],
  1787. messageSends: ["signal:"]
  1788. }, function ($methodClass){ return function (aString){
  1789. var self=this,$self=this;
  1790. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1791. return $core.withContext(function($ctx1) {
  1792. //>>excludeEnd("ctx");
  1793. $recv($globals.InliningError)._signal_(aString);
  1794. return self;
  1795. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1796. }, function($ctx1) {$ctx1.fill(self,"inliningError:",{aString:aString})});
  1797. //>>excludeEnd("ctx");
  1798. }; }),
  1799. $globals.IRSendInliner);
  1800. $core.addMethod(
  1801. $core.method({
  1802. selector: "send",
  1803. protocol: "accessing",
  1804. //>>excludeStart("ide", pragmas.excludeIdeData);
  1805. args: [],
  1806. source: "send\x0a\x09^ send",
  1807. referencedClasses: [],
  1808. //>>excludeEnd("ide");
  1809. pragmas: [],
  1810. messageSends: []
  1811. }, function ($methodClass){ return function (){
  1812. var self=this,$self=this;
  1813. return $self.send;
  1814. }; }),
  1815. $globals.IRSendInliner);
  1816. $core.addMethod(
  1817. $core.method({
  1818. selector: "send:",
  1819. protocol: "accessing",
  1820. //>>excludeStart("ide", pragmas.excludeIdeData);
  1821. args: ["anIRSend"],
  1822. source: "send: anIRSend\x0a\x09send := anIRSend",
  1823. referencedClasses: [],
  1824. //>>excludeEnd("ide");
  1825. pragmas: [],
  1826. messageSends: []
  1827. }, function ($methodClass){ return function (anIRSend){
  1828. var self=this,$self=this;
  1829. $self.send=anIRSend;
  1830. return self;
  1831. }; }),
  1832. $globals.IRSendInliner);
  1833. $core.addMethod(
  1834. $core.method({
  1835. selector: "translator",
  1836. protocol: "accessing",
  1837. //>>excludeStart("ide", pragmas.excludeIdeData);
  1838. args: [],
  1839. source: "translator\x0a\x09^ translator",
  1840. referencedClasses: [],
  1841. //>>excludeEnd("ide");
  1842. pragmas: [],
  1843. messageSends: []
  1844. }, function ($methodClass){ return function (){
  1845. var self=this,$self=this;
  1846. return $self.translator;
  1847. }; }),
  1848. $globals.IRSendInliner);
  1849. $core.addMethod(
  1850. $core.method({
  1851. selector: "translator:",
  1852. protocol: "accessing",
  1853. //>>excludeStart("ide", pragmas.excludeIdeData);
  1854. args: ["anASTTranslator"],
  1855. source: "translator: anASTTranslator\x0a\x09translator := anASTTranslator",
  1856. referencedClasses: [],
  1857. //>>excludeEnd("ide");
  1858. pragmas: [],
  1859. messageSends: []
  1860. }, function ($methodClass){ return function (anASTTranslator){
  1861. var self=this,$self=this;
  1862. $self.translator=anASTTranslator;
  1863. return self;
  1864. }; }),
  1865. $globals.IRSendInliner);
  1866. $core.addMethod(
  1867. $core.method({
  1868. selector: "inlinedSelectors",
  1869. protocol: "accessing",
  1870. //>>excludeStart("ide", pragmas.excludeIdeData);
  1871. args: [],
  1872. source: "inlinedSelectors\x0a\x09^ #('ifTrue:' 'ifFalse:' 'ifTrue:ifFalse:' 'ifFalse:ifTrue:' 'ifNil:' 'ifNotNil:' 'ifNil:ifNotNil:' 'ifNotNil:ifNil:')",
  1873. referencedClasses: [],
  1874. //>>excludeEnd("ide");
  1875. pragmas: [],
  1876. messageSends: []
  1877. }, function ($methodClass){ return function (){
  1878. var self=this,$self=this;
  1879. return ["ifTrue:", "ifFalse:", "ifTrue:ifFalse:", "ifFalse:ifTrue:", "ifNil:", "ifNotNil:", "ifNil:ifNotNil:", "ifNotNil:ifNil:"];
  1880. }; }),
  1881. $globals.IRSendInliner.a$cls);
  1882. $core.addMethod(
  1883. $core.method({
  1884. selector: "shouldInline:",
  1885. protocol: "accessing",
  1886. //>>excludeStart("ide", pragmas.excludeIdeData);
  1887. args: ["anIRSend"],
  1888. source: "shouldInline: anIRSend\x0a\x09(self inlinedSelectors includes: anIRSend selector) ifFalse: [ ^ false ].\x0a\x09anIRSend receiver isSuper ifTrue: [ ^ false ].\x0a\x09^ anIRSend arguments allSatisfy: [ :each | each isClosure ]",
  1889. referencedClasses: [],
  1890. //>>excludeEnd("ide");
  1891. pragmas: [],
  1892. messageSends: ["ifFalse:", "includes:", "inlinedSelectors", "selector", "ifTrue:", "isSuper", "receiver", "allSatisfy:", "arguments", "isClosure"]
  1893. }, function ($methodClass){ return function (anIRSend){
  1894. var self=this,$self=this;
  1895. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1896. return $core.withContext(function($ctx1) {
  1897. //>>excludeEnd("ctx");
  1898. var $1,$2;
  1899. $1=$recv($self._inlinedSelectors())._includes_($recv(anIRSend)._selector());
  1900. if(!$core.assert($1)){
  1901. return false;
  1902. }
  1903. $2=$recv($recv(anIRSend)._receiver())._isSuper();
  1904. if($core.assert($2)){
  1905. return false;
  1906. }
  1907. return $recv($recv(anIRSend)._arguments())._allSatisfy_((function(each){
  1908. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1909. return $core.withContext(function($ctx2) {
  1910. //>>excludeEnd("ctx");
  1911. return $recv(each)._isClosure();
  1912. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1913. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)});
  1914. //>>excludeEnd("ctx");
  1915. }));
  1916. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1917. }, function($ctx1) {$ctx1.fill(self,"shouldInline:",{anIRSend:anIRSend})});
  1918. //>>excludeEnd("ctx");
  1919. }; }),
  1920. $globals.IRSendInliner.a$cls);
  1921. $core.addClass("IRAssignmentInliner", $globals.IRSendInliner, ["target"], "Compiler-Inlining");
  1922. //>>excludeStart("ide", pragmas.excludeIdeData);
  1923. $globals.IRAssignmentInliner.comment="I inline message sends together with assignments by moving them around into the inline closure instructions.\x0a\x0a##Example\x0a\x0a\x09foo\x0a\x09\x09| a |\x0a\x09\x09a := true ifTrue: [ 1 ]\x0a\x0aWill produce:\x0a\x0a\x09if($core.assert(true) {\x0a\x09\x09a = 1;\x0a\x09};";
  1924. //>>excludeEnd("ide");
  1925. $core.addMethod(
  1926. $core.method({
  1927. selector: "inlineAssignment:",
  1928. protocol: "inlining",
  1929. //>>excludeStart("ide", pragmas.excludeIdeData);
  1930. args: ["anIRAssignment"],
  1931. source: "inlineAssignment: anIRAssignment\x0a\x09self target: anIRAssignment left.\x0a\x09^ self inlineSend: anIRAssignment right andReplace: anIRAssignment",
  1932. referencedClasses: [],
  1933. //>>excludeEnd("ide");
  1934. pragmas: [],
  1935. messageSends: ["target:", "left", "inlineSend:andReplace:", "right"]
  1936. }, function ($methodClass){ return function (anIRAssignment){
  1937. var self=this,$self=this;
  1938. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1939. return $core.withContext(function($ctx1) {
  1940. //>>excludeEnd("ctx");
  1941. $self._target_($recv(anIRAssignment)._left());
  1942. return $self._inlineSend_andReplace_($recv(anIRAssignment)._right(),anIRAssignment);
  1943. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1944. }, function($ctx1) {$ctx1.fill(self,"inlineAssignment:",{anIRAssignment:anIRAssignment})});
  1945. //>>excludeEnd("ctx");
  1946. }; }),
  1947. $globals.IRAssignmentInliner);
  1948. $core.addMethod(
  1949. $core.method({
  1950. selector: "inlineClosure:",
  1951. protocol: "inlining",
  1952. //>>excludeStart("ide", pragmas.excludeIdeData);
  1953. args: ["anIRClosure"],
  1954. source: "inlineClosure: anIRClosure\x0a\x09^ self\x0a\x09\x09inlinedClosure: (super inlineClosure: anIRClosure)\x0a\x09\x09wrapFinalValueIn: [ :final |\x0a\x09\x09\x09IRAssignment new\x0a\x09\x09\x09\x09add: self target;\x0a\x09\x09\x09\x09add: final copy;\x0a\x09\x09\x09\x09yourself ]",
  1955. referencedClasses: ["IRAssignment"],
  1956. //>>excludeEnd("ide");
  1957. pragmas: [],
  1958. messageSends: ["inlinedClosure:wrapFinalValueIn:", "inlineClosure:", "add:", "new", "target", "copy", "yourself"]
  1959. }, function ($methodClass){ return function (anIRClosure){
  1960. var self=this,$self=this;
  1961. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1962. return $core.withContext(function($ctx1) {
  1963. //>>excludeEnd("ctx");
  1964. var $1,$2;
  1965. $1=(
  1966. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1967. $ctx1.supercall = true,
  1968. //>>excludeEnd("ctx");
  1969. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._inlineClosure_.call($self,anIRClosure));
  1970. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1971. $ctx1.supercall = false;
  1972. //>>excludeEnd("ctx");;
  1973. return $self._inlinedClosure_wrapFinalValueIn_($1,(function(final){
  1974. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1975. return $core.withContext(function($ctx2) {
  1976. //>>excludeEnd("ctx");
  1977. $2=$recv($globals.IRAssignment)._new();
  1978. $recv($2)._add_($self._target());
  1979. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1980. $ctx2.sendIdx["add:"]=1;
  1981. //>>excludeEnd("ctx");
  1982. $recv($2)._add_($recv(final)._copy());
  1983. return $recv($2)._yourself();
  1984. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1985. }, function($ctx2) {$ctx2.fillBlock({final:final},$ctx1,1)});
  1986. //>>excludeEnd("ctx");
  1987. }));
  1988. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1989. }, function($ctx1) {$ctx1.fill(self,"inlineClosure:",{anIRClosure:anIRClosure})});
  1990. //>>excludeEnd("ctx");
  1991. }; }),
  1992. $globals.IRAssignmentInliner);
  1993. $core.addMethod(
  1994. $core.method({
  1995. selector: "target",
  1996. protocol: "accessing",
  1997. //>>excludeStart("ide", pragmas.excludeIdeData);
  1998. args: [],
  1999. source: "target\x0a\x09^ target",
  2000. referencedClasses: [],
  2001. //>>excludeEnd("ide");
  2002. pragmas: [],
  2003. messageSends: []
  2004. }, function ($methodClass){ return function (){
  2005. var self=this,$self=this;
  2006. return $self.target;
  2007. }; }),
  2008. $globals.IRAssignmentInliner);
  2009. $core.addMethod(
  2010. $core.method({
  2011. selector: "target:",
  2012. protocol: "accessing",
  2013. //>>excludeStart("ide", pragmas.excludeIdeData);
  2014. args: ["anObject"],
  2015. source: "target: anObject\x0a\x09target := anObject",
  2016. referencedClasses: [],
  2017. //>>excludeEnd("ide");
  2018. pragmas: [],
  2019. messageSends: []
  2020. }, function ($methodClass){ return function (anObject){
  2021. var self=this,$self=this;
  2022. $self.target=anObject;
  2023. return self;
  2024. }; }),
  2025. $globals.IRAssignmentInliner);
  2026. $core.addClass("IRNonLocalReturnInliner", $globals.IRSendInliner, [], "Compiler-Inlining");
  2027. //>>excludeStart("ide", pragmas.excludeIdeData);
  2028. $globals.IRNonLocalReturnInliner.comment="I inline message sends with inlined closure together with a return instruction.";
  2029. //>>excludeEnd("ide");
  2030. $core.addMethod(
  2031. $core.method({
  2032. selector: "inlineClosure:",
  2033. protocol: "inlining",
  2034. //>>excludeStart("ide", pragmas.excludeIdeData);
  2035. args: ["anIRClosure"],
  2036. source: "inlineClosure: anIRClosure\x0a\x09^ self\x0a\x09\x09inlinedClosure: (super inlineClosure: anIRClosure)\x0a\x09\x09wrapFinalValueIn: [ :final |\x0a\x09\x09\x09IRNonLocalReturn new\x0a\x09\x09\x09\x09add: final copy;\x0a\x09\x09\x09\x09yourself ]",
  2037. referencedClasses: ["IRNonLocalReturn"],
  2038. //>>excludeEnd("ide");
  2039. pragmas: [],
  2040. messageSends: ["inlinedClosure:wrapFinalValueIn:", "inlineClosure:", "add:", "new", "copy", "yourself"]
  2041. }, function ($methodClass){ return function (anIRClosure){
  2042. var self=this,$self=this;
  2043. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2044. return $core.withContext(function($ctx1) {
  2045. //>>excludeEnd("ctx");
  2046. var $1,$2;
  2047. $1=(
  2048. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2049. $ctx1.supercall = true,
  2050. //>>excludeEnd("ctx");
  2051. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._inlineClosure_.call($self,anIRClosure));
  2052. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2053. $ctx1.supercall = false;
  2054. //>>excludeEnd("ctx");;
  2055. return $self._inlinedClosure_wrapFinalValueIn_($1,(function(final){
  2056. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2057. return $core.withContext(function($ctx2) {
  2058. //>>excludeEnd("ctx");
  2059. $2=$recv($globals.IRNonLocalReturn)._new();
  2060. $recv($2)._add_($recv(final)._copy());
  2061. return $recv($2)._yourself();
  2062. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2063. }, function($ctx2) {$ctx2.fillBlock({final:final},$ctx1,1)});
  2064. //>>excludeEnd("ctx");
  2065. }));
  2066. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2067. }, function($ctx1) {$ctx1.fill(self,"inlineClosure:",{anIRClosure:anIRClosure})});
  2068. //>>excludeEnd("ctx");
  2069. }; }),
  2070. $globals.IRNonLocalReturnInliner);
  2071. $core.addMethod(
  2072. $core.method({
  2073. selector: "inlineReturn:",
  2074. protocol: "inlining",
  2075. //>>excludeStart("ide", pragmas.excludeIdeData);
  2076. args: ["anIRReturn"],
  2077. source: "inlineReturn: anIRReturn\x0a\x09^ self inlineSend: anIRReturn expression andReplace: anIRReturn",
  2078. referencedClasses: [],
  2079. //>>excludeEnd("ide");
  2080. pragmas: [],
  2081. messageSends: ["inlineSend:andReplace:", "expression"]
  2082. }, function ($methodClass){ return function (anIRReturn){
  2083. var self=this,$self=this;
  2084. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2085. return $core.withContext(function($ctx1) {
  2086. //>>excludeEnd("ctx");
  2087. return $self._inlineSend_andReplace_($recv(anIRReturn)._expression(),anIRReturn);
  2088. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2089. }, function($ctx1) {$ctx1.fill(self,"inlineReturn:",{anIRReturn:anIRReturn})});
  2090. //>>excludeEnd("ctx");
  2091. }; }),
  2092. $globals.IRNonLocalReturnInliner);
  2093. $core.addClass("IRReturnInliner", $globals.IRSendInliner, [], "Compiler-Inlining");
  2094. //>>excludeStart("ide", pragmas.excludeIdeData);
  2095. $globals.IRReturnInliner.comment="I inline message sends with inlined closure together with a return instruction.";
  2096. //>>excludeEnd("ide");
  2097. $core.addMethod(
  2098. $core.method({
  2099. selector: "inlineClosure:",
  2100. protocol: "inlining",
  2101. //>>excludeStart("ide", pragmas.excludeIdeData);
  2102. args: ["anIRClosure"],
  2103. source: "inlineClosure: anIRClosure\x0a\x09^ self\x0a\x09\x09inlinedClosure: (super inlineClosure: anIRClosure)\x0a\x09\x09wrapFinalValueIn: [ :final |\x0a\x09\x09\x09IRReturn new\x0a\x09\x09\x09\x09add: final copy;\x0a\x09\x09\x09\x09yourself ]",
  2104. referencedClasses: ["IRReturn"],
  2105. //>>excludeEnd("ide");
  2106. pragmas: [],
  2107. messageSends: ["inlinedClosure:wrapFinalValueIn:", "inlineClosure:", "add:", "new", "copy", "yourself"]
  2108. }, function ($methodClass){ return function (anIRClosure){
  2109. var self=this,$self=this;
  2110. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2111. return $core.withContext(function($ctx1) {
  2112. //>>excludeEnd("ctx");
  2113. var $1,$2;
  2114. $1=(
  2115. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2116. $ctx1.supercall = true,
  2117. //>>excludeEnd("ctx");
  2118. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._inlineClosure_.call($self,anIRClosure));
  2119. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2120. $ctx1.supercall = false;
  2121. //>>excludeEnd("ctx");;
  2122. return $self._inlinedClosure_wrapFinalValueIn_($1,(function(final){
  2123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2124. return $core.withContext(function($ctx2) {
  2125. //>>excludeEnd("ctx");
  2126. $2=$recv($globals.IRReturn)._new();
  2127. $recv($2)._add_($recv(final)._copy());
  2128. return $recv($2)._yourself();
  2129. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2130. }, function($ctx2) {$ctx2.fillBlock({final:final},$ctx1,1)});
  2131. //>>excludeEnd("ctx");
  2132. }));
  2133. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2134. }, function($ctx1) {$ctx1.fill(self,"inlineClosure:",{anIRClosure:anIRClosure})});
  2135. //>>excludeEnd("ctx");
  2136. }; }),
  2137. $globals.IRReturnInliner);
  2138. $core.addMethod(
  2139. $core.method({
  2140. selector: "inlineReturn:",
  2141. protocol: "inlining",
  2142. //>>excludeStart("ide", pragmas.excludeIdeData);
  2143. args: ["anIRReturn"],
  2144. source: "inlineReturn: anIRReturn\x0a\x09^ self inlineSend: anIRReturn expression andReplace: anIRReturn",
  2145. referencedClasses: [],
  2146. //>>excludeEnd("ide");
  2147. pragmas: [],
  2148. messageSends: ["inlineSend:andReplace:", "expression"]
  2149. }, function ($methodClass){ return function (anIRReturn){
  2150. var self=this,$self=this;
  2151. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2152. return $core.withContext(function($ctx1) {
  2153. //>>excludeEnd("ctx");
  2154. return $self._inlineSend_andReplace_($recv(anIRReturn)._expression(),anIRReturn);
  2155. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2156. }, function($ctx1) {$ctx1.fill(self,"inlineReturn:",{anIRReturn:anIRReturn})});
  2157. //>>excludeEnd("ctx");
  2158. }; }),
  2159. $globals.IRReturnInliner);
  2160. $core.addClass("InliningCodeGenerator", $globals.CodeGenerator, [], "Compiler-Inlining");
  2161. //>>excludeStart("ide", pragmas.excludeIdeData);
  2162. $globals.InliningCodeGenerator.comment="I am a specialized code generator that uses inlining to produce more optimized JavaScript output";
  2163. //>>excludeEnd("ide");
  2164. $core.addMethod(
  2165. $core.method({
  2166. selector: "inliner",
  2167. protocol: "compiling",
  2168. //>>excludeStart("ide", pragmas.excludeIdeData);
  2169. args: [],
  2170. source: "inliner\x0a\x09^ IRInliner new",
  2171. referencedClasses: ["IRInliner"],
  2172. //>>excludeEnd("ide");
  2173. pragmas: [],
  2174. messageSends: ["new"]
  2175. }, function ($methodClass){ return function (){
  2176. var self=this,$self=this;
  2177. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2178. return $core.withContext(function($ctx1) {
  2179. //>>excludeEnd("ctx");
  2180. return $recv($globals.IRInliner)._new();
  2181. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2182. }, function($ctx1) {$ctx1.fill(self,"inliner",{})});
  2183. //>>excludeEnd("ctx");
  2184. }; }),
  2185. $globals.InliningCodeGenerator);
  2186. $core.addMethod(
  2187. $core.method({
  2188. selector: "irTranslatorClass",
  2189. protocol: "compiling",
  2190. //>>excludeStart("ide", pragmas.excludeIdeData);
  2191. args: [],
  2192. source: "irTranslatorClass\x0a\x09^ IRInliningJSTranslator",
  2193. referencedClasses: ["IRInliningJSTranslator"],
  2194. //>>excludeEnd("ide");
  2195. pragmas: [],
  2196. messageSends: []
  2197. }, function ($methodClass){ return function (){
  2198. var self=this,$self=this;
  2199. return $globals.IRInliningJSTranslator;
  2200. }; }),
  2201. $globals.InliningCodeGenerator);
  2202. $core.addMethod(
  2203. $core.method({
  2204. selector: "preInliner",
  2205. protocol: "compiling",
  2206. //>>excludeStart("ide", pragmas.excludeIdeData);
  2207. args: [],
  2208. source: "preInliner\x0a\x09^ ASTPreInliner new",
  2209. referencedClasses: ["ASTPreInliner"],
  2210. //>>excludeEnd("ide");
  2211. pragmas: [],
  2212. messageSends: ["new"]
  2213. }, function ($methodClass){ return function (){
  2214. var self=this,$self=this;
  2215. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2216. return $core.withContext(function($ctx1) {
  2217. //>>excludeEnd("ctx");
  2218. return $recv($globals.ASTPreInliner)._new();
  2219. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2220. }, function($ctx1) {$ctx1.fill(self,"preInliner",{})});
  2221. //>>excludeEnd("ctx");
  2222. }; }),
  2223. $globals.InliningCodeGenerator);
  2224. $core.addMethod(
  2225. $core.method({
  2226. selector: "transformersDictionary",
  2227. protocol: "compiling",
  2228. //>>excludeStart("ide", pragmas.excludeIdeData);
  2229. args: [],
  2230. source: "transformersDictionary\x0a\x09^ transformersDictionary ifNil: [ transformersDictionary := super transformersDictionary\x0a\x09\x09at: '3000-inlinerTagging' put: self preInliner;\x0a\x09\x09at: '6000-inliner' put: self inliner;\x0a\x09\x09at: '8000-irToJs' put: self irTranslator;\x0a\x09\x09yourself ]",
  2231. referencedClasses: [],
  2232. //>>excludeEnd("ide");
  2233. pragmas: [],
  2234. messageSends: ["ifNil:", "at:put:", "transformersDictionary", "preInliner", "inliner", "irTranslator", "yourself"]
  2235. }, function ($methodClass){ return function (){
  2236. var self=this,$self=this;
  2237. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2238. return $core.withContext(function($ctx1) {
  2239. //>>excludeEnd("ctx");
  2240. var $1,$2,$receiver;
  2241. $1=$self.transformersDictionary;
  2242. if(($receiver = $1) == null || $receiver.a$nil){
  2243. $2=(
  2244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2245. $ctx1.supercall = true,
  2246. //>>excludeEnd("ctx");
  2247. ($methodClass.superclass||$boot.nilAsClass).fn.prototype._transformersDictionary.call($self));
  2248. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2249. $ctx1.supercall = false;
  2250. //>>excludeEnd("ctx");;
  2251. $recv($2)._at_put_("3000-inlinerTagging",$self._preInliner());
  2252. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2253. $ctx1.sendIdx["at:put:"]=1;
  2254. //>>excludeEnd("ctx");
  2255. $recv($2)._at_put_("6000-inliner",$self._inliner());
  2256. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2257. $ctx1.sendIdx["at:put:"]=2;
  2258. //>>excludeEnd("ctx");
  2259. $recv($2)._at_put_("8000-irToJs",$self._irTranslator());
  2260. $self.transformersDictionary=$recv($2)._yourself();
  2261. return $self.transformersDictionary;
  2262. } else {
  2263. return $1;
  2264. }
  2265. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2266. }, function($ctx1) {$ctx1.fill(self,"transformersDictionary",{})});
  2267. //>>excludeEnd("ctx");
  2268. }; }),
  2269. $globals.InliningCodeGenerator);
  2270. $core.addClass("InliningError", $globals.SemanticError, [], "Compiler-Inlining");
  2271. //>>excludeStart("ide", pragmas.excludeIdeData);
  2272. $globals.InliningError.comment="Instances of InliningError are signaled when using an `InliningCodeGenerator`in a `Compiler`.";
  2273. //>>excludeEnd("ide");
  2274. $core.addMethod(
  2275. $core.method({
  2276. selector: "asInlinedBlockResult",
  2277. protocol: "*Compiler-Inlining",
  2278. //>>excludeStart("ide", pragmas.excludeIdeData);
  2279. args: [],
  2280. source: "asInlinedBlockResult\x0a\x09^ self expression",
  2281. referencedClasses: [],
  2282. //>>excludeEnd("ide");
  2283. pragmas: [],
  2284. messageSends: ["expression"]
  2285. }, function ($methodClass){ return function (){
  2286. var self=this,$self=this;
  2287. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2288. return $core.withContext(function($ctx1) {
  2289. //>>excludeEnd("ctx");
  2290. return $self._expression();
  2291. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2292. }, function($ctx1) {$ctx1.fill(self,"asInlinedBlockResult",{})});
  2293. //>>excludeEnd("ctx");
  2294. }; }),
  2295. $globals.IRBlockReturn);
  2296. $core.addMethod(
  2297. $core.method({
  2298. selector: "asInlinedBlockResult",
  2299. protocol: "*Compiler-Inlining",
  2300. //>>excludeStart("ide", pragmas.excludeIdeData);
  2301. args: [],
  2302. source: "asInlinedBlockResult\x0a\x09^ self",
  2303. referencedClasses: [],
  2304. //>>excludeEnd("ide");
  2305. pragmas: [],
  2306. messageSends: []
  2307. }, function ($methodClass){ return function (){
  2308. var self=this,$self=this;
  2309. return self;
  2310. }; }),
  2311. $globals.IRInstruction);
  2312. });