New flag to indicate that we suspend execution at the beginning of a debugging sessio...
authorFilippo Gioachin <gioachin@uiuc.edu>
Tue, 12 Jan 2010 19:19:16 +0000 (13:19 -0600)
committerFilippo Gioachin <gioachin@uiuc.edu>
Tue, 12 Jan 2010 19:19:16 +0000 (13:19 -0600)
src/ck-core/init.C
src/conv-ccs/conv-ccs.c

index c55d3624d76100a5c35bab18f98a2962bb3aa0a5..f0c19ac418f2348f88d56aa77e427a20e9cb1a7d 100644 (file)
@@ -696,7 +696,7 @@ void InitCallTable::enumerateInitCalls()
   for (i=0; i<initProcCalls.length(); i++) initProcCalls[i]();
 }
 
-CpvCExtern(int, cmiArgDebugFlag);
+CpvCExtern(int, cpdSuspendStartup);
 extern "C" void CpdFreeze(void);
 
 extern int _dummy_dq;
@@ -1080,7 +1080,7 @@ void _initCharm(int unused_argc, char **argv)
         }
 
 #if CMK_CCS_AVAILABLE
-       if (CpvAccess(cmiArgDebugFlag))
+       if (CpvAccess(cpdSuspendStartup))
        { 
           //CmiPrintf("In Parallel Debugging mode .....\n");
           CpdFreeze();
index 44054cb401af1ca870bc9c2f28a125dfa5b561ff..eb8195ac0f708124a7d1f9aad8f06ebcc0963c66 100644 (file)
@@ -492,6 +492,7 @@ void CcsBuiltinsInit(char **argv);
 
 CpvDeclare(int, cmiArgDebugFlag);
 CpvDeclare(char *, displayArgument);
+CpvDeclare(int, cpdSuspendStartup);
 
 void CcsInit(char **argv)
 {
@@ -502,9 +503,11 @@ void CcsInit(char **argv)
   _ccsHandlerIdx = CmiRegisterHandler((CmiHandler)req_fw_handler);
   CpvInitialize(int, cmiArgDebugFlag);
   CpvInitialize(char *, displayArgument);
+  CpvInitialize(int, cpdSuspendStart);
   CpvAccess(cmiArgDebugFlag) = 0;
   CpvAccess(displayArgument) = NULL;
-
+  CpvAccess(cpdSuspendStartup) = 0;
+  
   CcsBuiltinsInit(argv);
 
   rep_fw_handler_idx = CmiRegisterHandler((CmiHandler)rep_fw_handler);
@@ -541,6 +544,9 @@ void CcsInit(char **argv)
             CmiPrintf("WARNING> x term for gdb needs to be specified as +DebugDisplay by debugger\n***\n");
      }
 
+     if (CmiGetArgFlagDesc(argv, "+DebugSuspend", "Suspend execution at beginning of program")) {
+       CpvAccess(cpdSuspendStartup) = 1;
+     }
   }
 }