[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