Changeset 3a3666 in git

Timestamp:

Feb 3, 2004, 5:19:39 PM (20 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

016a8d49977f3cef58684641bee4cd1d2341ed19

Parents:

1f76316341312dfd8521b855ec2bddcf1aa74806

Message:

*hannes: size(ring)


git-svn-id: file:///usr/local/Singular/svn/trunk@7021 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/iparith.cc (modified) (3 diffs)

Singular/iparith.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: iparith.cc,v 1.309 2003-12-17 19:39:00 levandov Exp $ */
+/* $Id: iparith.cc,v 1.310 2004-02-03 16:19:39 Singular Exp $ */
 
 /*
@@ -2772 +2772 @@
   else if (rField_is_Zp_a(r) && (r->minpoly!=NULL))
   {
-    elems=ABS(rInternalChar(r)*naParDeg(r->minpoly));
+    elems=(int)pow(ABS(rInternalChar(r),naParDeg(r->minpoly)));
   }
   res->data = (char *)elems;
@@ -2897 +2897 @@
 static BOOLEAN jjFACSTD(leftv res, leftv v)
 {
-  res->data=(void *)kStdfac((ideal)v->Data(),NULL,testHomog,NULL);
-  setFlag(res,FLAG_STD);
+  ideal_list p,h;
+  h=kStdfac((ideal)v->Data(),NULL,testHomog,NULL);
+  p=h;
+  int l=0;
+  while (p!=NULL) { p=p->next;l++; }
+  lists L=(lists)omAllocBin(slists_bin);
+  L->Init(l);
+  l=0;
+  while(h!=NULL) 
+  {
+    L->m[l].data=(char *)h->d;
+    L->m[l].rtyp=IDEAL_CMD;
+    p=h->next;
+    omFreeSize(h,sizeof(*h));
+    h=p;
+    l++;
+  }
+  res->data=(void *)L;
   return FALSE;
 }