Changeset 6959c4 in git


Ignore:
Timestamp:
Jul 9, 1999, 5:27:28 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
7e77a5bfe230c1a49479c409f74bc08bc1c2b249
Parents:
34fbd934a748fec8c0dcc9325052eddde20bd10e
Message:
* hannes: name conflicts parameter, varnames  (+ bug fix for "real(..)")


git-svn-id: file:///usr/local/Singular/svn/trunk@3256 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/iparith.cc

    r34fbd93 r6959c4  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: iparith.cc,v 1.158 1999-07-09 14:58:25 Singular Exp $ */
     4/* $Id: iparith.cc,v 1.159 1999-07-09 15:27:26 Singular Exp $ */
    55
    66/*
     
    45224522static BOOLEAN jjKLAMMER_PL(leftv res, leftv u)
    45234523{
    4524   if (yyInRingConstruction)
     4524  if ((yyInRingConstruction)
     4525  && ((strcmp(u->Name(),"real")==0) || (strcmp(u->Name(),"complex")==0)))
    45254526  {
    45264527    memcpy(res,u,sizeof(sleftv));
  • Singular/ring.cc

    r34fbd93 r6959c4  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.59 1999-07-09 14:06:50 obachman Exp $ */
     4/* $Id: ring.cc,v 1.60 1999-07-09 15:27:28 Singular Exp $ */
    55
    66/*
     
    608608  }
    609609
     610  /* check names nad parameters for conflicts ------------------------- */
     611  {
     612    int i,j;
     613    for(i=0;i<R->P; i++)
     614    {
     615      for(j=0;j<R->N;j++)
     616      {
     617        if (strcmp(R->parameter[i],R->names[j])==0)
     618        {
     619          Werror("parameter %d conflicts with variable %d",i+1,j+1);
     620          goto rInitError;
     621        }
     622      }
     623    }
     624  }
    610625  /* ordering -------------------------------------------------------------*/
    611626  if (rSleftvOrdering2Ordering(ord, R))
Note: See TracChangeset for help on using the changeset viewer.