[project @ 2002-10-11 11:05:20 by malcolm]
[packages/base.git] / System / Mem.hs
1 -----------------------------------------------------------------------------
2 -- |
3 -- Module : System.Mem
4 -- Copyright : (c) The University of Glasgow 2001
5 -- License : BSD-style (see the file libraries/base/LICENSE)
6 --
7 -- Maintainer : libraries@haskell.org
8 -- Stability : provisional
9 -- Portability : portable
10 --
11 -- Memory-related system things.
12 --
13 -----------------------------------------------------------------------------
14
15 module System.Mem (
16 performGC -- :: IO ()
17 ) where
18
19 import Prelude
20
21 #ifdef __HUGS__
22 import Hugs.IOExts
23 #endif
24
25 #ifdef __GLASGOW_HASKELL__
26 -- | Triggers an immediate garbage collection
27 foreign import ccall {-safe-} "performGC" performGC :: IO ()
28 #endif
29
30 #ifdef __NHC__
31 import NHC.IOExtras (performGC)
32 #endif