Vm-dev July 2022

vm-dev@lists.squeakfoundation.org

15 participants
78 discussions

[OpenSmalltalk/opensmalltalk-vm] d3e39e: Bugs in the infect scripts caused the old BitBltPl...
by Eliot Miranda 28 Jul '22

28 Jul '22

Branch: refs/heads/virtend Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: d3e39ea18f8bebdf8a1e3467165f329946eb486b https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/d3e39ea18f8bebdf8a… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2022-07-28 (Thu, 28 Jul 2022) Changed paths: A src/plugins/BitBltPlugin/BitBltPlugin.c Log Message: ----------- Bugs in the infect scripts caused the old BitBltPlugin.c to get lost.

1 0

[OpenSmalltalk/opensmalltalk-vm] 88d510: Integrate recent opensmalltalk-vm commits:
by Eliot Miranda 28 Jul '22

28 Jul '22

Branch: refs/heads/virtend Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 88d51096a48d2199942c68c8e6017a872348d46a https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/88d51096a48d219994… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2022-07-28 (Thu, 28 Jul 2022) Changed paths: M platforms/Cross/vm/sqNamedPrims.c M platforms/iOS/vm/OSX/sqMacUnixExternalPrims.m M src/plugins/AsynchFilePlugin/AsynchFilePlugin.c M src/plugins/B2DPlugin/B2DPlugin.c M src/plugins/B3DAcceleratorPlugin/B3DAcceleratorPlugin.c R src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/BochsIA32Plugin/BochsIA32Plugin.c M src/plugins/BochsX64Plugin/BochsX64Plugin.c M src/plugins/ClipboardExtendedPlugin/ClipboardExtendedPlugin.c M src/plugins/FileAttributesPlugin/FileAttributesPlugin.c M src/plugins/FileCopyPlugin/FileCopyPlugin.c M src/plugins/FilePlugin/FilePlugin.c M src/plugins/GdbARMPlugin/GdbARMPlugin.c M src/plugins/GdbARMv8Plugin/GdbARMv8Plugin.c M src/plugins/HostWindowPlugin/HostWindowPlugin.c M src/plugins/ImmX11Plugin/ImmX11Plugin.c M src/plugins/InternetConfigPlugin/InternetConfigPlugin.c M src/plugins/JPEGReadWriter2Plugin/JPEGReadWriter2Plugin.c M src/plugins/MIDIPlugin/MIDIPlugin.c M src/plugins/MacMenubarPlugin/MacMenubarPlugin.c M src/plugins/Mpeg3Plugin/Mpeg3Plugin.c M src/plugins/RePlugin/RePlugin.c M src/plugins/SerialPlugin/SerialPlugin.c M src/plugins/SocketPlugin/SocketPlugin.c M src/plugins/SoundPlugin/SoundPlugin.c M src/plugins/SqueakFFIPrims/ARM32FFIPlugin.c M src/plugins/SqueakFFIPrims/ARM64AppleFFIPlugin.c M src/plugins/SqueakFFIPrims/ARM64FFIPlugin.c M src/plugins/SqueakFFIPrims/IA32FFIPlugin.c M src/plugins/SqueakFFIPrims/SqueakFFIPrims.c M src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c M src/plugins/SqueakFFIPrims/X64Win64FFIPlugin.c M src/plugins/VMProfileMacSupportPlugin/VMProfileMacSupportPlugin.c M src/plugins/ZipPlugin/ZipPlugin.c Log Message: ----------- Integrate recent opensmalltalk-vm commits: commit e932d0d2935249dbbd00ba0e63d62ba4eb5a6305 Extend PRINT_DL_ERRORS to sqNamedPrims.c (& hence debug my plugin problem :-) ) commit 65a70d8d781d73e8449e3087e6adee6d221e0c8a CogVM source as per VMMaker.oscog-eem.3224 Fix accessorDepth calculations for clichés such as primitiveSocketListenWithOrWithoutBacklog "Backward compatibility" <export: true> interpreterProxy methodArgumentCount = 2 ifTrue:[^self primitiveSocketListenOnPort] ifFalse:[^self primitiveSocketListenOnPortBacklog] commit 643bf157d88187567b34ac79bbf319770e0bbc1f CogVM source as per VMMaker.oscog-eem.3220 Fix accessor depth calculation for SmartSyntaxInterpreterPlugins. commit 89f77a2501845f09578376c18b338b7ea98df4fe Do better at printing dlopen errors when PRINT_DL_ERRORS is in effect.

