p5pRT
commented
23 years ago From @abigail
I get a test failure with threaded perl\, regardless of 64 bitness. Non-threaded perl doesn't have this problem. Here's the output of ./perl -I../lib lib/peek.t
1..17
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
ok 9
ok 10
ok 11
ok 12
ok 13
ok 14
ok 15
ok 16
[SV = PVGV(0x819fe90) at 0x819ebc8
REFCNT = 5
FLAGS = (GMG\,SMG\,MULTI\,IN_PAD)
IV = 0
NV = 0
MAGIC = 0x81a17e8
MG_VIRTUAL = &PL_vtbl_glob
MG_TYPE = '*'
MG_OBJ = 0x819ebc8
NAME = "a"
NAMELEN = 1
GvSTASH = 0x81613f4 "main"
GP = 0x81a17b0
SV = 0x819eba4
REFCNT = 1
IO = 0x0
FORM = 0x0
AV = 0x0
HV = 0x0
CV = 0x0
CVGEN = 0x0
GPFLAGS = 0x0
LINE = 44
FILE = "lib/peek.t"
EGV = 0x819ebc8 "a"
] vs [SV = PVGV\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
REFCNT = 5
FLAGS = \(GMG\,SMG\,MULTI\)
IV = 0
NV = 0
MAGIC = 0x[[:xdigit:]]+
MG_VIRTUAL = &PL_vtbl_glob
MG_TYPE = '\*'
MG_OBJ = 0x[[:xdigit:]]+
NAME = "a"
NAMELEN = 1
GvSTASH = 0x[[:xdigit:]]+\t"main"
GP = 0x[[:xdigit:]]+
SV = 0x[[:xdigit:]]+
REFCNT = 1
IO = 0x0
FORM = 0x0
AV = 0x0
HV = 0x0
CV = 0x0
CVGEN = 0x0
GPFLAGS = 0x0
LINE = \d+
FILE = ".*\b(?i:peek\.t)"
EGV = 0x[[:xdigit:]]+\t"a"]
not ok 17
Furthermore\, the previously reported compile warnings:
Storable.xs: In function `init_perinterp': Storable.xs:794: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `is_storing': Storable.xs:1069: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `is_retrieving': Storable.xs:1081: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `last_op_in_netorder': Storable.xs:1096: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `do_store': Storable.xs:2560: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `mbuf2sv': Storable.xs:2700: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `mstore': Storable.xs:2713: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `net_mstore': Storable.xs:2732: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `do_retrieve': Storable.xs:4191: warning: pointer/integer type mismatch in conditional expression Storable.xs: In function `dclone': Storable.xs:4382: warning: pointer/integer type mismatch in conditional expression Storable.xs:4410: warning: pointer/integer type mismatch in conditional expression
Migrated from rt.perl.org#3957 (status was 'resolved')
Searchable as RT3957$