Ignore:
Timestamp:
Dec 26, 2010, 1:33:54 PM (9 years ago)
Author:
gb
Message:

Define :ucontext manually for Android.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/arm-trap-support.lisp

    r14179 r14512  
    1717(in-package "CCL")
    1818
     19#+androidarm-target
     20(eval-when (:compile-toplevel :execute)
     21  (def-foreign-type :__sigset_t
     22      (:struct nil
     23        (:__val (:array :unsigned-long 32))))
     24  (def-foreign-type nil
     25      (:struct :sigcontext
     26        (:trap_no :unsigned-long)
     27        (:error_code :unsigned-long)
     28        (:oldmask :unsigned-long)
     29        (:arm_r0 :unsigned-long)
     30        (:arm_r1 :unsigned-long)
     31        (:arm_r2 :unsigned-long)
     32        (:arm_r3 :unsigned-long)
     33        (:arm_r4 :unsigned-long)
     34        (:arm_r5 :unsigned-long)
     35        (:arm_r6 :unsigned-long)
     36        (:arm_r7 :unsigned-long)
     37        (:arm_r8 :unsigned-long)
     38        (:arm_r9 :unsigned-long)
     39        (:arm_r10 :unsigned-long)
     40        (:arm_fp :unsigned-long)
     41        (:arm_ip :unsigned-long)
     42        (:arm_sp :unsigned-long)
     43        (:arm_lr :unsigned-long)
     44        (:arm_pc :unsigned-long)
     45        (:arm_cpsr :unsigned-long)
     46        (:fault_address :unsigned-long)))
     47  (def-foreign-type :mcontext_t (:struct :sigcontext))
     48  (def-foreign-type nil
     49      (:struct :sigaltstack
     50        (:ss_sp :address)
     51        (:ss_flags :int)
     52        (:ss_size :size_t)))
     53  (def-foreign-type :stack_t (:struct :sigaltstack))
     54  (def-foreign-type nil
     55      (:struct :ucontext
     56        (:uc_flags :unsigned-long)
     57        (:uc_link (:* (:struct :ucontext)))
     58        (:uc_stack :stack_t)
     59        (:uc_mcontext :mcontext_t)
     60        (:uc_sigmask :__sigset_t)
     61        (:uc_regspace (:array :unsigned-long 128))))
     62  (def-foreign-type :ucontext_t (:struct :ucontext)))
     63 
     64   
     65 
     66 
     67       
     68       
    1969#+linuxarm-target
    2070(progn
Note: See TracChangeset for help on using the changeset viewer.