1 0

[OpenSmalltalk/opensmalltalk-vm] b01a4b: Clean up sqWin32Sound.c to be closer to the virten...
by Eliot Miranda 28 Jul '22

28 Jul '22

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: b01a4bad92bdc39b5336d8e6d2acf54336a517f0 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/b01a4bad92bdc39b53… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2022-07-28 (Thu, 28 Jul 2022) Changed paths: M platforms/win32/plugins/SoundPlugin/sqWin32Sound.c Log Message: ----------- Clean up sqWin32Sound.c to be closer to the virtend sources.

1 0

VM Maker: VMMaker.oscog-eem.3225.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3225.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3225 Author: eem Time: 27 July 2022, 11:29:08.077197 am UUID: c63b47df-0c18-4c5d-8931-4c41d7baa28d Ancestors: VMMaker.oscog-eem.3224 #firstIndexableField: is a "same-level" accessor as far as the accessor depth calculation goes. So it does not add to the depth. Hence collapse its case into the cCoerce*: one. =============== Diff against VMMaker.oscog-eem.3224 =============== Item was changed: ----- Method: CCodeGenerator>>depthOfAccessor:for: (in category 'spur primitive compilation') ----- depthOfAccessor: accessor for: chainVariableOrNil "Compute the accessor depth for a send. This is potentially greater than one for a nested access such as self fetchPointer: i ofObject: (self fetchPointer: j ofObject: (self fetchPointer: k ofObject: var)). If chainVariableOrNil is not nil then an access is only meaningful if it is an access of chainVariableOrNil." | keywords accessIndex objectAccessed | accessor isSend ifFalse: [^0]. (StackInterpreter isStackAccessor: accessor selector) ifTrue: [^1]. + (#(#firstIndexableField: cCoerceSimple:to: cCoerce:to:) includes: accessor selector) ifTrue: - #firstIndexableField: == accessor selector ifTrue: - [^1 + (self depthOfAccessor: accessor args first for: chainVariableOrNil)]. - (#(cCoerceSimple:to: cCoerce:to:) includes: accessor selector) ifTrue: [^self depthOfAccessor: accessor args first for: chainVariableOrNil]. keywords := accessor selector keywords. accessIndex := keywords indexOf: 'ofObject:' ifAbsent: [^(accessor args inject: ((StackInterpreter isObjectAccessor: accessor selector) ifTrue: [1] ifFalse: [0]) into: [:best :node| node isSend ifTrue: [best max: (self depthOfAccessor: node for: chainVariableOrNil)] ifFalse: [best]])]. objectAccessed := accessor args at: accessIndex. chainVariableOrNil ifNil: [^1 + (self depthOfAccessor: objectAccessed for: chainVariableOrNil)]. objectAccessed isSend ifFalse: [^(objectAccessed isSameAs: chainVariableOrNil) ifTrue: [1] ifFalse: [0]]. (objectAccessed anySatisfy: [:node| node isSameAs: chainVariableOrNil]) ifFalse: [^0]. ^1 + (self depthOfAccessor: objectAccessed for: chainVariableOrNil)!

1 0

[OpenSmalltalk/opensmalltalk-vm] 5cf231: Add a GetAttributeString to the OSX build cuz Unix...
by Eliot Miranda 27 Jul '22

27 Jul '22

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 5cf2311c898137e610a96c905c3b638c5f8e2c69 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/5cf2311c898137e610… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2022-07-26 (Tue, 26 Jul 2022) Changed paths: M platforms/iOS/vm/Common/Classes/sqSqueakAttributesAPI.m M platforms/iOS/vm/OSX/osExports.c M platforms/unix/vm/osExports.c Log Message: ----------- Add a GetAttributeString to the OSX build cuz UnixOSProcessPlugin uses this to "identify the JIT" (?!?!?!?!?!) and hence decide whether to use sigaltstack.

2 1

[OpenSmalltalk/opensmalltalk-vm] e932d0: Extend PRINT_DL_ERRORS to sqNamedPrims.c (& hence ...
by Eliot Miranda 27 Jul '22

27 Jul '22

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: e932d0d2935249dbbd00ba0e63d62ba4eb5a6305 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/e932d0d2935249dbbd… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2022-07-26 (Tue, 26 Jul 2022) Changed paths: M platforms/Cross/vm/sqNamedPrims.c Log Message: ----------- Extend PRINT_DL_ERRORS to sqNamedPrims.c (& hence debug my plugin problem :-) )

