This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4073dd4
)
5.8.0: two problems
author
Ilya Zakharevich
<ilya@math.berkeley.edu>
Tue, 22 Apr 2003 11:43:17 +0000
(
04:43
-0700)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Tue, 22 Apr 2003 20:53:20 +0000
(20:53 +0000)
Message-ID: <
20030422184316
.GA8602@math.berkeley.edu>
p4raw-id: //depot/perl@19308
XSUB.h
patch
|
blob
|
blame
|
history
diff --git
a/XSUB.h
b/XSUB.h
index
2278823
..
af91137
100644
(file)
--- a/
XSUB.h
+++ b/
XSUB.h
@@
-104,7
+104,7
@@
handled automatically by C<xsubpp>.
#define dXSFUNCTION(ret) XSINTERFACE_CVT(ret,XSFUNCTION)
#define XSINTERFACE_FUNC(ret,cv,f) ((XSINTERFACE_CVT(ret,))(f))
#define XSINTERFACE_FUNC_SET(cv,f) \
- CvXSUBANY(cv).any_dptr = (void (*) (pTHX_ void*))(f)
+ CvXSUBANY(cv).any_d
x
ptr = (void (*) (pTHX_ void*))(f)
/* Simple macros to put new mortal values onto the stack. */
/* Typically used to return values from XS functions. */