void HYPRE_DestroyPthreads( void )
{
int i;
void *status;
for (i=0; i < hypre_NumThreads; i++) {
hypre_work_put(hypre_StopWorker, (void *) &i);
}
#ifdef HYPRE_USE_UMALLOC
for (i=0; i<hypre_NumThreads; i++)
{
_udestroy (_uparam[i].myheap, _FORCE);
}
#endif
for (i=0; i<hypre_NumThreads; i++)
pthread_join(hypre_thread[i], &status);
pthread_mutex_destroy(&hypre_qptr->lock);
pthread_mutex_destroy(&hypre_mutex_boxloops);
pthread_mutex_destroy(&mpi_mtx);
pthread_mutex_destroy(&talloc_mtx);
pthread_mutex_destroy(&time_mtx);
pthread_mutex_destroy(&worker_mtx);
pthread_cond_destroy(&hypre_qptr->work_wait);
pthread_cond_destroy(&hypre_qptr->finish_wait);
free (hypre_qptr);
}
void *os2ldcalloc(size_t num_elem, size_t size_elem) {
APIRET rc;
int ret;
if (FirstTime) {
if ((rc=DosAllocMem(&os2ldBase,RESERVED_BLOCKS * 4096,
PAG_READ | PAG_WRITE | PAG_EXECUTE)) != 0) {
xf86Msg(X_ERROR,
"OS2LD: DosAllocMem failed, rc=%d\n",
rc);
return NULL;
}
/* Now commit the first 128Kb, the rest will
* be done dynamically */
if ((rc=DosSetMem(os2ldBase,
32*4096,
PAG_DEFAULT | PAG_COMMIT)) != 0) {
xf86Msg(X_ERROR,
"OS2LD: DosSetMem failed, rc=%d\n",rc);
DosFreeMem(os2ldBase);
return NULL;
}
os2ldCommitedTop = os2ldBase + 32*4096;
os2ldTotalCommitedBlocks = 32;
#ifdef DEBUG
xf86Msg(X_INFO,
"OS2LD: Initial heap at addr=%p\n",
os2ldBase);
#endif
if ((os2ldHeap=_ucreate(os2ldBase,
32*4096, _BLOCK_CLEAN,
_HEAP_REGULAR, os2ldAddToHeap,
os2ldRemoveFromHeap)) == NULL) {
xf86Msg(X_ERROR,
"OS2LD: heap creation failed\n");
DosFreeMem(os2ldBase);
return NULL;
}
if ((ret=_uopen(os2ldHeap)) != 0) {
xf86Msg(X_ERROR,
"OS2LD: heap open failed\n");
ret = _udestroy(os2ldHeap,_FORCE);
DosFreeMem(os2ldBase);
return(NULL);
}
FirstTime = FALSE;
#ifdef DEBUG
xf86Msg(X_INFO,"OS2LD: Created module heap at addr=%p\n",
os2ldHeap);
#endif
}
return _ucalloc(os2ldHeap,num_elem,size_elem);
}
BOOL MemHeapTerm(VOID)
{
if ( hp )
{
return !(_uclose(hp) ||
_udestroy(hp, _FORCE) ||
DosSubUnsetMem(pbasemem) ||
DosFreeMem(pbasemem));
} /* endif */
closeLogFile();
return FALSE;
}
static void shared_term()
{
APIRET arc;
int rc;
TRACE("gMutex %lx, gpData %p (heap %p, refcnt %d), gSeenAssertion %lu\n",
gMutex, gpData, gpData ? gpData->heap : 0,
gpData ? gpData->refcnt : 0, gSeenAssertion);
#if !defined(TRACE_ENABLED)
if (gSeenAssertion && get_log_instance())
{
/*
* We're crashing after an assertion, write out LIBCx stats (not needed in
* trace builds as we will trace that out later anyway)
*/
char *buf = alloca(StatsBufSize);
if (buf)
{
format_stats(buf, StatsBufSize);
__libc_LogRaw(gLogInstance, __LIBC_LOG_MSGF_FLUSH, buf, StatsBufSize);
}
}
#endif
ASSERT(gSeenAssertion || gMutex != NULLHANDLE);
DosRequestMutexSem(gMutex, SEM_INDEFINITE_WAIT);
if (gpData)
{
if (gpData->heap)
{
int i;
ProcDesc *proc;
ASSERT(gpData->refcnt);
gpData->refcnt--;
/* Remove the process description upon process termination */
size_t bucket = 0;
ProcDesc *prev = NULL;
proc = find_proc_desc_ex(getpid(), &bucket, &prev);
/* Uninitialize individual components */
fcntl_locking_term(proc);
mmap_term(proc);
TRACE("proc %p\n", proc);
if (proc)
{
if (proc->spawn2_wrappers)
{
TRACE("proc->spawn2_wrappers %p\n", proc->spawn2_wrappers);
free(proc->spawn2_wrappers);
}
if (proc->spawn2_sem)
{
TRACE("proc->spawn2_sem %lx (refcnt %d)\n", proc->spawn2_sem, gpData->spawn2_sem_refcnt);
ASSERT(proc->spawn2_sem == gpData->spawn2_sem);
DosCloseEventSem(gpData->spawn2_sem);
ASSERT(gpData->spawn2_sem_refcnt != 0);
--gpData->spawn2_sem_refcnt;
if (gpData->spawn2_sem_refcnt == 0)
gpData->spawn2_sem = NULLHANDLE;
}
/* Free common per-process structures */
TRACE("proc->files %p\n", proc->files);
if (proc->files)
{
for (i = 0; i < FILE_DESC_HASH_SIZE; ++i)
{
FileDesc *desc = proc->files[i];
while (desc)
{
FileDesc *next = desc->next;
free_file_desc(desc, i, NULL, NULL);
desc = next;
}
}
free(proc->files);
}
free_proc_desc(proc, bucket, prev);
}
if (gpData->refcnt == 0)
{
/* We are the last process, free common structures */
TRACE("gpData->files %p\n", gpData->files);
if (gpData->files)
{
/* Make sure we don't have lost SharedFileDesc data */
for (i = 0; i < FILE_DESC_HASH_SIZE; ++i)
ASSERT_MSG(!gpData->files[i], "%p", gpData->files[i]);
free(gpData->files);
}
TRACE("gpData->procs %p\n", gpData->procs);
if (gpData->procs)
free(gpData->procs);
}
#ifdef TRACE_ENABLED
{
char *buf = alloca(StatsBufSize);
if (buf)
{
format_stats(buf, StatsBufSize);
TRACE("%s", buf);
}
}
#endif
_uclose(gpData->heap);
if (gpData->refcnt == 0)
{
#ifdef STATS_ENABLED
_HEAPSTATS hst;
rc = _ustats(gpData->heap, &hst);
ASSERT_MSG(!rc, "%d (%d)", rc, errno);
ASSERT_MSG(!hst._used, "%d", hst._used);
#endif
rc = _udestroy(gpData->heap, !_FORCE);
TRACE("_udestroy = %d (%d)\n", rc, errno);
}
}
arc = DosFreeMem(gpData);
TRACE("DosFreeMem = %ld\n", arc);
}
DosReleaseMutexSem(gMutex);
arc = DosCloseMutexSem(gMutex);
if (arc == ERROR_SEM_BUSY)
{
/* The semaphore may be owned by us, try to release it */
arc = DosReleaseMutexSem(gMutex);
TRACE("DosReleaseMutexSem = %ld\n", arc);
arc = DosCloseMutexSem(gMutex);
}
TRACE("DosCloseMutexSem = %ld\n", arc);
DosExitList(EXLST_REMOVE, ProcessExit);
}
