diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-18 21:38:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-18 21:38:50 (GMT) |
| commit | bb146c387f42e478b1d8ffbc8617988fb572587c (patch) | |
| tree | 21613b0eb89c7761720b11b131e69e333052ed9b /generic/tclTestProcBodyObj.c | |
| parent | c15c9e5f26e373ec9674b39dc42d2c3500c65b5c (diff) | |
| download | tcl-bb146c387f42e478b1d8ffbc8617988fb572587c.zip tcl-bb146c387f42e478b1d8ffbc8617988fb572587c.tar.gz tcl-bb146c387f42e478b1d8ffbc8617988fb572587c.tar.bz2 | |
make some more internal tables CONST
fix compilation with -DNO_CONST
Diffstat (limited to 'generic/tclTestProcBodyObj.c')
| -rw-r--r-- | generic/tclTestProcBodyObj.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c index 5a17260..c85b303 100644 --- a/generic/tclTestProcBodyObj.c +++ b/generic/tclTestProcBodyObj.c @@ -17,14 +17,14 @@ * 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 @@ -33,7 +33,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 +47,7 @@ static int ProcBodyTestProcObjCmd _ANSI_ARGS_((ClientData dummy, static int ProcBodyTestInitInternal _ANSI_ARGS_((Tcl_Interp *interp, int isSafe)); static int RegisterCommand _ANSI_ARGS_((Tcl_Interp* interp, - char *namespace, CONST CmdTable *cmdTablePtr)); + CONST char *namespace, CONST CmdTable *cmdTablePtr)); int Procbodytest_Init _ANSI_ARGS_((Tcl_Interp * interp)); int Procbodytest_SafeInit _ANSI_ARGS_((Tcl_Interp * interp)); @@ -137,7 +137,7 @@ Procbodytest_SafeInit(interp) static int RegisterCommand(interp, namespace, cmdTablePtr) Tcl_Interp* interp; /* the Tcl interpreter for which the * operation is performed */ - char *namespace; /* the namespace in which the command + CONST char *namespace; /* the namespace in which the command * is registered */ CONST CmdTable *cmdTablePtr; /* the command to register */ { |