Author: kwilliams
Date: Sat Jan 26 15:09:36 2008
New Revision: 10653
Modified:
ExtUtils-ParseXS/trunk/Changes
ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
Log:
Fix OVERLOAD code generation
Modified: ExtUtils-ParseXS/trunk/Changes
==============================================================================
--- ExtUtils-ParseXS/trunk/Changes (original)
+++ ExtUtils-ParseXS/trunk/Changes Sat Jan 26 15:09:36 2008
@@ -1,5 +1,8 @@
Revision history for Perl extension ExtUtils::ParseXS.
+ - Fixed the treatment of the OVERLOAD: keyword, which was causing a C
+ compile error. [Toshiyuki Yamato]
+
2.18 - Mon Jan 29 20:56:36 2007
- Added some UNITCHECK stuff, which (I think) makes XS code able to
Modified: ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm
==============================================================================
--- ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm (original)
+++ ExtUtils-ParseXS/trunk/lib/ExtUtils/ParseXS.pm Sat Jan 26 15:09:36 2008
@@ -76,7 +76,7 @@
$proto_re = "[" . quotemeta('\$%&*@;[]') . "]" ;
$Overload = 0;
$errors = 0;
- $Fallback = 'PL_sv_undef';
+ $Fallback = '&PL_sv_undef';
# Most of the 1500 lines below uses these globals. We'll have to
# clean this up sometime, probably. For now, we just pull them out
@@ -896,6 +896,7 @@
#XS(XS_${Packid}_nil); /* prototype to pass -Wmissing-prototypes */
#XS(XS_${Packid}_nil)
#{
+# dXSARGS;
# XSRETURN_EMPTY;
#}
#
@@ -1318,9 +1319,9 @@
TrimWhitespace($_) ;
my %map = (
- TRUE => "PL_sv_yes", 1 => "PL_sv_yes",
- FALSE => "PL_sv_no", 0 => "PL_sv_no",
- UNDEF => "PL_sv_undef",
+ TRUE => "&PL_sv_yes", 1 => "&PL_sv_yes",
+ FALSE => "&PL_sv_no", 0 => "&PL_sv_no",
+ UNDEF => "&PL_sv_undef",
) ;
# check for valid FALLBACK value
