And as I look at the code for that test:
output_is(<< 'CODE', << 'OUTPUT', "Getting PMCs from string;int compound keys");
new P0, .PerlHash
new P1, .PerlHash
new P2, .PerlInt
set P2, 4
set P1[9], P2
set I0, P1[9]
print I0
print "\n"
set P0["a"], P1
set I0, P0["a";9]
print "Four is "
print I0
print "\n"
end
CODE
4
Four is 4
OUTPUT
It looks bogus. Is a PerlHash supposed to accept an integer as a key?
The test output to this one is:
4
Four is 0
Here's my config:
Summary of my parrot 0.1.0 configuration:
configdate='Sun Aug 22 12:48:16 2004'
Platform:
osname=linux, archname=i386-linux-thread-multi
jitcapable=1, jitarchname=i386-linux,
jitosname=LINUX, jitcpuarch=i386
execcapable=1
perl=/usr/bin/perl
Compiler:
cc='gcc', ccflags='-D_REENTRANT -D_GNU_SOURCE -DTHREADS_HAVE_PIDS -DDEBUGGING
-I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm',
Linker and Libraries:
ld='gcc', ldflags=' -L/usr/local/lib',
cc_ldflags='',
libs='-lnsl -ldl -lm -lcrypt -lutil -lpthread -lrt -lgmp'
Dynamic Linking:
so='.so', ld_shared='-shared -L/usr/local/lib -fPIC',
ld_shared_flags=''
Types:
iv=long, intvalsize=4, intsize=4, opcode_t=long, opcode_t_size=4,
ptrsize=4, ptr_alignment=1 byteorder=1234,
nv=double, numvalsize=8, doublesize=8
Luke
