Rectification de caml_bottom_of_stack dans caml_c_call.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@74 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1995-07-11 08:51:58 +00:00 · 1995-07-11 08:51:58 +00:00 · 0053975357
parent 650284680e
commit 0053975357
1 changed files with 2 additions and 1 deletions
--- a/asmrun/alpha.asm
+++ b/asmrun/alpha.asm
@ -198,7 +198,8 @@ caml_c_call:
 $105:   ldgp    $gp, 0($27)
    /* Record lowest stack address and return address */
        stq     $26, caml_last_return_address
-        stq     $sp, caml_bottom_of_stack
+	lda	$27, 16($sp)
+        stq     $27, caml_bottom_of_stack
    /* Make the exception handler and alloc ptr available to the C code */
        stq     $13, young_ptr
        stq     $15, caml_exception_pointer