Packages May 2021

packages@lists.squeakfoundation.org

1 participants
169 discussions

FFI: FFI-Examples-mt.8.mcz
by commits＠source.squeak.org 26 May '21

26 May '21

Marcel Taeumel uploaded a new version of FFI-Examples to project FFI: http://source.squeak.org/FFI/FFI-Examples-mt.8.mcz ==================== Summary ==================== Name: FFI-Examples-mt.8 Author: mt Time: 26 May 2021, 9:46:32.252346 am UUID: 81e572cb-66dd-ff44-b970-daa6042ffb09 Ancestors: FFI-Examples-mt.7 Moves remaining test examples to "FFI-Tests-Fixtures." This package is empty now and should no longer be used. =============== Diff against FFI-Examples-mt.7 =============== Item was removed: - SystemOrganization addCategory: #'FFI-Examples-X64'! Item was removed: - ExternalStructure subclass: #X64TestStruct - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-X64'! Item was removed: - ----- Method: X64TestStruct class>>fields (in category 'field definition') ----- - fields - "X64TestStruct defineFields" - ^#( - (one 'longlong') - (two 'double') - (three 'longlong') - (four 'double') - (five 'longlong') - (six 'double') - (seven 'longlong') - (eight 'double') - (nine 'longlong') - (ten 'double') - (eleven 'longlong') - (twelve 'double') - (thirteen 'longlong') - (fourteen 'double') - (fifteen 'longlong') - (sixteen 'double') - )! Item was removed: - ----- Method: X64TestStruct>>eight (in category 'accessing') ----- - eight - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 57! Item was removed: - ----- Method: X64TestStruct>>eight: (in category 'accessing') ----- - eight: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 57 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>eleven (in category 'accessing') ----- - eleven - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 81! Item was removed: - ----- Method: X64TestStruct>>eleven: (in category 'accessing') ----- - eleven: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 81 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>fifteen (in category 'accessing') ----- - fifteen - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 113! Item was removed: - ----- Method: X64TestStruct>>fifteen: (in category 'accessing') ----- - fifteen: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 113 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>five (in category 'accessing') ----- - five - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 33! Item was removed: - ----- Method: X64TestStruct>>five: (in category 'accessing') ----- - five: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 33 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>four (in category 'accessing') ----- - four - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 25! Item was removed: - ----- Method: X64TestStruct>>four: (in category 'accessing') ----- - four: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 25 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>fourteen (in category 'accessing') ----- - fourteen - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 105! Item was removed: - ----- Method: X64TestStruct>>fourteen: (in category 'accessing') ----- - fourteen: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 105 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>nine (in category 'accessing') ----- - nine - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 65! Item was removed: - ----- Method: X64TestStruct>>nine: (in category 'accessing') ----- - nine: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 65 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>one (in category 'accessing') ----- - one - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 1! Item was removed: - ----- Method: X64TestStruct>>one: (in category 'accessing') ----- - one: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 1 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>seven (in category 'accessing') ----- - seven - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 49! Item was removed: - ----- Method: X64TestStruct>>seven: (in category 'accessing') ----- - seven: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 49 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>six (in category 'accessing') ----- - six - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 41! Item was removed: - ----- Method: X64TestStruct>>six: (in category 'accessing') ----- - six: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 41 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>sixteen (in category 'accessing') ----- - sixteen - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 121! Item was removed: - ----- Method: X64TestStruct>>sixteen: (in category 'accessing') ----- - sixteen: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 121 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>ten (in category 'accessing') ----- - ten - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 73! Item was removed: - ----- Method: X64TestStruct>>ten: (in category 'accessing') ----- - ten: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 73 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>thirteen (in category 'accessing') ----- - thirteen - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 97! Item was removed: - ----- Method: X64TestStruct>>thirteen: (in category 'accessing') ----- - thirteen: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 97 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>three (in category 'accessing') ----- - three - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle signedLongLongAt: 17! Item was removed: - ----- Method: X64TestStruct>>three: (in category 'accessing') ----- - three: anInteger - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle signedLongLongAt: 17 put: anInteger! Item was removed: - ----- Method: X64TestStruct>>twelve (in category 'accessing') ----- - twelve - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 89! Item was removed: - ----- Method: X64TestStruct>>twelve: (in category 'accessing') ----- - twelve: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 89 put: aFloat! Item was removed: - ----- Method: X64TestStruct>>two (in category 'accessing') ----- - two - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - ^handle doubleAt: 9! Item was removed: - ----- Method: X64TestStruct>>two: (in category 'accessing') ----- - two: aFloat - "This method was automatically generated. See X64TestStruct class>>fields." - <generated> - handle doubleAt: 9 put: aFloat! Item was removed: - ExternalStructure subclass: #X64TestStruct2 - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-X64'! Item was removed: - ----- Method: X64TestStruct2 class>>fields (in category 'field definition') ----- - fields - "X64TestStruct2 defineFields" - ^#( - (one #X64TestStruct) - (two #X64TestStruct) - )! Item was removed: - ----- Method: X64TestStruct2>>one (in category 'accessing') ----- - one - "This method was automatically generated. See X64TestStruct2 class>>fields." - <generated> - ^X64TestStruct fromHandle: (handle structAt: 1 length: 128)! Item was removed: - ----- Method: X64TestStruct2>>one: (in category 'accessing') ----- - one: aX64TestStruct - "This method was automatically generated. See X64TestStruct2 class>>fields." - <generated> - handle structAt: 1 put: aX64TestStruct getHandle length: 128.! Item was removed: - ----- Method: X64TestStruct2>>two (in category 'accessing') ----- - two - "This method was automatically generated. See X64TestStruct2 class>>fields." - <generated> - ^X64TestStruct fromHandle: (handle structAt: 129 length: 128)! Item was removed: - ----- Method: X64TestStruct2>>two: (in category 'accessing') ----- - two: aX64TestStruct - "This method was automatically generated. See X64TestStruct2 class>>fields." - <generated> - handle structAt: 129 put: aX64TestStruct getHandle length: 128.! Item was removed: - ExternalStructure subclass: #X64TestStruct3 - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'FFI-Examples-X64'! Item was removed: - ----- Method: X64TestStruct3 class>>fields (in category 'field definition') ----- - fields - "X64TestStruct3 defineFields" - ^#( - (one 'longlong') - (two 'double') - (three 'longlong') - (four 'double') - (five 'longlong') - (six 'double') - (seven 'longlong') - (eight 'double') - (nine 'longlong') - (ten 'double') - (eleven 'longlong') - (twelve 'double') - (thirteen 'longlong') - (fourteen 'double') - (fifteen 'longlong') - (sixteen 'double') - (seventeen #X64TestStruct) - (eighteen #X64TestStruct2) - (nineteen 'X64TestStruct*') - (twenty 'X64TestStruct2*') - )! Item was removed: - ----- Method: X64TestStruct3>>eight (in category 'accessing') ----- - eight - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 57! Item was removed: - ----- Method: X64TestStruct3>>eight: (in category 'accessing') ----- - eight: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 57 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>eighteen (in category 'accessing') ----- - eighteen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^X64TestStruct2 fromHandle: (handle structAt: 257 length: 256)! Item was removed: - ----- Method: X64TestStruct3>>eighteen: (in category 'accessing') ----- - eighteen: aX64TestStruct2 - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle structAt: 257 put: aX64TestStruct2 getHandle length: 256.! Item was removed: - ----- Method: X64TestStruct3>>eleven (in category 'accessing') ----- - eleven - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 81! Item was removed: - ----- Method: X64TestStruct3>>eleven: (in category 'accessing') ----- - eleven: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 81 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>fifteen (in category 'accessing') ----- - fifteen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 113! Item was removed: - ----- Method: X64TestStruct3>>fifteen: (in category 'accessing') ----- - fifteen: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 113 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>five (in category 'accessing') ----- - five - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 33! Item was removed: - ----- Method: X64TestStruct3>>five: (in category 'accessing') ----- - five: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 33 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>four (in category 'accessing') ----- - four - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 25! Item was removed: - ----- Method: X64TestStruct3>>four: (in category 'accessing') ----- - four: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 25 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>fourteen (in category 'accessing') ----- - fourteen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 105! Item was removed: - ----- Method: X64TestStruct3>>fourteen: (in category 'accessing') ----- - fourteen: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 105 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>nine (in category 'accessing') ----- - nine - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 65! Item was removed: - ----- Method: X64TestStruct3>>nine: (in category 'accessing') ----- - nine: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 65 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>nineteen (in category 'accessing') ----- - nineteen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^X64TestStruct fromHandle: (handle shortPointerAt: 513)! Item was removed: - ----- Method: X64TestStruct3>>nineteen: (in category 'accessing') ----- - nineteen: aX64TestStruct - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle shortPointerAt: 513 put: aX64TestStruct getHandle.! Item was removed: - ----- Method: X64TestStruct3>>one (in category 'accessing') ----- - one - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 1! Item was removed: - ----- Method: X64TestStruct3>>one: (in category 'accessing') ----- - one: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 1 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>seven (in category 'accessing') ----- - seven - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 49! Item was removed: - ----- Method: X64TestStruct3>>seven: (in category 'accessing') ----- - seven: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 49 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>seventeen (in category 'accessing') ----- - seventeen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^X64TestStruct fromHandle: (handle structAt: 129 length: 128)! Item was removed: - ----- Method: X64TestStruct3>>seventeen: (in category 'accessing') ----- - seventeen: aX64TestStruct - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle structAt: 129 put: aX64TestStruct getHandle length: 128.! Item was removed: - ----- Method: X64TestStruct3>>six (in category 'accessing') ----- - six - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 41! Item was removed: - ----- Method: X64TestStruct3>>six: (in category 'accessing') ----- - six: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 41 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>sixteen (in category 'accessing') ----- - sixteen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 121! Item was removed: - ----- Method: X64TestStruct3>>sixteen: (in category 'accessing') ----- - sixteen: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 121 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>ten (in category 'accessing') ----- - ten - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 73! Item was removed: - ----- Method: X64TestStruct3>>ten: (in category 'accessing') ----- - ten: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 73 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>thirteen (in category 'accessing') ----- - thirteen - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 97! Item was removed: - ----- Method: X64TestStruct3>>thirteen: (in category 'accessing') ----- - thirteen: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 97 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>three (in category 'accessing') ----- - three - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle signedLongLongAt: 17! Item was removed: - ----- Method: X64TestStruct3>>three: (in category 'accessing') ----- - three: anInteger - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle signedLongLongAt: 17 put: anInteger! Item was removed: - ----- Method: X64TestStruct3>>twelve (in category 'accessing') ----- - twelve - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 89! Item was removed: - ----- Method: X64TestStruct3>>twelve: (in category 'accessing') ----- - twelve: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 89 put: aFloat! Item was removed: - ----- Method: X64TestStruct3>>twenty (in category 'accessing') ----- - twenty - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^X64TestStruct2 fromHandle: (handle shortPointerAt: 517)! Item was removed: - ----- Method: X64TestStruct3>>twenty: (in category 'accessing') ----- - twenty: aX64TestStruct2 - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle shortPointerAt: 517 put: aX64TestStruct2 getHandle.! Item was removed: - ----- Method: X64TestStruct3>>two (in category 'accessing') ----- - two - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - ^handle doubleAt: 9! Item was removed: - ----- Method: X64TestStruct3>>two: (in category 'accessing') ----- - two: aFloat - "This method was automatically generated. See X64TestStruct3 class>>fields." - <generated> - handle doubleAt: 9 put: aFloat!

