Vm-dev May 2017

vm-dev@lists.squeakfoundation.org

39 participants
158 discussions

[OpenSmalltalk/opensmalltalk-vm] 9f04af: CogVM source as per VMMaker.oscog-eem.2229
by GitHub 30 May '17

30 May '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 9f04af30f26cd94d6545ba199230c3fedc89e429 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/9f04af30f26cd94d65… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2017-05-30 (Tue, 30 May 2017) Changed paths: M .gitignore R image/.gdb_history M src/plugins/SqueakFFIPrims/ARM32FFIPlugin.c M src/plugins/SqueakFFIPrims/IA32FFIPlugin.c M src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c M src/plugins/SqueakFFIPrims/X64Win64FFIPlugin.c Log Message: ----------- CogVM source as per VMMaker.oscog-eem.2229 Fix a compilation warning in the FFI plugin.

1 0

VM Maker: VMMaker.oscog-eem.2229.mcz
by commits＠source.squeak.org 30 May '17

30 May '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2229.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2229 Author: eem Time: 30 May 2017, 1:15:51.741503 pm UUID: 4dff0ffc-4ffb-4987-a246-5f1294e55467 Ancestors: VMMaker.oscog-eem.2227 Fix a compilation warning in the FFI plugin. Add class comments for the X64 callout state holders (they got written in a discarded refactoring). =============== Diff against VMMaker.oscog-eem.2227 =============== Item was changed: ThreadedFFICalloutStateForX64 subclass: #ThreadedFFICalloutStateForX64SysV instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins-FFI'! + + !ThreadedFFICalloutStateForX64SysV commentStamp: 'eem 5/30/2017 10:22' prior: 0! + A ThreadedFFICalloutStateForX64SysV is a holder for the callout state maintained while marshalling an FFI call on an X64 (x86-64) system using the System V ABI.! Item was changed: ThreadedFFICalloutStateForX64 subclass: #ThreadedFFICalloutStateForX64Win64 instanceVariableNames: 'floatRegisterSignature' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins-FFI'! + + !ThreadedFFICalloutStateForX64Win64 commentStamp: 'eem 5/30/2017 10:22' prior: 0! + A ThreadedFFICalloutStateForX64Win64 is a holder for the callout state maintained while marshalling an FFI call on an X64 (x86-64) system using the _WIN64 ABI.! Item was changed: ----- Method: ThreadedFFIPlugin>>ffiAddressOf:startingAt:size: (in category 'primitive support') ----- ffiAddressOf: rcvr startingAt: byteOffset size: byteSize "Answer a long of the address of the byteSize slot (byte, short, int, whatever) at byteOffset in rcvr. Nominally intended for use with ExternalAddress objects, this code will work (for obscure historical reasons) with plain Byte or Word Arrays as well. " | rcvrClass rcvrSize addr | (interpreterProxy isBytes: rcvr) ifFalse:[^interpreterProxy primitiveFail]. byteOffset > 0 ifFalse:[^interpreterProxy primitiveFail]. rcvrClass := interpreterProxy fetchClassOf: rcvr. rcvrSize := interpreterProxy byteSizeOf: rcvr. rcvrClass = interpreterProxy classExternalAddress ifTrue: [rcvrSize = BytesPerWord ifFalse:[^interpreterProxy primitiveFail]. addr := interpreterProxy fetchPointer: 0 ofObject: rcvr. "Hack!!!!" "don't you dare to read from object memory (unless is pinned)!!" (addr = 0 "or: [(interpreterProxy isInMemory: addr) or: [(interpreterProxy isPinned: rcvr) not]]") ifTrue: [^interpreterProxy primitiveFail]] ifFalse: [byteOffset+byteSize-1 <= rcvrSize ifFalse: [^interpreterProxy primitiveFail]. addr := self cCoerce: (interpreterProxy firstIndexableField: rcvr) to: #'sqIntptr_t']. addr := addr + byteOffset - 1. + ^addr asVoidPointer! - ^addr!

