develooper Front page | perl.perl5.porters | Postings from August 2001

Re: Report /pro/3gl/CPAN/perl-current@11722 (11723)

Thread Previous
From:
H . Merijn Brand
Date:
August 22, 2001 05:16
Subject:
Re: Report /pro/3gl/CPAN/perl-current@11722 (11723)
Message ID:
20010822124325.A7A1.H.M.BRAND@hccnet.nl
>  HP-UX    HP-UX    HP-UX     AIX      AIX      AIX
>  11.00    11.00    10.20     4.3      4.3      4.2
>   HPc      gcc      HPc      vac      gcc      xlc
>  11722    11722    11722    11722    11722    11722   Configuration
> -------  -------  -------  -------  -------  -------  --------------------------------------------------------------------
> O O O O  O O O O  m m m m  O O t t  O O O O  O O O O  -Uuseperlio
> O O O O  O O O O  m m m m  O O t t  O O O O  O O O O  -Duseperlio
> O O O O  F F F F  c c c c  O O t t  c c c c  c c c c  -Duseperlio -Duse64bitint
> O O O O  F F F F  c c c c  O O t t  ? ? ? ?  c c c c  -Duseperlio -Duse64bitall
> O O O O  c c c c  m m m m  O O t t  O O O O  O O O O  -Duseperlio -Duselongdouble
> O O O O  c c c c  c c c c  O O t t  ? ? ? ?  c c c c  -Duseperlio -Dusemorebits
> O O O O  F F F F  c c c c  O O t t  c c c c  c c c c  -Duseperlio -Duse64bitall -Duselongdouble

the "t t" bits on AIX come from this
--8<---
xlc -c  -DDEBUGGING -D_ALL_SOURCE -D_ANSI_C_SOURCE -D_POSIX_SOURCE -qmaxmem=16384 -DUSE_NATIVE_DLOPEN -I/pro/local/include -q32 -D_LARGE_FILES -qlonglong -O2   -DVERSION=\"a5\" -DXS_VERSION=\"a5\"  -I../..  B.c
"B.c", line 2308.41: 1506-099 (S) Unexpected argument.
"B.c", line 2484.41: 1506-099 (S) Unexpected argument.
"B.c", line 3303.41: 1506-099 (S) Unexpected argument.
make[1]: *** [B.o] Error 1
make[1]: Leaving directory `/pro/3gl/CPAN/perl-current/ext/B'
make: *** [lib/auto/B/B.so] Error 2
-->8---

Which is caused by sv_setpv () called with three (instead of two) arguments,
or sv_setpv () called instead of sv_setpvn (), which is worse.

Is this something cause by the recent h2ph hacking, or has AIX got a leftover
from old stuff. I checked against MANIFEST, but couldn't find any.

# grep sv_setpv B.xs
B.xs:   sv_setpvn(sstr, "0", 1);
B.xs:       sv_setpvn(ST(0), "pp_", 3);
B.xs:   sv_setpvn(sv, "PL_ppaddr[OP_", 13);
B.xs:       sv_setpvn(ST(0), rx->precomp, rx->prelen);
B.xs:   sv_setpvn(ST(0), SvPVX(sv), SvCUR(sv));
B.xs:                   sv_setpvn(ST(0), mg->mg_ptr, mg->mg_len);
# grep sv_setpv B.c
B.c:    sv_setpvn(sstr, "0", 1);
B.c:        sv_setpvn(ST(0), "pp_", 3);
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpvn(sv, "PL_ppaddr[OP_", 13);
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:        sv_setpvn(ST(0), rx->precomp, rx->prelen);
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpvn(ST(0), SvPVX(sv), SvCUR(sv));
B.c:    sv_setpv(TARG, (char *)&RETVAL, 1); XSprePUSH; PUSHTARG;
B.c:                    sv_setpvn(ST(0), mg->mg_ptr, mg->mg_len);
B.c:    sv_setpv(TARG, (char *)&RETVAL, 1); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, (char *)&RETVAL, 1); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;
B.c:    sv_setpv(TARG, RETVAL); XSprePUSH; PUSHTARG;

-- 
H.Merijn Brand    Amsterdam Perl Mongers (http://www.amsterdam.pm.org/)
using perl-5.6.1, 5.7.1 & 628 on HP-UX 10.20 & 11.00, AIX 4.2, AIX 4.3,
     WinNT 4, Win2K pro & WinCE 2.11 often with Tk800.022 &/| DBD-Unify
ftp://ftp.funet.fi/pub/languages/perl/CPAN/authors/id/H/HM/HMBRAND/


Thread Previous


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About