1 0

The Trunk: Sound-eem.80.mcz
by commits＠source.squeak.org 26 May '21

26 May '21

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.80.mcz ==================== Summary ==================== Name: Sound-eem.80 Author: eem Time: 25 May 2021, 4:07:32.508103 pm UUID: c65df365-47b5-4670-8ec6-411aac823b15 Ancestors: Sound-eem.79 Fix FFT>>plot:in: for an all-zero collection. =============== Diff against Sound-eem.79 =============== Item was changed: ----- Method: FFT>>plot:in: (in category 'testing') ----- plot: samples in: rect "Throw-away code just to check out a couple of examples" + | dx pen min max x divisor offset | - | dx pen min max x | Display fillWhite: rect; border: (rect expandBy: 2) width: 2. min := 1.0e30. max := -1.0e30. samples do: [:v | min := min min: v. max := max max: v]. + max = min + ifTrue: [divisor := rect height asFloat. + offset := rect height / 2.0] + ifFalse: [divisor := max - min. + offset := 0.0]. pen := Pen new. pen up. x := rect left. dx := rect width asFloat / samples size. samples do: [:v | | y | + y := (max - v) / divisor * rect height + offset. + pen goto: x asInteger @ (rect top + y asInteger); down. - y := (max-v) / (max-min) * rect height asFloat. - pen goto: x asInteger @ (rect top + y asInteger). - pen down. x := x + dx]. + max printString displayOn: Display at: (x + 2) @ (rect top - 9). + min printString displayOn: Display at: (x + 2) @ (rect bottom - 9)! - max printString displayOn: Display at: (x+2) @ (rect top-9). - min printString displayOn: Display at: (x+2) @ (rect bottom - 9)!

1 0

FFI: FFI-Callbacks-mt.18.mcz
by commits＠source.squeak.org 23 May '21

23 May '21

