Changeset 27e6a4b in git


Ignore:
Timestamp:
Oct 19, 1999, 11:50:42 AM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
Children:
e771fa766e0f49356f9f2da046e1e17247067dfe
Parents:
efda01675ce0fa9e8f9c3932015b059c9f8e6857
Message:
* hannes: inverted syzcomp flag


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

Legend:

Unmodified
Added
Removed

  • Singular/polys.cc

    refda016 r27e6a4b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys.cc,v 1.48 1999-10-15 16:07:09 obachman Exp $ */
     4/* $Id: polys.cc,v 1.49 1999-10-19 09:50:41 Singular Exp $ */
    55
    66/*
    … …  
    142142          int c=pGetComp(p);
    143143          if (c > o->data.syz.limit)
     144            p->exp.l[o->data.syz.place]= 1;
     145          else
    144146            p->exp.l[o->data.syz.place]= 0;
    145           else
    146             p->exp.l[o->data.syz.place]= 1;
    147147          break;
    148148        }

  • Singular/ring.cc

    refda016 r27e6a4b  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.73 1999-10-15 16:00:18 Singular Exp $ */
     4/* $Id: ring.cc,v 1.74 1999-10-19 09:50:42 Singular Exp $ */
    55
    66/*
    … …  
    7878}
    7979
     80static ring o1_ring=NULL;
     81static ring o2_ring=NULL;
    8082// internally changes the gloabl ring and resets the relevant
    8183// global variables:
    … …  
    113115        naMinimalPoly=((lnumber)r->minpoly)->z;
    114116      }
    115 
    116       /*------------ Garbage Collection -----------------------------------*/
     117    }
     118
     119    /*------------ Garbage Collection -----------------------------------*/
     120    if ((r!=o1_ring) && (r!=o2_ring))
    117121      mmGarbageCollectHeaps(2);
    118     }
     122    o1_ring=o2_ring;
     123    o2_ring=r;
    119124  }
    120125}
    … …  
    27122717{
    27132718  // ordering is derived from component number
    2714   if(prev_ord!= 1) rO_Align(place);
     2719  if(prev_ord!= -1) rO_Align(place);
    27152720  ord_struct.ord_typ=ro_syz;
    27162721  ord_struct.data.syz.place=place/(sizeof(long)/sizeof(Exponent_t));
    27172722  ord_struct.data.syz.limit=0;
    2718   o[place/(sizeof(long)/sizeof(Exponent_t))]=1;
    2719   prev_ord=1;
     2723  o[place/(sizeof(long)/sizeof(Exponent_t))]=-1;
     2724  prev_ord=-1;
    27202725  place++;
    27212726  rO_Align(place);
Note: See TracChangeset for help on using the changeset viewer.