1 0

VM Maker: VMMaker.oscog-eem.2228.mcz
by commits＠source.squeak.org 30 May '17

30 May '17

Eliot Miranda uploaded a new version of VMMaker to project VM Maker: http://source.squeak.org/VMMaker/VMMaker.oscog-eem.2228.mcz ==================== Summary ==================== Name: VMMaker.oscog-eem.2228 Author: eem Time: 30 May 2017, 10:36:59.18841 am UUID: 80a3d07d-f055-4eaf-992c-3e532eb50fb8 Ancestors: VMMaker.oscog-eem.2227 Implement shadow parameter space in the Win64 FFI plugin by always incrememting currentArg, even if passed in a register. Consequently eliminate the abstract superclasses for the X64 ABI; they no longer share more than a method or two. =============== Diff against VMMaker.oscog-eem.2227 =============== Item was removed: - ThreadedFFICalloutState subclass: #ThreadedFFICalloutStateForX64 - instanceVariableNames: 'integerRegisterIndex floatRegisterIndex integerRegisters floatRegisters' - classVariableNames: '' - poolDictionaries: '' - category: 'VMMaker-Plugins-FFI'! - - !ThreadedFFICalloutStateForX64 commentStamp: 'eem 2/16/2016 19:13' prior: 0! - A ThreadedFFICalloutStateForX64 is a holder for the callout state maintained while marshalling an FFI call on an X64 (x86-64) system.! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64 class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- - instVarNamesAndTypesForTranslationDo: aBinaryBlock - "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a ThreadedFFICalloutState struct." - - ThreadedFFICalloutState instVarNamesAndTypesForTranslationDo: aBinaryBlock. - ThreadedFFICalloutStateForX64 instVarNames do: - [:ivn| - aBinaryBlock - value: ivn - value: (ivn caseOf: { - ['integerRegisters'] -> [{#sqInt. '[NumIntRegArgs]'}]. - ['floatRegisters'] -> [{#double. '[NumFloatRegArgs]'}] } - otherwise: - [#sqInt])]! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64 class>>pluginClass (in category 'translation') ----- - pluginClass - ^self subclassResponsibility! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>floatRegisterIndex (in category 'accessing') ----- - floatRegisterIndex - - ^ floatRegisterIndex! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>floatRegisters (in category 'accessing') ----- - floatRegisters - "Answer the value of floatRegisters" - - ^ floatRegisters! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>incrementFloatRegisterIndex (in category 'accessing') ----- - incrementFloatRegisterIndex - ^floatRegisterIndex := floatRegisterIndex + 1! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>incrementIntegerRegisterIndex (in category 'accessing') ----- - incrementIntegerRegisterIndex - ^integerRegisterIndex := integerRegisterIndex + 1! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>initialize (in category 'initialize-release') ----- - initialize - super initialize. - integerRegisterIndex := floatRegisterIndex := 0. - integerRegisters := CArrayAccessor on: (Array new: self class pluginClass numRegArgs). - floatRegisters := CArrayAccessor on: (Array new: self class pluginClass numFloatRegArgs)! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>integerRegisterIndex (in category 'accessing') ----- - integerRegisterIndex - - ^ integerRegisterIndex! Item was removed: - ----- Method: ThreadedFFICalloutStateForX64>>integerRegisters (in category 'accessing') ----- - integerRegisters - "Answer the value of integerRegisters" - - ^ integerRegisters! Item was changed: + ThreadedFFICalloutState subclass: #ThreadedFFICalloutStateForX64SysV + instanceVariableNames: 'integerRegisterIndex floatRegisterIndex integerRegisters floatRegisters' - ThreadedFFICalloutStateForX64 subclass: #ThreadedFFICalloutStateForX64SysV - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins-FFI'! + + !ThreadedFFICalloutStateForX64SysV commentStamp: 'eem 5/30/2017 10:22' prior: 0! + A ThreadedFFICalloutStateForX64SysV is a holder for the callout state maintained while marshalling an FFI call on an X64 (x86-64) system using the System V ABI.! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- + instVarNamesAndTypesForTranslationDo: aBinaryBlock + "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a ThreadedFFICalloutState struct." + + ThreadedFFICalloutState instVarNamesAndTypesForTranslationDo: aBinaryBlock. + self instVarNames do: + [:ivn| + aBinaryBlock + value: ivn + value: (ivn caseOf: { + ['integerRegisters'] -> [{#sqInt. '[NumIntRegArgs]'}]. + ['floatRegisters'] -> [{#double. '[NumFloatRegArgs]'}] } + otherwise: + [#char])]! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>floatRegisterIndex (in category 'accessing') ----- + floatRegisterIndex + + ^ floatRegisterIndex! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>floatRegisters (in category 'accessing') ----- + floatRegisters + "Answer the value of floatRegisters" + + ^ floatRegisters! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>incrementFloatRegisterIndex (in category 'accessing') ----- + incrementFloatRegisterIndex + ^floatRegisterIndex := floatRegisterIndex + 1! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>incrementIntegerRegisterIndex (in category 'accessing') ----- + incrementIntegerRegisterIndex + ^integerRegisterIndex := integerRegisterIndex + 1! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + integerRegisterIndex := floatRegisterIndex := 0. + integerRegisters := CArrayAccessor on: (Array new: ThreadedX64SysVFFIPlugin numRegArgs). + floatRegisters := CArrayAccessor on: (Array new: ThreadedX64SysVFFIPlugin numFloatRegArgs)! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>integerRegisterIndex (in category 'accessing') ----- + integerRegisterIndex + + ^ integerRegisterIndex! Item was added: + ----- Method: ThreadedFFICalloutStateForX64SysV>>integerRegisters (in category 'accessing') ----- + integerRegisters + "Answer the value of integerRegisters" + + ^ integerRegisters! Item was changed: + ThreadedFFICalloutState subclass: #ThreadedFFICalloutStateForX64Win64 + instanceVariableNames: 'integerRegisterIndex floatRegisterIndex floatRegisterSignature integerRegisters floatRegisters' - ThreadedFFICalloutStateForX64 subclass: #ThreadedFFICalloutStateForX64Win64 - instanceVariableNames: 'floatRegisterSignature' classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins-FFI'! + + !ThreadedFFICalloutStateForX64Win64 commentStamp: 'eem 5/30/2017 10:22' prior: 0! + A ThreadedFFICalloutStateForX64Win64 is a holder for the callout state maintained while marshalling an FFI call on an X64 (x86-64) system using the _WIN64 ABI.! Item was changed: ----- Method: ThreadedFFICalloutStateForX64Win64 class>>instVarNamesAndTypesForTranslationDo: (in category 'translation') ----- instVarNamesAndTypesForTranslationDo: aBinaryBlock "enumerate aBinaryBlock with the names and C type strings for the inst vars to include in a ThreadedFFICalloutState struct." + ThreadedFFICalloutState instVarNamesAndTypesForTranslationDo: aBinaryBlock. + self instVarNames do: - ThreadedFFICalloutStateForX64 instVarNamesAndTypesForTranslationDo: aBinaryBlock. - ThreadedFFICalloutStateForX64Win64 instVarNames do: [:ivn| aBinaryBlock value: ivn value: (ivn caseOf: { + ['integerRegisters'] -> [{#sqInt. '[NumIntRegArgs]'}]. + ['floatRegisters'] -> [{#double. '[NumFloatRegArgs]'}] } - ['floatRegisterSignature'] -> [#int] } otherwise: + [#char])]! - [#sqInt])]! Item was added: + ----- Method: ThreadedFFICalloutStateForX64Win64>>floatRegisterIndex (in category 'accessing') ----- + floatRegisterIndex + + ^ floatRegisterIndex! Item was added: + ----- Method: ThreadedFFICalloutStateForX64Win64>>floatRegisters (in category 'accessing') ----- + floatRegisters + "Answer the value of floatRegisters" + + ^ floatRegisters! Item was changed: ----- Method: ThreadedFFICalloutStateForX64Win64>>initialize (in category 'initialize-release') ----- initialize super initialize. + integerRegisterIndex := floatRegisterIndex := floatRegisterSignature := 0. + integerRegisters := CArrayAccessor on: (Array new: ThreadedX64Win64FFIPlugin numRegArgs). + floatRegisters := CArrayAccessor on: (Array new: ThreadedX64Win64FFIPlugin numFloatRegArgs)! - floatRegisterSignature := 0.! Item was added: + ----- Method: ThreadedFFICalloutStateForX64Win64>>integerRegisterIndex (in category 'accessing') ----- + integerRegisterIndex + + ^ integerRegisterIndex! Item was added: + ----- Method: ThreadedFFICalloutStateForX64Win64>>integerRegisters (in category 'accessing') ----- + integerRegisters + "Answer the value of integerRegisters" + + ^ integerRegisters! Item was removed: - ThreadedFFIPlugin subclass: #ThreadedX64FFIPlugin - instanceVariableNames: '' - classVariableNames: 'NumFloatRegArgs NumIntRegArgs WordSize' - poolDictionaries: '' - category: 'VMMaker-Plugins-FFI'! - - !ThreadedX64FFIPlugin commentStamp: 'eem 2/19/2016 15:03' prior: 0! - This is an abstract superclass for the System V and WIN64 x86-64 ABIs that share a lot of code other than for structure passing.! Item was removed: - ----- Method: ThreadedX64FFIPlugin class>>calloutStateClass (in category 'translation') ----- - calloutStateClass - ^ThreadedFFICalloutStateForX64! Item was removed: - ----- Method: ThreadedX64FFIPlugin class>>identifyingPredefinedMacros (in category 'translation') ----- - identifyingPredefinedMacros - "Answer the predefined macros that identify the platforms a subclass handles, if any. - If the subclass isn't yet ready for production (a work in progress) simply answer nil. - Override to filter-out this abstract class." - ^nil! Item was removed: - ----- Method: ThreadedX64FFIPlugin class>>initialize (in category 'class initialization') ----- - initialize - WordSize := 8. - NumIntRegArgs := 6. - NumFloatRegArgs := 8! Item was removed: - ----- Method: ThreadedX64FFIPlugin class>>moduleName (in category 'translation') ----- - moduleName - ^'X64SysVFFIPlugin'! Item was removed: - ----- Method: ThreadedX64FFIPlugin class>>numFloatRegArgs (in category 'accessing') ----- - numFloatRegArgs - ^NumFloatRegArgs! Item was removed: - ----- Method: ThreadedX64FFIPlugin class>>numRegArgs (in category 'accessing') ----- - numRegArgs - ^NumIntRegArgs! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') ----- - ffiPushDoubleFloat: value in: calloutState - <var: #value type: #double> - <var: #calloutState type: #'CalloutState *'> - <inline: true> - - calloutState floatRegisterIndex < NumFloatRegArgs - ifTrue: - [calloutState floatRegisters at: calloutState floatRegisterIndex put: value. - calloutState incrementFloatRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushPointer:in: (in category 'marshalling') ----- - ffiPushPointer: pointer in: calloutState - <var: #pointer type: #'void *'> - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: pointer asInteger. - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: pointer. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushSignedByte:in: (in category 'marshalling') ----- - ffiPushSignedByte: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char'). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char'). - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushSignedChar:in: (in category 'marshalling') ----- - ffiPushSignedChar: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char'). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char'). - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushSignedInt:in: (in category 'marshalling') ----- - ffiPushSignedInt: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: value. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0 - ! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushSignedLongLong:in: (in category 'marshalling') ----- - ffiPushSignedLongLong: value in: calloutState - <var: #value type: #sqLong> - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #usqInt). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: value. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushSignedShort:in: (in category 'marshalling') ----- - ffiPushSignedShort: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed short'). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed short'). - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') ----- - ffiPushSingleFloat: value in: calloutState - <var: #value type: #float> - <var: #calloutState type: #'CalloutState *'> - <inline: true> - - calloutState floatRegisterIndex < NumFloatRegArgs - ifTrue: - [(self cCoerce: calloutState floatRegisters + calloutState floatRegisterIndex to: #'float *') at: 0 put: value. - calloutState incrementFloatRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushStructure:ofSize:typeSpec:ofLength:in: (in category 'marshalling') ----- - ffiPushStructure: pointer ofSize: structSize typeSpec: argSpec ofLength: argSpecSize in: calloutState - <var: #pointer type: #'void *'> - <var: #argSpec type: #'sqInt *'> - <var: #calloutState type: #'CalloutState *'> - <inline: true> - self subclassResponsibility! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedByte:in: (in category 'marshalling') ----- - ffiPushUnsignedByte: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char'). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char'). - calloutState currentArg: calloutState currentArg + WordSize]. - ^0 - ! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedChar:in: (in category 'marshalling') ----- - ffiPushUnsignedChar: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char'). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char'). - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedInt:in: (in category 'marshalling') ----- - ffiPushUnsignedInt: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: value. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0 - - ! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedLongLong:in: (in category 'marshalling') ----- - ffiPushUnsignedLongLong: value in: calloutState - <var: #value type: #usqLong> - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: value. - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>ffiPushUnsignedShort:in: (in category 'marshalling') ----- - ffiPushUnsignedShort: value in: calloutState - <var: #calloutState type: #'CalloutState *'> - <inline: true> - calloutState integerRegisterIndex < NumIntRegArgs - ifTrue: - [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned short'). - calloutState incrementIntegerRegisterIndex] - ifFalse: - [calloutState currentArg + WordSize > calloutState limit ifTrue: - [^FFIErrorCallFrameTooBig]. - interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned short'). - calloutState currentArg: calloutState currentArg + WordSize]. - ^0! Item was removed: - ----- Method: ThreadedX64FFIPlugin>>returnStructInRegisters: (in category 'marshalling') ----- - returnStructInRegisters: returnStructSize - "Answer if a struct result of a given size is returned in memory or not." - self subclassResponsibility! Item was changed: + ThreadedFFIPlugin subclass: #ThreadedX64SysVFFIPlugin - ThreadedX64FFIPlugin subclass: #ThreadedX64SysVFFIPlugin instanceVariableNames: '' + classVariableNames: 'NumFloatRegArgs NumIntRegArgs WordSize' - classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins-FFI'! !ThreadedX64SysVFFIPlugin commentStamp: 'eem 2/17/2016 20:03' prior: 0! This subclass is for the System V x86-64 ABI. The System V ABI uses 6 integer registers and 8 double-precision floating-point registers. See http://www.x86-64.org/documentation/abi.pdf. It seems that Mac OS X and linux use draft version 0.90, http://people.freebsd.org/~obrien/amd64-elf-abi.pdf. Note that the System V x86-64 ABI decomposes structs of 2 eightbytes or smaller passed by value across available parameter registers. double fields will be passed in an xmm register.! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin class>>calloutStateClass (in category 'translation') ----- + calloutStateClass + ^ThreadedFFICalloutStateForX64SysV! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') ----- + ffiPushDoubleFloat: value in: calloutState + <var: #value type: #double> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + + calloutState floatRegisterIndex < NumFloatRegArgs + ifTrue: + [calloutState floatRegisters at: calloutState floatRegisterIndex put: value. + calloutState incrementFloatRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushPointer:in: (in category 'marshalling') ----- + ffiPushPointer: pointer in: calloutState + <var: #pointer type: #'void *'> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: pointer asInteger. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: pointer. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushSignedByte:in: (in category 'marshalling') ----- + ffiPushSignedByte: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char'). + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushSignedChar:in: (in category 'marshalling') ----- + ffiPushSignedChar: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char'). + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushSignedInt:in: (in category 'marshalling') ----- + ffiPushSignedInt: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0 + ! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushSignedLongLong:in: (in category 'marshalling') ----- + ffiPushSignedLongLong: value in: calloutState + <var: #value type: #sqLong> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #usqInt). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushSignedShort:in: (in category 'marshalling') ----- + ffiPushSignedShort: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed short'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed short'). + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') ----- + ffiPushSingleFloat: value in: calloutState + <var: #value type: #float> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + + calloutState floatRegisterIndex < NumFloatRegArgs + ifTrue: + [(self cCoerce: calloutState floatRegisters + calloutState floatRegisterIndex to: #'float *') at: 0 put: value. + calloutState incrementFloatRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushUnsignedByte:in: (in category 'marshalling') ----- + ffiPushUnsignedByte: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState currentArg: calloutState currentArg + WordSize]. + ^0 + ! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushUnsignedChar:in: (in category 'marshalling') ----- + ffiPushUnsignedChar: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushUnsignedInt:in: (in category 'marshalling') ----- + ffiPushUnsignedInt: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0 + + ! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushUnsignedLongLong:in: (in category 'marshalling') ----- + ffiPushUnsignedLongLong: value in: calloutState + <var: #value type: #usqLong> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was added: + ----- Method: ThreadedX64SysVFFIPlugin>>ffiPushUnsignedShort:in: (in category 'marshalling') ----- + ffiPushUnsignedShort: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned short'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned short'). + calloutState currentArg: calloutState currentArg + WordSize]. + ^0! Item was changed: + ThreadedFFIPlugin subclass: #ThreadedX64Win64FFIPlugin - ThreadedX64FFIPlugin subclass: #ThreadedX64Win64FFIPlugin instanceVariableNames: '' + classVariableNames: 'NumFloatRegArgs NumIntRegArgs WordSize' - classVariableNames: '' poolDictionaries: '' category: 'VMMaker-Plugins-FFI'! !ThreadedX64Win64FFIPlugin commentStamp: 'nice 8/10/2016 19:23' prior: 0! This subclass is for the Win64 x86-64 ABI. The Win64 ABI uses 4 integer registers or 4 double-precision floating-point registers or a mix of the two. See w.g. https://msdn.microsoft.com/en-us/library/ms235286.aspx, or google for "Overview of x64 Calling Conventions - MSDN - Microsoft". Note that unlike the System V x86-64 ABI, the Win64 ABI does /not/ decompose structs passed by value across available parameter registers.! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushDoubleFloat:in: (in category 'marshalling') ----- + ffiPushDoubleFloat: value in: calloutState + <var: #value type: #double> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + + calloutState floatRegisterIndex < NumFloatRegArgs + ifTrue: + [calloutState floatRegisters at: calloutState floatRegisterIndex put: value. + calloutState incrementFloatRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushPointer:in: (in category 'marshalling') ----- + ffiPushPointer: pointer in: calloutState + <var: #pointer type: #'void *'> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: pointer asInteger. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: pointer. + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushSignedByte:in: (in category 'marshalling') ----- + ffiPushSignedByte: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char'). + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushSignedChar:in: (in category 'marshalling') ----- + ffiPushSignedChar: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed char'). + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushSignedInt:in: (in category 'marshalling') ----- + ffiPushSignedInt: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize. + ^0 + ! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushSignedLongLong:in: (in category 'marshalling') ----- + ffiPushSignedLongLong: value in: calloutState + <var: #value type: #sqLong> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #usqInt). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushSignedShort:in: (in category 'marshalling') ----- + ffiPushSignedShort: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'signed short'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'signed short'). + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushSingleFloat:in: (in category 'marshalling') ----- + ffiPushSingleFloat: value in: calloutState + <var: #value type: #float> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + + calloutState floatRegisterIndex < NumFloatRegArgs + ifTrue: + [(self cCoerce: calloutState floatRegisters + calloutState floatRegisterIndex to: #'float *') at: 0 put: value. + calloutState incrementFloatRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy storeFloatAtPointer: calloutState currentArg from: value. + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushUnsignedByte:in: (in category 'marshalling') ----- + ffiPushUnsignedByte: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState currentArg: calloutState currentArg + WordSize. + ^0 + ! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushUnsignedChar:in: (in category 'marshalling') ----- + ffiPushUnsignedChar: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned char'). + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushUnsignedInt:in: (in category 'marshalling') ----- + ffiPushUnsignedInt: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize. + ^0 + + ! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushUnsignedLongLong:in: (in category 'marshalling') ----- + ffiPushUnsignedLongLong: value in: calloutState + <var: #value type: #usqLong> + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: value. + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: value. + calloutState currentArg: calloutState currentArg + WordSize. + ^0! Item was added: + ----- Method: ThreadedX64Win64FFIPlugin>>ffiPushUnsignedShort:in: (in category 'marshalling') ----- + ffiPushUnsignedShort: value in: calloutState + <var: #calloutState type: #'CalloutState *'> + <inline: true> + calloutState integerRegisterIndex < NumIntRegArgs + ifTrue: + [calloutState integerRegisters at: calloutState integerRegisterIndex put: (self cCoerceSimple: value to: #'unsigned short'). + calloutState incrementIntegerRegisterIndex] + ifFalse: + [calloutState currentArg + WordSize > calloutState limit ifTrue: + [^FFIErrorCallFrameTooBig]]. + interpreterProxy longAt: calloutState currentArg put: (self cCoerceSimple: value to: #'unsigned short'). + calloutState currentArg: calloutState currentArg + WordSize. + ^0!

