/* * mem.c * * Copyright (c) 1996, 1997 *	Transvirtual Technologies, Inc.  All rights reserved. * * See the file "license.terms" for information on usage and redistribution  * of this file.  */#include "config.h"#include "config-std.h"#include "config-mem.h"#include "kaffe/jtypes.h"#include "kaffe/jmalloc.h"#include "gtypes.h"#include "gc.h"#include "debug.h"struct _Collector;struct _errorInfo;/* * Kaffeh version of various memory-related operations. */static void* gcMalloc(struct _Collector*, size_t, int);static void* gcRealloc(struct _Collector*, void*, size_t, int);static void  gcFree(struct _Collector*, void*);/* * We use a very simple 'fake' garbage collector interface */struct GarbageCollectorInterface_Ops GC_Ops = {	NULL,	NULL,	NULL,	gcMalloc,	gcRealloc,	gcFree,	NULL,	NULL,	NULL,	NULL,	NULL,	NULL,	NULL,	NULL,	NULL,};struct _Collector c = { & GC_Ops }, *main_collector = &c;/* * The real GC malloc zeroes memory, so our malloc does also. */void*jmalloc(size_t sz){  	void	*p;	if (!sz) {		++sz; /* never malloc(0), it may return NULL */	}	if ((p = malloc(sz)) == NULL) {		dprintf("Out of memory.\n");		exit(1);	}	memset(p, 0, sz);	return(p);}void*jrealloc(void* mem, size_t sz){	return(realloc(mem, sz));}voidjfree(void* mem){	free(mem);}static void *gcMalloc(struct _Collector *collector, size_t sz, int type){	return(jmalloc(sz));}static void *gcRealloc(struct _Collector *collector, void *mem, size_t sz, int type){	return(jrealloc(mem, sz));}static void  gcFree(struct _Collector *collector, void *mem){	jfree(mem);}voidpostOutOfMemory(struct _errorInfo* einfo){	dprintf("Error: kaffeh ran out of memory.\n");}void postExceptionMessage(struct _errorInfo *e, 	const char *name, const char *msgfmt, ...){	va_list ap;	dprintf("kaffeh: %s: ", name);	va_start(ap, msgfmt);	vfprintf(stderr, msgfmt, ap);	va_end(ap);	dprintf("\n");}