Marcel Taeumel uploaded a new version of FFI-Callbacks to project FFI: http://source.squeak.org/FFI/FFI-Callbacks-mt.18.mcz ==================== Summary ==================== Name: FFI-Callbacks-mt.18 Author: mt Time: 23 May 2021, 4:03:13.688158 pm UUID: fcb16553-c424-d646-b58f-dc47277ed808 Ancestors: FFI-Callbacks-mt.17 Use #abiSend: for callback init. =============== Diff against FFI-Callbacks-mt.17 =============== Item was changed: ----- Method: FFICallback>>init__ccall (in category 'initialization - thunk prepare') ----- init__ccall "Initialize the receiver with a __ccall thunk." + FFIPlatformDescription current abiSend: #'init_ccall' to: self.! - FFICallback methodsDo: [:method | - (method selector beginsWith: 'init__ccall') ifTrue: [ - (method hasPragma: #init) ifTrue: [ - (method pragmaAt: #abi:) - ifNotNil: [:pragma | (pragma argumentAt: 1) = abi - ifTrue: [^ self executeMethod: method]]]]]. - - self error: 'Could not initialize thunk for current ABI: ', abi.! Item was changed: ----- Method: FFICallback>>init__ccall_ARM32 (in category 'initialization - thunk prepare') ----- init__ccall_ARM32 + <abi: #ARM32> <init_ccall> - <abi: #ARM32> <init> "Initialize the receiver with a __ccall thunk. The thunk calls thunkEntry in the IA32ABI plugin, whose source is in platforms/Cross/plugins/IA32ABI/arm32abicc.c. thunkEntry is the entry point for Callbacks. The objective of the thunk is to call thunkEntry with all arguments to the call of the thunk (registers and stack) as well as a pointer to the thunk itself. thunkEntry is as follows: long long thunkEntry(long r0, long r1, long r2, long r3, double d0, double d1, double d2, double d3, double d4, double d5, double d6, double d7, void *thunkpPlus16, sqIntptr_t *stackp) thunkEntry then collects the various arguments (thunk, integer register arguments, floating-point register arguments, stack pointer) in a VMCallbackContext and invokes the callback via invokeCallbackContext:." "0x0 <thunk+0>: mov r12, sp ; 0xe1a0c00d 0x4 <thunk+4>: sub sp, sp, #16 ; 0xe24dd010 0x8 <thunk+8>: str pc, [sp, #0] ; 0xe58df000 N.B. passes thunk+16; thunkEntry compensates 0xc <thunk+12>: str r12, [sp,#4] ; 0xe58dc004 0x10 <thunk+16>: str lr, [sp, #12] ; 0xe58de00c 0x14 <thunk+20>: ldr r12, [pc, #8] ; 0xe59fc008 0x18 <thunk+24>: blx r12 ; 0xe12fff3c 0x1c <thunk+28>: add sp, sp, #12 ; 0xe28dd00c 0x20 <thunk+32>: ldr pc, [sp], #4!! ; 0xe49df004 ; pop {pc} 0x24 <thunk+36>: .word thunkEntry" self flag: #hidden. "mt: How is the thunk's handle stored to lookup this instance upon callback later?" thunk getHandle unsignedLongAt: 1 put: 16re1a0c00d; unsignedLongAt: 5 put: 16re24dd010; unsignedLongAt: 9 put: 16re58df000; unsignedLongAt: 13 put: 16re58dc004; unsignedLongAt: 17 put: 16re58de00c; unsignedLongAt: 21 put: 16re59fc008; unsignedLongAt: 25 put: 16re12fff3c; unsignedLongAt: 29 put: 16re28dd00c; unsignedLongAt: 33 put: 16re49df004; pointerAt: 37 put: self thunkEntryAddress length: 4.! Item was changed: ----- Method: FFICallback>>init__ccall_ARM64 (in category 'initialization - thunk prepare') ----- init__ccall_ARM64 + <abi: #ARM64> <init_ccall> - <abi: #ARM64> <init> "Initialize the receiver with a __ccall thunk. The thunk calls thunkEntry in the Alien/IA32ABI plugin, whose source is in platforms/Cross/plugins/IA32ABI/arm64abicc.c. thunkEntry is the entry point for Callbacks. The objective of the thunk is to call thunkEntry with all arguments to the call of the thunk (registers and stack) as well as a pointer to the thunk itself. thunkEntry is as follows: long long thunkEntry(long x0, long x1, long x2, long x3, long x4, long x5, long x6, long x7, double d0, double d1, double d2, double d3, double d4, double d5, double d6, double d7, void *thunkpPlus16, sqIntptr_t *stackp) thunkEntry then collects the various arguments (thunk, integer register arguments, floating-point register arguments, stack pointer) in a VMCallbackContext and invokes the callback via invokeCallbackContext:." self shouldBeImplemented "self newCCall"! Item was changed: ----- Method: FFICallback>>init__ccall_IA32 (in category 'initialization - thunk prepare') ----- init__ccall_IA32 + <abi: #IA32> <init_ccall> - <abi: #IA32> <init> "Initialize the receiver with a __ccall thunk. The thunk calls thunkEntry in the IA32ABI plugin, whose source is in platforms/Cross/plugins/IA32ABI/x64win64abicc.c. thunkEntry is the entry point for Callbacks. The objective of the thunk is to call thunkEntry with all arguments to the call of the thunk (registers and stack) as well as a pointer to the thunk itself. thunkEntry is as follows: long thunkEntry(void *thunkp, sqIntptr_t *stackp) thunkEntry then collects the various arguments (thunk, stack pointer) in a VMCallbackContext and invokes the callback via invokeCallbackContext:." "thunk: push %esp 0x54 0xa1905454 thunk+01: push %esp 0x54 thunk+02: nop 0x90 thunk+03: mov $thunkEntry,%eax 0xb8 0x00 0x00 0x00 0x00 0x00000000 - entry thunk+08: nop 0x90 0x68909090 thunk+09: nop 0x90 thunk+10: nop 0x90 thunk+11: push $thunk 0x68 0x00 0x00 0x00 0x00 0x00000000 - thunk thunk+16: call *%eax 0xff 0xd0 0xc483d0ff thunk+18: add $0xC,%esp 0x83 0xc4 0x0C 0x9090c30C thunk+21: ret 0xc3 thunk+22: nop 0x90 thunk+23: nop 0x90" thunk getHandle unsignedLongAt: 1 put: 16rB8905454; pointerAt: 5 put: self thunkEntryAddress length: 4; unsignedLongAt: 9 put: 16r68909090; pointerAt: 13 put: thunk getHandle length: 4; unsignedLongAt: 17 put: 16rC483D0FF; unsignedLongAt: 21 put: 16r9090C30C! Item was changed: ----- Method: FFICallback>>init__ccall_X64 (in category 'initialization - thunk prepare') ----- init__ccall_X64 + <abi: #X64> <init_ccall> - <abi: #X64> <init> "Initialize the receiver with a __ccall thunk. The thunk calls thunkEntry in the IA32ABI plugin, whose source is in platforms/Cross/plugins/IA32ABI/x64sysvabicc.c. thunkEntry is the entry point for Callbacks. The objective of the thunk is to call thunkEntry with all arguments to the call of the thunk (registers and stack) as well as a pointer to the thunk itself. thunkEntry is as follows: long thunkEntry(long a0, long a1, long a2, long a3, long a4, long a5, double d0, double d1, double d2, double d3, double d4, double d5, double d6, double d7, void *thunkp, sqIntptr_t *stackp) thunkEntry then collects the various arguments (thunk, integer register arguments, floating-point register arguments, stack pointer) in a VMCallbackContext and invokes the callback via invokeCallbackContext:." "thunk+0x0: pushq %rsp 54 thunk+0x1: pushq %rsp 54 thunk+0x4: movabsq $thunk, %rax 48 b8 b0..b7 eight bytes of thunk address a.k.a. handle thunk+0xc: pushq %rax 50 thunk+0xd: movabsq $thunkEntry, %rax 48 b8 b0..b7 eight bytes of the thunkEntry address thunk+0x17: callq *%rax ff d0 thunk+0x19: addq $0x18, %rsp 48 83 c4 18 thunk+0x1d: retq c3 thunk+0x1e: nop 90 thunk+0x1f: nop 90" thunk getHandle unsignedLongAt: 1 put: 16rb8485454; pointerAt: 5 put: thunk getHandle length: 8; unsignedLongAt: 13 put: 16r00b84850; "00 is the first byte of the 64-bit constant the movabsq/0x48 opcode moves" pointerAt: 16 put: self thunkEntryAddress length: 8; unsignedByteAt: 24 put: 16rff; unsignedLongAt: 25 put: 16rc48348d0; unsignedLongAt: 29 put: 16r9090c318.! Item was changed: ----- Method: FFICallback>>init__ccall_X64Win64 (in category 'initialization - thunk prepare') ----- init__ccall_X64Win64 + <abi: #X64Win64> <init_ccall> - <abi: #X64Win64> <init> "Initialize the receiver with a __ccall thunk. The thunk calls thunkEntry in the IA32ABI plugin, whose source is in platforms/Cross/plugins/IA32ABI/x64win64abicc.c. thunkEntry is the entry point for Callbacks. The objective of the thunk is to call thunkEntry with all arguments to the call of the thunk (registers and stack) as well as a pointer to the thunk itself. thunkEntry is as follows: long long thunkEntry(long long rcx, long long rdx, long long r8, long long r9, void *thunkp, sqIntptr_t *stackp) thunkEntry then collects the various arguments (thunk, integer register arguments, stack pointer) in a VMCallbackContext and invokes the callback via invokeCallbackContext:." "thunk+0x0: pushq %rsp 54 thunk+0x1: pushq %rsp 54 thunk+0x4: movabsq $thunk, %rax 48 b8 b0..b7 eight bytes of thunk address a.k.a. addressField thunk+0xc: pushq %rax 50 thunk+0xd: subq $0x20, %rsp 48 83 c4 e0 (this is addq -20 since the immediate is signed extended) thunk+0x11: movabsq $thunkEntry, %rax 48 b8 b0..b7 eight bytes of the thunkEntry address thunk+0x1b: callq *%rax ff d0 thunk+0x1d: addq $0x38, %rsp 48 83 c4 38 thunk+0x21: retq c3 thunk+0x22: nop 90 thunk+0x23: nop 90" thunk getHandle unsignedLongAt: 1 put: 16rb8485454; pointerAt: 5 put: thunk getHandle length: 8; unsignedLongAt: 13 put: 16rc4834850; unsignedLongAt: 17 put: 16r00b848e0; "00 is the first byte of the 64-bit constant the movabsq/0x48 opcode moves" pointerAt: 20 put: self thunkEntryAddress length: 8; unsignedByteAt: 28 put: 16rff; unsignedLongAt: 29 put: 16rc48348d0; unsignedLongAt: 33 put: 16r9090c338.! Item was changed: ----- Method: FFICallback>>init__stdcall: (in category 'initialization - thunk prepare') ----- init__stdcall: numBytes "Initialize the receiver with a __stdcall thunk with numBytes argument bytes." + FFIPlatformDescription current abiSend: #'init_stdcall' to: self with: numBytes.! - FFICallback methodsDo: [:method | - (method selector beginsWith: 'init__stdcall') ifTrue: [ - (method hasPragma: #init) ifTrue: [ - (method pragmaAt: #abi:) - ifNotNil: [:pragma | (pragma argumentAt: 1) = abi - ifTrue: [^ self with: numBytes executeMethod: method]]]]]. - - self error: 'Could not initialize thunk for current ABI: ', abi.! Item was changed: ----- Method: FFICallback>>init__stdcall_IA32: (in category 'initialization - thunk prepare') ----- init__stdcall_IA32: numBytes + <abi: #IA32> <init_stdcall> - <abi: #IA32> <init> "Initialize the receiver with a __stdcall thunk with numBytes argument bytes. (See #init__ccall_IA32 for more info)" "thunk: push %esp 0x54 0xa1905454 thunk+01: push %esp 0x54 thunk+02: nop 0x90 thunk+03: mov $thunkEntry,%eax 0xb8 0x00 0x00 0x00 0x00 0x00000000 - entry thunk+08: nop 0x90 0x68909090 thunk+09: nop 0x90 thunk+10: nop 0x90 thunk+11: push $thunk 0x68 0x00 0x00 0x00 0x00 0x00000000 - thunk thunk+16: call *%eax 0xff 0xd0 0xc483d0ff thunk+18: add $0xC,%esp 0x83 0xc4 0x0C 0xBYTSc20C thunk+21: ret $bytes 0xc2 0xBY 0xTS" thunk getHandle unsignedLongAt: 1 put: 16rB8905454; pointerAt: 5 put: self thunkEntryAddress length: 4; unsignedLongAt: 9 put: 16r68909090; pointerAt: 13 put: thunk getHandle length: 4; unsignedLongAt: 17 put: 16rC483D0FF; unsignedShortAt: 21 put: 16rC20C; unsignedShortAt: 23 put: numBytes.!

