Commit fce5c8bc authored by John P. Willis's avatar John P. Willis
Browse files

Disable IEEE754 floating point support on AIX

parent 70e57ca7
Pipeline #560 passed with stage
in 1 minute and 15 seconds
......@@ -468,3 +468,8 @@ VERSION 0.28.5
VERSION 0.28.6
Separate m4 macros into their own directory and add check and mkdir for SYSCONFDIR in fmadm configure for Tru64 UNIX
********************************************************************************
VERSION 0.28.7
Disable IEEE754 floating point support on AIX
......@@ -37,7 +37,7 @@
#
#
AC_INIT(freem, 0.28.6, jpw@coherent-logic.com)
AC_INIT(freem, 0.28.7, jpw@coherent-logic.com)
AC_CONFIG_HEADERS([src/config.h])
AC_CONFIG_MACRO_DIRS([m4])
......
......@@ -4,7 +4,7 @@
@settitle The FreeM Manual
@copying
This manual is for FreeM, (version 0.28.6), which is a free and open-source implementation of the M programming language and database system.
This manual is for FreeM, (version 0.28.7), which is a free and open-source implementation of the M programming language and database system.
Copyright @copyright{} 2020 Coherent Logic Development LLC
......@@ -18,7 +18,7 @@ Permission is granted to copy, distribute and/or modify this document under the
@title The FreeM Manual
@subtitle @sc{The Official Manual of FreeM}
@subtitle Version 0.28.6
@subtitle Version 0.28.7
@c@vskip 10pt
@c@center @image{freem-logo-sm,,,,.png}
@author John P. Willis
......@@ -279,7 +279,7 @@ The FreeM direct-mode environment is the mode entered when FreeM is loaded witho
@example
Coherent Logic Development FreeM
Version 0.28.6-x86_64-Linux (commit 4ececff; jpw AT pasithea Tue 13 Oct 2020 09:03:27 AM MDT)
Version 0.28.7-x86_64-Linux (commit 4ececff; jpw AT pasithea Tue 13 Oct 2020 09:03:27 AM MDT)
*
* *
......@@ -1291,7 +1291,7 @@ In the above @emph{inclusive} form, @code{KVALUE} will kill the data values at e
@cartouche
@quotation
@emph{Note}
The below @emph{argumentless} and @emph{exclusive} forms of @code{KVALUE} are not implemented in FreeM, as of version 0.28.6, but are planned for a future release.
The below @emph{argumentless} and @emph{exclusive} forms of @code{KVALUE} are not implemented in FreeM, as of version 0.28.7, but are planned for a future release.
@end quotation
@end cartouche
......
......@@ -620,6 +620,7 @@ add (a, b) /* string arithmetic a+=b; */
register int j;
register int carry;
#if !defined(_AIX)
if (fp_mode) {
double fp_a;
double fp_b;
......@@ -635,6 +636,7 @@ add (a, b) /* string arithmetic a+=b; */
return;
}
#endif
......@@ -867,6 +869,7 @@ mul (a, b) /* string arithmetic a=a*b */
register int ccur;
register int carry;
#if !defined(_AIX)
if (fp_mode) {
double fp_a;
double fp_b;
......@@ -882,6 +885,7 @@ mul (a, b) /* string arithmetic a=a*b */
return;
}
#endif
if (ierr > OK)
......@@ -1124,6 +1128,7 @@ mdiv (uu, v, typ) /* divide string arithmetic */
register int k;
register int carry = 0;
#if !defined(_AIX)
if (fp_mode) {
double fp_uu;
double fp_v;
......@@ -1153,6 +1158,7 @@ mdiv (uu, v, typ) /* divide string arithmetic */
return;
}
#endif
if (ierr > OK)
......@@ -1559,6 +1565,7 @@ power (a, b) /* raise a to the b-th power */
register long i;
register long j;
#if !defined(_AIX)
if (fp_mode) {
double fp_a;
double fp_b;
......@@ -1575,6 +1582,7 @@ power (a, b) /* raise a to the b-th power */
return;
}
#endif
if (ierr > OK)
......
......@@ -278,6 +278,7 @@ void ssvn_job(short action, char *key, char *data)
}
else if (strcmp (mref_get_subscript (r, 1), "MATH") == 0) {
#if !defined(_AIX)
if (stcmp (data, "IEEE754\201") == 0) {
fp_mode = 1;
......@@ -305,6 +306,7 @@ void ssvn_job(short action, char *key, char *data)
ierr = M29;
return;
}
#endif
}
......
......@@ -2316,6 +2316,7 @@ short int comp (s, t)
register int s1 = s[0], t1 = t[0], point = '.';
#if !defined(_AIX)
if (fp_mode) {
double fp_s;
double fp_t;
......@@ -2328,6 +2329,7 @@ short int comp (s, t)
return fp_t > fp_s;
}
#endif
if (s1 != t1) {
......
......@@ -1925,6 +1925,7 @@ set10:
}
}
#if !defined(_AIX)
else {
if (tmp_zprecise > DBL_DIG) {
......@@ -1935,6 +1936,7 @@ set10:
sprintf (fp_conversion, "%%.%df\201", tmp_zprecise);
}
#endif
zprecise = tmp_zprecise;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment