diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-10-30 13:00:52 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-10-30 13:00:52 +0000 |
| commit | 79c9408712af3ddd6340b0b5785ffde34f830042 (patch) | |
| tree | acf688a0b52cce3faee55306e81a13c10dca5bc1 /includes | |
| parent | 0449741f968cbb8a9777ff44c5d43d47a5592b0e (diff) | |
| download | haskell-79c9408712af3ddd6340b0b5785ffde34f830042.tar.gz | |
move GetRoots() to GC.c
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/Storage.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/includes/Storage.h b/includes/Storage.h index 238b858406..af4b9bb498 100644 --- a/includes/Storage.h +++ b/includes/Storage.h @@ -186,8 +186,7 @@ extern void freeExec (void *p); 'get_roots' is called to find all the roots that the system knows about. - StgClosure Called by get_roots on each root. - MarkRoot(StgClosure *p) Returns the new location of the root. + -------------------------------------------------------------------------- */ extern void GarbageCollect(rtsBool force_major_gc); @@ -495,6 +494,7 @@ typedef void (*evac_fn)(StgClosure **); extern void threadPaused ( Capability *cap, StgTSO * ); extern StgClosure * isAlive ( StgClosure *p ); extern void markCAFs ( evac_fn evac ); +extern void GetRoots ( evac_fn evac ); /* ----------------------------------------------------------------------------- Stats 'n' DEBUG stuff |