[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / runtime / storage / SMinit.lc

diff --git a/ghc/runtime/storage/SMinit.lc b/ghc/runtime/storage/SMinit.lc
deleted file mode 100644 (file)
index 5f9459a..0000000
--- a/ghc/runtime/storage/SMinit.lc
+++ /dev/null
@@ -1,42 +0,0 @@
-\section[storage-manager-init]{Initialising the storage manager}
-
-To initialise the storage manager, we pass it:
-\begin{itemize}
-\item
-An @argc@/@argv@ combo, which are the command-line arguments that have
-been deemed to belong to the runtime system.  The initialisation
-routine can slurp around in there for information of interest to
-it.
-
-\item
-A filehandle to which any storage-manager statistics should be written.
-\end{itemize}
-
-\begin{code}
-#define NULL_REG_MAP
-#include "SMinternal.h"
-\end{code}
-
-\section[storage-manager-exit]{Winding up the storage manager}
-
-\begin{code}
-rtsBool
-exitSM (smInfo *sm_info)
-{
-#ifndef PAR
-    int rc;
-     /* Upon closing down the storage manager, we free all foreign objects 
-        (in new *and* old generations) 
-     */
-    rc = freeForeigns(sm_info->ForeignObjList);
-# if defined(GCap) || defined(GCgn)
-    rc = freeForeigns(sm_info->OldForeignObjList);
-# endif
-
-#endif
-     /* Return code ignored for now */
-    stat_exit(sm_info->hp - hp_start);
-
-    return rtsTrue; /* I'm happy */
-}
-\end{code}