Fixed bug with creating pointer constants.

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@782 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Dave Beazley 2000-09-01 16:00:40 +00:00
commit 236b843d44

View file

@ -852,7 +852,7 @@ TCL8::declare_const(char *name, char *, SwigType *type, char *value) {
t = NewSwigType(T_CHAR);
SwigType_add_pointer(t);
SwigType_remember(type);
Printf(f_init,"\t SWIG_MakePtr(%s_char, (void *) %s, SWIGTYPE_%s);\n",
Printf(f_init,"\t SWIG_MakePtr(%s_char, (void *) %s, SWIGTYPE%s);\n",
var_name, var_name, SwigType_manglestr(type));
sprintf(var_name,"%s_char",var_name);
link_variable(var_name,name,t);