diff options
| -rw-r--r-- | generic/tclInt.h | 1 | ||||
| -rw-r--r-- | mac/tclMacPort.h | 6 | ||||
| -rw-r--r-- | unix/tclUnixPort.h | 6 |
3 files changed, 13 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 32ef58a..437e2b5 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -1411,6 +1411,7 @@ EXTERN int TclpCreateProcess _ANSI_ARGS_((Tcl_Interp *interp, EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_((char *contents, Tcl_DString *namePtr)); EXTERN int TclpDeleteFile _ANSI_ARGS_((char *path)); +EXTERN void TclpFinalize _ANSI_ARGS_((void)); EXTERN void TclpFree _ANSI_ARGS_((char *ptr)); EXTERN unsigned long TclpGetClicks _ANSI_ARGS_((void)); EXTERN unsigned long TclpGetSeconds _ANSI_ARGS_((void)); diff --git a/mac/tclMacPort.h b/mac/tclMacPort.h index 366b7a0..11dd673 100644 --- a/mac/tclMacPort.h +++ b/mac/tclMacPort.h @@ -252,6 +252,12 @@ void TclUnsetEnv(CONST char *name); #define TCL_SHLIB_EXT ".shlb" /* + * TclpFinalize is a noop on the Mac. + */ + +#define TclpFinalize() + +/* * The following define should really be in tclInt.h, but tclInt.h does * not include tclPort.h, which includes the "struct stat" definition. */ diff --git a/unix/tclUnixPort.h b/unix/tclUnixPort.h index 186de21..4613704 100644 --- a/unix/tclUnixPort.h +++ b/unix/tclUnixPort.h @@ -471,6 +471,12 @@ extern double strtod(); #define TclpReleaseFile(file) /* + * TclpFinalize is a noop on Unix systems. + */ + +#define TclpFinalize() + +/* * The following routine is only exported for testing purposes. */ |