Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Compatibility with Tcl 8.6 - Beginning with 8.6, interp->errorLine isn't public visible anymore (TIP 330). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
411908be4f5277ef3fead3872034587b |
| User & Date: | rolf@point.pointsman.de 2012-05-17 21:12:16 |
Context
|
2012-05-17
| ||
| 21:21 | Updated check-in: a842228559 user: rolf@point.pointsman.de tags: trunk | |
| 21:12 | Compatibility with Tcl 8.6 - Beginning with 8.6, interp->errorLine isn't public visible anymore (TIP 330). check-in: 411908be4f user: rolf@point.pointsman.de tags: trunk | |
| 20:30 | Fixed wrong size on memcpy on 64 bit (when sizeof(int)!=sizeof(int*)) check-in: c62dffee03 user: rolf@point.pointsman.de tags: trunk | |
Changes
Changes to generic/dom.h.
89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
/* * Beginning with 8.4, Tcl API is CONST'ified */ #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION <= 3) # define CONST84 #endif /* * Starting with Tcl 8.2 the Tcl_Panic() is defined properly * over the stubs table. * Also, we have a proper Tcl_GetString() shortcut afterwards. */ #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 2) # define Tcl_Panic panic |
> > > > > > > > |
89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
/* * Beginning with 8.4, Tcl API is CONST'ified */ #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION <= 3) # define CONST84 #endif /* * Beginning with 8.6, interp->errorLine isn't public visible anymore * (TIP 330) */ #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6) # define Tcl_GetErrorLine(interp) (interp)->errorLine #endif /* * Starting with Tcl 8.2 the Tcl_Panic() is defined properly * over the stubs table. * Also, we have a proper Tcl_GetString() shortcut afterwards. */ #if (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 2) # define Tcl_Panic panic |
Changes to generic/tcldom.c.
5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 |
domLocksLock(dl, flag);
Tcl_AllowExceptions(interp);
ret = Tcl_EvalObj(interp, objv[2]);
if (ret == TCL_ERROR) {
char msg[64 + TCL_INTEGER_SPACE];
sprintf(msg, "\n (\"%s %s\" body line %d)", Tcl_GetString(objv[0]),
Tcl_GetString(objv[1]), interp->errorLine);
Tcl_AddErrorInfo(interp, msg);
}
domLocksUnlock(dl);
return (ret == TCL_BREAK) ? TCL_OK : ret;
}
|
| |
5930 5931 5932 5933 5934 5935 5936 5937 5938 5939 5940 5941 5942 5943 5944 |
domLocksLock(dl, flag);
Tcl_AllowExceptions(interp);
ret = Tcl_EvalObj(interp, objv[2]);
if (ret == TCL_ERROR) {
char msg[64 + TCL_INTEGER_SPACE];
sprintf(msg, "\n (\"%s %s\" body line %d)", Tcl_GetString(objv[0]),
Tcl_GetString(objv[1]), Tcl_GetErrorLine(interp));
Tcl_AddErrorInfo(interp, msg);
}
domLocksUnlock(dl);
return (ret == TCL_BREAK) ? TCL_OK : ret;
}
|