Fossil SCM
CONST -> const
Commit
8897edb7e13c84436d6ae20240e065dce0cac595
Parent
0bcb7707cee102f…
1 file changed
+3
-3
+3
-3
| --- src/th_tcl.c | ||
| +++ src/th_tcl.c | ||
| @@ -128,11 +128,11 @@ | ||
| 128 | 128 | ** when the Tcl library is being loaded dynamically by a stubs-enabled |
| 129 | 129 | ** application (i.e. the inverse of using a stubs-enabled package). These are |
| 130 | 130 | ** the only Tcl API functions that MUST be called prior to being able to call |
| 131 | 131 | ** Tcl_InitStubs (i.e. because it requires a Tcl interpreter). |
| 132 | 132 | */ |
| 133 | -typedef void (tcl_FindExecutableProc) (CONST char * argv0); | |
| 133 | +typedef void (tcl_FindExecutableProc) (const char * argv0); | |
| 134 | 134 | typedef Tcl_Interp *(tcl_CreateInterpProc) (void); |
| 135 | 135 | |
| 136 | 136 | /* |
| 137 | 137 | ** The function types for the "hook" functions to be called before and after a |
| 138 | 138 | ** TH1 command makes a call to evaluate a Tcl script. If the "pre" function |
| @@ -428,11 +428,11 @@ | ||
| 428 | 428 | */ |
| 429 | 429 | static int Th1EvalObjCmd( |
| 430 | 430 | ClientData clientData, |
| 431 | 431 | Tcl_Interp *interp, |
| 432 | 432 | int objc, |
| 433 | - Tcl_Obj *CONST objv[] | |
| 433 | + Tcl_Obj *const objv[] | |
| 434 | 434 | ){ |
| 435 | 435 | Th_Interp *th1Interp; |
| 436 | 436 | int nArg; |
| 437 | 437 | const char *arg; |
| 438 | 438 | int rc; |
| @@ -460,11 +460,11 @@ | ||
| 460 | 460 | */ |
| 461 | 461 | static int Th1ExprObjCmd( |
| 462 | 462 | ClientData clientData, |
| 463 | 463 | Tcl_Interp *interp, |
| 464 | 464 | int objc, |
| 465 | - Tcl_Obj *CONST objv[] | |
| 465 | + Tcl_Obj *const objv[] | |
| 466 | 466 | ){ |
| 467 | 467 | Th_Interp *th1Interp; |
| 468 | 468 | int nArg; |
| 469 | 469 | const char *arg; |
| 470 | 470 | int rc; |
| 471 | 471 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -128,11 +128,11 @@ | |
| 128 | ** when the Tcl library is being loaded dynamically by a stubs-enabled |
| 129 | ** application (i.e. the inverse of using a stubs-enabled package). These are |
| 130 | ** the only Tcl API functions that MUST be called prior to being able to call |
| 131 | ** Tcl_InitStubs (i.e. because it requires a Tcl interpreter). |
| 132 | */ |
| 133 | typedef void (tcl_FindExecutableProc) (CONST char * argv0); |
| 134 | typedef Tcl_Interp *(tcl_CreateInterpProc) (void); |
| 135 | |
| 136 | /* |
| 137 | ** The function types for the "hook" functions to be called before and after a |
| 138 | ** TH1 command makes a call to evaluate a Tcl script. If the "pre" function |
| @@ -428,11 +428,11 @@ | |
| 428 | */ |
| 429 | static int Th1EvalObjCmd( |
| 430 | ClientData clientData, |
| 431 | Tcl_Interp *interp, |
| 432 | int objc, |
| 433 | Tcl_Obj *CONST objv[] |
| 434 | ){ |
| 435 | Th_Interp *th1Interp; |
| 436 | int nArg; |
| 437 | const char *arg; |
| 438 | int rc; |
| @@ -460,11 +460,11 @@ | |
| 460 | */ |
| 461 | static int Th1ExprObjCmd( |
| 462 | ClientData clientData, |
| 463 | Tcl_Interp *interp, |
| 464 | int objc, |
| 465 | Tcl_Obj *CONST objv[] |
| 466 | ){ |
| 467 | Th_Interp *th1Interp; |
| 468 | int nArg; |
| 469 | const char *arg; |
| 470 | int rc; |
| 471 |
| --- src/th_tcl.c | |
| +++ src/th_tcl.c | |
| @@ -128,11 +128,11 @@ | |
| 128 | ** when the Tcl library is being loaded dynamically by a stubs-enabled |
| 129 | ** application (i.e. the inverse of using a stubs-enabled package). These are |
| 130 | ** the only Tcl API functions that MUST be called prior to being able to call |
| 131 | ** Tcl_InitStubs (i.e. because it requires a Tcl interpreter). |
| 132 | */ |
| 133 | typedef void (tcl_FindExecutableProc) (const char * argv0); |
| 134 | typedef Tcl_Interp *(tcl_CreateInterpProc) (void); |
| 135 | |
| 136 | /* |
| 137 | ** The function types for the "hook" functions to be called before and after a |
| 138 | ** TH1 command makes a call to evaluate a Tcl script. If the "pre" function |
| @@ -428,11 +428,11 @@ | |
| 428 | */ |
| 429 | static int Th1EvalObjCmd( |
| 430 | ClientData clientData, |
| 431 | Tcl_Interp *interp, |
| 432 | int objc, |
| 433 | Tcl_Obj *const objv[] |
| 434 | ){ |
| 435 | Th_Interp *th1Interp; |
| 436 | int nArg; |
| 437 | const char *arg; |
| 438 | int rc; |
| @@ -460,11 +460,11 @@ | |
| 460 | */ |
| 461 | static int Th1ExprObjCmd( |
| 462 | ClientData clientData, |
| 463 | Tcl_Interp *interp, |
| 464 | int objc, |
| 465 | Tcl_Obj *const objv[] |
| 466 | ){ |
| 467 | Th_Interp *th1Interp; |
| 468 | int nArg; |
| 469 | const char *arg; |
| 470 | int rc; |
| 471 |