Ticket #968: x8632-bignum.lisp.diff

File x8632-bignum.lisp.diff, 629 bytes (added by uchida, 7 years ago)
  • ccl/level-0/X86/X8632/x8632-bignum.lisp

    old new  
    372372  (let ((xx mm2)
    373373        (yy mm3)
    374374        (cc mm4))
    375     (movl (@ x (% esp)) (% imm0))
    376     (movd (@ x8632::misc-data-offset (% imm0) (% i)) (% xx))
     375    ;;(movl (@ x (% esp)) (% imm0))
     376    (movl (@ x (% esp)) (% temp0))
     377    ;;(movd (@ x8632::misc-data-offset (% imm0) (% i)) (% xx))
     378    (movd (@ x8632::misc-data-offset (% temp0) (% i)) (% xx))
    377379    (unbox-fixnum y imm0)
    378380    (movd (% imm0) (% yy))
    379381    (pmuludq (% xx) (% yy))             ;64 bit product