[svn:parrot] r19663 - trunk/src

[petdance]

Author: petdance
Date: Fri Jul  6 21:07:41 2007
New Revision: 19663

Modified:
   trunk/src/packout.c

Log:
Using a size_t size instead of an opcode_t size.

Modified: trunk/src/packout.c
==============================================================================
--- trunk/src/packout.c (original)
+++ trunk/src/packout.c Fri Jul  6 21:07:41 2007
@@ -31,7 +31,7 @@
 opcode_t
 PackFile_pack_size(Interp *interp, PackFile *self /*NN*/)
 {
-    opcode_t size;
+    size_t size;
     PackFile_Directory * const dir = &self->directory;
 
     size = PACKFILE_HEADER_BYTES / sizeof (opcode_t);
@@ -224,7 +224,7 @@
         *cursor++ = i;
         /* and now type / value per component */
         for (key = self->u.key; key; key = (PMC *)PMC_data(key)) {
-            opcode_t type = PObj_get_FLAGS(key);
+            const opcode_t type = PObj_get_FLAGS(key);
             slice_bits = 0;
             if ((type & (KEY_start_slice_FLAG|KEY_inf_slice_FLAG)) ==
                     (KEY_start_slice_FLAG|KEY_inf_slice_FLAG))
@@ -237,8 +237,7 @@
             if (type & KEY_end_slice_FLAG)
                 slice_bits |= PF_VT_END_SLICE;
 
-            type &= KEY_type_FLAGS;
-            switch (type) {
+            switch (type & KEY_type_FLAGS) {
                 case KEY_integer_FLAG:
                     *cursor++ = PARROT_ARG_IC | slice_bits;
                     *cursor++ = PMC_int_val(key);