Cface__CIntNode.st
changeset 5 c110eef5b9ef
parent 2 cfd2c393abfe
child 9 03c7a764d2be
--- 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'!