diff options
| author | stanton <stanton> | 1998-04-29 17:09:54 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1998-04-29 17:09:54 (GMT) |
| commit | a03de997df896ee84f6d7f6d0837dda1cd6f752b (patch) | |
| tree | 456dacea624b3ffde5f2188251a3a324ddb87334 | |
| parent | 737e6a322c6b3efd0d5665d2f61521b9d57e37a9 (diff) | |
| download | tcl-a03de997df896ee84f6d7f6d0837dda1cd6f752b.zip tcl-a03de997df896ee84f6d7f6d0837dda1cd6f752b.tar.gz tcl-a03de997df896ee84f6d7f6d0837dda1cd6f752b.tar.bz2 | |
*** empty log message ***
| -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. */ |