| Server IP : 82.208.35.60 / Your IP : 216.73.216.238 Web Server : Apache/2.4.55 (FreeBSD) OpenSSL/1.1.1q-freebsd PHP/7.3.31 System : FreeBSD server7.d2m.cz 12.4-RELEASE-p9 FreeBSD 12.4-RELEASE-p9 GENERIC amd64 User : studiokobylisy_cz ( 1008) PHP Version : 7.3.31 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/ports/lang/gnu-apl/files/ |
Upload File : |
--- src/NumericCell.cc.orig 2019-06-23 12:39:20 UTC
+++ src/NumericCell.cc
@@ -1402,8 +1402,11 @@ NumericCell::bif_binomial(Cell * Z, const Cell * A) co
if (!A->is_near_int()) return E_DOMAIN_ERROR;
if (!is_near_int()) return E_DOMAIN_ERROR;
- if (is_float_cell() && 0x7FFFFFFFFFFFFFFFLL < get_real_value())
- return E_DOMAIN_ERROR;
+ if (is_float_cell())
+ {
+ if (get_real_value() > 9223372036854775800.0) return E_DOMAIN_ERROR;
+ if (get_real_value() < -9223372036854775800.0) return E_DOMAIN_ERROR;
+ }
const APL_Integer a = A->get_checked_near_int();
const APL_Integer b = get_checked_near_int();