Difference for src/ScriptTcl.C from version 1.111 to 1.112

version 1.111version 1.112
Line 1531
Line 1531
   delete [] cmd;   delete [] cmd;
   if (rval != TCL_OK) {   if (rval != TCL_OK) {
     const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0);     const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0);
     NAMD_die(errorInfo);     NAMD_die(errorInfo ? errorInfo : "Unknown Tcl error");
   }   }
 } }
  
Line 2038
Line 2038
   if (*result != 0) CkPrintf("TCL: %s\n",result);   if (*result != 0) CkPrintf("TCL: %s\n",result);
   if (code != TCL_OK) {   if (code != TCL_OK) {
     const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0);     const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0);
     NAMD_die(errorInfo);     NAMD_die(errorInfo ? errorInfo : "Unknown Tcl error");
   }   }
 #else #else
   NAMD_bug("ScriptTcl::eval called without Tcl.");   NAMD_bug("ScriptTcl::eval called without Tcl.");
Line 2054
Line 2054
   if (*result != 0) CkPrintf("TCL: %s\n",result);   if (*result != 0) CkPrintf("TCL: %s\n",result);
   if (code != TCL_OK) {   if (code != TCL_OK) {
     const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0);     const char *errorInfo = Tcl_GetVar(interp,"errorInfo",0);
     NAMD_die(errorInfo);     NAMD_die(errorInfo ? errorInfo : "Unknown Tcl error");
   }   }
 #else #else
   NAMD_bug("ScriptTcl::load called without Tcl.");   NAMD_bug("ScriptTcl::load called without Tcl.");

Legend:
Removed in v.1.111 
changed lines
 Added in v.1.112


Made by using version 1.53 of cvs2html