[SCM] an open source computer algebra system branch, cleanedupstream, updated. 6125e540ca6d66c307958938a9d53b245507c323

Bernhard R. Link brlink at debian.org
Tue Apr 24 15:53:12 UTC 2012


The following commit has been merged in the cleanedupstream branch:
commit 1659dcb70e6e15bdf0a4e9d42f6247b08f5f0137
Author: Hans Schoenemann <hannes at mathematik.uni-kl.de>
Date:   Thu Feb 16 15:46:03 2012 +0100

    fix: removed unneeded stuff from example code bigintm.cc

diff --git a/Singular/bigintm.cc b/Singular/bigintm.cc
index 60e1ef2..64f769a 100644
--- a/Singular/bigintm.cc
+++ b/Singular/bigintm.cc
@@ -14,21 +14,20 @@
 
 
 static char * bigintm_String(blackbox *b, void *d)
-{ if (d==NULL) return omStrDup("oo");
-   else
-   {
-     StringSetS("");
-     number n=(number)d; nlWrite(n,NULL); d=(void*)n;
-     return omStrDup(StringAppendS(""));
-    }
+{
+  if (d==NULL) return omStrDup("oo");
+  else
+  {
+    StringSetS("");
+    number n=(number)d; nlWrite(n,NULL); d=(void*)n;
+    return omStrDup(StringAppendS(""));
+  }
 }
 static void * bigintm_Copy(blackbox*b, void *d)
 {  number n=(number)d; return nlCopy(n); }
 
 static BOOLEAN bigintm_Assign(leftv l, leftv r)
 {
-  blackbox *ll=getBlackboxStuff(l->Typ());
-  
   if (r->Typ()>MAX_TOK)
   {
     if (l->Typ() == r->Typ())
@@ -80,7 +79,6 @@ static BOOLEAN bigintm_Op2(int op, leftv res, leftv a1, leftv a2)
 {
   // interpreter: a1 is ist bigintm
   
-  blackbox *a=getBlackboxStuff(a1->Typ());
   number n1=(number)a1->Data(); 
   switch(op)
   {

-- 
an open source computer algebra system



More information about the debian-science-commits mailing list