Added bli_mem_init() to level 3 facade functions. Use Perl script to generate wrapper...

[dense-linear-algebra-libraries/linalg.git] / blasblisacc / src / ti_cblas_cblas_zhemm.c

diff --git a/blasblisacc/src/ti_cblas_cblas_zhemm.c b/blasblisacc/src/ti_cblas_cblas_zhemm.c
index 2ca9ef5e6aebfeee03c8caa2be09238be90084b4..fa5d9cb9b9b4b420e871aafeb7f664a82887accf 100644 (file)
--- a/blasblisacc/src/ti_cblas_cblas_zhemm.c
+++ b/blasblisacc/src/ti_cblas_cblas_zhemm.c
@@ -44,22 +44,19 @@ void cblas_zhemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, const
        if (!ti_cblas_init_done) ti_cblas_init();
        TI_CBLAS_DEBUG_PRINT("Intercepted call to %s\n", "cblas_zhemm");
 
-        TI_CBLAS_PROFILE_START();
-
+    TI_CBLAS_PROFILE_START();
        /* Dynamic condtional offload to ARM */
-        if ((TI_CBLAS_L3_OFFLOAD == TI_CBLAS_OFFLOAD_NONE) || ((TI_CBLAS_L3_OFFLOAD == TI_CBLAS_OFFLOAD_SIZE) && (!zhemm_offload_dsp(Order,Side,M,N)))) { 
-               TI_CBLAS_DEBUG_PRINT("Executing ARM %s\n", "cblas_zhemm"); 
-
-               __real_cblas_zhemm(Order,Side,Uplo,M,N,alpha,A,lda,B,ldb,beta,C,ldc); 
-
-               TI_CBLAS_PROFILE_REPORT("  Entire %s call (ARM) took %8.2f us\n","cblas_zhemm", (float) clock_diff);
-               return ;
-        }
-        /* End ARM offload */
+    if ((TI_CBLAS_L3_OFFLOAD == TI_CBLAS_OFFLOAD_NONE) || ((TI_CBLAS_L3_OFFLOAD == TI_CBLAS_OFFLOAD_SIZE) && (!zhemm_offload_dsp(Order,Side,M,N)))) { 
+       TI_CBLAS_DEBUG_PRINT("Executing ARM %s\n", "cblas_zhemm"); 
+       __real_cblas_zhemm(Order,Side,Uplo,M,N,alpha,A,lda,B,ldb,beta,C,ldc); 
+    TI_CBLAS_PROFILE_REPORT("  Entire %s call (ARM) took %8.2f us\n","cblas_zhemm", (float) clock_diff);
+       return ;
+    }
+    /* End ARM offload */
 
        /******************************************************************/
        /* DSP offload WILL be done if control reaches here */
-               TI_CBLAS_DEBUG_PRINT("Offloading to DSP %s\n", "cblas_zhemm"); 
+       TI_CBLAS_DEBUG_PRINT("Offloading to DSP %s\n", "cblas_zhemm"); 
 
        /* Lookup kernel pointer from global table */
 #ifdef __cplusplus
@@ -76,7 +73,6 @@ void cblas_zhemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, const
 #endif
        {
 
-
 #ifdef __cplusplus
                __K->setArg(0, Order);
 #else
@@ -194,8 +190,8 @@ void cblas_zhemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, const
                void *msmc_ptr;
                msmc_ptr = ti_cblas_mem_alloc(MSMC_BUF_SIZE);
 #ifdef __cplusplus
-               //Buffer buf_MSMC(ti_cblas_ocl_context, CL_MEM_READ_WRITE|CL_MEM_USE_MSMC_TI, MSMC_BUF_SIZE);
                Buffer buf_MSMC(*ti_cblas_ocl_context, CL_MEM_READ_WRITE|CL_MEM_USE_HOST_PTR, MSMC_BUF_SIZE, (void *)msmc_ptr);
+               //Buffer buf_MSMC(ti_cblas_ocl_context, CL_MEM_READ_WRITE|CL_MEM_USE_MSMC_TI, MSMC_BUF_SIZE);
                __K->setArg(13, buf_MSMC);
 
 #else
@@ -225,6 +221,7 @@ void cblas_zhemm(const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side, const
                TI_CBLAS_OCL_CHKERROR("clReleaseEvent",err);
 
 #endif
+
                ti_cblas_mem_free(msmc_ptr);
 
                ti_cblas_delete_kernel(__K);