Changeset 69658e in git
- Timestamp:
- Feb 22, 2013, 12:29:35 AM (11 years ago)
- Branches:
- (u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')
- Children:
- 2e2c67897e034b7ffa5b8a0dda72431cff944d4a
- Parents:
- 367df95c40f03bb94a871481eb198951b3a42c85cd4f243f3aafc7080a52fa973f2d90493e4847f2
- Files:
-
- 75 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/CacheImplementation.h
r367df9 r69658e 76 76 77 77 template<class KeyClass, class ValueClass> 78 ValueClass Cache<KeyClass, ValueClass>::getValue (const KeyClass& key) const78 ValueClass Cache<KeyClass, ValueClass>::getValue (const KeyClass& /*key*/) const 79 79 { 80 80 if (_itKey == _key.end()) -
Singular/MinorInterface.cc
r367df9 r69658e 100 100 /* containers for all upcoming results: */ 101 101 IntMinorValue theMinor; 102 int value = 0;102 // int value = 0; 103 103 int collectedMinors = 0; 104 104 int characteristic = 0; if (currRing != 0) characteristic = rChar(currRing); … … 323 323 /* containers for all upcoming results: */ 324 324 IntMinorValue theMinor; 325 int value = 0;325 // int value = 0; 326 326 int collectedMinors = 0; 327 327 int characteristic = 0; if (currRing != 0) characteristic = rChar(currRing); … … 525 525 bool b = false; /* Bareiss */ 526 526 bool l = false; /* Laplace without caching */ 527 bool c = false; /* Laplace with caching */527 // bool c = false; /* Laplace with caching */ 528 528 if (currRingIsOverIntegralDomain()) 529 529 { /* the field case or ring Z */ … … 541 541 int minorCount = binom(rowCount, minorSize); 542 542 minorCount *= binom(columnCount, minorSize); 543 if ((minorSize >= 3) && (vars <= 4)544 && (minorCount >= 100)) c = true;545 else if ((minorSize >= 3) && (vars >= 5)546 && (minorCount >= 40)) c = true;547 elsel = true;543 // if ((minorSize >= 3) && (vars <= 4) 544 // && (minorCount >= 100)) c = true; 545 // else if ((minorSize >= 3) && (vars >= 5) 546 // && (minorCount >= 40)) c = true; 547 /*else*/ l = true; 548 548 } 549 549 } -
Singular/MinorProcessor.cc
r367df9 r69658e 203 203 } 204 204 205 bool MinorProcessor::isEntryZero (const int absoluteRowIndex,206 const int absoluteColumnIndex) const205 bool MinorProcessor::isEntryZero (const int /*absoluteRowIndex*/, 206 const int /*absoluteColumnIndex*/) const 207 207 { 208 208 assume(false); -
Singular/attrib.cc
r367df9 r69658e 329 329 return FALSE; 330 330 } 331 BOOLEAN atATTRIB3(leftv res,leftv v,leftv b,leftv c)331 BOOLEAN atATTRIB3(leftv /*res*/,leftv v,leftv b,leftv c) 332 332 { 333 333 idhdl h=(idhdl)v->data; … … 416 416 } 417 417 418 BOOLEAN atKILLATTR1(leftv res,leftv a)418 BOOLEAN atKILLATTR1(leftv /*res*/,leftv a) 419 419 { 420 420 idhdl h=NULL; … … 433 433 return FALSE; 434 434 } 435 BOOLEAN atKILLATTR2(leftv res,leftv a,leftv b)435 BOOLEAN atKILLATTR2(leftv /*res*/,leftv a,leftv b) 436 436 { 437 437 if ((a->rtyp!=IDHDL)||(a->e!=NULL)) -
Singular/blackbox.cc
r367df9 r69658e 22 22 23 23 24 void blackbox_default_destroy(blackbox *b, void *d)24 void blackbox_default_destroy(blackbox */*b*/, void */*d*/) 25 25 { 26 26 WerrorS("missing blackbox_destroy"); 27 27 } 28 char *blackbox_default_String(blackbox * b,void *d)28 char *blackbox_default_String(blackbox */*b*/,void */*d*/) 29 29 { 30 30 WerrorS("missing blackbox_String"); 31 31 return omStrDup(""); 32 32 } 33 void *blackbox_default_Copy(blackbox * b,void *d)33 void *blackbox_default_Copy(blackbox */*b*/,void */*d*/) 34 34 { 35 35 WerrorS("missing blackbox_Copy"); … … 42 42 omFree(s); 43 43 } 44 void *blackbox_default_Init(blackbox * b)44 void *blackbox_default_Init(blackbox */*b*/) 45 45 { 46 46 return NULL; 47 47 } 48 48 49 BOOLEAN blackbox_default_serialize(blackbox * b, void *d, si_link f)49 BOOLEAN blackbox_default_serialize(blackbox */*b*/, void */*d*/, si_link /*f*/) 50 50 { 51 51 return TRUE; 52 52 } 53 53 54 BOOLEAN blackbox_default_deserialize(blackbox ** b, void **d, si_link f)54 BOOLEAN blackbox_default_deserialize(blackbox **/*b*/, void **/*d*/, si_link /*f*/) 55 55 { 56 56 return TRUE; … … 88 88 } 89 89 90 BOOLEAN blackboxDefaultOp2(int op,leftv l, leftv r1, leftv r2)90 BOOLEAN blackboxDefaultOp2(int op,leftv /*l*/, leftv r1, leftv /*r2*/) 91 91 { 92 92 return WrongOp("blackbox_Op2", op, r1); 93 93 } 94 94 95 BOOLEAN blackbox_default_Op3(int op,leftv l, leftv r1,leftv r2, leftv r3)95 BOOLEAN blackbox_default_Op3(int op,leftv /*l*/, leftv r1,leftv /*r2*/, leftv /*r3*/) 96 96 { 97 97 return WrongOp("blackbox_Op3", op, r1); -
Singular/cntrlc.cc
r367df9 r69658e 76 76 BOOLEAN singular_in_batchmode=FALSE; 77 77 78 void sig_pipe_hdl(int sig)78 void sig_pipe_hdl(int /*sig*/) 79 79 { 80 80 if (pipeLastLink!=NULL) … … 86 86 } 87 87 88 void sig_term_hdl(int sig)88 void sig_term_hdl(int /*sig*/) 89 89 { 90 90 while (ssiToBeClosed!=NULL) … … 320 320 */ 321 321 int sigint_handler_cnt=0; 322 void sigint_handler(int sig)322 void sigint_handler(int /*sig*/) 323 323 { 324 324 mflush(); … … 572 572 } 573 573 574 static void stack_trace_sigchld (int signum)574 static void stack_trace_sigchld (int /*signum*/) 575 575 { 576 576 stack_trace_done = 1; -
Singular/countedref.cc
r367df9 r69658e 187 187 /// We use the function pointer as a marker of reference types 188 188 /// for CountedRef::is_ref(leftv), see the latter for details 189 BOOLEAN countedref_CheckAssign(blackbox * b, leftv L, leftv R)189 BOOLEAN countedref_CheckAssign(blackbox */*b*/, leftv /*L*/, leftv /*R*/) 190 190 { 191 191 return FALSE; … … 350 350 351 351 /// blackbox support - convert to string representation 352 void countedref_Print(blackbox * b, void* ptr)352 void countedref_Print(blackbox */*b*/, void* ptr) 353 353 { 354 354 if (ptr) (*CountedRef::cast(ptr))->Print(); … … 357 357 358 358 /// blackbox support - convert to string representation 359 char* countedref_String(blackbox * b, void* ptr)359 char* countedref_String(blackbox */*b*/, void* ptr) 360 360 { 361 361 if (ptr == NULL) return omStrDup(sNoName); … … 364 364 365 365 /// blackbox support - copy element 366 void* countedref_Copy(blackbox* b, void* ptr)366 void* countedref_Copy(blackbox*/*b*/, void* ptr) 367 367 { 368 368 if (ptr) return CountedRef::cast(ptr).outcast(); … … 478 478 479 479 /// blackbox support - destruction 480 void countedref_destroy(blackbox * b, void* ptr)480 void countedref_destroy(blackbox */*b*/, void* ptr) 481 481 { 482 482 if (ptr) CountedRef::cast(ptr).destruct(); … … 667 667 668 668 /// blackbox support - destruction 669 void countedref_destroyShared(blackbox * b, void* ptr)669 void countedref_destroyShared(blackbox */*b*/, void* ptr) 670 670 { 671 671 if (ptr) CountedRefShared::cast(ptr).destruct(); … … 673 673 674 674 675 BOOLEAN countedref_serialize(blackbox * b, void *d, si_link f)675 BOOLEAN countedref_serialize(blackbox */*b*/, void *d, si_link f) 676 676 { 677 677 sleftv l; … … 685 685 } 686 686 687 BOOLEAN countedref_deserialize(blackbox ** b, void **d, si_link f)687 BOOLEAN countedref_deserialize(blackbox **/*b*/, void **d, si_link f) 688 688 { 689 689 // rtyp must be set correctly (to the blackbox id) by routine calling -
Singular/emacs.cc
r367df9 r69658e 107 107 char* singular = NULL; 108 108 char* emacs = NULL; 109 #ifndef TSINGULAR 109 110 char* emacs_dir = NULL; 110 111 char* emacs_load = NULL; 112 char cwd[MAXPATHLEN]; 113 #endif 111 114 int no_emacs_call = 0; 112 char cwd[MAXPATHLEN];113 115 114 116 // parse-cmdline options -
Singular/fehelp.cc
r367df9 r69658e 980 980 { 981 981 char sys[MAX_SYSCMD_LEN]; 982 char url[MAXPATHLEN];982 // char url[MAXPATHLEN]; 983 983 const char *p=heHelpBrowsers[br].action; 984 984 if (p==NULL) {PrintS("no action ?\n"); return;} … … 1063 1063 } 1064 1064 Print("running `%s`\n",sys); 1065 int dummy=system(sys);1065 /*int dummy=*/ (void) system(sys); 1066 1066 } 1067 1067 … … 1098 1098 #endif 1099 1099 1100 static BOOLEAN heDummyInit(int warn, int br)1100 static BOOLEAN heDummyInit(int /*warn*/, int /*br*/) 1101 1101 { 1102 1102 return TRUE; 1103 1103 } 1104 static void heDummyHelp(heEntry hentry, int br)1104 static void heDummyHelp(heEntry /*hentry*/, int /*br*/) 1105 1105 { 1106 1106 Werror("No functioning help browser available."); 1107 1107 } 1108 1108 1109 static BOOLEAN heEmacsInit(int warn, int br)1109 static BOOLEAN heEmacsInit(int /*warn*/, int /*br*/) 1110 1110 { 1111 1111 return TRUE; 1112 1112 } 1113 static void heEmacsHelp(heEntry hentry, int br)1113 static void heEmacsHelp(heEntry hentry, int /*br*/) 1114 1114 { 1115 1115 WarnS("Your help command could not be executed. Use"); … … 1120 1120 } 1121 1121 static int singular_manual(char *str); 1122 static void heBuiltinHelp(heEntry hentry, int br)1122 static void heBuiltinHelp(heEntry hentry, int /*br*/) 1123 1123 { 1124 1124 char* node = omStrDup(hentry != NULL && *(hentry->node) != '\0' ? … … 1219 1219 while(!feof(index)) 1220 1220 { 1221 char* dummy=fgets(buffer, BUF_LEN, index); /* */1221 // char* dummy=fgets(buffer, BUF_LEN, index); /* */ 1222 1222 (void)sscanf(buffer, "Node:%[^\177]\177%ld\n", Index, &offset); 1223 1223 for(p=Index; *p; p++) *p = tolow(*p);/* */ -
Singular/fevoices.cc
r367df9 r69658e 40 40 // this is an upper limit for the size of monomials/numbers read via the interpreter 41 41 #define MAX_FILE_BUFFER 4*4096 42 static long feBufferLength=INITIAL_PRINT_BUFFER;42 // static long feBufferLength=INITIAL_PRINT_BUFFER; 43 43 static char * feBuffer=(char *)omAlloc(INITIAL_PRINT_BUFFER); 44 44 … … 407 407 * print echo (si_echo or TRACE), set my_yylinebuf 408 408 */ 409 static int fePrintEcho(char *anf, char * b)409 static int fePrintEcho(char *anf, char */*b*/) 410 410 { 411 411 char *ss=strrchr(anf,'\n'); -
Singular/fglm.cc
r367df9 r69658e 288 288 289 289 idhdl destRingHdl = currRingHdl; 290 ring destRing = currRing;290 // ring destRing = currRing; 291 291 ideal destIdeal = NULL; 292 292 idhdl sourceRingHdl = (idhdl)first->data; 293 293 rSetHdl( sourceRingHdl ); 294 ring sourceRing = currRing;294 // ring sourceRing = currRing; 295 295 296 296 int * vperm = (int *)omAlloc0( (currRing->N+1)*sizeof( int ) ); -
Singular/interpolation.cc
r367df9 r69658e 1041 1041 #endif 1042 1042 1043 #ifdef HAVE_FACTORY 1044 static modp_number TakePrime (modp_number /*p*/) // takes "previous" (smaller) prime 1045 #else 1043 1046 static modp_number TakePrime (modp_number p) // takes "previous" (smaller) prime 1047 #endif 1044 1048 { 1045 1049 #ifdef HAVE_FACTORY -
Singular/iparith.cc
r367df9 r69658e 2597 2597 return FALSE; 2598 2598 } 2599 static BOOLEAN jjLOAD2(leftv res, leftv, leftv v)2599 static BOOLEAN jjLOAD2(leftv /*res*/, leftv, leftv v) 2600 2600 { 2601 2601 return jjLOAD((char*)v->Data(),TRUE); 2602 2602 } 2603 static BOOLEAN jjLOAD_E(leftv res, leftv v, leftv u)2603 static BOOLEAN jjLOAD_E(leftv /*res*/, leftv v, leftv u) 2604 2604 { 2605 2605 char * s=(char *)u->Data(); … … 4447 4447 return FALSE; 4448 4448 } 4449 static BOOLEAN jjLOAD1(leftv res, leftv v)4449 static BOOLEAN jjLOAD1(leftv /*res*/, leftv v) 4450 4450 { 4451 4451 return jjLOAD((char*)v->Data(),FALSE); … … 4849 4849 } 4850 4850 intvec *w=(intvec *)atGet(u,"isHomog",INTVEC_CMD); 4851 tHomog hom=testHomog;4851 // tHomog hom=testHomog; 4852 4852 ideal u_id=(ideal)u->Data(); 4853 4853 if (w!=NULL) … … 4861 4861 { 4862 4862 w=ivCopy(w); 4863 hom=isHomog;4863 // hom=isHomog; 4864 4864 } 4865 4865 } … … 5937 5937 return TRUE; 5938 5938 } 5939 static BOOLEAN jjHOMOG_ID_W(leftv res, leftv u, leftv v, leftv w)5939 static BOOLEAN jjHOMOG_ID_W(leftv res, leftv u, leftv v, leftv /*w*/) 5940 5940 { 5941 5941 PrintS("TODO\n"); … … 5955 5955 return (d!=1); 5956 5956 } 5957 static BOOLEAN jjHOMOG_P_W(leftv res, leftv u, leftv v,leftv w)5957 static BOOLEAN jjHOMOG_P_W(leftv res, leftv u, leftv v,leftv /*w*/) 5958 5958 { 5959 5959 PrintS("TODO\n"); -
Singular/ipid.cc
r367df9 r69658e 243 243 idhdl h; 244 244 s=omStrDup(s); 245 idhdl *save_root=root;245 // idhdl *save_root=root; 246 246 if (t==PACKAGE_CMD) 247 247 { … … 460 460 } 461 461 462 idhdl ggetid(const char *n, BOOLEAN local, idhdl *packhdl)462 idhdl ggetid(const char *n, BOOLEAN /*local*/, idhdl *packhdl) 463 463 { 464 464 idhdl h = IDROOT->get(n,myynest); -
Singular/iplib.cc
r367df9 r69658e 279 279 // load example 280 280 fseek(fp, pi->data.s.example_start, SEEK_SET); 281 char *dummy=fgets(buf, sizeof(buf), fp); // skip line with "example"281 /*char *dummy=*/ (void) fgets(buf, sizeof(buf), fp); // skip line with "example" 282 282 procbuflen = pi->data.s.proc_end - pi->data.s.example_start - strlen(buf); 283 283 //Print("Example=%ld-%ld=%d\n", pi->data.s.proc_end, … … 755 755 const char *suffix[] = { "", ".lib", ".so", ".sl", NULL }; 756 756 int i = 0; 757 FILE *fp;758 package pack;759 idhdl packhdl;757 // FILE *fp; 758 // package pack; 759 // idhdl packhdl; 760 760 lib_types LT; 761 761 for(i=0; suffix[i] != NULL; i++) … … 828 828 { 829 829 char libnamebuf[128]; 830 procinfov pi;831 idhdl h;830 // procinfov pi; 831 // idhdl h; 832 832 idhdl pl; 833 idhdl hl;834 long pos = 0L;833 // idhdl hl; 834 // long pos = 0L; 835 835 char *plib = iiConvName(newlib); 836 836 FILE * fp = feFopen( newlib, "r", libnamebuf, tellerror ); 837 int lines = 1;837 // int lines = 1; 838 838 BOOLEAN LoadResult = TRUE; 839 839 … … 906 906 int save=yylineno; 907 907 myynest++; 908 procinfo *pi=(procinfo*)IDDATA(h);908 // procinfo *pi=(procinfo*)IDDATA(h); 909 909 //PrintS("mod_init found\n"); 910 910 iiMake_proc(h,p,NULL); … … 1178 1178 BOOLEAN pstatic, 1179 1179 BOOLEAN(*func)(leftv res, leftv v))); 1180 SModulFunc_t fktn;1180 // SModulFunc_t fktn; 1181 1181 idhdl pl; 1182 1182 char *plib = iiConvName(newlib); 1183 BOOLEAN RET=TRUE;1184 int token;1183 // BOOLEAN RET=TRUE; 1184 // int token; 1185 1185 1186 1186 pl = IDROOT->get(plib,0); … … 1370 1370 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/ 1371 1371 #ifdef HAVE_LIBPARSER 1372 void libstack::push(char * p, char *libn)1372 void libstack::push(char */*p*/, char *libn) 1373 1373 { 1374 1374 libstackv lp; … … 1391 1391 } 1392 1392 1393 libstackv libstack::pop(char * p)1393 libstackv libstack::pop(char */*p*/) 1394 1394 { 1395 1395 libstackv ls = this; -
Singular/ipprint.cc
r367df9 r69658e 303 303 if (print) 304 304 { 305 BOOLEAN r=FALSE;305 // BOOLEAN r=FALSE; 306 306 leftv h=u; 307 307 leftv hh; -
Singular/janet.cc
r367df9 r69658e 33 33 34 34 //------GLOBALS------- 35 static int m_s,v_s,vectorized,VarN1,offset;35 static int /*m_s,v_s,vectorized,VarN1,*/offset; 36 36 static jList *T,*Q; 37 37 static TreeM *G; 38 static Poly *phD;38 // static Poly *phD; 39 39 static NodeM *FreeNodes; 40 40 static int degree_compatible; … … 193 193 { 194 194 Poly *f; 195 int g1,f1,gg;195 // int g1,f1,gg; 196 196 197 197 if ((f=is_div_(F,p->lead))==NULL) return; … … 246 246 247 247 //if (TEST_OPT_PROT) { PrintS("R"); mflush(); } 248 int old_size,count;248 int /*old_size, */count; 249 249 count=0; 250 250 while(f && p->root) … … 301 301 } 302 302 303 int ValidatePoly(Poly *x, TreeM * F)304 { 305 Poly *f,*g;306 int g1,f1;303 int ValidatePoly(Poly *x, TreeM */*F*/) 304 { 305 Poly /*f,*/*g; 306 // int g1,f1; 307 307 308 308 if (x->root) return 1; … … 971 971 } 972 972 973 static Poly *h ,*f;973 static Poly *h/*,*f*/; 974 974 975 975 void insert_in_G(Poly *x) … … 998 998 int ComputeBasis(jList *_lT,jList *_lQ) 999 999 { 1000 int gb_l,i,ret_value=1;1000 // int gb_l,i,ret_value=1; 1001 1001 1002 1002 T=_lT; Q=_lQ; -
Singular/links/asciiLink.cc
r367df9 r69658e 35 35 36 36 /* =============== ASCII ============================================= */ 37 BOOLEAN slOpenAscii(si_link l, short flag, leftv h)37 BOOLEAN slOpenAscii(si_link l, short flag, leftv /*h*/) 38 38 { 39 39 const char *mode; -
Singular/links/ndbm.cc
r367df9 r69658e 150 150 { 151 151 register int i; 152 datum item;152 // datum item; 153 153 154 154 if (dbm_error(db)) -
Singular/links/pipeLink.cc
r367df9 r69658e 38 38 39 39 //**************************************************************************/ 40 BOOLEAN pipeOpen(si_link l, short flag, leftv u)40 BOOLEAN pipeOpen(si_link l, short flag, leftv /*u*/) 41 41 { 42 42 pipeInfo *d=(pipeInfo*)omAlloc0(sizeof(pipeInfo)); … … 166 166 else 167 167 { 168 fd_set mask , fdmask;168 fd_set mask/*, fdmask*/; 169 169 struct timeval wt; 170 170 /* Don't block. Return socket status immediately. */ -
Singular/links/sing_dbm.cc
r367df9 r69658e 285 285 286 286 //**************************************************************************/ 287 LINKAGE BOOLEAN dbOpen(si_link l, short flag, leftv u)287 LINKAGE BOOLEAN dbOpen(si_link l, short flag, leftv /*u*/) 288 288 { 289 289 const char *mode = "r"; -
Singular/links/ssiLink.cc
r367df9 r69658e 284 284 } 285 285 286 void ssiWritePoly(ssiInfo *d, int typ, poly p)286 void ssiWritePoly(ssiInfo *d, int /*typ*/, poly p) 287 287 { 288 288 SSI_BLOCK_CHLD; 289 289 fprintf(d->f_write,"%d ",pLength(p));//number of terms 290 290 SSI_UNBLOCK_CHLD; 291 int i;291 int j; 292 292 293 293 while(p!=NULL) … … 298 298 fprintf(d->f_write,"%ld ",p_GetComp(p,d->r));//component 299 299 300 for( intj=1;j<=rVar(d->r);j++)300 for(j=1;j<=rVar(d->r);j++) 301 301 { 302 302 fprintf(d->f_write,"%ld ",p_GetExp(p,j,d->r ));//x^j … … 416 416 l=s_readint(d->f_read); 417 417 buf=(char*)omAlloc0(l+1); 418 int c =s_getc(d->f_read); /* skip ' '*/419 int ll=s_readbytes(buf,l,d->f_read);418 /*int c =*/ (void) s_getc(d->f_read); /* skip ' '*/ 419 /*int ll=*/ (void) s_readbytes(buf,l,d->f_read); 420 420 //if (ll!=l) printf("want %d, got %d bytes\n",l,ll); 421 421 buf[l]='\0'; … … 528 528 { 529 529 /* syntax is <ch> <N> <l1> <v1> ...<lN> <vN> <number of orderings> <ord1> <block0_1> <block1_1> .... */ 530 int ch, N,i ,l;530 int ch, N,i/*,l*/; 531 531 char **names; 532 532 ch=s_readint(d->f_read); … … 585 585 //Print("poly: terms:%d\n",n); 586 586 poly p; 587 int j;588 j=0;587 // int j; 588 // j=0; 589 589 poly ret=NULL; 590 590 poly prev=NULL; … … 748 748 { 749 749 ssiInfo *d=(ssiInfo*)l->data; 750 int throwaway=s_readint(d->f_read);750 /*int throwaway=*/ (void) s_readint(d->f_read); 751 751 char *name=ssiReadString(d); 752 752 int tok; … … 891 891 int sockfd, newsockfd, portno, clilen; 892 892 struct sockaddr_in serv_addr, cli_addr; 893 int n;893 // int n; 894 894 sockfd = socket(AF_INET, SOCK_STREAM, 0); 895 895 if(sockfd < 0) … … 952 952 int sockfd, newsockfd, portno, clilen; 953 953 struct sockaddr_in serv_addr, cli_addr; 954 int n;954 // int n; 955 955 sockfd = socket(AF_INET, SOCK_STREAM, 0); 956 956 if(sockfd < 0) … … 1034 1034 { 1035 1035 char* host = (char*)omAlloc(256); 1036 int sockfd, portno , n;1036 int sockfd, portno/*, n*/; 1037 1037 struct sockaddr_in serv_addr; 1038 1038 struct hostent *server; … … 1485 1485 && (strcmp(request, "read") == 0)) 1486 1486 { 1487 fd_set mask , fdmask;1487 fd_set mask/*, fdmask*/; 1488 1488 struct timeval wt; 1489 1489 if (s_isready(d->f_read)) return "ready"; … … 1810 1810 } 1811 1811 int portno; 1812 int n;1812 // int n; 1813 1813 ssiReserved_sockfd = socket(AF_INET, SOCK_STREAM, 0); 1814 1814 if(ssiReserved_sockfd < 0) … … 1912 1912 **/ 1913 1913 /*---------------------------------------------------------------------*/ 1914 void sig_chld_hdl(int sig)1914 void sig_chld_hdl(int /*sig*/) 1915 1915 { 1916 1916 pid_t kidpid; -
Singular/mmstd.c
r367df9 r69658e 34 34 void freeSize(void* addr, size_t size) 35 35 { 36 (void) size; 36 37 if (addr) free(addr); 37 38 } -
Singular/newstruct.cc
r367df9 r69658e 494 494 } 495 495 496 void newstruct_destroy(blackbox * b, void *d)496 void newstruct_destroy(blackbox */*b*/, void *d) 497 497 { 498 498 if (d!=NULL) … … 518 518 } 519 519 520 BOOLEAN newstruct_CheckAssign(blackbox * b, leftv L, leftv R)520 BOOLEAN newstruct_CheckAssign(blackbox */*b*/, leftv L, leftv R) 521 521 { 522 522 int lt=L->Typ(); … … 570 570 } 571 571 572 BOOLEAN newstruct_deserialize(blackbox ** b, void **d, si_link f)572 BOOLEAN newstruct_deserialize(blackbox **/*b*/, void **d, si_link f) 573 573 { 574 574 // newstruct is serialiazed as a list, -
Singular/pyobject_setup.cc
r367df9 r69658e 36 36 } 37 37 38 void pyobject_default_destroy(blackbox * b, void *d)38 void pyobject_default_destroy(blackbox */*b*/, void */*d*/) 39 39 { 40 40 Werror("Python-based functionality not available!"); -
Singular/utils.cc
r367df9 r69658e 108 108 109 109 /*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*/ 110 void main_result(char * libname)110 void main_result(char */*libname*/) 111 111 { 112 112 if(!found_info) printf("*** No info-string found!\n"); … … 158 158 void printpi(procinfov pi) 159 159 { 160 char *buf, name[256];161 int len1, len2;160 // char *buf, name[256]; 161 // int len1, len2; 162 162 /* pi->libname is badly broken -- use file, instead */ 163 163 FILE *fp = fopen( lib_file, "rb"); -
dyn_modules/bigintm/bigintm.cc
r367df9 r69658e 30 30 31 31 #ifdef HAVE_BIGINTM 32 static char * bigintm_String(blackbox * b, void *d)32 static char * bigintm_String(blackbox */*b*/, void *d) 33 33 { if (d==NULL) return omStrDup("oo"); 34 34 else … … 39 39 } 40 40 } 41 static void * bigintm_Copy(blackbox* b, void *d)41 static void * bigintm_Copy(blackbox*/*b*/, void *d) 42 42 { number n=(number)d; return n_Copy(n, coeffs_BIGINT); } 43 43 … … 46 46 assume( l->Typ() == bigintm_type_id ); 47 47 48 blackbox *ll=getBlackboxStuff(l->Typ());48 // blackbox *ll=getBlackboxStuff(l->Typ()); 49 49 50 50 if (r->Typ()>MAX_TOK) … … 52 52 if (bigintm_type_id == r->Typ()) 53 53 { 54 blackbox *rr=getBlackboxStuff(r->Typ());54 // blackbox *rr=getBlackboxStuff(r->Typ()); 55 55 56 56 if (l->Data()!=NULL) { number n1=(number)l->Data(); n_Delete(&n1,coeffs_BIGINT); } … … 126 126 assume( a1->Typ() == bigintm_type_id ); 127 127 128 blackbox *a=getBlackboxStuff(a1->Typ());128 // blackbox *a=getBlackboxStuff(a1->Typ()); 129 129 number n1=(number)a1->Data(); 130 130 switch(op) … … 287 287 } 288 288 289 static void bigintm_destroy(blackbox * b, void *d)289 static void bigintm_destroy(blackbox */*b*/, void *d) 290 290 { 291 291 if (d!=NULL) -
dyn_modules/syzextra/mod_main.cc
r367df9 r69658e 819 819 static BOOLEAN reduce_syz(leftv res, leftv h) 820 820 { 821 const ring r = currRing;821 // const ring r = currRing; 822 822 823 823 if ( !( (h!=NULL) && (h->Typ()==VECTOR_CMD || h->Typ()==POLY_CMD) ) ) -
dyn_modules/syzextra/myNF.cc
r367df9 r69658e 218 218 // only global: avoid normalization, return a multiply of NF 219 219 poly p; 220 int i;220 // int i; 221 221 222 222 //if ((idIs0(F))&&(Q==NULL)) -
factory/libfac/charset/alg_factor.cc
r367df9 r69658e 398 398 399 399 // the heart of the algorithm: the one from Trager 400 #ifndef DEBUGOUTPUT 401 static CFFList 402 alg_factor( const CanonicalForm & f, const CFList & Astar, const Variable & vminpoly, const Varlist /*& oldord*/, const CFList & as) 403 #else 400 404 static CFFList 401 405 alg_factor( const CanonicalForm & f, const CFList & Astar, const Variable & vminpoly, const Varlist & oldord, const CFList & as) 406 #endif 402 407 { 403 408 CFFList L, Factorlist; -
kernel/fast_maps.cc
r367df9 r69658e 135 135 static omBin macoeffBin = omGetSpecBin(sizeof(macoeff_s)); 136 136 137 mapoly maMonomial_Create(poly p, ring r_p, sBucket_pt bucket)137 mapoly maMonomial_Create(poly p, ring /*r_p*/, sBucket_pt bucket) 138 138 { 139 139 mapoly mp = (mapoly) omAlloc0Bin(mapolyBin); … … 320 320 */ 321 321 322 ideal maIdeal_2_Ideal(maideal m_id, ring dest_r)322 ideal maIdeal_2_Ideal(maideal m_id, ring /*dest_r*/) 323 323 { 324 324 ideal res = idInit(m_id->n, 1); … … 354 354 { 355 355 ring src_r, dest_r; 356 ideal dest_id , res_id;356 ideal dest_id/*, res_id*/; 357 357 int length = 0; 358 358 BOOLEAN no_sort; -
kernel/fast_mult.cc
r367df9 r69658e 482 482 return p; 483 483 } 484 static void buildTermAndAdd(int n,number* facult,poly* f_terms,int* exp,int f_len,kBucket_pt erg_bucket,ring r, number coef, poly & zw, poly tmp, poly** term_pot){484 static void buildTermAndAdd(int /*n*/,number* /*facult*/,poly* /*f_terms*/,int* exp,int f_len,kBucket_pt /*erg_bucket*/,ring r, number coef, poly & zw, poly /*tmp*/, poly** term_pot){ 485 485 486 486 int i; -
kernel/feread.cc
r367df9 r69658e 397 397 /* ===================================================================*/ 398 398 /* dummy (for batch mode): */ 399 char * fe_fgets_dummy(const char * pr,char *s, int size)399 char * fe_fgets_dummy(const char */*pr*/,char */*s*/, int /*size*/) 400 400 { 401 401 return NULL; -
kernel/fglmgauss.cc
r367df9 r69658e 73 73 gaussReducer::~gaussReducer() 74 74 { 75 int k;76 77 75 #ifndef HAVE_EXPLICIT_CONSTR 78 76 delete [] elems; 79 77 #else 78 int k; 80 79 for ( k= size; k > 0; k-- ) 81 80 elems[k].~gaussElem(); … … 159 158 { 160 159 // fglmASSERT( size < max ); 161 number fac;160 // number fac; 162 161 // find the pivot-element in v: 163 162 -
kernel/fglmzero.cc
r367df9 r69658e 609 609 610 610 void 611 internalCalculateFunctionals( const ideal & theIdeal, idealFunctionals & l,611 internalCalculateFunctionals( const ideal /*& theIdeal*/, idealFunctionals & l, 612 612 fglmSdata & data ) 613 613 { -
kernel/gr_kstd2.cc
r367df9 r69658e 968 968 #endif 969 969 970 #ifdef HAVE_RATGRING 970 971 void nc_gr_initBba(ideal F, kStrategy strat) 972 #else 973 void nc_gr_initBba(ideal, kStrategy strat) 974 #endif 971 975 { 972 976 assume(rIsPluralRing(currRing)); 973 977 974 int i;978 // int i; 975 979 // idhdl h; 976 980 /* setting global variables ------------------- */ … … 1070 1074 assume(currRing->OrdSgn != -1); // no mora!!! it terminates only for global ordering!!! (?) 1071 1075 1072 intvec *w=NULL;1073 intvec *hilb=NULL;1076 // intvec *w=NULL; 1077 // intvec *hilb=NULL; 1074 1078 int olddeg,reduc; 1075 1079 int red_result=1; 1076 int hilbeledeg=1,hilbcount=0,minimcnt=0;1080 int /*hilbeledeg=1,*/hilbcount=0/*,minimcnt=0*/; 1077 1081 1078 1082 initBuchMoraCrit(strat); /*set Gebauer, honey, sugarCrit*/ -
kernel/hdegree.cc
r367df9 r69658e 923 923 { 924 924 int iv = Nvar -1, k = var[Nvar], a, a0, a1, b, i; 925 int x , x0;925 int x/*, x0*/; 926 926 scmon pn; 927 927 scfmon sn; … … 958 958 { 959 959 a0 = a; 960 x0 = x;960 // x0 = x; 961 961 hStepS(sn, Nstc, var, Nvar, &a, &x); 962 962 hElimS(sn, &b, a0, a, var, iv); -
kernel/hilb.cc
r367df9 r69658e 213 213 214 214 static intvec * hSeries(ideal S, intvec *modulweight, 215 int notstc, intvec *wdegree, ideal Q, ring tailRing)215 int /*notstc*/, intvec *wdegree, ideal Q, ring tailRing) 216 216 { 217 217 intvec *work, *hseries1=NULL; -
kernel/ideals.cc
r367df9 r69658e 939 939 BOOLEAN isSB, BOOLEAN divide, matrix *unit) 940 940 { 941 int lsmod =id_RankFreeModule(submod,currRing), i,j, k;941 int lsmod =id_RankFreeModule(submod,currRing), j, k; 942 942 int comps_to_add=0; 943 943 poly p; … … 1646 1646 poly idMinor(matrix a, int ar, unsigned long which, ideal R) 1647 1647 { 1648 int i,j ,k,size;1648 int i,j/*,k,size*/; 1649 1649 unsigned long curr; 1650 1650 int *rowchoise,*colchoise; 1651 1651 BOOLEAN rowch,colch; 1652 ideal result;1652 // ideal result; 1653 1653 matrix tmp; 1654 1654 poly p,q; … … 1659 1659 rowchoise=(int *)omAlloc(ar*sizeof(int)); 1660 1660 colchoise=(int *)omAlloc(ar*sizeof(int)); 1661 if ((i>512) || (j>512) || (i*j >512)) size=512;1662 else size=i*j;1663 result=idInit(size,1);1661 // if ((i>512) || (j>512) || (i*j >512)) size=512; 1662 // else size=i*j; 1663 // result=idInit(size,1); 1664 1664 tmp=mpNew(ar,ar); 1665 k = 0; /* the index in result*/1665 // k = 0; /* the index in result*/ 1666 1666 curr = 0; /* index of current minor */ 1667 1667 idInitChoise(ar,1,a->rows(),&rowch,rowchoise); … … 1714 1714 ideal idMinors(matrix a, int ar, ideal R) 1715 1715 { 1716 int i,j, k,size;1716 int i,j,/*k,*/size; 1717 1717 int *rowchoise,*colchoise; 1718 1718 BOOLEAN rowch,colch; … … 1730 1730 result=idInit(size,1); 1731 1731 tmp=mpNew(ar,ar); 1732 k = 0; /* the index in result*/1732 // k = 0; /* the index in result*/ 1733 1733 idInitChoise(ar,1,a->rows(),&rowch,rowchoise); 1734 1734 while (!rowch) -
kernel/kInline.h
r367df9 r69658e 1167 1167 // dummy function for function pointer strat->rewCrit being usable in all 1168 1168 // possible choices for criteria 1169 KINLINE BOOLEAN arriRewDummy(poly /*sig*/, unsigned long /*not_sevSig*/, kStrategy /*strat*/, int start=0)1169 KINLINE BOOLEAN arriRewDummy(poly /*sig*/, unsigned long /*not_sevSig*/, kStrategy /*strat*/, int /*start=0*/) 1170 1170 { 1171 1171 return FALSE; -
kernel/kspoly.cc
r367df9 r69658e 171 171 int ksReducePolySig(LObject* PR, 172 172 TObject* PW, 173 long idx,173 long /*idx*/, 174 174 poly spNoether, 175 175 number *coef, … … 394 394 poly a1 = pNext(p1), a2 = pNext(p2); 395 395 number lc1 = pGetCoeff(p1), lc2 = pGetCoeff(p2); 396 int co=0, ct = ksCheckCoeff(&lc1, &lc2, currRing->cf); // gcd and zero divisors 396 int co=0/*, ct = ksCheckCoeff(&lc1, &lc2, currRing->cf)*/; // gcd and zero divisors 397 (void) ksCheckCoeff(&lc1, &lc2, currRing->cf); 397 398 398 399 int l1=0, l2=0; -
kernel/kstd1.cc
r367df9 r69658e 515 515 { 516 516 /*- remember the found T-poly -*/ 517 poly pi = strat->T[j].p;517 // poly pi = strat->T[j].p; 518 518 int ei = strat->T[j].ecart; 519 519 int li = strat->T[j].length; … … 538 538 * the polynomial to reduce with is now; 539 539 */ 540 pi = strat->T[j].p;540 // pi = strat->T[j].p; 541 541 ei = strat->T[j].ecart; 542 542 li = strat->T[j].length; … … 1041 1041 } 1042 1042 1043 void initBba(ideal F,kStrategy strat)1043 void initBba(ideal /*F*/,kStrategy strat) 1044 1044 { 1045 1045 /* setting global variables ------------------- */ … … 2468 2468 int olddeg,reduc; 2469 2469 BOOLEAN withT = FALSE; 2470 BOOLEAN toReset=FALSE;2470 // BOOLEAN toReset=FALSE; 2471 2471 kStrategy strat=new skStrategy; 2472 2472 tHomog h; … … 2499 2499 strat->pOrigLDeg = currRing->pLDeg; 2500 2500 pSetDegProcs(currRing,kModDeg); 2501 toReset = TRUE;2501 // toReset = TRUE; 2502 2502 } 2503 2503 strat->LazyPass*=2; -
kernel/kstd2.cc
r367df9 r69658e 197 197 int a_ind2 = ind2(a); 198 198 199 NATNUMBER k = 1;199 // NATNUMBER k = 1; 200 200 // of interest is only k_ind2, special routine for improvement ... TODO OLIVER 201 201 for (int i = 1; i <= leadRing->N; i++) … … 303 303 if (strat->tl<0) return 1; 304 304 305 int at ,i;305 int at/*,i*/; 306 306 long d; 307 307 int j = 0; 308 308 int pass = 0; 309 poly zeroPoly = NULL;309 // poly zeroPoly = NULL; 310 310 311 311 // TODO warum SetpFDeg notwendig? … … 390 390 int i,j,at,pass, ii; 391 391 unsigned long not_sev; 392 long reddeg,d;392 // long reddeg,d; 393 393 394 394 pass = j = 0; 395 d = reddeg = h->GetpFDeg();395 // d = reddeg = h->GetpFDeg(); 396 396 h->SetShortExpVector(); 397 397 int li; … … 530 530 int sigSafe; 531 531 unsigned long not_sev; 532 long reddeg,d;532 // long reddeg,d; 533 533 534 534 pass = j = 0; 535 d = reddeg = h->GetpFDeg();535 // d = reddeg = h->GetpFDeg(); 536 536 h->SetShortExpVector(); 537 537 int li; … … 1516 1516 long zeroreductions = 0; 1517 1517 LObject L; 1518 BOOLEAN withT = FALSE;1518 // BOOLEAN withT = FALSE; 1519 1519 strat->max_lower_index = 0; 1520 1520 … … 1537 1537 1538 1538 // redtailBBa against T for inhomogenous input 1539 if (!TEST_OPT_OLDSTD)1540 withT = ! strat->homog;1539 // if (!TEST_OPT_OLDSTD) 1540 // withT = ! strat->homog; 1541 1541 1542 1542 // strat->posInT = posInT_pLength; … … 2998 2998 } 2999 2999 3000 void initBbaShift(ideal F,kStrategy strat)3000 void initBbaShift(ideal /*F*/,kStrategy strat) 3001 3001 { 3002 3002 /* setting global variables ------------------- */ -
kernel/kstdfac.cc
r367df9 r69658e 161 161 kStrategy kStratCopy(kStrategy o) 162 162 { 163 int i;163 // int i; 164 164 assume(kTest_TS(o)); 165 165 kStrategy s=new skStrategy; … … 545 545 } 546 546 547 ideal bbafac (ideal F, ideal Q,intvec *w,kStrategy strat, ideal_list FL)547 ideal bbafac (ideal /*F*/, ideal Q,intvec */*w*/,kStrategy strat, ideal_list FL) 548 548 { 549 549 int olddeg,reduc=0; -
kernel/kutil.cc
r367df9 r69658e 395 395 void HEckeTest (poly pp,kStrategy strat) 396 396 { 397 int j, k,p;397 int j,/*k,*/p; 398 398 399 399 strat->kHEdgeFound=FALSE; … … 410 410 // return FALSE; 411 411 } 412 k = 0;412 // k = 0; 413 413 p=pIsPurePower(pp); 414 414 if (p!=0) strat->NotUsedAxis[p] = FALSE; … … 635 635 636 636 poly p = T->p; 637 ring r = currRing;637 // ring r = currRing; 638 638 639 639 if (T->p == NULL && T->t_p == NULL && i >= 0) … … 651 651 if (msg != NULL) 652 652 return dReportError("%c[%d] %s", TN, i, msg); 653 r = T->tailRing;653 // r = T->tailRing; 654 654 p = T->t_p; 655 655 } … … 657 657 { 658 658 p = T->t_p; 659 r = T->tailRing;659 // r = T->tailRing; 660 660 } 661 661 if (T->t_p != NULL && i >= 0 && TN == 'T') … … 846 846 { 847 847 int i, j; 848 BOOLEAN ret = TRUE;848 // BOOLEAN ret = TRUE; 849 849 kFalseReturn(kTest(strat)); 850 850 … … 1731 1731 */ 1732 1732 1733 #ifdef DEBUGF5 1733 1734 void enterOnePairSig (int i, poly p, poly pSig, int from, int ecart, int isFromQ, kStrategy strat, int atR = -1) 1735 #else 1736 void enterOnePairSig (int i, poly p, poly pSig, int, int ecart, int isFromQ, kStrategy strat, int atR = -1) 1737 #endif 1734 1738 { 1735 1739 assume(i<=strat->sl); … … 1740 1744 // the corresponding signatures for criteria checks 1741 1745 LObject Lp; 1742 poly last;1746 // poly last; 1743 1747 poly pSigMult = p_Copy(pSig,currRing); 1744 1748 poly sSigMult = p_Copy(strat->sig[i],currRing); … … 2338 2342 *using the chain-criterion in B and L and enters B to L 2339 2343 */ 2340 void chainCritSig (poly p,int ecart,kStrategy strat)2344 void chainCritSig (poly p,int /*ecart*/,kStrategy strat) 2341 2345 { 2342 2346 int i,j,l; … … 4470 4474 */ 4471 4475 int posInLSig (const LSet set, const int length, 4472 LObject* p,const kStrategy strat)4476 LObject* p,const kStrategy /*strat*/) 4473 4477 { 4474 4478 if (length<0) return 0; … … 4499 4503 * still in strat->L! 4500 4504 */ 4501 int posInLF5C (const LSet set, const int length,4502 LObject* p,const kStrategy strat)4505 int posInLF5C (const LSet /*set*/, const int /*length*/, 4506 LObject* /*p*/,const kStrategy strat) 4503 4507 { 4504 4508 return strat->Ll+1; … … 5046 5050 // critical pair. In this situation we can discard the critical pair 5047 5051 // completely. 5048 BOOLEAN arriRewCriterion(poly sig, unsigned long /*not_sevSig*/, kStrategy strat, int start=0)5052 BOOLEAN arriRewCriterion(poly /*sig*/, unsigned long /*not_sevSig*/, kStrategy strat, int /*start=0*/) 5049 5053 { 5050 5054 //printf("Arri Rewritten Criterion\n"); … … 8090 8094 } 8091 8095 8092 ring sbaRing (kStrategy strat, const ring r, BOOLEAN complete, int sgn)8096 ring sbaRing (kStrategy strat, const ring r, BOOLEAN /*complete*/, int /*sgn*/) 8093 8097 { 8094 8098 int n = rBlocks(r); // Including trailing zero! … … 8828 8832 int j; 8829 8833 8830 poly q , s;8834 poly q/*, s*/; 8831 8835 8832 8836 // for the 0th shift: insert the orig. pair -
kernel/linearAlgebra.cc
r367df9 r69658e 1081 1081 /* helper for qrDoubleShift */ 1082 1082 bool qrDS( 1083 const int n,1083 const int /*n*/, 1084 1084 matrix* queue, 1085 1085 int& queueL, -
kernel/preimage.cc
r367df9 r69658e 78 78 79 79 int i,j; 80 poly p, pp,q;80 poly p,/*pp,*/q; 81 81 ideal temp1; 82 82 ideal temp2; -
kernel/sca.cc
r367df9 r69658e 375 375 376 376 // Under development!!! 377 ideal sca_bba (const ideal F, const ideal Q, const intvec * w, const intvec * /*hilb*/, kStrategy strat, const ring _currRing)377 ideal sca_bba (const ideal F, const ideal Q, const intvec */*w*/, const intvec * /*hilb*/, kStrategy strat, const ring _currRing) 378 378 { 379 379 const ring save = currRing; … … 867 867 868 868 // returns TRUE if mora should use buckets, false otherwise 869 #ifdef MORA_USE_BUCKETS 869 870 static BOOLEAN kMoraUseBucket(kStrategy strat) 871 #else 872 static BOOLEAN kMoraUseBucket(kStrategy) 873 #endif 870 874 { 871 875 #ifdef MORA_USE_BUCKETS … … 898 902 899 903 // ideal sca_mora (ideal F, ideal Q, intvec *w, intvec *, kStrategy strat) 900 ideal sca_mora(const ideal F, const ideal Q, const intvec * w, const intvec *, kStrategy strat, const ring _currRing)904 ideal sca_mora(const ideal F, const ideal Q, const intvec */*w*/, const intvec *, kStrategy strat, const ring _currRing) 901 905 { 902 906 const ring save = currRing; -
kernel/syz.cc
r367df9 r69658e 222 222 void syGaussForOne(ideal syz, int elnum, int ModComp,int from,int till) 223 223 { 224 int k,j,i,lu;224 int /*k,j,i,*/lu; 225 225 poly unit1,unit2; 226 226 poly actWith=syz->m[elnum]; … … 249 249 static void syDeleteAbove1(ideal up, int k) 250 250 { 251 poly p ,pp;251 poly p/*,pp*/; 252 252 if (up!=NULL) 253 253 { -
kernel/syz0.cc
r367df9 r69658e 173 173 if (Fl==0) return result; 174 174 175 int i,j,l,k,totalToRed,ecartToRed,kk ,kkk;175 int i,j,l,k,totalToRed,ecartToRed,kk; 176 176 int bestEcart,totalmax,rkF,Sl=0,smax,tmax,tl; 177 177 int *ecartS, *ecartT, *totalS, 178 178 *totalT=NULL, *temp=NULL; 179 polyset pairs,S,T,ST ,oldF;179 polyset pairs,S,T,ST/*,oldF*/; 180 180 poly p,q,toRed; 181 181 BOOLEAN notFound = FALSE; … … 342 342 #else 343 343 l = (**modcomp)[pGetComp(toRed)]; 344 kkk = (**modcomp)[pGetComp(toRed)+1];344 int kkk = (**modcomp)[pGetComp(toRed)+1]; 345 345 while ((l<kkk) && (notFound)) 346 346 #endif … … 509 509 while ((Fl!=0) && (arg->m[Fl-1]==NULL)) Fl--; 510 510 ideal result=idInit(16,Fl); 511 int i,j,l,k,kkk, rkF,Sl=0,syComponentOrder=currRing->ComponentOrder;512 int fstart,wend,lini,ltR,gencQ=0;511 int i,j,l,k,kkk,/*rkF,*/Sl=0,syComponentOrder=currRing->ComponentOrder; 512 int /*fstart,*/wend,lini,ltR,gencQ=0; 513 513 intvec *newmodcomp; 514 514 int *Flength; 515 515 polyset pairs,F=arg->m,*Shdl=&(result->m); 516 poly p,q,toRed,syz,lastmonom,multWith;516 poly /*p,*/q,toRed,syz,lastmonom,multWith; 517 517 BOOLEAN isNotReduced=TRUE; 518 518 … … 536 536 pairs=(polyset)omAlloc0((Fl+gencQ)*sizeof(poly)); 537 537 } 538 rkF=id_RankFreeModule(arg,currRing);538 // rkF=id_RankFreeModule(arg,currRing); 539 539 Flength = (int*)omAlloc0(Fl*sizeof(int)); 540 540 for(j=0;j<Fl;j++) … … 577 577 { 578 578 number an=nCopy(pGetCoeff(F[k])),bn=nCopy(pGetCoeff(F[j])); 579 int ct =ksCheckCoeff(&an, &bn, currRing->cf);579 /*int ct =*/ (void) ksCheckCoeff(&an, &bn, currRing->cf); 580 580 syz = pCopy(pairs[k]); 581 581 //syz->coef = nCopy(F[k]->coef); … … 862 862 863 863 resolvente sySchreyerResolvente(ideal arg, int maxlength, int * length, 864 BOOLEAN isMonomial, BOOLEAN notReplace)864 BOOLEAN isMonomial, BOOLEAN /*notReplace*/) 865 865 { 866 866 ideal mW=NULL; 867 867 int i,syzIndex = 0,j=0; 868 868 intvec * modcomp=NULL,*w=NULL; 869 int ** wv=NULL;869 // int ** wv=NULL; 870 870 tHomog hom=(tHomog)idHomModule(arg,NULL,&w); 871 871 ring origR = currRing; … … 1017 1017 if (fr==NULL) return NULL; 1018 1018 1019 int typ0;1019 // int typ0; 1020 1020 syStrategy result=(syStrategy)omAlloc0(sizeof(ssyStrategy)); 1021 1021 result->length=rl; -
kernel/syz1.cc
r367df9 r69658e 988 988 * puts a pair into the right place in resPairs 989 989 */ 990 void syEnterPair(SSet sPairs, SObject * so, int * sPlength,int index)990 void syEnterPair(SSet sPairs, SObject * so, int * sPlength,int /*index*/) 991 991 { 992 992 int ll,k,no=(*so).order,sP=*sPlength,i; -
kernel/syz3.cc
r367df9 r69658e 112 112 ideal old_repr,int old_tl, poly next_generator,resolvente totake) 113 113 { 114 int index=syzstr->length-1,i,j,start,start_ttk ,new_tl;114 int index=syzstr->length-1,i,j,start,start_ttk/*,new_tl*/; 115 115 poly gen=pCopy(next_generator),p; 116 116 poly neg_gen=pCopy(next_generator); … … 237 237 * only for tests 238 238 */ 239 #ifdef NDEBUG 240 static void syTestPairs(SSet resPairs,int length,ideal /*old_generators*/) 241 #else 239 242 static void syTestPairs(SSet resPairs,int length,ideal old_generators) 243 #endif 240 244 { 241 245 int i=0; … … 517 521 int i=IDELEMS(red)-1,num_mon,num_tail; 518 522 poly h,hn; 519 BOOLEAN dummy;523 // BOOLEAN dummy; 520 524 521 525 while ((i>0) && (red->m[i-1]==NULL)) i--; … … 530 534 { 531 535 kBucketInit(syzstr->syz_bucket,hn,num_tail); 532 dummy =syRedSyz(syzstr->syz_bucket,red,crit_comp,gen_length);536 /*dummy =*/ (void) syRedSyz(syzstr->syz_bucket,red,crit_comp,gen_length); 533 537 kBucketClear(syzstr->syz_bucket,&hn,&num_tail); 534 538 pNext(h) = hn; … … 548 552 { 549 553 kBucketInit(syzstr->syz_bucket,hn,num_tail); 550 dummy =syRedSyz(syzstr->syz_bucket,sec_red,crit_comp,secgen_length);554 /*dummy =*/ (void) syRedSyz(syzstr->syz_bucket,sec_red,crit_comp,secgen_length); 551 555 kBucketClear(syzstr->syz_bucket,&hn,&num_tail); 552 556 pNext(h) = hn; … … 656 660 int toReplace=0; 657 661 int i,j,syz_l; 658 number coefgcd,n;662 number /*coefgcd,*/n; 659 663 polyset ogm=old_generators->m; 660 664 poly p; … … 941 945 int * ogm_l=(int*)omAlloc0(IDELEMS(syzstr->res[index])*sizeof(int)); 942 946 int * orp_l=(int*)omAlloc0(IDELEMS(syzstr->orderedRes[index])*sizeof(int)); 943 int t1=IDELEMS(syzstr->res[index]),t2=IDELEMS(syzstr->orderedRes[index]);947 // int t1=IDELEMS(syzstr->res[index]),t2=IDELEMS(syzstr->orderedRes[index]); 944 948 945 949 for (j=IDELEMS(syzstr->res[index])-1;j>=0;j--) … … 1049 1053 * updates the pairs inthe higher modules 1050 1054 */ 1051 static void updatePairsHIndex(SSet *resPairs,int *l_pairs,syStrategy syzstr,1052 int index,ideal add_generators,ideal add_repr,ideal new_generators,1053 ideal new_repr,int crit_comp,int* first_new)1055 static void updatePairsHIndex(SSet *resPairs,int *l_pairs,syStrategy /*syzstr*/, 1056 int index,ideal add_generators,ideal /*add_repr*/,ideal /*new_generators*/, 1057 ideal /*new_repr*/,int /*crit_comp*/,int* first_new) 1054 1058 { 1055 1059 int i=*first_new,l=*l_pairs,j,ll,j1,add_idel=IDELEMS(add_generators); … … 1173 1177 * reduction of a single pair in the higher moduls 1174 1178 */ 1179 #ifdef SHOW_PROT 1175 1180 static void redOnePairHIndex(SSet resPairs,int itso, int crit_comp, 1176 1181 syStrategy syzstr,int index,ideal add_generators, ideal add_repr, 1177 1182 ideal new_generators, ideal new_repr,int * next_place_add,int ** g_l, 1178 1183 poly deg_soc) 1184 #else 1185 static void redOnePairHIndex(SSet resPairs,int itso, int crit_comp, 1186 syStrategy syzstr,int /*index*/,ideal add_generators, ideal add_repr, 1187 ideal new_generators, ideal new_repr,int * next_place_add,int ** g_l, 1188 poly deg_soc) 1189 #endif 1179 1190 { 1180 1191 SObject tso = resPairs[itso]; … … 1401 1412 * reduction which is normalized afterwards 1402 1413 */ 1403 static void procedeNextGenerators(ideal temp_generators,ideal temp_repr,1414 static void procedeNextGenerators(ideal temp_generators,ideal /*temp_repr*/, 1404 1415 ideal new_generators, ideal new_repr, ideal add_generators, 1405 1416 ideal add_repr, syStrategy syzstr,int index, int crit_comp, … … 1533 1544 */ 1534 1545 static ideal normalizeOldPart(ideal new_generators,ideal new_repr, 1535 syStrategy syzstr,int index,int crit_comp)1546 syStrategy syzstr,int index,int /*crit_comp*/) 1536 1547 { 1537 1548 ideal old_generators= syzstr->res[index]; … … 1753 1764 syStrategy syKosz(ideal arg,int * length) 1754 1765 { 1755 int i,j,jj,k=0,index=0,rk_arg ,next_syz=0;1766 int i,j,jj,k=0,index=0,rk_arg/*,next_syz=0*/; 1756 1767 int crit_comp,t_comp,next_deg,old_tl; 1757 1768 ideal temp=NULL,old_ideal,old_repr; -
kernel/tgb.cc
r367df9 r69658e 485 485 } 486 486 487 wlen_type pELength (poly p, slimgb_alg * c, ring r)487 wlen_type pELength (poly p, slimgb_alg * c, ring /*r*/) 488 488 { 489 489 if(p == NULL) … … 508 508 } 509 509 510 wlen_type kEBucketLength (kBucket * b, poly lm, int sugar, slimgb_alg * ca)510 wlen_type kEBucketLength (kBucket * b, poly lm, int /*sugar*/, slimgb_alg * ca) 511 511 { 512 512 wlen_type s = 0; … … 3622 3622 3623 3623 ideal 3624 do_t_rep_gb (ring r, ideal arg_I, int syz_comp, BOOLEAN F4_mode, int deg_pos)3624 do_t_rep_gb (ring /*r*/, ideal arg_I, int syz_comp, BOOLEAN F4_mode, int deg_pos) 3625 3625 { 3626 3626 // Print("QlogSize(0) %d, QlogSize(1) %d,QlogSize(-2) %d, QlogSize(5) %d\n", QlogSize(nlInit(0)),QlogSize(nlInit(1)),QlogSize(nlInit(-2)),QlogSize(nlInit(5))); … … 3979 3979 3980 3980 static BOOLEAN 3981 pair_better (sorted_pair_node * a, sorted_pair_node * b, slimgb_alg * c)3981 pair_better (sorted_pair_node * a, sorted_pair_node * b, slimgb_alg * /*c*/) 3982 3982 { 3983 3983 if(a->deg < b->deg) … … 4182 4182 4183 4183 static void 4184 multi_reduction_lls_trick (red_object * los, int losl, slimgb_alg * c,4184 multi_reduction_lls_trick (red_object * los, int /*losl*/, slimgb_alg * c, 4185 4185 find_erg & erg) 4186 4186 { … … 4504 4504 4505 4505 static void 4506 canonicalize_region (red_object * los, int l, int u, slimgb_alg * c)4506 canonicalize_region (red_object * los, int l, int u, slimgb_alg * /*c*/) 4507 4507 { 4508 4508 assume (l <= u + 1); … … 4514 4514 } 4515 4515 4516 #ifdef NDEBUG 4517 static void 4518 multi_reduction_find (red_object * los, int /*losl*/, slimgb_alg * c, int startf, 4519 find_erg & erg) 4520 #else 4516 4521 static void 4517 4522 multi_reduction_find (red_object * los, int losl, slimgb_alg * c, int startf, 4518 4523 find_erg & erg) 4524 #endif 4519 4525 { 4520 4526 kStrategy strat = c->strat; … … 4631 4637 } 4632 4638 4633 static void sort_region_down (red_object * los, int l, int u, slimgb_alg * c)4639 static void sort_region_down (red_object * los, int l, int u, slimgb_alg * /*c*/) 4634 4640 { 4635 4641 int r_size = u - l + 1; … … 4890 4896 } 4891 4897 4892 void reduction_step::reduce (red_object * r, int l, int u)4898 void reduction_step::reduce (red_object * /*r*/, int /*l*/, int /*u*/) 4893 4899 { 4894 4900 } … … 5065 5071 } 5066 5072 5067 void simple_reducer::pre_reduce (red_object * r, int l, int u)5068 { 5069 } 5073 void simple_reducer::pre_reduce (red_object * /*r*/, int /*l*/, int /*u*/) 5074 { 5075 } -
kernel/tgb_internal.h
r367df9 r69658e 658 658 } 659 659 #endif 660 DataNoroCacheNode<number_type>* insertAndTransferOwnerShip(poly t, ring r)660 DataNoroCacheNode<number_type>* insertAndTransferOwnerShip(poly t, ring /*r*/) 661 661 { 662 662 ressources.push_back(t); … … 919 919 return res; 920 920 } 921 #ifdef NDEBUG 922 template <class number_type> void add_coef_times_sparse(number_type* const temp_array, 923 int /*temp_size*/,SparseRow<number_type>* row, number coef) 924 #else 921 925 template <class number_type> void add_coef_times_sparse(number_type* const temp_array, 922 926 int temp_size,SparseRow<number_type>* row, number coef) 927 #endif 923 928 { 924 929 int j; … … 960 965 } 961 966 } 967 #ifdef NDEBUG 968 template <class number_type> void add_coef_times_dense(number_type* const temp_array, 969 int /*temp_size*/,const number_type* row, int len,number coef) 970 #else 962 971 template <class number_type> void add_coef_times_dense(number_type* const temp_array, 963 972 int temp_size,const number_type* row, int len,number coef) 973 #endif 964 974 { 965 975 int j; … … 1001 1011 } 1002 1012 } 1013 #ifdef NDEBUG 1014 template <class number_type> void add_dense(number_type* const temp_array, 1015 int /*temp_size*/,const number_type* row, int len) 1016 #else 1003 1017 template <class number_type> void add_dense(number_type* const temp_array, 1004 1018 int temp_size,const number_type* row, int len) 1019 #endif 1005 1020 { 1006 1021 //int j; … … 1020 1035 1021 1036 } 1037 #ifdef NDEBUG 1038 template <class number_type> void sub_dense(number_type* const temp_array, 1039 int /*temp_size*/,const number_type* row, int len) 1040 #else 1022 1041 template <class number_type> void sub_dense(number_type* const temp_array, 1023 1042 int temp_size,const number_type* row, int len) 1043 #endif 1024 1044 { 1025 1045 //int j; … … 1041 1061 } 1042 1062 1063 #ifdef NDEBUG 1064 template <class number_type> void add_sparse(number_type* const temp_array,int /*temp_size*/,SparseRow<number_type>* row) 1065 #else 1043 1066 template <class number_type> void add_sparse(number_type* const temp_array,int temp_size,SparseRow<number_type>* row) 1067 #endif 1044 1068 { 1045 1069 int j; … … 1055 1079 } 1056 1080 } 1081 #ifdef NDEBUG 1082 template <class number_type> void sub_sparse(number_type* const temp_array,int /*temp_size*/,SparseRow<number_type>* row) 1083 #else 1057 1084 template <class number_type> void sub_sparse(number_type* const temp_array,int temp_size,SparseRow<number_type>* row) 1085 #endif 1058 1086 { 1059 1087 int j; -
kernel/tgbgauss.cc
r367df9 r69658e 125 125 } 126 126 127 void simple_gauss(tgb_sparse_matrix* mat, slimgb_alg* c)127 void simple_gauss(tgb_sparse_matrix* mat, slimgb_alg* /*c*/) 128 128 { 129 129 int col, row; … … 225 225 { 226 226 assume(mat->min_col_not_zero_in_row(i)>=col); 227 int first;228 227 assume(row_cache[i]==mat->min_col_not_zero_in_row(i)); 229 first=row_cache[i]; 228 #ifndef NDEBUG 229 int first=row_cache[i]; 230 230 assume(first!=matcol); 231 #endif 231 232 // if((!(mat->is_zero_entry(i,col)))&&(mat->non_zero_entries(i)<act_l)) 232 233 int nz; … … 260 261 assume(col_area_index<=max_area_index); 261 262 assume(mat->min_col_not_zero_in_row(i)>=col); 262 int first;263 263 assume(row_cache[i]==mat->min_col_not_zero_in_row(i)); 264 first=row_cache[i]; 264 #ifndef NDEBUG 265 int first=row_cache[i]; 265 266 assume(first!=matcol); 267 #endif 266 268 if(row_cache[i]==col) 267 269 { -
libpolys/coeffs/bigintmat.h
r367df9 r69658e 146 146 /// replace an entry with the given number n (only delete old). 147 147 /// NOTE: starts at [0] 148 #ifdef NDEBUG 149 inline void rawset(int i, number n, const coeffs /*C = NULL*/) 150 #else 148 151 inline void rawset(int i, number n, const coeffs C = NULL) 152 #endif 149 153 { 150 154 assume (C == NULL || C == basecoeffs()); -
libpolys/coeffs/coeffs.h
r367df9 r69658e 592 592 /// test whether n is a correct number; 593 593 /// only used if LDEBUG is defined 594 #ifdef LDEBUG 594 595 static inline BOOLEAN n_DBTest(number n, const char *filename, const int linenumber, const coeffs r) 596 #else 597 static inline BOOLEAN n_DBTest(number, const char*, const int, const coeffs) 598 #endif 595 599 { 596 600 assume(r != NULL); -
libpolys/coeffs/gnumpc.cc
r367df9 r69658e 698 698 } 699 699 700 void ngcCoeffWrite (const coeffs r, BOOLEAN details)700 void ngcCoeffWrite (const coeffs r, BOOLEAN /*details*/) 701 701 { 702 702 Print("// characteristic : 0 (complex:%d digits, additional %d digits)\n", -
libpolys/coeffs/rintegers.cc
r367df9 r69658e 279 279 } 280 280 281 nMapFunc nrzSetMap(const coeffs src, const coeffs dst)281 nMapFunc nrzSetMap(const coeffs src, const coeffs /*dst*/) 282 282 { 283 283 /* dst = currRing */ -
libpolys/polys/clapsing.cc
r367df9 r69658e 1415 1415 } 1416 1416 1417 int singclap_det_i( intvec * m, const ring r)1417 int singclap_det_i( intvec * m, const ring /*r*/) 1418 1418 { 1419 1419 // assume( r == currRing ); // Anything else is not guaranted to work! -
libpolys/polys/ext_fields/algext.cc
r367df9 r69658e 972 972 { 973 973 if (n_IsZero(a, src)) return NULL; 974 int p = rChar(dst->extRing);974 // int p = rChar(dst->extRing); 975 975 976 976 number q = nlModP(a, src, dst->extRing->cf); -
libpolys/polys/ext_fields/transext.cc
r367df9 r69658e 1539 1539 assume( n_Test(a, src) ); 1540 1540 if (n_IsZero(a, src)) return NULL; 1541 int p = rChar(dst->extRing);1541 // int p = rChar(dst->extRing); 1542 1542 number q = nlModP(a, src, dst->extRing->cf); 1543 1543 … … 1694 1694 return (number)result; 1695 1695 } 1696 CanonicalForm ntConvSingNFactoryN( number n, BOOLEAN setChar, const coeffs cf )1696 CanonicalForm ntConvSingNFactoryN( number n, BOOLEAN /*setChar*/, const coeffs cf ) 1697 1697 { 1698 1698 ntTest(n); -
libpolys/polys/mod_raw.cc
r367df9 r69658e 62 62 struct stat sb; 63 63 int nbytes = 0; 64 int ret;64 // int ret; 65 65 lib_types LT=LT_NONE; 66 66 67 67 FILE * fp = feFopen( newlib, "r", libnamebuf, FALSE ); 68 ret =stat(libnamebuf, &sb);68 /*ret =*/ (void) stat(libnamebuf, &sb); 69 69 70 70 if (fp==NULL) -
libpolys/polys/monomials/p_polys.h
r367df9 r69658e 657 657 static inline poly p_New(const ring r, omBin bin) 658 658 #else 659 static inline poly p_New(const ring r, omBin bin)659 static inline poly p_New(const ring /*r*/, omBin bin) 660 660 #endif 661 661 { -
libpolys/polys/monomials/ring.cc
r367df9 r69658e 1683 1683 return FALSE; 1684 1684 1685 int i , j;1685 int i/*, j*/; 1686 1686 1687 1687 if (r1 == r2) return TRUE; -
libpolys/polys/nc/ncSACache.cc
r367df9 r69658e 27 27 #endif 28 28 29 #if OUTPUT 29 30 namespace 30 31 { 31 32 static const char* m_Typenames[2] = {"lookup", "store"}; 32 33 } 34 #endif 33 35 34 36 #include <coeffs/numbers.h> … … 41 43 42 44 43 45 #if OUTPUT 44 46 void CGlobalCacheHash::History(const EHistoryType t, const CGlobalCacheHash::CExponent a, const CGlobalCacheHash::CExponent b, const poly p) 47 #else 48 void CGlobalCacheHash::History(const EHistoryType, const CGlobalCacheHash::CExponent, const CGlobalCacheHash::CExponent, const poly) 49 #endif 45 50 { 46 51 #if OUTPUT … … 57 62 58 63 64 #if OUTPUT 59 65 void CSpecialPairCacheHash::History(const EHistoryType t, const CSpecialPairCacheHash::CExponent a, const CSpecialPairCacheHash::CExponent b, const poly p) 66 #else 67 void CSpecialPairCacheHash::History(const EHistoryType, const CSpecialPairCacheHash::CExponent, const CSpecialPairCacheHash::CExponent, const poly) 68 #endif 60 69 { 61 70 #if OUTPUT -
libpolys/polys/nc/ncSACache.h
r367df9 r69658e 87 87 }; 88 88 89 virtual void History(const EHistoryType , const CExponent a, const CExponent b, const poly p = NULL)89 virtual void History(const EHistoryType , const CExponent /*a*/, const CExponent /*b*/, const poly /*p = NULL*/) 90 90 { 91 91 PrintS("CCacheHash::History(a, b, [p])!\n"); -
libpolys/polys/nc/old.gring.cc
r367df9 r69658e 3338 3338 /* shift defines the position of a subring in srcRing */ 3339 3339 /* par_shift defines the position of a subfield in basefield of CurrRing */ 3340 poly p_CopyEmbed(poly p, ring srcRing, int shift, int par_shift, ring dstRing)3340 poly p_CopyEmbed(poly p, ring srcRing, int shift, int /*par_shift*/, ring dstRing) 3341 3341 { 3342 3342 if (dstRing == srcRing) -
libpolys/polys/operations/pShallowCopyDelete.cc
r367df9 r69658e 46 46 } 47 47 48 pShallowCopyDeleteProc pGetShallowCopyDeleteProc(ring source_r, ring dest_r)48 pShallowCopyDeleteProc pGetShallowCopyDeleteProc(ring /*source_r*/, ring /*dest_r*/) 49 49 { 50 50 return pShallowCopyDelete_General; -
libpolys/polys/templates/p_Procs_Set.h
r367df9 r69658e 198 198 void p_Debug_GetSpecNames(const ring r, const char* &field, const char* &length, const char* &ord) 199 199 { 200 p_Field e_field =p_FieldIs(r);201 p_Length e_length =p_LengthIs(r);202 p_Ord e_ord =p_OrdIs(r);200 /*p_Field e_field =*/ (void) p_FieldIs(r); 201 /*p_Length e_length =*/ (void) p_LengthIs(r); 202 /*p_Ord e_ord =*/ (void) p_OrdIs(r); 203 203 204 204 field = p_FieldEnum_2_String(p_FieldIs(r)); -
libpolys/reporter/dError.cc
r367df9 r69658e 50 50 #ifdef HAVE_EXECINFO_H 51 51 #define SIZE 50 52 void *buffer[SIZE+1]; int i, j, k, ret, status; char **ptr; char *demangledName; char *s; char *ss;52 void *buffer[SIZE+1]; int ret; 53 53 #endif 54 54 … … 73 73 backtrace_symbols_fd(buffer, ret, STDERR_FILENO); // execinfo.h 74 74 #else 75 ptr = backtrace_symbols( buffer, ret ); // execinfo.h75 char **ptr = backtrace_symbols( buffer, ret ); // execinfo.h 76 76 77 for (i = 0; i < ret; i++) 77 int status; 78 char *demangledName; 79 char *s; 80 char *ss; 81 for (int i = 0; i < ret; i++) 78 82 { 79 83 status = -1; -
numeric/mpr_base.cc
r367df9 r69658e 1739 1739 ideal resMatrixSparse::getMatrix() 1740 1740 { 1741 int i, j,cp;1741 int i,/*j,*/cp; 1742 1742 poly pp,phelp,piter,pgls; 1743 1743 … … 1861 1861 { 1862 1862 int i,cp; 1863 poly pp,phelp ,piter;1863 poly pp,phelp/*,piter*/; 1864 1864 1865 1865 mprPROTnl("smCallDet"); … … 1870 1870 pDelete( &pp ); 1871 1871 phelp= NULL; 1872 piter= NULL;1872 // piter= NULL; 1873 1873 for ( cp= 2; cp <= idelem; cp++ ) 1874 1874 { // u1 .. un … … 3072 3072 rootContainer ** uResultant::specializeInU( BOOLEAN matchUp, const number subDetVal ) 3073 3073 { 3074 int i, p,uvar;3074 int i,/*p,*/uvar; 3075 3075 long tdg; 3076 3076 poly pures,piter; … … 3092 3092 // now we evaluate D(u0,-1,0,...0), D(u0,0,-1,0,...,0), ..., D(u0,0,..,0,-1) 3093 3093 // or D(u0,k1,k2,0,...,0), D(u0,k1,k2,k3,0,...,0), ..., D(u0,k1,k2,k3,...,kn) 3094 p=3;3094 // p=3; 3095 3095 for ( uvar= 0; uvar < loops; uvar++ ) 3096 3096 { … … 3206 3206 simplex * LP; 3207 3207 int i; 3208 int n,totverts,idelem;3208 int /*n,*/totverts,idelem; 3209 3209 ideal idr; 3210 3210 3211 n= (currRing->N);3211 // n= (currRing->N); 3212 3212 idelem= IDELEMS(id); // should be n+1 3213 3213 -
numeric/mpr_base.h
r367df9 r69658e 32 32 virtual ideal getSubMatrix() { return NULL; } 33 33 34 virtual poly getUDet( const number* evpoint) { return NULL; }34 virtual poly getUDet( const number* /*evpoint*/ ) { return NULL; } 35 35 36 virtual number getDetAt( const number* evpoint) { return NULL; }36 virtual number getDetAt( const number* /*evpoint*/ ) { return NULL; } 37 37 virtual number getSubDet() { return NULL; } 38 38 -
numeric/mpr_inout.cc
r367df9 r69658e 105 105 //-> mprState mprIdealCheck() 106 106 mprState mprIdealCheck( const ideal theIdeal, 107 const char * name,107 const char * /*name*/, 108 108 uResultant::resMatType mtype, 109 109 BOOLEAN rmatrix ) 110 110 { 111 111 mprState state = mprOk; 112 int power;112 // int power; 113 113 int k; 114 114 -
numeric/mpr_numeric.cc
r367df9 r69658e 116 116 { 117 117 int j; 118 long i, c,sum;118 long i,/*c,*/sum; 119 119 120 120 poly pnew,pit=NULL; 121 121 122 c=0;122 // c=0; 123 123 sum=0; 124 124
Note: See TracChangeset
for help on using the changeset viewer.