[svn:parrot] r29858 - in trunk/languages/tcl/src: . pmc

[infinoid]

Author: infinoid
Date: Tue Jul 29 11:34:44 2008
New Revision: 29858

Modified:
   trunk/languages/tcl/src/binary.c
   trunk/languages/tcl/src/pmc/tcllist.pmc
   trunk/languages/tcl/src/pmc/tclobject.pmc

Log:
[tcl] Fix some "switch missing default case" warnings.


Modified: trunk/languages/tcl/src/binary.c
==============================================================================
--- trunk/languages/tcl/src/binary.c    (original)
+++ trunk/languages/tcl/src/binary.c    Tue Jul 29 11:34:44 2008
@@ -115,6 +115,8 @@
             VTABLE_set_integer_native(interp, value, *n);
             pos += len;
             break;
+        default:
+            break;
     }
     (*_pos) = pos;
     return value;
@@ -399,6 +401,8 @@
             len    = sizeof (int)/sizeof (char);
             binstr = string_concat(interp, binstr, string_from_int(interp, n), 
0);
             break;
+        default:
+            break;
     }
 
     return binstr;
@@ -461,6 +465,8 @@
             while (length-- > strlen)
                 binstr = string_concat(interp, binstr, 
string_from_cstring(interp, " ", 1), 0);
             break;
+        default:
+            break;
     }
 
     return binstr;
@@ -537,6 +543,8 @@
                 binstr = binary_format_string(interp, field, binstr, value,
                                               format, &formatpos, formatlen);
                 break;
+        default:
+            break;
         }
     }
 

Modified: trunk/languages/tcl/src/pmc/tcllist.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tcllist.pmc     (original)
+++ trunk/languages/tcl/src/pmc/tcllist.pmc     Tue Jul 29 11:34:44 2008
@@ -71,7 +71,8 @@
                     case '}':
                         if (--count < 0) goto escape;
                         break;
-
+                    default:
+                        break;
                 }
                 pos++;
             }

Modified: trunk/languages/tcl/src/pmc/tclobject.pmc
==============================================================================
--- trunk/languages/tcl/src/pmc/tclobject.pmc   (original)
+++ trunk/languages/tcl/src/pmc/tclobject.pmc   Tue Jul 29 11:34:44 2008
@@ -50,6 +50,8 @@
             case enum_class_Float:
                 type = dynpmc_TclFloat;
                 break;
+            default:
+                break;
         }
         pmc_reuse(INTERP, SELF, type, 0);
     }