[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