Changeset 14259 for branches/qres/ccl/level-1
- Timestamp:
- Sep 15, 2010, 12:07:42 AM (9 years ago)
- Location:
- branches/qres/ccl
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/qres/ccl
- Property svn:mergeinfo changed
/trunk/source merged: 14258
- Property svn:mergeinfo changed
-
branches/qres/ccl/level-1/linux-files.lisp
r13565 r14259 2244 2244 (arch (backend-target-arch *target-backend*))) 2245 2245 (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)) 2247 2250 (ctype-subtype ctype) 2248 2251 (length v)) -
branches/qres/ccl/level-1/sysutils.lisp
r13339 r14259 762 762 763 763 (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))) 764 766 (let* ((backend (if target (find-backend target) *target-backend*)) 765 767 (alist (arch::target-uvector-subtags (backend-target-arch backend)))
Note: See TracChangeset
for help on using the changeset viewer.