diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-10-15 00:03:15 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-11-12 15:11:10 +0000 |
| commit | d70b19bfb5ed79b22c2ac31e22f46782fc47a117 (patch) | |
| tree | d7bc2ad5a6d50bf351dfd97779030dae63e5d7cf /includes/rts/Threads.h | |
| parent | c774b28f76ee4c220f7c1c9fd81585e0e3af0e8a (diff) | |
| download | haskell-d70b19bfb5ed79b22c2ac31e22f46782fc47a117.tar.gz | |
Per-thread allocation counters and limits
This reverts commit f0fcc41d755876a1b02d1c7c79f57515059f6417.
New changes: now works on 32-bit platforms too. I added some basic
support for 64-bit subtraction and comparison operations to the x86
NCG.
Diffstat (limited to 'includes/rts/Threads.h')
| -rw-r--r-- | includes/rts/Threads.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/includes/rts/Threads.h b/includes/rts/Threads.h index 941f6daf65..fc8ae6e089 100644 --- a/includes/rts/Threads.h +++ b/includes/rts/Threads.h @@ -42,8 +42,12 @@ StgRegTable * resumeThread (void *); // // Thread operations from Threads.c // -int cmp_thread (StgPtr tso1, StgPtr tso2); -int rts_getThreadId (StgPtr tso); +int cmp_thread (StgPtr tso1, StgPtr tso2); +int rts_getThreadId (StgPtr tso); +HsInt64 rts_getThreadAllocationCounter (StgPtr tso); +void rts_setThreadAllocationCounter (StgPtr tso, HsInt64 i); +void rts_enableThreadAllocationLimit (StgPtr tso); +void rts_disableThreadAllocationLimit (StgPtr tso); #if !defined(mingw32_HOST_OS) pid_t forkProcess (HsStablePtr *entry); |