Fixed namespace bug.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@686 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-08-21 19:37:04 +00:00
commit 65c2b5acb4

View file

@ -80,11 +80,14 @@ TCL8::parse_args(int argc, char *argv[]) {
}
}
/* If a prefix has been given, make sure it ends with a '_' */
if (prefix) {
if ((nspace) && module) {
ns_name = Copy(module);
} else if (prefix) {
ns_name = Copy(prefix);
Append(prefix,"_");
}
if (prefix)
Append(prefix,"_");
Preprocessor_define((void *) "SWIGTCL 1",0);
Preprocessor_define((void *) "SWIGTCL8 1", 0);