#import "sigcatch.h"
#import <sys/types.h>
#import <signal.h>
#import <strings.h>
#import <unistd.h>
#import <ucontext.h>
#import <mach/thread_status.h>
extern int __sigreturn(ucontext_t *, int);
#if defined(__DYNAMIC__) && ! defined(__i386__)
int __in_sigtramp = 0;
#endif
#define UC_TRAD 1
#define UC_FLAVOR 30
#if defined(__ppc__) || defined(__ppc64__)
#define UC_TRAD64 20
#define UC_TRAD64_VEC 25
#define UC_FLAVOR_VEC 35
#define UC_FLAVOR64 40
#define UC_FLAVOR64_VEC 45
#define UC_DUAL 50
#define UC_DUAL_VEC 55
#define UC_FLAVOR_SIZE ((PPC_THREAD_STATE_COUNT + PPC_EXCEPTION_STATE_COUNT + PPC_FLOAT_STATE_COUNT) * sizeof(int))
#define UC_FLAVOR_VEC_SIZE ((PPC_THREAD_STATE_COUNT + PPC_EXCEPTION_STATE_COUNT + PPC_FLOAT_STATE_COUNT + PPC_VECTOR_STATE_COUNT) * sizeof(int))
#define UC_FLAVOR64_SIZE ((PPC_THREAD_STATE64_COUNT + PPC_EXCEPTION_STATE64_COUNT + PPC_FLOAT_STATE_COUNT) * sizeof(int))
#define UC_FLAVOR64_VEC_SIZE ((PPC_THREAD_STATE64_COUNT + PPC_EXCEPTION_STATE64_COUNT + PPC_FLOAT_STATE_COUNT + PPC_VECTOR_STATE_COUNT) * sizeof(int))
#endif
#define UC_SET_ALT_STACK 0x40000000
#define UC_RESET_ALT_STACK 0x80000000
#if defined(__ppc__)
static int
restore64_state(mcontext_t mctx, mcontext64_t mctx64, int sigstyle)
{
if (mctx->ss.srr0 != (unsigned int)mctx64->ss.srr0)
return(0);
if (mctx->ss.srr1 != (unsigned int)mctx64->ss.srr1)
return(0);
if (mctx->ss.r0 != (unsigned int)mctx64->ss.r0)
return(0);
if (mctx->ss.r1 != (unsigned int)mctx64->ss.r1)
return(0);
if (mctx->ss.r2 != (unsigned int)mctx64->ss.r2)
return(0);
if (mctx->ss.r3 != (unsigned int)mctx64->ss.r3)
return(0);
if (mctx->ss.r4 != (unsigned int)mctx64->ss.r4)
return(0);
if (mctx->ss.r5 != (unsigned int)mctx64->ss.r5)
return(0);
if (mctx->ss.r6 != (unsigned int)mctx64->ss.r6)
return(0);
if (mctx->ss.r7 != (unsigned int)mctx64->ss.r7)
return(0);
if (mctx->ss.r8 != (unsigned int)mctx64->ss.r8)
return(0);
if (mctx->ss.r9 != (unsigned int)mctx64->ss.r9)
return(0);
if (mctx->ss.r10 != (unsigned int)mctx64->ss.r10)
return(0);
if (mctx->ss.r11 != (unsigned int)mctx64->ss.r11)
return(0);
if (mctx->ss.r12 != (unsigned int)mctx64->ss.r12)
return(0);
if (mctx->ss.r13 != (unsigned int)mctx64->ss.r13)
return(0);
if (mctx->ss.r14 != (unsigned int)mctx64->ss.r14)
return(0);
if (mctx->ss.r15 != (unsigned int)mctx64->ss.r15)
return(0);
if (mctx->ss.r16 != (unsigned int)mctx64->ss.r16)
return(0);
if (mctx->ss.r17 != (unsigned int)mctx64->ss.r17)
return(0);
if (mctx->ss.r18 != (unsigned int)mctx64->ss.r18)
return(0);
if (mctx->ss.r19 != (unsigned int)mctx64->ss.r19)
return(0);
if (mctx->ss.r20 != (unsigned int)mctx64->ss.r20)
return(0);
if (mctx->ss.r21 != (unsigned int)mctx64->ss.r21)
return(0);
if (mctx->ss.r22 != (unsigned int)mctx64->ss.r22)
return(0);
if (mctx->ss.r23 != (unsigned int)mctx64->ss.r23)
return(0);
if (mctx->ss.r24 != (unsigned int)mctx64->ss.r24)
return(0);
if (mctx->ss.r25 != (unsigned int)mctx64->ss.r25)
return(0);
if (mctx->ss.r26 != (unsigned int)mctx64->ss.r26)
return(0);
if (mctx->ss.r27 != (unsigned int)mctx64->ss.r27)
return(0);
if (mctx->ss.r28 != (unsigned int)mctx64->ss.r28)
return(0);
if (mctx->ss.r29 != (unsigned int)mctx64->ss.r29)
return(0);
if (mctx->ss.r30 != (unsigned int)mctx64->ss.r30)
return(0);
if (mctx->ss.r31 != (unsigned int)mctx64->ss.r31)
return(0);
if (mctx->ss.cr != mctx64->ss.cr)
return(0);
if (mctx->ss.xer != (unsigned int)mctx64->ss.xer)
return(0);
if (mctx->ss.lr != (unsigned int)mctx64->ss.lr)
return(0);
if (mctx->ss.ctr != (unsigned int)mctx64->ss.ctr)
return(0);
if (bcmp(&mctx->fs, &mctx64->fs, (PPC_FLOAT_STATE_COUNT * sizeof(int))))
return(0);
if ((sigstyle == UC_DUAL_VEC) && bcmp(&mctx->vs, &mctx64->vs, (PPC_VECTOR_STATE_COUNT * sizeof(int))))
return(0);
return(1);
}
void
__finish_sigtramp(
ucontext_t *uctx,
int sigstyle
) {
int ctxstyle = UC_FLAVOR;
mcontext_t mctx;
mcontext64_t mctx64;
if ((sigstyle == UC_DUAL) || (sigstyle == UC_DUAL_VEC)) {
mctx = uctx->uc_mcontext;
mctx64 = (mcontext64_t)((char *)(uctx->uc_mcontext) + sizeof(struct mcontext));
if (restore64_state(mctx, mctx64, sigstyle)) {
uctx->uc_mcontext = (void *)mctx64;
if (sigstyle == UC_DUAL) {
uctx->uc_mcsize = UC_FLAVOR64_SIZE;
ctxstyle = UC_FLAVOR64;
} else {
uctx->uc_mcsize = UC_FLAVOR64_VEC_SIZE;
ctxstyle = UC_FLAVOR64_VEC;
}
} else {
if (sigstyle == UC_DUAL)
ctxstyle = UC_FLAVOR;
else
ctxstyle = UC_FLAVOR_VEC;
}
} else
ctxstyle = sigstyle;
#if defined(__DYNAMIC__)
__in_sigtramp--;
#endif
__sigreturn (uctx, ctxstyle);
}
#endif
void
_sigunaltstack(int set)
{
__sigreturn (NULL, (set == SS_ONSTACK) ? UC_SET_ALT_STACK : UC_RESET_ALT_STACK);
}
#if ! defined (__ppc__) && ! defined (__ppc64__) && ! defined (__i386__) \
&& ! defined (__x86_64__)
void
_sigtramp(
union __sigaction_u __sigaction_u,
int sigstyle,
int sig,
siginfo_t *sinfo,
ucontext_t *uctx
) {
int ctxstyle = UC_FLAVOR;
#if defined(__DYNAMIC__)
__in_sigtramp++;
#endif
if (sigstyle == UC_TRAD)
sa_handler(sig);
else {
sa_sigaction(sig, sinfo, uctx);
}
#if defined(__DYNAMIC__)
__in_sigtramp--;
#endif
__sigreturn (uctx, ctxstyle);
}
#endif