Changeset ca3864 in git for Singular/extra.cc

Timestamp:

Jan 21, 2015, 2:54:46 PM (9 years ago)

Author:

Stephan Oberfranz <oberfran@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

7023cea48460891d8d8145b55190cccabdc80741

Parents:

4083faab6546fc5c3396c90683e190ab3b4d13274e33058a3cced5901e5f2b51d7435047555c71ca

Message:

---

Merge branch 'spielwiese' of github.com:Singular/Sources into spielwiese

File:

• Singular/extra.cc (modified) (2 diffs)

Singular/extra.cc

@@ -712 +712 @@
       {
         WerrorS("field required");
-        return TRUE;
+        return TRUE;
       }
       matrix pMat  = (matrix)h->Data();
@@ -3736 +3736 @@
     else
   #endif
+/*==================== test64 =================*/
+  #if 0
+    if(strcmp(sys_cmd,"test64")==0)
+    {
+      long l=8;int i;
+      for(i=1;i<62;i++)
+      {
+        l=l<<1;
+        number n=n_Init(l,coeffs_BIGINT);
+        Print("%ld= ",l);n_Print(n,coeffs_BIGINT);
+        CanonicalForm nn=n_convSingNFactoryN(n,TRUE,coeffs_BIGINT);
+        n_Delete(&n,coeffs_BIGINT);
+        n=n_convFactoryNSingN(nn,coeffs_BIGINT);
+        PrintS(" F:");
+        n_Print(n,coeffs_BIGINT);
+        PrintLn();
+        n_Delete(&n,coeffs_BIGINT);
+      }
+      Print("SIZEOF_LONG=%d\n",SIZEOF_LONG);
+      return FALSE;
+    }
+    else
+   #endif
 /*==================== Error =================*/
       Werror( "(extended) system(\"%s\",...) %s", sys_cmd, feNotImplemented );