1
0
Fork 0
mirror of https://gitlab.alpinelinux.org/alpine/aports.git synced 2025-07-26 12:45:20 +03:00
aports/community/ocaml/fix-mcontext-fields.patch
Tuan Hoang da68172df5 community/ocaml: fix mcontext patch on s390x
The context patch was just wrong from the beginning.
No pkgrel bump.
2019-11-25 07:29:21 +00:00

27 lines
1.1 KiB
Diff

diff -Nru a/runtime/signals_osdep.h b/runtime/signals_osdep.h
--- a/runtime/signals_osdep.h 2019-06-14 08:21:51.000000000 -0300
+++ b/runtime/signals_osdep.h 2019-07-16 14:21:56.751434439 -0300
@@ -297,11 +297,19 @@
sigact.sa_flags = 0
typedef unsigned long context_reg;
- #define CONTEXT_PC (context->regs->nip)
- #define CONTEXT_EXCEPTION_POINTER (context->regs->gpr[29])
- #define CONTEXT_YOUNG_LIMIT (context->regs->gpr[30])
- #define CONTEXT_YOUNG_PTR (context->regs->gpr[31])
- #define CONTEXT_SP (context->regs->gpr[1])
+ #ifdef __powerpc64__
+ #define CONTEXT_PC (context->gp_regs[32])
+ #define CONTEXT_EXCEPTION_POINTER (context->gp_regs[29])
+ #define CONTEXT_YOUNG_LIMIT (context->gp_regs[30])
+ #define CONTEXT_YOUNG_PTR (context->gp_regs[31])
+ #define CONTEXT_SP (context->gp_regs[1])
+ #else
+ #define CONTEXT_PC (context->regs->nip)
+ #define CONTEXT_EXCEPTION_POINTER (context->regs->gpr[29])
+ #define CONTEXT_YOUNG_LIMIT (context->regs->gpr[30])
+ #define CONTEXT_YOUNG_PTR (context->regs->gpr[31])
+ #define CONTEXT_SP (context->regs->gpr[1])
+ #endif
/****************** PowerPC, NetBSD */