The Inbox: FFI-Tests-KenD.11.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: FFI-Tests-KenD.11.mcz

commits-2
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!