Cog VM (Squeak/Pharo Smalltalk) Hack: Skip Message Send (Smalltalk part)

gistfile1.st

commonSend
	"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."
	<sharedCodeNamed: 'commonSend' inCase: 131>
	self sendBreak: messageSelector + BaseHeaderSize
		point: (objectMemory lengthOf: messageSelector)
		receiver: (self internalStackValue: argumentCount).
	cogit recordSendTrace ifTrue:
		[self recordTrace: lkupClass thing: messageSelector source: TraceIsFromInterpreter.
		cogit printOnTrace ifTrue:
			[self printActivationNameForSelector: messageSelector startClass: lkupClass; cr]].
	
	"This hook will not work until we tweak the C source code"
	messageSelector = #skipMe:
		ifTrue: [ "we will manually insert code here" ]
		ifFalse: [
			self internalFindNewMethod. 
			self internalExecuteNewMethod  ]. 

       self fetchNextBytecode.