Changeset 6053


Ignore:
Timestamp:
Mar 18, 2007, 1:29:20 AM (13 years ago)
Author:
gb
Message:

Move the foreign structure definitions to inside
INSTALL-STANDARD-FOREIGN-TYPES.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/objc-gf/ccl/lib/db-io.lisp

    r6051 r6053  
    17271727
    17281728
    1729 ;;;
    1730 ;;; Defining the handful of foreign structures that are used
    1731 ;;; to build OpenMCL here ensures that all backends see appropriate
    1732 ;;; definitions of them.
    1733 ;;;
    1734 (def-foreign-type nil
    1735     (:struct :cdb-datum
    1736              (:data (* t))
    1737              (:size (:unsigned 32))))
    1738 
    1739 (def-foreign-type nil
    1740     (:struct :dbm-constant
    1741              (:class (:unsigned 32))
    1742              (:pad (:unsigned 32))
    1743              (:value
    1744               (:union nil
    1745                       (:s32 (:signed 32))
    1746                       (:u32 (:unsigned 32))
    1747                       (:single-float :float)
    1748                       (:double-float :double)))))
    1749 ;;; This matches the xframe-list struct definition in
    1750 ;;; "ccl:lisp-kernel;constants.h"
    1751 (def-foreign-type nil
    1752     (struct :xframe-list
    1753             (this (* t #|(struct :ucontext)|#))
    1754             (prev (* (struct  :xframe-list)))))
    1755 
Note: See TracChangeset for help on using the changeset viewer.