equal
deleted
inserted
replaced
165 kind == #MArg ifTrue:[^gen pushMethodArg: index]. |
165 kind == #MArg ifTrue:[^gen pushMethodArg: index]. |
166 kind == #MVar ifTrue:[^gen pushMethodVar: index]. |
166 kind == #MVar ifTrue:[^gen pushMethodVar: index]. |
167 kind == #BArg ifTrue:[^gen pushBlockArg: index]. |
167 kind == #BArg ifTrue:[^gen pushBlockArg: index]. |
168 kind == #BVar ifTrue:[^gen pushBlockVar: index]. |
168 kind == #BVar ifTrue:[^gen pushBlockVar: index]. |
169 |
169 |
170 self error:'Should never be reached'. |
170 self halt:'Should never be reached'. |
171 |
171 |
172 "Created: / 30-03-2009 / 14:06:28 / Jan Vrany <vranyj1@fel.cvut.cz>" |
172 "Created: / 30-03-2009 / 14:06:28 / Jan Vrany <vranyj1@fel.cvut.cz>" |
173 "Modified: / 30-03-2009 / 19:02:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
173 "Modified: / 30-03-2009 / 19:02:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
174 "Modified: / 09-04-2010 / 15:05:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
175 ! |
174 ! |
176 |
175 |
177 remoteReturn |
176 remoteReturn |
178 |
177 |
179 self doPending. |
178 self doPending. |
370 ! ! |
369 ! ! |
371 |
370 |
372 !IRTranslator class methodsFor:'documentation'! |
371 !IRTranslator class methodsFor:'documentation'! |
373 |
372 |
374 version |
373 version |
375 ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTranslator.st,v 1.3 2009/10/08 12:04:47 fm Exp $' |
374 ^ '$Id$' |
376 ! |
375 ! |
377 |
376 |
378 version_CVS |
377 version_CVS |
379 ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTranslator.st,v 1.3 2009/10/08 12:04:47 fm Exp $' |
378 ^ '§Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRTranslator.st,v 1.3 2009/10/08 12:04:47 fm Exp §' |
380 ! |
379 ! |
381 |
380 |
382 version_SVN |
381 version_SVN |
383 ^ '$Id$' |
382 ^ '$Id:: $' |
384 ! ! |
383 ! ! |