Changeset 0498af in git


Ignore:
Timestamp:
Mar 27, 1998, 3:44:27 PM (26 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
Children:
a38f5eabbce750256e73c236f59000a5b9ec4c11
Parents:
cf80ceb5ad2d43154cc45f6bfc38e7f519e69373
Message:
* added spSpolyLoop.inc to repository
* algmap.cc (maAlgpolyMap): fixed bug which changed preimage
* mpsr_*: bug fixes for COMP_FAST


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

Legend:

Unmodified
Added
Removed
  • Singular/algmap.cc

    rcf80ce r0498af  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: algmap.cc,v 1.8 1998-01-17 18:07:53 Singular Exp $ */
     4/* $Id: algmap.cc,v 1.9 1998-03-27 14:44:23 obachman Exp $ */
    55/*
    66* ABSTRACT - the mapping of polynomials from rings with
     
    204204  poly q, q0, q1 = NULL;
    205205  int i;
    206 
     206 
     207  pTest(monpart);
    207208  if (s == 0)
    208209  {
     
    261262        }
    262263      }
     264      pTest(q);
    263265    }
    264266    q1 = pAdd(q1, q);
     267    pTest(q1);
    265268    a0 = napNext(a0);
    266269  }
    267270  while (a0 != NULL);
    268271  q1 = pMult(q1,monpart);
     272  pTest(q1);
    269273  pSetCompP(q1,pGetComp(p0));
     274  pTest(q1);
    270275  return pAdd(res, q1);
    271276}
     
    315320    monpart = maEval((map)G, p0, R);
    316321    result = maLongalgMap(result, p0, s, t, &nom, monpart, F);
     322    pTest(result);
    317323    if (nom)
    318324    {
    319325      return NULL;
    320326    }
     327    p0->next = pr;
    321328    p0=pr;
    322329  }
     330  pTest(result);
    323331  return result;
    324332}
  • Singular/extra.cc

    rcf80ce r0498af  
    22*  Computer Algebra System SINGULAR      *
    33*****************************************/
    4 /* $Id: extra.cc,v 1.29 1998-02-27 14:06:09 Singular Exp $ */
     4/* $Id: extra.cc,v 1.30 1998-03-27 14:44:24 obachman Exp $ */
    55/*
    66* ABSTRACT: general interface to internals of Singular ("system" command)
     
    483483      {
    484484        i1->m[k] = maAlgpolyMap(r0, i0->m[k], i, j);
     485        pTest(i1->m[k]);
    485486      }
    486487      res->rtyp = IDEAL_CMD;
  • Singular/mpsr_GetPoly.cc

    rcf80ce r0498af  
    33****************************************/
    44
    5 /* $Id: mpsr_GetPoly.cc,v 1.13 1998-03-27 11:40:58 obachman Exp $ */
     5/* $Id: mpsr_GetPoly.cc,v 1.14 1998-03-27 14:44:25 obachman Exp $ */
    66
    77/***************************************************************
     
    389389  if (gNvars > 1)
    390390  {
    391     mp_failr(IMP_GetSint32Vector(link, &gTa[1], gNvars));
     391    MP_Sint32_t* Ta = &gTa[1];
     392    mp_failr(IMP_GetSint32Vector(link, &Ta, gNvars));
    392393    for (i=1; i<=gNvars; i++)
    393394      pSetExp(pp,i , (Exponent_t) gTa[i]);
     
    399400      pp = pp->next;
    400401      failr(GetCoeff(link, &(pp->coef)));
    401       mp_failr(IMP_GetSint32Vector(link, &gTa[1], gNvars));
     402      mp_failr(IMP_GetSint32Vector(link, &Ta, gNvars));
    402403      for (i=1; i<=gNvars; i++)
    403404        pSetExp(pp, i, (Exponent_t) gTa[i]);
  • Singular/polys-impl.cc

    rcf80ce r0498af  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys-impl.cc,v 1.12 1998-03-23 22:51:03 obachman Exp $ */
     4/* $Id: polys-impl.cc,v 1.13 1998-03-27 14:44:26 obachman Exp $ */
    55
    66/***************************************************************
     
    665665      return FALSE;
    666666#endif
     667    if (pGetComp(p) > 10)
     668    {
     669      Print("Component > 10 in poly in %s: %d\n", f,l);
     670    }
    667671#ifdef LDEBUG
    668672    if (!nDBTest(p->coef,f,l))
Note: See TracChangeset for help on using the changeset viewer.