cvs commit: parrot disassemble.pl

[thgibbs]

cvsuser     01/10/05 22:26:24

  Modified:    .        disassemble.pl
  Log:
  Changed intval to op in disassembler.
  
  Revision  Changes    Path
  1.15      +3 -3      parrot/disassemble.pl
  
  Index: disassemble.pl
  ===================================================================
  RCS file: /home/perlcvs/parrot/disassemble.pl,v
  retrieving revision 1.14
  retrieving revision 1.15
  diff -u -w -r1.14 -r1.15
  --- disassemble.pl    2001/10/03 17:30:40     1.14
  +++ disassemble.pl    2001/10/06 05:26:23     1.15
  @@ -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.14 2001/10/03 17:30:40 gregor Exp $
  +# $Id: disassemble.pl,v 1.15 2001/10/06 05:26:23 thgibbs Exp $
   #
   
   use strict;
  @@ -221,10 +221,10 @@
       printf "#\n";
       printf "# Segments:\n";
       printf "#\n";
  -    printf "#   * Magic Number: %8d bytes\n", sizeof('intval');
  +    printf "#   * Magic Number: %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 IVs)\n", length($pf->byte_code), 
length($pf->byte_code) / sizeof('intval');
  +    printf "#   * Byte Code:    %8d bytes (%d opcode_ts)\n", 
length($pf->byte_code), length($pf->byte_code) / sizeof('op');
   
       dump_const_table($pf);
       disassemble_byte_code($pf);