Changeset cffd3e in git for Singular

Timestamp:

Jul 3, 2012, 9:30:01 AM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

83be980908d4dc3e33ce00c36b4e4013e3251a009e806f5c737b83e8f6e3fc5b677007d9b0269175

Parents:

24a9587366a1382c8229660d2521f0345ca048f0

Message:

fix: ringlist with real/complex

File:

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

Singular/ipshell.cc

@@ -1977 +1977 @@
   int r1=(int)(long)LL->m[0].data;
   int r2=(int)(long)LL->m[1].data;
-  if ((r1<=SHORT_REAL_LENGTH)
+  if (L->nr==2) // complex
+    R->cf = nInitChar(n_long_C, NULL);
+  else if ((r1<=SHORT_REAL_LENGTH)
+  && (r2=SHORT_REAL_LENGTH))
+    R->cf = nInitChar(n_R, NULL);
+  else
+    R->cf = nInitChar(n_long_R, NULL);
+
+  if ((r1<=SHORT_REAL_LENGTH)   // should go into nInitChar
   && (r2=SHORT_REAL_LENGTH))
   {