struct lispobj *subr_heap(struct lispobj *args)
{
if(length(args) != 0)
return ERROR_ARGS;
heap_debug();
return OBJ_FALSE;
}
PCHAR heap_save_data(PCHAR pData, USHORT sLen)
{
PCHAR pTemp;
pTemp = NULL;
if (sLen)
{
pTemp = (PCHAR)malloc(sLen);
if (pTemp)
{
memcpy(pTemp, pData, sLen);
}
else
{
UdpDebugInfo("malloc failed", 0, sLen);
heap_debug();
}
}
return pTemp;
}
__inline void pqueue_debug(const PQueue queue)
{
heap_debug(queue);
}
