Changeset 15338

Timestamp:

Apr 21, 2012, 4:04:00 AM (13 years ago)

Author:

Gary Byers

Message:

New subprim .SPeabi_ff_callhf: loads arg fprs from vector on top
of stack, shrinks vector, falls into .SPeabi_ff_call.

TODO: will need hard-float runtime support for callbacks.

File:

• trunk/source/lisp-kernel/arm-spentry.s (modified) (2 diffs)

trunk/source/lisp-kernel/arm-spentry.s

@@ -2939 +2939 @@
         
 
-               
+_spentry(eabi_ff_callhf)
+        __(add imm0,sp,#8)
+        __(fldmfdd imm0,{d0-d7})
+        __(ldmia sp,{imm0-imm1})
+        __(sub imm0,imm0,#(16<<num_subtag_bits))
+        __(add imm2,sp,#16<<2)
+        __(stm imm2,{imm0-imm1})
+        __(mov sp,imm2)
 _spentry(eabi_ff_call)
         __(ldr arg_y,[rcontext,#tcr.last_lisp_frame])
@@ -4746 +4753 @@
         .long _SPdebind
         .long _SPeabi_callback
+        .long _SPeabi_ff_callhf
 local_label(end):       
                 _endfile