cvsuser 02/05/10 20:19:54
Modified: . disassemble.pl
Log:
Fixup to current bytecode format.
Revision Changes Path
1.20 +9 -1 parrot/disassemble.pl
Index: disassemble.pl
===================================================================
RCS file: /cvs/public/parrot/disassemble.pl,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -w -r1.19 -r1.20
--- disassemble.pl 30 Jan 2002 18:02:15 -0000 1.19
+++ disassemble.pl 11 May 2002 03:19:54 -0000 1.20
@@ -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.19 2002/01/30 18:02:15 dan Exp $
+# $Id: disassemble.pl,v 1.20 2002/05/11 03:19:54 mrjoltcola Exp $
#
use strict;
@@ -252,7 +252,15 @@
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 "# * 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');
