X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fmain%2FMallocs.lc;fp=ghc%2Fruntime%2Fmain%2FMallocs.lc;h=0000000000000000000000000000000000000000;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hp=5a8ed4b32203b4587a104c768cc257ddefc666a3;hpb=967cc47f37cb93a5e2b6df7822c9a646f0428247;p=ghc-hetmet.git

diff --git a/ghc/runtime/main/Mallocs.lc b/ghc/runtime/main/Mallocs.lc
deleted file mode 100644
index 5a8ed4b..0000000
--- a/ghc/runtime/main/Mallocs.lc
+++ /dev/null
@@ -1,40 +0,0 @@
-%---------------------------------------------------------------*
-%
-\section{Wrappers around malloc}
-%
-%---------------------------------------------------------------*
-
-Routines that deal with memory allocation:
-
-A LONG-AGO WISH: All dynamic allocation must be done before the stacks
-and heap are allocated. This allows us to use the lower level sbrk
-routines if required.
-
-ANOTHER ONE: Should allow use of valloc to align on page boundary.
-
-\begin{code}
-#include "rtsdefs.h"
-
-char *
-stgMallocBytes(n, msg)
-  I_   n;
-  char *msg;
-{
-    char *space;
-
-    if ((space = (char *) malloc((size_t) n)) == NULL) {
-	fflush(stdout);
-	MallocFailHook((W_) n, msg); /*msg*/
-	EXIT(EXIT_FAILURE);
-    }
-    return space;
-}
-
-char *
-stgMallocWords(n, msg)
-  I_   n;
-  char *msg;
-{
-  return(stgMallocBytes(n * sizeof(W_), msg));
-}
-\end{code}