version 1.8 | version 1.9 |
---|
| |
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"); |
| |
| |
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"); |