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