Fixing marshalling of arguments

pharo-project · Nov 6, 2020 · 19677b6 · 19677b6
1 parent c59e581
commit 19677b6
Show file tree

Hide file tree

Showing 5 changed files with 24 additions and 6 deletions.
diff --git a/src/ThreadedFFI-UFFI/FFIConst.extension.st b/src/ThreadedFFI-UFFI/FFIConst.extension.st
@@ -1,5 +1,11 @@
 Extension { #name : #FFIConst }
 
+{ #category : #'*ThreadedFFI-UFFI' }
+FFIConst >> emitArgument: aBuilder context: aContext [ 
+
+	aBuilder pushLiteral: self value
+]
+
 { #category : #'*ThreadedFFI-UFFI' }
 FFIConst >> tfExternalType [
 

diff --git a/src/ThreadedFFI/TFCharType.class.st b/src/ThreadedFFI/TFCharType.class.st
@@ -4,12 +4,6 @@ Class {
 	#category : #'ThreadedFFI-Types'
 }
 
-{ #category : #marshalling }
-TFCharType >> emitMarshallToPrimitive: builder [
-
-	builder send: #asInteger
-]
-
 { #category : #marshalling }
 TFCharType >> marshallFromPrimitive: aValue [
 

diff --git a/src/ThreadedFFI/TFDoubleType.class.st b/src/ThreadedFFI/TFDoubleType.class.st
@@ -10,6 +10,12 @@ Class {
 	#category : #'ThreadedFFI-Types'
 }
 
+{ #category : #writing }
+TFDoubleType >> emitMarshallToPrimitive: builder [
+
+	builder send: #asFloat
+]
+
 { #category : #reading }
 TFDoubleType >> readValue: anExternalAddress offset: offset [
 

diff --git a/src/ThreadedFFI/TFFloatType.class.st b/src/ThreadedFFI/TFFloatType.class.st
@@ -10,6 +10,12 @@ Class {
 	#category : #'ThreadedFFI-Types'
 }
 
+{ #category : #reading }
+TFFloatType >> emitMarshallToPrimitive: builder [
+
+	builder send: #asFloat
+]
+
 { #category : #reading }
 TFFloatType >> readValue: anExternalAddress offset: offset [
 

diff --git a/src/ThreadedFFI/TFIntType.class.st b/src/ThreadedFFI/TFIntType.class.st
@@ -13,6 +13,12 @@ Class {
 	#category : #'ThreadedFFI-Types'
 }
 
+{ #category : #marshalling }
+TFIntType >> emitMarshallToPrimitive: builder [
+
+	builder send: #asInteger
+]
+
 { #category : #reading }
 TFIntType >> readValue: anExternalAddress offset: offset [