summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2006-01-09 09:31:56 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2006-01-09 09:31:56 (GMT)
commit773be5c7cba11251f374ffc4e6f22fa0c4723d66 (patch)
treeb7c1e1fb54a4abe20d79b321f797eae76deb7fe1
parent4bed36bc88a7a23c21a62e7c06c0c57fa33c119a (diff)
downloadtcl-773be5c7cba11251f374ffc4e6f22fa0c4723d66.zip
tcl-773be5c7cba11251f374ffc4e6f22fa0c4723d66.tar.gz
tcl-773be5c7cba11251f374ffc4e6f22fa0c4723d66.tar.bz2
Minor cleanup to stop exporting functions that do not need to be. [Bug 971336]
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclTrace.c32
2 files changed, 21 insertions, 16 deletions
diff --git a/ChangeLog b/ChangeLog
index 87e28c9..2c27184 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2006-01-09 Donal K. Fellows <donal.k.fellows@manchester.ac.uk>
+
+ * generic/tclTrace.c: Stop exporting the guts of the trace command;
+ nothing outside this file needs to see it. [Bug 971336]
+
2006-01-05 Donal K. Fellows <donal.k.fellows@manchester.ac.uk>
* unix/tcl.m4 (TCL_CONFIG_SYSTEM): Factor out the code to determine
diff --git a/generic/tclTrace.c b/generic/tclTrace.c
index 2d6ef71..48cd1db 100644
--- a/generic/tclTrace.c
+++ b/generic/tclTrace.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTrace.c,v 1.31 2005/11/27 02:33:49 das Exp $
+ * RCS: @(#) $Id: tclTrace.c,v 1.32 2006/01/09 09:31:58 dkf Exp $
*/
#include "tclInt.h"
@@ -98,9 +98,9 @@ typedef struct {
typedef int (Tcl_TraceTypeObjCmd)(Tcl_Interp *interp, int optionIndex,
int objc, Tcl_Obj *CONST objv[]);
-MODULE_SCOPE Tcl_TraceTypeObjCmd TclTraceVariableObjCmd;
-MODULE_SCOPE Tcl_TraceTypeObjCmd TclTraceCommandObjCmd;
-MODULE_SCOPE Tcl_TraceTypeObjCmd TclTraceExecutionObjCmd;
+static Tcl_TraceTypeObjCmd TraceVariableObjCmd;
+static Tcl_TraceTypeObjCmd TraceCommandObjCmd;
+static Tcl_TraceTypeObjCmd TraceExecutionObjCmd;
/*
* Each subcommand has a number of 'types' to which it can apply. Currently
@@ -113,9 +113,9 @@ static CONST char *traceTypeOptions[] = {
"execution", "command", "variable", NULL
};
static Tcl_TraceTypeObjCmd *traceSubCmds[] = {
- TclTraceExecutionObjCmd,
- TclTraceCommandObjCmd,
- TclTraceVariableObjCmd,
+ TraceExecutionObjCmd,
+ TraceCommandObjCmd,
+ TraceVariableObjCmd,
};
/*
@@ -364,7 +364,7 @@ Tcl_TraceObjCmd(
/*
*----------------------------------------------------------------------
*
- * TclTraceExecutionObjCmd --
+ * TraceExecutionObjCmd --
*
* Helper function for Tcl_TraceObjCmd; implements the [trace
* {add|remove|info} execution ...] subcommands. See the user
@@ -380,8 +380,8 @@ Tcl_TraceObjCmd(
*----------------------------------------------------------------------
*/
-int
-TclTraceExecutionObjCmd(
+static int
+TraceExecutionObjCmd(
Tcl_Interp *interp, /* Current interpreter. */
int optionIndex, /* Add, info or remove */
int objc, /* Number of arguments. */
@@ -619,7 +619,7 @@ TclTraceExecutionObjCmd(
/*
*----------------------------------------------------------------------
*
- * TclTraceCommandObjCmd --
+ * TraceCommandObjCmd --
*
* Helper function for Tcl_TraceObjCmd; implements the [trace
* {add|info|remove} command ...] subcommands. See the user documentation
@@ -635,8 +635,8 @@ TclTraceExecutionObjCmd(
*----------------------------------------------------------------------
*/
-int
-TclTraceCommandObjCmd(
+static int
+TraceCommandObjCmd(
Tcl_Interp *interp, /* Current interpreter. */
int optionIndex, /* Add, info or remove */
int objc, /* Number of arguments. */
@@ -817,7 +817,7 @@ TclTraceCommandObjCmd(
/*
*----------------------------------------------------------------------
*
- * TclTraceVariableObjCmd --
+ * TraceVariableObjCmd --
*
* Helper function for Tcl_TraceObjCmd; implements the [trace
* {add|info|remove} variable ...] subcommands. See the user
@@ -833,8 +833,8 @@ TclTraceCommandObjCmd(
*----------------------------------------------------------------------
*/
-int
-TclTraceVariableObjCmd(
+static int
+TraceVariableObjCmd(
Tcl_Interp *interp, /* Current interpreter. */
int optionIndex, /* Add, info or remove */
int objc, /* Number of arguments. */