VM Maker: VMMaker.oscog-eem.2567.mcz

 
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)!