Changeset 10121


Ignore:
Timestamp:
Jul 19, 2008, 2:48:26 AM (11 years ago)
Author:
rme
Message:

The story with double-float vectors is just like on ppc32.

Use target::target-most-positive-fixum instead of plain
most-positive-fixnum.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/sequences.lisp

    r9927 r10121  
    169169                                   0
    170170                                   (the fixnum (ash n 2))))
    171         ;; DOUBLE-FLOAT vectors have extra alignment padding on ppc32.
    172         #+ppc32-target
    173         (#.ppc32::subtag-double-float-vector
     171        ;; DOUBLE-FLOAT vectors have extra alignment padding on ppc32/x8632.
     172        #+(or ppc32-target x8632-target)
     173        (#.target::subtag-double-float-vector
    174174         (%copy-ivector-to-ivector src
    175175                                   (the fixnum (+ (the fixnum (ash start 3))
    176                                                   (- ppc32::misc-dfloat-offset
    177                                                      ppc32::misc-data-offset)))
     176                                                  (- target::misc-dfloat-offset
     177                                                     target::misc-data-offset)))
    178178                                   dest
    179                                    (- ppc32::misc-dfloat-offset
    180                                                      ppc32::misc-data-offset)
     179                                   (- target::misc-dfloat-offset
     180                                                     target::misc-data-offset)
    181181                                   (the fixnum (ash n 3))))
    182182        #+64-bit-target
     
    546546(defun some-xx-multi (caller at-end predicate first-seq sequences)
    547547  (let* ((sequences (cons first-seq sequences))
    548          (min-vector-length most-positive-fixnum)
     548         (min-vector-length target::target-most-positive-fixnum)
    549549         (arg-slice (make-list (list-length sequences)))
    550550         (cur-slice arg-slice)
     
    908908(defun check-count (c)
    909909  (if c
    910     (min (max (require-type c 'integer) 0) most-positive-fixnum)
    911     most-positive-fixnum))
     910    (min (max (require-type c 'integer) 0) target::target-most-positive-fixnum)
     911    target::target-most-positive-fixnum))
    912912
    913913;;; Delete:
     
    915915(defun list-delete-1 (item list from-end test test-not start end count key
    916916                           &aux (temp list)  revp)
    917   (unless end (setq end most-positive-fixnum))
     917  (unless end (setq end target::target-most-positive-fixnum))
    918918  (when (and from-end count)
    919919    (let ((len (length temp)))
     
    937937(defun list-delete-very-simple (item list start end count)
    938938  (unless start (setq start 0))
    939   (unless end (setq end most-positive-fixnum))
     939  (unless end (setq end target::target-most-positive-fixnum))
    940940  (setq count (check-count count))
    941941  (do* ((handle (cons nil list))
     
    956956(defun list-delete-moderately-complex (item list start end count test test-not key)
    957957  (unless start (setq start 0))
    958   (unless end (setq end most-positive-fixnum))
     958  (unless end (setq end target::target-most-positive-fixnum))
    959959  (setq count (check-count count))
    960960  (do* ((handle (cons nil list))
     
    976976                         end count key
    977977                         &aux (temp list)  revp)
    978   (unless end (setq end most-positive-fixnum))
     978  (unless end (setq end target::target-most-positive-fixnum))
    979979  (when (and from-end count)
    980980    (let ((len (length temp)))
     
    14441444(defun nsubstitute (new old sequence &key from-end (test #'eql) test-not
    14451445                        end
    1446                         (count most-positive-fixnum) (key #'identity) (start 0))
     1446                        (count target::target-most-positive-fixnum) (key #'identity) (start 0))
    14471447  "Return a sequence of the same kind as SEQUENCE with the same elements
    14481448  except that all elements equal to OLD are replaced with NEW. The SEQUENCE
     
    14971497(defun nsubstitute-if (new test sequence &key from-end (start 0)
    14981498                           end 
    1499                            (count most-positive-fixnum) (key #'identity))
     1499                           (count target::target-most-positive-fixnum) (key #'identity))
    15001500  "Return a sequence of the same kind as SEQUENCE with the same elements
    15011501   except that all elements satisfying the PRED are replaced with NEW.
     
    15131513
    15141514(defun nsubstitute-if-not (new test sequence &key from-end (start 0)
    1515                                end (count most-positive-fixnum) (key #'identity))
     1515                               end (count target::target-most-positive-fixnum) (key #'identity))
    15161516  "Return a sequence of the same kind as SEQUENCE with the same elements
    15171517   except that all elements not satisfying the TEST are replaced with NEW.
Note: See TracChangeset for help on using the changeset viewer.