Import Upstream version 20180207

[hcoop/debian/mlton.git] / runtime / platform / openbsd.c

#include "platform.h"

#include "diskBack.unix.c"
#include "displayMem.proc.c"
#include "mmap-protect.c"
#include "nonwin.c"
#include "sysctl.c"
#include "use-mmap.c"

static void catcher (__attribute__ ((unused)) int signo,
                     __attribute__ ((unused)) siginfo_t* info,
                     void* context) {
        ucontext_t* ucp = (ucontext_t*)context;

#if (defined (__x86_64__))
        GC_handleSigProf ((code_pointer) ucp->sc_rip);
#elif (defined (__i386__))
        GC_handleSigProf ((code_pointer) ucp->sc_eip);
#else
#error Profiling handler is missing for this architecture
#endif

}

void GC_setSigProfHandler (struct sigaction *sa) {
        sa->sa_flags = SA_ONSTACK | SA_RESTART | SA_SIGINFO;
        sa->sa_sigaction = (void (*)(int, siginfo_t*, void*))catcher;
}