From a03de997df896ee84f6d7f6d0837dda1cd6f752b Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Wed, 29 Apr 1998 17:09:54 +0000
Subject: *** empty log message ***

---
 generic/tclInt.h   | 1 +
 mac/tclMacPort.h   | 6 ++++++
 unix/tclUnixPort.h | 6 ++++++
 3 files changed, 13 insertions(+)

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.
  */
 
-- 
cgit v0.12