1 0

FFI: FFI-Kernel-mt.168.mcz
by commits＠source.squeak.org 23 May '21

23 May '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.168.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.168 Author: mt Time: 23 May 2021, 3:46:48.099158 pm UUID: 3db8d87e-8c71-7946-840a-b09c28b36af3 Ancestors: FFI-Kernel-mt.167 Minor clean-up in raw-bits array to clarify the use of FFIAtomicReadWriteSend for FloatArray and (Signed|Unsigned)IntegerArray. =============== Diff against FFI-Kernel-mt.167 =============== Item was added: + ----- Method: FloatArray>>doubleAt: (in category '*FFI-Kernel-accessing') ----- + doubleAt: byteOffset + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." + + ^ self atByteOffset: byteOffset! Item was added: + ----- Method: FloatArray>>doubleAt:put: (in category '*FFI-Kernel-accessing') ----- + doubleAt: byteOffset put: value + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." + + ^ self atByteOffset: byteOffset put: value! Item was added: + ----- Method: FloatArray>>floatAt: (in category '*FFI-Kernel-accessing') ----- + floatAt: byteOffset + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." + + ^ self atByteOffset: byteOffset! Item was added: + ----- Method: FloatArray>>floatAt:put: (in category '*FFI-Kernel-accessing') ----- + floatAt: byteOffset put: value + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." + + ^ self atByteOffset: byteOffset put: value! Item was removed: - ----- Method: RawBitsArray>>doubleAt: (in category '*FFI-Kernel-accessing') ----- - doubleAt: byteOffset - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." - - ^ self atByteOffset: byteOffset! Item was removed: - ----- Method: RawBitsArray>>doubleAt:put: (in category '*FFI-Kernel-accessing') ----- - doubleAt: byteOffset put: value - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." - - ^ self atByteOffset: byteOffset put: value! Item was removed: - ----- Method: RawBitsArray>>floatAt: (in category '*FFI-Kernel-accessing') ----- - floatAt: byteOffset - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." - - ^ self atByteOffset: byteOffset! Item was removed: - ----- Method: RawBitsArray>>floatAt:put: (in category '*FFI-Kernel-accessing') ----- - floatAt: byteOffset put: value - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." - - ^ self atByteOffset: byteOffset put: value! Item was removed: - ----- Method: RawBitsArray>>integerAt:put:size:signed: (in category '*FFI-Kernel-accessing') ----- - integerAt: byteOffset put: value size: nBytes signed: aBoolean - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." - - ^ self atByteOffset: byteOffset put: value! Item was removed: - ----- Method: RawBitsArray>>integerAt:size:signed: (in category '*FFI-Kernel-accessing') ----- - integerAt: byteOffset size: nBytes signed: aBoolean - "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." - - ^ self atByteOffset: byteOffset! Item was added: + ----- Method: SignedIntegerArray>>integerAt:put:size:signed: (in category '*FFI-Kernel-accessing') ----- + integerAt: byteOffset put: value size: nBytes signed: aBoolean + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." + + ^ self atByteOffset: byteOffset put: value! Item was added: + ----- Method: SignedIntegerArray>>integerAt:size:signed: (in category '*FFI-Kernel-accessing') ----- + integerAt: byteOffset size: nBytes signed: aBoolean + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." + + ^ self atByteOffset: byteOffset! Item was added: + ----- Method: UnsignedIntegerArray>>integerAt:put:size:signed: (in category '*FFI-Kernel-accessing') ----- + integerAt: byteOffset put: value size: nBytes signed: aBoolean + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:put:." + + ^ self atByteOffset: byteOffset put: value! Item was added: + ----- Method: UnsignedIntegerArray>>integerAt:size:signed: (in category '*FFI-Kernel-accessing') ----- + integerAt: byteOffset size: nBytes signed: aBoolean + "Backstop for compatibility with handle-based access. Raw-bits arrays are their own handle. See #getHandle and ExternalType >> #handle:at:." + + ^ self atByteOffset: byteOffset!

1 0

FFI: FFI-Kernel-mt.167.mcz
by commits＠source.squeak.org 23 May '21

