Changeset 11524


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/parse-ffi.lisp

    r11493 r11524  
    619619
    620620(defun record-global-union (u)
    621   (when *ffi-global-unions*
     621  (when (and *ffi-global-unions* (ffi-union-fields u))
    622622    (setf (gethash (ffi-union-reference u) *ffi-global-unions*) u)))
    623623
    624624(defun record-global-transparent-union (u)
    625   (when *ffi-global-transparent-unions*
     625  (when (and *ffi-global-transparent-unions* (ffi-transparent-union-fields u))
    626626    (setf (gethash (ffi-transparent-union-reference u) *ffi-global-transparent-unions*) u)))
    627627
     
    655655
    656656(defun record-global-struct (s)
    657   (when *ffi-global-structs*
     657  (when (and *ffi-global-structs* (ffi-struct-fields s))
    658658    (setf (gethash (ffi-struct-reference s) *ffi-global-structs*) s)))
    659659
Note: See TracChangeset for help on using the changeset viewer.