Changeset 385

Timestamp:

Jan 24, 2004, 3:43:08 PM (21 years ago)

Author:

Gary Byers

Message:

Start to associate "ordinal" numbers with types (for typed pointers.)

File:

• trunk/ccl/lib/foreign-types.lisp (modified) (1 diff)

trunk/ccl/lib/foreign-types.lisp

@@ -57 +57 @@
   (dirlist (make-dll-header))
   (attributes #+darwinppc-target '(:signed-char :struct-by-value :prepend-underscores)
-              #+linuxppc-target ()))
+              #+linuxppc-target ())
+  (ordinal->type (make-array 100 :fill-pointer 0)))
 
 (defvar *host-ftd* (make-ftd))