Просмотр исходного кода

ERR: Fix for borland in generated code. vtkCommand is ambiguously both a function and a class.

Brad King 23 лет назад
Родитель
Сommit
a4eebcb5b1
1 измененных файлов с 5 добавлено и 1 удалено
  1. 5 1
      Source/cmVTKWrapTclCommand.cxx

+ 5 - 1
Source/cmVTKWrapTclCommand.cxx

@@ -249,6 +249,10 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
     fprintf(fout,"\nTcl_HashTable vtkInstanceLookup;\n");
     fprintf(fout,"Tcl_HashTable vtkPointerLookup;\n");
     fprintf(fout,"Tcl_HashTable vtkCommandLookup;\n");
+    fprintf(fout,"int vtkCommandForward(ClientData cd, Tcl_Interp *interp,\n"
+                 "                      int argc, char *argv[]){\n"
+                 "  return vtkCommand(cd, interp, argc, argv);\n"
+                 "}\n");
     }
   else
     {
@@ -308,7 +312,7 @@ bool cmVTKWrapTclCommand::WriteInit(const char *kitName,
 
     /* create special vtkCommand command */
     fprintf(fout,"  Tcl_CreateCommand(interp,(char *) \"vtkCommand\",\n"
-                 "                    reinterpret_cast<vtkTclCommandType>(vtkCommand),\n"
+                 "                    reinterpret_cast<vtkTclCommandType>(vtkCommandForward),\n"
                  "                    (ClientData *)NULL, NULL);\n\n");
     }