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

Add layout-invalid-error, fix local call operations to use

maybe-load-stack-tn on the callee-nfp.
parent 6008cdb0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; 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/sparc/call.lisp,v 1.23 1993/02/07 18:48:38 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/call.lisp,v 1.24 1993/03/01 14:50:49 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -467,7 +467,7 @@ default-value-8 ...@@ -467,7 +467,7 @@ default-value-8
(store-stack-tn nfp-save cur-nfp)) (store-stack-tn nfp-save cur-nfp))
(let ((callee-nfp (callee-nfp-tn callee))) (let ((callee-nfp (callee-nfp-tn callee)))
(when callee-nfp (when callee-nfp
(move callee-nfp nfp))) (maybe-load-stack-tn callee-nfp nfp)))
(maybe-load-stack-tn cfp-tn fp) (maybe-load-stack-tn cfp-tn fp)
(inst compute-lra-from-code (inst compute-lra-from-code
(callee-return-pc-tn callee) code-tn label temp) (callee-return-pc-tn callee) code-tn label temp)
...@@ -507,7 +507,7 @@ default-value-8 ...@@ -507,7 +507,7 @@ default-value-8
(store-stack-tn nfp-save cur-nfp)) (store-stack-tn nfp-save cur-nfp))
(let ((callee-nfp (callee-nfp-tn callee))) (let ((callee-nfp (callee-nfp-tn callee)))
(when callee-nfp (when callee-nfp
(move callee-nfp nfp))) (maybe-load-stack-tn callee-nfp nfp)))
(maybe-load-stack-tn cfp-tn fp) (maybe-load-stack-tn cfp-tn fp)
(inst compute-lra-from-code (inst compute-lra-from-code
(callee-return-pc-tn callee) code-tn label temp) (callee-return-pc-tn callee) code-tn label temp)
...@@ -551,7 +551,7 @@ default-value-8 ...@@ -551,7 +551,7 @@ default-value-8
(store-stack-tn nfp-save cur-nfp)) (store-stack-tn nfp-save cur-nfp))
(let ((callee-nfp (callee-nfp-tn callee))) (let ((callee-nfp (callee-nfp-tn callee)))
(when callee-nfp (when callee-nfp
(move callee-nfp nfp))) (maybe-load-stack-tn callee-nfp nfp)))
(maybe-load-stack-tn cfp-tn fp) (maybe-load-stack-tn cfp-tn fp)
(inst compute-lra-from-code (inst compute-lra-from-code
(callee-return-pc-tn callee) code-tn label temp) (callee-return-pc-tn callee) code-tn label temp)
...@@ -1242,6 +1242,8 @@ default-value-8 ...@@ -1242,6 +1242,8 @@ default-value-8
c::%argument-count-error nargs) c::%argument-count-error nargs)
(frob type-check-error object-not-type-error c::%type-check-error (frob type-check-error object-not-type-error c::%type-check-error
object type) object type)
(frob layout-invalid-error layout-invalid-error c::%layout-invalid-error
object layout)
(frob odd-keyword-arguments-error odd-keyword-arguments-error (frob odd-keyword-arguments-error odd-keyword-arguments-error
c::%odd-keyword-arguments-error) c::%odd-keyword-arguments-error)
(frob unknown-keyword-argument-error unknown-keyword-argument-error (frob unknown-keyword-argument-error unknown-keyword-argument-error
......
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