Front page | perl.perl5.porters |
Postings from November 2000
On Tue, 21 Nov 2000, Jarkko Hietaniemi wrote:
> > as well as others in the re and Storable extensions.
>
> Please show the Storable ones (the ones in re are, I suspect, quite
> similar to the ones you showed :-)
I think that Craig Berry's post covered your request, though as it happens
I did save a record of what I saw which looked like this for re:
-------------------------
CC/DECC /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIA
S/Define=(PERL_EXT_RE_BUILD,PERL_EXT_RE_DEBUG,"VERSION=""0.02""","XS_VERSION=""0
.02""")/Include=([--])/Optimize RE_COMP.c
if (len < 0)
................^
%CC-I-QUESTCOMPARE, In this statement, the unsigned expression "len" is being co
mpared with a relational operator to a constant whose value is not greater than
zero. This might not be what you intended.
at line number 2990 in file DKA100:[PERL.EXT.RE]RE_COMP.C;1
---------
and then in the build of Storable:
----
MCR dka100:[perl]miniperl.exe "-I[--.lib]" "-I[--.lib]" [--.lib.ExtUtils]xsubpp
-typemap [--.lib.ExtUtils]typemap STORABLE.xs >STORABLE.C
CC/DECC /Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj/NoList/NOANSI_ALIA
S/Define=("VERSION=""1.006""","XS_VERSION=""1.006""")/Include=([--])/Optimize S
TORABLE.c
GETMARK(flags);
........^
%CC-I-QUESTCOMPARE1, In this statement, the unsigned expression "(flags=((((unsi
gned int)((*(cxt->fio))->_flag)&0X0000000000000010)!=0)?(-1):((*cxt->fio)?(((((*
cxt->fio)->_cnt>0)&!((*cxt->fio)->_flag&0X0000000000000040))?((*cxt->fio)->_cnt-
-,((int)((unsig
ned char)*((*cxt->fio)->_ptr++)))):(getc)(...))):(getc)(...)" is being compared
with an equality operator to a constant whose value is negative. This might not
be what you intended.
at line number 3031 in file DKA100:[PERL.EXT.STORABLE]STORABLE.XS;
GETMARK(flags);
................^
%CC-I-QUESTCOMPARE1, In this statement, the unsigned expression "(flags=((((unsi
gned int)((*(cxt->fio))->_flag)&0X0000000000000010)!=0)?(-1):((*cxt->fio)?(((((*
cxt->fio)->_cnt>0)&!((*cxt->fio)->_flag&0X0000000000000040))?((*cxt->fio)->_cnt-
-,((int)((unsig
ned char)*((*cxt->fio)->_ptr++)))):(getc)(...))):(getc)(...)" is being compared
with an equality operator to a constant whose value is negative. This might not
be what you intended.
at line number 3072 in file DKA100:[PERL.EXT.STORABLE]STORABLE.XS;1
-------------------------
HTH
Peter Prymmer
Thread Previous
|
Thread Next