only use '.hidden' on ELF

Author: mattip

common_loongarch64.h

@@ -266,20 +266,24 @@ static inline int get_cpu_model(char *model_name) {
 
 #if defined(ASSEMBLER) && !defined(NEEDPARAM)
 
-#define PROLOGUE \
+#define PROLOGUE_EXPORT \
     .text ;\
     .align 5 ;\
     .globl  REALNAME ;\
-	.hidden REALNAME ;\
     .type   REALNAME, @function ;\
 REALNAME: ;\
 
-#define PROLOGUE_EXPORT \
+#ifdef __ELF__
+#define PROLOGUE \
     .text ;\
     .align 5 ;\
     .globl  REALNAME ;\
+	.hidden REALNAME ;\
     .type   REALNAME, @function ;\
 REALNAME: ;\
+#else
+#define PROLOGUE PROLOGUE_EXPORT
+#endif
 
 #if defined(__linux__) && defined(__ELF__)
 #define GNUSTACK .section .note.GNU-stack,"",@progbits

common_mips.h

@@ -73,16 +73,20 @@ static inline int blas_quickdivide(blasint x, blasint y){
 
 #if defined(ASSEMBLER) && !defined(NEEDPARAM)
 
-#define PROLOGUE \
+#define PROLOGUE_EXPORT \
 	.arm		 ;\
 	.global	REALNAME ;\
-	.hidden REALNAME ;\
 REALNAME:
 
-#define PROLOGUE_EXPORT \
+#ifdef __ELF__
+#define PROLOGUE \
 	.arm		 ;\
 	.global	REALNAME ;\
+	.hidden REALNAME ;\
 REALNAME:
+#else
+#define PROLOGUE PROLOGUE_EXPORT
+#endif
 
 #define EPILOGUE
 

common_mips64.h

@@ -205,28 +205,32 @@ static inline int blas_quickdivide(blasint x, blasint y){
 #define ASSEMBLER_ARCH mips64
 #endif
 
-#define PROLOGUE \
+#define PROLOGUE_EXPORT \
 	.text ;\
 	.set	ASSEMBLER_ARCH ;\
 	.align 5 ;\
 	.globl	REALNAME ;\
-	.hidden REALNAME ;\
 	.ent	REALNAME ;\
 	.type	REALNAME, @function ;\
 REALNAME: ;\
 	.set	noreorder ;\
 	.set	nomacro
 
-#define PROLOGUE_EXPORT \
+#ifdef __ELF__
+#define PROLOGUE \
 	.text ;\
 	.set	ASSEMBLER_ARCH ;\
 	.align 5 ;\
 	.globl	REALNAME ;\
+	.hidden REALNAME ;\
 	.ent	REALNAME ;\
 	.type	REALNAME, @function ;\
 REALNAME: ;\
 	.set	noreorder ;\
 	.set	nomacro
+#else
+#define PROLOGUE PROLOGUE_EXPORT
+#endif
 
 #if defined(__linux__) && defined(__ELF__)
 #define GNUSTACK .section .note.GNU-stack,"",@progbits

common_x86.h

@@ -297,8 +297,8 @@ static __inline int blas_quickdivide(unsigned int x, unsigned int y){
 #endif
 
 #ifdef OS_DARWIN
-#define PROLOGUE .text;.align 5; .globl REALNAME; .hidden REALNAME; REALNAME:
-#define PROLOGUE_EXPORT .text;.align 5; .globl REALNAME; REALNAME:
+#define PROLOGUE .text;.align 5; .globl REALNAME; REALNAME:
+#define PROLOGUE_EXPORT PROLOGUE
 #define EPILOGUE	.subsections_via_symbols
 #define PROFCODE
 #endif
@@ -319,20 +319,24 @@ static __inline int blas_quickdivide(unsigned int x, unsigned int y){
 #endif
 
 #if defined(OS_WINNT) || defined(OS_CYGWIN_NT) || defined(OS_INTERIX)
-#define PROLOGUE \
+#define PROLOGUE_EXPORT \
 	.text; \
 	.align 16; \
 	.globl REALNAME ;\
-	.hidden REALNAME ;\
 	.def REALNAME;.scl	2;.type	32;.endef; \
 REALNAME:
 
-#define PROLOGUE_EXPORT \
+#ifdef __ELF__
+#define PROLOGUE \
 	.text; \
 	.align 16; \
 	.globl REALNAME ;\
+	.hidden REALNAME ;\
 	.def REALNAME;.scl	2;.type	32;.endef; \
 REALNAME:
+#else
+#define PROLOGUE PROLOGUE_EXPORT
+#endif
 
 #define PROFCODE
 

common_x86_64.h

@@ -400,7 +400,7 @@ static __inline unsigned int blas_quickdivide(unsigned int x, unsigned int y){
 #endif
 
 #ifdef OS_DARWIN
-#define PROLOGUE .text;.align 5; .globl REALNAME; .hidden REALNAME; REALNAME:
+#define PROLOGUE .text;.align 5; .globl REALNAME; REALNAME:
 #define PROLOGUE_EXPORT .text;.align 5; .globl REALNAME; REALNAME:
 #define EPILOGUE	.subsections_via_symbols
 #define PROFCODE
@@ -438,20 +438,23 @@ static __inline unsigned int blas_quickdivide(unsigned int x, unsigned int y){
 #endif
 
 #if defined(OS_WINDOWS) && !defined(C_PGI)
-#define PROLOGUE \
+#define PROLOGUE_EXPORT \
 	.text; \
 	.align 16; \
 	.globl REALNAME ;\
-    .hidden REALNAME ; \
 	.def REALNAME;.scl	2;.type	32;.endef; \
 REALNAME:
-
-#define PROLOGUE_EXPORT \
+#ifdef __ELF__
+#define PROLOGUE \
 	.text; \
 	.align 16; \
 	.globl REALNAME ;\
+    .hidden REALNAME ; \
 	.def REALNAME;.scl	2;.type	32;.endef; \
 REALNAME:
+#else
+#define PROLOGUE PROLOGUE_EXPORT
+#endif
 
 #define PROFCODE