2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: allocMem.c,v 1.3 1999/11/25 16:54:14 simonmar Exp $
13 allocMemory__(StgInt sz/* bytes */)
17 if ( (ptr = malloc(sz*sizeof(char))) == NULL) {
18 ghc_errtype = ERR_RESOURCEEXHAUSTED;
19 ghc_errstr = "malloc failed";