IRFunction.st
changeset 45 04a50b0d540a
parent 43 c8afb8e4c3cc
equal deleted inserted replaced
44:840c68a91cdd 45:04a50b0d540a
   170 ! !
   170 ! !
   171 
   171 
   172 !IRFunction methodsFor:'debugging support'!
   172 !IRFunction methodsFor:'debugging support'!
   173 
   173 
   174 inspector2TabIRCode
   174 inspector2TabIRCode
   175 
   175     <inspector2Tab>
   176     ^Tools::Inspector2Tab new
   176 
   177 	label: 'IR Code';
   177     ^(Smalltalk at: #Tools::Inspector2Tab) new
   178 	priority: 75;
   178         label: 'IR Code';
   179 	view: ((ScrollableView for:TextView) contents: self longPrintString; yourself)
   179         priority: 75;
       
   180         text: [ self longPrintString ];
       
   181         yourself
   180 
   182 
   181     "Created: / 11-06-2008 / 01:05:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
   183     "Created: / 11-06-2008 / 01:05:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
       
   184     "Modified: / 30-10-2014 / 22:33:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   182 ! !
   185 ! !
   183 
   186 
   184 !IRFunction methodsFor:'decompiling'!
   187 !IRFunction methodsFor:'decompiling'!
   185 
   188 
   186 ast
   189 ast