diff options
| author | Alain Frisch <alain@frisch.fr> | 2013-10-15 12:07:23 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2013-10-15 12:07:23 +0000 |
| commit | 0efe8df10794c1365fc69cf169be9603206d2127 (patch) | |
| tree | 76e35f5f102dad9ad8d53270cadb93838d5101ee | |
| parent | 0773bfa849584226f92318a85f03582756c6dfd2 (diff) | |
| download | ocaml-0efe8df10794c1365fc69cf169be9603206d2127.tar.gz | |
Adapt sparc backend (stacktraces not supported anyway).
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/raise_variants@14230 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/sparc/emit.mlp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/sparc/emit.mlp b/asmcomp/sparc/emit.mlp index b8387cd7bd..2ae9e3aca0 100644 --- a/asmcomp/sparc/emit.mlp +++ b/asmcomp/sparc/emit.mlp @@ -603,7 +603,7 @@ let rec emit_instr i dslot = ` ld [%sp + 100], %l5\n`; ` add %sp, 8, %sp\n`; stack_offset := !stack_offset - 8 - | Lraise -> + | Lraise _ -> ` ld [%l5 + 96], %g1\n`; ` mov %l5, %sp\n`; ` ld [%sp + 100], %l5\n`; |