From 312fdee91d53a1bf81e1f977be85b1a268d6c617 Mon Sep 17 00:00:00 2001 From: Andrew Johnson Date: Tue, 18 Mar 2014 14:18:08 -0500 Subject: [PATCH] cap5: Fix fisibility of boot_Cap5 Old method doesn't work any more, not sure what changed. --- src/ca/client/perl/Cap5.xs | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/src/ca/client/perl/Cap5.xs b/src/ca/client/perl/Cap5.xs index 8ad55d68a..70cb487ea 100644 --- a/src/ca/client/perl/Cap5.xs +++ b/src/ca/client/perl/Cap5.xs @@ -1221,6 +1221,15 @@ int CA_write_access(SV *ca_ref) { /******************************************************************************/ +/* Ensure that the generated boot_Cap5 function is visible + * outside of the libCap5.so shared library when compiling + * with GCC4+ and -fvisibility=hidden is used. + */ +#if __GNUC__ >= 4 +XS(boot_Cap5) __attribute__ ((visibility ("default"))); +#endif + + MODULE = Cap5 PACKAGE = Cap5 MODULE = Cap5 PACKAGE = CA PREFIX = CA_ @@ -1229,13 +1238,6 @@ PROTOTYPES: DISABLE BOOT: p5_ctx = Perl_get_context(); - /* Ensure that the generated boot_Cap5 function is visible - * outside of the libCap5.so shared library when compiling - * with GCC4+ and -fvisibility=hidden is used. - */ - #if __GNUC__ >= 4 - #pragma GCC visibility push(default) - #endif SV *