Hex Artifact Content

Artifact 6395811591581c7a1ab4015053193f9ad21ab06a:


0000: 64 69 66 66 20 2d 75 4e 72 20 74 63 6c 38 2e 34  diff -uNr tcl8.4
0010: 2e 31 39 2e 6f 72 69 67 2f 77 69 6e 2f 74 63 6c  .19.orig/win/tcl
0020: 57 69 6e 44 64 65 2e 63 20 74 63 6c 38 2e 34 2e  WinDde.c tcl8.4.
0030: 31 39 2d 31 72 73 6b 2f 77 69 6e 2f 74 63 6c 57  19-1rsk/win/tclW
0040: 69 6e 44 64 65 2e 63 0a 2d 2d 2d 20 74 63 6c 38  inDde.c.--- tcl8
0050: 2e 34 2e 31 39 2e 6f 72 69 67 2f 77 69 6e 2f 74  .4.19.orig/win/t
0060: 63 6c 57 69 6e 44 64 65 2e 63 09 32 30 30 36 2d  clWinDde.c.2006-
0070: 30 34 2d 30 35 20 31 35 3a 35 30 3a 34 36 2e 30  04-05 15:50:46.0
0080: 30 30 30 30 30 30 30 30 20 2d 30 35 30 30 0a 2b  00000000 -0500.+
0090: 2b 2b 20 74 63 6c 38 2e 34 2e 31 39 2d 31 72 73  ++ tcl8.4.19-1rs
00a0: 6b 2f 77 69 6e 2f 74 63 6c 57 69 6e 44 64 65 2e  k/win/tclWinDde.
00b0: 63 09 32 30 31 30 2d 31 30 2d 31 32 20 31 30 3a  c.2010-10-12 10:
00c0: 34 30 3a 32 33 2e 30 30 30 30 30 30 30 30 30 20  40:23.000000000 
00d0: 2d 30 35 30 30 0a 40 40 20 2d 31 33 30 38 2c 37  -0500.@@ -1308,7
00e0: 20 2b 31 33 30 38 2c 37 20 40 40 0a 20 09 20 20   +1308,7 @@. .  
00f0: 20 20 7d 0a 20 0a 20 09 20 20 20 20 6f 62 6a 63    }. . .    objc
0100: 20 2d 3d 20 28 61 73 79 6e 63 20 2b 20 33 29 3b   -= (async + 3);
0110: 0a 2d 09 20 20 20 20 28 28 54 63 6c 5f 4f 62 6a  .-.    ((Tcl_Obj
0120: 20 2a 2a 29 20 6f 62 6a 76 29 20 2b 3d 20 28 61   **) objv) += (a
0130: 73 79 6e 63 20 2b 20 33 29 3b 0a 2b 09 20 20 20  sync + 3);.+.   
0140: 20 6f 62 6a 76 20 2b 3d 20 28 61 73 79 6e 63 20   objv += (async 
0150: 2b 20 33 29 3b 0a 20 0a 20 20 20 20 20 20 20 20  + 3);. .        
0160: 20 20 20 20 20 2f 2a 0a 20 09 20 20 20 20 20 2a       /*. .     *
0170: 20 53 65 65 20 69 66 20 74 68 65 20 74 61 72 67   See if the targ
0180: 65 74 20 69 6e 74 65 72 70 72 65 74 65 72 20 69  et interpreter i
0190: 73 20 6c 6f 63 61 6c 2e 20 20 49 66 20 73 6f 2c  s local.  If so,
01a0: 20 65 78 65 63 75 74 65 0a 64 69 66 66 20 2d 75   execute.diff -u
01b0: 4e 72 20 74 63 6c 38 2e 34 2e 31 39 2e 6f 72 69  Nr tcl8.4.19.ori
01c0: 67 2f 77 69 6e 2f 74 63 6c 57 69 6e 52 65 67 2e  g/win/tclWinReg.
01d0: 63 20 74 63 6c 38 2e 34 2e 31 39 2d 31 72 73 6b  c tcl8.4.19-1rsk
01e0: 2f 77 69 6e 2f 74 63 6c 57 69 6e 52 65 67 2e 63  /win/tclWinReg.c
01f0: 0a 2d 2d 2d 20 74 63 6c 38 2e 34 2e 31 39 2e 6f  .--- tcl8.4.19.o
0200: 72 69 67 2f 77 69 6e 2f 74 63 6c 57 69 6e 52 65  rig/win/tclWinRe
0210: 67 2e 63 09 32 30 30 37 2d 30 35 2d 31 35 20 31  g.c.2007-05-15 1
0220: 31 3a 30 38 3a 32 32 2e 30 30 30 30 30 30 30 30  1:08:22.00000000
0230: 30 20 2d 30 35 30 30 0a 2b 2b 2b 20 74 63 6c 38  0 -0500.+++ tcl8
0240: 2e 34 2e 31 39 2d 31 72 73 6b 2f 77 69 6e 2f 74  .4.19-1rsk/win/t
0250: 63 6c 57 69 6e 52 65 67 2e 63 09 32 30 31 30 2d  clWinReg.c.2010-
0260: 31 30 2d 31 33 20 30 32 3a 30 33 3a 31 31 2e 30  10-13 02:03:11.0
0270: 30 30 30 30 30 30 30 30 20 2d 30 35 30 30 0a 40  00000000 -0500.@
0280: 40 20 2d 37 37 36 2c 36 20 2b 37 37 36 2c 37 20  @ -776,6 +776,7 
0290: 40 40 0a 20 20 20 20 20 7d 20 65 6c 73 65 20 69  @@.     } else i
02a0: 66 20 28 74 79 70 65 20 3d 3d 20 52 45 47 5f 4d  f (type == REG_M
02b0: 55 4c 54 49 5f 53 5a 29 20 7b 0a 20 09 63 68 61  ULTI_SZ) {. .cha
02c0: 72 20 2a 70 20 3d 20 54 63 6c 5f 44 53 74 72 69  r *p = Tcl_DStri
02d0: 6e 67 56 61 6c 75 65 28 26 64 61 74 61 29 3b 0a  ngValue(&data);.
02e0: 20 09 63 68 61 72 20 2a 65 6e 64 20 3d 20 54 63   .char *end = Tc
02f0: 6c 5f 44 53 74 72 69 6e 67 56 61 6c 75 65 28 26  l_DStringValue(&
0300: 64 61 74 61 29 20 2b 20 6c 65 6e 67 74 68 3b 0a  data) + length;.
0310: 2b 20 20 20 20 20 20 20 20 54 63 6c 5f 55 6e 69  +        Tcl_Uni
0320: 43 68 61 72 20 2a 70 5f 75 63 3b 0a 20 0a 20 09  Char *p_uc;. . .
0330: 2f 2a 0a 20 09 20 2a 20 4d 75 6c 74 69 73 74 72  /*. . * Multistr
0340: 69 6e 67 73 20 61 72 65 20 73 74 6f 72 65 64 20  ings are stored 
0350: 61 73 20 61 6e 20 61 72 72 61 79 20 6f 66 20 6e  as an array of n
0360: 75 6c 6c 2d 74 65 72 6d 69 6e 61 74 65 64 20 73  ull-terminated s
0370: 74 72 69 6e 67 73 2c 0a 40 40 20 2d 37 39 30 2c  trings,.@@ -790,
0380: 37 20 2b 37 39 31 2c 39 20 40 40 0a 20 09 09 20  7 +791,9 @@. .. 
0390: 20 20 20 54 63 6c 5f 4e 65 77 53 74 72 69 6e 67     Tcl_NewString
03a0: 4f 62 6a 28 54 63 6c 5f 44 53 74 72 69 6e 67 56  Obj(Tcl_DStringV
03b0: 61 6c 75 65 28 26 62 75 66 29 2c 0a 20 09 09 09  alue(&buf),. ...
03c0: 20 20 20 20 54 63 6c 5f 44 53 74 72 69 6e 67 4c      Tcl_DStringL
03d0: 65 6e 67 74 68 28 26 62 75 66 29 29 29 3b 0a 20  ength(&buf)));. 
03e0: 09 20 20 20 20 69 66 20 28 72 65 67 57 69 6e 50  .    if (regWinP
03f0: 72 6f 63 73 2d 3e 75 73 65 57 69 64 65 29 20 7b  rocs->useWide) {
0400: 0a 2d 09 09 77 68 69 6c 65 20 28 2a 28 28 54 63  .-..while (*((Tc
0410: 6c 5f 55 6e 69 43 68 61 72 20 2a 29 70 29 2b 2b  l_UniChar *)p)++
0420: 20 21 3d 20 30 29 20 7b 7d 0a 2b 20 20 20 20 20   != 0) {}.+     
0430: 20 20 20 20 20 20 20 20 20 20 20 70 5f 75 63 20             p_uc 
0440: 3d 20 28 54 63 6c 5f 55 6e 69 43 68 61 72 20 2a  = (Tcl_UniChar *
0450: 29 20 70 3b 0a 2b 09 09 77 68 69 6c 65 20 28 2a  ) p;.+..while (*
0460: 70 5f 75 63 2b 2b 20 21 3d 20 27 5c 30 27 29 20  p_uc++ != '\0') 
0470: 7b 7d 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20  {}.+            
0480: 20 20 20 20 70 20 3d 20 28 63 68 61 72 20 2a 29      p = (char *)
0490: 20 70 5f 75 63 3b 0a 20 09 20 20 20 20 7d 20 65   p_uc;. .    } e
04a0: 6c 73 65 20 7b 0a 20 09 09 77 68 69 6c 65 20 28  lse {. ..while (
04b0: 2a 70 2b 2b 20 21 3d 20 27 5c 30 27 29 20 7b 7d  *p++ != '\0') {}
04c0: 0a 20 09 20 20 20 20 7d 0a                       . .    }.