/[gcl]/gcl/o/format.c
ViewVC logotype

Diff of /gcl/o/format.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Sun Oct 27 21:06:42 2002 UTC revision 1.6 by camm, Mon Jan 13 01:58:10 2003 UTC
# Line 956  fmt_fix_float(bool colon, bool atsign) Line 956  fmt_fix_float(bool colon, bool atsign)
956                  return;                  return;
957          }          }
958          if (type_of(x) == t_longfloat)          if (type_of(x) == t_longfloat)
959                  n = 16;  /*              n = 16; */
960                    n = 17;
961          else          else
962                  n = 7;  /*              n = 7; */
963                    n = 8;
964          f = number_to_double(x);          f = number_to_double(x);
965          edit_double(n, f, &sign, buff, &exp);          edit_double(n, f, &sign, buff, &exp);
966          if (exp + k > 100 || exp + k < -100 || d > 100) {          if (exp + k > 100 || exp + k < -100 || d > 100) {
# Line 1152  fmt_exponential_float(bool colon, bool a Line 1154  fmt_exponential_float(bool colon, bool a
1154                  return;                  return;
1155          }          }
1156          if (type_of(x) == t_longfloat)          if (type_of(x) == t_longfloat)
1157                  n = 16;  /*              n = 16; */
1158                    n = 17;
1159          else          else
1160                  n = 7;  /*              n = 7; */
1161                    n = 8;
1162          f = number_to_double(x);          f = number_to_double(x);
1163          edit_double(n, f, &sign, buff, &exp);          edit_double(n, f, &sign, buff, &exp);
1164          if (d >= 0) {          if (d >= 0) {
# Line 1342  fmt_general_float(bool colon, bool atsig Line 1346  fmt_general_float(bool colon, bool atsig
1346                  return;                  return;
1347          }          }
1348          if (type_of(x) == t_longfloat)          if (type_of(x) == t_longfloat)
1349                  q = 16;  /*              q = 16; */
1350                    q = 17;
1351          else          else
1352                  q = 7;  /*              q = 7; */
1353                    q = 8;
1354          edit_double(q, number_to_double(x), &sign, buff, &exp);          edit_double(q, number_to_double(x), &sign, buff, &exp);
1355          n = exp + 1;          n = exp + 1;
1356          while (q >= 0)          while (q >= 0)
# Line 1426  fmt_dollars_float(bool colon, bool atsig Line 1432  fmt_dollars_float(bool colon, bool atsig
1432                  vs_reset;                  vs_reset;
1433                  return;                  return;
1434          }          }
1435          q = 7;  /*      q = 7; */
1436            q = 8;
1437          if (type_of(x) == t_longfloat)          if (type_of(x) == t_longfloat)
1438                  q = 16;  /*              q = 16; */
1439                    q = 17;
1440          f = number_to_double(x);          f = number_to_double(x);
1441          edit_double(q, f, &sign, buff, &exp);          edit_double(q, f, &sign, buff, &exp);
1442          if ((q = exp + d + 1) > 0)          if ((q = exp + d + 1) > 0)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26