Changeset 583


Ignore:
Timestamp:
Feb 28, 2004, 9:19:24 AM (16 years ago)
Author:
gb
Message:

MAKE-ARRAY (and variants) track explicit array displacement (from
Bryan O'Connor).

Location:
trunk/ccl/level-1
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-aprims.lisp

    r395 r583  
    543543
    544544(defun %make-displaced-array (dimensions displaced-to
    545                                          &optional fill adjustable offset temp-p)
    546   (declare (ignore temp-p))
     545                                         &optional fill adjustable
     546                                         offset explicitp)
    547547  (if offset
    548548    (unless (and (fixnump offset) (>= (the fixnum offset) 0))
     
    564564           (flags 0))
    565565      (declare (fixnum disp-size rank flags vect-subtype real-offset))
     566      (when explicitp
     567        (setq flags (bitset $arh_exp_disp_bit flags)))
    566568      (if (not (fixnump new-size))(error "Bad array dimensions ~s." dimensions))
    567569      (locally (declare (fixnum new-size))
  • trunk/ccl/level-1/l1-utils.lisp

    r492 r583  
    14221422               :displaced-to displaced-to :element-type element-type))
    14231423      (%make-displaced-array dims displaced-to
    1424                              fill-pointer adjustable displaced-index-offset))
     1424                             fill-pointer adjustable displaced-index-offset t))
    14251425     (t
    14261426      (when displaced-index-offset
Note: See TracChangeset for help on using the changeset viewer.