kludge generation of functiontype to emit a :pointer
Thu Dec 23 16:43:05 UTC 2010 attila.lendvai@gmail.com
* kludge generation of functiontype to emit a :pointer
diff -rN -u old-verrazano/src/backends/cffi/writers.lisp new-verrazano/src/backends/cffi/writers.lisp
--- old-verrazano/src/backends/cffi/writers.lisp 2015-04-25 19:49:27.294884330 +0000
+++ new-verrazano/src/backends/cffi/writers.lisp 2015-04-25 19:49:27.310884233 +0000
@@ -143,6 +143,10 @@
(write-string ")"))
(write-string ":pointer"))))
+(defmethod write-cffi-type ((node gccxml:functiontype))
+ ;; TODO FIXME KLUDGE
+ (write-string ":pointer"))
+
(defmethod write-cffi-type ((node gccxml:arraytype))
(write-cffi-type (type-of node))
(bind ((max (slot-value node 'gccxml:max)))