projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.13:
[sbcl.git]
/
src
/
compiler
/
debug-dump.lisp
diff --git
a/src/compiler/debug-dump.lisp
b/src/compiler/debug-dump.lisp
index
c852972
..
434fefe
100644
(file)
--- a/
src/compiler/debug-dump.lisp
+++ b/
src/compiler/debug-dump.lisp
@@
-100,7
+100,7
@@
0)
*byte-buffer*)
0)
*byte-buffer*)
- (let ((loc (if (target-fixnump label) label (label-position label))))
+ (let ((loc (if (fixnump label) label (label-position label))))
(write-var-integer (- loc *previous-location*) *byte-buffer*)
(setq *previous-location* loc))
(write-var-integer (- loc *previous-location*) *byte-buffer*)
(setq *previous-location* loc))
@@
-244,7
+244,7
@@
;;; we need them or not.
(defun debug-source-for-info (info)
(declare (type source-info info))
;;; we need them or not.
(defun debug-source-for-info (info)
(declare (type source-info info))
- (assert (not (source-info-current-file info)))
+ (aver (not (source-info-current-file info)))
(mapcar #'(lambda (x)
(let ((res (make-debug-source
:from :file
(mapcar #'(lambda (x)
(let ((res (make-debug-source
:from :file
@@
-252,7
+252,7
@@
:compiled (source-info-start-time info)
:source-root (file-info-source-root x)
:start-positions
:compiled (source-info-start-time info)
:source-root (file-info-source-root x)
:start-positions
- (unless (eq *byte-compile* 't)
+ (unless (eq *byte-compile* t)
(coerce-to-smallest-eltype
(file-info-positions x)))))
(name (file-info-name x)))
(coerce-to-smallest-eltype
(file-info-positions x)))))
(name (file-info-name x)))
@@
-346,7
+346,7
@@
(vector-push-extend id buffer)))
(if tn
(vector-push-extend (tn-sc-offset tn) buffer)
(vector-push-extend id buffer)))
(if tn
(vector-push-extend (tn-sc-offset tn) buffer)
- (assert minimal))
+ (aver minimal))
(when save-tn
(vector-push-extend (tn-sc-offset save-tn) buffer)))
(values))
(when save-tn
(vector-push-extend (tn-sc-offset save-tn) buffer)))
(values))
@@
-415,8
+415,8
@@
(let ((res (gethash var var-locs)))
(cond (res)
(t
(let ((res (gethash var var-locs)))
(cond (res)
(t
- (assert (or (null (leaf-refs var))
- (not (tn-offset (leaf-info var)))))
+ (aver (or (null (leaf-refs var))
+ (not (tn-offset (leaf-info var)))))
'deleted))))
\f
;;;; arguments/returns
'deleted))))
\f
;;;; arguments/returns
@@
-567,7
+567,7
@@
minimal-debug-function-name-symbol)
(t
minimal-debug-function-name-packaged))))
minimal-debug-function-name-symbol)
(t
minimal-debug-function-name-packaged))))
- (assert (or (atom name) setf-p))
+ (aver (or (atom name) setf-p))
(let ((options 0))
(setf (ldb minimal-debug-function-name-style-byte options) name-rep)
(setf (ldb minimal-debug-function-kind-byte options)
(let ((options 0))
(setf (ldb minimal-debug-function-name-style-byte options) name-rep)
(setf (ldb minimal-debug-function-kind-byte options)