# New Ticket Created by "Clinton A. Pierce"
# Please include the string: [netlabs #500]
# in the subject line of all future correspondence about this issue.
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=500 >
Compiling BASIC into out.pbc:
C:\projects\parrot\parrot>basic.pl [produces out.pbc]
Including stackops.pasm
Including alpha.pasm
Including dumpstack.pasm
Including tokenize.pasm
Including basicvar.pasm
Including basic.pasm
Including instructions.pasm
Including expr.pasm
4026 lines
Ready
QUIT
C:\projects\parrot\parrot>disassemble.pl out.pbc
Use of uninitialized value in modulus (%) at lib/Parrot/Types.pm line 82,
<GEN0> line 12.
Use of uninitialized value in addition (+) at lib/Parrot/Types.pm line 83,
<GEN0> line 12.
Use of uninitialized value in substr at lib/Parrot/Types.pm line 85, <GEN0>
line 12.
PackFile::ConstTable: Internal error: Unpacked Constant returned bad byte
count '52'! at lib/Parrot/PackFile/ConstTable.pm line 73
Parrot::PackFile::ConstTable::unpack('Parrot::PackFile::ConstTable=HASH(0x1d48340)',
'm^@^@^
@s^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^A^@^@^@#^@^@^@s^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^A^@^@
^@-^@^@^@s^@^@^@...') called at lib/Parrot/PackFile.pm line 149
Parrot::PackFile::unpack('Parrot::PackFile=HASH(0x1d48358)',
'M-!U1^A^@^@^@^@4^O^@^@m^@^@^@s
^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^A^@^@^@#^@^@^@s^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@...')
ca
lled at lib/Parrot/PackFile.pm line 206
Parrot::PackFile::unpack_filehandle('Parrot::PackFile=HASH(0x1d48358)',
'FileHandle=GLOB(0x1
d483e8)') called at lib/Parrot/PackFile.pm line 222
Parrot::PackFile::unpack_file('Parrot::PackFile=HASH(0x1d48358)',
'out.pbc') called at C:\pr
ojects\parrot\parrot\disassemble.pl line 248
main::disassemble_file('out.pbc') called at
C:\projects\parrot\parrot\disassemble.pl line 276
