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; |
} | } |