Test const char [] instead of const char *

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5992 626c5289-ae23-0410-ae9c-e8d60b6d4f22

3 files changed, 2 insertions, 3 deletions

diff --git a/Examples/tcl/variables/example.c b/Examples/tcl/variables/example.c
index ac2b011bd..ce44fb3ca 100644
--- a/Examples/tcl/variables/example.c
+++ b/Examples/tcl/variables/example.c
@@ -18,7 +18,7 @@ char             cvar = 0;
 float            fvar = 0;
 double           dvar = 0;
 char            *strvar = 0;
-const char      *cstrvar = 0;
+const char       cstrvar[] = "Goodbye";
 int             *iptrvar = 0;
 char             name[256] = "Dave";
 char             path[256] = "/home/beazley";
diff --git a/Examples/tcl/variables/example.i b/Examples/tcl/variables/example.i
index 91bd0679d..56d7f4a55 100644
--- a/Examples/tcl/variables/example.i
+++ b/Examples/tcl/variables/example.i
@@ -17,7 +17,7 @@ extern char             cvar;
 extern float            fvar;
 extern double           dvar;
 extern char            *strvar;
-extern const char      *cstrvar;
+extern const char       cstrvar[];
 extern int             *iptrvar;
 extern char             name[256];
 
diff --git a/Examples/tcl/variables/runme.tcl b/Examples/tcl/variables/runme.tcl
index afc079f88..b9e2fd418 100644
--- a/Examples/tcl/variables/runme.tcl
+++ b/Examples/tcl/variables/runme.tcl
@@ -16,7 +16,6 @@ set cvar    "S"
 set fvar    3.14159
 set dvar    2.1828
 set strvar  "Hello World"
-set cstrvar "Goodbye"
 set iptrvar [new_int 37]
 set ptptr [new_Point 37 42]
 set name    "Bill"