X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FTask.h;h=424af607eab8298dd4db63289b2213772f046045;hp=566c0425cd9f53b60df1e5e95afb4257777b63be;hb=cf5905ea24904cf73a041fd7535e8723a668cb9a;hpb=65da401ae6579ad47f06bcf80b1f3022c9963ca4 diff --git a/rts/Task.h b/rts/Task.h index 566c042..424af60 100644 --- a/rts/Task.h +++ b/rts/Task.h @@ -207,6 +207,9 @@ void workerTaskStop (Task *task); // void taskTimeStamp (Task *task); +// The current Task has finished a GC, record the amount of time spent. +void taskDoneGC (Task *task, Ticks cpu_time, Ticks elapsed_time); + // Put the task back on the free list, mark it stopped. Used by // forkProcess(). // @@ -225,6 +228,11 @@ INLINE_HEADER Task *myTask (void); // void startWorkerTask (Capability *cap); +// Interrupts a worker task that is performing an FFI call. The thread +// should not be destroyed. +// +void interruptWorkerTask (Task *task); + #endif /* THREADED_RTS */ // -----------------------------------------------------------------------------