1 0

VM Maker Inbox: VMMaker.oscog.seperateMarking-eem.3224.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of VMMaker to project VM Maker Inbox: http://source.squeak.org/VMMakerInbox/VMMaker.oscog.seperateMarking-eem.322… ==================== Summary ==================== Name: VMMaker.oscog.seperateMarking-eem.3224 Author: eem Time: 26 July 2022, 4:35:31.493577 pm UUID: 2a317555-50ef-425f-b9f2-7732fe534889 Ancestors: VMMaker.oscog.seperateMarking-eem.3223 Better categorize a couple of primitives. =============== Diff against VMMaker.oscog.seperateMarking-eem.3223 =============== Item was changed: + ----- Method: InterpreterPrimitives>>primitiveCompareBytes (in category 'string primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveCompareBytes (in category 'indexing primitives') ----- primitiveCompareBytes "Primitive. Compare two byte-indexed objects for equality" <export: true> <primitiveMetadata: #FastCPrimitiveFlag> | arg1 arg2 len | arg1 := self stackValue: 1. arg2 := self stackValue: 0. "Quick identity test" arg1 = arg2 ifTrue: [^self methodReturnBool: true]. ((objectMemory isBytes: arg1) and:[objectMemory isBytes: arg2]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]. len := objectMemory numBytesOfBytes: arg1. len = (objectMemory numBytesOfBytes: arg2) ifFalse: [^self methodReturnBool: false]. 0 to: len - 1 do: [:i| (objectMemory fetchByte: i ofObject: arg1) = (objectMemory fetchByte: i ofObject: arg2) ifFalse: [^self methodReturnBool: false]]. ^self methodReturnBool: true! Item was changed: + ----- Method: InterpreterPrimitives>>primitiveForceTenure (in category 'memory space primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveForceTenure (in category 'I/O primitives') ----- primitiveForceTenure "Set force tenure flag to true, this forces a tenure operation on the next incremental GC" <export: true> <option: #SqueakV3ObjectMemory> objectMemory forceTenureFlag: 1!

1 0

