Skip to content
Snippets Groups Projects
Commit b626248e authored by dtc's avatar dtc
Browse files

Fix a missed SC update from the change of the return-pc SC to the

SAP-stack; this only affected code compiled with the x86-lra feature.
parent 8c633e49
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/x86/call.lisp,v 1.11 1997/12/05 14:56:30 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/call.lisp,v 1.12 1997/12/19 20:19:41 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -962,12 +962,12 @@ ...@@ -962,12 +962,12 @@
#+x86-lra #+x86-lra
(sc-case return-pc (sc-case return-pc
((control-stack) ((sap-stack)
(unless (= return-pc-save-offset (tn-offset return-pc)) (unless (= return-pc-save-offset (tn-offset return-pc))
(format t "** tail-call ret-pc not S1~%") (format t "** tail-call ret-pc not S1~%")
(move ret-pc-tmp return-pc) (move ret-pc-tmp return-pc)
(storew ret-pc-tmp ebp-tn (- (1+ return-pc-save-offset))))) (storew ret-pc-tmp ebp-tn (- (1+ return-pc-save-offset)))))
((any-reg descriptor-reg) ((sap-reg)
(format t "** tail-call ret-pc in reg not S1~%") (format t "** tail-call ret-pc in reg not S1~%")
(storew return-pc ebp-tn (- (1+ return-pc-save-offset))))) (storew return-pc ebp-tn (- (1+ return-pc-save-offset)))))
......
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