diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-11 08:51:58 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-11 08:51:58 +0000 |
| commit | 0053975357f8c4d651861ed47c2b4aaa9fd234fc (patch) | |
| tree | 5318f7db7c81690a49a2a492b6c41dd253dfb49a | |
| parent | 650284680e4750dae96f8f994faa07d30b4523de (diff) | |
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
| -rw-r--r-- | asmrun/alpha.asm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/asmrun/alpha.asm b/asmrun/alpha.asm index 06eddc40b..b840e2b76 100644 --- 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 |