From 773be5c7cba11251f374ffc4e6f22fa0c4723d66 Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 9 Jan 2006 09:31:56 +0000 Subject: Minor cleanup to stop exporting functions that do not need to be. [Bug 971336] --- ChangeLog | 5 +++++ generic/tclTrace.c | 32 ++++++++++++++++---------------- 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 + + * 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 * 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. */ -- cgit v0.12