0024588: Fix some ICC warning fixes

[occt.git] / src / Draw / Draw_VariableCommands.cxx

diff --git a/src/Draw/Draw_VariableCommands.cxx b/src/Draw/Draw_VariableCommands.cxx
index 97da0ed..c55b12f 100644 (file)
--- a/src/Draw/Draw_VariableCommands.cxx
+++ b/src/Draw/Draw_VariableCommands.cxx
@@ -779,10 +779,6 @@ void Draw::Set(const Standard_CString name,
               const Handle(Draw_Drawable3D)& D,
               const Standard_Boolean displ)
 {
-  Standard_PCharacter pName;
-  //
-  pName=(Standard_PCharacter)name;
-  //
   if ((name[0] == '.') && (name[1] == '\0')) {
     if (!D.IsNull()) {
       dout.RemoveDrawable(D);
@@ -791,19 +787,19 @@ void Draw::Set(const Standard_CString name,
   }
   else {
     
-    Tcl_UnsetVar(theCommands.Interp(),pName,0);
+    Tcl_UnsetVar(theCommands.Interp(),name,0);
     if (!D.IsNull()) {
       Standard_Integer ival = theVariables.Extent() + 1;
       theVariables.Bind(ival,D);
       // MKV 29.03.05
 #if ((TCL_MAJOR_VERSION > 8) || ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 4))) && !defined(USE_NON_CONST)
-      D->Name((const Standard_CString)Tcl_SetVar(theCommands.Interp(),name,name,0));
+      D->Name(Tcl_SetVar(theCommands.Interp(),name,name,0));
 #else
-      D->Name(Tcl_SetVar(theCommands.Interp(),pName,pName,0));
+      D->Name(Tcl_SetVar(theCommands.Interp(),(char*)name,(char*)name,0));
 #endif
     
       // set the trace function
-      Tcl_TraceVar(theCommands.Interp(),pName,TCL_TRACE_UNSETS,
+      Tcl_TraceVar(theCommands.Interp(),name,TCL_TRACE_UNSETS,
                   tracevar,(ClientData)ival);
       
       if (displ) {