Skip to content
Snippets Groups Projects
Commit 900500dd authored by wlott's avatar wlott
Browse files

Moved FP-OFFSET from the C package to the VM package.

parent ca6a2257
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.11 1990/10/03 09:57:23 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.12 1990/11/07 01:47:24 wlott Exp $
;;; ;;;
;;; Functions and macros to define and deal with internal errors (i.e. ;;; Functions and macros to define and deal with internal errors (i.e.
;;; problems that can be signaled from assembler code). ;;; problems that can be signaled from assembler code).
...@@ -478,7 +478,7 @@ ...@@ -478,7 +478,7 @@
(info (and (< -1 error-number (length *internal-errors*)) (info (and (< -1 error-number (length *internal-errors*))
(svref *internal-errors* error-number))) (svref *internal-errors* error-number)))
(fp (int-sap (di::escape-register (alien-value sc) (fp (int-sap (di::escape-register (alien-value sc)
c::fp-offset)))) vm::fp-offset))))
(collect ((sc-offsets)) (collect ((sc-offsets))
(loop (loop
(when (>= index length) (when (>= index length)
......
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