Difference for src/ComputeTclBC.C from version 1.8 to 1.9

version 1.8version 1.9
Line 55
Line 55
     if (result && *result != 0) CkPrintf("TCL: %s\n",result);     if (result && *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 NAMD_bug("tclBCScript pointer was NULL");   } else NAMD_bug("tclBCScript pointer was NULL");
  
Line 111
Line 111
   int code = Tcl_Eval(interp,cmd);   int code = Tcl_Eval(interp,cmd);
   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");
   }   }
   if (n_atom != -2) {   if (n_atom != -2) {
     NAMD_die("tclBCScript failed to call nextatom until failure");     NAMD_die("tclBCScript failed to call nextatom until failure");

Legend:
Removed in v.1.8 
changed lines
 Added in v.1.9


Made by using version 1.53 of cvs2html