InstrumentingCompiler.st
changeset 2958 4bb6acd04cfe
parent 2951 340d0405f582
child 2960 8adc66fe55fb
equal deleted inserted replaced
2957:b23f798ffa70 2958:4bb6acd04cfe
    98 !InstrumentingCompiler class methodsFor:'compilation-public'!
    98 !InstrumentingCompiler class methodsFor:'compilation-public'!
    99 
    99 
   100 compileClass:aClass
   100 compileClass:aClass
   101     "compile all methods of aClass with instrumentation"
   101     "compile all methods of aClass with instrumentation"
   102 
   102 
   103     aClass methodsDo:[:eachMethod |
   103     aClass instAndClassMethodsDo:[:eachMethod |
   104         self compileMethod:eachMethod
   104         self compileMethod:eachMethod
   105     ].
   105     ].
   106 !
   106 !
   107 
   107 
   108 compileMethod:aMethod
   108 compileMethod:aMethod
   110 
   110 
   111     self 
   111     self 
   112         compile:(aMethod source)
   112         compile:(aMethod source)
   113         forClass:(aMethod mclass) 
   113         forClass:(aMethod mclass) 
   114         inCategory:(aMethod category)
   114         inCategory:(aMethod category)
       
   115 !
       
   116 
       
   117 compilePackage:aPackageID
       
   118     "compile all classes of a package instrumentation"
       
   119 
       
   120     Smalltalk allClassesInPackage:aPackageID do:[:eachClass |
       
   121         self compileClass:eachClass
       
   122     ].
       
   123 
       
   124     "
       
   125      InstrumentingCompiler compilePackage:'exept:workflow'.
       
   126      InstrumentingCompiler compilePackage:'exept:expecco'.
       
   127     "
   115 ! !
   128 ! !
   116 
   129 
   117 !InstrumentingCompiler class methodsFor:'special'!
   130 !InstrumentingCompiler class methodsFor:'special'!
   118 
   131 
   119 allInstrumentedMethods
   132 allInstrumentedMethods
   893 ! !
   906 ! !
   894 
   907 
   895 !InstrumentingCompiler class methodsFor:'documentation'!
   908 !InstrumentingCompiler class methodsFor:'documentation'!
   896 
   909 
   897 version
   910 version
   898     ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.23 2012-10-20 19:17:14 cg Exp $'
   911     ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.24 2012-10-26 09:48:52 cg Exp $'
   899 !
   912 !
   900 
   913 
   901 version_CVS
   914 version_CVS
   902     ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.23 2012-10-20 19:17:14 cg Exp $'
   915     ^ '$Header: /cvs/stx/stx/libcomp/InstrumentingCompiler.st,v 1.24 2012-10-26 09:48:52 cg Exp $'
   903 ! !
   916 ! !