Changeset d2b6cf in git


Ignore:
Timestamp:
Oct 19, 1999, 2:04:29 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
c1489f2333a212c77e12ce2a36d50428720975eb
Parents:
66a6725e6c2a589e8d263c06008bfd97e2b39bdd
Message:
* hannes: added ringorder_s to rWrite for debugging


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

Legend:

Unmodified
Added
Removed
  • Singular/polys-impl.cc

    r66a672 rd2b6cf  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys-impl.cc,v 1.28 1999-10-14 17:59:33 Singular Exp $ */
     4/* $Id: polys-impl.cc,v 1.29 1999-10-19 12:04:29 Singular Exp $ */
    55
    66/***************************************************************
     
    3030#include "polys-impl.h"
    3131
     32/*3
     33* copies all exponents (and the component number) from src (in src_r)
     34* to dest (in currRing)
     35* DOES NOT call pSetm
     36*/
    3237inline void pRingCopy2ExpV(poly dest, poly src, ring src_r)
    3338{
    34   for (int i=pVariables; i; i--)
     39  for (int i=pVariables; i != 0; i--)
    3540    pSetExp(dest, i, pRingGetExp(src_r, src, i));
    3641  pSetComp(dest, pRingGetComp(src_r, src));
  • Singular/ring.cc

    r66a672 rd2b6cf  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.74 1999-10-19 09:50:42 Singular Exp $ */
     4/* $Id: ring.cc,v 1.75 1999-10-19 12:04:29 Singular Exp $ */
    55
    66/*
     
    7878}
    7979
    80 static ring o1_ring=NULL;
    81 static ring o2_ring=NULL;
    8280// internally changes the gloabl ring and resets the relevant
    8381// global variables:
     
    115113        naMinimalPoly=((lnumber)r->minpoly)->z;
    116114      }
    117     }
    118115
    119116    /*------------ Garbage Collection -----------------------------------*/
    120     if ((r!=o1_ring) && (r!=o2_ring))
    121117      mmGarbageCollectHeaps(2);
    122     o1_ring=o2_ring;
    123     o2_ring=r;
     118    }
    124119  }
    125120}
     
    783778      }
    784779    }
     780#ifndeg NDEBUG
     781    else if (r->order[l] == ringorder_s)
     782    {
     783      Print("  syzcomp at %d",r->typ[l].data.syz.limit);
     784    }
     785#endif
    785786
    786787    if (r->wvhdl[l]!=NULL)
Note: See TracChangeset for help on using the changeset viewer.