Ignore:
Timestamp:
Sep 15, 2010, 12:07:42 AM (9 years ago)
Author:
gz
Message:

r14258 from trunk (defstruct changes)

Location:
branches/qres/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/qres/ccl

  • branches/qres/ccl/level-1/linux-files.lisp

    r13565 r14259  
    22442244           (arch (backend-target-arch *target-backend*)))
    22452245      (values (%inc-ptr pv (- (* 2 target::node-size) target::fulltag-misc))
    2246               (- (funcall (arch::target-array-data-size-function arch)
     2246              (- (funcall (locally
     2247                              ;; Don't really care about speed, but need to turn off typechecking for bootstrapping reasons
     2248                              (declare (optimize (speed 3) (safety 0)))
     2249                            (arch::target-array-data-size-function arch))
    22472250                          (ctype-subtype ctype)
    22482251                          (length v))
  • branches/qres/ccl/level-1/sysutils.lisp

    r13339 r14259  
    762762
    763763(defun type-keyword-code (type-keyword &optional target)
     764  ;; Don't really care about speed, but turn off typechecking for bootstrapping reasons
     765  (declare (optimize (speed 3) (safety 0)))
    764766  (let* ((backend (if target (find-backend target) *target-backend*))
    765767         (alist (arch::target-uvector-subtags (backend-target-arch backend)))
Note: See TracChangeset for help on using the changeset viewer.