Marcel Taeumel uploaded a new version of FFI-Tests to project FFI:
http://source.squeak.org/FFI/FFI-Tests-mt.22.mcz

==================== Summary ====================

Name: FFI-Tests-mt.22
Author: mt
Time: 3 May 2021, 4:54:41.730479 pm
UUID: a156622d-6212-3c45-9f7a-7c8017118210
Ancestors: FFI-Tests-mt.21

Big refactoring of FFI tests:

- Adds message categories for FFITestLibrary
- Replicates all tests in FFIPluginTests to also test invocation through library and construction as ExternalLibraryFunction. See FFIPluginConstrutedTests and FFIPluginLibraryTests.
- Extracts tests about structures (and unions etc.) that do not need the test-plugin to ExternalStructureTests
- In field definitions, replace all uses of "short/long/longlong" with "int16_t/int32_t/int64_t" for improved readability
- Fixes the definitions that actually rely on c_long because they use "long" in the "sqFFITestFuncs.c"
- Compiles instance-side methods in FFITestLibrary as needed, see FFIPluginLibraryTests >> #invoke:withArguments:.

Note that, for simplicity, the new design of the FFIPluginTests hierarchy requires the class-side methods in FFITestLibrary to match the C function names. Arguments can be attached with "with:". See all implementors of  #invoke:withArguments: to learn more.

If you want to improve readability over those C names, use either method comments or the actual test selector. See #testUnsignedIntegerRange as an example.

=============== Diff against FFI-Tests-mt.21 ===============

Item was added:
+ TestCase subclass: #ExternalStructureTests
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'FFI-Tests'!

Item was added:
+ ----- Method: ExternalStructureTests>>test01AccessingUnion (in category 'tests') -----
+ test01AccessingUnion
+ 
+ 	| ufi |
+ 	ufi := FFITestUfi new.
+ 	ufi i1: 2.
+ 	self assert: 2 equals: ufi i1.
+ 	ufi f1: 1.0.
+ 	self assert: 1.0 equals: ufi f1.
+ 	self assert: 1.0 asIEEE32BitWord equals: ufi i1.
+ 	ufi i1: 2.0 asIEEE32BitWord.
+ 	self assert: 2.0 equals: ufi f1.!

Item was added:
+ ----- Method: ExternalStructureTests>>test02AccessingStructure (in category 'tests') -----
+ test02AccessingStructure
+ 
+ 	| pt |
+ 	pt := FFITestPoint2 new.
+ 	pt x: 10; y: 20.
+ 	self assert: 10 equals: pt x.
+ 	self assert: 20 equals: pt y.!

Item was added:
+ ----- Method: ExternalStructureTests>>test03AccessingExternalData (in category 'tests') -----
+ test03AccessingExternalData
+ 
+ 	| somePoints firstPoint |
+ 	somePoints := FFITestPoint2 allocate: 5.
+ 	self assert: 5 equals: somePoints size.
+ 	firstPoint := somePoints at: 1.
+ 	self assert: 0 at 0 equals: firstPoint asPoint.
+ 	firstPoint setX: 2 setY: 3.
+ 	self assert: 2 at 3 equals: firstPoint asPoint.!

Item was added:
+ ----- Method: ExternalTypeTests>>testAtomicTypeNameByType (in category 'tests') -----
+ testAtomicTypeNameByType
+ 
+ 	AtomicTypeNames do: [:symbol | | typeName |
+ 		typeName := symbol.
+ 		self
+ 			assert: typeName
+ 			equals: (ExternalType typeNamed: typeName) typeName;
+ 			assert: typeName
+ 			equals: (AtomicTypes at: typeName) typeName.
+ 		typeName := (AtomicTypes at: symbol) asPointerType typeName.
+ 		self
+ 			assert: typeName
+ 			equals: (ExternalType typeNamed: typeName) typeName].!

Item was added:
+ FFIPluginTests subclass: #FFIPluginConstructedTests
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'FFI-Tests'!

Item was added:
+ ----- Method: FFIPluginConstructedTests class>>shouldInheritSelectors (in category 'testing') -----
+ shouldInheritSelectors
+ 	^ true!

Item was added:
+ ----- Method: FFIPluginConstructedTests>>expectedFailures (in category 'failures') -----
+ expectedFailures
+ 	"We can actually call that one function with 20 arguments. :-)"
+ 	
+ 	^ super expectedFailures copyWithout: #testMixedDoublesAndLongsSum!

Item was added:
+ ----- Method: FFIPluginConstructedTests>>invoke:withArguments: (in category 'support') -----
+ invoke: functionName withArguments: someObjects
+ 	"Use primitive 117 to invoke the call, not 120."
+ 	
+ 	| prototype externalFunction |
+ 	prototype := (FFITestLibrary class >> (self lookupSelector: functionName numArgs: someObjects size)) externalLibraryFunction.
+ 	externalFunction := ExternalLibraryFunction
+ 		name: functionName module: prototype module
+ 		callType: prototype flags returnType: prototype argTypes first
+ 		argumentTypes: prototype argTypes allButFirst.
+ 	^ externalFunction invokeWithArguments: someObjects!

Item was added:
+ FFIPluginTests subclass: #FFIPluginLibraryTests
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'FFI-Tests'!

Item was added:
+ ----- Method: FFIPluginLibraryTests class>>shouldInheritSelectors (in category 'testing') -----
+ shouldInheritSelectors
+ 	^ true!

Item was added:
+ ----- Method: FFIPluginLibraryTests>>invoke:withArguments: (in category 'support') -----
+ invoke: functionName withArguments: someObjects
+ 	"Use an instance of the library. Compile class-side methods to instance-side methods as needed."
+ 
+ 	| selector library |
+ 	selector := self lookupSelector: functionName numArgs: someObjects size.
+ 	library := FFITestLibrary new.
+ 
+ 	(library respondsTo: selector) ifFalse: [ | signature source prototype |
+ 		"1) Build method signature."
+ 		signature := String streamContents: [:s | | index |
+ 			index := 0. selector do: [:char | s nextPut: char.
+ 				char = $: ifTrue: [ index := index + 1.
+ 					s space; nextPutAll: 'arg'; nextPutAll: index asString; space]]].
+ 		"2) Construct method source."
+ 		prototype := library class class compiledMethodAt: selector.
+ 		source := '{1}\	{2}\	<generated>\	{3}\	^ self externalCallFailed' withCRs
+ 			format: {
+ 				signature.
+ 				'"This method was automatically generated. See {1}>>{2}"'
+ 					format: {prototype methodClass. prototype selector}.
+ 				 prototype externalLibraryFunction copy
+ 					setModule: nil; printString }.
+ 		"3) Compile instance-side FFI call in library."
+ 		library class compile: source classified: '*autogenerated - primitives'].
+ 
+ 	^ library perform: selector withArguments: someObjects!

Item was changed:
  TestCase subclass: #FFIPluginTests
+ 	instanceVariableNames: 'heapObject'
- 	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'FFI-Tests'!
  
  !FFIPluginTests commentStamp: '<historical>' prior: 0!
  SUnitized tests for the FFI (mostly the plugin side)!

Item was added:
+ ----- Method: FFIPluginTests>>expectedFailures (in category 'failures') -----
+ expectedFailures
+ 
+ 	^ #(
+ 		testIntAliasCallReturnIntAlias "return-type coercing failed"
+ 		testIntCallReturnIntAlias "return-type coercing failed"
+ 		testMixedDoublesAndLongsSum "more than 15 method args needed"
+ 		testSumStructSslf4 "some overflow issue, maybe expected")!

Item was added:
+ ----- Method: FFIPluginTests>>invoke: (in category 'support') -----
+ invoke: selector
+ 
+ 	^ self invoke: selector withArguments: #()!

Item was added:
+ ----- Method: FFIPluginTests>>invoke:with: (in category 'support') -----
+ invoke: selector with: arg1
+ 
+ 	^ self invoke: selector withArguments: {arg1}!

Item was added:
+ ----- Method: FFIPluginTests>>invoke:with:with: (in category 'support') -----
+ invoke: selector with: arg1 with: arg2
+ 
+ 	^ self invoke: selector withArguments: {arg1. arg2}!

Item was added:
+ ----- Method: FFIPluginTests>>invoke:with:with:with: (in category 'support') -----
+ invoke: selector with: arg1 with: arg2 with: arg3
+ 
+ 	^ self invoke: selector withArguments: {arg1. arg2. arg3}!

Item was added:
+ ----- Method: FFIPluginTests>>invoke:with:with:with:with: (in category 'support') -----
+ invoke: selector with: arg1 with: arg2 with: arg3 with: arg4
+ 
+ 	^ self invoke: selector withArguments: {arg1. arg2. arg3. arg4}!

Item was added:
+ ----- Method: FFIPluginTests>>invoke:with:with:with:with:with: (in category 'support') -----
+ invoke: selector with: arg1 with: arg2 with: arg3 with: arg4 with: arg5
+ 
+ 	^ self invoke: selector withArguments: {arg1. arg2. arg3. arg4. arg5}!

Item was added:
+ ----- Method: FFIPluginTests>>invoke:withArguments: (in category 'support') -----
+ invoke: functionName withArguments: someObjects
+  
+ 	^ FFITestLibrary
+ 		perform: (self lookupSelector: functionName numArgs: someObjects size)
+ 		withArguments: someObjects!

Item was added:
+ ----- Method: FFIPluginTests>>lookupSelector:numArgs: (in category 'support') -----
+ lookupSelector: functionName numArgs: numArgs
+ 
+ 	^ Symbol lookup: (
+ 		numArgs > 0
+ 			ifFalse: [functionName]
+ 			ifTrue: [
+ 				functionName, ':'
+ 					, (Array new: (numArgs min: 15) - 1 withAll: 'with:') join])!

Item was added:
+ ----- Method: FFIPluginTests>>tearDown (in category 'running') -----
+ tearDown
+ 
+ 	heapObject ifNotNil: [heapObject free].!

Item was added:
+ ----- Method: FFIPluginTests>>test4IntSum (in category 'tests - atomics') -----
+ test4IntSum
+ 
+ 	| result n interval |
+ 	n := 4.
+ 	interval := 1 - n * n to: n * n by: 2 * n + 1.
+ 	result := self invoke: 'ffiTest4IntSum' withArguments: interval asArray.
+ 	self assert: interval sum equals: result!

Item was changed:
+ ----- Method: FFIPluginTests>>test8IntSum (in category 'tests - atomics') -----
- ----- Method: FFIPluginTests>>test8IntSum (in category 'tests') -----
  test8IntSum
+ 
+ 	| result n interval |
+ 	n := 8.
- 	"Test using generic FFI spec"
- 	| result meth n interval |
- 	meth := ExternalLibraryFunction
- 				name:'ffiTest8IntSum' module: FFITestLibrary moduleName
- 				callType: 0 returnType: ExternalType long
- 				argumentTypes: (Array new: (n := 8) withAll: ExternalType long).
  	interval := 1 - n * n to: n * n by: 2 * n + 1.
+ 	result := self invoke: 'ffiTest8IntSum' withArguments: interval asArray.
- 	result := meth invokeWithArguments: interval asArray.
  	self assert: interval sum equals: result!

Item was changed:
+ ----- Method: FFIPluginTests>>test8LongLongSum (in category 'tests - atomics') -----
- ----- Method: FFIPluginTests>>test8LongLongSum (in category 'tests') -----
  test8LongLongSum
+ 
+ 	| result n interval |
+ 	n := 8.
- 	"Test using generic FFI spec"
- 	| result meth n interval |
- 	meth := ExternalLibraryFunction
- 				name:'ffiTest8LongLongSum' module: FFITestLibrary moduleName
- 				callType: 0 returnType: ExternalType signedLongLong
- 				argumentTypes: (Array new: (n := 8) withAll: ExternalType signedLongLong).
  	interval := 1 - n * n << 32 + (1 - n * n) to: n * n - n << 32 + (3 * n * n) by: 2 * n << 32 + (3 * n).
+ 	result := self invoke: 'ffiTest8LongLongSum' withArguments: interval asArray.
- 	result := meth invokeWithArguments: interval asArray.
  	self assert: interval sum equals: result!

Item was added:
+ ----- Method: FFIPluginTests>>test8LongSum (in category 'tests - atomics') -----
+ test8LongSum
+ 
+ 	| result n interval |
+ 	n := 8.
+ 	interval := 1 - n * n to: n * n by: 2 * n + 1.
+ 	result := self invoke: 'ffiTest8longSum' withArguments: interval asArray.
+ 	self assert: interval sum equals: result!

Item was removed:
- ----- Method: FFIPluginTests>>testAccessingUnion (in category 'tests - union') -----
- testAccessingUnion
- 	| ufi |
- 	ufi := FFITestUfi new.
- 	ufi i1: 2.
- 	self assert: 2 equals: ufi i1.
- 	ufi f1: 1.0.
- 	self assert: 1.0 equals: ufi f1.
- 	self assert: 1.0 asIEEE32BitWord equals: ufi i1.
- 	ufi i1: 2.0 asIEEE32BitWord.
- 	self assert: 2.0 equals: ufi f1.!

Item was added:
+ ----- Method: FFIPluginTests>>testBoolsToInts (in category 'tests - other') -----
+ testBoolsToInts
+ 
+ 	| result |
+ 	result := FFITestLibrary ffiTestBool: true with: false with: true with: false.
+ 	self assert: result.
+ 	result := FFITestLibrary ffiTestBool: -1 with: 1 with: 0 with: 0.
+ 	self deny: result.
+ 	result := FFITestLibrary ffiTestBool: false with: false with: true with: true.
+ 	self deny: result.!

Item was added:
+ ----- Method: FFIPluginTests>>testChars (in category 'tests - atomics') -----
+ testChars
+ 
+ 	| result |
+ 	result := self invoke: 'ffiTestChars' with: $A with: 65 with: 65.0 with: true.
+ 	self assert: result isCharacter.
+ 	self assert: result asciiValue = 130.!

Item was removed:
- ----- Method: FFIPluginTests>>testConstructedCharCall (in category 'tests') -----
- testConstructedCharCall
- 	"Test using generic FFI spec"
- 	| result meth |
- 	meth := ExternalLibraryFunction
- 		name:'ffiTestChars' module: FFITestLibrary moduleName 
- 		callType: ExternalFunction callTypeCDecl returnType: ExternalType char
- 		argumentTypes: (Array new: 4 withAll: ExternalType char).
- 	result := meth invokeWith: $A with: 65 with: 65.0 with: true.
- 	self assert: result isCharacter.
- 	self assert: 130 equals: result asciiValue!

