Changeset 15123

Timestamp:

Dec 8, 2011, 11:31:22 PM (13 years ago)

Author:

Gary Byers

Message:

Need to restore double-float-zero after ffcall.

File:

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

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

@@ -2908 +2908 @@
         __(add sp,sp,#dnode_size)
         __(ldmia sp!,{r0,r1,r2,r3})
-        __(blx r4) 
+        __(blx r4)
+        __(adr temp1,1f)
+        __(fldd double_float_zero,[temp1])
         __(mov temp1,#0)
         __(mov temp2,#0)
@@ -2925 +2927 @@
         __(check_pending_interrupt(temp2))
         __(bx lr)
-        
+        .align 3
+1:      .long 0
+        .long 0