Tcl Source Code

Artifact 05345dd7e070c704a418d89208da58617bed1ad8:

Attachment "dict.patch" to ticket [716327ffff] added by patthoyts 2003-04-07 03:00:23.

---

Index: generic/tclDictObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclDictObj.c,v
retrieving revision 1.3
diff -c -c -r1.3 tclDictObj.c
*** generic/tclDictObj.c	5 Apr 2003 07:32:32 -0000	1.3
--- generic/tclDictObj.c	6 Apr 2003 19:38:27 -0000
***************
*** 1767,1772 ****
--- 1767,1773 ----
  	    return TCL_ERROR;
  	}
  	valueAlreadyInDictionary:
+ 	;
      }
      resultPtr = Tcl_ObjSetVar2(interp, objv[2], NULL, dictPtr,
  	    TCL_LEAVE_ERR_MSG);
***************
*** 2516,2519 ****
--- 2517,2522 ----
      case DICT_VALUES:	return DictValuesCmd(interp, objc, objv);
      }
      panic("unexpected fallthrough!");
+     /* not reached */
+     return TCL_ERROR;
  }