Rename local copy functions to avoid name clash with the standard BLAS ones

martin-frbg · web-flow · commit 05fe49ddafc4 · 2024-12-23T19:12:17.000+01:00
diff --git a/utest/test_extensions/common.c b/utest/test_extensions/common.c
@@ -206,7 +206,7 @@ void ztranspose(blasint rows, blasint cols, double *alpha, double *a_src, int ld
  * param lda_dst - leading dimension of output matrix A
  * param conj specifies conjugation
  */
-void scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src, 
+void my_scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src, 
            float *a_dst, blasint lda_dst)
 {
     blasint i, j;
@@ -217,7 +217,7 @@ void scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src,
     }
 }
 
-void dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src, 
+void my_dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src, 
            double *a_dst, blasint lda_dst)
 {
     blasint i, j;
@@ -228,7 +228,7 @@ void dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src,
     }
 }
 
-void ccopy(blasint rows, blasint cols, float *alpha, float *a_src, int lda_src, 
+void my_ccopy(blasint rows, blasint cols, float *alpha, float *a_src, int lda_src, 
            float *a_dst, blasint lda_dst, int conj)
 {
     blasint i, j;
@@ -243,7 +243,7 @@ void ccopy(blasint rows, blasint cols, float *alpha, float *a_src, int lda_src,
     }
 }
 
-void zcopy(blasint rows, blasint cols, double *alpha, double *a_src, int lda_src, 
+void my_zcopy(blasint rows, blasint cols, double *alpha, double *a_src, int lda_src, 
            double *a_dst, blasint lda_dst, int conj)
 {
     blasint i, j;
diff --git a/utest/test_extensions/common.h b/utest/test_extensions/common.h
@@ -65,12 +65,12 @@ extern void ctranspose(blasint rows, blasint cols, float *alpha, float *a_src, i
 extern void ztranspose(blasint rows, blasint cols, double *alpha, double *a_src, int lda_src, 
                 double *a_dst, blasint lda_dst, int conj);
 
-extern void scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src, 
+extern void my_scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src, 
            float *a_dst, blasint lda_dst);
-extern void dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src, 
+extern void my_dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src, 
            double *a_dst, blasint lda_dst);
-extern void ccopy(blasint rows, blasint cols, float *alpha, float *a_src, int lda_src, 
+extern void my_ccopy(blasint rows, blasint cols, float *alpha, float *a_src, int lda_src, 
            float *a_dst, blasint lda_dst, int conj);
-extern void zcopy(blasint rows, blasint cols, double *alpha, double *a_src, int lda_src, 
+extern void my_zcopy(blasint rows, blasint cols, double *alpha, double *a_src, int lda_src, 
            double *a_dst, blasint lda_dst, int conj);                
-#endif
+#endif
diff --git a/utest/test_extensions/test_cimatcopy.c b/utest/test_extensions/test_cimatcopy.c
@@ -91,7 +91,7 @@ static float check_cimatcopy(char api, char order, char trans, blasint rows, bla
         ctranspose(m, n, alpha, data_cimatcopy.a_test, lda_src, data_cimatcopy.a_verify, lda_dst, conj);
     } 
     else {
-        ccopy(m, n, alpha, data_cimatcopy.a_test, lda_src, data_cimatcopy.a_verify, lda_dst, conj);
+        my_ccopy(m, n, alpha, data_cimatcopy.a_test, lda_src, data_cimatcopy.a_verify, lda_dst, conj);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_comatcopy.c b/utest/test_extensions/test_comatcopy.c
@@ -92,7 +92,7 @@ static float check_comatcopy(char api, char order, char trans, blasint rows, bla
         ctranspose(m, n, alpha, data_comatcopy.a_test, lda, data_comatcopy.b_verify, ldb, conj);
     } 
     else {
-        ccopy(m, n, alpha, data_comatcopy.a_test, lda, data_comatcopy.b_verify, ldb, conj);
+        my_ccopy(m, n, alpha, data_comatcopy.a_test, lda, data_comatcopy.b_verify, ldb, conj);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_dimatcopy.c b/utest/test_extensions/test_dimatcopy.c
@@ -86,7 +86,7 @@ static double check_dimatcopy(char api, char order, char trans, blasint rows, bl
         dtranspose(m, n, alpha, data_dimatcopy.a_test, lda_src, data_dimatcopy.a_verify, lda_dst);
     } 
     else {
-        dcopy(m, n, alpha, data_dimatcopy.a_test, lda_src, data_dimatcopy.a_verify, lda_dst);
+        my_dcopy(m, n, alpha, data_dimatcopy.a_test, lda_src, data_dimatcopy.a_verify, lda_dst);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_domatcopy.c b/utest/test_extensions/test_domatcopy.c
@@ -87,7 +87,7 @@ static double check_domatcopy(char api, char order, char trans, blasint rows, bl
         dtranspose(m, n, alpha, data_domatcopy.a_test, lda, data_domatcopy.b_verify, ldb);
     } 
     else {
-        dcopy(m, n, alpha, data_domatcopy.a_test, lda, data_domatcopy.b_verify, ldb);
+        my_dcopy(m, n, alpha, data_domatcopy.a_test, lda, data_domatcopy.b_verify, ldb);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_simatcopy.c b/utest/test_extensions/test_simatcopy.c
@@ -86,7 +86,7 @@ static float check_simatcopy(char api, char order, char trans, blasint rows, bla
         stranspose(m, n, alpha, data_simatcopy.a_test, lda_src, data_simatcopy.a_verify, lda_dst);
     } 
     else {
-        scopy(m, n, alpha, data_simatcopy.a_test, lda_src, data_simatcopy.a_verify, lda_dst);
+        my_scopy(m, n, alpha, data_simatcopy.a_test, lda_src, data_simatcopy.a_verify, lda_dst);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_somatcopy.c b/utest/test_extensions/test_somatcopy.c
@@ -87,7 +87,7 @@ static float check_somatcopy(char api, char order, char trans, blasint rows, bla
         stranspose(m, n, alpha, data_somatcopy.a_test, lda, data_somatcopy.b_verify, ldb);
     } 
     else {
-        scopy(m, n, alpha, data_somatcopy.a_test, lda, data_somatcopy.b_verify, ldb);
+        my_scopy(m, n, alpha, data_somatcopy.a_test, lda, data_somatcopy.b_verify, ldb);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_zimatcopy.c b/utest/test_extensions/test_zimatcopy.c
@@ -91,7 +91,7 @@ static double check_zimatcopy(char api, char order, char trans, blasint rows, bl
         ztranspose(m, n, alpha, data_zimatcopy.a_test, lda_src, data_zimatcopy.a_verify, lda_dst, conj);
     } 
     else {
-        zcopy(m, n, alpha, data_zimatcopy.a_test, lda_src, data_zimatcopy.a_verify, lda_dst, conj);
+        my_zcopy(m, n, alpha, data_zimatcopy.a_test, lda_src, data_zimatcopy.a_verify, lda_dst, conj);
     }
 
     if (api == 'F') {
diff --git a/utest/test_extensions/test_zomatcopy.c b/utest/test_extensions/test_zomatcopy.c
@@ -92,7 +92,7 @@ static double check_zomatcopy(char api, char order, char trans, blasint rows, bl
         ztranspose(m, n, alpha, data_zomatcopy.a_test, lda, data_zomatcopy.b_verify, ldb, conj);
     } 
     else {
-        zcopy(m, n, alpha, data_zomatcopy.a_test, lda, data_zomatcopy.b_verify, ldb, conj);
+        my_zcopy(m, n, alpha, data_zomatcopy.a_test, lda, data_zomatcopy.b_verify, ldb, conj);
     }
 
     if (api == 'F') {

Original file line number	Diff line number	Diff line change
`@@ -206,7 +206,7 @@ void ztranspose(blasint rows, blasint cols, double alpha, double a_src, int ld`
`206`	`206`	`* param lda_dst - leading dimension of output matrix A`
`207`	`207`	`* param conj specifies conjugation`
`208`	`208`	`*/`
`209`		`-void scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src,`
	`209`	`+void my_scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src,`
`210`	`210`	`float *a_dst, blasint lda_dst)`
`211`	`211`	`{`
`212`	`212`	`blasint i, j;`
`@@ -217,7 +217,7 @@ void scopy(blasint rows, blasint cols, float alpha, float *a_src, int lda_src,`
`217`	`217`	`}`
`218`	`218`	`}`
`219`	`219`
`220`		`-void dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src,`
	`220`	`+void my_dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src,`
`221`	`221`	`double *a_dst, blasint lda_dst)`
`222`	`222`	`{`
`223`	`223`	`blasint i, j;`
`@@ -228,7 +228,7 @@ void dcopy(blasint rows, blasint cols, double alpha, double *a_src, int lda_src,`
`228`	`228`	`}`
`229`	`229`	`}`
`230`	`230`
`231`		`-void ccopy(blasint rows, blasint cols, float alpha, float a_src, int lda_src,`
	`231`	`+void my_ccopy(blasint rows, blasint cols, float alpha, float a_src, int lda_src,`
`232`	`232`	`float *a_dst, blasint lda_dst, int conj)`
`233`	`233`	`{`
`234`	`234`	`blasint i, j;`
`@@ -243,7 +243,7 @@ void ccopy(blasint rows, blasint cols, float alpha, float a_src, int lda_src,`
`243`	`243`	`}`
`244`	`244`	`}`
`245`	`245`
`246`		`-void zcopy(blasint rows, blasint cols, double alpha, double a_src, int lda_src,`
	`246`	`+void my_zcopy(blasint rows, blasint cols, double alpha, double a_src, int lda_src,`
`247`	`247`	`double *a_dst, blasint lda_dst, int conj)`
`248`	`248`	`{`
`249`	`249`	`blasint i, j;`
Original file line number	Diff line number	Diff line change
`@@ -91,7 +91,7 @@ static float check_cimatcopy(char api, char order, char trans, blasint rows, bla`
`91`	`91`	`ctranspose(m, n, alpha, data_cimatcopy.a_test, lda_src, data_cimatcopy.a_verify, lda_dst, conj);`
`92`	`92`	`}`
`93`	`93`	`else {`
`94`		`- ccopy(m, n, alpha, data_cimatcopy.a_test, lda_src, data_cimatcopy.a_verify, lda_dst, conj);`
	`94`	`+ my_ccopy(m, n, alpha, data_cimatcopy.a_test, lda_src, data_cimatcopy.a_verify, lda_dst, conj);`
`95`	`95`	`}`
`96`	`96`
`97`	`97`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ static float check_comatcopy(char api, char order, char trans, blasint rows, bla`
`92`	`92`	`ctranspose(m, n, alpha, data_comatcopy.a_test, lda, data_comatcopy.b_verify, ldb, conj);`
`93`	`93`	`}`
`94`	`94`	`else {`
`95`		`- ccopy(m, n, alpha, data_comatcopy.a_test, lda, data_comatcopy.b_verify, ldb, conj);`
	`95`	`+ my_ccopy(m, n, alpha, data_comatcopy.a_test, lda, data_comatcopy.b_verify, ldb, conj);`
`96`	`96`	`}`
`97`	`97`
`98`	`98`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -86,7 +86,7 @@ static double check_dimatcopy(char api, char order, char trans, blasint rows, bl`
`86`	`86`	`dtranspose(m, n, alpha, data_dimatcopy.a_test, lda_src, data_dimatcopy.a_verify, lda_dst);`
`87`	`87`	`}`
`88`	`88`	`else {`
`89`		`- dcopy(m, n, alpha, data_dimatcopy.a_test, lda_src, data_dimatcopy.a_verify, lda_dst);`
	`89`	`+ my_dcopy(m, n, alpha, data_dimatcopy.a_test, lda_src, data_dimatcopy.a_verify, lda_dst);`
`90`	`90`	`}`
`91`	`91`
`92`	`92`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ static double check_domatcopy(char api, char order, char trans, blasint rows, bl`
`87`	`87`	`dtranspose(m, n, alpha, data_domatcopy.a_test, lda, data_domatcopy.b_verify, ldb);`
`88`	`88`	`}`
`89`	`89`	`else {`
`90`		`- dcopy(m, n, alpha, data_domatcopy.a_test, lda, data_domatcopy.b_verify, ldb);`
	`90`	`+ my_dcopy(m, n, alpha, data_domatcopy.a_test, lda, data_domatcopy.b_verify, ldb);`
`91`	`91`	`}`
`92`	`92`
`93`	`93`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -86,7 +86,7 @@ static float check_simatcopy(char api, char order, char trans, blasint rows, bla`
`86`	`86`	`stranspose(m, n, alpha, data_simatcopy.a_test, lda_src, data_simatcopy.a_verify, lda_dst);`
`87`	`87`	`}`
`88`	`88`	`else {`
`89`		`- scopy(m, n, alpha, data_simatcopy.a_test, lda_src, data_simatcopy.a_verify, lda_dst);`
	`89`	`+ my_scopy(m, n, alpha, data_simatcopy.a_test, lda_src, data_simatcopy.a_verify, lda_dst);`
`90`	`90`	`}`
`91`	`91`
`92`	`92`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -87,7 +87,7 @@ static float check_somatcopy(char api, char order, char trans, blasint rows, bla`
`87`	`87`	`stranspose(m, n, alpha, data_somatcopy.a_test, lda, data_somatcopy.b_verify, ldb);`
`88`	`88`	`}`
`89`	`89`	`else {`
`90`		`- scopy(m, n, alpha, data_somatcopy.a_test, lda, data_somatcopy.b_verify, ldb);`
	`90`	`+ my_scopy(m, n, alpha, data_somatcopy.a_test, lda, data_somatcopy.b_verify, ldb);`
`91`	`91`	`}`
`92`	`92`
`93`	`93`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -91,7 +91,7 @@ static double check_zimatcopy(char api, char order, char trans, blasint rows, bl`
`91`	`91`	`ztranspose(m, n, alpha, data_zimatcopy.a_test, lda_src, data_zimatcopy.a_verify, lda_dst, conj);`
`92`	`92`	`}`
`93`	`93`	`else {`
`94`		`- zcopy(m, n, alpha, data_zimatcopy.a_test, lda_src, data_zimatcopy.a_verify, lda_dst, conj);`
	`94`	`+ my_zcopy(m, n, alpha, data_zimatcopy.a_test, lda_src, data_zimatcopy.a_verify, lda_dst, conj);`
`95`	`95`	`}`
`96`	`96`
`97`	`97`	`if (api == 'F') {`
Original file line number	Diff line number	Diff line change
`@@ -92,7 +92,7 @@ static double check_zomatcopy(char api, char order, char trans, blasint rows, bl`
`92`	`92`	`ztranspose(m, n, alpha, data_zomatcopy.a_test, lda, data_zomatcopy.b_verify, ldb, conj);`
`93`	`93`	`}`
`94`	`94`	`else {`
`95`		`- zcopy(m, n, alpha, data_zomatcopy.a_test, lda, data_zomatcopy.b_verify, ldb, conj);`
	`95`	`+ my_zcopy(m, n, alpha, data_zomatcopy.a_test, lda, data_zomatcopy.b_verify, ldb, conj);`
`96`	`96`	`}`
`97`	`97`
`98`	`98`	`if (api == 'F') {`