[squeak-dev] The Inbox: FFI-Tests-KenD.11.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Feb 11 00:06:29 UTC 2019
A new version of FFI-Tests was added to project The Inbox:
http://source.squeak.org/inbox/FFI-Tests-KenD.11.mcz
==================== Summary ====================
Name: FFI-Tests-KenD.11
Author: KenD
Time: 10 February 2019, 11:44:54.143441 pm
UUID: 52ffb72e-ce43-43a2-8b80-81f88dcf6d83
Ancestors: FFI-Tests-KenD.10
Added Bigger Structure test
=============== Diff against FFI-Tests-cbc.9 ===============
Item was added:
+ ----- Method: FFIPluginTests>>testBiggerStruct (in category 'structure tests') -----
+ testBiggerStruct
+ "Test passing and returning up of structures > 64 bit"
+ | pt1 pt2 pt3 |
+ pt1 := FFITestPoint4 new.
+ pt1 x: 1. pt1 y: 2. pt1 z: 3. pt1 w: 4.
+ pt2 := FFITestPoint4 new.
+ pt2 x: 5. pt2 y: 6. pt2 z: 7. pt2 w: 8.
+ pt3 := FFITestLibrary ffiTestBiggerStruct: pt1 with: pt2.
+ self assert: pt3 x = 1.
+ self assert: pt3 y = 2.
+ self assert: pt3 z = 3.
+ self assert: pt3 w = 4.
+ self assert: pt3 r = 5.
+ self assert: pt3 s = 6.
+ self assert: pt3 t = 7.
+ self assert: pt3 u = 8.!
Item was added:
+ ExternalStructure subclass: #FFITestBiggerStruct
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'FFI-Tests'!
Item was added:
+ ----- Method: FFITestBiggerStruct class>>fields (in category 'field definition') -----
+ fields
+ "FFITestPoint4 defineFields"
+ ^#(
+ (x 'longlong')
+ (y 'longlong')
+ (z 'longlong')
+ (w 'longlong')
+ (r 'longlong')
+ (s 'longlong')
+ (t 'longlong')
+ (u 'longlong')
+ )
+ !
Item was added:
+ ----- Method: FFITestBiggerStruct class>>initialize (in category 'class initialization') -----
+ initialize
+ "
+ self defineFields; compileFields
+ "
+ self compileFields!
Item was added:
+ ----- Method: FFITestBiggerStruct>>r (in category 'accessing') -----
+ r
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 33!
Item was added:
+ ----- Method: FFITestBiggerStruct>>r: (in category 'accessing') -----
+ r: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 33 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>s (in category 'accessing') -----
+ s
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 41!
Item was added:
+ ----- Method: FFITestBiggerStruct>>s: (in category 'accessing') -----
+ s: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 41 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>t (in category 'accessing') -----
+ t
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 49!
Item was added:
+ ----- Method: FFITestBiggerStruct>>t: (in category 'accessing') -----
+ t: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 49 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>u (in category 'accessing') -----
+ u
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 57!
Item was added:
+ ----- Method: FFITestBiggerStruct>>u: (in category 'accessing') -----
+ u: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 57 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>w (in category 'accessing') -----
+ w
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 25!
Item was added:
+ ----- Method: FFITestBiggerStruct>>w: (in category 'accessing') -----
+ w: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 25 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>x (in category 'accessing') -----
+ x
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 1!
Item was added:
+ ----- Method: FFITestBiggerStruct>>x: (in category 'accessing') -----
+ x: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 1 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>y (in category 'accessing') -----
+ y
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 9!
Item was added:
+ ----- Method: FFITestBiggerStruct>>y: (in category 'accessing') -----
+ y: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 9 put: anObject!
Item was added:
+ ----- Method: FFITestBiggerStruct>>z (in category 'accessing') -----
+ z
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ ^handle signedLongLongAt: 17!
Item was added:
+ ----- Method: FFITestBiggerStruct>>z: (in category 'accessing') -----
+ z: anObject
+ "This method was automatically generated. See FFITestBiggerStruct class>>fields."
+ <generated>
+ handle signedLongLongAt: 17 put: anObject!
Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestBiggerStruct:with: (in category 'primitives') -----
+ ffiTestBiggerStruct: pt1 with: pt2
+ <cdecl: FFITestBiggerStruct 'ffiTestStructBigger' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'>
+ ^self externalCallFailed!
More information about the Squeak-dev
mailing list
|