summaryrefslogtreecommitdiff
path: root/XSUB.h
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1998-01-30 09:23:36 +0000
committerGurusamy Sarathy <gsar@cpan.org>1998-01-30 09:23:36 +0000
commit76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4 (patch)
tree1d4e5f5653fd9def6bd71cc0cb536400223f4d3e /XSUB.h
parent6ad3d225cec2692b410002582f5558652eea32c8 (diff)
downloadperl-76e3520e1f6b7df33cd381a2cf4f1fce3d69c8a4.tar.gz
[asperl] added AS patch#2
p4raw-id: //depot/asperl@443
Diffstat (limited to 'XSUB.h')
-rw-r--r--XSUB.h8
1 files changed, 8 insertions, 0 deletions
diff --git a/XSUB.h b/XSUB.h
index 75e65cf1db..10aed074ef 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -1,7 +1,11 @@
#define ST(off) stack_base[ax + (off)]
#ifdef CAN_PROTOTYPE
+#ifdef PERL_OBJECT
+#define XS(name) void name(CPerlObj* pPerl, CV* cv)
+#else
#define XS(name) void name(CV* cv)
+#endif
#else
#define XS(name) void name(cv) CV* cv;
#endif
@@ -69,3 +73,7 @@
#else
# define XS_VERSION_BOOTCHECK
#endif
+
+#ifdef PERL_OBJECT
+#include "ObjXSub.h"
+#endif \ No newline at end of file