Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 24 additions & 0 deletions libcob/ChangeLog
Original file line number Diff line number Diff line change
@@ -1,4 +1,28 @@

2026-04-25 Denis Hugonnnard-Roche <dhugonnard@users.sourceforge.net>

* intrinsic.c (cob_decimal_pow): Fix #924 #925 #989 #1020
* intrinsic.c : add cob_mpft3 cob_init_intrinsic
and cob_exit_intrinsic are updated
Fix typo also

2026-04-24 Denis Hugonnnard-Roche <dhugonnard@users.sourceforge.net>

* intrinsic.c (cob_mpf_exp): implement a faster algorithm
* intrinsic.c (cob_reduce_exp_arg): new function
* coblocal.h.c: add COB_EXP_DIVIDE as parameter

2026-03-18 Denis Hugonnnard-Roche <dhugonnard@users.sourceforge.net>

* coblocal.h, intrinsic.c: implement limits to cob_intr_exp, cob_intr_exp
and cob_intr_factorial .

2026-03-02 Denis Hugonnard-Roche <dhugonnard@users.sourceforge.net>

* intrinsic.c (cob_mpf_log): implement a faster ln algorithm
* intrinsic.c (setup_cob_log_half): add cob_log_two constant
* intrinsic.c (cob_exit_intrinsic): clear cob_log_two

2025-12-04 Simon Sobisch <simonsobisch@gnu.org>

* fileio.c (indexed_open) [WITH_DB]: if open was successful but checking
Expand Down
14 changes: 14 additions & 0 deletions libcob/coblocal.h
Original file line number Diff line number Diff line change
Expand Up @@ -464,6 +464,20 @@ struct config_tbl {
internal float to internal decimal */
#define COB_MAX_INTERMEDIATE_FLOATING_SIZE 96

#define COB_EXP_DIVIDE 24L
/* #1206 EXP EXP10 FACTORIAL intrinsic limits */
#define COB_MAX_EXP_LIMIT 14150UL
#define COB_MIN_EXP_LIMIT -14145L
#define COB_MIN_EXP_SCALE 6144
#define COB_MIN_EXP_MANTISSA 8UL

#define COB_MAX_EXP10_LIMIT 6112UL
#define COB_MIN_EXP10_LIMIT -6175
#define COB_MIN_EXP10_SCALE 6175
#define COB_MIN_EXP10_MANTISSA 1UL

#define COB_MAX_FACT_LIMIT 2114

/* Local function prototypes */
COB_HIDDEN void cob_init_numeric (cob_global *);
COB_HIDDEN void cob_init_cconv (cob_global *);
Expand Down
Loading
Loading