Changeset 8011


Ignore:
Timestamp:
Jan 7, 2008, 4:13:46 PM (12 years ago)
Author:
gb
Message:

Build a stack frame in %FIXNUM-TRUNCATE, to avoid endless rounds of
mail.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-numbers.lisp

    r6481 r8011  
    113113;;; the word below the stack pointer
    114114(defx86lapfunction %fixnum-truncate ((dividend arg_y) (divisor arg_z))
     115  (save-simple-frame)
    115116  (unbox-fixnum divisor imm0)
    116   (movq (% imm0) (@ -8 (% rsp)))
     117  (movq (% imm0) (% imm2))
    117118  (unbox-fixnum dividend imm0)
    118119  (cqto)                                ; imm1 := sign_extend(imm0)
    119   (idivq (@ -8 (% rsp)))
     120  (idivq (% imm2))
     121  (pop (% rbp))
    120122  (movq (% rsp) (% temp0))
    121123  (box-fixnum imm1 arg_y)
Note: See TracChangeset for help on using the changeset viewer.