Changeset 5527

Timestamp:

Nov 8, 2006, 11:50:57 AM (18 years ago)

Author:

Gary Byers

Message:

In darwin Fake Structures For Leopard nonsense: define the stack context
struct separately, make the ucontext stack field an instance of it.
(Not -sure- if that was necessary, but :poweropen-target was accidentally
on *FEATURES* and foreign struct layout was using read-time condtionalization
to decide whether or not to use brain-dead structure-alignment rules
leftover from AIX/PowerOpen.

File:

• trunk/ccl/level-1/x86-trap-support.lisp (modified) (1 diff)

trunk/ccl/level-1/x86-trap-support.lisp

@@ -83 +83 @@
                  (:fs :x86_float_state64_t)))
     (def-foreign-type nil
+        (:struct :portable_uc_stack
+                 (:ss_sp (:* :void))
+                 (:ss_size (:unsigned 64))
+                 (:ss_flags  (:signed 32))))
+    (def-foreign-type nil
         (:struct :portable_ucontext64
                  (:onstack (:signed 32))
                  (:sigmask (:unsigned 32))
-                 (:ss_sp :address)
-                 (:ss_size (:unsigned 64))
-                 (:ss_flags  (:signed 32))
+                 (:stack (:struct :portable_uc_stack))
                  (:link :address)
                  (:uc_mcsize (:unsigned 64))