[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