Changeset ee2d4d in git

Timestamp:

Aug 26, 2018, 11:32:06 AM (5 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '2fa36c576e6a4ddbb1093b43c7f8e9835e17e52a')

Children:

53238ada2509c5e616157c153594cd6ff9f936be

Parents:

b4976474e098cd507f0f7546f91de0121097e7d0

Message:

fix: construct Float-cf

File:

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

Singular/ipshell.cc

@@ -2273 +2273 @@
     R->cf = nInitChar(n_long_C, NULL);
   else if ((r1<=SHORT_REAL_LENGTH)
-  && (r2=SHORT_REAL_LENGTH))
+  && (r2<=SHORT_REAL_LENGTH))
     R->cf = nInitChar(n_R, NULL);
   else
@@ -2280 +2280 @@
     p->float_len=r1;
     p->float_len2=r2;
-    R->cf = nInitChar(n_long_R, NULL);
+    R->cf = nInitChar(n_long_R, p);
   }
 
   if ((r1<=SHORT_REAL_LENGTH)   // should go into nInitChar
-  && (r2=SHORT_REAL_LENGTH))
+  && (r2<=SHORT_REAL_LENGTH))
   {
     R->cf->float_len=SHORT_REAL_LENGTH/2;
@@ -2477 +2477 @@
       else
       {
-        Werror("var name %d must be `string`",i+1);
+        Werror("var name %d must be `string` (not %d)",i+1i, v->m[i].Typ());
         return TRUE;
       }