VM Maker: VMMaker.oscog.seperateMarking-eem.3223.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog.seperateMarking-eem.3223.mcz ==================== Summary ==================== Name: VMMaker.oscog.seperateMarking-eem.3223 Author: eem Time: 26 July 2022, 4:23:03.599542 pm UUID: 683d584f-0293-49e3-8fc7-b045d8d09a88 Ancestors: VMMaker.oscog.seperateMarking-WoC.3222 Nuke the older named primitiveNewPinnedInOldSpace & primitiveNewWithArgUninitialized. Categorize all the instantiation primitives under "instantiation primitives". =============== Diff against VMMaker.oscog.seperateMarking-WoC.3222 =============== Item was changed: SystemOrganization addCategory: #'VMMaker-Building'! SystemOrganization addCategory: #'VMMaker-Interpreter'! SystemOrganization addCategory: #'VMMaker-InterpreterSimulation'! SystemOrganization addCategory: #'VMMaker-JIT'! SystemOrganization addCategory: #'VMMaker-JITSimulation'! SystemOrganization addCategory: #'VMMaker-Multithreading'! SystemOrganization addCategory: #'VMMaker-Plugins'! SystemOrganization addCategory: #'VMMaker-Plugins-FFI'! SystemOrganization addCategory: #'VMMaker-Plugins-IOS'! SystemOrganization addCategory: #'VMMaker-PostProcessing'! SystemOrganization addCategory: #'VMMaker-SmartSyntaxPlugins'! SystemOrganization addCategory: #'VMMaker-SpurMemoryManager'! SystemOrganization addCategory: #'VMMaker-SpurMemoryManagerSimulation'! + SystemOrganization addCategory: #'VMMaker-V3MemoryManager'! SystemOrganization addCategory: #'VMMaker-Support'! SystemOrganization addCategory: #'VMMaker-Tests'! SystemOrganization addCategory: #'VMMaker-Translation to C'! SystemOrganization addCategory: #'VMMaker-Utilities'! - SystemOrganization addCategory: #'VMMaker-V3MemoryManager'! Item was changed: + ----- Method: InterpreterPrimitives>>primitiveClone (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveClone (in category 'object access primitives') ----- primitiveClone "Return a shallow copy of the receiver." | rcvr newCopy | rcvr := self stackTop. (objectMemory isImmediate: rcvr) ifTrue: [newCopy := rcvr] ifFalse: [(argumentCount = 0 or: [(objectMemory isForwarded: rcvr) not]) ifTrue: [newCopy := objectMemory cloneObject: rcvr] ifFalse: [newCopy := 0]. newCopy = 0 ifTrue: "not enough memory most likely" [^self primitiveFail]]. self pop: argumentCount + 1 thenPush: newCopy! Item was changed: + ----- Method: InterpreterPrimitives>>primitiveNew (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveNew (in category 'object access primitives') ----- primitiveNew NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." [(argumentCount < 1 or: [self objCouldBeClassObj: self stackTop]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]]. objectMemory hasSpurMemoryManagerAPI ifTrue: ["Allocate a new fixed-size instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free. This *will not* cause a GC :-)" (objectMemory instantiateClass: self stackTop) ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] ifNil: [self primitiveFailFor: ((objectMemory isFixedSizePointerFormat: (objectMemory instSpecOfClass: self stackTop)) ifTrue: [PrimErrNoMemory] ifFalse: [PrimErrBadReceiver])]] ifFalse: ["Allocate a new fixed-size instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free. May cause a GC." | spaceOkay | "The following may cause GC!! Use var for result to permit inlining." spaceOkay := objectMemory sufficientSpaceToInstantiate: self stackTop indexableSize: 0. spaceOkay ifTrue: [self pop: argumentCount + 1 thenPush: (objectMemory instantiateClass: self stackTop indexableSize: 0)] ifFalse: [self primitiveFailFor: PrimErrNoMemory]]! Item was changed: + ----- Method: InterpreterPrimitives>>primitiveNewMethod (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveNewMethod (in category 'compiled methods') ----- primitiveNewMethod | header bytecodeCount class size theMethod literalCount | header := self stackTop. bytecodeCount := self stackValue: 1. ((objectMemory isIntegerObject: header) and: [(objectMemory isIntegerObject: bytecodeCount) and: [(bytecodeCount := objectMemory integerValueOf: bytecodeCount) >= 0]]) ifFalse: [self primitiveFailFor: PrimErrBadArgument. ^self]. class := self stackValue: 2. literalCount := objectMemory literalCountOfMethodHeader: header. size := literalCount + LiteralStart * objectMemory bytesPerOop + bytecodeCount. objectMemory hasSpurMemoryManagerAPI ifTrue: [theMethod := objectMemory instantiateCompiledMethodClass: class indexableSize: size. theMethod ifNil: [self primitiveFailFor: ((objectMemory isCompiledMethodFormat: (objectMemory instSpecOfClass: class)) ifTrue: [PrimErrNoMemory] ifFalse: [PrimErrBadReceiver]). ^self]] ifFalse: [theMethod := objectMemory instantiateClass: class indexableSize: size]. objectMemory storePointerUnchecked: HeaderIndex ofObject: theMethod withValue: header. 1 to: literalCount do: [:i | objectMemory storePointerUnchecked: i ofObject: theMethod withValue: objectMemory nilObject]. self pop: 3 thenPush: theMethod! Item was removed: - ----- Method: InterpreterPrimitives>>primitiveNewPinnedInOldSpace (in category 'object access primitives') ----- - primitiveNewPinnedInOldSpace - NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." - [(argumentCount < 1 - or: [self objCouldBeClassObj: self stackTop]) ifFalse: - [^self primitiveFailFor: PrimErrBadArgument]]. - objectMemory hasSpurMemoryManagerAPI - ifTrue: - ["Allocate a new fixed-size instance. Fail if the allocation would leave - less than lowSpaceThreshold bytes free. This *will not* cause a GC :-)" - (objectMemory instantiateClass: self stackTop) - ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] - ifNil: [self primitiveFailFor: ((objectMemory isFixedSizePointerFormat: (objectMemory instSpecOfClass: self stackTop)) - ifTrue: [PrimErrNoMemory] - ifFalse: [PrimErrBadReceiver])]] - ifFalse: - ["Allocate a new fixed-size instance. Fail if the allocation would leave - less than lowSpaceThreshold bytes free. May cause a GC." - | spaceOkay | - "The following may cause GC!! Use var for result to permit inlining." - spaceOkay := objectMemory - sufficientSpaceToInstantiate: self stackTop - indexableSize: 0. - spaceOkay - ifTrue: - [self - pop: argumentCount + 1 - thenPush: (objectMemory - instantiateClass: self stackTop - indexableSize: 0)] - ifFalse: [self primitiveFailFor: PrimErrNoMemory]]! Item was changed: + ----- Method: InterpreterPrimitives>>primitiveNewWithArg (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveNewWithArg (in category 'object access primitives') ----- primitiveNewWithArg "Allocate a new indexable instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free. May cause a GC." | size spaceOkay instSpec | NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." [(argumentCount < 2 or: [self addressCouldBeClassObj: (self stackValue: 1)]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]]. size := self positiveMachineIntegerValueOf: self stackTop. self successful ifFalse:"positiveMachineIntegerValueOf: succeeds only for non-negative integers." [^self primitiveFailFor: PrimErrBadArgument]. objectMemory hasSpurMemoryManagerAPI ifTrue: [(objectMemory instantiateClass: (self stackValue: 1) indexableSize: size) ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] ifNil: [instSpec := objectMemory instSpecOfClass: (self stackValue: 1). self primitiveFailFor: (((objectMemory isIndexableFormat: instSpec) and: [(objectMemory isCompiledMethodFormat: instSpec) not]) ifTrue: [PrimErrNoMemory] ifFalse: [PrimErrBadReceiver])]] ifFalse: [spaceOkay := objectMemory sufficientSpaceToInstantiate: (self stackValue: 1) indexableSize: size. spaceOkay ifTrue: [self pop: argumentCount + 1 thenPush: (objectMemory instantiateClass: (self stackValue: 1) indexableSize: size)] ifFalse: [self primitiveFailFor: PrimErrNoMemory]]! Item was removed: - ----- Method: InterpreterPrimitives>>primitiveNewWithArgUninitialized (in category 'object access primitives') ----- - primitiveNewWithArgUninitialized - "Allocate a new indexable instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free. May cause a GC." - | size spaceOkay instSpec | - NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." - [(argumentCount < 2 - or: [self addressCouldBeClassObj: (self stackValue: 1)]) ifFalse: - [^self primitiveFailFor: PrimErrBadArgument]]. - size := self positiveMachineIntegerValueOf: self stackTop. - self successful ifFalse:"positiveMachineIntegerValueOf: succeeds only for non-negative integers." - [^self primitiveFailFor: PrimErrBadArgument]. - objectMemory hasSpurMemoryManagerAPI - ifTrue: - [(objectMemory instantiateUninitializedClass: (self stackValue: 1) indexableSize: size) - ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] - ifNil: [instSpec := objectMemory instSpecOfClass: (self stackValue: 1). - self primitiveFailFor: (((objectMemory isIndexableFormat: instSpec) - and: [(objectMemory isCompiledMethodFormat: instSpec) not]) - ifTrue: [PrimErrNoMemory] - ifFalse: [PrimErrBadReceiver])]] - ifFalse: - [spaceOkay := objectMemory sufficientSpaceToInstantiate: (self stackValue: 1) indexableSize: size. - spaceOkay - ifTrue: - [self - pop: argumentCount + 1 - thenPush: (objectMemory instantiateClass: (self stackValue: 1) indexableSize: size)] - ifFalse: - [self primitiveFailFor: PrimErrNoMemory]]! Item was changed: + ----- Method: InterpreterPrimitives>>primitivePinnedNew (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitivePinnedNew (in category 'object access primitives') ----- primitivePinnedNew NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." [(argumentCount < 1 or: [self objCouldBeClassObj: self stackTop]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]]. objectMemory hasSpurMemoryManagerAPI ifTrue: ["Allocate a new fixed-size instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free. This *will not* cause a GC :-)" (objectMemory inOldSpaceInstantiatePinnedClass: self stackTop) ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] ifNil: [self primitiveFailFor: ((objectMemory isFixedSizePointerFormat: (objectMemory instSpecOfClass: self stackTop)) ifTrue: [PrimErrNoMemory] ifFalse: [PrimErrBadReceiver])]] ifFalse: [self primitiveFailFor: PrimErrUnsupported]! Item was changed: + ----- Method: InterpreterPrimitives>>primitivePinnedNewWithArg (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitivePinnedNewWithArg (in category 'object access primitives') ----- primitivePinnedNewWithArg "Allocate a new pinned indexable instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free." | size instSpec | NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." [(argumentCount < 2 or: [self addressCouldBeClassObj: (self stackValue: 1)]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]]. size := self positiveMachineIntegerValueOf: self stackTop. self successful ifFalse:"positiveMachineIntegerValueOf: succeeds only for non-negative integers." [^self primitiveFailFor: PrimErrBadArgument]. objectMemory hasSpurMemoryManagerAPI ifTrue: [(objectMemory inOldSpaceInstantiatePinnedClass: (self stackValue: 1) indexableSize: size) ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] ifNil: [instSpec := objectMemory instSpecOfClass: (self stackValue: 1). self primitiveFailFor: (((objectMemory isIndexableFormat: instSpec) and: [(objectMemory isCompiledMethodFormat: instSpec) not]) ifTrue: [PrimErrNoMemory] ifFalse: [PrimErrBadReceiver])]] ifFalse: [self primitiveFailFor: PrimErrUnsupported]! Item was changed: + ----- Method: InterpreterPrimitives>>primitiveUninitializedNewWithArg (in category 'instantiation primitives') ----- - ----- Method: InterpreterPrimitives>>primitiveUninitializedNewWithArg (in category 'object access primitives') ----- primitiveUninitializedNewWithArg "Allocate a new indexable instance. Fail if the allocation would leave less than lowSpaceThreshold bytes free. May cause a GC." | size instSpec | NewspeakVM ifTrue: "For the mirror prims check that the class obj is actually a valid class." [(argumentCount < 2 or: [self addressCouldBeClassObj: (self stackValue: 1)]) ifFalse: [^self primitiveFailFor: PrimErrBadArgument]]. size := self positiveMachineIntegerValueOf: self stackTop. self successful ifFalse:"positiveMachineIntegerValueOf: succeeds only for non-negative integers." [^self primitiveFailFor: PrimErrBadArgument]. objectMemory hasSpurMemoryManagerAPI ifTrue: [(objectMemory instantiateUninitializedClass: (self stackValue: 1) indexableSize: size) ifNotNil: [:obj| self pop: argumentCount + 1 thenPush: obj] ifNil: [instSpec := objectMemory instSpecOfClass: (self stackValue: 1). self primitiveFailFor: (((objectMemory isIndexableFormat: instSpec) and: [(objectMemory isCompiledMethodFormat: instSpec) not]) ifTrue: [PrimErrNoMemory] ifFalse: [PrimErrBadReceiver])]] ifFalse: [self primitiveFailFor: PrimErrUnsupported]!

