Changeset 2d2e40 in git for Singular/iparith.cc

Timestamp:

Dec 5, 2011, 2:54:08 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

1f03abac6bde42c766ce63555d33ee5bf00aa447

Parents:

1f2d3b43da540e3165c73bc71f9dd23f9ec5170f

Message:

fix: warning messages: unsed variable/parameter

File:

• Singular/iparith.cc (modified) (35 diffs)

Singular/iparith.cc

@@ -208 +208 @@
 static BOOLEAN jjLOAD(leftv res, leftv v, BOOLEAN autoexport = FALSE);
 static int iiTabIndex(const jjValCmdTab dArithTab, const int len, const int op);
-#ifdef MDEBUG
-#define jjMakeSub(A) jjDBMakeSub(A,__FILE__,__LINE__)
-static Subexpr jjDBMakeSub(leftv e,const char *f,const  int l);
-#else
 static Subexpr jjMakeSub(leftv e);
-#endif
 
 /*============= vars ======================*/
@@ -534 +529 @@
   }
   poly u_p=(poly)u->CopyD(POLY_CMD);
-  int dummy;
   if ((u_p!=NULL)
   && ((v_i!=0) && 
@@ -822 +816 @@
   poly a;
   poly b;
-  int dummy;
   if (v->next==NULL)
   {
@@ -1625 +1618 @@
     else                    p=(intvec*)v->Data();
     int rl=c->nr+1;
-    poly r=NULL,h;
     ideal result;
     ideal *x=(ideal *)omAlloc(rl*sizeof(ideal));
@@ -1887 +1879 @@
   return FALSE;
 }
-static BOOLEAN jjEXPORTTO(leftv res, leftv u, leftv v)
+static BOOLEAN jjEXPORTTO(leftv, leftv u, leftv v)
 {
   //Print("exportto %s -> %s\n",v->Name(),u->Name() );
   return iiExport(v,0,(idhdl)u->data);
 }
-static BOOLEAN jjERROR(leftv res, leftv u)
+static BOOLEAN jjERROR(leftv, leftv u)
 {
   WerrorS((char *)u->Data());
@@ -2418 +2410 @@
   return FALSE;
 }
-static BOOLEAN jjLOAD2(leftv res, leftv u,leftv v)
+static BOOLEAN jjLOAD2(leftv res, leftv, leftv v)
 {
   return jjLOAD(res, v,TRUE);
@@ -2506 +2498 @@
   return jjMONITOR2(res,v,NULL);
 }
-static BOOLEAN jjMONITOR2(leftv res, leftv u,leftv v)
+static BOOLEAN jjMONITOR2(leftv, leftv u,leftv v)
 {
 #if 0
@@ -2571 +2563 @@
   return err;
 }
-static BOOLEAN jjNEWSTRUCT2(leftv res, leftv u, leftv v)
+static BOOLEAN jjNEWSTRUCT2(leftv, leftv u, leftv v)
 {
   // u: the name of the new type
@@ -2953 +2945 @@
     return TRUE;
   }
-  int l=0;
-  //resolvente r;
   syStrategy r;
   intvec *weights=NULL;
@@ -3391 +3381 @@
 #define jjWRONG2 (proc2)jjWRONG
 #define jjWRONG3 (proc3)jjWRONG
-static BOOLEAN jjWRONG(leftv res, leftv u)
+static BOOLEAN jjWRONG(leftv, leftv)
 {
   return TRUE;
@@ -3405 +3395 @@
   return FALSE;
 }
-static BOOLEAN jjNULL(leftv res, leftv u)
+static BOOLEAN jjNULL(leftv, leftv)
 {
   return FALSE;
@@ -3419 +3409 @@
 //  return FALSE;
 //}
-static BOOLEAN jjPLUSPLUS(leftv res, leftv u)
+static BOOLEAN jjPLUSPLUS(leftv, leftv u)
 {
   if (IDTYP((idhdl)u->data)==INT_CMD)
@@ -3745 +3735 @@
   return FALSE;
 }
-static BOOLEAN jjDUMP(leftv res, leftv v)
+static BOOLEAN jjDUMP(leftv, leftv v)
 {
   si_link l = (si_link)v->Data();
@@ -3771 +3761 @@
   return (co<=0);
 }
-static BOOLEAN jjEXECUTE(leftv res, leftv v)
+static BOOLEAN jjEXECUTE(leftv, leftv v)
 {
   char * d = (char *)v->Data();
@@ -3841 +3831 @@
 }
 #endif
-static BOOLEAN jjGETDUMP(leftv res, leftv v)
+static BOOLEAN jjGETDUMP(leftv, leftv v)
 {
   si_link l = (si_link)v->Data();
@@ -3909 +3899 @@
   return FALSE;
 }
-static BOOLEAN jjHILBERT(leftv res, leftv v)
+static BOOLEAN jjHILBERT(leftv, leftv v)
 {
 #ifdef HAVE_RINGS
@@ -4076 +4066 @@
   return FALSE;
 }
-static BOOLEAN jjIS_RINGVAR0(leftv res, leftv v)
+static BOOLEAN jjIS_RINGVAR0(leftv res, leftv)
 {
   res->data = (char *)0;
@@ -4253 +4243 @@
      A list [P, L, U] is returned. */
   matrix mat = (const matrix)v->Data();
-  int rr = mat->rows();
-  int cc = mat->cols();
   matrix pMat;
   matrix lMat;
@@ -4273 +4261 @@
 {
   omUpdateInfo();
-  long d;
   switch(((int)(long)v->Data()))
   {
@@ -4364 +4351 @@
   return FALSE;
 }
-static BOOLEAN jjOpenClose(leftv res, leftv v)
+static BOOLEAN jjOpenClose(leftv, leftv v)
 {
   si_link l=(si_link)v->Data();
@@ -4392 +4379 @@
   return FALSE;
 }
-static BOOLEAN jjPARDEG(leftv res, leftv v)
+static BOOLEAN jjPARDEG(leftv res, leftv)
 {
   if (rField_is_Extension(currRing))
@@ -4510 +4497 @@
   char *s= (char *)v->Data();
   int i = 1;
-  int l = strlen(s);
   for(i=0; i<sArithBase.nCmdUsed; i++)
   {
@@ -4646 +4632 @@
 static BOOLEAN jjSQR_FREE(leftv res, leftv u)
 {
-  intvec *v=NULL;
   singclap_factorize_retry=0;
   ideal f=singclap_sqrfree((poly)(u->CopyD()),currRing);
@@ -4879 +4864 @@
   return FALSE;
 }
-static BOOLEAN jjLOAD(leftv res, leftv v, BOOLEAN autoexport)
+static BOOLEAN jjLOAD(leftv, leftv v, BOOLEAN autoexport)
 {
   char * s=(char *)v->CopyD();
@@ -5842 +5827 @@
   return FALSE;
 }
-static BOOLEAN jjNEWSTRUCT3(leftv res, leftv u, leftv v, leftv w)
+static BOOLEAN jjNEWSTRUCT3(leftv, leftv u, leftv v, leftv w)
 {
   // u: the name of the new type
@@ -5850 +5835 @@
                                             (const char *)w->Data());
   if (d!=NULL) newstruct_setup((const char *)u->Data(),d);
-  return d==NULL;
+  return (d==NULL);
 }
 static BOOLEAN jjPREIMAGE(leftv res, leftv u, leftv v, leftv w)
@@ -6268 +6253 @@
 /* must be ordered: first operations for chars (infix ops),
  * then alphabetically */
-static BOOLEAN jjBREAK0(leftv res, leftv v)
+static BOOLEAN jjBREAK0(leftv, leftv)
 {
 #ifdef HAVE_SDB
@@ -6275 +6260 @@
   return FALSE;
 }
-static BOOLEAN jjBREAK1(leftv res, leftv v)
+static BOOLEAN jjBREAK1(leftv, leftv v)
 {
 #ifdef HAVE_SDB
@@ -6316 +6301 @@
 }
 
-static BOOLEAN jjCOEF_M(leftv res, leftv v)
+static BOOLEAN jjCOEF_M(leftv, leftv v)
 {
   if((v->Typ() != VECTOR_CMD)
@@ -6888 +6873 @@
   return FALSE;
 }
-static BOOLEAN jjNAMES0(leftv res, leftv v)
+static BOOLEAN jjNAMES0(leftv res, leftv)
 {
   res->data=(void *)ipNameList(IDROOT);
@@ -7013 +6998 @@
   }
 }
-static BOOLEAN jjRESERVED0(leftv res, leftv v)
+static BOOLEAN jjRESERVED0(leftv, leftv)
 {
   int i=1;
@@ -7068 +7053 @@
   return FALSE;
 }
-static BOOLEAN jjTEST(leftv res, leftv v)
+static BOOLEAN jjTEST(leftv, leftv v)
 {
   do
@@ -7382 +7367 @@
 
 
-#ifdef MDEBUG
-static Subexpr jjDBMakeSub(leftv e,const char *f,const int l)
-#else
 static Subexpr jjMakeSub(leftv e)
-#endif
 {
   assume( e->Typ()==INT_CMD );
@@ -8235 +8216 @@
 int iiInitArithmetic()
 {
-  int i;
   //printf("iiInitArithmetic()\n");
   memset(&sArithBase, 0, sizeof(sArithBase));
@@ -8269 +8249 @@
 }
 
-/*---------------------------------------------------------------------*/
-/**
- * @brief append newitem of size sizeofitem to the list named list.
-
- @param[in,out] list
- @param[in,out] item_count
- @param[in] sizeofitem
- @param[in] newitem
-
- @retval  0 success
- @retval -1 failure
-**/
-/*---------------------------------------------------------------------*/
-int iiArithAddItem2list(
-  void **list,
-  long  *item_count,
-  long sizeofitem,
-  void *newitem
-  )
-{
-  int count = *item_count;
-
-  //TRACE(0, "add_item_to_list(%p, %p, %ld, %p)\n", list, item_count,
-  //       sizeofitem, newitem);
-
-  if(count==0)
-  {
-    *list = (void *)omAlloc(sizeofitem);
-  }
-  else
-  {
-    *list = (void *)omRealloc(*list, (count+1) * sizeofitem);
-  }
-  if((*list)==NULL) return -1;
-
-  //memset((*list)+count*sizeofitem, 0, sizeofitem);
-  //memcpy((*list)+count*sizeofitem, newitem, sizeofitem);
-
-  /* erhoehe counter um 1 */
-  (count)++;
-  *item_count = count;
-  return 0;
-}
-
 int iiArithFindCmd(const char *szName)
 {