DataMuseum.dk

top - download

    Length: 522 (0x20a)
    Types: TextFile
    Names: »mem.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec8/mcp/src/mem.c« 

TextFile

#include "mem.h"

char	*realloc(), *malloc();

addr
MEM(n)
int n;

{
	flexaddr m;

	critical();
	m.p_cp = malloc( (unsigned) n );
	if (!m.p_cp)
		panic("MEM internal error: out of memory");
	non_critical();
	return m.p_ap;
}

addr
DELTAMEM(p, n)
addr p;
int n;

{
	flexaddr m;

	critical();
	m.p_cp = realloc((char *)p, (unsigned) n);
	if (!m.p_cp)
		panic("DELTAMEM internal error: out of memory");
	non_critical();
	return m.p_ap;
}

FREEMEM(cp)
char *cp;

{
	critical();
	free((char *) cp);
	non_critical();
	return;
}