2 1

[OpenSmalltalk/opensmalltalk-vm] 1af678: CogVm source as per VMMaker.oscog-eem.2228
by GitHub 30 May '17

30 May '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 1af6780218671ceac9d05937b2a00b17da951168 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/1af6780218671ceac9… Author: Eliot Miranda <eliot.miranda(a)gmail.com> Date: 2017-05-30 (Tue, 30 May 2017) Changed paths: M src/plugins/SqueakFFIPrims/X64SysVFFIPlugin.c M src/plugins/SqueakFFIPrims/X64Win64FFIPlugin.c Log Message: ----------- CogVm source as per VMMaker.oscog-eem.2228 Implement shadow parameter space in the Win64 FFI plugin by always incrememting currentArg, even if passed in a register.

1 0

[OpenSmalltalk/opensmalltalk-vm] fd3688: Make pharo deploy work for both WIN64 stack and co...
by GitHub 30 May '17

30 May '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: fd3688239f281f81a567108791fefbdea7579ead https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/fd3688239f281f81a5… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2017-05-30 (Tue, 30 May 2017) Changed paths: M deploy/pharo/pack-vm.sh Log Message: ----------- Make pharo deploy work for both WIN64 stack and cog

1 0

crash on laptop wake up with external screen
by Christophe Demarey 30 May '17

