[perl #39753] parrot@13183: tru64 core dump: t/pmc/io_1.pir

[Jarkko Hietaniemi]

# New Ticket Created by Jarkko Hietaniemi
# Please include the string: [perl #39753]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=39753 >

(dbx) run --gc-debug t/pmc/io_1.pir
Undef ok 1
Undef ok 2
Assertion failed: (unsigned long)l != 0xdeadbeefUL, file src/io/io.c, line 1017
thread 0x13 signal IOT/Abort trap at >*[__nxm_thread_kill, 0x3ff805c5908] ret zero, (ra), 1
(dbx) where
> 0 __nxm_thread_kill(0x6, 0x3ffc01b6000, 0x3ff805c3788, 0x3ffc01b6000, 0x3ffc01b6000) [0x3ff805c5908]
1 pthread_kill(0x11fffbd07, 0x11fffbd10, 0x11fffbd00, 0x11fffbd0d, 0x5) [0x3ff805c37a0]
2 __tis_raise(0x11fffbd00, 0x11fffbd0d, 0x5, 0x1, 0x3ff801d27bc) [0x3ff801405d4]
3 abort(0x3ff801d2224, 0x0, 0x3ff805c4cc0, 0x0, 0x600000000) [0x3ff801d27b8]
4 __assert(0x3ff800c2ad0, 0x3ff800c2ac0, 0x7, 0x1, 0x7) [0x3ff801d2220]
5 PIO_putps(interpreter = 0x1401c4000, pmc = 0x1401214c0, s = 0x14047bf40) ["src/io/io.c":1017, 0x1200b7be4]
6 Parrot_print_p_sc(cur_opcode = 0x1404ea2b8, interpreter = 0x1401c4000) ["src/ops/io.ops":329, 0x1200d2a88]
7 runops_slow_core(interpreter = 0x1401c4000, pc = 0x1404ea2b8) ["src/runops_cores.c":180, 0x12014b208]
8 runops_int( = 0x1404ea000, = 0x1404ea000, interpreter = 0x1401c4000, offset = 0) ["src/interpreter.c":775, 0x1200f9bb8]
9 runops(interpreter = 0x1401c4000, offs = 0) ["src/inter_run.c":81, 0x1200f7f60]
10 runops_args(interpreter = 0x1401c4000, sub = 0x14049f640, obj = 0x1401214c0, meth = (nil), sig = 0x140061298 = "vP", ap = struct {
_a0 = 0x11fffbf40
_offset = 24
}) ["src/inter_run.c":182, 0x1200f8290]
11 Parrot_runops_fromc_args(interpreter = 0x1401c4000, sub = 0x14049f640, sig
= 0x140061298 = "vP") ["src/inter_run.c":276, 0x1200f8460]
12 Parrot_runcode(interpreter = 0x1401c4000, argc = 1, argv = 0x11fffc028) ["src/embed.c":802, 0x1200a6384]
13 main(argc = 1, argv = 0x11fffc028) ["compilers/imcc/main.c":681, 0x120088f60]
(dbx)

Summary of my parrot 0.4.5 (r13183) configuration:
configdate='Fri Jul 7 00:08:51 2006'
Platform:
osname=dec_osf, archname=alpha-dec_osf
jitcapable=0, jitarchname=nojit,
jitosname=dec_osf, jitcpuarch=alpha
execcapable=0
perl=/u/vieraat/vieraat/jhi/Perl/Platform/OSF1/bin/perl
Compiler:
cc='cc', ccflags='-std -D_INTRINSICS -fprm d -ieee -I/p/include -DLANGUAGE_C -pthread -D_XOPEN_SOURCE=500',
Linker and Libraries:
ld='ld', ldflags=' -L/p/lib',
cc_ldflags='',
libs='-lm -lutil -lpthread -laio -lrt -lgmp'
Dynamic Linking:
share_ext='.so', ld_share_flags='-shared -expect_unresolved "*" -O4 -msym -std -L/p/lib',
load_ext='.so', ld_load_flags='-shared -expect_unresolved "*" -O4 -msym -std -L/p/lib'
Types:
iv=long, intvalsize=8, intsize=4, opcode_t=long, opcode_t_size=8,
ptrsize=8, ptr_alignment=8 byteorder=12345678,
nv=double, numvalsize=8, doublesize=8

[Chip Salzenberg via RT]

Until we know what these I/O ops should do, seg faults aren't
unexpected. Nor are they something we can meaningfully fix.

This ticket now depends on the review of the I/O pdd.