Changeset 6909cfb in git

Timestamp:

Feb 20, 2013, 3:48:32 PM (11 years ago)

Author:

Yue Ren <ren@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

2e4ec146a83f4d025c2cb4229c4b171a375173c1

Parents:

367df95c40f03bb94a871481eb198951b3a42c85

git-author:

Yue Ren <ren@mathematik.uni-kl.de>2013-02-20 15:48:32+01:00

git-committer:

Yue Ren <ren@mathematik.uni-kl.de>2013-02-21 20:00:58+01:00

Message:

fix: -Wunused-variable warnings

Files:

• Singular/MinorInterface.cc (modified) (2 diffs)
• Singular/emacs.cc (modified) (1 diff)
• Singular/fehelp.cc (modified) (3 diffs)
• Singular/fevoices.cc (modified) (1 diff)
• Singular/fglm.cc (modified) (1 diff)
• Singular/ipid.cc (modified) (1 diff)
• Singular/iplib.cc (modified) (5 diffs)
• Singular/ipprint.cc (modified) (1 diff)
• Singular/janet.cc (modified) (6 diffs)
• Singular/links/ndbm.cc (modified) (1 diff)
• Singular/links/pipeLink.cc (modified) (1 diff)
• Singular/links/ssiLink.cc (modified) (10 diffs)
• Singular/utils.cc (modified) (1 diff)
• dyn_modules/bigintm/bigintm.cc (modified) (3 diffs)
• dyn_modules/syzextra/mod_main.cc (modified) (1 diff)
• dyn_modules/syzextra/myNF.cc (modified) (1 diff)
• kernel/fast_maps.cc (modified) (1 diff)
• kernel/fglmgauss.cc (modified) (2 diffs)
• kernel/gr_kstd2.cc (modified) (2 diffs)
• kernel/ideals.cc (modified) (1 diff)
• kernel/kspoly.cc (modified) (1 diff)
• kernel/kstd2.cc (modified) (2 diffs)
• kernel/kstdfac.cc (modified) (1 diff)
• kernel/kutil.cc (modified) (3 diffs)
• kernel/preimage.cc (modified) (1 diff)
• kernel/syz.cc (modified) (2 diffs)
• kernel/syz0.cc (modified) (6 diffs)
• kernel/syz3.cc (modified) (4 diffs)
• libpolys/polys/ext_fields/algext.cc (modified) (1 diff)
• libpolys/polys/ext_fields/transext.cc (modified) (1 diff)
• libpolys/polys/monomials/ring.cc (modified) (1 diff)
• libpolys/polys/nc/ncSACache.cc (modified) (1 diff)
• libpolys/polys/templates/p_Procs_Set.h (modified) (1 diff)
• libpolys/reporter/dError.cc (modified) (2 diffs)
• numeric/mpr_base.cc (modified) (1 diff)
• numeric/mpr_inout.cc (modified) (1 diff)

Singular/MinorInterface.cc

@@ -100 +100 @@
   /* containers for all upcoming results: */
   IntMinorValue theMinor;
-  int value = 0;
+  // int value = 0;
   int collectedMinors = 0;
   int characteristic = 0; if (currRing != 0) characteristic = rChar(currRing);
@@ -323 +323 @@
   /* containers for all upcoming results: */
   IntMinorValue theMinor;
-  int value = 0;
+  // int value = 0;
   int collectedMinors = 0;
   int characteristic = 0; if (currRing != 0) characteristic = rChar(currRing);

Singular/emacs.cc

@@ -107 +107 @@
   char* singular = NULL;
   char* emacs = NULL;
+#ifndef TSINGULAR
   char* emacs_dir = NULL;
   char* emacs_load = NULL;
+  char cwd[MAXPATHLEN];
+#endif
   int no_emacs_call = 0;
-  char cwd[MAXPATHLEN];
 
   // parse-cmdline options

Singular/fehelp.cc

@@ -980 +980 @@
 {
   char sys[MAX_SYSCMD_LEN];
-  char url[MAXPATHLEN];
+  // char url[MAXPATHLEN];
   const char *p=heHelpBrowsers[br].action;
   if (p==NULL) {PrintS("no action ?\n"); return;}
@@ -1063 +1063 @@
   }
   Print("running `%s`\n",sys);
-  int dummy=system(sys);
+  /*int dummy=*/ (void) system(sys);
 }
 