30 May '17

Hi, I just want to share that I experience regular crashes but I did not managed to determine exact circumstances. Here is the case: I run a Pharo image on my laptop with a screen connected to the laptop, leave to home (work with the laptop screen), then going back to work (with external screen plugged before logging back, still the same session) => pharo / vm crash. I attached the crash dump. Hope this helps, Christophe

1 0

[OpenSmalltalk/opensmalltalk-vm] d98dde: Add Win64 pharo.cog.spur configuration
by GitHub 30 May '17

30 May '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: d98ddedf4cc39553d2ebed6074c62b205f37990f https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/d98ddedf4cc39553d2… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2017-05-30 (Tue, 30 May 2017) Changed paths: A build.win64x64/pharo.cog.spur/Makefile A build.win64x64/pharo.cog.spur/Pharo.def.in A build.win64x64/pharo.cog.spur/Pharo.exe.manifest A build.win64x64/pharo.cog.spur/Pharo.ico A build.win64x64/pharo.cog.spur/Pharo.rc A build.win64x64/pharo.cog.spur/mvm A build.win64x64/pharo.cog.spur/plugins.ext A build.win64x64/pharo.cog.spur/plugins.int Log Message: ----------- Add Win64 pharo.cog.spur configuration Commit: 271300a0d3b3b0f1c3430b480121f9f5f846c7ea https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/271300a0d3b3b0f1c3… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2017-05-30 (Tue, 30 May 2017) Changed paths: M build.win64x64/squeak.cog.spur/plugins.ext M build.win64x64/squeak.cog.spur/plugins.int Log Message: ----------- Build Win64 squeak.cog.spur FFI & Alien plugins Compare: https://github.com/OpenSmalltalk/opensmalltalk-vm/compare/304562526c79...27…