Item was removed:
- ----- Method: FFIPluginTests>>testConstructedDoubleCall (in category 'tests') -----
- testConstructedDoubleCall
- 	"Test using generic FFI spec"
- 	| result meth |
- 	meth := ExternalLibraryFunction
- 		name:'ffiTestDoubles' module: FFITestLibrary moduleName 
- 		callType: ExternalFunction callTypeCDecl returnType: ExternalType double
- 		argumentTypes: (Array new: 2 withAll: ExternalType double).
- 	result := meth invokeWithArguments: (Array with: 41 with: true).
- 	self assert: 42.0 equals: result!

Item was removed:
- ----- Method: FFIPluginTests>>testConstructedFloatCall (in category 'tests') -----
- testConstructedFloatCall
- 	"Test using generic FFI spec"
- 	| result meth |
- 	meth := ExternalLibraryFunction
- 		name:'ffiTestFloats' module: FFITestLibrary moduleName 
- 		callType: ExternalFunction callTypeCDecl returnType: ExternalType float
- 		argumentTypes: (Array new: 2 withAll: ExternalType float).
- 	result := meth invokeWith: $A with: 65.0.
- 	self assert: 130.0 equals: result!

Item was removed:
- ----- Method: FFIPluginTests>>testConstructedIntCall (in category 'tests') -----
- testConstructedIntCall
- 	"Test using generic FFI spec"
- 	| result meth |
- 	meth := ExternalLibraryFunction
- 		name:'ffiTestInts' module: FFITestLibrary moduleName
- 		callType: ExternalFunction callTypeCDecl returnType: ExternalType signedLong
- 		argumentTypes: (Array new: 4 withAll: ExternalType signedLong).
- 	result := meth invokeWith: $A with: 65 with: 65.0 with: true.
- 	self assert: 130 equals: result!

Item was removed:
- ----- Method: FFIPluginTests>>testConstructedPrintString (in category 'tests') -----
- testConstructedPrintString
- 	"Test using generic FFI spec"
- 	| result meth |
- 	meth := ExternalLibraryFunction
- 		name:'ffiPrintString' module: FFITestLibrary moduleName 
- 		callType: ExternalFunction callTypeCDecl returnType: ExternalType string
- 		argumentTypes: (Array with: ExternalType string).
- 	result := meth invokeWith:'Hello World!!'.
- 	self assert: 'Hello World!!' equals: result!

Item was removed:
- ----- Method: FFIPluginTests>>testConstructedShortCall (in category 'tests') -----
- testConstructedShortCall
- 	"Test using generic FFI spec"
- 	| result meth |
- 	meth := ExternalLibraryFunction
- 		name:'ffiTestShorts' module: FFITestLibrary moduleName 
- 		callType: ExternalFunction callTypeCDecl returnType: ExternalType short
- 		argumentTypes: (Array new: 4 withAll: ExternalType short).
- 	result := meth invokeWithArguments: (Array with: $A with: 65 with: 65.0 with: true).
- 	self assert: 130 equals: result!

Item was added:
+ ----- Method: FFIPluginTests>>testDoubles (in category 'tests - atomics') -----
+ testDoubles
+ 	
+ 	| result |
+ 	result := self invoke: 'ffiTestDoubles' with: $A with: 65.0.
+ 	self assert: 130.0 equals: result.
+ 	result := self invoke: 'ffiTestDoubles' with: 41 with: true.
+ 	self assert: 42.0 equals: result.!

Item was added:
+ ----- Method: FFIPluginTests>>testDoubles14 (in category 'tests - atomics') -----
+ testDoubles14
+ 
+ 	| result n args |
+ 	n := 14.
+ 	args := (123.456789 to: 3.210987 * 13 + 123.456789 by: 3.210987) asArray first: n.
+ 	result := self invoke: 'ffiTestDoubles14' withArguments: args.
+ 	self assert: args sum equals: result!

Item was added:
+ ----- Method: FFIPluginTests>>testDoubles9 (in category 'tests - atomics') -----
+ testDoubles9
+ 
+ 	| result |
+ 	result := self invoke: 'ffiTestDoubles9' withArguments: #(1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0).
+ 	self assert: 45.0 equals: result!

Item was added:
+ ----- Method: FFIPluginTests>>testFloats (in category 'tests - atomics') -----
+ testFloats
+ 
+ 	| result |
+ 	result :=self invoke: 'ffiTestFloats' with: $A with: 65.0.
+ 	self assert: 130.0 equals: result.!

Item was added:
+ ----- Method: FFIPluginTests>>testFloats13 (in category 'tests - atomics') -----
+ testFloats13
+ 
+ 	| result n args |
+ 	n := 13.
+ 	args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: n.
+ 	result := self invoke: 'ffiTestFloats13' withArguments: args.
+ 	self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)!

Item was removed:
- ----- Method: FFIPluginTests>>testFloats13Sum (in category 'tests') -----
- testFloats13Sum
- 	"Test using generic FFI spec"
- 	| result meth n args |
- 	meth := ExternalLibraryFunction
- 				name:'ffiTestFloats13' module: FFITestLibrary moduleName
- 				callType: 0 returnType: ExternalType float
- 				argumentTypes: (Array new: (n := 13) withAll: ExternalType float).
- 	args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: 13.
- 	result := meth invokeWithArguments: args.
- 	self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)!

Item was added:
+ ----- Method: FFIPluginTests>>testFloats14 (in category 'tests - atomics') -----
+ testFloats14
+ 
+ 	| result n args |
+ 	n := 14.
+ 	args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: n.
+ 	result := self invoke: 'ffiTestFloats14' withArguments: args.
+ 	self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)!

Item was added:
+ ----- Method: FFIPluginTests>>testFloats7 (in category 'tests - atomics') -----
+ testFloats7
+ 
+ 	| result n args |
+ 	n := 7.
+ 	args := (123.456 to: 3.21 * 13 + 123.456 by: 3.21) asArray first: n.
+ 	result := self invoke: 'ffiTestFloats7' withArguments: args.
+ 	self assert: (result between: args sum - 0.0005 and: args sum + 0.0005)!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericBoolCall (in category 'tests') -----
- testGenericBoolCall
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestBool: true with: false with: true with: false.
- 	self assert: result.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericBoolCall2 (in category 'tests') -----
- testGenericBoolCall2
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestBool: false with: false with: true with: true.
- 	self deny: result.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericBoolCall3 (in category 'tests') -----
- testGenericBoolCall3
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestBool: -1 with: 1 with: 0 with: 0.
- 	self deny: result.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericCharCall (in category 'tests') -----
- testGenericCharCall
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestChar: $A with: 65 with: 65.0 with: true.
- 	self assert: result isCharacter.
- 	self assert: result asciiValue = 130.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericDoubleCall (in category 'tests') -----
- testGenericDoubleCall
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestDoubles: $A with: 65.0.
- 	self assert: result = 130.0!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericDoubleCall2 (in category 'tests') -----
- testGenericDoubleCall2
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestDoubles9: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0.
- 	self assert: result = 45.0!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericFloatCall (in category 'tests') -----
- testGenericFloatCall
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestFloats: $A with: 65.0.
- 	self assert: result = 130.0!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericIntCall (in category 'tests') -----
- testGenericIntCall
- 	"Test using generic FFI spec"
- 	| result |
- 	self flag: #ffiLongVsInt.
- 	result := FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true.
- 	self assert: result = 130.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericLongCall (in category 'tests') -----
- testGenericLongCall
- 	"Test using generic FFI spec"
- 	| result |
- 	self flag: #ffiLongVsInt.
- 	result := FFITestLibrary ffiTestLong: $A with: 65 with: 65.0 with: true.
- 	self assert: result = 130.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericMixedDoublesIntAndStruct (in category 'tests') -----
- testGenericMixedDoublesIntAndStruct
- 	"Test using generic FFI spec"
- 	| result i struct |
- 	i := 42.
- 	struct := FFITestPoint4 new.
- 	struct x: 1. struct y: 2. struct z: 3. struct w: 4.
- 	result := FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0 i: 42 s: struct.
- 	self assert: (result closeTo: 45.0 + 42 + 10) !

Item was removed:
- ----- Method: FFIPluginTests>>testGenericMixedFloatsAndDouble (in category 'tests') -----
- testGenericMixedFloatsAndDouble
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestMixedFloatsAndDouble: 1.2 with: 3.4 with: 5.6 with: 7.8.
- 	self assert: (result closeTo: 1.2 + 3.4 + 5.6 + 7.8) !

Item was removed:
- ----- Method: FFIPluginTests>>testGenericPrintString (in category 'tests') -----
- testGenericPrintString
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiPrintString:'Hello World!!'.
- 	self assert: result = 'Hello World!!'.!

Item was removed:
- ----- Method: FFIPluginTests>>testGenericShortCall (in category 'tests') -----
- testGenericShortCall
- 	"Test using generic FFI spec"
- 	| result |
- 	result := FFITestLibrary ffiTestShort: $A with: 65 with: 65.0 with: true.
- 	self assert: result = 130.!

Item was changed:
  ----- Method: FFIPluginTests>>testIntAliasCallReturnIntAlias (in category 'tests - type alias') -----
  testIntAliasCallReturnIntAlias
  
  	| result |
  	result := FFITestLibrary
+ 		ffiTestIntAlias4IntAliasSum: (FFITestIntAlias fromHandle: 1)
- 		ffiTestIntAlias4IntSum: (FFITestIntAlias fromHandle: 1)
  		with: (FFITestIntAlias fromHandle: 2)
  		with: (FFITestIntAlias fromHandle: 3)
  		with: (FFITestIntAlias fromHandle: 4).
  	self
  		assert: (result isKindOf: FFITestIntAlias);
  		assert: 10 equals: result value.!

Item was added:
+ ----- Method: FFIPluginTests>>testInts (in category 'tests - atomics') -----
+ testInts
+ 
+ 	| result |
+ 	result := self invoke: 'ffiTestInts' with: $A with: 65 with: 65.0 with: true.
+ 	self assert: 	$A asInteger + 65 equals: result.
+ !

Item was added:
+ ----- Method: FFIPluginTests>>testInts8 (in category 'tests - other') -----
+ testInts8
+ 
+ 	| result n interval |
+ 	n := 8.
+ 	interval := 1 - n * n to: n * n by: 2 * n + 1.
+ 	result := self invoke: 'ffiTestInts8' withArguments: interval asArray.
+ 	self assert: 42 equals: result!

Item was removed:
- ----- Method: FFIPluginTests>>testLibraryCharCall (in category 'tests - library') -----
- testLibraryCharCall
- 	"Test using call from ExternalLibrary"
- 	| result |
- 	result := FFITestLibrary new ffiTestChar: $A with: 65 with: 65.0 with: true.
- 	self assert: result isCharacter.
- 	self assert: result asciiValue = 130.!

Item was removed:
- ----- Method: FFIPluginTests>>testLibraryDoubleCall (in category 'tests - library') -----
- testLibraryDoubleCall
- 	"Test using call from ExternalLibrary"
- 	| result |
- 	result := FFITestLibrary new ffiTestDoubles: $A with: 65.0.
- 	self assert: result = 130.0!

Item was removed:
- ----- Method: FFIPluginTests>>testLibraryFloatCall (in category 'tests - library') -----
- testLibraryFloatCall
- 	"Test using call from ExternalLibrary"
- 	| result |
- 	result := FFITestLibrary new ffiTestFloats: $A with: 65.0.
- 	self assert: result = 130.0!

Item was removed:
- ----- Method: FFIPluginTests>>testLibraryIntCall (in category 'tests - library') -----
- testLibraryIntCall
- 	"Test using call from ExternalLibrary"
- 	| result |
- 	result := FFITestLibrary new ffiTestInt: $A with: 65 with: 65.0 with: true.
- 	self assert: result = 130.!

Item was removed:
- ----- Method: FFIPluginTests>>testLibraryPrintString (in category 'tests - library') -----
- testLibraryPrintString
- 	"Test using call from ExternalLibrary"
- 	| result |
- 	result := FFITestLibrary new ffiPrintString:'Hello World!!'.
- 	self assert: result = 'Hello World!!'.!

Item was added:
+ ----- Method: FFIPluginTests>>testLongLong (in category 'tests - atomics') -----
+ testLongLong
+ 	"Test passing and returning longlongs"
+ 	| long1 long2 long3 |
+ 	long1 := 16r123456789012.
+ 	long2 := (-1 << 31).
+ 	long3 := self invoke: 'ffiTestLongLong' with: long1 with: long2.
+ 	self assert: (long1 + long2) equals: long3.!

Item was added:
+ ----- Method: FFIPluginTests>>testLongLong8 (in category 'tests - atomics') -----
+ testLongLong8
+ 
+ 	| long1 long2 bytes result |
+ 	bytes := (1 to: 8) asArray.
+ 	long1 := 16r123456789012.
+ 	long2 := (-1 << 31).
+ 	result := self invoke: 'ffiTestLongLong8' withArguments: bytes, { long1 . long2 }.
+ 	self assert: (bytes sum + long1 + long2) equals: result.!

Item was added:
+ ----- Method: FFIPluginTests>>testLongLong8a1 (in category 'tests - atomics') -----
+ testLongLong8a1
+ 
+ 	| long1 long2 bytes result |
+ 	bytes := (1 to: 9) asArray.
+ 	long1 := 16r123456789012.
+ 	long2 := (-1 << 31).
+ 	result := self invoke: 'ffiTestLongLong8a1' withArguments: bytes, { long1 . long2 }.
+ 	self assert: (bytes sum + long1 + long2) equals: result.!

Item was added:
+ ----- Method: FFIPluginTests>>testLongLong8a2 (in category 'tests - atomics') -----
+ testLongLong8a2
+ 
+ 	| long1 long2 bytes result |
+ 	bytes := (1 to: 10) asArray.
+ 	long1 := 16r123456789012.
+ 	long2 := (-1 << 31).
+ 	result := self invoke: 'ffiTestLongLong8a2' withArguments: bytes, { long1 . long2 }.
+ 	self assert: (bytes sum + long1 + long2) equals: result.!

Item was changed:
+ ----- Method: FFIPluginTests>>testLongLongA1 (in category 'tests - atomics') -----
- ----- Method: FFIPluginTests>>testLongLongA1 (in category 'tests') -----
  testLongLongA1
  	"Test passing a char and two longlongs."
+ 	
+ 	| byte long1 long2 result |
- 	| byte long1 long2 long3 |
  	byte := 42.
  	long1 := 16r123456789012.
  	long2 := (-1 << 31).
