Changeset f5515b in git
- Timestamp:
- May 13, 2005, 5:37:31 PM (19 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 70aaf81e53c6fd2b628fc675ea5972e00150ee8d
- Parents:
- f28c6cfb0145da534a44a70af080b9943b8ef4dc
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/iparith.cc
rf28c6c rf5515b 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: iparith.cc,v 1.36 1 2005-05-13 15:29:19Singular Exp $ */4 /* $Id: iparith.cc,v 1.362 2005-05-13 15:37:31 Singular Exp $ */ 5 5 6 6 /* … … 3705 3705 static BOOLEAN jjPRUNE(leftv res, leftv v) 3706 3706 { 3707 intvec *w=ivCopy((intvec *)atGet(v,"isHomog",INTVEC_CMD)); 3708 intvec **ww=&w; 3709 res->data = (char *)idMinEmbedding((ideal)v->Data(),FALSE,ww); 3710 atSet(res,omStrDup("isHomog"),*ww,INTVEC_CMD); 3707 intvec *w=(intvec *)atGet(v,"isHomog",INTVEC_CMD); 3708 ideal v_id=(ideal)v->Data(); 3709 if ((*w)!=NULL) 3710 { 3711 *w=ivCopy(*w); 3712 intvec **ww=&w; 3713 res->data = (char *)idMinEmbedding(v_id,FALSE,ww); 3714 atSet(res,omStrDup("isHomog"),*ww,INTVEC_CMD); 3715 } 3716 else 3717 res->data = (char *)idMinEmbedding(v_id); 3711 3718 return FALSE; 3712 3719 }
Note: See TracChangeset
for help on using the changeset viewer.