[PATCH] packfile.c another uninit var potential

[Bryan C . Warnock]

Index: packfile.c
===================================================================
RCS file: /home/perlcvs/parrot/packfile.c,v
retrieving revision 1.10
diff -u -r1.10 packfile.c
--- packfile.c  2001/10/06 00:57:43     1.10
+++ packfile.c  2001/10/06 17:53:04
@@ -1507,11 +1507,12 @@

     if (!self) {
         /* TODO: OK to gloss over this? */
-        return 0;
+        return (opcode_t) 0;
     }

     switch(self->type) {
         case PFC_NONE:
+            packed_size = 0;
             break;

         case PFC_INTEGER:
@@ -1533,12 +1534,17 @@
             break;
 
         default:
+            packed_size = 0;
             break;
     }
 
     /* Tack on space for the initial type and size fields */
-
-    return packed_size + 2 * sizeof(opcode_t);
+    if (packed_size) {
+        return packed_size + 2 * sizeof(opcode_t);
+    }
+    else {
+        return 0;
+    }
 }
-- 
Bryan C. Warnock
[EMAIL PROTECTED]