[Vm-dev] How to track message sends in CompiledMethod object?

Hi folks. I am using the lsat free bit of the Squeak Object header to do some experiments. What I need to do now is to be able to set such bit for the CompiledMethod objects, when those selectors are sent.

Suppose that from the image side I do "Date today yyyymmdd" then I want to set that bit in the object header of the CompiledMethod Date>> #today and CompiledMethod Date>> #yyyymmdd

Now....I check in the VM and I am not sure where I should do that. I already have my own primitive so that I can do something like this:

((self isIntegerObject: rcvr) not and: [hasToTrace]) ifTrue: [ self internalTurnOnUsedBit: rcvr. ].

Now...where I can intercept this in the VM? I found Interpreter >> internalExecuteNewMethod

is it there? should I access to "newMethod" and do something like this:

rcvr := "somehow I access to Interpreter newMethod" ((self isIntegerObject: rcvr) not and: [hasToTrace]) ifTrue: [ self internalTurnOnUsedBit: rcvr. ].

thanks for any help

mariano