Changeset 737b2b4 in git


Ignore:
Timestamp:
Mar 23, 1998, 3:07:54 PM (26 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
e1fc2d0c27c83083d3659ec4904f339c71a94fa7
Parents:
18255d9ac71af356d5f2f1ae0cd213ab439c90ca
Message:
1998-03-23  Olaf Bachmann  <obachman@mathematik.uni-kl.de>

	* kstdfac.cc (kStratCopy): kModW iv is not copied, but just the
	pointer is set


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

Legend:

Unmodified
Added
Removed
  • Singular/kstdfac.cc

    r18255d r737b2b4  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: kstdfac.cc,v 1.12 1998-03-16 14:56:34 obachman Exp $ */
     4/* $Id: kstdfac.cc,v 1.13 1998-03-23 14:07:54 obachman Exp $ */
    55/*
    66*  ABSTRACT -  Kernel: factorizing alg. of Buchberger
     
    2828#include "lists.h"
    2929#include "ideals.h"
    30 #ifdef COMP_FAST
    3130#include "spSpolyLoop.h"
    32 #endif
    3331#include "timer.h"
    3432#include "kstdfac.h"
     
    178176  s->update=o->update;
    179177  s->posInLOldFlag=o->posInLOldFlag;
    180   if (o->kModW!=NULL)
    181     s->kModW=ivCopy(o->kModW);
    182   else
    183     s->kModW=NULL;
     178  s->kModW = o->kModW;
     179//   if (o->kModW!=NULL)
     180//     s->kModW=ivCopy(o->kModW);
     181//   else
     182//     s->kModW=NULL;
    184183  s->pairtest=NULL;
    185184  s->sl=o->sl;
     
    208207  s->fromT=o->fromT;
    209208  s->noetherSet=o->noetherSet;
    210 #ifdef COMP_FAST
    211209  s->spSpolyLoop = o->spSpolyLoop;
    212 #endif 
    213210  return s;
    214211}
     
    731728  if ((h==testHomog))
    732729  {
    733     if (idRankFreeModule(F)==0)
     730    strat->ak = idRankFreeModule(F);
     731    if (strat->ak==0)
    734732    {
    735733      h = (tHomog)idHomIdeal(F,Q);
     
    744742    {
    745743      kModW = *w;
     744      strat->kModW = *w;
    746745      pOldFDeg = pFDeg;
    747746      pFDeg = kModDeg;
     
    753752  strat->homog=h;
    754753  spSet(currRing);
    755 #ifdef COMP_FAST
    756754  strat->spSpolyLoop = spGetSpolyLoop(currRing, strat);
    757 #endif 
    758755  initBuchMoraCrit(strat); /*set Gebauer, honey, sugarCrit*/
    759756  initBuchMoraPos(strat);
Note: See TracChangeset for help on using the changeset viewer.