--- a/Cface__CIntNode.st Fri Jul 04 12:05:15 2008 +0000
+++ b/Cface__CIntNode.st Thu Jul 10 07:31:14 2008 +0000
@@ -12,12 +12,27 @@
!CIntNode methodsFor:'accessing'!
+cByteSize
+
+ "
+ Cface::CIntNode new cByteSize
+ "
+
+ %{
+ return __MKSMALLINT(sizeof(int));
+ %}.
+ ^4
+
+ "Created: / 09-07-2008 / 19:34:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
ffiTypeSymbol
"Superclass Cface::CTypeNode says that I am responsible to implement this method"
- ^ #int16
+ ^ #int32
"Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
+ "Modified: / 10-07-2008 / 07:55:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
!
smalltalkName
@@ -26,6 +41,13 @@
^#SmallInteger
"Created: / 12-02-2008 / 22:06:24 / janfrog"
+!
+
+smalltalkxValueExtractionSelector
+
+ ^#doubleWordAt:
+
+ "Created: / 09-07-2008 / 21:45:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !
!CIntNode methodsFor:'printing'!