From: simonmar <unknown>
Date: Tue, 12 Feb 2002 10:50:03 +0000 (+0000)
Subject: [project @ 2002-02-12 10:50:03 by simonmar]
X-Git-Tag: nhc98-1-18-release~1135
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=cb68ac0418c116c15346ff4c05aed69a635b5d04;p=ghc-base.git

[project @ 2002-02-12 10:50:03 by simonmar]
The new home for performGC.
---

diff --git a/System/Mem.hs b/System/Mem.hs
new file mode 100644
index 0000000..a50d6ff
--- /dev/null
+++ b/System/Mem.hs
@@ -0,0 +1,23 @@
+-----------------------------------------------------------------------------
+-- 
+-- Module      :  System.Mem
+-- Copyright   :  (c) The University of Glasgow 2001
+-- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- 
+-- Maintainer  :  libraries@haskell.org
+-- Stability   :  provisional
+-- Portability :  portable
+--
+-- $Id: Mem.hs,v 1.1 2002/02/12 10:50:03 simonmar Exp $
+--
+-- Memory-related system things.
+--
+-----------------------------------------------------------------------------
+
+module System.Mem (
+ 	performGC	-- :: IO ()
+  ) where
+ 
+#ifdef __GLASGOW_HASKELL__
+foreign import {-safe-} "performGC" performGC :: IO ()
+#endif