Changeset 6051


Ignore:
Timestamp:
Mar 17, 2007, 7:01:36 AM (13 years ago)
Author:
gb
Message:

Define a few foreign structure types here, rather than inside
INSTALL-STANDARD-FOREIGN-TYPES. (The MAKE-LOAD-FORM for FOREIGN-RECORD-TYPE
now requires that the foreign type system has been initialized.)

It's not clear why these foreign types were ever defined as part of FTD
initialization. My vague recollection is that this had something to
do with cross-compilation, but some of these things have never cross-compiled
well, anyway.

File:
1 edited

Legend:

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

    r5959 r6051  
    17251725      (let* ((r (%load-foreign-record (db-records d) name ftd already)))
    17261726        (when r (return r))))))
     1727
     1728
     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.