| version 1.115 | version 1.116 |
|---|
| |
| int ScriptTcl::Tcl_exit(ClientData clientData, | int ScriptTcl::Tcl_exit(ClientData clientData, |
| Tcl_Interp *, int argc, char *argv[]) { | Tcl_Interp *, int argc, char *argv[]) { |
| ScriptTcl *script = (ScriptTcl *)clientData; | ScriptTcl *script = (ScriptTcl *)clientData; |
| | if ( CmiNumPartitions() > 1 ) { |
| | if ( ! script->initWasCalled ) CkPrintf("TCL: Running startup before exit due to replicas.\n"); |
| script->initcheck(); | script->initcheck(); |
| | } |
| CkPrintf("TCL: Exiting due to exit command.\n"); | CkPrintf("TCL: Exiting due to exit command.\n"); |
| #if CMK_HAS_PARTITION | #if CMK_HAS_PARTITION |
| replica_barrier(); | replica_barrier(); |
| #endif | #endif |
| script->runController(SCRIPT_END); | if ( script->runWasCalled ) script->runController(SCRIPT_END); |
| BackEnd::exit(); | BackEnd::exit(); |
| return TCL_OK; | return TCL_OK; |
| } | } |