[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323
Bernhard R. Link
brlink at debian.org
Tue Apr 24 15:54:13 UTC 2012
The following commit has been merged in the cleanedupstream branch:
commit 36df0c08d95d059af38872585cabfcadda7c868a
Author: Hans Schoenemann <hannes at mathematik.uni-kl.de>
Date: Tue Mar 20 20:21:59 2012 +0100
reomved: jjA_LIST_L
diff --git a/Singular/ipassign.cc b/Singular/ipassign.cc
index 8de3904..c209979 100644
--- a/Singular/ipassign.cc
+++ b/Singular/ipassign.cc
@@ -1120,34 +1120,6 @@ static BOOLEAN jjA_L_STRING(leftv l,leftv r)
IDDATA((idhdl)(l->data))=s;
return FALSE;
}
-static BOOLEAN jjA_LIST_L(leftv l,leftv r)
-{
- /*left side are something, right side are lists*/
- /*e.g. a,b,c=l */
- //int ll=l->listLength();
- if (l->listLength()==1) return jiAssign_1(l,r);
- BOOLEAN nok;
- sleftv t;
- leftv h;
- lists L=(lists)r->Data();
- int rl=L->nr;
- int i=0;
-
- memset(&t,0,sizeof(sleftv));
- while ((i<=rl)&&(l!=NULL))
- {
- memset(&t,0,sizeof(sleftv));
- t.Copy(&L->m[i]);
- h=l->next;
- l->next=NULL;
- nok=jiAssign_1(l,&t);
- if (nok) return TRUE;
- i++;
- l=h;
- }
- r->CleanUp();
- return FALSE;
-}
static BOOLEAN jiA_MATRIX_L(leftv l,leftv r)
{
/* right side is matrix, left side is list (of poly)*/
--
an open source computer algebra system
More information about the debian-science-commits
mailing list