Changeset 14259 for branches/qres/ccl/level-1

Timestamp:

Sep 15, 2010, 12:07:42 AM (9 years ago)

Author:

gz

Message:

r14258 from trunk (defstruct changes)

Location:

branches/qres/ccl

Files:

• . (modified) (1 prop)
• level-1/linux-files.lisp (modified) (1 diff)
• level-1/sysutils.lisp (modified) (1 diff)

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

@@ -2244 +2244 @@
            (arch (backend-target-arch *target-backend*)))
       (values (%inc-ptr pv (- (* 2 target::node-size) target::fulltag-misc))
-              (- (funcall (arch::target-array-data-size-function arch)
+              (- (funcall (locally
+                              ;; Don't really care about speed, but need to turn off typechecking for bootstrapping reasons
+                              (declare (optimize (speed 3) (safety 0)))
+                            (arch::target-array-data-size-function arch))
                           (ctype-subtype ctype)
                           (length v))

branches/qres/ccl/level-1/sysutils.lisp

@@ -762 +762 @@
 
 (defun type-keyword-code (type-keyword &optional target)
+  ;; Don't really care about speed, but turn off typechecking for bootstrapping reasons
+  (declare (optimize (speed 3) (safety 0)))
   (let* ((backend (if target (find-backend target) *target-backend*))
          (alist (arch::target-uvector-subtags (backend-target-arch backend)))