ERR: Tcl_PkgProvide takes char*, so we cannot pass a string literal to it.

This commit is contained in:
Brad King 2002-12-20 16:15:13 -05:00
parent 4e6ad941e9
commit 80c6f0fdec

View File

@ -336,10 +336,11 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
fprintf(fout," %sCommand);\n",classes[i].c_str());
}
fprintf(fout," Tcl_PkgProvide(interp, \"%s\", "
"VTK_TCL_TO_STRING(VTK_MAJOR_VERSION) \".\" "
"VTK_TCL_TO_STRING(VTK_MINOR_VERSION));\n",
m_LibraryName.c_str());
fprintf(fout," char pkgName[]=\"%s\";\n", m_LibraryName.c_str());
fprintf(fout," char pkgVers[]=VTK_TCL_TO_STRING(VTK_MAJOR_VERSION)"
" \".\" "
"VTK_TCL_TO_STRING(VTK_MINOR_VERSION);\n");
fprintf(fout," Tcl_PkgProvide(interp, pkgName, pkgVers);\n");
fprintf(fout," return TCL_OK;\n}\n");
fclose(fout);