Changeset 5837


Ignore:
Timestamp:
Jan 31, 2007, 4:58:51 AM (13 years ago)
Author:
gb
Message:

BIGNUM-NEGATE-TO-POINTER.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-bignum64.lisp

    r5587 r5837  
    20242024              carry carry-out)))))
    20252025
     2026(defun bignum-negate-to-pointer (big len res)
     2027  (declare (fixnum len))
     2028  (let* ((carry 1))
     2029    (do* ((i 0 (1+ i))
     2030          (j 0 (+ j 4)))
     2031         ((= i len) carry)
     2032      (declare (fixnum i))
     2033      (multiple-value-bind (result-digit carry-out)
     2034          (%add-with-carry (%lognot (bignum-ref big i)) 0 carry)
     2035        (setf (%get-unsigned-long res j) result-digit
     2036              carry carry-out)))))
     2037 
     2038
    20262039(defun %bignum-count-trailing-zero-bits (bignum)
    20272040  (let* ((count 0))
Note: See TracChangeset for help on using the changeset viewer.