diff options
author | simonmar <unknown> | 2000-11-07 10:42:57 +0000 |
---|---|---|
committer | simonmar <unknown> | 2000-11-07 10:42:57 +0000 |
commit | f5448f5c5efe0630cb865ee0d21691a23ea932d3 (patch) | |
tree | ee73d098cf0cd96f120555bc82982b1ed7233ad4 /ghc/lib/std/cbits/allocMem.c | |
parent | 6cf31336921352120aa88065d75ec587cf9b03a5 (diff) | |
download | haskell-f5448f5c5efe0630cb865ee0d21691a23ea932d3.tar.gz |
[project @ 2000-11-07 10:42:55 by simonmar]
merge before-ghci -> before-ghci-branch-merged into the ghc
(non-compiler) parts of the tree.
Diffstat (limited to 'ghc/lib/std/cbits/allocMem.c')
-rw-r--r-- | ghc/lib/std/cbits/allocMem.c | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/ghc/lib/std/cbits/allocMem.c b/ghc/lib/std/cbits/allocMem.c deleted file mode 100644 index 609e8828e9..0000000000 --- a/ghc/lib/std/cbits/allocMem.c +++ /dev/null @@ -1,24 +0,0 @@ -/* - * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 - * - * $Id: allocMem.c,v 1.3 1999/11/25 16:54:14 simonmar Exp $ - * - * malloc interface - */ - -#include "Rts.h" -#include "stgio.h" - -StgAddr -allocMemory__(StgInt sz/* bytes */) -{ - StgAddr ptr; - - if ( (ptr = malloc(sz*sizeof(char))) == NULL) { - ghc_errtype = ERR_RESOURCEEXHAUSTED; - ghc_errstr = "malloc failed"; - return NULL; - } - return ptr; - -} |