[Swig-cvs] SF.net SVN: swig: [10152] trunk/Lib/perl5/perlrun.swg

[<wsf...@us...>]

Revision: 10152
          http://swig.svn.sourceforge.net/swig/?rev=10152&view=rev
Author:   wsfulton
Date:     2007-11-19 13:31:18 -0800 (Mon, 19 Nov 2007)

Log Message:
-----------
Fix static extern C compilation errors for Perl C++ wrappers

Modified Paths:
--------------
    trunk/Lib/perl5/perlrun.swg

Modified: trunk/Lib/perl5/perlrun.swg
===================================================================
--- trunk/Lib/perl5/perlrun.swg	2007-11-19 21:30:57 UTC (rev 10151)
+++ trunk/Lib/perl5/perlrun.swg	2007-11-19 21:31:18 UTC (rev 10152)
@@ -107,21 +107,12 @@
 #endif
 
 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
-
-#ifdef __cplusplus
-#define SWIGCLASS_STATIC extern "C"
-#else
 #define SWIGCLASS_STATIC
-#endif
 
-#else
-#define MAGIC_PPERL
+#else /* PERL_OBJECT */
 
-#ifdef __cplusplus
-#define SWIGCLASS_STATIC extern "C" static SWIGUNUSED
-#else
+#define MAGIC_PPERL
 #define SWIGCLASS_STATIC static SWIGUNUSED
-#endif
 
 #ifndef MULTIPLICITY
 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
@@ -134,8 +125,8 @@
 }
 #endif
 
+#else /* MULTIPLICITY */
 
-#else
 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
 
 #ifdef __cplusplus
@@ -146,8 +137,8 @@
 }
 #endif
 
-#endif
-#endif
+#endif /* MULTIPLICITY */
+#endif /* PERL_OBJECT */
 
 /* Workaround for bug in perl 5.6.x croak and earlier */
 #if (PERL_VERSION < 8)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.