From: Christophe Rhodes <csr21@cam.ac.uk>
Date: Thu, 28 Jul 2005 14:23:25 +0000 (+0000)
Subject: 0.9.3.8:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=76b9a8018c36f764336ec6f5e4a3717b9e9be2bb;p=sbcl.git

0.9.3.8:
	Merge "Fix mips assembly to handle GCed registers right" (THS
	sbcl-devel 2005-07-08)
---

diff --git a/src/runtime/mips-assem.S b/src/runtime/mips-assem.S
index 2b882c2..c723b30 100644
--- a/src/runtime/mips-assem.S
+++ b/src/runtime/mips-assem.S
@@ -240,6 +240,7 @@ lra:	.word	RETURN_PC_HEADER_WIDETAG
 	.set	at
 	.set	reorder
 
+	/* Setup the lisp stack. */
 	move	reg_OCFP, reg_CFP
 	move	reg_CFP, reg_CSP
 	addu	reg_CSP, reg_CFP, 32
@@ -253,7 +254,7 @@ lra:	.word	RETURN_PC_HEADER_WIDETAG
 	/* Convert the return address to an offset and save it on the stack. */
 	subu	reg_NFP, reg_LIP, reg_CODE
 	addu	reg_NFP, OTHER_POINTER_LOWTAG
-	sw	reg_NFP, (reg_CFP)
+	sw	reg_LRA, (reg_CFP)
 	sw	reg_CODE, 4(reg_CFP)
 	sw	gp, 8(reg_CFP)
 
@@ -284,7 +285,11 @@ lra:	.word	RETURN_PC_HEADER_WIDETAG
 	move	reg_NL0, v0		# reg_CFUNC
 	move	reg_NL1, v1		# reg_NL4
 
-	/* Clear unsaved boxed descriptor regs before allowing an interrupt */
+	/*
+	 * Clear boxed descriptor registers before allowing an interrupt.
+	 * We can't rely on C saving some of those registers, they might
+	 * have been GCed in the meanwhile.
+	 */
 	li	reg_A0, 0		# t0
 	li	reg_A1, 0		# t1
 	li	reg_A2, 0		# t2
@@ -293,7 +298,14 @@ lra:	.word	RETURN_PC_HEADER_WIDETAG
 	li	reg_A5, 0		# t5
 	li	reg_FDEFN, 0		# t6
 	li	reg_LEXENV, 0		# t7
+	/*
+	 * reg_NFP and reg_OCFP are pointing to fixed locations and are
+	 * preserved by C.
+	 */
+	li	reg_LRA, 0		# s2
+	li	reg_L0, 0		# s3
 	li	reg_L1, 0		# t8
+	li	reg_CODE, 0		# s8
 	li	reg_LIP, 0		# ra
 
 	/* Turn on pseudo-atomic. */
@@ -312,9 +324,9 @@ lra:	.word	RETURN_PC_HEADER_WIDETAG
 	lw	reg_BSP, current_binding_stack_pointer
 
 	/* Restore LRA & CODE */
-	lw	reg_LIP, (reg_CFP)
+	lw	reg_LRA, (reg_CFP)
 	lw	reg_CODE, 4(reg_CFP)
-	subu	reg_LIP, OTHER_POINTER_LOWTAG
+	subu	reg_LIP, reg_NFP, OTHER_POINTER_LOWTAG
 	addu	reg_LIP, reg_CODE
 
 	/* Check for interrupt */
diff --git a/version.lisp-expr b/version.lisp-expr
index f0ad104..dee08cc 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.3.7"
+"0.9.3.8"