23 May '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.167.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.167 Author: mt Time: 23 May 2021, 3:45:09.673158 pm UUID: 6e67015a-9732-e741-aefe-49f7cf42ef82 Ancestors: FFI-Kernel-mt.166 Complements FFI-Pools-mt.27. New preference for using a type pool for about 2x faster access to struct fields. =============== Diff against FFI-Kernel-mt.166 =============== Item was changed: ----- Method: ByteArray>>structAt:length: (in category '*FFI-Kernel') ----- structAt: byteOffset length: length "Return a structure of the given length starting at the indicated byte offset." | value startByteOffset | + self flag: #todo. "mt: Better name #unsignedBytesAt:length:?" value := ByteArray new: length. startByteOffset := byteOffset - 1. 1 to: length do: [:valueByteOffset | value unsignedByteAt: valueByteOffset put: (self unsignedByteAt: startByteOffset + valueByteOffset)]. ^ value! Item was changed: ----- Method: ByteArray>>structAt:put:length: (in category '*FFI-Kernel') ----- structAt: byteOffset put: value length: length "Store a structure of the given length starting at the indicated byte offset." | startByteOffset | + self flag: #todo. "mt: Better name #unsignedBytesAt:put:length:?" startByteOffset := byteOffset - 1. 1 to: length do: [:valueByteOffset | self unsignedByteAt: startByteOffset + valueByteOffset put: (value unsignedByteAt:valueByteOffset)]. ^ value! Item was changed: ----- Method: ExternalArrayType>>readAlias (in category 'external structure') ----- readAlias ^ '^ {1} fromHandle: handle{2}' format: { (referentClass ifNil: [ExternalData]) name. referentClass ifNotNil: [''] ifNil: [ + ' type: ', self storeStringForField]}! - ' type: ', self storeString]}! Item was changed: ----- Method: ExternalArrayType>>readFieldAt: (in category 'external structure') ----- readFieldAt: byteOffset ^ '^ ExternalData fromHandle: (handle structAt: {1} length: {2}) type: {3}' format: { byteOffset. self byteSize. + self storeStringForField}! - self storeString}! Item was changed: ----- Method: ExternalPointerType>>readFieldAt: (in category 'external structure') ----- readFieldAt: byteOffset " ExternalStructure defineAllFields. " ^ '^ {1} fromHandle: (handle pointerAt: {2} length: {3}){4}' format: { (referentClass ifNil: [ExternalData]) name. byteOffset. self byteSize. referentClass ifNotNil: [''] ifNil: [ + ' type: ', self asNonPointerType "content type" storeStringForField]}! - ' type: ', self asNonPointerType "content type" storeString]}! Item was changed: ExternalObject subclass: #ExternalStructure instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: 'ExternalTypePool FFIConstants' - classVariableNames: 'PreviousPlatform' - poolDictionaries: 'FFIConstants' category: 'FFI-Kernel'! ExternalStructure class instanceVariableNames: 'compiledSpec byteAlignment'! !ExternalStructure commentStamp: 'eem 6/26/2019 15:26' prior: 0! An ExternalStructure is for representing external data that is - either a structure composed of different fields (a struct of C language) - or an alias for another type (like a typedef of C language) It reserves enough bytes of data for representing all the fields. The data is stored into the handle instance variable which can be of two different types: - ExternalAddress If the handle is an external address then the object described does not reside in the Smalltalk object memory. - ByteArray If the handle is a byte array then the object described resides in Smalltalk memory. Instance Variables (class side) byteAlignment: <Integer> compiledSpec: <WordArray> byteAlignment - the required alignment for the structure compiledSpec - the bit-field definiton of the structure in the ExternalType encoding understood by the VM's FFI call marshalling machinery. A specific structure is defined by subclassing ExternalStructure and specifying its #fields via a class side method. For example if we define a subclass: ExternalStructure subclass: #StructExample instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'garbage'. Then declare the fields like this: StructExample class compile: 'fields ^#( (name ''char*'') (color ''ulong'') )' classified: 'garbage'. It means that this type is composed of two different fields: - a string (accessed thru the field #name) - and an unsigned 32bit integer (accessed thru the field #color). It represents the following C type: struct StructExample {char *name; uint32_t color; }; The accessors for those fields can be generated automatically like this: StructExample defineFields. As can be verified in a Browser: StructExample browse. We see that name and color fields are stored sequentially in different zones of data. The total size of the structure can be verified with: StructExample byteSize = (Smalltalk wordSize + 4). An ExternalStructure can also be used for defining an alias. The fields definition must contain only 2 elements: an eventual accessor (or nil) and the type. For example, We can define a machine dependent 'unsigned long' like this: ExternalStructure subclass: #UnsignedLong instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'garbage'. Then set the fields like this: UnsignedLong class compile: 'fields ^(Smalltalk wordSize=4 or: [Smalltalk platformName=''Win64'']) ifTrue: [#(nil ''ulong'')] ifFalse: [#(nil ''ulonglong'')]' classified: 'garbage'. And verify the size on current platform: UnsignedLong byteSize. Then, the class names 'UnsignedLong' and 'StructExamples' acts as a type specification. They can be used for composing other types, and for defining prototype of external functions: LibraryExample>>initMyStruct: aStructExample name: name color: anInteger <cdecl: void 'init_my_struct'( StructExample * char * UnsignedLong )> self externalCallFailed ! ExternalStructure class instanceVariableNames: 'compiledSpec byteAlignment'! Item was changed: Object subclass: #ExternalType instanceVariableNames: 'compiledSpec referentClass referencedType byteAlignment' + classVariableNames: 'ArrayClasses ArrayTypes AtomicSends AtomicTypeNames AtomicTypes ExtraTypeChecks StructTypes UseArrayClasses UseTypePool' - classVariableNames: 'ArrayClasses ArrayTypes AtomicSends AtomicTypeNames AtomicTypes ExtraTypeChecks StructTypes UseArrayClasses' poolDictionaries: 'FFIConstants' category: 'FFI-Kernel'! !ExternalType commentStamp: 'mt 6/5/2020 18:25' prior: 0! An external type represents the type of external objects. Instance variables: compiledSpec <WordArray> Compiled specification of the external type referentClass <Behavior | nil> Class type of argument required referencedType <ExternalType> Associated (non)pointer type with the receiver byteAlignment <Integer | nil> The desired alignment for a field of the external type within a structure. If nil it has yet to be computed. Compiled Spec: The compiled spec defines the type in terms which are understood by the VM. Each word is defined as: bits 0...15 - byte size of the entity bit 16 - structure flag (FFIFlagStructure) This flag is set if the following words define a structure bit 17 - pointer flag (FFIFlagPointer) This flag is set if the entity represents a pointer to another object bit 18 - atomic flag (FFIFlagAtomic) This flag is set if the entity represents an atomic type. If the flag is set the atomic type bits are valid. bits 19...23 - unused bits 24...27 - atomic type (FFITypeVoid ... FFITypeDoubleFloat) bits 28...31 - unused Note that all combinations of the flags FFIFlagPointer, FFIFlagAtomic, and FFIFlagStructure are invalid, EXCEPT from the following: FFIFlagPointer + FFIFlagAtomic: This defines a pointer to an atomic type (e.g., 'char*', 'int*'). The actual atomic type is represented in the atomic type bits. FFIFlagPointer + FFIFlagStructure: This defines a structure which is a typedef of a pointer type as in typedef void* VoidPointer; typedef Pixmap* PixmapPtr; It requires a byte size of four or eight (e.g. a 32-bit or 64-bit pointer) to work correctly. [Note: Other combinations may be allowed in the future] ! Item was changed: ----- Method: ExternalType class>>resetAllAtomicTypes (in category 'housekeeping') ----- resetAllAtomicTypes "Warning: This call is only required if you change the initialization for AtomicTypes." AtomicTypes := nil. AtomicSends := nil. + ArrayClasses := nil. + StructTypes := nil. ArrayTypes := nil. - ArrayClasses := nil. self initializeDefaultTypes. self initializeArrayClasses. self resetAllStructureTypes.! Item was changed: ----- Method: ExternalType class>>resetAllStructureTypes (in category 'housekeeping') ----- resetAllStructureTypes "Warning: This call is only required if you change the container for StructTypes!! Note that (2) and (3) can be swapped but that puts unnecessary pressure on the GC." StructTypes := nil. ArrayTypes := nil. "1) Initialize the container for structure types." self initializeStructureTypes. "2) Recompile all FFI calls to create and persist structure types." self recompileAllLibraryFunctions. "3) Update all structure types' spec and alignment." + ExternalTypePool reset. + ExternalStructure defineAllFields. + ExternalTypePool cleanUp. - ExternalStructure compileAllFields. ! Item was changed: ----- Method: ExternalType class>>useArrayClasses (in category 'preferences') ----- useArrayClasses + <preference: 'Use array classes (i.e. RawBitsArray)' - <preference: 'Use Array Classes (i.e. RawBitsArray)' categoryList: #('FFI Kernel') description: 'When true, type-based allocation in (local) object memory will use array classes instead of a ByteArray wrapped in ExternalData. Does not apply to external allocation.' type: #Boolean> ^UseArrayClasses ifNil:[true]! Item was added: + ----- Method: ExternalType class>>useTypePool (in category 'preferences') ----- + useTypePool + <preference: 'Use type pool in structure fields' + categoryList: #('FFI Kernel') + description: 'When true, fill a pool of external types to be used in struct-field accessors. See ExternalTypePool.' + type: #Boolean> + ^UseTypePool ifNil: [true]! Item was added: + ----- Method: ExternalType class>>useTypePool: (in category 'preferences') ----- + useTypePool: aBoolean + + UseTypePool = aBoolean ifTrue: [^ self]. + + UseTypePool := aBoolean. + + Cursor wait showWhile: [ + "Either fill or clean out the type pool." + ExternalTypePool reset. + ExternalStructure defineAllFields. + ExternalTypePool cleanUp].! Item was added: + ----- Method: ExternalType>>storeStringForField (in category 'external structure') ----- + storeStringForField + "Answers the code snippet to be used to make use of the receiver during field access in an external structure." + + ^ self class useTypePool + ifTrue: [ExternalTypePool assuredPoolVarNameFor: self] + ifFalse: [self storeString]! Item was changed: (PackageInfo named: 'FFI-Kernel') postscript: 'Smalltalk removeFromStartUpList: ExternalAddress. Smalltalk removeFromStartUpList: ExternalObject. "Introduce FFIAtomicReadWriteSend. All types need to be reset and all fields need to be re-defined." + ExternalType resetAllTypes.'! - ExternalType resetAllTypes. - ExternalStructure defineAllFields. - '!

