IRBuilder.st
changeset 25 e14dfb33936f
parent 23 377bc46cad12
child 29 2f154b67e1e8
equal deleted inserted replaced
24:e4b222f09536 25:e14dfb33936f
   104     ir addTemps: newKeys
   104     ir addTemps: newKeys
   105 
   105 
   106     "Modified: / 30-03-2009 / 11:15:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
   106     "Modified: / 30-03-2009 / 11:15:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
   107 !
   107 !
   108 
   108 
       
   109 tempNames
       
   110 
       
   111     ^ir tempNames
       
   112 
       
   113     "Modified: / 30-03-2009 / 11:15:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
       
   114 !
       
   115 
   109 testJumpAheadTarget: label
   116 testJumpAheadTarget: label
   110 
   117 
   111 	jumpAheadStacks at: label ifPresent: [:stack |
   118 	jumpAheadStacks at: label ifPresent: [:stack |
   112 		[stack isEmpty] whileFalse: [self jumpAheadTarget: label]
   119 		[stack isEmpty] whileFalse: [self jumpAheadTarget: label]
   113 	]
   120 	]
   463 version_CVS
   470 version_CVS
   464     ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRBuilder.st,v 1.3 2009/10/08 11:57:58 fm Exp $'
   471     ^ '$Header: /cvs/stx/cvut/stx/goodies/newcompiler/IRBuilder.st,v 1.3 2009/10/08 11:57:58 fm Exp $'
   465 !
   472 !
   466 
   473 
   467 version_SVN
   474 version_SVN
   468     ^'§Id: IRBuilder.st 23 2009-08-19 20:28:12Z vranyj1 §'
   475     ^ '$Id$'
   469 ! !
   476 ! !