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

Moved defknowns and exports to vm-fndb. Symbols are now exported from

KERNEL, instead of being internal in DI.
parent f74a1b84
No related branches found
No related tags found
No related merge requests found
...@@ -7,11 +7,11 @@ ...@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.9 1991/03/12 20:19:32 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.10 1991/03/14 14:22:04 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.9 1991/03/12 20:19:32 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/debug.lisp,v 1.10 1991/03/14 14:22:04 ram Exp $
;;; ;;;
;;; Compiler support for the new whizzy debugger. ;;; Compiler support for the new whizzy debugger.
;;; ;;;
...@@ -19,23 +19,6 @@ ...@@ -19,23 +19,6 @@
;;; ;;;
(in-package "MIPS") (in-package "MIPS")
(in-package "DI")
(import '(stack-ref %set-stack-ref lra-code-header function-code-header
make-lisp-obj get-lisp-obj-address function-word-offset)
(find-package "MIPS"))
(in-package "MIPS")
(defknown current-sp () system-area-pointer (movable flushable))
(defknown current-fp () system-area-pointer (movable flushable))
(defknown stack-ref (system-area-pointer index) t (flushable))
(defknown %set-stack-ref (system-area-pointer index t) t (unsafe))
(defknown lra-code-header (t) t (movable flushable))
(defknown function-code-header (t) t (movable flushable))
(defknown make-lisp-obj ((unsigned-byte 32)) t (movable flushable))
(defknown get-lisp-obj-address (t) (unsigned-byte 32) (movable flushable))
(defknown function-word-offset (function) index (movable flushable))
(define-vop (debug-cur-sp) (define-vop (debug-cur-sp)
(:translate current-sp) (:translate current-sp)
......
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