Front page | perl.perl5.porters |
Postings from June 2012
On Tue, 19 Jun 2012, bulk 88 wrote:
> ----------------------------------------
> On Mon, 18 Jun 2012, rev.chip@gmail.com wrote:
> >
> > On 6/18/2012 9:46 AM, bulk 88 wrote:
> > > A problem I've run into in the past is ((__int64)-1) == ((int)-1) is false.
> >
> > Well, that's not true. So I think you do not understand the situation.
> >
> >
> _________________________________________
> #include "EXTERN.h"
> #include "perl.h"
> #include "XSUB.h"
>
> #include "ppport.h"
>
> #define ERRORFLAG (-1)
>
> void my_cmp(pTHX_ size_t num){
> size_t num2 = ERRORFLAG;
> if(num != num2)
> croak("not equal");
> }
>
>
> MODULE = Local::XS PACKAGE = Local::XS
>
> void
> neg1()
> PREINIT:
> unsigned int num;
You are using (unsigned int) here, which is not the same as (int).
> PPCODE:
> num = ERRORFLAG;
> my_cmp(aTHX_ num);
> ________________________________________
> #!/usr/bin/perl -w
> use strict;
> use Local::XS;
> Local::XS::neg1();
> ________________________________________
> not equal at n1.pl line 4.
Does it also print "not equal" when you remove the "unsigned"?
Cheers,
-Jan
Thread Previous
|
Thread Next