diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-05-03 18:20:33 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-05-03 18:20:33 +0000 |
| commit | b691a28d155c53b4d435855e42dae9fbdf21bbf1 (patch) | |
| tree | 342dfc6cf1853240342e3f82b6064a799e26907c | |
| parent | c03e1558853690150a203e16f2017ca924642f95 (diff) | |
Some updates for SPARC
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14731 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmrun/signals_osdep.h | 1 | ||||
| -rw-r--r-- | testsuite/tests/asmcomp/sparc.S | 6 |
2 files changed, 4 insertions, 3 deletions
diff --git a/asmrun/signals_osdep.h b/asmrun/signals_osdep.h index 573e3a571..30c668463 100644 --- a/asmrun/signals_osdep.h +++ b/asmrun/signals_osdep.h @@ -288,6 +288,7 @@ #define CONTEXT_PC (context->uc_mcontext.gregs[REG_PC]) /* Local register number N is saved on the stack N words after the stack pointer */ + #define CONTEXT_SP (context->uc_mcontext.gregs[REG_SP]) #define SPARC_L_REG(n) ((long *)(context->uc_mcontext.gregs[REG_SP]))[n] #define CONTEXT_EXCEPTION_POINTER (SPARC_L_REG(5)) #define CONTEXT_YOUNG_LIMIT (SPARC_L_REG(7)) diff --git a/testsuite/tests/asmcomp/sparc.S b/testsuite/tests/asmcomp/sparc.S index 53c5fc902..ea029573a 100644 --- a/testsuite/tests/asmcomp/sparc.S +++ b/testsuite/tests/asmcomp/sparc.S @@ -11,11 +11,11 @@ /***********************************************************************/ #if defined(SYS_solaris) || defined(SYS_elf) -#define Call_gen_code _call_gen_code -#define Caml_c_call _caml_c_call -#else #define Call_gen_code call_gen_code #define Caml_c_call caml_c_call +#else +#define Call_gen_code _call_gen_code +#define Caml_c_call _caml_c_call #endif .global Call_gen_code |