Difference for src/ScriptTcl.C from version 1.115 to 1.116

version 1.115version 1.116
Line 367
Line 367
 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;
 } }


Legend:
Removed in v.1.115 
changed lines
 Added in v.1.116



Made by using version 1.53 of cvs2html