forwarded 297204 Sergey Kolychev <[EMAIL PROTECTED]>
tags 297204 + upstream
thanks
Hello Sergey
I maintain the Debian packages for Net::RawIP and our autobuilder has
some problems compiling the package on the AMD64 architecture.
Can you comment Andreas' patch?
bye,
-christian-
On 2005-02-28 Andreas Jochens wrote:
> Package: libnet-rawip-perl
> Severity: normal
> Tags: patch
>
> When building 'libnet-rawip-perl' on amd64 with gcc-4.0,
> I get the following error:
>
> RawIP.xs: In function 'XS_Net__RawIP_dispatch':
> RawIP.xs:1287: error: invalid lvalue in assignment
> RawIP.xs: In function 'XS_Net__RawIP_loop':
> RawIP.xs:1309: error: invalid lvalue in assignment
> RawIP.xs: In function 'XS_Net__RawIP_next':
> RawIP.xs:1368: warning: pointer targets in passing argument 2 of
> 'Perl_newSVpv' differ in signedness RawIP.xs:1370: warning: pointer targets
> in passing argument 3 of 'Perl_sv_setpvn' differ in signedness make[1]: ***
> [RawIP.o] Error 1 make[1]: Leaving directory `/libnet-rawip-perl-0.10'
> make: *** [debian/stamp-makefile-build] Error 2
>
> With the attached patch 'libnet-rawip-perl' can be compiled
> on amd64 using gcc-4.0.
>
> Regards
> Andreas Jochens
>
> diff -urN ../tmp-orig/libnet-rawip-perl-0.10/RawIP.xs ./RawIP.xs
> --- ../tmp-orig/libnet-rawip-perl-0.10/RawIP.xs 2005-02-27
> 22:55:25.164416039 +0000
> +++ ./RawIP.xs 2005-02-27 22:54:47.805626975 +0000
> @@ -759,7 +759,7 @@
> if(ihl > 5){
> av_store(RETVAL,28,
> ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
> - (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
> + pktr = (u_char*)pktr + (ihl*4 - 20);
> ipo = 1;
> }
> doff = pktr->th.doff;
> @@ -785,7 +785,7 @@
> }
> av_store(RETVAL,29,
> tcp_opts_parse(sv_2mortal(newSVpv((u_char*)pktr+40,doff*4-20))));
> - (u_char*)pktr = (u_char*)pktr + (doff*4 - 20);
> + pktr = (u_char*)pktr + (doff*4 - 20);
> }
> av_store(RETVAL,27,newSVpv(((u_char*)&pktr->th.urg_ptr+2),
> tot_len - (4*ihl + doff*4)));
> @@ -818,7 +818,7 @@
> if(ihl > 5){
> av_store(RETVAL,20,
> ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
> - (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
> + pktr = (u_char*)pktr + (ihl*4 - 20);
> }
> av_store(RETVAL,11,newSViv(pktr->ich.type));
> av_store(RETVAL,12,newSViv(pktr->ich.code));
> @@ -858,7 +858,7 @@
> if(ihl > 5){
> av_store(RETVAL,12,
> ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
> - (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
> + pktr = (u_char*)pktr + (ihl*4 - 20);
> }
> av_store(RETVAL,11,newSVpv(((u_char*)pktr+20),
> tot_len - 4*ihl));
> @@ -892,7 +892,7 @@
> if(ihl > 5){
> av_store(RETVAL,16,
> ip_opts_parse(sv_2mortal(newSVpv((u_char*)pktr + 20,ihl*4 - 20))));
> - (u_char*)pktr = (u_char*)pktr + (ihl*4 - 20);
> + pktr = (u_char*)pktr + (ihl*4 - 20);
> }
> av_store(RETVAL,11,newSViv(ntohs(pktr->uh.source)));
> av_store(RETVAL,12,newSViv(ntohs(pktr->uh.dest)));
> @@ -1284,7 +1284,7 @@
> CODE:
> printer = print;
> if(!SvROK(user) && SvOK(user)){
> - (u_char *)user = SvIV(user);
> + user = SvIV(user);
> ptr = &handler;
> }
> else {
> @@ -1306,7 +1306,7 @@
> CODE:
> printer = print;
> if(!SvROK(user) && SvOK(user)){
> - (u_char *)user = SvIV(user);
> + user = SvIV(user);
> ptr = &handler;
> }
> else {
>
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
