Changeset 11524

Timestamp:

Dec 15, 2008, 11:40:16 AM (11 years ago)

Author:

gb

Message:

Don't record "definitions" of structs/unions that have no fields.

File:

• trunk/source/library/parse-ffi.lisp (modified) (2 diffs)

trunk/source/library/parse-ffi.lisp

@@ -619 +619 @@
 
 (defun record-global-union (u)
-  (when *ffi-global-unions*
+  (when (and *ffi-global-unions* (ffi-union-fields u))
     (setf (gethash (ffi-union-reference u) *ffi-global-unions*) u)))
 
 (defun record-global-transparent-union (u)
-  (when *ffi-global-transparent-unions*
+  (when (and *ffi-global-transparent-unions* (ffi-transparent-union-fields u))
     (setf (gethash (ffi-transparent-union-reference u) *ffi-global-transparent-unions*) u)))
 
@@ -655 +655 @@
 
 (defun record-global-struct (s)
-  (when *ffi-global-structs*
+  (when (and *ffi-global-structs* (ffi-struct-fields s))
     (setf (gethash (ffi-struct-reference s) *ffi-global-structs*) s)))