Changeset 6051

Timestamp:

Mar 17, 2007, 12:01:36 AM (18 years ago)

Author:

Gary Byers

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:

• branches/objc-gf/ccl/lib/db-io.lisp (modified) (1 diff)

branches/objc-gf/ccl/lib/db-io.lisp

@@ -1725 +1725 @@
       (let* ((r (%load-foreign-record (db-records d) name ftd already)))
         (when r (return r))))))
+
+
+;;;
+;;; Defining the handful of foreign structures that are used
+;;; to build OpenMCL here ensures that all backends see appropriate
+;;; definitions of them.
+;;;
+(def-foreign-type nil
+    (:struct :cdb-datum
+             (:data (* t))
+             (:size (:unsigned 32))))
+
+(def-foreign-type nil
+    (:struct :dbm-constant
+             (:class (:unsigned 32))
+             (:pad (:unsigned 32))
+             (:value
+              (:union nil
+                      (:s32 (:signed 32))
+                      (:u32 (:unsigned 32))
+                      (:single-float :float)
+                      (:double-float :double)))))
+;;; This matches the xframe-list struct definition in
+;;; "ccl:lisp-kernel;constants.h"
+(def-foreign-type nil
+    (struct :xframe-list
+            (this (* t #|(struct :ucontext)|#))
+            (prev (* (struct  :xframe-list)))))
+