mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-03-09 15:50:02 +00:00
dtdocbook/tcl/tcl.h: Add compatibility defines for old Tcl
dtdocbook/instant has been modified to use a more modern Tcl (8.6), which means certain functions are not present when we are using the dtdocbook/tcl (7.5) version of tcl instead of a modern system version. So, create some defines that should work around this problem.
This commit is contained in:
parent
6a72e2cea8
commit
1c40db8eb0
1 changed files with 15 additions and 0 deletions
|
@ -1069,4 +1069,19 @@ EXTERN void Tcl_WatchFile _ANSI_ARGS_((Tcl_File file,
|
|||
EXTERN int Tcl_Write _ANSI_ARGS_((Tcl_Channel chan,
|
||||
char *s, int slen));
|
||||
|
||||
/* JET 8/2018
|
||||
*
|
||||
* dtdocbook/instant has been modified to use a more modern Tcl (8.6),
|
||||
* which means certain functions are not present when we are using the
|
||||
* dtdocbook/tcl (7.5) version of tcl instead of a modern system
|
||||
* version. So, create some defines that should work around this
|
||||
* problem.
|
||||
*/
|
||||
|
||||
#define Tcl_Alloc(n) malloc(n)
|
||||
#define Tcl_Free(p) free(p)
|
||||
|
||||
#define Tcl_GetStringResult(i) ((i)->result)
|
||||
#define Tcl_GetErrorLine(i) ((i)->errorLine)
|
||||
|
||||
#endif /* _TCL */
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue