[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