1 0

[OpenSmalltalk/opensmalltalk-vm] 65a70d: CogVM source as per VMMaker.oscog-eem.3224
by Eliot Miranda 26 Jul '22

26 Jul '22

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 65a70d8d781d73e8449e3087e6adee6d221e0c8a https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/65a70d8d781d73e844… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2022-07-26 (Tue, 26 Jul 2022) Changed paths: M src/plugins/B2DPlugin/B2DPlugin.c M src/plugins/BitBltPlugin/BitBltPlugin.c M src/plugins/ImmX11Plugin/ImmX11Plugin.c M src/plugins/MIDIPlugin/MIDIPlugin.c M src/plugins/RePlugin/RePlugin.c M src/plugins/SocketPlugin/SocketPlugin.c M src/plugins/ZipPlugin/ZipPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.3224 Fix accessorDepth calculations for clichés such as primitiveSocketListenWithOrWithoutBacklog "Backward compatibility" <export: true> interpreterProxy methodArgumentCount = 2 ifTrue:[^self primitiveSocketListenOnPort] ifFalse:[^self primitiveSocketListenOnPortBacklog]

1 0

VM Maker: VMMaker.oscog-eem.3224.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3224.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.3224 Author: eem Time: 26 July 2022, 2:21:34.685067 pm UUID: 42ebfb68-9ff7-49b7-9cb0-0d8213e28160 Ancestors: VMMaker.oscog-eem.3223 Allow other package's plugins to get logged at generation time. =============== Diff against VMMaker.oscog-eem.3223 =============== Item was changed: ----- Method: VMMaker>>configurationGeneratorNameOrNil (in category 'generate sources') ----- configurationGeneratorNameOrNil "Search the sender chain for the first method in VMMaker class protocol configurations, and answer it if found, otherwise answer nil. This allows us to name the configuration being generated." ^thisContext findContextSuchThat: [:ctxt| ctxt receiver == VMMaker + and: [ctxt method methodReference category endsWith: #configurations]]! - and: [ctxt method methodReference category = #configurations]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev July 2022