cvsuser 02/10/29 06:09:01
Modified: . disassemble.pl
Log:
#18131 disassemble.pl
Revision Changes Path
1.23 +14 -13 parrot/disassemble.pl
Index: disassemble.pl
===================================================================
RCS file: /cvs/public/parrot/disassemble.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -w -r1.22 -r1.23
--- disassemble.pl 19 Aug 2002 23:14:48 -0000 1.22
+++ disassemble.pl 29 Oct 2002 14:09:01 -0000 1.23
@@ -8,7 +8,7 @@
# This program is free software. It is subject to the same license
# as the Parrot interpreter.
#
-# $Id: disassemble.pl,v 1.22 2002/08/19 23:14:48 tom Exp $
+# $Id: disassemble.pl,v 1.23 2002/10/29 14:09:01 leo Exp $
#
use strict;
@@ -268,15 +268,16 @@
printf "#\n";
printf "# Segments:\n";
printf "#\n";
- printf "# * Wordsize: %8d bytes\n", sizeof('byte');
- printf "# * Byteorder: %8d bytes\n", sizeof('byte');
- printf "# * Major: %8d bytes\n", sizeof('byte');
- printf "# * Minor: %8d bytes\n", sizeof('byte');
- printf "# * Flags: %8d bytes\n", sizeof('byte');
- printf "# * FloatType: %8d bytes\n", sizeof('byte');
- printf "# * Unused: %8d bytes\n", length($pf->pad);
- printf "# * Magic Number: %8d bytes\n", sizeof('op');
- printf "# * Opcode Type: %8d bytes\n", sizeof('op');
+ printf "# * Wordsize: %8d bytes (%d)\n", sizeof('byte'), $pf->wordsize;
+ printf "# * Byteorder: %8d bytes (%d)\n", sizeof('byte'), $pf->byteorder;
+ printf "# * Major: %8d bytes (%d)\n", sizeof('byte'), $pf->major;
+ printf "# * Minor: %8d bytes (%d)\n", sizeof('byte'), $pf->minor;
+ printf "# * Flags: %8d bytes (%d)\n", sizeof('byte'), $pf->flags;
+ printf "# * FloatType: %8d bytes (%d)\n", sizeof('byte'), $pf->floattype;
+ printf "# * Fingerprint: %8d bytes (". "0x%02x," x9 . "0x%02x)\n",
length($pf->pad),
+ unpack("C10", $pf->pad);
+ printf "# * Magic Number: %8d bytes (0x%08x)\n", sizeof('op'), $pf->magic;
+ printf "# * Opcode Type: %8d bytes (0x%08x)\n", sizeof('op'),
$pf->opcodetype;
printf "# * Fixup Table: %8d bytes\n", $pf->fixup_table->packed_size;
printf "# * Const Table: %8d bytes\n", $pf->const_table->packed_size;
printf "# * Byte Code: %8d bytes (%d opcode_ts)\n",
length($pf->byte_code), length($pf->byte_code) / sizeof('op');
