Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
99f07d10
Commit
99f07d10
authored
35 years ago
by
ram
Browse files
Options
Downloads
Patches
Plain Diff
Added uses of NOTE-THIS-LOCATION to node return PCs for debug info.
parent
a966d5e2
Branches
Branches containing commit
Tags
Tags containing commit
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
compiler/old-rt/call.lisp
+20
-7
20 additions, 7 deletions
compiler/old-rt/call.lisp
with
20 additions
and
7 deletions
compiler/old-rt/call.lisp
+
20
−
7
View file @
99f07d10
...
@@ -378,6 +378,7 @@ default-value-5
...
@@ -378,6 +378,7 @@ default-value-5
(
:info
save
return-pc
target
nvals
)
(
:info
save
return-pc
target
nvals
)
(
:ignore
args
save
)
(
:ignore
args
save
)
(
:node-var
node
)
(
:node-var
node
)
(
:vop-var
vop
)
(
:temporary
(
:scs
(
descriptor-reg
))
move-temp
nil-temp
)
(
:temporary
(
:scs
(
descriptor-reg
))
move-temp
nil-temp
)
(
:temporary
(
:sc
stack
(
:temporary
(
:sc
stack
:offset
env-save-offset
)
:offset
env-save-offset
)
...
@@ -387,6 +388,7 @@ default-value-5
...
@@ -387,6 +388,7 @@ default-value-5
(
inst
lr
cont-tn
sp-tn
)
(
inst
lr
cont-tn
sp-tn
)
(
inst
balix
return-pc
target
)
(
inst
balix
return-pc
target
)
(
inst
cal
sp-tn
sp-tn
(
current-frame-size
))
(
inst
cal
sp-tn
sp-tn
(
current-frame-size
))
(
note-this-location
vop
:unknown-return
)
(
unassemble
(
unassemble
(
default-unknown-values
node
values
nvals
move-temp
nil-temp
))
(
default-unknown-values
node
values
nvals
move-temp
nil-temp
))
(
load-stack-tn
env-tn
env-save
)))
(
load-stack-tn
env-tn
env-save
)))
...
@@ -401,6 +403,7 @@ default-value-5
...
@@ -401,6 +403,7 @@ default-value-5
(
:save-p
t
)
(
:save-p
t
)
(
:info
save
return-pc
target
)
(
:info
save
return-pc
target
)
(
:ignore
args
save
)
(
:ignore
args
save
)
(
:vop-var
vop
)
(
:temporary
(
:sc
stack
(
:temporary
(
:sc
stack
:offset
env-save-offset
)
:offset
env-save-offset
)
env-save
)
env-save
)
...
@@ -409,6 +412,7 @@ default-value-5
...
@@ -409,6 +412,7 @@ default-value-5
(
inst
lr
cont-tn
sp-tn
)
(
inst
lr
cont-tn
sp-tn
)
(
inst
balix
return-pc
target
)
(
inst
balix
return-pc
target
)
(
inst
cal
sp-tn
sp-tn
(
current-frame-size
))
(
inst
cal
sp-tn
sp-tn
(
current-frame-size
))
(
note-this-location
vop
:unknown-return
)
(
unassemble
(
unassemble
(
receive-unknown-values
node
values-start
nvals
start
count
))
(
receive-unknown-values
node
values-start
nvals
start
count
))
(
load-stack-tn
env-tn
env-save
)))
(
load-stack-tn
env-tn
env-save
)))
...
@@ -427,10 +431,12 @@ default-value-5
...
@@ -427,10 +431,12 @@ default-value-5
(
:save-p
t
)
(
:save-p
t
)
(
:info
save
return-pc
target
)
(
:info
save
return-pc
target
)
(
:ignore
args
res
save
)
(
:ignore
args
res
save
)
(
:vop-var
vop
)
(
:generator
5
(
:generator
5
(
inst
lr
cont-tn
sp-tn
)
(
inst
lr
cont-tn
sp-tn
)
(
inst
balix
return-pc
target
)
(
inst
balix
return-pc
target
)
(
inst
cal
sp-tn
sp-tn
(
current-frame-size
))))
(
inst
cal
sp-tn
sp-tn
(
current-frame-size
))
(
note-this-location
vop
:known-return
)))
;;; Return from known values call. We receive the return locations as
;;; Return from known values call. We receive the return locations as
...
@@ -516,6 +522,7 @@ default-value-5
...
@@ -516,6 +522,7 @@ default-value-5
,@
(
unless
(
eq
return
:tail
)
,@
(
unless
(
eq
return
:tail
)
'
((
:save-p
t
)
'
((
:save-p
t
)
(
:node-var
node
)
(
:node-var
node
)
(
:vop-var
vop
)
(
:temporary
(
:sc
stack
(
:temporary
(
:sc
stack
:offset
env-save-offset
)
:offset
env-save-offset
)
env-save
)))
env-save
)))
...
@@ -631,10 +638,12 @@ default-value-5
...
@@ -631,10 +638,12 @@ default-value-5
,@
(
ecase
return
,@
(
ecase
return
(
:fixed
(
:fixed
'
((
unassemble
'
((
note-this-location
vop
:unknown-return
)
(
unassemble
(
default-unknown-values
node
values
nvals
move-temp
nil-temp
))))
(
default-unknown-values
node
values
nvals
move-temp
nil-temp
))))
(
:unknown
(
:unknown
'
((
unassemble
'
((
note-this-location
vop
:unknown-return
)
(
unassemble
(
receive-unknown-values
node
values-start
nvals
start
count
))))
(
receive-unknown-values
node
values-start
nvals
start
count
))))
(
:tail
))
(
:tail
))
...
@@ -942,10 +951,11 @@ default-value-5
...
@@ -942,10 +951,11 @@ default-value-5
(
:args
(
:args
(
nargs
:scs
(
any-reg
descriptor-reg
)))
(
nargs
:scs
(
any-reg
descriptor-reg
)))
(
:info
count
)
(
:info
count
)
(
:node-var
node
)
(
:vop-var
vop
)
(
:save-p
:compute-only
)
(
:generator
3
(
:generator
3
(
let
((
err-lab
(
generate-error-code
(
let
((
err-lab
(
generate-error-code
vop
clc::error-wrong-number-args
node
clc::error-wrong-number-args
nargs
)))
nargs
)))
(
cmpi
nargs
count
)
(
cmpi
nargs
count
)
(
inst
bnb
:eq
err-lab
))))
(
inst
bnb
:eq
err-lab
))))
...
@@ -954,5 +964,8 @@ default-value-5
...
@@ -954,5 +964,8 @@ default-value-5
;;;
;;;
(
define-vop
(
argument-count-error
)
(
define-vop
(
argument-count-error
)
(
:args
(
nargs
:scs
(
any-reg
descriptor-reg
)))
(
:args
(
nargs
:scs
(
any-reg
descriptor-reg
)))
(
:vop-var
vop
)
(
:save-p
:compute-only
)
(
:generator
0
(
:generator
0
(
error-call
clc::error-wrong-number-args
nargs
)))
(
error-call
clc::error-wrong-number-args
nargs
)
(
note-this-location
vop
:internal-error
)))
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment