163 !

   163 !

   164 

   164 

   165 compileMethod:aMethod

   165 compileMethod:aMethod

   166     "compile a single method with instrumentation"

   166     "compile a single method with instrumentation"

   167 

   167 

   168     aMethod hasPrimitiveCode ifTrue:[^ self].

   169     aMethod hasPrimitiveCode ifTrue:[^ self].

   169     aMethod isSubclassResponsibility ifTrue:[^ self].      

   170     aMethod isSubclassResponsibility ifTrue:[^ self].      

   170     (aMethod hasAnnotation:#noCoverage) ifTrue:[^ self].      

   171     (aMethod hasAnnotation:#noCoverage) ifTrue:[^ self].      

   172 

   172 

   173     Error handle:[:ex |

   173     Error handle:[:ex |

   174         Transcript showCR:'error instrumenting: %1' with:aMethod.

   174         Transcript showCR:'error instrumenting: %1' with:aMethod.

   175         Transcript showCR:'    %1' with:ex description.

   175         Transcript showCR:'    %1' with:ex description.

   176         ex reject.

   176         ex reject.