[Vm-dev] VM Maker: VMMaker.oscog-eem.2567.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Sep 21 16:48:12 UTC 2019


Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2567.mcz

==================== Summary ====================

Name: VMMaker.oscog-eem.2567
Author: eem
Time: 21 September 2019, 9:48:03.990619 am
UUID: b3d92f49-e94c-48f3-99b0-1a644c1d37f9
Ancestors: VMMaker.oscog-eem.2566

Fix two slips, one in printing contexts, the other in simulating primitiveSocketListenWithOrWithoutBacklog.

=============== Diff against VMMaker.oscog-eem.2566 ===============

Item was changed:
  ----- Method: CoInterpreter>>printMethodFieldForPrintContext: (in category 'debug printing') -----
  printMethodFieldForPrintContext: aContext
  	<inline: true>
  	| meth |
  	meth := objectMemory fetchPointer: MethodIndex ofObject: aContext.
  	(self isMarriedOrWidowedContext: aContext)
  		ifFalse:
+ 			[self printOopShortInner: meth.
+ 			 (self methodHasCogMethod: meth) ifTrue:
+ 				[self space; print: '('; printHexnp: (self cogMethodOf: meth); print: ')'].
+ 			 self cr]
- 			[self shortPrintOop: meth.
- 			(self methodHasCogMethod: meth) ifTrue:
- 				[self space; printHexnp: (self cogMethodOf: meth)]]
  		ifTrue:
  			[(self methodHasCogMethod: meth) ifTrue:
  				[self printHexnp: (self cogMethodOf: meth); space].
  			 self shortPrintOop: meth]!

Item was changed:
  ----- Method: SocketPluginSimulator>>primitiveSocketListenWithOrWithoutBacklog (in category 'primitives') -----
  primitiveSocketListenWithOrWithoutBacklog
  	"This is a hack to get around limitations in the simulated dispatch of smart syntax primitives."
  	interpreterProxy methodArgumentCount = 2 ifTrue:
  		["self primitive: 'primitiveSocketListenOnPort' parameters: #(#Oop #SmallInteger)"
  		 ^self primitiveSocket: (interpreterProxy stackValue: 1)
  				listenOnPort: (interpreterProxy stackIntegerValue: 0)].
  	"self primitive: 'primitiveSocketListenOnPortBacklog' parameters: #(#Oop #SmallInteger #SmallInteger)"
+ 	^self primitiveSocket: (interpreterProxy stackValue: 2)
+ 		listenOnPort: (interpreterProxy stackIntegerValue: 1)
- 	^self primitiveSocket: (interpreterProxy stackValue: 1)
- 		listenOnPort: (interpreterProxy stackIntegerValue: 0)
  		backlogSize: (interpreterProxy stackIntegerValue: 0)!



More information about the Vm-dev mailing list