diff options
| -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; |