Changeset 053925 in git


Ignore:
Timestamp:
Nov 6, 1998, 3:44:16 PM (26 years ago)
Author:
Olaf Bachmann <obachman@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c7af8613769b29c741d6c338945669719f1fc4f8')
Children:
db48346598cb23c710233d2eba4c0d60e9f98ad2
Parents:
805b06c356b54d136cc6ca472533f7943cbd8a7a
Message:
* bug fix in ring check


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

Legend:

Unmodified
Added
Removed
  • Singular/polys-impl.cc

    r805b06c r053925  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: polys-impl.cc,v 1.17 1998-11-05 08:37:46 obachman Exp $ */
     4/* $Id: polys-impl.cc,v 1.18 1998-11-06 14:44:13 obachman Exp $ */
    55
    66/***************************************************************
     
    678678    Print("Error in pCopyMonAddFast in %s:%d\n", f, l);
    679679  pFree1(ptemp);
    680   pTest(p1);
    681680}
    682681
  • Singular/ring.cc

    r805b06c r053925  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: ring.cc,v 1.36 1998-11-04 17:32:25 obachman Exp $ */
     4/* $Id: ring.cc,v 1.37 1998-11-06 14:44:16 obachman Exp $ */
    55
    66/*
     
    5252{
    5353  /*------------ set global ring vars --------------------------------*/
    54   rTest(r);
    5554  currRing = r;
    5655  currQuotient=NULL;
     
    5857  if (r != NULL)
    5958  {
    60 
     59    rTest(r);
    6160    if (complete)
    6261    {
     
    19111910  if (r->VarOffset == NULL)
    19121911  {
    1913     Werror("Null ring VarOffset -- no rComplete (?) in n %s:%l\n", fn, l);
     1912    Werror("Null ring VarOffset -- no rComplete (?) in n %s:%d\n", fn, l);
    19141913    assume(0);
    19151914    return false;
     
    19301929         VarHighIndex != r->VarHighIndex)
    19311930  {
    1932     Werror("Wrong ring VarIndicies -- no rComplete (?) in n %s:%l\n", fn, l);
     1931    Werror("Wrong ring VarIndicies -- no rComplete (?) in n %s:%d\n", fn, l);
    19331932    assume(0);
    19341933    ok = FALSE;
     
    19391938    if (VarOffset[i] != r->VarOffset[i])
    19401939    {
    1941       Werror("Wrong VarOffset value at %d in %s:%l\n", i, fn, l);
     1940      Werror("Wrong VarOffset value at %d in %s:%d\n", i, fn, l);
    19421941      assume(0);
    19431942      ok = FALSE;
    19441943    }
    19451944  }
    1946   Free(VarOffset, (r->N + 1)*sizeof(int));
     1945  Free(r->VarOffset, (r->N + 1)*sizeof(int));
     1946  r->VarOffset = VarOffset;
    19471947  return ok;
    19481948}
Note: See TracChangeset for help on using the changeset viewer.