Tcl Source Code

Artifact 40e38cea4cb1cce8b1c3a1e715391dceb92eec52:

Attachment "2006809.patch" to ticket [2006809fff] added by dgp 2008-10-24 03:35:58.

---

Index: generic/tclEncoding.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclEncoding.c,v
retrieving revision 1.63
diff -u -r1.63 tclEncoding.c
--- generic/tclEncoding.c	22 Oct 2008 20:23:59 -0000	1.63
+++ generic/tclEncoding.c	23 Oct 2008 20:34:11 -0000
@@ -565,9 +565,12 @@
     type.freeProc	= NULL;
     type.nullSize	= 1;
     type.clientData	= NULL;
+    Tcl_CreateEncoding(&type);
 
+/*
     defaultEncoding	= Tcl_CreateEncoding(&type);
     systemEncoding	= Tcl_GetEncoding(NULL, type.encodingName);
+*/
 
     type.encodingName	= "utf-8";
     type.toUtfProc	= UtfExtToUtfIntProc;
@@ -626,7 +629,9 @@
 	type.freeProc		= TableFreeProc;
 	type.nullSize		= 1;
 	type.clientData		= dataPtr;
-	Tcl_CreateEncoding(&type);
+	/*Tcl_CreateEncoding(&type);*/
+	defaultEncoding	= Tcl_CreateEncoding(&type);
+	systemEncoding	= Tcl_GetEncoding(NULL, type.encodingName);
     }
 
     encodingsInitialized = 1;