Author: gozer Date: Thu Jan 27 15:58:27 2005 New Revision: 128445 URL: http://svn.apache.org/viewcvs?view=rev&rev=128445 Log: Perl -Duse64bit fix. apr_size_t pointers can't just be generically casted from/to UVs. Use PTR2UV/INT2PTR instead.
Modified: perl/modperl/trunk/Changes perl/modperl/trunk/lib/ModPerl/WrapXS.pm perl/modperl/trunk/xs/typemap Modified: perl/modperl/trunk/Changes Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&rev=128445&p1=perl/modperl/trunk/Changes&r1=128444&p2=perl/modperl/trunk/Changes&r2=128445 ============================================================================== --- perl/modperl/trunk/Changes (original) +++ perl/modperl/trunk/Changes Thu Jan 27 15:58:27 2005 @@ -12,6 +12,9 @@ =item 1.999_22 +Perl -Duse64bit fix. apr_size_t pointers can't just be generically +casted from/to UVs. Use PTR2UV/INT2PTR instead. [Gozer] + fix a bug in Apache::Build::dir: If the right directory isn't found in the for loop $dir still contains a > value, so the ||= has no effect. [Nick Wellnhofer <[EMAIL PROTECTED]>] Modified: perl/modperl/trunk/lib/ModPerl/WrapXS.pm Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/WrapXS.pm?view=diff&rev=128445&p1=perl/modperl/trunk/lib/ModPerl/WrapXS.pm&r1=128444&p2=perl/modperl/trunk/lib/ModPerl/WrapXS.pm&r2=128445 ============================================================================== --- perl/modperl/trunk/lib/ModPerl/WrapXS.pm (original) +++ perl/modperl/trunk/lib/ModPerl/WrapXS.pm Thu Jan 27 15:58:27 2005 @@ -620,6 +620,7 @@ 'apr_time_t' => 'T_APR_TIME', 'APR::Table' => 'T_HASHOBJ', 'APR::Pool' => 'T_POOLOBJ', + 'apr_size_t *' => 'T_UVPTR', ); sub write_typemap { Modified: perl/modperl/trunk/xs/typemap Url: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/typemap?view=diff&rev=128445&p1=perl/modperl/trunk/xs/typemap&r1=128444&p2=perl/modperl/trunk/xs/typemap&r2=128445 ============================================================================== --- perl/modperl/trunk/xs/typemap (original) +++ perl/modperl/trunk/xs/typemap Thu Jan 27 15:58:27 2005 @@ -17,6 +17,9 @@ T_VPTR sv_setiv($arg, PTR2IV($var)); +T_UVPTR + sv_setuv($arg, PTR2UV($var)); + T_APR_TIME sv_setnv($arg, (NV)(apr_time_sec($var))); @@ -72,6 +75,9 @@ T_VPTR $var = INT2PTR($type, SvIV(SvROK($arg) ? SvRV($arg) : $arg)) + +T_UVPTR + $var = INT2PTR($type, SvUV(SvROK($arg) ? SvRV($arg) : $arg)) T_APR_TIME $var = (apr_time_t)(apr_time_from_sec(SvNV($arg)))