Example #1
0
err_t bli_check_error_code_helper( gint_t code, char* file, guint_t line )
{
	if ( code == BLIS_SUCCESS ) return code;

	if ( BLIS_ERROR_CODE_MAX < code && code < BLIS_ERROR_CODE_MIN )
	{
		bli_print_msg( bli_error_string_for_code( code ),
		               file, line );
		bli_abort();
	}
	else
	{
		bli_print_msg( bli_error_string_for_code( BLIS_UNDEFINED_ERROR_CODE ),
		               file, line );
		bli_abort();
	}

	return code;
}
Example #2
0
double bli_clock_helper()
{
	LARGE_INTEGER clock_freq = {0};
	LARGE_INTEGER clock_val;
	BOOL          r_val;

	r_val = QueryPerformanceFrequency( &clock_freq );

	if ( r_val == 0 )
	{
		bli_print_msg( "QueryPerformanceFrequency() failed", __FILE__, __LINE__ );
		bli_abort();
	}

	r_val = QueryPerformanceCounter( &clock_val );

	if ( r_val == 0 )
	{
		bli_print_msg( "QueryPerformanceCounter() failed", __FILE__, __LINE__ );
		bli_abort();
	}

	return ( ( double) clock_val.QuadPart / ( double) clock_freq.QuadPart );
}