Skip to content
Snippets Groups Projects
Commit e95eb861 authored by pw's avatar pw
Browse files

Restore C Stack pointer before returning into C.

parent 3ef8a68d
No related branches found
No related tags found
No related merge requests found
/* $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/regdef.h>
#include <machine/pal.h> #include <machine/pal.h>
...@@ -112,6 +112,9 @@ call_into_lisp_LRA: ...@@ -112,6 +112,9 @@ call_into_lisp_LRA:
ldq s5, framesize-8*2(sp) ldq s5, framesize-8*2(sp)
ldq s6, framesize-8*1(sp) ldq s6, framesize-8*1(sp)
/* Restore the C stack! */
lda sp, framesize(sp)
ret zero,(ra),1 ret zero,(ra),1
.globl call_into_lisp_end .globl call_into_lisp_end
call_into_lisp_end: call_into_lisp_end:
......
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