1 0

FFI: FFI-Pools-mt.27.mcz
by commits＠source.squeak.org 23 May '21

23 May '21

Marcel Taeumel uploaded a new version of FFI-Pools to project FFI: http://source.squeak.org/FFI/FFI-Pools-mt.27.mcz ==================== Summary ==================== Name: FFI-Pools-mt.27 Author: mt Time: 23 May 2021, 3:42:11.878158 pm UUID: a2ba55a2-24e2-2940-a551-3daaa4540cfc Ancestors: FFI-Pools-eem.26 Prepares extra pool for types to be used for fast field access in external structures. =============== Diff against FFI-Pools-eem.26 =============== Item was added: + SharedPool subclass: #ExternalTypePool + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'FFI-Pools'! + + !ExternalTypePool commentStamp: 'mt 5/23/2021 15:01' prior: 0! + I am a pool for known external types to be used in struct-field accessors. See #useTypePool preference. All subclasses of ExternalStructure should use this shared pool by default.! Item was added: + ----- Method: ExternalTypePool class>>assuredPoolVarNameFor: (in category 'housekeeping') ----- + assuredPoolVarNameFor: type + + | name | + name := (self poolVarNameFor: type) asSymbol. + (self classPool includesKey: name) + ifFalse: [self addClassVarName: name]. + self classPool at: name put: type. + ^ name! Item was added: + ----- Method: ExternalTypePool class>>cleanUp (in category 'housekeeping') ----- + cleanUp + " + self cleanUp. + " + self classPool keys do: [:classVarName | + (classVarName beginsWith: 'ExternalType_') ifTrue: [ + (self classPool at: classVarName) + ifNil: [self classPool removeKey: classVarName]]].! Item was added: + ----- Method: ExternalTypePool class>>poolVarNameFor: (in category 'housekeeping') ----- + poolVarNameFor: type + "Answers the name to be used in the shared pool to speed up type look-up for field access in ExternalStructure." + + ^ String streamContents: [:stream | + | nameStream | + stream nextPutAll: 'ExternalType_'. + nameStream := type typeName readStream. + [nameStream atEnd] whileFalse: [ + | char | + (char := nameStream next) caseOf: { + [ $( ] -> [ "Ignore." ]. + [ $) ] -> [ "Ignore." ]. + [ $* ] -> [ stream nextPutAll: '_star' ]. + [ $[ ] -> [ stream nextPut: $_ ]. + [ $] ] -> [ stream nextPut: $_ ] + } otherwise: [ stream nextPut: char ]]]! Item was added: + ----- Method: ExternalTypePool class>>reset (in category 'housekeeping') ----- + reset + " + self reset + " + self classPool keys do: [:classVarName | + (classVarName beginsWith: 'ExternalType_') ifTrue: [ + (self classPool at: classVarName put: nil)]].!

1 0

FFI: FFI-Tests-mt.47.mcz
by commits＠source.squeak.org 22 May '21

22 May '21

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.47.mcz ==================== Summary ==================== Name: FFI-Tests-mt.47 Author: mt Time: 22 May 2021, 3:20:44.808855 pm UUID: d0f55a99-244f-8d4f-ac64-3068068e631c Ancestors: FFI-Tests-mt.46 Complements FFI-Kernel-mt.166 =============== Diff against FFI-Tests-mt.46 =============== Item was added: + ----- Method: FFIAllocateTests>>test19ArrayFromVoidPointer (in category 'tests - array') ----- + test19ArrayFromVoidPointer + "Check whether the construction of external data with void or void* will always set void* as containerType and void as contentType. Whether or not the #externalType will be a pointer type still corresponds to the kind of handle, that is, byte array (void) or external address (void*)." + + | type void array | + type := ExternalType int32_t. + void := ExternalType void. + array := self allocate: type size: 5. + + array := ExternalData + fromHandle: array getHandle + type: void asPointerType. + self assert: void asPointerType equals: array containerType. + self assert: void equals: array contentType. + self checkAllocate: array. + + array := ExternalData + fromHandle: array getHandle + type: void. "Should still become void*" + self assert: void asPointerType equals: array containerType. + self assert: void equals: array contentType. + self checkAllocate: array. + + array := ExternalData fromHandle: array getHandle. + self assert: void asPointerType equals: array containerType. + self assert: void equals: array contentType. + self checkAllocate: array.!

1 0

FFI: FFI-Kernel-mt.166.mcz
by commits＠source.squeak.org 22 May '21

22 May '21

Marcel Taeumel uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-mt.166.mcz ==================== Summary ==================== Name: FFI-Kernel-mt.166 Author: mt Time: 22 May 2021, 3:19:41.704855 pm UUID: cecd9ff4-64c2-2343-a278-d7263d721b90 Ancestors: FFI-Kernel-mt.165 Some bug fixes around void and void* =============== Diff against FFI-Kernel-mt.165 =============== Item was changed: ----- Method: ExternalData>>arrayType (in category 'accessing - types') ----- arrayType + "Answer this container's array type or 'nil' if unknown. Supports" - "Answer this container's array type or 'nil' if unknown." | arrayType | + ^ (arrayType := self containerType) asNonPointerType isVoid - ^ (arrayType := self containerType) isVoid ifFalse: [arrayType]! Item was changed: ----- Method: ExternalData>>setType: (in category 'private') ----- setType: externalType "Private. Set the type used to derive content and container types. If you want to change the content type later, use #setContentType:." externalType = ExternalType string ifTrue: [ ^ self setType: externalType asNonPointerType]. + externalType isVoid ifTrue: [ + ^ self setType: externalType asPointerType]. + + (externalType isArrayType or: [externalType asNonPointerType isVoid]) + ifTrue: [type := externalType "array type or void*"] - (externalType isArrayType or: [externalType isVoid]) - ifTrue: [type := externalType] ifFalse: [type := (externalType asArrayType: nil)]. contentType := nil.! Item was changed: ----- Method: ExternalData>>writer (in category 'accessing') ----- writer "Overwritten to preserve type." + ^ (self isNull or: [handle isExternalAddress]) - ^ handle isExternalAddress ifTrue: [self] ifFalse: [self class fromHandle: (ByteArrayReadWriter on: handle) type: type]! Item was added: + ----- Method: VoidReadWriteSend>>handle:atIndex: (in category 'evaluating') ----- + handle: handle atIndex: byteOffset + "no accessors for void" + self shouldNotImplement.! Item was added: + ----- Method: VoidReadWriteSend>>handle:atIndex:put: (in category 'evaluating') ----- + handle: handle atIndex: byteOffset put: value + "no accessors for void" + self shouldNotImplement.!

1 0

FFI: FFI-Callbacks-mt.17.mcz
by commits＠source.squeak.org 22 May '21

22 May '21

