version 1.23 | version 1.24 |
---|
| |
DebugM(1,"here\n"); | DebugM(1,"here\n"); |
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 (*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"); |
} | } |
#endif | #endif |
| |