Changeset 14000


Ignore:
Timestamp:
Jul 21, 2010, 4:05:29 AM (9 years ago)
Author:
gb
Message:

Better .SPcheck-fpu-exception.
New UUO for FP exceptions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/arm-spentry.s

    r13988 r14000  
    12091209        __(bic imm2,imm2,#0xff)
    12101210        __(fmxr fpscr,imm2)
    1211         /* Need to figure out how to signal this ; not clear that
    1212            vfp state is in ucontext.  For now ... */
    1213         __(uuo_debug_trap(al))
    1214         __(bx lr)
     1211        __(build_lisp_frame(imm2))
     1212        __(mov imm2,#34<<fixnumshift)
     1213        __(movc16(imm1,make_header(33,subtag_u32_vector)))
     1214        __(stack_allocate_ivector(imm1,imm2))
     1215        __(add arg_z,sp,#fulltag_misc)
     1216        __(str imm0,[arg_z,#misc_data_offset])
     1217        __(add imm0,sp,#dnode_size)
     1218        __(fstmiad imm0,{d0-d15})
     1219        __(ldr imm1,[lr,#-8])
     1220        __(uuo_error_fpu_exception(al,arg_z,imm1))
     1221        __(add imm0,sp,#dnode_size)
     1222        __(fldmiad imm0,{d0-d15})
     1223        __(add sp,sp,#34<<fixnumshift)
     1224        __(return_lisp_frame(imm0))
    12151225
    12161226_spentry(discard_stack_object)
Note: See TracChangeset for help on using the changeset viewer.