From 4fee063e4a2ef39a91c1105b61839c9549172f0d Mon Sep 17 00:00:00 2001 From: cwang <cwang> Date: Tue, 27 Jul 2004 21:05:33 +0000 Subject: [PATCH] make unwind work --- assembly/amd64/assem-rtns.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/assembly/amd64/assem-rtns.lisp b/assembly/amd64/assem-rtns.lisp index b3440c9be..7842a4579 100644 --- a/assembly/amd64/assem-rtns.lisp +++ b/assembly/amd64/assem-rtns.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/amd64/assem-rtns.lisp,v 1.1 2004/05/21 22:46:43 cwang Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/amd64/assem-rtns.lisp,v 1.2 2004/07/27 21:05:33 cwang Exp $") ;;; ;;; ********************************************************************** ;;; @@ -240,7 +240,8 @@ ((:arg block (any-reg descriptor-reg) rax-offset) (:arg start (any-reg descriptor-reg) rbx-offset) (:arg count (any-reg descriptor-reg) rcx-offset) - (:temp uwp unsigned-reg rsi-offset)) + (:temp uwp unsigned-reg rsi-offset) + (:temp temp unsigned-reg r11-offset)) (declare (ignore start count)) (let ((error (generate-error-code nil invalid-unwind-error))) @@ -261,7 +262,7 @@ (move block uwp) ;; Set next unwind protect context. (loadw uwp uwp unwind-block-current-uwp-slot) - (store-symbol-value uwp lisp::*current-unwind-protect-block*) + (store-symbol-value uwp lisp::*current-unwind-protect-block* temp) DO-EXIT -- GitLab