Marcel Taeumel uploaded a new version of FFI-Callbacks to project FFI: http://source.squeak.org/FFI/FFI-Callbacks-mt.17.mcz ==================== Summary ==================== Name: FFI-Callbacks-mt.17 Author: mt Time: 22 May 2021, 8:23:46.263398 am UUID: b3ac5bb7-3823-d04c-bcc9-7409126840dd Ancestors: FFI-Callbacks-mt.16 Minor improvement for callbacks. Decide on abi-specific register size during field definition in FFICallbackContext already. Not at callback time. Please re-define fields: "FFICallbackContext defineFields." =============== Diff against FFI-Callbacks-mt.16 =============== Item was changed: ----- Method: FFICallback>>evaluateDynamic: (in category 'callback - evaluators') ----- evaluateDynamic: callbackContext "Read all arguments and make the call(back). Assume that 'handle' and 'type' are set correctly. Only watch out for the sign. See field definition in FFICallbackContext to explore alternative ways to read the arguments." | byteOffset args intArgs intPos floatArgs floatPos | handle := callbackContext stackPtr getHandle. type := callbackContext stackPtr contentType. byteOffset := 1. + intArgs := callbackContext intRegArgs. - intArgs := callbackContext integerArguments. intPos := 0. + floatArgs := callbackContext floatRegArgs. - floatArgs := callbackContext floatArguments. floatPos := 0. args := Array new: argumentTypes size. 1 to: args size do: [:argIndex | | argType data isPointer | argType := argumentTypes at: argIndex. "1) Try to read arguments from registers." data := (intPos < intArgs size and: [(isPointer := argType isPointerType) or: [argType isIntegerType]]) ifTrue: [intPos := intPos + 1. intArgs at: intPos] ifFalse: [(floatPos < floatArgs size and: [argType isFloatType]) ifTrue: [floatPos := floatPos + 1. floatArgs at: floatPos]]. data ifNotNil: [ "1b) Read pointers from register value." isPointer ifFalse: ["data is already an integer"] ifTrue: [ data := (ExternalData fromHandle: (ExternalAddress fromInteger: data) type: argType asNonPointerType "contentType" size: 1) value]] ifNil: [ "2) If nothing was read, read the argument from the stack." data := (argType handle: handle at: byteOffset) value. byteOffset := byteOffset + ((type byteSize max: argType byteSize) roundUpTo: type byteAlignment)]. args at: argIndex put: data]. ^ self setResult: (evaluableObject valueWithArguments: args) inContext: callbackContext! Item was removed: - ----- Method: FFICallback>>evaluateDynamic_ARM32: (in category 'callback - evaluators') ----- - evaluateDynamic_ARM32: callbackContext - "Set handle to access arguments as most appropriate for the ABI. For ''RISCs'' it is the pointer to the integer register." - <abi: #ARM32> <evaluator> - - callbackContext integerArguments setSize: 4. - callbackContext floatArguments setSize: 8. - ^ self evaluateDynamic: callbackContext! Item was removed: - ----- Method: FFICallback>>evaluateDynamic_ARM64: (in category 'callback - evaluators') ----- - evaluateDynamic_ARM64: callbackContext - "Set handle to access arguments as most appropriate for the ABI. ARMv8 with AArch64." - <abi: #ARM64> <evaluator> - - callbackContext integerArguments setSize: 8. - callbackContext floatArguments setSize: 8. - ^ self evaluateDynamic: callbackContext! Item was removed: - ----- Method: FFICallback>>evaluateDynamic_IA32: (in category 'callback - evaluators') ----- - evaluateDynamic_IA32: callbackContext - "Set handle to access arguments as most appropriate for the ABI. For x86 (i.e. IA32) it is the stack pointer." - <abi: #IA32> <evaluator> - - callbackContext integerArguments setSize: 0. - callbackContext floatArguments setSize: 0. - ^ self evaluateDynamic: callbackContext! Item was removed: - ----- Method: FFICallback>>evaluateDynamic_X64: (in category 'callback - evaluators') ----- - evaluateDynamic_X64: callbackContext - "Set handle to access arguments as most appropriate for the ABI. For ''RISCs'' it is the pointer to the integer register." - <abi: #X64> <evaluator> - - callbackContext integerArguments setSize: 6. - callbackContext floatArguments setSize: 8. - ^ self evaluateDynamic: callbackContext! Item was removed: - ----- Method: FFICallback>>evaluateDynamic_X64Win64: (in category 'callback - evaluators') ----- - evaluateDynamic_X64Win64: callbackContext - "Set handle to access arguments as most appropriate for the ABI. For ''RISCs'' it is the pointer to the integer register." - <abi: #X64Win64> <evaluator> - - callbackContext integerArguments setSize: 4. - callbackContext floatArguments setSize: 4. - ^ self evaluateDynamic: callbackContext! Item was changed: ----- Method: FFICallback>>setResult:inContext: (in category 'callback') ----- setResult: anObject inContext: aCallbackContext "Set the result in the callback context. Add some fast checks to detect errors." resultType isPointerType ifTrue: [ "an ExternalStructure, an ExternalUnion, an ExternalData, ..." ^ aCallbackContext externalObjectResult: anObject]. resultType atomicType = 0 "void" ifTrue: ["Quick exit for void return type." ^ aCallbackContext voidResult]. anObject isInteger ifTrue: [ self assert: [resultType isIntegerType]. self flag: #todo. "mt: ABI #X64Win64 has special treatment for word64, too. But maybe it is not needed." + ^ (anObject isLarge and: [abi = #IA32]) - ^ (anObject isLarge and: [FFIPlatformDescription current abi = #IA32]) ifTrue: [aCallbackContext word64Result: anObject] ifFalse: [aCallbackContext wordResult: anObject]]. anObject isBoolean ifTrue: [ self assert: [resultType atomicType = 1 "bool"]. ^ aCallbackContext wordResult: anObject]. anObject isFloat ifTrue: [ self assert: [resultType atomicType >= 12 "float/double"]. ^ aCallbackContext floatResult: anObject]. self notify: 'Unkown result type.'. ^ aCallbackContext errorResult! Item was changed: ----- Method: FFICallback>>valueInContext: (in category 'callback') ----- valueInContext: callbackContext "<FFICallbackContext> ^<Integer>" + + ^ self evaluateDynamic: callbackContext! - - FFICallback methodsDo: [:method | - (method hasPragma: #evaluator) ifTrue: [ - (method pragmaAt: #abi:) - ifNotNil: [:pragma | (pragma argumentAt: 1) = abi - ifTrue: [^ self with: callbackContext executeMethod: method]]]]. - - self error: 'Could find evaluator for current ABI: ', abi.! Item was changed: ExternalStructure subclass: #FFICallbackContext + instanceVariableNames: '' - instanceVariableNames: 'floatArguments integerArguments' classVariableNames: '' poolDictionaries: 'FFICallbackConstants' category: 'FFI-Callbacks'! !FFICallbackContext commentStamp: 'mt 4/30/2021 11:32' prior: 0! A callback context is a data structure prepared from the VM for accessing the callback's arguments. See FFICallback >> #thunkEntryAddress. !!!!!! BE AWARE that the actual location of argument values in this structure depend on the current ABI (i.e. 'Application Binary Interface'). See FFIPlatformDescription to access the current ABI.! Item was changed: ----- Method: FFICallbackContext class>>fields (in category 'field definition') ----- fields " self defineFields. " + ^ #( (thunkp 'void*') (stackPtr 'byte*') "was: char*" + ), + (FFIPlatformDescription current abiSend: #fields to: self), + #( - (intRegArgs 'intptr_t*') "was: long* or int*" - (floatRegArgs 'double*') (nil 'void*') "was: savedCStackPointer" (nil 'void*') "was: savedCFramePointer" (rvs 'FFICallbackResult') (nil 'void*') "was: savedPrimFunctionPointer" (outerContext 'FFICallbackContext*') "jmp_buf trampoline --- for debugging only?" ) " typedef struct { void *thunkp; char *stackptr; long *intRegArgs; double *floatRegArgs; void *savedCStackPointer; void *savedCFramePointer; union { intptr_t vallong; struct { int low, high; } valleint64; struct { int high, low; } valbeint64; double valflt64; struct { void *addr; intptr_t size; } valstruct; } rvs; void *savedPrimFunctionPointer; jmp_buf trampoline; jmp_buf savedReenterInterpreter; } VMCallbackContext; "! Item was added: + ----- Method: FFICallbackContext class>>fields_ARM32 (in category 'field definition') ----- + fields_ARM32 + <abi: #ARM32> <fields> + + ^ #( + (intRegArgs '(intptr_t[4])*') + (floatRegArgs '(double[8])*') + )! Item was added: + ----- Method: FFICallbackContext class>>fields_ARM64 (in category 'field definition') ----- + fields_ARM64 + <abi: #ARM64> <fields> + + ^ #( + (intRegArgs '(intptr_t[8])*') + (floatRegArgs '(double[8])*') + )! Item was added: + ----- Method: FFICallbackContext class>>fields_IA32 (in category 'field definition') ----- + fields_IA32 + <abi: #IA32> <fields> + + ^ #( + (intRegArgs '(intptr_t[0])*') + (floatRegArgs '(double[0])*') + )! Item was added: + ----- Method: FFICallbackContext class>>fields_X64 (in category 'field definition') ----- + fields_X64 + <abi: #X64> <fields> + + ^ #( + (intRegArgs '(intptr_t[6])*') + (floatRegArgs '(double[8])*') + )! Item was added: + ----- Method: FFICallbackContext class>>fields_X64Win64 (in category 'field definition') ----- + fields_X64Win64 + <abi: #X64Win64> <fields> + + ^ #( + (intRegArgs '(intptr_t[4])*') + (floatRegArgs '(double[4])*') + )! Item was removed: - ----- Method: FFICallbackContext>>floatArguments (in category 'callback arguments') ----- - floatArguments - "Cache proxy to the list of float arguments (i.e. an ExternalData) to attach ABI-specific properties such as #size." - - ^ floatArguments ifNil: [ - floatArguments := self floatRegArgs]! Item was removed: - ----- Method: FFICallbackContext>>integerArguments (in category 'callback arguments') ----- - integerArguments - "Cache proxy to the list of integer arguments (i.e. an ExternalData) to attach ABI-specific properties such as #size." - - ^ integerArguments ifNil: [ - integerArguments := self intRegArgs]! Item was added: + ----- Method: FFIPlatformDescription>>abiSend:to: (in category '*FFI-Callbacks') ----- + abiSend: selector to: receiver + + receiver class methodsDo: [:method | + (method hasPragma: selector) ifTrue: [ + (method pragmaAt: #abi:) + ifNotNil: [:pragma | (pragma argumentAt: 1) = self abi + ifTrue: [^ receiver executeMethod: method]]]]. + + self error: 'Could find method for current ABI: ', self abi.! Item was added: + ----- Method: FFIPlatformDescription>>abiSend:to:with: (in category '*FFI-Callbacks') ----- + abiSend: selector to: receiver with: argument + + receiver class methodsDo: [:method | + (method hasPragma: selector) ifTrue: [ + (method pragmaAt: #abi:) + ifNotNil: [:pragma | (pragma argumentAt: 1) = self abi + ifTrue: [^ receiver with: argument executeMethod: method]]]]. + + self error: 'Could find method for current ABI: ', self abi.!

