Hex Artifact Content

Artifact 4aa7e63cec7b1df84c983a4543ad0f4838c4f5c8:


0000: 64 69 66 66 20 2d 2d 67 69 74 20 61 2f 67 65 6e  diff --git a/gen
0010: 65 72 69 63 2f 64 6f 6d 2e 68 20 62 2f 67 65 6e  eric/dom.h b/gen
0020: 65 72 69 63 2f 64 6f 6d 2e 68 0a 69 6e 64 65 78  eric/dom.h.index
0030: 20 62 31 30 65 37 32 39 2e 2e 31 34 35 33 36 36   b10e729..145366
0040: 66 20 31 30 30 36 34 34 0a 2d 2d 2d 20 61 2f 67  f 100644.--- a/g
0050: 65 6e 65 72 69 63 2f 64 6f 6d 2e 68 0a 2b 2b 2b  eneric/dom.h.+++
0060: 20 62 2f 67 65 6e 65 72 69 63 2f 64 6f 6d 2e 68   b/generic/dom.h
0070: 0a 40 40 20 2d 39 34 2c 36 20 2b 39 34 2c 31 34  .@@ -94,6 +94,14
0080: 20 40 40 0a 20 23 65 6e 64 69 66 0a 20 0a 20 2f   @@. #endif. . /
0090: 2a 0a 2b 20 2a 20 42 65 67 69 6e 6e 69 6e 67 20  *.+ * Beginning 
00a0: 77 69 74 68 20 38 2e 36 2c 20 69 6e 74 65 72 70  with 8.6, interp
00b0: 2d 3e 65 72 72 6f 72 4c 69 6e 65 20 69 73 6e 27  ->errorLine isn'
00c0: 74 20 70 75 62 6c 69 63 20 76 69 73 69 62 6c 65  t public visible
00d0: 20 61 6e 79 6d 6f 72 65 0a 2b 20 2a 20 28 54 49   anymore.+ * (TI
00e0: 50 20 33 33 30 29 0a 2b 20 2a 2f 0a 2b 23 69 66  P 330).+ */.+#if
00f0: 20 28 54 43 4c 5f 4d 41 4a 4f 52 5f 56 45 52 53   (TCL_MAJOR_VERS
0100: 49 4f 4e 20 3d 3d 20 38 29 20 26 26 20 28 54 43  ION == 8) && (TC
0110: 4c 5f 4d 49 4e 4f 52 5f 56 45 52 53 49 4f 4e 20  L_MINOR_VERSION 
0120: 3c 20 36 29 0a 2b 23 20 64 65 66 69 6e 65 20 54  < 6).+# define T
0130: 63 6c 5f 47 65 74 45 72 72 6f 72 4c 69 6e 65 28  cl_GetErrorLine(
0140: 69 6e 74 65 72 70 29 20 28 69 6e 74 65 72 70 29  interp) (interp)
0150: 2d 3e 65 72 72 6f 72 4c 69 6e 65 0a 2b 23 65 6e  ->errorLine.+#en
0160: 64 69 66 0a 2b 0a 2b 2f 2a 0a 20 20 2a 20 53 74  dif.+.+/*.  * St
0170: 61 72 74 69 6e 67 20 77 69 74 68 20 54 63 6c 20  arting with Tcl 
0180: 38 2e 32 20 74 68 65 20 54 63 6c 5f 50 61 6e 69  8.2 the Tcl_Pani
0190: 63 28 29 20 69 73 20 64 65 66 69 6e 65 64 20 70  c() is defined p
01a0: 72 6f 70 65 72 6c 79 0a 20 20 2a 20 6f 76 65 72  roperly.  * over
01b0: 20 74 68 65 20 73 74 75 62 73 20 74 61 62 6c 65   the stubs table
01c0: 2e 0a 20 20 2a 20 41 6c 73 6f 2c 20 77 65 20 68  ..  * Also, we h
01d0: 61 76 65 20 61 20 70 72 6f 70 65 72 20 54 63 6c  ave a proper Tcl
01e0: 5f 47 65 74 53 74 72 69 6e 67 28 29 20 73 68 6f  _GetString() sho
01f0: 72 74 63 75 74 20 61 66 74 65 72 77 61 72 64 73  rtcut afterwards
0200: 2e 0a 64 69 66 66 20 2d 2d 67 69 74 20 61 2f 67  ..diff --git a/g
0210: 65 6e 65 72 69 63 2f 74 63 6c 64 6f 6d 2e 63 20  eneric/tcldom.c 
0220: 62 2f 67 65 6e 65 72 69 63 2f 74 63 6c 64 6f 6d  b/generic/tcldom
0230: 2e 63 0a 69 6e 64 65 78 20 30 31 32 36 66 35 34  .c.index 0126f54
0240: 2e 2e 61 34 35 37 38 61 62 20 31 30 30 36 34 34  ..a4578ab 100644
0250: 0a 2d 2d 2d 20 61 2f 67 65 6e 65 72 69 63 2f 74  .--- a/generic/t
0260: 63 6c 64 6f 6d 2e 63 0a 2b 2b 2b 20 62 2f 67 65  cldom.c.+++ b/ge
0270: 6e 65 72 69 63 2f 74 63 6c 64 6f 6d 2e 63 0a 40  neric/tcldom.c.@
0280: 40 20 2d 35 39 33 34 2c 37 20 2b 35 39 33 34 2c  @ -5934,7 +5934,
0290: 37 20 40 40 20 69 6e 74 20 74 63 6c 64 6f 6d 5f  7 @@ int tcldom_
02a0: 45 76 61 6c 4c 6f 63 6b 65 64 20 28 0a 20 20 20  EvalLocked (.   
02b0: 20 20 69 66 20 28 72 65 74 20 3d 3d 20 54 43 4c    if (ret == TCL
02c0: 5f 45 52 52 4f 52 29 20 7b 0a 20 20 20 20 20 20  _ERROR) {.      
02d0: 20 20 20 63 68 61 72 20 6d 73 67 5b 36 34 20 2b     char msg[64 +
02e0: 20 54 43 4c 5f 49 4e 54 45 47 45 52 5f 53 50 41   TCL_INTEGER_SPA
02f0: 43 45 5d 3b 0a 20 20 20 20 20 20 20 20 20 73 70  CE];.         sp
0300: 72 69 6e 74 66 28 6d 73 67 2c 20 22 5c 6e 20 20  rintf(msg, "\n  
0310: 20 20 28 5c 22 25 73 20 25 73 5c 22 20 62 6f 64    (\"%s %s\" bod
0320: 79 20 6c 69 6e 65 20 25 64 29 22 2c 20 54 63 6c  y line %d)", Tcl
0330: 5f 47 65 74 53 74 72 69 6e 67 28 6f 62 6a 76 5b  _GetString(objv[
0340: 30 5d 29 2c 0a 2d 20 20 20 20 20 20 20 20 20 20  0]),.-          
0350: 20 20 20 20 20 20 54 63 6c 5f 47 65 74 53 74 72        Tcl_GetStr
0360: 69 6e 67 28 6f 62 6a 76 5b 31 5d 29 2c 20 69 6e  ing(objv[1]), in
0370: 74 65 72 70 2d 3e 65 72 72 6f 72 4c 69 6e 65 29  terp->errorLine)
0380: 3b 0a 2b 20 20 20 20 20 20 20 20 20 20 20 20 20  ;.+             
0390: 20 20 20 54 63 6c 5f 47 65 74 53 74 72 69 6e 67     Tcl_GetString
03a0: 28 6f 62 6a 76 5b 31 5d 29 2c 20 54 63 6c 5f 47  (objv[1]), Tcl_G
03b0: 65 74 45 72 72 6f 72 4c 69 6e 65 28 69 6e 74 65  etErrorLine(inte
03c0: 72 70 29 29 3b 0a 20 20 20 20 20 20 20 20 20 54  rp));.         T
03d0: 63 6c 5f 41 64 64 45 72 72 6f 72 49 6e 66 6f 28  cl_AddErrorInfo(
03e0: 69 6e 74 65 72 70 2c 20 6d 73 67 29 3b 0a 20 20  interp, msg);.  
03f0: 20 20 20 7d 0a 20 0a                                }. .