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

[ghc-hetmet.git] / ghc / lib / std / cbits / allocMem.lc

diff --git a/ghc/lib/std/cbits/allocMem.lc b/ghc/lib/std/cbits/allocMem.lc
deleted file mode 100644 (file)
index dbc6fa3..0000000
--- a/ghc/lib/std/cbits/allocMem.lc
+++ /dev/null
@@ -1,27 +0,0 @@
-%
-%
-% (c) The GRASP/AQUA Project, Glasgow University, 1998
-%
-\subsection[allocMem.lc]{Allocating memory off heap}
-
-\begin{code}
-
-#include "rtsdefs.h"
-#include "stgio.h"
-
-StgAddr
-allocMemory__(sz)
-StgInt sz;/* bytes*/
-{
- StgAddr ptr;
-
- if ( (ptr = malloc(sz*sizeof(char))) == NULL) {
-       ghc_errtype = ERR_RESOURCEEXHAUSTED;
-       ghc_errstr  = "malloc failed";
-       return NULL;
- }
- return ptr;
-
-}
-
-\end{code}