diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-03-14 00:56:48 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-03-14 00:56:48 +0000 |
| commit | 17164de4f8d7409c65bcc9c060df824f49dc4629 (patch) | |
| tree | 4c1fd5011e287acfee4fd1f3326d29671b63f937 /gcc/fortran/iresolve.c | |
| parent | 10f499af34794b5b4c400c2f5d2cb05bd524b0ff (diff) | |
| download | gcc-17164de4f8d7409c65bcc9c060df824f49dc4629.zip gcc-17164de4f8d7409c65bcc9c060df824f49dc4629.tar.gz gcc-17164de4f8d7409c65bcc9c060df824f49dc4629.tar.bz2 | |
check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
* check.c (gfc_check_kill_sub): Remove check for INTEGER(4) or (8).
* intrinsic.c (add_functions): Remove reference to gfc_resolve_kill.
(add_subroutines): Remove reference to gfc_resolve_kill_sub.
* intrinsic.texi: Update documentation.
* iresolve.c (gfc_resolve_kill, gfc_resolve_kill_sub): Remove.
* trans-decl.c (gfc_build_intrinsic_function_decls): Add
gfor_fndecl_kill and gfor_fndecl_kill_sub
* trans-intrinsic.c (conv_intrinsic_kill, conv_intrinsic_kill_sub): new
functions.
(gfc_conv_intrinsic_function): Use conv_intrinsic_kill.
(gfc_conv_intrinsic_subroutine): Use conv_intrinsic_kill_sub.
* trans.h: Declare gfor_fndecl_kill and gfor_fndecl_kill_sub.
2018-03-13 Steven G. Kargl <kargl@gcc.gnu.org>
* libgfortran/gfortran.map: Remove _gfortran_kill_i4,
_gfortran_kill_i4_sub, _gfortran_kill_i8, and _gfortran_kill_i8_sub.
Add _gfortran_kill and _gfortran_kill_sub.
* libgfortran/intrinsics/kill.c: Eliminate _gfortran_kill_i4,
_gfortran_kill_i4_sub, _gfortran_kill_i8, and _gfortran_kill_i8_sub.
Add _gfortran_kill and _gfortran_kill_sub.
From-SVN: r258511
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index f2208b4..f15b8f2 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -1492,19 +1492,6 @@ gfc_resolve_ishftc (gfc_expr *f, gfc_expr *i, gfc_expr *shift, gfc_expr *size) void -gfc_resolve_kill (gfc_expr *f, gfc_expr *pid, - gfc_expr *sig ATTRIBUTE_UNUSED) -{ - f->ts.type = BT_INTEGER; - if (pid->ts.kind == 4 || pid->ts.kind == 8) - f->ts.kind = pid->ts.kind; - else - f->ts.kind = gfc_default_integer_kind; - f->value.function.name = gfc_get_string (PREFIX ("kill_i%d"), f->ts.kind); -} - - -void gfc_resolve_lbound (gfc_expr *f, gfc_expr *array, gfc_expr *dim, gfc_expr *kind) { resolve_bound (f, array, dim, kind, "__lbound", false); @@ -3461,22 +3448,6 @@ gfc_resolve_rename_sub (gfc_code *c) void -gfc_resolve_kill_sub (gfc_code *c) -{ - const char *name; - int kind; - - if (c->ext.actual->next->next->expr != NULL) - kind = c->ext.actual->next->next->expr->ts.kind; - else - kind = gfc_default_integer_kind; - - name = gfc_get_string (PREFIX ("kill_i%d_sub"), kind); - c->resolved_sym = gfc_get_intrinsic_sub_symbol (name); -} - - -void gfc_resolve_link_sub (gfc_code *c) { const char *name; |