Ticket #968: x8632-bignum.lisp.diff

File x8632-bignum.lisp.diff, 629 bytes (added by uchida, 2 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