# 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