cvsuser 03/01/28 05:33:09
Modified: . pdump.c
Log:
more header infos
Revision Changes Path
1.19 +8 -3 parrot/pdump.c
Index: pdump.c
===================================================================
RCS file: /cvs/public/parrot/pdump.c,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -w -r1.18 -r1.19
--- pdump.c 28 Jan 2003 09:20:22 -0000 1.18
+++ pdump.c 28 Jan 2003 13:33:09 -0000 1.19
@@ -1,7 +1,7 @@
/* pdump.c
* Copyright: (When this is determined...it will go here)
* CVS Info
- * $Id: pdump.c,v 1.18 2003/01/28 09:20:22 leo Exp $
+ * $Id: pdump.c,v 1.19 2003/01/28 13:33:09 leo Exp $
* Overview:
* A program to dump pack files to human readable form.
* Data Structure and Algorithms:
@@ -52,10 +52,15 @@
PackFile_header_dump(struct Parrot_Interp *interpreter, struct PackFile *pf)
{
PIO_printf(interpreter, "HEADER => [\n");
- PIO_printf(interpreter, "\twordsize = %d\n", pf->header->wordsize);
- PIO_printf(interpreter, "\tbyteorder = %d\n", pf->header->byteorder);
+ PIO_printf(interpreter, "\twordsize = %d", pf->header->wordsize);
+ PIO_printf(interpreter, "\t(interpreter's wordsize = %d)\n",
+ sizeof(opcode_t));
+ PIO_printf(interpreter, "\tbyteorder = %d", pf->header->byteorder);
+ PIO_printf(interpreter, "\t(interpreter's byteorder = %d)\n",
+ PARROT_BIGENDIAN);
PIO_printf(interpreter, "\tfloattype = %d", pf->header->floattype);
PIO_printf(interpreter, "\t(interpreter's NUMVAL_SIZE = %d)\n",NUMVAL_SIZE);
+ PIO_printf(interpreter, "\tdirformat = %d\n", pf->header->dir_format);
PIO_printf(interpreter, "]\n");
}
