Changeset 3216ec in git for Singular/iparith.cc

Timestamp:

Aug 15, 2012, 1:44:30 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d8b0997ff6f148513d95e2f2a5a075c7386c7168

Parents:

a8ead8e63f3539f8915726efa18791dcc052733a

Message:

add: extgcd for bigint

File:

• Singular/iparith.cc (modified) (1 diff)

Singular/iparith.cc

@@ -1974 +1974 @@
   inerror=3;
   return TRUE;
+}
+static BOOLEAN jjEXTGCD_BI(leftv res, leftv u, leftv v)
+{
+  number uu=(number)u->Data();number vv=(number)v->Data();
+  lists L=(lists)omAllocBin(slists_bin);
+  number a,b;
+  number p0=n_ExtGcd(uu,vv,&a,&b,coeffs_BIGINT);
+  L->Init(3);
+  L->m[0].rtyp=BIGINT_CMD;   L->m[0].data=(void *)p0;
+  L->m[1].rtyp=BIGINT_CMD;   L->m[1].data=(void *)a;
+  L->m[2].rtyp=BIGINT_CMD;   L->m[2].data=(void *)b;
+  res->rtyp=LIST_CMD;
+  res->data=(char *)L;
+  return FALSE;
 }
 static BOOLEAN jjEXTGCD_I(leftv res, leftv u, leftv v)