summaryrefslogtreecommitdiff
path: root/XSUB.h
diff options
context:
space:
mode:
authorAlexander Smishlajev <als@turnhere.com>1999-04-25 17:58:29 +0300
committerGurusamy Sarathy <gsar@cpan.org>1999-05-10 04:39:15 +0000
commit8736538c3cff6585c95a01b990d3b3a9e5d5744d (patch)
treea62ec1da701a15abcbfdff76f248259b80548f1a /XSUB.h
parent3eeba6fb8b434fcb27f601771baa0ea98f44d487 (diff)
downloadperl-8736538c3cff6585c95a01b990d3b3a9e5d5744d.tar.gz
cygwin32 update (untested adaptation of patch against 5.005_03)
Message-ID: <37230365.5F68B460@turnhere.com> Subject: [PATCH]5.005_03 (CORE) cygwin32 port p4raw-id: //depot/perl@3358
Diffstat (limited to 'XSUB.h')
-rw-r--r--XSUB.h8
1 files changed, 7 insertions, 1 deletions
diff --git a/XSUB.h b/XSUB.h
index 22805a02b0..13e5de4f59 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -4,7 +4,13 @@
# ifdef PERL_OBJECT
# define XS(name) void name(CV* cv, CPerlObj* pPerl)
# else
-# define XS(name) void name(CV* cv)
+# if defined(CYGWIN32) && defined(USE_DYNAMIC_LOADING)
+# define XS(name) __declspec(dllexport) void name(CV* cv)
+ extern struct _reent *_impure_ptr;
+ void impure_setup(struct _reent *_impure_ptrMain);
+# else
+# define XS(name) void name(CV* cv)
+# endif
# endif
#else
# define XS(name) void name(cv) CV* cv;