Changeset f3461d in git for dyn_modules
- Timestamp:
- Feb 28, 2012, 8:11:33 PM (12 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- 9b1590d4c8e281abd068646c9d699284f9ea053a
- Parents:
- 986225e4b879695a1828864dc45519cbf8a0f681
- git-author:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-02-28 20:11:33+01:00
- git-committer:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2012-03-05 17:42:53+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dyn_modules/syzextra/mod_main.cc
r986225e rf3461d 30 30 #include "myNF.h" 31 31 32 extern BOOLEAN rSetISReference(const ring r, const ideal F, const int i, const int p, const intvec * componentWeights);33 34 // extern void rSetISReference(const ideal F, const int rank, const int p, const intvec * componentWeights, const ring r);35 32 extern void pISUpdateComponents(ideal F, const intvec *const V, const int MIN, const ring r); 36 33 // extern ring rCurrRingAssure_SyzComp(); … … 504 501 const int iLimit = r->typ[pos].data.is.limit; 505 502 const ideal F = r->typ[pos].data.is.F; 506 const intvec* componentWeights = r->typ[pos].data.is.componentWeights;507 503 ideal FF = id_Copy(F, r); 508 504 509 505 lists l=(lists)omAllocBin(slists_bin); 510 l->Init( 3);506 l->Init(2); 511 507 512 508 l->m[0].rtyp = INT_CMD; … … 529 525 l->m[1].data = reinterpret_cast<void *>(FF); 530 526 531 l->m[2].rtyp = INTVEC_CMD;532 533 if( componentWeights != NULL )534 l->m[2].data = reinterpret_cast<void *>(new intvec(componentWeights));535 else536 l->m[2].data = reinterpret_cast<void *>(new intvec());537 538 539 540 527 res->rtyp = LIST_CMD; // list of int/module 541 528 res->data = reinterpret_cast<void *>(l); … … 558 545 return TRUE; 559 546 } 560 561 intvec * componentWeights = (intvec *)atGet(h,"isHomog",INTVEC_CMD); // No copy!562 547 563 548 const ideal F = (ideal)h->Data(); ; // No copy! … … 592 577 593 578 // F & componentWeights belong to that ordering block of currRing now: 594 rSetISReference(r, F, rank, p , componentWeights); // F and componentWeightswill be copied!579 rSetISReference(r, F, rank, p); // F will be copied! 595 580 return FALSE; 596 581 }
Note: See TracChangeset
for help on using the changeset viewer.