diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-08-03 16:56:39 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-08-03 16:56:39 +0000 |
| commit | 5c4aa279feefc45b5527002c04057c3b0d6b941f (patch) | |
| tree | b065161e28d4403f3cacb08071ff1527ef81d294 | |
| parent | c2a96ec20fc81a90fc6c0cc665db721cccab304b (diff) | |
| download | gcc-5c4aa279feefc45b5527002c04057c3b0d6b941f.zip gcc-5c4aa279feefc45b5527002c04057c3b0d6b941f.tar.gz gcc-5c4aa279feefc45b5527002c04057c3b0d6b941f.tar.bz2 | |
re PR fortran/66942 (trans-expr.c:5701 runtime error: member call on null pointer of type 'struct vec')
2015-08-03 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/66942
* trans-expr.c (gfc_conv_procedure_call): Avoid NULL pointer reference
From-SVN: r226517
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/trans-expr.c | 10 |
2 files changed, 10 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 03ea33c..36cd6f3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2015-08-03 Steven G. Kargl <kargl@gcc.gnu.org> + + PR fortran/66942 + * trans-expr.c (gfc_conv_procedure_call): Avoid NULL pointer reference + 2015-08-03 Mikael Morin <mikael@gcc.gnu.org> PR fortran/64921 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index be6bfe2..af30b55 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -5921,18 +5921,18 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym, vec_safe_reserve (retargs, arglen); /* Add the return arguments. */ - retargs->splice (arglist); + vec_safe_splice (retargs, arglist); /* Add the hidden present status for optional+value to the arguments. */ - retargs->splice (optionalargs); + vec_safe_splice (retargs, optionalargs); /* Add the hidden string length parameters to the arguments. */ - retargs->splice (stringargs); + vec_safe_splice (retargs, stringargs); /* We may want to append extra arguments here. This is used e.g. for calls to libgfortran_matmul_??, which need extra information. */ - if (!vec_safe_is_empty (append_args)) - retargs->splice (append_args); + vec_safe_splice (retargs, append_args); + arglist = retargs; /* Generate the actual call. */ |