1 0

[OpenSmalltalk/opensmalltalk-vm] 304562: Win32OSProcessPlugin MUST be regenerated from late...
by GitHub 30 May '17

30 May '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: 304562526c798ddfae3ea82bfe40df60c6ab4d12 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/304562526c798ddfae… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2017-05-30 (Tue, 30 May 2017) Changed paths: M src/plugins/Win32OSProcessPlugin/Win32OSProcessPlugin.c Log Message: ----------- Win32OSProcessPlugin MUST be regenerated from latest source This does fix a crash dump on Win64 (but might be insufficient to make the plugin work safely)

1 0

[OpenSmalltalk/opensmalltalk-vm] a8d70a: Let the CI server build win64 cog spur for squeak/...
by GitHub 29 May '17

29 May '17

Branch: refs/heads/Cog Home: https://github.com/OpenSmalltalk/opensmalltalk-vm Commit: a8d70a803372fb4a766934f212f1e11df78c5c73 https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/a8d70a803372fb4a76… Author: Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> Date: 2017-05-29 (Mon, 29 May 2017) Changed paths: M .appveyor.yml Log Message: ----------- Let the CI server build win64 cog spur for squeak/pharo Kudos to Eliot for making this possible!

1 0

Re: [Vm-dev] the purpose of CI
by Jakob Reschke 29 May '17

