diff options
| author | Arnold D. Robbins <arnold@skeeve.com> | 2021-12-10 12:24:59 +0200 |
|---|---|---|
| committer | Arnold D. Robbins <arnold@skeeve.com> | 2021-12-10 12:24:59 +0200 |
| commit | 4d85efd9d7e125b64df9a1fb3cf8ee695fd42fd3 (patch) | |
| tree | 9504ce4322440832bba5690174fce2e82c69f696 /extension | |
| parent | ab614c88e23d7df619e53d4b99a5fdea111ccefa (diff) | |
| parent | 913cb119902f0de1caf93e9c1031255849b48499 (diff) | |
| download | egawk-4d85efd9d7e125b64df9a1fb3cf8ee695fd42fd3.tar.gz egawk-4d85efd9d7e125b64df9a1fb3cf8ee695fd42fd3.tar.bz2 egawk-4d85efd9d7e125b64df9a1fb3cf8ee695fd42fd3.zip | |
Merge branch 'master' into feature/readall
Diffstat (limited to 'extension')
| -rw-r--r-- | extension/ChangeLog | 4 | ||||
| -rw-r--r-- | extension/rwarray.c | 20 |
2 files changed, 16 insertions, 8 deletions
diff --git a/extension/ChangeLog b/extension/ChangeLog index a4b2a815..8872ec7b 100644 --- a/extension/ChangeLog +++ b/extension/ChangeLog @@ -1,3 +1,7 @@ +2021-12-10 Arnold D. Robbins <arnold@skeeve.com> + + * rwarray.c (write_number, read_number): Reformat comments a bit. + 2021-12-09 Andrew J. Schorr <aschorr@telemetry-investments.com> * rwarray.c (write_number, read_number): Use diff --git a/extension/rwarray.c b/extension/rwarray.c index 3c74e600..af6f1cda 100644 --- a/extension/rwarray.c +++ b/extension/rwarray.c @@ -362,19 +362,23 @@ write_number(FILE *fp, awk_value_t *val) return awk_false; #ifdef USE_MPFR_FPIF - /* This would be preferable, but it is not available + /* + * This would be preferable, but it is not available * on older platforms with mpfr 3.x. It's also marked * experimental in mpfr 4.1, so perhaps not ready for - * production use yet. */ + * production use yet. + */ if (mpfr_fpif_export(fp, val->num_ptr) != 0) #else #define MPFR_STR_BASE 62 /* maximize base to minimize string len */ #define MPFR_STR_ROUND mpfr_get_default_rounding_mode() - /* Does the choice of rounding mode matter, given + /* + * XXX does the choice of MPFR_RNDN matter, given * that the precision is 0, so we should be rendering - * in full precision? */ - /* We need to write a terminating space, since - * mpfr_inp_str reads until it hits a space or EOF */ + * in full precision? + */ + // We need to write a terminating space, since + // mpfr_inp_str reads until it hits a space or EOF if ((mpfr_out_str(fp, MPFR_STR_BASE, 0, val->num_ptr, MPFR_STR_ROUND) == 0) || (putc(' ', fp) == EOF)) #endif return awk_false; @@ -807,8 +811,8 @@ read_number(FILE *fp, awk_value_t *value, uint32_t code, value_storage *vs) /* preferable if widely available and stable */ if (mpfr_fpif_import(vs->mpfr_val, fp) != 0) #else - /* N.B. need to consume the terminating space we wrote - * after mpfr_out_str */ + // N.B. need to consume the terminating space we wrote + // after mpfr_out_str if ((mpfr_inp_str(vs->mpfr_val, fp, MPFR_STR_BASE, MPFR_STR_ROUND) == 0) || (getc(fp) != ' ')) #endif return awk_false; |