diff options
| author | nijtmans <nijtmans> | 2009-11-18 23:46:05 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-11-18 23:46:05 (GMT) |
| commit | 5eff1a7b7ac12342c892b0c4e3f867dededec5cf (patch) | |
| tree | 6938875528242df851eab59fa720c1395ee0f934 /generic/tclTestProcBodyObj.c | |
| parent | b57c08b7e2ccf91e1096b30f2170d2f603f59e0c (diff) | |
| download | tcl-5eff1a7b7ac12342c892b0c4e3f867dededec5cf.zip tcl-5eff1a7b7ac12342c892b0c4e3f867dededec5cf.tar.gz tcl-5eff1a7b7ac12342c892b0c4e3f867dededec5cf.tar.bz2 | |
Fix [Bug 2883850]: pkgIndex.tcl doesn't
get created with static Tcl build
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index b961e3c..2d5745e 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -10,23 +10,26 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.9 2009/02/10 23:08:56 nijtmans Exp $ + * RCS: @(#) $Id: tclTestProcBodyObj.c,v 1.10 2009/11/18 23:46:05 nijtmans Exp $ */ +#ifndef USE_TCL_STUBS +# define USE_TCL_STUBS +#endif #include "tclInt.h" /* * name and version of this package */ -static char packageName[] = "procbodytest"; -static char packageVersion[] = "1.0"; +static const char packageName[] = "procbodytest"; +static const char packageVersion[] = "1.0"; /* * Name of the commands exported by this package */ -static char procCommand[] = "proc"; +static const char procCommand[] = "proc"; /* * this struct describes an entry in the table of command names and command @@ -34,7 +37,7 @@ static char procCommand[] = "proc"; */ typedef struct CmdTable { - char *cmdName; /* command name */ + const char *cmdName; /* command name */ Tcl_ObjCmdProc *proc; /* command proc */ int exportIt; /* if 1, export the command */ } CmdTable; @@ -47,7 +50,7 @@ static int ProcBodyTestProcObjCmd(ClientData dummy, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static int ProcBodyTestInitInternal(Tcl_Interp *interp, int isSafe); static int RegisterCommand(Tcl_Interp* interp, - char *namespace, const CmdTable *cmdTablePtr); + const char *namespace, const CmdTable *cmdTablePtr); int Procbodytest_Init(Tcl_Interp * interp); int Procbodytest_SafeInit(Tcl_Interp * interp); @@ -135,7 +138,7 @@ static int RegisterCommand( Tcl_Interp* interp, /* the Tcl interpreter for which the operation * is performed */ - char *namespace, /* the namespace in which the command is + const char *namespace, /* the namespace in which the command is * registered */ const CmdTable *cmdTablePtr)/* the command to register */ { |