mirror of
https://github.com/amd/blis.git
synced 2026-05-12 18:15:37 +00:00
09bd4f4f12
Details: - Added an err_t* parameter to memory allocation functions including bli_malloc_intl(), bli_calloc_intl(), bli_malloc_user(), bli_fmalloc_align(), and bli_fmalloc_noalign(). Since these functions already use the return value to return the allocated memory address, they can't communicate errors to the caller through the return value. This commit does not employ any error checking within these functions or their callers, but this sets up BLIS for a more comprehensive commit that moves in that direction. - Moved the typedefs for malloc_ft and free_ft from bli_malloc.h to bli_type_defs.h. This was done so that what remains of bli_malloc.h can be included after the definition of the err_t enum. (This ordering was needed because bli_malloc.h now contains function prototypes that use err_t.) - Defined bli_is_success() and bli_is_failure() static functions in bli_param_macro_defs.h. These functions provide easy checks for error codes and will be used more heavily in future commits. - Unfortunately, the additional err_t* argument discussed above breaks the API for bli_malloc_user(), which is an exported symbol in the shared library. However, it's quite possible that the only application that calls bli_malloc_user()--indeed, the reason it is was marked for symbol exporting to begin with--is the BLIS testsuite. And if that's the case, this breakage won't affect anyone. Nonetheless, the "major" part of the so_version file has been updated accordingly to 4.0.0.
121 lines
3.1 KiB
C
121 lines
3.1 KiB
C
/*
|
|
|
|
BLIS
|
|
An object-based framework for developing high-performance BLAS-like
|
|
libraries.
|
|
|
|
Copyright (C) 2014, The University of Texas at Austin
|
|
|
|
Redistribution and use in source and binary forms, with or without
|
|
modification, are permitted provided that the following conditions are
|
|
met:
|
|
- Redistributions of source code must retain the above copyright
|
|
notice, this list of conditions and the following disclaimer.
|
|
- Redistributions in binary form must reproduce the above copyright
|
|
notice, this list of conditions and the following disclaimer in the
|
|
documentation and/or other materials provided with the distribution.
|
|
- Neither the name(s) of the copyright holder(s) nor the names of its
|
|
contributors may be used to endorse or promote products derived
|
|
from this software without specific prior written permission.
|
|
|
|
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
|
|
"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
|
|
LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
|
|
A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
|
|
HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
|
|
SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
|
|
LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
|
|
OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
*/
|
|
|
|
#include "blis.h"
|
|
|
|
|
|
func_t* bli_func_create
|
|
(
|
|
void_fp ptr_s,
|
|
void_fp ptr_d,
|
|
void_fp ptr_c,
|
|
void_fp ptr_z
|
|
)
|
|
{
|
|
func_t* f;
|
|
err_t r_val;
|
|
|
|
f = ( func_t* )bli_malloc_intl( sizeof( func_t ), &r_val );
|
|
|
|
bli_func_init
|
|
(
|
|
f,
|
|
ptr_s,
|
|
ptr_d,
|
|
ptr_c,
|
|
ptr_z
|
|
);
|
|
|
|
return f;
|
|
}
|
|
|
|
void bli_func_init
|
|
(
|
|
func_t* f,
|
|
void_fp ptr_s,
|
|
void_fp ptr_d,
|
|
void_fp ptr_c,
|
|
void_fp ptr_z
|
|
)
|
|
{
|
|
bli_func_set_dt( ptr_s, BLIS_FLOAT, f );
|
|
bli_func_set_dt( ptr_d, BLIS_DOUBLE, f );
|
|
bli_func_set_dt( ptr_c, BLIS_SCOMPLEX, f );
|
|
bli_func_set_dt( ptr_z, BLIS_DCOMPLEX, f );
|
|
}
|
|
|
|
void bli_func_init_null
|
|
(
|
|
func_t* f
|
|
)
|
|
{
|
|
bli_func_set_dt( NULL, BLIS_FLOAT, f );
|
|
bli_func_set_dt( NULL, BLIS_DOUBLE, f );
|
|
bli_func_set_dt( NULL, BLIS_SCOMPLEX, f );
|
|
bli_func_set_dt( NULL, BLIS_DCOMPLEX, f );
|
|
}
|
|
|
|
void bli_func_free( func_t* f )
|
|
{
|
|
bli_free_intl( f );
|
|
}
|
|
|
|
// -----------------------------------------------------------------------------
|
|
|
|
bool bli_func_is_null_dt( num_t dt,
|
|
func_t* f )
|
|
{
|
|
return ( bli_func_get_dt( dt, f ) == NULL );
|
|
}
|
|
|
|
bool bli_func_is_null( func_t* f )
|
|
{
|
|
bool r_val = TRUE;
|
|
num_t dt;
|
|
|
|
// Iterate over all floating-point datatypes. If any is non-null,
|
|
// return FALSE. Otherwise, if they are all null, return TRUE.
|
|
for ( dt = BLIS_DT_LO; dt <= BLIS_DT_HI; ++dt )
|
|
{
|
|
if ( bli_func_get_dt( dt, f ) != NULL )
|
|
{
|
|
r_val = FALSE;
|
|
break;
|
|
}
|
|
}
|
|
|
|
return r_val;
|
|
}
|
|
|