David T. Lewis uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker-dtl.346.mcz
==================== Summary ====================
Name: VMMaker-dtl.346 Author: dtl Time: 30 May 2014, 7:19:01.389 pm UUID: b3d921ff-4a69-45e5-9321-d022b072e50b Ancestors: VMMaker-dtl.345
VMMaker 4.13.5 In primitiveUtcWithOffset, use storePointer:ofObject:withValue: rather than stObject:at:put: to avoid unnecessary checks
=============== Diff against VMMaker-dtl.345 ===============
Item was changed: ----- Method: InterpreterPrimitives>>primitiveUtcWithOffset (in category 'system control primitives') ----- primitiveUtcWithOffset "Answer an array with UTC microseconds since the Posix epoch and the current seconds offset from GMT in the local time zone. An empty two element array may be supplied as a parameter. This is a named (not numbered) primitive in the null module (ie the VM)" | clock offset resultArray |
<export: true> <var: #clock type: 'sqLong'> <var: #offset type: 'int'> argumentCount > 1 ifTrue: [^self primitiveFailFor: PrimErrBadNumArgs]. (self cCode: 'ioUtcWithOffset(&clock, &offset)' inSmalltalk: [-1]) = -1 ifTrue: [^ self primitiveFail]. objectMemory pushRemappableOop: (self positive64BitIntegerFor: clock). argumentCount > 0 ifTrue: [resultArray := self popStack. ((objectMemory isPointers: resultArray) and: [(objectMemory lengthOf: resultArray) = 2]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]] ifFalse: [resultArray := objectMemory instantiateClass: objectMemory classArray indexableSize: 2]. + objectMemory storePointer: 0 ofObject: resultArray withValue: objectMemory popRemappableOop. + objectMemory storePointerUnchecked: 1 ofObject: resultArray withValue: (objectMemory integerObjectOf: offset). - self stObject: resultArray at: 1 put: objectMemory popRemappableOop. - self stObject: resultArray at: 2 put: (objectMemory integerObjectOf: offset). self pop: 1 thenPush: resultArray !
Item was changed: ----- Method: VMMaker class>>versionString (in category 'version testing') ----- versionString
"VMMaker versionString"
+ ^'4.13.5'! - ^'4.13.4'!
vm-dev@lists.squeakfoundation.org