Skip to content
Snippets Groups Projects
Commit b06e9dc1 authored by ram's avatar ram
Browse files

CONT -> FP.

parent 300b7156
No related branches found
No related tags found
No related merge requests found
...@@ -143,13 +143,13 @@ Functions/macros for your enjoyment: ...@@ -143,13 +143,13 @@ Functions/macros for your enjoyment:
(*standard-output* *debug-io*)) (*standard-output* *debug-io*))
"Show a listing of the call stack going down from the current frame. Frames "Show a listing of the call stack going down from the current frame. Frames
is how many frames to show." is how many frames to show."
(do ((callee (%primitive current-cont) (do ((callee (%primitive current-fp)
(stack-ref callee c::old-cont-save-offset)) (stack-ref callee c::old-fp-save-offset))
(n 0 (1+ n))) (n 0 (1+ n)))
((or (not (cstack-pointer-valid-p callee)) ((or (not (cstack-pointer-valid-p callee))
(>= n frames)) (>= n frames))
(values)) (values))
(let* ((caller (stack-ref callee c::old-cont-save-offset)) (let* ((caller (stack-ref callee c::old-fp-save-offset))
(pc (stack-ref callee c::return-pc-save-offset))) (pc (stack-ref callee c::return-pc-save-offset)))
(unless (cstack-pointer-valid-p caller) (unless (cstack-pointer-valid-p caller)
(return (values))) (return (values)))
...@@ -162,7 +162,7 @@ Functions/macros for your enjoyment: ...@@ -162,7 +162,7 @@ Functions/macros for your enjoyment:
(escape-reg caller c::call-name-offset)) (escape-reg caller c::call-name-offset))
(setq callee (setq callee
(check-valid (check-valid
(escape-reg caller c::old-cont-offset)))) (escape-reg caller c::old-fp-offset))))
((valid-env-p env) ((valid-env-p env)
(format t "~%<escape frame> ") (format t "~%<escape frame> ")
(print-code-and-stuff (print-code-and-stuff
...@@ -170,7 +170,7 @@ Functions/macros for your enjoyment: ...@@ -170,7 +170,7 @@ Functions/macros for your enjoyment:
(escape-reg caller c::return-pc-offset)) (escape-reg caller c::return-pc-offset))
(setq callee (setq callee
(check-valid (check-valid
(stack-ref callee c::old-cont-save-offset)))) (stack-ref callee c::old-fp-save-offset))))
(t (t
(error "Escaping frame ENV invalid?"))))) (error "Escaping frame ENV invalid?")))))
((valid-env-p env) ((valid-env-p env)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment