Changeset 4b5c87 in git for Singular/febase.cc


Ignore:
Timestamp:
Apr 22, 1998, 9:49:05 AM (26 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
22f80af1b6c1526efe5d3aa6f9cfa5ee2ac42a1c
Parents:
6ca22e864c938665093be3c3244ede1ba10be59d
Message:
* hannes:  several changes concerning stdfac


git-svn-id: file:///usr/local/Singular/svn/trunk@1416 2c84dea3-7e68-4137-9b89-c4e89433aadc
File:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/febase.cc

    r6ca22e r4b5c87  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: febase.cc,v 1.29 1998-04-15 16:44:58 Singular Exp $ */
     4/* $Id: febase.cc,v 1.30 1998-04-22 07:48:52 Singular Exp $ */
    55/*
    66* ABSTRACT: i/o system
     
    403403
    404404extern "C" {
    405 void WerrorS(char *s)
     405void WerrorS(const char *s)
    406406{
    407407#ifdef HAVE_MPSR
     
    412412      feErrors=(char *)Alloc(256);
    413413      feErrorsLen=256;
    414       strcpy(feErrors,s);
     414      strcpy(feErrors,(char *)s);
    415415    }
    416416    else
    417417    {
    418       if (((int)(strlen(s)+strlen(feErrors)))>=feErrorsLen)
     418      if (((int)(strlen((char *)s)+strlen(feErrors)))>=feErrorsLen)
    419419      {
    420420        feErrors=(char *)ReAlloc(feErrors,feErrorsLen,feErrorsLen+256);
    421421        feErrorsLen+=256;
    422422      }
    423       strcat(feErrors,s);
     423      strcat(feErrors,(char *)s);
    424424    }
    425425    strcat(feErrors,"\n");
     
    431431    if (tclmode)
    432432    {
    433       //PrintTCLS('E',s);
     433      //PrintTCLS('E',(char *)s);
    434434      //PrintTCLS('E',"\n");
    435       PrintTCLS('N',s);
     435      PrintTCLS('N',(char *)s);
    436436      PrintTCLS('N',"\n");
    437437    }
     
    440440    {
    441441      fwrite("   ? ",1,5,stderr);
    442       fwrite(s,1,strlen(s),stderr);
     442      fwrite((char *)s,1,strlen((char *)s),stderr);
    443443      fwrite("\n",1,1,stderr);
    444444      fflush(stderr);
     
    446446      {
    447447        fwrite("   ? ",1,5,feProtFile);
    448         fwrite(s,1,strlen(s),feProtFile);
     448        fwrite((char *)s,1,strlen((char *)s),feProtFile);
    449449        fwrite("\n",1,1,feProtFile);
    450450      }
Note: See TracChangeset for help on using the changeset viewer.