diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-01 15:02:04 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-02-01 15:02:04 +0000 |
| commit | 9810128491db663e17d8b9ea0d33e799213a1c02 (patch) | |
| tree | ab22df4f6fb4aa86764cad7ffdeff75b317c2653 /asmrun/mips.asm | |
| parent | 2894d8e75b451abe1335edbd8f5adc1d47757c09 (diff) | |
fail.c: remettre le sigmask a zero avant de faire mlraise
*.asm: sauver le trap pointer dans caml_call_gc, au cas ou un signal
handler leve une exception.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@616 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmrun/mips.asm')
| -rw-r--r-- | asmrun/mips.asm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/asmrun/mips.asm b/asmrun/mips.asm index 272eea901..755305371 100644 --- a/asmrun/mips.asm +++ b/asmrun/mips.asm @@ -78,6 +78,8 @@ caml_call_gc: sw $25, 16($sp) /* Save current allocation pointer for debugging purposes */ sw $22, young_ptr + /* Save the exception handler (if e.g. a sighandler raises) */ + sw $30, caml_exception_pointer /* Save all regs used by the code generator in the arrays /* gc_entry_regs and gc_entry_float_regs. */ SAVE(2) |