Hi folks. I need to intercept all messages. For such purpose, I modified Interpreter >> normalSend like this:
normalSend
"Send a message, starting lookup with the receiver's class."
"Assume: messageSelector and argumentCount have been set, and that
the receiver and arguments have been pushed onto the stack,"
"Note: This method is inlined into the interpreter dispatch loop."
| rcvr |
self inline: true.
self sharedCodeNamed: 'normalSend' inCase: 131.
rcvr := self internalStackValue: argumentCount.
(self isIntegerObject: rcvr)
ifFalse: [ self doSomething: rcvr.
]. lkupClass := self fetchClassOf: rcvr.
receiverClass := lkupClass.
self commonSend.
But now, from the IMAGE side I would like to enable or disable such intercept. It would be great if from the Image side I can set a value to a boolean and read such value and ask, from the VM side.
Do you know if I can do this? Should I use specialObjectArray ? If true, can you give me a hint of how to do it ?
Thank you very much.
Mariano
_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Locked
