diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1997-11-27 17:01:18 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1997-11-27 17:01:18 +0000 |
| commit | 71fbb303ff5c89a8d741a81b1f6db07ff6d86d2e (patch) | |
| tree | 8ce7ae69bbc934733027707882afeff4743d3c33 /asmrun/sparc.S | |
| parent | 74930bc5b64597a60c7a257c1afbb24853108d9b (diff) | |
Bug de depilage dans caml_call_gc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1817 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun/sparc.S')
| -rw-r--r-- | asmrun/sparc.S | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/asmrun/sparc.S b/asmrun/sparc.S index 71b530e99..5529d05dd 100644 --- a/asmrun/sparc.S +++ b/asmrun/sparc.S @@ -179,7 +179,7 @@ Caml_call_gc: /* Return to caller */ Load(Caml_last_return_address, %o7) retl - add %sp, 4 + 25*4 + 15*8, %sp /* in delay slot */ + add %sp, 20*4 + 15*8, %sp /* in delay slot */ /* Call a C function from Caml */ @@ -218,9 +218,9 @@ L108: sub %sp, 16, %sp Load(Caml_bottom_of_stack, %l0) Load(Caml_last_return_address, %l1) - Load(Caml_gc_regs, %l2) + Load(Caml_gc_regs, %l3) std %l0, [%sp + 96] - st %l2, [%sp + 104] + st %l3, [%sp + 104] /* Set up a trap frame to catch exceptions escaping the Caml code */ call L111 nop |