1 0

FFI: FFI-Tests-mt.46.mcz
by commits＠source.squeak.org 21 May '21

21 May '21

Marcel Taeumel uploaded a new version of FFI-Tests to project FFI: http://source.squeak.org/FFI/FFI-Tests-mt.46.mcz ==================== Summary ==================== Name: FFI-Tests-mt.46 Author: mt Time: 21 May 2021, 11:54:32.525285 am UUID: a5f60e40-93a8-ae44-a9de-0ea146302ac1 Ancestors: FFI-Tests-mt.45 Tests for FFI-Kernel-mt.165. =============== Diff against FFI-Tests-mt.45 =============== Item was added: + ----- Method: FFIAllocateTests>>test01ByHandleInt32Access (in category 'tests - array by handle') ----- + test01ByHandleInt32Access + + | type handle | + type := ExternalType int32_t. + handle := (self allocate: type size: 5) getHandle. + self assert: 0 equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: 42. + type handle: handle atIndex: 1 put: 0. + self assert: 42 equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test02ByHandleFloatAccess (in category 'tests - array by handle') ----- + test02ByHandleFloatAccess + + | type handle | + type := ExternalType float. + handle := (self allocate: type size: 5) getHandle. + self assert: 0.0 equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: 1.23. + type handle: handle atIndex: 1 put: 0.0. + self assert: ((type handle: handle atIndex: 2) + between: 1.23 - 0.0005 and: 1.23 + 0.0005).! Item was added: + ----- Method: FFIAllocateTests>>test03ByHandleDoubleAccess (in category 'tests - array by handle') ----- + test03ByHandleDoubleAccess + + | type handle | + type := ExternalType double. + handle := (self allocate: type size: 5) getHandle. + self assert: 0.0 equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: 1.23456. + type handle: handle atIndex: 1 put: 0.0. + self assert: 1.23456 equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test04ByHandleCharAccess (in category 'tests - array by handle') ----- + test04ByHandleCharAccess + + | type handle | + type := ExternalType char. + handle := (self allocate: type size: 5) getHandle. + self assert: Character null equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: $A. + type handle: handle atIndex: 1 put: Character null. + self assert: $A equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test05ByHandleBoolAccess (in category 'tests - array by handle') ----- + test05ByHandleBoolAccess + + | type handle | + type := ExternalType bool. + handle := (self allocate: type size: 5) getHandle. + self assert: false equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: true. + type handle: handle atIndex: 1 put: false. + self assert: true equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test06ByArrayHandleInt32Access (in category 'tests - array by handle') ----- + test06ByArrayHandleInt32Access + + | type handle | + type := ExternalType int32_t. + ExternalType useArrayClassesDuring: [ + handle := (self allocate: type size: 5) getHandle]. + self assert: 0 equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: 42. + type handle: handle atIndex: 1 put: 0. + self assert: 42 equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test07ByArrayHandleFloatAccess (in category 'tests - array by handle') ----- + test07ByArrayHandleFloatAccess + + | type handle | + type := ExternalType float. + ExternalType useArrayClassesDuring: [ + handle := (self allocate: type size: 5) getHandle]. + self assert: 0.0 equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: 1.23. + type handle: handle atIndex: 1 put: 0.0. + self assert: ((type handle: handle atIndex: 2) + between: 1.23 - 0.0005 and: 1.23 + 0.0005).! Item was added: + ----- Method: FFIAllocateTests>>test08ByArrayHandleDoubleAccess (in category 'tests - array by handle') ----- + test08ByArrayHandleDoubleAccess + + | type handle | + type := ExternalType double. + ExternalType useArrayClassesDuring: [ + handle := (self allocate: type size: 5) getHandle]. + self assert: 0.0 equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: 1.23456. + type handle: handle atIndex: 1 put: 0.0. + self assert: 1.23456 equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test09ByArrayHandleCharAccess (in category 'tests - array by handle') ----- + test09ByArrayHandleCharAccess + + | type handle | + type := ExternalType char. + ExternalType useArrayClassesDuring: [ + handle := (self allocate: type size: 5) getHandle]. + self assert: Character null equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: $A. + type handle: handle atIndex: 1 put: Character null. + self assert: $A equals: (type handle: handle atIndex: 2).! Item was added: + ----- Method: FFIAllocateTests>>test10ByArrayHandleBoolAccess (in category 'tests - array by handle') ----- + test10ByArrayHandleBoolAccess + + | type handle | + type := ExternalType bool. + ExternalType useArrayClassesDuring: [ + handle := (self allocate: type size: 5) getHandle]. + self assert: false equals: (type handle: handle atIndex: 2). + type handle: handle atIndex: 2 put: true. + type handle: handle atIndex: 1 put: false. + self assert: true equals: (type handle: handle atIndex: 2).!

1 0

← Newer
1
2
3
4
5
6
7
8
...
17
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2021