Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
15502d14
Commit
15502d14
authored
Jul 14, 1992
by
wlott
Browse files
Fixed dump-1-location to also take integer positions directly, instead of
always requiring labels.
parent
02ba6208
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/debug-dump.lisp
View file @
15502d14
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.
29
1992/0
5/21 23:16
:2
9
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.
30
1992/0
7/14 03:41
:2
3
wlott Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -112,7 +112,8 @@
;;;
(
defun
dump-1-location
(
node
block
kind
tlf-num
label
live
var-locs
vop
)
(
declare
(
type
node
node
)
(
type
ir2-block
block
)
(
type
local-tn-bit-vector
live
)
(
type
label
label
)
(
type
local-tn-bit-vector
live
)
(
type
(
or
label
index
)
label
)
(
type
location-kind
kind
)
(
type
(
or
index
null
)
tlf-num
)
(
type
hash-table
var-locs
)
(
type
(
or
vop
null
)
vop
))
...
...
@@ -122,7 +123,7 @@
0
)
*byte-buffer*
)
(
let
((
loc
(
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
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment