diff options
Diffstat (limited to 'lang/gnu-apl')
| -rw-r--r-- | lang/gnu-apl/files/patch-src_NumericCell.cc | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/lang/gnu-apl/files/patch-src_NumericCell.cc b/lang/gnu-apl/files/patch-src_NumericCell.cc new file mode 100644 index 000000000000..d37c955768b6 --- /dev/null +++ b/lang/gnu-apl/files/patch-src_NumericCell.cc @@ -0,0 +1,16 @@ +--- 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(); |