Changeset 11821


Ignore:
Timestamp:
Mar 18, 2009, 11:49:37 PM (11 years ago)
Author:
gz
Message:

Make sure standard optimize settings are in effect when relying on inlining or lack of typechecking, so I can experiment with builds using non-standard global settings

Location:
branches/working-0711/ccl
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-aprims.lisp

    r11265 r11821  
    177177            (index 0 (1+ index)))
    178178           ((atom checked-list) returned-list)
    179         (declare (type index index))
     179        (declare (type fixnum index))
    180180        (if (>= index n)
    181181          (pop returned-list))))
     
    27812781       (max-upper #\u+0000)
    27822782       (max-lower #\u+0000))
     2783  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    27832784  (dolist (pair mapping)
    27842785    (destructuring-bind (upper . lower) pair
     
    28552856(defstatic *alpha-char-bits*
    28562857  (let* ((bits (make-array #x2fa1e :element-type 'bit)))
     2858    (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    28572859    (dolist (range '((#x0041 . #x005A)
    28582860                     (#x0061 . #x007A)
  • branches/working-0711/ccl/level-1/l1-clos-boot.lisp

    r11810 r11821  
    958958    (loop
    959959      (multiple-value-bind (found name cell) (m)
    960         (declare (type class-cell cell))
     960        (declare (optimize speed) (type class-cell cell))
    961961        (unless found (return))
    962962        (when cell
     
    13061306(defun find-class (name &optional (errorp t) environment)
    13071307  (let* ((cell (find-class-cell name nil)))
    1308     (declare (type class-cell cell))
     1308    (declare (optimize speed) (type class-cell cell))
    13091309    (or (and cell (class-cell-class cell))
    13101310        (let ((defenv (and environment (definition-environment environment))))
     
    15101510
    15111511(defun make-cpl-bits (cpl)
     1512  (declare (optimize speed))
    15121513  (when cpl
    15131514    (let* ((max 0))
     
    17791780      (ordinal-type-class-alist ())
    17801781      (ordinal-type-class-alist-lock (make-lock)))
     1782
     1783  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    17811784
    17821785;; The built-in classes.
     
    26312634(defun %make-instance (class-cell &rest initargs)
    26322635  (declare (dynamic-extent initargs))
     2636  (declare (optimize speed)) ;; make sure everything gets inlined that needs to be.
    26332637  (apply #'make-instance
    26342638         (or (class-cell-class class-cell) (class-cell-name  (the class-cell class-cell)))
  • branches/working-0711/ccl/level-1/l1-dcode.lisp

    r11351 r11821  
    625625                    *min-gf-dispatch-table-size*))
    626626  (let ((res (%cons-gf-dispatch-table size)))
     627    (declare (optimize (speed 3) (safety 0)))
    627628    (setf (%gf-dispatch-table-mask res) (%i- (%ilsr 1 size) 1)
    628629          (%gf-dispatch-table-argnum res) 0
  • branches/working-0711/ccl/level-1/l1-lisp-threads.lisp

    r11660 r11821  
    301301                #+32-bit-target :unsigned-fullword ts-size
    302302                :address))))
    303     (declare (fixum tcr))
     303    (declare (fixnum tcr))
    304304    (if (zerop tcr)
    305305      (error "Can't create thread")
     
    851851;;; True if the object is in one of the heap areas
    852852(defun %in-consing-area-p (x area)
    853   (declare (fixnum x))                  ; lie
     853  (declare (optimize (speed 3) (safety 0)) (fixnum x))       ; lie
    854854  (let* ((low (%fixnum-ref area target::area.low))
    855855         (high (%fixnum-ref area target::area.high))
  • branches/working-0711/ccl/lib/level-2.lisp

    r9881 r11821  
    303303             `(setf (symbol-function ',name)
    304304                    (qlfun ,name ,vars ,@body))))
     305  (declare (optimize (speed 1) (safety 1)))
    305306  (%eval-redef %ilsl (n x))
    306307  (%eval-redef %ilsr (n x))
  • branches/working-0711/ccl/lib/sequences.lisp

    r11164 r11821  
    20292029  "Given a character count and an optional fill character, makes and returns
    20302030   a new string COUNT long filled with the fill character."
     2031  (declare (optimize (speed 1) (safety 1)))
    20312032  (when (and initial-element-p (not (typep initial-element 'character)))
    20322033    (report-bad-arg initial-element 'character))
  • branches/working-0711/ccl/xdump/xfasload.lisp

    r11164 r11821  
    18041804  (let* ((backend (find-backend target))
    18051805         (any (not (null force)))
    1806          (outpath (merge-pathnames dir (backend-target-fasl-pathname backend))))
     1806         (outpath (merge-pathnames dir (backend-target-fasl-pathname backend)))
     1807         (*nx-speed* 1)
     1808         (*nx-safety* 1))
    18071809    (in-development-mode
    18081810     (dolist (src (sort (directory (merge-pathnames dir "*.lisp"))
Note: See TracChangeset for help on using the changeset viewer.