Changeset 9366


Ignore:
Timestamp:
May 6, 2008, 4:20:48 PM (11 years ago)
Author:
rme
Message:

Use target::target-most-{positive,negative}-fixnum.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/l0-numbers.lisp

    r7875 r9366  
    10841084    (number-case number
    10851085      (fixnum
    1086        (if (eql number most-negative-fixnum)
     1086       (if (eql number target::target-most-negative-fixnum)
    10871087         (if (zerop divisor)
    10881088           (error 'division-by-zero :operation 'truncate :operands (list number divisor))
     
    11021102      (bignum (number-case divisor
    11031103                (fixnum (if (eq divisor 1) (values number 0)
    1104                           (if (eq divisor most-negative-fixnum);; << aargh
     1104                          (if (eq divisor target::target-most-negative-fixnum);; << aargh
    11051105                            (with-small-bignum-buffers ((bd divisor))
    11061106                              (bignum-truncate number bd))
     
    12021202    (number-case number
    12031203    (fixnum
    1204      (if (eql number most-negative-fixnum)
     1204     (if (eql number target::target-most-negative-fixnum)
    12051205       (if (zerop divisor)
    12061206         (error 'division-by-zero :operation 'truncate :operands (list number divisor))
     
    12201220     (bignum (number-case divisor
    12211221               (fixnum (if (eq divisor 1) number
    1222                          (if (eq divisor most-negative-fixnum)
     1222                         (if (eq divisor target::target-most-negative-fixnum)
    12231223                           (with-small-bignum-buffers ((bd divisor))
    12241224                             (bignum-truncate number bd :no-rem))
     
    14731473     (number-case divisor
    14741474       (fixnum
    1475         (if (eq divisor most-negative-fixnum)
     1475        (if (eq divisor target::target-most-negative-fixnum)
    14761476          (nth-value 1 (truncate number divisor))
    14771477          (bignum-truncate-by-fixnum-no-quo number divisor)))
     
    17191719                                    (mixup-hash-code
    17201720                                     (logand (get-internal-real-time)
    1721                                              (1- most-positive-fixnum))))))
     1721                                             (1- target::target-most-positive-fixnum))))))
    17221722         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
    17231723         (low (ldb (byte 16 0) ticks)))
     
    18381838  (if (zerop number)
    18391839    number
    1840     (let ((ratio (gvector :ratio (random most-positive-fixnum state) most-positive-fixnum)))
     1840    (let ((ratio (gvector :ratio (random target::target-most-positive-fixnum state) target::target-most-positive-fixnum)))
    18411841      (declare (dynamic-extent ratio))
    18421842      (* number ratio))))
     
    18521852      `(let ((,n ,nexp))
    18531853         (if (minusp (the fixnum ,n))
    1854            (if (eq ,n most-negative-fixnum)
     1854           (if (eq ,n target::target-most-negative-fixnum)
    18551855             (- ,n)
    18561856             (the fixnum (- (the fixnum ,n))))
     
    18761876         (number-case n2
    18771877          (fixnum
    1878            (if (eql n1 most-negative-fixnum)
    1879              (if (eql n2 most-negative-fixnum)
    1880                (- most-negative-fixnum)
    1881                (bignum-fixnum-gcd (- most-negative-fixnum) (abs n2)))
    1882              (if (eql n2 most-negative-fixnum)
    1883                (bignum-fixnum-gcd (- most-negative-fixnum) (abs n1))
     1878           (if (eql n1 target::target-most-negative-fixnum)
     1879             (if (eql n2 target::target-most-negative-fixnum)
     1880               (- target::target-most-negative-fixnum)
     1881               (bignum-fixnum-gcd (- target::target-most-negative-fixnum) (abs n2)))
     1882             (if (eql n2 target::target-most-negative-fixnum)
     1883               (bignum-fixnum-gcd (- target::target-most-negative-fixnum) (abs n1))
    18841884               (locally
    18851885                   (declare (optimize (speed 3) (safety 0))
     
    18881888                 (if (minusp n2)(setq n2 (the fixnum (- n2))))
    18891889               (%fixnum-gcd n1 n2)))))
    1890            (bignum (if (eql n1 most-negative-fixnum)
    1891                      (%bignum-bignum-gcd n2 (- most-negative-fixnum))
     1890           (bignum (if (eql n1 target::target-most-negative-fixnum)
     1891                     (%bignum-bignum-gcd n2 (- target::target-most-negative-fixnum))
    18921892                     (bignum-fixnum-gcd (bignum-abs n2)(fixnum-abs n1))))))
    18931893        (bignum
    18941894         (number-case n2
    18951895           (fixnum
    1896             (if (eql n2 most-negative-fixnum)
     1896            (if (eql n2 target::target-most-negative-fixnum)
    18971897              (%bignum-bignum-gcd (bignum-abs n1)(fixnum-abs n2))
    18981898              (bignum-fixnum-gcd (bignum-abs n1)(fixnum-abs n2))))
Note: See TracChangeset for help on using the changeset viewer.