diff options
Diffstat (limited to 'gawkapi.c')
| -rw-r--r-- | gawkapi.c | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -178,7 +178,7 @@ awk_value_to_node(const awk_value_t *retval) mpfr_init(ext_ret_val->mpg_numbr); tval = mpfr_set(ext_ret_val->mpg_numbr, (mpfr_srcptr) retval->num_ptr, ROUND_MODE); IEEE_FMT(ext_ret_val->mpg_numbr, tval); - mpfr_clear(retval->num_ptr); + mpfr_clear((mpfr_ptr) retval->num_ptr); #else fatal(_("awk_value_to_node: MPFR not supported")); #endif @@ -190,7 +190,7 @@ awk_value_to_node(const awk_value_t *retval) ext_ret_val = make_number_node(MPZN); mpz_init(ext_ret_val->mpg_i); mpz_set(ext_ret_val->mpg_i, (mpz_ptr) retval->num_ptr); - mpz_clear(retval->num_ptr); + mpz_clear((mpz_ptr) retval->num_ptr); #else fatal(_("awk_value_to_node: MPFR not supported")); #endif @@ -1241,7 +1241,7 @@ api_flatten_array_typed(awk_ext_id_t id, awk_valtype_t index_type, awk_valtype_t value_type) { NODE **list; - size_t i, j; + int i, j; NODE *array = (NODE *) a_cookie; size_t alloc_size; @@ -1303,7 +1303,7 @@ api_release_flattened_array(awk_ext_id_t id, || array->type != Node_var_array || data == NULL || array != (NODE *) data->opaque1 - || data->count != array->table_size + || (int)data->count != array->table_size || data->opaque2 == NULL) return awk_false; @@ -1434,7 +1434,7 @@ api_get_file(awk_ext_id_t id, const char *name, size_t namelen, const char *file currule = save_rule; source = save_source; } - *ibufp = &curfile->public; + *ibufp = &curfile->public_; *obufp = NULL; return awk_true; @@ -1483,7 +1483,7 @@ api_get_file(awk_ext_id_t id, const char *name, size_t namelen, const char *file if ((f = redirect_string(name, namelen, 0, redirtype, &flag, fd, false)) == NULL) return awk_false; - *ibufp = f->iop ? & f->iop->public : NULL; + *ibufp = f->iop ? & f->iop->public_ : NULL; *obufp = f->output.fp ? & f->output : NULL; return awk_true; } |