blob: 90036757ea6ae4f528e18b0e97dd760ed2940807 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#ifdef __GLASGOW_HASKELL__
// for 'void StopTimer(void)' prototype
# include "Rts.h"
#endif
#define HSUNIX_EXECVPE_H_NO_COMPAT
#include "execvpe.h"
/* Copied verbatim from ghc/lib/std/cbits/system.c. */
void pPrPr_disableITimers (void)
{
#ifdef __GLASGOW_HASKELL__
stopTimer();
#endif
}
|
