Changeset dad9fb in git for Singular/ipshell.cc

Timestamp:

Mar 15, 2012, 5:26:46 PM (12 years ago)

Author:

Oleksandr Motsak <motsak@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

8066cd9340c30bf555310cdb3ca4a9c82b4f3e92a82c308b8fbf35f5d32c156ead224188e2610f7e

Parents:

788fdfc919bcf38d8b469a0f59374abf9046985dd841a16156c2e0b2a5e731384a7a5e454dffe2d8

Message:

Merge pull request #82 from mmklee/bug_fixes_sw

Bug fixes sw

File:

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

Singular/ipshell.cc

@@ -5091 +5091 @@
        LongComplexInfo param;
 
-       param.float_len = float_len;
-       param.float_len2 = float_len2;
+       param.float_len = si_min (float_len, 32767);
+       param.float_len2 = si_min (float_len2, 32767);
 
        // set the parameter name
        if (complex_flag)
        {
+         if (param.float_len < SHORT_REAL_LENGTH)
+         {
+           param.float_len= SHORT_REAL_LENGTH;
+           param.float_len2= SHORT_REAL_LENGTH;
+         }
          if (pn->next == NULL)
            param.par_name=(const char*)"i"; //default to i