[svn:parrot] r33090 - branches/pdd22io_part2/src/packfile

[allison]

Author: allison
Date: Sun Nov 23 13:57:40 2008
New Revision: 33090

Modified:
   branches/pdd22io_part2/src/packfile/pf_items.c

Log:
[pdd22io] Convert all calls to old I/O system.


Modified: branches/pdd22io_part2/src/packfile/pf_items.c
==============================================================================
--- branches/pdd22io_part2/src/packfile/pf_items.c      (original)
+++ branches/pdd22io_part2/src/packfile/pf_items.c      Sun Nov 23 13:57:40 2008
@@ -434,7 +434,7 @@
     if (!pf || !pf->fetch_op)
         return *(*stream)++;
 #if TRACE_PACKFILE == 2
-    PIO_eprintf(NULL, "PF_fetch_opcode: Reordering.\n");
+    Parrot_io_eprintf(NULL, "PF_fetch_opcode: Reordering.\n");
 #endif
     o = (pf->fetch_op)(*((const unsigned char **)stream));
     *((const unsigned char **) (stream)) += pf->header->wordsize;
@@ -567,7 +567,7 @@
     double d;
     if (!pf || !pf->fetch_nv) {
 #if TRACE_PACKFILE
-        PIO_eprintf(NULL, "PF_fetch_number: Native [%d bytes]\n",
+        Parrot_io_eprintf(NULL, "PF_fetch_number: Native [%d bytes]\n",
                 sizeof (FLOATVAL));
 #endif
         memcpy(&f, (const char*)*stream, sizeof (FLOATVAL));
@@ -577,7 +577,7 @@
     }
     f = (FLOATVAL) 0;
 #if TRACE_PACKFILE
-    PIO_eprintf(NULL, "PF_fetch_number: Byteordering..\n");
+    Parrot_io_eprintf(NULL, "PF_fetch_number: Byteordering..\n");
 #endif
     /* Here is where the size transforms get messy */
     if (NUMVAL_SIZE == 8 && ! pf->header->floattype) {
@@ -671,10 +671,10 @@
 
 /* #define TRACE_PACKFILE 1 */
 #if TRACE_PACKFILE
-    PIO_eprintf(NULL, "PF_fetch_string(): flags are 0x%04x...\n", flags);
-    PIO_eprintf(NULL, "PF_fetch_string(): charset_nr is %ld...\n",
+    Parrot_io_eprintf(NULL, "PF_fetch_string(): flags are 0x%04x...\n", flags);
+    Parrot_io_eprintf(NULL, "PF_fetch_string(): charset_nr is %ld...\n",
            charset_nr);
-    PIO_eprintf(NULL, "PF_fetch_string(): size is %ld...\n", size);
+    Parrot_io_eprintf(NULL, "PF_fetch_string(): size is %ld...\n", size);
 #endif
 
 
@@ -682,9 +682,9 @@
     s = string_make(interp, (const char *)*cursor, size, charset_name, flags);
 
 #if TRACE_PACKFILE
-    PIO_eprintf(NULL, "PF_fetch_string(): string is: ");
-    PIO_putps(interp, PIO_STDERR(interp), s);
-    PIO_eprintf(NULL, "\n");
+    Parrot_io_eprintf(NULL, "PF_fetch_string(): string is: ");
+    Parrot_io_putps(interp, Parrot_io_STDERR(interp), s);
+    Parrot_io_eprintf(NULL, "\n");
 #endif
 
 /*    s = string_make(interp, *cursor, size,
@@ -714,7 +714,7 @@
     opcode_t padded_size = s->bufused;
     char *charcursor;
 
-/*    PIO_eprintf(NULL, "PF_store_string(): size is %ld...\n", s->bufused); */
+/*    Parrot_io_eprintf(NULL, "PF_store_string(): size is %ld...\n", 
s->bufused); */
 
     if (padded_size % sizeof (opcode_t)) {
         padded_size += sizeof (opcode_t) - (padded_size % sizeof (opcode_t));