compiler/PPCCompiler.st
changeset 443 2c87ed364404
parent 438 20598d7ce9fa
child 445 eb33780df2f9
equal deleted inserted replaced
442:d333233f7ebd 443:2c87ed364404
   343 
   343 
   344     "Modified: / 23-04-2015 / 18:28:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   344     "Modified: / 23-04-2015 / 18:28:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   345 !
   345 !
   346 
   346 
   347 stopMethod
   347 stopMethod
   348 	self cache: currentMethod methodName as: currentMethod.
   348         self cache: currentMethod methodName as: currentMethod.
   349 	
   349         
   350 	arguments profile ifTrue: [ Transcript crShow: currentMethod code ].
   350         arguments profile ifTrue: [ Transcript show: currentMethod code; cr. ].
   351 	^ self pop.
   351         ^ self pop.
   352 
   352 
   353     "Modified: / 23-04-2015 / 18:36:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   353     "Modified: / 01-05-2015 / 14:18:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   354 !
   354 !
   355 
   355 
   356 top
   356 top
   357 	^ compilerStack top
   357 	^ compilerStack top
   358 ! !
   358 ! !