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); }