+ 	result := self invoke: 'ffiTestLongLonga1' with: byte with: long1 with: long2.
+ 	self assert: (byte + long1 + long2) equals: result.!
- 	long3 := FFITestLibrary ffiTestLongLongA1: byte with: long1 with: long2.
- 	self assert: long3 = (byte + long1 + long2)!

Item was added:
+ ----- Method: FFIPluginTests>>testLongLongA2 (in category 'tests - atomics') -----
+ testLongLongA2
+ 
+ 	| byte1 byte2 long1 long2 result |
+ 	byte1 := 3.
+ 	byte2 := 4.
+ 	long1 := 16r123456789012.
+ 	long2 := (-1 << 31).
+ 	result := self invoke: 'ffiTestLongLonga2' with: byte1 with: byte2 with: long1 with: long2.
+ 	self assert: (byte1 + byte2 + long1 + long2) equals: result.!

Item was changed:
+ ----- Method: FFIPluginTests>>testLongLongA3 (in category 'tests - atomics') -----
- ----- Method: FFIPluginTests>>testLongLongA3 (in category 'tests') -----
  testLongLongA3
  	"Test passing a char, a longlong, and another char."
+ 	| byte1 long1 byte2 result |
- 	| byte1 long1 byte2 long2 |
  	byte1 := 3.
  	long1 := 16r123456789012.
  	byte2 := 4.
+ 	result := self invoke: 'ffiTestLongLonga3' with: byte1 with: long1 with: byte2.
+ 	self assert: (byte1 + long1 + byte2) equals: result.!
- 	long2 := FFITestLibrary ffiTestLongLongA3: byte1 with: long1 with: byte2.
- 	self assert: long2 = (byte1 + long1 + byte2)!

Item was removed:
- ----- Method: FFIPluginTests>>testLongLongs (in category 'tests') -----
- testLongLongs
- 	"Test passing and returning longlongs"
- 	| long1 long2 long3 |
- 	long1 := 16r123456789012.
- 	long2 := (-1 << 31).
- 	long3 := FFITestLibrary ffiTestLongLong: long1 with: long2.
- 	self assert: long3 = (long1 + long2)!

Item was added:
+ ----- Method: FFIPluginTests>>testLongLongs8 (in category 'tests - other') -----
+ testLongLongs8
+ 
+ 	| result n interval |
+ 	n := 8.
+ 	interval := 1 - n * n << 32 + (1 - n * n) to: n * n - n << 32 + (3 * n * n) by: 2 * n << 32 + (3 * n).
+ 	result := self invoke: 'ffiTestLongLongs8' withArguments: interval asArray.
+ 	self assert: 42 equals: result!

Item was changed:
+ ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'tests - atomics') -----
- ----- Method: FFIPluginTests>>testMixedDoublesAndLongsSum (in category 'tests') -----
  testMixedDoublesAndLongsSum
