File: HsEvent.h

package info (click to toggle)
ghc 8.0.1-17
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 55,080 kB
  • ctags: 9,332
  • sloc: haskell: 363,120; ansic: 54,900; sh: 4,782; makefile: 974; perl: 542; asm: 315; python: 306; xml: 154; lisp: 7
file content (41 lines) | stat: -rw-r--r-- 643 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#ifndef __HS_EVENT_H__
#define __HS_EVENT_H__

#include "EventConfig.h"

#include <signal.h>
#include <pthread.h>

#if !defined(INLINE)
# if defined(_MSC_VER)
#  define INLINE extern __inline
# else
#  define INLINE inline
# endif
#endif

INLINE int __hsevent_num_signals(void)
{
#if defined(_NSIG)
    return _NSIG;
#else
    return 128; /* best guess */
#endif
}

INLINE void __hsevent_thread_self(pthread_t *tid)
{
    *tid = pthread_self();
}

INLINE int __hsevent_kill_thread(pthread_t *tid, int sig)
{
    return pthread_kill(*tid, sig);
}

#endif /* __HS_EVENT_H__ */
/*
 * Local Variables: 
 * c-file-style: "stroustrup" 
 * End: 
 */