diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 14:28:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-06-27 14:28:49 +0000 |
| commit | 0cb9638729211ea71a75ae8756c03ba21553bd53 (patch) | |
| tree | f00e767824d620a63a26a857b6a37fcb6945f89d /lib/ExtUtils | |
| parent | 4f4e629e089f1120f8e94984281df06ac4f885c5 (diff) | |
| download | perl-0cb9638729211ea71a75ae8756c03ba21553bd53.tar.gz | |
somewhat untested PERL_OBJECT cleanups (C++isms mostly
gone from the public API); PERL_OBJECT builds again on
windows
TODO: namespace-clean the typedefs in iperlsys.h and
elsewhere; remove C++ remnants from public headers
p4raw-id: //depot/perl@3553
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Embed.pm | 5 | ||||
| -rwxr-xr-x | lib/ExtUtils/xsubpp | 2 |
2 files changed, 3 insertions, 4 deletions
diff --git a/lib/ExtUtils/Embed.pm b/lib/ExtUtils/Embed.pm index 7b240ccc99..e0ea0685f0 100644 --- a/lib/ExtUtils/Embed.pm +++ b/lib/ExtUtils/Embed.pm @@ -51,7 +51,7 @@ sub xsinit { my($file, $std, $mods) = @_; my($fh,@mods,%seen); $file ||= "perlxsi.c"; - my $xsinit_proto = is_perl_object() ? "CPERLarg" : "void"; + my $xsinit_proto = "pTHXo"; if (@_) { @mods = @$mods if $mods; @@ -120,8 +120,7 @@ EOF sub xsi_protos { my(@exts) = @_; my(@retval,%seen); - my $boot_proto = is_perl_object() ? - "CV* cv _CPERLarg" : "CV* cv"; + my $boot_proto = "pTHXo_ CV* cv"; foreach $_ (@exts){ my($pname) = canon('/', $_); my($mname, $cname); diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index 83ad03ae4d..ac9ea74d23 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1320,7 +1320,7 @@ EOF if ($WantCAPI) { print Q<<"EOF"; ##ifdef PERL_CAPI -##define XSCAPI(name) void name(CV* cv, void* pPerl) +##define XSCAPI(name) void name(void *pPerl, CV* cv) # ##ifdef __cplusplus #extern "C" |