The disassembler isn't happy at the moment, this patch appears to fix the problem it has with the bytecode header.
Index: lib/Parrot/PackFile.pm =================================================================== RCS file: /home/perlcvs/parrot/lib/Parrot/PackFile.pm,v retrieving revision 1.15 diff -p -r1.15 PackFile.pm *** lib/Parrot/PackFile.pm 15 May 2002 04:33:29 -0000 1.15 --- lib/Parrot/PackFile.pm 20 May 2002 16:14:03 -0000 *************** sub unpack *** 187,206 **** $self->{MINOR} = shift_byte($string); $self->{FLAGS} = shift_byte($string); $self->{FLOATTYPE} = shift_byte($string); ! ! # Unused fields ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! ! $string = substr($string, 8); my $magic = shift_op($string); --- 187,193 ---- $self->{MINOR} = shift_byte($string); $self->{FLAGS} = shift_byte($string); $self->{FLOATTYPE} = shift_byte($string); ! $string = substr($string, 10); my $magic = shift_op($string); -- Jason
Index: lib/Parrot/PackFile.pm =================================================================== RCS file: /home/perlcvs/parrot/lib/Parrot/PackFile.pm,v retrieving revision 1.15 diff -p -r1.15 PackFile.pm *** lib/Parrot/PackFile.pm 15 May 2002 04:33:29 -0000 1.15 --- lib/Parrot/PackFile.pm 20 May 2002 16:14:03 -0000 *************** sub unpack *** 187,206 **** $self->{MINOR} = shift_byte($string); $self->{FLAGS} = shift_byte($string); $self->{FLOATTYPE} = shift_byte($string); ! ! # Unused fields ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! shift_byte($string); ! ! $string = substr($string, 8); my $magic = shift_op($string); --- 187,193 ---- $self->{MINOR} = shift_byte($string); $self->{FLAGS} = shift_byte($string); $self->{FLOATTYPE} = shift_byte($string); ! $string = substr($string, 10); my $magic = shift_op($string);