# New Ticket Created by "Clinton A. Pierce"
# Please include the string: [netlabs #658]
# in the subject line of all future correspondence about this issue.
# <URL: http://bugs6.perl.org/rt2/Ticket/Display.html?id=658 >
The disassembler will take apart small .pbc files, but will not tackle
BASIC's pbc. I don't think I've actually posted a real bug for this (just
whined before) so here it is.
The error generated is:
C:\projects\parrot\parrot>disassemble.pl languages\BASIC\basic.pbc
Use of uninitialized value in modulus (%) at lib/Parrot/Types.pm line 102,
<GEN0> line 11.
Use of uninitialized value in addition (+) at lib/Parrot/Types.pm line 103,
<GEN0> line 11.
Use of uninitialized value in substr at lib/Parrot/Types.pm line 105,
<GEN0> line 11.
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(0x1d3d334)',
'l^@^@^
@s^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^A^@^@^@^A^@^@^@-^@^@^@s^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^A^@^@^@^A^@^@
^@A^@^@^@s^@^@^@...') called at lib/Parrot/PackFile.pm line 226
Parrot::PackFile::unpack('Parrot::PackFile=HASH(0x1d3d358)',
'^D^@^@^@^@^@^@^@^@^@^@^@^@^@^@
^@M-!U1^ALREP^@^@^@^@M-h^N^@^@l^@^@^@s^@^@^@^T^@^@^@^@^@^@^@^@^@^@^@^A^@^@^@^A^@^@^@-^@^@^@...')
cal
led at lib/Parrot/PackFile.pm line 283
Parrot::PackFile::unpack_filehandle('Parrot::PackFile=HASH(0x1d3d358)',
'FileHandle=GLOB(0x1
d3d418)') called at lib/Parrot/PackFile.pm line 299
Parrot::PackFile::unpack_file('Parrot::PackFile=HASH(0x1d3d358)',
'languages\BASIC\basic.pbc
') called at C:\projects\parrot\parrot\disassemble.pl line 248
main::disassemble_file('languages\BASIC\basic.pbc') called at
C:\projects\parrot\parrot\disa
ssemble.pl line 284
To recreate the error, run the basic.pl script, QUIT out of BASIC and then
attempt to disassemble the basic.pbc file.