+ 
+ 	| result n args |
+ 	n := 20.
- 	"Test using generic FFI spec"
- 	| result meth n args |
- 	meth := ExternalLibraryFunction
- 				name:'ffiTestMixedDoublesAndLongs' module: FFITestLibrary moduleName
- 				callType: 0 returnType: ExternalType double
- 				argumentTypes: ((1 to: (n := 20)) collect:[:i| i odd ifTrue: [ExternalType double] ifFalse: [ExternalType c_long]]).
  	args := (1 to: n) collect: [:i| i odd ifTrue: [(i // 2) odd ifTrue: [123.456 * (10 raisedTo: i)] ifFalse: [-654.321 * (10 raisedTo: i)]] ifFalse: [(i // 2) odd ifTrue: [54321 * i] ifFalse: [-54321 * i]]].
+ 	result := self invoke: 'ffiTestMixedDoublesAndLongs' withArguments: args asArray.
- 	result := meth invokeWithArguments: args asArray.
  	self assert: args sum equals: result!

Item was added:
+ ----- Method: FFIPluginTests>>testMixedDoublesIntAndStruct (in category 'tests - atomics') -----
+ testMixedDoublesIntAndStruct
+ 
+ 	| result i struct |
+ 	i := 42.
+ 	struct := FFITestPoint4 new.
+ 	struct x: 1. struct y: 2. struct z: 3. struct w: 4.
+ 	result := self
+ 		invoke: 'ffiTestMixedDoublesIntAndStruct'
+ 		withArguments: { 1.0 . 2.0 . 3.0 . 4.0 . 5.0 . 6.0 . 7.0 . 8.0 . 9.0 . 42 . struct }.
+ 	self assert: (result closeTo: 45.0 + 42 + 10).!

Item was added:
+ ----- Method: FFIPluginTests>>testMixedFloatsAndDouble (in category 'tests - atomics') -----
+ testMixedFloatsAndDouble
+ 
+ 	| result |
+ 	result := self invoke: 'ffiTestMixedFloatsAndDouble' with: 1.2 with: 3.4 with: 5.6 with: 7.8.
+ 	self assert: (result closeTo: 1.2 + 3.4 + 5.6 + 7.8) !

Item was changed:
  ----- Method: FFIPluginTests>>testMixedIntAndStruct (in category 'tests - structure') -----
  testMixedIntAndStruct
  	"Test passing an integer and two structures."
  	| i1 pt1 pt2 result |
  	i1 := 42.
  	pt1 := FFITestPoint2 new.
  	pt1 x: 3. pt1 y: 4.
  	pt2 := FFITestPoint2 new.
  	pt2 x: 5. pt2 y: 6.
+ 	result := self invoke: 'ffiTestMixedIntAndStruct' with: i1 with: pt1 with: pt2.
+ 	self assert: 60 equals: result.!
- 	result := FFITestLibrary ffiTestMixedIntAndStruct: i1 with: pt1 with: pt2.
- 	self assert: result = 60.!

Item was changed:
  ----- Method: FFIPluginTests>>testMixedIntAndStruct2 (in category 'tests - structure') -----
  testMixedIntAndStruct2
  	"Test passing an integer and two structures."
  	| i1 pt1 result |
  	i1 := 42.
  	pt1 := FFITestPoint4 new.
  	pt1 x: 3. pt1 y: 4. pt1 z: 5. pt1 w: 6.
+ 	result := self invoke: 'ffiTestMixedIntAndStruct2' with: i1 with: pt1.
+ 	self assert: 60 equals: result.!
- 	result := FFITestLibrary ffiTestMixedIntAndStruct2: i1 with: pt1.
- 	self assert: result = 60.!

Item was changed:
  ----- Method: FFIPluginTests>>testMixedIntAndStruct3 (in category 'tests - structure') -----
  testMixedIntAndStruct3
  	"Test passing an integer and a small structure."
  	| i1 pt1 result |
  	i1 := 42.
  	pt1 := FFISmallStruct1 new.
  	pt1 x: 3. pt1 y: 4.
+ 	result := self invoke: 'ffiTestMixedIntAndStruct3' with: i1 with: pt1.
+ 	self assert: 49 equals: result.!
- 	result := FFITestLibrary ffiTestMixedIntAndStruct3: i1 with: pt1.
- 	self assert: result = 49!

Item was changed:
  ----- Method: FFIPluginTests>>testPoint2 (in category 'tests - structure') -----
  testPoint2
  	"Test passing and returning up of structures >32bit and <= 64 bit"
  	| pt1 pt2 pt3 |
  	pt1 := FFITestPoint2 new.
  	pt1 x: 1. pt1 y: 2.
  	pt2 := FFITestPoint2 new.
  	pt2 x: 3. pt2 y: 4.
+ 	pt3 := self invoke: 'ffiTestStruct64' with: pt1 with: pt2.
- 	pt3 := FFITestLibrary ffiTestPoint2: pt1 with: pt2.
  	self assert: pt3 x = 4.
  	self assert: pt3 y = 6.!

Item was changed:
  ----- Method: FFIPluginTests>>testPoint4 (in category 'tests - structure') -----
  testPoint4
  	"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 := self invoke: 'ffiTestStructBig' with: pt1 with: pt2.
- 	pt3 := FFITestLibrary ffiTestPoint4: pt1 with: pt2.
  	self assert: pt3 x = 6.
  	self assert: pt3 y = 8.
  	self assert: pt3 z = 10.
  	self assert: pt3 w = 12.!

Item was added:
+ ----- Method: FFIPluginTests>>testPoint4Bigger (in category 'tests - structure') -----
+ testPoint4Bigger
+ 	"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 := self invoke: 'ffiTestStructBigger' with: pt1 with: pt2.
+ 	self assert: pt3 x equals: pt1 x.
+ 	self assert: pt3 y equals: pt1 y.
+ 	self assert: pt3 z equals: pt1 z.
+ 	self assert: pt3 w equals: pt1 w.
+ 	self assert: pt3 r equals: pt2 x.
+ 	self assert: pt3 s equals: pt2 y.
+ 	self assert: pt3 t equals: pt2 z.
+ 	self assert: pt3 u equals: pt2 w.
+ !

Item was changed:
  ----- Method: FFIPluginTests>>testPointers (in category 'tests - structure') -----
  testPointers
  	"Test passing and returning of pointers to structs"
  	| 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 := heapObject := self invoke: 'ffiTestPointers' with: pt1 with: pt2.
- 	pt3 := FFITestLibrary ffiTestPointers: pt1 with: pt2.
  	self assert: pt3 x = 6.
  	self assert: pt3 y = 8.
  	self assert: pt3 z = 10.
  	self assert: pt3 w = 12.!

Item was added:
+ ----- Method: FFIPluginTests>>testPrintString (in category 'tests - other') -----
+ testPrintString
+ 
+ 	| result |
+ 	result := self invoke: 'ffiPrintString' with: 'Hello World!!'.
+ 	self assert: result = 'Hello World!!'.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUdSi2 (in category 'tests - union') -----
  testReturnStructPassingUnionUfdUdSi2
  	"Test returning struct made from 2 unions"
  	| ufd udSi2 sUfdUdSi2 |
+ 	ufd := self invoke: 'ffiTestInitUfd_d' with: Float pi.
+ 	udSi2 := self invoke: 'ffiTestInitUdSi2_ii' with: 1 with: 2.
+ 	sUfdUdSi2 := self invoke: 'ffiTestInitSUfdUdSi2' with: ufd with: udSi2.
- 	ufd := FFITestLibrary ffiTestInitUfdWithDouble: Float pi.
- 	udSi2 := FFITestLibrary ffiTestInitUdSi2WithInt: 1 int: 2.
- 	sUfdUdSi2 := FFITestLibrary ffiTestInitSUfd: ufd udSi2: udSi2.
  	self assert: Float pi equals: sUfdUdSi2 ufd1 d1.
  	self assert: 1 equals: sUfdUdSi2 udSii2 sii1 i1.
  	self assert: 2 equals: sUfdUdSi2 udSii2 sii1 i2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructPassingUnionUfdUfi (in category 'tests - union') -----
  testReturnStructPassingUnionUfdUfi
  	"Test returning struct made from 2 unions"
  	| ufd ufi sUfdUfi |
+ 	ufd := self invoke: 'ffiTestInitUfd_d' with: Float pi.
+ 	ufi := self invoke: 'ffiTestInitUfi_i' with: 1.
+ 	sUfdUfi := self invoke: 'ffiTestInitSUfdUfi' with: ufd with: ufi.
- 	ufd := FFITestLibrary ffiTestInitUfdWithDouble: Float pi.
- 	ufi := FFITestLibrary ffiTestInitUfiWithInt: 1.
- 	sUfdUfi := FFITestLibrary ffiTestInitSUfd: ufd ufi: ufi.
  	self assert: Float pi equals: sUfdUfi ufd1 d1.
  	self assert: 1 equals: sUfdUfi ufi2 i1.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSSdi5 (in category 'tests - structure') -----
  testReturnStructSSdi5
  	"Test returning struct with five struct double int (64 + 32 bits)"
  	| ssdi5 |
+ 	ssdi5 := self invoke: 'ffiTestReturnSSdi5'.
- 	ssdi5 := FFITestLibrary ffiTestReturnSSdi5.
  	self assert: ssdi5 sdi1 d1 = 1.0.
  	self assert: ssdi5 sdi2 d1 = 2.0.
  	self assert: ssdi5 sdi3 d1 = 3.0.
  	self assert: ssdi5 sdi4 d1 = 4.0.
  	self assert: ssdi5 sdi5 d1 = 5.0.
  	self assert: ssdi5 sdi1 i2 = 1.
  	self assert: ssdi5 sdi2 i2 = 2.
  	self assert: ssdi5 sdi3 i2 = 3.
  	self assert: ssdi5 sdi4 i2 = 4.
  	self assert: ssdi5 sdi5 i2 = 5.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSd2 (in category 'tests - structure') -----
  testReturnStructSd2
  	"Test returning struct with two double"
  	| sd2 |
+ 	sd2 := self invoke: 'ffiTestReturnSd2'.
- 	sd2 := FFITestLibrary ffiTestReturnSd2.
  	self assert: sd2 d1 = 1.0.
  	self assert: sd2 d2 = 2.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSdi (in category 'tests - structure') -----
  testReturnStructSdi
  	"Test returning struct double int (64 + 32 bits)"
  	| sdi |
+ 	sdi := self invoke: 'ffiTestReturnSdi'.
- 	sdi := FFITestLibrary ffiTestReturnSdi.
  	self assert: sdi d1 = 1.0.
  	self assert: sdi i2 = 2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSf2 (in category 'tests - structure') -----
  testReturnStructSf2
  	"Test returning struct with two float"
  	| sf2 |
+ 	sf2 := self invoke: 'ffiTestReturnSf2'.
- 	sf2 := FFITestLibrary ffiTestReturnSf2.
  	self assert: sf2 f1 = 1.0.
  	self assert: sf2 f2 = 2.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSf2d (in category 'tests - structure') -----
  testReturnStructSf2d
  	"Test returning struct with two float one double"
  	| sf2d |
+ 	sf2d := self invoke: 'ffiTestReturnSf2d'.
- 	sf2d := FFITestLibrary ffiTestReturnSf2d.
  	self assert: sf2d f1 = 1.0.
  	self assert: sf2d f2 = 2.0.
  	self assert: sf2d d3 = 3.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSf4 (in category 'tests - structure') -----
  testReturnStructSf4
  	"Test returning struct with four float"
  	| sf4 |
+ 	sf4 := self invoke: 'ffiTestReturnSf4'.
- 	sf4 := FFITestLibrary ffiTestReturnSf4.
  	self assert: sf4 f1 = 1.0.
  	self assert: sf4 f2 = 2.0.
  	self assert: sf4 f3 = 3.0.
  	self assert: sf4 f4 = 4.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSfdf (in category 'tests - structure') -----
  testReturnStructSfdf
  	"Test returning struct with float double float"
  	| sfdf |
+ 	sfdf := self invoke: 'ffiTestReturnSfdf'.
- 	sfdf := FFITestLibrary ffiTestReturnSfdf.
  	self assert: sfdf f1 = 1.0.
  	self assert: sfdf d2 = 2.0.
  	self assert: sfdf f3 = 3.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSfi (in category 'tests - structure') -----
  testReturnStructSfi
  	"Test returning struct with float int (32 + 32 bits)"
  	| sfi |
+ 	sfi := self invoke: 'ffiTestReturnSfi'.
- 	sfi := FFITestLibrary ffiTestReturnSfi.
  	self assert: sfi f1 = 1.0.
  	self assert: sfi i2 = 2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSi2 (in category 'tests - structure') -----
  testReturnStructSi2
  	"Test returning struct with two int (32 bits)"
  	| si2 |
+ 	si2 := self invoke: 'ffiTestReturnSi2'.
- 	si2 := FFITestLibrary ffiTestReturnSi2.
  	self assert: si2 i1 = 1.
  	self assert: si2 i2 = 2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSl2 (in category 'tests - structure') -----
  testReturnStructSl2
  	"Test returning struct with two long long int (64 bits)"
  	| sl2 |
+ 	sl2 := self invoke: 'ffiTestReturnSl2'.
- 	sl2 := FFITestLibrary ffiTestReturnSl2.
  	self assert: sl2 l1 = 1.
  	self assert: sl2 l2 = 2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSs2 (in category 'tests - structure') -----
  testReturnStructSs2
  	"Test returning struct with two short int (16 bits)"
  	| ss2 |
+ 	ss2 := self invoke: 'ffiTestReturnSs2'.
- 	ss2 := FFITestLibrary ffiTestReturnSs2.
  	self assert: ss2 s1 = 1.
  	self assert: ss2 s2 = 2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSs2i (in category 'tests - structure') -----
  testReturnStructSs2i
  	"Test returning struct with two short int (16 bits) one int (32 bits)"
  	| ss2i |
+ 	ss2i := self invoke: 'ffiTestReturnSs2i'.
- 	ss2i := FFITestLibrary ffiTestReturnSs2i.
  	self assert: ss2i s1 = 1.
  	self assert: ss2i s2 = 2.
  	self assert: ss2i i3 = 3.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSs4 (in category 'tests - structure') -----
  testReturnStructSs4
  	"Test returning struct with four short int (16 bits)"
  	| ss4 |
+ 	ss4 := self invoke: 'ffiTestReturnSs4'.
- 	ss4 := FFITestLibrary ffiTestReturnSs4.
  	self assert: ss4 s1 = 1.
  	self assert: ss4 s2 = 2.
  	self assert: ss4 s3 = 3.
  	self assert: ss4 s4 = 4.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSsSsf (in category 'tests - structure') -----
  testReturnStructSsSsf
  	"Test returning struct with short and sub structure short-float"
  	| ssSsf |
+ 	ssSsf := self invoke: 'ffiTestReturnSsSsf'.
- 	ssSsf := FFITestLibrary ffiTestReturnSsSsf.
  	self assert: ssSsf s1 = 1.
  	self assert: ssSsf ssf2 s1 = 2.
  	self assert: ssSsf ssf2 f2 = 3.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSsSsi (in category 'tests - structure') -----
  testReturnStructSsSsi
  	"Test returning struct with short and sub structure short-int"
  	| ssSsi |
+ 	ssSsi := self invoke: 'ffiTestReturnSsSsi'.
- 	ssSsi := FFITestLibrary ffiTestReturnSsSsi.
  	self assert: ssSsi s1 = 1.
  	self assert: ssSsi ssi2 s1 = 2.
  	self assert: ssSsi ssi2 i2 = 3.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSsf (in category 'tests - structure') -----
  testReturnStructSsf
  	"Test returning struct with short float (16 + 32 bits)"
  	| ssf |
+ 	ssf := self invoke: 'ffiTestReturnSsf'.
- 	ssf := FFITestLibrary ffiTestReturnSsf.
  	self assert: ssf s1 = 1.
  	self assert: ssf f2 = 2.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSsi (in category 'tests - structure') -----
  testReturnStructSsi
  	"Test returning struct with short int (16 + 32 bits)"
  	| ssi |
+ 	ssi := self invoke: 'ffiTestReturnSsi'.
- 	ssi := FFITestLibrary ffiTestReturnSsi.
  	self assert: ssi s1 = 1.
  	self assert: ssi i2 = 2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSsis (in category 'tests - structure') -----
  testReturnStructSsis
  	"Test returning struct with short int short (16 + 32 + 16 bits)"
  	| ssis |
+ 	ssis := self invoke: 'ffiTestReturnSsis'.
- 	ssis := FFITestLibrary ffiTestReturnSsis.
  	self assert: ssis s1 = 1.
  	self assert: ssis i2 = 2.
  	self assert: ssis s3 = 3.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSslf (in category 'tests - structure') -----
  testReturnStructSslf
  	"Test returning struct with short longlong float (16 + 64 + 32 bits)"
  	| sslf |
+ 	sslf := self invoke: 'ffiTestReturnSslf'.
- 	sslf := FFITestLibrary ffiTestReturnSslf.
  	self assert: sslf s1 = 1.
  	self assert: sslf l2 = 2.
  	self assert: sslf f3 = 3.0.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnStructSsls (in category 'tests - structure') -----
  testReturnStructSsls
  	"Test returning struct with short longlong short (16 + 64 + 16 bits)"
  	| ssls |
+ 	ssls := self invoke: 'ffiTestReturnSsls'.
- 	ssls := FFITestLibrary ffiTestReturnSsls.
  	self assert: ssls s1 = 1.
  	self assert: ssls l2 = 2.
  	self assert: ssls s3 = 3.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnUnionUdSi2 (in category 'tests - union') -----
  testReturnUnionUdSi2
  	"Test returning union with double or 2 int (64 or 64 bits)"
  	| udSi2 |
+ 	udSi2 := self invoke: 'ffiTestInitUdSi2_d' with: Float pi.
- 	udSi2 := FFITestLibrary ffiTestInitUdSi2WithDouble: Float pi.
  	self assert: Float pi equals: udSi2 d1.
  	self assert: (Float pi basicAt: 1) equals: udSi2 sii1 i2. "Assume Little Endianness"
  	self assert: (Float pi basicAt: 2) equals: udSi2 sii1 i1.
+ 	udSi2 := self invoke: 'ffiTestInitUdSi2_ii' with: 1 with: 2.
- 	udSi2 := FFITestLibrary ffiTestInitUdSi2WithInt: 1 int: 2.
  	self assert: 1 equals: udSi2 sii1 i1.
  	self assert: 2 equals: udSi2 sii1 i2.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnUnionUfd (in category 'tests - union') -----
  testReturnUnionUfd
  	"Test returning union with float or double (32 or 64 bits)"
  	| ufd |
+ 	ufd := self invoke: 'ffiTestInitUfd_f' with: 1.0.
- 	ufd := FFITestLibrary ffiTestInitUfdWithFloat: 1.0.
  	self assert: 1.0 equals: ufd f1.
+ 	ufd := self invoke: 'ffiTestInitUfd_d' with: 2.0.
- 	ufd := FFITestLibrary ffiTestInitUfdWithDouble: 2.0.
  	self assert: 2 equals: ufd d1.!

Item was changed:
  ----- Method: FFIPluginTests>>testReturnUnionUfi (in category 'tests - union') -----
  testReturnUnionUfi
  	"Test returning union with float or int (32 or 32 bits)"
  	| ufi |
+ 	ufi := self invoke: 'ffiTestInitUfi_f' with: 1.0.
- 	ufi := FFITestLibrary ffiTestInitUfiWithFloat: 1.0.
  	self assert: 1.0 equals: ufi f1.
  	self assert: 1.0 asIEEE32BitWord equals: ufi i1.
+ 	ufi := self invoke: 'ffiTestInitUfi_i' with: 2.
- 	ufi := FFITestLibrary ffiTestInitUfiWithInt: 2.
  	self assert: 2 equals: ufi i1.!

Item was added:
+ ----- Method: FFIPluginTests>>testShorts (in category 'tests - atomics') -----
+ testShorts
+ 	
+ 	| result |
+ 	result := self invoke: 'ffiTestShorts' with: $A with: 65 with: 65.0 with: true.
+ 	self assert: 130 equals: result.!

Item was changed:
  ----- Method: FFIPluginTests>>testSmallStructureReturn (in category 'tests - structure') -----
  testSmallStructureReturn
  	"Test returning small structures (<4 bytes) which are returned in a register on some platforms."
  	| pt1 |
  
+ 	pt1 := self invoke: 'ffiTestSmallStructReturn'.
- 	pt1 := FFITestLibrary ffiTestSmallStructReturn.
  	self assert: pt1 x = 3.
  	self assert: pt1 y = 4.!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSSdi5 (in category 'tests - structure') -----
  testSumStructSSdi5
  	"Test passing a structure larger than 8 eighbytes"
  	| sdi1 sdi2 sdi3 sdi4 sdi5 ssdi5 sum |
  	sdi1 := FFITestSdi new.
  	sdi1 d1: 0.5; i2: 16r12345678.
  	sdi2 := FFITestSdi new.
  	sdi2 d1: 0.25; i2: 16r01234567.
  	sdi3 := FFITestSdi new.
  	sdi3 d1: 0.125; i2: 3.
  	sdi4 := FFITestSdi new.
  	sdi4 d1: 2.0; i2: 1.
  	sdi5 := FFITestSdi new.
  	sdi5 d1: 4.0; i2: 2.
  	ssdi5 := FFITestSSdi5 new.
  	ssdi5 sdi1: sdi1; sdi2: sdi2; sdi3: sdi3; sdi4: sdi4; sdi5: sdi5.
+ 	sum := self invoke: 'ffiTestSumSSdi5' with: ssdi5.
- 	sum := FFITestLibrary ffiTestSumStructSdi5: ssdi5.
  	self assert: 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 + 4.0 + 2 equals: sum!

Item was added:
+ ----- Method: FFIPluginTests>>testSumStructSUfdUdsi2 (in category 'tests - structure') -----
+ testSumStructSUfdUdsi2
+ 	"Sum up the double parts of two unions in a struct. We have to malloc because we cannot (yet?) share parts of byte arrays between structures."
+ 	
+ 	| sUfdUdsi2 sum |
+ 	sUfdUdsi2 := heapObject := FFITestSUfdUdSi2 externalNew.
+ 	sUfdUdsi2 ufd1 d1: 123.456.
+ 	sUfdUdsi2 udSii2 d1: 456.123.
+ 	sum := self invoke: 'ffiTestSumSUfdUdSi2_d' with: sUfdUdsi2.
+ 	self assert: 123.456 + 456.123 equals: sum.!

Item was added:
+ ----- Method: FFIPluginTests>>testSumStructSUfdUfi (in category 'tests - structure') -----
+ testSumStructSUfdUfi
+ 	"Sum up the float parts of two unions in a struct. We have to malloc because we cannot (yet?) share parts of byte arrays between structures."
+ 
+ 	| sUfdUdsi2 result expected |
+ 	sUfdUdsi2 := heapObject := FFITestSUfdUfi externalNew.
+ 	sUfdUdsi2 ufd1 f1: 123.456.
+ 	sUfdUdsi2 ufi2 f1: 456.123.
+ 	result := self invoke: 'ffiTestSumSUfdUfi_f' with: sUfdUdsi2.
+ 	expected := 123.456 + 456.123.
+ 	self assert: (result between: expected - 0.0005 and: expected + 0.0005).!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSdi (in category 'tests - structure') -----
  testSumStructSdi
  	"Test passing structure double int"
  	| sdi sum |
  	sdi := FFITestSdi new.
  	sdi d1: 0.5; i2: 16r12345678.
+ 	sum := self invoke: 'ffiTestSumSdi' with: sdi.
- 	sum := FFITestLibrary ffiTestSumSdi: sdi.
  	self assert: 0.5 + 16r12345678 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSdi2 (in category 'tests - structure') -----
  testSumStructSdi2
  	"Test passing 2 structure double int"
  	| sdi1 sdi2 sum |
  	sdi1 := FFITestSdi new.
  	sdi1 d1: 0.5; i2: 16r12345678.
  	sdi2 := FFITestSdi new.
  	sdi2 d1: 0.25; i2: 16r01234567.
+ 	sum := self invoke: 'ffiTestSumSdi_2' with: sdi1 with: sdi2.
- 	sum := FFITestLibrary ffiTestSumSdi: sdi1 sdi: sdi2.
  	self assert: 0.5 + 16r12345678 + 0.25 + 16r01234567 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSdi4 (in category 'tests - structure') -----
  testSumStructSdi4
  	"Test passing 4 structure double int"
  	| sdi1 sdi2 sdi3 sdi4 sum |
  	sdi1 := FFITestSdi new.
  	sdi1 d1: 0.5; i2: 16r12345678.
  	sdi2 := FFITestSdi new.
  	sdi2 d1: 0.25; i2: 16r01234567.
  	sdi3 := FFITestSdi new.
  	sdi3 d1: 0.125; i2: 3.
  	sdi4 := FFITestSdi new.
  	sdi4 d1: 2.0; i2: 1.
+ 	sum := self invoke: 'ffiTestSumSdi_4' with: sdi1 with: sdi2 with: sdi3 with: sdi4.
- 	sum := FFITestLibrary ffiTestSumSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4.
  	self assert: 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSfd (in category 'tests - structure') -----
  testSumStructSfd
  	"Test passing structure float double"
  	| sfd sum |
  	sfd := FFITestSfd new.
  	sfd f1: 0.5; d2: 305419896.0.
+ 	sum := self invoke: 'ffiTestSumSfd' with: sfd.
- 	sum := FFITestLibrary ffiTestSumSfd: sfd.
  	self assert: 0.5 + 305419896.0 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSfd2 (in category 'tests - structure') -----
  testSumStructSfd2
  	"Test passing 2 structure float double "
  	| sfd1 sfd2 sum |
  	sfd1 := FFITestSfd new.
  	sfd1 f1: 0.5; d2: 305419896.0.
  	sfd2 := FFITestSfd new.
  	sfd2 f1: 0.25; d2: 19088743.0.
+ 	sum := self invoke: 'ffiTestSumSfd_2' with: sfd1 with: sfd2.
- 	sum := FFITestLibrary ffiTestSumSfd: sfd1 sfd: sfd2.
  	self assert: 0.5 + 305419896.0 + 0.25 + 19088743.0 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSfd4 (in category 'tests - structure') -----
  testSumStructSfd4
  	"Test passing 4 structure float double"
  	| sfd1 sfd2 sfd3 sfd4 sum |
  	sfd1 := FFITestSfd new.
  	sfd1 f1: 0.5; d2: 305419896.0.
  	sfd2 := FFITestSfd new.
  	sfd2 f1: 0.25; d2: 19088743.0.
  	sfd3 := FFITestSfd new.
  	sfd3 f1: 0.125; d2: 3.
  	sfd4 := FFITestSfd new.
  	sfd4 f1: 2.0; d2: 1.
+ 	sum := self invoke: 'ffiTestSumSfd_4' with: sfd1 with: sfd2 with: sfd3 with: sfd4.
- 	sum := FFITestLibrary ffiTestSumSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4.
  	self assert: 0.5 + 305419896.0 + 0.25 + 19088743.0 + 0.125 + 3.0 + 2.0 + 1.0 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumStructSslf (in category 'tests - structure') -----
  testSumStructSslf
  	"Test passing structure short long float"
  	| sslf sum |
  	sslf := FFITestSslf new.
  	sslf s1: -32768; l2: 16r1234560000; f3: 65536.0.
+ 	sum := self invoke: 'ffiTestSumSslf' with: sslf.
- 	sum := FFITestLibrary ffiTestSumSslf: sslf.
  	self assert: -32768 + 16r1234560000 + 65536.0 equals: sum!

Item was added:
+ ----- Method: FFIPluginTests>>testSumStructSslf2 (in category 'tests - structure') -----
+ testSumStructSslf2
+ 	"Test passing structure short long float"
+ 	| sslf1 sslf2 sum |
+ 	sslf1 := FFITestSslf new.
+ 	sslf1 s1: -32768; l2: 16r123456789012; f3: 65536.0.
+ 	sslf2 := FFITestSslf new.
+ 	sslf2 s1: 32767; l2: (-1 << 31); f3: -65536.0.	
+ 	sum := self invoke: 'ffiTestSumSslf_2' with: sslf1 with: sslf2.
+ 	self
+ 		assert: sslf1 s1 + sslf1 l2 + sslf1 f3 + sslf2 s1 + sslf2 l2 + sslf2 f3
+ 		equals: sum!

Item was added:
+ ----- Method: FFIPluginTests>>testSumStructSslf4 (in category 'tests - structure') -----
+ testSumStructSslf4
+ 	"Test passing structure short long float"
+ 	| sslf1 sslf2 sslf3 sslf4 sum |
+ 	sslf1 := FFITestSslf new.
+ 	sslf1 s1: -32768; l2: 16r123456789012; f3: 65536.0.
+ 	sslf2 := FFITestSslf new.
+ 	sslf2 s1: 32767; l2: (-1 << 31); f3: -65536.0.
+ 	sslf3 := FFITestSslf new.
+ 	sslf3 s1: 1; l2: 16r123456789012; f3: 123.456.	
+ 	sslf4 := FFITestSslf new.
+ 	sslf4 s1: 2; l2: (-1 << 31); f3: 456.123.	
+ 	sum := self invoke: 'ffiTestSumSslf_2' with: sslf1 with: sslf2.
+ 	self
+ 		assert: sslf1 s1 + sslf1 l2 + sslf1 f3 + sslf2 s1 + sslf2 l2 + sslf2 f3
+ 			+ sslf3 s1 + sslf3 l2 + sslf3 f3 + sslf4 s1 + sslf4 l2 + sslf4 f3
+ 		equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumdWithStructSdi4 (in category 'tests - structure') -----
  testSumdWithStructSdi4
  	"Test passing 4 structure double int"
  	| sdi1 sdi2 sdi3 sdi4 sum |
  	sdi1 := FFITestSdi new.
  	sdi1 d1: 0.5; i2: 16r12345678.
  	sdi2 := FFITestSdi new.
  	sdi2 d1: 0.25; i2: 16r01234567.
  	sdi3 := FFITestSdi new.
  	sdi3 d1: 0.125; i2: 3.
  	sdi4 := FFITestSdi new.
  	sdi4 d1: 2.0; i2: 1.
+ 	sum := self invoke: 'ffiTestSumdWithSdi_4' with: 5.0 with: sdi1 with: sdi2 with: sdi3 with: sdi4.
- 	sum := FFITestLibrary ffiTestSumd: 5.0 withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4.
  	self assert: 5.0 + 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumdiWithStructSdi4 (in category 'tests - structure') -----
  testSumdiWithStructSdi4
  	"Test passing 4 structure double int"
  	| sdi1 sdi2 sdi3 sdi4 sum |
  	sdi1 := FFITestSdi new.
  	sdi1 d1: 0.5; i2: 16r12345678.
  	sdi2 := FFITestSdi new.
  	sdi2 d1: 0.25; i2: 16r01234567.
  	sdi3 := FFITestSdi new.
  	sdi3 d1: 0.125; i2: 3.
  	sdi4 := FFITestSdi new.
  	sdi4 d1: 2.0; i2: 1.
+ 	sum := self invoke: 'ffiTestSumdiWithSdi_4' withArguments: { 5.0 . 6 . sdi1 . sdi2 . sdi3 . sdi4 }.
- 	sum := FFITestLibrary ffiTestSumd: 5.0 i: 6 withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4.
  	self assert: 5.0 + 6 + 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumfWithStructSfd4 (in category 'tests - structure') -----
  testSumfWithStructSfd4
  	"Test passing 4 structure float double"
  	| sfd1 sfd2 sfd3 sfd4 sum |
  	sfd1 := FFITestSfd new.
  	sfd1 f1: 0.5; d2: 305419896.0.
  	sfd2 := FFITestSfd new.
  	sfd2 f1: 0.25; d2: 19088743.0.
  	sfd3 := FFITestSfd new.
  	sfd3 f1: 0.125; d2: 3.
  	sfd4 := FFITestSfd new.
  	sfd4 f1: 2.0; d2: 1.
+ 	sum := self invoke: 'ffiTestSumfWithSfd_4' with: 5.0 with: sfd1 with: sfd2 with: sfd3 with: sfd4.
- 	sum := FFITestLibrary ffiTestSumf: 5.0 withSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4.
  	self assert: 5.0 + 0.5 + 305419896.0 + 0.25 + 19088743.0 + 0.125 + 3.0 + 2.0 + 1.0 equals: sum!

Item was changed:
  ----- Method: FFIPluginTests>>testSumiWithStructSdi4 (in category 'tests - structure') -----
  testSumiWithStructSdi4
  	"Test passing 4 structure double int"
  	| sdi1 sdi2 sdi3 sdi4 sum |
  	sdi1 := FFITestSdi new.
  	sdi1 d1: 0.5; i2: 16r12345678.
  	sdi2 := FFITestSdi new.
  	sdi2 d1: 0.25; i2: 16r01234567.
  	sdi3 := FFITestSdi new.
  	sdi3 d1: 0.125; i2: 3.
  	sdi4 := FFITestSdi new.
  	sdi4 d1: 2.0; i2: 1.
+ 	sum := self invoke: 'ffiTestSumiWithSdi_4' with: 5 with: sdi1 with: sdi2 with: sdi3 with: sdi4.
- 	sum := FFITestLibrary ffiTestSumi: 5 withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4.
  	self assert: 5 + 0.5 + 16r12345678 + 0.25 + 16r01234567 + 0.125 + 3 + 2.0 + 1 equals: sum!

Item was removed:
- ----- Method: FFIPluginTests>>testUintRange (in category 'tests') -----
- testUintRange
- 	"Simple test for making sure the FFI can call certain numbers in the uint range."
- 	| result |
- 	self flag: #ffiLongVsInt.
- 	self shouldnt:[result := FFITestLibrary ffiTestUint:  3894967296 "1<<32-4e8 " with: 3894967296 with: 3103854339 with: 3103854339] raise: Error.
- 	self should: result =  -8e8.!

Item was removed:
- ----- Method: FFIPluginTests>>testUlongRange (in category 'tests') -----
- testUlongRange
- 	"Simple test for making sure the FFI can call certain numbers in the ulong range.
- 	Note: since primitive is using unsigned int under the hood, avoid an integer overflow by choosing appropriate unsigned values.
- 	Note: only first two parameters are added"
- 	| result |
- 	self flag: #ffiLongVsInt.
- 	self shouldnt:[result := FFITestLibrary ffiTestUlong:  3894967296 "1<<32-4e8 " with: 3894967296 with: 3103854339 with: 3103854339] raise: Error.
- 	self should: result =  -8e8.!

Item was added:
+ ----- Method: FFIPluginTests>>testUnsignedIntegerRange (in category 'tests - other') -----
+ testUnsignedIntegerRange
+ 	"Simple test for making sure the FFI can call certain numbers in the uint range. Note that only the first two parameters are summed up."
+ 
+ 	| result arg1 arg2 arg3 arg4 |
+ 	arg1 := arg2 := 3894967296 "1<<32-4e8".
+ 	arg3 := arg4 := 3103854339.
+ 	result := FFITestLibrary ffiTestUint: arg1 with: arg2 with: arg3 with: arg4.
+ 	self assert: -8e8 "due to overflow" equals: result.!

Item was changed:
  ----- Method: FFITestBiggerStruct class>>fields (in category 'field definition') -----
  fields
  	"FFITestBiggerStruct defineFields"
  	^#(
+ 		(x	'int64_t')
+ 		(y	'int64_t')
+ 		(z	'int64_t')
+ 		(w	'int64_t')
+ 		(r	'int64_t')
+ 		(s	'int64_t')
+ 		(t	'int64_t')
+ 		(u	'int64_t'))!
- 		(x	'longlong')
- 		(y	'longlong')
- 		(z	'longlong')
- 		(w	'longlong')
- 		(r	'longlong')
- 		(s	'longlong')
- 		(t	'longlong')
- 		(u	'longlong'))!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiPrintString: (in category 'other') -----
- ----- Method: FFITestLibrary class>>ffiPrintString: (in category 'primitives') -----
  ffiPrintString: aString
+ 	"
+ 	FFITestLibrary ffiPrintString: 'Hello'
+ 	"
- 	"FFITestLibrary ffiPrintString: 'Hello'"
  	<cdecl: char* 'ffiPrintString' (char *) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTest4IntAliasSum:with:with:with: (in category 'primitives - type alias') -----
- ffiTest4IntAliasSum: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4"
- 	<cdecl: int 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTest4IntSum:with:with:with: (in category 'atomic - int32_t') -----
- ----- Method: FFITestLibrary class>>ffiTest4IntSum:with:with:with: (in category 'primitives - long vs. int') -----
  ffiTest4IntSum: c1 with: c2 with: c3 with: c4
  	"FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4"
+ 	<cdecl: int32_t 'ffiTest4IntSum' (int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'>
- 	<cdecl: int 'ffiTest4IntSum' (int int int int) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTest4LongSum:with:with:with: (in category 'primitives - long vs. int') -----
- ffiTest4LongSum: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTest4LongSum: 1 with: 2 with: 3 with: 4"
- 	<cdecl: long 'ffiTest4IntSum' (long long long long) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
- 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTest8IntSum:with:with:with:with:with:with:with: (in category 'atomic - int32_t') -----
- ----- Method: FFITestLibrary class>>ffiTest8IntSum:with:with:with:with:with:with:with: (in category 'primitives - long vs. int') -----
  ffiTest8IntSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8
  	"FFITestLibrary ffiTest8IntSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8"
+ 	<cdecl: int32_t 'ffiTest8IntSum' (int32_t int32_t int32_t int32_t int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'>
- 	<cdecl: int 'ffiTest8IntSum' (int int int int int int int int) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
  	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTest8LongLongSum:with:with:with:with:with:with:with: (in category 'atomic - int64_t') -----
+ ffiTest8LongLongSum: long1 with: long2 with: long3 with: long4 with: long5 with: long6 with: long7 with: long8
+ 
+ 	<cdecl: longlong 'ffiTest8LongLongSum' (longlong longlong longlong longlong longlong longlong longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTest8LongSum:with:with:with:with:with:with:with: (in category 'primitives - long vs. int') -----
- ffiTest8LongSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8
- 	"FFITestLibrary ffiTest8LongSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8"
- 	<cdecl: long 'ffiTest8IntSum' (long long long long long long long long) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTest8longSum:with:with:with:with:with:with:with: (in category 'atomic - c_long') -----
+ ffiTest8longSum: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8
+ 	"FFITestLibrary ffiTest8LongSum: 1 with: 2 with: 3 with: 4 with: 5 with: 6 with: 7 with: 8"
+ 	<cdecl: c_long 'ffiTest8longSum' (c_long c_long c_long c_long c_long c_long c_long c_long) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestBool:with:with:with: (in category 'atomic - bool') -----
- ----- Method: FFITestLibrary class>>ffiTestBool:with:with:with: (in category 'primitives') -----
  ffiTestBool: b1 with: b2 with: b3 with: b4
  	"FFITestLibrary ffiTestBool: true with: false with: true with: false"
  	<cdecl: bool 'ffiTestInts' (bool bool bool bool) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestChar:with:with:with: (in category 'primitives') -----
- ffiTestChar: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTestChar: $A with: 65 with: 65.0 with: true"
- 	<cdecl: char 'ffiTestChars' (char char char char) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestChars:with:with:with: (in category 'atomic - char') -----
+ ffiTestChars: c1 with: c2 with: c3 with: c4
+ 	"Answers c1 + c2 as Character.
+ 	FFITestLibrary ffiTestChars: $A with: 32 with: 0 with: 0
+ 	"
+ 	<cdecl: char 'ffiTestChars' (char char char char) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestDoubles14:with:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - floats') -----
+ ffiTestDoubles14: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: f10 with: f11 with: f12 with: f13 with: f14
+ 
+ 	<cdecl: double 'ffiTestDoubles14' (double double double double double double double double double double double double double double) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestDoubles9:d:d:d:d:d:d:d:d: (in category 'primitives') -----
- ffiTestDoubles9: f1 d: f2 d: f3 d: f4 d: f5 d: f6 d: f7 d: f8 d: f9
- 	"FFITestLibrary ffiTestDoubles9: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0"
- 	<cdecl: double 'ffiTestDoubles9' (double double double double double double double double double) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestDoubles9:with:with:with:with:with:with:with:with: (in category 'atomic - floats') -----
+ ffiTestDoubles9: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9
+ 	"FFITestLibrary ffiTestDoubles9: 1.0 with: 2.0 with: 3.0 with: 4.0 with: 5.0 with: 6.0 with: 7.0 with: 8.0 with: 9.0"
+ 	<cdecl: double 'ffiTestDoubles9' (double double double double double double double double double) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestDoubles:with: (in category 'atomic - floats') -----
- ----- Method: FFITestLibrary class>>ffiTestDoubles:with: (in category 'primitives') -----
  ffiTestDoubles: f1 with: f2
  	"FFITestLibrary ffiTestDoubles: $A with: 65.0"
  	<cdecl: double 'ffiTestDoubles' (double double) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestFloats13:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - floats') -----
+ ffiTestFloats13: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: f10 with: f11 with: f12 with: f13
+ 
+ 	<cdecl: float 'ffiTestFloats13' (float float float float float float float float float float float float float) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestFloats14:with:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - floats') -----
+ ffiTestFloats14: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: f10 with: f11 with: f12 with: f13 with: f14
+ 
+ 	<cdecl: float 'ffiTestFloats14' (float float float float float float float float float float float float float float) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestFloats7:with:with:with:with:with:with: (in category 'atomic - floats') -----
+ ffiTestFloats7: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7
+ 
+ 	<cdecl: float 'ffiTestFloats7' (float float float float float float float) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestFloats:with: (in category 'atomic - floats') -----
- ----- Method: FFITestLibrary class>>ffiTestFloats:with: (in category 'primitives') -----
  ffiTestFloats: f1 with: f2
  	"FFITestLibrary ffiTestFloats: $A with: 65.0"
  	<cdecl: float 'ffiTestFloats' (float float) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitSUfd:udSi2: (in category 'primitives') -----
- ffiTestInitSUfd: ufd udSi2: udSi2
- 	"FFITestLibrary FFITestInitSUfd: ... udSi2: .."
- 	<cdecl: FFITestSUfdUdSi2 'ffiTestInitSUfdUdSi2' (FFITestUfd FFITestUdSi2) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitSUfd:ufi: (in category 'primitives') -----
- ffiTestInitSUfd: ufd ufi: ufi
- 	"FFITestLibrary ffiTestInitSUfd: ... ufi: .."
- 	<cdecl: FFITestSUfdUfi 'ffiTestInitSUfdUfi' (FFITestUfd FFITestUfi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitSUfdUdSi2:with: (in category 'structure - init') -----
+ ffiTestInitSUfdUdSi2: ufd with: udSi2
+ 	"FFITestLibrary ffiTestInitSUfdUdSi2: ... with: .."
+ 	<cdecl: FFITestSUfdUdSi2 'ffiTestInitSUfdUdSi2' (FFITestUfd FFITestUdSi2) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitSUfdUfi:with: (in category 'structure - init') -----
+ ffiTestInitSUfdUfi: ufd with: ufi
+ 	"FFITestLibrary ffiTestInitSUfdUfi: ... with: .."
+ 	<cdecl: FFITestSUfdUfi 'ffiTestInitSUfdUfi' (FFITestUfd FFITestUfi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitUdSi2WithDouble: (in category 'primitives') -----
- ffiTestInitUdSi2WithDouble: d
- 	"FFITestLibrary ffiTestInitUdSi2WithDouble: 1.0"
- 	<cdecl: FFITestUdSi2 'ffiTestInitUdSi2_d' (double) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitUdSi2WithInt:int: (in category 'primitives') -----
- ffiTestInitUdSi2WithInt: i1 int: i2
- 	"FFITestLibrary ffiTestInitUdSi2WithInt: 1 int: 2"
- 	<cdecl: FFITestUdSi2 'ffiTestInitUdSi2_ii' (long long) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitUdSi2_d: (in category 'structure - init') -----
+ ffiTestInitUdSi2_d: d
+ 	"FFITestLibrary ffiTestInitUdSi2_d: 1.0"
+ 	<cdecl: FFITestUdSi2 'ffiTestInitUdSi2_d' (double) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitUdSi2_ii:with: (in category 'structure - init') -----
+ ffiTestInitUdSi2_ii: i1 with: i2
+ 	"FFITestLibrary ffiTestInitUdSi2_ii: 1 with: 2"
+ 	<cdecl: FFITestUdSi2 'ffiTestInitUdSi2_ii' (int32_t int32_t) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitUfdWithDouble: (in category 'primitives') -----
- ffiTestInitUfdWithDouble: d
- 	"FFITestLibrary ffiTestInitUfdWithDouble: 1.0"
- 	<cdecl: FFITestUfd 'ffiTestInitUfd_d' (double) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitUfdWithFloat: (in category 'primitives') -----
- ffiTestInitUfdWithFloat: f
- 	"FFITestLibrary ffiTestInitUfdWithFloat: 1.0"
- 	<cdecl: FFITestUfd 'ffiTestInitUfd_f' (float) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitUfd_d: (in category 'structure - init') -----
+ ffiTestInitUfd_d: d
+ 	"FFITestLibrary ffiTestInitUfd_d: 1.0"
+ 	<cdecl: FFITestUfd 'ffiTestInitUfd_d' (double) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitUfd_f: (in category 'structure - init') -----
+ ffiTestInitUfd_f: f
+ 	"FFITestLibrary ffiTestInitUfd_f: 1.0"
+ 	<cdecl: FFITestUfd 'ffiTestInitUfd_f' (float) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitUfiWithFloat: (in category 'primitives') -----
- ffiTestInitUfiWithFloat: f
- 	"FFITestLibrary ffiTestInitUfiWithFloat: 1.0"
- 	<cdecl: FFITestUfi 'ffiTestInitUfi_f' (float) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInitUfiWithInt: (in category 'primitives') -----
- ffiTestInitUfiWithInt: i
- 	"FFITestLibrary ffiTestInitUfiWithInt: 2"
- 	<cdecl: FFITestUfi 'ffiTestInitUfi_i' (long) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitUfi_f: (in category 'structure - init') -----
+ ffiTestInitUfi_f: f
+ 	"FFITestLibrary ffiTestInitUfi_f: 1.0"
+ 	<cdecl: FFITestUfi 'ffiTestInitUfi_f' (float) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInitUfi_i: (in category 'structure - init') -----
+ ffiTestInitUfi_i: i
+ 	"FFITestLibrary ffiTestInitUfi_i: 2"
+ 	<cdecl: FFITestUfi 'ffiTestInitUfi_i' (long) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInt4IntAliasSum:with:with:with: (in category 'type alias') -----
+ ffiTestInt4IntAliasSum: c1 with: c2 with: c3 with: c4
+ 	"FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4"
+ 	<cdecl: int 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestInt:with:with:with: (in category 'primitives - long vs. int') -----
- ffiTestInt: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTestInt: $A with: 65 with: 65.0 with: true"
- 	<cdecl: int 'ffiTestInts' (int int int int) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
- 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntAliasSum:with:with:with: (in category 'type alias') -----
- ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntAliasSum:with:with:with: (in category 'primitives - type alias') -----
  ffiTestIntAlias4IntAliasSum: c1 with: c2 with: c3 with: c4
  	"FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4"
+ 	<cdecl: FFITestIntAlias 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'>
- 	<cdecl: int 'ffiTest4IntSum' (FFITestIntAlias FFITestIntAlias FFITestIntAlias FFITestIntAlias) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntSum:with:with:with: (in category 'type alias') -----
- ----- Method: FFITestLibrary class>>ffiTestIntAlias4IntSum:with:with:with: (in category 'primitives - type alias') -----
  ffiTestIntAlias4IntSum: c1 with: c2 with: c3 with: c4
  	"FFITestLibrary ffiTest4IntSum: 1 with: 2 with: 3 with: 4"
  	<cdecl: FFITestIntAlias 'ffiTest4IntSum' (int int int int) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInts8:with:with:with:with:with:with:with: (in category 'atomic - int32_t') -----
+ ffiTestInts8: c1 with: c2 with: c3 with: c4 with: c5 with: c6 with: c7 with: c8
+ 	"Always answers 42."
+ 	<cdecl: int32_t 'ffiTestInts8' (int32_t int32_t int32_t int32_t int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestInts:with:with:with: (in category 'atomic - int32_t') -----
+ ffiTestInts: c1 with: c2 with: c3 with: c4
+ 	"Adds c1 + c2"
+ 	<cdecl: int32_t 'ffiTestInts' (int32_t int32_t int32_t int32_t) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestLong:with:with:with: (in category 'primitives - long vs. int') -----
- ffiTestLong: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTestLong: $A with: 65 with: 65.0 with: true"
- 	<cdecl: long 'ffiTestInts' (long long long long) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLong8:with:with:with:with:with:with:with:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLong8: char1 with: char2 with: char3 with: char4 with: char5 with: char6 with: char7 with: char8 with: long1 with: long2
+ 
+ 	<cdecl: longlong 'ffiTestLongLong8' (char char char char char char char char longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLong8a1:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLong8a1: char1 with: char2 with: char3 with: char4 with: char5 with: char6 with: char7 with: char8 with: char9 with: long1 with: long2
+ 
+ 	<cdecl: longlong 'ffiTestLongLong8a1' (char char char char char char char char char longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLong8a2:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLong8a2: char1 with: char2 with: char3 with: char4 with: char5 with: char6 with: char7 with: char8 with: char9 with: char10 with: long1 with: long2
+ 
+ 	<cdecl: longlong 'ffiTestLongLong8a2' (char char char char char char char char char char longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestLongLong:with: (in category 'atomic - int64_t') -----
- ----- Method: FFITestLibrary class>>ffiTestLongLong:with: (in category 'primitives') -----
  ffiTestLongLong: long1 with: long2
  	"FFITestLibrary ffiTestLongLong: 3 with: 4"
  	<cdecl: longlong 'ffiTestLongLong' (longlong longlong) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestLongLongA1:with:with: (in category 'primitives') -----
- ffiTestLongLongA1: byte with: long1 with: long2
- 	"FFITestLibrary ffiTestLongLongA1: 3 with: 4 with: 5"
- 	<cdecl: longlong 'ffiTestLongLonga1' (char longlong longlong) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestLongLongA3:with:with: (in category 'primitives') -----
- ffiTestLongLongA3: byte1 with: long1 with: byte2
- 	"FFITestLibrary ffiTestLongLongA3: 3 with: 4 with: 5"
- 	<cdecl: longlong 'ffiTestLongLonga3' (char longlong char) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLonga1:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLonga1: byte with: long1 with: long2
+ 	"FFITestLibrary ffiTestLongLongA1: 3 with: 4 with: 5"
+ 	<cdecl: longlong 'ffiTestLongLonga1' (char longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLonga2:with:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLonga2: byte1 with: byte2 with: long1 with: long2
+ 
+ 	<cdecl: longlong 'ffiTestLongLonga2' (char char longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLonga3:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLonga3: byte1 with: long1 with: byte2
+ 	"FFITestLibrary ffiTestLongLonga3: 3 with: 4 with: 5"
+ 	<cdecl: longlong 'ffiTestLongLonga3' (char longlong char) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestLongLongs8:with:with:with:with:with:with:with: (in category 'atomic - int64_t') -----
+ ffiTestLongLongs8: long1 with: long2 with: long3 with: long4 with: long5 with: long6 with: long7 with: long8
+ 	"Always answers 42."
+ 	<cdecl: longlong 'ffiTestLongLongs8' (longlong longlong longlong longlong longlong longlong longlong longlong) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestMixedDoublesAndLongs:with:with:with:with:with:with:with:with:with:with:with:with:with:with: (in category 'atomic') -----
+ ffiTestMixedDoublesAndLongs: arg1 with: arg2 with: arg3 with: arg4 with: arg5 with: arg6 with: arg7 with: arg8 with: arg9 with: arg10 with: arg11 with: arg12 with: arg13 with: arg14 with: arg15 "with: arg16 with: arg17 with: arg18 with: arg19 with: arg20"
+  
+ 	<cdecl: double 'ffiTestMixedDoublesAndLongs' (double c_long double c_long double c_long double c_long double c_long double c_long double c_long double c_long double c_long double c_long) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestMixedDoublesIntAndStruct:d:d:d:d:d:d:d:d:i:s: (in category 'primitives') -----
- ffiTestMixedDoublesIntAndStruct: f1 d: f2 d: f3 d: f4 d: f5 d: f6 d: f7 d: f8 d: f9 i: i1 s: s1
- 	"FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0 d: 2.0 d: 3.0 d: 4.0 d: 5.0 d: 6.0 d: 7.0 d: 8.0 d: 9.0 i: 42
- 		s: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)"
- 	<cdecl: double 'ffiTestMixedDoublesIntAndStruct' (double double double double double double double double double long FFITestPoint4) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestMixedDoublesIntAndStruct:with:with:with:with:with:with:with:with:with:with: (in category 'structure') -----
+ ffiTestMixedDoublesIntAndStruct: f1 with: f2 with: f3 with: f4 with: f5 with: f6 with: f7 with: f8 with: f9 with: i1 with: s1
+ 	"
+ 	FFITestLibrary ffiTestMixedDoublesIntAndStruct: 1.0
+ 		with: 2.0 with: 3.0 with: 4.0 with: 5.0
+ 		with: 6.0 with: 7.0 with: 8.0 with: 9.0 with: 42
+ 		with: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)
+ 	"
+ 	<cdecl: double 'ffiTestMixedDoublesIntAndStruct' (double double double double double double double double double long FFITestPoint4) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestMixedFloatsAndDouble:with:with:with: (in category 'atomic') -----
- ----- Method: FFITestLibrary class>>ffiTestMixedFloatsAndDouble:with:with:with: (in category 'primitives') -----
  ffiTestMixedFloatsAndDouble: f1 with: d1 with: f2 with: f3
  	"FFITestLibrary ffiTestMixedFloatsAndDouble: 1.2 with: 3.4 with: 5.6 with: 7.8"
  	<cdecl: double 'ffiTestMixedFloatsAndDouble' (float double float float) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct2:with: (in category 'structure') -----
- ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct2:with: (in category 'primitives') -----
  ffiTestMixedIntAndStruct2: i with: pt4
  	"FFITestLibrary ffiTestMixedIntAndStruct2: 2 with: (FFITestPoint4 new x: 3; y: 4; z: 5; w:6)"
+ 	<cdecl: int32_t 'ffiTestMixedIntAndStruct2' (int32_t FFITestPoint4) module:'SqueakFFIPrims'>
- 	<cdecl: long 'ffiTestMixedIntAndStruct2' (long FFITestPoint4) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct3:with: (in category 'structure') -----
- ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct3:with: (in category 'primitives') -----
  ffiTestMixedIntAndStruct3: i with: anFFISmallStruct1
  	"FFITestLibrary ffiTestMixedIntAndStruct3: 2 with: (FFISmallStruct1 new x: 3; y: 4)"
+ 	<cdecl: int32_t 'ffiTestMixedIntAndStruct3' (int32_t FFISmallStruct1) module:'SqueakFFIPrims'>
- 	<cdecl: long 'ffiTestMixedIntAndStruct3' (long FFISmallStruct1) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct:with:with: (in category 'structure') -----
- ----- Method: FFITestLibrary class>>ffiTestMixedIntAndStruct:with:with: (in category 'primitives') -----
  ffiTestMixedIntAndStruct: i with: pt1 with: pt2
  	"FFITestLibrary ffiTestMixedIntAndStruct: 2 with: (FFITestPoint2 new x: 3; y: 4) with: (FFITestPoint2 new x: 5; y: 6)"
+ 	<cdecl: int32_t 'ffiTestMixedIntAndStruct' (int32_t FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'>
- 	<cdecl: long 'ffiTestMixedIntAndStruct' (long FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestPoint2:with: (in category 'primitives') -----
- ffiTestPoint2: pt1 with: pt2
- 	<cdecl: FFITestPoint2 'ffiTestStruct64' (FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestPoint4:with: (in category 'primitives') -----
- ffiTestPoint4: pt1 with: pt2
- 	<cdecl: FFITestPoint4 'ffiTestStructBig' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestPointers:with: (in category 'structure - points') -----
- ----- Method: FFITestLibrary class>>ffiTestPointers:with: (in category 'primitives') -----
  ffiTestPointers: pt1 with: pt2
+ 	"Allocates the result. Needs to be free'd after calling."
  	<cdecl: FFITestPoint4* 'ffiTestPointers' (FFITestPoint4* FFITestPoint4*) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSSdi5 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSSdi5 (in category 'primitives') -----
  ffiTestReturnSSdi5
  	"FFITestLibrary ffiTestReturnSSdi5"
  	<cdecl: FFITestSSdi5 'ffiTestReturnSSdi5' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSd2 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSd2 (in category 'primitives') -----
  ffiTestReturnSd2
  	"FFITestLibrary ffiTestReturnSd2"
  	<cdecl: FFITestSd2 'ffiTestReturnSd2' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSdi (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSdi (in category 'primitives') -----
  ffiTestReturnSdi
  	"FFITestLibrary ffiTestReturnSdi"
  	<cdecl: FFITestSdi 'ffiTestReturnSdi' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSf2 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSf2 (in category 'primitives') -----
  ffiTestReturnSf2
  	"FFITestLibrary ffiTestReturnSf2"
  	<cdecl: FFITestSf2 'ffiTestReturnSf2' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSf2d (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSf2d (in category 'primitives') -----
  ffiTestReturnSf2d
  	"FFITestLibrary ffiTestReturnSf2d"
  	<cdecl: FFITestSf2d 'ffiTestReturnSf2d' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSf4 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSf4 (in category 'primitives') -----
  ffiTestReturnSf4
  	"FFITestLibrary ffiTestReturnSf4"
  	<cdecl: FFITestSf4 'ffiTestReturnSf4' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSfd (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSfd (in category 'primitives') -----
  ffiTestReturnSfd
  	"FFITestLibrary ffiTestReturnSfd"
  	<cdecl: FFITestSfd 'ffiTestReturnSfd' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSfdf (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSfdf (in category 'primitives') -----
  ffiTestReturnSfdf
  	"FFITestLibrary ffiTestReturnSfdf"
  	<cdecl: FFITestSfdf 'ffiTestReturnSfdf' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSfi (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSfi (in category 'primitives') -----
  ffiTestReturnSfi
  	"FFITestLibrary ffiTestReturnSfi"
  	<cdecl: FFITestSfi 'ffiTestReturnSfi' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSi2 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSi2 (in category 'primitives') -----
  ffiTestReturnSi2
  	"FFITestLibrary ffiTestReturnSi2"
  	<cdecl: FFITestSi2 'ffiTestReturnSi2' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSl2 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSl2 (in category 'primitives') -----
  ffiTestReturnSl2
  	"FFITestLibrary ffiTestReturnSl2"
  	<cdecl: FFITestSl2 'ffiTestReturnSl2' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSs2 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSs2 (in category 'primitives') -----
  ffiTestReturnSs2
  	"FFITestLibrary ffiTestReturnSs2"
  	<cdecl: FFITestSs2 'ffiTestReturnSs2' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSs2i (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSs2i (in category 'primitives') -----
  ffiTestReturnSs2i
  	"FFITestLibrary ffiTestReturnSs2i"
  	<cdecl: FFITestSs2i 'ffiTestReturnSs2i' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSs4 (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSs4 (in category 'primitives') -----
  ffiTestReturnSs4
  	"FFITestLibrary ffiTestReturnSs4"
  	<cdecl: FFITestSs4 'ffiTestReturnSs4' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSsSsf (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSsSsf (in category 'primitives') -----
  ffiTestReturnSsSsf
  	"FFITestLibrary ffiTestReturnSsSsf"
  	<cdecl: FFITestSsSsf 'ffiTestReturnSsSsf' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSsSsi (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSsSsi (in category 'primitives') -----
  ffiTestReturnSsSsi
  	"FFITestLibrary ffiTestReturnSsSsi"
  	<cdecl: FFITestSsSsi 'ffiTestReturnSsSsi' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSsf (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSsf (in category 'primitives') -----
  ffiTestReturnSsf
  	"FFITestLibrary ffiTestReturnSsf"
  	<cdecl: FFITestSsf 'ffiTestReturnSsf' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSsi (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSsi (in category 'primitives') -----
  ffiTestReturnSsi
  	"FFITestLibrary ffiTestReturnSsi"
  	<cdecl: FFITestSsi 'ffiTestReturnSsi' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSsis (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSsis (in category 'primitives') -----
  ffiTestReturnSsis
  	"FFITestLibrary ffiTestReturnSsis"
  	<cdecl: FFITestSsis 'ffiTestReturnSsis' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSslf (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSslf (in category 'primitives') -----
  ffiTestReturnSslf
  	"FFITestLibrary ffiTestReturnSslf"
  	<cdecl: FFITestSslf 'ffiTestReturnSslf' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestReturnSsls (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestReturnSsls (in category 'primitives') -----
  ffiTestReturnSsls
  	"FFITestLibrary ffiTestReturnSsls"
  	<cdecl: FFITestSsls 'ffiTestReturnSsls' () module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestShort:with:with:with: (in category 'primitives') -----
- ffiTestShort: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTestShort: $A with: 65 with: 65.0 with:1"
- 	<cdecl: short 'ffiTestShorts' (short short short short) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestShorts:with:with:with: (in category 'atomic - int16_t') -----
+ ffiTestShorts: c1 with: c2 with: c3 with: c4
+ 	"Answers c1 + c2.
+ 	FFITestLibrary ffiTestShorts: 1 with: 2 with: 3 with: 4"
+ 	<cdecl: short 'ffiTestShorts' (short short short short) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestSmallStructReturn (in category 'structure - return') -----
- ----- Method: FFITestLibrary class>>ffiTestSmallStructReturn (in category 'primitives') -----
  ffiTestSmallStructReturn
  	"FFITestLibrary ffiTestSmallStructReturn"
  	<cdecl: FFISmallStruct1 'ffiTestSmallStructReturn' (void) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestStruct64:with: (in category 'structure - points') -----
+ ffiTestStruct64: pt1 with: pt2
+ 	"pt1 + pt2"
+ 	<cdecl: FFITestPoint2 'ffiTestStruct64' (FFITestPoint2 FFITestPoint2) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestStructBig:with: (in category 'structure - points') -----
+ ffiTestStructBig: pt1 with: pt2
+ 	"pt1 + pt2"
+ 	<cdecl: FFITestPoint4 'ffiTestStructBig' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestStructBigger:with: (in category 'structure - points') -----
+ ffiTestStructBigger: pt1 with: pt2
+ 	"Copies the values of pt1 to x, y, z, w and pt2 to r, s, t, u in the resulting struct."
+ 	<cdecl: FFITestBiggerStruct 'ffiTestStructBigger' (FFITestPoint4 FFITestPoint4) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumOfDoubleFromSUfdUdsi2: (in category 'primitives') -----
- ffiTestSumOfDoubleFromSUfdUdsi2: sUfdUfi
- 	"FFITestLibrary ffiTestSumOfFloatFromSUfdUdSi2: (FFITestLibrary ...)"
- 	<cdecl: double 'ffiTestSumSUfdUdSi2_d' (FFITestSUfdUdSi2) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumOfFloatFromSUfdUfi: (in category 'primitives') -----
- ffiTestSumOfFloatFromSUfdUfi: sUfdUfi
- 	"FFITestLibrary ffiTestSumOfFloatFromSUfdUfi: (FFITestLibrary ...)"
- 	<cdecl: double 'ffiTestSumSUfdUfi_f' (FFITestSUfdUfi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSSdi5: (in category 'structure - sums') -----
+ ffiTestSumSSdi5: structSdi5
+ 	"
+ 	FFITestLibrary ffiTestSumSSdi5: FFITestLibrary ffiTestReturnSSdi5
+ 	"
+ 	<cdecl: double 'ffiTestSumSSdi5' (FFITestSSdi5) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSUfdUdSi2_d: (in category 'structure - sums') -----
+ ffiTestSumSUfdUdSi2_d: sUfdUfi
+ 	"
+ 	FFITestLibrary ffiTestSumOfFloatFromSUfdUdSi2: (FFITestLibrary ...)
+ 	"
+ 	<cdecl: double 'ffiTestSumSUfdUdSi2_d' (FFITestSUfdUdSi2) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSUfdUfi_f: (in category 'structure - sums') -----
+ ffiTestSumSUfdUfi_f: sUfdUfi
+ 	"
+ 	FFITestLibrary ffiTestSumSUfdUfi_f: (FFITestLibrary ...)
+ 	"
+ 	<cdecl: double 'ffiTestSumSUfdUfi_f' (FFITestSUfdUfi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestSumSdi: (in category 'structure - sums') -----
- ----- Method: FFITestLibrary class>>ffiTestSumSdi: (in category 'primitives') -----
  ffiTestSumSdi: sdi
+ 	"
+ 	FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi
+ 	"
- 	"FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi"
  	<cdecl: double 'ffiTestSumSdi' (FFITestSdi) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumSdi:sdi: (in category 'primitives') -----
- ffiTestSumSdi: sdi1 sdi: sdi2
- 	"FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi"
- 	<cdecl: double 'ffiTestSumSdi_2' (FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumSdi:sdi:sdi:sdi: (in category 'primitives') -----
- ffiTestSumSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4
- 	"FFITestLibrary ffiTestSumSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi"
- 	<cdecl: double 'ffiTestSumSdi_4' (FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSdi_2:with: (in category 'structure - sums') -----
+ ffiTestSumSdi_2: sdi1 with: sdi2
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumSdi_2: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 	"
+ 	<cdecl: double 'ffiTestSumSdi_2' (FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSdi_4:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumSdi_4: sdi1 with: sdi2 with: sdi3 with: sdi4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumSdi_4: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 	"
+ 	<cdecl: double 'ffiTestSumSdi_4' (FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestSumSfd: (in category 'structure - sums') -----
- ----- Method: FFITestLibrary class>>ffiTestSumSfd: (in category 'primitives') -----
  ffiTestSumSfd: sfd
+ 	"
+ 	FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd
+ 	"
- 	"FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd"
  	<cdecl: double 'ffiTestSumSfd' (FFITestSfd) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumSfd:sfd: (in category 'primitives') -----
- ffiTestSumSfd: sfd1 sfd: sfd2
- 	"FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd"
- 	<cdecl: double 'ffiTestSumSfd_2' (FFITestSfd FFITestSfd) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumSfd:sfd:sfd:sfd: (in category 'primitives') -----
- ffiTestSumSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4
- 	"FFITestLibrary ffiTestSumSfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd"
- 	<cdecl: double 'ffiTestSumSfd_4' (FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSfd_2:with: (in category 'structure - sums') -----
+ ffiTestSumSfd_2: sfd1 with: sfd2
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumSfd_2: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 	"
+ 	<cdecl: double 'ffiTestSumSfd_2' (FFITestSfd FFITestSfd) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSfd_4:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumSfd_4: sfd1 with: sfd2 with: sfd3 with: sfd4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumSfd_4: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd				
+ 	"
+ 	<cdecl: double 'ffiTestSumSfd_4' (FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestSumSslf: (in category 'structure - sums') -----
- ----- Method: FFITestLibrary class>>ffiTestSumSslf: (in category 'primitives') -----
  ffiTestSumSslf: sslf
+ 	"
+ 	FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf
+ 	"
- 	"FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf"
  	<cdecl: double 'ffiTestSumSslf' (FFITestSslf) module:'SqueakFFIPrims'>
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumSslf:sslf: (in category 'primitives') -----
- ffiTestSumSslf: sslf1 sslf: sslf2
- 	"FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf"
- 	<cdecl: double 'ffiTestSumSslf_2' (FFITestSslf FFITestSslf) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumSslf:sslf:sslf:sslf: (in category 'primitives') -----
- ffiTestSumSslf: sslf1 sslf: sslf2 sslf: sslf3 sslf: sslf4
- 	"FFITestLibrary ffiTestSumSslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf sslf: FFITestLibrary ffiTestReturnSslf"
- 	<cdecl: double 'ffiTestSumSslf_4' (FFITestSslf FFITestSslf FFITestSslf FFITestSslf) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSslf_2:with: (in category 'structure - sums') -----
+ ffiTestSumSslf_2: sslf1 with: sslf2
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumSslf_2: FFITestLibrary ffiTestReturnSslf
+ 		with: FFITestLibrary ffiTestReturnSslf		
+ 	"
+ 	<cdecl: double 'ffiTestSumSslf_2' (FFITestSslf FFITestSslf) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumSslf_4:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumSslf_4: sslf1 with: sslf2 with: sslf3 with: sslf4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumSslf_4: FFITestLibrary ffiTestReturnSslf
+ 		with: FFITestLibrary ffiTestReturnSslf
+ 		with: FFITestLibrary ffiTestReturnSslf	
+ 		with: FFITestLibrary ffiTestReturnSslf	
+ 	"
+ 	<cdecl: double 'ffiTestSumSslf_4' (FFITestSslf FFITestSslf FFITestSslf FFITestSslf) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumStructSdi5: (in category 'primitives') -----
- ffiTestSumStructSdi5: structSdi5
- 	"FFITestLibrary ffiTestSumStructSdi5: FFITestLibrary ffiTestReturnSSdi5"
- 	<cdecl: double 'ffiTestSumSSdi5' (FFITestSSdi5) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumd:i:withSdi:sdi:sdi:sdi: (in category 'primitives') -----
- ffiTestSumd: aDouble i: anInt withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4
- 	"FFITestLibrary ffiTestSumd: 4.0 i: 3 withSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi"
- 	<cdecl: double 'ffiTestSumdiWithSdi_4' (double long FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumd:withSdi:sdi:sdi:sdi: (in category 'primitives') -----
- ffiTestSumd: aDouble withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4
- 	"FFITestLibrary ffiTestSumd: 4.0 withSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi"
- 	<cdecl: double 'ffiTestSumdWithSdi_4' (double FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumdWithSdi_4:with:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumdWithSdi_4: aDouble with: sdi1 with: sdi2 with: sdi3 with: sdi4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumdWithSdi_4: 4.0
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 	"
+ 	<cdecl: double 'ffiTestSumdWithSdi_4' (double FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumdiWithSdi_4:with:with:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumdiWithSdi_4: aDouble with: anInt with: sdi1 with: sdi2 with: sdi3 with: sdi4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumdiWithSdi_4: 4.0
+ 		with: 3
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 	"
+ 	<cdecl: double 'ffiTestSumdiWithSdi_4' (double long FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumf:withSfd:sfd:sfd:sfd: (in category 'primitives') -----
- ffiTestSumf: aFloat withSfd: sfd1 sfd: sfd2 sfd: sfd3 sfd: sfd4
- 	"FFITestLibrary ffiTestSumf: 0.5 withSfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd sfd: FFITestLibrary ffiTestReturnSfd"
- 	<cdecl: double 'ffiTestSumfWithSfd_4' (float FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumfWithSfd_4:with:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumfWithSfd_4: aFloat with: sfd1 with: sfd2 with: sfd3 with: sfd4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumf: 0.5
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 		with: FFITestLibrary ffiTestReturnSfd
+ 	"
+ 	<cdecl: double 'ffiTestSumfWithSfd_4' (float FFITestSfd FFITestSfd FFITestSfd FFITestSfd) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestSumi:withSdi:sdi:sdi:sdi: (in category 'primitives') -----
- ffiTestSumi: anInt withSdi: sdi1 sdi: sdi2 sdi: sdi3 sdi: sdi4
- 	"FFITestLibrary ffiTestSumi: 3 withSdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi sdi: FFITestLibrary ffiTestReturnSdi"
- 	<cdecl: double 'ffiTestSumiWithSdi_4' (long FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
- 	^self externalCallFailed!

Item was added:
+ ----- Method: FFITestLibrary class>>ffiTestSumiWithSdi_4:with:with:with:with: (in category 'structure - sums') -----
+ ffiTestSumiWithSdi_4: anInt with: sdi1 with: sdi2 with: sdi3 with: sdi4
+ 	"
+ 	FFITestLibrary
+ 		ffiTestSumiWithSdi_4: 3
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 		with: FFITestLibrary ffiTestReturnSdi
+ 	"
+ 	<cdecl: double 'ffiTestSumiWithSdi_4' (int32_t FFITestSdi FFITestSdi FFITestSdi FFITestSdi) module:'SqueakFFIPrims'>
+ 	^self externalCallFailed!

Item was changed:
+ ----- Method: FFITestLibrary class>>ffiTestUint:with:with:with: (in category 'atomic - uint32_t') -----
- ----- Method: FFITestLibrary class>>ffiTestUint:with:with:with: (in category 'primitives - long vs. int') -----
  ffiTestUint: c1 with: c2 with: c3 with: c4
+ 	"Answers c1 + c2. Repurpose ffiTestInts to check uint32_t range."
+ 	<cdecl: int32_t 'ffiTestInts' (uint32_t uint32_t uint32_t uint32_t) module:'SqueakFFIPrims'>
- 	"FFITestLibrary ffiTestUint: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339"
- 	<cdecl: int 'ffiTestInts' (uint uint uint uint) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
  	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary class>>ffiTestUlong:with:with:with: (in category 'primitives - long vs. int') -----
- ffiTestUlong: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary ffiTestUlong: 3103854339 with: 3103854339 with: 3103854339 with: 3103854339"
- 	<cdecl: long 'ffiTestInts' (ulong ulong ulong ulong) module:'SqueakFFIPrims'>
- 	self flag: #ffiLongVsInt.
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary>>ffiPrintString: (in category 'primitives') -----
- ffiPrintString: aString
- 	"FFITestLibrary new ffiPrintString: 'Hello'"
- 	<cdecl: char* 'ffiPrintString' (char *)>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary>>ffiTestChar:with:with:with: (in category 'primitives') -----
- ffiTestChar: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary new ffiTestChar: $A with: 65 with: 65.0 with: true"
- 	<cdecl: char 'ffiTestChars' (char char char char)>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary>>ffiTestDoubles:with: (in category 'primitives') -----
- ffiTestDoubles: f1 with: f2
- 	"FFITestLibrary new ffiTestDoubles: $A with: 65.0"
- 	<cdecl: double 'ffiTestDoubles' (double double)>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary>>ffiTestFloats:with: (in category 'primitives') -----
- ffiTestFloats: f1 with: f2
- 	"FFITestLibrary new ffiTestFloats: $A with: 65.0"
- 	<cdecl: float 'ffiTestFloats' (float float)>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary>>ffiTestInt:with:with:with: (in category 'primitives') -----
- ffiTestInt: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary new ffiTestInt: $A with: 65 with: 65.0 with: $A"
- 	<cdecl: long 'ffiTestInts' (long long long long)>
- 	^self externalCallFailed!

Item was removed:
- ----- Method: FFITestLibrary>>ffiTestShort:with:with:with: (in category 'primitives') -----
- ffiTestShort: c1 with: c2 with: c3 with: c4
- 	"FFITestLibrary new ffiTestShort: $A with: 65 with: 65.0 with: $A"
- 	<cdecl: short 'ffiTestShorts' (short short short short)>
- 	^self externalCallFailed!

Item was changed:
  ----- Method: FFITestMisalignedCompoundStruct class>>fields (in category 'field definition') -----
  fields
  	"FFITestMisalignedCompoundStruct defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
- 		(s1	#short)
  		(s2	'FFITestMisalignedStruct')
  	)!

Item was changed:
  ----- Method: FFITestMisalignedStruct class>>fields (in category 'field definition') -----
  fields
  	"FFITestMisalignedStruct defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(i1	'int32_t')
- 		(s1	#short)
- 		(i1	#long)
  	)!

Item was changed:
  ----- Method: FFITestPoint2 class>>fields (in category 'field definition') -----
  fields
  	"FFITestPoint2 defineFields"
  	^#(
+ 		(x	'int32_t')
+ 		(y	'int32_t')
- 		(x	'long')
- 		(y	'long')
  	)!

Item was added:
+ ----- Method: FFITestPoint2>>asPoint (in category 'converting') -----
+ asPoint
+ 
+ 	^ self x @ self y!

Item was added:
+ ----- Method: FFITestPoint2>>setX:setY: (in category 'initialization') -----
+ setX: xValue setY: yValue.
+ 
+ 	self x: xValue.
+ 	self y: yValue.!

Item was changed:
  ----- Method: FFITestPoint4 class>>fields (in category 'field definition') -----
  fields
  	"FFITestPoint4 defineFields"
  	^#(
+ 		(x	'int32_t')
+ 		(y	'int32_t')
+ 		(z	'int32_t')
+ 		(w	'int32_t')
- 		(x	'long')
- 		(y	'long')
- 		(z	'long')
- 		(w	'long')
  	)!

Item was changed:
  ----- Method: FFITestSdi class>>fields (in category 'field definition') -----
  fields
  	"FFITestSdi defineFields"
  	^#(
  		(d1	'double')
+ 		(i2	'int32_t')
- 		(i2	'long')
  	)!

Item was changed:
  ----- Method: FFITestSfi class>>fields (in category 'field definition') -----
  fields
  	"FFITestSfi defineFields"
  	^#(
  		(f1	'float')
+ 		(i2	'int32_t')
- 		(i2	'long')
  	)!

Item was changed:
  ----- Method: FFITestSi2 class>>fields (in category 'field definition') -----
  fields
  	"FFITestSi2 defineFields"
  	^#(
+ 		(i1	'int32_t')
+ 		(i2	'int32_t')
- 		(i1	'long')
- 		(i2	'long')
  	)!

Item was changed:
  ----- Method: FFITestSl2 class>>fields (in category 'field definition') -----
  fields
  	"FFITestSl2 defineFields"
  	^#(
+ 		(l1	'int64_t') "longlong"
+ 		(l2	'int64_t') "longlong"
- 		(l1	'longlong')
- 		(l2	'longlong')
  	)!

Item was changed:
  ----- Method: FFITestSs2 class>>fields (in category 'field definition') -----
  fields
  	"FFITestSs2 defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(s2	'int16_t') "short"
- 		(s1	'short')
- 		(s2	'short')
  	)!

Item was changed:
  ----- Method: FFITestSs2i class>>fields (in category 'field definition') -----
  fields
  	"FFITestSs2i defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(s2	'int16_t') "short"
+ 		(i3	'int32_t')
- 		(s1	'short')
- 		(s2	'short')
- 		(i3	'long')
  	)!

Item was changed:
  ----- Method: FFITestSs4 class>>fields (in category 'field definition') -----
  fields
  	"FFITestSs4 defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(s2	'int16_t') "short"
+ 		(s3	'int16_t') "short"
+ 		(s4	'int16_t') "short"
- 		(s1	'short')
- 		(s2	'short')
- 		(s3	'short')
- 		(s4	'short')
  	)!

Item was changed:
  ----- Method: FFITestSsSsf class>>fields (in category 'field definition') -----
  fields
  	"FFITestSsSsf defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
- 		(s1	'short')
  		(ssf2	'FFITestSsf')
  	)!

Item was changed:
  ----- Method: FFITestSsSsi class>>fields (in category 'field definition') -----
  fields
  	"FFITestSsSsi defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(ssi2	FFITestSsi)
- 		(s1	'short')
- 		(ssi2	'FFITestSsi')
  	)!

Item was changed:
  ----- Method: FFITestSsf class>>fields (in category 'field definition') -----
  fields
  	"FFITestSsf defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
- 		(s1	'short')
  		(f2	'float')
  	)!

Item was changed:
  ----- Method: FFITestSsi class>>fields (in category 'field definition') -----
  fields
  	"FFITestSsi defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(i2	'int32_t')
- 		(s1	'short')
- 		(i2	'long')
  	)!

Item was changed:
  ----- Method: FFITestSsis class>>fields (in category 'field definition') -----
  fields
  	"FFITestSsis defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(i2	'int32_t')
+ 		(s3	'int16_t') "short"
- 		(s1	'short')
- 		(i2	'long')
- 		(s3	'short')
  	)!

Item was changed:
  ----- Method: FFITestSslf class>>fields (in category 'field definition') -----
  fields
  	"FFITestSslf defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(l2	'int64_t') "longlong"
- 		(s1	'short')
- 		(l2	'longlong')
  		(f3	'float')
  	)!

Item was changed:
  ----- Method: FFITestSsls class>>fields (in category 'field definition') -----
  fields
  	"FFITestSsls defineFields"
  	^#(
+ 		(s1	'int16_t') "short"
+ 		(l2	'int64_t') "longlong"
+ 		(s3	'int16_t') "short"
- 		(s1	'short')
- 		(l2	'longlong')
- 		(s3	'short')
  	)!

Item was changed:
  ----- Method: FFITestUfi class>>fields (in category 'field definition') -----
  fields
  	"FFITestUfi defineFields"
  	^#(
  		(f1	'float')
+ 		(i1	'int32_t')
- 		(i1	'long')
  	)!

Item was changed:
  ----- Method: FFITypeNameTests>>testAtomicChar (in category 'tests') -----
  testAtomicChar
  
  	self
  		flag: #ffiLongVsInt;
+ 		assert: (self argTypesAt: #ffiTestChars:with:with:with:)
- 		assert: (self argTypesAt: #ffiTestChar:with:with:with:)
  		equals: (Array new: 5 withAll: ExternalType char).!

Item was changed:
  ----- Method: FFITypeNameTests>>testAtomicInt (in category 'tests') -----
  testAtomicInt
  
  	self
  		flag: #ffiLongVsInt;
+ 		assert: (self argTypesAt: #ffiTestInts:with:with:with:)
- 		assert: (self argTypesAt: #ffiTestInt:with:with:with:)
  		equals: (Array new: 5 withAll: ExternalType int).!

Item was changed:
  ----- Method: FFITypeNameTests>>testAtomicLong (in category 'tests') -----
  testAtomicLong
  
  	self
  		flag: #ffiLongVsInt;
+ 		assert: (self argTypesAt: #ffiTestInts:with:with:with:)
- 		assert: (self argTypesAt: #ffiTestLong:with:with:with:)
  		equals: (Array new: 5 withAll: ExternalType long).!

Item was changed:
  ----- Method: FFITypeNameTests>>testAtomicUlong (in category 'tests') -----
  testAtomicUlong
  
  	self
  		flag: #ffiLongVsInt;
+ 		assert: (self argTypesAt: #ffiTestUint:with:with:with:) allButFirst
- 		assert: (self argTypesAt: #ffiTestUlong:with:with:with:) allButFirst
  		equals: (Array new: 4 withAll: ExternalType ulong).!

Item was changed:
  ----- Method: FFITypeNameTests>>testStruct (in category 'tests') -----
  testStruct
  
  	self
+ 		assert: (self argTypesAt: #ffiTestStruct64:with:)
- 		assert: (self argTypesAt: #ffiTestPoint2:with:)
  		equals: (Array new: 3 withAll: FFITestPoint2 externalType).!