diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-07 16:14:06 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-07-07 16:14:06 +0000 |
| commit | 5c09b581c8667ea74a6be6386679dd5afb4ccb45 (patch) | |
| tree | 68719a20cfcd391d784eaacc3079627cfe1c5f82 /testasmcomp | |
| parent | fd755dcfaa7677b7ca875f285054b64372c32956 (diff) | |
| download | ocaml-5c09b581c8667ea74a6be6386679dd5afb4ccb45.tar.gz | |
On rend $gp callee-save et on fait ldgp seulement si necessaire
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@70 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'testasmcomp')
| -rw-r--r-- | testasmcomp/alpha.asm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/testasmcomp/alpha.asm b/testasmcomp/alpha.asm index 29d34c6fdb..4df83456e0 100644 --- a/testasmcomp/alpha.asm +++ b/testasmcomp/alpha.asm @@ -35,7 +35,14 @@ call_gen_code: .globl caml_c_call .ent caml_c_call caml_c_call: + lda $sp, -16($sp) + stq $26, 0($sp) + stq $gp, 8($sp) mov $25, $27 - jmp ($25) + jsr ($25) + ldq $26, 0($sp) + ldq $gp, 8($sp) + lda $sp, 16($sp) + ret ($26) .end caml_c_call |