Changeset a0e57c in git for Singular

Timestamp:

Apr 30, 2005, 5:31:34 PM (19 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

41b8d6eca966bf997d7adc06331d8f4e3429c34b

Parents:

d7876453a6c1bd4effead9c82fdd613244bb025c

Message:

*hannes: fix for ringlist


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

File:

• Singular/ipshell.cc (modified) (4 diffs)

Singular/ipshell.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ipshell.cc,v 1.106 2005-04-29 16:11:12 Singular Exp $ */
+/* $Id: ipshell.cc,v 1.107 2005-04-30 15:31:34 Singular Exp $ */
 /*
 * ABSTRACT:
@@ -1555 +1555 @@
   LL->Init(2);
     LL->m[0].rtyp=INT_CMD;
-    LL->m[0].data=(void *)si_max(R->float_len,SHORT_REAL_LENGTH);
+    LL->m[0].data=(void *)si_max(R->float_len,SHORT_REAL_LENGTH/2);
     LL->m[1].rtyp=INT_CMD;
     LL->m[1].data=(void *)si_max(R->float_len2,SHORT_REAL_LENGTH);
@@ -1695 +1695 @@
 /* field is R or C */
 {
-  Print("in rComposeC\n");
   // ----------------------------------------
   // 0: char/ cf - ring
   if ((L->m[0].rtyp!=INT_CMD) || (L->m[0].data!=(char *)0))
+  {
     Werror("invald coeff. field description, expecting 0");
     return;
+  }
   R->ch=-1;
   // ----------------------------------------
@@ -1712 +1713 @@
   && (r2=SHORT_REAL_LENGTH))
   {
-    R->float_len=0;
-    R->float_len2=0;
+    R->float_len=SHORT_REAL_LENGTH/2;
+    R->float_len2=SHORT_REAL_LENGTH;
   }
   else