static char *
AllocCodeSpace(unsigned long int size)
{
if (size < SmallSize + 2 * OpCodeSize + 3 * CellSize)
return (AllocHeap(SmallSize + 2 * OpCodeSize + 3 * CellSize));
return (AllocHeap(size));
}
char *
Yap_AllocAtomSpace(unsigned long int size)
{
char *out = AllocHeap(size);
#if DEBUG_ALLOC
if (vsc_mem_trace) printf("+%p/%d\n",out,size);
#endif
return out;
}
END_UGDIM_NAMESPACE
#include "xfer.h"
START_UGDIM_NAMESPACE
#ifdef XferMemFromHeap
void *xfer_AllocHeap (size_t size)
{
void *buffer;
if (xferGlobals.useHeap)
{
buffer = AllocHeap(size, xferGlobals.theMarkKey);
}
else
{
buffer = AllocTmp(size);
}
return(buffer);
}