Cface__CPointerNode.st
changeset 3 110a9cbf8594
parent 2 cfd2c393abfe
child 4 fc74bd43a3eb
--- a/Cface__CPointerNode.st	Thu Jul 03 22:00:07 2008 +0000
+++ b/Cface__CPointerNode.st	Fri Jul 04 08:35:55 2008 +0000
@@ -51,11 +51,15 @@
 ffiTypeSymbol
     "Superclass Cface::CTypeNode says that I am responsible to implement this method"
     
-    ^(type isKindOf: CCharNode) 
-            ifTrue:[#charPointer]
-            ifFalse:[#pointer]
+    (type isCCharNode) 
+        ifTrue:[^#charPointer].
+    ((type isCStructNode) and:[type isAnonymous not]) 
+        ifTrue:[^type smalltalkClassNameWithNamespace].
+
+    ^#pointer
 
     "Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 04-07-2008 / 09:27:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 type