diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2000-07-22 17:30:33 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2000-07-22 15:30:33 +0000 |
| commit | 62b3b9db4dea8d4bd273fb13606f047a34a92878 (patch) | |
| tree | 3f1ae1ebdb50acc3f52aa4110a0f2e8394458c63 | |
| parent | 791ef777c99de5595073dcd75f6e82e7e4a17d40 (diff) | |
| download | gcc-62b3b9db4dea8d4bd273fb13606f047a34a92878.zip gcc-62b3b9db4dea8d4bd273fb13606f047a34a92878.tar.gz gcc-62b3b9db4dea8d4bd273fb13606f047a34a92878.tar.bz2 | |
com.c (ffecom_expr_intrinsic_): case FFEINTRIN_impFGETC_subr, FFEINTRIN_impFPUTC_subr: Check for arg3 being NULL.
2000-07-22 Toon Moene <toon@moene.indiv.nluug.nl>
* com.c (ffecom_expr_intrinsic_): case FFEINTRIN_impFGETC_subr,
FFEINTRIN_impFPUTC_subr: Check for arg3 being NULL.
From-SVN: r35191
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/com.c | 12 |
2 files changed, 13 insertions, 4 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index a33696c..8ba3239 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2000-07-22 Toon Moene <toon@moene.indiv.nluug.nl> + + * com.c (ffecom_expr_intrinsic_): case FFEINTRIN_impFGETC_subr, + FFEINTRIN_impFPUTC_subr: Check for arg3 being NULL. + 2000-07-13 Zack Weinberg <zack@wolery.cumb.org> * lang-specs.h: Use the new named specs. Remove unnecessary braces. diff --git a/gcc/f/com.c b/gcc/f/com.c index 07c3141e..f4332ff 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -5178,7 +5178,10 @@ ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree, arg1_tree); arg2_tree = ffecom_arg_ptr_to_expr (arg2, &arg2_len); - arg3_tree = ffecom_expr_w (NULL_TREE, arg3); + if (arg3 != NULL) + arg3_tree = ffecom_expr_w (NULL_TREE, arg3); + else + arg3_tree = NULL_TREE; arg1_tree = build_tree_list (NULL_TREE, arg1_tree); arg2_tree = build_tree_list (NULL_TREE, arg2_tree); @@ -5193,9 +5196,10 @@ ffecom_expr_intrinsic_ (ffebld expr, tree dest_tree, arg1_tree, NULL_TREE, NULL, NULL, NULL_TREE, TRUE, ffebld_nonter_hook (expr)); - expr_tree = ffecom_modify (NULL_TREE, arg3_tree, - convert (TREE_TYPE (arg3_tree), - expr_tree)); + if (arg3_tree != NULL_TREE) + expr_tree = ffecom_modify (NULL_TREE, arg3_tree, + convert (TREE_TYPE (arg3_tree), + expr_tree)); } return expr_tree; |