From b06e9dc1ff02ac4f3bf6736cef05267171242e97 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 20 Apr 1990 16:31:56 +0000 Subject: [PATCH] CONT -> FP. --- code/debug.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/code/debug.lisp b/code/debug.lisp index 1c1d0c2e0..ec00d360c 100644 --- a/code/debug.lisp +++ b/code/debug.lisp @@ -143,13 +143,13 @@ Functions/macros for your enjoyment: (*standard-output* *debug-io*)) "Show a listing of the call stack going down from the current frame. Frames is how many frames to show." - (do ((callee (%primitive current-cont) - (stack-ref callee c::old-cont-save-offset)) + (do ((callee (%primitive current-fp) + (stack-ref callee c::old-fp-save-offset)) (n 0 (1+ n))) ((or (not (cstack-pointer-valid-p callee)) (>= n frames)) (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))) (unless (cstack-pointer-valid-p caller) (return (values))) @@ -162,7 +162,7 @@ Functions/macros for your enjoyment: (escape-reg caller c::call-name-offset)) (setq callee (check-valid - (escape-reg caller c::old-cont-offset)))) + (escape-reg caller c::old-fp-offset)))) ((valid-env-p env) (format t "~%<escape frame> ") (print-code-and-stuff @@ -170,7 +170,7 @@ Functions/macros for your enjoyment: (escape-reg caller c::return-pc-offset)) (setq callee (check-valid - (stack-ref callee c::old-cont-save-offset)))) + (stack-ref callee c::old-fp-save-offset)))) (t (error "Escaping frame ENV invalid?"))))) ((valid-env-p env) -- GitLab