More unused variable cleanup
authorEric Bohm <ebohm@jaguarpf-login3.ccs.ornl.gov>
Thu, 14 Jul 2011 19:45:47 +0000 (15:45 -0400)
committerEric Bohm <ebohm@jaguarpf-login3.ccs.ornl.gov>
Thu, 14 Jul 2011 19:45:47 +0000 (15:45 -0400)
13 files changed:
src/ck-com/ChunkMulticastStrategy.C
src/ck-com/ComlibSectionInfo.C
src/ck-core/ckcheckpoint.C
src/ck-core/ckmemcheckpoint.C
src/ck-core/qd.h
src/ck-ldb/RefinerApprox.C
src/ck-ldb/RefinerComm.C
src/ck-ldb/TopoLB.C
src/ck-ldb/ckset.C
src/conv-com/3dgridrouter.C
src/conv-com/MeshStreamingStrategy.C
src/conv-com/petable.C
src/conv-com/pipebroadcastconverse.C

index be2349139f31808477adb38371192280ebbe8b0f..fb9797e3ec0b31b0ac37ebaa86619e0733e71986 100644 (file)
@@ -471,7 +471,7 @@ void ChunkTreeMulticastStrategy::determineNextHopPEs(const int totalDestPEs, con
 
 //like tree except with the mother node sending chunks instead of a ring between depth 1 processors
 void ChunkPipeTreeMulticastStrategy::determineNextHopPEs(const int totalDestPEs, const ComlibMulticastIndexCount* destPEs, const int myIndex, int * &pelist, int &npes, int chunkNumber, int numChunks) {
-  int hop;
+  /*  int hop;*/
   int *allpelist;
   CkPrintf("myindex = %d\n", myIndex);
   if (myIndex == -1) {
index 97a35cf46296b416fbc008cc6b33178ff08eb9b3..a03c9126ff86fbdcc79aee1719841f293a1d15ba 100644 (file)
@@ -418,7 +418,7 @@ void ComlibSectionInfo::getLocalIndices(int nindices,
                                         CkVec<CkArrayIndex> &idx_vec){    
        ComlibPrintf("ComlibSectionInfo::getLocalIndices()\n");
        
-       int count = 0, acount = 0;
+       int acount = 0;
     idx_vec.resize(0);
     
     CkArray *a = (CkArray *)_localBranch(destArrayID);
@@ -436,7 +436,7 @@ void ComlibSectionInfo::getNodeLocalIndices(int nindices,
                                         CkArrayIndex *idxlist,
                                        CkArrayID &destArrayID,
                                         CkVec<CkArrayIndex> &idx_vec){    
-    int count = 0, acount = 0;
+    int acount = 0;
     idx_vec.resize(0);
     
     CkArray *a = (CkArray *)_localBranch(destArrayID);
index e408f2cad1a02ddf0d7838a874e19fb8501ae50d..7f31c73f3a5bced3749b8ada30a52c3b58fea0b1 100644 (file)
@@ -595,7 +595,6 @@ void CkPupProcessorData(PUP::er &p)
 // called only on pe 0
 static void checkpointOne(const char* dirname, CkCallback& cb){
        CmiAssert(CkMyPe()==0);
-       int i;
        char filename[1024];
        
        // save readonlys, and callback BTW
index 09d8b02e7f3d729939d87ea3134bd30e1b616dcd..9c07bb44c32cfacf7f014eb93002cc7e1b78acd5 100644 (file)
@@ -47,7 +47,13 @@ TODO:
 #include "conv-ccs.h"
 #include <signal.h>
 
-#define DEBUGF      // CkPrintf
+void noopck(const char*, ...)
+{}
+
+
+//#define DEBUGF      // CkPrintf
+#define DEBUGF noopck
+
 
 // pick buddy processor from a different physical node
 #define NODE_CHECKPOINT                        0
index 2d7797fa6e9dc20fc0faf2ba11ec766e781932e4..73167adac9e64eb29b22c24b06a18fedae713d64 100644 (file)
@@ -46,9 +46,13 @@ class QdCallback {
 //    void send(void) { CkSendMsg(ep,CkAllocMsg(0,0,0),&cid); }
     void send(void) {
       // pretending pe 0 in blue gene mode, switch back after the call.
+#if CMK_CONDS_USE_SPECIAL_CODE
       int old = CmiSwitchToPE(0);
+#endif
       cb.send(NULL);
+#if CMK_CONDS_USE_SPECIAL_CODE
       CmiSwitchToPE(old);
+#endif
     }
 };
 
index fc925624b4fe2b3fce9eeb90bf25af51a0ff2f5f..28028c12b06df42d97719dea6b5d6d5a0ea4fd96 100644 (file)
@@ -374,7 +374,6 @@ int RefinerApprox::refine(double opt)
     bool *largeFree=new bool[P];
     Set *largeComputes=new Set();
     Set *smallComputes=new Set();
-    int nmoves=0;
 
     //Step 1: Remove all but one large computes on each node
     for(i=0;i<P;i++)
@@ -516,11 +515,11 @@ int RefinerApprox::refine(double opt)
     delete cHeap;
     
     //Step 5: Arbitrarily assign remaining largeComputes to large-free procs
-    int j=0;
+
     Iterator nextCompute;
     nextCompute.id=0;
     computeInfo *c=(computeInfo *)
-       largeComputes->iterator((Iterator*)&nextCompute);
+      largeComputes->iterator((Iterator*)&nextCompute);
     if(_lb_debug)
     {
        if(c) 
index f3b53cc5748e31c411f07c98f89be2187d153109..38db4d2d130f23dc65ca689af7be012fe3d038fc 100644 (file)
@@ -119,7 +119,6 @@ void RefinerComm::assign(computeInfo *c, int processor)
 
 void RefinerComm::assign(computeInfo *c, processorInfo *p)
 {
-   int oldProc = c->processor;
    c->processor = p->Id;
    p->computeSet->insert((InfoRecord *) c);
    p->computeLoad += c->load;
@@ -288,7 +287,7 @@ int RefinerComm::refine()
   int done = 0;
 
   while (!done) {
-    double bestSize, bestComm;
+    double bestSize;
     computeInfo *bestCompute;
     processorInfo *bestP;
     
@@ -300,7 +299,6 @@ int RefinerComm::refine()
     processorInfo *p = (processorInfo *) 
       lightProcessors->iterator((Iterator *) &nextProcessor);
     bestSize = 0;
-    bestComm = -1e8;
     bestP = NULL;
     bestCompute = NULL;
 
index f674d6fbff54523a9c74047adf6bc55703db174a..5bc4be44062b57152bd5ea68dd5ac9463e7951f9 100644 (file)
@@ -213,9 +213,7 @@ void TopoLB::computePartitions(CentralLB::LDStats *stats,int count,int *newmap)
   int numflag = 0; // C Style numbering
   int options[5];
   int edgecut;
-  int sameMapFlag = 1;
-
-       options[0] = 0;
+  options[0] = 0;
 
   if (count < 1) {
     CkPrintf("error: Number of Pe less than 1!");
@@ -223,10 +221,8 @@ void TopoLB::computePartitions(CentralLB::LDStats *stats,int count,int *newmap)
   else if (count == 1) {
        for(m=0;m<numobjs;m++) 
                        newmap[i] = origmap[i];
-       sameMapFlag = 1;
   }
   else {
-       sameMapFlag = 0;
                /*
        if (count > 8)
                        METIS_PartGraphKway(&numobjs, xadj, adjncy, objwt, edgewt, 
@@ -700,7 +696,7 @@ void TopoLB::performMapping(int *newmap, int count)
 
 void TopoLB :: work(LDStats *stats)
 {
-  int i, j;
+  int i;
   int n_pes = stats->nprocs();
 
   if (_lb_args.debug() >= 2) {
@@ -941,15 +937,11 @@ double TopoLB::getHopBytes(CentralLB::LDStats *stats,int count,CkVec<int>map)
   delete[] multicastAdded;
 
   double totalHB=0;
-  int proc1,proc2;
 
   for(i=0;i<count;i++)
   {
-    proc1=map[i];
     for(int j=0;j<count;j++)
     {
-      proc2=map[j];
-      //totalHB+=dist[proc1][proc2]*comm1[i][j];
       totalHB+=dist[i][j]*comm1[i][j];
     }
   }
index 8ad52cfb78d54d8b6ae9678d29d3b03e149011eb..6820d8ab38770379dc46fda3d61bf4ae709526cf 100644 (file)
@@ -12,7 +12,6 @@ Set::Set()
 
 Set::~Set()
 {
-  int n;
   listNode *p = head;
   while (p){
     listNode *cur = p;
index 4c036baf8405b625023b84a3a8eebbdb53555999..88107c79f924437dd7dd780bdeaca58bc82c36fc 100644 (file)
@@ -107,7 +107,6 @@ inline int LPMsgExpect(int gpe, int gnpes)
     int len = (int)ceil(((double)gnpes) / (row * col));
 
     for (i=len-1;i>=0;i--) {
-        int myrow = (gpe%(row * col))/col;
         int toprep=i*(row * col);
         
         if ((toprep + (gpe % (row * col))) <= (gnpes-1)) return(i+1);
index c3ccf847e623bfdac2f1574bc16625e61dd43654..25d79b7c56ccb69149cc88b0cffddbd875e68cc1 100644 (file)
@@ -91,9 +91,7 @@ void periodic_flush_handler (void *ptr, double curT)
 */
 void streaming_column_handler (void *msg)
 {
-    int dest_pe;
     int dest_row;
-    int msgsize;
     int my_pe;
     //int num_msgs;
     int row_length;
@@ -265,7 +263,6 @@ void MeshStreamingStrategy::insertMessage (MessageHolder *cmsg)
     int dest_row;
     int dest_col;
     int msg_size;
-    int misc_size;
     int total_size;
     char *msg;
     //char *env;
@@ -425,11 +422,7 @@ void MeshStreamingStrategy::FlushColumn (int column)
     int dest_column_pe;
     int num_msgs;
     int newmsgsize;
-    int msgsize;
     char *newmsg;
-    char *newmsgptr;
-    char *msgptr;
-    
 
     CmiAssert (column < num_columns);
     
@@ -662,7 +655,7 @@ int MeshStreamingStrategy::GetRowLength (void)
 */
 void MeshStreamingStrategy::pup (PUP::er &p)
 {
-  int i;
+
   ComlibPrintf ("[%d] MeshStreamingStrategy::pup() invoked.\n", CkMyPe());
 
   // Call the superclass method -- easy.
index 8c46b5712136c8917d0b7e3edcf7fa8c458f5764..bc8321243aca62c45b0ec693a8b20b7462cd3d0e 100644 (file)
@@ -280,8 +280,6 @@ char * PeTable ::ExtractAndPackAll(comID id, int ufield, int *length) {
   char *t = p; 
   char *junk = NULL;
     
-  int dummy = 0;
-    
   int refno = 0;
 
   AllToAllHdr ahdr;
@@ -562,7 +560,7 @@ int PeTable :: UnpackAndInsertAll(void *in, int npes, int *pelist) {
 PTvectorlist PeTable :: ExtractAndVectorize(comID id, int ufield, int npe, int *pelist) {
   char *junk;
   int nummsgs = 0;
-  int offset, num_distinctmsgs;
+  int offset;
   int i, j;
 
   for (i=0; i<npe; ++i) nummsgs += msgnum[pelist[i]];
index 60ea935a34b50bbee4b6e2f05309343a756e3caf..3ecf5f7c5317fb3d58bcf73f24efb140a96ba1d3 100644 (file)
@@ -43,7 +43,7 @@ void PipelineFragmentHandler(void *message) {
   int instid = CmiGetStrategy(message);
   PipeBroadcastConverse *myStrategy = (PipeBroadcastConverse*)ConvComlibGetStrategy(instid);
   ComlibPrintf("[%d] PipelineFragmentHandler: %d\n",CkMyPe(),instid);
-  PipeBcastInfo *info = (PipeBcastInfo*)(((char*)message)+CmiReservedHeaderSize);
+  //  PipeBcastInfo *info = (PipeBcastInfo*)(((char*)message)+CmiReservedHeaderSize);
   myStrategy->propagate((char*)message, true);//, info->srcPe, info->chunkSize+CmiReservedHeaderSize+sizeof(PipeBcastInfo), NULL);
 }
 
@@ -75,7 +75,7 @@ CmiFragmentHeader *PipeBroadcastConverse::getFragmentHeader(char *msg) {
 
 void PipeBroadcastConverse::propagate(char *msg, int isFragmented) {//, int srcPeNumber, int totalSendingSize, setFunction setPeNumber){
   // find destination processors and send
-  int destination, tmp, k, sizeToSend;
+  int destination, tmp, k; //, sizeToSend;
   int num_pes, *dest_pes;
   //int srcPeNumber = isFragmented ? info->srcPe : env->getSrcPe();
   //int totalSendingSize = isFragmented ? info->chunkSize+CmiReservedHeaderSize+sizeof(PipeBcastInfo) : env->getTotalsize();
@@ -149,7 +149,7 @@ void PipeBroadcastConverse::propagate(char *msg, int isFragmented) {//, int srcP
 
   default:
     // should NEVER reach here!
-    char *error_msg;
+    char error_msg[100];
     sprintf(error_msg, "Error, topology %d not known\n",topology);
     CmiAbort(error_msg);
   }