added FFIBoolean32 type

src/ThreadedFFI/FFIBoolean32.class.st

@@ -0,0 +1,49 @@
+Class {
+	#name : #FFIBoolean32,
+	#superclass : #FFIExternalType,
+	#category : #'ThreadedFFI-Types'
+}
+
+{ #category : #accessing }
+FFIBoolean32 class >> externalType [
+	^ ExternalType bool
+]
+
+{ #category : #accessing }
+FFIBoolean32 class >> externalTypeAlignment [
+	^ 1
+]
+
+{ #category : #accessing }
+FFIBoolean32 class >> externalTypeSize [
+	^ 1
+]
+
+{ #category : #private }
+FFIBoolean32 >> basicHandle: aHandle at: index [
+
+	^ (aHandle signedLongAt: index) ~~ 0
+]
+
+{ #category : #private }
+FFIBoolean32 >> basicHandle: aHandle at: index put: value [
+
+	^ aHandle signedLongAt: index put: value asBit
+]
+
+{ #category : #accessing }
+FFIBoolean32 >> defaultReturnOnError [
+
+	^ false
+]
+
+{ #category : #'stack parameter classification' }
+FFIBoolean32 >> stackValueParameterClass [
+	^ #integer
+]
+
+{ #category : #accessing }
+FFIBoolean32 >> tfExternalType [
+
+	^ TFDerivedType boolean32
+]

src/ThreadedFFI/TFBoolean32Type.class.st

@@ -0,0 +1,11 @@
+Class {
+	#name : #TFBoolean32Type,
+	#superclass : #TFBooleanType,
+	#category : #'ThreadedFFI-Types'
+}
+
+{ #category : #accessing }
+TFBoolean32Type >> basicType [
+
+	^ TFBasicType uint32
+]

src/ThreadedFFI/TFDerivedType.class.st

@@ -3,6 +3,7 @@ Class {
 	#superclass : #Object,
 	#classVars : [
 		'BOOLEAN',
+		'BOOLEAN32',
 		'OOP',
 		'STRING'
 	],
@@ -15,6 +16,12 @@ TFDerivedType class >> boolean [
 	^ BOOLEAN ifNil: [ BOOLEAN := TFBooleanType new ]
 ]
 
+{ #category : #accessing }
+TFDerivedType class >> boolean32 [
+
+	^ BOOLEAN32 ifNil: [ BOOLEAN32 := TFBoolean32Type new ]
+]
+
 { #category : #accessing }
 TFDerivedType class >> objectPointer [