amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-05-11 09:39:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

A couple of functions were incorrectly ifdeffed away on Xeon Phi. Fixed this

Browse Source
This commit is contained in:
Tyler Smith
2015-02-05 11:09:12 -06:00
parent 7574c9947d
commit cefd3d5d20
1 changed files with 18 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
frame/base/bli_threading_omp.c
View File

@@ -36,8 +36,21 @@
#ifdef BLIS_ENABLE_OPENMP
//'Normal' barrier for openmp
#ifndef BLIS_TREE_BARRIER
//Constructors and destructors for constructors
thread_comm_t* bli_create_communicator( dim_t n_threads )
{
thread_comm_t* comm = (thread_comm_t*) bli_malloc( sizeof(thread_comm_t) );
bli_setup_communicator( comm, n_threads );
return comm;
}
void bli_free_communicator( thread_comm_t* communicator )
{
if( communicator == NULL ) return;
bli_cleanup_communicator( communicator );
bli_free( communicator );
}
void bli_level3_thread_decorator( dim_t n_threads,
level3_int_t func,
obj_t* alpha,
@@ -62,6 +75,8 @@ void bli_level3_thread_decorator( dim_t n_threads,
}
}
#ifndef BLIS_TREE_BARRIER
//'Normal' barrier for openmp
//barrier routine taken from art of multicore programming
void bli_barrier( thread_comm_t* communicator, dim_t t_id )
{
@@ -83,13 +98,6 @@ void bli_barrier( thread_comm_t* communicator, dim_t t_id )
}
}
//Constructors and destructors for constructors
thread_comm_t* bli_create_communicator( dim_t n_threads )
{
thread_comm_t* comm = (thread_comm_t*) bli_malloc( sizeof(thread_comm_t) );
bli_setup_communicator( comm, n_threads );
return comm;
}
void bli_setup_communicator( thread_comm_t* communicator, dim_t n_threads)
{
@@ -100,12 +108,6 @@ void bli_setup_communicator( thread_comm_t* communicator, dim_t n_threads)
communicator->barrier_threads_arrived = 0;
}
void bli_free_communicator( thread_comm_t* communicator )
{
if( communicator == NULL ) return;
bli_cleanup_communicator( communicator );
bli_free( communicator );
}
void bli_cleanup_communicator( thread_comm_t* communicator )
{
@@ -174,6 +176,7 @@ void bli_cleanup_communicator( thread_comm_t* communicator )
bli_free( communicator->barriers );
}
void bli_setup_communicator( thread_comm_t* communicator, dim_t n_threads)
{
if( communicator == NULL ) return;