Changeset 5966

Timestamp:

Feb 28, 2007, 6:04:25 AM (18 years ago)

Author:

Gary Byers

Message:

In %fixnum-truncate, use -8(sp) rather than %rbp; trust
callback_for_interrupt() to preserve it.

File:

• trunk/ccl/level-0/X86/x86-numbers.lisp (modified) (1 diff)

trunk/ccl/level-0/X86/x86-numbers.lisp

@@ -111 +111 @@
 
 
-;;; We'll get a SIGFPE if divisor is 0.  We need a 3rd imm reg here.
+;;; We'll get a SIGFPE if divisor is 0.
+;;; Don't use %rbp.  Trust callback_for_interrupt() to preserve
+;;; the word below the stack pointer
 (defx86lapfunction %fixnum-truncate ((dividend arg_y) (divisor arg_z))
+  (unbox-fixnum divisor imm0)
+  (movq (% imm0) (@ -8 (% rsp)))
   (unbox-fixnum dividend imm0)
   (cqto)                                ; imm1 := sign_extend(imm0)
-  (pushq (% rbp))
-  (unbox-fixnum divisor rbp)
-  (idivq (% rbp))
-  (popq (% rbp))
+  (idivq (@ -8 (% rsp)))
   (movq (% rsp) (% temp0))
   (box-fixnum imm1 arg_y)