Check-in [e33de4de96]
Overview
Comment:Corrected patch to "registry" in Tcl 8.4 to build with new mingw
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e33de4de969048d6f18c67485d061f91f9cfa7d4
User & Date: rkeene on 2010-10-13 07:10:27
Other Links: manifest | tags
Context
2010-10-14
07:41
Added patch for Tcl 8.4.19 to support compiling on Haiku

Updated release script to release patchscripts for Tcl check-in: a15ed07178 user: rkeene tags: trunk

2010-10-13
07:10
Corrected patch to "registry" in Tcl 8.4 to build with new mingw check-in: e33de4de96 user: rkeene tags: trunk
2010-10-12
16:13
Added registry test check-in: 9fb27167af user: rkeene tags: trunk
Changes

Modified tcl/patches/8.4.19/tcl-8.4.19-win32castingfailure-1rsk.diff from [15d3e2419e] to [6395811591].

     8      8   -	    ((Tcl_Obj **) objv) += (async + 3);
     9      9   +	    objv += (async + 3);
    10     10    
    11     11                /*
    12     12    	     * See if the target interpreter is local.  If so, execute
    13     13   diff -uNr tcl8.4.19.orig/win/tclWinReg.c tcl8.4.19-1rsk/win/tclWinReg.c
    14     14   --- tcl8.4.19.orig/win/tclWinReg.c	2007-05-15 11:08:22.000000000 -0500
    15         -+++ tcl8.4.19-1rsk/win/tclWinReg.c	2010-10-12 10:40:20.000000000 -0500
    16         -@@ -790,7 +790,7 @@
           15  ++++ tcl8.4.19-1rsk/win/tclWinReg.c	2010-10-13 02:03:11.000000000 -0500
           16  +@@ -776,6 +776,7 @@
           17  +     } else if (type == REG_MULTI_SZ) {
           18  + 	char *p = Tcl_DStringValue(&data);
           19  + 	char *end = Tcl_DStringValue(&data) + length;
           20  ++        Tcl_UniChar *p_uc;
           21  + 
           22  + 	/*
           23  + 	 * Multistrings are stored as an array of null-terminated strings,
           24  +@@ -790,7 +791,9 @@
    17     25    		    Tcl_NewStringObj(Tcl_DStringValue(&buf),
    18     26    			    Tcl_DStringLength(&buf)));
    19     27    	    if (regWinProcs->useWide) {
    20     28   -		while (*((Tcl_UniChar *)p)++ != 0) {}
    21         -+		while ((*((Tcl_UniChar *)p))++ != 0) {}
           29  ++                p_uc = (Tcl_UniChar *) p;
           30  ++		while (*p_uc++ != '\0') {}
           31  ++                p = (char *) p_uc;
    22     32    	    } else {
    23     33    		while (*p++ != '\0') {}
    24     34    	    }