Changeset 4b5c87 in git for Singular/febase.cc
- Timestamp:
- Apr 22, 1998, 9:49:05 AM (26 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 22f80af1b6c1526efe5d3aa6f9cfa5ee2ac42a1c
- Parents:
- 6ca22e864c938665093be3c3244ede1ba10be59d
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/febase.cc
r6ca22e r4b5c87 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: febase.cc,v 1. 29 1998-04-15 16:44:58Singular Exp $ */4 /* $Id: febase.cc,v 1.30 1998-04-22 07:48:52 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: i/o system … … 403 403 404 404 extern "C" { 405 void WerrorS(c har *s)405 void WerrorS(const char *s) 406 406 { 407 407 #ifdef HAVE_MPSR … … 412 412 feErrors=(char *)Alloc(256); 413 413 feErrorsLen=256; 414 strcpy(feErrors, s);414 strcpy(feErrors,(char *)s); 415 415 } 416 416 else 417 417 { 418 if (((int)(strlen( s)+strlen(feErrors)))>=feErrorsLen)418 if (((int)(strlen((char *)s)+strlen(feErrors)))>=feErrorsLen) 419 419 { 420 420 feErrors=(char *)ReAlloc(feErrors,feErrorsLen,feErrorsLen+256); 421 421 feErrorsLen+=256; 422 422 } 423 strcat(feErrors, s);423 strcat(feErrors,(char *)s); 424 424 } 425 425 strcat(feErrors,"\n"); … … 431 431 if (tclmode) 432 432 { 433 //PrintTCLS('E', s);433 //PrintTCLS('E',(char *)s); 434 434 //PrintTCLS('E',"\n"); 435 PrintTCLS('N', s);435 PrintTCLS('N',(char *)s); 436 436 PrintTCLS('N',"\n"); 437 437 } … … 440 440 { 441 441 fwrite(" ? ",1,5,stderr); 442 fwrite( s,1,strlen(s),stderr);442 fwrite((char *)s,1,strlen((char *)s),stderr); 443 443 fwrite("\n",1,1,stderr); 444 444 fflush(stderr); … … 446 446 { 447 447 fwrite(" ? ",1,5,feProtFile); 448 fwrite( s,1,strlen(s),feProtFile);448 fwrite((char *)s,1,strlen((char *)s),feProtFile); 449 449 fwrite("\n",1,1,feProtFile); 450 450 }
Note: See TracChangeset
for help on using the changeset viewer.