@@ -1219 +1219 @@
   while(!feof(index))
   {
-    char* dummy=fgets(buffer, BUF_LEN, index); /* */
+    // char* dummy=fgets(buffer, BUF_LEN, index); /* */
     (void)sscanf(buffer, "Node:%[^\177]\177%ld\n", Index, &offset);
     for(p=Index; *p; p++) *p = tolow(*p);/* */

Singular/fevoices.cc

@@ -40 +40 @@
 // this is an upper limit for the size of monomials/numbers read via the interpreter
 #define MAX_FILE_BUFFER 4*4096
-static long feBufferLength=INITIAL_PRINT_BUFFER;
+// static long feBufferLength=INITIAL_PRINT_BUFFER;
 static char * feBuffer=(char *)omAlloc(INITIAL_PRINT_BUFFER);
 

Singular/fglm.cc

@@ -288 +288 @@
 
     idhdl destRingHdl = currRingHdl;
-    ring destRing = currRing;
+    // ring destRing = currRing;
     ideal destIdeal = NULL;
     idhdl sourceRingHdl = (idhdl)first->data;
     rSetHdl( sourceRingHdl );
-    ring sourceRing = currRing;
+    // ring sourceRing = currRing;
 
     int * vperm = (int *)omAlloc0( (currRing->N+1)*sizeof( int ) );

Singular/ipid.cc

@@ -243 +243 @@
   idhdl h;
   s=omStrDup(s);
-  idhdl *save_root=root;
+  // idhdl *save_root=root;
   if (t==PACKAGE_CMD)
   {

Singular/iplib.cc

@@ -279 +279 @@
     // load example
     fseek(fp, pi->data.s.example_start, SEEK_SET);
-    char *dummy=fgets(buf, sizeof(buf), fp); // skip line with "example"
+    /*char *dummy=*/ (void) fgets(buf, sizeof(buf), fp); // skip line with "example"
     procbuflen = pi->data.s.proc_end - pi->data.s.example_start - strlen(buf);
     //Print("Example=%ld-%ld=%d\n", pi->data.s.proc_end,
@@ -755 +755 @@
   const char *suffix[] = { "", ".lib", ".so", ".sl", NULL };
   int i = 0;
-  FILE *fp;
-  package pack;
-  idhdl packhdl;
+  // FILE *fp;
+  // package pack;
+  // idhdl packhdl;
   lib_types LT;
   for(i=0; suffix[i] != NULL; i++)
@@ -828 +828 @@
 {
   char libnamebuf[128];
-  procinfov pi;
-  idhdl h;
+  // procinfov pi;
+  // idhdl h;
   idhdl pl;
-  idhdl hl;
-  long pos = 0L;
+  // idhdl hl;
+  // long pos = 0L;
   char *plib = iiConvName(newlib);
   FILE * fp = feFopen( newlib, "r", libnamebuf, tellerror );
-  int lines = 1;
+  // int lines = 1;
   BOOLEAN LoadResult = TRUE;
 
@@ -906 +906 @@
     int save=yylineno;
     myynest++;
-    procinfo *pi=(procinfo*)IDDATA(h);
+    // procinfo *pi=(procinfo*)IDDATA(h);
     //PrintS("mod_init found\n");
     iiMake_proc(h,p,NULL);
@@ -1178 +1178 @@
                                BOOLEAN pstatic,
                                BOOLEAN(*func)(leftv res, leftv v)));
-  SModulFunc_t fktn;
+  // SModulFunc_t fktn;
   idhdl pl;
   char *plib = iiConvName(newlib);
-  BOOLEAN RET=TRUE;
-  int token;
+  // BOOLEAN RET=TRUE;
+  // int token;
 
   pl = IDROOT->get(plib,0);

Singular/ipprint.cc

@@ -303 +303 @@
   if (print)
   {
-    BOOLEAN r=FALSE;
+    // BOOLEAN r=FALSE;
     leftv h=u;
     leftv hh;

Singular/janet.cc

@@ -33 +33 @@
 
 //------GLOBALS-------
-static int m_s,v_s,vectorized,VarN1,offset;
+static int /*m_s,v_s,vectorized,VarN1,*/offset;
 static jList *T,*Q;
 static TreeM *G;
-static Poly *phD;
+// static Poly *phD;
 static NodeM *FreeNodes;
 static int degree_compatible;
@@ -193 +193 @@
 {
   Poly *f;
-  int g1,f1,gg;
+  // int g1,f1,gg;
 
   if ((f=is_div_(F,p->lead))==NULL) return;
@@ -246 +246 @@
 
   //if (TEST_OPT_PROT) { PrintS("R"); mflush(); }
-  int old_size, count;
+  int /*old_size, */count;
   count=0;
   while(f && p->root)
@@ -303 +303 @@
 int ValidatePoly(Poly *x, TreeM *F)
 {
-  Poly *f,*g;
-  int g1,f1;
+  Poly /*f,*/*g;
+  // int g1,f1;
 
   if (x->root) return 1;
@@ -971 +971 @@
 }
 
-static Poly *h,*f;
+static Poly *h/*,*f*/;
 
 void insert_in_G(Poly *x)
@@ -998 +998 @@
 int ComputeBasis(jList *_lT,jList *_lQ)
 {
-  int gb_l,i,ret_value=1;
+  // int gb_l,i,ret_value=1;
 
   T=_lT; Q=_lQ;

Singular/links/ndbm.cc

@@ -150 +150 @@
 {
   register int i;
-  datum item;
+  // datum item;
 
   if (dbm_error(db))

Singular/links/pipeLink.cc

@@ -166 +166 @@
     else
     {
-      fd_set  mask, fdmask;
+      fd_set  mask/*, fdmask*/;
       struct timeval wt;
       /* Don't block. Return socket status immediately. */

Singular/links/ssiLink.cc

@@ -289 +289 @@
   fprintf(d->f_write,"%d ",pLength(p));//number of terms
   SSI_UNBLOCK_CHLD;
-  int i;
+  int j;
 
   while(p!=NULL)
@@ -298 +298 @@
     fprintf(d->f_write,"%ld ",p_GetComp(p,d->r));//component
 
-    for(int j=1;j<=rVar(d->r);j++)
+    for(j=1;j<=rVar(d->r);j++)
     {
       fprintf(d->f_write,"%ld ",p_GetExp(p,j,d->r ));//x^j
@@ -416 +416 @@
   l=s_readint(d->f_read);
   buf=(char*)omAlloc0(l+1);
-  int c =s_getc(d->f_read); /* skip ' '*/
-  int ll=s_readbytes(buf,l,d->f_read);
+  /*int c =*/ (void) s_getc(d->f_read); /* skip ' '*/
+  /*int ll=*/ (void) s_readbytes(buf,l,d->f_read);
   //if (ll!=l) printf("want %d, got %d bytes\n",l,ll);
   buf[l]='\0';
@@ -528 +528 @@
 {
 /* syntax is <ch> <N> <l1> <v1> ...<lN> <vN> <number of orderings> <ord1> <block0_1> <block1_1> .... */
-  int ch, N,i,l;
+  int ch, N,i/*,l*/;
   char **names;
   ch=s_readint(d->f_read);
@@ -748 +748 @@
 {
   ssiInfo *d=(ssiInfo*)l->data;
-  int throwaway=s_readint(d->f_read);
+  /*int throwaway=*/ (void) s_readint(d->f_read);
   char *name=ssiReadString(d);
   int tok;
@@ -891 +891 @@
         int sockfd, newsockfd, portno, clilen;
         struct sockaddr_in serv_addr, cli_addr;
-        int n;
+        // int n;
         sockfd = socket(AF_INET, SOCK_STREAM, 0);
         if(sockfd < 0)
@@ -952 +952 @@
         int sockfd, newsockfd, portno, clilen;
         struct sockaddr_in serv_addr, cli_addr;
-        int n;
+        // int n;
         sockfd = socket(AF_INET, SOCK_STREAM, 0);
         if(sockfd < 0)
@@ -1034 +1034 @@
       {
         char* host = (char*)omAlloc(256);
-        int sockfd, portno, n;
+        int sockfd, portno/*, n*/;
         struct sockaddr_in serv_addr;
         struct hostent *server;
@@ -1485 +1485 @@
   && (strcmp(request, "read") == 0))
   {
-    fd_set  mask, fdmask;
+    fd_set  mask/*, fdmask*/;
     struct timeval wt;
     if (s_isready(d->f_read)) return "ready";
@@ -1810 +1810 @@
   }
   int portno;
-  int n;
+  // int n;
   ssiReserved_sockfd = socket(AF_INET, SOCK_STREAM, 0);
   if(ssiReserved_sockfd < 0)

Singular/utils.cc

@@ -158 +158 @@
 void printpi(procinfov pi)
 {
-  char *buf, name[256];
-  int len1, len2;
+  // char *buf, name[256];
+  // int len1, len2;
   /* pi->libname is badly broken -- use file, instead */
   FILE *fp = fopen( lib_file, "rb");

dyn_modules/bigintm/bigintm.cc

@@ -46 +46 @@
   assume( l->Typ() == bigintm_type_id );
   
-  blackbox *ll=getBlackboxStuff(l->Typ());
+  // blackbox *ll=getBlackboxStuff(l->Typ());
   
   if (r->Typ()>MAX_TOK)
@@ -52 +52 @@
     if (bigintm_type_id == r->Typ())
     {
-      blackbox *rr=getBlackboxStuff(r->Typ());
+      // blackbox *rr=getBlackboxStuff(r->Typ());
       
       if (l->Data()!=NULL) { number n1=(number)l->Data(); n_Delete(&n1,coeffs_BIGINT); }
@@ -126 +126 @@
   assume( a1->Typ() == bigintm_type_id );
   
-  blackbox *a=getBlackboxStuff(a1->Typ());
+  // blackbox *a=getBlackboxStuff(a1->Typ());
   number n1=(number)a1->Data(); 
   switch(op)

dyn_modules/syzextra/mod_main.cc

@@ -819 +819 @@
 static BOOLEAN reduce_syz(leftv res, leftv h)
 {
-  const ring r = currRing;
+  // const ring r = currRing;
 
   if ( !( (h!=NULL) && (h->Typ()==VECTOR_CMD || h->Typ()==POLY_CMD) ) )

dyn_modules/syzextra/myNF.cc

@@ -218 +218 @@
   // only global: avoid normalization, return a multiply of NF
   poly   p;
-  int   i;
+  // int   i;
 
   //if ((idIs0(F))&&(Q==NULL))

kernel/fast_maps.cc

@@ -354 +354 @@
 {
   ring src_r, dest_r;
-  ideal dest_id, res_id;
+  ideal dest_id/*, res_id*/;
   int length = 0;
   BOOLEAN no_sort;

kernel/fglmgauss.cc

@@ -73 +73 @@
 gaussReducer::~gaussReducer()
 {
-    int k;
-
 #ifndef HAVE_EXPLICIT_CONSTR
     delete [] elems;
 #else
+    int k;
     for ( k= size; k > 0; k-- )
         elems[k].~gaussElem();
@@ -159 +158 @@
 {
     // fglmASSERT( size < max );
-    number fac;
+    // number fac;
     // find the pivot-element in v:
 

kernel/gr_kstd2.cc

@@ -972 +972 @@
   assume(rIsPluralRing(currRing));
 
-  int i;
+  // int i;
 //  idhdl h;
  /* setting global variables ------------------- */
@@ -1070 +1070 @@
   assume(currRing->OrdSgn != -1); // no mora!!! it terminates only for global ordering!!! (?)
 
-  intvec *w=NULL;
-  intvec *hilb=NULL;
+  // intvec *w=NULL;
+  // intvec *hilb=NULL;
   int   olddeg,reduc;
   int red_result=1;
-  int hilbeledeg=1,hilbcount=0,minimcnt=0;
+  int /*hilbeledeg=1,*/hilbcount=0/*,minimcnt=0*/;
 
   initBuchMoraCrit(strat); /*set Gebauer, honey, sugarCrit*/

kernel/ideals.cc

@@ -939 +939 @@
              BOOLEAN isSB, BOOLEAN divide, matrix *unit)
 {
-  int lsmod =id_RankFreeModule(submod,currRing), i, j, k;
+  int lsmod =id_RankFreeModule(submod,currRing), j, k;
   int comps_to_add=0;
   poly p;

kernel/kspoly.cc

@@ -394 +394 @@
   poly a1 = pNext(p1), a2 = pNext(p2);
   number lc1 = pGetCoeff(p1), lc2 = pGetCoeff(p2);
-  int co=0, ct = ksCheckCoeff(&lc1, &lc2, currRing->cf); // gcd and zero divisors
+  int co=0/*, ct = ksCheckCoeff(&lc1, &lc2, currRing->cf)*/; // gcd and zero divisors
+  (void) ksCheckCoeff(&lc1, &lc2, currRing->cf);
 
   int l1=0, l2=0;

kernel/kstd2.cc

@@ -197 +197 @@
   int a_ind2 = ind2(a);
 
-  NATNUMBER k = 1;
+  // NATNUMBER k = 1;
   // of interest is only k_ind2, special routine for improvement ... TODO OLIVER
   for (int i = 1; i <= leadRing->N; i++)
@@ -303 +303 @@
   if (strat->tl<0) return 1;
 
-  int at,i;
+  int at/*,i*/;
   long d;
   int j = 0;
   int pass = 0;
-  poly zeroPoly = NULL;
+  // poly zeroPoly = NULL;
 
 // TODO warum SetpFDeg notwendig?

kernel/kstdfac.cc

@@ -161 +161 @@
 kStrategy kStratCopy(kStrategy o)
 {
-  int i;
+  // int i;
   assume(kTest_TS(o));
   kStrategy s=new skStrategy;

kernel/kutil.cc

@@ -846 +846 @@
 {
   int i, j;
-  BOOLEAN ret = TRUE;
+  // BOOLEAN ret = TRUE;
   kFalseReturn(kTest(strat));
 
@@ -1740 +1740 @@
               // the corresponding signatures for criteria checks
   LObject  Lp;
-  poly last;
+  // poly last;
   poly pSigMult = p_Copy(pSig,currRing);
   poly sSigMult = p_Copy(strat->sig[i],currRing);
@@ -8828 +8828 @@
   int j;
 
-  poly q, s;
+  poly q/*, s*/;
 
   // for the 0th shift: insert the orig. pair

kernel/preimage.cc

@@ -78 +78 @@
   
   int i,j;
-  poly p,pp,q;
+  poly p,/*pp,*/q;
   ideal temp1;
   ideal temp2;

kernel/syz.cc

@@ -222 +222 @@
 void syGaussForOne(ideal syz, int elnum, int ModComp,int from,int till)
 {
-  int k,j,i,lu;
+  int /*k,j,i,*/lu;
   poly unit1,unit2;
   poly actWith=syz->m[elnum];
@@ -249 +249 @@
 static void syDeleteAbove1(ideal up, int k)
 {
-  poly p,pp;
+  poly p/*,pp*/;
   if (up!=NULL)
   {

kernel/syz0.cc

@@ -173 +173 @@
   if (Fl==0) return result;
 
-  int i,j,l,k,totalToRed,ecartToRed,kk,kkk;
+  int i,j,l,k,totalToRed,ecartToRed,kk;
   int bestEcart,totalmax,rkF,Sl=0,smax,tmax,tl;
   int *ecartS, *ecartT, *totalS,
     *totalT=NULL, *temp=NULL;
-  polyset pairs,S,T,ST,oldF;
+  polyset pairs,S,T,ST/*,oldF*/;
   poly p,q,toRed;
   BOOLEAN notFound = FALSE;
@@ -342 +342 @@
 #else
           l = (**modcomp)[pGetComp(toRed)];
-          kkk = (**modcomp)[pGetComp(toRed)+1];
+          int kkk = (**modcomp)[pGetComp(toRed)+1];
           while ((l<kkk) && (notFound))
 #endif
@@ -510 +510 @@
   ideal result=idInit(16,Fl);
   int i,j,l,k,kkk,rkF,Sl=0,syComponentOrder=currRing->ComponentOrder;
-  int fstart,wend,lini,ltR,gencQ=0;
+  int /*fstart,*/wend,lini,ltR,gencQ=0;
   intvec *newmodcomp;
   int *Flength;
   polyset pairs,F=arg->m,*Shdl=&(result->m);
-  poly p,q,toRed,syz,lastmonom,multWith;
+  poly /*p,*/q,toRed,syz,lastmonom,multWith;
   BOOLEAN isNotReduced=TRUE;
 
@@ -577 +577 @@
         {
           number an=nCopy(pGetCoeff(F[k])),bn=nCopy(pGetCoeff(F[j]));
-          int ct = ksCheckCoeff(&an, &bn, currRing->cf);
+          /*int ct =*/ (void) ksCheckCoeff(&an, &bn, currRing->cf);
           syz = pCopy(pairs[k]);
           //syz->coef = nCopy(F[k]->coef);
@@ -867 +867 @@
   int i,syzIndex = 0,j=0;
   intvec * modcomp=NULL,*w=NULL;
-  int ** wv=NULL;
+  // int ** wv=NULL;
   tHomog hom=(tHomog)idHomModule(arg,NULL,&w);
   ring origR = currRing;
@@ -1017 +1017 @@
   if (fr==NULL) return NULL;
 
-  int typ0;
+  // int typ0;
   syStrategy result=(syStrategy)omAlloc0(sizeof(ssyStrategy));
   result->length=rl;

kernel/syz3.cc

@@ -112 +112 @@
             ideal old_repr,int old_tl, poly next_generator,resolvente totake)
 {
-  int index=syzstr->length-1,i,j,start,start_ttk,new_tl;
+  int index=syzstr->length-1,i,j,start,start_ttk/*,new_tl*/;
   poly gen=pCopy(next_generator),p;
   poly neg_gen=pCopy(next_generator);
@@ -656 +656 @@
   int toReplace=0;
   int i,j,syz_l;
-  number coefgcd,n;
+  number /*coefgcd,*/n;
   polyset ogm=old_generators->m;
   poly p;
@@ -941 +941 @@
   int * ogm_l=(int*)omAlloc0(IDELEMS(syzstr->res[index])*sizeof(int));
   int * orp_l=(int*)omAlloc0(IDELEMS(syzstr->orderedRes[index])*sizeof(int));
-  int t1=IDELEMS(syzstr->res[index]),t2=IDELEMS(syzstr->orderedRes[index]);
+  // int t1=IDELEMS(syzstr->res[index]),t2=IDELEMS(syzstr->orderedRes[index]);
  
   for (j=IDELEMS(syzstr->res[index])-1;j>=0;j--) 
@@ -1753 +1753 @@
 syStrategy syKosz(ideal arg,int * length)
 {
-  int i,j,jj,k=0,index=0,rk_arg,next_syz=0;
+  int i,j,jj,k=0,index=0,rk_arg/*,next_syz=0*/;
   int crit_comp,t_comp,next_deg,old_tl;
   ideal temp=NULL,old_ideal,old_repr;

libpolys/polys/ext_fields/algext.cc

@@ -972 +972 @@
 {
   if (n_IsZero(a, src)) return NULL;
-  int p = rChar(dst->extRing);
+  // int p = rChar(dst->extRing);
 
   number q = nlModP(a, src, dst->extRing->cf);

libpolys/polys/ext_fields/transext.cc

@@ -1539 +1539 @@
   assume( n_Test(a, src) );
   if (n_IsZero(a, src)) return NULL;
-  int p = rChar(dst->extRing);
+  // int p = rChar(dst->extRing);
   number q = nlModP(a, src, dst->extRing->cf);
 

libpolys/polys/monomials/ring.cc

@@ -1683 +1683 @@
     return FALSE;
 
-  int i, j;
+  int i/*, j*/;
 
   if (r1 == r2) return TRUE;

libpolys/polys/nc/ncSACache.cc

@@ -27 +27 @@
 #endif
 
+#if OUTPUT
 namespace 
 {
   static const char* m_Typenames[2] = {"lookup", "store"};
 }
+#endif
 
 #include <coeffs/numbers.h>

libpolys/polys/templates/p_Procs_Set.h

@@ -198 +198 @@
 void p_Debug_GetSpecNames(const ring r, const char* &field, const char* &length, const char* &ord)
 {
-  p_Field     e_field = p_FieldIs(r);
-  p_Length    e_length = p_LengthIs(r);
-  p_Ord       e_ord = p_OrdIs(r);
+  /*p_Field     e_field =*/ (void) p_FieldIs(r);
+  /*p_Length    e_length =*/ (void) p_LengthIs(r);
+  /*p_Ord       e_ord =*/ (void) p_OrdIs(r);
 
   field  = p_FieldEnum_2_String(p_FieldIs(r));

libpolys/reporter/dError.cc

@@ -50 +50 @@
 #ifdef HAVE_EXECINFO_H
 #define SIZE 50
-  void *buffer[SIZE+1]; int i, j, k, ret, status; char **ptr; char *demangledName; char *s; char *ss;
+  void *buffer[SIZE+1]; int ret; 
 #endif
 
@@ -73 +73 @@
   backtrace_symbols_fd(buffer, ret, STDERR_FILENO); // execinfo.h
 #else
-  ptr = backtrace_symbols( buffer, ret ); // execinfo.h
+  char **ptr = backtrace_symbols( buffer, ret ); // execinfo.h
 
-  for (i = 0; i < ret; i++)
+  int status;
+  char *demangledName;
+  char *s; 
+  char *ss;
+  for (int i = 0; i < ret; i++)
   {
     status = -1;

numeric/mpr_base.cc

@@ -1739 +1739 @@
 ideal resMatrixSparse::getMatrix()
 {
-  int i,j,cp;
+  int i,/*j,*/cp;
   poly pp,phelp,piter,pgls;
 

numeric/mpr_inout.cc

@@ -110 +110 @@
 {
   mprState state = mprOk;
-  int power;
+  // int power;
   int k;