29 May '17

2017-05-29 21:25 GMT+02:00 Eliot Miranda <eliot.miranda(a)gmail.com>: > Hi Ben, > > On Sun, May 28, 2017 at 6:46 AM, Ben Coman <btc(a)openinworld.com> wrote: >> >> >> >> Maybe I'm speaking out of turn from the sidelines, but just curious to ask >> a leading question... >> >> What is the purpose of the Continuous Integration system? >> > > One thing for me is to identify when I've made a mistake Yes it is selfish > of me to want to break a build, but in some way those of us who are active > VM developers must be able to commit and see what fails, especially when we > have a large platform and VM variant spread. > > IMO what needs to be added is a way of marking commits as good. I think we > should continue to be allowed to break the build (something we do > unintentionally). But we need a set of criteria to mark a build as fit for > release and have a download URL from which we obtain the latest releasable > VM. Travis can be configured to build all branches, so the continuous test feedback is not a show-stopper for working on feature branches. Since by default the result notifications only go to the committer (and author), nobody should be offended if the allowed failures list differs from branch to branch. Marking commits as good can either be done by tagging them, or by merging/picking good changes back to a "production" branch (usually master, here Cog, probably) as early as possible. Pull requests have the added bonus that the changes are tested by Travis both before and after the (anticipated) merge, so you see a color before pushing the button. Selecting "good" commits automatically and performing some git operations on them should also be possible with after_success scripts: https://gist.github.com/bumi/5824548 We even already have one that uploads to bintray. This also needs not be the same for all branches. Since everyone with a GitHub account can also enable Travis for their own repositories, even working on forks and requesting pulls from there into the official repository should be viable, as far as Travis is concerned. So it seems to me that all that is needed is to agree on a workflow and branch organization, the CI can be programmed accordingly. Best, Jakob

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Vm-dev May 2017