From 938eed7b6ce3192c728bf12055d28e57373849f5 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 23 Jun 2022 07:18:10 +0200
Subject: [PATCH] Set visibility of internal symbols to hidden

---
 lapack/trtrs/trtrs_parallel.c  | 6 +++++-
 lapack/trtrs/trtrs_single.c    | 6 +++++-
 lapack/trtrs/ztrtrs_parallel.c | 6 +++++-
 lapack/trtrs/ztrtrs_single.c   | 6 +++++-
 4 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/lapack/trtrs/trtrs_parallel.c b/lapack/trtrs/trtrs_parallel.c
index 52f42f693..8ba8051df 100644
--- a/lapack/trtrs/trtrs_parallel.c
+++ b/lapack/trtrs/trtrs_parallel.c
@@ -73,7 +73,11 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n,
   return 0;
 }
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
 
   int mode;
 
diff --git a/lapack/trtrs/trtrs_single.c b/lapack/trtrs/trtrs_single.c
index c82b81303..c0b55e7ad 100644
--- a/lapack/trtrs/trtrs_single.c
+++ b/lapack/trtrs/trtrs_single.c
@@ -65,7 +65,11 @@
 #define TRSV TRSV_TLN
 #endif
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
 
     if (args -> n == 1){
         TRSV (args -> m, args -> a, args -> lda, args -> b, 1, sb);
diff --git a/lapack/trtrs/ztrtrs_parallel.c b/lapack/trtrs/ztrtrs_parallel.c
index d5248f21b..2b7b5d22e 100644
--- a/lapack/trtrs/ztrtrs_parallel.c
+++ b/lapack/trtrs/ztrtrs_parallel.c
@@ -96,7 +96,11 @@ static int inner_thread(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n,
   return 0;
 }
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
 
   int mode;
 
diff --git a/lapack/trtrs/ztrtrs_single.c b/lapack/trtrs/ztrtrs_single.c
index f39d72900..e80fefca7 100644
--- a/lapack/trtrs/ztrtrs_single.c
+++ b/lapack/trtrs/ztrtrs_single.c
@@ -89,7 +89,11 @@
 #define ZTRSV ZTRSV_CLN
 #endif
 
-blasint CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
+blasint
+#ifndef C_MSVC
+__attribute__((visibility("hidden")))
+#endif
+	CNAME(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FLOAT *sa, FLOAT *sb, BLASLONG mypos) {
     if (args -> n == 1){
         ZTRSV (args -> m, args -> a, args -> lda, args -> b, 1, sb);
     } else {