Changeset ed91a6 in git


Ignore:
Timestamp:
May 9, 2016, 5:30:15 PM (7 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
Children:
1c1d660c7201e1779c8af50b3966da3a6e5cbe7c
Parents:
9fd384fbb5f060908c98c0ba9887c8c1bd7d7dae
Message:
fix: tr. #761 (attrib rowShift if betti[1,1]==0)
Files:
2 added
2 deleted
2 edited
1 moved

Legend:

Unmodified
Added
Removed
  • Singular/ipshell.cc

    r9fd384 red91a6  
    949949  r=liFindRes(l,&len,&typ0);
    950950  if (r==NULL) return TRUE;
    951   res->data=(char *)syBetti(r,len,&reg,weights,(int)(long)v->Data());
     951  intvec* res_im=syBetti(r,len,&reg,weights,(int)(long)v->Data());
     952  res->data=(void*)res_im;
    952953  omFreeSize((ADDRESS)r,(len)*sizeof(ideal));
     954  //Print("rowShift: %d ",add_row_shift);
     955  for(int i=1;i<=res_im->rows();i++)
     956  {
     957    if (IMATELEM(*res_im,1,i)==0) { add_row_shift--; }
     958    else break;
     959  }
     960  //Print(" %d\n",add_row_shift);
    953961  atSet(res,omStrDup("rowShift"),(void*)(long)add_row_shift,INT_CMD);
    954962  if (weights!=NULL) delete weights;
  • Tst/Short/bug_tr760_761.tst

    r9fd384 red91a6  
    22tst_init();
    33
    4 // conversion list -> resolution must include attribute isHomog
     4// 760: conversion list -> resolution must include attribute isHomog
    55ring r = 0, x, dp;
    66module m = 0;
     
    1313print(betti(s, 0), "betti");
    1414
     15// 761: rwowShift, if betti[1,1] is 0
     16ring r2 = 0, x, dp;
     17module m = gen(1);
     18attrib(m, "isHomog", intvec(3));
     19print(betti(list(m), 0), "betti");
     20
    1521tst_status(1);$;
    1622
  • Tst/Short/ok_s.lst

    r9fd384 red91a6  
    6060bug_tr758
    6161bug_tr759
    62 bug_tr760
     62bug_tr760_761
    6363bug_genus_etc
    6464conv_bi
Note: See TracChangeset for help on using the changeset viewer.