Changeset 1eaddcf in git


Ignore:
Timestamp:
Jul 23, 2007, 8:00:29 PM (17 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
c05b4689f61a550030ad7875a6d3867cac06ba4c
Parents:
818554126d9cea5bf1e81d52cd8b837bee779e4d
Message:
*hannes: fix rSamePolyRep/rEqual


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

Legend:

Unmodified
Added
Removed

  • kernel/ring.cc

    r818554 r1eaddcf  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.65 2007-07-19 11:54:50 Singular Exp $ */
     4/* $Id: ring.cc,v 1.66 2007-07-23 18:00:29 Singular Exp $ */
    55
    66/*
    … …  
    14821482    if ((r1->order[i] != r2->order[i])
    14831483    || (r1->block0[i] != r2->block0[i])
    1484     || (r2->block0[i] != r1->block0[i]))
     1484    || (r1->block1[i] != r2->block1[i]))
    14851485      return FALSE;
    14861486    if (r1->wvhdl[i] != NULL)
    … …  
    14951495    i++;
    14961496  }
     1497  if (r2->order[i] != 0) return FALSE;
    14971498
    14981499  for (i=0; i<rPar(r1);i++)
    … …  
    15651566    if ((r1->order[i] != r2->order[i])
    15661567    || (r1->block0[i] != r2->block0[i])
    1567     || (r2->block0[i] != r1->block0[i]))
     1568    || (r1->block1[i] != r2->block1[i]))
    15681569      return FALSE;
    15691570    if (r1->wvhdl[i] != NULL)
    … …  
    15781579    i++;
    15791580  }
     1581  if (r2->order[i] != 0) return FALSE;
    15801582
    15811583  // we do not check minpoly
Note: See TracChangeset for help on using the changeset viewer.