1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
$NetBSD: patch-tnm_gdmo_tnmGdmoTcl.c,v 1.1 2014/03/05 13:52:29 he Exp $
Constify.
--- tnm/gdmo/tnmGdmoTcl.c.orig 1996-10-01 20:18:38.000000000 +0000
+++ tnm/gdmo/tnmGdmoTcl.c
@@ -88,20 +88,20 @@ oid_result _ANSI_ARGS_((Tcl_Interp*, gd
static int
GdmoNotification _ANSI_ARGS_((Tcl_Interp *interp,
- int argc, char **argv));
+ int argc, const char **argv));
static int
GdmoBehaviour _ANSI_ARGS_((Tcl_Interp *interp,
- int argc, char **argv));
+ int argc, const char **argv));
static int
GdmoLoad _ANSI_ARGS_((Tcl_Interp *interp,
- int argc, char **argv));
+ int argc, const char **argv));
static int
GdmoInfo _ANSI_ARGS_((Tcl_Interp *interp,
- int argc, char **argv));
+ int argc, const char **argv));
static int
GdmoCmd _ANSI_ARGS_((ClientData clientData,
Tcl_Interp *interp,
- int argc, char **argv));
+ int argc, const char **argv));
/*===========================================================================*
@@ -1282,7 +1282,7 @@ static int
GdmoNotification (interp, argc, argv)
Tcl_Interp *interp;
int argc;
- char **argv;
+ const char **argv;
{
if (argc == 2) {
if (!strcmp(argv[1], "info")) {
@@ -1360,7 +1360,7 @@ static int
GdmoBehaviour (interp, argc, argv)
Tcl_Interp *interp;
int argc;
- char **argv;
+ const char **argv;
{
if (argc == 2) {
if (!strcmp(argv[1], "info")) {
@@ -1424,11 +1424,11 @@ static int
GdmoLoad (interp, argc, argv)
Tcl_Interp *interp;
int argc;
- char **argv;
+ const char **argv;
{
Tcl_DString fileBuffer;
- char *library, *fileName, *file = argv[2];
- char **fileArgv = NULL, **libArgv = NULL;
+ const char *library, *fileName, *file = argv[2];
+ const char **fileArgv = NULL, **libArgv = NULL;
int fileArgc, libArgc;
int code = TCL_OK;
FILE *fin = NULL;
@@ -1463,8 +1463,8 @@ GdmoLoad (interp, argc, argv)
if (access(fileName, R_OK) != 0) {
int tmpArgc;
- char **tmpArgv = (char **) ckalloc((libArgc + 2) * sizeof(char *));
-
+ const char **tmpArgv = (const char **) ckalloc((libArgc + 2) *
+ sizeof(char *));
if (library) {
for (tmpArgc = 0; tmpArgc < libArgc; tmpArgc++) {
tmpArgv[tmpArgc] = libArgv[tmpArgc];
@@ -1551,7 +1551,7 @@ static int
GdmoInfo(interp, argc, argv)
Tcl_Interp *interp;
int argc;
- char **argv;
+ const char **argv;
{
if (argc != 3) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
@@ -1610,7 +1610,7 @@ GdmoCmd(clientData, interp, argc, argv)
ClientData clientData;
Tcl_Interp *interp;
int argc;
- char **argv;
+ const char **argv;
{
if (argc < 2) {
Tcl_AppendResult(interp, "wrong # args: should be \"", argv[0],
|