From e95eb8619b46455f6bf4bfb415454296f56fffcf Mon Sep 17 00:00:00 2001
From: pw <pw>
Date: Wed, 19 Mar 1997 20:06:34 +0000
Subject: [PATCH] Restore C Stack pointer before returning into C.

---
 lisp/alpha-assem.S | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/alpha-assem.S b/lisp/alpha-assem.S
index b4e26b629..1f648ff0d 100644
--- a/lisp/alpha-assem.S
+++ b/lisp/alpha-assem.S
@@ -1,4 +1,4 @@
-/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-assem.S,v 1.5 1997/03/15 17:35:03 pw Exp $ */
+/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-assem.S,v 1.6 1997/03/19 20:06:34 pw Exp $ */
 #include <machine/regdef.h>
 #include <machine/pal.h>
 
@@ -112,6 +112,9 @@ call_into_lisp_LRA:
 	ldq	s5, framesize-8*2(sp)
 	ldq	s6, framesize-8*1(sp)
 
+	/* Restore the C stack! */
+	lda	sp, framesize(sp)
+
 	ret	zero,(ra),1
 	.globl	call_into_lisp_end
 call_into_lisp_end:
-- 
GitLab