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

Added debugger package hackery.

parent 113c001a
No related branches found
No related tags found
No related merge requests found
...@@ -29,6 +29,7 @@ ...@@ -29,6 +29,7 @@
(defmacro eval-stack-local (fp offset) (defmacro eval-stack-local (fp offset)
`(svref *eval-stack* (+ ,fp ,offset))) `(svref *eval-stack* (+ ,fp ,offset)))
#-new-compiler #-new-compiler
(in-package "C" :use '("EXTENSIONS" "SYSTEM" "LISP")) (in-package "C" :use '("EXTENSIONS" "SYSTEM" "LISP"))
...@@ -38,12 +39,6 @@ ...@@ -38,12 +39,6 @@
entry-node-info-st-top entry-node-info-nlx-tag entry-node-info-st-top entry-node-info-nlx-tag
*compile-time-define-macros*)) *compile-time-define-macros*))
#-new-compiler
(in-package "DEBUG")
#-new-compiler
(export '(var arg))
#-new-compiler #-new-compiler
(setq clc::*peep-enable* t) (setq clc::*peep-enable* t)
#-new-compiler #-new-compiler
...@@ -104,6 +99,59 @@ ...@@ -104,6 +99,59 @@
(when found (when found
(unintern found (find-package "LISP")))) (unintern found (find-package "LISP"))))
#-new-compiler
(in-package "DEBUG")
#-new-compiler
(export '(var arg))
(in-package "DEBUG-INTERNALS" :nicknames '("DI"))
;;; The compiler's debug-source structure is almost exactly what we want, so
;;; just get these symbols and export them.
;;;
(import '(c::debug-source-from c::debug-source-name c::debug-source-created
c::debug-source-compiled c::debug-source-start-positions
c::debug-source c::debug-source-p))
(export '(debug-variable-name debug-variable-package debug-variable-symbol
debug-variable-id debug-variable-value debug-variable-validity
debug-variable-valid-value debug-variable debug-variable-p
top-frame frame-down frame-up frame-debug-function
frame-code-location eval-in-frame return-from-frame frame-catches
frame-number frame frame-p
do-blocks debug-function-lambda-list do-debug-function-variables
debug-function-symbol-variables ambiguous-debug-variables
preprocess-for-eval function-debug-function debug-function-function
debug-function-kind debug-function-name debug-function
debug-function-p
do-debug-block-locations debug-block-successors debug-block
debug-block-p debug-block-elsewhere-p
make-breakpoint activate-breakpoint deactivate-breakpoint
breakpoint-hook-function breakpoint-info breakpoint-kind
breakpoint-what breakpoint breakpoint-p
code-location-debug-function code-location-debug-block
code-location-top-level-form-offset code-location-form-number
code-location-debug-source code-location code-location-p
unknown-code-location unknown-code-location-p
debug-source-from debug-source-name debug-source-created
debug-source-compiled debug-source-root-number
debug-source-start-positions form-number-translations
source-path-context debug-source debug-source-p
debug-condition no-debug-info no-debug-function-returns
no-debug-blocks lambda-list-unavailable
debug-error unhandled-condition invalid-control-stack-pointer
unknown-code-location unknown-debug-variable invalid-value))
#-new-compiler #-new-compiler
(in-package "LISP") (in-package "LISP")
#-new-compiler #-new-compiler
......
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